1 c5b9ff9f 2003-12-04 devnull #include <u.h>
2 c5b9ff9f 2003-12-04 devnull #include <libc.h>
3 c5b9ff9f 2003-12-04 devnull #include "hoc.h"
4 c5b9ff9f 2003-12-04 devnull #include "y.tab.h"
6 c5b9ff9f 2003-12-04 devnull static Symbol *symlist = 0; /* symbol table: linked list */
9 c5b9ff9f 2003-12-04 devnull lookup(char* s) /* find s in symbol table */
11 c5b9ff9f 2003-12-04 devnull Symbol *sp;
13 c5b9ff9f 2003-12-04 devnull for (sp = symlist; sp != (Symbol *) 0; sp = sp->next)
14 c5b9ff9f 2003-12-04 devnull if (strcmp(sp->name, s) == 0)
15 c5b9ff9f 2003-12-04 devnull return sp;
16 c5b9ff9f 2003-12-04 devnull return 0; /* 0 ==> not found */
20 c5b9ff9f 2003-12-04 devnull install(char* s, int t, double d) /* install s in symbol table */
22 c5b9ff9f 2003-12-04 devnull Symbol *sp;
24 c5b9ff9f 2003-12-04 devnull sp = emalloc(sizeof(Symbol));
25 c5b9ff9f 2003-12-04 devnull sp->name = emalloc(strlen(s)+1); /* +1 for '\0' */
26 c5b9ff9f 2003-12-04 devnull strcpy(sp->name, s);
27 c5b9ff9f 2003-12-04 devnull sp->type = t;
28 c5b9ff9f 2003-12-04 devnull sp->u.val = d;
29 c5b9ff9f 2003-12-04 devnull sp->next = symlist; /* put at front of list */
30 c5b9ff9f 2003-12-04 devnull symlist = sp;
31 c5b9ff9f 2003-12-04 devnull return sp;
35 c5b9ff9f 2003-12-04 devnull emalloc(unsigned n) /* check return from malloc */
39 c5b9ff9f 2003-12-04 devnull p = malloc(n);
40 c5b9ff9f 2003-12-04 devnull if (p == 0)
41 c5b9ff9f 2003-12-04 devnull execerror("out of memory", (char *) 0);
42 c5b9ff9f 2003-12-04 devnull return p;
46 c5b9ff9f 2003-12-04 devnull formallist(Symbol *formal, Formal *list) /* add formal to list */
48 c5b9ff9f 2003-12-04 devnull Formal *f;
50 c5b9ff9f 2003-12-04 devnull f = emalloc(sizeof(Formal));
51 c5b9ff9f 2003-12-04 devnull f->sym = formal;
52 c5b9ff9f 2003-12-04 devnull f->save = 0;
53 c5b9ff9f 2003-12-04 devnull f->next = list;
54 c5b9ff9f 2003-12-04 devnull return f;