From b94627b33d055c0d644480c9100d19c6318ed9c1 Mon Sep 17 00:00:00 2001 From: rodri Date: Sat, 31 Aug 2024 16:07:55 +0000 Subject: stage 4 (incomplete). --- s4/sym.c | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 s4/sym.c (limited to 's4/sym.c') diff --git a/s4/sym.c b/s4/sym.c new file mode 100644 index 0000000..8749791 --- /dev/null +++ b/s4/sym.c @@ -0,0 +1,31 @@ +#include +#include +#include "dat.h" +#include "fns.h" + +static Symbol *symtab; + +Symbol * +install(char *s, int t, double v) +{ + Symbol *sym; + + sym = emalloc(sizeof(Symbol)); + sym->name = strdup(s); + sym->type = t; + sym->u.val = v; + sym->next = symtab; + symtab = sym; + return sym; +} + +Symbol * +lookup(char *s) +{ + Symbol *sym; + + for(sym = symtab; sym != nil; sym = sym->next) + if(strcmp(sym->name, s) == 0) + return sym; + return nil; +} -- cgit v1.2.3