1 /* Copyright (c) 2008, 2009
2 * Juergen Weigert (jnweiger@immd4.informatik.uni-erlangen.de)
3 * Michael Schroeder (mlschroe@immd4.informatik.uni-erlangen.de)
4 * Micah Cowan (micah@cowan.name)
5 * Sadrul Habib Chowdhury (sadrul@users.sourceforge.net)
6 * Copyright (c) 1993-2002, 2003, 2005, 2006, 2007
7 * Juergen Weigert (jnweiger@immd4.informatik.uni-erlangen.de)
8 * Michael Schroeder (mlschroe@immd4.informatik.uni-erlangen.de)
9 * Copyright (c) 1987 Oliver Laumann
11 * This program is free software; you can redistribute it and/or modify
12 * it under the terms of the GNU General Public License as published by
13 * the Free Software Foundation; either version 3, or (at your option)
16 * This program is distributed in the hope that it will be useful,
17 * but WITHOUT ANY WARRANTY; without even the implied warranty of
18 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 * GNU General Public License for more details.
21 * You should have received a copy of the GNU General Public License
22 * along with this program (see the file COPYING); if not, see
23 * http://www.gnu.org/licenses/, or contact Free Software Foundation, Inc.,
24 * 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA
26 ****************************************************************
29 #include <sys/types.h>
33 #if !defined(sun) && !defined(B43) && !defined(ISC) && !defined(pyr) && !defined(_CX_UX)
38 #include <sys/ioctl.h>
44 /* for solaris 2.1, Unixware (SVR4.2) and possibly others: */
46 # include <sys/stropts.h>
53 extern struct comm comms
[];
55 extern char *RcFileName
, *home
;
56 extern char *BellString
, *ActivityString
, *ShellProg
, *ShellArgs
[];
57 extern char *hstatusstring
, *captionstring
, *timestring
;
58 extern char *wliststr
, *wlisttit
;
59 extern int captionalways
;
60 extern char *hardcopydir
, *screenlogfile
, *logtstamp_string
;
61 extern int log_flush
, logtstamp_on
, logtstamp_after
;
62 extern char *VisualBellString
;
63 extern int VBellWait
, MsgWait
, MsgMinWait
, SilenceWait
;
64 extern char SockPath
[], *SockName
;
65 extern int TtyMode
, auto_detach
, use_altscreen
;
66 extern int iflag
, maxwin
;
67 extern int focusminwidth
, focusminheight
;
68 extern int use_hardstatus
, visual_bell
;
70 extern int attr2color
[][4];
71 extern int nattr2color
;
73 extern int hardstatusemu
;
74 extern char *printcmd
;
75 extern int default_startup
;
76 extern int defobuflimit
;
77 extern int defnonblock
;
78 extern int ZombieKey_destroy
;
79 extern int ZombieKey_resurrect
;
80 extern int ZombieKey_onerror
;
82 extern int defautonuke
;
84 extern int separate_sids
;
85 extern struct NewWindow nwin_default
, nwin_undef
;
87 extern int join_with_cr
;
88 extern int compacthist
;
93 extern unsigned char mark_key_tab
[];
94 extern char *BufferFile
;
97 extern char *BufferFile
, *PowDetachString
;
100 extern struct acluser
*EffectiveAclUser
; /* acl.c */
102 extern struct term term
[]; /* terminal capabilities */
104 extern char *kmapdef
[];
105 extern char *kmapadef
[];
106 extern char *kmapmdef
[];
108 extern struct mchar mchar_so
, mchar_null
;
109 extern int renditions
[];
110 extern int VerboseCreate
;
112 extern char *screenencodings
;
118 static int CheckArgNum
__P((int, char **));
119 static void ClearAction
__P((struct action
*));
120 static void SaveAction
__P((struct action
*, int, char **, int *));
121 static int NextWindow
__P((void));
122 static int PreviousWindow
__P((void));
123 static int MoreWindows
__P((void));
124 static void LogToggle
__P((int));
125 static void ShowInfo
__P((void));
126 static void ShowDInfo
__P((void));
127 static struct win
*WindowByName
__P((char *));
128 static int WindowByNumber
__P((char *));
129 static int ParseOnOff
__P((struct action
*, int *));
130 static int ParseWinNum
__P((struct action
*, int *));
131 static int ParseBase
__P((struct action
*, char *, int *, int, char *));
132 static int ParseNum1000
__P((struct action
*, int *));
133 static char **SaveArgs
__P((char **));
134 static int IsNum
__P((char *, int));
135 static void Colonfin
__P((char *, int, char *));
136 static void InputSelect
__P((void));
137 static void InputSetenv
__P((char *));
138 static void InputAKA
__P((void));
140 static int InputSu
__P((struct win
*, struct acluser
**, char *));
141 static void su_fin
__P((char *, int, char *));
143 static void AKAfin
__P((char *, int, char *));
145 static void copy_reg_fn
__P((char *, int, char *));
146 static void ins_reg_fn
__P((char *, int, char *));
148 static void process_fn
__P((char *, int, char *));
150 static void pass1
__P((char *, int, char *));
151 static void pass2
__P((char *, int, char *));
154 static void pow_detach_fn
__P((char *, int, char *));
156 static void digraph_fn
__P((char *, int, char *));
157 static int digraph_find
__P((const char *buf
));
158 static void confirm_fn
__P((char *, int, char *));
159 static int IsOnDisplay
__P((struct win
*));
160 static void ResizeRegions
__P((char *, int));
161 static void ResizeFin
__P((char *, int, char *));
162 static struct action
*FindKtab
__P((char *, int));
163 static void SelectFin
__P((char *, int, char *));
164 static void SelectLayoutFin
__P((char *, int, char *));
167 static void AddAlias
__P((const char *name
, const char *val
, char **args
, int *argl
, int count
));
168 static struct alias
* FindAlias
__P((const char *name
));
169 static struct alias
* FindAliasnr
__P((int));
170 static void DelAlias
__P((const char *name
));
171 static int DoAlias
__P((const char *, char **, int *));
173 extern struct layer
*flayer
;
174 extern struct display
*display
, *displays
;
175 extern struct win
*fore
, *console_window
, *windows
;
176 extern struct acluser
*users
;
177 extern struct layout
*layouts
, *layout_attach
, layout_last_marker
;
178 extern struct layout
*laytab
[];
180 extern char screenterm
[], HostName
[], version
[];
181 extern struct NewWindow nwin_undef
, nwin_default
;
182 extern struct LayFuncs WinLf
, MarkLf
;
184 extern int Z0width
, Z1width
;
185 extern int real_uid
, real_gid
;
188 extern int nethackflag
;
192 struct win
*wtab
[MAXWIN
]; /* window table, should be dynamic */
196 extern int maxusercount
;
200 struct plop plop_tab
[MAX_PLOP_DEFS
];
203 # define PTYMODE 0622
206 int TtyMode
= PTYMODE
;
207 int hardcopy_append
= 0;
208 int all_norefresh
= 0;
211 char *zmodem_sendcmd
;
212 char *zmodem_recvcmd
;
213 static char *zmodes
[4] = {"off", "auto", "catch", "pass"};
217 struct action idleaction
;
222 struct action ktab
[256 + KMAP_KEYS
]; /* command key translation table */
226 struct action ktab
[256 + KMAP_KEYS
];
228 struct kclass
*kclasses
;
231 struct action umtab
[KMAP_KEYS
+KMAP_AKEYS
];
232 struct action dmtab
[KMAP_KEYS
+KMAP_AKEYS
];
233 struct action mmtab
[KMAP_KEYS
+KMAP_AKEYS
];
234 struct kmap_ext
*kmap_exts
;
236 static int maptimeout
= 300;
240 #define MAX_DIGRAPH 512
254 char *name
; /* Name of the alias */
255 int cmdnr
; /* Number of the command this is alias for */
256 char **args
; /* The argument list for the command */
260 struct alias
*g_aliases_list
= NULL
;
263 /* digraph table taken from old vim and rfc1345 */
264 static struct digraph digraphs
[MAX_DIGRAPH
+ 1] = {
265 {' ', ' ', 160}, /* */
266 {'N', 'S', 160}, /* */
267 {'~', '!', 161}, /* ¡ */
268 {'!', '!', 161}, /* ¡ */
269 {'!', 'I', 161}, /* ¡ */
270 {'c', '|', 162}, /* ¢ */
271 {'c', 't', 162}, /* ¢ */
272 {'$', '$', 163}, /* £ */
273 {'P', 'd', 163}, /* £ */
274 {'o', 'x', 164}, /* ¤ */
275 {'C', 'u', 164}, /* ¤ */
276 {'C', 'u', 164}, /* ¤ */
277 {'E', 'u', 164}, /* ¤ */
278 {'Y', '-', 165}, /* ¥ */
279 {'Y', 'e', 165}, /* ¥ */
280 {'|', '|', 166}, /* ¦ */
281 {'B', 'B', 166}, /* ¦ */
282 {'p', 'a', 167}, /* § */
283 {'S', 'E', 167}, /* § */
284 {'"', '"', 168}, /* ¨ */
285 {'\'', ':', 168}, /* ¨ */
286 {'c', 'O', 169}, /* © */
287 {'C', 'o', 169}, /* © */
288 {'a', '-', 170}, /* ª */
289 {'<', '<', 171}, /* « */
290 {'-', ',', 172}, /* ¬ */
291 {'N', 'O', 172}, /* ¬ */
292 {'-', '-', 173}, /* */
293 {'r', 'O', 174}, /* ® */
294 {'R', 'g', 174}, /* ® */
295 {'-', '=', 175}, /* ¯ */
296 {'\'', 'm', 175}, /* ¯ */
297 {'~', 'o', 176}, /* ° */
298 {'D', 'G', 176}, /* ° */
299 {'+', '-', 177}, /* ± */
300 {'2', '2', 178}, /* ² */
301 {'2', 'S', 178}, /* ² */
302 {'3', '3', 179}, /* ³ */
303 {'3', 'S', 179}, /* ³ */
304 {'\'', '\'', 180}, /* ´ */
305 {'j', 'u', 181}, /* µ */
306 {'M', 'y', 181}, /* µ */
307 {'p', 'p', 182}, /* ¶ */
308 {'P', 'I', 182}, /* ¶ */
309 {'~', '.', 183}, /* · */
310 {'.', 'M', 183}, /* · */
311 {',', ',', 184}, /* ¸ */
312 {'\'', ',', 184}, /* ¸ */
313 {'1', '1', 185}, /* ¹ */
314 {'1', 'S', 185}, /* ¹ */
315 {'o', '-', 186}, /* º */
316 {'>', '>', 187}, /* » */
317 {'1', '4', 188}, /* ¼ */
318 {'1', '2', 189}, /* ½ */
319 {'3', '4', 190}, /* ¾ */
320 {'~', '?', 191}, /* ¿ */
321 {'?', '?', 191}, /* ¿ */
322 {'?', 'I', 191}, /* ¿ */
323 {'A', '`', 192}, /* À */
324 {'A', '!', 192}, /* À */
325 {'A', '\'', 193}, /* Á */
326 {'A', '^', 194}, /* Â */
327 {'A', '>', 194}, /* Â */
328 {'A', '~', 195}, /* Ã */
329 {'A', '?', 195}, /* Ã */
330 {'A', '"', 196}, /* Ä */
331 {'A', ':', 196}, /* Ä */
332 {'A', '@', 197}, /* Å */
333 {'A', 'A', 197}, /* Å */
334 {'A', 'E', 198}, /* Æ */
335 {'C', ',', 199}, /* Ç */
336 {'E', '`', 200}, /* È */
337 {'E', '!', 200}, /* È */
338 {'E', '\'', 201}, /* É */
339 {'E', '^', 202}, /* Ê */
340 {'E', '>', 202}, /* Ê */
341 {'E', '"', 203}, /* Ë */
342 {'E', ':', 203}, /* Ë */
343 {'I', '`', 204}, /* Ì */
344 {'I', '!', 204}, /* Ì */
345 {'I', '\'', 205}, /* Í */
346 {'I', '^', 206}, /* Î */
347 {'I', '>', 206}, /* Î */
348 {'I', '"', 207}, /* Ï */
349 {'I', ':', 207}, /* Ï */
350 {'D', '-', 208}, /* Ð */
351 {'N', '~', 209}, /* Ñ */
352 {'N', '?', 209}, /* Ñ */
353 {'O', '`', 210}, /* Ò */
354 {'O', '!', 210}, /* Ò */
355 {'O', '\'', 211}, /* Ó */
356 {'O', '^', 212}, /* Ô */
357 {'O', '>', 212}, /* Ô */
358 {'O', '~', 213}, /* Õ */
359 {'O', '?', 213}, /* Õ */
360 {'O', '"', 214}, /* Ö */
361 {'O', ':', 214}, /* Ö */
362 {'/', '\\', 215}, /* × */
363 {'*', 'x', 215}, /* × */
364 {'O', '/', 216}, /* Ø */
365 {'U', '`', 217}, /* Ù */
366 {'U', '!', 217}, /* Ù */
367 {'U', '\'', 218}, /* Ú */
368 {'U', '^', 219}, /* Û */
369 {'U', '>', 219}, /* Û */
370 {'U', '"', 220}, /* Ü */
371 {'U', ':', 220}, /* Ü */
372 {'Y', '\'', 221}, /* Ý */
373 {'I', 'p', 222}, /* Þ */
374 {'T', 'H', 222}, /* Þ */
375 {'s', 's', 223}, /* ß */
376 {'s', '"', 223}, /* ß */
377 {'a', '`', 224}, /* à */
378 {'a', '!', 224}, /* à */
379 {'a', '\'', 225}, /* á */
380 {'a', '^', 226}, /* â */
381 {'a', '>', 226}, /* â */
382 {'a', '~', 227}, /* ã */
383 {'a', '?', 227}, /* ã */
384 {'a', '"', 228}, /* ä */
385 {'a', ':', 228}, /* ä */
386 {'a', 'a', 229}, /* å */
387 {'a', 'e', 230}, /* æ */
388 {'c', ',', 231}, /* ç */
389 {'e', '`', 232}, /* è */
390 {'e', '!', 232}, /* è */
391 {'e', '\'', 233}, /* é */
392 {'e', '^', 234}, /* ê */
393 {'e', '>', 234}, /* ê */
394 {'e', '"', 235}, /* ë */
395 {'e', ':', 235}, /* ë */
396 {'i', '`', 236}, /* ì */
397 {'i', '!', 236}, /* ì */
398 {'i', '\'', 237}, /* í */
399 {'i', '^', 238}, /* î */
400 {'i', '>', 238}, /* î */
401 {'i', '"', 239}, /* ï */
402 {'i', ':', 239}, /* ï */
403 {'d', '-', 240}, /* ð */
404 {'n', '~', 241}, /* ñ */
405 {'n', '?', 241}, /* ñ */
406 {'o', '`', 242}, /* ò */
407 {'o', '!', 242}, /* ò */
408 {'o', '\'', 243}, /* ó */
409 {'o', '^', 244}, /* ô */
410 {'o', '>', 244}, /* ô */
411 {'o', '~', 245}, /* õ */
412 {'o', '?', 245}, /* õ */
413 {'o', '"', 246}, /* ö */
414 {'o', ':', 246}, /* ö */
415 {':', '-', 247}, /* ÷ */
416 {'o', '/', 248}, /* ø */
417 {'u', '`', 249}, /* ù */
418 {'u', '!', 249}, /* ù */
419 {'u', '\'', 250}, /* ú */
420 {'u', '^', 251}, /* û */
421 {'u', '>', 251}, /* û */
422 {'u', '"', 252}, /* ü */
423 {'u', ':', 252}, /* ü */
424 {'y', '\'', 253}, /* ý */
425 {'i', 'p', 254}, /* þ */
426 {'t', 'h', 254}, /* þ */
427 {'y', '"', 255}, /* ÿ */
428 {'y', ':', 255}, /* ÿ */
429 {'"', '[', 196}, /* Ä */
430 {'"', '\\', 214}, /* Ö */
431 {'"', ']', 220}, /* Ü */
432 {'"', '{', 228}, /* ä */
433 {'"', '|', 246}, /* ö */
434 {'"', '}', 252}, /* ü */
435 {'"', '~', 223} /* ß */
438 #define RESIZE_FLAG_H 1
439 #define RESIZE_FLAG_V 2
440 #define RESIZE_FLAG_L 4
442 static char *resizeprompts
[] = {
444 "resize -h # lines: ",
445 "resize -v # lines: ",
446 "resize -b # lines: ",
447 "resize -l # lines: ",
448 "resize -l -h # lines: ",
449 "resize -l -v # lines: ",
450 "resize -l -b # lines: ",
454 parse_input_int(buf
, len
, val
)
460 if (len
>= 1 && ((*buf
== 'U' && buf
[1] == '+') || (*buf
== '0' && (buf
[1] == 'x' || buf
[1] == 'X'))))
463 for (i
= 2; i
< len
; i
++)
465 if (buf
[i
] >= '0' && buf
[i
] <= '9')
466 x
= x
* 16 | (buf
[i
] - '0');
467 else if (buf
[i
] >= 'a' && buf
[i
] <= 'f')
468 x
= x
* 16 | (buf
[i
] - ('a' - 10));
469 else if (buf
[i
] >= 'A' && buf
[i
] <= 'F')
470 x
= x
* 16 | (buf
[i
] - ('A' - 10));
475 else if (buf
[0] == '0')
478 for (i
= 1; i
< len
; i
++)
480 if (buf
[i
] < '0' || buf
[i
] > '7')
482 x
= x
* 8 | (buf
[i
] - '0');
496 register unsigned int i
;
501 for (i
= 0; i
< sizeof(ktab
)/sizeof(*ktab
); i
++)
503 ktab
[i
].nr
= RC_ILLEGAL
;
504 ktab
[i
].args
= noargs
;
508 for (i
= 0; i
< KMAP_KEYS
+KMAP_AKEYS
; i
++)
510 umtab
[i
].nr
= RC_ILLEGAL
;
511 umtab
[i
].args
= noargs
;
513 dmtab
[i
].nr
= RC_ILLEGAL
;
514 dmtab
[i
].args
= noargs
;
516 mmtab
[i
].nr
= RC_ILLEGAL
;
517 mmtab
[i
].args
= noargs
;
521 for (i
= 0; i
< NKMAPDEF
; i
++)
523 if (i
+ KMAPDEFSTART
< T_CAPS
)
525 if (i
+ KMAPDEFSTART
>= T_CAPS
+ KMAP_KEYS
)
529 argarr
[0] = kmapdef
[i
];
530 SaveAction(dmtab
+ i
+ (KMAPDEFSTART
- T_CAPS
), RC_STUFF
, argarr
, 0);
532 for (i
= 0; i
< NKMAPADEF
; i
++)
534 if (i
+ KMAPADEFSTART
< T_CURSOR
)
536 if (i
+ KMAPADEFSTART
>= T_CURSOR
+ KMAP_AKEYS
)
538 if (kmapadef
[i
] == 0)
540 argarr
[0] = kmapadef
[i
];
541 SaveAction(dmtab
+ i
+ (KMAPADEFSTART
- T_CURSOR
+ KMAP_KEYS
), RC_STUFF
, argarr
, 0);
543 for (i
= 0; i
< NKMAPMDEF
; i
++)
545 if (i
+ KMAPMDEFSTART
< T_CAPS
)
547 if (i
+ KMAPMDEFSTART
>= T_CAPS
+ KMAP_KEYS
)
549 if (kmapmdef
[i
] == 0)
551 argarr
[0] = kmapmdef
[i
];
553 SaveAction(mmtab
+ i
+ (KMAPMDEFSTART
- T_CAPS
), RC_STUFF
, argarr
, 0);
557 ktab
['h'].nr
= RC_HARDCOPY
;
559 ktab
['z'].nr
= ktab
[Ctrl('z')].nr
= RC_SUSPEND
;
561 ktab
['c'].nr
= ktab
[Ctrl('c')].nr
= RC_SCREEN
;
562 ktab
[' '].nr
= ktab
[Ctrl(' ')].nr
=
563 ktab
['n'].nr
= ktab
[Ctrl('n')].nr
= RC_NEXT
;
564 ktab
['N'].nr
= RC_NUMBER
;
565 ktab
[Ctrl('h')].nr
= ktab
[0177].nr
= ktab
['p'].nr
= ktab
[Ctrl('p')].nr
= RC_PREV
;
566 ktab
['k'].nr
= ktab
[Ctrl('k')].nr
= RC_KILL
;
567 ktab
['l'].nr
= ktab
[Ctrl('l')].nr
= RC_REDISPLAY
;
568 ktab
['w'].nr
= ktab
[Ctrl('w')].nr
= RC_WINDOWS
;
569 ktab
['v'].nr
= RC_VERSION
;
570 ktab
[Ctrl('v')].nr
= RC_DIGRAPH
;
571 ktab
['q'].nr
= ktab
[Ctrl('q')].nr
= RC_XON
;
572 ktab
['s'].nr
= ktab
[Ctrl('s')].nr
= RC_XOFF
;
573 ktab
['t'].nr
= ktab
[Ctrl('t')].nr
= RC_TIME
;
574 ktab
['i'].nr
= ktab
[Ctrl('i')].nr
= RC_INFO
;
575 ktab
['m'].nr
= ktab
[Ctrl('m')].nr
= RC_LASTMSG
;
576 ktab
['A'].nr
= RC_TITLE
;
577 #if defined(UTMPOK) && defined(LOGOUTOK)
578 ktab
['L'].nr
= RC_LOGIN
;
580 ktab
[','].nr
= RC_LICENSE
;
581 ktab
['W'].nr
= RC_WIDTH
;
582 ktab
['.'].nr
= RC_DUMPTERMCAP
;
583 ktab
[Ctrl('\\')].nr
= RC_QUIT
;
585 ktab
['d'].nr
= ktab
[Ctrl('d')].nr
= RC_DETACH
;
587 ktab
['D'].nr
= RC_POW_DETACH
;
590 ktab
['r'].nr
= ktab
[Ctrl('r')].nr
= RC_WRAP
;
591 ktab
['f'].nr
= ktab
[Ctrl('f')].nr
= RC_FLOW
;
592 ktab
['C'].nr
= RC_CLEAR
;
593 ktab
['Z'].nr
= RC_RESET
;
594 ktab
['H'].nr
= RC_LOG
;
595 ktab
['M'].nr
= RC_MONITOR
;
596 ktab
['?'].nr
= RC_HELP
;
598 ktab
['*'].nr
= RC_DISPLAYS
;
604 SaveAction(ktab
+ '-', RC_SELECT
, args
, 0);
606 for (i
= 0; i
< ((MAXWIN
< 10) ? MAXWIN
: 10); i
++)
608 char *args
[2], arg1
[10];
611 sprintf(arg1
, "%d", i
);
612 SaveAction(ktab
+ '0' + i
, RC_SELECT
, args
, 0);
614 ktab
['\''].nr
= RC_SELECT
; /* calling a window by name */
619 SaveAction(ktab
+ '"', RC_WINDOWLIST
, args
, 0);
621 ktab
[Ctrl('G')].nr
= RC_VBELL
;
622 ktab
[':'].nr
= RC_COLON
;
624 ktab
['['].nr
= ktab
[Ctrl('[')].nr
= RC_COPY
;
629 SaveAction(ktab
+ ']', RC_PASTE
, args
, 0);
630 SaveAction(ktab
+ Ctrl(']'), RC_PASTE
, args
, 0);
632 ktab
['{'].nr
= RC_HISTORY
;
633 ktab
['}'].nr
= RC_HISTORY
;
634 ktab
['>'].nr
= RC_WRITEBUF
;
635 ktab
['<'].nr
= RC_READBUF
;
636 ktab
['='].nr
= RC_REMOVEBUF
;
639 ktab
['D'].nr
= RC_POW_DETACH
;
642 ktab
['x'].nr
= ktab
[Ctrl('x')].nr
= RC_LOCKSCREEN
;
644 ktab
['b'].nr
= ktab
[Ctrl('b')].nr
= RC_BREAK
;
645 ktab
['B'].nr
= RC_POW_BREAK
;
646 ktab
['_'].nr
= RC_SILENCE
;
647 ktab
['S'].nr
= RC_SPLIT
;
648 ktab
['Q'].nr
= RC_ONLY
;
649 ktab
['X'].nr
= RC_REMOVE
;
650 ktab
['F'].nr
= RC_FIT
;
651 ktab
['\t'].nr
= RC_FOCUS
;
656 SaveAction(ktab
+ T_BACKTAB
- T_CAPS
+ 256, RC_FOCUS
, args
, 0);
662 SaveAction(ktab
+ '|', RC_SPLIT
, args
, 0);
664 /* These come last; they may want overwrite others: */
667 ClearAction(&ktab
[DefaultEsc
]);
668 ktab
[DefaultEsc
].nr
= RC_OTHER
;
670 if (DefaultMetaEsc
>= 0)
672 ClearAction(&ktab
[DefaultMetaEsc
]);
673 ktab
[DefaultMetaEsc
].nr
= RC_META
;
676 idleaction
.nr
= RC_BLANKER
;
677 idleaction
.args
= noargs
;
681 static struct action
*
682 FindKtab(class, create
)
686 struct kclass
*kp
, **kpp
;
691 for (kpp
= &kclasses
; (kp
= *kpp
) != 0; kpp
= &kp
->next
)
692 if (!strcmp(kp
->name
, class))
698 if (strlen(class) > 80)
700 Msg(0, "Command class name too long.");
703 kp
= malloc(sizeof(*kp
));
709 kp
->name
= SaveStr(class);
710 for (i
= 0; i
< (int)(sizeof(kp
->ktab
)/sizeof(*kp
->ktab
)); i
++)
712 kp
->ktab
[i
].nr
= RC_ILLEGAL
;
713 kp
->ktab
[i
].args
= noargs
;
727 if (act
->nr
== RC_ILLEGAL
)
729 act
->nr
= RC_ILLEGAL
;
730 if (act
->args
== noargs
)
732 for (p
= act
->args
; *p
; p
++)
734 free((char *)act
->args
);
740 * ProcessInput: process input from display and feed it into
741 * the layer on canvas D_forecv.
747 * This ProcessInput just does the keybindings and passes
748 * everything else on to ProcessInput2.
752 ProcessInput(ibuf
, ilen
)
757 unsigned char *s
, *q
;
761 debug1("ProcessInput: %d bytes\n", ilen
);
762 if (display
== 0 || ilen
== 0)
767 s
= (unsigned char *)ibuf
;
771 if (D_dontmap
|| !D_nseqs
)
778 debug3("cmp %c %c[%d]\n", ch
, *D_seqp
, D_seqp
- D_kmaps
);
781 l
= D_seqp
[D_seqp
[-D_seql
-1] + 1];
785 debug1("miss %d\n", D_seqp
- D_kmaps
);
788 debug("complete miss\n");
791 p
= (char *)D_seqp
- l
;
793 D_seqp
= D_kmaps
+ 3;
796 if ((q
= D_seqh
) != 0)
799 i
= q
[0] << 8 | q
[1];
800 i
&= ~KMAP_NOTIMEOUT
;
801 debug1("Mapping former hit #%d - ", i
);
802 debug2("%d(%s) - ", q
[2], q
+ 3);
804 ProcessInput2((char *)q
+ 3, q
[2]);
812 debug1("flush old %d\n", l
);
821 /* Finish old stuff */
823 debug1("finish old %d\n", slen
);
825 ProcessInput2(ibuf
, slen
);
834 debug2("length am %d, want %d\n", l
, D_seqp
[-l
- 1]);
835 if (l
== D_seqp
[-l
- 1])
840 if (D_kmaps
+ D_nseqs
> q
&& q
[2] > l
&& !bcmp(D_seqp
- l
, q
+ 3, l
))
842 debug1("have another mapping (%s), delay execution\n", q
+ 3);
843 D_seqh
= D_seqp
- 3 - l
;
848 i
= D_seqp
[-l
- 3] << 8 | D_seqp
[-l
- 2];
849 i
&= ~KMAP_NOTIMEOUT
;
850 debug1("Mapping #%d - ", i
);
851 p
= (char *)D_seqp
- l
;
852 debug2("%d(%s) - ", l
, p
);
854 D_seqp
= D_kmaps
+ 3;
866 debug("am in sequence -> check for timeout\n");
868 for (s
= D_seqp
; ; s
+= i
* 2 + 4)
870 if (s
[-l
-3] & KMAP_NOTIMEOUT
>> 8)
872 if ((i
= s
[s
[-l
-1] + 1]) == 0)
874 SetTimeout(&D_mapev
, maptimeout
);
880 ProcessInput2(ibuf
, slen
);
884 # define ProcessInput2 ProcessInput
889 * Here only the screen escape commands are handled.
893 ProcessInput2(ibuf
, ilen
)
899 struct action
*ktabp
;
901 debug1("ProcessInput2: %d bytes\n", ilen
);
902 while (ilen
&& display
)
904 debug1(" - ilen now %d bytes\n", ilen
);
905 flayer
= D_forecv
->c_layer
;
913 if ((unsigned char)*s
++ == D_user
->u_Esc
)
919 DoProcess(fore
, &ibuf
, &slen
, 0);
925 ktabp
= D_ESCseen
? D_ESCseen
: ktab
;
927 ch
= (unsigned char)*s
;
930 * As users have different esc characters, but a common ktab[],
931 * we fold back the users esc and meta-esc key to the Default keys
932 * that can be looked up in the ktab[]. grmbl. jw.
933 * XXX: make ktab[] a per user thing.
935 if (ch
== D_user
->u_Esc
)
937 else if (ch
== D_user
->u_MetaEsc
)
941 DoAction(&ktabp
[ch
], ch
);
942 ibuf
= (char *)(s
+ 1);
948 DoProcess(p
, bufp
, lenp
, pa
)
955 struct display
*d
= display
;
958 /* XXX -> PasteStart */
959 if (pa
&& *lenp
> 1 && p
&& p
->w_slowpaste
)
961 /* schedule slowpaste event */
962 SetTimeout(&p
->w_paster
.pa_slowev
, p
->w_slowpaste
);
963 evenq(&p
->w_paster
.pa_slowev
);
967 while (flayer
&& *lenp
)
970 if (!pa
&& p
&& p
->w_paster
.pa_pastelen
&& flayer
== p
->w_paster
.pa_pastelayer
)
972 debug("layer is busy - beep!\n");
973 WBell(p
, visual_bell
);
981 LayProcess(bufp
, lenp
);
983 if (pa
&& !pa
->pa_pastelayer
)
984 break; /* flush rest of paste */
993 /* We're full, let's beep */
994 debug("layer is full - beep!\n");
995 WBell(p
, visual_bell
);
1003 if (pa
&& pa
->pa_pastelen
== 0)
1012 int x
, m
, l
= 0, r
= RC_LAST
;
1016 x
= strcmp(str
, comms
[m
].name
);
1028 CheckArgNum(nr
, args
)
1033 static char *argss
[] = {"no", "one", "two", "three", "four", "OOPS"};
1034 static char *orformat
[] =
1036 "%s: %s: %s argument%s required",
1037 "%s: %s: %s or %s argument%s required",
1038 "%s: %s: %s, %s or %s argument%s required",
1039 "%s: %s: %s, %s, %s or %s argument%s required"
1042 n
= comms
[nr
].flags
& ARGS_MASK
;
1043 for (i
= 0; args
[i
]; i
++)
1045 if (comms
[nr
].flags
& ARGS_ORMORE
)
1049 Msg(0, "%s: %s: at least %s argument%s required",
1050 rc_name
, comms
[nr
].name
, argss
[n
], n
!= 1 ? "s" : "");
1054 else if ((comms
[nr
].flags
& ARGS_PLUS1
) &&
1055 (comms
[nr
].flags
& ARGS_PLUS2
) &&
1056 (comms
[nr
].flags
& ARGS_PLUS3
))
1058 if (i
!= n
&& i
!= n
+ 1 && i
!= n
+ 2 && i
!= n
+ 3)
1060 Msg(0, orformat
[3], rc_name
, comms
[nr
].name
, argss
[n
],
1061 argss
[n
+ 1], argss
[n
+ 2], argss
[n
+ 3], "");
1065 else if ((comms
[nr
].flags
& ARGS_PLUS1
) &&
1066 (comms
[nr
].flags
& ARGS_PLUS2
))
1068 if (i
!= n
&& i
!= n
+ 1 && i
!= n
+ 2)
1070 Msg(0, orformat
[2], rc_name
, comms
[nr
].name
, argss
[n
],
1071 argss
[n
+ 1], argss
[n
+ 2], "");
1075 else if ((comms
[nr
].flags
& ARGS_PLUS1
) &&
1076 (comms
[nr
].flags
& ARGS_PLUS3
))
1078 if (i
!= n
&& i
!= n
+ 1 && i
!= n
+ 3)
1080 Msg(0, orformat
[2], rc_name
, comms
[nr
].name
, argss
[n
],
1081 argss
[n
+ 1], argss
[n
+ 3], "");
1085 else if ((comms
[nr
].flags
& ARGS_PLUS2
) &&
1086 (comms
[nr
].flags
& ARGS_PLUS3
))
1088 if (i
!= n
&& i
!= n
+ 2 && i
!= n
+ 3)
1090 Msg(0, orformat
[2], rc_name
, comms
[nr
].name
, argss
[n
],
1091 argss
[n
+ 2], argss
[n
+ 3], "");
1095 else if (comms
[nr
].flags
& ARGS_PLUS1
)
1097 if (i
!= n
&& i
!= n
+ 1)
1099 Msg(0, orformat
[1], rc_name
, comms
[nr
].name
, argss
[n
],
1100 argss
[n
+ 1], n
!= 0 ? "s" : "");
1104 else if (comms
[nr
].flags
& ARGS_PLUS2
)
1106 if (i
!= n
&& i
!= n
+ 2)
1108 Msg(0, orformat
[1], rc_name
, comms
[nr
].name
, argss
[n
],
1113 else if (comms
[nr
].flags
& ARGS_PLUS3
)
1115 if (i
!= n
&& i
!= n
+ 3)
1117 Msg(0, orformat
[1], rc_name
, comms
[nr
].name
, argss
[n
],
1124 Msg(0, orformat
[0], rc_name
, comms
[nr
].name
, argss
[n
], n
!= 1 ? "s" : "");
1131 StuffFin(buf
, len
, data
)
1139 LayProcess(&buf
, &len
);
1143 ChangeWinNum(old
, new)
1147 struct win
*pnew
= wtab
[new];
1148 struct win
*pold
= wtab
[old
];
1149 if (new < 0 || new >= maxwin
)
1151 Msg(0, "Given window position is invalid.");
1155 pold
->w_number
= new;
1158 pnew
->w_number
= old
;
1160 /* exchange the acls for these windows. */
1161 AclWinSwap(old
, new);
1164 /* exchange the utmp-slots for these windows */
1165 if ((pold
->w_slot
!= (slot_t
) -1) && (pold
->w_slot
!= (slot_t
) 0))
1170 if (pnew
&& (pnew
->w_slot
!= (slot_t
) -1) && (pnew
->w_slot
!= (slot_t
) 0))
1172 /* XXX: first display wins? */
1173 display
= pold
->w_layer
.l_cvlist
? pold
->w_layer
.l_cvlist
->c_display
: 0;
1179 WindowChanged(pold
, 'n');
1180 WindowChanged((struct win
*)0, 'w');
1181 WindowChanged((struct win
*)0, 'W');
1182 WindowChanged((struct win
*)0, 0);
1186 FocusCanvas(struct canvas
*cv
)
1190 if ((focusminwidth
&& (focusminwidth
< 0 || D_forecv
->c_xe
- D_forecv
->c_xs
+ 1 < focusminwidth
)) ||
1191 (focusminheight
&& (focusminheight
< 0 || D_forecv
->c_ye
- D_forecv
->c_ys
+ 1 < focusminheight
)))
1193 ResizeCanvas(&D_canvas
);
1194 RecreateCanvasChain();
1195 RethinkDisplayViewports();
1196 ResizeLayersToCanvases(); /* redisplays */
1200 struct win
*oldfore
= D_fore
;
1201 fore
= D_fore
= Layer2Window(D_forecv
->c_layer
);
1202 if (oldfore
!= fore
)
1205 trigger_sevent(&oldfore
->w_sev
.onleave
, display
, oldfore
);
1207 trigger_sevent(&fore
->w_sev
.onfocus
, display
, oldfore
);
1208 trigger_sevent(&globalevents
.forechanged
, display
, display
? D_fore
: fore
);
1212 fore
= D_fore
= Layer2Window(D_forecv
->c_layer
);
1214 if (D_other
== fore
)
1216 flayer
= D_forecv
->c_layer
;
1218 if (D_xtermosc
[2] || D_xtermosc
[3])
1228 flayer
= D_forecv
->c_layer
;
1229 CV_CALL(D_forecv
, LayRestore();LaySetCursor());
1230 WindowChanged(0, 'F');
1234 LayoutChangeNumber(struct layout
*lay
, int newnum
)
1237 int old
= lay
->lay_number
;
1239 if (newnum
< 0 || newnum
>= MAXLAY
)
1241 tmp
= laytab
[newnum
];
1242 laytab
[newnum
] = lay
;
1243 lay
->lay_number
= newnum
;
1246 tmp
->lay_number
= old
;
1256 char **args
= act
->args
;
1257 int *argl
= act
->argl
;
1259 int argc
, i
, n
, msgok
;
1262 struct display
*odisplay
= display
;
1263 struct acluser
*user
;
1265 user
= display
? D_user
: users
;
1269 struct alias
*alias
= FindAliasnr(nr
);
1272 DoAlias(alias
->name
, act
->args
, act
->argl
);
1278 if (nr
== RC_ILLEGAL
)
1280 debug1("key '%c': No action\n", key
);
1284 n
= comms
[nr
].flags
;
1285 if ((n
& NEED_DISPLAY
) && display
== 0)
1287 Msg(0, "%s: %s: display required", rc_name
, comms
[nr
].name
);
1290 if ((n
& NEED_FORE
) && fore
== 0)
1292 Msg(0, "%s: %s: window required", rc_name
, comms
[nr
].name
);
1295 if ((n
& NEED_LAYER
) && flayer
== 0)
1297 Msg(0, "%s: %s: display or window required", rc_name
, comms
[nr
].name
);
1300 if ((argc
= CheckArgNum(nr
, args
)) < 0)
1305 if (AclCheckPermCmd(D_user
, ACL_EXEC
, &comms
[nr
]))
1307 Msg(0, "%s: %s: permission denied (user %s)",
1308 rc_name
, comms
[nr
].name
, (EffectiveAclUser
? EffectiveAclUser
: D_user
)->u_name
);
1312 #endif /* MULTIUSER */
1314 msgok
= display
&& !*rc_name
;
1320 else if (args
[0][0] == '-' && !args
[0][1])
1322 SetForeWindow((struct win
*)0);
1325 else if (args
[0][0] == '.' && !args
[0][1])
1328 Msg(0, "select . needs a window");
1331 SetForeWindow(fore
);
1335 else if (ParseWinNum(act
, &n
) == 0)
1339 case RC_DEFAUTONUKE
:
1340 if (ParseOnOff(act
, &defautonuke
) == 0 && msgok
)
1341 Msg(0, "Default autonuke turned %s", defautonuke
? "on" : "off");
1342 if (display
&& *rc_name
)
1343 D_auto_nuke
= defautonuke
;
1346 if (ParseOnOff(act
, &D_auto_nuke
) == 0 && msgok
)
1347 Msg(0, "Autonuke turned %s", D_auto_nuke
? "on" : "off");
1350 case RC_DEFOBUFLIMIT
:
1351 if (ParseNum(act
, &defobuflimit
) == 0 && msgok
)
1352 Msg(0, "Default limit set to %d", defobuflimit
);
1353 if (display
&& *rc_name
)
1355 D_obufmax
= defobuflimit
;
1356 D_obuflenmax
= D_obuflen
- D_obufmax
;
1361 Msg(0, "Limit is %d, current buffer size is %d", D_obufmax
, D_obuflen
);
1362 else if (ParseNum(act
, &D_obufmax
) == 0 && msgok
)
1363 Msg(0, "Limit set to %d", D_obufmax
);
1364 D_obuflenmax
= D_obuflen
- D_obufmax
;
1366 case RC_DUMPTERMCAP
:
1367 WriteFile(user
, (char *)0, DUMP_TERMCAP
);
1371 int mode
= DUMP_HARDCOPY
;
1373 if (argc
> 1 && !strcmp(*args
, "-h"))
1375 mode
= DUMP_SCROLLBACK
;
1379 if (*args
&& args
[1])
1381 Msg(0, "%s: hardcopy: too many arguments", rc_name
);
1384 if (fore
== 0 && *args
== 0)
1385 Msg(0, "%s: hardcopy: window required", rc_name
);
1387 WriteFile(user
, *args
, mode
);
1391 (void)ParseOnOff(act
, &nwin_default
.Lflag
);
1394 n
= fore
->w_log
? 1 : 0;
1395 ParseSwitch(act
, &n
);
1405 SwitchWindow(NextWindow());
1409 SwitchWindow(PreviousWindow());
1418 Input(fore
->w_pwin
? "Really kill this filter [y/n]" : "Really kill this window [y/n]", 1, INP_RAW
, confirm_fn
, NULL
, RC_KILL
);
1420 Input("Really kill this window [y/n]", 1, INP_RAW
, confirm_fn
, NULL
, RC_KILL
);
1428 FreePseudowin(fore
);
1429 Msg(0, "Filter removed.");
1433 name
= SaveStr(fore
->w_title
);
1435 Msg(0, "Window %d (%s) killed.", n
, name
);
1443 Input("Really quit and kill all your windows [y/n]", 1, INP_RAW
, confirm_fn
, NULL
, RC_QUIT
);
1450 if (*args
&& !strcmp(*args
, "-h"))
1462 Input(buf
, 1, INP_RAW
, pow_detach_fn
, NULL
, 0);
1465 Detach(D_POWER
); /* detach and kill Attacher's parent */
1474 Msg(0, "debugging info is written to %s/", DEBUGDIR
);
1476 Msg(0, "debugging is currently off. Use 'debug on' to enable.");
1481 debug("debug: closing debug file.\n");
1486 if (strcmp("off", *args
))
1490 kill(D_userpid
, SIG_NODEBUG
); /* a one shot item, but hey... */
1491 # endif /* SIG_NODEBUG */
1493 if (*args
== 0 || strcmp("off", *args
))
1494 Msg(0, "Sorry, screen was compiled without -DDEBUG option.");
1499 if (*args
&& !strcmp(*args
, "sendcmd"))
1503 free(zmodem_sendcmd
);
1504 zmodem_sendcmd
= SaveStr(args
[1]);
1507 Msg(0, "zmodem sendcmd: %s", zmodem_sendcmd
);
1510 if (*args
&& !strcmp(*args
, "recvcmd"))
1514 free(zmodem_recvcmd
);
1515 zmodem_recvcmd
= SaveStr(args
[1]);
1518 Msg(0, "zmodem recvcmd: %s", zmodem_recvcmd
);
1523 for (i
= 0; i
< 4; i
++)
1524 if (!strcmp(zmodes
[i
], *args
))
1526 if (i
== 4 && !strcmp(*args
, "on"))
1530 Msg(0, "usage: zmodem off|auto|catch|pass");
1536 Msg(0, "zmodem mode is %s", zmodes
[zmodem_mode
]);
1543 ZombieKey_destroy
= 0;
1546 if (*argl
== 0 || *argl
> 2)
1548 Msg(0, "%s:zombie: one or two characters expected.", rc_name
);
1553 if (!strcmp(args
[1], "onerror"))
1555 ZombieKey_onerror
= 1;
1557 Msg(0, "usage: zombie [keys [onerror]]");
1561 ZombieKey_onerror
= 0;
1562 ZombieKey_destroy
= args
[0][0];
1563 ZombieKey_resurrect
= *argl
== 2 ? args
[0][1] : 0;
1573 struct display
*olddisplay
= display
;
1574 display
= 0; /* no display will cause a broadcast */
1575 Msg(0, "%s: %s", s
, *args
);
1576 display
= olddisplay
;
1580 /* where this AT command comes from: */
1582 s
= SaveStr(D_user
->u_name
);
1583 /* DO NOT RETURN FROM HERE WITHOUT RESETTING THIS: */
1584 EffectiveAclUser
= D_user
;
1586 s
= SaveStr(D_usertty
);
1588 n
= strlen(args
[0]);
1591 * the windows/displays loops are quite dangerous here, take extra
1592 * care not to trigger landmines. Things may appear/disappear while
1593 * we are walking along.
1597 case '*': /* user */
1605 for (u
= users
; u
; u
= u
->u_next
)
1607 debug3("strncmp('%s', '%s', %d)\n", *args
, u
->u_name
, n
);
1608 if (!strncmp(*args
, u
->u_name
, n
))
1611 debug1("at all displays of user %s\n", u
->u_name
);
1612 for (display
= displays
; display
; display
= nd
)
1614 nd
= display
->d_next
;
1617 flayer
= D_forecv
->c_layer
;
1621 debug1("AT display %s\n", D_usertty
);
1622 DoCommand(args
+ 1, argl
+ 1);
1624 Msg(0, "command from %s: %s %s",
1625 s
, args
[1], args
[2] ? args
[2] : "");
1632 case '%': /* display */
1636 debug1("at display matching '%s'\n", args
[0]);
1637 for (display
= displays
; display
; display
= nd
)
1639 nd
= display
->d_next
;
1643 flayer
= D_forecv
->c_layer
;
1644 if (strncmp(args
[0], D_usertty
, n
) &&
1645 (strncmp("/dev/", D_usertty
, 5) ||
1646 strncmp(args
[0], D_usertty
+ 5, n
)) &&
1647 (strncmp("/dev/tty", D_usertty
, 8) ||
1648 strncmp(args
[0], D_usertty
+ 8, n
)))
1650 debug1("AT display %s\n", D_usertty
);
1651 DoCommand(args
+ 1, argl
+ 1);
1653 Msg(0, "command from %s: %s %s",
1654 s
, args
[1], args
[2] ? args
[2] : "");
1661 case '#': /* window */
1672 if (!*args
[0] || (i
= WindowByNumber(args
[0])) < 0)
1674 args
[0][n
] = ch
; /* must restore string in case of bind */
1675 /* try looping over titles */
1676 for (fore
= windows
; fore
; fore
= nw
)
1679 if (strncmp(args
[0], fore
->w_title
, n
))
1681 debug2("AT window %d(%s)\n", fore
->w_number
, fore
->w_title
);
1683 * consider this a bug or a feature:
1684 * while looping through windows, we have fore AND
1685 * display context. This will confuse users who try to
1686 * set up loops inside of loops, but often allows to do
1687 * what you mean, even when you adress your context wrong.
1690 /* XXX: other displays? */
1691 if (fore
->w_layer
.l_cvlist
)
1692 display
= fore
->w_layer
.l_cvlist
->c_display
;
1693 flayer
= fore
->w_savelayer
? fore
->w_savelayer
: &fore
->w_layer
;
1694 DoCommand(args
+ 1, argl
+ 1); /* may destroy our display */
1695 if (fore
&& fore
->w_layer
.l_cvlist
)
1697 display
= fore
->w_layer
.l_cvlist
->c_display
;
1698 Msg(0, "command from %s: %s %s",
1699 s
, args
[1], args
[2] ? args
[2] : "");
1705 Msg(0, "%s: at '%s': no such window.\n", rc_name
, args
[0]);
1708 else if (i
< MAXWIN
&& (fore
= wtab
[i
]))
1710 args
[0][n
] = ch
; /* must restore string in case of bind */
1711 debug2("AT window %d (%s)\n", fore
->w_number
, fore
->w_title
);
1712 if (fore
->w_layer
.l_cvlist
)
1713 display
= fore
->w_layer
.l_cvlist
->c_display
;
1714 flayer
= fore
->w_savelayer
? fore
->w_savelayer
: &fore
->w_layer
;
1715 DoCommand(args
+ 1, argl
+ 1);
1716 if (fore
&& fore
->w_layer
.l_cvlist
)
1718 display
= fore
->w_layer
.l_cvlist
->c_display
;
1719 Msg(0, "command from %s: %s %s",
1720 s
, args
[1], args
[2] ? args
[2] : "");
1726 Msg(0, "%s: at [identifier][%%|*|#] command [args]", rc_name
);
1732 EffectiveAclUser
= NULL
;
1739 i
= fore
? fore
->w_encoding
: display
? display
->d_encoding
: 0;
1740 if (args
[0] && args
[1] && !strcmp(args
[0], "-e"))
1742 i
= FindEncoding(args
[1]);
1745 Msg(0, "%s: readreg: unknown encoding", rc_name
);
1752 * Without arguments we prompt for a destination register.
1753 * It will receive the copybuffer contents.
1754 * This is not done by RC_PASTE, as we prompt for source
1757 if ((s
= *args
) == NULL
)
1759 Input("Copy to register:", 1, INP_RAW
, copy_reg_fn
, NULL
, 0);
1764 Msg(0, "%s: copyreg: character, ^x, or (octal) \\032 expected.", rc_name
);
1769 * With two arguments we *really* read register contents from file
1775 Msg(0, "%s: readreg: too many arguments", rc_name
);
1778 if ((s
= ReadFile(args
[1], &n
)))
1780 struct plop
*pp
= plop_tab
+ (int)(unsigned char)ch
;
1793 * with one argument we copy the copybuffer into a specified register
1794 * This could be done with RC_PASTE too, but is here to be consistent
1795 * with the zero argument call.
1797 copy_reg_fn(&ch
, 0, NULL
);
1802 i
= fore
? fore
->w_encoding
: display
? display
->d_encoding
: 0;
1803 if (args
[0] && args
[1] && !strcmp(args
[0], "-e"))
1805 i
= FindEncoding(args
[1]);
1808 Msg(0, "%s: register: unknown encoding", rc_name
);
1817 Msg(0, "%s: register: illegal number of arguments.", rc_name
);
1822 Msg(0, "%s: register: character, ^x, or (octal) \\032 expected.", rc_name
);
1829 if (user
->u_plop
.buf
!= NULL
)
1830 UserFreeCopyBuffer(user
);
1831 if (args
[1] && args
[1][0])
1833 user
->u_plop
.buf
= SaveStrn(args
[1], argl
[1]);
1834 user
->u_plop
.len
= argl
[1];
1836 user
->u_plop
.enc
= i
;
1843 struct plop
*plp
= plop_tab
+ (int)(unsigned char)ch
;
1847 plp
->buf
= SaveStrn(args
[1], argl
[1]);
1855 if ((s
= *args
) == NULL
)
1857 Input("Process register:", 1, INP_RAW
, process_fn
, NULL
, 0);
1862 Msg(0, "%s: process: character, ^x, or (octal) \\032 expected.", rc_name
);
1866 process_fn(&ch
, 0, NULL
);
1872 Input("Stuff:", 100, INP_COOKED
, StuffFin
, NULL
, 0);
1878 if (strcmp(s
, "-k"))
1880 Msg(0, "%s: stuff: invalid option %s", rc_name
, s
);
1884 for (i
= T_CAPS
; i
< T_OCAPS
; i
++)
1885 if (strcmp(term
[i
].tcname
, s
) == 0)
1889 Msg(0, "%s: stuff: unknown key '%s'", rc_name
, s
);
1893 if (StuffKey(i
- T_CAPS
) == 0)
1896 s
= display
? D_tcs
[i
].str
: 0;
1911 Msg(0, "screen %s", version
);
1916 timestring
= SaveStr(*args
);
1919 Msg(0, "%s", MakeWinMsg(timestring
, fore
, '%'));
1929 struct action
*ktabp
= ktab
;
1930 if (argc
== 2 && !strcmp(*args
, "-c"))
1932 if ((ktabp
= FindKtab(args
[1], 0)) == 0)
1934 Msg(0, "Unknown command class '%s'", args
[1]);
1938 if (D_ESCseen
!= ktab
|| ktabp
!= ktab
)
1948 SwitchWindow(display
&& D_other
? D_other
->w_number
: NextWindow());
1951 if (user
->u_Esc
== -1)
1970 case RC_DEFBREAKTYPE
:
1973 static char *types
[] = { "TIOCSBRK", "TCSBRK", "tcsendbreak", NULL
};
1974 extern int breaktype
;
1978 if (ParseNum(act
, &n
))
1979 for (n
= 0; n
< (int)(sizeof(types
)/sizeof(*types
)); n
++)
1981 for (i
= 0; i
< 4; i
++)
1984 if (ch
>= 'a' && ch
<= 'z')
1986 if (ch
!= types
[n
][i
] && (ch
+ ('a' - 'A')) != types
[n
][i
])
1992 if (n
< 0 || n
>= (int)(sizeof(types
)/sizeof(*types
)))
1993 Msg(0, "%s invalid, chose one of %s, %s or %s", *args
, types
[0], types
[1], types
[2]);
1997 Msg(0, "breaktype set to (%d) %s", n
, types
[n
]);
2001 Msg(0, "breaktype is (%d) %s", breaktype
, types
[breaktype
]);
2007 if (*args
&& ParseNum(act
, &n
))
2009 SendBreak(fore
, n
, nr
== RC_POW_BREAK
);
2023 if (*args
&& !strcmp(*args
, "-w"))
2025 else if (*args
&& !strcmp(*args
, "-d"))
2029 if (what
== 0 && flayer
&& !display
)
2035 Msg(0, "%s: %s: window required", rc_name
, comms
[nr
].name
);
2038 w
= flayer
->l_width
;
2039 h
= flayer
->l_height
;
2045 Msg(0, "%s: %s: display required", rc_name
, comms
[nr
].name
);
2051 if (*args
&& args
[0][0] == '-')
2053 Msg(0, "%s: %s: unknown option %s", rc_name
, comms
[nr
].name
, *args
);
2056 if (nr
== RC_HEIGHT
)
2064 else if (h
== H1height
)
2066 else if (h
> (H0height
+ H1height
) / 2)
2084 else if (w
== Z1width
)
2086 else if (w
> (Z0width
+ Z1width
) / 2)
2098 if (*args
&& args
[1] && args
[2])
2100 Msg(0, "%s: %s: too many arguments", rc_name
, comms
[nr
].name
);
2105 Msg(0, "Illegal width");
2110 Msg(0, "Illegal height");
2115 if (flayer
->l_width
== w
&& flayer
->l_height
== h
)
2117 ResizeLayer(flayer
, w
, h
, (struct display
*)0);
2120 if (D_width
== w
&& D_height
== h
)
2124 ChangeScreenSize(w
, h
, 1);
2128 if (ResizeDisplay(w
, h
) == 0)
2130 Activate(D_fore
? D_fore
->w_norefresh
: 0);
2132 ResizeLayer(D_forecv
->c_layer
, D_forecv
->c_xe
- D_forecv
->c_xs
+ 1, D_forecv
->c_ye
- D_forecv
->c_ys
+ 1, 0);
2136 Msg(0, "Your termcap does not specify how to change the terminal's width to %d.", w
);
2137 else if (w
== D_width
)
2138 Msg(0, "Your termcap does not specify how to change the terminal's height to %d.", h
);
2140 Msg(0, "Your termcap does not specify how to change the terminal's resolution to %dx%d.", w
, h
);
2148 ChangeAKA(fore
, *args
, strlen(*args
));
2151 Input(":", 100, INP_EVERY
, Colonfin
, NULL
, 0);
2152 if (*args
&& **args
)
2160 if (D_status_lastmsg
)
2161 Msg(0, "%s", D_status_lastmsg
);
2164 DoScreen("key", args
);
2167 if (ParseSwitch(act
, &fore
->w_wrap
) == 0 && msgok
)
2168 Msg(0, "%cwrap", fore
->w_wrap
? '+' : '-');
2173 if (args
[0][0] == 'a')
2175 fore
->w_flow
= (fore
->w_flow
& FLOW_AUTO
) ? FLOW_AUTOFLAG
|FLOW_AUTO
|FLOW_NOW
: FLOW_AUTOFLAG
;
2179 if (ParseOnOff(act
, &n
))
2181 fore
->w_flow
= (fore
->w_flow
& FLOW_AUTO
) | n
;
2186 if (fore
->w_flow
& FLOW_AUTOFLAG
)
2187 fore
->w_flow
= (fore
->w_flow
& FLOW_AUTO
) | FLOW_NOW
;
2188 else if (fore
->w_flow
& FLOW_NOW
)
2189 fore
->w_flow
&= ~FLOW_NOW
;
2191 fore
->w_flow
= fore
->w_flow
? FLOW_AUTOFLAG
|FLOW_AUTO
|FLOW_NOW
: FLOW_AUTOFLAG
;
2193 SetFlow(fore
->w_flow
& FLOW_NOW
);
2195 Msg(0, "%cflow%s", (fore
->w_flow
& FLOW_NOW
) ? '+' : '-',
2196 (fore
->w_flow
& FLOW_AUTOFLAG
) ? "(auto)" : "");
2199 case RC_DEFWRITELOCK
:
2200 if (args
[0][0] == 'a')
2201 nwin_default
.wlock
= WLOCK_AUTO
;
2204 if (ParseOnOff(act
, &n
))
2206 nwin_default
.wlock
= n
? WLOCK_ON
: WLOCK_OFF
;
2212 if (args
[0][0] == 'a')
2214 fore
->w_wlock
= WLOCK_AUTO
;
2218 if (ParseOnOff(act
, &n
))
2220 fore
->w_wlock
= n
? WLOCK_ON
: WLOCK_OFF
;
2223 * user may have permission to change the writelock setting,
2224 * but he may never aquire the lock himself without write permission
2226 if (!AclCheckPermWin(D_user
, ACL_WRITE
, fore
))
2227 fore
->w_wlockuser
= D_user
;
2229 Msg(0, "writelock %s", (fore
->w_wlock
== WLOCK_AUTO
) ? "auto" :
2230 ((fore
->w_wlock
== WLOCK_OFF
) ? "off" : "on"));
2234 ResetAnsiState(fore
);
2235 WriteString(fore
, "\033[H\033[J", 6);
2238 ResetAnsiState(fore
);
2240 if (fore
->w_zdisplay
)
2241 zmodem_abort(fore
, fore
->w_zdisplay
);
2243 WriteString(fore
, "\033c", 2);
2246 n
= fore
->w_monitor
!= MON_OFF
;
2249 n
= n
&& (ACLBYTE(fore
->w_mon_notify
, D_user
->u_id
) & ACLBIT(D_user
->u_id
));
2251 if (ParseSwitch(act
, &n
))
2256 if (display
) /* we tell only this user */
2257 ACLBYTE(fore
->w_mon_notify
, D_user
->u_id
) |= ACLBIT(D_user
->u_id
);
2259 for (i
= 0; i
< maxusercount
; i
++)
2260 ACLBYTE(fore
->w_mon_notify
, i
) |= ACLBIT(i
);
2262 if (fore
->w_monitor
== MON_OFF
)
2263 fore
->w_monitor
= MON_ON
;
2264 Msg(0, "Window %d (%s) is now being monitored for all activity.", fore
->w_number
, fore
->w_title
);
2269 if (display
) /* we remove only this user */
2270 ACLBYTE(fore
->w_mon_notify
, D_user
->u_id
)
2271 &= ~ACLBIT(D_user
->u_id
);
2273 for (i
= 0; i
< maxusercount
; i
++)
2274 ACLBYTE(fore
->w_mon_notify
, i
) &= ~ACLBIT(i
);
2275 for (i
= maxusercount
- 1; i
>= 0; i
--)
2276 if (ACLBYTE(fore
->w_mon_notify
, i
))
2280 fore
->w_monitor
= MON_OFF
;
2281 Msg(0, "Window %d (%s) is no longer being monitored for activity.", fore
->w_number
, fore
->w_title
);
2291 display_wlist(0, WLIST_NUM
, (struct win
*)0);
2292 else if (!strcmp(*args
, "string"))
2298 wliststr
= SaveStr(args
[1]);
2301 Msg(0, "windowlist string is '%s'", wliststr
);
2303 else if (!strcmp(*args
, "title"))
2309 wlisttit
= SaveStr(args
[1]);
2312 Msg(0, "windowlist title is '%s'", wlisttit
);
2318 for (i
= 0; i
< argc
; i
++)
2321 else if (!strcmp(args
[i
], "-m"))
2323 else if (!strcmp(args
[i
], "-b"))
2325 else if (!strcmp(args
[i
], "-g"))
2326 flag
|= WLIST_NESTED
;
2329 Msg(0, "usage: windowlist [-b] [-g] [-m] [string [string] | title [title]]");
2333 display_wlist(blank
, flag
, (struct win
*)0);
2337 if (argc
== 2 && !strcmp(*args
, "-c"))
2339 struct action
*ktabp
;
2340 if ((ktabp
= FindKtab(args
[1], 0)) == 0)
2342 Msg(0, "Unknown command class '%s'", args
[1]);
2345 display_help(args
[1], ktabp
);
2348 display_help((char *)0, ktab
);
2351 display_copyright();
2355 if (flayer
->l_layfn
!= &WinLf
)
2357 Msg(0, "Must be on a window layer");
2364 static char *pasteargs
[] = {".", 0};
2365 static int pasteargl
[] = {1};
2367 if (flayer
->l_layfn
!= &WinLf
)
2369 Msg(0, "Must be on a window layer");
2372 if (GetHistory() == 0)
2374 if (user
->u_plop
.buf
== NULL
)
2382 char *ss
, *dbuf
, dch
;
2389 * without args we prompt for one(!) register to be pasted in the window
2391 if ((s
= *args
) == NULL
)
2393 Input("Paste from register:", 1, INP_RAW
, ins_reg_fn
, NULL
, 0);
2396 if (args
[1] == 0 && !fore
) /* no window? */
2399 * with two arguments we paste into a destination register
2400 * (no window needed here).
2402 if (args
[1] && argl
[1] != 1)
2404 Msg(0, "%s: paste destination: character, ^x, or (octal) \\032 expected.",
2410 enc
= fore
->w_encoding
;
2414 * measure length of needed buffer
2416 for (ss
= s
= *args
; (ch
= *ss
); ss
++)
2422 enc
= user
->u_plop
.enc
;
2423 if (enc
!= user
->u_plop
.enc
)
2424 l
+= RecodeBuf((unsigned char *)user
->u_plop
.buf
, user
->u_plop
.len
, user
->u_plop
.enc
, enc
, (unsigned char *)0);
2427 l
+= user
->u_plop
.len
;
2433 enc
= plop_tab
[(int)(unsigned char)ch
].enc
;
2434 if (enc
!= plop_tab
[(int)(unsigned char)ch
].enc
)
2435 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);
2438 l
+= plop_tab
[(int)(unsigned char)ch
].len
;
2443 Msg(0, "empty buffer");
2448 * if there is only one source and the destination is a window, then
2449 * pass a pointer rather than duplicating the buffer.
2451 if (s
[1] == 0 && args
[1] == 0)
2453 if (enc
== (*s
== '.' ? user
->u_plop
.enc
: plop_tab
[(int)(unsigned char)*s
].enc
))
2456 MakePaster(&fore
->w_paster
, *s
== '.' ? user
->u_plop
.buf
: plop_tab
[(int)(unsigned char)*s
].buf
, l
, 0);
2460 * if no shortcut, we construct a buffer
2462 if ((dbuf
= (char *)malloc(l
)) == 0)
2469 * concatenate all sources into our own buffer, copy buffer is
2470 * special and is skipped if no display exists.
2472 for (ss
= s
; (ch
= *ss
); ss
++)
2474 struct plop
*pp
= (ch
== '.' ? &user
->u_plop
: &plop_tab
[(int)(unsigned char)ch
]);
2478 l
+= RecodeBuf((unsigned char *)pp
->buf
, pp
->len
, pp
->enc
, enc
, (unsigned char *)dbuf
+ l
);
2482 bcopy(pp
->buf
, dbuf
+ l
, pp
->len
);
2486 * when called with one argument we paste our buffer into the window
2490 MakePaster(&fore
->w_paster
, dbuf
, l
, 1);
2495 * we have two arguments, the second is already in dch.
2496 * use this as destination rather than the window.
2501 if (user
->u_plop
.buf
!= NULL
)
2502 UserFreeCopyBuffer(user
);
2503 user
->u_plop
.buf
= dbuf
;
2504 user
->u_plop
.len
= l
;
2506 user
->u_plop
.enc
= enc
;
2511 struct plop
*pp
= plop_tab
+ (int)(unsigned char)dch
;
2524 if (!user
->u_plop
.buf
)
2526 Msg(0, "empty buffer");
2531 struct plop oldplop
;
2533 oldplop
= user
->u_plop
;
2534 if (args
[0] && args
[1] && !strcmp(args
[0], "-e"))
2539 enc
= FindEncoding(args
[1]);
2542 Msg(0, "%s: writebuf: unknown encoding", rc_name
);
2545 if (enc
!= oldplop
.enc
)
2547 l
= RecodeBuf((unsigned char *)oldplop
.buf
, oldplop
.len
, oldplop
.enc
, enc
, (unsigned char *)0);
2548 newbuf
= malloc(l
+ 1);
2554 user
->u_plop
.len
= RecodeBuf((unsigned char *)oldplop
.buf
, oldplop
.len
, oldplop
.enc
, enc
, (unsigned char *)newbuf
);
2555 user
->u_plop
.buf
= newbuf
;
2556 user
->u_plop
.enc
= enc
;
2561 if (args
[0] && args
[1])
2562 Msg(0, "%s: writebuf: too many arguments", rc_name
);
2564 WriteFile(user
, args
[0], DUMP_EXCHANGE
);
2566 if (user
->u_plop
.buf
!= oldplop
.buf
)
2567 free(user
->u_plop
.buf
);
2568 user
->u_plop
= oldplop
;
2574 i
= fore
? fore
->w_encoding
: display
? display
->d_encoding
: 0;
2575 if (args
[0] && args
[1] && !strcmp(args
[0], "-e"))
2577 i
= FindEncoding(args
[1]);
2580 Msg(0, "%s: readbuf: unknown encoding", rc_name
);
2586 if (args
[0] && args
[1])
2588 Msg(0, "%s: readbuf: too many arguments", rc_name
);
2591 if ((s
= ReadFile(args
[0] ? args
[0] : BufferFile
, &n
)))
2593 if (user
->u_plop
.buf
)
2594 UserFreeCopyBuffer(user
);
2595 user
->u_plop
.len
= n
;
2596 user
->u_plop
.buf
= s
;
2598 user
->u_plop
.enc
= i
;
2606 (void)ParseSwitch(act
, &search_ic
);
2608 Msg(0, "Will %signore case in searches", search_ic
? "" : "not ");
2610 #endif /* COPY_PASTE */
2613 SetEscape(user
, -1, -1);
2614 else if (*argl
== 2)
2615 SetEscape(user
, (int)(unsigned char)args
[0][0], (int)(unsigned char)args
[0][1]);
2618 Msg(0, "%s: two characters required after escape.", rc_name
);
2621 /* Change defescape if master user. This is because we only
2624 if (display
&& user
!= users
)
2629 SetEscape(NULL
, -1, -1);
2630 else if (*argl
== 2)
2631 SetEscape(NULL
, (int)(unsigned char)args
[0][0], (int)(unsigned char)args
[0][1]);
2634 Msg(0, "%s: two characters required after defescape.", rc_name
);
2642 s
= *args
? *args
: home
;
2644 Msg(errno
, "%s", s
);
2648 if (ParseSaveStr(act
, &ShellProg
) == 0)
2649 ShellArgs
[0] = ShellProg
;
2651 case RC_HARDCOPYDIR
:
2653 (void)ParseSaveStr(act
, &hardcopydir
);
2655 Msg(0, "hardcopydir is %s\n", hardcopydir
&& *hardcopydir
? hardcopydir
: "<cwd>");
2660 if (args
[1] && !(strcmp(*args
, "flush")))
2662 log_flush
= atoi(args
[1]);
2664 Msg(0, "log flush timeout set to %ds\n", log_flush
);
2667 if (ParseSaveStr(act
, &screenlogfile
) || !msgok
)
2670 Msg(0, "logfile is '%s'", screenlogfile
);
2673 if (!*args
|| !strcmp(*args
, "on") || !strcmp(*args
, "off"))
2675 if (ParseSwitch(act
, &logtstamp_on
) == 0 && msgok
)
2676 Msg(0, "timestamps turned %s", logtstamp_on
? "on" : "off");
2678 else if (!strcmp(*args
, "string"))
2682 if (logtstamp_string
)
2683 free(logtstamp_string
);
2684 logtstamp_string
= SaveStr(args
[1]);
2687 Msg(0, "logfile timestamp is '%s'", logtstamp_string
);
2689 else if (!strcmp(*args
, "after"))
2693 logtstamp_after
= atoi(args
[1]);
2697 Msg(0, "timestamp printed after %ds\n", logtstamp_after
);
2700 Msg(0, "usage: logtstamp [after [n]|string [str]|on|off]");
2703 (void)ParseSaveStr(act
, &nwin_default
.aka
);
2706 case RC_TERMCAPINFO
:
2708 if (!rc_name
|| !*rc_name
)
2709 Msg(0, "Sorry, too late now. Place that in your .screenrc file.");
2712 break; /* Already handled */
2717 AddAlias(args
[0], args
[1], args
+1, argl
+1, argc
- 1);
2721 if (ParseSaveStr(act
, &s
))
2723 if (strlen(s
) >= 20)
2725 Msg(0, "%s: term: argument too long ( < 20)", rc_name
);
2729 strcpy(screenterm
, s
);
2731 debug1("screenterm set to %s\n", screenterm
);
2732 MakeTermcap((display
== 0));
2733 debug("new termcap made\n");
2736 if (!msgok
&& (!rc_name
|| strcmp(rc_name
, "-X")))
2739 * user typed ^A:echo... well, echo isn't FinishRc's job,
2740 * but as he wanted to test us, we show good will
2742 if (argc
> 1 && !strcmp(*args
, "-n"))
2748 if (argc
> 1 && !strcmp(*args
, "-p"))
2754 s
= MakeWinMsg(s
, fore
, '%');
2759 Msg(0, "%s: 'echo [-n] [-p] \"string\"' expected.", rc_name
);
2766 AddXChars(buf
, sizeof(buf
), BellString
);
2767 Msg(0, "bell_msg is '%s'", buf
);
2770 (void)ParseSaveStr(act
, &BellString
);
2775 BufferFile
= SaveStr(DEFAULT_BUFFERFILE
);
2776 else if (ParseSaveStr(act
, &BufferFile
))
2779 Msg(0, "Bufferfile is now '%s'", BufferFile
);
2783 (void)ParseSaveStr(act
, &ActivityString
);
2785 #if defined(DETACH) && defined(POW_DETACH)
2786 case RC_POW_DETACH_MSG
:
2790 AddXChars(buf
, sizeof(buf
), PowDetachString
);
2791 Msg(0, "pow_detach_msg is '%s'", buf
);
2794 (void)ParseSaveStr(act
, &PowDetachString
);
2797 #if defined(UTMPOK) && defined(LOGOUTOK)
2799 n
= fore
->w_slot
!= (slot_t
)-1;
2800 if (*args
&& !strcmp(*args
, "always"))
2807 if (*args
&& !strcmp(*args
, "attached"))
2814 if (ParseSwitch(act
, &n
) == 0)
2818 if (!strcmp(*args
, "always"))
2819 nwin_default
.lflag
|= 2;
2820 else if (!strcmp(*args
, "attached"))
2821 nwin_default
.lflag
&= ~2;
2823 (void)ParseOnOff(act
, &nwin_default
.lflag
);
2827 if (args
[0] && args
[1] && args
[1][0] == 'i')
2830 for (display
= displays
; display
; display
= display
->d_next
)
2834 #if defined(TERMIO) || defined(POSIX)
2835 D_NewMode
.tio
.c_cc
[VINTR
] = D_OldMode
.tio
.c_cc
[VINTR
];
2836 D_NewMode
.tio
.c_lflag
|= ISIG
;
2837 #else /* TERMIO || POSIX */
2838 D_NewMode
.m_tchars
.t_intrc
= D_OldMode
.m_tchars
.t_intrc
;
2839 #endif /* TERMIO || POSIX */
2840 SetTTY(D_userfd
, &D_NewMode
);
2843 if (args
[0] && args
[0][0] == 'a')
2844 nwin_default
.flowflag
= FLOW_AUTOFLAG
;
2846 (void)ParseOnOff(act
, &nwin_default
.flowflag
);
2849 (void)ParseOnOff(act
, &nwin_default
.wrap
);
2852 (void)ParseOnOff(act
, &nwin_default
.c1
);
2856 (void)ParseOnOff(act
, &nwin_default
.bce
);
2860 (void)ParseOnOff(act
, &nwin_default
.gr
);
2863 if (ParseOnOff(act
, &n
) == 0)
2864 nwin_default
.monitor
= (n
== 0) ? MON_OFF
: MON_ON
;
2867 if (ParseOnOff(act
, &n
) == 0)
2868 nwin_default
.silence
= (n
== 0) ? SILENCE_OFF
: SILENCE_ON
;
2872 Msg(0, "W%s echo command when creating windows.",
2873 VerboseCreate
? "ill" : "on't");
2874 else if (ParseOnOff(act
, &n
) == 0)
2880 Msg(0, "%s", ""); /* wait till mintime (keep gcc quiet) */
2883 if (args
[0] && strcmp(args
[0], "on") && strcmp(args
[0], "off"))
2885 struct display
*olddisplay
= display
;
2886 int old_use
, new_use
= -1;
2889 if (!strncmp(s
, "always", 6))
2891 if (!strcmp(s
, "lastline"))
2892 new_use
= HSTATUS_LASTLINE
;
2893 else if (!strcmp(s
, "ignore"))
2894 new_use
= HSTATUS_IGNORE
;
2895 else if (!strcmp(s
, "message"))
2896 new_use
= HSTATUS_MESSAGE
;
2897 else if (!strcmp(args
[0], "string"))
2902 AddXChars(buf
, sizeof(buf
), hstatusstring
);
2903 Msg(0, "hardstatus string is '%s'", buf
);
2909 Msg(0, "%s: usage: hardstatus [always]lastline|ignore|message|string [string]", rc_name
);
2914 hardstatusemu
= new_use
| (s
== args
[0] ? 0 : HSTATUS_ALWAYS
);
2915 for (display
= displays
; display
; display
= display
->d_next
)
2918 new_use
= hardstatusemu
& ~HSTATUS_ALWAYS
;
2919 if (D_HS
&& s
== args
[0])
2920 new_use
= HSTATUS_HS
;
2921 ShowHStatus((char *)0);
2922 old_use
= D_has_hstatus
;
2923 D_has_hstatus
= new_use
;
2924 if ((new_use
== HSTATUS_LASTLINE
&& old_use
!= HSTATUS_LASTLINE
) || (new_use
!= HSTATUS_LASTLINE
&& old_use
== HSTATUS_LASTLINE
))
2925 ChangeScreenSize(D_width
, D_height
, 1);
2932 free(hstatusstring
);
2933 hstatusstring
= SaveStr(args
[1]);
2934 for (display
= displays
; display
; display
= display
->d_next
)
2937 display
= olddisplay
;
2940 (void)ParseSwitch(act
, &use_hardstatus
);
2942 Msg(0, "messages displayed on %s", use_hardstatus
? "hardstatus line" : "window");
2945 if (strcmp(args
[0], "always") == 0 || strcmp(args
[0], "splitonly") == 0)
2947 struct display
*olddisplay
= display
;
2949 captionalways
= args
[0][0] == 'a';
2950 for (display
= displays
; display
; display
= display
->d_next
)
2951 ChangeScreenSize(D_width
, D_height
, 1);
2952 display
= olddisplay
;
2954 else if (strcmp(args
[0], "string") == 0)
2959 AddXChars(buf
, sizeof(buf
), captionstring
);
2960 Msg(0, "caption string is '%s'", buf
);
2966 Msg(0, "%s: usage: caption always|splitonly|string <string>", rc_name
);
2972 free(captionstring
);
2973 captionstring
= SaveStr(args
[1]);
2974 RedisplayDisplays(0);
2977 n
= (console_window
!= 0);
2978 if (ParseSwitch(act
, &n
))
2980 if (TtyGrabConsole(fore
->w_ptyfd
, n
, rc_name
))
2983 Msg(0, "%s: releasing console %s", rc_name
, HostName
);
2984 else if (console_window
)
2985 Msg(0, "%s: stealing console %s from window %d (%s)", rc_name
,
2986 HostName
, console_window
->w_number
, console_window
->w_title
);
2988 Msg(0, "%s: grabbing console %s", rc_name
, HostName
);
2989 console_window
= n
? fore
: 0;
2992 if (ParseOnOff(act
, &all_norefresh
))
2994 if (!all_norefresh
&& fore
)
2997 Msg(0, all_norefresh
? "No refresh on window change!\n" :
2998 "Window specific refresh\n");
3001 (void)ParseSwitch(act
, &n
);
3002 fore
->w_norefresh
= n
;
3005 if (ParseSwitch(act
, &visual_bell
) || !msgok
)
3007 if (visual_bell
== 0)
3008 Msg(0, "switched to audible bell.");
3010 Msg(0, "switched to visual bell.");
3013 if (ParseNum1000(act
, &VBellWait
) == 0 && msgok
)
3014 Msg(0, "vbellwait set to %.10g seconds", VBellWait
/1000.);
3017 if (ParseNum1000(act
, &MsgWait
) == 0 && msgok
)
3018 Msg(0, "msgwait set to %.10g seconds", MsgWait
/1000.);
3021 if (ParseNum1000(act
, &MsgMinWait
) == 0 && msgok
)
3022 Msg(0, "msgminwait set to %.10g seconds", MsgMinWait
/1000.);
3024 case RC_SILENCEWAIT
:
3025 if (ParseNum(act
, &SilenceWait
))
3027 if (SilenceWait
< 1)
3029 for (p
= windows
; p
; p
= p
->w_next
)
3030 p
->w_silencewait
= SilenceWait
;
3032 Msg(0, "silencewait set to %d seconds", SilenceWait
);
3036 Msg(0, "This is window %d (%s).\n", fore
->w_number
, fore
->w_title
);
3039 int old
= fore
->w_number
;
3041 if (args
[0][0] == '+')
3043 else if (args
[0][0] == '-')
3047 parse
= ParseNum(act
, &n
);
3056 ChangeWinNum(old
, n
);
3060 n
= fore
->w_silence
!= 0;
3061 i
= fore
->w_silencewait
;
3062 if (args
[0] && (args
[0][0] == '-' || (args
[0][0] >= '0' && args
[0][0] <= '9')))
3064 if (ParseNum(act
, &i
))
3068 else if (ParseSwitch(act
, &n
))
3073 if (display
) /* we tell only this user */
3074 ACLBYTE(fore
->w_lio_notify
, D_user
->u_id
) |= ACLBIT(D_user
->u_id
);
3076 for (n
= 0; n
< maxusercount
; n
++)
3077 ACLBYTE(fore
->w_lio_notify
, n
) |= ACLBIT(n
);
3079 fore
->w_silencewait
= i
;
3080 fore
->w_silence
= SILENCE_ON
;
3081 SetTimeout(&fore
->w_silenceev
, fore
->w_silencewait
* 1000);
3082 evenq(&fore
->w_silenceev
);
3086 Msg(0, "The window is now being monitored for %d sec. silence.", fore
->w_silencewait
);
3091 if (display
) /* we remove only this user */
3092 ACLBYTE(fore
->w_lio_notify
, D_user
->u_id
)
3093 &= ~ACLBIT(D_user
->u_id
);
3095 for (n
= 0; n
< maxusercount
; n
++)
3096 ACLBYTE(fore
->w_lio_notify
, n
) &= ~ACLBIT(n
);
3097 for (i
= maxusercount
- 1; i
>= 0; i
--)
3098 if (ACLBYTE(fore
->w_lio_notify
, i
))
3103 fore
->w_silence
= SILENCE_OFF
;
3104 evdeq(&fore
->w_silenceev
);
3108 Msg(0, "The window is no longer being monitored for silence.");
3112 case RC_DEFSCROLLBACK
:
3113 (void)ParseNum(act
, &nwin_default
.histheight
);
3116 if (flayer
->l_layfn
== &MarkLf
)
3118 Msg(0, "Cannot resize scrollback buffer in copy/scrollback mode.");
3121 (void)ParseNum(act
, &n
);
3122 ChangeWindowSize(fore
, fore
->w_width
, fore
->w_height
, n
);
3124 Msg(0, "scrollback set to %d", fore
->w_histheight
);
3127 case RC_SESSIONNAME
:
3129 Msg(0, "This session is named '%s'\n", SockName
);
3132 char buf
[MAXPATHLEN
];
3135 if (ParseSaveStr(act
, &s
))
3137 if (!*s
|| strlen(s
) + (SockName
- SockPath
) > MAXPATHLEN
- 13 || index(s
, '/'))
3139 Msg(0, "%s: bad session name '%s'\n", rc_name
, s
);
3143 strncpy(buf
, SockPath
, SockName
- SockPath
);
3144 sprintf(buf
+ (SockName
- SockPath
), "%d.%s", (int)getpid(), s
);
3146 if ((access(buf
, F_OK
) == 0) || (errno
!= ENOENT
))
3148 Msg(0, "%s: inappropriate path: '%s'.", rc_name
, buf
);
3151 if (rename(SockPath
, buf
))
3153 Msg(errno
, "%s: failed to rename(%s, %s)", rc_name
, SockPath
, buf
);
3156 debug2("rename(%s, %s) done\n", SockPath
, buf
);
3157 strcpy(SockPath
, buf
);
3159 WindowChanged((struct win
*)0, 'S');
3163 if (!args
[0] || !args
[1])
3165 debug1("RC_SETENV arguments missing: %s\n", args
[0] ? args
[0] : "");
3166 InputSetenv(args
[0]);
3170 xsetenv(args
[0], args
[1]);
3179 case RC_DEFSLOWPASTE
:
3180 (void)ParseNum(act
, &nwin_default
.slow
);
3184 Msg(0, fore
->w_slowpaste
?
3185 "Slowpaste in window %d is %d milliseconds." :
3186 "Slowpaste in window %d is unset.",
3187 fore
->w_number
, fore
->w_slowpaste
);
3188 else if (ParseNum(act
, &fore
->w_slowpaste
) == 0 && msgok
)
3189 Msg(0, fore
->w_slowpaste
?
3190 "Slowpaste in window %d set to %d milliseconds." :
3191 "Slowpaste in window %d now unset.",
3192 fore
->w_number
, fore
->w_slowpaste
);
3195 if (CompileKeys(*args
, *argl
, mark_key_tab
))
3197 Msg(0, "%s: markkeys: syntax error.", rc_name
);
3200 debug1("markkeys %s\n", *args
);
3204 if (ParseSwitch(act
, &pastefont
) == 0 && msgok
)
3205 Msg(0, "Will %spaste font settings", pastefont
? "" : "not ");
3209 (void)ParseSwitch(act
, &join_with_cr
);
3211 case RC_COMPACTHIST
:
3212 if (ParseSwitch(act
, &compacthist
) == 0 && msgok
)
3213 Msg(0, "%scompacting history lines", compacthist
? "" : "not ");
3218 (void)ParseOnOff(act
, &nethackflag
);
3221 case RC_HARDCOPY_APPEND
:
3222 (void)ParseOnOff(act
, &hardcopy_append
);
3228 AddXChars(buf
, sizeof(buf
), VisualBellString
);
3229 Msg(0, "vbell_msg is '%s'", buf
);
3232 (void)ParseSaveStr(act
, &VisualBellString
);
3233 debug1(" new vbellstr '%s'\n", VisualBellString
);
3236 if (ParseBase(act
, *args
, &n
, 8, "octal"))
3238 if (n
< 0 || n
> 0777)
3240 Msg(0, "%s: mode: Invalid tty mode %o", rc_name
, n
);
3245 Msg(0, "Ttymode set to %03o", TtyMode
);
3248 (void)ParseOnOff(act
, &auto_detach
);
3250 case RC_STARTUP_MESSAGE
:
3251 (void)ParseOnOff(act
, &default_startup
);
3257 n
= (*user
->u_password
) ? 1 : 0;
3258 if (user
->u_password
!= NullStr
) free((char *)user
->u_password
);
3259 user
->u_password
= SaveStr(*args
);
3260 if (!strcmp(user
->u_password
, "none"))
3263 Msg(0, "Password checking disabled");
3264 free(user
->u_password
);
3265 user
->u_password
= NullStr
;
3272 Msg(0, "%s: password: window required", rc_name
);
3275 Input("New screen password:", 100, INP_NOECHO
, pass1
, display
? (char *)D_user
: (char *)users
, 0);
3278 #endif /* PASSWORD */
3281 struct action
*ktabp
= ktab
;
3286 if (argc
> 2 && !strcmp(*args
, "-c"))
3288 ktabp
= FindKtab(args
[1], 1);
3295 else if (argc
> 1 && !strcmp(*args
, "-k"))
3308 for (n
= 0; n
< KMAP_KEYS
; n
++)
3309 if (strcmp(term
[n
+ T_CAPS
].tcname
, *args
) == 0)
3313 Msg(0, "%s: bind: unknown key '%s'", rc_name
, *args
);
3322 Msg(0, "%s: bind: character, ^x, or (octal) \\032 expected.", rc_name
);
3326 n
= (unsigned char)args
[0][0];
3330 if ((i
= FindCommnr(args
[1])) == RC_ILLEGAL
)
3332 struct alias
*alias
= FindAlias(args
[1]);
3335 Msg(0, "%s: bind: unknown command or alias '%s'", rc_name
, args
[1]);
3340 if (i
<= RC_LAST
&& CheckArgNum(i
, args
+ 2) < 0)
3342 ClearAction(&ktabp
[n
]);
3343 SaveAction(ktabp
+ n
, i
, args
+ 2, argl
+ 2);
3346 ClearAction(&ktabp
[n
]);
3352 struct action
*newact
;
3353 int newnr
, fl
= 0, kf
= 0, af
= 0, df
= 0, mf
= 0;
3354 struct display
*odisp
= display
;
3356 struct kmap_ext
*kme
;
3358 for (; *args
&& **args
== '-'; args
++, argl
++)
3360 if (strcmp(*args
, "-t") == 0)
3361 fl
= KMAP_NOTIMEOUT
;
3362 else if (strcmp(*args
, "-k") == 0)
3364 else if (strcmp(*args
, "-a") == 0)
3366 else if (strcmp(*args
, "-d") == 0)
3368 else if (strcmp(*args
, "-m") == 0)
3370 else if (strcmp(*args
, "--") == 0)
3378 Msg(0, "%s: bindkey: invalid option %s", rc_name
, *args
);
3384 Msg(0, "%s: bindkey: -d does not work with -m", rc_name
);
3390 display_bindkey("Edit mode", mmtab
);
3392 display_bindkey("Default", dmtab
);
3394 display_bindkey("User", umtab
);
3401 Msg(0, "%s: bindkey: -a only works with -k", rc_name
);
3406 Msg(0, "%s: bindkey: empty string makes no sense", rc_name
);
3409 for (i
= 0, kme
= kmap_exts
; i
< kmap_extn
; i
++, kme
++)
3416 if (*argl
== (kme
->fl
& ~KMAP_NOTIMEOUT
) && bcmp(kme
->str
, *args
, *argl
) == 0)
3422 Msg(0, "%s: bindkey: keybinding not found", rc_name
);
3426 kmap_exts
= (struct kmap_ext
*)xrealloc((char *)kmap_exts
, kmap_extn
* sizeof(*kmap_exts
));
3427 kme
= kmap_exts
+ i
;
3428 bzero((char *)kme
, 8 * sizeof(*kmap_exts
));
3429 for (; i
< kmap_extn
; i
++, kme
++)
3432 kme
->dm
.nr
= kme
->mm
.nr
= kme
->um
.nr
= RC_ILLEGAL
;
3433 kme
->dm
.args
= kme
->mm
.args
= kme
->um
.args
= noargs
;
3438 if (df
== 0 && kme
->dm
.nr
!= RC_ILLEGAL
)
3440 if (mf
== 0 && kme
->mm
.nr
!= RC_ILLEGAL
)
3442 if ((df
|| mf
) && kme
->um
.nr
!= RC_ILLEGAL
)
3444 i
+= KMAP_KEYS
+ KMAP_AKEYS
;
3445 newact
= df
? &kme
->dm
: mf
? &kme
->mm
: &kme
->um
;
3449 for (i
= T_CAPS
; i
< T_OCAPS
; i
++)
3450 if (strcmp(term
[i
].tcname
, *args
) == 0)
3454 Msg(0, "%s: bindkey: unknown key '%s'", rc_name
, *args
);
3457 if (af
&& i
>= T_CURSOR
&& i
< T_OCAPS
)
3458 i
-= T_CURSOR
- KMAP_KEYS
;
3461 newact
= df
? &dmtab
[i
] : mf
? &mmtab
[i
] : &umtab
[i
];
3465 if ((newnr
= FindCommnr(args
[1])) == RC_ILLEGAL
)
3467 struct alias
*alias
= FindAlias(args
[1]);
3470 Msg(0, "%s: bindkey: unknown command or alias '%s'", rc_name
, args
[1]);
3475 if (newnr
<= RC_LAST
&& CheckArgNum(newnr
, args
+ 2) < 0)
3477 ClearAction(newact
);
3478 SaveAction(newact
, newnr
, args
+ 2, argl
+ 2);
3479 if (kf
== 0 && args
[1])
3483 kme
->str
= SaveStrn(*args
, *argl
);
3484 kme
->fl
= fl
| *argl
;
3488 ClearAction(newact
);
3489 for (display
= displays
; display
; display
= display
->d_next
)
3490 remap(i
, args
[1] ? 1 : 0);
3491 if (kf
== 0 && !args
[1])
3493 if (!used
&& kme
->str
)
3506 if (ParseNum(act
, &n
))
3510 Msg(0, "%s: maptimeout: illegal time %d", rc_name
, n
);
3515 if (*args
== 0 || msgok
)
3516 Msg(0, "maptimeout is %dms", maptimeout
);
3530 UsersAcl(NULL
, argc
, args
);
3533 if (UserDel(args
[0], NULL
))
3536 Msg(0, "%s removed from acl database", args
[0]);
3540 * modify a user to gain or lose rights granted to a group.
3541 * This group is actually a normal user whose rights were defined
3542 * with chacl in the usual way.
3546 if (strcmp(args
[1], "none")) /* link a user to another user */
3548 if (AclLinkUser(args
[0], args
[1]))
3551 Msg(0, "User %s joined acl-group %s", args
[0], args
[1]);
3553 else /* remove all groups from user */
3556 struct aclusergroup
*g
;
3558 if (!(u
= *FindUserPtr(args
[0])))
3560 while ((g
= u
->u_group
))
3562 u
->u_group
= g
->next
;
3567 else /* show all groups of user */
3569 char buf
[256], *p
= buf
;
3572 struct aclusergroup
*g
;
3574 if (!(u
= *FindUserPtr(args
[0])))
3577 Msg(0, "User %s does not exist.", args
[0]);
3584 sprintf(p
, "%s ", g
->u
->u_name
);
3592 Msg(0, "%s's group%s: %s.", args
[0], (ngroups
== 1) ? "" : "s",
3593 (ngroups
== 0) ? "none" : buf
);
3598 while ((s
= *args
++))
3602 if (AclUmask(display
? D_user
: users
, s
, &err
))
3603 Msg(0, "umask: %s\n", err
);
3607 if (ParseOnOff(act
, &n
))
3612 Msg(0, "Multiuser mode %s", multi
? "enabled" : "disabled");
3614 #endif /* MULTIUSER */
3622 i
= D_nonblock
>= 0;
3623 if (*args
&& ((args
[0][0] >= '0' && args
[0][0] <= '9') || args
[0][0] == '.'))
3625 if (ParseNum1000(act
, &i
))
3628 else if (!ParseSwitch(act
, &i
))
3629 i
= i
== 0 ? -1 : 1000;
3632 if (msgok
&& i
== -1)
3633 Msg(0, "display set to blocking mode");
3634 else if (msgok
&& i
== 0)
3635 Msg(0, "display set to nonblocking mode, no timeout");
3637 Msg(0, "display set to nonblocking mode, %.10gs timeout", i
/1000.);
3639 if (D_nonblock
<= 0)
3640 evdeq(&D_blockedev
);
3642 case RC_DEFNONBLOCK
:
3643 if (*args
&& ((args
[0][0] >= '0' && args
[0][0] <= '9') || args
[0][0] == '.'))
3645 if (ParseNum1000(act
, &defnonblock
))
3648 else if (!ParseOnOff(act
, &defnonblock
))
3649 defnonblock
= defnonblock
== 0 ? -1 : 1000;
3652 if (display
&& *rc_name
)
3654 D_nonblock
= defnonblock
;
3655 if (D_nonblock
<= 0)
3656 evdeq(&D_blockedev
);
3662 if (fore
->w_gr
== 2)
3665 if (ParseSwitch(act
, &fore
->w_gr
) == 0 && msgok
)
3666 Msg(0, "Will %suse GR", fore
->w_gr
? "" : "not ");
3668 if (fore
->w_gr
== 0 && fore
->w_FontE
)
3673 if (ParseSwitch(act
, &fore
->w_c1
) == 0 && msgok
)
3674 Msg(0, "Will %suse C1", fore
->w_c1
? "" : "not ");
3678 if (ParseSwitch(act
, &fore
->w_bce
) == 0 && msgok
)
3679 Msg(0, "Will %serase with background color", fore
->w_bce
? "" : "not ");
3686 if (*args
&& !strcmp(args
[0], "-d"))
3689 Msg(0, "encodings directory is %s", screenencodings
? screenencodings
: "<unset>");
3692 free(screenencodings
);
3693 screenencodings
= SaveStr(args
[1]);
3697 if (*args
&& !strcmp(args
[0], "-l"))
3700 Msg(0, "encoding: -l: argument required");
3701 else if (LoadFontTranslation(-1, args
[1]))
3702 Msg(0, "encoding: could not load utf8 encoding file");
3704 Msg(0, "encoding: utf8 encoding file loaded");
3708 if (*args
&& (!strcmp(args
[0], "-l") || !strcmp(args
[0], "-d")))
3711 Msg(0, "encoding: screen is not compiled for UTF-8.");
3715 for (i
= 0; i
< 2; i
++)
3719 if (!strcmp(args
[i
], "."))
3721 n
= FindEncoding(args
[i
]);
3724 Msg(0, "encoding: unknown encoding '%s'", args
[i
]);
3729 WinSwitchEncoding(fore
, n
);
3730 ResetCharsets(fore
);
3732 else if (i
&& display
)
3737 case RC_DEFENCODING
:
3738 n
= FindEncoding(*args
);
3741 Msg(0, "defencoding: unknown encoding '%s'", *args
);
3744 nwin_default
.encoding
= n
;
3750 n
= nwin_default
.encoding
== UTF8
;
3751 if (ParseSwitch(act
, &n
) == 0)
3753 nwin_default
.encoding
= n
? UTF8
: 0;
3755 Msg(0, "Will %suse UTF-8 encoding for new windows", n
? "" : "not ");
3759 for (i
= 0; i
< 2; i
++)
3761 if (i
&& args
[i
] == 0)
3764 n
= fore
->w_encoding
!= UTF8
;
3765 else if (strcmp(args
[i
], "off") == 0)
3767 else if (strcmp(args
[i
], "on") == 0)
3771 Msg(0, "utf8: illegal argument (%s)", args
[i
]);
3776 WinSwitchEncoding(fore
, n
? UTF8
: 0);
3778 Msg(0, "Will %suse UTF-8 encoding", n
? "" : "not ");
3781 D_encoding
= n
? UTF8
: 0;
3795 printcmd
= SaveStr(*args
);
3797 if (*args
== 0 || msgok
)
3800 Msg(0, "using '%s' as print command", printcmd
);
3802 Msg(0, "using termcap entries for printing");
3808 if (argl
&& argl
[0] > 0 && argl
[1] > 0)
3812 Msg(0, "Two characters expected to define a digraph");
3815 i
= digraph_find(args
[0]);
3816 digraphs
[i
].d
[0] = args
[0][0];
3817 digraphs
[i
].d
[1] = args
[0][1];
3818 if (!parse_input_int(args
[1], argl
[1], &digraphs
[i
].value
))
3820 if (!(digraphs
[i
].value
= atoi(args
[1])))
3823 digraphs
[i
].value
= (int)args
[1][0];
3828 unsigned char *s
= args
[1];
3829 digraphs
[i
].value
= 0;
3832 t
= FromUtf8(*s
++, &digraphs
[i
].value
);
3836 digraphs
[i
].value
= 0;
3838 digraphs
[i
].value
= t
;
3847 Input("Enter digraph: ", 10, INP_EVERY
, digraph_fn
, NULL
, 0);
3848 if (*args
&& **args
)
3861 if (nwin_default
.hstatus
)
3862 AddXChars(buf
, sizeof(buf
), nwin_default
.hstatus
);
3863 Msg(0, "default hstatus is '%s'", buf
);
3866 (void)ParseSaveStr(act
, &nwin_default
.hstatus
);
3867 if (*nwin_default
.hstatus
== 0)
3869 free(nwin_default
.hstatus
);
3870 nwin_default
.hstatus
= 0;
3874 (void)ParseSaveStr(act
, &fore
->w_hstatus
);
3875 if (*fore
->w_hstatus
== 0)
3877 free(fore
->w_hstatus
);
3878 fore
->w_hstatus
= 0;
3880 WindowChanged(fore
, 'h');
3890 if (nwin_default
.charset
)
3891 AddXChars(buf
, sizeof(buf
), nwin_default
.charset
);
3892 Msg(0, "default charset is '%s'", buf
);
3896 if (n
== 0 || n
> 6)
3898 Msg(0, "%s: %s: string has illegal size.", rc_name
, comms
[nr
].name
);
3902 ((args
[0][4] < '0' || args
[0][4] > '3') && args
[0][4] != '.') ||
3903 ((args
[0][5] < '0' || args
[0][5] > '3') && args
[0][5] && args
[0][5] != '.')))
3905 Msg(0, "%s: %s: illegal mapping number.", rc_name
, comms
[nr
].name
);
3908 if (nr
== RC_CHARSET
)
3910 SetCharsets(fore
, *args
);
3913 if (nwin_default
.charset
)
3914 free(nwin_default
.charset
);
3915 nwin_default
.charset
= SaveStr(*args
);
3921 if (*s
>= '0' && *s
<= '9')
3924 for (i
= 0; i
< 8; i
++)
3925 if (*s
== "dubrsBiI"[i
])
3929 if (*s
&& s
[1] && !s
[2])
3931 if (*s
== 'd' && s
[1] == 'd')
3933 else if (*s
== '.' && s
[1] == 'd')
3935 else if (*s
== 'd' && s
[1] == '.')
3937 else if (*s
!= '.' || s
[1] != '.')
3941 if (*s
|| i
< 0 || i
>= 8)
3943 Msg(0, "%s: attrcolor: unknown attribute '%s'.", rc_name
, args
[0]);
3948 n
= ParseAttrColor(args
[1], args
[2], 1);
3951 attr2color
[i
][nr
] = n
;
3953 for (i
= 0; i
< 8; i
++)
3954 if (attr2color
[i
][0] || attr2color
[i
][1] || attr2color
[i
][2] || attr2color
[i
][3])
3961 if (strcmp(args
[0], "bell") == 0)
3965 else if (strcmp(args
[0], "monitor") == 0)
3969 else if (strcmp(args
[0], "so") != 0)
3971 Msg(0, "Invalid option '%s' for rendition", args
[0]);
3980 renditions
[i
] = ParseAttrColor(args
[0], args
[1], 1);
3981 WindowChanged((struct win
*)0, 'w');
3982 WindowChanged((struct win
*)0, 'W');
3983 WindowChanged((struct win
*)0, 0);
3987 /* We are here, means we want to set the sorendition. */
3989 case RC_SORENDITION
:
3993 i
= ParseAttrColor(*args
, args
[1], 1);
3996 ApplyAttrColor(i
, &mchar_so
);
3997 WindowChanged((struct win
*)0, 0);
3998 debug2("--> %x %x\n", mchar_so
.attr
, mchar_so
.color
);
4002 Msg(0, "Standout attributes 0x%02x color 0x%02x", (unsigned char)mchar_so
.attr
, 0x99 ^ (unsigned char)mchar_so
.color
);
4004 Msg(0, "Standout attributes 0x%02x ", (unsigned char)mchar_so
.attr
);
4014 ScriptCmd(argc
, (const char **) args
);
4023 Msg(0, "%s:%s screen login", HostName
, SockPath
);
4024 InputSu(D_fore
, &D_user
, NULL
);
4027 InputSu(D_fore
, &D_user
, args
[0]);
4029 s
= DoSu(&D_user
, args
[0], args
[1], "\377");
4031 s
= DoSu(&D_user
, args
[0], args
[1], args
[2]);
4035 #endif /* MULTIUSER */
4038 if (s
&& !strcmp(s
, "-v"))
4039 AddCanvas(SLICE_HORI
);
4041 AddCanvas(SLICE_VERT
);
4053 D_forecv
->c_xoff
= D_forecv
->c_xs
;
4054 D_forecv
->c_yoff
= D_forecv
->c_ys
;
4055 RethinkViewportOffsets(D_forecv
);
4056 ResizeLayer(D_forecv
->c_layer
, D_forecv
->c_xe
- D_forecv
->c_xs
+ 1, D_forecv
->c_ye
- D_forecv
->c_ys
+ 1, 0);
4057 flayer
= D_forecv
->c_layer
;
4062 struct canvas
*n_forecv
= NULL
;
4063 if (!*args
|| !strcmp(*args
, "down"))
4064 n_forecv
= D_forecv
->c_next
? D_forecv
->c_next
: D_cvlist
;
4065 else if (!strcmp(*args
, "up"))
4068 for (cv
= D_cvlist
; cv
->c_next
&& cv
->c_next
!= D_forecv
; cv
= cv
->c_next
)
4072 else if (!strcmp(*args
, "top"))
4073 n_forecv
= D_cvlist
;
4074 else if (!strcmp(*args
, "bottom"))
4077 for (cv
= D_cvlist
; cv
->c_next
; cv
= cv
->c_next
)
4083 Msg(0, "%s: usage: focus [up|down|top|bottom]", rc_name
);
4086 FocusCanvas(n_forecv
);
4091 if (D_forecv
->c_slorient
== SLICE_UNKN
)
4093 Msg(0, "resize: need more than one region");
4096 for (; *args
; args
++)
4098 if (!strcmp(*args
, "-h"))
4100 else if (!strcmp(*args
, "-v"))
4102 else if (!strcmp(*args
, "-b"))
4103 i
|= RESIZE_FLAG_H
| RESIZE_FLAG_V
;
4104 else if (!strcmp(*args
, "-p"))
4105 i
|= D_forecv
->c_slorient
== SLICE_VERT
? RESIZE_FLAG_H
: RESIZE_FLAG_V
;
4106 else if (!strcmp(*args
, "-l"))
4111 if (*args
&& args
[1])
4113 Msg(0, "%s: usage: resize [-h] [-v] [-l] [num]\n", rc_name
);
4117 ResizeRegions(*args
, i
);
4119 Input(resizeprompts
[i
], 20, INP_EVERY
, ResizeFin
, (char*)0, i
);
4122 (void)ParseSwitch(act
, &separate_sids
);
4125 args
= SaveArgs(args
);
4126 for (i
= 0; args
[i
]; i
++)
4129 Colonfin(args
[i
], strlen(args
[i
]), (char *)0);
4135 (void)ParseSwitch(act
, &use_altscreen
);
4137 Msg(0, "Will %sdo alternate screen switching", use_altscreen
? "" : "not ");
4140 if (ParseNum(act
, &n
))
4143 Msg(0, "illegal maxwin number specified");
4144 else if (n
> maxwin
)
4145 Msg(0, "may only decrease maxwin number");
4150 if (ParseBase(act
, *args
, &n
, 10, "decimal"))
4153 setbacktick(n
, 0, 0, (char **)0);
4159 Msg(0, "%s: usage: backtick num [lifespan tick cmd args...]", rc_name
);
4162 if (ParseBase(act
, args
[1], &lifespan
, 10, "decimal"))
4164 if (ParseBase(act
, args
[2], &tick
, 10, "decimal"))
4166 setbacktick(n
, lifespan
, tick
, SaveArgs(args
+ 3));
4168 WindowChanged(0, '`');
4174 RunBlanker(blankerprg
);
4179 CursorVisibility(-1);
4187 for (pp
= blankerprg
; *pp
; pp
++)
4193 blankerprg
= SaveArgs(args
);
4199 struct display
*olddisplay
= display
;
4200 if (!strcmp(*args
, "off"))
4202 else if (args
[0][0])
4203 idletimo
= atoi(*args
) * 1000;
4206 if ((i
= FindCommnr(args
[1])) == RC_ILLEGAL
)
4208 struct alias
*alias
= FindAlias(args
[1]);
4211 Msg(0, "%s: idle: unknown command or alias '%s'", rc_name
, args
[1]);
4216 if (i
<= RC_LAST
&& CheckArgNum(i
, args
+ 2) < 0)
4218 ClearAction(&idleaction
);
4219 SaveAction(&idleaction
, i
, args
+ 2, argl
+ 2);
4221 for (display
= displays
; display
; display
= display
->d_next
)
4223 display
= olddisplay
;
4228 Msg(0, "idle timeout %ds, %s", idletimo
/ 1000, comms
[idleaction
.nr
].name
);
4233 case RC_FOCUSMINSIZE
:
4234 for (i
= 0; i
< 2 && args
[i
]; i
++)
4236 if (!strcmp(args
[i
], "max") || !strcmp(args
[i
], "_"))
4248 for (i
= 0; i
< 2; i
++)
4250 n
= i
== 0 ? focusminwidth
: focusminheight
;
4252 strcpy(b
[i
], "max");
4254 sprintf(b
[i
], "%d", n
);
4256 Msg(0, "focus min size is %s %s\n", b
[0], b
[1]);
4265 fore
->w_group
= WindowByName(*args
);
4266 if (fore
->w_group
&& fore
->w_group
->w_type
!= W_TYPE_GROUP
)
4269 WindowChanged((struct win
*)0, 'w');
4270 WindowChanged((struct win
*)0, 'W');
4271 WindowChanged((struct win
*)0, 0);
4276 Msg(0, "window group is %d (%s)\n", fore
->w_group
->w_number
, fore
->w_group
->w_title
);
4278 Msg(0, "window belongs to no group");
4282 if (!strcmp(args
[0], "title"))
4286 Msg(0, "not on a layout");
4291 Msg(0, "current layout is %d (%s)", D_layout
->lay_number
, D_layout
->lay_title
);
4294 free(D_layout
->lay_title
);
4295 D_layout
->lay_title
= SaveStr(args
[1]);
4297 else if (!strcmp(args
[0], "number"))
4303 Msg(0, "not on a layout");
4308 Msg(0, "This is layout %d (%s).\n", D_layout
->lay_number
, D_layout
->lay_title
);
4311 LayoutChangeNumber(D_layout
, atoi(args
[1]));
4314 else if (!strcmp(args
[0], "autosave"))
4318 Msg(0, "not on a layout");
4323 if (!strcmp(args
[1], "on"))
4324 D_layout
->lay_autosave
= 1;
4325 else if (!strcmp(args
[1], "off"))
4326 D_layout
->lay_autosave
= 0;
4329 Msg(0, "invalid argument. Give 'on' or 'off");
4334 Msg(0, "autosave is %s", D_layout
->lay_autosave
? "on" : "off");
4336 else if (!strcmp(args
[0], "new"))
4342 while (*t
>= '0' && *t
<= '9')
4344 if (t
!= args
[1] && (!*t
|| *t
== ':'))
4358 else if (!strcmp(args
[0], "save"))
4362 Msg(0, "usage: layout save <name>");
4365 SaveLayout(args
[1], &D_canvas
);
4367 else if (!strcmp(args
[0], "select"))
4371 Input("Switch to layout: ", 20, INP_COOKED
, SelectLayoutFin
, NULL
, 0);
4374 SelectLayoutFin(args
[1], strlen(args
[1]), (char *)0);
4376 else if (!strcmp(args
[0], "next"))
4378 struct layout
*lay
= D_layout
;
4380 lay
= lay
->lay_next
? lay
->lay_next
: layouts
;
4385 Msg(0, "no layout defined");
4388 if (lay
== D_layout
)
4390 LoadLayout(lay
, &D_canvas
);
4393 else if (!strcmp(args
[0], "prev"))
4395 struct layout
*lay
= D_layout
;
4398 for (lay
= layouts
; lay
->lay_next
&& lay
->lay_next
!= D_layout
; lay
= lay
->lay_next
)
4405 Msg(0, "no layout defined");
4408 if (lay
== D_layout
)
4410 LoadLayout(lay
, &D_canvas
);
4413 else if (!strcmp(args
[0], "attach"))
4418 Msg(0, "no attach layout set");
4419 else if (layout_attach
== &layout_last_marker
)
4420 Msg(0, "will attach to last layout");
4422 Msg(0, "will attach to layout %d (%s)", layout_attach
->lay_number
, layout_attach
->lay_title
);
4425 if (!strcmp(args
[1], ":last"))
4426 layout_attach
= &layout_last_marker
;
4427 else if (!args
[1][0])
4432 lay
= FindLayout(args
[1]);
4435 Msg(0, "unknown layout '%s'", args
[1]);
4438 layout_attach
= lay
;
4441 else if (!strcmp(args
[0], "show"))
4445 else if (!strcmp(args
[0], "remove"))
4447 struct layout
*lay
= display
? D_layout
: layouts
;
4450 lay
= layouts
? FindLayout(args
[1]) : (struct layout
*)0;
4453 Msg(0, "unknown layout '%s'", args
[1]);
4461 Msg(0, "unknown layout subcommand");
4465 if(ParseSwitch(act
, &cjkwidth
) == 0)
4468 Msg(0, "Treat ambiguous width characters as %s width", cjkwidth
? "full" : "half");
4474 /* key == -2: input from braille keybord, msgok always 0 */
4475 DoBrailleAction(act
, key
== -2 ? 0 : msgok
);
4482 trigger_sevent(&globalevents
.cmdexecuted
, comms
[nr
].name
, args
);
4485 if (display
!= odisplay
)
4487 for (display
= displays
; display
; display
= display
->d_next
)
4488 if (display
== odisplay
)
4494 DoAlias(name
, args
, argl
)
4502 struct alias
*alias
= FindAlias(name
);
4508 for (; args
&& args
[count
]; count
++)
4510 for (i
= 0; alias
->args
&& alias
->args
[i
]; i
++, count
++)
4514 if ((mergeds
= malloc(count
* sizeof(char *))) == 0)
4516 if ((mergedl
= malloc(count
* sizeof(int))) == 0)
4521 for (count
= 0; alias
->args
&& alias
->args
[count
]; count
++)
4523 mergeds
[count
] = alias
->args
[count
];
4524 mergedl
[count
] = alias
->argl
[count
];
4526 for (i
= 0; args
&& args
[i
]; i
++, count
++)
4528 mergeds
[count
] = args
[i
];
4529 mergedl
[count
] = argl
[i
];
4532 mergedl
[count
] = 0 ;
4534 DoCommand(mergeds
, mergedl
);
4542 DoCommand(argv
, argl
)
4549 if (DoAlias(*argv
, argv
+ 1, argl
+ 1))
4552 if ((act
.nr
= FindCommnr(*argv
)) == RC_ILLEGAL
)
4554 Msg(0, "%s: unknown command '%s'", rc_name
, *argv
);
4557 act
.args
= argv
+ 1;
4558 act
.argl
= argl
+ 1;
4563 SaveAction(act
, nr
, args
, argl
)
4569 register int argc
= 0;
4583 if ((pp
= (char **)malloc((unsigned)(argc
+ 1) * sizeof(char **))) == 0)
4585 if ((lp
= (int *)malloc((unsigned)(argc
) * sizeof(int *))) == 0)
4592 *lp
= argl
? *argl
++ : (int)strlen(*args
);
4593 *pp
++ = SaveStrn(*args
++, *lp
++);
4602 register char **ap
, **pp
;
4603 register int argc
= 0;
4607 if ((pp
= ap
= (char **)malloc((unsigned)(argc
+ 1) * sizeof(char **))) == 0)
4610 *pp
++ = SaveStr(*args
++);
4617 * buf is split into argument vector args.
4618 * leading whitespace is removed.
4619 * @!| abbreviations are expanded.
4620 * the end of buffer is recognized by '\0' or an un-escaped '#'.
4621 * " and ' are interpreted.
4626 Parse(buf
, bufl
, args
, argl
)
4630 register char *p
= buf
, **ap
= args
, *pp
;
4631 register int delim
, argc
;
4634 debug2("Parse %d %s\n", bufl
, buf
);
4640 while (*p
&& (*p
== ' ' || *p
== '\t'))
4643 if (argc
== 0 && *p
== '!')
4652 if (*p
== '\0' || *p
== '#' || *p
== '\n')
4655 for (delim
= 0; delim
< argc
; delim
++)
4656 debug1("-- %s\n", args
[delim
]);
4660 if (++argc
>= MAXARGS
)
4662 Msg(0, "%s: too many tokens.", rc_name
);
4667 debug1("- new arg %s\n", p
);
4672 else if (delim
!= '\'' && *p
== '\\' && (p
[1] == 'n' || p
[1] == 'r' || p
[1] == 't' || p
[1] == '\'' || p
[1] == '"' || p
[1] == '\\' || p
[1] == '$' || p
[1] == '#' || p
[1] == '^' || (p
[1] >= '0' && p
[1] <= '7')))
4675 if (*p
>= '0' && *p
<= '7')
4678 if (p
[1] >= '0' && p
[1] <= '7')
4681 *pp
= (*pp
<< 3) | (*p
- '0');
4682 if (p
[1] >= '0' && p
[1] <= '7')
4685 *pp
= (*pp
<< 3) | (*p
- '0');
4694 case 'n': *pp
= '\n'; break;
4695 case 'r': *pp
= '\r'; break;
4696 case 't': *pp
= '\t'; break;
4697 default: *pp
= *p
; break;
4702 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] == '_'))
4705 char *ps
, *pe
, op
, *v
, xbuf
[11];
4709 debug1("- var %s\n", ps
);
4713 if (*ps
== '{' && *p
== '}')
4715 if (*ps
== ':' && *p
== ':')
4717 if (*ps
!= '{' && *ps
!= ':' && (*p
< 'a' || *p
> 'z') && (*p
< 'A' || *p
> 'Z') && (*p
< '0' || *p
> '9') && *p
!= '_')
4722 if (*ps
== '{' || *ps
== ':')
4726 Msg(0, "%s: bad variable name.", rc_name
);
4733 debug1("- var is '%s'\n", ps
);
4735 v
= gettermcapstring(ps
+ 1);
4741 if (!strcmp(ps
, "TERM"))
4742 v
= display
? D_termname
: "unknown";
4743 else if (!strcmp(ps
, "COLUMNS"))
4744 sprintf(xbuf
, "%d", display
? D_width
: -1);
4745 else if (!strcmp(ps
, "LINES"))
4746 sprintf(xbuf
, "%d", display
? D_height
: -1);
4751 vl
= v
? strlen(v
) : 0;
4754 debug1("- sub is '%s'\n", v
);
4757 int right
= buf
+ bufl
- (p
+ strlen(p
) + 1);
4760 bcopy(p
, p
+ right
, strlen(p
) + 1);
4766 Msg(0, "%s: no space left for variable expansion.", rc_name
);
4774 else if (delim
!= '\'' && *p
== '^' && p
[1])
4777 *pp
++ = *p
== '?' ? '\177' : *p
& 0x1f;
4779 else if (delim
== 0 && (*p
== '\'' || *p
== '"'))
4781 else if (delim
== 0 && (*p
== ' ' || *p
== '\t' || *p
== '\n'))
4789 Msg(0, "%s: Missing %c quote.", rc_name
, delim
);
4795 debug2("- arg done, '%s' rest %s\n", ap
[-1], p
);
4796 *lp
++ = pp
- ap
[-1];
4815 if (DefaultEsc
>= 0)
4816 ClearAction(&ktab
[DefaultEsc
]);
4817 if (DefaultMetaEsc
>= 0)
4818 ClearAction(&ktab
[DefaultMetaEsc
]);
4821 DefaultMetaEsc
= me
;
4824 if (DefaultEsc
>= 0)
4826 ClearAction(&ktab
[DefaultEsc
]);
4827 ktab
[DefaultEsc
].nr
= RC_OTHER
;
4829 if (DefaultMetaEsc
>= 0)
4831 ClearAction(&ktab
[DefaultMetaEsc
]);
4832 ktab
[DefaultMetaEsc
].nr
= RC_META
;
4839 ParseSwitch(act
, var
)
4843 if (*act
->args
== 0)
4848 return ParseOnOff(act
, var
);
4852 ParseOnOff(act
, var
)
4856 register int num
= -1;
4857 char **args
= act
->args
;
4861 if (strcmp(args
[0], "on") == 0)
4863 else if (strcmp(args
[0], "off") == 0)
4868 Msg(0, "%s: %s: invalid argument. Give 'on' or 'off'", rc_name
, comms
[act
->nr
].name
);
4876 ParseSaveStr(act
, var
)
4880 char **args
= act
->args
;
4881 if (*args
== 0 || args
[1])
4883 Msg(0, "%s: %s: one argument required.", rc_name
, comms
[act
->nr
].name
);
4888 *var
= SaveStr(*args
);
4898 char *p
, **args
= act
->args
;
4901 if (p
== 0 || *p
== 0 || args
[1])
4903 Msg(0, "%s: %s: invalid argument. Give one argument.",
4904 rc_name
, comms
[act
->nr
].name
);
4910 if (*p
>= '0' && *p
<= '9')
4911 i
= 10 * i
+ (*p
- '0');
4914 Msg(0, "%s: %s: invalid argument. Give numeric argument.",
4915 rc_name
, comms
[act
->nr
].name
);
4920 debug1("ParseNum got %d\n", i
);
4926 ParseNum1000(act
, var
)
4931 char *p
, **args
= act
->args
;
4935 if (p
== 0 || *p
== 0 || args
[1])
4937 Msg(0, "%s: %s: invalid argument. Give one argument.",
4938 rc_name
, comms
[act
->nr
].name
);
4944 if (*p
>= '0' && *p
<= '9')
4947 i
= 10 * i
+ (*p
- '0');
4948 else if (dig
== 4 && *p
>= '5')
4953 else if (*p
== '.' && !dig
)
4957 Msg(0, "%s: %s: invalid argument. Give floating point argument.",
4958 rc_name
, comms
[act
->nr
].name
);
4969 i
= (int)((unsigned int)~0 >> 1);
4970 debug1("ParseNum1000 got %d\n", i
);
4981 for (p
= windows
; p
; p
= p
->w_next
)
4982 if (!strcmp(p
->w_title
, s
))
4984 for (p
= windows
; p
; p
= p
->w_next
)
4985 if (!strncmp(p
->w_title
, s
, strlen(s
)))
4997 for (i
= 0, s
= str
; *s
; s
++)
4999 if (*s
< '0' || *s
> '9')
5001 i
= i
* 10 + (*s
- '0');
5007 * Get window number from Name or Number string.
5008 * Numbers are tried first, then names, a prefix match suffices.
5009 * Be careful when assigning numeric strings as WindowTitles.
5018 if ((i
= WindowByNumber(str
)) < 0 || i
>= MAXWIN
)
5020 if ((p
= WindowByName(str
)))
5028 ParseWinNum(act
, var
)
5032 char **args
= act
->args
;
5035 if (*args
== 0 || args
[1])
5037 Msg(0, "%s: %s: one argument required.", rc_name
, comms
[act
->nr
].name
);
5041 i
= WindowByNoN(*args
);
5044 Msg(0, "%s: %s: invalid argument. Give window number or name.",
5045 rc_name
, comms
[act
->nr
].name
);
5048 debug1("ParseWinNum got %d\n", i
);
5054 ParseBase(act
, p
, var
, base
, bname
)
5066 Msg(0, "%s: %s: empty argument.", rc_name
, comms
[act
->nr
].name
);
5071 if (c
>= 'a' && c
<= 'z')
5073 if (c
>= 'A' && c
<= 'Z')
5074 c
-= 'A' - ('0' + 10);
5076 if (c
< 0 || c
>= base
)
5078 Msg(0, "%s: %s: argument is not %s.", rc_name
, comms
[act
->nr
].name
, bname
);
5083 debug1("ParseBase got %d\n", i
);
5093 for (base
+= '0'; *s
; ++s
)
5094 if (*s
< '0' || *s
> base
)
5100 IsNumColon(s
, base
, p
, psize
)
5105 if ((q
= rindex(s
, ':')) != 0)
5107 strncpy(p
, q
+ 1, psize
- 1);
5108 p
[psize
- 1] = '\0';
5113 return IsNum(s
, base
);
5122 debug1("SwitchWindow %d\n", n
);
5123 if (n
< 0 || n
>= MAXWIN
)
5128 if ((p
= wtab
[n
]) == 0)
5140 Msg(0, "This IS window %d (%s).", n
, p
->w_title
);
5144 if (AclCheckPermWin(D_user
, ACL_READ
, p
))
5146 Msg(0, "Access to window %d denied.", p
->w_number
);
5151 Activate(fore
->w_norefresh
);
5156 SetCanvasWindow(cv
, wi
)
5160 struct win
*p
= 0, **pp
;
5162 struct canvas
*cvp
, **cvpp
;
5165 display
= cv
->c_display
;
5169 /* remove old layer */
5170 for (cvpp
= &l
->l_cvlist
; (cvp
= *cvpp
); cvpp
= &cvp
->c_lnext
)
5174 *cvpp
= cvp
->c_lnext
;
5176 p
= Layer2Window(l
);
5180 if (p
&& cv
== D_forecv
)
5183 ReleaseAutoWritelock(display
, p
);
5187 SetTimeout(&p
->w_silenceev
, p
->w_silencewait
* 1000);
5188 evenq(&p
->w_silenceev
);
5193 trigger_sevent(&fore
->w_sev
.onleave
, display
, fore
);
5200 /* Trigger window hide event if the last view on this display is
5202 for (cvp
= l
->l_cvlist
; cvp
; cvp
= cvp
->c_lnext
)
5203 if (cvp
->c_display
== display
)
5209 trigger_sevent(&fore
->w_sev
.onhide
, display
, fore
);
5212 if (l
->l_cvlist
== 0 && (p
== 0 || l
!= p
->w_savelayer
))
5216 /* find right layer to display on canvas */
5217 if (wi
&& wi
->w_type
!= W_TYPE_GROUP
)
5220 if (wi
->w_savelayer
&& (wi
->w_blocked
|| wi
->w_savelayer
->l_cvlist
== 0))
5221 l
= wi
->w_savelayer
;
5227 l
->l_data
= (char *)wi
;
5232 /* add our canvas to the layer's canvaslist */
5233 ASSERT(l
->l_cvlist
!= cv
);
5234 cv
->c_lnext
= l
->l_cvlist
;
5237 cv
->c_xoff
= cv
->c_xs
;
5238 cv
->c_yoff
= cv
->c_ys
;
5239 RethinkViewportOffsets(cv
);
5244 if (wi
&& wi
->w_type
== W_TYPE_GROUP
)
5246 /* auto-start windowlist on groups */
5247 struct display
*d
= display
;
5248 struct layer
*oldflayer
= flayer
;
5250 display_wlist(0, 0, wi
);
5255 if (wi
&& D_other
== wi
)
5256 D_other
= wi
->w_next
; /* Might be 0, but that's OK. */
5260 fore
= D_fore
; /* XXX ? */
5264 ObtainAutoWritelock(display
, wi
);
5267 * Place the window at the head of the most-recently-used list
5271 for (pp
= &windows
; (p
= *pp
); pp
= &p
->w_next
)
5276 p
->w_next
= windows
;
5281 trigger_sevent(&fore
->w_sev
.onfocus
, display
, fore
);
5286 if (wi
&& Layer2Window(l
) == wi
)
5289 /* Trigger window show event if the first view on this display is
5291 for (cvp
= l
->l_cvlist
; cvp
; cvp
= cvp
->c_lnext
)
5292 if (cvp
->c_display
== display
)
5295 trigger_sevent(&fore
->w_sev
.onshow
, display
, fore
);
5302 * SetForeWindow changes the window in the input focus of the display.
5303 * Puts window wi in canvas display->d_forecv.
5315 p
= Layer2Window(D_forecv
->c_layer
);
5316 SetCanvasWindow(D_forecv
, wi
);
5318 WindowChanged(p
, 'u');
5320 WindowChanged(wi
, 'u');
5321 flayer
= D_forecv
->c_layer
;
5323 trigger_sevent(&globalevents
.forechanged
, display
, display
? D_fore
: fore
);
5325 /* Activate called afterwards, so no RefreshHStatus needed */
5329 /*****************************************************************/
5332 * Activate - make fore window active
5333 * norefresh = -1 forces a refresh, disregard all_norefresh then.
5339 debug1("Activate(%d)\n", norefresh
);
5344 Msg(0, "%s", ""); /* wait till mintime (keep gcc quiet) */
5348 if (MayResizeLayer(D_forecv
->c_layer
))
5349 ResizeLayer(D_forecv
->c_layer
, D_forecv
->c_xe
- D_forecv
->c_xs
+ 1, D_forecv
->c_ye
- D_forecv
->c_ys
+ 1, display
);
5355 if (fore
->w_monitor
!= MON_OFF
)
5356 fore
->w_monitor
= MON_ON
;
5357 fore
->w_bell
= BELL_ON
;
5358 WindowChanged(fore
, 'f');
5361 if (ResizeDisplay(fore
->w_width
, fore
->w_height
))
5363 debug2("Cannot resize from (%d,%d)", D_width
, D_height
);
5364 debug2(" to (%d,%d) -> resize window\n", fore
->w_width
, fore
->w_height
);
5365 DoResize(D_width
, D_height
);
5369 Redisplay(norefresh
+ all_norefresh
);
5376 register struct win
**pp
;
5377 int n
= fore
? fore
->w_number
: MAXWIN
;
5378 struct win
*group
= fore
? fore
->w_group
: 0;
5380 for (pp
= fore
? wtab
+ n
+ 1 : wtab
; pp
!= wtab
+ n
; pp
++)
5382 if (pp
== wtab
+ MAXWIN
)
5386 if (!fore
|| group
== (*pp
)->w_group
)
5398 register struct win
**pp
;
5399 int n
= fore
? fore
->w_number
: -1;
5400 struct win
*group
= fore
? fore
->w_group
: 0;
5402 for (pp
= wtab
+ n
- 1; pp
!= wtab
+ n
; pp
--)
5405 pp
= wtab
+ MAXWIN
- 1;
5408 if (!fore
|| group
== (*pp
)->w_group
)
5420 char *m
= "No other window.";
5421 if (windows
&& (fore
== 0 || windows
->w_next
))
5425 Msg(0, "No window available");
5428 Msg(0, m
, fore
->w_number
); /* other arg for nethack */
5433 UpdateLayoutCanvas(cv
, wi
)
5437 for (; cv
; cv
= cv
->c_slnext
)
5439 if (cv
->c_layer
&& Layer2Window(cv
->c_layer
) == wi
)
5441 /* A simplistic version of SetCanvasWindow(cv, 0) */
5442 struct layer
*l
= cv
->c_layer
;
5444 if (l
->l_cvlist
== 0 && (wi
== 0 || l
!= wi
->w_savelayer
))
5448 if (l
->l_cvlist
!= cv
)
5450 cv
->c_lnext
= l
->l_cvlist
;
5454 /* Do not end here. Multiple canvases can have the same window */
5458 UpdateLayoutCanvas(cv
->c_slperp
, wi
);
5466 struct win
**pp
, *p
;
5472 * Remove window from linked list.
5474 for (pp
= &windows
; (p
= *pp
); pp
= &p
->w_next
)
5480 wtab
[wi
->w_number
] = 0;
5489 * switch to different window on all canvases
5491 for (display
= displays
; display
; display
= display
->d_next
)
5494 for (cv
= D_cvlist
; cv
; cv
= cv
->c_next
)
5496 if (Layer2Window(cv
->c_layer
) != wi
)
5498 /* switch to other window */
5499 SetCanvasWindow(cv
, FindNiceWindow(D_other
, 0));
5505 if (wi
->w_zdisplay
== display
)
5508 D_readev
.condpos
= D_readev
.condneg
= 0;
5515 /* do the same for the layouts */
5516 for (lay
= layouts
; lay
; lay
= lay
->lay_next
)
5517 UpdateLayoutCanvas(&lay
->lay_canvas
, wi
);
5520 WindowChanged((struct win
*)0, 'w');
5521 WindowChanged((struct win
*)0, 'W');
5522 WindowChanged((struct win
*)0, 0);
5531 if ((fore
->w_log
!= 0) == on
)
5533 if (display
&& !*rc_name
)
5534 Msg(0, "You are %s logging.", on
? "already" : "not");
5537 if (fore
->w_log
!= 0)
5539 Msg(0, "Logfile \"%s\" closed.", fore
->w_log
->name
);
5540 logfclose(fore
->w_log
);
5542 WindowChanged(fore
, 'f');
5545 if (DoStartLog(fore
, buf
, sizeof(buf
)))
5547 Msg(errno
, "Error opening logfile \"%s\"", buf
);
5550 if (ftell(fore
->w_log
->fp
) == 0)
5551 Msg(0, "Creating logfile \"%s\".", fore
->w_log
->name
);
5553 Msg(0, "Appending to logfile \"%s\".", fore
->w_log
->name
);
5554 WindowChanged(fore
, 'f');
5558 AddWindows(buf
, len
, flags
, where
)
5564 register char *s
, *ss
;
5565 register struct win
**pp
, *p
;
5570 if ((flags
& 8) && where
< 0)
5575 for (pp
= ((flags
& 4) && where
>= 0) ? wtab
+ where
+ 1: wtab
; pp
< wtab
+ MAXWIN
; pp
++)
5578 if (pp
- wtab
== where
&& ss
== buf
)
5582 if ((flags
& 1) && display
&& p
== D_fore
)
5584 if (D_fore
&& D_fore
->w_group
!= p
->w_group
)
5591 if (s
- buf
+ l
> len
- 24)
5593 if (s
> buf
|| (flags
& 4))
5598 if (p
->w_number
== where
)
5604 if (!(flags
& 4) || where
< 0 || ((flags
& 4) && where
< p
->w_number
))
5606 if (p
->w_monitor
== MON_DONE
&& renditions
[REND_MONITOR
] != -1)
5607 rend
= renditions
[REND_MONITOR
];
5608 else if ((p
->w_bell
== BELL_DONE
|| p
->w_bell
== BELL_FOUND
) && renditions
[REND_BELL
] != -1)
5609 rend
= renditions
[REND_BELL
];
5612 AddWinMsgRend(s
, rend
);
5613 sprintf(s
, "%d", p
->w_number
);
5615 if (display
&& p
== D_fore
)
5619 if (display
&& p
== D_other
)
5621 s
= AddWindowFlags(s
, len
, p
);
5627 AddWinMsgRend(s
, -1);
5634 AddWindowFlags(buf
, len
, p
)
5640 if (p
== 0 || len
< 12)
5646 if (display
&& p
== D_fore
)
5648 if (display
&& p
== D_other
)
5651 if (p
->w_layer
.l_cvlist
&& p
->w_layer
.l_cvlist
->c_lnext
)
5653 if (p
->w_monitor
== MON_DONE
5655 && (ACLBYTE(p
->w_mon_notify
, D_user
->u_id
) & ACLBIT(D_user
->u_id
))
5659 if (p
->w_bell
== BELL_DONE
)
5662 if (p
->w_slot
!= (slot_t
) 0 && p
->w_slot
!= (slot_t
) -1)
5670 if (p
->w_ptyfd
< 0 && p
->w_type
!= W_TYPE_GROUP
)
5677 AddOtherUsers(buf
, len
, p
)
5682 struct display
*d
, *olddisplay
= display
;
5688 for (display
= displays
; display
; display
= display
->d_next
)
5690 if (olddisplay
&& D_user
== olddisplay
->d_user
)
5692 for (cv
= D_cvlist
; cv
; cv
= cv
->c_next
)
5693 if (Layer2Window(cv
->c_layer
) == p
)
5697 for (d
= displays
; d
&& d
!= display
; d
= d
->d_next
)
5698 if (D_user
== d
->d_user
)
5700 if (d
&& d
!= display
)
5702 if (len
> 1 && s
!= buf
)
5707 l
= strlen(D_user
->u_name
);
5710 strcpy(s
, D_user
->u_name
);
5715 display
= olddisplay
;
5728 if (where
== -1 && D_fore
)
5729 where
= D_fore
->w_number
;
5730 ss
= AddWindows(buf
, sizeof(buf
), 0, where
);
5731 s
= buf
+ strlen(buf
);
5732 if (ss
- buf
> D_width
/ 2)
5735 if (s
- ss
< D_width
)
5751 register struct win
*wp
= fore
;
5756 Msg(0, "(%d,%d)/(%d,%d) no window", D_x
+ 1, D_y
+ 1, D_width
, D_height
);
5760 if (buf
< (p
+= GetAnsiStatus(wp
, p
)))
5762 sprintf(p
, "(%d,%d)/(%d,%d)",
5763 wp
->w_x
+ 1, wp
->w_y
+ 1, wp
->w_width
, wp
->w_height
);
5765 sprintf(p
+= strlen(p
), "+%d", wp
->w_histheight
);
5767 sprintf(p
+= strlen(p
), " %c%sflow",
5768 (wp
->w_flow
& FLOW_NOW
) ? '+' : '-',
5769 (wp
->w_flow
& FLOW_AUTOFLAG
) ? "" :
5770 ((wp
->w_flow
& FLOW_AUTO
) ? "(+)" : "(-)"));
5771 if (!wp
->w_wrap
) sprintf(p
+= strlen(p
), " -wrap");
5772 if (wp
->w_insert
) sprintf(p
+= strlen(p
), " ins");
5773 if (wp
->w_origin
) sprintf(p
+= strlen(p
), " org");
5774 if (wp
->w_keypad
) sprintf(p
+= strlen(p
), " app");
5775 if (wp
->w_log
) sprintf(p
+= strlen(p
), " log");
5776 if (wp
->w_monitor
!= MON_OFF
5778 && (ACLBYTE(wp
->w_mon_notify
, D_user
->u_id
) & ACLBIT(D_user
->u_id
))
5781 sprintf(p
+= strlen(p
), " mon");
5782 if (wp
->w_mouse
) sprintf(p
+= strlen(p
), " mouse");
5784 if (wp
->w_bce
) sprintf(p
+= strlen(p
), " bce");
5786 if (!wp
->w_c1
) sprintf(p
+= strlen(p
), " -c1");
5787 if (wp
->w_norefresh
) sprintf(p
+= strlen(p
), " nored");
5792 if (wp
->w_encoding
&& (display
== 0 || D_encoding
!= wp
->w_encoding
|| EncodingDefFont(wp
->w_encoding
) <= 0))
5795 strcpy(p
, EncodingName(wp
->w_encoding
));
5799 if (wp
->w_encoding
!= UTF8
)
5802 if (D_CC0
|| (D_CS0
&& *D_CS0
))
5806 sprintf(p
, " G%c", wp
->w_Charset
+ '0');
5807 if (wp
->w_FontE
>= ' ')
5812 p
[4] = wp
->w_FontE
^ 0x40;
5819 sprintf(p
++, " G%c%c[", wp
->w_Charset
+ '0', wp
->w_CharsetR
+ '0');
5821 sprintf(p
, " G%c[", wp
->w_Charset
+ '0');
5823 for (i
= 0; i
< 4; i
++)
5825 if (wp
->w_charsets
[i
] == ASCII
)
5827 else if (wp
->w_charsets
[i
] >= ' ')
5828 *p
++ = wp
->w_charsets
[i
];
5832 *p
++ = wp
->w_charsets
[i
] ^ 0x40;
5840 if (wp
->w_type
== W_TYPE_PLAIN
)
5842 /* add info about modem control lines */
5844 TtyGetModemStatus(wp
->w_ptyfd
, p
);
5846 #ifdef BUILTIN_TELNET
5847 else if (wp
->w_type
== W_TYPE_TELNET
)
5850 TelStatus(wp
, p
, sizeof(buf
) - 1 - (p
- buf
));
5853 Msg(0, "%s %d(%s)", buf
, wp
->w_number
, wp
->w_title
);
5863 sprintf(p
, "(%d,%d)", D_width
, D_height
),
5869 strcpy(p
, EncodingName(D_encoding
));
5875 strcpy(p
, " xterm");
5881 strcpy(p
, " color");
5888 strcpy(p
, " iso2022");
5891 else if (D_CS0
&& *D_CS0
)
5893 strcpy(p
, " altchar");
5901 AKAfin(buf
, len
, data
)
5904 char *data
; /* dummy */
5908 ChangeAKA(fore
, buf
, strlen(buf
));
5916 Input("Set window's title to: ", sizeof(fore
->w_akabuf
) - 1, INP_COOKED
, AKAfin
, NULL
, 0);
5922 if ((*(unsigned char *)s
& 0x7f) < 0x20 || *s
== 0x7f)
5926 LayProcess(&ss
, &n
);
5931 Colonfin(buf
, len
, data
)
5934 char *data
; /* dummy */
5939 if (buf
[len
] == '\t')
5942 int l
= 0, r
= RC_LAST
;
5943 int showmessage
= 0;
5946 while (*s
&& s
- buf
< len
)
5950 /* Showing a message when there's no hardstatus or caption cancels the input */
5952 (captionalways
|| D_has_hstatus
== HSTATUS_LASTLINE
|| (D_canvas
.c_slperp
&& D_canvas
.c_slperp
->c_slnext
)))
5958 x
= strncmp(buf
, comms
[m
].name
, len
);
5966 for (l
= m
- 1; l
>= 0 && strncmp(buf
, comms
[l
].name
, len
) == 0; l
--)
5968 for (m
= ++l
; m
<= r
&& strncmp(buf
, comms
[m
].name
, len
) == 0 && s
- mbuf
< sizeof(mbuf
); m
++)
5969 s
+= snprintf(s
, sizeof(mbuf
) - (s
- mbuf
), " %s", comms
[m
].name
);
5973 Msg(0, "Possible commands:%s", mbuf
);
5978 len
= snprintf(mbuf
, sizeof(mbuf
), "%s \t", comms
[l
].name
+ len
);
5979 if (len
> 0 && len
< sizeof(mbuf
))
5980 LayProcess(&s
, &len
);
5985 if (l
> r
&& showmessage
)
5986 Msg(0, "No commands matching '%*s'", len
, buf
);
5990 if (!len
|| buf
[len
])
5993 len
= strlen(buf
) + 1;
5994 if (len
> (int)sizeof(mbuf
))
5998 bcopy(buf
, mbuf
, len
);
5999 RcLine(mbuf
, sizeof mbuf
);
6004 SelectFin(buf
, len
, data
)
6007 char *data
; /* dummy */
6011 if (!len
|| !display
)
6013 if (len
== 1 && *buf
== '-')
6015 SetForeWindow((struct win
*)0);
6019 if ((n
= WindowByNoN(buf
)) < 0)
6025 SelectLayoutFin(buf
, len
, data
)
6028 char *data
; /* dummy */
6032 if (!len
|| !display
)
6034 if (len
== 1 && *buf
== '-')
6036 LoadLayout((struct layout
*)0, (struct canvas
*)0);
6040 lay
= FindLayout(buf
);
6042 Msg(0, "No such layout\n");
6043 else if (lay
== D_layout
)
6044 Msg(0, "This IS layout %d (%s).\n", lay
->lay_number
, lay
->lay_title
);
6047 LoadLayout(lay
, &D_canvas
);
6056 Input("Switch to window: ", 20, INP_COOKED
, SelectFin
, NULL
, 0);
6059 static char setenv_var
[31];
6063 SetenvFin1(buf
, len
, data
)
6066 char *data
; /* dummy */
6068 if (!len
|| !display
)
6074 SetenvFin2(buf
, len
, data
)
6077 char *data
; /* dummy */
6079 if (!len
|| !display
)
6081 debug2("SetenvFin2: setenv '%s' '%s'\n", setenv_var
, buf
);
6082 xsetenv(setenv_var
, buf
);
6090 static char setenv_buf
[50 + sizeof(setenv_var
)]; /* need to be static here, cannot be freed */
6094 strncpy(setenv_var
, arg
, sizeof(setenv_var
) - 1);
6095 sprintf(setenv_buf
, "Enter value for %s: ", setenv_var
);
6096 Input(setenv_buf
, 30, INP_COOKED
, SetenvFin2
, NULL
, 0);
6099 Input("Setenv: Enter variable name: ", 30, INP_COOKED
, SetenvFin1
, NULL
, 0);
6103 * the following options are understood by this parser:
6104 * -f, -f0, -f1, -fy, -fa
6105 * -t title, -T terminal-type, -h height-of-scrollback,
6106 * -ln, -l0, -ly, -l1, -l
6113 struct NewWindow nwin
;
6118 while (av
&& *av
&& av
[0][0] == '-')
6120 if (av
[0][1] == '-')
6132 nwin
.flowflag
= FLOW_NOW
* 0;
6137 nwin
.flowflag
= FLOW_NOW
* 1;
6140 nwin
.flowflag
= FLOW_AUTOFLAG
;
6146 case 't': /* no more -k */
6148 nwin
.aka
= &av
[0][2];
6156 nwin
.term
= &av
[0][2];
6164 nwin
.histheight
= atoi(av
[0] + 2);
6166 nwin
.histheight
= atoi(*av
);
6195 nwin
.monitor
= MON_ON
;
6201 Msg(0, "%s: screen: invalid option -%c.", fn
, av
[0][1]);
6207 if (av
&& *av
&& IsNumColon(*av
, 10, buf
, sizeof(buf
)))
6212 if (num
< 0 || num
> MAXWIN
- 1)
6214 Msg(0, "%s: illegal screen number %d.", fn
, num
);
6224 nwin
.aka
= Filename(*av
);
6231 * CompileKeys must be called before Markroutine is first used.
6232 * to initialise the keys with defaults, call CompileKeys(NULL, mark_key_tab);
6234 * s is an ascii string in a termcap-like syntax. It looks like
6235 * "j=u:k=d:l=r:h=l: =.:" and so on...
6236 * this example rebinds the cursormovement to the keys u (up), d (down),
6237 * l (left), r (right). placing a mark will now be done with ".".
6240 CompileKeys(s
, sl
, array
)
6243 unsigned char *array
;
6246 unsigned char key
, value
;
6250 for (i
= 0; i
< 256; i
++)
6254 debug1("CompileKeys: '%s'\n", s
);
6257 key
= *(unsigned char *)s
++;
6258 if (*s
!= '=' || sl
< 3)
6265 value
= *(unsigned char *)s
++;
6268 while (*s
== '=' && sl
>= 2);
6277 #endif /* COPY_PASTE */
6280 * Asynchronous input functions
6283 #if defined(DETACH) && defined(POW_DETACH)
6285 pow_detach_fn(buf
, len
, data
)
6288 char *data
; /* dummy */
6290 debug("pow_detach_fn called\n");
6296 if (ktab
[(int)(unsigned char)*buf
].nr
!= RC_POW_DETACH
)
6299 write(D_userfd
, "\007", 1);
6300 Msg(0, "Detach aborted.");
6305 #endif /* POW_DETACH */
6309 copy_reg_fn(buf
, len
, data
)
6312 char *data
; /* dummy */
6314 struct plop
*pp
= plop_tab
+ (int)(unsigned char)*buf
;
6325 if (D_user
->u_plop
.len
)
6327 if ((pp
->buf
= (char *)malloc(D_user
->u_plop
.len
)) == NULL
)
6332 bcopy(D_user
->u_plop
.buf
, pp
->buf
, D_user
->u_plop
.len
);
6334 pp
->len
= D_user
->u_plop
.len
;
6336 pp
->enc
= D_user
->u_plop
.enc
;
6338 Msg(0, "Copied %d characters into register %c", D_user
->u_plop
.len
, *buf
);
6342 ins_reg_fn(buf
, len
, data
)
6345 char *data
; /* dummy */
6347 struct plop
*pp
= plop_tab
+ (int)(unsigned char)*buf
;
6355 return; /* Input() should not call us w/o fore, but you never know... */
6357 Msg(0, "ins_reg_fn: Warning: pasting real register '.'!");
6360 MakePaster(&fore
->w_paster
, pp
->buf
, pp
->len
, 0);
6363 Msg(0, "Empty register.");
6365 #endif /* COPY_PASTE */
6368 process_fn(buf
, len
, data
)
6371 char *data
; /* dummy */
6373 struct plop
*pp
= plop_tab
+ (int)(unsigned char)*buf
;
6382 ProcessInput(pp
->buf
, pp
->len
);
6385 Msg(0, "Empty register.");
6389 confirm_fn(buf
, len
, data
)
6396 if (len
|| (*buf
!= 'y' && *buf
!= 'Y'))
6401 act
.nr
= *(int *)data
;
6410 struct acluser
**up
;
6412 char pw1
[130]; /* FreeBSD crypts to 128 bytes */
6417 su_fin(buf
, len
, data
)
6422 struct inputsu
*i
= (struct inputsu
*)data
;
6427 { p
= i
->name
; l
= sizeof(i
->name
) - 1; }
6429 { strcpy(p
= i
->pw1
, "\377"); l
= sizeof(i
->pw1
) - 1; }
6431 { strcpy(p
= i
->pw2
, "\377"); l
= sizeof(i
->pw2
) - 1; }
6433 strncpy(p
, buf
, 1 + (l
< len
) ? l
: len
);
6435 Input("Screen User: ", sizeof(i
->name
) - 1, INP_COOKED
, su_fin
, (char *)i
, 0);
6437 Input("User's UNIX Password: ", sizeof(i
->pw1
)-1, INP_COOKED
|INP_NOECHO
, su_fin
, (char *)i
, 0);
6439 Input("User's Screen Password: ", sizeof(i
->pw2
)-1, INP_COOKED
|INP_NOECHO
, su_fin
, (char *)i
, 0);
6442 if ((p
= DoSu(i
->up
, i
->name
, i
->pw2
, i
->pw1
)))
6449 InputSu(w
, up
, name
)
6451 struct acluser
**up
;
6456 if (!(i
= (struct inputsu
*)calloc(1, sizeof(struct inputsu
))))
6461 su_fin(name
, (int)strlen(name
), (char *)i
); /* can also initialise stuff */
6463 su_fin((char *)0, 0, (char *)i
);
6466 #endif /* MULTIUSER */
6471 pass1(buf
, len
, data
)
6476 struct acluser
*u
= (struct acluser
*)data
;
6481 if (u
->u_password
!= NullStr
)
6482 free((char *)u
->u_password
);
6483 u
->u_password
= SaveStr(buf
);
6484 bzero(buf
, strlen(buf
));
6485 Input("Retype new password:", 100, INP_NOECHO
, pass2
, data
, 0);
6489 pass2(buf
, len
, data
)
6496 struct acluser
*u
= (struct acluser
*)data
;
6499 if (!buf
|| strcmp(u
->u_password
, buf
))
6501 Msg(0, "[ Passwords don't match - checking turned off ]");
6502 if (u
->u_password
!= NullStr
)
6504 bzero(u
->u_password
, strlen(u
->u_password
));
6505 free((char *)u
->u_password
);
6507 u
->u_password
= NullStr
;
6509 else if (u
->u_password
[0] == '\0')
6511 Msg(0, "[ No password - no secure ]");
6513 bzero(buf
, strlen(buf
));
6516 if (u
->u_password
!= NullStr
)
6518 for (st
= 0; st
< 2; st
++)
6519 salt
[st
] = 'A' + (int)((time(0) >> 6 * st
) % 26);
6521 buf
= crypt(u
->u_password
, salt
);
6522 bzero(u
->u_password
, strlen(u
->u_password
));
6523 free((char *)u
->u_password
);
6524 u
->u_password
= SaveStr(buf
);
6525 bzero(buf
, strlen(buf
));
6528 UserFreeCopyBuffer(u
);
6529 u
->u_plop
.len
= strlen(u
->u_password
);
6533 if (!(u
->u_plop
.buf
= SaveStr(u
->u_password
)))
6536 D_user
->u_plop
.len
= 0;
6539 Msg(0, "[ Password moved into copybuffer ]");
6540 #else /* COPY_PASTE */
6541 Msg(0, "[ Crypted password is \"%s\" ]", u
->u_password
);
6542 #endif /* COPY_PASTE */
6545 #endif /* PASSWORD */
6552 for (i
= 0; i
< MAX_DIGRAPH
&& digraphs
[i
].d
[0]; i
++)
6553 if ((digraphs
[i
].d
[0] == (unsigned char)buf
[0] && digraphs
[i
].d
[1] == (unsigned char)buf
[1]) ||
6554 (digraphs
[i
].d
[0] == (unsigned char)buf
[1] && digraphs
[i
].d
[1] == (unsigned char)buf
[0]))
6560 digraph_fn(buf
, len
, data
)
6563 char *data
; /* dummy */
6570 buf
[len
+ 1] = ch
; /* so we can restore it later */
6571 if (ch
< ' ' || ch
== '\177')
6573 if (len
>= 1 && ((*buf
== 'U' && buf
[1] == '+') || (*buf
== '0' && (buf
[1] == 'x' || buf
[1] == 'X'))))
6577 if ((ch
< '0' || ch
> '9') && (ch
< 'a' || ch
> 'f') && (ch
< 'A' || ch
> 'F'))
6579 buf
[len
] = '\034'; /* ^] is ignored by Input() */
6582 if (len
== (*buf
== 'U' ? 5 : 3))
6586 if (len
&& *buf
== '0')
6588 if (ch
< '0' || ch
> '7')
6590 buf
[len
] = '\034'; /* ^] is ignored by Input() */
6605 buf
[len
] = buf
[len
+ 1]; /* stored above */
6610 if (!parse_input_int(buf
, len
, &x
))
6612 i
= digraph_find(buf
);
6613 if ((x
= digraphs
[i
].value
) <= 0)
6615 Msg(0, "Unknown digraph");
6622 if (flayer
->l_encoding
== UTF8
)
6623 i
= ToUtf8(buf
, x
); /* buf is big enough for all UTF-8 codes */
6626 LayProcess(&buf
, &i
);
6637 debug1("StuffKey #%d", i
);
6640 debug1(" - %s", term
[i
+ T_CAPS
].tcname
);
6643 if (i
< KMAP_KEYS
&& D_ESCseen
)
6645 struct action
*act
= &D_ESCseen
[i
+ 256];
6646 if (act
->nr
!= RC_ILLEGAL
)
6649 DoAction(act
, i
+ 256);
6655 if (i
>= T_CURSOR
- T_CAPS
&& i
< T_KEYPAD
- T_CAPS
&& D_cursorkeys
)
6656 i
+= T_OCAPS
- T_CURSOR
;
6657 else if (i
>= T_KEYPAD
- T_CAPS
&& i
< T_OCAPS
- T_CAPS
&& D_keypad
)
6658 i
+= T_OCAPS
- T_CURSOR
;
6659 debug1(" - action %d\n", i
);
6660 flayer
= D_forecv
->c_layer
;
6664 if (InMark() || InInput() || InWList())
6665 act
= i
< KMAP_KEYS
+KMAP_AKEYS
? &mmtab
[i
] : &kmap_exts
[i
- (KMAP_KEYS
+KMAP_AKEYS
)].mm
;
6667 if ((!act
|| act
->nr
== RC_ILLEGAL
) && !D_mapdefault
)
6668 act
= i
< KMAP_KEYS
+KMAP_AKEYS
? &umtab
[i
] : &kmap_exts
[i
- (KMAP_KEYS
+KMAP_AKEYS
)].um
;
6669 if (!act
|| act
->nr
== RC_ILLEGAL
)
6670 act
= i
< KMAP_KEYS
+KMAP_AKEYS
? &dmtab
[i
] : &kmap_exts
[i
- (KMAP_KEYS
+KMAP_AKEYS
)].dm
;
6672 if (discard
&& (!act
|| act
->nr
!= RC_COMMAND
))
6679 if (act
== 0 || act
->nr
== RC_ILLEGAL
)
6693 for (cv
= D_cvlist
; cv
; cv
= cv
->c_next
)
6694 if (Layer2Window(cv
->c_layer
) == wi
)
6700 FindNiceWindow(wi
, presel
)
6706 debug2("FindNiceWindow %d %s\n", wi
? wi
->w_number
: -1 , presel
? presel
: "NULL");
6709 i
= WindowByNoN(presel
);
6716 if (wi
&& AclCheckPermWin(D_user
, ACL_READ
, wi
))
6719 if (!wi
|| (IsOnDisplay(wi
) && !presel
))
6721 /* try to get another window */
6724 for (wi
= windows
; wi
; wi
= wi
->w_next
)
6725 if (!wi
->w_layer
.l_cvlist
&& !AclCheckPermWin(D_user
, ACL_WRITE
, wi
))
6728 for (wi
= windows
; wi
; wi
= wi
->w_next
)
6729 if (wi
->w_layer
.l_cvlist
&& !IsOnDisplay(wi
) && !AclCheckPermWin(D_user
, ACL_WRITE
, wi
))
6732 for (wi
= windows
; wi
; wi
= wi
->w_next
)
6733 if (!wi
->w_layer
.l_cvlist
&& !AclCheckPermWin(D_user
, ACL_READ
, wi
))
6736 for (wi
= windows
; wi
; wi
= wi
->w_next
)
6737 if (wi
->w_layer
.l_cvlist
&& !IsOnDisplay(wi
) && !AclCheckPermWin(D_user
, ACL_READ
, wi
))
6741 for (wi
= windows
; wi
; wi
= wi
->w_next
)
6742 if (!wi
->w_layer
.l_cvlist
)
6745 for (wi
= windows
; wi
; wi
= wi
->w_next
)
6746 if (wi
->w_layer
.l_cvlist
&& !IsOnDisplay(wi
))
6750 if (wi
&& AclCheckPermWin(D_user
, ACL_READ
, wi
))
6760 AddAlias(name
, value
, args
, argl
, count
)
6767 struct alias
*nalias
= NULL
;
6768 static next_command
= RC_LAST
;
6771 /* Make sure we don't already have this alias name defined. */
6772 if (FindAlias(name
) != NULL
)
6774 Msg(0, "alias already defined: %s", name
);
6778 /* Make sure the alias maps to something */
6779 if ((nr
= FindCommnr((char *)value
)) == RC_ILLEGAL
)
6781 struct alias
*alias
= FindAlias(value
);
6784 Msg(0, "%s: could not find command or alias '%s'", rc_name
, value
);
6790 nalias
= (struct alias
*)calloc(1, sizeof(struct alias
));
6793 nalias
->next
= NULL
;
6794 nalias
->name
= SaveStr(name
);
6798 nalias
->args
= SaveArgs(args
);
6799 nalias
->argl
= calloc(count
+ 1, sizeof(int));
6801 nalias
->argl
[count
] = argl
[count
];
6803 nalias
->nr
= ++next_command
;
6806 nalias
->next
= g_aliases_list
;
6807 g_aliases_list
= nalias
;
6812 * Find an alias by name.
6814 static struct alias
*
6818 struct alias
*t
= g_aliases_list
;
6822 if ((t
->name
!= NULL
) &&
6823 (strcmp(t
->name
, name
) == 0))
6833 * Find an alias by number.
6835 static struct alias
*
6840 for (t
= g_aliases_list
; t
; t
= t
->next
)
6856 /* Find the previous alias */
6857 struct alias
*cur
= g_aliases_list
;
6858 struct alias
**pcur
= &g_aliases_list
;
6862 if ((cur
->name
!= NULL
) &&
6863 (strcmp(cur
->name
, name
) == 0))
6865 struct alias
*found
= cur
;
6868 /* remove this one from the chain. */
6869 *pcur
= found
->next
;
6874 for (c
= 0; found
->args
[c
]; c
++)
6875 free(found
->args
[c
]);
6881 Msg(0, "alias %s removed", name
);
6888 Msg(0, "alias %s not found", name
);
6893 /* sorted list of all commands */
6894 static struct comm
**commtab
;
6895 static int ncommtab
;
6900 void (*hand
) __P((struct comm
*, char **, int));
6903 for (n
= 0; cos
[n
].name
; n
++)
6908 commtab
= (struct commt
*)realloc(commtab
, sizeof(*commtab
) * (ncommtab
+ n
));
6910 commtab
= (struct commt
*)malloc(sizeof(*commtab
) * (ncommtab
+ n
));
6913 for (i
= 0; i
< n
; i
++)
6915 for (j
= 0; j
< ncommtab
; j
++)
6917 r
= strcmp(cos
[i
].name
, commtab
[j
]->name
);
6919 Panic(0, "Duplicate command: %s\n", cos
[i
].name
);
6923 for (r
= ncommtab
; r
> j
; r
--)
6924 commtab
[r
] = commtab
[r
- 1];
6925 commtab
[j
] = cos
+ i
;
6926 cos
[i
].handler
= hand
;
6927 bzero(cos
[i
].userbits
, sizeof(cos
[i
].userbits
));
6936 int x
, m
, l
= 0, r
= ncommtab
- 1;
6940 x
= strcmp(str
, commtab
[m
]->name
);
6954 CalcSlicePercent(cv
, percent
)
6959 if (!cv
|| !cv
->c_slback
)
6961 up
= CalcSlicePercent(cv
->c_slback
->c_slback
, percent
);
6963 for (cv
= cv
->c_slback
->c_slperp
, wsum
= 0; cv
; cv
= cv
->c_slnext
)
6964 wsum
+= cv
->c_slweight
;
6967 return (up
* w
) / wsum
;
6971 ChangeCanvasSize(fcv
, abs
, diff
, gflag
, percent
)
6972 struct canvas
*fcv
; /* make this canvas bigger */
6973 int abs
; /* mode: 0:rel 1:abs 2:max */
6974 int diff
; /* change this much */
6975 int gflag
; /* go up if neccessary */
6979 int done
, have
, m
, dir
;
6981 debug3("ChangeCanvasSize abs %d diff %d percent=%d\n", abs
, diff
, percent
);
6982 if (abs
== 0 && diff
== 0)
6987 fcv
->c_slweight
= 0;
6990 for (cv
= fcv
->c_slback
->c_slperp
; cv
; cv
= cv
->c_slnext
)
6992 fcv
->c_slweight
= 1;
6993 cv
= fcv
->c_slback
->c_slback
;
6994 if (gflag
&& cv
&& cv
->c_slback
)
6995 ChangeCanvasSize(cv
, abs
, diff
, gflag
, percent
);
7003 if (percent
&& diff
> percent
)
7009 for (cv
= fcv
->c_slback
->c_slperp
, wsum
= 0; cv
; cv
= cv
->c_slnext
)
7010 wsum
+= cv
->c_slweight
;
7013 up
= gflag
? CalcSlicePercent(fcv
->c_slback
->c_slback
, percent
) : percent
;
7014 debug3("up=%d, wsum=%d percent=%d\n", up
, wsum
, percent
);
7017 int scale
= wsum
< 10 ? 1000 : 100;
7018 for (cv
= fcv
->c_slback
->c_slperp
; cv
; cv
= cv
->c_slnext
)
7019 cv
->c_slweight
*= scale
;
7021 debug1("scaled wsum to %d\n", wsum
);
7023 for (cv
= fcv
->c_slback
->c_slperp
; cv
; cv
= cv
->c_slnext
)
7027 cv
->c_slweight
= (cv
->c_slweight
* up
) / percent
;
7028 if (cv
->c_slweight
== 0)
7031 debug1(" - weight %d\n", cv
->c_slweight
);
7033 diff
= (diff
* wsum
) / percent
;
7039 if (abs
&& diff
== (fcv
->c_slorient
== SLICE_VERT
? fcv
->c_ye
- fcv
->c_ys
+ 2 : fcv
->c_xe
- fcv
->c_xs
+ 2))
7041 /* fix weights to real size (can't be helped, sorry) */
7042 for (cv
= fcv
->c_slback
->c_slperp
; cv
; cv
= cv
->c_slnext
)
7044 cv
->c_slweight
= cv
->c_slorient
== SLICE_VERT
? cv
->c_ye
- cv
->c_ys
+ 2 : cv
->c_xe
- cv
->c_xs
+ 2;
7045 debug1(" - weight %d\n", cv
->c_slweight
);
7049 diff
= diff
- fcv
->c_slweight
;
7050 debug1("diff = %d\n", diff
);
7055 cv
= fcv
->c_slnext
? fcv
->c_slnext
: fcv
->c_slprev
;
7056 fcv
->c_slweight
+= diff
;
7057 cv
->c_slweight
-= diff
;
7062 for (cv
= fcv
->c_slnext
; diff
> 0; cv
= dir
> 0 ? cv
->c_slnext
: cv
->c_slprev
)
7066 debug1("reached end, dir is %d\n", dir
);
7076 m
= cv
->c_slperp
? CountCanvasPerp(cv
) * 2 : 2;
7077 debug2("min is %d, have %d\n", m
, cv
->c_slweight
);
7078 if (cv
->c_slweight
> m
)
7080 have
= cv
->c_slweight
- m
;
7083 debug1("subtract %d\n", have
);
7084 cv
->c_slweight
-= have
;
7091 /* need more room! */
7092 cv
= fcv
->c_slback
->c_slback
;
7093 if (cv
&& cv
->c_slback
)
7094 done
+= ChangeCanvasSize(fcv
->c_slback
->c_slback
, 0, diff
, gflag
, percent
);
7096 fcv
->c_slweight
+= done
;
7097 debug1("ChangeCanvasSize returns %d\n", done
);
7102 ResizeRegions(arg
, flags
)
7108 int gflag
= 0, abs
= 0, percent
= 0;
7114 if (D_forecv
->c_slorient
== SLICE_UNKN
)
7116 Msg(0, "resize: need more than one region");
7119 gflag
= flags
& RESIZE_FLAG_L
? 0 : 1;
7120 orient
|= flags
& RESIZE_FLAG_H
? SLICE_HORI
: 0;
7121 orient
|= flags
& RESIZE_FLAG_V
? SLICE_VERT
: 0;
7123 orient
= D_forecv
->c_slorient
;
7127 /* make all regions the same height */
7128 struct canvas
*cv
= gflag
? &D_canvas
: D_forecv
->c_slback
;
7129 if (cv
->c_slperp
->c_slorient
& orient
)
7130 EqualizeCanvas(cv
->c_slperp
, gflag
);
7131 /* can't use cv->c_slorient directly as it can be D_canvas */
7132 if ((cv
->c_slperp
->c_slorient
^ (SLICE_HORI
^ SLICE_VERT
)) & orient
)
7137 EqualizeCanvas(cv
->c_slperp
, gflag
);
7140 EqualizeCanvas(cv
, gflag
);
7143 RecreateCanvasChain();
7144 RethinkDisplayViewports();
7145 ResizeLayersToCanvases();
7148 if (!strcmp(arg
, "min") || !strcmp(arg
, "0"))
7153 else if (!strcmp(arg
, "max") || !strcmp(arg
, "_"))
7160 if (l
> 0 && arg
[l
- 1] == '%')
7163 diff
= atoi(arg
+ 1);
7164 else if (*arg
== '-')
7165 diff
= -atoi(arg
+ 1);
7168 diff
= atoi(arg
); /* +1 because of caption line */
7171 abs
= diff
== 0 ? 2 : 1;
7177 diff
= diff
* percent
/ 100;
7179 if (cv
->c_slorient
& orient
)
7180 ChangeCanvasSize(cv
, abs
, diff
, gflag
, percent
);
7181 if (cv
->c_slback
->c_slorient
& orient
)
7182 ChangeCanvasSize(cv
->c_slback
, abs
, diff
, gflag
, percent
);
7184 ResizeCanvas(&D_canvas
);
7185 RecreateCanvasChain();
7186 RethinkDisplayViewports();
7187 ResizeLayersToCanvases();
7194 if (siz
+ diff
> dsize
- (nreg
- 1) * 2 - 1)
7195 diff
= dsize
- (nreg
- 1) * 2 - 1 - siz
;
7196 if (diff
== 0 || siz
+ diff
< 1)
7201 if (D_forecv
->c_next
)
7203 D_forecv
->c_ye
+= diff
;
7204 D_forecv
->c_next
->c_ys
+= diff
;
7205 D_forecv
->c_next
->c_yoff
+= diff
;
7209 for (cv
= D_cvlist
; cv
; cv
= cv
->c_next
)
7210 if (cv
->c_next
== D_forecv
)
7214 D_forecv
->c_ys
-= diff
;
7215 D_forecv
->c_yoff
-= diff
;
7220 int s
, i
= 0, found
= 0, di
= diff
, d2
;
7221 s
= dsize
- (nreg
- 1) * 2 - 1 - siz
;
7222 for (cv
= D_cvlist
; cv
; i
= cv
->c_ye
+ 2, cv
= cv
->c_next
)
7226 cv
->c_ye
= i
+ (cv
->c_ye
- cv
->c_ys
) + diff
;
7227 cv
->c_yoff
-= cv
->c_ys
- i
;
7232 s
-= cv
->c_ye
- cv
->c_ys
;
7240 d2
= di
> cv
->c_ye
- cv
->c_ys
? cv
->c_ye
- cv
->c_ys
: di
;
7242 cv
->c_ye
= i
+ (cv
->c_ye
- cv
->c_ys
) - d2
;
7243 cv
->c_yoff
-= cv
->c_ys
- i
;
7247 RethinkDisplayViewports();
7248 ResizeLayersToCanvases();
7253 ResizeFin(buf
, len
, data
)
7259 int flags
= *(int *)data
;
7260 ch
= ((unsigned char *)buf
)[len
];
7263 ResizeRegions(buf
, flags
);
7267 flags
^= RESIZE_FLAG_H
;
7269 flags
^= RESIZE_FLAG_V
;
7271 flags
|= RESIZE_FLAG_H
|RESIZE_FLAG_V
;
7273 flags
^= D_forecv
->c_slorient
== SLICE_VERT
? RESIZE_FLAG_H
: RESIZE_FLAG_V
;
7275 flags
^= RESIZE_FLAG_L
;
7278 inp_setprompt(resizeprompts
[flags
], NULL
);
7279 *(int *)data
= flags
;
7290 p
= Layer2Window(D_forecv
->c_layer
);
7291 for (i
= 3; i
>=0; i
--)
7292 SetXtermOSC(i
, p
? p
->w_xtermosc
[i
] : 0);
7297 ParseAttrColor(s1
, s2
, msgok
)
7309 while (*ss
&& *ss
!= ' ')
7313 if (*s
&& (s2
|| *ss
|| !((*s
>= 'a' && *s
<= 'z') || (*s
>= 'A' && *s
<= 'Z') || *s
== '.')))
7315 int mode
= 0, n
= 0;
7333 if (*s
>= '0' && *s
<= '9')
7336 if (*s
>= '0' && *s
<= '9')
7337 n
= n
* 16 + (*s
++ - '0');
7338 else if (*s
>= 'a' && *s
<= 'f')
7339 n
= n
* 16 + (*s
++ - ('a' - 10));
7340 else if (*s
>= 'A' && *s
<= 'F')
7341 n
= n
* 16 + (*s
++ - ('A' - 10));
7342 else if (*s
&& *s
!= ' ')
7345 Msg(0, "Illegal attribute hexchar '%c'", *s
);
7351 while (*s
&& *s
!= ' ')
7368 Msg(0, "Illegal attribute specifier '%c'", *s
);
7374 if (*s
&& *s
!= ' ')
7377 Msg(0, "junk after attribute description: '%c'", *s
);
7389 while (*s
&& *s
== ' ')
7397 Msg(0, "junk after description: '%c'", *s
);
7401 while (*s
&& *s
== ' ')
7408 static char costr
[] = "krgybmcw d i.01234567 9 f FKRGYBMCW I ";
7418 for (j
= 0; j
< 2 && *s
&& *s
!= ' '; j
++)
7420 for (i
= 0; costr
[i
]; i
++)
7426 Msg(0, "illegal color descriptor: '%c'", *s
);
7430 n
= n
<< 4 | (i
& 15);
7433 n
= (n
& 0x20ff) | 0x200;
7437 if ((n
& 0xf00) == 0xf00)
7438 n
^= 0xf00; /* clear superflous bits */
7441 n
^= 0x2400; /* shift bit into right position */
7444 n
|= 0xf0; /* don't change bg color */
7445 if (numco
!= 2 && n
!= 0xff)
7446 n
|= 0x100; /* special invert mode */
7447 if (*s
&& *s
!= ' ')
7450 Msg(0, "junk after color description: '%c'", *s
);
7458 while (*s
&& *s
== ' ')
7463 Msg(0, "junk after description: '%c'", *s
);
7466 debug1("ParseAttrColor %06x\n", r
);
7474 * e just set intensity
7475 * f don't change anything
7476 * Intensity is encoded into bits 17(fg) and 18(bg).
7479 ApplyAttrColor(i
, mc
)
7483 debug1("ApplyAttrColor %06x\n", i
);
7484 mc
->attr
|= i
>> 8 & 255;
7485 mc
->attr
^= i
& 255;
7487 i
= (i
>> 16) ^ 0xff;
7488 if ((i
& 0x100) != 0)
7491 if (mc
->attr
& (A_SO
|A_RV
))
7493 i
= ((i
& 0x0f) << 4) | ((i
& 0xf0) >> 4) | ((i
& 0x200) << 1) | ((i
& 0x400) >> 1);
7495 i
= ((i
& 0x0f) << 4) | ((i
& 0xf0) >> 4);
7499 if ((i
& 0x0f) != 0x0f)
7500 mc
->attr
= (mc
->attr
& 0xbf) | ((i
>> 3) & 0x40);
7501 if ((i
& 0xf0) != 0xf0)
7502 mc
->attr
= (mc
->attr
& 0x7f) | ((i
>> 3) & 0x80);
7504 mc
->color
= 0x99 ^ mc
->color
;
7505 if ((i
& 0x0e) == 0x0e)
7506 i
= (i
& 0xf0) | (mc
->color
& 0x0f);
7507 if ((i
& 0xe0) == 0xe0)
7508 i
= (i
& 0x0f) | (mc
->color
& 0xf0);
7509 mc
->color
= 0x99 ^ i
;
7510 debug2("ApplyAttrColor - %02x %02x\n", mc
->attr
, i
);