# /* * pi - Pascal interpreter code translator * * Charles Haley, Bill Joy UCB * Version 1.0 August 1977 */ #include "whoami" #include "0.h" /* * Lookup is called to * find a symbol in the * block structure symbol * table and returns a pointer to * its namelist entry. */ struct nl *lookup(s) char *s; { register struct nl *p; register struct udinfo *udp; if (s == NIL) { nocascade(); return (NIL); } p = lookup1(s); if (p == NIL) { error("%s is undefined", s); return (NIL); } if (p->class == FVAR) { p = p->chain; bn--; } return (p); } int flagwas; /* * Lookup1 is an internal lookup. * It is not an error to call lookup1 * if the symbol is not defined. Also * lookup1 will return FVARs while * lookup never will, thus asgnop * calls it when it thinks you are * assigning to the function variable. */ lookup1(s) char *s; { register struct nl *p, *q; register i; if (s == NIL) return (NIL); bn = cbn; /* * We first check the field names * of the currently active with * statements (expensive since they * are not hashed). */ for (p = withlist; p != NIL; p = p->nl_next) { q = p->type; if (q == NIL) continue; if (reclook(q, s) != NIL) /* * Return the WITHPTR, lvalue understands. */ return (p); } /* * Symbol table is a 64 way hash * on the low bits of the character * pointer value. (Simple, but effective) */ i = s & 077; for (p = disptab[i]; p != NIL; p = p->nl_next) if (p->symbol == s && p->class != FIELD && p->class != BADUSE) { bn = (p->nl_block & 037); flagwas = p->nl_flags; p->nl_flags =| NUSED; return (p); } return (NIL); }