From 8cca4d1fe83f792d0f3c5dd897611ea2ff441de0 Mon Sep 17 00:00:00 2001 From: rodri Date: Sat, 31 Aug 2024 16:07:15 +0000 Subject: stage 3. --- s3/sym.c | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 s3/sym.c (limited to 's3/sym.c') diff --git a/s3/sym.c b/s3/sym.c new file mode 100644 index 0000000..8749791 --- /dev/null +++ b/s3/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