enum okeys: new flags, additions and removals
[s-mailx.git] / nailfuns.h
blob655082a68c011a4961129ff312a2bb63f9853277
1 /*@ S-nail - a mail user agent derived from Berkeley Mail.
2 *@ Function prototypes and function-alike macros.
4 * Copyright (c) 2000-2004 Gunnar Ritter, Freiburg i. Br., Germany.
5 * Copyright (c) 2012 - 2015 Steffen (Daode) Nurpmeso <sdaoden@users.sf.net>.
6 */
7 /*
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
13 * are met:
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. Neither the name of the University nor the names of its contributors
20 * may be used to endorse or promote products derived from this software
21 * without specific prior written permission.
23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 * SUCH DAMAGE.
37 * TODO Convert optional utility+ functions to n_*(); ditto
38 * TODO else use generic module-specific prefixes: str_(), am[em]_, sm[em]_, ..
40 /* TODO s-it-mode: not really (docu, funnames, funargs, etc) */
42 #undef FL
43 #ifndef HAVE_AMALGAMATION
44 # define FL extern
45 #else
46 # define FL static
47 #endif
49 /* Memory allocation routines from memory.c offer some debug support */
50 #if (defined HAVE_DEBUG || defined HAVE_DEVEL) && !defined HAVE_NOMEMDBG
51 # define HAVE_MEMORY_DEBUG
52 # define SMALLOC_DEBUG_ARGS , char const *mdbg_file, int mdbg_line
53 # define SMALLOC_DEBUG_ARGSCALL , mdbg_file, mdbg_line
54 # define SALLOC_DEBUG_ARGS , char const *mdbg_file, int mdbg_line
55 # define SALLOC_DEBUG_ARGSCALL , mdbg_file, mdbg_line
56 #else
57 # define SMALLOC_DEBUG_ARGS
58 # define SMALLOC_DEBUG_ARGSCALL
59 # define SALLOC_DEBUG_ARGS
60 # define SALLOC_DEBUG_ARGSCALL
61 #endif
64 * Macro-based generics
67 /* ASCII char classification */
68 #define __ischarof(C, FLAGS) \
69 (asciichar(C) && (class_char[(uc_i)(C)] & (FLAGS)) != 0)
71 #define asciichar(c) ((uc_i)(c) <= 0177)
72 #define alnumchar(c) __ischarof(c, C_DIGIT | C_OCTAL | C_UPPER | C_LOWER)
73 #define alphachar(c) __ischarof(c, C_UPPER | C_LOWER)
74 #define blankchar(c) __ischarof(c, C_BLANK)
75 #define blankspacechar(c) __ischarof(c, C_BLANK | C_SPACE)
76 #define cntrlchar(c) (asciichar(c) && class_char[(ui8_t)(c)] == C_CNTRL)
77 #define digitchar(c) __ischarof(c, C_DIGIT | C_OCTAL)
78 #define lowerchar(c) __ischarof(c, C_LOWER)
79 #define punctchar(c) __ischarof(c, C_PUNCT)
80 #define spacechar(c) __ischarof(c, C_BLANK | C_SPACE | C_WHITE)
81 #define upperchar(c) __ischarof(c, C_UPPER)
82 #define whitechar(c) __ischarof(c, C_BLANK | C_WHITE)
83 #define octalchar(c) __ischarof(c, C_OCTAL)
84 #define hexchar(c) /* TODO extend bits, add C_HEX */\
85 (__ischarof(c, C_DIGIT | C_OCTAL) || ((c) >= 'A' && (c) <= 'F') ||\
86 ((c) >= 'a' && (c) <= 'f'))
88 #define upperconv(c) (lowerchar(c) ? (char)((uc_i)(c) - 'a' + 'A') : (c))
89 #define lowerconv(c) (upperchar(c) ? (char)((uc_i)(c) - 'A' + 'a') : (c))
90 /* RFC 822, 3.2. */
91 #define fieldnamechar(c) \
92 (asciichar(c) && (c) > 040 && (c) != 0177 && (c) != ':')
94 /* Could the string contain a regular expression? */
95 #if 0
96 # define is_maybe_regex(S) anyof("^.[]*+?()|$", S)
97 #else
98 # define is_maybe_regex(S) anyof("^[]*+?|$", S)
99 #endif
101 /* Single-threaded, use unlocked I/O */
102 #ifdef HAVE_PUTC_UNLOCKED
103 # undef getc
104 # define getc(c) getc_unlocked(c)
105 # undef putc
106 # define putc(c, f) putc_unlocked(c, f)
107 # undef putchar
108 # define putchar(c) putc_unlocked((c), stdout)
109 #endif
111 /* Truncate a file to the last character written. This is useful just before
112 * closing an old file that was opened for read/write */
113 #define ftrunc(stream) \
114 do {\
115 off_t off;\
116 fflush(stream);\
117 off = ftell(stream);\
118 if (off >= 0)\
119 ftruncate(fileno(stream), off);\
120 } while (0)
122 /* fflush() and rewind() */
123 #define fflush_rewind(stream) \
124 do {\
125 fflush(stream);\
126 rewind(stream);\
127 } while (0)
129 /* There are problems with dup()ing of file-descriptors for child processes.
130 * As long as those are not fixed in equal spirit to (outof(): FIX and
131 * recode.., 2012-10-04), and to avoid reviving of bugs like (If *record* is
132 * set, avoid writing dead content twice.., 2012-09-14), we have to somehow
133 * accomplish that the FILE* fp makes itself comfortable with the *real* offset
134 * of the underlaying file descriptor. Unfortunately Standard I/O and POSIX
135 * don't describe a way for that -- fflush();rewind(); won't do it. This
136 * fseek(END),rewind() pair works around the problem on *BSD and Linux.
137 * Update as of 2014-03-03: with Issue 7 POSIX has overloaded fflush(3): if
138 * used on a readable stream, then
140 * if the file is not already at EOF, and the file is one capable of
141 * seeking, the file offset of the underlying open file description shall
142 * be set to the file position of the stream.
144 * We need our own, simplified and reliable I/O */
145 #if defined _POSIX_VERSION && _POSIX_VERSION + 0 >= 200809L
146 # define really_rewind(stream) \
147 do {\
148 rewind(stream);\
149 fflush(stream);\
150 } while (0)
151 #else
152 # define really_rewind(stream) \
153 do {\
154 rewind(stream);\
155 fflush(stream);\
156 lseek(fileno(stream), 0, SEEK_SET);\
157 } while (0)
158 #endif
161 * accmacvar.c
164 /* Don't use _var_* unless you *really* have to! */
166 /* Constant option key look/(un)set/clear */
167 FL char * _var_oklook(enum okeys okey);
168 #define ok_blook(C) (_var_oklook(CONCAT(ok_b_, C)) != NULL)
169 #define ok_vlook(C) _var_oklook(CONCAT(ok_v_, C))
171 FL bool_t _var_okset(enum okeys okey, uintptr_t val);
172 #define ok_bset(C,B) _var_okset(CONCAT(ok_b_, C), (uintptr_t)(B))
173 #define ok_vset(C,V) _var_okset(CONCAT(ok_v_, C), (uintptr_t)(V))
175 FL bool_t _var_okclear(enum okeys okey);
176 #define ok_bclear(C) _var_okclear(CONCAT(ok_b_, C))
177 #define ok_vclear(C) _var_okclear(CONCAT(ok_v_, C))
179 /* Variable option key look/(un)set/clear */
180 FL char * _var_voklook(char const *vokey);
181 #define vok_blook(S) (_var_voklook(S) != NULL)
182 #define vok_vlook(S) _var_voklook(S)
184 FL bool_t _var_vokset(char const *vokey, uintptr_t val);
185 #define vok_bset(S,B) _var_vokset(S, (uintptr_t)(B))
186 #define vok_vset(S,V) _var_vokset(S, (uintptr_t)(V))
188 FL bool_t _var_vokclear(char const *vokey);
189 #define vok_bclear(S) _var_vokclear(S)
190 #define vok_vclear(S) _var_vokclear(S)
192 /* Environment lookup, if envonly is TRU1 then variable must come from the
193 * process environment (and if via `setenv') */
194 FL char * _env_look(char const *envkey, bool_t envonly);
195 #define env_blook(S,EXCL) (_env_look(S, EXCL) != NULL)
196 #define env_vlook(S,EXCL) _env_look(S, EXCL)
198 /* Special case to handle the typical [xy-USER@HOST,] xy-HOST and plain xy
199 * variable chains; oxm is a bitmix which tells which combinations to test */
200 #ifdef HAVE_SOCKETS
201 FL char * _var_xoklook(enum okeys okey, struct url const *urlp,
202 enum okey_xlook_mode oxm);
203 # define xok_BLOOK(C,URL,M) (_var_xoklook(C, URL, M) != NULL)
204 # define xok_VLOOK(C,URL,M) _var_xoklook(C, URL, M)
205 # define xok_blook(C,URL,M) xok_BLOOK(CONCAT(ok_b_, C), URL, M)
206 # define xok_vlook(C,URL,M) xok_VLOOK(CONCAT(ok_v_, C), URL, M)
207 #endif
209 /* `varshow' */
210 FL int c_varshow(void *v);
212 /* User variable access: `set', `setenv', `unset' and `unsetenv' */
213 FL int c_set(void *v);
214 FL int c_setenv(void *v);
215 FL int c_unset(void *v);
216 FL int c_unsetenv(void *v);
218 /* Ditto: `varedit' */
219 FL int c_varedit(void *v);
221 /* Macros: `define', `undefine', `call' / `~' */
222 FL int c_define(void *v);
223 FL int c_undefine(void *v);
224 FL int c_call(void *v);
226 /* TODO Check wether a *folder-hook* exists for the currently active mailbox */
227 FL bool_t check_folder_hook(bool_t nmail);
229 /* TODO v15 drop Invoke compose hook macname */
230 FL void call_compose_mode_hook(char const *macname);
232 /* Accounts: `account', `unaccount' */
233 FL int c_account(void *v);
234 FL int c_unaccount(void *v);
236 /* `localopts' */
237 FL int c_localopts(void *v);
239 FL void temporary_localopts_free(void); /* XXX intermediate hack */
240 FL void temporary_localopts_folder_hook_unroll(void); /* XXX im. hack */
243 * attachments.c
246 /* Try to add an attachment for file, file_expand()ed.
247 * Return the new head of list aphead, or NULL.
248 * The newly created attachment will be stored in *newap, if given */
249 FL struct attachment * add_attachment(struct attachment *aphead, char *file,
250 struct attachment **newap);
252 /* Append comma-separated list of file names to the end of attachment list */
253 FL void append_attachments(struct attachment **aphead, char *names);
255 /* Interactively edit the attachment list */
256 FL void edit_attachments(struct attachment **aphead);
259 * auxlily.c
262 /* Compute screen size */
263 FL int screensize(void);
265 /* Get our $PAGER; if env_addon is not NULL it is checked wether we know about
266 * some environment variable that supports colour+ and set *env_addon to that,
267 * e.g., "LESS=FRSXi" */
268 FL char const *n_pager_get(char const **env_addon);
270 /* Use a pager or STDOUT to print *fp*; if *lines* is 0, they'll be counted */
271 FL void page_or_print(FILE *fp, size_t lines);
273 /* Parse name and guess at the required protocol */
274 FL enum protocol which_protocol(char const *name);
276 /* Hash the passed string -- uses Chris Torek's hash algorithm */
277 FL ui32_t torek_hash(char const *name);
278 #define hash(S) (torek_hash(S) % HSHSIZE) /* xxx COMPAT (?) */
280 /* Create hash */
281 FL ui32_t pjw(char const *cp); /* TODO obsolete -> torek_hash() */
283 /* Find a prime greater than n */
284 FL ui32_t nextprime(ui32_t n);
286 /* Get *prompt*, or '& ' if *bsdcompat*, of '? ' otherwise */
287 FL char * getprompt(void);
289 /* Detect and query the hostname to use */
290 FL char * nodename(int mayoverride);
292 /* Get a (pseudo) random string of *length* bytes; returns salloc()ed buffer */
293 FL char * getrandstring(size_t length);
295 /* Check wether the argument string is a true (1) or false (0) boolean, or an
296 * invalid string, in which case -1 is returned; if emptyrv is not -1 then it,
297 * treated as a boolean, is used as the return value shall inbuf be empty.
298 * inlen may be UIZ_MAX to force strlen() detection */
299 FL si8_t boolify(char const *inbuf, uiz_t inlen, si8_t emptyrv);
301 /* Dig a "quadoption" in inbuf (possibly going through getapproval() in
302 * interactive mode). Returns a boolean or -1 if inbuf content is invalid;
303 * if emptyrv is not -1 then it, treated as a boolean, is used as the return
304 * value shall inbuf be empty. If prompt is set it is printed first if intera.
305 * inlen may be UIZ_MAX to force strlen() detection */
306 FL si8_t quadify(char const *inbuf, uiz_t inlen, char const *prompt,
307 si8_t emptyrv);
309 /* Is the argument "all" (case-insensitive) or "*" */
310 FL bool_t n_is_all_or_aster(char const *name);
312 /* Get seconds since epoch */
313 FL time_t n_time_epoch(void);
315 /* Update *tc* to now; only .tc_time updated unless *full_update* is true */
316 FL void time_current_update(struct time_current *tc,
317 bool_t full_update);
319 /* Returns 0 if fully slept, number of millis left if ignint is true and we
320 * were interrupted. Actual resolution may be second or less.
321 * Note in case of HAVE_SLEEP this may be SIGALARM based. */
322 FL uiz_t n_msleep(uiz_t millis, bool_t ignint);
324 /* Our error print series.. Note: these reverse scan format in order to know
325 * wether a newline was included or not -- this affects the output! */
326 FL void n_err(char const *format, ...);
327 FL void n_verr(char const *format, va_list ap);
329 /* ..(for use in a signal handler; to be obsoleted..).. */
330 FL void n_err_sighdl(char const *format, ...);
332 /* Our perror(3); if errval is 0 errno(3) is used; newline appended */
333 FL void n_perr(char const *msg, int errval);
335 /* Announce a fatal error (and die); newline appended */
336 FL void n_alert(char const *format, ...);
337 FL void n_panic(char const *format, ...);
339 /* `errors' */
340 #ifdef HAVE_ERRORS
341 FL int c_errors(void *vp);
342 #else
343 # define c_errors c_cmdnotsupp
344 #endif
347 * cmd1.c
350 FL int c_cmdnotsupp(void *v);
352 /* `headers' (show header group, possibly after setting dot) */
353 FL int c_headers(void *v);
355 /* Like c_headers(), but pre-prepared message vector */
356 FL int print_header_group(int *vector);
358 /* Scroll to the next/previous screen */
359 FL int c_scroll(void *v);
360 FL int c_Scroll(void *v);
362 /* Print out the headlines for each message in the passed message list */
363 FL int c_from(void *v);
365 /* Print all message in between and including bottom and topx if they are
366 * visible and either only_marked is false or they are MMARKed */
367 FL void print_headers(size_t bottom, size_t topx, bool_t only_marked);
369 /* Print out the value of dot */
370 FL int c_pdot(void *v);
372 /* Paginate messages, honor/don't honour ignored fields, respectively */
373 FL int c_more(void *v);
374 FL int c_More(void *v);
376 /* Type out messages, honor/don't honour ignored fields, respectively */
377 FL int c_type(void *v);
378 FL int c_Type(void *v);
380 /* Show MIME-encoded message text, including all fields */
381 FL int c_show(void *v);
383 /* Pipe messages, honor/don't honour ignored fields, respectively */
384 FL int c_pipe(void *v);
385 FL int c_Pipe(void *v);
387 /* Print the top so many lines of each desired message.
388 * The number of lines is taken from *toplines* and defaults to 5 */
389 FL int c_top(void *v);
391 /* Touch all the given messages so that they will get mboxed */
392 FL int c_stouch(void *v);
394 /* Make sure all passed messages get mboxed */
395 FL int c_mboxit(void *v);
397 /* List the folders the user currently has */
398 FL int c_folders(void *v);
401 * cmd2.c
404 /* If any arguments were given, go to the next applicable argument following
405 * dot, otherwise, go to the next applicable message. If given as first
406 * command with no arguments, print first message */
407 FL int c_next(void *v);
409 /* Move the dot up or down by one message */
410 FL int c_dotmove(void *v);
412 /* Save a message in a file. Mark the message as saved so we can discard when
413 * the user quits */
414 FL int c_save(void *v);
415 FL int c_Save(void *v);
417 /* Copy a message to a file without affected its saved-ness */
418 FL int c_copy(void *v);
419 FL int c_Copy(void *v);
421 /* Move a message to a file */
422 FL int c_move(void *v);
423 FL int c_Move(void *v);
425 /* Decrypt and copy a message to a file */
426 FL int c_decrypt(void *v);
427 FL int c_Decrypt(void *v);
429 /* Write the indicated messages at the end of the passed file name, minus
430 * header and trailing blank line. This is the MIME save function */
431 FL int c_write(void *v);
433 /* Delete messages */
434 FL int c_delete(void *v);
436 /* Delete messages, then type the new dot */
437 FL int c_deltype(void *v);
439 /* Undelete the indicated messages */
440 FL int c_undelete(void *v);
442 /* Add the given header fields to the retained list. If no arguments, print
443 * the current list of retained fields */
444 FL int c_retfield(void *v);
446 /* Add the given header fields to the ignored list. If no arguments, print the
447 * current list of ignored fields */
448 FL int c_igfield(void *v);
450 FL int c_saveretfield(void *v);
451 FL int c_saveigfield(void *v);
452 FL int c_fwdretfield(void *v);
453 FL int c_fwdigfield(void *v);
454 FL int c_unignore(void *v);
455 FL int c_unretain(void *v);
456 FL int c_unsaveignore(void *v);
457 FL int c_unsaveretain(void *v);
458 FL int c_unfwdignore(void *v);
459 FL int c_unfwdretain(void *v);
462 * cmd3.c
465 /* Process a shell escape by saving signals, ignoring signals and a sh -c */
466 FL int c_shell(void *v);
468 /* Fork an interactive shell */
469 FL int c_dosh(void *v);
471 /* Show the help screen */
472 FL int c_help(void *v);
474 /* Print user's working directory */
475 FL int c_cwd(void *v);
477 /* Change user's working directory */
478 FL int c_chdir(void *v);
480 /* All thinkable sorts of `reply' / `respond' and `followup'.. */
481 FL int c_reply(void *v);
482 FL int c_replyall(void *v);
483 FL int c_replysender(void *v);
484 FL int c_Reply(void *v);
485 FL int c_followup(void *v);
486 FL int c_followupall(void *v);
487 FL int c_followupsender(void *v);
488 FL int c_Followup(void *v);
490 /* ..and a mailing-list reply */
491 FL int c_Lreply(void *v);
493 /* The 'forward' command */
494 FL int c_forward(void *v);
496 /* Similar to forward, saving the message in a file named after the first
497 * recipient */
498 FL int c_Forward(void *v);
500 /* Resend a message list to a third person */
501 FL int c_resend(void *v);
503 /* Resend a message list to a third person without adding headers */
504 FL int c_Resend(void *v);
506 /* Preserve messages, so that they will be sent back to the system mailbox */
507 FL int c_preserve(void *v);
509 /* Mark all given messages as unread */
510 FL int c_unread(void *v);
512 /* Mark all given messages as read */
513 FL int c_seen(void *v);
515 /* Print the size of each message */
516 FL int c_messize(void *v);
518 /* `file' (`folder') and `File' (`Folder') */
519 FL int c_file(void *v);
520 FL int c_File(void *v);
522 /* Expand file names like echo */
523 FL int c_echo(void *v);
525 /* 'newmail' command: Check for new mail without writing old mail back */
526 FL int c_newmail(void *v);
528 /* Message flag manipulation */
529 FL int c_flag(void *v);
530 FL int c_unflag(void *v);
531 FL int c_answered(void *v);
532 FL int c_unanswered(void *v);
533 FL int c_draft(void *v);
534 FL int c_undraft(void *v);
536 /* noop */
537 FL int c_noop(void *v);
539 /* Remove mailbox */
540 FL int c_remove(void *v);
542 /* Rename mailbox */
543 FL int c_rename(void *v);
545 /* `urlencode' and `urldecode' */
546 FL int c_urlencode(void *v);
547 FL int c_urldecode(void *v);
550 * cmd_cnd.c
553 /* if.elif.else.endif conditional execution.
554 * condstack_isskip() returns wether the current condition state doesn't allow
555 * execution of commands.
556 * condstack_release() and condstack_take() rotate the current condition stack;
557 * condstack_take() returns a false boolean if the current condition stack has
558 * unclosed conditionals */
559 FL int c_if(void *v);
560 FL int c_elif(void *v);
561 FL int c_else(void *v);
562 FL int c_endif(void *v);
563 FL bool_t condstack_isskip(void);
564 FL void * condstack_release(void);
565 FL bool_t condstack_take(void *self);
568 * collect.c
572 * If quotefile is (char*)-1, stdin will be used, caller has to verify that
573 * we're not running in interactive mode */
574 FL FILE * collect(struct header *hp, int printheaders, struct message *mp,
575 char *quotefile, int doprefix, si8_t *checkaddr_err);
577 FL void savedeadletter(FILE *fp, int fflush_rewind_first);
580 * edit.c
583 /* Edit a message list */
584 FL int c_editor(void *v);
586 /* Invoke the visual editor on a message list */
587 FL int c_visual(void *v);
589 /* Run an editor on either size bytes of the file fp (or until EOF if size is
590 * negative) or on the message mp, and return a new file or NULL on error of if
591 * the user didn't perform any edits.
592 * For now we assert that mp==NULL if hp!=NULL, treating this as a special call
593 * from within compose mode, and giving TRUM1 to puthead().
594 * Signals must be handled by the caller. viored is 'e' for ed, 'v' for vi */
595 FL FILE * run_editor(FILE *fp, off_t size, int viored, int readonly,
596 struct header *hp, struct message *mp,
597 enum sendaction action, sighandler_type oldint);
600 * colour.c
603 #ifdef HAVE_COLOUR
604 /* `(un)?colour' */
605 FL int c_colour(void *v);
606 FL int c_uncolour(void *v);
608 /* We want coloured output (in this salloc() cycle). pager_used is used to
609 * test wether *colour-pager* is to be inspected.
610 * The push/pop functions deal with recursive execute()ions, for now. TODO
611 * env_gut() will reset() as necessary */
612 FL void n_colour_env_create(enum n_colour_ctx cctx, bool_t pager_used);
613 FL void n_colour_env_push(void);
614 FL void n_colour_env_pop(bool_t any_env_till_root);
615 FL void n_colour_env_gut(FILE *fp);
617 /* Putting anything (for pens: including NULL) resets current state first */
618 FL void n_colour_put(FILE *fp, enum n_colour_id cid, char const *ctag);
619 FL void n_colour_reset(FILE *fp);
621 /* Of course temporary only and may return NULL. Doesn't affect state! */
622 FL struct str const *n_colour_reset_to_str(void);
624 /* A pen is bound to its environment and automatically reclaimed; it may be
625 * NULL but that can be used anyway for simplicity.
626 * This includes pen_to_str() -- which doesn't affect state! */
627 FL struct n_colour_pen *n_colour_pen_create(enum n_colour_id cid,
628 char const *ctag);
629 FL void n_colour_pen_put(struct n_colour_pen *self, FILE *fp);
631 FL struct str const *n_colour_pen_to_str(struct n_colour_pen *self);
633 #else /* HAVE_COLOUR */
634 # define c_colour c_cmdnotsupp
635 # define c_uncolour c_cmdnotsupp
636 # define c_mono c_cmdnotsupp
637 # define c_unmono c_cmdnotsupp
638 #endif
641 * dotlock.c
644 /* Aquire a flt lock and create a dotlock file; upon success a registered
645 * control-pipe FILE* is returned that keeps the link in between us and the
646 * lock-holding fork(2)ed subprocess (which conditionally replaced itself via
647 * execv(2) with the privilege-separated dotlock helper program): the lock file
648 * will be removed once the control pipe is closed via Pclose().
649 * Will try FILE_LOCK_TRIES times if pollmsecs > 0 (once otherwise).
650 * If *dotlock_ignore_error* is set (FILE*)-1 will be returned if at least the
651 * normal file lock could be established, otherwise errno is usable on error */
652 FL FILE * n_dotlock(char const *fname, int fd, enum n_file_lock_type flt,
653 off_t off, off_t len, size_t pollmsecs);
656 * filter.c
659 /* Quote filter */
660 FL struct quoteflt * quoteflt_dummy(void); /* TODO LEGACY */
661 FL void quoteflt_init(struct quoteflt *self, char const *prefix);
662 FL void quoteflt_destroy(struct quoteflt *self);
663 FL void quoteflt_reset(struct quoteflt *self, FILE *f);
664 FL ssize_t quoteflt_push(struct quoteflt *self, char const *dat,
665 size_t len);
666 FL ssize_t quoteflt_flush(struct quoteflt *self);
668 /* (Primitive) HTML tagsoup filter */
669 #ifdef HAVE_FILTER_HTML_TAGSOUP
670 /* TODO Because we don't support filter chains yet this filter will be run
671 * TODO in a dedicated subprocess, driven via a special Popen() mode */
672 FL int htmlflt_process_main(void);
674 FL void htmlflt_init(struct htmlflt *self);
675 FL void htmlflt_destroy(struct htmlflt *self);
676 FL void htmlflt_reset(struct htmlflt *self, FILE *f);
677 FL ssize_t htmlflt_push(struct htmlflt *self, char const *dat, size_t len);
678 FL ssize_t htmlflt_flush(struct htmlflt *self);
679 #endif
682 * fio.c
685 /* fgets() replacement to handle lines of arbitrary size and with embedded \0
686 * characters.
687 * line - line buffer. *line may be NULL.
688 * linesize - allocated size of line buffer.
689 * count - maximum characters to read. May be NULL.
690 * llen - length_of_line(*line).
691 * fp - input FILE.
692 * appendnl - always terminate line with \n, append if necessary.
694 FL char * fgetline(char **line, size_t *linesize, size_t *count,
695 size_t *llen, FILE *fp, int appendnl SMALLOC_DEBUG_ARGS);
696 #ifdef HAVE_MEMORY_DEBUG
697 # define fgetline(A,B,C,D,E,F) \
698 fgetline(A, B, C, D, E, F, __FILE__, __LINE__)
699 #endif
701 /* Read up a line from the specified input into the linebuffer.
702 * Return the number of characters read. Do not include the newline at EOL.
703 * n is the number of characters already read */
704 FL int readline_restart(FILE *ibuf, char **linebuf, size_t *linesize,
705 size_t n SMALLOC_DEBUG_ARGS);
706 #ifdef HAVE_MEMORY_DEBUG
707 # define readline_restart(A,B,C,D) \
708 readline_restart(A, B, C, D, __FILE__, __LINE__)
709 #endif
711 /* Set up the input pointers while copying the mail file into /tmp */
712 FL void setptr(FILE *ibuf, off_t offset);
714 /* Drop the passed line onto the passed output buffer. If a write error occurs
715 * return -1, else the count of characters written, including the newline */
716 FL int putline(FILE *obuf, char *linebuf, size_t count);
718 /* Determine the size of the file possessed by the passed buffer */
719 FL off_t fsize(FILE *iob);
721 /* accmacvar.c hook: *folder* variable has been updated; if folder shouldn't
722 * be replaced by something else leave store alone, otherwise smalloc() the
723 * desired value (ownership will be taken) */
724 FL bool_t var_folder_updated(char const *folder, char **store);
726 /* Return the name of the dead.letter file */
727 FL char const * getdeadletter(void);
729 /* Will retry FILE_LOCK_RETRIES times if pollmsecs > 0 */
730 FL bool_t n_file_lock(int fd, enum n_file_lock_type flt,
731 off_t off, off_t len, size_t pollmsecs);
734 * folder.c
737 /* Set up editing on the given file name.
738 * If the first character of name is %, we are considered to be editing the
739 * file, otherwise we are reading our mail which has signficance for mbox and
740 * so forth */
741 FL int setfile(char const *name, enum fedit_mode fm);
743 FL int newmailinfo(int omsgCount);
745 /* Set the size of the message vector used to construct argument lists to
746 * message list functions */
747 FL void setmsize(int sz);
749 /* Logic behind -H / -L invocations */
750 FL void print_header_summary(char const *Larg);
752 /* Announce the presence of the current Mail version, give the message count,
753 * and print a header listing */
754 FL void announce(int printheaders);
756 /* Announce information about the file we are editing. Return a likely place
757 * to set dot */
758 FL int newfileinfo(void);
760 FL int getmdot(int nmail);
762 FL void initbox(char const *name);
764 /* Determine the current *folder* name, store it in *name* */
765 FL bool_t getfold(char *name, size_t size);
768 * head.c
771 /* Return the user's From: address(es) */
772 FL char const * myaddrs(struct header *hp);
774 /* Boil the user's From: addresses down to a single one, or use *sender* */
775 FL char const * myorigin(struct header *hp);
777 /* See if the passed line buffer, which may include trailing newline (sequence)
778 * is a mail From_ header line according to RFC 4155.
779 * If compat is true laxe POSIX syntax is instead sufficient to match From_ */
780 FL int is_head(char const *linebuf, size_t linelen, bool_t compat);
782 /* Savage extract date field from From_ line. linelen is convenience as line
783 * must be terminated (but it may end in a newline [sequence]).
784 * Return wether the From_ line was parsed successfully */
785 FL int extract_date_from_from_(char const *line, size_t linelen,
786 char datebuf[FROM_DATEBUF]);
788 /* Extract some header fields (see e.g. -t documentation) from a message.
789 * If options&OPT_t_FLAG *and* pstate&PS_t_FLAG are both set a number of
790 * additional header fields are understood and address joining is performed as
791 * necessary, and the subject is treated with additional care, too.
792 * If pstate&PS_t_FLAG is set but OPT_t_FLAG is no more, From: will not be
793 * assigned no more.
794 * This calls expandaddr() on some headers and sets checkaddr_err if that is
795 * not NULL -- note it explicitly allows EAF_NAME because aliases are not
796 * expanded when this is called! */
797 FL void extract_header(FILE *fp, struct header *hp,
798 si8_t *checkaddr_err);
800 /* Return the desired header line from the passed message
801 * pointer (or NULL if the desired header field is not available).
802 * If mult is zero, return the content of the first matching header
803 * field only, the content of all matching header fields else */
804 FL char * hfield_mult(char const *field, struct message *mp, int mult);
805 #define hfieldX(a, b) hfield_mult(a, b, 1)
806 #define hfield1(a, b) hfield_mult(a, b, 0)
808 /* Check whether the passed line is a header line of the desired breed.
809 * Return the field body, or 0 */
810 FL char const * thisfield(char const *linebuf, char const *field);
812 /* Get sender's name from this message. If the message has a bunch of arpanet
813 * stuff in it, we may have to skin the name before returning it */
814 FL char * nameof(struct message *mp, int reptype);
816 /* Start of a "comment". Ignore it */
817 FL char const * skip_comment(char const *cp);
819 /* Return the start of a route-addr (address in angle brackets), if present */
820 FL char const * routeaddr(char const *name);
822 /* Query *expandaddr*, parse it and return flags.
823 * The flags are already adjusted for OPT_INTERACTIVE / OPT_TILDE_FLAG etc. */
824 FL enum expand_addr_flags expandaddr_to_eaf(void);
826 /* Check if an address is invalid, either because it is malformed or, if not,
827 * according to eacm. Return FAL0 when it looks good, TRU1 if it is invalid
828 * but the error condition wasn't covered by a 'hard "fail"ure', -1 otherwise */
829 FL si8_t is_addr_invalid(struct name *np,
830 enum expand_addr_check_mode eacm);
832 /* Does *NP* point to a file or pipe addressee? */
833 #define is_fileorpipe_addr(NP) \
834 (((NP)->n_flags & NAME_ADDRSPEC_ISFILEORPIPE) != 0)
836 /* Return skinned version of *NP*s name */
837 #define skinned_name(NP) \
838 (assert((NP)->n_flags & NAME_SKINNED), \
839 ((struct name const*)NP)->n_name)
841 /* Skin an address according to the RFC 822 interpretation of "host-phrase" */
842 FL char * skin(char const *name);
844 /* Skin *name* and extract the *addr-spec* according to RFC 5322.
845 * Store the result in .ag_skinned and also fill in those .ag_ fields that have
846 * actually been seen.
847 * Return 0 if something good has been parsed, 1 if fun didn't exactly know how
848 * to deal with the input, or if that was plain invalid */
849 FL int addrspec_with_guts(int doskin, char const *name,
850 struct addrguts *agp);
852 /* Fetch the real name from an internet mail address field */
853 FL char * realname(char const *name);
855 /* Fetch the sender's name from the passed message. reptype can be
856 * 0 -- get sender's name for display purposes
857 * 1 -- get sender's name for reply
858 * 2 -- get sender's name for Reply */
859 FL char * name1(struct message *mp, int reptype);
861 /* Trim away all leading Re: etc., return pointer to plain subject.
862 * Note it doesn't perform any MIME decoding by itself */
863 FL char * subject_re_trim(char *cp);
865 FL int msgidcmp(char const *s1, char const *s2);
867 /* See if the given header field is supposed to be ignored */
868 FL int is_ign(char const *field, size_t fieldlen,
869 struct ignoretab igta[2]);
871 FL int member(char const *realfield, struct ignoretab *table);
873 /* Fake Sender for From_ lines if missing, e. g. with POP3 */
874 FL char const * fakefrom(struct message *mp);
876 FL char const * fakedate(time_t t);
878 /* From username Fri Jan 2 20:13:51 2004
879 * | | | | |
880 * 0 5 10 15 20 */
881 #ifdef HAVE_IMAP_SEARCH
882 FL time_t unixtime(char const *from);
883 #endif
885 FL time_t rfctime(char const *date);
887 FL time_t combinetime(int year, int month, int day,
888 int hour, int minute, int second);
890 FL void substdate(struct message *m);
892 /* TODO Weird thing that tries to fill in From: and Sender: */
893 FL void setup_from_and_sender(struct header *hp);
895 /* Note: returns 0x1 if both args were NULL */
896 FL struct name const * check_from_and_sender(struct name const *fromfield,
897 struct name const *senderfield);
899 #ifdef HAVE_OPENSSL
900 FL char * getsender(struct message *m);
901 #endif
903 /* Fill in / reedit the desired header fields */
904 FL int grab_headers(struct header *hp, enum gfield gflags,
905 int subjfirst);
907 /* Check wether sep->ss_sexpr (or ->ss_regex) matches any header of mp */
908 FL bool_t header_match(struct message *mp, struct search_expr const *sep);
911 * imap_search.c
914 #ifdef HAVE_IMAP_SEARCH
915 FL enum okay imap_search(char const *spec, int f);
916 #endif
919 * lex_input.c
922 /* Print the docstring of `comm', which may be an abbreviation.
923 * Return FAL0 if there is no such command */
924 #ifdef HAVE_DOCSTRINGS
925 FL bool_t n_print_comm_docstr(char const *comm);
926 #endif
928 /* Interpret user commands. If stdin is not a tty, print no prompt; return
929 * wether last processed command returned error -- this is *only* for main()! */
930 FL bool_t n_commands(void);
932 /* Actual cmd input */
934 /* Read a complete line of input, with editing if interactive and possible.
935 * If prompt is NULL we'll call getprompt() first, if necessary.
936 * nl_escape defines wether user can escape newlines via backslash (POSIX).
937 * If string is set it is used as the initial line content if in interactive
938 * mode, otherwise this argument is ignored for reproducibility.
939 * Return number of octets or a value <0 on error.
940 * Note: may use the currently `source'd file stream instead of stdin! */
941 FL int n_lex_input(char const *prompt, bool_t nl_escape,
942 char **linebuf, size_t *linesize, char const *string
943 SMALLOC_DEBUG_ARGS);
944 #ifdef HAVE_MEMORY_DEBUG
945 # define n_lex_input(A,B,C,D,E) n_lex_input(A,B,C,D,E,__FILE__,__LINE__)
946 #endif
948 /* Read a line of input, with editing if interactive and possible, return it
949 * savestr()d or NULL in case of errors or if an empty line would be returned.
950 * This may only be called from toplevel (not during PS_ROBOT).
951 * If prompt is NULL we'll call getprompt() if necessary.
952 * If string is set it is used as the initial line content if in interactive
953 * mode, otherwise this argument is ignored for reproducibility.
954 * If OPT_INTERACTIVE a non-empty return is saved in the history, isgabby */
955 FL char * n_lex_input_cp_addhist(char const *prompt, char const *string,
956 bool_t isgabby);
958 /* Deal with loading of resource files and dealing with a stack of files for
959 * the source command */
961 /* Load a file of user definitions -- this is *only* for main()! */
962 FL void n_load(char const *name);
964 /* "Load" all the -X command line definitions in order -- *only* for main() */
965 FL void n_load_Xargs(char const **lines);
967 /* Pushdown current input file and switch to a new one. Set the global flag
968 * PS_SOURCING so that others will realize that they are no longer reading from
969 * a tty (in all probability).
970 * The latter won't return failure (TODO should be replaced by "-f FILE") */
971 FL int c_source(void *v);
972 FL int c_source_if(void *v);
974 /* Evaluate a complete macro / a single command. For the former lines will
975 * always be free()d, for the latter cmd will always be duplicated internally */
976 FL bool_t n_source_macro(char const *name, char **lines);
977 FL bool_t n_source_command(char const *cmd);
979 /* XXX Hack: may we release our (interactive) (terminal) control to a different
980 * XXX program, e.g., a $PAGER? */
981 FL bool_t n_source_may_yield_control(void);
984 * list.c
987 /* Count the number of arguments in the given string raw list */
988 FL int argcount(char **argv);
990 /* Convert user string of message numbers and store the numbers into vector.
991 * Returns the count of messages picked up or -1 on error */
992 FL int getmsglist(char *buf, int *vector, int flags);
994 /* Scan out the list of string arguments, shell style for a RAWLIST */
995 FL int getrawlist(char const *line, size_t linesize,
996 char **argv, int argc, int echolist);
998 /* Find the first message whose flags&m==f and return its message number */
999 FL int first(int f, int m);
1001 /* Mark the named message by setting its mark bit */
1002 FL void mark(int mesg, int f);
1005 * message.c
1008 /* Return a file buffer all ready to read up the passed message pointer */
1009 FL FILE * setinput(struct mailbox *mp, struct message *m,
1010 enum needspec need);
1012 /* */
1013 FL enum okay get_body(struct message *mp);
1015 /* Reset (free) the global message array */
1016 FL void message_reset(void);
1018 /* Append the passed message descriptor onto the message array; if mp is NULL,
1019 * NULLify the entry at &[msgCount-1] */
1020 FL void message_append(struct message *mp);
1022 /* Append a NULL message */
1023 FL void message_append_null(void);
1025 /* Check wether sep->ss_sexpr (or ->ss_regex) matches mp. If with_headers is
1026 * true then the headers will also be searched (as plain text) */
1027 FL bool_t message_match(struct message *mp, struct search_expr const *sep,
1028 bool_t with_headers);
1030 /* */
1031 FL struct message * setdot(struct message *mp);
1033 /* Touch the named message by setting its MTOUCH flag. Touched messages have
1034 * the effect of not being sent back to the system mailbox on exit */
1035 FL void touch(struct message *mp);
1038 * maildir.c
1041 FL int maildir_setfile(char const *name, enum fedit_mode fm);
1043 FL bool_t maildir_quit(void);
1045 FL enum okay maildir_append(char const *name, FILE *fp, long offset);
1047 FL enum okay maildir_remove(char const *name);
1050 * main.c
1053 /* Quit quickly. In recursed state, return error to just pop the input level */
1054 FL int c_exit(void *v);
1057 * memory.c
1060 /* Try to use alloca() for some function-local buffers and data, fall back to
1061 * smalloc()/free() if not available */
1063 #ifdef HAVE_ALLOCA
1064 # define ac_alloc(n) HAVE_ALLOCA(n)
1065 # define ac_free(n) do {UNUSED(n);} while (0)
1066 #else
1067 # define ac_alloc(n) smalloc(n)
1068 # define ac_free(n) free(n)
1069 #endif
1071 /* Generic heap memory */
1073 FL void * smalloc(size_t s SMALLOC_DEBUG_ARGS);
1074 FL void * srealloc(void *v, size_t s SMALLOC_DEBUG_ARGS);
1075 FL void * scalloc(size_t nmemb, size_t size SMALLOC_DEBUG_ARGS);
1077 #ifdef HAVE_MEMORY_DEBUG
1078 FL void sfree(void *v SMALLOC_DEBUG_ARGS);
1080 /* Called by sreset(), then */
1081 FL void n_memreset(void);
1083 FL int c_memtrace(void *v);
1085 /* For immediate debugging purposes, it is possible to check on request */
1086 FL bool_t n__memcheck(char const *file, int line);
1088 # define smalloc(SZ) smalloc(SZ, __FILE__, __LINE__)
1089 # define srealloc(P,SZ) srealloc(P, SZ, __FILE__, __LINE__)
1090 # define scalloc(N,SZ) scalloc(N, SZ, __FILE__, __LINE__)
1091 # define free(P) sfree(P, __FILE__, __LINE__)
1092 # define c_memtrace c_memtrace
1093 # define n_memcheck() n__memcheck(__FILE__, __LINE__)
1094 #else
1095 # define n_memreset() do{}while(0)
1096 #endif
1098 /* String storage, auto-reclaimed after execution level is left */
1100 /* Allocate size more bytes of space and return the address of the first byte
1101 * to the caller. An even number of bytes are always allocated so that the
1102 * space will always be on a word boundary */
1103 FL void * salloc(size_t size SALLOC_DEBUG_ARGS);
1104 FL void * csalloc(size_t nmemb, size_t size SALLOC_DEBUG_ARGS);
1105 #ifdef HAVE_MEMORY_DEBUG
1106 # define salloc(SZ) salloc(SZ, __FILE__, __LINE__)
1107 # define csalloc(NM,SZ) csalloc(NM, SZ, __FILE__, __LINE__)
1108 #endif
1110 /* Auto-reclaim string storage; if only_if_relaxed is true then only perform
1111 * the reset when a srelax_hold() is currently active */
1112 FL void sreset(bool_t only_if_relaxed);
1114 /* The "problem" with sreset() is that it releases all string storage except
1115 * what was present once spreserve() had been called; it therefore cannot be
1116 * called from all that code which yet exists and walks about all the messages
1117 * in order, e.g. quit(), searches, etc., because, unfortunately, these code
1118 * paths are reached with new intermediate string dope already in use.
1119 * Thus such code should take a srelax_hold(), successively call srelax() after
1120 * a single message has been handled, and finally srelax_rele() (unless it is
1121 * clear that sreset() occurs anyway) */
1122 FL void srelax_hold(void);
1123 FL void srelax_rele(void);
1124 FL void srelax(void);
1126 /* Make current string storage permanent: new allocs will be auto-reclaimed by
1127 * sreset(). This is called once only, from within main() */
1128 FL void spreserve(void);
1130 /* 'sstats' command */
1131 #ifdef HAVE_MEMORY_DEBUG
1132 FL int c_sstats(void *v);
1133 # define c_sstats c_sstats
1134 #endif
1137 * mime.c
1140 /* *charset-7bit*, else CHARSET_7BIT */
1141 FL char const * charset_get_7bit(void);
1143 /* *charset-8bit*, else CHARSET_8BIT */
1144 #ifdef HAVE_ICONV
1145 FL char const * charset_get_8bit(void);
1146 #endif
1148 /* LC_CTYPE:CODESET / *ttycharset*, else *charset-8bit*, else CHARSET_8BIT */
1149 FL char const * charset_get_lc(void);
1151 /* *sendcharsets* .. *charset-8bit* iterator; *a_charset_to_try_first* may be
1152 * used to prepend a charset to this list (e.g., for *reply-in-same-charset*).
1153 * The returned boolean indicates charset_iter_is_valid().
1154 * Without HAVE_ICONV, this "iterates" over charset_get_lc() only */
1155 FL bool_t charset_iter_reset(char const *a_charset_to_try_first);
1156 FL bool_t charset_iter_next(void);
1157 FL bool_t charset_iter_is_valid(void);
1158 FL char const * charset_iter(void);
1160 /* And this is (xxx temporary?) which returns the iterator if that is valid and
1161 * otherwise either charset_get_8bit() or charset_get_lc() dep. on HAVE_ICONV */
1162 FL char const * charset_iter_or_fallback(void);
1164 FL void charset_iter_recurse(char *outer_storage[2]); /* TODO LEGACY */
1165 FL void charset_iter_restore(char *outer_storage[2]); /* TODO LEGACY */
1167 /* Check wether our headers will need MIME conversion */
1168 #ifdef HAVE_ICONV
1169 FL char const * need_hdrconv(struct header *hp);
1170 #endif
1172 /* Convert header fields from RFC 1522 format */
1173 FL void mime_fromhdr(struct str const *in, struct str *out,
1174 enum tdflags flags);
1176 /* Interpret MIME strings in parts of an address field */
1177 FL char * mime_fromaddr(char const *name);
1179 /* fwrite(3) performing the given MIME conversion */
1180 FL ssize_t mime_write(char const *ptr, size_t size, FILE *f,
1181 enum conversion convert, enum tdflags dflags,
1182 struct quoteflt *qf, struct str *rest);
1183 FL ssize_t xmime_write(char const *ptr, size_t size, /* TODO LEGACY */
1184 FILE *f, enum conversion convert, enum tdflags dflags);
1187 * mime_enc.c
1188 * Content-Transfer-Encodings as defined in RFC 2045 (and RFC 2047):
1189 * - Quoted-Printable, section 6.7
1190 * - Base64, section 6.8
1191 * TODO for now this is pretty mixed up regarding this external interface.
1192 * TODO in v15.0 CTE will be filter based, and explicit conversion will
1193 * TODO gain clear error codes
1196 /* Utilities: the former converts the byte c into a (NUL terminated)
1197 * hexadecimal string as is used in URL percent- and quoted-printable encoding,
1198 * the latter performs the backward conversion and returns the character or -1
1199 * on error; both don't deal with the sequence-introducing percent "%" */
1200 FL char * mime_char_to_hexseq(char store[3], char c);
1201 FL si32_t mime_hexseq_to_char(char const *hex);
1203 /* Default MIME Content-Transfer-Encoding: as via *encoding* */
1204 FL enum mime_enc mime_enc_target(void);
1206 /* Map from a Content-Transfer-Encoding: header body (which may be NULL) */
1207 FL enum mime_enc mime_enc_from_ctehead(char const *hbody);
1209 /* XXX Try to get rid of that */
1210 FL char const * mime_enc_from_conversion(enum conversion const convert);
1212 /* How many characters of (the complete body) ln need to be quoted.
1213 * Only MIMEEF_ISHEAD and MIMEEF_ISENCWORD are understood */
1214 FL size_t mime_enc_mustquote(char const *ln, size_t lnlen,
1215 enum mime_enc_flags flags);
1217 /* How much space is necessary to encode len bytes in QP, worst case.
1218 * Includes room for terminator */
1219 FL size_t qp_encode_calc_size(size_t len);
1221 /* If flags includes QP_ISHEAD these assume "word" input and use special
1222 * quoting rules in addition; soft line breaks are not generated.
1223 * Otherwise complete input lines are assumed and soft line breaks are
1224 * generated as necessary */
1225 FL struct str * qp_encode(struct str *out, struct str const *in,
1226 enum qpflags flags);
1227 #ifdef notyet
1228 FL struct str * qp_encode_cp(struct str *out, char const *cp,
1229 enum qpflags flags);
1230 FL struct str * qp_encode_buf(struct str *out, void const *vp, size_t vp_len,
1231 enum qpflags flags);
1232 #endif
1234 /* If rest is set then decoding will assume body text input (assumes input
1235 * represents lines, only create output when input didn't end with soft line
1236 * break [except it finalizes an encoded CRLF pair]), otherwise it is assumed
1237 * to decode a header strings and (1) uses special decoding rules and (b)
1238 * directly produces output.
1239 * The buffers of out and possibly rest will be managed via srealloc().
1240 * Returns OKAY. XXX or STOP on error (in which case out is set to an error
1241 * XXX message); caller is responsible to free buffers */
1242 FL int qp_decode(struct str *out, struct str const *in,
1243 struct str *rest);
1245 /* How much space is necessary to encode len bytes in Base64, worst case.
1246 * Includes room for (CR/LF/CRLF and) terminator */
1247 FL size_t b64_encode_calc_size(size_t len);
1249 /* Note these simply convert all the input (if possible), including the
1250 * insertion of NL sequences if B64_CRLF or B64_LF is set (and multiple thereof
1251 * if B64_MULTILINE is set).
1252 * Thus, in the B64_BUF case, better call b64_encode_calc_size() first */
1253 FL struct str * b64_encode(struct str *out, struct str const *in,
1254 enum b64flags flags);
1255 FL struct str * b64_encode_buf(struct str *out, void const *vp, size_t vp_len,
1256 enum b64flags flags);
1257 #ifdef HAVE_SMTP
1258 FL struct str * b64_encode_cp(struct str *out, char const *cp,
1259 enum b64flags flags);
1260 #endif
1262 /* If rest is set then decoding will assume text input.
1263 * The buffers of out and possibly rest will be managed via srealloc().
1264 * Returns OKAY or STOP on error (in which case out is set to an error
1265 * message); caller is responsible to free buffers.
1266 * XXX STOP is effectively not returned for text input (rest!=NULL), instead
1267 * XXX replacement characters are produced for invalid data */
1268 FL int b64_decode(struct str *out, struct str const *in,
1269 struct str *rest);
1272 * mime_param.c
1275 /* Get a mime style parameter from a header body */
1276 FL char * mime_param_get(char const *param, char const *headerbody);
1278 /* Format parameter name to have value, salloc() it or NULL (error) in result.
1279 * 0 on error, 1 or -1 on success: the latter if result contains \n newlines,
1280 * which it will if the created param requires more than MIME_LINELEN bytes;
1281 * there is never a trailing newline character */
1282 /* TODO mime_param_create() should return a StrList<> or something.
1283 * TODO in fact it should take a HeaderField* and append a HeaderFieldParam*! */
1284 FL si8_t mime_param_create(struct str *result, char const *name,
1285 char const *value);
1287 /* Get the boundary out of a Content-Type: multipart/xyz header field, return
1288 * salloc()ed copy of it; store strlen() in *len if set */
1289 FL char * mime_param_boundary_get(char const *headerbody, size_t *len);
1291 /* Create a salloc()ed MIME boundary */
1292 FL char * mime_param_boundary_create(void);
1295 * mime_parse.c
1298 /* Create MIME part object tree for and of mp */
1299 FL struct mimepart * mime_parse_msg(struct message *mp,
1300 enum mime_parse_flags mpf);
1303 * mime_types.c
1306 /* `(un)?mimetype' commands */
1307 FL int c_mimetype(void *v);
1308 FL int c_unmimetype(void *v);
1310 /* Return a Content-Type matching the name, or NULL if none could be found */
1311 FL char * mime_type_classify_filename(char const *name);
1313 /* Classify content of *fp* as necessary and fill in arguments; **charset* is
1314 * left alone unless it's non-NULL */
1315 FL enum conversion mime_type_classify_file(FILE *fp, char const **contenttype,
1316 char const **charset, int *do_iconv);
1318 /* Dependend on *mime-counter-evidence* mpp->m_ct_type_usr_ovwr will be set,
1319 * but otherwise mpp is const */
1320 FL enum mimecontent mime_type_classify_part(struct mimepart *mpp);
1322 /* Query handler for a part, return the plain type (& MIME_HDL_TYPE_MASK).
1323 * mhp is anyway initialized (mh_flags, mh_msg) */
1324 FL enum mime_handler_flags mime_type_handler(struct mime_handler *mhp,
1325 struct mimepart const *mpp,
1326 enum sendaction action);
1329 * nam_a_grp.c
1332 /* Allocate a single element of a name list, initialize its name field to the
1333 * passed name and return it */
1334 FL struct name * nalloc(char *str, enum gfield ntype);
1336 /* Like nalloc(), but initialize from content of np */
1337 FL struct name * ndup(struct name *np, enum gfield ntype);
1339 /* Concatenate the two passed name lists, return the result */
1340 FL struct name * cat(struct name *n1, struct name *n2);
1342 /* Duplicate np */
1343 FL struct name * namelist_dup(struct name const *np, enum gfield ntype);
1345 /* Determine the number of undeleted elements in a name list and return it;
1346 * the latter also doesn't count file and pipe addressees in addition */
1347 FL ui32_t count(struct name const *np);
1348 FL ui32_t count_nonlocal(struct name const *np);
1350 /* Extract a list of names from a line, and make a list of names from it.
1351 * Return the list or NULL if none found */
1352 FL struct name * extract(char const *line, enum gfield ntype);
1354 /* Like extract() unless line contains anyof ",\"\\(<|", in which case
1355 * comma-separated list extraction is used instead */
1356 FL struct name * lextract(char const *line, enum gfield ntype);
1358 /* Turn a list of names into a string of the same names */
1359 FL char * detract(struct name *np, enum gfield ntype);
1361 /* Get a lextract() list via n_lex_input_cp_addhist(), reassigning to *np* */
1362 FL struct name * grab_names(char const *field, struct name *np, int comma,
1363 enum gfield gflags);
1365 /* Check wether n1 n2 share the domain name */
1366 FL bool_t name_is_same_domain(struct name const *n1,
1367 struct name const *n2);
1369 /* Check all addresses in np and delete invalid ones; if set_on_error is not
1370 * NULL it'll be set to TRU1 for error or -1 for "hard fail" error */
1371 FL struct name * checkaddrs(struct name *np, enum expand_addr_check_mode eacm,
1372 si8_t *set_on_error);
1374 /* Vaporise all duplicate addresses in hp (.h_(to|cc|bcc)) so that an address
1375 * that "first" occurs in To: is solely in there, ditto Cc:, after expanding
1376 * aliases etc. eacm and set_on_error are passed to checkaddrs(), metoo is
1377 * passed to usermap(). After updating hp to the new state this returns
1378 * a flat list of all addressees, which may be NULL */
1379 FL struct name * namelist_vaporise_head(struct header *hp,
1380 enum expand_addr_check_mode eacm, bool_t metoo,
1381 si8_t *set_on_error);
1383 /* Map all of the aliased users in the invoker's mailrc file and insert them
1384 * into the list */
1385 FL struct name * usermap(struct name *names, bool_t force_metoo);
1387 /* Remove all of the duplicates from the passed name list by insertion sorting
1388 * them, then checking for dups. Return the head of the new list */
1389 FL struct name * elide(struct name *names);
1391 /* `alternates' deal with the list of alternate names */
1392 FL int c_alternates(void *v);
1394 FL struct name * delete_alternates(struct name *np);
1396 FL int is_myname(char const *name);
1398 /* `(un)?alias' */
1399 FL int c_alias(void *v);
1400 FL int c_unalias(void *v);
1402 /* `(un)?ml(ist|subscribe)', and a check wether a name is a (wanted) list */
1403 FL int c_mlist(void *v);
1404 FL int c_unmlist(void *v);
1405 FL int c_mlsubscribe(void *v);
1406 FL int c_unmlsubscribe(void *v);
1408 FL enum mlist_state is_mlist(char const *name, bool_t subscribed_only);
1410 /* `(un)?shortcut', and check if str is one, return expansion or NULL */
1411 FL int c_shortcut(void *v);
1412 FL int c_unshortcut(void *v);
1414 FL char const * shortcut_expand(char const *str);
1416 /* `(un)?customhdr'.
1417 * Query a list of all currently defined custom headers (salloc()ed) */
1418 FL int c_customhdr(void *v);
1419 FL int c_uncustomhdr(void *v);
1421 FL struct n_header_field * n_customhdr_query(void);
1424 * openssl.c
1427 #ifdef HAVE_OPENSSL
1428 /* */
1429 FL enum okay ssl_open(struct url const *urlp, struct sock *sp);
1431 /* */
1432 FL void ssl_gen_err(char const *fmt, ...);
1434 /* */
1435 FL int c_verify(void *vp);
1437 /* */
1438 FL FILE * smime_sign(FILE *ip, char const *addr);
1440 /* */
1441 FL FILE * smime_encrypt(FILE *ip, char const *certfile, char const *to);
1443 FL struct message * smime_decrypt(struct message *m, char const *to,
1444 char const *cc, int signcall);
1446 /* */
1447 FL enum okay smime_certsave(struct message *m, int n, FILE *op);
1449 #else /* HAVE_OPENSSL */
1450 # define c_verify c_cmdnotsupp
1451 #endif
1454 * path.c
1457 /* Test to see if the passed file name is a directory, return true if it is */
1458 FL bool_t is_dir(char const *name);
1460 /* */
1461 FL bool_t n_path_mkdir(char const *name);
1463 /* Delete a file, but only if the file is a plain file; return FAL0 on system
1464 * error and TRUM1 if name is not a plain file, return TRU1 on success */
1465 FL bool_t n_path_rm(char const *name);
1467 /* A get-wd..restore-wd approach */
1468 FL enum okay cwget(struct cw *cw);
1469 FL enum okay cwret(struct cw *cw);
1470 FL void cwrelse(struct cw *cw);
1473 * pop3.c
1476 #ifdef HAVE_POP3
1477 /* */
1478 FL enum okay pop3_noop(void);
1480 /* */
1481 FL int pop3_setfile(char const *server, enum fedit_mode fm);
1483 /* */
1484 FL enum okay pop3_header(struct message *m);
1486 /* */
1487 FL enum okay pop3_body(struct message *m);
1489 /* */
1490 FL bool_t pop3_quit(void);
1491 #endif /* HAVE_POP3 */
1494 * popen.c
1495 * Subprocesses, popen, but also file handling with registering
1498 /* For program startup in main.c: initialize process manager */
1499 FL void command_manager_start(void);
1501 /* Notes: OF_CLOEXEC is implied in oflags, xflags may be NULL */
1502 FL FILE * safe_fopen(char const *file, char const *oflags, int *xflags);
1504 /* Notes: OF_CLOEXEC|OF_REGISTER are implied in oflags!
1505 * Exception is Fdopen() if nocloexec is TRU1, but otherwise even for it the fd
1506 * creator has to take appropriate steps in order to ensure this is true! */
1507 FL FILE * Fopen(char const *file, char const *oflags);
1508 FL FILE * Fdopen(int fd, char const *oflags, bool_t nocloexec);
1510 FL int Fclose(FILE *fp);
1512 /* Open file according to oflags (see popen.c). Handles compressed files */
1513 FL FILE * Zopen(char const *file, char const *oflags);
1515 /* Create a temporary file in tempdir, use namehint for its name (prefix
1516 * unless OF_SUFFIX is set, in which case namehint is an extension that MUST be
1517 * part of the resulting filename, otherwise Ftmp() will fail), store the
1518 * unique name in fn (unless OF_UNLINK is set in oflags), and return a stdio
1519 * FILE pointer with access oflags. OF_CLOEXEC is implied in oflags.
1520 * One of OF_WRONLY and OF_RDWR must be set. Mode of 0600 is implied */
1521 FL FILE * Ftmp(char **fn, char const *namehint, enum oflags oflags);
1523 /* If OF_HOLDSIGS was set when calling Ftmp(), then hold_all_sigs() had been
1524 * called: call this to unlink(2) and free *fn and to rele_all_sigs() */
1525 FL void Ftmp_release(char **fn);
1527 /* Free the resources associated with the given filename. To be called after
1528 * unlink() */
1529 FL void Ftmp_free(char **fn);
1531 /* Create a pipe and ensure CLOEXEC bit is set in both descriptors */
1532 FL bool_t pipe_cloexec(int fd[2]);
1535 * env_addon may be NULL, otherwise it is expected to be a NULL terminated
1536 * array of "K=V" strings to be placed into the childs environment.
1537 * If cmd==(char*)-1 then shell is indeed expected to be a PTF :P that will be
1538 * called from within the child process */
1539 FL FILE * Popen(char const *cmd, char const *mode, char const *shell,
1540 char const **env_addon, int newfd1);
1541 FL bool_t Pclose(FILE *fp, bool_t dowait);
1543 /* In OPT_INTERACTIVE, we want to go over $PAGER.
1544 * These are specialized version of Popen()/Pclose() which also encapsulate
1545 * error message printing, terminal handling etc. additionally */
1546 FL FILE * n_pager_open(void);
1547 FL bool_t n_pager_close(FILE *fp);
1549 /* */
1550 FL void close_all_files(void);
1552 /* Fork a child process, enable use of the *child() series below */
1553 FL int fork_child(void);
1555 /* Run a command without a shell, with optional arguments and splicing of stdin
1556 * and stdout. FDs may also be COMMAND_FD_NULL and COMMAND_FD_PASS, meaning to
1557 * redirect from/to /dev/null or pass through our own set of FDs; in the
1558 * latter case terminal capabilities are saved/restored if possible.
1559 * The command name can be a sequence of words.
1560 * Signals must be handled by the caller. "Mask" contains the signals to
1561 * ignore in the new process. SIGINT is enabled unless it's in the mask.
1562 * env_addon may be NULL, otherwise it is expected to be a NULL terminated
1563 * array of "K=V" strings to be placed into the childs environment */
1564 FL int run_command(char const *cmd, sigset_t *mask, int infd,
1565 int outfd, char const *a0, char const *a1, char const *a2,
1566 char const **env_addon);
1568 /* Like run_command, but don't wait for the command to finish.
1569 * Also it is usually an error to use COMMAND_FD_PASS for this one */
1570 FL int start_command(char const *cmd, sigset_t *mask, int infd,
1571 int outfd, char const *a0, char const *a1, char const *a2,
1572 char const **env_addon);
1574 /* In-child process */
1575 FL void prepare_child(sigset_t *nset, int infd, int outfd);
1577 /* Mark a child as don't care - pid */
1578 FL void free_child(int pid);
1580 /* Wait for pid, return wether we've had a normal EXIT_SUCCESS exit.
1581 * If wait_status is set, set it to the reported waitpid(2) wait status */
1582 FL bool_t wait_child(int pid, int *wait_status);
1585 * quit.c
1588 /* Save all of the undetermined messages at the top of "mbox". Save all
1589 * untouched messages back in the system mailbox. Remove the system mailbox,
1590 * if none saved there */
1591 FL bool_t quit(void);
1593 /* Adjust the message flags in each message */
1594 FL int holdbits(void);
1596 /* Create another temporary file and copy user's mbox file darin. If there is
1597 * no mbox, copy nothing. If he has specified "append" don't copy his mailbox,
1598 * just copy saveable entries at the end */
1599 FL enum okay makembox(void);
1601 FL void save_mbox_for_possible_quitstuff(void); /* TODO DROP IF U CAN */
1603 FL int savequitflags(void);
1605 FL void restorequitflags(int);
1608 * send.c
1611 /* Send message described by the passed pointer to the passed output buffer.
1612 * Return -1 on error. Adjust the status: field if need be. If doign is
1613 * given, suppress ignored header fields. prefix is a string to prepend to
1614 * each output line. action = data destination
1615 * (SEND_MBOX,_TOFILE,_TODISP,_QUOTE,_DECRYPT). stats[0] is line count,
1616 * stats[1] is character count. stats may be NULL. Note that stats[0] is
1617 * valid for SEND_MBOX only */
1618 FL int sendmp(struct message *mp, FILE *obuf, struct ignoretab *doign,
1619 char const *prefix, enum sendaction action, ui64_t *stats);
1622 * sendout.c
1625 /* Interface between the argument list and the mail1 routine which does all the
1626 * dirty work */
1627 FL int mail(struct name *to, struct name *cc, struct name *bcc,
1628 char *subject, struct attachment *attach, char *quotefile,
1629 int recipient_record);
1631 /* `mail' and `Mail' commands, respectively */
1632 FL int c_sendmail(void *v);
1633 FL int c_Sendmail(void *v);
1635 /* Mail a message on standard input to the people indicated in the passed
1636 * header. (Internal interface) */
1637 FL enum okay mail1(struct header *hp, int printheaders,
1638 struct message *quote, char *quotefile, int recipient_record,
1639 int doprefix);
1641 /* Create a Date: header field.
1642 * We compare the localtime() and gmtime() results to get the timezone, because
1643 * numeric timezones are easier to read and because $TZ isn't always set */
1644 FL int mkdate(FILE *fo, char const *field);
1646 /* Dump the to, subject, cc header on the passed file buffer.
1647 * nosend_msg tells us not to dig to deep but to instead go for compose mode or
1648 * editing a message (yet we're stupid and cannot do it any better) - if it is
1649 * TRUM1 then we're really in compose mode and will produce some fields for
1650 * easier filling in */
1651 FL int puthead(bool_t nosend_msg, struct header *hp, FILE *fo,
1652 enum gfield w, enum sendaction action,
1653 enum conversion convert, char const *contenttype,
1654 char const *charset);
1656 /* */
1657 FL enum okay resend_msg(struct message *mp, struct name *to, int add_resent);
1660 * shexp.c
1663 /* Evaluate the string given as a new mailbox name. Supported meta characters:
1664 * . % for my system mail box
1665 * . %user for user's system mail box
1666 * . # for previous file
1667 * . & invoker's mbox file
1668 * . +file file in folder directory
1669 * . any shell meta character (except for FEXP_NSHELL).
1670 * If FEXP_NSHELL is set you possibly want to call fexpand_nshell_quote(),
1671 * a poor man's vis(3), on name before calling this (and showing the user).
1672 * Returns the file name as an auto-reclaimed string */
1673 FL char * fexpand(char const *name, enum fexp_mode fexpm);
1675 #define expand(N) fexpand(N, FEXP_FULL) /* XXX obsolete */
1676 #define file_expand(N) fexpand(N, FEXP_LOCAL) /* XXX obsolete */
1678 /* A poor man's vis(3) for only backslash escaping as for FEXP_NSHELL.
1679 * Returns the (possibly adjusted) buffer in auto-reclaimed storage */
1680 FL char * fexpand_nshell_quote(char const *name);
1682 /* (Try to) Expand ^~/? and ^~USER/? constructs.
1683 * Returns the completely resolved (maybe empty or identical to input)
1684 * salloc()ed string */
1685 FL char * n_shell_expand_tilde(char const *s, bool_t *err_or_null);
1687 /* (Try to) Expand any shell variable in s, allowing backslash escaping
1688 * (of any following character) with bsescape.
1689 * Returns the completely resolved (maybe empty) salloc()ed string.
1690 * Logs on error */
1691 FL char * n_shell_expand_var(char const *s, bool_t bsescape,
1692 bool_t *err_or_null);
1694 /* Check wether *s is an escape sequence, expand it as necessary.
1695 * Returns the expanded sequence or 0 if **s is NUL or PROMPT_STOP if it is \c.
1696 * *s is advanced to after the expanded sequence (as possible).
1697 * If use_prompt_extensions is set, an enum prompt_exp may be returned */
1698 FL int n_shell_expand_escape(char const **s,
1699 bool_t use_prompt_extensions);
1702 * signal.c
1705 FL void n_raise(int signo);
1707 /* Provide BSD-like signal() on all (POSIX) systems */
1708 FL sighandler_type safe_signal(int signum, sighandler_type handler);
1710 /* Hold *all* signals but SIGCHLD, and release that total block again */
1711 FL void hold_all_sigs(void);
1712 FL void rele_all_sigs(void);
1714 /* Hold HUP/QUIT/INT */
1715 FL void hold_sigs(void);
1716 FL void rele_sigs(void);
1718 /* Call _ENTER_SWITCH() with the according flags, it'll take care for the rest
1719 * and also set the jump buffer - it returns 0 if anything went fine and
1720 * a signal number if a jump occurred, in which case all handlers requested in
1721 * flags are temporarily SIG_IGN.
1722 * _cleanup_ping() informs the condome that no jumps etc. shall be performed
1723 * until _leave() is called in the following -- to be (optionally) called right
1724 * before the local jump label is reached which is jumped to after a long jump
1725 * occurred, straight code flow provided, e.g., to avoid destructors to be
1726 * called twice. _leave() must always be called last, reraise_flags will be
1727 * used to decide how signal handling has to continue
1729 #define n_SIGMAN_ENTER_SWITCH(S,F) do{\
1730 int __x__;\
1731 hold_sigs();\
1732 if(sigsetjmp((S)->sm_jump, 1))\
1733 __x__ = -1;\
1734 else\
1735 __x__ = F;\
1736 n__sigman_enter(S, __x__);\
1737 }while(0); switch((S)->sm_signo)
1738 FL int n__sigman_enter(struct n_sigman *self, int flags);
1739 FL void n_sigman_cleanup_ping(struct n_sigman *self);
1740 FL void n_sigman_leave(struct n_sigman *self, enum n_sigman_flags flags);
1742 /* Pending signal or 0? */
1743 FL int n_sigman_peek(void);
1744 FL void n_sigman_consume(void);
1746 /* Not-Yet-Dead debug information (handler installation in main.c) */
1747 #if defined HAVE_DEBUG || defined HAVE_DEVEL
1748 FL void _nyd_chirp(ui8_t act, char const *file, ui32_t line,
1749 char const *fun);
1750 FL void _nyd_oncrash(int signo);
1752 # define HAVE_NYD
1753 # define NYD_ENTER _nyd_chirp(1, __FILE__, __LINE__, __FUN__)
1754 # define NYD_LEAVE _nyd_chirp(2, __FILE__, __LINE__, __FUN__)
1755 # define NYD _nyd_chirp(0, __FILE__, __LINE__, __FUN__)
1756 # define NYD_X _nyd_chirp(0, __FILE__, __LINE__, __FUN__)
1757 # ifdef HAVE_NYD2
1758 # define NYD2_ENTER _nyd_chirp(1, __FILE__, __LINE__, __FUN__)
1759 # define NYD2_LEAVE _nyd_chirp(2, __FILE__, __LINE__, __FUN__)
1760 # define NYD2 _nyd_chirp(0, __FILE__, __LINE__, __FUN__)
1761 # endif
1762 #else
1763 # undef HAVE_NYD
1764 #endif
1765 #ifndef NYD
1766 # define NYD_ENTER do {} while (0)
1767 # define NYD_LEAVE do {} while (0)
1768 # define NYD do {} while (0)
1769 # define NYD_X do {} while (0) /* XXX LEGACY */
1770 #endif
1771 #ifndef NYD2
1772 # define NYD2_ENTER do {} while (0)
1773 # define NYD2_LEAVE do {} while (0)
1774 # define NYD2 do {} while (0)
1775 #endif
1778 * smtp.c
1781 #ifdef HAVE_SMTP
1782 /* Send a message via SMTP */
1783 FL bool_t smtp_mta(struct sendbundle *sbp);
1784 #endif
1787 * socket.c
1790 #ifdef HAVE_SOCKETS
1791 FL bool_t sopen(struct sock *sp, struct url *urlp);
1792 FL int sclose(struct sock *sp);
1793 FL enum okay swrite(struct sock *sp, char const *data);
1794 FL enum okay swrite1(struct sock *sp, char const *data, int sz,
1795 int use_buffer);
1797 /* */
1798 FL int sgetline(char **line, size_t *linesize, size_t *linelen,
1799 struct sock *sp SMALLOC_DEBUG_ARGS);
1800 # ifdef HAVE_MEMORY_DEBUG
1801 # define sgetline(A,B,C,D) sgetline(A, B, C, D, __FILE__, __LINE__)
1802 # endif
1803 #endif
1806 * spam.c
1809 #ifdef HAVE_SPAM
1810 /* Direct mappings of the various spam* commands */
1811 FL int c_spam_clear(void *v);
1812 FL int c_spam_set(void *v);
1813 FL int c_spam_forget(void *v);
1814 FL int c_spam_ham(void *v);
1815 FL int c_spam_rate(void *v);
1816 FL int c_spam_spam(void *v);
1817 #else
1818 # define c_spam_clear c_cmdnotsupp
1819 # define c_spam_set c_cmdnotsupp
1820 # define c_spam_forget c_cmdnotsupp
1821 # define c_spam_ham c_cmdnotsupp
1822 # define c_spam_rate c_cmdnotsupp
1823 # define c_spam_spam c_cmdnotsupp
1824 #endif
1827 * ssl.c
1830 #ifdef HAVE_SSL
1831 /* */
1832 FL void ssl_set_verify_level(struct url const *urlp);
1834 /* */
1835 FL enum okay ssl_verify_decide(void);
1837 /* */
1838 FL enum okay smime_split(FILE *ip, FILE **hp, FILE **bp, long xcount,
1839 int keep);
1841 /* */
1842 FL FILE * smime_sign_assemble(FILE *hp, FILE *bp, FILE *sp,
1843 char const *message_digest);
1845 /* */
1846 FL FILE * smime_encrypt_assemble(FILE *hp, FILE *yp);
1848 /* */
1849 FL struct message * smime_decrypt_assemble(struct message *m, FILE *hp,
1850 FILE *bp);
1852 /* */
1853 FL int c_certsave(void *v);
1855 /* */
1856 FL enum okay rfc2595_hostname_match(char const *host, char const *pattern);
1857 #else /* HAVE_SSL */
1858 # define c_certsave c_cmdnotsupp
1859 #endif
1862 * strings.c
1865 /* Return a pointer to a dynamic copy of the argument */
1866 FL char * savestr(char const *str SALLOC_DEBUG_ARGS);
1867 FL char * savestrbuf(char const *sbuf, size_t sbuf_len SALLOC_DEBUG_ARGS);
1868 #ifdef HAVE_MEMORY_DEBUG
1869 # define savestr(CP) savestr(CP, __FILE__, __LINE__)
1870 # define savestrbuf(CBP,CBL) savestrbuf(CBP, CBL, __FILE__, __LINE__)
1871 #endif
1873 /* Concatenate cp2 onto cp1 (if not NULL), separated by sep (if not '\0') */
1874 FL char * savecatsep(char const *cp1, char sep, char const *cp2
1875 SALLOC_DEBUG_ARGS);
1876 #ifdef HAVE_MEMORY_DEBUG
1877 # define savecatsep(S1,SEP,S2) savecatsep(S1, SEP, S2, __FILE__, __LINE__)
1878 #endif
1880 /* Make copy of argument incorporating old one, if set, separated by space */
1881 #define save2str(S,O) savecatsep(O, ' ', S)
1883 /* strcat */
1884 #define savecat(S1,S2) savecatsep(S1, '\0', S2)
1886 /* Create duplicate, lowercasing all characters along the way */
1887 FL char * i_strdup(char const *src SALLOC_DEBUG_ARGS);
1888 #ifdef HAVE_MEMORY_DEBUG
1889 # define i_strdup(CP) i_strdup(CP, __FILE__, __LINE__)
1890 #endif
1892 /* */
1893 FL struct str * str_concat_csvl(struct str *self, ...);
1895 /* */
1896 FL struct str * str_concat_cpa(struct str *self, char const * const *cpa,
1897 char const *sep_o_null SALLOC_DEBUG_ARGS);
1898 #ifdef HAVE_MEMORY_DEBUG
1899 # define str_concat_cpa(S,A,N) str_concat_cpa(S, A, N, __FILE__, __LINE__)
1900 #endif
1902 /* Plain char* support, not auto-reclaimed (unless noted) */
1904 /* Are any of the characters in the two strings the same? */
1905 FL int anyof(char const *s1, char const *s2);
1907 /* Treat *iolist as a sep separated list of strings; find and return the
1908 * next entry, trimming surrounding whitespace, and point *iolist to the next
1909 * entry or to NULL if no more entries are contained. If ignore_empty is not
1910 * set empty entries are started over.
1911 * strescsep will assert that sep is not NULL, and allows escaping of the
1912 * separator character with a backslash.
1913 * Return NULL or an entry */
1914 FL char * n_strsep(char **iolist, char sep, bool_t ignore_empty);
1915 FL char * n_strescsep(char **iolist, char sep, bool_t ignore_empty);
1917 /* Copy a string, lowercasing it as we go; *size* is buffer size of *dest*;
1918 * *dest* will always be terminated unless *size* is 0 */
1919 FL void i_strcpy(char *dest, char const *src, size_t size);
1921 /* Is *as1* a valid prefix of *as2*? */
1922 FL int is_prefix(char const *as1, char const *as2);
1924 /* Backslash quote (" and \) v'alue, and return salloc()ed result */
1925 FL char * string_quote(char const *v);
1927 /* Get (and isolate) the last, possibly quoted part of linebuf, set *needs_list
1928 * to indicate wether getmsglist() et al need to be called to collect
1929 * additional args that remain in linebuf. If strip is true possibly
1930 * surrounding quote characters are removed. Return NULL on "error" */
1931 FL char * laststring(char *linebuf, bool_t *needs_list, bool_t strip);
1933 /* Convert a string to lowercase, in-place and with multibyte-aware */
1934 FL void makelow(char *cp);
1936 /* Is *sub* a substring of *str*, case-insensitive and multibyte-aware? */
1937 FL bool_t substr(char const *str, char const *sub);
1939 /* */
1940 FL char * sstpcpy(char *dst, char const *src);
1941 FL char * sstrdup(char const *cp SMALLOC_DEBUG_ARGS);
1942 FL char * sbufdup(char const *cp, size_t len SMALLOC_DEBUG_ARGS);
1943 #ifdef HAVE_MEMORY_DEBUG
1944 # define sstrdup(CP) sstrdup(CP, __FILE__, __LINE__)
1945 # define sbufdup(CP,L) sbufdup(CP, L, __FILE__, __LINE__)
1946 #endif
1948 /* Copy at most dstsize bytes of src to dst and return string length.
1949 * Returns -E2BIG if dst is not large enough; dst will always be terminated
1950 * unless dstsize was 0 on entry */
1951 FL ssize_t n_strscpy(char *dst, char const *src, size_t dstsize);
1953 /* Case-independent ASCII comparisons */
1954 FL int asccasecmp(char const *s1, char const *s2);
1955 FL int ascncasecmp(char const *s1, char const *s2, size_t sz);
1957 /* Case-independent ASCII string find s2 in s1, return it or NULL */
1958 FL char const *asccasestr(char const *s1, char const *s2);
1960 /* Case-independent ASCII check wether as2 is the initial substring of as1 */
1961 FL bool_t is_asccaseprefix(char const *as1, char const *as2);
1963 /* struct str related support funs TODO _cp->_cs! */
1965 /* *self->s* is srealloc()ed */
1966 #define n_str_dup(S, T) n_str_assign_buf((S), (T)->s, (T)->l)
1968 /* *self->s* is srealloc()ed; if buflen==UIZ_MAX strlen() is called unless buf
1969 * is NULL; buf may be NULL if buflen is 0 */
1970 FL struct str * n_str_assign_buf(struct str *self,
1971 char const *buf, uiz_t buflen SMALLOC_DEBUG_ARGS);
1972 #define n_str_assign(S, T) n_str_assign_buf(S, (T)->s, (T)->l)
1973 #define n_str_assign_cp(S, CP) n_str_assign_buf(S, CP, UIZ_MAX)
1975 /* *self->s* is srealloc()ed, *self->l* incremented; if buflen==UIZ_MAX
1976 * strlen() is called unless buf is NULL; buf may be NULL if buflen is 0 */
1977 FL struct str * n_str_add_buf(struct str *self, char const *buf, uiz_t buflen
1978 SMALLOC_DEBUG_ARGS);
1979 #define n_str_add(S, T) n_str_add_buf(S, (T)->s, (T)->l)
1980 #define n_str_add_cp(S, CP) n_str_add_buf(S, CP, UIZ_MAX)
1982 #ifdef HAVE_MEMORY_DEBUG
1983 # define n_str_assign_buf(S,B,BL) n_str_assign_buf(S, B, BL, __FILE__, __LINE__)
1984 # define n_str_add_buf(S,B,BL) n_str_add_buf(S, B, BL, __FILE__, __LINE__)
1985 #endif
1987 /* struct n_string
1988 * May have NULL buffer, may contain embedded NULs */
1990 /* Lifetime */
1991 #define n_string_creat(S) \
1992 ((S)->s_dat = NULL, (S)->s_len = (S)->s_auto = (S)->s_size = 0, (S))
1993 #define n_string_creat_auto(S) \
1994 ((S)->s_dat = NULL, (S)->s_len = (S)->s_size = 0, (S)->s_auto = TRU1, (S))
1995 #define n_string_gut(S) ((S)->s_size != 0 ? (void)n_string_clear(S) : (void)0)
1997 /* Truncate to size, which must be LE current length */
1998 #define n_string_trunc(S,L) ((S)->s_len = (L), (S))
2000 /* Release buffer ownership */
2001 #define n_string_drop_ownership(S) \
2002 ((S)->s_dat = NULL, (S)->s_len = (S)->s_size = 0, (S))
2004 /* Release all memory */
2005 FL struct n_string *n_string_clear(struct n_string *self SMALLOC_DEBUG_ARGS);
2007 #ifdef HAVE_MEMORY_DEBUG
2008 # define n_string_clear(S) \
2009 ((S)->s_size != 0 ? (n_string_clear)(S, __FILE__, __LINE__) : (S))
2010 #else
2011 # define n_string_clear(S) ((S)->s_size != 0 ? (n_string_clear)(S) : (S))
2012 #endif
2014 /* Reserve room for noof additional bytes */
2015 FL struct n_string *n_string_reserve(struct n_string *self, size_t noof
2016 SMALLOC_DEBUG_ARGS);
2018 #ifdef HAVE_MEMORY_DEBUG
2019 # define n_string_reserve(S,N) (n_string_reserve)(S, N, __FILE__, __LINE__)
2020 #endif
2022 /* */
2023 FL struct n_string *n_string_push_buf(struct n_string *self, char const *buf,
2024 size_t buflen SMALLOC_DEBUG_ARGS);
2025 #define n_string_push(S, T) n_string_push_buf(S, (T)->s_len, (T)->s_dat)
2026 #define n_string_push_cp(S,CP) n_string_push_buf(S, CP, UIZ_MAX)
2027 FL struct n_string *n_string_push_c(struct n_string *self, char c
2028 SMALLOC_DEBUG_ARGS);
2030 #define n_string_assign(S,T) ((S)->s_len = 0, n_string_push(S, T))
2031 #define n_string_assign_cp(S,CP) ((S)->s_len = 0, n_string_push_cp(S, CP))
2032 #define n_string_assign_buf(S,B,BL) \
2033 ((S)->s_len = 0, n_string_push_buf(S, B, BL))
2035 #ifdef HAVE_MEMORY_DEBUG
2036 # define n_string_push_buf(S,B,BL) \
2037 n_string_push_buf(S, B, BL, __FILE__, __LINE__)
2038 # define n_string_push_c(S,C) n_string_push_c(S, C, __FILE__, __LINE__)
2039 #endif
2041 /* */
2042 FL struct n_string *n_string_unshift_buf(struct n_string *self, char const *buf,
2043 size_t buflen SMALLOC_DEBUG_ARGS);
2044 #define n_string_unshift(S, T) \
2045 n_string_unshift_buf(S, (T)->s_len, (T)->s_dat)
2046 #define n_string_unshift_cp(S,CP) \
2047 n_string_unshift_buf(S, CP, UIZ_MAX)
2048 FL struct n_string *n_string_unshift_c(struct n_string *self, char c
2049 SMALLOC_DEBUG_ARGS);
2051 #ifdef HAVE_MEMORY_DEBUG
2052 # define n_string_unshift_buf(S,B,BL) \
2053 n_string_unshift_buf(S, B, BL, __FILE__, __LINE__)
2054 # define n_string_unshift_c(S,C) n_string_unshift_c(S, C, __FILE__, __LINE__)
2055 #endif
2057 /* Ensure self has a - NUL terminated - buffer, and return that.
2058 * The latter may return the pointer to an internal empty RODATA instead */
2059 FL char * n_string_cp(struct n_string *self SMALLOC_DEBUG_ARGS);
2060 FL char const *n_string_cp_const(struct n_string const *self);
2062 #ifdef HAVE_MEMORY_DEBUG
2063 # define n_string_cp(S) n_string_cp(S, __FILE__, __LINE__)
2064 #endif
2066 #ifdef HAVE_INLINE
2067 n_INLINE struct n_string *
2068 (n_string_creat)(struct n_string *self){
2069 return n_string_creat(self);
2071 # undef n_string_creat
2073 n_INLINE struct n_string *
2074 (n_string_creat_auto)(struct n_string *self){
2075 return n_string_creat_auto(self);
2077 # undef n_string_creat_auto
2079 n_INLINE void
2080 (n_string_gut)(struct n_string *self){
2081 n_string_gut(self);
2083 # undef n_string_gut
2085 n_INLINE struct n_string *
2086 (n_string_trunc)(struct n_string *self, size_t l){
2087 return n_string_trunc(self, l);
2089 # undef n_string_trunc
2091 n_INLINE struct n_string *
2092 (n_string_drop_ownership)(struct n_string *self){
2093 return n_string_drop_ownership(self);
2095 # undef n_string_drop_ownership
2096 #endif /* HAVE_INLINE */
2098 /* UTF-8 stuff */
2100 /* ..and update arguments to point after range; returns UI32_MAX on error, in
2101 * which case the arguments will have been stepped one byte */
2102 #ifdef HAVE_NATCH_CHAR
2103 FL ui32_t n_utf8_to_utf32(char const **bdat, size_t *blen);
2104 #endif
2106 /* buf must be large enough also for NUL, it's new length will be returned */
2107 #ifdef HAVE_FILTER_HTML_TAGSOUP
2108 FL size_t n_utf32_to_utf8(ui32_t c, char *buf);
2109 #endif
2111 /* Our iconv(3) wrappers */
2113 #ifdef HAVE_ICONV
2114 FL iconv_t n_iconv_open(char const *tocode, char const *fromcode);
2115 /* If *cd* == *iconvd*, assigns -1 to the latter */
2116 FL void n_iconv_close(iconv_t cd);
2118 /* Reset encoding state */
2119 FL void n_iconv_reset(iconv_t cd);
2121 /* iconv(3), but return *errno* or 0; *skipilseq* forces step over invalid byte
2122 * sequences; likewise iconv_str(), but which auto-grows on E2BIG errors; *in*
2123 * and *in_rest_or_null* may be the same object.
2124 * Note: EINVAL (incomplete sequence at end of input) is NOT handled, so the
2125 * replacement character must be added manually if that happens at EOF! */
2126 FL int n_iconv_buf(iconv_t cd, char const **inb, size_t *inbleft,
2127 char **outb, size_t *outbleft, bool_t skipilseq);
2128 FL int n_iconv_str(iconv_t icp, struct str *out, struct str const *in,
2129 struct str *in_rest_or_null, bool_t skipilseq);
2130 #endif
2133 * termcap.c
2134 * This is a little bit hairy since it provides some stuff even if HAVE_TERMCAP
2135 * is false due to encapsulation desire
2138 #ifdef n_HAVE_TCAP
2139 /* termcap(3) / xy lifetime handling -- only called if we're OPT_INTERACTIVE
2140 * but not doing something in OPT_QUICKRUN_MASK */
2141 FL void n_termcap_init(void);
2142 FL void n_termcap_destroy(void);
2144 /* enter_ca_mode / enable keypad (both if possible).
2145 * TODO When complete is not set we won't enter_ca_mode, for example: we don't
2146 * TODO want a complete screen clearance after $PAGER returned after displaying
2147 * TODO a mail, because otherwise the screen would look differently for normal
2148 * TODO stdout display messages. Etc. */
2149 # ifdef HAVE_TERMCAP
2150 FL void n_termcap_resume(bool_t complete);
2151 FL void n_termcap_suspend(bool_t complete);
2153 # define n_TERMCAP_RESUME(CPL) n_termcap_resume(CPL)
2154 # define n_TERMCAP_SUSPEND(CPL) n_termcap_suspend(CPL)
2155 # else
2156 # define n_TERMCAP_RESUME(CPL)
2157 # define n_TERMCAP_SUSPEND(CPL)
2158 # endif
2160 /* Command multiplexer, returns FAL0 on I/O error, TRU1 on success and TRUM1
2161 * for commands which are not available and have no builtin fallback.
2162 * For query options the return represents a true value and -1 error.
2163 * Will return FAL0 directly unless we've been initialized.
2164 * By convention unused argument slots are given as -1 */
2165 FL ssize_t n_termcap_cmd(enum n_termcap_cmd cmd, ssize_t a1, ssize_t a2);
2166 # define n_termcap_cmdx(CMD) n_termcap_cmd(CMD, -1, -1)
2168 /* Query multiplexer. If query is n__TERMCAP_QUERY_MAX then
2169 * tvp->tv_data.tvd_string must contain the name of the query to look up; this
2170 * is used to lookup just about *any* (string) capability.
2171 * Returns TRU1 on success and TRUM1 for queries for which a builtin default
2172 * is returned; FAL0 is returned on non-availability */
2173 FL bool_t n_termcap_query(enum n_termcap_query query,
2174 struct n_termcap_value *tvp);
2176 /* Get a n_termcap_query for name or -1 if it is not known, and -2 if
2177 * type wasn't _NONE and the type doesn't match. */
2178 # ifdef HAVE_KEY_BINDINGS
2179 FL si32_t n_termcap_query_for_name(char const *name,
2180 enum n_termcap_captype type);
2181 FL char const *n_termcap_name_of_query(enum n_termcap_query query);
2182 # endif
2183 #endif /* n_HAVE_TCAP */
2186 * thread.c
2189 /* */
2190 FL int c_thread(void *vp);
2192 /* */
2193 FL int c_unthread(void *vp);
2195 /* */
2196 FL struct message * next_in_thread(struct message *mp);
2197 FL struct message * prev_in_thread(struct message *mp);
2198 FL struct message * this_in_thread(struct message *mp, long n);
2200 /* Sorted mode is internally just a variant of threaded mode with all m_parent
2201 * and m_child links being NULL */
2202 FL int c_sort(void *vp);
2204 /* */
2205 FL int c_collapse(void *v);
2206 FL int c_uncollapse(void *v);
2208 /* */
2209 FL void uncollapse1(struct message *mp, int always);
2212 * tty.c
2215 /* Return wether user says yes, on STDIN if interactive.
2216 * Uses noninteract_default, the return value for non-interactive use cases,
2217 * as a hint for boolify() and chooses the yes/no string to append to prompt
2218 * accordingly. If prompt is NULL "Continue" is used instead.
2219 * Handles+reraises SIGINT */
2220 FL bool_t getapproval(char const *prompt, bool_t noninteract_default);
2222 #ifdef HAVE_SOCKETS
2223 /* Get a password the expected way, return termios_state.ts_linebuf on
2224 * success or NULL on error */
2225 FL char * getuser(char const *query);
2227 /* Get a password the expected way, return termios_state.ts_linebuf on
2228 * success or NULL on error. SIGINT is temporarily blocked, *not* reraised.
2229 * termios_state_reset() (def.h) must be called anyway */
2230 FL char * getpassword(char const *query);
2231 #endif
2233 /* Overall interactive terminal life cycle for command line editor library */
2234 #if defined HAVE_READLINE
2235 # define TTY_WANTS_SIGWINCH
2236 #endif
2237 FL void n_tty_init(void);
2238 FL void n_tty_destroy(void);
2240 /* Rather for main.c / SIGWINCH interaction only */
2241 FL void n_tty_signal(int sig);
2243 /* Read a line after printing prompt (if set and non-empty).
2244 * If n>0 assumes that *linebuf has n bytes of default content */
2245 FL int n_tty_readline(char const *prompt, char **linebuf,
2246 size_t *linesize, size_t n SMALLOC_DEBUG_ARGS);
2247 #ifdef HAVE_MEMORY_DEBUG
2248 # define n_tty_readline(A,B,C,D) (n_tty_readline)(A, B, C, D, __FILE__,__LINE__)
2249 #endif
2251 /* Add a line (most likely as returned by n_tty_readline()) to the history.
2252 * Wether an entry added for real depends on the isgabby / *history-gabby*
2253 * relation, and / or wether s is non-empty and doesn't begin with U+0020 */
2254 FL void n_tty_addhist(char const *s, bool_t isgabby);
2256 #ifdef HAVE_HISTORY
2257 FL int c_history(void *v);
2258 #else
2259 # define c_history c_cmdnotsupp
2260 #endif
2263 * ui_str.c
2266 /* Detect visual width of (blen bytes of) buf, return (size_t)-1 on error.
2267 * Give blen UIZ_MAX to strlen(). buf may be NULL if (final) blen is 0 */
2268 FL size_t field_detect_width(char const *buf, size_t blen);
2270 /* Check (multibyte-safe) how many bytes of buf (which is blen byts) can be
2271 * safely placed in a buffer (field width) of maxlen bytes */
2272 FL size_t field_detect_clip(size_t maxlen, char const *buf, size_t blen);
2274 /* Put maximally maxlen bytes of buf, a buffer of blen bytes, into store,
2275 * taking into account multibyte code point boundaries and possibly
2276 * encapsulating in bidi_info toggles as necessary */
2277 FL size_t field_put_bidi_clip(char *store, size_t maxlen, char const *buf,
2278 size_t blen);
2280 /* Place cp in a salloc()ed buffer, column-aligned; for header display only */
2281 FL char * colalign(char const *cp, int col, int fill,
2282 int *cols_decr_used_or_null);
2284 /* Convert a string to a displayable one;
2285 * prstr() returns the result savestr()d, prout() writes it */
2286 FL void makeprint(struct str const *in, struct str *out);
2287 FL size_t delctrl(char *cp, size_t len);
2288 FL char * prstr(char const *s);
2289 FL int prout(char const *s, size_t sz, FILE *fp);
2291 /* Print out a Unicode character or a substitute for it, return 0 on error or
2292 * wcwidth() (or 1) on success */
2293 FL size_t putuc(int u, int c, FILE *fp);
2295 /* Check wether bidirectional info maybe needed for blen bytes of bdat */
2296 FL bool_t bidi_info_needed(char const *bdat, size_t blen);
2298 /* Create bidirectional text encapsulation information; without HAVE_NATCH_CHAR
2299 * the strings are always empty */
2300 FL void bidi_info_create(struct bidi_info *bip);
2303 * urlcrecry.c
2306 /* URL en- and decoding according to (enough of) RFC 3986 (RFC 1738).
2307 * These return a newly salloc()ated result */
2308 FL char * urlxenc(char const *cp, bool_t ispath SALLOC_DEBUG_ARGS);
2309 FL char * urlxdec(char const *cp SALLOC_DEBUG_ARGS);
2310 #ifdef HAVE_MEMORY_DEBUG
2311 # define urlxenc(CP,P) urlxenc(CP, P, __FILE__, __LINE__)
2312 # define urlxdec(CP) urlxdec(CP, __FILE__, __LINE__)
2313 #endif
2315 #ifdef HAVE_SOCKETS
2316 /* Return port of urlp->url_proto (and set irv_or_null), or NULL if unknown */
2317 FL char const * url_servbyname(struct url const *urlp, ui16_t *irv_or_null);
2319 /* Parse data, which must meet the criteria of the protocol cproto, and fill
2320 * in the URL structure urlp (URL rather according to RFC 3986) */
2321 FL bool_t url_parse(struct url *urlp, enum cproto cproto,
2322 char const *data);
2324 /* Zero ccp and lookup credentials for communicating with urlp.
2325 * Return wether credentials are available and valid (for chosen auth) */
2326 FL bool_t ccred_lookup(struct ccred *ccp, struct url *urlp);
2327 FL bool_t ccred_lookup_old(struct ccred *ccp, enum cproto cproto,
2328 char const *addr);
2329 #endif /* HAVE_SOCKETS */
2331 /* `netrc' */
2332 #ifdef HAVE_NETRC
2333 FL int c_netrc(void *v);
2334 #else
2335 # define c_netrc c_cmdnotsupp
2336 #endif
2338 /* MD5 (RFC 1321) related facilities */
2339 #ifdef HAVE_MD5
2340 # ifdef HAVE_OPENSSL_MD5
2341 # define md5_ctx MD5_CTX
2342 # define md5_init MD5_Init
2343 # define md5_update MD5_Update
2344 # define md5_final MD5_Final
2345 # else
2346 /* The function definitions are instantiated in main.c */
2347 # include "rfc1321.h"
2348 # endif
2350 /* Store the MD5 checksum as a hexadecimal string in *hex*, *not* terminated,
2351 * using lowercase ASCII letters as defined in RFC 2195 */
2352 # define MD5TOHEX_SIZE 32
2353 FL char * md5tohex(char hex[MD5TOHEX_SIZE], void const *vp);
2355 /* CRAM-MD5 encode the *user* / *pass* / *b64* combo */
2356 FL char * cram_md5_string(struct str const *user, struct str const *pass,
2357 char const *b64);
2359 /* RFC 2104: HMAC: Keyed-Hashing for Message Authentication.
2360 * unsigned char *text: pointer to data stream
2361 * int text_len : length of data stream
2362 * unsigned char *key : pointer to authentication key
2363 * int key_len : length of authentication key
2364 * caddr_t digest : caller digest to be filled in */
2365 FL void hmac_md5(unsigned char *text, int text_len, unsigned char *key,
2366 int key_len, void *digest);
2367 #endif /* HAVE_MD5 */
2369 #ifndef HAVE_AMALGAMATION
2370 # undef FL
2371 # define FL
2372 #endif
2374 /* s-it-mode */