aboutsummaryrefslogtreecommitdiffstats
path: root/code/tools/lcc/cpp/nlist.c
blob: d76df86060b83456078a876d0eb0524263152dbd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "cpp.h"

extern	char	*optarg;
extern	int	optind;
extern	int	verbose;
extern	int	Cplusplus;
Nlist	*kwdefined;
char	wd[128];

#define	NLSIZE	128

static Nlist	*nlist[NLSIZE];

struct	kwtab {
	char	*kw;
	int	val;
	int	flag;
} kwtab[] = {
	{"if",		KIF,		ISKW},
	{"ifdef",	KIFDEF,		ISKW},
	{"ifndef",	KIFNDEF,	ISKW},
	{"elif",		KELIF,		ISKW},
	{"else",		KELSE,		ISKW},
	{"endif",	KENDIF,		ISKW},
	{"include",	KINCLUDE,	ISKW},
	{"define",	KDEFINE,	ISKW},
	{"undef",	KUNDEF,		ISKW},
	{"line",		KLINE,		ISKW},
	{"error",	KERROR,		ISKW},
	{"pragma",	KPRAGMA,	ISKW},
	{"eval",		KEVAL,		ISKW},
	{"defined",	KDEFINED,	ISDEFINED+ISUNCHANGE},
	{"__LINE__",	KLINENO,	ISMAC+ISUNCHANGE},
	{"__FILE__",	KFILE,		ISMAC+ISUNCHANGE},
	{"__DATE__",	KDATE,		ISMAC+ISUNCHANGE},
	{"__TIME__",	KTIME,		ISMAC+ISUNCHANGE},
	{"__STDC__",	KSTDC,		ISUNCHANGE},
	{NULL}
};

unsigned long	namebit[077+1];
Nlist 	*np;

void
setup_kwtab(void)
{
	struct kwtab *kp;
	Nlist *np;
	Token t;
	static Token deftoken[1] = {{ NAME, 0, 0, 0, 7, (uchar*)"defined" }};
	static Tokenrow deftr = { deftoken, deftoken, deftoken+1, 1 };

	for (kp=kwtab; kp->kw; kp++) {
		t.t = (uchar*)kp->kw;
		t.len = strlen(kp->kw);
		np = lookup(&t, 1);
		np->flag = kp->flag;
		np->val = kp->val;
		if (np->val == KDEFINED) {
			kwdefined = np;
			np->val = NAME;
			np->vp = &deftr;
			np->ap = 0;
		}
	}
}

Nlist *
lookup(Token *tp, int install)
{
	unsigned int h;
	Nlist *np;
	uchar *cp, *cpe;

	h = 0;
	for (cp=tp->t, cpe=cp+tp->len; cp<cpe; )
		h += *cp++;
	h %= NLSIZE;
	np = nlist[h];
	while (np) {
		if (*tp->t==*np->name && tp->len==np->len 
		 && strncmp((char*)tp->t, (char*)np->name, tp->len)==0)
			return np;
		np = np->next;
	}
	if (install) {
		np = new(Nlist);
		np->vp = NULL;
		np->ap = NULL;
		np->flag = 0;
		np->val = 0;
		np->len = tp->len;
		np->name = newstring(tp->t, tp->len, 0);
		np->next = nlist[h];
		nlist[h] = np;
		quickset(tp->t[0], tp->len>1? tp->t[1]:0);
		return np;
	}
	return NULL;
}