Annotation of src/usr.bin/m4/look.c, Revision 1.1.1.1
1.1 deraadt 1: /*
2: * Copyright (c) 1989, 1993
3: * The Regents of the University of California. All rights reserved.
4: *
5: * This code is derived from software contributed to Berkeley by
6: * Ozan Yigit at York University.
7: *
8: * Redistribution and use in source and binary forms, with or without
9: * modification, are permitted provided that the following conditions
10: * are met:
11: * 1. Redistributions of source code must retain the above copyright
12: * notice, this list of conditions and the following disclaimer.
13: * 2. Redistributions in binary form must reproduce the above copyright
14: * notice, this list of conditions and the following disclaimer in the
15: * documentation and/or other materials provided with the distribution.
16: * 3. All advertising materials mentioning features or use of this software
17: * must display the following acknowledgement:
18: * This product includes software developed by the University of
19: * California, Berkeley and its contributors.
20: * 4. Neither the name of the University nor the names of its contributors
21: * may be used to endorse or promote products derived from this software
22: * without specific prior written permission.
23: *
24: * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
25: * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
26: * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27: * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
28: * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29: * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30: * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31: * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32: * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33: * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34: * SUCH DAMAGE.
35: */
36:
37: #ifndef lint
38: static char sccsid[] = "@(#)look.c 8.1 (Berkeley) 6/6/93";
39: #endif /* not lint */
40:
41: /*
42: * look.c
43: * Facility: m4 macro processor
44: * by: oz
45: */
46:
47: #include <sys/types.h>
48: #include <stdio.h>
49: #include <stdlib.h>
50: #include <string.h>
51: #include "mdef.h"
52: #include "stdd.h"
53: #include "extern.h"
54:
55: int
56: hash(name)
57: register char *name;
58: {
59: register unsigned long h = 0;
60: while (*name)
61: h = (h << 5) + h + *name++;
62: return (h % HASHSIZE);
63: }
64:
65: /*
66: * find name in the hash table
67: */
68: ndptr
69: lookup(name)
70: char *name;
71: {
72: register ndptr p;
73:
74: for (p = hashtab[hash(name)]; p != nil; p = p->nxtptr)
75: if (STREQ(name, p->name))
76: break;
77: return (p);
78: }
79:
80: /*
81: * hash and create an entry in the hash table.
82: * The new entry is added in front of a hash bucket.
83: */
84: ndptr
85: addent(name)
86: char *name;
87: {
88: register int h;
89: ndptr p;
90:
91: h = hash(name);
92: p = (ndptr) xalloc(sizeof(struct ndblock));
93: p->nxtptr = hashtab[h];
94: hashtab[h] = p;
95: p->name = xstrdup(name);
96: return p;
97: }
98:
99: static void
100: freent(p)
101: ndptr p;
102: {
103: if (!(p->type & STATIC)) {
104: free((char *) p->name);
105: if (p->defn != null)
106: free((char *) p->defn);
107: }
108: free((char *) p);
109: }
110:
111: /*
112: * remove an entry from the hashtable
113: */
114: void
115: remhash(name, all)
116: char *name;
117: int all;
118: {
119: register int h;
120: register ndptr xp, tp, mp;
121:
122: h = hash(name);
123: mp = hashtab[h];
124: tp = nil;
125: while (mp != nil) {
126: if (STREQ(mp->name, name)) {
127: mp = mp->nxtptr;
128: if (tp == nil) {
129: freent(hashtab[h]);
130: hashtab[h] = mp;
131: }
132: else {
133: xp = tp->nxtptr;
134: tp->nxtptr = mp;
135: freent(xp);
136: }
137: if (!all)
138: break;
139: }
140: else {
141: tp = mp;
142: mp = mp->nxtptr;
143: }
144: }
145: }