From c5b9ff9fa8f7a65939c3592572a3df1b60dcf57e Mon Sep 17 00:00:00 2001
From: rsc <devnull@localhost>
Date: Thu, 4 Dec 2003 17:45:49 +0000
Subject: add hoc

---
 src/cmd/hoc/symbol.c | 55 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 src/cmd/hoc/symbol.c

(limited to 'src/cmd/hoc/symbol.c')

diff --git a/src/cmd/hoc/symbol.c b/src/cmd/hoc/symbol.c
new file mode 100644
index 00000000..0a777b0d
--- /dev/null
+++ b/src/cmd/hoc/symbol.c
@@ -0,0 +1,55 @@
+#include <u.h>
+#include <libc.h>
+#include "hoc.h"
+#include "y.tab.h"
+
+static Symbol *symlist = 0;  /* symbol table: linked list */
+
+Symbol*
+lookup(char* s)	/* find s in symbol table */
+{
+	Symbol *sp;
+
+	for (sp = symlist; sp != (Symbol *) 0; sp = sp->next)
+		if (strcmp(sp->name, s) == 0)
+			return sp;
+	return 0;	/* 0 ==> not found */	
+}
+
+Symbol*
+install(char* s, int t, double d)  /* install s in symbol table */
+{
+	Symbol *sp;
+
+	sp = emalloc(sizeof(Symbol));
+	sp->name = emalloc(strlen(s)+1); /* +1 for '\0' */
+	strcpy(sp->name, s);
+	sp->type = t;
+	sp->u.val = d;
+	sp->next = symlist; /* put at front of list */
+	symlist = sp;
+	return sp;
+}
+
+void*
+emalloc(unsigned n)	/* check return from malloc */
+{
+	char *p;
+
+	p = malloc(n);
+	if (p == 0)
+		execerror("out of memory", (char *) 0);
+	return p;
+}
+
+Formal*
+formallist(Symbol *formal, Formal *list)	/* add formal to list */
+{
+	Formal *f;
+
+	f = emalloc(sizeof(Formal));
+	f->sym = formal;
+	f->save = 0;
+	f->next = list;
+	return f;
+}
-- 
cgit v1.2.3