1 /*@ S-nail - a mail user agent derived from Berkeley Mail.
2 *@ (Lexical processing of) Commands, and the event mainloop.
4 * Copyright (c) 2000-2004 Gunnar Ritter, Freiburg i. Br., Germany.
5 * Copyright (c) 2012 - 2014 Steffen "Daode" Nurpmeso <sdaoden@users.sf.net>.
8 * Copyright (c) 1980, 1993
9 * The Regents of the University of California. All rights reserved.
11 * Redistribution and use in source and binary forms, with or without
12 * modification, are permitted provided that the following conditions
14 * 1. Redistributions of source code must retain the above copyright
15 * notice, this list of conditions and the following disclaimer.
16 * 2. Redistributions in binary form must reproduce the above copyright
17 * notice, this list of conditions and the following disclaimer in the
18 * documentation and/or other materials provided with the distribution.
19 * 3. All advertising materials mentioning features or use of this software
20 * must display the following acknowledgement:
21 * This product includes software developed by the University of
22 * California, Berkeley and its contributors.
23 * 4. Neither the name of the University nor the names of its contributors
24 * may be used to endorse or promote products derived from this software
25 * without specific prior written permission.
27 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
28 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
29 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
30 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
31 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
32 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
33 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
34 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
35 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
36 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
40 #ifndef HAVE_AMALGAMATION
47 char const *name
; /* Name of command */
48 int (*func
)(void*); /* Implementor of command */
49 enum argtype argtype
; /* Arglist type (see below) */
50 short msgflag
; /* Required flags of msgs*/
51 short msgmask
; /* Relevant flags of msgs */
52 #ifdef HAVE_DOCSTRINGS
53 int docid
; /* Translation id of .doc */
54 char const *doc
; /* One line doc for command */
57 /* Yechh, can't initialize unions */
58 #define minargs msgflag /* Minimum argcount for RAWLIST */
59 #define maxargs msgmask /* Max argcount for RAWLIST */
62 struct cmd_ghost
*next
;
63 struct str cmd
; /* Data follows after .name */
64 char name
[VFIELD_SIZE(sizeof(size_t))];
68 static int _reset_on_stop
; /* do a reset() if stopped */
69 static sighandler_type _oldpipe
;
70 static struct cmd_ghost
*_cmd_ghosts
;
71 /* _cmd_tab[] after fun protos */
73 /* Update mailname (if name != NULL) and displayname, return wether displayname
74 * was large enough to swallow mailname */
75 static bool_t
_update_mailname(char const *name
);
76 #ifdef HAVE_C90AMEND1 /* TODO unite __narrow_{pre,suf}fix() into one fun! */
77 SINLINE
size_t __narrow_prefix(char const *cp
, size_t maxl
);
78 SINLINE
size_t __narrow_suffix(char const *cp
, size_t cpl
, size_t maxl
);
81 /* Isolate the command from the arguments */
82 static char * _lex_isolate(char const *comm
);
84 /* Get first-fit, or NULL */
85 static struct cmd
const * _lex(char const *comm
);
87 /* Command ghost handling */
88 static int _ghost(void *v
);
89 static int _unghost(void *v
);
91 /* Print a list of all commands */
92 static int _pcmdlist(void *v
);
93 static int __pcmd_cmp(void const *s1
, void const *s2
);
95 /* Print the binaries compiled-in features */
96 static int _features(void *v
);
98 /* Print the binaries version number */
99 static int _version(void *v
);
101 static void stop(int s
);
102 static void hangup(int s
);
104 /* List of all commands */
105 static struct cmd
const _cmd_tab
[] = {
109 #ifdef HAVE_C90AMEND1
111 __narrow_prefix(char const *cp
, size_t maxl
)
116 for (err
= ok
= i
= 0; i
< maxl
;) {
117 int ml
= mblen(cp
, maxl
- i
);
118 if (ml
< 0) { /* XXX _narrow_prefix(): mblen() error; action? */
119 (void)mblen(NULL
, 0);
136 __narrow_suffix(char const *cp
, size_t cpl
, size_t maxl
)
141 for (err
= ok
= i
= 0; cpl
> maxl
|| err
;) {
142 int ml
= mblen(cp
, cpl
);
143 if (ml
< 0) { /* XXX _narrow_suffix(): mblen() error; action? */
144 (void)mblen(NULL
, 0);
160 #endif /* HAVE_C90AMEND1 */
163 _update_mailname(char const *name
)
165 char tbuf
[MAXPATHLEN
], *mailp
, *dispp
;
169 /* Don't realpath(3) if it's only an update request */
172 enum protocol p
= which_protocol(name
);
173 if (p
== PROTO_FILE
|| p
== PROTO_MAILDIR
) {
174 if (realpath(name
, mailname
) == NULL
) {
175 fprintf(stderr
, tr(151, "Can't canonicalize `%s'\n"), name
);
181 n_strlcpy(mailname
, name
, sizeof(mailname
));
187 /* Don't display an absolute path but "+FOLDER" if under *folder* */
188 if (getfold(tbuf
, sizeof tbuf
)) {
190 if (i
< sizeof(tbuf
) - 1)
192 if (strncmp(tbuf
, mailp
, i
) == 0) {
198 /* We want to see the name of the folder .. on the screen */
200 if ((rv
= (i
< sizeof(displayname
) - 1)))
201 memcpy(dispp
, mailp
, i
+ 1);
203 /* Avoid disrupting multibyte sequences (if possible) */
204 #ifndef HAVE_C90AMEND1
205 j
= sizeof(displayname
) / 3 - 1;
206 i
-= sizeof(displayname
) - (1/* + */ + 3) - j
;
208 j
= __narrow_prefix(mailp
, sizeof(displayname
) / 3);
209 i
= j
+ __narrow_suffix(mailp
+ j
, i
- j
,
210 sizeof(displayname
) - (1/* + */ + 3 + 1) - j
);
212 snprintf(dispp
, sizeof(displayname
), "%.*s...%s",
213 (int)j
, mailp
, mailp
+ i
);
222 _lex_isolate(char const *comm
)
224 while (*comm
&& strchr(" \t0123456789$^.:/-+*'\",;(`", *comm
) == NULL
)
226 return UNCONST(comm
);
229 static struct cmd
const *
230 _lex(char const *comm
) /* TODO **command hashtable**! linear list search!!! */
232 struct cmd
const *cp
;
234 for (cp
= _cmd_tab
; cp
->name
!= NULL
; ++cp
)
235 if (*comm
== *cp
->name
&& is_prefix(comm
, cp
->name
))
245 char const **argv
= (char const **)v
;
246 struct cmd_ghost
*lcg
, *cg
;
251 printf(tr(144, "Command ghosts are:\n"));
252 for (nl
= 0, cg
= _cmd_ghosts
; cg
!= NULL
; cg
= cg
->next
) {
253 cl
= strlen(cg
->name
) + 5 + cg
->cmd
.l
+ 3;
254 if ((nl
+= cl
) >= (size_t)scrnwidth
) {
258 printf((cg
->next
!= NULL
? "%s -> <%s>, " : "%s -> <%s>\n"),
259 cg
->name
, cg
->cmd
.s
);
265 /* Request to add new ghost */
266 if (argv
[1] == NULL
|| argv
[1][0] == '\0' || argv
[2] != NULL
) {
267 fprintf(stderr
, tr(159, "Usage: %s\n"),
268 tr(425, "Define a <ghost> of <command>, or list all ghosts"));
273 /* Check that we can deal with this one */
274 switch (argv
[0][0]) {
283 if (argv
[0] == _lex_isolate(argv
[0])) {
285 fprintf(stderr
, tr(151, "Can't canonicalize `%s'\n"), argv
[0]);
292 /* Always recreate */
293 for (lcg
= NULL
, cg
= _cmd_ghosts
; cg
!= NULL
; lcg
= cg
, cg
= cg
->next
)
294 if (strcmp(cg
->name
, argv
[0]) == 0) {
296 lcg
->next
= cg
->next
;
298 _cmd_ghosts
= cg
->next
;
304 nl
= strlen(argv
[0]) + 1;
305 cl
= strlen(argv
[1]) + 1;
306 cg
= smalloc(sizeof(*cg
) - VFIELD_SIZEOF(struct cmd_ghost
, name
) + nl
+ cl
);
307 cg
->next
= _cmd_ghosts
;
308 memcpy(cg
->name
, argv
[0], nl
);
309 cg
->cmd
.s
= cg
->name
+ nl
;
311 memcpy(cg
->cmd
.s
, argv
[1], cl
);
322 char const **argv
= v
, *cp
;
323 struct cmd_ghost
*lcg
, *cg
;
325 while ((cp
= *argv
++) != NULL
) {
326 for (lcg
= NULL
, cg
= _cmd_ghosts
; cg
!= NULL
; lcg
= cg
, cg
= cg
->next
)
327 if (strcmp(cg
->name
, cp
) == 0) {
329 lcg
->next
= cg
->next
;
331 _cmd_ghosts
= cg
->next
;
335 fprintf(stderr
, tr(91, "Unknown command: `%s'\n"), cp
);
344 __pcmd_cmp(void const *s1
, void const *s2
)
346 struct cmd
const * const *c1
= s1
, * const *c2
= s2
;
347 return (strcmp((*c1
)->name
, (*c2
)->name
));
353 struct cmd
const **cpa
, *cp
, **cursor
;
357 for (i
= 0; _cmd_tab
[i
].name
!= NULL
; ++i
)
360 cpa
= ac_alloc(sizeof(cp
) * i
);
362 for (i
= 0; (cp
= _cmd_tab
+ i
)->name
!= NULL
; ++i
)
366 qsort(cpa
, i
, sizeof(cp
), &__pcmd_cmp
);
368 printf(tr(14, "Commands are:\n"));
369 for (i
= 0, cursor
= cpa
; (cp
= *cursor
++) != NULL
;) {
371 if (cp
->func
== &ccmdnotsupp
)
373 j
= strlen(cp
->name
) + 2;
378 printf((*cursor
!= NULL
? "%s, " : "%s\n"), cp
->name
);
389 printf(tr(523, "Features: %s\n"), features
);
397 printf(tr(111, "Version %s\n"), version
);
402 * Set up editing on the given file name.
403 * If the first character of name is %, we are considered to be
404 * editing the file, otherwise we are reading our mail which has
405 * signficance for mbox and so forth.
407 * nmail: Check for new mail in the current folder only.
410 setfile(char const *name
, int nmail
)
413 int i
, compressed
= 0;
416 char const *who
= name
[1] ? name
+ 1 : myname
;
423 /* Note we don't 'userid(myname) != getuid()', preliminary steps are usually
424 * necessary to make a mailbox accessible by a different user, and if that
425 * has happened, let's just let the usual file perms decide */
426 isedit
= (*name
!= '%' && ((sh
= get_shortcut(name
)) == NULL
||
427 *sh
->sh_long
!= '%'));
428 if ((name
= expand(name
)) == NULL
)
431 switch (which_protocol(name
)) {
435 return (maildir_setfile(name
, nmail
, isedit
));
439 return (pop3_setfile(name
, nmail
, isedit
));
445 if (mb
.mb_type
== MB_CACHE
)
448 return imap_setfile(name
, nmail
, isedit
);
451 fprintf(stderr
, tr(217, "Cannot handle protocol: %s\n"), name
);
455 if ((ibuf
= Zopen(name
, "r", &compressed
)) == NULL
) {
456 if ((!isedit
&& errno
== ENOENT
) || nmail
) {
465 if (fstat(fileno(ibuf
), &stb
) < 0) {
473 if (S_ISDIR(stb
.st_mode
)) {
480 } else if (S_ISREG(stb
.st_mode
)) {
492 * Looks like all will be well. We must now relinquish our
493 * hold on the current set of stuff. Must hold signals
494 * while we are reading the new file, else we will ruin
495 * the message[] data structure.
498 hold_sigs(); /* TODO note on this one in quit.c:quit() */
499 if (shudclob
&& !nmail
)
502 if (!nmail
&& mb
.mb_sock
.s_fd
>= 0)
507 * Copy the messages into /tmp
511 flp
.l_type
= F_RDLCK
;
513 flp
.l_whence
= SEEK_SET
;
515 mb
.mb_type
= MB_FILE
;
516 mb
.mb_perm
= (options
& OPT_R_FLAG
) ? 0 : MB_DELE
|MB_EDIT
;
517 mb
.mb_compressed
= compressed
;
519 if (compressed
& 0200)
522 if ((i
= open(name
, O_WRONLY
)) < 0)
542 if (!edit
&& fcntl(fileno(ibuf
), F_SETLKW
, &flp
) < 0) {
543 perror("Unable to lock mailbox");
548 fseek(mb
.mb_otf
, 0L, SEEK_END
);
549 fseek(ibuf
, mailsize
, SEEK_SET
);
551 omsgCount
= msgCount
;
553 if (!edit
&& fcntl(fileno(ibuf
), F_SETLKW
, &flp
) < 0)
556 mailsize
= fsize(ibuf
);
557 if (nmail
&& (size_t)mailsize
<= offset
) {
561 setptr(ibuf
, offset
);
563 if (nmail
&& mb
.mb_sorted
) {
571 if ((!edit
|| nmail
) && msgCount
== 0) {
574 if (!ok_blook(emptystart
))
575 nomail
: fprintf(stderr
, tr(88, "No mail for %s\n"),
581 newmailinfo(omsgCount
);
586 newmailinfo(int omsgCount
)
591 for (i
= 0; i
< omsgCount
; i
++)
592 message
[i
].m_flag
&= ~MNEWEST
;
593 if (msgCount
> omsgCount
) {
594 for (i
= omsgCount
; i
< msgCount
; i
++)
595 message
[i
].m_flag
|= MNEWEST
;
596 printf(tr(158, "New mail has arrived.\n"));
597 if (msgCount
- omsgCount
== 1)
598 printf(tr(214, "Loaded 1 new message.\n"));
600 printf(tr(215, "Loaded %d new messages.\n"),
601 msgCount
- omsgCount
);
603 printf(tr(224, "Loaded %d messages.\n"), msgCount
);
604 callhook(mailname
, 1);
606 if (ok_blook(header
))
607 print_headers(omsgCount
+ 1, msgCount
);
618 if (safe_signal(SIGINT
, SIG_IGN
) != SIG_IGN
)
619 safe_signal(SIGINT
, onintr
);
620 if (safe_signal(SIGHUP
, SIG_IGN
) != SIG_IGN
)
621 safe_signal(SIGHUP
, hangup
);
622 /* TODO We do a lot of redundant signal handling, especially
623 * TODO with the command line editor(s); try to merge this */
624 safe_signal(SIGTSTP
, stop
);
625 safe_signal(SIGTTOU
, stop
);
626 safe_signal(SIGTTIN
, stop
);
628 _oldpipe
= safe_signal(SIGPIPE
, SIG_IGN
);
629 safe_signal(SIGPIPE
, _oldpipe
);
631 memset(&ev
, 0, sizeof ev
);
636 handlerstacktop
= NULL
;
638 if (!sourcing
&& (options
& OPT_INTERACTIVE
)) {
641 if ((cp
= ok_vlook(newmail
)) == NULL
)
642 cp
= ok_vlook(autoinc
); /* TODO legacy */
643 if ((options
& OPT_TTYIN
) && (cp
!= NULL
|| mb
.mb_type
== MB_IMAP
)) {
646 n
= (cp
!= NULL
&& strcmp(cp
, "noimap") && strcmp(cp
, "nopoll"));
647 if ((mb
.mb_type
== MB_FILE
&& stat(mailname
, &st
) == 0 &&
648 st
.st_size
> mailsize
) ||
650 (mb
.mb_type
== MB_IMAP
&& imap_newmail(n
) > (cp
== NULL
)) ||
652 (mb
.mb_type
== MB_MAILDIR
&& n
!= 0)) {
653 size_t odot
= PTR2SIZE(dot
- message
);
654 bool_t odid
= did_print_dot
;
656 setfile(mailname
, 1);
657 if (mb
.mb_type
!= MB_IMAP
) {
658 dot
= message
+ odot
;
659 did_print_dot
= odid
;
669 colour_table
= NULL
; /* XXX intermediate hack */
675 /* TODO Note: this buffer may contain a password. We should redefine
676 * TODO the code flow which has to do that */
677 if ((cp
= termios_state
.ts_linebuf
) != NULL
) {
678 termios_state
.ts_linebuf
= NULL
;
679 termios_state
.ts_linesize
= 0;
680 free(cp
); /* TODO pool give-back */
682 /* TODO Due to expand-on-tab of NCL the buffer may grow */
683 if (ev
.ev_line
.l
> LINESIZE
* 3) {
684 free(ev
.ev_line
.s
); /* TODO pool! but what? */
690 /* Read a line of commands and handle end of file specially */
692 n
= readline_input(NULL
, TRU1
, &ev
.ev_line
.s
, &ev
.ev_line
.l
,
703 if ((options
& OPT_INTERACTIVE
) && ok_blook(ignoreeof
)) {
704 printf(tr(89, "Use `quit' to quit.\n"));
713 if (exit_status
!= EXIT_OK
&& (options
& OPT_BATCH_FLAG
) &&
714 ok_blook(batch_exit_on_error
))
716 if (!sourcing
&& (options
& OPT_INTERACTIVE
)) {
717 if (ev
.ev_new_content
!= NULL
)
719 if (ev
.ev_add_history
)
720 tty_addhist(ev
.ev_line
.s
);
724 if (ev
.ev_line
.s
!= NULL
)
731 execute(char *linebuf
, int contxt
, size_t linesize
) /* XXX LEGACY */
735 struct colour_table
*ct_save
;
739 /* TODO Maybe recursion from within collect.c! As long as we don't have
740 * TODO a value carrier that transports the entire state of a recursion
741 * TODO we need to save away also the colour table */
743 ct_save
= colour_table
;
747 memset(&ev
, 0, sizeof ev
);
748 ev
.ev_line
.s
= linebuf
;
749 ev
.ev_line
.l
= linesize
;
750 ev
.ev_is_recursive
= (contxt
!= 0);
754 colour_table
= ct_save
;
761 evaluate(struct eval_ctx
*evp
)
764 char _wordbuf
[2], *arglist
[MAXARGC
], *cp
, *word
;
765 struct cmd_ghost
*cg
= NULL
;
766 struct cmd
const *com
= NULL
;
767 int muvec
[2], c
, e
= 1;
769 line
= evp
->ev_line
; /* XXX don't change original (buffer pointer) */
770 evp
->ev_add_history
= FAL0
;
771 evp
->ev_new_content
= NULL
;
773 /* Command ghosts that refer to shell commands or macro expansion restart */
776 /* Strip the white space away from the beginning of the command */
777 for (cp
= line
.s
; whitechar(*cp
); ++cp
)
779 line
.l
-= PTR2SIZE(cp
- line
.s
);
781 /* Ignore comments */
785 /* Handle ! differently to get the correct lexical conventions */
788 fprintf(stderr
, tr(90, "Can't `!' while sourcing\n"));
792 evp
->ev_add_history
= TRU1
;
796 /* Isolate the actual command; since it may not necessarily be
797 * separated from the arguments (as in `p1') we need to duplicate it to
798 * be able to create a NUL terminated version.
799 * We must be aware of several special one letter commands here */
810 cp
= _lex_isolate(cp
);
813 c
= (int)PTR2SIZE(cp
- arglist
[0]);
815 word
= (c
< (int)sizeof _wordbuf
) ? _wordbuf
: salloc(c
+ 1);
816 memcpy(word
, arglist
[0], c
);
819 /* Look up the command; if not found, bitch.
820 * Normally, a blank command would map to the first command in the
821 * table; while sourcing, however, we ignore blank lines to eliminate
822 * confusion; act just the same for ghosts */
824 if (sourcing
|| cg
!= NULL
)
830 /* If this is the first evaluation, check command ghosts */
832 /* TODO relink list head, so it's sorted on usage over time?
833 * TODO in fact, there should be one hashmap over all commands and ghosts
834 * TODO so that the lookup could be made much more efficient than it is
835 * TODO now (two adjacent list searches! */
836 for (cg
= _cmd_ghosts
; cg
!= NULL
; cg
= cg
->next
)
837 if (strcmp(word
, cg
->name
) == 0) {
839 size_t i
= cg
->cmd
.l
;
840 line
.s
= salloc(i
+ 1 + line
.l
+1);
841 memcpy(line
.s
, cg
->cmd
.s
, i
);
843 memcpy(line
.s
+ i
, cp
, line
.l
);
844 line
.s
[i
+= line
.l
] = '\0';
854 if ((com
= _lex(word
)) == NULL
|| com
->func
== &ccmdnotsupp
) {
855 fprintf(stderr
, tr(91, "Unknown command: `%s'\n"), word
);
863 /* See if we should execute the command -- if a conditional we always
864 * execute it, otherwise, check the state of cond */
866 if (!(com
->argtype
& ARG_F
)) {
867 switch (cond_state
) {
869 if (options
& OPT_SENDMODE
)
873 if (!(options
& OPT_SENDMODE
))
877 if (!(options
& OPT_TTYIN
))
881 if (options
& OPT_TTYIN
)
892 /* Process the arguments to the command, depending on the type he expects.
893 * Default to an error.
894 * If we are sourcing an interactive command, it's an error */
895 if ((options
& OPT_SENDMODE
) && !(com
->argtype
& ARG_M
)) {
896 fprintf(stderr
, tr(92, "May not execute `%s' while sending\n"),
900 if (sourcing
&& (com
->argtype
& ARG_I
)) {
901 fprintf(stderr
, tr(93, "May not execute `%s' while sourcing\n"),
905 if (!(mb
.mb_perm
& MB_DELE
) && (com
->argtype
& ARG_W
)) {
906 fprintf(stderr
, tr(94, "May not execute `%s' -- "
907 "message file is read only\n"), com
->name
);
910 if (evp
->ev_is_recursive
&& (com
->argtype
& ARG_R
)) {
911 fprintf(stderr
, tr(95, "Cannot recursively invoke `%s'\n"), com
->name
);
914 if (mb
.mb_type
== MB_VOID
&& (com
->argtype
& ARG_A
)) {
915 fprintf(stderr
, tr(257, "Cannot execute `%s' without active mailbox\n"),
920 if (com
->argtype
& ARG_V
)
921 temporary_arg_v_store
= NULL
;
923 switch (com
->argtype
& ARG_ARGMASK
) {
925 /* Message list defaulting to nearest forward legal message */
928 if ((c
= getmsglist(cp
, _msgvec
, com
->msgflag
)) < 0)
931 *_msgvec
= first(com
->msgflag
, com
->msgmask
);
937 printf(tr(97, "No applicable messages\n"));
940 e
= (*com
->func
)(_msgvec
);
944 /* Message list with no defaults, but no error if none exist */
947 fprintf(stderr
, tr(96, "Illegal use of `message list'\n"));
950 if ((c
= getmsglist(cp
, _msgvec
, com
->msgflag
)) < 0)
952 e
= (*com
->func
)(_msgvec
);
956 /* Just the straight string, with leading blanks removed */
957 while (whitechar(*cp
))
959 e
= (*com
->func
)(cp
);
964 /* A vector of strings, in shell style */
965 if ((c
= getrawlist(cp
, line
.l
, arglist
, NELEM(arglist
),
966 ((com
->argtype
& ARG_ARGMASK
) == ARG_ECHOLIST
))) < 0)
968 if (c
< com
->minargs
) {
969 fprintf(stderr
, tr(99, "`%s' requires at least %d arg(s)\n"),
970 com
->name
, com
->minargs
);
973 if (c
> com
->maxargs
) {
974 fprintf(stderr
, tr(100, "`%s' takes no more than %d arg(s)\n"),
975 com
->name
, com
->maxargs
);
978 e
= (*com
->func
)(arglist
);
982 /* Just the constant zero, for exiting, eg. */
987 panic(tr(101, "Unknown argument type"));
990 if (e
== 0 && (com
->argtype
& ARG_V
) &&
991 (cp
= temporary_arg_v_store
) != NULL
) {
992 temporary_arg_v_store
= NULL
;
993 evp
->ev_new_content
= cp
;
996 if (!(com
->argtype
& ARG_H
) && !list_saw_numbers
)
997 evp
->ev_add_history
= TRU1
;
1000 /* Exit the current source file on error */
1001 if ((exec_last_comm_error
= (e
!= 0))) {
1012 if ((com
->argtype
& ARG_P
) && ok_blook(autoprint
))
1014 muvec
[0] = (int)PTR2SIZE(dot
- message
+ 1);
1018 if (!sourcing
&& !inhook
&& (com
->argtype
& ARG_T
) == 0)
1021 exec_last_comm_error
= 0;
1026 * Set the size of the message vector used to construct argument
1027 * lists to message list functions.
1035 _msgvec
= (int*)scalloc(sz
+ 1, sizeof *_msgvec
);
1039 * The following gets called on receipt of an interrupt. This is
1040 * to abort printout of a command, mainly.
1041 * Dispatching here when command() is inactive crashes rcv.
1042 * Close all open files except 0, 1, 2, and the temporary.
1043 * Also, unstack all source files.
1046 static int inithdr
; /* am printing startup headers */
1052 if (handlerstacktop
!= NULL
) {
1056 safe_signal(SIGINT
, onintr
);
1064 termios_state_reset();
1071 if (interrupts
!= 1)
1072 fprintf(stderr
, tr(102, "Interrupt\n"));
1073 safe_signal(SIGPIPE
, _oldpipe
);
1078 * When we wake up after ^Z, reprint the prompt.
1083 sighandler_type old_action
= safe_signal(s
, SIG_DFL
);
1087 sigaddset(&nset
, s
);
1088 sigprocmask(SIG_UNBLOCK
, &nset
, (sigset_t
*)NULL
);
1090 sigprocmask(SIG_BLOCK
, &nset
, (sigset_t
*)NULL
);
1091 safe_signal(s
, old_action
);
1092 if (_reset_on_stop
) {
1099 * Branch here on hangup signal and simulate "exit".
1106 /* nothing to do? */
1111 * Announce the presence of the current Mail version,
1112 * give the message count, and print a header listing.
1115 announce(int printheaders
)
1119 mdot
= newfileinfo();
1122 dot
= &message
[mdot
- 1];
1123 if (printheaders
&& msgCount
> 0 && ok_blook(header
)) {
1131 * Announce information about the file we are editing.
1132 * Return a likely place to set dot.
1138 int u
, n
, mdot
, d
, s
, hidden
, moved
;
1140 if (mb
.mb_type
== MB_VOID
)
1143 s
= d
= hidden
= moved
=0;
1144 for (mp
= &message
[0], n
= 0, u
= 0; mp
< &message
[msgCount
]; mp
++) {
1145 if (mp
->m_flag
& MNEW
)
1147 if ((mp
->m_flag
& MREAD
) == 0)
1149 if ((mp
->m_flag
& (MDELETED
|MSAVED
)) == (MDELETED
|MSAVED
))
1151 if ((mp
->m_flag
& (MDELETED
|MSAVED
)) == MDELETED
)
1153 if ((mp
->m_flag
& (MDELETED
|MSAVED
)) == MSAVED
)
1155 if (mp
->m_flag
& MHIDDEN
)
1159 /* If displayname gets truncated the user effectively has no option to see
1160 * the full pathname of the mailbox, so print it at least for '? fi' */
1161 printf(tr(103, "\"%s\": "),
1162 (_update_mailname(NULL
) ? displayname
: mailname
));
1164 printf(tr(104, "1 message"));
1166 printf(tr(105, "%d messages"), msgCount
);
1168 printf(tr(106, " %d new"), n
);
1170 printf(tr(107, " %d unread"), u
);
1172 printf(tr(108, " %d deleted"), d
);
1174 printf(tr(109, " %d saved"), s
);
1176 printf(tr(136, " %d moved"), moved
);
1178 printf(tr(139, " %d hidden"), hidden
);
1179 if (mb
.mb_type
== MB_CACHE
)
1180 printf(" [Disconnected]");
1181 else if (mb
.mb_perm
== 0)
1182 printf(tr(110, " [Read only]"));
1193 enum mflag avoid
= MHIDDEN
|MDELETED
;
1196 if (ok_blook(autothread
))
1198 else if ((cp
= ok_vlook(autosort
)) != NULL
) {
1200 mb
.mb_sorted
= sstrdup(cp
);
1204 if (mb
.mb_type
== MB_VOID
)
1207 for (mp
= &message
[0]; mp
< &message
[msgCount
]; mp
++)
1208 if ((mp
->m_flag
& (MNEWEST
|avoid
)) == MNEWEST
)
1210 if (!nmail
|| mp
>= &message
[msgCount
]) {
1211 for (mp
= mb
.mb_threaded
? threadroot
: &message
[0];
1213 mp
!= NULL
: mp
< &message
[msgCount
];
1215 mp
= next_in_thread(mp
) : mp
++)
1216 if ((mp
->m_flag
& (MNEW
|avoid
)) == MNEW
)
1219 if (mb
.mb_threaded
? mp
== NULL
: mp
>= &message
[msgCount
])
1220 for (mp
= mb
.mb_threaded
? threadroot
: &message
[0];
1221 mb
.mb_threaded
? mp
!= NULL
:
1222 mp
< &message
[msgCount
];
1223 mb
.mb_threaded
? mp
= next_in_thread(mp
) : mp
++)
1224 if (mp
->m_flag
& MFLAGGED
)
1226 if (mb
.mb_threaded
? mp
== NULL
: mp
>= &message
[msgCount
])
1227 for (mp
= mb
.mb_threaded
? threadroot
: &message
[0];
1228 mb
.mb_threaded
? mp
!= NULL
:
1229 mp
< &message
[msgCount
];
1230 mb
.mb_threaded
? mp
= next_in_thread(mp
) : mp
++)
1231 if ((mp
->m_flag
& (MREAD
|avoid
)) == 0)
1233 if (mb
.mb_threaded
? mp
!= NULL
: mp
< &message
[msgCount
])
1234 mdot
= mp
- &message
[0] + 1;
1235 else if (ok_blook(showlast
)) {
1236 if (mb
.mb_threaded
) {
1237 for (mp
= this_in_thread(threadroot
, -1); mp
;
1238 mp
= prev_in_thread(mp
))
1239 if ((mp
->m_flag
& avoid
) == 0)
1241 mdot
= mp
? mp
- &message
[0] + 1 : msgCount
;
1243 for (mp
= &message
[msgCount
-1]; mp
>= &message
[0]; mp
--)
1244 if ((mp
->m_flag
& avoid
) == 0)
1246 mdot
= mp
>= &message
[0] ? mp
-&message
[0]+1 : msgCount
;
1248 } else if (mb
.mb_threaded
) {
1249 for (mp
= threadroot
; mp
; mp
= next_in_thread(mp
))
1250 if ((mp
->m_flag
& avoid
) == 0)
1252 mdot
= mp
? mp
- &message
[0] + 1 : 1;
1254 for (mp
= &message
[0]; mp
< &message
[msgCount
]; mp
++)
1255 if ((mp
->m_flag
& avoid
) == 0)
1257 mdot
= mp
< &message
[msgCount
] ? mp
-&message
[0]+1 : 1;
1263 initbox(const char *name
)
1268 if (mb
.mb_type
!= MB_VOID
)
1269 (void)n_strlcpy(prevfile
, mailname
, MAXPATHLEN
);
1270 _update_mailname(name
!= mailname
? name
: NULL
);
1271 if ((mb
.mb_otf
= Ftemp(&tempMesg
, "tmpbox", "w", 0600, 0)) == NULL
) {
1272 perror(tr(87, "temporary mail message file"));
1275 (void)fcntl(fileno(mb
.mb_otf
), F_SETFD
, FD_CLOEXEC
);
1276 if ((mb
.mb_itf
= safe_fopen(tempMesg
, "r", &dummy
)) == NULL
) {
1277 perror(tr(87, "temporary mail message file"));
1280 (void)fcntl(fileno(mb
.mb_itf
), F_SETFD
, FD_CLOEXEC
);
1290 if (mb
.mb_sorted
!= NULL
) {
1292 mb
.mb_sorted
= NULL
;
1295 mb
.mb_flags
= MB_NOFLAGS
;
1299 did_print_dot
= FAL0
;
1302 #ifdef HAVE_DOCSTRINGS
1304 print_comm_docstr(char const *comm
)
1307 struct cmd_ghost
*cg
;
1308 struct cmd
const *cp
;
1310 /* Ghosts take precedence */
1311 for (cg
= _cmd_ghosts
; cg
!= NULL
; cg
= cg
->next
)
1312 if (strcmp(comm
, cg
->name
) == 0) {
1313 printf("%s -> <%s>\n", comm
, cg
->cmd
.s
);
1318 for (cp
= _cmd_tab
; cp
->name
!= NULL
; ++cp
) {
1319 if (cp
->func
== &ccmdnotsupp
)
1321 if (strcmp(comm
, cp
->name
) == 0)
1322 printf("%s: %s\n", comm
, tr(cp
->docid
, cp
->doc
));
1323 else if (is_prefix(comm
, cp
->name
))
1324 printf("%s (%s): %s\n", comm
, cp
->name
, tr(cp
->docid
, cp
->doc
));
1335 /* vim:set fenc=utf-8:s-it-mode (TODO only partial true) */