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