Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
#include <u.h>
2 
#include <libc.h>
3 
#include "hoc.h"
4 
#include "y.tab.h"
5 
 
6 
static Symbol *symlist = 0;  /* symbol table: linked list */
7 
 
8 
Symbol*
9 
lookup(char* s)	/* find s in symbol table */
10 
{
11 
	Symbol *sp;
12 
 
13 
	for (sp = symlist; sp != (Symbol *) 0; sp = sp->next)
14 
		if (strcmp(sp->name, s) == 0)
15 
			return sp;
16 
	return 0;	/* 0 ==> not found */
17 
}
18 
 
19 
Symbol*
20 
install(char* s, int t, double d)  /* install s in symbol table */
21 
{
22 
	Symbol *sp;
23 
 
24 
	sp = emalloc(sizeof(Symbol));
25 
	sp->name = emalloc(strlen(s)+1); /* +1 for '\0' */
26 
	strcpy(sp->name, s);
27 
	sp->type = t;
28 
	sp->u.val = d;
29 
	sp->next = symlist; /* put at front of list */
30 
	symlist = sp;
31 
	return sp;
32 
}
33 
 
34 
void*
35 
emalloc(unsigned n)	/* check return from malloc */
36 
{
37 
	char *p;
38 
 
39 
	p = malloc(n);
40 
	if (p == 0)
41 
		execerror("out of memory", (char *) 0);
42 
	return p;
43 
}
44 
 
45 
Formal*
46 
formallist(Symbol *formal, Formal *list)	/* add formal to list */
47 
{
48 
	Formal *f;
49 
 
50 
	f = emalloc(sizeof(Formal));
51 
	f->sym = formal;
52 
	f->save = 0;
53 
	f->next = list;
54 
	return f;
55 
}