/*  * This file is part of the UCB release of Plan 9. It is subject to the license * terms in the LICENSE file found in the top-level directory of this * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No * part of the UCB release of Plan 9, including this file, may be copied, * modified, propagated, or distributed except according to the terms contained * in the LICENSE file. */ #include "rc.h"#include "exec.h"#include "fns.h" unsignedhash(char *as, int n){	int i = 1;	unsigned h = 0;	uchar *s; 	s = (uchar *)as;	while (*s)		h += *s++ * i++;	return h % n;} #define	NKW	30struct kw{	char *name;	int type;	struct kw *next;}*kw[NKW]; voidkenter(int type, char *name){	int h = hash(name, NKW);	struct kw *p = new(struct kw);	p->type = type;	p->name = name;	p->next = kw[h];	kw[h] = p;} voidkinit(void){	kenter(FOR, "for");	kenter(IN, "in");	kenter(WHILE, "while");	kenter(IF, "if");	kenter(NOT, "not");	kenter(TWIDDLE, "~");	kenter(BANG, "!");	kenter(SUBSHELL, "@");	kenter(SWITCH, "switch");	kenter(FN, "fn");} tree*klook(char *name){	struct kw *p;	tree *t = token(name, WORD);	for(p = kw[hash(name, NKW)];p;p = p->next)		if(strcmp(p->name, name)==0){			t->type = p->type;			t->iskw = 1;			break;		}	return t;} var*gvlook(char *name){	int h = hash(name, NVAR);	var *v;	for(v = gvar[h];v;v = v->next) if(strcmp(v->name, name)==0) return v;	return gvar[h] = newvar(strdup(name), gvar[h]);} var*vlook(char *name){	var *v;	if(runq)		for(v = runq->local;v;v = v->next)			if(strcmp(v->name, name)==0) return v;	return gvlook(name);} voidsetvar(char *name, word *val){	struct var *v = vlook(name);	freewords(v->val);	v->val = val;	v->changed = 1;}