parse.c revision 1.4 
1/*	$NetBSD: parse.c,v 1.4 1997/01/07 11:56:49 tls Exp $	*/
2
3/*
4 * Copyright (c) 1983, 1993
5 *	The Regents of the University of California.  All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 *    notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 *    notice, this list of conditions and the following disclaimer in the
14 *    documentation and/or other materials provided with the distribution.
15 * 3. All advertising materials mentioning features or use of this software
16 *    must display the following acknowledgement:
17 *	This product includes software developed by the University of
18 *	California, Berkeley and its contributors.
19 * 4. Neither the name of the University nor the names of its contributors
20 *    may be used to endorse or promote products derived from this software
21 *    without specific prior written permission.
22 *
23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 * SUCH DAMAGE.
34 */
35
36#ifndef lint
37#if 0
38static char sccsid[] = "@(#)parse.c	8.2 (Berkeley) 4/28/95";
39#else
40static char rcsid[] = "$NetBSD: parse.c,v 1.4 1997/01/07 11:56:49 tls Exp $";
41#endif
42#endif /* not lint */
43
44#include "extern.h"
45
46wordinit()
47{
48	register struct wlist *w;
49
50	for (w = wlist; w->string; w++)
51		install(w);
52}
53
54hash(s)
55	register char *s;
56{
57	register hashval = 0;
58
59	while (*s) {
60		hashval += *s++;
61		hashval *= HASHMUL;
62		hashval &= HASHMASK;
63	}
64	return hashval;
65}
66
67struct wlist *
68lookup(s)
69	char *s;
70{
71	register struct wlist *wp;
72
73	for (wp = hashtab[hash(s)]; wp != NULL; wp = wp->next)
74		if (*s == *wp->string && strcmp(s, wp->string) == 0)
75			return wp;
76	return NULL;
77}
78
79install(wp)
80	register struct wlist *wp;
81{
82	int hashval;
83
84	if (lookup(wp->string) == NULL) {
85		hashval = hash(wp->string);
86		wp->next = hashtab[hashval];
87		hashtab[hashval] = wp;
88	} else
89		printf("Multiply defined %s.\n", wp->string);
90}
91
92parse()
93{
94	register struct wlist *wp;
95	register n;
96
97	wordnumber = 0;           /* for cypher */
98	for (n = 0; n <= wordcount; n++) {
99		if ((wp = lookup(words[n])) == NULL) {
100			wordvalue[n] = -1;
101			wordtype[n] = -1;
102		} else {
103			wordvalue[n] = wp -> value;
104			wordtype[n] = wp -> article;
105		}
106	}
107}
108