git.marmaro.de Git - mmh/blob - sbr/fmt_compile.c

   1 /*
   2 ** fmt_compile.c -- "compile" format strings for fmt_scan
   3 **
   4 ** This code is Copyright (c) 2002, by the authors of nmh.  See the
   5 ** COPYRIGHT file in the root directory of the nmh distribution for
   6 ** complete copyright information.
   7 */
   8
   9 #include <h/mh.h>
  10 #include <h/addrsbr.h>
  11 #include <h/tws.h>
  12 #include <h/fmt_scan.h>
  13 #include <h/fmt_compile.h>
  14
  15 #ifdef TIME_WITH_SYS_TIME
  16 # include <sys/time.h>
  17 # include <time.h>
  18 #else
  19 # ifdef TM_IN_SYS_TIME
  20 #  include <sys/time.h>
  21 # else
  22 #  include <time.h>
  23 # endif
  24 #endif
  25
  26 /*
  27 ** hash table for deciding if a component is "interesting"
  28 */
  29 struct comp *wantcomp[128];
  30
  31 static struct format *formatvec;  /* array to hold formats */
  32 static struct format *next_fp;    /* next free format slot */
  33 static struct format *fp;         /* current format slot   */
  34 static struct comp *cm;           /* most recent comp ref  */
  35 static struct ftable *ftbl;       /* most recent func ref  */
  36 static int ncomp;
  37 static int infunction;            /* function nesting cnt  */
  38
  39 extern struct mailname fmt_mnull;
  40
  41 /* ftable->type (argument type) */
  42 #define TF_COMP    0  /* component expected                 */
  43 #define TF_NUM     1  /* number expected                    */
  44 #define TF_STR     2  /* string expected                    */
  45 #define TF_EXPR    3  /* component or func. expected        */
  46 #define TF_NONE    4  /* no argument                        */
  47 #define TF_MYBOX   5  /* special - get current user's mbox  */
  48 #define TF_NOW     6  /* special - get current unix time    */
  49 #define TF_EXPR_SV 7  /* like expr but save current str reg */
  50 #define TF_NOP     8  /* like expr but no result            */
  51
  52 /* ftable->flags */
  53 /*
  54 ** NB that TFL_PUTS is also used to decide whether the test
  55 ** in a "%<(function)..." should be a string or numeric one.
  56 */
  57 #define TFL_PUTS   1  /* implicit putstr if top level */
  58 #define TFL_PUTN   2  /* implicit putnum if top level */
  59
  60 struct ftable {
  61         char *name;  /* function name */
  62         char type;   /* argument type */
  63         char f_type; /* fmt type */
  64         char extra;  /* arg. type dependent extra info */
  65         char flags;
  66 };
  67
  68 static struct ftable functable[] = {
  69         { "nonzero",    TF_EXPR,  FT_V_NE,  FT_IF_V_NE,  0 },
  70         { "zero",       TF_EXPR,  FT_V_EQ,  FT_IF_V_EQ,  0 },
  71         { "eq",         TF_NUM, FT_V_EQ, FT_IF_V_EQ, 0 },
  72         { "ne",         TF_NUM, FT_V_NE, FT_IF_V_NE, 0 },
  73         { "gt",         TF_NUM, FT_V_GT, FT_IF_V_GT, 0 },
  74         { "null",       TF_EXPR, FT_S_NULL, FT_IF_S_NULL, 0 },
  75         { "nonnull",    TF_EXPR, FT_S_NONNULL, FT_IF_S, 0 },
  76         { "match",      TF_STR, FT_V_MATCH, FT_IF_MATCH, 0 },
  77         { "amatch",     TF_STR, FT_V_AMATCH, FT_IF_AMATCH, 0 },
  78
  79         { "putstr",     TF_EXPR, FT_STR, 0, 0 },
  80         { "putstrf",    TF_EXPR, FT_STRF, 0, 0 },
  81         { "putnum",     TF_EXPR, FT_NUM, 0, 0 },
  82         { "putnumf",    TF_EXPR, FT_NUMF, 0, 0 },
  83         { "putaddr",    TF_STR, FT_PUTADDR, 0, 0 },
  84         { "void",       TF_NOP, 0, 0, 0 },
  85
  86         { "comp",       TF_COMP, FT_LS_COMP, 0, TFL_PUTS },
  87         { "lit",        TF_STR, FT_LS_LIT, 0, TFL_PUTS },
  88         { "getenv",     TF_STR, FT_LS_GETENV, 0, TFL_PUTS },
  89         { "profile",    TF_STR, FT_LS_CFIND, 0, TFL_PUTS },
  90         { "decodecomp", TF_COMP, FT_LS_DECODECOMP,  0, TFL_PUTS },
  91         { "decode",     TF_EXPR, FT_LS_DECODE, 0, TFL_PUTS },
  92         { "trim",       TF_EXPR, FT_LS_TRIM, 0, 0 },
  93         { "compval",    TF_COMP, FT_LV_COMP, 0, TFL_PUTN },
  94         { "compflag",   TF_COMP, FT_LV_COMPFLAG, 0, TFL_PUTN },
  95         { "num",        TF_NUM, FT_LV_LIT, 0, TFL_PUTN },
  96         { "msg",        TF_NONE, FT_LV_DAT, 0, TFL_PUTN },
  97         { "cur",        TF_NONE, FT_LV_DAT, 1, TFL_PUTN },
  98         { "size",       TF_NONE, FT_LV_DAT, 2, TFL_PUTN },
  99         { "width",      TF_NONE, FT_LV_DAT, 3, TFL_PUTN },
 100         { "unseen",     TF_NONE, FT_LV_DAT, 4, TFL_PUTN },
 101         { "dat",        TF_NUM, FT_LV_DAT, 0, TFL_PUTN },
 102         { "strlen",     TF_NONE, FT_LV_STRLEN, 0, TFL_PUTN },
 103         { "me",         TF_MYBOX, FT_LS_LIT, 0, TFL_PUTS },
 104         { "plus",       TF_NUM, FT_LV_PLUS_L, 0, TFL_PUTN },
 105         { "minus",      TF_NUM, FT_LV_MINUS_L, 0, TFL_PUTN },
 106         { "divide",     TF_NUM, FT_LV_DIVIDE_L, 0, TFL_PUTN },
 107         { "modulo",     TF_NUM, FT_LV_MODULO_L, 0, TFL_PUTN },
 108         { "charleft",   TF_NONE, FT_LV_CHAR_LEFT,  0, TFL_PUTN },
 109         { "timenow",    TF_NOW, FT_LV_LIT, 0, TFL_PUTN },
 110
 111         { "month",      TF_COMP, FT_LS_MONTH, FT_PARSEDATE, TFL_PUTS },
 112         { "lmonth",     TF_COMP, FT_LS_LMONTH, FT_PARSEDATE, TFL_PUTS },
 113         { "tzone",      TF_COMP, FT_LS_ZONE, FT_PARSEDATE, TFL_PUTS },
 114         { "day",        TF_COMP, FT_LS_DAY, FT_PARSEDATE, TFL_PUTS },
 115         { "weekday",    TF_COMP, FT_LS_WEEKDAY, FT_PARSEDATE, TFL_PUTS },
 116         { "tws",        TF_COMP, FT_LS_822DATE, FT_PARSEDATE, TFL_PUTS },
 117         { "sec",        TF_COMP, FT_LV_SEC, FT_PARSEDATE, TFL_PUTN },
 118         { "min",        TF_COMP, FT_LV_MIN, FT_PARSEDATE, TFL_PUTN },
 119         { "hour",       TF_COMP, FT_LV_HOUR, FT_PARSEDATE, TFL_PUTN },
 120         { "mday",       TF_COMP, FT_LV_MDAY, FT_PARSEDATE, TFL_PUTN },
 121         { "mon",        TF_COMP, FT_LV_MON, FT_PARSEDATE, TFL_PUTN },
 122         { "year",       TF_COMP, FT_LV_YEAR, FT_PARSEDATE, TFL_PUTN },
 123         { "yday",       TF_COMP, FT_LV_YDAY, FT_PARSEDATE, TFL_PUTN },
 124         { "wday",       TF_COMP, FT_LV_WDAY, FT_PARSEDATE, TFL_PUTN },
 125         { "zone",       TF_COMP, FT_LV_ZONE, FT_PARSEDATE, TFL_PUTN },
 126         { "clock",      TF_COMP, FT_LV_CLOCK, FT_PARSEDATE, TFL_PUTN },
 127         { "rclock",     TF_COMP, FT_LV_RCLOCK, FT_PARSEDATE, TFL_PUTN },
 128         { "sday",       TF_COMP, FT_LV_DAYF, FT_PARSEDATE, TFL_PUTN },
 129         { "szone",      TF_COMP, FT_LV_ZONEF, FT_PARSEDATE, TFL_PUTN },
 130         { "dst",        TF_COMP, FT_LV_DST, FT_PARSEDATE, TFL_PUTN },
 131         { "pretty",     TF_COMP, FT_LS_PRETTY, FT_PARSEDATE, TFL_PUTS },
 132         { "nodate",     TF_COMP, FT_LV_COMPFLAG, FT_PARSEDATE, TFL_PUTN },
 133         { "date2local", TF_COMP, FT_LOCALDATE, FT_PARSEDATE, 0 },
 134         { "date2gmt",   TF_COMP, FT_GMTDATE, FT_PARSEDATE, 0 },
 135
 136         { "pers",       TF_COMP, FT_LS_PERS, FT_PARSEADDR, TFL_PUTS },
 137         { "mbox",       TF_COMP, FT_LS_MBOX, FT_PARSEADDR, TFL_PUTS },
 138         { "host",       TF_COMP, FT_LS_HOST, FT_PARSEADDR, TFL_PUTS },
 139         { "path",       TF_COMP, FT_LS_PATH, FT_PARSEADDR, TFL_PUTS },
 140         { "gname",      TF_COMP, FT_LS_GNAME, FT_PARSEADDR, TFL_PUTS },
 141         { "note",       TF_COMP, FT_LS_NOTE, FT_PARSEADDR, TFL_PUTS },
 142         { "addr",       TF_COMP, FT_LS_ADDR, FT_PARSEADDR, TFL_PUTS },
 143         { "proper",     TF_COMP, FT_LS_822ADDR, FT_PARSEADDR, TFL_PUTS },
 144         { "type",       TF_COMP, FT_LV_HOSTTYPE, FT_PARSEADDR, TFL_PUTN },
 145         { "ingrp",      TF_COMP, FT_LV_INGRPF, FT_PARSEADDR, TFL_PUTN },
 146         { "nohost",     TF_COMP, FT_LV_NOHOSTF, FT_PARSEADDR, TFL_PUTN },
 147         { "formataddr", TF_EXPR_SV, FT_FORMATADDR, FT_FORMATADDR, 0 },
 148         { "friendly",   TF_COMP,    FT_LS_FRIENDLY, FT_PARSEADDR, TFL_PUTS },
 149
 150         { "mymbox",     TF_COMP,    FT_LV_COMPFLAG, FT_MYMBOX, TFL_PUTN },
 151         { "addtoseq",   TF_STR,     FT_ADDTOSEQ, 0, 0 },
 152
 153         { "unquote",    TF_EXPR,    FT_LS_UNQUOTE, 0, TFL_PUTS},
 154
 155         { NULL,         0,          0, 0, 0 }
 156 };
 157
 158 /* Add new component to the hash table */
 159 #define NEWCOMP(cm,name) do { \
 160                 cm = ((struct comp *) calloc(1, sizeof (struct comp)));\
 161                 cm->c_name = name;\
 162                 ncomp++;\
 163                 i = CHASH(name);\
 164                 cm->c_next = wantcomp[i];\
 165                 wantcomp[i] = cm; \
 166         } while (0)
 167
 168 #define NEWFMT (next_fp++)
 169 #define NEW(type,fill,wid) do {\
 170                 fp=NEWFMT; fp->f_type=(type); fp->f_fill=(fill); fp->f_width=(wid); \
 171         } while (0)
 172
 173 /* Add (possibly new) component to the hash table */
 174 #define ADDC(name) do { \
 175                 FINDCOMP(cm, name);\
 176                 if (!cm) {\
 177                         NEWCOMP(cm,name);\
 178                 }\
 179                 fp->f_comp = cm; \
 180         } while (0)
 181
 182 #define LV(type, value)  do { NEW(type,0,0); fp->f_value = (value); } while (0)
 183 #define LS(type, str)  do { NEW(type,0,0); fp->f_text = (str); } while (0)
 184
 185 #define PUTCOMP(comp)  do { NEW(FT_COMP,0,0); ADDC(comp); } while (0)
 186 #define PUTLIT(str)  do { NEW(FT_LIT,0,0); fp->f_text = (str); } while (0)
 187 #define PUTC(c)  do { NEW(FT_CHAR,0,0); fp->f_char = (c); } while (0)
 188
 189 static char *format_string;
 190 static unsigned char *usr_fstring;  /* for CERROR */
 191
 192 #define CERROR(str) compile_error (str, cp)
 193
 194 /*
 195 ** external prototypes
 196 */
 197 extern char *getusername(void);
 198
 199 /*
 200 ** static prototypes
 201 */
 202 static struct ftable *lookup(char *);
 203 static void compile_error(char *, char *);
 204 static char *compile (char *);
 205 static char *do_spec(char *);
 206 static char *do_name(char *, int);
 207 static char *do_func(char *);
 208 static char *do_expr (char *, int);
 209 static char *do_loop(char *);
 210 static char *do_if(char *);
 211
 212
 213 static struct ftable *
 214 lookup(char *name)
 215 {
 216         register struct ftable *t = functable;
 217         register char *nm;
 218         register char c = *name;
 219
 220         while ((nm = t->name)) {
 221                 if (*nm == c && strcmp (nm, name) == 0)
 222                         return (ftbl = t);
 223
 224                 t++;
 225         }
 226         return (struct ftable *) 0;
 227 }
 228
 229
 230 static void
 231 compile_error(char *str, char *cp)
 232 {
 233         int i, errpos, errctx;
 234
 235         errpos = cp - format_string;
 236         errctx = errpos > 20 ? 20 : errpos;
 237         usr_fstring[errpos] = '\0';
 238
 239         for (i = errpos-errctx; i < errpos; i++) {
 240 #ifdef LOCALE
 241                 if (iscntrl(usr_fstring[i]))
 242 #else
 243                 if (usr_fstring[i] < 32)
 244 #endif
 245                         usr_fstring[i] = '_';
 246         }
 247
 248         advise(NULL, "\"%s\": format compile error - %s",
 249                    &usr_fstring[errpos-errctx], str);
 250         adios (NULL, "%*s", errctx+1, "^");
 251 }
 252
 253 /*
 254 ** Compile format string "fstring" into format list "fmt".
 255 ** Return the number of header components found in the format
 256 ** string.
 257 */
 258
 259 int
 260 fmt_compile(char *fstring, struct format **fmt)
 261 {
 262         register char *cp;
 263         int i;
 264
 265         if (format_string)
 266                 free (format_string);
 267         format_string = getcpy (fstring);
 268         usr_fstring = fstring;
 269
 270         /* init the component hash table. */
 271         for (i = 0; i < sizeof(wantcomp)/sizeof(wantcomp[0]); i++)
 272                 wantcomp[i] = 0;
 273
 274         memset((char *) &fmt_mnull, 0, sizeof(fmt_mnull));
 275
 276         /*
 277         ** it takes at least 4 char to generate one format so we
 278         ** allocate a worst-case format array using 1/4 the length
 279         ** of the format string.  We actually need twice this much
 280         ** to handle both pre-processing (e.g., address parsing) and
 281         ** normal processing.
 282         */
 283         i = strlen(fstring)/2 + 1;
 284         if (i == 1)
 285                 i++;
 286         next_fp = formatvec = (struct format *)calloc ((size_t) i,
 287                 sizeof(struct format));
 288         if (next_fp == NULL)
 289                 adios (NULL, "unable to allocate format storage");
 290
 291         ncomp = 0;
 292         infunction = 0;
 293
 294         cp = compile(format_string);
 295         if (*cp) {
 296                 CERROR("extra '%>', '%|' or '%?'");
 297         }
 298         LV(FT_DONE, 0);  /* really done */
 299         *fmt = formatvec;
 300
 301         return (ncomp);
 302 }
 303
 304 static char *
 305 compile (char *sp)
 306 {
 307         register char *cp = sp;
 308         register int  c;
 309
 310         for (;;) {
 311                 sp = cp;
 312                 while ((c = *cp) && c != '%')
 313                         cp++;
 314                 *cp = 0;
 315                 switch (cp-sp) {
 316                 case 0:
 317                         break;
 318                 case 1:
 319                         PUTC(*sp);
 320                         break;
 321                 default:
 322                         PUTLIT(sp);
 323                         break;
 324                 }
 325                 if (c == 0)
 326                         return (cp);
 327
 328                 switch (c = *++cp) {
 329                 case '%':
 330                         PUTC (*cp);
 331                         cp++;
 332                         break;
 333
 334                 case '|':
 335                 case '>':
 336                 case '?':
 337                 case ']':
 338                         return (cp);
 339
 340                 case '<':
 341                         cp = do_if(++cp);
 342                         break;
 343
 344                 case '[':  /* ] */
 345                         cp = do_loop(++cp);
 346                         break;
 347
 348                 case ';':  /* comment line */
 349                         cp++;
 350                         while ((c = *cp++) && c != '\n')
 351                                 continue;
 352                         break;
 353
 354                 default:
 355                         cp = do_spec(cp);
 356                         break;
 357                 }
 358         }
 359 }
 360
 361
 362 static char *
 363 do_spec(char *sp)
 364 {
 365         register char *cp = sp;
 366         register int c;
 367 #ifndef lint
 368         register int ljust = 0;
 369 #endif /* not lint */
 370         register int wid = 0;
 371         register char fill = ' ';
 372
 373         c = *cp++;
 374         if (c == '-') {
 375                 ljust++;
 376                 c = *cp++;
 377         }
 378         if (c == '0') {
 379                 fill = c;
 380                 c = *cp++;
 381         }
 382         while (isdigit(c)) {
 383                 wid = wid*10 + (c - '0');
 384                 c = *cp++;
 385         }
 386         if (c == '{') {
 387                 cp = do_name(cp, 0);
 388                 if (! infunction)
 389                         fp->f_type = wid? FT_COMPF : FT_COMP;
 390         } else if (c == '(') {
 391                 cp = do_func(cp);
 392                 if (! infunction) {
 393                         if (ftbl->flags & TFL_PUTS) {
 394                                 LV( wid? FT_STRF : FT_STR, ftbl->extra);
 395                         } else if (ftbl->flags & TFL_PUTN) {
 396                                 LV( wid? FT_NUMF : FT_NUM, ftbl->extra);
 397                         }
 398                 }
 399         } else {
 400                 CERROR("component or function name expected");
 401         }
 402         if (ljust)
 403                 wid = -wid;
 404         fp->f_width = wid;
 405         fp->f_fill = fill;
 406
 407         return (cp);
 408 }
 409
 410 static char *
 411 do_name(char *sp, int preprocess)
 412 {
 413         register char *cp = sp;
 414         register int c;
 415         register int i;
 416         static int primed = 0;
 417
 418         while (isalnum(c = *cp++) || c == '-' || c == '_')
 419                 ;
 420         if (c != '}') {
 421                 CERROR("'}' expected");
 422         }
 423         cp[-1] = '\0';
 424         PUTCOMP(sp);
 425         switch (preprocess) {
 426
 427         case FT_PARSEDATE:
 428                 if (cm->c_type & CT_ADDR) {
 429                         CERROR("component used as both date and address");
 430                 }
 431                 cm->c_tws = (struct tws *)
 432                         calloc((size_t) 1, sizeof(*cm->c_tws));
 433                 fp->f_type = preprocess;
 434                 PUTCOMP(sp);
 435                 cm->c_type |= CT_DATE;
 436                 break;
 437
 438         case FT_MYMBOX:
 439                 if (!primed) {
 440                         ismymbox ((struct mailname *) 0);
 441                         primed++;
 442                 }
 443                 /* fall through */
 444         case FT_PARSEADDR:
 445                 if (cm->c_type & CT_DATE) {
 446                         CERROR("component used as both date and address");
 447                 }
 448                 cm->c_mn = &fmt_mnull;
 449                 fp->f_type = preprocess;
 450                 PUTCOMP(sp);
 451                 cm->c_type |= CT_ADDR;
 452                 break;
 453
 454         case FT_FORMATADDR:
 455                 if (cm->c_type & CT_DATE) {
 456                         CERROR("component used as both date and address");
 457                 }
 458                 cm->c_type |= CT_ADDR;
 459                 break;
 460         }
 461         return (cp);
 462 }
 463
 464 static char *
 465 do_func(char *sp)
 466 {
 467         register char *cp = sp;
 468         register int c;
 469         register struct ftable *t;
 470         register int n;
 471         int mflag;  /* minus sign in NUM */
 472
 473         infunction++;
 474
 475         while (isalnum(c = *cp++))
 476                 ;
 477         if (c != '(' && c != '{' && c != ' ' && c != ')') {
 478                 CERROR("'(', '{', ' ' or ')' expected");
 479         }
 480         cp[-1] = '\0';
 481         if ((t = lookup (sp)) == 0) {
 482                 CERROR("unknown function");
 483         }
 484         if (isspace(c))
 485                 c = *cp++;
 486
 487         switch (t->type) {
 488
 489         case TF_COMP:
 490                 if (c != '{') {
 491                         CERROR("component name expected");
 492                 }
 493                 cp = do_name(cp, t->extra);
 494                 fp->f_type = t->f_type;
 495                 c = *cp++;
 496                 break;
 497
 498         case TF_NUM:
 499                 if ((mflag = (c == '-')))
 500                         c = *cp++;
 501                 n = 0;
 502                 while (isdigit(c)) {
 503                         n = n*10 + (c - '0');
 504                         c = *cp++;
 505                 }
 506                 if (mflag)
 507                         n = (-n);
 508                 LV(t->f_type,n);
 509                 break;
 510
 511         case TF_STR:
 512                 sp = cp - 1;
 513                 while (c && c != ')')
 514                         c = *cp++;
 515                 cp[-1] = '\0';
 516                 LS(t->f_type,sp);
 517                 break;
 518
 519         case TF_NONE:
 520                 LV(t->f_type,t->extra);
 521                 break;
 522
 523         case TF_MYBOX:
 524                 LS(t->f_type, getusername());
 525                 break;
 526
 527         case TF_NOW:
 528                 LV(t->f_type, time((time_t *) 0));
 529                 break;
 530
 531         case TF_EXPR_SV:
 532                 LV(FT_SAVESTR, 0);
 533                 /* fall through */
 534         case TF_EXPR:
 535                 *--cp = c;
 536                 cp = do_expr(cp, t->extra);
 537                 LV(t->f_type, 0);
 538                 c = *cp++;
 539                 ftbl = t;
 540                 break;
 541
 542         case TF_NOP:
 543                 *--cp = c;
 544                 cp = do_expr(cp, t->extra);
 545                 c = *cp++;
 546                 ftbl = t;
 547                 break;
 548         }
 549         if (c != ')') {
 550                 CERROR("')' expected");
 551         }
 552         --infunction;
 553         return (cp);
 554 }
 555
 556 static char *
 557 do_expr (char *sp, int preprocess)
 558 {
 559         register char *cp = sp;
 560         register int  c;
 561
 562         if ((c = *cp++) == '{') {
 563                 cp = do_name (cp, preprocess);
 564                 fp->f_type = FT_LS_COMP;
 565         } else if (c == '(') {
 566                 cp = do_func (cp);
 567         } else if (c == ')') {
 568                 return (--cp);
 569         } else if (c == '%' && *cp == '<') {
 570                 cp = do_if (cp+1);
 571         } else {
 572                 CERROR ("'(', '{', '%<' or ')' expected");
 573         }
 574         return (cp);
 575 }
 576
 577 static char *
 578 do_loop(char *sp)
 579 {
 580         register char *cp = sp;
 581         struct format *floop;
 582
 583         floop = next_fp;
 584         cp = compile (cp);
 585         if (*cp++ != ']')
 586                 CERROR ("']' expected");
 587
 588         LV(FT_DONE, 1);  /* not yet done */
 589         LV(FT_GOTO, 0);
 590         fp->f_skip = floop - fp;  /* skip backwards */
 591
 592         return cp;
 593 }
 594
 595 static char *
 596 do_if(char *sp)
 597 {
 598         register char *cp = sp;
 599         register struct format *fexpr, *fif = (struct format *)NULL;
 600         register int c = '<';
 601
 602         for (;;) {
 603                 if (c == '<') {  /* doing an IF */
 604                         if ((c = *cp++) == '{') /*}*/{
 605                                 cp = do_name(cp, 0);
 606                                 fp->f_type = FT_LS_COMP;
 607                                 LV (FT_IF_S, 0);
 608                         } else if (c == '(') {
 609                                 cp = do_func(cp);
 610                                 /* see if we can merge the load and the "if" */
 611                                 if (ftbl->f_type >= IF_FUNCS)
 612                                         fp->f_type = ftbl->extra;
 613                                 else {
 614                                         /*
 615                                         ** Put out a string test or a value
 616                                         ** test depending on what this
 617                                         ** function 's return type is.
 618                                         */
 619                                         if (ftbl->flags & TFL_PUTS) {
 620                                                 LV (FT_IF_S, 0);
 621                                         } else {
 622                                                 LV (FT_IF_V_NE, 0);
 623                                         }
 624                                 }
 625                         } else {
 626                                 CERROR("'(' or '{' expected");  /*}*/
 627                         }
 628                 }
 629
 630                 fexpr = fp;  /* loc of [ELS]IF */
 631                 cp = compile (cp);  /* compile IF TRUE stmts */
 632                 if (fif)
 633                         fif->f_skip = next_fp - fif;
 634
 635                 if ((c = *cp++) == '|') {  /* the last ELSE */
 636                         LV(FT_GOTO, 0);
 637                         fif = fp;  /* loc of GOTO */
 638                         fexpr->f_skip = next_fp - fexpr;
 639
 640                         fexpr = (struct format *)NULL;/* no extra ENDIF */
 641
 642                         cp = compile (cp);  /* compile ELSE stmts */
 643                         fif->f_skip = next_fp - fif;
 644                         c = *cp++;
 645                 } else if (c == '?') {  /* another ELSIF */
 646                         LV(FT_GOTO, 0);
 647                         fif = fp;  /* loc of GOTO */
 648                         fexpr->f_skip = next_fp - fexpr;
 649
 650                         c = '<';  /* impersonate an IF */
 651                         continue;
 652                 }
 653                 break;
 654         }
 655
 656         if (c != '>') {
 657                 CERROR("'>' expected.");
 658         }
 659
 660         if (fexpr)  /* IF ... [ELSIF ...] ENDIF */
 661                 fexpr->f_skip = next_fp - fexpr;
 662
 663         return (cp);
 664 }