blob: 63fd9f9a905f7374a2be90f4ad0b819d5614887a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
/* symtab.c 1.2 85/02/04 */
/* symbol table routines for scribe-to-latex
*
* copyright (c) 1984 by Van Jacobson, Lawrence Berkeley Laboratory
* This program may be freely redistributed but not for profit. This
* comment must remain in the program or any derivative.
*/
#include <ctype.h>
#include "symtab.h"
#define HASHSIZE 127
#define MAXSYM 128 /* max char in a symbol name */
static struct stab *sthash[HASHSIZE];
#define SYMHASH(str) ((str[0]+(str[1]<<8))%HASHSIZE)
struct stab *lookup( str )
register char *str;
{
register struct stab *s;
char text[MAXSYM];
register char *cp = text;
register char *textend = &text[MAXSYM-1];
/* convert the string to lower case, then try to find it */
while( *str && cp<textend )
*cp++ = (isupper(*str)? tolower(*str++): *str++);
*cp = '\0';
s = sthash[SYMHASH(text)];
while( s && strcmp(text,s->s_text) )
s = s->s_next;
return(s);
}
struct stab *enter( text, type, reptext )
char *text, *reptext;
int type;
{
register struct stab *n;
/* set up the new entry */
n = (struct stab *) malloc( sizeof(struct stab) );
n->s_text = (char *) malloc( strlen(text)+1 );
lc_strcpy( n->s_text, text );
n->s_reptext = (char *) malloc( strlen(reptext)+1 );
lc_strcpy( n->s_reptext, reptext );
n->s_type = type;
/* add it to the table */
n->s_next = sthash[SYMHASH(n->s_text)];
sthash[SYMHASH(n->s_text)] = n;
return(n);
}
/* copy a string converting upper case to lower case. */
lc_strcpy( dst, src )
char *dst;
char *src;
{
while( *src )
*dst++ = isupper(*src)? tolower(*src++): *src++;
*dst = '\0';
}
|
