3 * fmt_scan.c -- format string interpretation
10 #include <h/fmt_scan.h>
11 #include <zotnet/tws/tws.h>
12 #include <h/fmt_compile.h>
16 extern char *formataddr (); /* hook for custom address formatting */
19 struct msgs *fmt_current_folder; /* current folder (set by main program) */
22 extern int fmt_norm; /* defined in sbr/fmt_def.c = AD_NAME */
23 struct mailname fmt_mnull;
28 static int match (char *, char *);
29 static char *get_x400_friendly (char *, char *, int);
30 static int get_x400_comp (char *, char *, char *, int);
34 * test if string "sub" appears anywhere in
35 * string "str" (case insensitive).
39 match (char *str, char *sub)
46 c1 = (isalpha(c1) && isupper(c1)) ? tolower(c1) : c1;
47 while ((c2 = *str++) && c1 != ((isalpha(c2) && isupper(c2)) ? tolower(c2) : c2))
51 s1 = sub + 1; s2 = str;
52 while ((c1 = *s1++) && ((isalpha(c1) && isupper(c1)) ? tolower(c1) : c1) == ((isalpha(c2 =*s2++) && isupper(c2)) ? tolower(c2) : c2))
59 while ((c2 = *str++) && (c1 | 040) != (c2 | 040))
63 s1 = sub + 1; s2 = str;
64 while ((c1 = *s1++) && (c1 | 040) == (*s2++ | 040))
74 * macros to format data
77 #define PUTDF(cp, num, wid, fill)\
85 *--sp = (i % 10) + '0';\
87 } while (i > 0 && sp > cp);\
90 else if ((num) < 0 && sp > cp)\
97 #define PUTD(cp, num)\
99 if ((i = (num)) == 0)\
102 if ((i = (num)) < 0) {\
109 while (cp < ep && c > 1) {\
111 *cp++ = (i / c) + '0';\
118 #define PUTSF(cp, str, wid, fill) {\
120 if ((i = (wid)) < 0) {\
130 while( --i >= c && cp < ep)\
135 while ((c = (unsigned char) *sp) && (iscntrl(c) || isspace(c)))\
138 while ((c = (unsigned char) *sp++) && --i >= 0 && cp < ep)\
142 while ((c = (unsigned char) *sp) && (iscntrl(c) || isspace(c)))\
148 while( --i >= 0 && cp < ep)\
152 #define PUTS(cp, str) {\
154 while ((c = (unsigned char) *sp) && (iscntrl(c) || isspace(c)))\
156 while((c = (unsigned char) *sp++) && cp < ep)\
160 while ((c = (unsigned char) *sp) && (iscntrl(c) || isspace(c)))\
168 #define PUTSF(cp, str, wid, fill) {\
170 if ((i = (wid)) < 0) {\
180 while( --i >= c && cp < ep)\
185 while ((c = *sp) && c <= 32)\
188 while ((c = *sp++) && --i >= 0 && cp < ep)\
192 while ((c = *sp) && c <= 32)\
198 while( --i >= 0 && cp < ep)\
202 #define PUTS(cp, str) {\
204 while ((c = *sp) && c <= 32)\
206 while( (c = *sp++) && cp < ep)\
210 while ( (c = *sp) && c <= 32 )\
220 static char *lmonth[] = { "January", "February","March", "April",
221 "May", "June", "July", "August",
222 "September","October", "November","December" };
225 get_x400_friendly (char *mbox, char *buffer, int buffer_len)
227 char given[BUFSIZ], surname[BUFSIZ];
236 if (get_x400_comp (mbox, "/PN=", buffer, buffer_len)) {
237 for (mbox = buffer; (mbox = strchr(mbox, '.')); )
243 if (!get_x400_comp (mbox, "/S=", surname, sizeof(surname)))
246 if (get_x400_comp (mbox, "/G=", given, sizeof(given)))
247 snprintf (buffer, buffer_len, "%s %s", given, surname);
249 snprintf (buffer, buffer_len, "%s", surname);
255 get_x400_comp (char *mbox, char *key, char *buffer, int buffer_len)
260 if ((idx = stringdex (key, mbox)) < 0
261 || !(cp = strchr(mbox += idx + strlen (key), '/')))
264 snprintf (buffer, buffer_len, "%*.*s", cp - mbox, cp - mbox, mbox);
269 fmt_scan (struct format *format, char *scanl, int width, int *dat)
272 char *savestr, *str = NULL;
273 char buffer[BUFSIZ], buffer2[BUFSIZ];
283 ep = scanl + width - 1;
287 switch (fmt->f_type) {
290 PUTS (cp, fmt->f_comp->c_text);
293 PUTSF (cp, fmt->f_comp->c_text, fmt->f_width, fmt->f_fill);
298 while( (c = *sp++) && cp < ep)
307 ljust++; /* XXX should do something with this */
309 while( (c = *sp++) && --i >= 0 && cp < ep)
311 while( --i >= 0 && cp < ep)
319 PUTSF (cp, str, fmt->f_width, fmt->f_fill);
322 adios (NULL, "internal error (FT_STRFW)");
328 PUTDF (cp, value, fmt->f_width, fmt->f_fill);
339 if (!(value = (str && *str))) {
346 if (!(value = (str == NULL || *str == 0))) {
353 if (value != fmt->f_value) {
360 if (value == fmt->f_value) {
367 if (value <= fmt->f_value) {
374 if (!(value = (str && match (str, fmt->f_text)))) {
382 value = match (str, fmt->f_text);
388 if (!(value = (str && uprf (str, fmt->f_text)))) {
395 value = uprf (str, fmt->f_text);
399 value = (str != NULL && *str != 0);
403 value = (str == NULL || *str == 0);
407 value = (fmt->f_value == value);
411 value = (fmt->f_value != value);
415 value = (fmt->f_value > value);
426 str = fmt->f_comp->c_text;
432 if (!(str = getenv (fmt->f_text)))
436 if (!(str = context_find (fmt->f_text)))
440 case FT_LS_DECODECOMP:
441 if (decode_rfc2047(fmt->f_comp->c_text, buffer2))
444 str = fmt->f_comp->c_text;
448 if (str && decode_rfc2047(str, buffer2))
456 strncpy(buffer, str, sizeof(buffer));
458 while (isspace(*str))
461 if ((i = fmt->f_width) < 0) {
466 if (!ljust && i > 0 && strlen(str) > i)
469 xp += strlen(str) - 1;
470 while (xp > str && isspace(*xp))
472 if (ljust && i > 0 && strlen(str) > i)
473 str += strlen(str) - i;
478 value = fmt->f_comp->c_flags;
481 value = (comp = fmt->f_comp)->c_text ? atoi(comp->c_text) : 0;
484 value = fmt->f_value;
487 value = dat[fmt->f_value];
492 case FT_LV_CHAR_LEFT:
493 value = width - (cp - scanl);
496 value += fmt->f_value;
499 value = fmt->f_value - value;
503 value = value / fmt->f_value;
509 value = value % fmt->f_value;
518 value = fmt->f_comp->c_tws->tw_sec;
521 value = fmt->f_comp->c_tws->tw_min;
524 value = fmt->f_comp->c_tws->tw_hour;
527 value = fmt->f_comp->c_tws->tw_mday;
530 value = fmt->f_comp->c_tws->tw_mon + 1;
533 str = tw_moty[fmt->f_comp->c_tws->tw_mon];
536 str = lmonth[fmt->f_comp->c_tws->tw_mon];
539 str = dtwszone (fmt->f_comp->c_tws);
542 value = fmt->f_comp->c_tws->tw_year;
545 if (!(((tws = fmt->f_comp->c_tws)->tw_flags) & (TW_SEXP|TW_SIMP)))
547 value = tws->tw_wday;
550 if (!(((tws = fmt->f_comp->c_tws)->tw_flags) & (TW_SEXP|TW_SIMP)))
552 str = tw_dotw[tws->tw_wday];
555 if (!(((tws = fmt->f_comp->c_tws)->tw_flags) & (TW_SEXP|TW_SIMP)))
557 str = tw_ldotw[tws->tw_wday];
560 value = fmt->f_comp->c_tws->tw_yday;
563 value = fmt->f_comp->c_tws->tw_zone;
566 if ((value = fmt->f_comp->c_tws->tw_clock) == 0)
567 value = dmktime(fmt->f_comp->c_tws);
570 if ((value = fmt->f_comp->c_tws->tw_clock) == 0)
571 value = dmktime(fmt->f_comp->c_tws);
572 value = time((time_t *) 0) - value;
575 if (!(((tws = fmt->f_comp->c_tws)->tw_flags) & (TW_SEXP|TW_SIMP)))
577 switch (fmt->f_comp->c_tws->tw_flags & TW_SDAY) {
586 if ((fmt->f_comp->c_tws->tw_flags & TW_SZONE) == TW_SZEXP)
592 value = fmt->f_comp->c_tws->tw_flags & TW_DST;
595 str = dasctime (fmt->f_comp->c_tws , TW_ZONE);
598 str = dasctime (fmt->f_comp->c_tws, TW_NULL);
602 str = fmt->f_comp->c_mn->m_pers;
605 str = fmt->f_comp->c_mn->m_mbox;
608 str = fmt->f_comp->c_mn->m_host;
611 str = fmt->f_comp->c_mn->m_path;
614 str = fmt->f_comp->c_mn->m_gname;
617 str = fmt->f_comp->c_mn->m_note;
620 str = adrformat( fmt->f_comp->c_mn );
623 value = fmt->f_comp->c_mn->m_type;
626 value = fmt->f_comp->c_mn->m_ingrp;
629 value = fmt->f_comp->c_mn->m_nohost;
633 if ((mn = fmt->f_comp->c_mn) == &fmt_mnull) {
634 str = fmt->f_comp->c_text;
637 if (fmt->f_type == FT_LS_ADDR)
639 if ((str = mn->m_pers) == NULL) {
640 if ((str = mn->m_note)) {
641 strncpy (buffer, str, sizeof(buffer));
645 sp = str + strlen(str) - 1;
654 } else if (!(str = get_x400_friendly (mn->m_mbox,
655 buffer, sizeof(buffer)))) {
657 switch (mn->m_type) {
662 snprintf (buffer, sizeof(buffer), "%s!%s",
663 mn->m_host, mn->m_mbox);
668 snprintf (buffer, sizeof(buffer), "%s@%s",
669 mn->m_mbox, mn->m_host);
682 if ((t = comp->c_tws->tw_clock) == 0)
683 t = dmktime(comp->c_tws);
684 tws = dlocaltime(&t);
690 if ((t = comp->c_tws->tw_clock) == 0)
691 t = dmktime(comp->c_tws);
698 if ((sp = comp->c_text) && (tws = dparsetime(sp))) {
701 } else if (comp->c_flags >= 0) {
702 memset ((char *) comp->c_tws, 0, sizeof *comp->c_tws);
708 /* hook for custom address list formatting (see replsbr.c) */
709 str = formataddr (savestr, str);
713 /* output the str register as an address component,
714 * splitting it into multiple lines if necessary. The
715 * value reg. contains the max line length. The lit.
716 * field may contain a string to prepend to the result
721 int indent, wid, len;
727 indent = strlen (sp);
729 while( (c = *sp++) && cp < ep)
732 /* try to break at a comma; failing that, break at a
735 lastb = 0; sp = lp + wid;
736 while (sp > lp && (c = *--sp) != ',') {
737 if (! lastb && isspace(c))
741 if (! (sp = lastb)) {
743 while (*sp && *sp != ',' && !isspace(*sp))
750 while (cp < ep && lp <= sp)
753 for (i=indent; cp < ep && i > 0; i--)
760 for (i=indent; cp < ep && i > 0; i--)
770 if (comp->c_mn != &fmt_mnull)
772 if ((sp = comp->c_text) && (sp = getname(sp)) &&
773 (mn = getm (sp, NULL, 0, fmt_norm, NULL))) {
778 while (getname("")) /* XXX */
780 comp->c_mn = &fmt_mnull;
786 * if there's no component, we say true. Otherwise we
787 * say "true" only if we can parse the address and it
788 * matches one of our addresses.
791 if (comp->c_mn != &fmt_mnull)
793 if ((sp = comp->c_text) && (sp = getname(sp)) &&
794 (mn = getm (sp, NULL, 0, AD_NAME, NULL))) {
796 comp->c_flags = ismymbox(mn);
797 while ((sp = getname(sp)))
798 if (comp->c_flags == 0 &&
799 (mn = getm (sp, NULL, 0, AD_NAME, NULL)))
800 comp->c_flags |= ismymbox(mn);
802 while (getname("")) /* XXX */
804 comp->c_flags = (comp->c_text == 0);
805 comp->c_mn = &fmt_mnull;
811 /* If we're working on a folder (as opposed to a file), add the
812 * current msg to sequence given in literal field. Don't
813 * disturb string or value registers.
815 if (fmt_current_folder)
816 seq_addmsg(fmt_current_folder, fmt->f_text, dat[0], -1);
827 return ((struct format *)0);
831 while (fmt->f_type != FT_DONE)
836 return (fmt->f_value ? ++fmt : (struct format *) 0);