?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Prompt for input for 'stuff' command if necessary
[screen-lua.git] / src / process.c
blob001007d9eb176e9c382d816057a6eb437d332a91
1 /* Copyright (c) 1993-2002
2 * Juergen Weigert (jnweiger@immd4.informatik.uni-erlangen.de)
3 * Michael Schroeder (mlschroe@immd4.informatik.uni-erlangen.de)
4 * Copyright (c) 1987 Oliver Laumann
5 *
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2, or (at your option)
9 * any later version.
10 *
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
15 *
16 * You should have received a copy of the GNU General Public License
17 * along with this program (see the file COPYING); if not, write to the
18 * Free Software Foundation, Inc.,
19 * 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
20 *
21 ****************************************************************
22 */
23
24 #include <sys/types.h>
25 #include <sys/stat.h>
26 #include <signal.h>
27 #include <fcntl.h>
28 #if !defined(sun) && !defined(B43) && !defined(ISC) && !defined(pyr) && !defined(_CX_UX)
29 # include <time.h>
30 #endif
31 #include <sys/time.h>
32 #ifndef sun
33 #include <sys/ioctl.h>
34 #endif
35
36
37 #include "config.h"
38
39 /* for solaris 2.1, Unixware (SVR4.2) and possibly others: */
40 #ifdef HAVE_STROPTS_H
41 # include <sys/stropts.h>
42 #endif
43
44 #include "screen.h"
45 #include "extern.h"
46 #include "logfile.h"
47
48 extern struct comm comms[];
49 extern char *rc_name;
50 extern char *RcFileName, *home;
51 extern char *BellString, *ActivityString, *ShellProg, *ShellArgs[];
52 extern char *hstatusstring, *captionstring, *timestring;
53 extern char *wliststr, *wlisttit;
54 extern int captionalways;
55 extern char *hardcopydir, *screenlogfile, *logtstamp_string;
56 extern int log_flush, logtstamp_on, logtstamp_after;
57 extern char *VisualBellString;
58 extern int VBellWait, MsgWait, MsgMinWait, SilenceWait;
59 extern char SockPath[], *SockName;
60 extern int TtyMode, auto_detach, use_altscreen;
61 extern int iflag, maxwin;
62 extern int focusminwidth, focusminheight;
63 extern int use_hardstatus, visual_bell;
64 #ifdef COLOR
65 extern int attr2color[][4];
66 extern int nattr2color;
67 #endif
68 extern int hardstatusemu;
69 extern char *printcmd;
70 extern int default_startup;
71 extern int defobuflimit;
72 extern int defnonblock;
73 extern int ZombieKey_destroy;
74 extern int ZombieKey_resurrect;
75 extern int ZombieKey_onerror;
76 #ifdef AUTO_NUKE
77 extern int defautonuke;
78 #endif
79 extern int separate_sids;
80 extern struct NewWindow nwin_default, nwin_undef;
81 #ifdef COPY_PASTE
82 extern int join_with_cr;
83 extern int compacthist;
84 extern int search_ic;
85 # ifdef FONT
86 extern int pastefont;
87 # endif
88 extern unsigned char mark_key_tab[];
89 extern char *BufferFile;
90 #endif
91 #ifdef POW_DETACH
92 extern char *BufferFile, *PowDetachString;
93 #endif
94 #ifdef MULTIUSER
95 extern struct acluser *EffectiveAclUser; /* acl.c */
96 #endif
97 extern struct term term[]; /* terminal capabilities */
98 #ifdef MAPKEYS
99 extern char *kmapdef[];
100 extern char *kmapadef[];
101 extern char *kmapmdef[];
102 #endif
103 extern struct mchar mchar_so, mchar_null;
104 extern int VerboseCreate;
105 #ifdef UTF8
106 extern char *screenencodings;
107 #endif
108 #ifdef DW_CHARS
109 extern int cjkwidth;
110 #endif
111
112 static int CheckArgNum __P((int, char **));
113 static void ClearAction __P((struct action *));
114 static void SaveAction __P((struct action *, int, char **, int *));
115 static int NextWindow __P((void));
116 static int PreviousWindow __P((void));
117 static int MoreWindows __P((void));
118 static void LogToggle __P((int));
119 static void ShowInfo __P((void));
120 static void ShowDInfo __P((void));
121 static struct win *WindowByName __P((char *));
122 static int WindowByNumber __P((char *));
123 static int ParseOnOff __P((struct action *, int *));
124 static int ParseWinNum __P((struct action *, int *));
125 static int ParseBase __P((struct action *, char *, int *, int, char *));
126 static int ParseNum1000 __P((struct action *, int *));
127 static char **SaveArgs __P((char **));
128 static int IsNum __P((char *, int));
129 static void Colonfin __P((char *, int, char *));
130 static void InputSelect __P((void));
131 static void InputSetenv __P((char *));
132 static void InputAKA __P((void));
133 #ifdef MULTIUSER
134 static int InputSu __P((struct win *, struct acluser **, char *));
135 static void su_fin __P((char *, int, char *));
136 #endif
137 static void AKAfin __P((char *, int, char *));
138 #ifdef COPY_PASTE
139 static void copy_reg_fn __P((char *, int, char *));
140 static void ins_reg_fn __P((char *, int, char *));
141 #endif
142 static void process_fn __P((char *, int, char *));
143 #ifdef PASSWORD
144 static void pass1 __P((char *, int, char *));
145 static void pass2 __P((char *, int, char *));
146 #endif
147 #ifdef POW_DETACH
148 static void pow_detach_fn __P((char *, int, char *));
149 #endif
150 static void digraph_fn __P((char *, int, char *));
151 static void confirm_fn __P((char *, int, char *));
152 static int IsOnDisplay __P((struct win *));
153 static void ResizeRegions __P((char *, int));
154 static void ResizeFin __P((char *, int, char *));
155 static struct action *FindKtab __P((char *, int));
156 static void SelectFin __P((char *, int, char *));
157 static void SelectLayoutFin __P((char *, int, char *));
158
159
160 extern struct layer *flayer;
161 extern struct display *display, *displays;
162 extern struct win *fore, *console_window, *windows;
163 extern struct acluser *users;
164 extern struct layout *layouts, *layout_attach, layout_last_marker;
165 extern struct layout *laytab[];
166
167 extern char screenterm[], HostName[], version[];
168 extern struct NewWindow nwin_undef, nwin_default;
169 extern struct LayFuncs WinLf, MarkLf;
170
171 extern int Z0width, Z1width;
172 extern int real_uid, real_gid;
173
174 #ifdef NETHACK
175 extern int nethackflag;
176 #endif
177
178
179 struct win *wtab[MAXWIN]; /* window table, should be dynamic */
180
181 #ifdef MULTIUSER
182 extern char *multi;
183 extern int maxusercount;
184 #endif
185 char NullStr[] = "";
186
187 struct plop plop_tab[MAX_PLOP_DEFS];
188
189 #ifndef PTYMODE
190 # define PTYMODE 0622
191 #endif
192
193 int TtyMode = PTYMODE;
194 int hardcopy_append = 0;
195 int all_norefresh = 0;
196 #ifdef ZMODEM
197 int zmodem_mode = 0;
198 char *zmodem_sendcmd;
199 char *zmodem_recvcmd;
200 static char *zmodes[4] = {"off", "auto", "catch", "pass"};
201 #endif
202
203 int idletimo;
204 struct action idleaction;
205 #ifdef BLANKER_PRG
206 char **blankerprg;
207 #endif
208
209 struct action ktab[256 + KMAP_KEYS]; /* command key translation table */
210 struct kclass {
211 struct kclass *next;
212 char *name;
213 struct action ktab[256 + KMAP_KEYS];
214 };
215 struct kclass *kclasses;
216
217 #ifdef MAPKEYS
218 struct action umtab[KMAP_KEYS+KMAP_AKEYS];
219 struct action dmtab[KMAP_KEYS+KMAP_AKEYS];
220 struct action mmtab[KMAP_KEYS+KMAP_AKEYS];
221 struct kmap_ext *kmap_exts;
222 int kmap_extn;
223 static int maptimeout = 300;
224 #endif
225
226
227 /* digraph table taken from old vim and rfc1345 */
228 static const unsigned char digraphs[][3] = {
229 {' ', ' ', 160}, /*   */
230 {'N', 'S', 160}, /*   */
231 {'~', '!', 161}, /* ¡ */
232 {'!', '!', 161}, /* ¡ */
233 {'!', 'I', 161}, /* ¡ */
234 {'c', '|', 162}, /* ¢ */
235 {'c', 't', 162}, /* ¢ */
236 {'$', '$', 163}, /* £ */
237 {'P', 'd', 163}, /* £ */
238 {'o', 'x', 164}, /* ¤ */
239 {'C', 'u', 164}, /* ¤ */
240 {'C', 'u', 164}, /* ¤ */
241 {'E', 'u', 164}, /* ¤ */
242 {'Y', '-', 165}, /* ¥ */
243 {'Y', 'e', 165}, /* ¥ */
244 {'|', '|', 166}, /* ¦ */
245 {'B', 'B', 166}, /* ¦ */
246 {'p', 'a', 167}, /* § */
247 {'S', 'E', 167}, /* § */
248 {'"', '"', 168}, /* ¨ */
249 {'\'', ':', 168}, /* ¨ */
250 {'c', 'O', 169}, /* © */
251 {'C', 'o', 169}, /* © */
252 {'a', '-', 170}, /* ª */
253 {'<', '<', 171}, /* « */
254 {'-', ',', 172}, /* ¬ */
255 {'N', 'O', 172}, /* ¬ */
256 {'-', '-', 173}, /* ­ */
257 {'r', 'O', 174}, /* ® */
258 {'R', 'g', 174}, /* ® */
259 {'-', '=', 175}, /* ¯ */
260 {'\'', 'm', 175}, /* ¯ */
261 {'~', 'o', 176}, /* ° */
262 {'D', 'G', 176}, /* ° */
263 {'+', '-', 177}, /* ± */
264 {'2', '2', 178}, /* ² */
265 {'2', 'S', 178}, /* ² */
266 {'3', '3', 179}, /* ³ */
267 {'3', 'S', 179}, /* ³ */
268 {'\'', '\'', 180}, /* ´ */
269 {'j', 'u', 181}, /* µ */
270 {'M', 'y', 181}, /* µ */
271 {'p', 'p', 182}, /* ¶ */
272 {'P', 'I', 182}, /* ¶ */
273 {'~', '.', 183}, /* · */
274 {'.', 'M', 183}, /* · */
275 {',', ',', 184}, /* ¸ */
276 {'\'', ',', 184}, /* ¸ */
277 {'1', '1', 185}, /* ¹ */
278 {'1', 'S', 185}, /* ¹ */
279 {'o', '-', 186}, /* º */
280 {'>', '>', 187}, /* » */
281 {'1', '4', 188}, /* ¼ */
282 {'1', '2', 189}, /* ½ */
283 {'3', '4', 190}, /* ¾ */
284 {'~', '?', 191}, /* ¿ */
285 {'?', '?', 191}, /* ¿ */
286 {'?', 'I', 191}, /* ¿ */
287 {'A', '`', 192}, /* À */
288 {'A', '!', 192}, /* À */
289 {'A', '\'', 193}, /* Á */
290 {'A', '^', 194}, /* Â */
291 {'A', '>', 194}, /* Â */
292 {'A', '~', 195}, /* Ã */
293 {'A', '?', 195}, /* Ã */
294 {'A', '"', 196}, /* Ä */
295 {'A', ':', 196}, /* Ä */
296 {'A', '@', 197}, /* Å */
297 {'A', 'A', 197}, /* Å */
298 {'A', 'E', 198}, /* Æ */
299 {'C', ',', 199}, /* Ç */
300 {'E', '`', 200}, /* È */
301 {'E', '!', 200}, /* È */
302 {'E', '\'', 201}, /* É */
303 {'E', '^', 202}, /* Ê */
304 {'E', '>', 202}, /* Ê */
305 {'E', '"', 203}, /* Ë */
306 {'E', ':', 203}, /* Ë */
307 {'I', '`', 204}, /* Ì */
308 {'I', '!', 204}, /* Ì */
309 {'I', '\'', 205}, /* Í */
310 {'I', '^', 206}, /* Î */
311 {'I', '>', 206}, /* Î */
312 {'I', '"', 207}, /* Ï */
313 {'I', ':', 207}, /* Ï */
314 {'D', '-', 208}, /* Ð */
315 {'N', '~', 209}, /* Ñ */
316 {'N', '?', 209}, /* Ñ */
317 {'O', '`', 210}, /* Ò */
318 {'O', '!', 210}, /* Ò */
319 {'O', '\'', 211}, /* Ó */
320 {'O', '^', 212}, /* Ô */
321 {'O', '>', 212}, /* Ô */
322 {'O', '~', 213}, /* Õ */
323 {'O', '?', 213}, /* Õ */
324 {'O', '"', 214}, /* Ö */
325 {'O', ':', 214}, /* Ö */
326 {'/', '\\', 215}, /* × */
327 {'*', 'x', 215}, /* × */
328 {'O', '/', 216}, /* Ø */
329 {'U', '`', 217}, /* Ù */
330 {'U', '!', 217}, /* Ù */
331 {'U', '\'', 218}, /* Ú */
332 {'U', '^', 219}, /* Û */
333 {'U', '>', 219}, /* Û */
334 {'U', '"', 220}, /* Ü */
335 {'U', ':', 220}, /* Ü */
336 {'Y', '\'', 221}, /* Ý */
337 {'I', 'p', 222}, /* Þ */
338 {'T', 'H', 222}, /* Þ */
339 {'s', 's', 223}, /* ß */
340 {'s', '"', 223}, /* ß */
341 {'a', '`', 224}, /* à */
342 {'a', '!', 224}, /* à */
343 {'a', '\'', 225}, /* á */
344 {'a', '^', 226}, /* â */
345 {'a', '>', 226}, /* â */
346 {'a', '~', 227}, /* ã */
347 {'a', '?', 227}, /* ã */
348 {'a', '"', 228}, /* ä */
349 {'a', ':', 228}, /* ä */
350 {'a', 'a', 229}, /* å */
351 {'a', 'e', 230}, /* æ */
352 {'c', ',', 231}, /* ç */
353 {'e', '`', 232}, /* è */
354 {'e', '!', 232}, /* è */
355 {'e', '\'', 233}, /* é */
356 {'e', '^', 234}, /* ê */
357 {'e', '>', 234}, /* ê */
358 {'e', '"', 235}, /* ë */
359 {'e', ':', 235}, /* ë */
360 {'i', '`', 236}, /* ì */
361 {'i', '!', 236}, /* ì */
362 {'i', '\'', 237}, /* í */
363 {'i', '^', 238}, /* î */
364 {'i', '>', 238}, /* î */
365 {'i', '"', 239}, /* ï */
366 {'i', ':', 239}, /* ï */
367 {'d', '-', 240}, /* ð */
368 {'n', '~', 241}, /* ñ */
369 {'n', '?', 241}, /* ñ */
370 {'o', '`', 242}, /* ò */
371 {'o', '!', 242}, /* ò */
372 {'o', '\'', 243}, /* ó */
373 {'o', '^', 244}, /* ô */
374 {'o', '>', 244}, /* ô */
375 {'o', '~', 245}, /* õ */
376 {'o', '?', 245}, /* õ */
377 {'o', '"', 246}, /* ö */
378 {'o', ':', 246}, /* ö */
379 {':', '-', 247}, /* ÷ */
380 {'o', '/', 248}, /* ø */
381 {'u', '`', 249}, /* ù */
382 {'u', '!', 249}, /* ù */
383 {'u', '\'', 250}, /* ú */
384 {'u', '^', 251}, /* û */
385 {'u', '>', 251}, /* û */
386 {'u', '"', 252}, /* ü */
387 {'u', ':', 252}, /* ü */
388 {'y', '\'', 253}, /* ý */
389 {'i', 'p', 254}, /* þ */
390 {'t', 'h', 254}, /* þ */
391 {'y', '"', 255}, /* ÿ */
392 {'y', ':', 255}, /* ÿ */
393 {'"', '[', 196}, /* Ä */
394 {'"', '\\', 214}, /* Ö */
395 {'"', ']', 220}, /* Ü */
396 {'"', '{', 228}, /* ä */
397 {'"', '|', 246}, /* ö */
398 {'"', '}', 252}, /* ü */
399 {'"', '~', 223} /* ß */
400 };
401
402 #define RESIZE_FLAG_H 1
403 #define RESIZE_FLAG_V 2
404 #define RESIZE_FLAG_L 4
405
406 static char *resizeprompts[] = {
407 "resize # lines: ",
408 "resize -h # lines: ",
409 "resize -v # lines: ",
410 "resize -b # lines: ",
411 "resize -l # lines: ",
412 "resize -l -h # lines: ",
413 "resize -l -v # lines: ",
414 "resize -l -b # lines: ",
415 };
416
417 char *noargs[1];
418
419 void
420 InitKeytab()
421 {
422 register unsigned int i;
423 #ifdef MAPKEYS
424 char *argarr[2];
425 #endif
426
427 for (i = 0; i < sizeof(ktab)/sizeof(*ktab); i++)
428 {
429 ktab[i].nr = RC_ILLEGAL;
430 ktab[i].args = noargs;
431 ktab[i].argl = 0;
432 }
433 #ifdef MAPKEYS
434 for (i = 0; i < KMAP_KEYS+KMAP_AKEYS; i++)
435 {
436 umtab[i].nr = RC_ILLEGAL;
437 umtab[i].args = noargs;
438 umtab[i].argl = 0;
439 dmtab[i].nr = RC_ILLEGAL;
440 dmtab[i].args = noargs;
441 dmtab[i].argl = 0;
442 mmtab[i].nr = RC_ILLEGAL;
443 mmtab[i].args = noargs;
444 mmtab[i].argl = 0;
445 }
446 argarr[1] = 0;
447 for (i = 0; i < NKMAPDEF; i++)
448 {
449 if (i + KMAPDEFSTART < T_CAPS)
450 continue;
451 if (i + KMAPDEFSTART >= T_CAPS + KMAP_KEYS)
452 continue;
453 if (kmapdef[i] == 0)
454 continue;
455 argarr[0] = kmapdef[i];
456 SaveAction(dmtab + i + (KMAPDEFSTART - T_CAPS), RC_STUFF, argarr, 0);
457 }
458 for (i = 0; i < NKMAPADEF; i++)
459 {
460 if (i + KMAPADEFSTART < T_CURSOR)
461 continue;
462 if (i + KMAPADEFSTART >= T_CURSOR + KMAP_AKEYS)
463 continue;
464 if (kmapadef[i] == 0)
465 continue;
466 argarr[0] = kmapadef[i];
467 SaveAction(dmtab + i + (KMAPADEFSTART - T_CURSOR + KMAP_KEYS), RC_STUFF, argarr, 0);
468 }
469 for (i = 0; i < NKMAPMDEF; i++)
470 {
471 if (i + KMAPMDEFSTART < T_CAPS)
472 continue;
473 if (i + KMAPMDEFSTART >= T_CAPS + KMAP_KEYS)
474 continue;
475 if (kmapmdef[i] == 0)
476 continue;
477 argarr[0] = kmapmdef[i];
478 argarr[1] = 0;
479 SaveAction(mmtab + i + (KMAPMDEFSTART - T_CAPS), RC_STUFF, argarr, 0);
480 }
481 #endif
482
483 ktab['h'].nr = RC_HARDCOPY;
484 #ifdef BSDJOBS
485 ktab['z'].nr = ktab[Ctrl('z')].nr = RC_SUSPEND;
486 #endif
487 ktab['c'].nr = ktab[Ctrl('c')].nr = RC_SCREEN;
488 ktab[' '].nr = ktab[Ctrl(' ')].nr =
489 ktab['n'].nr = ktab[Ctrl('n')].nr = RC_NEXT;
490 ktab['N'].nr = RC_NUMBER;
491 ktab[Ctrl('h')].nr = ktab[0177].nr = ktab['p'].nr = ktab[Ctrl('p')].nr = RC_PREV;
492 ktab['k'].nr = ktab[Ctrl('k')].nr = RC_KILL;
493 ktab['l'].nr = ktab[Ctrl('l')].nr = RC_REDISPLAY;
494 ktab['w'].nr = ktab[Ctrl('w')].nr = RC_WINDOWS;
495 ktab['v'].nr = RC_VERSION;
496 ktab[Ctrl('v')].nr = RC_DIGRAPH;
497 ktab['q'].nr = ktab[Ctrl('q')].nr = RC_XON;
498 ktab['s'].nr = ktab[Ctrl('s')].nr = RC_XOFF;
499 ktab['t'].nr = ktab[Ctrl('t')].nr = RC_TIME;
500 ktab['i'].nr = ktab[Ctrl('i')].nr = RC_INFO;
501 ktab['m'].nr = ktab[Ctrl('m')].nr = RC_LASTMSG;
502 ktab['A'].nr = RC_TITLE;
503 #if defined(UTMPOK) && defined(LOGOUTOK)
504 ktab['L'].nr = RC_LOGIN;
505 #endif
506 ktab[','].nr = RC_LICENSE;
507 ktab['W'].nr = RC_WIDTH;
508 ktab['.'].nr = RC_DUMPTERMCAP;
509 ktab[Ctrl('\\')].nr = RC_QUIT;
510 #ifdef DETACH
511 ktab['d'].nr = ktab[Ctrl('d')].nr = RC_DETACH;
512 # ifdef POW_DETACH
513 ktab['D'].nr = RC_POW_DETACH;
514 # endif
515 #endif
516 ktab['r'].nr = ktab[Ctrl('r')].nr = RC_WRAP;
517 ktab['f'].nr = ktab[Ctrl('f')].nr = RC_FLOW;
518 ktab['C'].nr = RC_CLEAR;
519 ktab['Z'].nr = RC_RESET;
520 ktab['H'].nr = RC_LOG;
521 ktab['M'].nr = RC_MONITOR;
522 ktab['?'].nr = RC_HELP;
523 #ifdef MULTI
524 ktab['*'].nr = RC_DISPLAYS;
525 #endif
526 {
527 char *args[2];
528 args[0] = "-";
529 args[1] = NULL;
530 SaveAction(ktab + '-', RC_SELECT, args, 0);
531 }
532 for (i = 0; i < ((MAXWIN < 10) ? MAXWIN : 10); i++)
533 {
534 char *args[2], arg1[10];
535 args[0] = arg1;
536 args[1] = 0;
537 sprintf(arg1, "%d", i);
538 SaveAction(ktab + '0' + i, RC_SELECT, args, 0);
539 }
540 ktab['\''].nr = RC_SELECT; /* calling a window by name */
541 {
542 char *args[2];
543 args[0] = "-b";
544 args[1] = 0;
545 SaveAction(ktab + '"', RC_WINDOWLIST, args, 0);
546 }
547 ktab[Ctrl('G')].nr = RC_VBELL;
548 ktab[':'].nr = RC_COLON;
549 #ifdef COPY_PASTE
550 ktab['['].nr = ktab[Ctrl('[')].nr = RC_COPY;
551 {
552 char *args[2];
553 args[0] = ".";
554 args[1] = 0;
555 SaveAction(ktab + ']', RC_PASTE, args, 0);
556 SaveAction(ktab + Ctrl(']'), RC_PASTE, args, 0);
557 }
558 ktab['{'].nr = RC_HISTORY;
559 ktab['}'].nr = RC_HISTORY;
560 ktab['>'].nr = RC_WRITEBUF;
561 ktab['<'].nr = RC_READBUF;
562 ktab['='].nr = RC_REMOVEBUF;
563 #endif
564 #ifdef POW_DETACH
565 ktab['D'].nr = RC_POW_DETACH;
566 #endif
567 #ifdef LOCK
568 ktab['x'].nr = ktab[Ctrl('x')].nr = RC_LOCKSCREEN;
569 #endif
570 ktab['b'].nr = ktab[Ctrl('b')].nr = RC_BREAK;
571 ktab['B'].nr = RC_POW_BREAK;
572 ktab['_'].nr = RC_SILENCE;
573 ktab['S'].nr = RC_SPLIT;
574 ktab['Q'].nr = RC_ONLY;
575 ktab['X'].nr = RC_REMOVE;
576 ktab['F'].nr = RC_FIT;
577 ktab['\t'].nr = RC_FOCUS;
578 {
579 char *args[2];
580 args[0] = "up";
581 args[1] = 0;
582 SaveAction(ktab + T_BACKTAB - T_CAPS + 256, RC_FOCUS, args, 0);
583 }
584 {
585 char *args[2];
586 args[0] = "-v";
587 args[1] = 0;
588 SaveAction(ktab + '|', RC_SPLIT, args, 0);
589 }
590 /* These come last; they may want overwrite others: */
591 if (DefaultEsc >= 0)
592 {
593 ClearAction(&ktab[DefaultEsc]);
594 ktab[DefaultEsc].nr = RC_OTHER;
595 }
596 if (DefaultMetaEsc >= 0)
597 {
598 ClearAction(&ktab[DefaultMetaEsc]);
599 ktab[DefaultMetaEsc].nr = RC_META;
600 }
601
602 idleaction.nr = RC_BLANKER;
603 idleaction.args = noargs;
604 idleaction.argl = 0;
605 }
606
607 static struct action *
608 FindKtab(class, create)
609 char *class;
610 int create;
611 {
612 struct kclass *kp, **kpp;
613 int i;
614
615 if (class == 0)
616 return ktab;
617 for (kpp = &kclasses; (kp = *kpp) != 0; kpp = &kp->next)
618 if (!strcmp(kp->name, class))
619 break;
620 if (kp == 0)
621 {
622 if (!create)
623 return 0;
624 if (strlen(class) > 80)
625 {
626 Msg(0, "Command class name too long.");
627 return 0;
628 }
629 kp = malloc(sizeof(*kp));
630 if (kp == 0)
631 {
632 Msg(0, strnomem);
633 return 0;
634 }
635 kp->name = SaveStr(class);
636 for (i = 0; i < (int)(sizeof(kp->ktab)/sizeof(*kp->ktab)); i++)
637 {
638 kp->ktab[i].nr = RC_ILLEGAL;
639 kp->ktab[i].args = noargs;
640 }
641 kp->next = 0;
642 *kpp = kp;
643 }
644 return kp->ktab;
645 }
646
647 static void
648 ClearAction(act)
649 struct action *act;
650 {
651 char **p;
652
653 if (act->nr == RC_ILLEGAL)
654 return;
655 act->nr = RC_ILLEGAL;
656 if (act->args == noargs)
657 return;
658 for (p = act->args; *p; p++)
659 free(*p);
660 free((char *)act->args);
661 act->args = noargs;
662 act->argl = 0;
663 }
664
665 /*
666 * ProcessInput: process input from display and feed it into
667 * the layer on canvas D_forecv.
668 */
669
670 #ifdef MAPKEYS
671
672 /*
673 * This ProcessInput just does the keybindings and passes
674 * everything else on to ProcessInput2.
675 */
676
677 void
678 ProcessInput(ibuf, ilen)
679 char *ibuf;
680 int ilen;
681 {
682 int ch, slen;
683 unsigned char *s, *q;
684 int i, l;
685 char *p;
686
687 debug1("ProcessInput: %d bytes\n", ilen);
688 if (display == 0 || ilen == 0)
689 return;
690 if (D_seql)
691 evdeq(&D_mapev);
692 slen = ilen;
693 s = (unsigned char *)ibuf;
694 while (ilen-- > 0)
695 {
696 ch = *s++;
697 if (D_dontmap || !D_nseqs)
698 {
699 D_dontmap = 0;
700 continue;
701 }
702 for (;;)
703 {
704 debug3("cmp %c %c[%d]\n", ch, *D_seqp, D_seqp - D_kmaps);
705 if (*D_seqp != ch)
706 {
707 l = D_seqp[D_seqp[-D_seql-1] + 1];
708 if (l)
709 {
710 D_seqp += l * 2 + 4;
711 debug1("miss %d\n", D_seqp - D_kmaps);
712 continue;
713 }
714 debug("complete miss\n");
715 D_mapdefault = 0;
716 l = D_seql;
717 p = (char *)D_seqp - l;
718 D_seql = 0;
719 D_seqp = D_kmaps + 3;
720 if (l == 0)
721 break;
722 if ((q = D_seqh) != 0)
723 {
724 D_seqh = 0;
725 i = q[0] << 8 | q[1];
726 i &= ~KMAP_NOTIMEOUT;
727 debug1("Mapping former hit #%d - ", i);
728 debug2("%d(%s) - ", q[2], q + 3);
729 if (StuffKey(i))
730 ProcessInput2((char *)q + 3, q[2]);
731 if (display == 0)
732 return;
733 l -= q[2];
734 p += q[2];
735 }
736 else
737 D_dontmap = 1;
738 debug1("flush old %d\n", l);
739 ProcessInput(p, l);
740 if (display == 0)
741 return;
742 evdeq(&D_mapev);
743 continue;
744 }
745 if (D_seql++ == 0)
746 {
747 /* Finish old stuff */
748 slen -= ilen + 1;
749 debug1("finish old %d\n", slen);
750 if (slen)
751 ProcessInput2(ibuf, slen);
752 if (display == 0)
753 return;
754 D_seqh = 0;
755 }
756 ibuf = (char *)s;
757 slen = ilen;
758 D_seqp++;
759 l = D_seql;
760 debug2("length am %d, want %d\n", l, D_seqp[-l - 1]);
761 if (l == D_seqp[-l - 1])
762 {
763 if (D_seqp[l] != l)
764 {
765 q = D_seqp + 1 + l;
766 if (D_kmaps + D_nseqs > q && q[2] > l && !bcmp(D_seqp - l, q + 3, l))
767 {
768 debug1("have another mapping (%s), delay execution\n", q + 3);
769 D_seqh = D_seqp - 3 - l;
770 D_seqp = q + 3 + l;
771 break;
772 }
773 }
774 i = D_seqp[-l - 3] << 8 | D_seqp[-l - 2];
775 i &= ~KMAP_NOTIMEOUT;
776 debug1("Mapping #%d - ", i);
777 p = (char *)D_seqp - l;
778 debug2("%d(%s) - ", l, p);
779 D_seql = 0;
780 D_seqp = D_kmaps + 3;
781 D_seqh = 0;
782 if (StuffKey(i))
783 ProcessInput2(p, l);
784 if (display == 0)
785 return;
786 }
787 break;
788 }
789 }
790 if (D_seql)
791 {
792 debug("am in sequence -> check for timeout\n");
793 l = D_seql;
794 for (s = D_seqp; ; s += i * 2 + 4)
795 {
796 if (s[-l-3] & KMAP_NOTIMEOUT >> 8)
797 break;
798 if ((i = s[s[-l-1] + 1]) == 0)
799 {
800 SetTimeout(&D_mapev, maptimeout);
801 evenq(&D_mapev);
802 break;
803 }
804 }
805 }
806 ProcessInput2(ibuf, slen);
807 }
808
809 #else
810 # define ProcessInput2 ProcessInput
811 #endif
812
813
814 /*
815 * Here only the screen escape commands are handled.
816 */
817
818 void
819 ProcessInput2(ibuf, ilen)
820 char *ibuf;
821 int ilen;
822 {
823 char *s;
824 int ch, slen;
825 struct action *ktabp;
826
827 debug1("ProcessInput2: %d bytes\n", ilen);
828 while (ilen && display)
829 {
830 debug1(" - ilen now %d bytes\n", ilen);
831 flayer = D_forecv->c_layer;
832 fore = D_fore;
833 slen = ilen;
834 s = ibuf;
835 if (!D_ESCseen)
836 {
837 while (ilen > 0)
838 {
839 if ((unsigned char)*s++ == D_user->u_Esc)
840 break;
841 ilen--;
842 }
843 slen -= ilen;
844 if (slen)
845 DoProcess(fore, &ibuf, &slen, 0);
846 if (--ilen == 0)
847 D_ESCseen = ktab;
848 }
849 if (ilen <= 0)
850 return;
851 ktabp = D_ESCseen ? D_ESCseen : ktab;
852 D_ESCseen = 0;
853 ch = (unsigned char)*s;
854
855 /*
856 * As users have different esc characters, but a common ktab[],
857 * we fold back the users esc and meta-esc key to the Default keys
858 * that can be looked up in the ktab[]. grmbl. jw.
859 * XXX: make ktab[] a per user thing.
860 */
861 if (ch == D_user->u_Esc)
862 ch = DefaultEsc;
863 else if (ch == D_user->u_MetaEsc)
864 ch = DefaultMetaEsc;
865
866 if (ch >= 0)
867 DoAction(&ktabp[ch], ch);
868 ibuf = (char *)(s + 1);
869 ilen--;
870 }
871 }
872
873 void
874 DoProcess(p, bufp, lenp, pa)
875 struct win *p;
876 char **bufp;
877 int *lenp;
878 struct paster *pa;
879 {
880 int oldlen;
881 struct display *d = display;
882
883 #ifdef COPY_PASTE
884 /* XXX -> PasteStart */
885 if (pa && *lenp > 1 && p && p->w_slowpaste)
886 {
887 /* schedule slowpaste event */
888 SetTimeout(&p->w_paster.pa_slowev, p->w_slowpaste);
889 evenq(&p->w_paster.pa_slowev);
890 return;
891 }
892 #endif
893 while (flayer && *lenp)
894 {
895 #ifdef COPY_PASTE
896 if (!pa && p && p->w_paster.pa_pastelen && flayer == p->w_paster.pa_pastelayer)
897 {
898 debug("layer is busy - beep!\n");
899 WBell(p, visual_bell);
900 *bufp += *lenp;
901 *lenp = 0;
902 display = d;
903 return;
904 }
905 #endif
906 oldlen = *lenp;
907 LayProcess(bufp, lenp);
908 #ifdef COPY_PASTE
909 if (pa && !pa->pa_pastelayer)
910 break; /* flush rest of paste */
911 #endif
912 if (*lenp == oldlen)
913 {
914 if (pa)
915 {
916 display = d;
917 return;
918 }
919 /* We're full, let's beep */
920 debug("layer is full - beep!\n");
921 WBell(p, visual_bell);
922 break;
923 }
924 }
925 *bufp += *lenp;
926 *lenp = 0;
927 display = d;
928 #ifdef COPY_PASTE
929 if (pa && pa->pa_pastelen == 0)
930 FreePaster(pa);
931 #endif
932 }
933
934 int
935 FindCommnr(str)
936 char *str;
937 {
938 int x, m, l = 0, r = RC_LAST;
939 while (l <= r)
940 {
941 m = (l + r) / 2;
942 x = strcmp(str, comms[m].name);
943 if (x > 0)
944 l = m + 1;
945 else if (x < 0)
946 r = m - 1;
947 else
948 return m;
949 }
950 return RC_ILLEGAL;
951 }
952
953 static int
954 CheckArgNum(nr, args)
955 int nr;
956 char **args;
957 {
958 int i, n;
959 static char *argss[] = {"no", "one", "two", "three", "four", "OOPS"};
960 static char *orformat[] =
961 {
962 "%s: %s: %s argument%s required",
963 "%s: %s: %s or %s argument%s required",
964 "%s: %s: %s, %s or %s argument%s required",
965 "%s: %s: %s, %s, %s or %s argument%s required"
966 };
967
968 n = comms[nr].flags & ARGS_MASK;
969 for (i = 0; args[i]; i++)
970 ;
971 if (comms[nr].flags & ARGS_ORMORE)
972 {
973 if (i < n)
974 {
975 Msg(0, "%s: %s: at least %s argument%s required",
976 rc_name, comms[nr].name, argss[n], n != 1 ? "s" : "");
977 return -1;
978 }
979 }
980 else if ((comms[nr].flags & ARGS_PLUS1) &&
981 (comms[nr].flags & ARGS_PLUS2) &&
982 (comms[nr].flags & ARGS_PLUS3))
983 {
984 if (i != n && i != n + 1 && i != n + 2 && i != n + 3)
985 {
986 Msg(0, orformat[3], rc_name, comms[nr].name, argss[n],
987 argss[n + 1], argss[n + 2], argss[n + 3], "");
988 return -1;
989 }
990 }
991 else if ((comms[nr].flags & ARGS_PLUS1) &&
992 (comms[nr].flags & ARGS_PLUS2))
993 {
994 if (i != n && i != n + 1 && i != n + 2)
995 {
996 Msg(0, orformat[2], rc_name, comms[nr].name, argss[n],
997 argss[n + 1], argss[n + 2], "");
998 return -1;
999 }
1000 }
1001 else if ((comms[nr].flags & ARGS_PLUS1) &&
1002 (comms[nr].flags & ARGS_PLUS3))
1003 {
1004 if (i != n && i != n + 1 && i != n + 3)
1005 {
1006 Msg(0, orformat[2], rc_name, comms[nr].name, argss[n],
1007 argss[n + 1], argss[n + 3], "");
1008 return -1;
1009 }
1010 }
1011 else if ((comms[nr].flags & ARGS_PLUS2) &&
1012 (comms[nr].flags & ARGS_PLUS3))
1013 {
1014 if (i != n && i != n + 2 && i != n + 3)
1015 {
1016 Msg(0, orformat[2], rc_name, comms[nr].name, argss[n],
1017 argss[n + 2], argss[n + 3], "");
1018 return -1;
1019 }
1020 }
1021 else if (comms[nr].flags & ARGS_PLUS1)
1022 {
1023 if (i != n && i != n + 1)
1024 {
1025 Msg(0, orformat[1], rc_name, comms[nr].name, argss[n],
1026 argss[n + 1], n != 0 ? "s" : "");
1027 return -1;
1028 }
1029 }
1030 else if (comms[nr].flags & ARGS_PLUS2)
1031 {
1032 if (i != n && i != n + 2)
1033 {
1034 Msg(0, orformat[1], rc_name, comms[nr].name, argss[n],
1035 argss[n + 2], "s");
1036 return -1;
1037 }
1038 }
1039 else if (comms[nr].flags & ARGS_PLUS3)
1040 {
1041 if (i != n && i != n + 3)
1042 {
1043 Msg(0, orformat[1], rc_name, comms[nr].name, argss[n],
1044 argss[n + 3], "");
1045 return -1;
1046 }
1047 }
1048 else if (i != n)
1049 {
1050 Msg(0, orformat[0], rc_name, comms[nr].name, argss[n], n != 1 ? "s" : "");
1051 return -1;
1052 }
1053 return i;
1054 }
1055
1056 static void
1057 StuffFin(buf, len, data)
1058 char *buf;
1059 int len;
1060 char *data;
1061 {
1062 if (!flayer)
1063 return;
1064 while(len)
1065 LayProcess(&buf, &len);
1066 }
1067
1068 /*ARGSUSED*/
1069 void
1070 DoAction(act, key)
1071 struct action *act;
1072 int key;
1073 {
1074 int nr = act->nr;
1075 char **args = act->args;
1076 int *argl = act->argl;
1077 struct win *p;
1078 int argc, i, n, msgok;
1079 char *s;
1080 char ch;
1081 struct display *odisplay = display;
1082 struct acluser *user;
1083
1084 user = display ? D_user : users;
1085 if (nr == RC_ILLEGAL)
1086 {
1087 debug1("key '%c': No action\n", key);
1088 return;
1089 }
1090 n = comms[nr].flags;
1091 if ((n & NEED_DISPLAY) && display == 0)
1092 {
1093 Msg(0, "%s: %s: display required", rc_name, comms[nr].name);
1094 return;
1095 }
1096 if ((n & NEED_FORE) && fore == 0)
1097 {
1098 Msg(0, "%s: %s: window required", rc_name, comms[nr].name);
1099 return;
1100 }
1101 if ((n & NEED_LAYER) && flayer == 0)
1102 {
1103 Msg(0, "%s: %s: display or window required", rc_name, comms[nr].name);
1104 return;
1105 }
1106 if ((argc = CheckArgNum(nr, args)) < 0)
1107 return;
1108 #ifdef MULTIUSER
1109 if (display)
1110 {
1111 if (AclCheckPermCmd(D_user, ACL_EXEC, &comms[nr]))
1112 {
1113 Msg(0, "%s: %s: permission denied (user %s)",
1114 rc_name, comms[nr].name, (EffectiveAclUser ? EffectiveAclUser : D_user)->u_name);
1115 return;
1116 }
1117 }
1118 #endif /* MULTIUSER */
1119
1120 msgok = display && !*rc_name;
1121 switch(nr)
1122 {
1123 case RC_SELECT:
1124 if (!*args)
1125 InputSelect();
1126 else if (args[0][0] == '-' && !args[0][1])
1127 {
1128 SetForeWindow((struct win *)0);
1129 Activate(0);
1130 }
1131 else if (args[0][0] == '.' && !args[0][1])
1132 {
1133 if (!fore)
1134 Msg(0, "select . needs a window");
1135 else
1136 {
1137 SetForeWindow(fore);
1138 Activate(0);
1139 }
1140 }
1141 else if (ParseWinNum(act, &n) == 0)
1142 SwitchWindow(n);
1143 break;
1144 #ifdef AUTO_NUKE
1145 case RC_DEFAUTONUKE:
1146 if (ParseOnOff(act, &defautonuke) == 0 && msgok)
1147 Msg(0, "Default autonuke turned %s", defautonuke ? "on" : "off");
1148 if (display && *rc_name)
1149 D_auto_nuke = defautonuke;
1150 break;
1151 case RC_AUTONUKE:
1152 if (ParseOnOff(act, &D_auto_nuke) == 0 && msgok)
1153 Msg(0, "Autonuke turned %s", D_auto_nuke ? "on" : "off");
1154 break;
1155 #endif
1156 case RC_DEFOBUFLIMIT:
1157 if (ParseNum(act, &defobuflimit) == 0 && msgok)
1158 Msg(0, "Default limit set to %d", defobuflimit);
1159 if (display && *rc_name)
1160 {
1161 D_obufmax = defobuflimit;
1162 D_obuflenmax = D_obuflen - D_obufmax;
1163 }
1164 break;
1165 case RC_OBUFLIMIT:
1166 if (*args == 0)
1167 Msg(0, "Limit is %d, current buffer size is %d", D_obufmax, D_obuflen);
1168 else if (ParseNum(act, &D_obufmax) == 0 && msgok)
1169 Msg(0, "Limit set to %d", D_obufmax);
1170 D_obuflenmax = D_obuflen - D_obufmax;
1171 break;
1172 case RC_DUMPTERMCAP:
1173 WriteFile(user, (char *)0, DUMP_TERMCAP);
1174 break;
1175 case RC_HARDCOPY:
1176 {
1177 int mode = DUMP_HARDCOPY;
1178
1179 if (argc > 1 && !strcmp(*args, "-h"))
1180 {
1181 mode = DUMP_SCROLLBACK;
1182 args++;
1183 argc--;
1184 }
1185 if (*args && args[1])
1186 {
1187 Msg(0, "%s: hardcopy: too many arguments", rc_name);
1188 break;
1189 }
1190 if (fore == 0 && *args == 0)
1191 Msg(0, "%s: hardcopy: window required", rc_name);
1192 else
1193 WriteFile(user, *args, mode);
1194 }
1195 break;
1196 case RC_DEFLOG:
1197 (void)ParseOnOff(act, &nwin_default.Lflag);
1198 break;
1199 case RC_LOG:
1200 n = fore->w_log ? 1 : 0;
1201 ParseSwitch(act, &n);
1202 LogToggle(n);
1203 break;
1204 #ifdef BSDJOBS
1205 case RC_SUSPEND:
1206 Detach(D_STOP);
1207 break;
1208 #endif
1209 case RC_NEXT:
1210 if (MoreWindows())
1211 SwitchWindow(NextWindow());
1212 break;
1213 case RC_PREV:
1214 if (MoreWindows())
1215 SwitchWindow(PreviousWindow());
1216 break;
1217 case RC_KILL:
1218 {
1219 char *name;
1220
1221 if (key >= 0)
1222 {
1223 #ifdef PSEUDOS
1224 Input(fore->w_pwin ? "Really kill this filter [y/n]" : "Really kill this window [y/n]", 1, INP_RAW, confirm_fn, NULL, RC_KILL);
1225 #else
1226 Input("Really kill this window [y/n]", 1, INP_RAW, confirm_fn, NULL, RC_KILL);
1227 #endif
1228 break;
1229 }
1230 n = fore->w_number;
1231 #ifdef PSEUDOS
1232 if (fore->w_pwin)
1233 {
1234 FreePseudowin(fore);
1235 Msg(0, "Filter removed.");
1236 break;
1237 }
1238 #endif
1239 name = SaveStr(fore->w_title);
1240 KillWindow(fore);
1241 Msg(0, "Window %d (%s) killed.", n, name);
1242 if (name)
1243 free(name);
1244 break;
1245 }
1246 case RC_QUIT:
1247 if (key >= 0)
1248 {
1249 Input("Really quit and kill all your windows [y/n]", 1, INP_RAW, confirm_fn, NULL, RC_QUIT);
1250 break;
1251 }
1252 Finit(0);
1253 /* NOTREACHED */
1254 #ifdef DETACH
1255 case RC_DETACH:
1256 if (*args && !strcmp(*args, "-h"))
1257 Hangup();
1258 else
1259 Detach(D_DETACH);
1260 break;
1261 # ifdef POW_DETACH
1262 case RC_POW_DETACH:
1263 if (key >= 0)
1264 {
1265 static char buf[2];
1266
1267 buf[0] = key;
1268 Input(buf, 1, INP_RAW, pow_detach_fn, NULL, 0);
1269 }
1270 else
1271 Detach(D_POWER); /* detach and kill Attacher's parent */
1272 break;
1273 # endif
1274 #endif
1275 case RC_DEBUG:
1276 #ifdef DEBUG
1277 if (!*args)
1278 {
1279 if (dfp)
1280 Msg(0, "debugging info is written to %s/", DEBUGDIR);
1281 else
1282 Msg(0, "debugging is currently off. Use 'debug on' to enable.");
1283 break;
1284 }
1285 if (dfp)
1286 {
1287 debug("debug: closing debug file.\n");
1288 fflush(dfp);
1289 fclose(dfp);
1290 dfp = NULL;
1291 }
1292 if (strcmp("off", *args))
1293 opendebug(0, 1);
1294 # ifdef SIG_NODEBUG
1295 else if (display)
1296 kill(D_userpid, SIG_NODEBUG); /* a one shot item, but hey... */
1297 # endif /* SIG_NODEBUG */
1298 #else
1299 if (*args == 0 || strcmp("off", *args))
1300 Msg(0, "Sorry, screen was compiled without -DDEBUG option.");
1301 #endif
1302 break;
1303 #ifdef ZMODEM
1304 case RC_ZMODEM:
1305 if (*args && !strcmp(*args, "sendcmd"))
1306 {
1307 if (args[1])
1308 {
1309 free(zmodem_sendcmd);
1310 zmodem_sendcmd = SaveStr(args[1]);
1311 }
1312 if (msgok)
1313 Msg(0, "zmodem sendcmd: %s", zmodem_sendcmd);
1314 break;
1315 }
1316 if (*args && !strcmp(*args, "recvcmd"))
1317 {
1318 if (args[1])
1319 {
1320 free(zmodem_recvcmd);
1321 zmodem_recvcmd = SaveStr(args[1]);
1322 }
1323 if (msgok)
1324 Msg(0, "zmodem recvcmd: %s", zmodem_recvcmd);
1325 break;
1326 }
1327 if (*args)
1328 {
1329 for (i = 0; i < 4; i++)
1330 if (!strcmp(zmodes[i], *args))
1331 break;
1332 if (i == 4 && !strcmp(*args, "on"))
1333 i = 1;
1334 if (i == 4)
1335 {
1336 Msg(0, "usage: zmodem off|auto|catch|pass");
1337 break;
1338 }
1339 zmodem_mode = i;
1340 }
1341 if (msgok)
1342 Msg(0, "zmodem mode is %s", zmodes[zmodem_mode]);
1343 break;
1344 #endif
1345 case RC_ZOMBIE:
1346 {
1347 if (!(s = *args))
1348 {
1349 ZombieKey_destroy = 0;
1350 break;
1351 }
1352 if (*argl == 0 || *argl > 2)
1353 {
1354 Msg(0, "%s:zombie: one or two characters expected.", rc_name);
1355 break;
1356 }
1357 if (args[1])
1358 {
1359 if (!strcmp(args[1], "onerror"))
1360 {
1361 ZombieKey_onerror = 1;
1362 } else {
1363 Msg(0, "usage: zombie [keys [onerror]]");
1364 break;
1365 }
1366 } else
1367 ZombieKey_onerror = 0;
1368 ZombieKey_destroy = args[0][0];
1369 ZombieKey_resurrect = *argl == 2 ? args[0][1] : 0;
1370 }
1371 break;
1372 case RC_WALL:
1373 #ifdef MULTIUSER
1374 s = D_user->u_name;
1375 #else
1376 s = D_usertty;
1377 #endif
1378 {
1379 struct display *olddisplay = display;
1380 display = 0; /* no display will cause a broadcast */
1381 Msg(0, "%s: %s", s, *args);
1382 display = olddisplay;
1383 }
1384 break;
1385 case RC_AT:
1386 /* where this AT command comes from: */
1387 #ifdef MULTIUSER
1388 s = SaveStr(D_user->u_name);
1389 /* DO NOT RETURN FROM HERE WITHOUT RESETTING THIS: */
1390 EffectiveAclUser = D_user;
1391 #else
1392 s = SaveStr(D_usertty);
1393 #endif
1394 n = strlen(args[0]);
1395 if (n) n--;
1396 /*
1397 * the windows/displays loops are quite dangerous here, take extra
1398 * care not to trigger landmines. Things may appear/disappear while
1399 * we are walking along.
1400 */
1401 switch (args[0][n])
1402 {
1403 case '*': /* user */
1404 {
1405 struct display *nd;
1406 struct acluser *u;
1407
1408 if (!n)
1409 u = D_user;
1410 else
1411 for (u = users; u; u = u->u_next)
1412 {
1413 debug3("strncmp('%s', '%s', %d)\n", *args, u->u_name, n);
1414 if (!strncmp(*args, u->u_name, n))
1415 break;
1416 }
1417 debug1("at all displays of user %s\n", u->u_name);
1418 for (display = displays; display; display = nd)
1419 {
1420 nd = display->d_next;
1421 if (D_forecv == 0)
1422 continue;
1423 flayer = D_forecv->c_layer;
1424 fore = D_fore;
1425 if (D_user != u)
1426 continue;
1427 debug1("AT display %s\n", D_usertty);
1428 DoCommand(args + 1, argl + 1);
1429 if (display)
1430 Msg(0, "command from %s: %s %s",
1431 s, args[1], args[2] ? args[2] : "");
1432 display = NULL;
1433 flayer = 0;
1434 fore = NULL;
1435 }
1436 break;
1437 }
1438 case '%': /* display */
1439 {
1440 struct display *nd;
1441
1442 debug1("at display matching '%s'\n", args[0]);
1443 for (display = displays; display; display = nd)
1444 {
1445 nd = display->d_next;
1446 if (D_forecv == 0)
1447 continue;
1448 fore = D_fore;
1449 flayer = D_forecv->c_layer;
1450 if (strncmp(args[0], D_usertty, n) &&
1451 (strncmp("/dev/", D_usertty, 5) ||
1452 strncmp(args[0], D_usertty + 5, n)) &&
1453 (strncmp("/dev/tty", D_usertty, 8) ||
1454 strncmp(args[0], D_usertty + 8, n)))
1455 continue;
1456 debug1("AT display %s\n", D_usertty);
1457 DoCommand(args + 1, argl + 1);
1458 if (display)
1459 Msg(0, "command from %s: %s %s",
1460 s, args[1], args[2] ? args[2] : "");
1461 display = NULL;
1462 fore = NULL;
1463 flayer = 0;
1464 }
1465 break;
1466 }
1467 case '#': /* window */
1468 n--;
1469 /* FALLTHROUGH */
1470 default:
1471 {
1472 struct win *nw;
1473 int ch;
1474
1475 n++;
1476 ch = args[0][n];
1477 args[0][n] = '\0';
1478 if (!*args[0] || (i = WindowByNumber(args[0])) < 0)
1479 {
1480 args[0][n] = ch; /* must restore string in case of bind */
1481 /* try looping over titles */
1482 for (fore = windows; fore; fore = nw)
1483 {
1484 nw = fore->w_next;
1485 if (strncmp(args[0], fore->w_title, n))
1486 continue;
1487 debug2("AT window %d(%s)\n", fore->w_number, fore->w_title);
1488 /*
1489 * consider this a bug or a feature:
1490 * while looping through windows, we have fore AND
1491 * display context. This will confuse users who try to
1492 * set up loops inside of loops, but often allows to do
1493 * what you mean, even when you adress your context wrong.
1494 */
1495 i = 0;
1496 /* XXX: other displays? */
1497 if (fore->w_layer.l_cvlist)
1498 display = fore->w_layer.l_cvlist->c_display;
1499 flayer = fore->w_savelayer ? fore->w_savelayer : &fore->w_layer;
1500 DoCommand(args + 1, argl + 1); /* may destroy our display */
1501 if (fore && fore->w_layer.l_cvlist)
1502 {
1503 display = fore->w_layer.l_cvlist->c_display;
1504 Msg(0, "command from %s: %s %s",
1505 s, args[1], args[2] ? args[2] : "");
1506 }
1507 }
1508 display = NULL;
1509 fore = NULL;
1510 if (i < 0)
1511 Msg(0, "%s: at '%s': no such window.\n", rc_name, args[0]);
1512 break;
1513 }
1514 else if (i < MAXWIN && (fore = wtab[i]))
1515 {
1516 args[0][n] = ch; /* must restore string in case of bind */
1517 debug2("AT window %d (%s)\n", fore->w_number, fore->w_title);
1518 if (fore->w_layer.l_cvlist)
1519 display = fore->w_layer.l_cvlist->c_display;
1520 flayer = fore->w_savelayer ? fore->w_savelayer : &fore->w_layer;
1521 DoCommand(args + 1, argl + 1);
1522 if (fore && fore->w_layer.l_cvlist)
1523 {
1524 display = fore->w_layer.l_cvlist->c_display;
1525 Msg(0, "command from %s: %s %s",
1526 s, args[1], args[2] ? args[2] : "");
1527 }
1528 display = NULL;
1529 fore = NULL;
1530 }
1531 else
1532 Msg(0, "%s: at [identifier][%%|*|#] command [args]", rc_name);
1533 break;
1534 }
1535 }
1536 free(s);
1537 #ifdef MULTIUSER
1538 EffectiveAclUser = NULL;
1539 #endif
1540 break;
1541
1542 #ifdef COPY_PASTE
1543 case RC_READREG:
1544 #ifdef ENCODINGS
1545 i = fore ? fore->w_encoding : display ? display->d_encoding : 0;
1546 if (args[0] && args[1] && !strcmp(args[0], "-e"))
1547 {
1548 i = FindEncoding(args[1]);
1549 if (i == -1)
1550 {
1551 Msg(0, "%s: readreg: unknown encoding", rc_name);
1552 break;
1553 }
1554 args += 2;
1555 }
1556 #endif
1557 /*
1558 * Without arguments we prompt for a destination register.
1559 * It will receive the copybuffer contents.
1560 * This is not done by RC_PASTE, as we prompt for source
1561 * (not dest) there.
1562 */
1563 if ((s = *args) == NULL)
1564 {
1565 Input("Copy to register:", 1, INP_RAW, copy_reg_fn, NULL, 0);
1566 break;
1567 }
1568 if (*argl != 1)
1569 {
1570 Msg(0, "%s: copyreg: character, ^x, or (octal) \\032 expected.", rc_name);
1571 break;
1572 }
1573 ch = args[0][0];
1574 /*
1575 * With two arguments we *really* read register contents from file
1576 */
1577 if (args[1])
1578 {
1579 if (args[2])
1580 {
1581 Msg(0, "%s: readreg: too many arguments", rc_name);
1582 break;
1583 }
1584 if ((s = ReadFile(args[1], &n)))
1585 {
1586 struct plop *pp = plop_tab + (int)(unsigned char)ch;
1587
1588 if (pp->buf)
1589 free(pp->buf);
1590 pp->buf = s;
1591 pp->len = n;
1592 #ifdef ENCODINGS
1593 pp->enc = i;
1594 #endif
1595 }
1596 }
1597 else
1598 /*
1599 * with one argument we copy the copybuffer into a specified register
1600 * This could be done with RC_PASTE too, but is here to be consistent
1601 * with the zero argument call.
1602 */
1603 copy_reg_fn(&ch, 0, NULL);
1604 break;
1605 #endif
1606 case RC_REGISTER:
1607 #ifdef ENCODINGS
1608 i = fore ? fore->w_encoding : display ? display->d_encoding : 0;
1609 if (args[0] && args[1] && !strcmp(args[0], "-e"))
1610 {
1611 i = FindEncoding(args[1]);
1612 if (i == -1)
1613 {
1614 Msg(0, "%s: register: unknown encoding", rc_name);
1615 break;
1616 }
1617 args += 2;
1618 argc -= 2;
1619 }
1620 #endif
1621 if (argc != 2)
1622 {
1623 Msg(0, "%s: register: illegal number of arguments.", rc_name);
1624 break;
1625 }
1626 if (*argl != 1)
1627 {
1628 Msg(0, "%s: register: character, ^x, or (octal) \\032 expected.", rc_name);
1629 break;
1630 }
1631 ch = args[0][0];
1632 #ifdef COPY_PASTE
1633 if (ch == '.')
1634 {
1635 if (user->u_plop.buf != NULL)
1636 UserFreeCopyBuffer(user);
1637 if (args[1] && args[1][0])
1638 {
1639 user->u_plop.buf = SaveStrn(args[1], argl[1]);
1640 user->u_plop.len = argl[1];
1641 #ifdef ENCODINGS
1642 user->u_plop.enc = i;
1643 #endif
1644 }
1645 }
1646 #endif
1647 else
1648 {
1649 struct plop *plp = plop_tab + (int)(unsigned char)ch;
1650
1651 if (plp->buf)
1652 free(plp->buf);
1653 plp->buf = SaveStrn(args[1], argl[1]);
1654 plp->len = argl[1];
1655 #ifdef ENCODINGS
1656 plp->enc = i;
1657 #endif
1658 }
1659 break;
1660 case RC_PROCESS:
1661 if ((s = *args) == NULL)
1662 {
1663 Input("Process register:", 1, INP_RAW, process_fn, NULL, 0);
1664 break;
1665 }
1666 if (*argl != 1)
1667 {
1668 Msg(0, "%s: process: character, ^x, or (octal) \\032 expected.", rc_name);
1669 break;
1670 }
1671 ch = args[0][0];
1672 process_fn(&ch, 0, NULL);
1673 break;
1674 case RC_STUFF:
1675 s = *args;
1676 if (!args[0])
1677 {
1678 Input("Stuff:", 100, INP_COOKED, StuffFin, NULL, 0);
1679 break;
1680 }
1681 n = *argl;
1682 if (args[1])
1683 {
1684 if (strcmp(s, "-k"))
1685 {
1686 Msg(0, "%s: stuff: invalid option %s", rc_name, s);
1687 break;
1688 }
1689 s = args[1];
1690 for (i = T_CAPS; i < T_OCAPS; i++)
1691 if (strcmp(term[i].tcname, s) == 0)
1692 break;
1693 if (i == T_OCAPS)
1694 {
1695 Msg(0, "%s: stuff: unknown key '%s'", rc_name, s);
1696 break;
1697 }
1698 #ifdef MAPKEYS
1699 if (StuffKey(i - T_CAPS) == 0)
1700 break;
1701 #endif
1702 s = display ? D_tcs[i].str : 0;
1703 if (s == 0)
1704 break;
1705 n = strlen(s);
1706 }
1707 while(n)
1708 LayProcess(&s, &n);
1709 break;
1710 case RC_REDISPLAY:
1711 Activate(-1);
1712 break;
1713 case RC_WINDOWS:
1714 ShowWindows(-1);
1715 break;
1716 case RC_VERSION:
1717 Msg(0, "screen %s", version);
1718 break;
1719 case RC_TIME:
1720 if (*args)
1721 {
1722 timestring = SaveStr(*args);
1723 break;
1724 }
1725 Msg(0, "%s", MakeWinMsg(timestring, fore, '%'));
1726 break;
1727 case RC_INFO:
1728 ShowInfo();
1729 break;
1730 case RC_DINFO:
1731 ShowDInfo();
1732 break;
1733 case RC_COMMAND:
1734 {
1735 struct action *ktabp = ktab;
1736 if (argc == 2 && !strcmp(*args, "-c"))
1737 {
1738 if ((ktabp = FindKtab(args[1], 0)) == 0)
1739 {
1740 Msg(0, "Unknown command class '%s'", args[1]);
1741 break;
1742 }
1743 }
1744 if (D_ESCseen != ktab || ktabp != ktab)
1745 {
1746 D_ESCseen = ktabp;
1747 break;
1748 }
1749 D_ESCseen = 0;
1750 }
1751 /* FALLTHROUGH */
1752 case RC_OTHER:
1753 if (MoreWindows())
1754 SwitchWindow(display && D_other ? D_other->w_number : NextWindow());
1755 break;
1756 case RC_META:
1757 if (user->u_Esc == -1)
1758 break;
1759 ch = user->u_Esc;
1760 s = &ch;
1761 n = 1;
1762 LayProcess(&s, &n);
1763 break;
1764 case RC_XON:
1765 ch = Ctrl('q');
1766 s = &ch;
1767 n = 1;
1768 LayProcess(&s, &n);
1769 break;
1770 case RC_XOFF:
1771 ch = Ctrl('s');
1772 s = &ch;
1773 n = 1;
1774 LayProcess(&s, &n);
1775 break;
1776 case RC_DEFBREAKTYPE:
1777 case RC_BREAKTYPE:
1778 {
1779 static char *types[] = { "TIOCSBRK", "TCSBRK", "tcsendbreak", NULL };
1780 extern int breaktype;
1781
1782 if (*args)
1783 {
1784 if (ParseNum(act, &n))
1785 for (n = 0; n < (int)(sizeof(types)/sizeof(*types)); n++)
1786 {
1787 for (i = 0; i < 4; i++)
1788 {
1789 ch = args[0][i];
1790 if (ch >= 'a' && ch <= 'z')
1791 ch -= 'a' - 'A';
1792 if (ch != types[n][i] && (ch + ('a' - 'A')) != types[n][i])
1793 break;
1794 }
1795 if (i == 4)
1796 break;
1797 }
1798 if (n < 0 || n >= (int)(sizeof(types)/sizeof(*types)))
1799 Msg(0, "%s invalid, chose one of %s, %s or %s", *args, types[0], types[1], types[2]);
1800 else
1801 {
1802 breaktype = n;
1803 Msg(0, "breaktype set to (%d) %s", n, types[n]);
1804 }
1805 }
1806 else
1807 Msg(0, "breaktype is (%d) %s", breaktype, types[breaktype]);
1808 }
1809 break;
1810 case RC_POW_BREAK:
1811 case RC_BREAK:
1812 n = 0;
1813 if (*args && ParseNum(act, &n))
1814 break;
1815 SendBreak(fore, n, nr == RC_POW_BREAK);
1816 break;
1817 #ifdef LOCK
1818 case RC_LOCKSCREEN:
1819 Detach(D_LOCK);
1820 break;
1821 #endif
1822 case RC_WIDTH:
1823 case RC_HEIGHT:
1824 {
1825 int w, h;
1826 int what = 0;
1827
1828 i = 1;
1829 if (*args && !strcmp(*args, "-w"))
1830 what = 1;
1831 else if (*args && !strcmp(*args, "-d"))
1832 what = 2;
1833 if (what)
1834 args++;
1835 if (what == 0 && flayer && !display)
1836 what = 1;
1837 if (what == 1)
1838 {
1839 if (!flayer)
1840 {
1841 Msg(0, "%s: %s: window required", rc_name, comms[nr].name);
1842 break;
1843 }
1844 w = flayer->l_width;
1845 h = flayer->l_height;
1846 }
1847 else
1848 {
1849 if (!display)
1850 {
1851 Msg(0, "%s: %s: display required", rc_name, comms[nr].name);
1852 break;
1853 }
1854 w = D_width;
1855 h = D_height;
1856 }
1857 if (*args && args[0][0] == '-')
1858 {
1859 Msg(0, "%s: %s: unknown option %s", rc_name, comms[nr].name, *args);
1860 break;
1861 }
1862 if (nr == RC_HEIGHT)
1863 {
1864 if (!*args)
1865 {
1866 #define H0height 42
1867 #define H1height 24
1868 if (h == H0height)
1869 h = H1height;
1870 else if (h == H1height)
1871 h = H0height;
1872 else if (h > (H0height + H1height) / 2)
1873 h = H0height;
1874 else
1875 h = H1height;
1876 }
1877 else
1878 {
1879 h = atoi(*args);
1880 if (args[1])
1881 w = atoi(args[1]);
1882 }
1883 }
1884 else
1885 {
1886 if (!*args)
1887 {
1888 if (w == Z0width)
1889 w = Z1width;
1890 else if (w == Z1width)
1891 w = Z0width;
1892 else if (w > (Z0width + Z1width) / 2)
1893 w = Z0width;
1894 else
1895 w = Z1width;
1896 }
1897 else
1898 {
1899 w = atoi(*args);
1900 if (args[1])
1901 h = atoi(args[1]);
1902 }
1903 }
1904 if (*args && args[1] && args[2])
1905 {
1906 Msg(0, "%s: %s: too many arguments", rc_name, comms[nr].name);
1907 break;
1908 }
1909 if (w <= 0)
1910 {
1911 Msg(0, "Illegal width");
1912 break;
1913 }
1914 if (h <= 0)
1915 {
1916 Msg(0, "Illegal height");
1917 break;
1918 }
1919 if (what == 1)
1920 {
1921 if (flayer->l_width == w && flayer->l_height == h)
1922 break;
1923 ResizeLayer(flayer, w, h, (struct display *)0);
1924 break;
1925 }
1926 if (D_width == w && D_height == h)
1927 break;
1928 if (what == 2)
1929 {
1930 ChangeScreenSize(w, h, 1);
1931 }
1932 else
1933 {
1934 if (ResizeDisplay(w, h) == 0)
1935 {
1936 Activate(D_fore ? D_fore->w_norefresh : 0);
1937 /* autofit */
1938 ResizeLayer(D_forecv->c_layer, D_forecv->c_xe - D_forecv->c_xs + 1, D_forecv->c_ye - D_forecv->c_ys + 1, 0);
1939 break;
1940 }
1941 if (h == D_height)
1942 Msg(0, "Your termcap does not specify how to change the terminal's width to %d.", w);
1943 else if (w == D_width)
1944 Msg(0, "Your termcap does not specify how to change the terminal's height to %d.", h);
1945 else
1946 Msg(0, "Your termcap does not specify how to change the terminal's resolution to %dx%d.", w, h);
1947 }
1948 }
1949 break;
1950 case RC_TITLE:
1951 if (*args == 0)
1952 InputAKA();
1953 else
1954 ChangeAKA(fore, *args, strlen(*args));
1955 break;
1956 case RC_COLON:
1957 Input(":", 100, INP_EVERY, Colonfin, NULL, 0);
1958 if (*args && **args)
1959 {
1960 s = *args;
1961 n = strlen(s);
1962 LayProcess(&s, &n);
1963 }
1964 break;
1965 case RC_LASTMSG:
1966 if (D_status_lastmsg)
1967 Msg(0, "%s", D_status_lastmsg);
1968 break;
1969 case RC_SCREEN:
1970 DoScreen("key", args);
1971 break;
1972 case RC_WRAP:
1973 if (ParseSwitch(act, &fore->w_wrap) == 0 && msgok)
1974 Msg(0, "%cwrap", fore->w_wrap ? '+' : '-');
1975 break;
1976 case RC_FLOW:
1977 if (*args)
1978 {
1979 if (args[0][0] == 'a')
1980 {
1981 fore->w_flow = (fore->w_flow & FLOW_AUTO) ? FLOW_AUTOFLAG |FLOW_AUTO|FLOW_NOW : FLOW_AUTOFLAG;
1982 }
1983 else
1984 {
1985 if (ParseOnOff(act, &n))
1986 break;
1987 fore->w_flow = (fore->w_flow & FLOW_AUTO) | n;
1988 }
1989 }
1990 else
1991 {
1992 if (fore->w_flow & FLOW_AUTOFLAG)
1993 fore->w_flow = (fore->w_flow & FLOW_AUTO) | FLOW_NOW;
1994 else if (fore->w_flow & FLOW_NOW)
1995 fore->w_flow &= ~FLOW_NOW;
1996 else
1997 fore->w_flow = fore->w_flow ? FLOW_AUTOFLAG|FLOW_AUTO|FLOW_NOW : FLOW_AUTOFLAG;
1998 }
1999 SetFlow(fore->w_flow & FLOW_NOW);
2000 if (msgok)
2001 Msg(0, "%cflow%s", (fore->w_flow & FLOW_NOW) ? '+' : '-',
2002 (fore->w_flow & FLOW_AUTOFLAG) ? "(auto)" : "");
2003 break;
2004 #ifdef MULTIUSER
2005 case RC_DEFWRITELOCK:
2006 if (args[0][0] == 'a')
2007 nwin_default.wlock = WLOCK_AUTO;
2008 else
2009 {
2010 if (ParseOnOff(act, &n))
2011 break;
2012 nwin_default.wlock = n ? WLOCK_ON : WLOCK_OFF;
2013 }
2014 break;
2015 case RC_WRITELOCK:
2016 if (*args)
2017 {
2018 if (args[0][0] == 'a')
2019 {
2020 fore->w_wlock = WLOCK_AUTO;
2021 }
2022 else
2023 {
2024 if (ParseOnOff(act, &n))
2025 break;
2026 fore->w_wlock = n ? WLOCK_ON : WLOCK_OFF;
2027 }
2028 /*
2029 * user may have permission to change the writelock setting,
2030 * but he may never aquire the lock himself without write permission
2031 */
2032 if (!AclCheckPermWin(D_user, ACL_WRITE, fore))
2033 fore->w_wlockuser = D_user;
2034 }
2035 Msg(0, "writelock %s", (fore->w_wlock == WLOCK_AUTO) ? "auto" :
2036 ((fore->w_wlock == WLOCK_OFF) ? "off" : "on"));
2037 break;
2038 #endif
2039 case RC_CLEAR:
2040 ResetAnsiState(fore);
2041 WriteString(fore, "\033[H\033[J", 6);
2042 break;
2043 case RC_RESET:
2044 ResetAnsiState(fore);
2045 #ifdef ZMODEM
2046 if (fore->w_zdisplay)
2047 zmodem_abort(fore, fore->w_zdisplay);
2048 #endif
2049 WriteString(fore, "\033c", 2);
2050 break;
2051 case RC_MONITOR:
2052 n = fore->w_monitor != MON_OFF;
2053 #ifdef MULTIUSER
2054 if (display)
2055 n = n && (ACLBYTE(fore->w_mon_notify, D_user->u_id) & ACLBIT(D_user->u_id));
2056 #endif
2057 if (ParseSwitch(act, &n))
2058 break;
2059 if (n)
2060 {
2061 #ifdef MULTIUSER
2062 if (display) /* we tell only this user */
2063 ACLBYTE(fore->w_mon_notify, D_user->u_id) |= ACLBIT(D_user->u_id);
2064 else
2065 for (i = 0; i < maxusercount; i++)
2066 ACLBYTE(fore->w_mon_notify, i) |= ACLBIT(i);
2067 #endif
2068 if (fore->w_monitor == MON_OFF)
2069 fore->w_monitor = MON_ON;
2070 Msg(0, "Window %d (%s) is now being monitored for all activity.", fore->w_number, fore->w_title);
2071 }
2072 else
2073 {
2074 #ifdef MULTIUSER
2075 if (display) /* we remove only this user */
2076 ACLBYTE(fore->w_mon_notify, D_user->u_id)
2077 &= ~ACLBIT(D_user->u_id);
2078 else
2079 for (i = 0; i < maxusercount; i++)
2080 ACLBYTE(fore->w_mon_notify, i) &= ~ACLBIT(i);
2081 for (i = maxusercount - 1; i >= 0; i--)
2082 if (ACLBYTE(fore->w_mon_notify, i))
2083 break;
2084 if (i < 0)
2085 #endif
2086 fore->w_monitor = MON_OFF;
2087 Msg(0, "Window %d (%s) is no longer being monitored for activity.", fore->w_number, fore->w_title);
2088 }
2089 break;
2090 #ifdef MULTI
2091 case RC_DISPLAYS:
2092 display_displays();
2093 break;
2094 #endif
2095 case RC_WINDOWLIST:
2096 if (!*args)
2097 display_wlist(0, WLIST_NUM, (struct win *)0);
2098 else if (!strcmp(*args, "string"))
2099 {
2100 if (args[1])
2101 {
2102 if (wliststr)
2103 free(wliststr);
2104 wliststr = SaveStr(args[1]);
2105 }
2106 if (msgok)
2107 Msg(0, "windowlist string is '%s'", wliststr);
2108 }
2109 else if (!strcmp(*args, "title"))
2110 {
2111 if (args[1])
2112 {
2113 if (wlisttit)
2114 free(wlisttit);
2115 wlisttit = SaveStr(args[1]);
2116 }
2117 if (msgok)
2118 Msg(0, "windowlist title is '%s'", wlisttit);
2119 }
2120 else
2121 {
2122 int flag = 0;
2123 int blank = 0;
2124 for (i = 0; i < argc; i++)
2125 if (!args[i])
2126 continue;
2127 else if (!strcmp(args[i], "-m"))
2128 flag |= WLIST_MRU;
2129 else if (!strcmp(args[i], "-b"))
2130 blank = 1;
2131 else if (!strcmp(args[i], "-g"))
2132 flag |= WLIST_NESTED;
2133 else
2134 {
2135 Msg(0, "usage: windowlist [-b] [-g] [-m] [string [string] | title [title]]");
2136 break;
2137 }
2138 if (i == argc)
2139 display_wlist(blank, flag, (struct win *)0);
2140 }
2141 break;
2142 case RC_HELP:
2143 if (argc == 2 && !strcmp(*args, "-c"))
2144 {
2145 struct action *ktabp;
2146 if ((ktabp = FindKtab(args[1], 0)) == 0)
2147 {
2148 Msg(0, "Unknown command class '%s'", args[1]);
2149 break;
2150 }
2151 display_help(args[1], ktabp);
2152 }
2153 else
2154 display_help((char *)0, ktab);
2155 break;
2156 case RC_LICENSE:
2157 display_copyright();
2158 break;
2159 #ifdef COPY_PASTE
2160 case RC_COPY:
2161 if (flayer->l_layfn != &WinLf)
2162 {
2163 Msg(0, "Must be on a window layer");
2164 break;
2165 }
2166 MarkRoutine();
2167 break;
2168 case RC_HISTORY:
2169 {
2170 static char *pasteargs[] = {".", 0};
2171 static int pasteargl[] = {1};
2172
2173 if (flayer->l_layfn != &WinLf)
2174 {
2175 Msg(0, "Must be on a window layer");
2176 break;
2177 }
2178 if (GetHistory() == 0)
2179 break;
2180 if (user->u_plop.buf == NULL)
2181 break;
2182 args = pasteargs;
2183 argl = pasteargl;
2184 }
2185 /*FALLTHROUGH*/
2186 case RC_PASTE:
2187 {
2188 char *ss, *dbuf, dch;
2189 int l = 0;
2190 # ifdef ENCODINGS
2191 int enc = -1;
2192 # endif
2193
2194 /*
2195 * without args we prompt for one(!) register to be pasted in the window
2196 */
2197 if ((s = *args) == NULL)
2198 {
2199 Input("Paste from register:", 1, INP_RAW, ins_reg_fn, NULL, 0);
2200 break;
2201 }
2202 if (args[1] == 0 && !fore) /* no window? */
2203 break;
2204 /*
2205 * with two arguments we paste into a destination register
2206 * (no window needed here).
2207 */
2208 if (args[1] && argl[1] != 1)
2209 {
2210 Msg(0, "%s: paste destination: character, ^x, or (octal) \\032 expected.",
2211 rc_name);
2212 break;
2213 }
2214 # ifdef ENCODINGS
2215 else if (fore)
2216 enc = fore->w_encoding;
2217 # endif
2218
2219 /*
2220 * measure length of needed buffer
2221 */
2222 for (ss = s = *args; (ch = *ss); ss++)
2223 {
2224 if (ch == '.')
2225 {
2226 # ifdef ENCODINGS
2227 if (enc == -1)
2228 enc = user->u_plop.enc;
2229 if (enc != user->u_plop.enc)
2230 l += RecodeBuf((unsigned char *)user->u_plop.buf, user->u_plop.len, user->u_plop.enc, enc, (unsigned char *)0);
2231 else
2232 # endif
2233 l += user->u_plop.len;
2234 }
2235 else
2236 {
2237 # ifdef ENCODINGS
2238 if (enc == -1)
2239 enc = plop_tab[(int)(unsigned char)ch].enc;
2240 if (enc != plop_tab[(int)(unsigned char)ch].enc)
2241 l += RecodeBuf((unsigned char *)plop_tab[(int)(unsigned char)ch].buf, plop_tab[(int)(unsigned char)ch].len, plop_tab[(int)(unsigned char)ch].enc, enc, (unsigned char *)0);
2242 else
2243 # endif
2244 l += plop_tab[(int)(unsigned char)ch].len;
2245 }
2246 }
2247 if (l == 0)
2248 {
2249 Msg(0, "empty buffer");
2250 break;
2251 }
2252 /*
2253 * shortcut:
2254 * if there is only one source and the destination is a window, then
2255 * pass a pointer rather than duplicating the buffer.
2256 */
2257 if (s[1] == 0 && args[1] == 0)
2258 # ifdef ENCODINGS
2259 if (enc == (*s == '.' ? user->u_plop.enc : plop_tab[(int)(unsigned char)*s].enc))
2260 # endif
2261 {
2262 MakePaster(&fore->w_paster, *s == '.' ? user->u_plop.buf : plop_tab[(int)(unsigned char)*s].buf, l, 0);
2263 break;
2264 }
2265 /*
2266 * if no shortcut, we construct a buffer
2267 */
2268 if ((dbuf = (char *)malloc(l)) == 0)
2269 {
2270 Msg(0, strnomem);
2271 break;
2272 }
2273 l = 0;
2274 /*
2275 * concatenate all sources into our own buffer, copy buffer is
2276 * special and is skipped if no display exists.
2277 */
2278 for (ss = s; (ch = *ss); ss++)
2279 {
2280 struct plop *pp = (ch == '.' ? &user->u_plop : &plop_tab[(int)(unsigned char)ch]);
2281 #ifdef ENCODINGS
2282 if (pp->enc != enc)
2283 {
2284 l += RecodeBuf((unsigned char *)pp->buf, pp->len, pp->enc, enc, (unsigned char *)dbuf + l);
2285 continue;
2286 }
2287 #endif
2288 bcopy(pp->buf, dbuf + l, pp->len);
2289 l += pp->len;
2290 }
2291 /*
2292 * when called with one argument we paste our buffer into the window
2293 */
2294 if (args[1] == 0)
2295 {
2296 MakePaster(&fore->w_paster, dbuf, l, 1);
2297 }
2298 else
2299 {
2300 /*
2301 * we have two arguments, the second is already in dch.
2302 * use this as destination rather than the window.
2303 */
2304 dch = args[1][0];
2305 if (dch == '.')
2306 {
2307 if (user->u_plop.buf != NULL)
2308 UserFreeCopyBuffer(user);
2309 user->u_plop.buf = dbuf;
2310 user->u_plop.len = l;
2311 #ifdef ENCODINGS
2312 user->u_plop.enc = enc;
2313 #endif
2314 }
2315 else
2316 {
2317 struct plop *pp = plop_tab + (int)(unsigned char)dch;
2318 if (pp->buf)
2319 free(pp->buf);
2320 pp->buf = dbuf;
2321 pp->len = l;
2322 #ifdef ENCODINGS
2323 pp->enc = enc;
2324 #endif
2325 }
2326 }
2327 break;
2328 }
2329 case RC_WRITEBUF:
2330 if (!user->u_plop.buf)
2331 {
2332 Msg(0, "empty buffer");
2333 break;
2334 }
2335 #ifdef ENCODINGS
2336 {
2337 struct plop oldplop;
2338
2339 oldplop = user->u_plop;
2340 if (args[0] && args[1] && !strcmp(args[0], "-e"))
2341 {
2342 int enc, l;
2343 char *newbuf;
2344
2345 enc = FindEncoding(args[1]);
2346 if (enc == -1)
2347 {
2348 Msg(0, "%s: writebuf: unknown encoding", rc_name);
2349 break;
2350 }
2351 if (enc != oldplop.enc)
2352 {
2353 l = RecodeBuf((unsigned char *)oldplop.buf, oldplop.len, oldplop.enc, enc, (unsigned char *)0);
2354 newbuf = malloc(l + 1);
2355 if (!newbuf)
2356 {
2357 Msg(0, strnomem);
2358 break;
2359 }
2360 user->u_plop.len = RecodeBuf((unsigned char *)oldplop.buf, oldplop.len, oldplop.enc, enc, (unsigned char *)newbuf);
2361 user->u_plop.buf = newbuf;
2362 user->u_plop.enc = enc;
2363 }
2364 args += 2;
2365 }
2366 #endif
2367 if (args[0] && args[1])
2368 Msg(0, "%s: writebuf: too many arguments", rc_name);
2369 else
2370 WriteFile(user, args[0], DUMP_EXCHANGE);
2371 #ifdef ENCODINGS
2372 if (user->u_plop.buf != oldplop.buf)
2373 free(user->u_plop.buf);
2374 user->u_plop = oldplop;
2375 }
2376 #endif
2377 break;
2378 case RC_READBUF:
2379 #ifdef ENCODINGS
2380 i = fore ? fore->w_encoding : display ? display->d_encoding : 0;
2381 if (args[0] && args[1] && !strcmp(args[0], "-e"))
2382 {
2383 i = FindEncoding(args[1]);
2384 if (i == -1)
2385 {
2386 Msg(0, "%s: readbuf: unknown encoding", rc_name);
2387 break;
2388 }
2389 args += 2;
2390 }
2391 #endif
2392 if (args[0] && args[1])
2393 {
2394 Msg(0, "%s: readbuf: too many arguments", rc_name);
2395 break;
2396 }
2397 if ((s = ReadFile(args[0] ? args[0] : BufferFile, &n)))
2398 {
2399 if (user->u_plop.buf)
2400 UserFreeCopyBuffer(user);
2401 user->u_plop.len = n;
2402 user->u_plop.buf = s;
2403 #ifdef ENCODINGS
2404 user->u_plop.enc = i;
2405 #endif
2406 }
2407 break;
2408 case RC_REMOVEBUF:
2409 KillBuffers();
2410 break;
2411 case RC_IGNORECASE:
2412 (void)ParseSwitch(act, &search_ic);
2413 if (msgok)
2414 Msg(0, "Will %signore case in searches", search_ic ? "" : "not ");
2415 break;
2416 #endif /* COPY_PASTE */
2417 case RC_ESCAPE:
2418 if (*argl == 0)
2419 SetEscape(user, -1, -1);
2420 else if (*argl == 2)
2421 SetEscape(user, (int)(unsigned char)args[0][0], (int)(unsigned char)args[0][1]);
2422 else
2423 {
2424 Msg(0, "%s: two characters required after escape.", rc_name);
2425 break;
2426 }
2427 /* Change defescape if master user. This is because we only
2428 * have one ktab.
2429 */
2430 if (display && user != users)
2431 break;
2432 /* FALLTHROUGH */
2433 case RC_DEFESCAPE:
2434 if (*argl == 0)
2435 SetEscape(NULL, -1, -1);
2436 else if (*argl == 2)
2437 SetEscape(NULL, (int)(unsigned char)args[0][0], (int)(unsigned char)args[0][1]);
2438 else
2439 {
2440 Msg(0, "%s: two characters required after defescape.", rc_name);
2441 break;
2442 }
2443 #ifdef MAPKEYS
2444 CheckEscape();
2445 #endif
2446 break;
2447 case RC_CHDIR:
2448 s = *args ? *args : home;
2449 if (chdir(s) == -1)
2450 Msg(errno, "%s", s);
2451 break;
2452 case RC_SHELL:
2453 case RC_DEFSHELL:
2454 if (ParseSaveStr(act, &ShellProg) == 0)
2455 ShellArgs[0] = ShellProg;
2456 break;
2457 case RC_HARDCOPYDIR:
2458 if (*args)
2459 (void)ParseSaveStr(act, &hardcopydir);
2460 if (msgok)
2461 Msg(0, "hardcopydir is %s\n", hardcopydir && *hardcopydir ? hardcopydir : "<cwd>");
2462 break;
2463 case RC_LOGFILE:
2464 if (*args)
2465 {
2466 if (args[1] && !(strcmp(*args, "flush")))
2467 {
2468 log_flush = atoi(args[1]);
2469 if (msgok)
2470 Msg(0, "log flush timeout set to %ds\n", log_flush);
2471 break;
2472 }
2473 if (ParseSaveStr(act, &screenlogfile) || !msgok)
2474 break;
2475 }
2476 Msg(0, "logfile is '%s'", screenlogfile);
2477 break;
2478 case RC_LOGTSTAMP:
2479 if (!*args || !strcmp(*args, "on") || !strcmp(*args, "off"))
2480 {
2481 if (ParseSwitch(act, &logtstamp_on) == 0 && msgok)
2482 Msg(0, "timestamps turned %s", logtstamp_on ? "on" : "off");
2483 }
2484 else if (!strcmp(*args, "string"))
2485 {
2486 if (args[1])
2487 {
2488 if (logtstamp_string)
2489 free(logtstamp_string);
2490 logtstamp_string = SaveStr(args[1]);
2491 }
2492 if (msgok)
2493 Msg(0, "logfile timestamp is '%s'", logtstamp_string);
2494 }
2495 else if (!strcmp(*args, "after"))
2496 {
2497 if (args[1])
2498 {
2499 logtstamp_after = atoi(args[1]);
2500 if (!msgok)
2501 break;
2502 }
2503 Msg(0, "timestamp printed after %ds\n", logtstamp_after);
2504 }
2505 else
2506 Msg(0, "usage: logtstamp [after [n]|string [str]|on|off]");
2507 break;
2508 case RC_SHELLTITLE:
2509 (void)ParseSaveStr(act, &nwin_default.aka);
2510 break;
2511 case RC_TERMCAP:
2512 case RC_TERMCAPINFO:
2513 case RC_TERMINFO:
2514 if (!rc_name || !*rc_name)
2515 Msg(0, "Sorry, too late now. Place that in your .screenrc file.");
2516 break;
2517 case RC_SLEEP:
2518 break; /* Already handled */
2519 case RC_TERM:
2520 s = NULL;
2521 if (ParseSaveStr(act, &s))
2522 break;
2523 if (strlen(s) >= 20)
2524 {
2525 Msg(0, "%s: term: argument too long ( < 20)", rc_name);
2526 free(s);
2527 break;
2528 }
2529 strcpy(screenterm, s);
2530 free(s);
2531 debug1("screenterm set to %s\n", screenterm);
2532 MakeTermcap((display == 0));
2533 debug("new termcap made\n");
2534 break;
2535 case RC_ECHO:
2536 if (!msgok && (!rc_name || strcmp(rc_name, "-X")))
2537 break;
2538 /*
2539 * user typed ^A:echo... well, echo isn't FinishRc's job,
2540 * but as he wanted to test us, we show good will
2541 */
2542 if (argc > 1 && !strcmp(*args, "-n"))
2543 {
2544 args++;
2545 argc--;
2546 }
2547 s = *args;
2548 if (argc > 1 && !strcmp(*args, "-p"))
2549 {
2550 args++;
2551 argc--;
2552 s = *args;
2553 if (s)
2554 s = MakeWinMsg(s, fore, '%');
2555 }
2556 if (s)
2557 Msg(0, "%s", s);
2558 else
2559 Msg(0, "%s: 'echo [-n] [-p] \"string\"' expected.", rc_name);
2560 break;
2561 case RC_BELL:
2562 case RC_BELL_MSG:
2563 if (*args == 0)
2564 {
2565 char buf[256];
2566 AddXChars(buf, sizeof(buf), BellString);
2567 Msg(0, "bell_msg is '%s'", buf);
2568 break;
2569 }
2570 (void)ParseSaveStr(act, &BellString);
2571 break;
2572 #ifdef COPY_PASTE
2573 case RC_BUFFERFILE:
2574 if (*args == 0)
2575 BufferFile = SaveStr(DEFAULT_BUFFERFILE);
2576 else if (ParseSaveStr(act, &BufferFile))
2577 break;
2578 if (msgok)
2579 Msg(0, "Bufferfile is now '%s'", BufferFile);
2580 break;
2581 #endif
2582 case RC_ACTIVITY:
2583 (void)ParseSaveStr(act, &ActivityString);
2584 break;
2585 #if defined(DETACH) && defined(POW_DETACH)
2586 case RC_POW_DETACH_MSG:
2587 if (*args == 0)
2588 {
2589 char buf[256];
2590 AddXChars(buf, sizeof(buf), PowDetachString);
2591 Msg(0, "pow_detach_msg is '%s'", buf);
2592 break;
2593 }
2594 (void)ParseSaveStr(act, &PowDetachString);
2595 break;
2596 #endif
2597 #if defined(UTMPOK) && defined(LOGOUTOK)
2598 case RC_LOGIN:
2599 n = fore->w_slot != (slot_t)-1;
2600 if (*args && !strcmp(*args, "always"))
2601 {
2602 fore->w_lflag = 3;
2603 if (!displays && n)
2604 SlotToggle(n);
2605 break;
2606 }
2607 if (*args && !strcmp(*args, "attached"))
2608 {
2609 fore->w_lflag = 1;
2610 if (!displays && n)
2611 SlotToggle(0);
2612 break;
2613 }
2614 if (ParseSwitch(act, &n) == 0)
2615 SlotToggle(n);
2616 break;
2617 case RC_DEFLOGIN:
2618 if (!strcmp(*args, "always"))
2619 nwin_default.lflag |= 2;
2620 else if (!strcmp(*args, "attached"))
2621 nwin_default.lflag &= ~2;
2622 else
2623 (void)ParseOnOff(act, &nwin_default.lflag);
2624 break;
2625 #endif
2626 case RC_DEFFLOW:
2627 if (args[0] && args[1] && args[1][0] == 'i')
2628 {
2629 iflag = 1;
2630 for (display = displays; display; display = display->d_next)
2631 {
2632 if (!D_flow)
2633 continue;
2634 #if defined(TERMIO) || defined(POSIX)
2635 D_NewMode.tio.c_cc[VINTR] = D_OldMode.tio.c_cc[VINTR];
2636 D_NewMode.tio.c_lflag |= ISIG;
2637 #else /* TERMIO || POSIX */
2638 D_NewMode.m_tchars.t_intrc = D_OldMode.m_tchars.t_intrc;
2639 #endif /* TERMIO || POSIX */
2640 SetTTY(D_userfd, &D_NewMode);
2641 }
2642 }
2643 if (args[0] && args[0][0] == 'a')
2644 nwin_default.flowflag = FLOW_AUTOFLAG;
2645 else
2646 (void)ParseOnOff(act, &nwin_default.flowflag);
2647 break;
2648 case RC_DEFWRAP:
2649 (void)ParseOnOff(act, &nwin_default.wrap);
2650 break;
2651 case RC_DEFC1:
2652 (void)ParseOnOff(act, &nwin_default.c1);
2653 break;
2654 #ifdef COLOR
2655 case RC_DEFBCE:
2656 (void)ParseOnOff(act, &nwin_default.bce);
2657 break;
2658 #endif
2659 case RC_DEFGR:
2660 (void)ParseOnOff(act, &nwin_default.gr);
2661 break;
2662 case RC_DEFMONITOR:
2663 if (ParseOnOff(act, &n) == 0)
2664 nwin_default.monitor = (n == 0) ? MON_OFF : MON_ON;
2665 break;
2666 case RC_DEFSILENCE:
2667 if (ParseOnOff(act, &n) == 0)
2668 nwin_default.silence = (n == 0) ? SILENCE_OFF : SILENCE_ON;
2669 break;
2670 case RC_VERBOSE:
2671 if (!*args)
2672 Msg(0, "W%s echo command when creating windows.",
2673 VerboseCreate ? "ill" : "on't");
2674 else if (ParseOnOff(act, &n) == 0)
2675 VerboseCreate = n;
2676 break;
2677 case RC_HARDSTATUS:
2678 if (display)
2679 {
2680 Msg(0, "%s", ""); /* wait till mintime (keep gcc quiet) */
2681 RemoveStatus();
2682 }
2683 if (args[0] && strcmp(args[0], "on") && strcmp(args[0], "off"))
2684 {
2685 struct display *olddisplay = display;
2686 int old_use, new_use = -1;
2687
2688 s = args[0];
2689 if (!strncmp(s, "always", 6))
2690 s += 6;
2691 if (!strcmp(s, "lastline"))
2692 new_use = HSTATUS_LASTLINE;
2693 else if (!strcmp(s, "ignore"))
2694 new_use = HSTATUS_IGNORE;
2695 else if (!strcmp(s, "message"))
2696 new_use = HSTATUS_MESSAGE;
2697 else if (!strcmp(args[0], "string"))
2698 {
2699 if (!args[1])
2700 {
2701 char buf[256];
2702 AddXChars(buf, sizeof(buf), hstatusstring);
2703 Msg(0, "hardstatus string is '%s'", buf);
2704 break;
2705 }
2706 }
2707 else
2708 {
2709 Msg(0, "%s: usage: hardstatus [always]lastline|ignore|message|string [string]", rc_name);
2710 break;
2711 }
2712 if (new_use != -1)
2713 {
2714 hardstatusemu = new_use | (s == args[0] ? 0 : HSTATUS_ALWAYS);
2715 for (display = displays; display; display = display->d_next)
2716 {
2717 RemoveStatus();
2718 new_use = hardstatusemu & ~HSTATUS_ALWAYS;
2719 if (D_HS && s == args[0])
2720 new_use = HSTATUS_HS;
2721 ShowHStatus((char *)0);
2722 old_use = D_has_hstatus;
2723 D_has_hstatus = new_use;
2724 if ((new_use == HSTATUS_LASTLINE && old_use != HSTATUS_LASTLINE) || (new_use != HSTATUS_LASTLINE && old_use == HSTATUS_LASTLINE))
2725 ChangeScreenSize(D_width, D_height, 1);
2726 RefreshHStatus();
2727 }
2728 }
2729 if (args[1])
2730 {
2731 if (hstatusstring)
2732 free(hstatusstring);
2733 hstatusstring = SaveStr(args[1]);
2734 for (display = displays; display; display = display->d_next)
2735 RefreshHStatus();
2736 }
2737 display = olddisplay;
2738 break;
2739 }
2740 (void)ParseSwitch(act, &use_hardstatus);
2741 if (msgok)
2742 Msg(0, "messages displayed on %s", use_hardstatus ? "hardstatus line" : "window");
2743 break;
2744 case RC_CAPTION:
2745 if (strcmp(args[0], "always") == 0 || strcmp(args[0], "splitonly") == 0)
2746 {
2747 struct display *olddisplay = display;
2748
2749 captionalways = args[0][0] == 'a';
2750 for (display = displays; display; display = display->d_next)
2751 ChangeScreenSize(D_width, D_height, 1);
2752 display = olddisplay;
2753 }
2754 else if (strcmp(args[0], "string") == 0)
2755 {
2756 if (!args[1])
2757 {
2758 char buf[256];
2759 AddXChars(buf, sizeof(buf), captionstring);
2760 Msg(0, "caption string is '%s'", buf);
2761 break;
2762 }
2763 }
2764 else
2765 {
2766 Msg(0, "%s: usage: caption always|splitonly|string <string>", rc_name);
2767 break;
2768 }
2769 if (!args[1])
2770 break;
2771 if (captionstring)
2772 free(captionstring);
2773 captionstring = SaveStr(args[1]);
2774 RedisplayDisplays(0);
2775 break;
2776 case RC_CONSOLE:
2777 n = (console_window != 0);
2778 if (ParseSwitch(act, &n))
2779 break;
2780 if (TtyGrabConsole(fore->w_ptyfd, n, rc_name))
2781 break;
2782 if (n == 0)
2783 Msg(0, "%s: releasing console %s", rc_name, HostName);
2784 else if (console_window)
2785 Msg(0, "%s: stealing console %s from window %d (%s)", rc_name,
2786 HostName, console_window->w_number, console_window->w_title);
2787 else
2788 Msg(0, "%s: grabbing console %s", rc_name, HostName);
2789 console_window = n ? fore : 0;
2790 break;
2791 case RC_ALLPARTIAL:
2792 if (ParseOnOff(act, &all_norefresh))
2793 break;
2794 if (!all_norefresh && fore)
2795 Activate(-1);
2796 if (msgok)
2797 Msg(0, all_norefresh ? "No refresh on window change!\n" :
2798 "Window specific refresh\n");
2799 break;
2800 case RC_PARTIAL:
2801 (void)ParseSwitch(act, &n);
2802 fore->w_norefresh = n;
2803 break;
2804 case RC_VBELL:
2805 if (ParseSwitch(act, &visual_bell) || !msgok)
2806 break;
2807 if (visual_bell == 0)
2808 Msg(0, "switched to audible bell.");
2809 else
2810 Msg(0, "switched to visual bell.");
2811 break;
2812 case RC_VBELLWAIT:
2813 if (ParseNum1000(act, &VBellWait) == 0 && msgok)
2814 Msg(0, "vbellwait set to %.10g seconds", VBellWait/1000.);
2815 break;
2816 case RC_MSGWAIT:
2817 if (ParseNum1000(act, &MsgWait) == 0 && msgok)
2818 Msg(0, "msgwait set to %.10g seconds", MsgWait/1000.);
2819 break;
2820 case RC_MSGMINWAIT:
2821 if (ParseNum1000(act, &MsgMinWait) == 0 && msgok)
2822 Msg(0, "msgminwait set to %.10g seconds", MsgMinWait/1000.);
2823 break;
2824 case RC_SILENCEWAIT:
2825 if (ParseNum(act, &SilenceWait))
2826 break;
2827 if (SilenceWait < 1)
2828 SilenceWait = 1;
2829 for (p = windows; p; p = p->w_next)
2830 p->w_silencewait = SilenceWait;
2831 if (msgok)
2832 Msg(0, "silencewait set to %d seconds", SilenceWait);
2833 break;
2834 case RC_NUMBER:
2835 if (*args == 0)
2836 Msg(0, "This is window %d (%s).\n", fore->w_number, fore->w_title);
2837 else
2838 {
2839 int old = fore->w_number;
2840 int rel = 0, parse;
2841 if (args[0][0] == '+')
2842 rel = 1;
2843 else if (args[0][0] == '-')
2844 rel = -1;
2845 if (rel)
2846 ++act->args[0];
2847 parse = ParseNum(act, &n);
2848 if (rel)
2849 --act->args[0];
2850 if (parse)
2851 break;
2852 if (rel > 0)
2853 n += old;
2854 else if (rel < 0)
2855 n = old - n;
2856 if (n < 0 || n >= maxwin)
2857 {
2858 Msg(0, "Given window position is invalid.");
2859 return;
2860 }
2861 p = wtab[n];
2862 wtab[n] = fore;
2863 fore->w_number = n;
2864 wtab[old] = p;
2865 if (p)
2866 p->w_number = old;
2867 #ifdef MULTIUSER
2868 /* exchange the acls for these windows. */
2869 AclWinSwap(old, n);
2870 #endif
2871 #ifdef UTMPOK
2872 /* exchange the utmp-slots for these windows */
2873 if ((fore->w_slot != (slot_t) -1) && (fore->w_slot != (slot_t) 0))
2874 {
2875 RemoveUtmp(fore);
2876 SetUtmp(fore);
2877 }
2878 if (p && (p->w_slot != (slot_t) -1) && (p->w_slot != (slot_t) 0))
2879 {
2880 /* XXX: first display wins? */
2881 display = fore->w_layer.l_cvlist ? fore->w_layer.l_cvlist->c_display : 0;
2882 RemoveUtmp(p);
2883 SetUtmp(p);
2884 }
2885 #endif
2886
2887 WindowChanged(fore, 'n');
2888 WindowChanged((struct win *)0, 'w');
2889 WindowChanged((struct win *)0, 'W');
2890 WindowChanged((struct win *)0, 0);
2891 }
2892 break;
2893 case RC_SILENCE:
2894 n = fore->w_silence != 0;
2895 i = fore->w_silencewait;
2896 if (args[0] && (args[0][0] == '-' || (args[0][0] >= '0' && args[0][0] <= '9')))
2897 {
2898 if (ParseNum(act, &i))
2899 break;
2900 n = i > 0;
2901 }
2902 else if (ParseSwitch(act, &n))
2903 break;
2904 if (n)
2905 {
2906 #ifdef MULTIUSER
2907 if (display) /* we tell only this user */
2908 ACLBYTE(fore->w_lio_notify, D_user->u_id) |= ACLBIT(D_user->u_id);
2909 else
2910 for (n = 0; n < maxusercount; n++)
2911 ACLBYTE(fore->w_lio_notify, n) |= ACLBIT(n);
2912 #endif
2913 fore->w_silencewait = i;
2914 fore->w_silence = SILENCE_ON;
2915 SetTimeout(&fore->w_silenceev, fore->w_silencewait * 1000);
2916 evenq(&fore->w_silenceev);
2917
2918 if (!msgok)
2919 break;
2920 Msg(0, "The window is now being monitored for %d sec. silence.", fore->w_silencewait);
2921 }
2922 else
2923 {
2924 #ifdef MULTIUSER
2925 if (display) /* we remove only this user */
2926 ACLBYTE(fore->w_lio_notify, D_user->u_id)
2927 &= ~ACLBIT(D_user->u_id);
2928 else
2929 for (n = 0; n < maxusercount; n++)
2930 ACLBYTE(fore->w_lio_notify, n) &= ~ACLBIT(n);
2931 for (i = maxusercount - 1; i >= 0; i--)
2932 if (ACLBYTE(fore->w_lio_notify, i))
2933 break;
2934 if (i < 0)
2935 #endif
2936 {
2937 fore->w_silence = SILENCE_OFF;
2938 evdeq(&fore->w_silenceev);
2939 }
2940 if (!msgok)
2941 break;
2942 Msg(0, "The window is no longer being monitored for silence.");
2943 }
2944 break;
2945 #ifdef COPY_PASTE
2946 case RC_DEFSCROLLBACK:
2947 (void)ParseNum(act, &nwin_default.histheight);
2948 break;
2949 case RC_SCROLLBACK:
2950 if (flayer->l_layfn == &MarkLf)
2951 {
2952 Msg(0, "Cannot resize scrollback buffer in copy/scrollback mode.");
2953 break;
2954 }
2955 (void)ParseNum(act, &n);
2956 ChangeWindowSize(fore, fore->w_width, fore->w_height, n);
2957 if (msgok)
2958 Msg(0, "scrollback set to %d", fore->w_histheight);
2959 break;
2960 #endif
2961 case RC_SESSIONNAME:
2962 if (*args == 0)
2963 Msg(0, "This session is named '%s'\n", SockName);
2964 else
2965 {
2966 char buf[MAXPATHLEN];
2967
2968 s = 0;
2969 if (ParseSaveStr(act, &s))
2970 break;
2971 if (!*s || strlen(s) + (SockName - SockPath) > MAXPATHLEN - 13 || index(s, '/'))
2972 {
2973 Msg(0, "%s: bad session name '%s'\n", rc_name, s);
2974 free(s);
2975 break;
2976 }
2977 strncpy(buf, SockPath, SockName - SockPath);
2978 sprintf(buf + (SockName - SockPath), "%d.%s", (int)getpid(), s);
2979 free(s);
2980 if ((access(buf, F_OK) == 0) || (errno != ENOENT))
2981 {
2982 Msg(0, "%s: inappropriate path: '%s'.", rc_name, buf);
2983 break;
2984 }
2985 if (rename(SockPath, buf))
2986 {
2987 Msg(errno, "%s: failed to rename(%s, %s)", rc_name, SockPath, buf);
2988 break;
2989 }
2990 debug2("rename(%s, %s) done\n", SockPath, buf);
2991 strcpy(SockPath, buf);
2992 MakeNewEnv();
2993 WindowChanged((struct win *)0, 'S');
2994 }
2995 break;
2996 case RC_SETENV:
2997 if (!args[0] || !args[1])
2998 {
2999 debug1("RC_SETENV arguments missing: %s\n", args[0] ? args[0] : "");
3000 InputSetenv(args[0]);
3001 }
3002 else
3003 {
3004 xsetenv(args[0], args[1]);
3005 MakeNewEnv();
3006 }
3007 break;
3008 case RC_UNSETENV:
3009 unsetenv(*args);
3010 MakeNewEnv();
3011 break;
3012 #ifdef COPY_PASTE
3013 case RC_DEFSLOWPASTE:
3014 (void)ParseNum(act, &nwin_default.slow);
3015 break;
3016 case RC_SLOWPASTE:
3017 if (*args == 0)
3018 Msg(0, fore->w_slowpaste ?
3019 "Slowpaste in window %d is %d milliseconds." :
3020 "Slowpaste in window %d is unset.",
3021 fore->w_number, fore->w_slowpaste);
3022 else if (ParseNum(act, &fore->w_slowpaste) == 0 && msgok)
3023 Msg(0, fore->w_slowpaste ?
3024 "Slowpaste in window %d set to %d milliseconds." :
3025 "Slowpaste in window %d now unset.",
3026 fore->w_number, fore->w_slowpaste);
3027 break;
3028 case RC_MARKKEYS:
3029 if (CompileKeys(*args, *argl, mark_key_tab))
3030 {
3031 Msg(0, "%s: markkeys: syntax error.", rc_name);
3032 break;
3033 }
3034 debug1("markkeys %s\n", *args);
3035 break;
3036 # ifdef FONT
3037 case RC_PASTEFONT:
3038 if (ParseSwitch(act, &pastefont) == 0 && msgok)
3039 Msg(0, "Will %spaste font settings", pastefont ? "" : "not ");
3040 break;
3041 # endif
3042 case RC_CRLF:
3043 (void)ParseSwitch(act, &join_with_cr);
3044 break;
3045 case RC_COMPACTHIST:
3046 if (ParseSwitch(act, &compacthist) == 0 && msgok)
3047 Msg(0, "%scompacting history lines", compacthist ? "" : "not ");
3048 break;
3049 #endif
3050 #ifdef NETHACK
3051 case RC_NETHACK:
3052 (void)ParseOnOff(act, &nethackflag);
3053 break;
3054 #endif
3055 case RC_HARDCOPY_APPEND:
3056 (void)ParseOnOff(act, &hardcopy_append);
3057 break;
3058 case RC_VBELL_MSG:
3059 if (*args == 0)
3060 {
3061 char buf[256];
3062 AddXChars(buf, sizeof(buf), VisualBellString);
3063 Msg(0, "vbell_msg is '%s'", buf);
3064 break;
3065 }
3066 (void)ParseSaveStr(act, &VisualBellString);
3067 debug1(" new vbellstr '%s'\n", VisualBellString);
3068 break;
3069 case RC_DEFMODE:
3070 if (ParseBase(act, *args, &n, 8, "octal"))
3071 break;
3072 if (n < 0 || n > 0777)
3073 {
3074 Msg(0, "%s: mode: Invalid tty mode %o", rc_name, n);
3075 break;
3076 }
3077 TtyMode = n;
3078 if (msgok)
3079 Msg(0, "Ttymode set to %03o", TtyMode);
3080 break;
3081 case RC_AUTODETACH:
3082 (void)ParseOnOff(act, &auto_detach);
3083 break;
3084 case RC_STARTUP_MESSAGE:
3085 (void)ParseOnOff(act, &default_startup);
3086 break;
3087 #ifdef PASSWORD
3088 case RC_PASSWORD:
3089 if (*args)
3090 {
3091 n = (*user->u_password) ? 1 : 0;
3092 if (user->u_password != NullStr) free((char *)user->u_password);
3093 user->u_password = SaveStr(*args);
3094 if (!strcmp(user->u_password, "none"))
3095 {
3096 if (n)
3097 Msg(0, "Password checking disabled");
3098 free(user->u_password);
3099 user->u_password = NullStr;
3100 }
3101 }
3102 else
3103 {
3104 if (!fore)
3105 {
3106 Msg(0, "%s: password: window required", rc_name);
3107 break;
3108 }
3109 Input("New screen password:", 100, INP_NOECHO, pass1, display ? (char *)D_user : (char *)users, 0);
3110 }
3111 break;
3112 #endif /* PASSWORD */
3113 case RC_BIND:
3114 {
3115 struct action *ktabp = ktab;
3116 int kflag = 0;
3117
3118 for (;;)
3119 {
3120 if (argc > 2 && !strcmp(*args, "-c"))
3121 {
3122 ktabp = FindKtab(args[1], 1);
3123 if (ktabp == 0)
3124 break;
3125 args += 2;
3126 argl += 2;
3127 argc -= 2;
3128 }
3129 else if (argc > 1 && !strcmp(*args, "-k"))
3130 {
3131 kflag = 1;
3132 args++;
3133 argl++;
3134 argc--;
3135 }
3136 else
3137 break;
3138 }
3139 #ifdef MAPKEYS
3140 if (kflag)
3141 {
3142 for (n = 0; n < KMAP_KEYS; n++)
3143 if (strcmp(term[n + T_CAPS].tcname, *args) == 0)
3144 break;
3145 if (n == KMAP_KEYS)
3146 {
3147 Msg(0, "%s: bind: unknown key '%s'", rc_name, *args);
3148 break;
3149 }
3150 n += 256;
3151 }
3152 else
3153 #endif
3154 if (*argl != 1)
3155 {
3156 Msg(0, "%s: bind: character, ^x, or (octal) \\032 expected.", rc_name);
3157 break;
3158 }
3159 else
3160 n = (unsigned char)args[0][0];
3161
3162 if (args[1])
3163 {
3164 if ((i = FindCommnr(args[1])) == RC_ILLEGAL)
3165 {
3166 Msg(0, "%s: bind: unknown command '%s'", rc_name, args[1]);
3167 break;
3168 }
3169 if (CheckArgNum(i, args + 2) < 0)
3170 break;
3171 ClearAction(&ktabp[n]);
3172 SaveAction(ktabp + n, i, args + 2, argl + 2);
3173 }
3174 else
3175 ClearAction(&ktabp[n]);
3176 }
3177 break;
3178 #ifdef MAPKEYS
3179 case RC_BINDKEY:
3180 {
3181 struct action *newact;
3182 int newnr, fl = 0, kf = 0, af = 0, df = 0, mf = 0;
3183 struct display *odisp = display;
3184 int used = 0;
3185 struct kmap_ext *kme;
3186
3187 for (; *args && **args == '-'; args++, argl++)
3188 {
3189 if (strcmp(*args, "-t") == 0)
3190 fl = KMAP_NOTIMEOUT;
3191 else if (strcmp(*args, "-k") == 0)
3192 kf = 1;
3193 else if (strcmp(*args, "-a") == 0)
3194 af = 1;
3195 else if (strcmp(*args, "-d") == 0)
3196 df = 1;
3197 else if (strcmp(*args, "-m") == 0)
3198 mf = 1;
3199 else if (strcmp(*args, "--") == 0)
3200 {
3201 args++;
3202 argl++;
3203 break;
3204 }
3205 else
3206 {
3207 Msg(0, "%s: bindkey: invalid option %s", rc_name, *args);
3208 return;
3209 }
3210 }
3211 if (df && mf)
3212 {
3213 Msg(0, "%s: bindkey: -d does not work with -m", rc_name);
3214 break;
3215 }
3216 if (*args == 0)
3217 {
3218 if (mf)
3219 display_bindkey("Edit mode", mmtab);
3220 else if (df)
3221 display_bindkey("Default", dmtab);
3222 else
3223 display_bindkey("User", umtab);
3224 break;
3225 }
3226 if (kf == 0)
3227 {
3228 if (af)
3229 {
3230 Msg(0, "%s: bindkey: -a only works with -k", rc_name);
3231 break;
3232 }
3233 if (*argl == 0)
3234 {
3235 Msg(0, "%s: bindkey: empty string makes no sense", rc_name);
3236 break;
3237 }
3238 for (i = 0, kme = kmap_exts; i < kmap_extn; i++, kme++)
3239 if (kme->str == 0)
3240 {
3241 if (args[1])
3242 break;
3243 }
3244 else
3245 if (*argl == (kme->fl & ~KMAP_NOTIMEOUT) && bcmp(kme->str, *args, *argl) == 0)
3246 break;
3247 if (i == kmap_extn)
3248 {
3249 if (!args[1])
3250 {
3251 Msg(0, "%s: bindkey: keybinding not found", rc_name);
3252 break;
3253 }
3254 kmap_extn += 8;
3255 kmap_exts = (struct kmap_ext *)xrealloc((char *)kmap_exts, kmap_extn * sizeof(*kmap_exts));
3256 kme = kmap_exts + i;
3257 bzero((char *)kme, 8 * sizeof(*kmap_exts));
3258 for (; i < kmap_extn; i++, kme++)
3259 {
3260 kme->str = 0;
3261 kme->dm.nr = kme->mm.nr = kme->um.nr = RC_ILLEGAL;
3262 kme->dm.args = kme->mm.args = kme->um.args = noargs;
3263 }
3264 i -= 8;
3265 kme -= 8;
3266 }
3267 if (df == 0 && kme->dm.nr != RC_ILLEGAL)
3268 used = 1;
3269 if (mf == 0 && kme->mm.nr != RC_ILLEGAL)
3270 used = 1;
3271 if ((df || mf) && kme->um.nr != RC_ILLEGAL)
3272 used = 1;
3273 i += KMAP_KEYS + KMAP_AKEYS;
3274 newact = df ? &kme->dm : mf ? &kme->mm : &kme->um;
3275 }
3276 else
3277 {
3278 for (i = T_CAPS; i < T_OCAPS; i++)
3279 if (strcmp(term[i].tcname, *args) == 0)
3280 break;
3281 if (i == T_OCAPS)
3282 {
3283 Msg(0, "%s: bindkey: unknown key '%s'", rc_name, *args);
3284 break;
3285 }
3286 if (af && i >= T_CURSOR && i < T_OCAPS)
3287 i -= T_CURSOR - KMAP_KEYS;
3288 else
3289 i -= T_CAPS;
3290 newact = df ? &dmtab[i] : mf ? &mmtab[i] : &umtab[i];
3291 }
3292 if (args[1])
3293 {
3294 if ((newnr = FindCommnr(args[1])) == RC_ILLEGAL)
3295 {
3296 Msg(0, "%s: bindkey: unknown command '%s'", rc_name, args[1]);
3297 break;
3298 }
3299 if (CheckArgNum(newnr, args + 2) < 0)
3300 break;
3301 ClearAction(newact);
3302 SaveAction(newact, newnr, args + 2, argl + 2);
3303 if (kf == 0 && args[1])
3304 {
3305 if (kme->str)
3306 free(kme->str);
3307 kme->str = SaveStrn(*args, *argl);
3308 kme->fl = fl | *argl;
3309 }
3310 }
3311 else
3312 ClearAction(newact);
3313 for (display = displays; display; display = display->d_next)
3314 remap(i, args[1] ? 1 : 0);
3315 if (kf == 0 && !args[1])
3316 {
3317 if (!used && kme->str)
3318 {
3319 free(kme->str);
3320 kme->str = 0;
3321 kme->fl = 0;
3322 }
3323 }
3324 display = odisp;
3325 }
3326 break;
3327 case RC_MAPTIMEOUT:
3328 if (*args)
3329 {
3330 if (ParseNum(act, &n))
3331 break;
3332 if (n < 0)
3333 {
3334 Msg(0, "%s: maptimeout: illegal time %d", rc_name, n);
3335 break;
3336 }
3337 maptimeout = n;
3338 }
3339 if (*args == 0 || msgok)
3340 Msg(0, "maptimeout is %dms", maptimeout);
3341 break;
3342 case RC_MAPNOTNEXT:
3343 D_dontmap = 1;
3344 break;
3345 case RC_MAPDEFAULT:
3346 D_mapdefault = 1;
3347 break;
3348 #endif
3349 #ifdef MULTIUSER
3350 case RC_ACLCHG:
3351 case RC_ACLADD:
3352 case RC_ADDACL:
3353 case RC_CHACL:
3354 UsersAcl(NULL, argc, args);
3355 break;
3356 case RC_ACLDEL:
3357 if (UserDel(args[0], NULL))
3358 break;
3359 if (msgok)
3360 Msg(0, "%s removed from acl database", args[0]);
3361 break;
3362 case RC_ACLGRP:
3363 /*
3364 * modify a user to gain or lose rights granted to a group.
3365 * This group is actually a normal user whose rights were defined
3366 * with chacl in the usual way.
3367 */
3368 if (args[1])
3369 {
3370 if (strcmp(args[1], "none")) /* link a user to another user */
3371 {
3372 if (AclLinkUser(args[0], args[1]))
3373 break;
3374 if (msgok)
3375 Msg(0, "User %s joined acl-group %s", args[0], args[1]);
3376 }
3377 else /* remove all groups from user */
3378 {
3379 struct acluser *u;
3380 struct aclusergroup *g;
3381
3382 if (!(u = *FindUserPtr(args[0])))
3383 break;
3384 while ((g = u->u_group))
3385 {
3386 u->u_group = g->next;
3387 free((char *)g);
3388 }
3389 }
3390 }
3391 else /* show all groups of user */
3392 {
3393 char buf[256], *p = buf;
3394 int ngroups = 0;
3395 struct acluser *u;
3396 struct aclusergroup *g;
3397
3398 if (!(u = *FindUserPtr(args[0])))
3399 {
3400 if (msgok)
3401 Msg(0, "User %s does not exist.", args[0]);
3402 break;
3403 }
3404 g = u->u_group;
3405 while (g)
3406 {
3407 ngroups++;
3408 sprintf(p, "%s ", g->u->u_name);
3409 p += strlen(p);
3410 if (p > buf+200)
3411 break;
3412 g = g->next;
3413 }
3414 if (ngroups)
3415 *(--p) = '\0';
3416 Msg(0, "%s's group%s: %s.", args[0], (ngroups == 1) ? "" : "s",
3417 (ngroups == 0) ? "none" : buf);
3418 }
3419 break;
3420 case RC_ACLUMASK:
3421 case RC_UMASK:
3422 while ((s = *args++))
3423 {
3424 char *err = 0;
3425
3426 if (AclUmask(display ? D_user : users, s, &err))
3427 Msg(0, "umask: %s\n", err);
3428 }
3429 break;
3430 case RC_MULTIUSER:
3431 if (ParseOnOff(act, &n))
3432 break;
3433 multi = n ? "" : 0;
3434 chsock();
3435 if (msgok)
3436 Msg(0, "Multiuser mode %s", multi ? "enabled" : "disabled");
3437 break;
3438 #endif /* MULTIUSER */
3439 #ifdef PSEUDOS
3440 case RC_EXEC:
3441 winexec(args);
3442 break;
3443 #endif
3444 #ifdef MULTI
3445 case RC_NONBLOCK:
3446 i = D_nonblock >= 0;
3447 if (*args && ((args[0][0] >= '0' && args[0][0] <= '9') || args[0][0] == '.'))
3448 {
3449 if (ParseNum1000(act, &i))
3450 break;
3451 }
3452 else if (!ParseSwitch(act, &i))
3453 i = i == 0 ? -1 : 1000;
3454 else
3455 break;
3456 if (msgok && i == -1)
3457 Msg(0, "display set to blocking mode");
3458 else if (msgok && i == 0)
3459 Msg(0, "display set to nonblocking mode, no timeout");
3460 else if (msgok)
3461 Msg(0, "display set to nonblocking mode, %.10gs timeout", i/1000.);
3462 D_nonblock = i;
3463 if (D_nonblock <= 0)
3464 evdeq(&D_blockedev);
3465 break;
3466 case RC_DEFNONBLOCK:
3467 if (*args && ((args[0][0] >= '0' && args[0][0] <= '9') || args[0][0] == '.'))
3468 {
3469 if (ParseNum1000(act, &defnonblock))
3470 break;
3471 }
3472 else if (!ParseOnOff(act, &defnonblock))
3473 defnonblock = defnonblock == 0 ? -1 : 1000;
3474 else
3475 break;
3476 if (display && *rc_name)
3477 {
3478 D_nonblock = defnonblock;
3479 if (D_nonblock <= 0)
3480 evdeq(&D_blockedev);
3481 }
3482 break;
3483 #endif
3484 case RC_GR:
3485 #ifdef ENCODINGS
3486 if (fore->w_gr == 2)
3487 fore->w_gr = 0;
3488 #endif
3489 if (ParseSwitch(act, &fore->w_gr) == 0 && msgok)
3490 Msg(0, "Will %suse GR", fore->w_gr ? "" : "not ");
3491 #ifdef ENCODINGS
3492 if (fore->w_gr == 0 && fore->w_FontE)
3493 fore->w_gr = 2;
3494 #endif
3495 break;
3496 case RC_C1:
3497 if (ParseSwitch(act, &fore->w_c1) == 0 && msgok)
3498 Msg(0, "Will %suse C1", fore->w_c1 ? "" : "not ");
3499 break;
3500 #ifdef COLOR
3501 case RC_BCE:
3502 if (ParseSwitch(act, &fore->w_bce) == 0 && msgok)
3503 Msg(0, "Will %serase with background color", fore->w_bce ? "" : "not ");
3504 break;
3505 #endif
3506 #ifdef ENCODINGS
3507 case RC_KANJI:
3508 case RC_ENCODING:
3509 #ifdef UTF8
3510 if (*args && !strcmp(args[0], "-d"))
3511 {
3512 if (!args[1])
3513 Msg(0, "encodings directory is %s", screenencodings ? screenencodings : "<unset>");
3514 else
3515 {
3516 free(screenencodings);
3517 screenencodings = SaveStr(args[1]);
3518 }
3519 break;
3520 }
3521 if (*args && !strcmp(args[0], "-l"))
3522 {
3523 if (!args[1])
3524 Msg(0, "encoding: -l: argument required");
3525 else if (LoadFontTranslation(-1, args[1]))
3526 Msg(0, "encoding: could not load utf8 encoding file");
3527 else if (msgok)
3528 Msg(0, "encoding: utf8 encoding file loaded");
3529 break;
3530 }
3531 #else
3532 if (*args && (!strcmp(args[0], "-l") || !strcmp(args[0], "-d")))
3533 {
3534 if (msgok)
3535 Msg(0, "encoding: screen is not compiled for UTF-8.");
3536 break;
3537 }
3538 #endif
3539 for (i = 0; i < 2; i++)
3540 {
3541 if (args[i] == 0)
3542 break;
3543 if (!strcmp(args[i], "."))
3544 continue;
3545 n = FindEncoding(args[i]);
3546 if (n == -1)
3547 {
3548 Msg(0, "encoding: unknown encoding '%s'", args[i]);
3549 break;
3550 }
3551 if (i == 0 && fore)
3552 {
3553 WinSwitchEncoding(fore, n);
3554 ResetCharsets(fore);
3555 }
3556 else if (i && display)
3557 D_encoding = n;
3558 }
3559 break;
3560 case RC_DEFKANJI:
3561 case RC_DEFENCODING:
3562 n = FindEncoding(*args);
3563 if (n == -1)
3564 {
3565 Msg(0, "defencoding: unknown encoding '%s'", *args);
3566 break;
3567 }
3568 nwin_default.encoding = n;
3569 break;
3570 #endif
3571
3572 #ifdef UTF8
3573 case RC_DEFUTF8:
3574 n = nwin_default.encoding == UTF8;
3575 if (ParseSwitch(act, &n) == 0)
3576 {
3577 nwin_default.encoding = n ? UTF8 : 0;
3578 if (msgok)
3579 Msg(0, "Will %suse UTF-8 encoding for new windows", n ? "" : "not ");
3580 }
3581 break;
3582 case RC_UTF8:
3583 for (i = 0; i < 2; i++)
3584 {
3585 if (i && args[i] == 0)
3586 break;
3587 if (args[i] == 0)
3588 n = fore->w_encoding != UTF8;
3589 else if (strcmp(args[i], "off") == 0)
3590 n = 0;
3591 else if (strcmp(args[i], "on") == 0)
3592 n = 1;
3593 else
3594 {
3595 Msg(0, "utf8: illegal argument (%s)", args[i]);
3596 break;
3597 }
3598 if (i == 0)
3599 {
3600 WinSwitchEncoding(fore, n ? UTF8 : 0);
3601 if (msgok)
3602 Msg(0, "Will %suse UTF-8 encoding", n ? "" : "not ");
3603 }
3604 else if (display)
3605 D_encoding = n ? UTF8 : 0;
3606 if (args[i] == 0)
3607 break;
3608 }
3609 break;
3610 #endif
3611
3612 case RC_PRINTCMD:
3613 if (*args)
3614 {
3615 if (printcmd)
3616 free(printcmd);
3617 printcmd = 0;
3618 if (**args)
3619 printcmd = SaveStr(*args);
3620 }
3621 if (*args == 0 || msgok)
3622 {
3623 if (printcmd)
3624 Msg(0, "using '%s' as print command", printcmd);
3625 else
3626 Msg(0, "using termcap entries for printing");
3627 break;
3628 }
3629 break;
3630
3631 case RC_DIGRAPH:
3632 Input("Enter digraph: ", 10, INP_EVERY, digraph_fn, NULL, 0);
3633 if (*args && **args)
3634 {
3635 s = *args;
3636 n = strlen(s);
3637 LayProcess(&s, &n);
3638 }
3639 break;
3640
3641 case RC_DEFHSTATUS:
3642 if (*args == 0)
3643 {
3644 char buf[256];
3645 *buf = 0;
3646 if (nwin_default.hstatus)
3647 AddXChars(buf, sizeof(buf), nwin_default.hstatus);
3648 Msg(0, "default hstatus is '%s'", buf);
3649 break;
3650 }
3651 (void)ParseSaveStr(act, &nwin_default.hstatus);
3652 if (*nwin_default.hstatus == 0)
3653 {
3654 free(nwin_default.hstatus);
3655 nwin_default.hstatus = 0;
3656 }
3657 break;
3658 case RC_HSTATUS:
3659 (void)ParseSaveStr(act, &fore->w_hstatus);
3660 if (*fore->w_hstatus == 0)
3661 {
3662 free(fore->w_hstatus);
3663 fore->w_hstatus = 0;
3664 }
3665 WindowChanged(fore, 'h');
3666 break;
3667
3668 #ifdef FONT
3669 case RC_DEFCHARSET:
3670 case RC_CHARSET:
3671 if (*args == 0)
3672 {
3673 char buf[256];
3674 *buf = 0;
3675 if (nwin_default.charset)
3676 AddXChars(buf, sizeof(buf), nwin_default.charset);
3677 Msg(0, "default charset is '%s'", buf);
3678 break;
3679 }
3680 n = strlen(*args);
3681 if (n == 0 || n > 6)
3682 {
3683 Msg(0, "%s: %s: string has illegal size.", rc_name, comms[nr].name);
3684 break;
3685 }
3686 if (n > 4 && (
3687 ((args[0][4] < '0' || args[0][4] > '3') && args[0][4] != '.') ||
3688 ((args[0][5] < '0' || args[0][5] > '3') && args[0][5] && args[0][5] != '.')))
3689 {
3690 Msg(0, "%s: %s: illegal mapping number.", rc_name, comms[nr].name);
3691 break;
3692 }
3693 if (nr == RC_CHARSET)
3694 {
3695 SetCharsets(fore, *args);
3696 break;
3697 }
3698 if (nwin_default.charset)
3699 free(nwin_default.charset);
3700 nwin_default.charset = SaveStr(*args);
3701 break;
3702 #endif
3703 #ifdef COLOR
3704 case RC_ATTRCOLOR:
3705 s = args[0];
3706 if (*s >= '0' && *s <= '9')
3707 i = *s - '0';
3708 else
3709 for (i = 0; i < 8; i++)
3710 if (*s == "dubrsBiI"[i])
3711 break;
3712 s++;
3713 nr = 0;
3714 if (*s && s[1] && !s[2])
3715 {
3716 if (*s == 'd' && s[1] == 'd')
3717 nr = 3;
3718 else if (*s == '.' && s[1] == 'd')
3719 nr = 2;
3720 else if (*s == 'd' && s[1] == '.')
3721 nr = 1;
3722 else if (*s != '.' || s[1] != '.')
3723 s--;
3724 s += 2;
3725 }
3726 if (*s || i < 0 || i >= 8)
3727 {
3728 Msg(0, "%s: attrcolor: unknown attribute '%s'.", rc_name, args[0]);
3729 break;
3730 }
3731 n = 0;
3732 if (args[1])
3733 n = ParseAttrColor(args[1], args[2], 1);
3734 if (n == -1)
3735 break;
3736 attr2color[i][nr] = n;
3737 n = 0;
3738 for (i = 0; i < 8; i++)
3739 if (attr2color[i][0] || attr2color[i][1] || attr2color[i][2] || attr2color[i][3])
3740 n |= 1 << i;
3741 nattr2color = n;
3742 break;
3743 #endif
3744 case RC_SORENDITION:
3745 i = 0;
3746 if (*args)
3747 {
3748 i = ParseAttrColor(*args, args[1], 1);
3749 if (i == -1)
3750 break;
3751 ApplyAttrColor(i, &mchar_so);
3752 debug2("--> %x %x\n", mchar_so.attr, mchar_so.color);
3753 }
3754 if (msgok)
3755 #ifdef COLOR
3756 Msg(0, "Standout attributes 0x%02x color 0x%02x", (unsigned char)mchar_so.attr, 0x99 ^ (unsigned char)mchar_so.color);
3757 #else
3758 Msg(0, "Standout attributes 0x%02x ", (unsigned char)mchar_so.attr);
3759 #endif
3760 break;
3761
3762 case RC_SOURCE:
3763 do_source(*args);
3764 break;
3765
3766 #ifdef MULTIUSER
3767 case RC_SU:
3768 s = NULL;
3769 if (!*args)
3770 {
3771 Msg(0, "%s:%s screen login", HostName, SockPath);
3772 InputSu(D_fore, &D_user, NULL);
3773 }
3774 else if (!args[1])
3775 InputSu(D_fore, &D_user, args[0]);
3776 else if (!args[2])
3777 s = DoSu(&D_user, args[0], args[1], "\377");
3778 else
3779 s = DoSu(&D_user, args[0], args[1], args[2]);
3780 if (s)
3781 Msg(0, "%s", s);
3782 break;
3783 #endif /* MULTIUSER */
3784 case RC_SPLIT:
3785 s = args[0];
3786 if (s && !strcmp(s, "-v"))
3787 AddCanvas(SLICE_HORI);
3788 else
3789 AddCanvas(SLICE_VERT);
3790 Activate(-1);
3791 break;
3792 case RC_REMOVE:
3793 RemCanvas();
3794 Activate(-1);
3795 break;
3796 case RC_ONLY:
3797 OneCanvas();
3798 Activate(-1);
3799 break;
3800 case RC_FIT:
3801 D_forecv->c_xoff = D_forecv->c_xs;
3802 D_forecv->c_yoff = D_forecv->c_ys;
3803 RethinkViewportOffsets(D_forecv);
3804 ResizeLayer(D_forecv->c_layer, D_forecv->c_xe - D_forecv->c_xs + 1, D_forecv->c_ye - D_forecv->c_ys + 1, 0);
3805 flayer = D_forecv->c_layer;
3806 LaySetCursor();
3807 break;
3808 case RC_FOCUS:
3809 if (!*args || !strcmp(*args, "down"))
3810 D_forecv = D_forecv->c_next ? D_forecv->c_next : D_cvlist;
3811 else if (!strcmp(*args, "up"))
3812 {
3813 struct canvas *cv;
3814 for (cv = D_cvlist; cv->c_next && cv->c_next != D_forecv; cv = cv->c_next)
3815 ;
3816 D_forecv = cv;
3817 }
3818 else if (!strcmp(*args, "top"))
3819 D_forecv = D_cvlist;
3820 else if (!strcmp(*args, "bottom"))
3821 {
3822 struct canvas *cv;
3823 for (cv = D_cvlist; cv->c_next; cv = cv->c_next)
3824 ;
3825 D_forecv = cv;
3826 }
3827 else
3828 {
3829 Msg(0, "%s: usage: focus [up|down|top|bottom]", rc_name);
3830 break;
3831 }
3832 if ((focusminwidth && (focusminwidth < 0 || D_forecv->c_xe - D_forecv->c_xs + 1 < focusminwidth)) ||
3833 (focusminheight && (focusminheight < 0 || D_forecv->c_ye - D_forecv->c_ys + 1 < focusminheight)))
3834 {
3835 ResizeCanvas(&D_canvas);
3836 RecreateCanvasChain();
3837 RethinkDisplayViewports();
3838 ResizeLayersToCanvases(); /* redisplays */
3839 }
3840 fore = D_fore = Layer2Window(D_forecv->c_layer);
3841 flayer = D_forecv->c_layer;
3842 #ifdef RXVT_OSC
3843 if (D_xtermosc[2] || D_xtermosc[3])
3844 {
3845 Activate(-1);
3846 break;
3847 }
3848 #endif
3849 RefreshHStatus();
3850 #ifdef RXVT_OSC
3851 RefreshXtermOSC();
3852 #endif
3853 flayer = D_forecv->c_layer;
3854 CV_CALL(D_forecv, LayRestore();LaySetCursor());
3855 WindowChanged(0, 'F');
3856 break;
3857 case RC_RESIZE:
3858 i = 0;
3859 if (D_forecv->c_slorient == SLICE_UNKN)
3860 {
3861 Msg(0, "resize: need more than one region");
3862 break;
3863 }
3864 for (; *args; args++)
3865 {
3866 if (!strcmp(*args, "-h"))
3867 i |= RESIZE_FLAG_H;
3868 else if (!strcmp(*args, "-v"))
3869 i |= RESIZE_FLAG_V;
3870 else if (!strcmp(*args, "-b"))
3871 i |= RESIZE_FLAG_H | RESIZE_FLAG_V;
3872 else if (!strcmp(*args, "-p"))
3873 i |= D_forecv->c_slorient == SLICE_VERT ? RESIZE_FLAG_H : RESIZE_FLAG_V;
3874 else if (!strcmp(*args, "-l"))
3875 i |= RESIZE_FLAG_L;
3876 else
3877 break;
3878 }
3879 if (*args && args[1])
3880 {
3881 Msg(0, "%s: usage: resize [-h] [-v] [-l] [num]\n", rc_name);
3882 break;
3883 }
3884 if (*args)
3885 ResizeRegions(*args, i);
3886 else
3887 Input(resizeprompts[i], 20, INP_EVERY, ResizeFin, (char*)0, i);
3888 break;
3889 case RC_SETSID:
3890 (void)ParseSwitch(act, &separate_sids);
3891 break;
3892 case RC_EVAL:
3893 args = SaveArgs(args);
3894 for (i = 0; args[i]; i++)
3895 {
3896 if (args[i][0])
3897 Colonfin(args[i], strlen(args[i]), (char *)0);
3898 free(args[i]);
3899 }
3900 free(args);
3901 break;
3902 case RC_ALTSCREEN:
3903 (void)ParseSwitch(act, &use_altscreen);
3904 if (msgok)
3905 Msg(0, "Will %sdo alternate screen switching", use_altscreen ? "" : "not ");
3906 break;
3907 case RC_MAXWIN:
3908 if (ParseNum(act, &n))
3909 break;
3910 if (n < 1)
3911 Msg(0, "illegal maxwin number specified");
3912 else if (n > maxwin)
3913 Msg(0, "may only decrease maxwin number");
3914 else
3915 maxwin = n;
3916 break;
3917 case RC_BACKTICK:
3918 if (ParseBase(act, *args, &n, 10, "decimal"))
3919 break;
3920 if (!args[1])
3921 setbacktick(n, 0, 0, (char **)0);
3922 else
3923 {
3924 int lifespan, tick;
3925 if (argc < 4)
3926 {
3927 Msg(0, "%s: usage: backtick num [lifespan tick cmd args...]", rc_name);
3928 break;
3929 }
3930 if (ParseBase(act, args[1], &lifespan, 10, "decimal"))
3931 break;
3932 if (ParseBase(act, args[2], &tick, 10, "decimal"))
3933 break;
3934 setbacktick(n, lifespan, tick, SaveArgs(args + 3));
3935 }
3936 WindowChanged(0, '`');
3937 break;
3938 case RC_BLANKER:
3939 #ifdef BLANKER_PRG
3940 if (blankerprg)
3941 {
3942 RunBlanker(blankerprg);
3943 break;
3944 }
3945 #endif
3946 ClearAll();
3947 CursorVisibility(-1);
3948 D_blocked = 4;
3949 break;
3950 #ifdef BLANKER_PRG
3951 case RC_BLANKERPRG:
3952 if (blankerprg)
3953 {
3954 char **pp;
3955 for (pp = blankerprg; *pp; pp++)
3956 free(*pp);
3957 free(blankerprg);
3958 blankerprg = 0;
3959 }
3960 if (args[0][0])
3961 blankerprg = SaveArgs(args);
3962 break;
3963 #endif
3964 case RC_IDLE:
3965 if (*args)
3966 {
3967 struct display *olddisplay = display;
3968 if (!strcmp(*args, "off"))
3969 idletimo = 0;
3970 else if (args[0][0])
3971 idletimo = atoi(*args) * 1000;
3972 if (argc > 1)
3973 {
3974 if ((i = FindCommnr(args[1])) == RC_ILLEGAL)
3975 {
3976 Msg(0, "%s: idle: unknown command '%s'", rc_name, args[1]);
3977 break;
3978 }
3979 if (CheckArgNum(i, args + 2) < 0)
3980 break;
3981 ClearAction(&idleaction);
3982 SaveAction(&idleaction, i, args + 2, argl + 2);
3983 }
3984 for (display = displays; display; display = display->d_next)
3985 ResetIdle();
3986 display = olddisplay;
3987 }
3988 if (msgok)
3989 {
3990 if (idletimo)
3991 Msg(0, "idle timeout %ds, %s", idletimo / 1000, comms[idleaction.nr].name);
3992 else
3993 Msg(0, "idle off");
3994 }
3995 break;
3996 case RC_FOCUSMINSIZE:
3997 for (i = 0; i < 2 && args[i]; i++)
3998 {
3999 if (!strcmp(args[i], "max") || !strcmp(args[i], "_"))
4000 n = -1;
4001 else
4002 n = atoi(args[i]);
4003 if (i == 0)
4004 focusminwidth = n;
4005 else
4006 focusminheight = n;
4007 }
4008 if (msgok)
4009 {
4010 char b[2][20];
4011 for (i = 0; i < 2; i++)
4012 {
4013 n = i == 0 ? focusminwidth : focusminheight;
4014 if (n == -1)
4015 strcpy(b[i], "max");
4016 else
4017 sprintf(b[i], "%d", n);
4018 }
4019 Msg(0, "focus min size is %s %s\n", b[0], b[1]);
4020 }
4021 break;
4022 case RC_GROUP:
4023 if (*args)
4024 {
4025 fore->w_group = 0;
4026 if (args[0][0])
4027 {
4028 fore->w_group = WindowByName(*args);
4029 if (fore->w_group && fore->w_group->w_type != W_TYPE_GROUP)
4030 fore->w_group = 0;
4031 }
4032 WindowChanged((struct win *)0, 'w');
4033 WindowChanged((struct win *)0, 'W');
4034 WindowChanged((struct win *)0, 0);
4035 }
4036 if (msgok)
4037 {
4038 if (fore->w_group)
4039 Msg(0, "window group is %d (%s)\n", fore->w_group->w_number, fore->w_group->w_title);
4040 else
4041 Msg(0, "window belongs to no group");
4042 }
4043 break;
4044 case RC_LAYOUT:
4045 if (!strcmp(args[0], "title"))
4046 {
4047 if (!D_layout)
4048 {
4049 Msg(0, "not on a layout");
4050 break;
4051 }
4052 if (!args[1])
4053 {
4054 Msg(0, "current layout is %d (%s)", D_layout->lay_number, D_layout->lay_title);
4055 break;
4056 }
4057 free(D_layout->lay_title);
4058 D_layout->lay_title= SaveStr(args[1]);
4059 }
4060 else if (!strcmp(args[0], "number"))
4061 {
4062 int old;
4063 struct layout *lay;
4064 if (!args[1])
4065 {
4066 Msg(0, "This is layout %d (%s).\n", D_layout->lay_number, D_layout->lay_title);
4067 break;
4068 }
4069 old = D_layout->lay_number;
4070 n = atoi(args[1]);
4071 if (n < 0 || n >= MAXLAY)
4072 break;
4073 lay = laytab[n];
4074 laytab[n] = D_layout;
4075 D_layout->lay_number = n;
4076 laytab[old] = lay;
4077 if (lay)
4078 lay->lay_number = old;
4079 break;
4080 }
4081 else if (!strcmp(args[0], "autosave"))
4082 {
4083 if (!D_layout)
4084 {
4085 Msg(0, "not on a layout");
4086 break;
4087 }
4088 if (args[1])
4089 {
4090 if (!strcmp(args[1], "on"))
4091 D_layout->lay_autosave = 1;
4092 else if (!strcmp(args[1], "off"))
4093 D_layout->lay_autosave = 0;
4094 else
4095 {
4096 Msg(0, "invalid argument. Give 'on' or 'off");
4097 break;
4098 }
4099 }
4100 if (msgok)
4101 Msg(0, "autosave is %s", D_layout->lay_autosave ? "on" : "off");
4102 }
4103 else if (!strcmp(args[0], "new"))
4104 {
4105 char *t = args[1];
4106 n = 0;
4107 if (t)
4108 {
4109 while (*t >= '0' && *t <= '9')
4110 t++;
4111 if (t != args[1] && (!*t || *t == ':'))
4112 {
4113 n = atoi(args[1]);
4114 if (*t)
4115 t++;
4116 }
4117 else
4118 t = args[1];
4119 }
4120 if (!t || !*t)
4121 t = "layout";
4122 NewLayout(t, n);
4123 Activate(-1);
4124 }
4125 else if (!strcmp(args[0], "save"))
4126 {
4127 if (!args[1])
4128 {
4129 Msg(0, "usage: layout save <name>");
4130 break;
4131 }
4132 SaveLayout(args[1], &D_canvas);
4133 }
4134 else if (!strcmp(args[0], "select"))
4135 {
4136 if (!args[1])
4137 {
4138 Input("Switch to layout: ", 20, INP_COOKED, SelectLayoutFin, NULL, 0);
4139 break;
4140 }
4141 SelectLayoutFin(args[1], strlen(args[1]), (char *)0);
4142 }
4143 else if (!strcmp(args[0], "next"))
4144 {
4145 struct layout *lay = D_layout;
4146 if (lay)
4147 lay = lay->lay_next ? lay->lay_next : layouts;
4148 else
4149 lay = layouts;
4150 if (!lay)
4151 {
4152 Msg(0, "no layout defined");
4153 break;
4154 }
4155 if (lay == D_layout)
4156 break;
4157 LoadLayout(lay, &D_canvas);
4158 Activate(-1);
4159 }
4160 else if (!strcmp(args[0], "prev"))
4161 {
4162 struct layout *lay = D_layout;
4163 if (lay)
4164 {
4165 for (lay = layouts; lay->lay_next && lay->lay_next != D_layout; lay = lay->lay_next)
4166 ;
4167 }
4168 else
4169 lay = layouts;
4170 if (!lay)
4171 {
4172 Msg(0, "no layout defined");
4173 break;
4174 }
4175 if (lay == D_layout)
4176 break;
4177 LoadLayout(lay, &D_canvas);
4178 Activate(-1);
4179 }
4180 else if (!strcmp(args[0], "attach"))
4181 {
4182 if (!args[1])
4183 {
4184 if (!layout_attach)
4185 Msg(0, "no attach layout set");
4186 else if (layout_attach == &layout_last_marker)
4187 Msg(0, "will attach to last layout");
4188 else
4189 Msg(0, "will attach to layout %d (%s)", layout_attach->lay_number, layout_attach->lay_title);
4190 break;
4191 }
4192 if (!strcmp(args[1], ":last"))
4193 layout_attach = &layout_last_marker;
4194 else if (!args[1][0])
4195 layout_attach = 0;
4196 else
4197 {
4198 struct layout *lay;
4199 lay = FindLayout(args[1]);
4200 if (!lay)
4201 {
4202 Msg(0, "unknown layout '%s'", args[1]);
4203 break;
4204 }
4205 layout_attach = lay;
4206 }
4207 }
4208 else if (!strcmp(args[0], "show"))
4209 {
4210 ShowLayouts(-1);
4211 }
4212 else
4213 Msg(0, "unknown layout subcommand");
4214 break;
4215 #ifdef DW_CHARS
4216 case RC_CJKWIDTH:
4217 if(ParseSwitch(act, &cjkwidth) == 0)
4218 {
4219 if(msgok)
4220 Msg(0, "Treat ambiguous width characters as %s width", cjkwidth ? "full" : "half");
4221 }
4222 break;
4223 #endif
4224 default:
4225 #ifdef HAVE_BRAILLE
4226 /* key == -2: input from braille keybord, msgok always 0 */
4227 DoBrailleAction(act, key == -2 ? 0 : msgok);
4228 #endif
4229 break;
4230 }
4231 if (display != odisplay)
4232 {
4233 for (display = displays; display; display = display->d_next)
4234 if (display == odisplay)
4235 break;
4236 }
4237 }
4238
4239 void
4240 DoCommand(argv, argl)
4241 char **argv;
4242 int *argl;
4243 {
4244 struct action act;
4245
4246 if ((act.nr = FindCommnr(*argv)) == RC_ILLEGAL)
4247 {
4248 Msg(0, "%s: unknown command '%s'", rc_name, *argv);
4249 return;
4250 }
4251 act.args = argv + 1;
4252 act.argl = argl + 1;
4253 DoAction(&act, -1);
4254 }
4255
4256 static void
4257 SaveAction(act, nr, args, argl)
4258 struct action *act;
4259 int nr;
4260 char **args;
4261 int *argl;
4262 {
4263 register int argc = 0;
4264 char **pp;
4265 int *lp;
4266
4267 if (args)
4268 while (args[argc])
4269 argc++;
4270 if (argc == 0)
4271 {
4272 act->nr = nr;
4273 act->args = noargs;
4274 act->argl = 0;
4275 return;
4276 }
4277 if ((pp = (char **)malloc((unsigned)(argc + 1) * sizeof(char **))) == 0)
4278 Panic(0, strnomem);
4279 if ((lp = (int *)malloc((unsigned)(argc) * sizeof(int *))) == 0)
4280 Panic(0, strnomem);
4281 act->nr = nr;
4282 act->args = pp;
4283 act->argl = lp;
4284 while (argc--)
4285 {
4286 *lp = argl ? *argl++ : (int)strlen(*args);
4287 *pp++ = SaveStrn(*args++, *lp++);
4288 }
4289 *pp = 0;
4290 }
4291
4292 static char **
4293 SaveArgs(args)
4294 char **args;
4295 {
4296 register char **ap, **pp;
4297 register int argc = 0;
4298
4299 while (args[argc])
4300 argc++;
4301 if ((pp = ap = (char **)malloc((unsigned)(argc + 1) * sizeof(char **))) == 0)
4302 Panic(0, strnomem);
4303 while (argc--)
4304 *pp++ = SaveStr(*args++);
4305 *pp = 0;
4306 return ap;
4307 }
4308
4309
4310 /*
4311 * buf is split into argument vector args.
4312 * leading whitespace is removed.
4313 * @!| abbreviations are expanded.
4314 * the end of buffer is recognized by '\0' or an un-escaped '#'.
4315 * " and ' are interpreted.
4316 *
4317 * argc is returned.
4318 */
4319 int
4320 Parse(buf, bufl, args, argl)
4321 char *buf, **args;
4322 int bufl, *argl;
4323 {
4324 register char *p = buf, **ap = args, *pp;
4325 register int delim, argc;
4326 int *lp = argl;
4327
4328 debug2("Parse %d %s\n", bufl, buf);
4329 argc = 0;
4330 pp = buf;
4331 delim = 0;
4332 for (;;)
4333 {
4334 while (*p && (*p == ' ' || *p == '\t'))
4335 ++p;
4336 #ifdef PSEUDOS
4337 if (argc == 0 && *p == '!')
4338 {
4339 *ap++ = "exec";
4340 *lp++ = 4;
4341 p++;
4342 argc++;
4343 continue;
4344 }
4345 #endif
4346 if (*p == '\0' || *p == '#' || *p == '\n')
4347 {
4348 *p = '\0';
4349 for (delim = 0; delim < argc; delim++)
4350 debug1("-- %s\n", args[delim]);
4351 args[argc] = 0;
4352 return argc;
4353 }
4354 if (++argc >= MAXARGS)
4355 {
4356 Msg(0, "%s: too many tokens.", rc_name);
4357 return 0;
4358 }
4359 *ap++ = pp;
4360
4361 debug1("- new arg %s\n", p);
4362 while (*p)
4363 {
4364 if (*p == delim)
4365 delim = 0;
4366 else if (delim != '\'' && *p == '\\' && (p[1] == '\'' || p[1] == '"' || p[1] == '\\' || p[1] == '$' || p[1] == '#' || p[1] == '^' || (p[1] >= '0' && p[1] <= '7')))
4367 {
4368 p++;
4369 if (*p >= '0' && *p <= '7')
4370 {
4371 *pp = *p - '0';
4372 if (p[1] >= '0' && p[1] <= '7')
4373 {
4374 p++;
4375 *pp = (*pp << 3) | (*p - '0');
4376 if (p[1] >= '0' && p[1] <= '7')
4377 {
4378 p++;
4379 *pp = (*pp << 3) | (*p - '0');
4380 }
4381 }
4382 pp++;
4383 }
4384 else
4385 *pp++ = *p;
4386 }
4387 else if (delim != '\'' && *p == '$' && (p[1] == '{' || p[1] == ':' || (p[1] >= 'a' && p[1] <= 'z') || (p[1] >= 'A' && p[1] <= 'Z') || (p[1] >= '0' && p[1] <= '9') || p[1] == '_'))
4388
4389 {
4390 char *ps, *pe, op, *v, xbuf[11];
4391 int vl;
4392
4393 ps = ++p;
4394 debug1("- var %s\n", ps);
4395 p++;
4396 while (*p)
4397 {
4398 if (*ps == '{' && *p == '}')
4399 break;
4400 if (*ps == ':' && *p == ':')
4401 break;
4402 if (*ps != '{' && *ps != ':' && (*p < 'a' || *p > 'z') && (*p < 'A' || *p > 'Z') && (*p < '0' || *p > '9') && *p != '_')
4403 break;
4404 p++;
4405 }
4406 pe = p;
4407 if (*ps == '{' || *ps == ':')
4408 {
4409 if (!*p)
4410 {
4411 Msg(0, "%s: bad variable name.", rc_name);
4412 return 0;
4413 }
4414 p++;
4415 }
4416 op = *pe;
4417 *pe = 0;
4418 debug1("- var is '%s'\n", ps);
4419 if (*ps == ':')
4420 v = gettermcapstring(ps + 1);
4421 else
4422 {
4423 if (*ps == '{')
4424 ps++;
4425 v = xbuf;
4426 if (!strcmp(ps, "TERM"))
4427 v = display ? D_termname : "unknown";
4428 else if (!strcmp(ps, "COLUMNS"))
4429 sprintf(xbuf, "%d", display ? D_width : -1);
4430 else if (!strcmp(ps, "LINES"))
4431 sprintf(xbuf, "%d", display ? D_height : -1);
4432 else
4433 v = getenv(ps);
4434 }
4435 *pe = op;
4436 vl = v ? strlen(v) : 0;
4437 if (vl)
4438 {
4439 debug1("- sub is '%s'\n", v);
4440 if (p - pp < vl)
4441 {
4442 int right = buf + bufl - (p + strlen(p) + 1);
4443 if (right > 0)
4444 {
4445 bcopy(p, p + right, strlen(p) + 1);
4446 p += right;
4447 }
4448 }
4449 if (p - pp < vl)
4450 {
4451 Msg(0, "%s: no space left for variable expansion.", rc_name);
4452 return 0;
4453 }
4454 bcopy(v, pp, vl);
4455 pp += vl;
4456 }
4457 continue;
4458 }
4459 else if (delim != '\'' && *p == '^' && p[1])
4460 {
4461 p++;
4462 *pp++ = *p == '?' ? '\177' : *p & 0x1f;
4463 }
4464 else if (delim == 0 && (*p == '\'' || *p == '"'))
4465 delim = *p;
4466 else if (delim == 0 && (*p == ' ' || *p == '\t' || *p == '\n'))
4467 break;
4468 else
4469 *pp++ = *p;
4470 p++;
4471 }
4472 if (delim)
4473 {
4474 Msg(0, "%s: Missing %c quote.", rc_name, delim);
4475 return 0;
4476 }
4477 if (*p)
4478 p++;
4479 *pp = 0;
4480 debug2("- arg done, '%s' rest %s\n", ap[-1], p);
4481 *lp++ = pp - ap[-1];
4482 pp++;
4483 }
4484 }
4485
4486 void
4487 SetEscape(u, e, me)
4488 struct acluser *u;
4489 int e, me;
4490 {
4491 if (u)
4492 {
4493 u->u_Esc = e;
4494 u->u_MetaEsc = me;
4495 }
4496 else
4497 {
4498 if (users)
4499 {
4500 if (DefaultEsc >= 0)
4501 ClearAction(&ktab[DefaultEsc]);
4502 if (DefaultMetaEsc >= 0)
4503 ClearAction(&ktab[DefaultMetaEsc]);
4504 }
4505 DefaultEsc = e;
4506 DefaultMetaEsc = me;
4507 if (users)
4508 {
4509 if (DefaultEsc >= 0)
4510 {
4511 ClearAction(&ktab[DefaultEsc]);
4512 ktab[DefaultEsc].nr = RC_OTHER;
4513 }
4514 if (DefaultMetaEsc >= 0)
4515 {
4516 ClearAction(&ktab[DefaultMetaEsc]);
4517 ktab[DefaultMetaEsc].nr = RC_META;
4518 }
4519 }
4520 }
4521 }
4522
4523 int
4524 ParseSwitch(act, var)
4525 struct action *act;
4526 int *var;
4527 {
4528 if (*act->args == 0)
4529 {
4530 *var ^= 1;
4531 return 0;
4532 }
4533 return ParseOnOff(act, var);
4534 }
4535
4536 static int
4537 ParseOnOff(act, var)
4538 struct action *act;
4539 int *var;
4540 {
4541 register int num = -1;
4542 char **args = act->args;
4543
4544 if (args[1] == 0)
4545 {
4546 if (strcmp(args[0], "on") == 0)
4547 num = 1;
4548 else if (strcmp(args[0], "off") == 0)
4549 num = 0;
4550 }
4551 if (num < 0)
4552 {
4553 Msg(0, "%s: %s: invalid argument. Give 'on' or 'off'", rc_name, comms[act->nr].name);
4554 return -1;
4555 }
4556 *var = num;
4557 return 0;
4558 }
4559
4560 int
4561 ParseSaveStr(act, var)
4562 struct action *act;
4563 char **var;
4564 {
4565 char **args = act->args;
4566 if (*args == 0 || args[1])
4567 {
4568 Msg(0, "%s: %s: one argument required.", rc_name, comms[act->nr].name);
4569 return -1;
4570 }
4571 if (*var)
4572 free(*var);
4573 *var = SaveStr(*args);
4574 return 0;
4575 }
4576
4577 int
4578 ParseNum(act, var)
4579 struct action *act;
4580 int *var;
4581 {
4582 int i;
4583 char *p, **args = act->args;
4584
4585 p = *args;
4586 if (p == 0 || *p == 0 || args[1])
4587 {
4588 Msg(0, "%s: %s: invalid argument. Give one argument.",
4589 rc_name, comms[act->nr].name);
4590 return -1;
4591 }
4592 i = 0;
4593 while (*p)
4594 {
4595 if (*p >= '0' && *p <= '9')
4596 i = 10 * i + (*p - '0');
4597 else
4598 {
4599 Msg(0, "%s: %s: invalid argument. Give numeric argument.",
4600 rc_name, comms[act->nr].name);
4601 return -1;
4602 }
4603 p++;
4604 }
4605 debug1("ParseNum got %d\n", i);
4606 *var = i;
4607 return 0;
4608 }
4609
4610 static int
4611 ParseNum1000(act, var)
4612 struct action *act;
4613 int *var;
4614 {
4615 int i;
4616 char *p, **args = act->args;
4617 int dig = 0;
4618
4619 p = *args;
4620 if (p == 0 || *p == 0 || args[1])
4621 {
4622 Msg(0, "%s: %s: invalid argument. Give one argument.",
4623 rc_name, comms[act->nr].name);
4624 return -1;
4625 }
4626 i = 0;
4627 while (*p)
4628 {
4629 if (*p >= '0' && *p <= '9')
4630 {
4631 if (dig < 4)
4632 i = 10 * i + (*p - '0');
4633 else if (dig == 4 && *p >= '5')
4634 i++;
4635 if (dig)
4636 dig++;
4637 }
4638 else if (*p == '.' && !dig)
4639 dig++;
4640 else
4641 {
4642 Msg(0, "%s: %s: invalid argument. Give floating point argument.",
4643 rc_name, comms[act->nr].name);
4644 return -1;
4645 }
4646 p++;
4647 }
4648 if (dig == 0)
4649 i *= 1000;
4650 else
4651 while (dig++ < 4)
4652 i *= 10;
4653 if (i < 0)
4654 i = (int)((unsigned int)~0 >> 1);
4655 debug1("ParseNum1000 got %d\n", i);
4656 *var = i;
4657 return 0;
4658 }
4659
4660 static struct win *
4661 WindowByName(s)
4662 char *s;
4663 {
4664 struct win *p;
4665
4666 for (p = windows; p; p = p->w_next)
4667 if (!strcmp(p->w_title, s))
4668 return p;
4669 for (p = windows; p; p = p->w_next)
4670 if (!strncmp(p->w_title, s, strlen(s)))
4671 return p;
4672 return 0;
4673 }
4674
4675 static int
4676 WindowByNumber(str)
4677 char *str;
4678 {
4679 int i;
4680 char *s;
4681
4682 for (i = 0, s = str; *s; s++)
4683 {
4684 if (*s < '0' || *s > '9')
4685 break;
4686 i = i * 10 + (*s - '0');
4687 }
4688 return *s ? -1 : i;
4689 }
4690
4691 /*
4692 * Get window number from Name or Number string.
4693 * Numbers are tried first, then names, a prefix match suffices.
4694 * Be careful when assigning numeric strings as WindowTitles.
4695 */
4696 int
4697 WindowByNoN(str)
4698 char *str;
4699 {
4700 int i;
4701 struct win *p;
4702
4703 if ((i = WindowByNumber(str)) < 0 || i >= MAXWIN)
4704 {
4705 if ((p = WindowByName(str)))
4706 return p->w_number;
4707 return -1;
4708 }
4709 return i;
4710 }
4711
4712 static int
4713 ParseWinNum(act, var)
4714 struct action *act;
4715 int *var;
4716 {
4717 char **args = act->args;
4718 int i = 0;
4719
4720 if (*args == 0 || args[1])
4721 {
4722 Msg(0, "%s: %s: one argument required.", rc_name, comms[act->nr].name);
4723 return -1;
4724 }
4725
4726 i = WindowByNoN(*args);
4727 if (i < 0)
4728 {
4729 Msg(0, "%s: %s: invalid argument. Give window number or name.",
4730 rc_name, comms[act->nr].name);
4731 return -1;
4732 }
4733 debug1("ParseWinNum got %d\n", i);
4734 *var = i;
4735 return 0;
4736 }
4737
4738 static int
4739 ParseBase(act, p, var, base, bname)
4740 struct action *act;
4741 char *p;
4742 int *var;
4743 int base;
4744 char *bname;
4745 {
4746 int i = 0;
4747 int c;
4748
4749 if (*p == 0)
4750 {
4751 Msg(0, "%s: %s: empty argument.", rc_name, comms[act->nr].name);
4752 return -1;
4753 }
4754 while ((c = *p++))
4755 {
4756 if (c >= 'a' && c <= 'z')
4757 c -= 'a' - 'A';
4758 if (c >= 'A' && c <= 'Z')
4759 c -= 'A' - ('0' + 10);
4760 c -= '0';
4761 if (c < 0 || c >= base)
4762 {
4763 Msg(0, "%s: %s: argument is not %s.", rc_name, comms[act->nr].name, bname);
4764 return -1;
4765 }
4766 i = base * i + c;
4767 }
4768 debug1("ParseBase got %d\n", i);
4769 *var = i;
4770 return 0;
4771 }
4772
4773 static int
4774 IsNum(s, base)
4775 register char *s;
4776 register int base;
4777 {
4778 for (base += '0'; *s; ++s)
4779 if (*s < '0' || *s > base)
4780 return 0;
4781 return 1;
4782 }
4783
4784 int
4785 IsNumColon(s, base, p, psize)
4786 int base, psize;
4787 char *s, *p;
4788 {
4789 char *q;
4790 if ((q = rindex(s, ':')) != 0)
4791 {
4792 strncpy(p, q + 1, psize - 1);
4793 p[psize - 1] = '\0';
4794 *q = '\0';
4795 }
4796 else
4797 *p = '\0';
4798 return IsNum(s, base);
4799 }
4800
4801 void
4802 SwitchWindow(n)
4803 int n;
4804 {
4805 struct win *p;
4806
4807 debug1("SwitchWindow %d\n", n);
4808 if (n < 0 || n >= MAXWIN)
4809 {
4810 ShowWindows(-1);
4811 return;
4812 }
4813 if ((p = wtab[n]) == 0)
4814 {
4815 ShowWindows(n);
4816 return;
4817 }
4818 if (display == 0)
4819 {
4820 fore = p;
4821 return;
4822 }
4823 if (p == D_fore)
4824 {
4825 Msg(0, "This IS window %d (%s).", n, p->w_title);
4826 return;
4827 }
4828 #ifdef MULTIUSER
4829 if (AclCheckPermWin(D_user, ACL_READ, p))
4830 {
4831 Msg(0, "Access to window %d denied.", p->w_number);
4832 return;
4833 }
4834 #endif
4835 SetForeWindow(p);
4836 Activate(fore->w_norefresh);
4837 }
4838
4839
4840 void
4841 SetCanvasWindow(cv, wi)
4842 struct canvas *cv;
4843 struct win *wi;
4844 {
4845 struct win *p = 0, **pp;
4846 struct layer *l;
4847 struct canvas *cvp, **cvpp;
4848
4849 l = cv->c_layer;
4850 display = cv->c_display;
4851
4852 if (l)
4853 {
4854 /* remove old layer */
4855 for (cvpp = &l->l_cvlist; (cvp = *cvpp); cvpp = &cvp->c_lnext)
4856 if (cvp == cv)
4857 break;
4858 ASSERT(cvp);
4859 *cvpp = cvp->c_lnext;
4860
4861 p = Layer2Window(l);
4862 l = cv->c_layer;
4863 cv->c_layer = 0;
4864
4865 if (p && cv == D_forecv)
4866 {
4867 #ifdef MULTIUSER
4868 ReleaseAutoWritelock(display, p);
4869 #endif
4870 if (p->w_silence)
4871 {
4872 SetTimeout(&p->w_silenceev, p->w_silencewait * 1000);
4873 evenq(&p->w_silenceev);
4874 }
4875 D_other = fore;
4876 D_fore = 0;
4877 }
4878 if (l->l_cvlist == 0 && (p == 0 || l != p->w_savelayer))
4879 KillLayerChain(l);
4880 }
4881
4882 /* find right layer to display on canvas */
4883 if (wi && wi->w_type != W_TYPE_GROUP)
4884 {
4885 l = &wi->w_layer;
4886 if (wi->w_savelayer && (wi->w_blocked || wi->w_savelayer->l_cvlist == 0))
4887 l = wi->w_savelayer;
4888 }
4889 else
4890 {
4891 l = &cv->c_blank;
4892 if (wi)
4893 l->l_data = (char *)wi;
4894 else
4895 l->l_data = 0;
4896 }
4897
4898 /* add our canvas to the layer's canvaslist */
4899 ASSERT(l->l_cvlist != cv);
4900 cv->c_lnext = l->l_cvlist;
4901 l->l_cvlist = cv;
4902 cv->c_layer = l;
4903 cv->c_xoff = cv->c_xs;
4904 cv->c_yoff = cv->c_ys;
4905 RethinkViewportOffsets(cv);
4906
4907 if (flayer == 0)
4908 flayer = l;
4909
4910 if (wi && wi->w_type == W_TYPE_GROUP)
4911 {
4912 /* auto-start windowlist on groups */
4913 struct display *d = display;
4914 struct layer *oldflayer = flayer;
4915 flayer = l;
4916 display_wlist(0, 0, wi);
4917 flayer = oldflayer;
4918 display = d;
4919 }
4920
4921 if (wi && D_other == wi)
4922 D_other = wi->w_next; /* Might be 0, but that's OK. */
4923 if (cv == D_forecv)
4924 {
4925 D_fore = wi;
4926 fore = D_fore; /* XXX ? */
4927 if (wi)
4928 {
4929 #ifdef MULTIUSER
4930 ObtainAutoWritelock(display, wi);
4931 #endif
4932 /*
4933 * Place the window at the head of the most-recently-used list
4934 */
4935 if (windows != wi)
4936 {
4937 for (pp = &windows; (p = *pp); pp = &p->w_next)
4938 if (p == wi)
4939 break;
4940 ASSERT(p);
4941 *pp = p->w_next;
4942 p->w_next = windows;
4943 windows = p;
4944 WListLinkChanged();
4945 }
4946 }
4947 }
4948 }
4949
4950
4951 /*
4952 * SetForeWindow changes the window in the input focus of the display.
4953 * Puts window wi in canvas display->d_forecv.
4954 */
4955 void
4956 SetForeWindow(wi)
4957 struct win *wi;
4958 {
4959 struct win *p;
4960 if (display == 0)
4961 {
4962 fore = wi;
4963 return;
4964 }
4965 p = Layer2Window(D_forecv->c_layer);
4966 SetCanvasWindow(D_forecv, wi);
4967 if (p)
4968 WindowChanged(p, 'u');
4969 if (wi)
4970 WindowChanged(wi, 'u');
4971 flayer = D_forecv->c_layer;
4972 /* Activate called afterwards, so no RefreshHStatus needed */
4973 }
4974
4975
4976 /*****************************************************************/
4977
4978 /*
4979 * Activate - make fore window active
4980 * norefresh = -1 forces a refresh, disregard all_norefresh then.
4981 */
4982 void
4983 Activate(norefresh)
4984 int norefresh;
4985 {
4986 debug1("Activate(%d)\n", norefresh);
4987 if (display == 0)
4988 return;
4989 if (D_status)
4990 {
4991 Msg(0, "%s", ""); /* wait till mintime (keep gcc quiet) */
4992 RemoveStatus();
4993 }
4994
4995 if (MayResizeLayer(D_forecv->c_layer))
4996 ResizeLayer(D_forecv->c_layer, D_forecv->c_xe - D_forecv->c_xs + 1, D_forecv->c_ye - D_forecv->c_ys + 1, display);
4997
4998 fore = D_fore;
4999 if (fore)
5000 {
5001 /* XXX ? */
5002 if (fore->w_monitor != MON_OFF)
5003 fore->w_monitor = MON_ON;
5004 fore->w_bell = BELL_ON;
5005 WindowChanged(fore, 'f');
5006
5007 #if 0
5008 if (ResizeDisplay(fore->w_width, fore->w_height))
5009 {
5010 debug2("Cannot resize from (%d,%d)", D_width, D_height);
5011 debug2(" to (%d,%d) -> resize window\n", fore->w_width, fore->w_height);
5012 DoResize(D_width, D_height);
5013 }
5014 #endif
5015 }
5016 Redisplay(norefresh + all_norefresh);
5017 }
5018
5019
5020 static int
5021 NextWindow()
5022 {
5023 register struct win **pp;
5024 int n = fore ? fore->w_number : MAXWIN;
5025 struct win *group = fore ? fore->w_group : 0;
5026
5027 for (pp = fore ? wtab + n + 1 : wtab; pp != wtab + n; pp++)
5028 {
5029 if (pp == wtab + MAXWIN)
5030 pp = wtab;
5031 if (*pp)
5032 {
5033 if (!fore || group == (*pp)->w_group)
5034 break;
5035 }
5036 }
5037 if (pp == wtab + n)
5038 return -1;
5039 return pp - wtab;
5040 }
5041
5042 static int
5043 PreviousWindow()
5044 {
5045 register struct win **pp;
5046 int n = fore ? fore->w_number : -1;
5047 struct win *group = fore ? fore->w_group : 0;
5048
5049 for (pp = wtab + n - 1; pp != wtab + n; pp--)
5050 {
5051 if (pp == wtab - 1)
5052 pp = wtab + MAXWIN - 1;
5053 if (*pp)
5054 {
5055 if (!fore || group == (*pp)->w_group)
5056 break;
5057 }
5058 }
5059 if (pp == wtab + n)
5060 return -1;
5061 return pp - wtab;
5062 }
5063
5064 static int
5065 MoreWindows()
5066 {
5067 char *m = "No other window.";
5068 if (windows && (fore == 0 || windows->w_next))
5069 return 1;
5070 if (fore == 0)
5071 {
5072 Msg(0, "No window available");
5073 return 0;
5074 }
5075 Msg(0, m, fore->w_number); /* other arg for nethack */
5076 return 0;
5077 }
5078
5079 static void
5080 UpdateLayoutCanvas(cv, wi)
5081 struct canvas *cv;
5082 struct win *wi;
5083 {
5084 for (; cv; cv = cv->c_slnext)
5085 {
5086 if (cv->c_layer && Layer2Window(cv->c_layer) == wi)
5087 {
5088 /* A simplistic version of SetCanvasWindow(cv, 0) */
5089 struct layer *l = cv->c_layer;
5090 cv->c_layer = 0;
5091 if (l->l_cvlist == 0 && (wi == 0 || l != wi->w_savelayer))
5092 KillLayerChain(l);
5093 l = &cv->c_blank;
5094 l->l_data = 0;
5095 if (l->l_cvlist != cv)
5096 {
5097 cv->c_lnext = l->l_cvlist;
5098 l->l_cvlist = cv;
5099 }
5100 cv->c_layer = l;
5101 /* Do not end here. Multiple canvases can have the same window */
5102 }
5103
5104 if (cv->c_slperp)
5105 UpdateLayoutCanvas(cv->c_slperp, wi);
5106 }
5107 }
5108
5109 void
5110 KillWindow(wi)
5111 struct win *wi;
5112 {
5113 struct win **pp, *p;
5114 struct canvas *cv;
5115 int gotone;
5116 struct layout *lay;
5117
5118 /*
5119 * Remove window from linked list.
5120 */
5121 for (pp = &windows; (p = *pp); pp = &p->w_next)
5122 if (p == wi)
5123 break;
5124 ASSERT(p);
5125 *pp = p->w_next;
5126 wi->w_inlen = 0;
5127 wtab[wi->w_number] = 0;
5128
5129 if (windows == 0)
5130 {
5131 FreeWindow(wi);
5132 Finit(0);
5133 }
5134
5135 /*
5136 * switch to different window on all canvases
5137 */
5138 for (display = displays; display; display = display->d_next)
5139 {
5140 gotone = 0;
5141 for (cv = D_cvlist; cv; cv = cv->c_next)
5142 {
5143 if (Layer2Window(cv->c_layer) != wi)
5144 continue;
5145 /* switch to other window */
5146 SetCanvasWindow(cv, FindNiceWindow(D_other, 0));
5147 gotone = 1;
5148 }
5149 if (gotone)
5150 {
5151 #ifdef ZMODEM
5152 if (wi->w_zdisplay == display)
5153 {
5154 D_blocked = 0;
5155 D_readev.condpos = D_readev.condneg = 0;
5156 }
5157 #endif
5158 Activate(-1);
5159 }
5160 }
5161
5162 /* do the same for the layouts */
5163 for (lay = layouts; lay; lay = lay->lay_next)
5164 UpdateLayoutCanvas(&lay->lay_canvas, wi);
5165
5166 FreeWindow(wi);
5167 WindowChanged((struct win *)0, 'w');
5168 WindowChanged((struct win *)0, 'W');
5169 WindowChanged((struct win *)0, 0);
5170 }
5171
5172 static void
5173 LogToggle(on)
5174 int on;
5175 {
5176 char buf[1024];
5177
5178 if ((fore->w_log != 0) == on)
5179 {
5180 if (display && !*rc_name)
5181 Msg(0, "You are %s logging.", on ? "already" : "not");
5182 return;
5183 }
5184 if (fore->w_log != 0)
5185 {
5186 Msg(0, "Logfile \"%s\" closed.", fore->w_log->name);
5187 logfclose(fore->w_log);
5188 fore->w_log = 0;
5189 WindowChanged(fore, 'f');
5190 return;
5191 }
5192 if (DoStartLog(fore, buf, sizeof(buf)))
5193 {
5194 Msg(errno, "Error opening logfile \"%s\"", buf);
5195 return;
5196 }
5197 if (ftell(fore->w_log->fp) == 0)
5198 Msg(0, "Creating logfile \"%s\".", fore->w_log->name);
5199 else
5200 Msg(0, "Appending to logfile \"%s\".", fore->w_log->name);
5201 WindowChanged(fore, 'f');
5202 }
5203
5204 char *
5205 AddWindows(buf, len, flags, where)
5206 char *buf;
5207 int len;
5208 int flags;
5209 int where;
5210 {
5211 register char *s, *ss;
5212 register struct win **pp, *p;
5213 register char *cmd;
5214 int l;
5215
5216 s = ss = buf;
5217 for (pp = ((flags & 4) && where >= 0) ? wtab + where + 1: wtab; pp < wtab + MAXWIN; pp++)
5218 {
5219 if (pp - wtab == where && ss == buf)
5220 ss = s;
5221 if ((p = *pp) == 0)
5222 continue;
5223 if ((flags & 1) && display && p == D_fore)
5224 continue;
5225 if (D_fore && D_fore->w_group != p->w_group)
5226 continue;
5227
5228 cmd = p->w_title;
5229 l = strlen(cmd);
5230 if (l > 20)
5231 l = 20;
5232 if (s - buf + l > len - 24)
5233 break;
5234 if (s > buf || (flags & 4))
5235 {
5236 *s++ = ' ';
5237 *s++ = ' ';
5238 }
5239 sprintf(s, "%d", p->w_number);
5240 if (p->w_number == where)
5241 ss = s;
5242 s += strlen(s);
5243 if (display && p == D_fore)
5244 *s++ = '*';
5245 if (!(flags & 2))
5246 {
5247 if (display && p == D_other)
5248 *s++ = '-';
5249 s = AddWindowFlags(s, len, p);
5250 }
5251 *s++ = ' ';
5252 strncpy(s, cmd, l);
5253 s += l;
5254 }
5255 *s = 0;
5256 return ss;
5257 }
5258
5259 char *
5260 AddWindowFlags(buf, len, p)
5261 char *buf;
5262 int len;
5263 struct win *p;
5264 {
5265 char *s = buf;
5266 if (p == 0 || len < 12)
5267 {
5268 *s = 0;
5269 return s;
5270 }
5271 #if 0
5272 if (display && p == D_fore)
5273 *s++ = '*';
5274 if (display && p == D_other)
5275 *s++ = '-';
5276 #endif
5277 if (p->w_layer.l_cvlist && p->w_layer.l_cvlist->c_lnext)
5278 *s++ = '&';
5279 if (p->w_monitor == MON_DONE
5280 #ifdef MULTIUSER
5281 && (ACLBYTE(p->w_mon_notify, D_user->u_id) & ACLBIT(D_user->u_id))
5282 #endif
5283 )
5284 *s++ = '@';
5285 if (p->w_bell == BELL_DONE)
5286 *s++ = '!';
5287 #ifdef UTMPOK
5288 if (p->w_slot != (slot_t) 0 && p->w_slot != (slot_t) -1)
5289 *s++ = '$';
5290 #endif
5291 if (p->w_log != 0)
5292 {
5293 strcpy(s, "(L)");
5294 s += 3;
5295 }
5296 if (p->w_ptyfd < 0 && p->w_type != W_TYPE_GROUP)
5297 *s++ = 'Z';
5298 *s = 0;
5299 return s;
5300 }
5301
5302 char *
5303 AddOtherUsers(buf, len, p)
5304 char *buf;
5305 int len;
5306 struct win *p;
5307 {
5308 struct display *d, *olddisplay = display;
5309 struct canvas *cv;
5310 char *s;
5311 int l;
5312
5313 s = buf;
5314 for (display = displays; display; display = display->d_next)
5315 {
5316 if (olddisplay && D_user == olddisplay->d_user)
5317 continue;
5318 for (cv = D_cvlist; cv; cv = cv->c_next)
5319 if (Layer2Window(cv->c_layer) == p)
5320 break;
5321 if (!cv)
5322 continue;
5323 for (d = displays; d && d != display; d = d->d_next)
5324 if (D_user == d->d_user)
5325 break;
5326 if (d && d != display)
5327 continue;
5328 if (len > 1 && s != buf)
5329 {
5330 *s++ = ',';
5331 len--;
5332 }
5333 l = strlen(D_user->u_name);
5334 if (l + 1 > len)
5335 break;
5336 strcpy(s, D_user->u_name);
5337 s += l;
5338 len -= l;
5339 }
5340 *s = 0;
5341 display = olddisplay;
5342 return s;
5343 }
5344
5345 void
5346 ShowWindows(where)
5347 int where;
5348 {
5349 char buf[1024];
5350 char *s, *ss;
5351
5352 if (!display)
5353 return;
5354 if (where == -1 && D_fore)
5355 where = D_fore->w_number;
5356 ss = AddWindows(buf, sizeof(buf), 0, where);
5357 s = buf + strlen(buf);
5358 if (ss - buf > D_width / 2)
5359 {
5360 ss -= D_width / 2;
5361 if (s - ss < D_width)
5362 {
5363 ss = s - D_width;
5364 if (ss < buf)
5365 ss = buf;
5366 }
5367 }
5368 else
5369 ss = buf;
5370 Msg(0, "%s", ss);
5371 }
5372
5373 static void
5374 ShowInfo()
5375 {
5376 char buf[512], *p;
5377 register struct win *wp = fore;
5378 register int i;
5379
5380 if (wp == 0)
5381 {
5382 Msg(0, "(%d,%d)/(%d,%d) no window", D_x + 1, D_y + 1, D_width, D_height);
5383 return;
5384 }
5385 p = buf;
5386 if (buf < (p += GetAnsiStatus(wp, p)))
5387 *p++ = ' ';
5388 sprintf(p, "(%d,%d)/(%d,%d)",
5389 wp->w_x + 1, wp->w_y + 1, wp->w_width, wp->w_height);
5390 #ifdef COPY_PASTE
5391 sprintf(p += strlen(p), "+%d", wp->w_histheight);
5392 #endif
5393 sprintf(p += strlen(p), " %c%sflow",
5394 (wp->w_flow & FLOW_NOW) ? '+' : '-',
5395 (wp->w_flow & FLOW_AUTOFLAG) ? "" :
5396 ((wp->w_flow & FLOW_AUTO) ? "(+)" : "(-)"));
5397 if (!wp->w_wrap) sprintf(p += strlen(p), " -wrap");
5398 if (wp->w_insert) sprintf(p += strlen(p), " ins");
5399 if (wp->w_origin) sprintf(p += strlen(p), " org");
5400 if (wp->w_keypad) sprintf(p += strlen(p), " app");
5401 if (wp->w_log) sprintf(p += strlen(p), " log");
5402 if (wp->w_monitor != MON_OFF
5403 #ifdef MULTIUSER
5404 && (ACLBYTE(wp->w_mon_notify, D_user->u_id) & ACLBIT(D_user->u_id))
5405 #endif
5406 )
5407 sprintf(p += strlen(p), " mon");
5408 if (wp->w_mouse) sprintf(p += strlen(p), " mouse");
5409 #ifdef COLOR
5410 if (wp->w_bce) sprintf(p += strlen(p), " bce");
5411 #endif
5412 if (!wp->w_c1) sprintf(p += strlen(p), " -c1");
5413 if (wp->w_norefresh) sprintf(p += strlen(p), " nored");
5414
5415 p += strlen(p);
5416 #ifdef FONT
5417 # ifdef ENCODINGS
5418 if (wp->w_encoding && (display == 0 || D_encoding != wp->w_encoding || EncodingDefFont(wp->w_encoding) <= 0))
5419 {
5420 *p++ = ' ';
5421 strcpy(p, EncodingName(wp->w_encoding));
5422 p += strlen(p);
5423 }
5424 # ifdef UTF8
5425 if (wp->w_encoding != UTF8)
5426 # endif
5427 # endif
5428 if (D_CC0 || (D_CS0 && *D_CS0))
5429 {
5430 if (wp->w_gr == 2)
5431 {
5432 sprintf(p, " G%c", wp->w_Charset + '0');
5433 if (wp->w_FontE >= ' ')
5434 p[3] = wp->w_FontE;
5435 else
5436 {
5437 p[3] = '^';
5438 p[4] = wp->w_FontE ^ 0x40;
5439 p++;
5440 }
5441 p[4] = '[';
5442 p++;
5443 }
5444 else if (wp->w_gr)
5445 sprintf(p++, " G%c%c[", wp->w_Charset + '0', wp->w_CharsetR + '0');
5446 else
5447 sprintf(p, " G%c[", wp->w_Charset + '0');
5448 p += 4;
5449 for (i = 0; i < 4; i++)
5450 {
5451 if (wp->w_charsets[i] == ASCII)
5452 *p++ = 'B';
5453 else if (wp->w_charsets[i] >= ' ')
5454 *p++ = wp->w_charsets[i];
5455 else
5456 {
5457 *p++ = '^';
5458 *p++ = wp->w_charsets[i] ^ 0x40;
5459 }
5460 }
5461 *p++ = ']';
5462 *p = 0;
5463 }
5464 #endif
5465
5466 if (wp->w_type == W_TYPE_PLAIN)
5467 {
5468 /* add info about modem control lines */
5469 *p++ = ' ';
5470 TtyGetModemStatus(wp->w_ptyfd, p);
5471 }
5472 #ifdef BUILTIN_TELNET
5473 else if (wp->w_type == W_TYPE_TELNET)
5474 {
5475 *p++ = ' ';
5476 TelStatus(wp, p, sizeof(buf) - 1 - (p - buf));
5477 }
5478 #endif
5479 Msg(0, "%s %d(%s)", buf, wp->w_number, wp->w_title);
5480 }
5481
5482 static void
5483 ShowDInfo()
5484 {
5485 char buf[512], *p;
5486 if (display == 0)
5487 return;
5488 p = buf;
5489 sprintf(p, "(%d,%d)", D_width, D_height),
5490 p += strlen(p);
5491 #ifdef ENCODINGS
5492 if (D_encoding)
5493 {
5494 *p++ = ' ';
5495 strcpy(p, EncodingName(D_encoding));
5496 p += strlen(p);
5497 }
5498 #endif
5499 if (D_CXT)
5500 {
5501 strcpy(p, " xterm");
5502 p += strlen(p);
5503 }
5504 #ifdef COLOR
5505 if (D_hascolor)
5506 {
5507 strcpy(p, " color");
5508 p += strlen(p);
5509 }
5510 #endif
5511 #ifdef FONT
5512 if (D_CG0)
5513 {
5514 strcpy(p, " iso2022");
5515 p += strlen(p);
5516 }
5517 else if (D_CS0 && *D_CS0)
5518 {
5519 strcpy(p, " altchar");
5520 p += strlen(p);
5521 }
5522 #endif
5523 Msg(0, "%s", buf);
5524 }
5525
5526 static void
5527 AKAfin(buf, len, data)
5528 char *buf;
5529 int len;
5530 char *data; /* dummy */
5531 {
5532 ASSERT(display);
5533 if (len && fore)
5534 ChangeAKA(fore, buf, strlen(buf));
5535 }
5536
5537 static void
5538 InputAKA()
5539 {
5540 char *s, *ss;
5541 int n;
5542 Input("Set window's title to: ", sizeof(fore->w_akabuf) - 1, INP_COOKED, AKAfin, NULL, 0);
5543 s = fore->w_title;
5544 if (!s)
5545 return;
5546 for (; *s; s++)
5547 {
5548 if ((*(unsigned char *)s & 0x7f) < 0x20 || *s == 0x7f)
5549 continue;
5550 ss = s;
5551 n = 1;
5552 LayProcess(&ss, &n);
5553 }
5554 }
5555
5556 static void
5557 Colonfin(buf, len, data)
5558 char *buf;
5559 int len;
5560 char *data; /* dummy */
5561 {
5562 char mbuf[256];
5563
5564 RemoveStatus();
5565 if (buf[len] == '\t')
5566 {
5567 int m, x;
5568 int l = 0, r = RC_LAST;
5569 int showmessage = 0;
5570 char *s = buf;
5571
5572 while (*s && s - buf < len)
5573 if (*s++ == ' ')
5574 return;
5575
5576 /* Showing a message when there's no hardstatus or caption cancels the input */
5577 if (display &&
5578 (captionalways || D_has_hstatus == HSTATUS_LASTLINE || (D_canvas.c_slperp && D_canvas.c_slperp->c_slnext)))
5579 showmessage = 1;
5580
5581 while (l <= r)
5582 {
5583 m = (l + r) / 2;
5584 x = strncmp(buf, comms[m].name, len);
5585 if (x > 0)
5586 l = m + 1;
5587 else if (x < 0)
5588 r = m - 1;
5589 else
5590 {
5591 s = mbuf;
5592 for (l = m - 1; l >= 0 && strncmp(buf, comms[l].name, len) == 0; l--)
5593 ;
5594 for (m = ++l; m <= r && strncmp(buf, comms[m].name, len) == 0 && s - mbuf < sizeof(mbuf); m++)
5595 s += snprintf(s, sizeof(mbuf) - (s - mbuf), " %s", comms[m].name);
5596 if (l < m - 1)
5597 {
5598 if (showmessage)
5599 Msg(0, "Possible commands:%s", mbuf);
5600 }
5601 else
5602 {
5603 s = mbuf;
5604 len = snprintf(mbuf, sizeof(mbuf), "%s \t", comms[l].name + len);
5605 if (len > 0 && len < sizeof(mbuf))
5606 LayProcess(&s, &len);
5607 }
5608 break;
5609 }
5610 }
5611 if (l > r && showmessage)
5612 Msg(0, "No commands matching '%*s'", len, buf);
5613 return;
5614 }
5615
5616 if (!len || buf[len])
5617 return;
5618
5619 len = strlen(buf) + 1;
5620 if (len > (int)sizeof(mbuf))
5621 RcLine(buf, len);
5622 else
5623 {
5624 bcopy(buf, mbuf, len);
5625 RcLine(mbuf, sizeof mbuf);
5626 }
5627 }
5628
5629 static void
5630 SelectFin(buf, len, data)
5631 char *buf;
5632 int len;
5633 char *data; /* dummy */
5634 {
5635 int n;
5636
5637 if (!len || !display)
5638 return;
5639 if (len == 1 && *buf == '-')
5640 {
5641 SetForeWindow((struct win *)0);
5642 Activate(0);
5643 return;
5644 }
5645 if ((n = WindowByNoN(buf)) < 0)
5646 return;
5647 SwitchWindow(n);
5648 }
5649
5650 static void
5651 SelectLayoutFin(buf, len, data)
5652 char *buf;
5653 int len;
5654 char *data; /* dummy */
5655 {
5656 struct layout *lay;
5657
5658 if (!len || !display)
5659 return;
5660 if (len == 1 && *buf == '-')
5661 {
5662 LoadLayout((struct layout *)0, (struct canvas *)0);
5663 Activate(0);
5664 return;
5665 }
5666 lay = FindLayout(buf);
5667 if (!lay)
5668 Msg(0, "No such layout\n");
5669 else if (lay == D_layout)
5670 Msg(0, "This IS layout %d (%s).\n", lay->lay_number, lay->lay_title);
5671 else
5672 {
5673 LoadLayout(lay, &D_canvas);
5674 Activate(0);
5675 }
5676 }
5677
5678
5679 static void
5680 InputSelect()
5681 {
5682 Input("Switch to window: ", 20, INP_COOKED, SelectFin, NULL, 0);
5683 }
5684
5685 static char setenv_var[31];
5686
5687
5688 static void
5689 SetenvFin1(buf, len, data)
5690 char *buf;
5691 int len;
5692 char *data; /* dummy */
5693 {
5694 if (!len || !display)
5695 return;
5696 InputSetenv(buf);
5697 }
5698
5699 static void
5700 SetenvFin2(buf, len, data)
5701 char *buf;
5702 int len;
5703 char *data; /* dummy */
5704 {
5705 if (!len || !display)
5706 return;
5707 debug2("SetenvFin2: setenv '%s' '%s'\n", setenv_var, buf);
5708 xsetenv(setenv_var, buf);
5709 MakeNewEnv();
5710 }
5711
5712 static void
5713 InputSetenv(arg)
5714 char *arg;
5715 {
5716 static char setenv_buf[50 + sizeof(setenv_var)]; /* need to be static here, cannot be freed */
5717
5718 if (arg)
5719 {
5720 strncpy(setenv_var, arg, sizeof(setenv_var) - 1);
5721 sprintf(setenv_buf, "Enter value for %s: ", setenv_var);
5722 Input(setenv_buf, 30, INP_COOKED, SetenvFin2, NULL, 0);
5723 }
5724 else
5725 Input("Setenv: Enter variable name: ", 30, INP_COOKED, SetenvFin1, NULL, 0);
5726 }
5727
5728 /*
5729 * the following options are understood by this parser:
5730 * -f, -f0, -f1, -fy, -fa
5731 * -t title, -T terminal-type, -h height-of-scrollback,
5732 * -ln, -l0, -ly, -l1, -l
5733 * -a, -M, -L
5734 */
5735 void
5736 DoScreen(fn, av)
5737 char *fn, **av;
5738 {
5739 struct NewWindow nwin;
5740 register int num;
5741 char buf[20];
5742
5743 nwin = nwin_undef;
5744 while (av && *av && av[0][0] == '-')
5745 {
5746 if (av[0][1] == '-')
5747 {
5748 av++;
5749 break;
5750 }
5751 switch (av[0][1])
5752 {
5753 case 'f':
5754 switch (av[0][2])
5755 {
5756 case 'n':
5757 case '0':
5758 nwin.flowflag = FLOW_NOW * 0;
5759 break;
5760 case 'y':
5761 case '1':
5762 case '\0':
5763 nwin.flowflag = FLOW_NOW * 1;
5764 break;
5765 case 'a':
5766 nwin.flowflag = FLOW_AUTOFLAG;
5767 break;
5768 default:
5769 break;
5770 }
5771 break;
5772 case 't': /* no more -k */
5773 if (av[0][2])
5774 nwin.aka = &av[0][2];
5775 else if (*++av)
5776 nwin.aka = *av;
5777 else
5778 --av;
5779 break;
5780 case 'T':
5781 if (av[0][2])
5782 nwin.term = &av[0][2];
5783 else if (*++av)
5784 nwin.term = *av;
5785 else
5786 --av;
5787 break;
5788 case 'h':
5789 if (av[0][2])
5790 nwin.histheight = atoi(av[0] + 2);
5791 else if (*++av)
5792 nwin.histheight = atoi(*av);
5793 else
5794 --av;
5795 break;
5796 #ifdef LOGOUTOK
5797 case 'l':
5798 switch (av[0][2])
5799 {
5800 case 'n':
5801 case '0':
5802 nwin.lflag = 0;
5803 break;
5804 case 'y':
5805 case '1':
5806 case '\0':
5807 nwin.lflag = 1;
5808 break;
5809 case 'a':
5810 nwin.lflag = 3;
5811 break;
5812 default:
5813 break;
5814 }
5815 break;
5816 #endif
5817 case 'a':
5818 nwin.aflag = 1;
5819 break;
5820 case 'M':
5821 nwin.monitor = MON_ON;
5822 break;
5823 case 'L':
5824 nwin.Lflag = 1;
5825 break;
5826 default:
5827 Msg(0, "%s: screen: invalid option -%c.", fn, av[0][1]);
5828 break;
5829 }
5830 ++av;
5831 }
5832 num = 0;
5833 if (av && *av && IsNumColon(*av, 10, buf, sizeof(buf)))
5834 {
5835 if (*buf != '\0')
5836 nwin.aka = buf;
5837 num = atoi(*av);
5838 if (num < 0 || num > MAXWIN - 1)
5839 {
5840 Msg(0, "%s: illegal screen number %d.", fn, num);
5841 num = 0;
5842 }
5843 nwin.StartAt = num;
5844 ++av;
5845 }
5846 if (av && *av)
5847 {
5848 nwin.args = av;
5849 if (!nwin.aka)
5850 nwin.aka = Filename(*av);
5851 }
5852 MakeWindow(&nwin);
5853 }
5854
5855 #ifdef COPY_PASTE
5856 /*
5857 * CompileKeys must be called before Markroutine is first used.
5858 * to initialise the keys with defaults, call CompileKeys(NULL, mark_key_tab);
5859 *
5860 * s is an ascii string in a termcap-like syntax. It looks like
5861 * "j=u:k=d:l=r:h=l: =.:" and so on...
5862 * this example rebinds the cursormovement to the keys u (up), d (down),
5863 * l (left), r (right). placing a mark will now be done with ".".
5864 */
5865 int
5866 CompileKeys(s, sl, array)
5867 char *s;
5868 int sl;
5869 unsigned char *array;
5870 {
5871 int i;
5872 unsigned char key, value;
5873
5874 if (sl == 0)
5875 {
5876 for (i = 0; i < 256; i++)
5877 array[i] = i;
5878 return 0;
5879 }
5880 debug1("CompileKeys: '%s'\n", s);
5881 while (sl)
5882 {
5883 key = *(unsigned char *)s++;
5884 if (*s != '=' || sl < 3)
5885 return -1;
5886 sl--;
5887 do
5888 {
5889 s++;
5890 sl -= 2;
5891 value = *(unsigned char *)s++;
5892 array[value] = key;
5893 }
5894 while (*s == '=' && sl >= 2);
5895 if (sl == 0)
5896 break;
5897 if (*s++ != ':')
5898 return -1;
5899 sl--;
5900 }
5901 return 0;
5902 }
5903 #endif /* COPY_PASTE */
5904
5905 /*
5906 * Asynchronous input functions
5907 */
5908
5909 #if defined(DETACH) && defined(POW_DETACH)
5910 static void
5911 pow_detach_fn(buf, len, data)
5912 char *buf;
5913 int len;
5914 char *data; /* dummy */
5915 {
5916 debug("pow_detach_fn called\n");
5917 if (len)
5918 {
5919 *buf = 0;
5920 return;
5921 }
5922 if (ktab[(int)(unsigned char)*buf].nr != RC_POW_DETACH)
5923 {
5924 if (display)
5925 write(D_userfd, "\007", 1);
5926 Msg(0, "Detach aborted.");
5927 }
5928 else
5929 Detach(D_POWER);
5930 }
5931 #endif /* POW_DETACH */
5932
5933 #ifdef COPY_PASTE
5934 static void
5935 copy_reg_fn(buf, len, data)
5936 char *buf;
5937 int len;
5938 char *data; /* dummy */
5939 {
5940 struct plop *pp = plop_tab + (int)(unsigned char)*buf;
5941
5942 if (len)
5943 {
5944 *buf = 0;
5945 return;
5946 }
5947 if (pp->buf)
5948 free(pp->buf);
5949 pp->buf = 0;
5950 pp->len = 0;
5951 if (D_user->u_plop.len)
5952 {
5953 if ((pp->buf = (char *)malloc(D_user->u_plop.len)) == NULL)
5954 {
5955 Msg(0, strnomem);
5956 return;
5957 }
5958 bcopy(D_user->u_plop.buf, pp->buf, D_user->u_plop.len);
5959 }
5960 pp->len = D_user->u_plop.len;
5961 #ifdef ENCODINGS
5962 pp->enc = D_user->u_plop.enc;
5963 #endif
5964 Msg(0, "Copied %d characters into register %c", D_user->u_plop.len, *buf);
5965 }
5966
5967 static void
5968 ins_reg_fn(buf, len, data)
5969 char *buf;
5970 int len;
5971 char *data; /* dummy */
5972 {
5973 struct plop *pp = plop_tab + (int)(unsigned char)*buf;
5974
5975 if (len)
5976 {
5977 *buf = 0;
5978 return;
5979 }
5980 if (!fore)
5981 return; /* Input() should not call us w/o fore, but you never know... */
5982 if (*buf == '.')
5983 Msg(0, "ins_reg_fn: Warning: pasting real register '.'!");
5984 if (pp->buf)
5985 {
5986 MakePaster(&fore->w_paster, pp->buf, pp->len, 0);
5987 return;
5988 }
5989 Msg(0, "Empty register.");
5990 }
5991 #endif /* COPY_PASTE */
5992
5993 static void
5994 process_fn(buf, len, data)
5995 char *buf;
5996 int len;
5997 char *data; /* dummy */
5998 {
5999 struct plop *pp = plop_tab + (int)(unsigned char)*buf;
6000
6001 if (len)
6002 {
6003 *buf = 0;
6004 return;
6005 }
6006 if (pp->buf)
6007 {
6008 ProcessInput(pp->buf, pp->len);
6009 return;
6010 }
6011 Msg(0, "Empty register.");
6012 }
6013
6014 static void
6015 confirm_fn(buf, len, data)
6016 char *buf;
6017 int len;
6018 char *data;
6019 {
6020 struct action act;
6021
6022 if (len || (*buf != 'y' && *buf != 'Y'))
6023 {
6024 *buf = 0;
6025 return;
6026 }
6027 act.nr = *(int *)data;
6028 act.args = noargs;
6029 act.argl = 0;
6030 DoAction(&act, -1);
6031 }
6032
6033 #ifdef MULTIUSER
6034 struct inputsu
6035 {
6036 struct acluser **up;
6037 char name[24];
6038 char pw1[130]; /* FreeBSD crypts to 128 bytes */
6039 char pw2[130];
6040 };
6041
6042 static void
6043 su_fin(buf, len, data)
6044 char *buf;
6045 int len;
6046 char *data;
6047 {
6048 struct inputsu *i = (struct inputsu *)data;
6049 char *p;
6050 int l;
6051
6052 if (!*i->name)
6053 { p = i->name; l = sizeof(i->name) - 1; }
6054 else if (!*i->pw1)
6055 { strcpy(p = i->pw1, "\377"); l = sizeof(i->pw1) - 1; }
6056 else
6057 { strcpy(p = i->pw2, "\377"); l = sizeof(i->pw2) - 1; }
6058 if (buf && len)
6059 strncpy(p, buf, 1 + (l < len) ? l : len);
6060 if (!*i->name)
6061 Input("Screen User: ", sizeof(i->name) - 1, INP_COOKED, su_fin, (char *)i, 0);
6062 else if (!*i->pw1)
6063 Input("User's UNIX Password: ", sizeof(i->pw1)-1, INP_COOKED|INP_NOECHO, su_fin, (char *)i, 0);
6064 else if (!*i->pw2)
6065 Input("User's Screen Password: ", sizeof(i->pw2)-1, INP_COOKED|INP_NOECHO, su_fin, (char *)i, 0);
6066 else
6067 {
6068 if ((p = DoSu(i->up, i->name, i->pw2, i->pw1)))
6069 Msg(0, "%s", p);
6070 free((char *)i);
6071 }
6072 }
6073
6074 static int
6075 InputSu(w, up, name)
6076 struct win *w;
6077 struct acluser **up;
6078 char *name;
6079 {
6080 struct inputsu *i;
6081
6082 if (!(i = (struct inputsu *)calloc(1, sizeof(struct inputsu))))
6083 return -1;
6084
6085 i->up = up;
6086 if (name && *name)
6087 su_fin(name, (int)strlen(name), (char *)i); /* can also initialise stuff */
6088 else
6089 su_fin((char *)0, 0, (char *)i);
6090 return 0;
6091 }
6092 #endif /* MULTIUSER */
6093
6094 #ifdef PASSWORD
6095
6096 static void
6097 pass1(buf, len, data)
6098 char *buf;
6099 int len;
6100 char *data;
6101 {
6102 struct acluser *u = (struct acluser *)data;
6103
6104 if (!*buf)
6105 return;
6106 ASSERT(u);
6107 if (u->u_password != NullStr)
6108 free((char *)u->u_password);
6109 u->u_password = SaveStr(buf);
6110 bzero(buf, strlen(buf));
6111 Input("Retype new password:", 100, INP_NOECHO, pass2, data, 0);
6112 }
6113
6114 static void
6115 pass2(buf, len, data)
6116 char *buf;
6117 int len;
6118 char *data;
6119 {
6120 int st;
6121 char salt[3];
6122 struct acluser *u = (struct acluser *)data;
6123
6124 ASSERT(u);
6125 if (!buf || strcmp(u->u_password, buf))
6126 {
6127 Msg(0, "[ Passwords don't match - checking turned off ]");
6128 if (u->u_password != NullStr)
6129 {
6130 bzero(u->u_password, strlen(u->u_password));
6131 free((char *)u->u_password);
6132 }
6133 u->u_password = NullStr;
6134 }
6135 else if (u->u_password[0] == '\0')
6136 {
6137 Msg(0, "[ No password - no secure ]");
6138 if (buf)
6139 bzero(buf, strlen(buf));
6140 }
6141
6142 if (u->u_password != NullStr)
6143 {
6144 for (st = 0; st < 2; st++)
6145 salt[st] = 'A' + (int)((time(0) >> 6 * st) % 26);
6146 salt[2] = 0;
6147 buf = crypt(u->u_password, salt);
6148 bzero(u->u_password, strlen(u->u_password));
6149 free((char *)u->u_password);
6150 u->u_password = SaveStr(buf);
6151 bzero(buf, strlen(buf));
6152 #ifdef COPY_PASTE
6153 if (u->u_plop.buf)
6154 UserFreeCopyBuffer(u);
6155 u->u_plop.len = strlen(u->u_password);
6156 # ifdef ENCODINGS
6157 u->u_plop.enc = 0;
6158 #endif
6159 if (!(u->u_plop.buf = SaveStr(u->u_password)))
6160 {
6161 Msg(0, strnomem);
6162 D_user->u_plop.len = 0;
6163 }
6164 else
6165 Msg(0, "[ Password moved into copybuffer ]");
6166 #else /* COPY_PASTE */
6167 Msg(0, "[ Crypted password is \"%s\" ]", u->u_password);
6168 #endif /* COPY_PASTE */
6169 }
6170 }
6171 #endif /* PASSWORD */
6172
6173 static void
6174 digraph_fn(buf, len, data)
6175 char *buf;
6176 int len;
6177 char *data; /* dummy */
6178 {
6179 int ch, i, x;
6180
6181 ch = buf[len];
6182 if (ch)
6183 {
6184 buf[len + 1] = ch; /* so we can restore it later */
6185 if (ch < ' ' || ch == '\177')
6186 return;
6187 if (len >= 1 && ((*buf == 'U' && buf[1] == '+') || (*buf == '0' && (buf[1] == 'x' || buf[1] == 'X'))))
6188 {
6189 if (len == 1)
6190 return;
6191 if ((ch < '0' || ch > '9') && (ch < 'a' || ch > 'f') && (ch < 'A' || ch > 'F'))
6192 {
6193 buf[len] = '\034'; /* ^] is ignored by Input() */
6194 return;
6195 }
6196 if (len == (*buf == 'U' ? 5 : 3))
6197 buf[len] = '\n';
6198 return;
6199 }
6200 if (len && *buf == '0')
6201 {
6202 if (ch < '0' || ch > '7')
6203 {
6204 buf[len] = '\034'; /* ^] is ignored by Input() */
6205 return;
6206 }
6207 if (len == 3)
6208 buf[len] = '\n';
6209 return;
6210 }
6211 if (len == 1)
6212 buf[len] = '\n';
6213 return;
6214 }
6215 if (len < 1)
6216 return;
6217 if (buf[len + 1])
6218 {
6219 buf[len] = buf[len + 1]; /* stored above */
6220 len++;
6221 }
6222 if (len < 2)
6223 return;
6224 if (len >= 1 && ((*buf == 'U' && buf[1] == '+') || (*buf == '0' && (buf[1] == 'x' || buf[1] == 'X'))))
6225 {
6226 x = 0;
6227 for (i = 2; i < len; i++)
6228 {
6229 if (buf[i] >= '0' && buf[i] <= '9')
6230 x = x * 16 | (buf[i] - '0');
6231 else if (buf[i] >= 'a' && buf[i] <= 'f')
6232 x = x * 16 | (buf[i] - ('a' - 10));
6233 else if (buf[i] >= 'A' && buf[i] <= 'F')
6234 x = x * 16 | (buf[i] - ('A' - 10));
6235 else
6236 break;
6237 }
6238 }
6239 else if (buf[0] == '0')
6240 {
6241 x = 0;
6242 for (i = 1; i < len; i++)
6243 {
6244 if (buf[i] < '0' || buf[i] > '7')
6245 break;
6246 x = x * 8 | (buf[i] - '0');
6247 }
6248 }
6249 else
6250 {
6251 for (i = 0; i < (int)(sizeof(digraphs)/sizeof(*digraphs)); i++)
6252 if ((digraphs[i][0] == (unsigned char)buf[0] && digraphs[i][1] == (unsigned char)buf[1]) ||
6253 (digraphs[i][0] == (unsigned char)buf[1] && digraphs[i][1] == (unsigned char)buf[0]))
6254 break;
6255 if (i == (int)(sizeof(digraphs)/sizeof(*digraphs)))
6256 {
6257 Msg(0, "Unknown digraph");
6258 return;
6259 }
6260 x = digraphs[i][2];
6261 }
6262 i = 1;
6263 *buf = x;
6264 #ifdef UTF8
6265 if (flayer->l_encoding == UTF8)
6266 i = ToUtf8(buf, x); /* buf is big enough for all UTF-8 codes */
6267 #endif
6268 while(i)
6269 LayProcess(&buf, &i);
6270 }
6271
6272 #ifdef MAPKEYS
6273 int
6274 StuffKey(i)
6275 int i;
6276 {
6277 struct action *act;
6278 int discard = 0;
6279
6280 debug1("StuffKey #%d", i);
6281 #ifdef DEBUG
6282 if (i < KMAP_KEYS)
6283 debug1(" - %s", term[i + T_CAPS].tcname);
6284 #endif
6285
6286 if (i < KMAP_KEYS && D_ESCseen)
6287 {
6288 struct action *act = &D_ESCseen[i + 256];
6289 if (act->nr != RC_ILLEGAL)
6290 {
6291 D_ESCseen = 0;
6292 DoAction(act, i + 256);
6293 return 0;
6294 }
6295 discard = 1;
6296 }
6297
6298 if (i >= T_CURSOR - T_CAPS && i < T_KEYPAD - T_CAPS && D_cursorkeys)
6299 i += T_OCAPS - T_CURSOR;
6300 else if (i >= T_KEYPAD - T_CAPS && i < T_OCAPS - T_CAPS && D_keypad)
6301 i += T_OCAPS - T_CURSOR;
6302 debug1(" - action %d\n", i);
6303 flayer = D_forecv->c_layer;
6304 fore = D_fore;
6305 act = 0;
6306 #ifdef COPY_PASTE
6307 if (InMark() || InInput() || InWList())
6308 act = i < KMAP_KEYS+KMAP_AKEYS ? &mmtab[i] : &kmap_exts[i - (KMAP_KEYS+KMAP_AKEYS)].mm;
6309 #endif
6310 if ((!act || act->nr == RC_ILLEGAL) && !D_mapdefault)
6311 act = i < KMAP_KEYS+KMAP_AKEYS ? &umtab[i] : &kmap_exts[i - (KMAP_KEYS+KMAP_AKEYS)].um;
6312 if (!act || act->nr == RC_ILLEGAL)
6313 act = i < KMAP_KEYS+KMAP_AKEYS ? &dmtab[i] : &kmap_exts[i - (KMAP_KEYS+KMAP_AKEYS)].dm;
6314
6315 if (discard && (!act || act->nr != RC_COMMAND))
6316 {
6317 D_ESCseen = 0;
6318 return 0;
6319 }
6320 D_mapdefault = 0;
6321
6322 if (act == 0 || act->nr == RC_ILLEGAL)
6323 return -1;
6324 DoAction(act, 0);
6325 return 0;
6326 }
6327 #endif
6328
6329
6330 static int
6331 IsOnDisplay(wi)
6332 struct win *wi;
6333 {
6334 struct canvas *cv;
6335 ASSERT(display);
6336 for (cv = D_cvlist; cv; cv = cv->c_next)
6337 if (Layer2Window(cv->c_layer) == wi)
6338 return 1;
6339 return 0;
6340 }
6341
6342 struct win *
6343 FindNiceWindow(wi, presel)
6344 struct win *wi;
6345 char *presel;
6346 {
6347 int i;
6348
6349 debug2("FindNiceWindow %d %s\n", wi ? wi->w_number : -1 , presel ? presel : "NULL");
6350 if (presel)
6351 {
6352 i = WindowByNoN(presel);
6353 if (i >= 0)
6354 wi = wtab[i];
6355 }
6356 if (!display)
6357 return wi;
6358 #ifdef MULTIUSER
6359 if (wi && AclCheckPermWin(D_user, ACL_READ, wi))
6360 wi = 0;
6361 #endif
6362 if (!wi || (IsOnDisplay(wi) && !presel))
6363 {
6364 /* try to get another window */
6365 wi = 0;
6366 #ifdef MULTIUSER
6367 for (wi = windows; wi; wi = wi->w_next)
6368 if (!wi->w_layer.l_cvlist && !AclCheckPermWin(D_user, ACL_WRITE, wi))
6369 break;
6370 if (!wi)
6371 for (wi = windows; wi; wi = wi->w_next)
6372 if (wi->w_layer.l_cvlist && !IsOnDisplay(wi) && !AclCheckPermWin(D_user, ACL_WRITE, wi))
6373 break;
6374 if (!wi)
6375 for (wi = windows; wi; wi = wi->w_next)
6376 if (!wi->w_layer.l_cvlist && !AclCheckPermWin(D_user, ACL_READ, wi))
6377 break;
6378 if (!wi)
6379 for (wi = windows; wi; wi = wi->w_next)
6380 if (wi->w_layer.l_cvlist && !IsOnDisplay(wi) && !AclCheckPermWin(D_user, ACL_READ, wi))
6381 break;
6382 #endif
6383 if (!wi)
6384 for (wi = windows; wi; wi = wi->w_next)
6385 if (!wi->w_layer.l_cvlist)
6386 break;
6387 if (!wi)
6388 for (wi = windows; wi; wi = wi->w_next)
6389 if (wi->w_layer.l_cvlist && !IsOnDisplay(wi))
6390 break;
6391 }
6392 #ifdef MULTIUSER
6393 if (wi && AclCheckPermWin(D_user, ACL_READ, wi))
6394 wi = 0;
6395 #endif
6396 return wi;
6397 }
6398
6399 #if 0
6400
6401 /* sorted list of all commands */
6402 static struct comm **commtab;
6403 static int ncommtab;
6404
6405 void
6406 AddComms(cos, hand)
6407 struct comm *cos;
6408 void (*hand) __P((struct comm *, char **, int));
6409 {
6410 int n, i, j, r;
6411 for (n = 0; cos[n].name; n++)
6412 ;
6413 if (n == 0)
6414 return;
6415 if (commtab)
6416 commtab = (struct commt *)realloc(commtab, sizeof(*commtab) * (ncommtab + n));
6417 else
6418 commtab = (struct commt *)malloc(sizeof(*commtab) * (ncommtab + n));
6419 if (!commtab)
6420 Panic(0, strnomem);
6421 for (i = 0; i < n; i++)
6422 {
6423 for (j = 0; j < ncommtab; j++)
6424 {
6425 r = strcmp(cos[i].name, commtab[j]->name);
6426 if (r == 0)
6427 Panic(0, "Duplicate command: %s\n", cos[i].name);
6428 if (r < 0)
6429 break;
6430 }
6431 for (r = ncommtab; r > j; r--)
6432 commtab[r] = commtab[r - 1];
6433 commtab[j] = cos + i;
6434 cos[i].handler = hand;
6435 bzero(cos[i].userbits, sizeof(cos[i].userbits));
6436 ncommtab++;
6437 }
6438 }
6439
6440 struct comm *
6441 FindComm(str)
6442 char *str;
6443 {
6444 int x, m, l = 0, r = ncommtab - 1;
6445 while (l <= r)
6446 {
6447 m = (l + r) / 2;
6448 x = strcmp(str, commtab[m]->name);
6449 if (x > 0)
6450 l = m + 1;
6451 else if (x < 0)
6452 r = m - 1;
6453 else
6454 return commtab[m];
6455 }
6456 return 0;
6457 }
6458
6459 #endif
6460
6461 static int
6462 CalcSlicePercent(cv, percent)
6463 struct canvas *cv;
6464 int percent;
6465 {
6466 int w, wsum, up;
6467 if (!cv || !cv->c_slback)
6468 return percent;
6469 up = CalcSlicePercent(cv->c_slback->c_slback, percent);
6470 w = cv->c_slweight;
6471 for (cv = cv->c_slback->c_slperp, wsum = 0; cv; cv = cv->c_slnext)
6472 wsum += cv->c_slweight;
6473 if (wsum == 0)
6474 return 0;
6475 return (up * w) / wsum;
6476 }
6477
6478 static int
6479 ChangeCanvasSize(fcv, abs, diff, gflag, percent)
6480 struct canvas *fcv; /* make this canvas bigger */
6481 int abs; /* mode: 0:rel 1:abs 2:max */
6482 int diff; /* change this much */
6483 int gflag; /* go up if neccessary */
6484 int percent;
6485 {
6486 struct canvas *cv;
6487 int done, have, m, dir;
6488
6489 debug3("ChangeCanvasSize abs %d diff %d percent=%d\n", abs, diff, percent);
6490 if (abs == 0 && diff == 0)
6491 return 0;
6492 if (abs == 2)
6493 {
6494 if (diff == 0)
6495 fcv->c_slweight = 0;
6496 else
6497 {
6498 for (cv = fcv->c_slback->c_slperp; cv; cv = cv->c_slnext)
6499 cv->c_slweight = 0;
6500 fcv->c_slweight = 1;
6501 cv = fcv->c_slback->c_slback;
6502 if (gflag && cv && cv->c_slback)
6503 ChangeCanvasSize(cv, abs, diff, gflag, percent);
6504 }
6505 return diff;
6506 }
6507 if (abs)
6508 {
6509 if (diff < 0)
6510 diff = 0;
6511 if (percent && diff > percent)
6512 diff = percent;
6513 }
6514 if (percent)
6515 {
6516 int wsum, up;
6517 for (cv = fcv->c_slback->c_slperp, wsum = 0; cv; cv = cv->c_slnext)
6518 wsum += cv->c_slweight;
6519 if (wsum)
6520 {
6521 up = gflag ? CalcSlicePercent(fcv->c_slback->c_slback, percent) : percent;
6522 debug3("up=%d, wsum=%d percent=%d\n", up, wsum, percent);
6523 if (wsum < 1000)
6524 {
6525 int scale = wsum < 10 ? 1000 : 100;
6526 for (cv = fcv->c_slback->c_slperp; cv; cv = cv->c_slnext)
6527 cv->c_slweight *= scale;
6528 wsum *= scale;
6529 debug1("scaled wsum to %d\n", wsum);
6530 }
6531 for (cv = fcv->c_slback->c_slperp; cv; cv = cv->c_slnext)
6532 {
6533 if (cv->c_slweight)
6534 {
6535 cv->c_slweight = (cv->c_slweight * up) / percent;
6536 if (cv->c_slweight == 0)
6537 cv->c_slweight = 1;
6538 }
6539 debug1(" - weight %d\n", cv->c_slweight);
6540 }
6541 diff = (diff * wsum) / percent;
6542 percent = wsum;
6543 }
6544 }
6545 else
6546 {
6547 if (abs && diff == (fcv->c_slorient == SLICE_VERT ? fcv->c_ye - fcv->c_ys + 2 : fcv->c_xe - fcv->c_xs + 2))
6548 return 0;
6549 /* fix weights to real size (can't be helped, sorry) */
6550 for (cv = fcv->c_slback->c_slperp; cv; cv = cv->c_slnext)
6551 {
6552 cv->c_slweight = cv->c_slorient == SLICE_VERT ? cv->c_ye - cv->c_ys + 2 : cv->c_xe - cv->c_xs + 2;
6553 debug1(" - weight %d\n", cv->c_slweight);
6554 }
6555 }
6556 if (abs)
6557 diff = diff - fcv->c_slweight;
6558 debug1("diff = %d\n", diff);
6559 if (diff == 0)
6560 return 0;
6561 if (diff < 0)
6562 {
6563 cv = fcv->c_slnext ? fcv->c_slnext : fcv->c_slprev;
6564 fcv->c_slweight += diff;
6565 cv->c_slweight -= diff;
6566 return diff;
6567 }
6568 done = 0;
6569 dir = 1;
6570 for (cv = fcv->c_slnext; diff > 0; cv = dir > 0 ? cv->c_slnext : cv->c_slprev)
6571 {
6572 if (!cv)
6573 {
6574 debug1("reached end, dir is %d\n", dir);
6575 if (dir == -1)
6576 break;
6577 dir = -1;
6578 cv = fcv;
6579 continue;
6580 }
6581 if (percent)
6582 m = 1;
6583 else
6584 m = cv->c_slperp ? CountCanvasPerp(cv) * 2 : 2;
6585 debug2("min is %d, have %d\n", m, cv->c_slweight);
6586 if (cv->c_slweight > m)
6587 {
6588 have = cv->c_slweight - m;
6589 if (have > diff)
6590 have = diff;
6591 debug1("subtract %d\n", have);
6592 cv->c_slweight -= have;
6593 done += have;
6594 diff -= have;
6595 }
6596 }
6597 if (diff && gflag)
6598 {
6599 /* need more room! */
6600 cv = fcv->c_slback->c_slback;
6601 if (cv && cv->c_slback)
6602 done += ChangeCanvasSize(fcv->c_slback->c_slback, 0, diff, gflag, percent);
6603 }
6604 fcv->c_slweight += done;
6605 debug1("ChangeCanvasSize returns %d\n", done);
6606 return done;
6607 }
6608
6609 static void
6610 ResizeRegions(arg, flags)
6611 char *arg;
6612 int flags;
6613 {
6614 struct canvas *cv;
6615 int diff, l;
6616 int gflag = 0, abs = 0, percent = 0;
6617 int orient = 0;
6618
6619 ASSERT(display);
6620 if (!*arg)
6621 return;
6622 if (D_forecv->c_slorient == SLICE_UNKN)
6623 {
6624 Msg(0, "resize: need more than one region");
6625 return;
6626 }
6627 gflag = flags & RESIZE_FLAG_L ? 0 : 1;
6628 orient |= flags & RESIZE_FLAG_H ? SLICE_HORI : 0;
6629 orient |= flags & RESIZE_FLAG_V ? SLICE_VERT : 0;
6630 if (orient == 0)
6631 orient = D_forecv->c_slorient;
6632 l = strlen(arg);
6633 if (*arg == '=')
6634 {
6635 /* make all regions the same height */
6636 struct canvas *cv = gflag ? &D_canvas : D_forecv->c_slback;
6637 if (cv->c_slperp->c_slorient & orient)
6638 EqualizeCanvas(cv->c_slperp, gflag);
6639 /* can't use cv->c_slorient directly as it can be D_canvas */
6640 if ((cv->c_slperp->c_slorient ^ (SLICE_HORI ^ SLICE_VERT)) & orient)
6641 {
6642 if (cv->c_slback)
6643 {
6644 cv = cv->c_slback;
6645 EqualizeCanvas(cv->c_slperp, gflag);
6646 }
6647 else
6648 EqualizeCanvas(cv, gflag);
6649 }
6650 ResizeCanvas(cv);
6651 RecreateCanvasChain();
6652 RethinkDisplayViewports();
6653 ResizeLayersToCanvases();
6654 return;
6655 }
6656 if (!strcmp(arg, "min") || !strcmp(arg, "0"))
6657 {
6658 abs = 2;
6659 diff = 0;
6660 }
6661 else if (!strcmp(arg, "max") || !strcmp(arg, "_"))
6662 {
6663 abs = 2;
6664 diff = 1;
6665 }
6666 else
6667 {
6668 if (l > 0 && arg[l - 1] == '%')
6669 percent = 1000;
6670 if (*arg == '+')
6671 diff = atoi(arg + 1);
6672 else if (*arg == '-')
6673 diff = -atoi(arg + 1);
6674 else
6675 {
6676 diff = atoi(arg); /* +1 because of caption line */
6677 if (diff < 0)
6678 diff = 0;
6679 abs = diff == 0 ? 2 : 1;
6680 }
6681 }
6682 if (!abs && !diff)
6683 return;
6684 if (percent)
6685 diff = diff * percent / 100;
6686 cv = D_forecv;
6687 if (cv->c_slorient & orient)
6688 ChangeCanvasSize(cv, abs, diff, gflag, percent);
6689 if (cv->c_slback->c_slorient & orient)
6690 ChangeCanvasSize(cv->c_slback, abs, diff, gflag, percent);
6691
6692 ResizeCanvas(&D_canvas);
6693 RecreateCanvasChain();
6694 RethinkDisplayViewports();
6695 ResizeLayersToCanvases();
6696 return;
6697
6698 #if 0
6699
6700 if (siz + diff < 1)
6701 diff = 1 - siz;
6702 if (siz + diff > dsize - (nreg - 1) * 2 - 1)
6703 diff = dsize - (nreg - 1) * 2 - 1 - siz;
6704 if (diff == 0 || siz + diff < 1)
6705 return;
6706
6707 if (diff < 0)
6708 {
6709 if (D_forecv->c_next)
6710 {
6711 D_forecv->c_ye += diff;
6712 D_forecv->c_next->c_ys += diff;
6713 D_forecv->c_next->c_yoff += diff;
6714 }
6715 else
6716 {
6717 for (cv = D_cvlist; cv; cv = cv->c_next)
6718 if (cv->c_next == D_forecv)
6719 break;
6720 ASSERT(cv);
6721 cv->c_ye -= diff;
6722 D_forecv->c_ys -= diff;
6723 D_forecv->c_yoff -= diff;
6724 }
6725 }
6726 else
6727 {
6728 int s, i = 0, found = 0, di = diff, d2;
6729 s = dsize - (nreg - 1) * 2 - 1 - siz;
6730 for (cv = D_cvlist; cv; i = cv->c_ye + 2, cv = cv->c_next)
6731 {
6732 if (cv == D_forecv)
6733 {
6734 cv->c_ye = i + (cv->c_ye - cv->c_ys) + diff;
6735 cv->c_yoff -= cv->c_ys - i;
6736 cv->c_ys = i;
6737 found = 1;
6738 continue;
6739 }
6740 s -= cv->c_ye - cv->c_ys;
6741 if (!found)
6742 {
6743 if (s >= di)
6744 continue;
6745 d2 = di - s;
6746 }
6747 else
6748 d2 = di > cv->c_ye - cv->c_ys ? cv->c_ye - cv->c_ys : di;
6749 di -= d2;
6750 cv->c_ye = i + (cv->c_ye - cv->c_ys) - d2;
6751 cv->c_yoff -= cv->c_ys - i;
6752 cv->c_ys = i;
6753 }
6754 }
6755 RethinkDisplayViewports();
6756 ResizeLayersToCanvases();
6757 #endif
6758 }
6759
6760 static void
6761 ResizeFin(buf, len, data)
6762 char *buf;
6763 int len;
6764 char *data;
6765 {
6766 int ch;
6767 int flags = *(int *)data;
6768 ch = ((unsigned char *)buf)[len];
6769 if (ch == 0)
6770 {
6771 ResizeRegions(buf, flags);
6772 return;
6773 }
6774 if (ch == 'h')
6775 flags ^= RESIZE_FLAG_H;
6776 else if (ch == 'v')
6777 flags ^= RESIZE_FLAG_V;
6778 else if (ch == 'b')
6779 flags |= RESIZE_FLAG_H|RESIZE_FLAG_V;
6780 else if (ch == 'p')
6781 flags ^= D_forecv->c_slorient == SLICE_VERT ? RESIZE_FLAG_H : RESIZE_FLAG_V;
6782 else if (ch == 'l')
6783 flags ^= RESIZE_FLAG_L;
6784 else
6785 return;
6786 inp_setprompt(resizeprompts[flags], NULL);
6787 *(int *)data = flags;
6788 buf[len] = '\034';
6789 }
6790
6791 #ifdef RXVT_OSC
6792 void
6793 RefreshXtermOSC()
6794 {
6795 int i;
6796 struct win *p;
6797
6798 p = Layer2Window(D_forecv->c_layer);
6799 for (i = 3; i >=0; i--)
6800 SetXtermOSC(i, p ? p->w_xtermosc[i] : 0);
6801 }
6802 #endif
6803
6804 int
6805 ParseAttrColor(s1, s2, msgok)
6806 char *s1, *s2;
6807 int msgok;
6808 {
6809 int i, n;
6810 char *s, *ss;
6811 int r = 0;
6812
6813 s = s1;
6814 while (*s == ' ')
6815 s++;
6816 ss = s;
6817 while (*ss && *ss != ' ')
6818 ss++;
6819 while (*ss == ' ')
6820 ss++;
6821 if (*s && (s2 || *ss || !((*s >= 'a' && *s <= 'z') || (*s >= 'A' && *s <= 'Z') || *s == '.')))
6822 {
6823 int mode = 0, n = 0;
6824 if (*s == '+')
6825 {
6826 mode = 1;
6827 s++;
6828 }
6829 else if (*s == '-')
6830 {
6831 mode = -1;
6832 s++;
6833 }
6834 else if (*s == '!')
6835 {
6836 mode = 2;
6837 s++;
6838 }
6839 else if (*s == '=')
6840 s++;
6841 if (*s >= '0' && *s <= '9')
6842 {
6843 n = *s++ - '0';
6844 if (*s >= '0' && *s <= '9')
6845 n = n * 16 + (*s++ - '0');
6846 else if (*s >= 'a' && *s <= 'f')
6847 n = n * 16 + (*s++ - ('a' - 10));
6848 else if (*s >= 'A' && *s <= 'F')
6849 n = n * 16 + (*s++ - ('A' - 10));
6850 else if (*s && *s != ' ')
6851 {
6852 if (msgok)
6853 Msg(0, "Illegal attribute hexchar '%c'", *s);
6854 return -1;
6855 }
6856 }
6857 else
6858 {
6859 while (*s && *s != ' ')
6860 {
6861 if (*s == 'd')
6862 n |= A_DI;
6863 else if (*s == 'u')
6864 n |= A_US;
6865 else if (*s == 'b')
6866 n |= A_BD;
6867 else if (*s == 'r')
6868 n |= A_RV;
6869 else if (*s == 's')
6870 n |= A_SO;
6871 else if (*s == 'B')
6872 n |= A_BL;
6873 else
6874 {
6875 if (msgok)
6876 Msg(0, "Illegal attribute specifier '%c'", *s);
6877 return -1;
6878 }
6879 s++;
6880 }
6881 }
6882 if (*s && *s != ' ')
6883 {
6884 if (msgok)
6885 Msg(0, "junk after attribute description: '%c'", *s);
6886 return -1;
6887 }
6888 if (mode == -1)
6889 r = n << 8 | n;
6890 else if (mode == 1)
6891 r = n << 8;
6892 else if (mode == 2)
6893 r = n;
6894 else if (mode == 0)
6895 r = 0xffff ^ n;
6896 }
6897 while (*s && *s == ' ')
6898 s++;
6899
6900 if (s2)
6901 {
6902 if (*s)
6903 {
6904 if (msgok)
6905 Msg(0, "junk after description: '%c'", *s);
6906 return -1;
6907 }
6908 s = s2;
6909 while (*s && *s == ' ')
6910 s++;
6911 }
6912
6913 #ifdef COLOR
6914 if (*s)
6915 {
6916 static char costr[] = "krgybmcw d i.01234567 9 f FKRGYBMCW I ";
6917 int numco = 0, j;
6918
6919 n = 0;
6920 if (*s == '.')
6921 {
6922 numco++;
6923 n = 0x0f;
6924 s++;
6925 }
6926 for (j = 0; j < 2 && *s && *s != ' '; j++)
6927 {
6928 for (i = 0; costr[i]; i++)
6929 if (*s == costr[i])
6930 break;
6931 if (!costr[i])
6932 {
6933 if (msgok)
6934 Msg(0, "illegal color descriptor: '%c'", *s);
6935 return -1;
6936 }
6937 numco++;
6938 n = n << 4 | (i & 15);
6939 #ifdef COLORS16
6940 if (i >= 48)
6941 n = (n & 0x20ff) | 0x200;
6942 #endif
6943 s++;
6944 }
6945 if ((n & 0xf00) == 0xf00)
6946 n ^= 0xf00; /* clear superflous bits */
6947 #ifdef COLORS16
6948 if (n & 0x2000)
6949 n ^= 0x2400; /* shift bit into right position */
6950 #endif
6951 if (numco == 1)
6952 n |= 0xf0; /* don't change bg color */
6953 if (numco != 2 && n != 0xff)
6954 n |= 0x100; /* special invert mode */
6955 if (*s && *s != ' ')
6956 {
6957 if (msgok)
6958 Msg(0, "junk after color description: '%c'", *s);
6959 return -1;
6960 }
6961 n ^= 0xff;
6962 r |= n << 16;
6963 }
6964 #endif
6965
6966 while (*s && *s == ' ')
6967 s++;
6968 if (*s)
6969 {
6970 if (msgok)
6971 Msg(0, "junk after description: '%c'", *s);
6972 return -1;
6973 }
6974 debug1("ParseAttrColor %06x\n", r);
6975 return r;
6976 }
6977
6978 /*
6979 * Color coding:
6980 * 0-7 normal colors
6981 * 9 default color
6982 * e just set intensity
6983 * f don't change anything
6984 * Intensity is encoded into bits 17(fg) and 18(bg).
6985 */
6986 void
6987 ApplyAttrColor(i, mc)
6988 int i;
6989 struct mchar *mc;
6990 {
6991 debug1("ApplyAttrColor %06x\n", i);
6992 mc->attr |= i >> 8 & 255;
6993 mc->attr ^= i & 255;
6994 #ifdef COLOR
6995 i = (i >> 16) ^ 0xff;
6996 if ((i & 0x100) != 0)
6997 {
6998 i &= 0xeff;
6999 if (mc->attr & (A_SO|A_RV))
7000 # ifdef COLORS16
7001 i = ((i & 0x0f) << 4) | ((i & 0xf0) >> 4) | ((i & 0x200) << 1) | ((i & 0x400) >> 1);
7002 # else
7003 i = ((i & 0x0f) << 4) | ((i & 0xf0) >> 4);
7004 # endif
7005 }
7006 # ifdef COLORS16
7007 if ((i & 0x0f) != 0x0f)
7008 mc->attr = (mc->attr & 0xbf) | ((i >> 3) & 0x40);
7009 if ((i & 0xf0) != 0xf0)
7010 mc->attr = (mc->attr & 0x7f) | ((i >> 3) & 0x80);
7011 # endif
7012 mc->color = 0x99 ^ mc->color;
7013 if ((i & 0x0e) == 0x0e)
7014 i = (i & 0xf0) | (mc->color & 0x0f);
7015 if ((i & 0xe0) == 0xe0)
7016 i = (i & 0x0f) | (mc->color & 0xf0);
7017 mc->color = 0x99 ^ i;
7018 debug2("ApplyAttrColor - %02x %02x\n", mc->attr, i);
7019 #endif
7020 }
Lua scripting support for GNU Screen