1 /*@ S-nail - a mail user agent derived from Berkeley Mail.
2 *@ (Lexical processing of) Commands, and the (blocking) "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 char const *doc
; /* One line doc for command */
56 /* Yechh, can't initialize unions */
57 #define minargs msgflag /* Minimum argcount for RAWLIST */
58 #define maxargs msgmask /* Max argcount for RAWLIST */
61 struct cmd_ghost
*next
;
62 struct str cmd
; /* Data follows after .name */
63 char name
[VFIELD_SIZE(sizeof(size_t))];
67 static int _reset_on_stop
; /* do a reset() if stopped */
68 static sighandler_type _oldpipe
;
69 static struct cmd_ghost
*_cmd_ghosts
;
70 /* _cmd_tab[] after fun protos */
71 static int _lex_inithdr
; /* am printing startup headers */
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_suffix() into one fun! */
77 SINLINE
size_t __narrow_suffix(char const *cp
, size_t cpl
, size_t maxl
);
80 /* Isolate the command from the arguments */
81 static char * _lex_isolate(char const *comm
);
83 /* Get first-fit, or NULL */
84 static struct cmd
const * _lex(char const *comm
);
86 /* Command ghost handling */
87 static int _ghost(void *v
);
88 static int _unghost(void *v
);
90 /* Print a list of all commands */
91 static int _pcmdlist(void *v
);
92 static int __pcmd_cmp(void const *s1
, void const *s2
);
94 /* Print the binaries compiled-in features */
95 static int _features(void *v
);
97 /* Print the binaries version number */
98 static int _version(void *v
);
100 /* When we wake up after ^Z, reprint the prompt */
101 static void stop(int s
);
103 /* Branch here on hangup signal and simulate "exit" */
104 static void hangup(int s
);
106 /* List of all commands */
107 static struct cmd
const _cmd_tab
[] = {
111 #ifdef HAVE_C90AMEND1
113 __narrow_suffix(char const *cp
, size_t cpl
, size_t maxl
)
119 for (err
= ok
= i
= 0; cpl
> maxl
|| err
;) {
120 int ml
= mblen(cp
, cpl
);
121 if (ml
< 0) { /* XXX _narrow_suffix(): mblen() error; action? */
122 (void)mblen(NULL
, 0);
139 #endif /* HAVE_C90AMEND1 */
142 _update_mailname(char const *name
)
144 char tbuf
[PATH_MAX
], *mailp
, *dispp
;
149 /* Don't realpath(3) if it's only an update request */
152 enum protocol p
= which_protocol(name
);
153 if (p
== PROTO_FILE
|| p
== PROTO_MAILDIR
) {
154 if (realpath(name
, mailname
) == NULL
) {
155 fprintf(stderr
, _("Can't canonicalize `%s'\n"), name
);
162 n_strlcpy(mailname
, name
, sizeof(mailname
));
168 /* Don't display an absolute path but "+FOLDER" if under *folder* */
169 if (getfold(tbuf
, sizeof tbuf
)) {
171 if (i
< sizeof(tbuf
) -1)
173 if (!strncmp(tbuf
, mailp
, i
)) {
179 /* We want to see the name of the folder .. on the screen */
181 if (i
< sizeof(displayname
) -1)
182 memcpy(dispp
, mailp
, i
+1);
185 /* Avoid disrupting multibyte sequences (if possible) */
186 #ifndef HAVE_C90AMEND1
187 j
= sizeof(displayname
) / 3 - 1;
188 i
-= sizeof(displayname
) - (1/* + */ + 3) - j
;
190 j
= field_detect_clip(sizeof(displayname
) / 3, mailp
, i
);
191 i
= j
+ __narrow_suffix(mailp
+ j
, i
- j
,
192 sizeof(displayname
) - (1/* + */ + 3 + 1) - j
);
194 snprintf(dispp
, sizeof(displayname
), "%.*s...%s",
195 (int)j
, mailp
, mailp
+ i
);
202 _lex_isolate(char const *comm
)
205 while (*comm
!= '\0' &&
206 strchr("~|? \t0123456789&%@$^.:/-+*'\",;(`", *comm
) == NULL
)
209 return UNCONST(comm
);
212 static struct cmd
const *
213 _lex(char const *comm
) /* TODO **command hashtable**! linear list search!!! */
215 struct cmd
const *cp
;
218 for (cp
= _cmd_tab
; cp
->name
!= NULL
; ++cp
)
219 if (*comm
== *cp
->name
&& is_prefix(comm
, cp
->name
))
230 char const **argv
= v
;
231 struct cmd_ghost
*lcg
, *cg
;
237 printf(_("Command ghosts are:\n"));
238 for (nl
= 0, cg
= _cmd_ghosts
; cg
!= NULL
; cg
= cg
->next
) {
239 cl
= strlen(cg
->name
) + 5 + cg
->cmd
.l
+ 3;
241 if (UICMP(z
, nl
, >=, scrnwidth
)) {
245 printf((cg
->next
!= NULL
? "%s -> <%s>, " : "%s -> <%s>\n"),
246 cg
->name
, cg
->cmd
.s
);
252 /* Request to add new ghost */
253 if (argv
[1] == NULL
|| argv
[1][0] == '\0' || argv
[2] != NULL
) {
254 fprintf(stderr
, _("Usage: %s\n"),
255 _("Define a <ghost> of <command>, or list all ghosts"));
260 /* Check that we can deal with this one */
261 if (*argv
[0] == '\0' || *_lex_isolate(argv
[0]) != '\0') {
262 fprintf(stderr
, _("Can't canonicalize `%s'\n"), argv
[0]);
267 /* Always recreate */
268 for (lcg
= NULL
, cg
= _cmd_ghosts
; cg
!= NULL
; lcg
= cg
, cg
= cg
->next
)
269 if (!strcmp(cg
->name
, argv
[0])) {
271 lcg
->next
= cg
->next
;
273 _cmd_ghosts
= cg
->next
;
279 nl
= strlen(argv
[0]) +1;
280 cl
= strlen(argv
[1]) +1;
281 cg
= smalloc(sizeof(*cg
) - VFIELD_SIZEOF(struct cmd_ghost
, name
) + nl
+ cl
);
282 cg
->next
= _cmd_ghosts
;
283 memcpy(cg
->name
, argv
[0], nl
);
284 cg
->cmd
.s
= cg
->name
+ nl
;
286 memcpy(cg
->cmd
.s
, argv
[1], cl
);
298 char const **argv
= v
, *cp
;
299 struct cmd_ghost
*lcg
, *cg
;
302 while ((cp
= *argv
++) != NULL
) {
303 for (lcg
= NULL
, cg
= _cmd_ghosts
; cg
!= NULL
; lcg
= cg
, cg
= cg
->next
)
304 if (!strcmp(cg
->name
, cp
)) {
306 lcg
->next
= cg
->next
;
308 _cmd_ghosts
= cg
->next
;
312 fprintf(stderr
, _("Unknown command: `%s'\n"), cp
);
322 __pcmd_cmp(void const *s1
, void const *s2
)
324 struct cmd
const * const *c1
= s1
, * const *c2
= s2
;
328 rv
= strcmp((*c1
)->name
, (*c2
)->name
);
336 struct cmd
const **cpa
, *cp
, **cursor
;
341 for (i
= 0; _cmd_tab
[i
].name
!= NULL
; ++i
)
344 cpa
= ac_alloc(sizeof(cp
) * i
);
346 for (i
= 0; (cp
= _cmd_tab
+ i
)->name
!= NULL
; ++i
)
350 qsort(cpa
, i
, sizeof(cp
), &__pcmd_cmp
);
352 printf(_("Commands are:\n"));
353 for (i
= 0, cursor
= cpa
; (cp
= *cursor
++) != NULL
;) {
355 if (cp
->func
== &c_cmdnotsupp
)
357 j
= strlen(cp
->name
) + 2;
362 printf((*cursor
!= NULL
? "%s, " : "%s\n"), cp
->name
);
375 printf(_("Features: %s\n"), features
);
385 printf(_("Version %s\n"), version
);
393 sighandler_type old_action
;
395 NYD_X
; /* Signal handler */
397 old_action
= safe_signal(s
, SIG_DFL
);
401 sigprocmask(SIG_UNBLOCK
, &nset
, NULL
);
403 sigprocmask(SIG_BLOCK
, &nset
, NULL
);
404 safe_signal(s
, old_action
);
405 if (_reset_on_stop
) {
414 NYD_X
; /* Signal handler */
421 setfile(char const *name
, int nmail
) /* TODO oh my god */
428 int rv
, i
, compressed
= 0, omsgCount
= 0;
435 /* Note we don't 'userid(myname) != getuid()', preliminary steps are usually
436 * necessary to make a mailbox accessible by a different user, and if that
437 * has happened, let's just let the usual file perms decide */
438 who
= (name
[1] != '\0') ? name
+ 1 : myname
;
439 isedit
= (*name
!= '%' && ((sh
= get_shortcut(name
)) == NULL
||
440 *sh
->sh_long
!= '%'));
441 if ((name
= expand(name
)) == NULL
)
444 switch (which_protocol(name
)) {
448 rv
= maildir_setfile(name
, nmail
, isedit
);
453 rv
= pop3_setfile(name
, nmail
, isedit
);
459 if (nmail
&& mb
.mb_type
== MB_CACHE
)
462 rv
= imap_setfile(name
, nmail
, isedit
);
466 fprintf(stderr
, _("Cannot handle protocol: %s\n"), name
);
470 /* FIXME this FILE leaks if quit()->edstop() reset()s! This entire code
471 * FIXME here is total crap, below we open(2) the same name again just to
472 * FIXME close it right away etc. The normal thing would be to (1) finalize
473 * FIXME the current box and (2) open the new box; yet, since (2) may fail
474 * FIXME we terribly need our VOID box to make this logic order possible! */
475 if ((ibuf
= Zopen(name
, "r", &compressed
)) == NULL
) {
476 if ((!isedit
&& errno
== ENOENT
) || nmail
) {
485 if (fstat(fileno(ibuf
), &stb
) == -1) {
492 if (S_ISREG(stb
.st_mode
) ||
493 ((options
& OPT_BATCH_FLAG
) && !strcmp(name
, "/dev/null"))) {
498 errno
= S_ISDIR(stb
.st_mode
) ? EISDIR
: EINVAL
;
503 /* Looks like all will be well. We must now relinquish our hold on the
504 * current set of stuff. Must hold signals while we are reading the new
505 * file, else we will ruin the message[] data structure */
507 hold_sigs(); /* TODO note on this one in quit.c:quit() */
508 if (shudclob
&& !nmail
)
511 if (!nmail
&& mb
.mb_sock
.s_fd
>= 0)
512 sclose(&mb
.mb_sock
); /* TODO sorry? VMAILFS->close(), thank you */
515 /* Copy the messages into /tmp and set pointers */
516 flp
.l_type
= F_RDLCK
;
518 flp
.l_whence
= SEEK_SET
;
520 mb
.mb_type
= MB_FILE
;
521 mb
.mb_perm
= (options
& OPT_R_FLAG
) ? 0 : MB_DELE
| MB_EDIT
;
522 mb
.mb_compressed
= compressed
;
524 if (compressed
& 0200)
527 if ((i
= open(name
, O_WRONLY
)) == -1)
547 if (!edit
&& fcntl(fileno(ibuf
), F_SETLKW
, &flp
) == -1) {/*TODO dotlock!*/
548 perror("Unable to lock mailbox");
553 fseek(mb
.mb_otf
, 0L, SEEK_END
);
554 fseek(ibuf
, mailsize
, SEEK_SET
);
556 omsgCount
= msgCount
;
558 if (!edit
&& fcntl(fileno(ibuf
), F_SETLKW
, &flp
) == -1) {/*TODO dotlock!*/
563 mailsize
= fsize(ibuf
);
565 if (nmail
&& UICMP(z
, mailsize
, <=, offset
)) {
569 setptr(ibuf
, offset
);
571 if (nmail
&& mb
.mb_sorted
) {
582 if ((!edit
|| nmail
) && msgCount
== 0) {
585 if (!ok_blook(emptystart
))
587 fprintf(stderr
, _("No mail for %s\n"), who
);
593 newmailinfo(omsgCount
);
607 newmailinfo(int omsgCount
)
612 for (i
= 0; i
< omsgCount
; ++i
)
613 message
[i
].m_flag
&= ~MNEWEST
;
614 if (msgCount
> omsgCount
) {
615 for (i
= omsgCount
; i
< msgCount
; ++i
)
616 message
[i
].m_flag
|= MNEWEST
;
617 printf(_("New mail has arrived.\n"));
618 if ((i
= msgCount
- omsgCount
) == 1)
619 printf(_("Loaded 1 new message.\n"));
621 printf(_("Loaded %d new messages.\n"), i
);
623 printf(_("Loaded %d messages.\n"), msgCount
);
624 callhook(mailname
, 1);
626 if (ok_blook(header
))
627 print_headers(omsgCount
+ 1, msgCount
, FAL0
);
640 if (safe_signal(SIGINT
, SIG_IGN
) != SIG_IGN
)
641 safe_signal(SIGINT
, onintr
);
642 if (safe_signal(SIGHUP
, SIG_IGN
) != SIG_IGN
)
643 safe_signal(SIGHUP
, hangup
);
644 /* TODO We do a lot of redundant signal handling, especially
645 * TODO with the command line editor(s); try to merge this */
646 safe_signal(SIGTSTP
, stop
);
647 safe_signal(SIGTTOU
, stop
);
648 safe_signal(SIGTTIN
, stop
);
650 _oldpipe
= safe_signal(SIGPIPE
, SIG_IGN
);
651 safe_signal(SIGPIPE
, _oldpipe
);
653 memset(&ev
, 0, sizeof ev
);
658 handlerstacktop
= NULL
;
660 if (!sourcing
&& (options
& OPT_INTERACTIVE
)) {
663 cp
= ok_vlook(newmail
);
664 if ((options
& OPT_TTYIN
) && (cp
!= NULL
|| mb
.mb_type
== MB_IMAP
)) {
667 n
= (cp
!= NULL
&& strcmp(cp
, "noimap") && strcmp(cp
, "nopoll"));
668 if ((mb
.mb_type
== MB_FILE
&& !stat(mailname
, &st
) &&
669 st
.st_size
> mailsize
) ||
671 (mb
.mb_type
== MB_IMAP
&& imap_newmail(n
) > (cp
== NULL
)) ||
673 (mb
.mb_type
== MB_MAILDIR
&& n
!= 0)) {
674 size_t odot
= PTR2SIZE(dot
- message
);
675 bool_t odid
= did_print_dot
;
677 setfile(mailname
, 1);
678 if (mb
.mb_type
!= MB_IMAP
) {
679 dot
= message
+ odot
;
680 did_print_dot
= odid
;
686 exit_status
= EXIT_OK
;
690 colour_table
= NULL
; /* XXX intermediate hack */
692 if (temporary_localopts_store
!= NULL
) /* XXX intermediate hack */
693 temporary_localopts_free(); /* XXX intermediate hack */
698 /* TODO Note: this buffer may contain a password. We should redefine
699 * TODO the code flow which has to do that */
700 if ((cp
= termios_state
.ts_linebuf
) != NULL
) {
701 termios_state
.ts_linebuf
= NULL
;
702 termios_state
.ts_linesize
= 0;
703 free(cp
); /* TODO pool give-back */
705 /* TODO Due to expand-on-tab of NCL the buffer may grow */
706 if (ev
.ev_line
.l
> LINESIZE
* 3) {
707 free(ev
.ev_line
.s
); /* TODO pool! but what? */
713 /* Read a line of commands and handle end of file specially */
715 ev
.ev_line
.l
= ev
.ev_line_size
;
716 n
= readline_input(NULL
, TRU1
, &ev
.ev_line
.s
, &ev
.ev_line
.l
,
718 ev
.ev_line_size
= (ui32_t
)ev
.ev_line
.l
;
719 ev
.ev_line
.l
= (ui32_t
)n
;
729 if ((options
& OPT_INTERACTIVE
) && ok_blook(ignoreeof
)) {
730 printf(_("Use `quit' to quit.\n"));
739 if ((options
& OPT_BATCH_FLAG
) && ok_blook(batch_exit_on_error
)) {
740 if (exit_status
!= EXIT_OK
)
742 /* TODO *batch-exit-on-error*: sourcing and loading MUST BE FLAGS!
743 * TODO the current behaviour is suboptimal AT BEST! */
744 if (exec_last_comm_error
!= 0 && !sourcing
&& !loading
) {
745 exit_status
= EXIT_ERR
;
749 if (!sourcing
&& (options
& OPT_INTERACTIVE
)) {
750 if (ev
.ev_new_content
!= NULL
)
752 tty_addhist(ev
.ev_line
.s
, !ev
.ev_add_history
);
756 if (ev
.ev_line
.s
!= NULL
)
764 execute(char *linebuf
, int contxt
, size_t linesize
) /* XXX LEGACY */
768 struct colour_table
*ct_save
;
773 /* TODO Maybe recursion from within collect.c! As long as we don't have
774 * TODO a value carrier that transports the entire state of a recursion
775 * TODO we need to save away also the colour table */
777 ct_save
= colour_table
;
781 memset(&ev
, 0, sizeof ev
);
782 ev
.ev_line
.s
= linebuf
;
783 ev
.ev_line
.l
= linesize
;
784 ev
.ev_is_recursive
= (contxt
!= 0);
788 tty_addhist(ev
.ev_line
.s
, TRU1
);
791 colour_table
= ct_save
;
798 evaluate(struct eval_ctx
*evp
)
801 char _wordbuf
[2], *arglist
[MAXARGC
], *cp
, *word
;
802 struct cmd_ghost
*cg
= NULL
;
803 struct cmd
const *com
= NULL
;
804 int muvec
[2], c
, e
= 1;
807 line
= evp
->ev_line
; /* XXX don't change original (buffer pointer) */
808 evp
->ev_add_history
= FAL0
;
809 evp
->ev_new_content
= NULL
;
811 /* Command ghosts that refer to shell commands or macro expansion restart */
814 /* Strip the white space away from the beginning of the command */
815 for (cp
= line
.s
; whitechar(*cp
); ++cp
)
817 line
.l
-= PTR2SIZE(cp
- line
.s
);
819 /* Ignore comments */
823 /* Handle ! differently to get the correct lexical conventions */
826 fprintf(stderr
, _("Can't `!' while sourcing\n"));
830 evp
->ev_add_history
= TRU1
;
834 /* Isolate the actual command; since it may not necessarily be
835 * separated from the arguments (as in `p1') we need to duplicate it to
836 * be able to create a NUL terminated version.
837 * We must be aware of several special one letter commands here */
839 if ((cp
= _lex_isolate(cp
)) == arglist
[0] &&
840 (*cp
== '|' || *cp
== '~' || *cp
== '?'))
842 c
= (int)PTR2SIZE(cp
- arglist
[0]);
844 word
= UICMP(z
, c
, <, sizeof _wordbuf
) ? _wordbuf
: salloc(c
+1);
845 memcpy(word
, arglist
[0], c
);
848 /* Look up the command; if not found, bitch.
849 * Normally, a blank command would map to the first command in the
850 * table; while sourcing, however, we ignore blank lines to eliminate
851 * confusion; act just the same for ghosts */
853 if (sourcing
|| cg
!= NULL
)
859 /* If this is the first evaluation, check command ghosts */
861 /* TODO relink list head, so it's sorted on usage over time?
862 * TODO in fact, there should be one hashmap over all commands and ghosts
863 * TODO so that the lookup could be made much more efficient than it is
864 * TODO now (two adjacent list searches! */
865 for (cg
= _cmd_ghosts
; cg
!= NULL
; cg
= cg
->next
)
866 if (!strcmp(word
, cg
->name
)) {
868 size_t i
= cg
->cmd
.l
;
869 line
.s
= salloc(i
+ 1 + line
.l
+1);
870 memcpy(line
.s
, cg
->cmd
.s
, i
);
872 memcpy(line
.s
+ i
, cp
, line
.l
);
873 line
.s
[i
+= line
.l
] = '\0';
883 if ((com
= _lex(word
)) == NULL
|| com
->func
== &c_cmdnotsupp
) {
884 fprintf(stderr
, _("Unknown command: `%s'\n"), word
);
892 /* See if we should execute the command -- if a conditional we always
893 * execute it, otherwise, check the state of cond */
895 if (!(com
->argtype
& ARG_F
) && condstack_isskip())
898 /* Process the arguments to the command, depending on the type it expects,
899 * default to error. If we're sourcing an interactive command: error */
900 if ((options
& OPT_SENDMODE
) && !(com
->argtype
& ARG_M
)) {
901 fprintf(stderr
, _("May not execute `%s' while sending\n"),
905 if (sourcing
&& (com
->argtype
& ARG_I
)) {
906 fprintf(stderr
, _("May not execute `%s' while sourcing\n"),
910 if (!(mb
.mb_perm
& MB_DELE
) && (com
->argtype
& ARG_W
)) {
911 fprintf(stderr
, _("May not execute `%s' -- "
912 "message file is read only\n"), com
->name
);
915 if (evp
->ev_is_recursive
&& (com
->argtype
& ARG_R
)) {
916 fprintf(stderr
, _("Cannot recursively invoke `%s'\n"), com
->name
);
919 if (mb
.mb_type
== MB_VOID
&& (com
->argtype
& ARG_A
)) {
920 fprintf(stderr
, _("Cannot execute `%s' without active mailbox\n"),
925 if (com
->argtype
& ARG_V
)
926 temporary_arg_v_store
= NULL
;
928 switch (com
->argtype
& ARG_ARGMASK
) {
930 /* Message list defaulting to nearest forward legal message */
933 if ((c
= getmsglist(cp
, _msgvec
, com
->msgflag
)) < 0)
936 *_msgvec
= first(com
->msgflag
, com
->msgmask
);
942 printf(_("No applicable messages\n"));
945 e
= (*com
->func
)(_msgvec
);
949 /* Message list with no defaults, but no error if none exist */
950 if (_msgvec
== NULL
) {
952 fprintf(stderr
, _("Invalid use of `message list'\n"));
955 if ((c
= getmsglist(cp
, _msgvec
, com
->msgflag
)) < 0)
957 e
= (*com
->func
)(_msgvec
);
961 /* Just the straight string, with leading blanks removed */
962 while (whitechar(*cp
))
964 e
= (*com
->func
)(cp
);
969 /* A vector of strings, in shell style */
970 if ((c
= getrawlist(cp
, line
.l
, arglist
, NELEM(arglist
),
971 ((com
->argtype
& ARG_ARGMASK
) == ARG_ECHOLIST
))) < 0)
973 if (c
< com
->minargs
) {
974 fprintf(stderr
, _("`%s' requires at least %d arg(s)\n"),
975 com
->name
, com
->minargs
);
978 if (c
> com
->maxargs
) {
979 fprintf(stderr
, _("`%s' takes no more than %d arg(s)\n"),
980 com
->name
, com
->maxargs
);
983 e
= (*com
->func
)(arglist
);
987 /* Just the constant zero, for exiting, eg. */
992 panic(_("Unknown argument type"));
995 if (e
== 0 && (com
->argtype
& ARG_V
) &&
996 (cp
= temporary_arg_v_store
) != NULL
) {
997 temporary_arg_v_store
= NULL
;
998 evp
->ev_new_content
= cp
;
1001 if (!(com
->argtype
& ARG_H
) && !list_saw_numbers
)
1002 evp
->ev_add_history
= TRU1
;
1005 /* Exit the current source file on error */
1006 if ((exec_last_comm_error
= (e
!= 0))) {
1007 if (e
< 0 || loading
) {
1017 if ((com
->argtype
& ARG_P
) && ok_blook(autoprint
))
1019 muvec
[0] = (int)PTR2SIZE(dot
- message
+ 1);
1021 c_type(muvec
); /* TODO what if error? re-eval! */
1023 if (!sourcing
&& !inhook
&& !(com
->argtype
& ARG_T
))
1026 exec_last_comm_error
= 0;
1038 if (_msgvec
!= NULL
)
1040 _msgvec
= scalloc(sz
+ 1, sizeof *_msgvec
);
1045 print_header_summary(char const *Larg
)
1047 size_t bot
, top
, i
, j
;
1051 /* Avoid any messages XXX add a make_mua_silent() and use it? */
1052 if ((options
& (OPT_VERB
| OPT_HEADERSONLY
)) == OPT_HEADERSONLY
) {
1053 freopen("/dev/null", "w", stdout
);
1054 freopen("/dev/null", "w", stderr
);
1056 assert(_msgvec
!= NULL
);
1057 i
= (getmsglist(/*TODO make arg const */UNCONST(Larg
), _msgvec
, 0) <= 0);
1058 if (options
& OPT_HEADERSONLY
) {
1059 exit_status
= (int)i
;
1064 for (bot
= msgCount
, top
= 0, i
= 0; (j
= _msgvec
[i
]) != 0; ++i
) {
1071 bot
= 1, top
= msgCount
;
1072 print_headers(bot
, top
, (Larg
!= NULL
)); /* TODO should take iterator!! */
1080 NYD_X
; /* Signal handler */
1082 if (handlerstacktop
!= NULL
) {
1086 safe_signal(SIGINT
, onintr
);
1094 termios_state_reset();
1101 if (interrupts
!= 1)
1102 fprintf(stderr
, _("Interrupt\n"));
1103 safe_signal(SIGPIPE
, _oldpipe
);
1108 announce(int printheaders
)
1113 mdot
= newfileinfo();
1116 dot
= message
+ mdot
- 1;
1117 if (printheaders
&& msgCount
> 0 && ok_blook(header
)) {
1119 c_headers(vec
); /* XXX errors? */
1129 int u
, n
, mdot
, d
, s
, hidden
, moved
;
1132 if (mb
.mb_type
== MB_VOID
) {
1138 s
= d
= hidden
= moved
=0;
1139 for (mp
= message
, n
= 0, u
= 0; PTRCMP(mp
, <, message
+ msgCount
); ++mp
) {
1140 if (mp
->m_flag
& MNEW
)
1142 if ((mp
->m_flag
& MREAD
) == 0)
1144 if ((mp
->m_flag
& (MDELETED
| MSAVED
)) == (MDELETED
| MSAVED
))
1146 if ((mp
->m_flag
& (MDELETED
| MSAVED
)) == MDELETED
)
1148 if ((mp
->m_flag
& (MDELETED
| MSAVED
)) == MSAVED
)
1150 if (mp
->m_flag
& MHIDDEN
)
1154 /* If displayname gets truncated the user effectively has no option to see
1155 * the full pathname of the mailbox, so print it at least for '? fi' */
1156 printf(_("\"%s\": "),
1157 (_update_mailname(NULL
) ? displayname
: mailname
));
1159 printf(_("1 message"));
1161 printf(_("%d messages"), msgCount
);
1163 printf(_(" %d new"), n
);
1165 printf(_(" %d unread"), u
);
1167 printf(_(" %d deleted"), d
);
1169 printf(_(" %d saved"), s
);
1171 printf(_(" %d moved"), moved
);
1173 printf(_(" %d hidden"), hidden
);
1174 if (mb
.mb_type
== MB_CACHE
)
1175 printf(" [Disconnected]");
1176 else if (mb
.mb_perm
== 0)
1177 printf(_(" [Read only]"));
1190 enum mflag avoid
= MHIDDEN
| MDELETED
;
1194 if (ok_blook(autothread
))
1196 else if ((cp
= ok_vlook(autosort
)) != NULL
) {
1198 mb
.mb_sorted
= sstrdup(cp
);
1202 if (mb
.mb_type
== MB_VOID
) {
1208 for (mp
= message
; PTRCMP(mp
, <, message
+ msgCount
); ++mp
)
1209 if ((mp
->m_flag
& (MNEWEST
| avoid
)) == MNEWEST
)
1212 if (!nmail
|| PTRCMP(mp
, >=, message
+ msgCount
)) {
1213 if (mb
.mb_threaded
) {
1214 for (mp
= threadroot
; mp
!= NULL
; mp
= next_in_thread(mp
))
1215 if ((mp
->m_flag
& (MNEW
| avoid
)) == MNEW
)
1218 for (mp
= message
; PTRCMP(mp
, <, message
+ msgCount
); ++mp
)
1219 if ((mp
->m_flag
& (MNEW
| avoid
)) == MNEW
)
1224 if ((mb
.mb_threaded
? (mp
== NULL
) : PTRCMP(mp
, >=, message
+ msgCount
))) {
1225 if (mb
.mb_threaded
) {
1226 for (mp
= threadroot
; mp
!= NULL
; mp
= next_in_thread(mp
))
1227 if (mp
->m_flag
& MFLAGGED
)
1230 for (mp
= message
; PTRCMP(mp
, <, message
+ msgCount
); ++mp
)
1231 if (mp
->m_flag
& MFLAGGED
)
1236 if ((mb
.mb_threaded
? (mp
== NULL
) : PTRCMP(mp
, >=, message
+ msgCount
))) {
1237 if (mb
.mb_threaded
) {
1238 for (mp
= threadroot
; mp
!= NULL
; mp
= next_in_thread(mp
))
1239 if (!(mp
->m_flag
& (MREAD
| avoid
)))
1242 for (mp
= message
; PTRCMP(mp
, <, message
+ msgCount
); ++mp
)
1243 if (!(mp
->m_flag
& (MREAD
| avoid
)))
1248 if ((mb
.mb_threaded
? (mp
!= NULL
) : PTRCMP(mp
, <, message
+ msgCount
)))
1249 mdot
= (int)PTR2SIZE(mp
- message
+ 1);
1250 else if (ok_blook(showlast
)) {
1251 if (mb
.mb_threaded
) {
1252 for (mp
= this_in_thread(threadroot
, -1); mp
;
1253 mp
= prev_in_thread(mp
))
1254 if (!(mp
->m_flag
& avoid
))
1256 mdot
= (mp
!= NULL
) ? (int)PTR2SIZE(mp
- message
+ 1) : msgCount
;
1258 for (mp
= message
+ msgCount
- 1; mp
>= message
; --mp
)
1259 if (!(mp
->m_flag
& avoid
))
1261 mdot
= (mp
>= message
) ? (int)PTR2SIZE(mp
- message
+ 1) : msgCount
;
1263 } else if (mb
.mb_threaded
) {
1264 for (mp
= threadroot
; mp
; mp
= next_in_thread(mp
))
1265 if (!(mp
->m_flag
& avoid
))
1267 mdot
= (mp
!= NULL
) ? (int)PTR2SIZE(mp
- message
+ 1) : 1;
1269 for (mp
= message
; PTRCMP(mp
, <, message
+ msgCount
); ++mp
)
1270 if (!(mp
->m_flag
& avoid
))
1272 mdot
= PTRCMP(mp
, <, message
+ msgCount
)
1273 ? (int)PTR2SIZE(mp
- message
+ 1) : 1;
1281 initbox(char const *name
)
1286 if (mb
.mb_type
!= MB_VOID
)
1287 n_strlcpy(prevfile
, mailname
, PATH_MAX
);
1289 _update_mailname((name
!= mailname
) ? name
: NULL
);
1291 if ((mb
.mb_otf
= Ftmp(&tempMesg
, "tmpbox", OF_WRONLY
| OF_HOLDSIGS
, 0600)) ==
1293 perror(_("temporary mail message file"));
1296 if ((mb
.mb_itf
= safe_fopen(tempMesg
, "r", NULL
)) == NULL
) {
1297 perror(_("temporary mail message file"));
1300 Ftmp_release(&tempMesg
);
1304 if (mb
.mb_sorted
!= NULL
) {
1306 mb
.mb_sorted
= NULL
;
1309 mb
.mb_flags
= MB_NOFLAGS
;
1313 did_print_dot
= FAL0
;
1317 #ifdef HAVE_DOCSTRINGS
1319 print_comm_docstr(char const *comm
)
1322 struct cmd_ghost
*cg
;
1323 struct cmd
const *cp
;
1326 /* Ghosts take precedence */
1327 for (cg
= _cmd_ghosts
; cg
!= NULL
; cg
= cg
->next
)
1328 if (!strcmp(comm
, cg
->name
)) {
1329 printf("%s -> <%s>\n", comm
, cg
->cmd
.s
);
1334 for (cp
= _cmd_tab
; cp
->name
!= NULL
; ++cp
) {
1335 if (cp
->func
== &c_cmdnotsupp
)
1337 if (!strcmp(comm
, cp
->name
))
1338 printf("%s: %s\n", comm
, V_(cp
->doc
));
1339 else if (is_prefix(comm
, cp
->name
))
1340 printf("%s (%s): %s\n", comm
, cp
->name
, V_(cp
->doc
));
1352 /* vim:set fenc=utf-8:s-it-mode */