119     register Keyword k, nextk;  in keywords_free()  local
122 	k = hashtab[i];  in keywords_free()
123 	while (k != nil) {  in keywords_free()
124 	    nextk = k->chain;  in keywords_free()
125 	    dispose(k);  in keywords_free()
126 	    k = nextk;  in keywords_free()
140     Keyword k;  local
143     k = new(Keyword);
144     k->name = n;
145     k->chain = hashtab[h];
146     hashtab[h] = k;
147     return k;
158     register Keyword k;  local
161     k = hashtab[h];
162     while (k != nil and k->name != n) {
163 	k = k->chain;
165     return k;
177     register Keyword k, prevk;  local
181     k = hashtab[h];
183     while (k != nil and (k->name != n or k->class != class)) {
184 	prevk = k;
185 	k = k->chain;
187     if (k != nil) {
190 	    hashtab[h] = k->chain;
192 	    prevk->chain = k->chain;
194 	dispose(k);
210     Keyword k;  local
214     k = keywords_insert(n);
215     k->class = ISKEYWORD;
216     k->value.toknum = t;
237     register Keyword k;  local
239     k = keywords_lookup(n);
240     while (k != nil and (k->name != n or k->class != class)) {
241 	k = k->chain;
243     return k;
255     Keyword k;  local
258     k = findword(n, ISKEYWORD);
259     if (k == nil) {
262 	t = k->value.toknum;
276     Keyword k;  local
279     k = findword(n, ISALIAS);
280     if (k == nil) {
283 	*pl = k->value.alias.paramlist;
284 	*str = k->value.alias.expansion;
310     Keyword k;  local
315 	k = findword(newcmd, ISALIAS);
316 	if (k == nil) {
317 	    k = keywords_insert(newcmd);
319 	k->class = ISALIAS;
320 	k->value.alias.paramlist = args;
321 	k->value.alias.expansion = str;
332     register Keyword k;  local
338 	    for (k = hashtab[i]; k != nil; k = k->chain) {
339 		if (k->class == ISALIAS) {
341 			printf("alias %s", ident(k->name));
342 			printparams(k->value.alias.paramlist);
343 			printf("\t\"%s\"\n", k->value.alias.expansion);
345 			printf("%s", ident(k->name));
346 			printparams(k->value.alias.paramlist);
347 			printf("\t%s\n", k->value.alias.expansion);
353 	k = findword(cmd, ISALIAS);
354 	if (k == nil) {
357 	    printparams(k->value.alias.paramlist);
358 	    printf("%s\n", k->value.alias.expansion);
400     Keyword k;  local
408 	k = findword(n, ISVAR);
409 	if (k == nil) {
410 	    k = keywords_insert(n);
412 	k->class = ISVAR;
413 	k->value.var = val;
427     Keyword k;  local
430     k = findword(n, ISVAR);
431     if (k == nil) {
434 	val = k->value.var;
471     register Keyword k;  in print_vars()  local
474 	for (k = hashtab[i]; k != nil; k = k->chain) {  in print_vars()
475 	    if (k->class == ISVAR) {  in print_vars()
479 		printf("%s", ident(k->name));  in print_vars()
480 		if (k->value.var != nil) {  in print_vars()
482 		    prtree(stdout, k->value.var);  in print_vars()