diff options
Diffstat (limited to 'usr/src/lib/libpp/common/ppmisc.c')
| -rw-r--r-- | usr/src/lib/libpp/common/ppmisc.c | 242 |
1 files changed, 0 insertions, 242 deletions
diff --git a/usr/src/lib/libpp/common/ppmisc.c b/usr/src/lib/libpp/common/ppmisc.c deleted file mode 100644 index f4dea77f5c..0000000000 --- a/usr/src/lib/libpp/common/ppmisc.c +++ /dev/null @@ -1,242 +0,0 @@ -/*********************************************************************** -* * -* This software is part of the ast package * -* Copyright (c) 1986-2009 AT&T Intellectual Property * -* and is licensed under the * -* Common Public License, Version 1.0 * -* by AT&T Intellectual Property * -* * -* A copy of the License is available at * -* http://www.opensource.org/licenses/cpl1.0.txt * -* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) * -* * -* Information and Software Systems Research * -* AT&T Research * -* Florham Park NJ * -* * -* Glenn Fowler <gsf@research.att.com> * -* * -***********************************************************************/ -#pragma prototyped -/* - * Glenn Fowler - * AT&T Research - * - * miscellaneous preprocessor support - */ - -#include "pplib.h" - -/* - * macro symbol def|ref - */ - -struct ppsymbol* -pprefmac(char* name, int ref) -{ - register struct ppsymbol* sym; - - if (!(sym = ppsymget(pp.symtab, name)) && (ref <= REF_NORMAL && pp.macref || ref == REF_CREATE || ref == REF_DELETE && (pp.mode & (INIT|READONLY)))) - { - if ((pp.state & COMPILE) && pp.truncate && strlen(name) > pp.truncate) - name[pp.truncate] = 0; - sym = ppsymset(pp.symtab, NiL); - } - if (sym && ref <= REF_NORMAL) - { - if (pp.macref) (*pp.macref)(sym, error_info.file, error_info.line, ref == REF_NORMAL && (pp.state & CONDITIONAL) ? REF_IF : ref, 0L); - if (!sym->macro) sym = 0; - } -#if COMPATIBLE - if (!(pp.state & COMPATIBILITY)) -#endif - if (ref == REF_IF && sym && (sym->flags & SYM_PREDEFINED) && *name != '_' && !(pp.mode & (HOSTED|INACTIVE))) - { - if (pp.state & STRICT) - { - error(1, "%s: obsolete predefined symbol reference disabled", name); - return(0); - } - error(1, "%s: obsolete predefined symbol referenced", name); - } - return(sym); -} - -/* - * common predicate assertion operations - * op is DEFINE or UNDEF - */ - -void -ppassert(int op, char* pred, char* args) -{ - register struct pplist* a; - register struct ppsymbol* sym; - register struct pplist* p; - register struct pplist* q; - - if (!args) switch (op) - { - case DEFINE: - goto mark; - case UNDEF: - a = 0; - goto unmark; - } - if (a = (struct pplist*)hashget(pp.prdtab, pred)) - { - p = 0; - q = a; - while (q) - { - if (streq(q->value, args)) - { - if (op == DEFINE) return; - q = q->next; - if (p) p->next = q; - else a = q; - } - else - { - p = q; - q = q->next; - } - } - if (op == UNDEF) - { - unmark: - hashput(pp.prdtab, pred, a); - if (sym = ppsymref(pp.symtab, pred)) - sym->flags &= ~SYM_PREDICATE; - return; - } - } - if (op == DEFINE) - { - p = newof(0, struct pplist, 1, 0); - p->next = a; - p->value = strdup(args); - hashput(pp.prdtab, NiL, p); - mark: - if ((pp.state & COMPILE) && pp.truncate) return; - if (sym = ppsymset(pp.symtab, pred)) - sym->flags |= SYM_PREDICATE; - } -} - -/* - * parse a predicate argument list - * the args are placed in pp.args - * the first non-space/paren argument token type is returned - * forms: - * - * predicate <identifier> type=T_ID - * predicate ( <identifier> ) type=T_ID - * predicate ( ) type=0 - * predicate ( <balanced-paren-list> ) type=T_STRING - * otherwise type=<other> - */ - -int -pppredargs(void) -{ - register int c; - register int n; - register int type; - char* pptoken; - - pptoken = pp.token; - pp.token = pp.args; - switch (type = pplex()) - { - case '(': - type = 0; - n = 1; - pp.state |= HEADER; - pp.state &= ~STRIP; - c = pplex(); - pp.state &= ~NOSPACE; - for (;;) - { - switch (c) - { - case '(': - n++; - break; - case '\n': - ungetchr(c); - error(2, "missing %d )%s in predicate argument list", n, n == 1 ? "" : "'s"); - type = 0; - goto done; - case ')': - if (!--n) goto done; - break; - } - pp.token = pp.toknxt; - if (c != ' ') - { - if (type) type = T_STRING; - else type = (c == T_ID) ? T_ID : T_STRING; - } - c = pplex(); - } - done: - pp.state &= ~HEADER; - pp.state |= NOSPACE|STRIP; - if (pp.token > pp.args && *(pp.token - 1) == ' ') pp.token--; - *pp.token = 0; - break; - case '\n': - ungetchr('\n'); - type = 0; - break; - } - pp.token = pptoken; - return(type); -} - -/* - * sync output line number - */ - -int -ppsync(void) -{ - long m; - - if ((pp.state & (ADD|HIDDEN))) - { - if (pp.state & ADD) - { - pp.state &= ~ADD; - m = pp.addp - pp.addbuf; - pp.addp = pp.addbuf; - ppprintf("%-.*s", m, pp.addbuf); - } - if (pp.linesync) - { - if ((pp.state & SYNCLINE) || pp.hidden >= MAXHIDDEN) - { - pp.hidden = 0; - pp.state &= ~(HIDDEN|SYNCLINE); - if (error_info.line) - (*pp.linesync)(error_info.line, error_info.file); - } - else - { - m = pp.hidden; - pp.hidden = 0; - pp.state &= ~HIDDEN; - while (m-- > 0) - ppputchar('\n'); - } - } - else - { - pp.hidden = 0; - pp.state &= ~HIDDEN; - ppputchar('\n'); - } - } - return 0; -} |