da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#pragma prototyped

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "pplib.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <regex.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define TOKOP_DUP (1<<0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define TOKOP_STRING (1<<1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define TOKOP_UNSET (1<<2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstruct edit

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct edit* next;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin regex_t re;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin};

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstruct map

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct map* next;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin regex_t re;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct edit* edit;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin};

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define RESTORE (COLLECTING|CONDITIONAL|DEFINITION|DIRECTIVE|DISABLE|EOF2NL|HEADER|NOSPACE|NOVERTICAL|PASSEOF|STRIP)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinassert(int op, char* pred, char* args)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register struct pplist* a;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register struct ppsymbol* sym;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register struct pplist* p;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register struct pplist* q;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!args) switch (op)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case DEFINE:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto mark;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case UNDEF:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin a = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto unmark;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (a = (struct pplist*)hashget(pp.prdtab, pred))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin q = a;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (q)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (streq(q->value, args))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (op == DEFINE) return;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin q = q->next;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p) p->next = q;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else a = q;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = q;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin q = q->next;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (op == UNDEF)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unmark:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin hashput(pp.prdtab, pred, a);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (sym = ppsymref(pp.symtab, pred))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sym->flags &= ~SYM_PREDICATE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (op == DEFINE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = newof(0, struct pplist, 1, 0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p->next = a;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p->value = strdup(args);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin hashput(pp.prdtab, NiL, p);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mark:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((pp.state & COMPILE) && pp.truncate) return;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (sym = ppsymset(pp.symtab, pred))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sym->flags |= SYM_PREDICATE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chintokop(int op, char* name, register char* s, register int n, int flags)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char* t;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(flags & TOKOP_UNSET) && !n) error(2, "%s: option cannot be unset", name);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (!s) ppop(op, s, n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (flags & TOKOP_STRING)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUSH_LINE(s);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (;;)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state &= ~NOSPACE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = pplex();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state |= NOSPACE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!c) break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c != ' ')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ppop(op, (flags & TOKOP_DUP) ? strdup(pp.token) : pp.token, n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin POP_LINE();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else do

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*s == ' ') s++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (t = s; *t && *t != ' '; t++);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*t) *t++ = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else t = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*s) ppop(op, (flags & TOKOP_DUP) ? strdup(s) : s, n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } while (s = t);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic struct ppsymbol*

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinmacsym(int tok)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register struct ppsymbol* sym;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (tok != T_ID)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(2, "%s: invalid macro name", pptokstr(pp.token, 0));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sym = pprefmac(pp.token, REF_CREATE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((sym->flags & SYM_FINAL) && (pp.mode & HOSTED)) return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (sym->flags & (SYM_ACTIVE|SYM_READONLY))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(pp.option & ALLPOSSIBLE))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(2, "%s: macro is %s", sym->name, (sym->flags & SYM_READONLY) ? "readonly" : "active");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!sym->macro) sym->macro = newof(0, struct ppmacro, 1, 0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return sym;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char*

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chingetline(register char* p, char* x, int disable)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char* s;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* b;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin long restore;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin restore = pp.state & (NOSPACE|STRIP);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state &= ~(NEWLINE|NOSPACE|STRIP);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state |= EOF2NL;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin b = p;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while ((c = pplex()) != '\n')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (disable)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c == ' ')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*ignore*/;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (disable == 1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin disable = (c == T_ID && streq(pp.token, pp.pass)) ? 2 : 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin disable = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c == ':')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state |= DISABLE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s = pp.token;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*p = *s++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (++p >= x)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto done;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p > b && *(p - 1) == ' ')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p >= x)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin done:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state &= ~(NOSPACE|STRIP);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state |= restore;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return p;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinregfatal(regex_t* p, int level, int code)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char buf[128];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin regerror(code, p, buf, sizeof(buf));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin regfree(p);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(level, "regular expression: %s", buf);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinppcontrol(void)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char* p;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char* s;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register struct ppmacro* mac;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register struct ppsymbol* sym;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct edit* edit;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct map* map;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct ppfile* fp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int o;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int directive;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin long restore;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct pptuple* rp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct pptuple* tp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* v;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int emitted;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin union

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct map* best;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct ppinstk* inp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct pplist* list;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* string;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct ppsymbol* symbol;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int type;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PPLINESYNC linesync;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } var;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static char __va_args__[] = "__VA_ARGS__";

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static int i0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static int i1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static int i2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static int i3;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static int i4;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static long n1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static long n2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static long n3;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static char* p0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static char* p1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static char* p2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static char* p3;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static char* p4;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static char* p5;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static char* p6;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static struct ppmacro old;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static char* formargs[MAXFORMALS];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if MACKEYARGS

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static char* formvals[MAXFORMALS];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin emitted = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (pp.state & SKIPCONTROL) pp.level--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin restore = (pp.state & RESTORE)|NEWLINE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (pp.state & PASSTHROUGH) restore |= DISABLE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else restore &= ~DISABLE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state &= ~(NEWLINE|RESTORE|SKIPCONTROL);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state |= DIRECTIVE|DISABLE|EOF2NL|NOSPACE|NOVERTICAL;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if COMPATIBLE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((pp.state & (COMPATIBILITY|STRICT)) == COMPATIBILITY || (pp.mode & HOSTED)) pp.state &= ~NOVERTICAL;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (pp.mode & HOSTED) pp.state &= ~NOVERTICAL;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (c = pplex())

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_DECIMAL:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_OCTAL:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((pp.state & STRICT) && !(pp.mode & (HOSTED|RELAX)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(1, "# <line> [ \"<file>\" [ <type> ] ]: non-standard directive");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin directive = INCLUDE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto linesync;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_ID:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (directive = (int)hashref(pp.dirtab, pp.token))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ELIF:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else_if:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((pp.option & ALLPOSSIBLE) && !pp.in->prev->prev)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto eatdirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (pp.control <= pp.in->control)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(2, "no matching #%s for #%s", dirname(IF), dirname(ELIF));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto eatdirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (pp.control == (pp.in->control + 1)) pp.in->flags |= IN_noguard;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*pp.control & HADELSE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(2, "invalid #%s after #%s", dirname(ELIF), dirname(ELSE));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *pp.control |= SKIP;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto eatdirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*pp.control & KEPT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *pp.control |= SKIP;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto eatdirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (directive == IFDEF || directive == IFNDEF)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *pp.control &= ~SKIP;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto else_ifdef;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin conditional:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (ppexpr(&i1))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *pp.control &= ~SKIP;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *pp.control |= KEPT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else *pp.control |= SKIP;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = (pp.state & NEWLINE) ? '\n' : ' ';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto eatdirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ELSE:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((pp.option & ALLPOSSIBLE) && !pp.in->prev->prev)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto eatdirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((pp.option & ELSEIF) && (c = pplex()) == T_ID && ((n = (int)hashref(pp.dirtab, pp.token)) == IF || n == IFDEF || n == IFNDEF))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(1, "#%s %s is non-standard -- use #%s", dirname(directive), dirname(n), dirname(ELIF));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin directive = n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto else_if;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (pp.control <= pp.in->control) error(2, "no matching #%s for #%s", dirname(IF), dirname(ELSE));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (pp.control == (pp.in->control + 1)) pp.in->flags |= IN_noguard;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(*pp.control & KEPT))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *pp.control &= ~SKIP;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *pp.control |= HADELSE|KEPT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*pp.control & HADELSE) error(2, "more than one #%s for #%s", dirname(ELSE), dirname(IF));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *pp.control |= HADELSE|SKIP;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto enddirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ENDIF:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((pp.option & ALLPOSSIBLE) && !pp.in->prev->prev)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto eatdirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (pp.control <= pp.in->control) error(2, "no matching #%s for #%s", dirname(IF), dirname(ENDIF));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (--pp.control == pp.in->control && pp.in->symbol)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (pp.in->flags & IN_endguard) pp.in->flags |= IN_noguard;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.in->flags &= ~IN_tokens;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.in->flags |= IN_endguard;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto enddirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case IF:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case IFDEF:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case IFNDEF:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((pp.option & ALLPOSSIBLE) && !pp.in->prev->prev)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto eatdirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pushcontrol();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SETIFBLOCK(pp.control);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*pp.control & SKIP)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *pp.control |= KEPT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto eatdirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (directive == IF) goto conditional;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else_ifdef:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((c = pplex()) == T_ID)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sym = pprefmac(pp.token, REF_IF);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (directive == IFNDEF && pp.control == pp.in->control + 1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (pp.in->flags & (IN_defguard|IN_endguard))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.in->flags |= IN_noguard;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.in->flags |= IN_defguard;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(pp.in->flags & IN_tokens))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.in->symbol = sym ? sym : pprefmac(pp.token, REF_CREATE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sym = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(pp.mode & HOSTED))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(1, "%s: invalid macro name", pptokstr(pp.token, 0));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *pp.control |= ((sym != 0) == (directive == IFDEF)) ? KEPT : SKIP;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto enddirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case INCLUDE:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*pp.control & SKIP)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state |= HEADER;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = pplex();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state &= ~HEADER;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto eatdirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state &= ~DISABLE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state |= HEADER|STRIP;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz pp.in->flags |= IN_noguard;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (c = pplex())

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_STRING:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = pp.token;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do pp.token = pp.toknxt; while ((c = pplex()) == T_STRING);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *pp.token = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.token = p;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*FALLTHROUGH*/

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_HEADER:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin header:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!*pp.token)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(2, "#%s: null file name", dirname(INCLUDE));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*pp.token == '/' && !(pp.mode & (HOSTED|RELAX)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(1, "#%s: reference to %s is not portable", dirname(INCLUDE), pp.token);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = ppsearch(pp.token, c, SEARCH_INCLUDE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '<':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(p = pp.hdrbuf) && !(p = pp.hdrbuf = newof(0, char, MAXTOKEN, 0)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(3, "out of space");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state &= ~NOSPACE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while ((c = pplex()) && c != '>')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = p + 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin STRCOPY(p, pp.token, s);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p == v && *(p - 1) == ' ' && pp.in->type != IN_MACRO)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state |= NOSPACE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin memcpy(pp.token, pp.hdrbuf, p - pp.hdrbuf);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = T_HEADER;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto header;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(2, "#%s: \"...\" or <...> argument expected", dirname(INCLUDE));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto eatdirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto enddirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 0:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin regmatch_t match[10];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*UNDENT*/

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = pp.valbuf;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = '#';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin STRCOPY(p, pp.token, s);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p0 = p;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.mode |= EXPOSE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state |= HEADER;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p6 = getline(p, &pp.valbuf[MAXTOKEN], 0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state &= ~HEADER;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.mode &= ~EXPOSE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!p6)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p0 = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(2, "%s: directive too long", pp.valbuf);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto eatdirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p1 = p2 = p3 = p4 = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p5 = *p ? p + 1 : 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin checkmap:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin i0 = *p0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = pp.valbuf;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin var.best = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (map = (struct map*)pp.maps; map; map = map->next)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(i1 = regexec(&map->re, p, elementsof(match), match, 0)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((c = match[0].rm_eo - match[0].rm_so) > n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin var.best = map;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (i1 != REG_NOMATCH)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin regfatal(&map->re, 3, i1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '\n';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (map = var.best)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((pp.state & (STRICT|WARN)) && !(pp.mode & (HOSTED|RELAX)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p0 = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(pp.state & WARN) || strcmp(p + 1, dirname(PRAGMA)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(1, "%s: non-standard directive", p);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p0 = i0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(*pp.control & SKIP))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (edit = map->edit; edit; edit = edit->next)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(i0 = regexec(&edit->re, p, elementsof(match), match, 0)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (i0 = regsubexec(&edit->re, p, elementsof(match), match))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin regfatal(&edit->re, 3, i0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = edit->re.re_sub->re_buf;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (edit->re.re_sub->re_flags & REG_SUB_STOP)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (i0 != REG_NOMATCH)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin regfatal(&edit->re, 3, i0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (n && *p)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p1 = s = oldof(0, char, 0, strlen(p) + 32);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*s = *p++) s++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin debug((-4, "map: %s", p1));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *s++ = '\n';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *s = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error_info.line++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin PUSH_RESCAN(p1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error_info.line--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin directive = LINE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto donedirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (directive != PRAGMA && (!(*pp.control & SKIP) || !(pp.mode & (HOSTED|RELAX))))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p0 = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(1, "%s: unknown directive", pptokstr(pp.valbuf, 0));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p0 = i0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pass:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(*pp.control & SKIP) && pp.pragma && !(pp.state & NOTEXT) && (directive == PRAGMA || !(pp.mode & INIT)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p0 = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p2) *p2 = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p4)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p4 == p5)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p5 = strcpy(pp.tmpbuf, p5);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p = strchr(p5, MARK))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s = p;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (*p)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((*s++ = *p++) == MARK && *p == MARK) p++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *s = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p4 = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p = (char*)memchr(pp.valbuf + 1, MARK, p6 - pp.valbuf - 1))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s = p;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (p < p6) switch (*s++ = *p++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 0:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s = p;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case MARK:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *s = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin (*pp.pragma)(pp.valbuf + 1, p1, p3, p5, (pp.state & COMPILE) || (pp.mode & INIT) != 0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin emitted = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto donedirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*INDENT*/

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*pp.control & SKIP) goto eatdirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (directive)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if MACDEF

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ENDMAC:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = pplex();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(2, "no matching #%s for #%s", dirname(MACDEF), dirname(ENDMAC));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto enddirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if MACDEF

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case MACDEF:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((pp.state & STRICT) && !(pp.mode & (HOSTED|RELAX)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(1, "#%s: non-standard directive", pp.token);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*FALLTHROUGH*/

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case DEFINE:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n2 = error_info.line;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((c = pplex()) == '#' && directive == DEFINE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto assertion;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c == '<')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = pplex();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(sym = macsym(c)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto eatdirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (pp.truncate)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ppfsm(FSM_MACRO, pp.token);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac = sym->macro;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((pp.option & ALLPOSSIBLE) && !pp.in->prev->prev && mac->value)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto eatdirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto tuple;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin old = *mac;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin i0 = sym->flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sym->flags &= ~(SYM_BUILTIN|SYM_EMPTY|SYM_FINAL|SYM_FUNCTION|SYM_INIT|SYM_INITIAL|SYM_MULTILINE|SYM_NOEXPAND|SYM_PREDEFINED|SYM_REDEFINE|SYM_VARIADIC);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if MACDEF

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (directive == MACDEF)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sym->flags |= SYM_MULTILINE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac->arity = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac->formals = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac->value = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state &= ~NOSPACE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state |= DEFINITION|NOEXPAND;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (c = pplex())

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '(':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sym->flags |= SYM_FUNCTION;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state |= NOSPACE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if MACKEYARGS

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (pp.option & KEYARGS)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 2 * MAXTOKEN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = mac->formals = oldof(0, char, 0, n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((c = pplex()) == T_ID) for (;;)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (mac->arity < MAXFORMALS)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (mac->arity) p++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin formargs[mac->arity] = p;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin STRAPP(p, pp.token, s);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin formvals[mac->arity++] = p1 = p;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (mac->arity == 1) *p++ = ' ';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = ' ';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else error(2, "%s: formal argument %s ignored", sym->name, pp.token);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (c = pplex())

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '=':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = pplex();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ',':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto endformals;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state &= ~NOSPACE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p0 = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (;;)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '\n':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto endformals;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '(':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p0++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ')':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!p0--)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p > formvals[mac->arity - 1] && *(p - 1) == ' ') *--p = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto endformals;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ',':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!p0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p > formvals[mac->arity - 1] && *(p - 1) == ' ') *--p = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto nextformal;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ' ':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p > formvals[mac->arity - 1] && *(p - 1) == ' ') continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin STRCOPY(p, pp.token, s);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p > &mac->formals[n - MAXTOKEN] && (s = newof(mac->formals, char, n += MAXTOKEN, 0)) != mac->formals)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n1 = s - mac->formals;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (n = 0; n < mac->arity; n++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin formargs[n] += n1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin formvals[n] += n1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = p - mac->formals;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac->formals = s;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = mac->formals + c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = pplex();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nextformal:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state |= NOSPACE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((c = pplex()) != T_ID)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = ',';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin endformals: /*NOP*/;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = mac->formals = oldof(0, char, 0, MAXFORMALS * (MAXID + 1));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = pplex();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if COMPATIBLE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((pp.state & COMPATIBILITY) && c == ',')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((pp.state & WARN) && !(pp.mode & HOSTED))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(1, "%s: macro formal argument expected", sym->name);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while ((c = pplex()) == ',');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (;;)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c == T_VARIADIC)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (sym->flags & SYM_VARIADIC)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(2, "%s: %s: duplicate macro formal argument", sym->name, pp.token);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sym->flags |= SYM_VARIADIC;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = __va_args__;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (c == T_ID)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = pp.token;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (sym->flags & SYM_VARIADIC)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(2, "%s: %s: macro formal argument cannot follow ...", sym->name, v);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (streq(v, __va_args__))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(2, "%s: %s: invalid macro formal argument", sym->name, v);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (mac->arity < MAXFORMALS)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (n = 0; n < mac->arity; n++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (streq(formargs[n], v))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(2, "%s: %s: duplicate macro formal argument", sym->name, v);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin formargs[mac->arity++] = p;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin STRAPP(p, v, s);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(2, "%s: %s: macro formal argument ignored", sym->name, v);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((c = pplex()) == ',')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = pplex();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if COMPATIBLE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((pp.state & COMPATIBILITY) && c == ',')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((pp.state & WARN) && !(pp.mode & HOSTED))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(1, "%s: macro formal argument expected", sym->name);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while ((c = pplex()) == ',');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (c != T_VARIADIC)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (sym->flags & SYM_VARIADIC)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(2, "%s: %s: duplicate macro formal argument", sym->name, pp.token);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sym->flags |= SYM_VARIADIC;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = pplex();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (mac->arity && (s = newof(mac->formals, char, p - mac->formals, 0)) != mac->formals)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n1 = s - mac->formals;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (n = 0; n < mac->arity; n++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin formargs[n] += n1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac->formals = s;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!mac->arity)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin free(mac->formals);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac->formals = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ')':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if MACKEYARGS

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state |= NOEXPAND|NOSPACE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state |= NOEXPAND;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = pplex();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(2, "%s: invalid macro formal argument list", sym->name);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (mac->formals)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin free(mac->formals);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac->formals = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac->arity = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin free(mac);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sym->macro = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto eatdirective;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state &= ~NOSPACE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ' ':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '\t':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = pplex();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 2 * MAXTOKEN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if MACKEYARGS

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p1 = p;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = mac->value = oldof(0, char, 0, n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin var.type = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n1 = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if MACDEF

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin i2 = i3 = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n3 = pp.state;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((pp.option & PLUSPLUS) && (pp.state & (COMPATIBILITY|TRANSITION)) != COMPATIBILITY)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '+':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '-':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '&':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '|':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '<':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '>':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ':':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '=':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = ' ';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin o = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (;;)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_ID:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (c = 0; c < mac->arity; c++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (streq(formargs[c], pp.token))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if COMPATIBLE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(pp.state & COMPATIBILITY))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (var.type != TOK_TOKCAT && p > mac->value && *(p - 1) != ' ' && !(pp.option & PRESERVE)) *p++ = ' ';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = MARK;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if COMPATIBLE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((pp.state & (COMPATIBILITY|TRANSITION)) == COMPATIBILITY) *p++ = 'C';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = (n1 || var.type == TOK_TOKCAT) ? 'C' : 'A';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = c + ARGOFFSET;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if ((pp.state & WARN) && !(pp.mode & (HOSTED|RELAX)) && var.type != TOK_TOKCAT && !(var.type & TOK_ID))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin s = pp.in->nextchr;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin while ((c = *s++) && (c == ' ' || c == '\t'));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if (c == '\n')

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin c = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if (c == '*' && *s == ')')

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin c = ')';

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if (c == '=' || ppisidig(c) || c == *s || *s == '=')

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin c = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if (o != '.' && o != T_PTRMEM)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if ((var.type & TOK_ID) || o == ' ' || ppisseparate(o))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin o = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if (!((o == 0 || o == '(' || o == ')' || o == '[' || o == ']' || o == ',' || o == '|' || o == ';' || o == '{' || o == '}') && (c == '(' || c == ')' || c == '[' || c == ']' || c == ',' || c == '|' || c == ';' || c == '}' || c == 0)) && !(o == '*' && c == ')'))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin error(1, "%s: %s: formal should be parenthesized in macro value (t=%x o=%#c c=%#c)", sym->name, pp.token, var.type, o, c);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin var.type = TOK_FORMAL|TOK_ID;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '>';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto checkvalue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (var.type == TOK_BUILTIN) switch ((int)hashget(pp.strtab, pp.token))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case V_DEFAULT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case V_EMPTY:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sym->flags |= SYM_EMPTY;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (pp.hiding && (var.symbol = ppsymref(pp.symtab, pp.token)) && var.symbol->hidden)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (var.inp = pp.in; var.inp->type != IN_FILE && var.inp->prev; var.inp = var.inp->prev);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p += sfsprintf(p, MAXTOKEN, "_%d_%s_hIDe", var.inp->hide, pp.token);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin var.type = TOK_ID;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto checkvalue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin var.type = TOK_ID;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '#':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin var.type = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if MACDEF

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(sym->flags & (SYM_FUNCTION|SYM_MULTILINE))) break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(sym->flags & SYM_FUNCTION)) break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state |= NOSPACE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = pplex();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c == '@')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = pplex();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin i4 = 'S';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else i4 = 'Q';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state &= ~NOSPACE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c != T_ID) c = mac->arity;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else for (c = 0; c < mac->arity; c++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (streq(formargs[c], pp.token))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c >= mac->arity)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if MACDEF

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (sym->flags & SYM_MULTILINE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (n3 & NEWLINE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state &= ~NOEXPAND;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch ((int)hashref(pp.dirtab, pp.token))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ENDMAC:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!i2--) goto gotdefinition;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case INCLUDE:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* PARSE HEADER constant */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case MACDEF:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin i2++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = '#';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if COMPATIBLE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (pp.state & COMPATIBILITY) *p++ = '#';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(2, "# must precede a formal parameter");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p > mac->value && ppisidig(*(p - 1)) && !(pp.option & PRESERVE)) *p++ = ' ';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = MARK;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = i4;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = c + ARGOFFSET;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto checkvalue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_TOKCAT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p <= mac->value) error(2, "%s lhs operand omitted", pp.token);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*(p - 1) == ' ') p--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (var.type == (TOK_FORMAL|TOK_ID)) *(p - 2) = 'C';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state |= NOSPACE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = pplex();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state &= ~NOSPACE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c == '\n') error(2, "%s rhs operand omitted", pptokchr(T_TOKCAT));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin var.type = TOK_TOKCAT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '(':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (*pp.token == '#')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin var.type = TOK_BUILTIN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n1++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin var.type = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (n1) n1++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ')':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin var.type = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (n1) n1--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_STRING:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case T_CHARCONST:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state &= ~NOEXPAND;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin var.type = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (strchr(pp.token, MARK)) pp.state &= ~NOEXPAND;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if COMPATIBLE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*UNDENT*/

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((sym->flags & SYM_FUNCTION) && (pp.state & (COMPATIBILITY|TRANSITION)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* v;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s = pp.token;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (;;)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!*s) goto checkvalue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (ppisid(*s))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = s;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (ppisid(*++s));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin i1 = *s;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *s = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (c = 0; c < mac->arity; c++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (streq(formargs[c], v))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = MARK;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = 'C';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = c + ARGOFFSET;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(pp.mode & HOSTED) && (!(pp.state & COMPATIBILITY) || (pp.state & WARN))) switch (*pp.token)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '"':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(1, "use the # operator to \"...\" quote macro arguments");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '\'':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(1, "macro arguments should be '...' quoted before substitution");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto quotearg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin STRCOPY2(p, v);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin quotearg:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *s = i1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else *p++ = *s++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*INDENT*/

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '\n':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if MACDEF

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (sym->flags & SYM_MULTILINE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (pp.state & EOF2NL)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error_info.line++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state |= HIDDEN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.hidden++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin var.type = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!i3++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto checkvalue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state |= EOF2NL;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(2, "%s: missing #%s", sym->name, dirname(ENDMAC));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto gotdefinition;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 0:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '\n';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto gotdefinition;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if COMPATIBLE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ' ':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (pp.state & COMPATIBILITY) var.type = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (pp.option & PRESERVE) break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p > mac->value && *(p - 1) != ' ') *p++ = ' ';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto checkvalue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '\t':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (var.type & TOK_ID)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while ((c = pplex()) == '\t');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (c == T_ID)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (var.type == (TOK_FORMAL|TOK_ID)) *(p - 2) = 'C';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin var.type = TOK_TOKCAT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (pp.state & WARN) error(1, "use the ## operator to concatenate macro arguments");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else var.type = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin var.type = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (pp.option & PRESERVE) break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p > mac->value && *(p - 1) != ' ') *p++ = ' ';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto checkvalue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case MARK:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp.state &= ~NOEXPAND;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /*FALLTHROUGH*/

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin var.type = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin STRCOPY(p, pp.token, s);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin checkvalue:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin o = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p > &mac->value[n - MAXTOKEN] && (s = newof(mac->value, char, n += MAXTOKEN, 0)) != mac->value)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = p - mac->value;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac->value = s;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p = mac->value + c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if MACDEF

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n3 = pp.state;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = pplex();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin gotdefinition:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (p > mac->value && *(p - 1) == ' ') p--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (p > mac->value && (pp.option & PLUSPLUS) && (pp.state & (COMPATIBILITY|TRANSITION)) != COMPATIBILITY)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (o)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '+':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '-':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '&':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '|':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '<':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '>':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ':':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '=':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p++ = ' ';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *p = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if MACKEYARGS

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!mac->arity) /* ok */;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (pp.option & KEYARGS)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin p0 = mac->formals;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac->formkeys = newof(0, struct ppkeyarg, n, p1 - p0 + 1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s = (char*)&mac->formkeys[mac->arity];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin (void)memcpy(s, p0, p1 - p0 + 1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin free(p0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (n = 0; n < mac->arity; n++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac->formkeys[n].name = s + (formargs[n] - p0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac->formkeys[n].value = s + (formvals[n] - p0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (n = 1; n < mac->arity; n++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *(formargs[n] - 1) = ',';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (old.value)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((i0 & SYM_FUNCTION) != (sym->flags & SYM_FUNCTION) || old.arity != mac->arity || !streq(old.value, mac->value)) goto redefined;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!old.formals)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (mac->formals) goto redefined;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (mac->formals)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if MACKEYARGS

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (pp.option & KEYARGS)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (n = 0; n < mac->arity; n++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!streq(mac->formkeys[n].name, old.formkeys[n].name) || !streq(mac->formkeys[n].value, old.formkeys[n].value))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto redefined;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!streq(mac->formals, old.formals)) goto redefined;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if MACKEYARGS

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (pp.option & KEYARGS)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (mac->formkeys) free(mac->formkeys);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac->formkeys = old.formkeys;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (mac->formals) free(mac->formals);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac->formals = old.formals;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin free(mac->value);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac->value = old.value;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto benign;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin redefined:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(pp.mode & HOSTED) || !(i0 & SYM_INITIAL))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(1, "%s redefined", sym->name);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if MACKEYARGS

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((pp.option & KEYARGS) && mac->formkeys)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin free(mac->formkeys);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if MACKEYARGS

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(pp.option & KEYARGS))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (old.formals) free(old.formals);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin free(old.value);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if (!pp.truncate) ppfsm(FSM_MACRO, sym->name);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin mac->value = newof(mac->value, char, (mac->size = p - mac->value) + 1, 0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((pp.option & (DEFINITIONS|PREDEFINITIONS|REGUARD)) && !sym->hidden && !(sym->flags & SYM_MULTILINE) && ((pp.option & PREDEFINITIONS) || !(pp.mode & INIT)) && ((pp.option & (DEFINITIONS|PREDEFINITIONS)) || !(pp.state & NOTEXT)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ppsync();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ppprintf("#%s %s", dirname(DEFINE), sym->name);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (sym->flags & SYM_FUNCTION)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ppputchar('(');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (mac->formals)