Annotation of src/usr.bin/lex/sym.c, Revision 1.1
1.1 ! deraadt 1: /* sym - symbol table routines */
! 2:
! 3: /*-
! 4: * Copyright (c) 1990 The Regents of the University of California.
! 5: * All rights reserved.
! 6: *
! 7: * This code is derived from software contributed to Berkeley by
! 8: * Vern Paxson.
! 9: *
! 10: * The United States Government has rights in this work pursuant
! 11: * to contract no. DE-AC03-76SF00098 between the United States
! 12: * Department of Energy and the University of California.
! 13: *
! 14: * Redistribution and use in source and binary forms are permitted provided
! 15: * that: (1) source distributions retain this entire copyright notice and
! 16: * comment, and (2) distributions including binaries display the following
! 17: * acknowledgement: ``This product includes software developed by the
! 18: * University of California, Berkeley and its contributors'' in the
! 19: * documentation or other materials provided with the distribution and in
! 20: * all advertising materials mentioning features or use of this software.
! 21: * Neither the name of the University nor the names of its contributors may
! 22: * be used to endorse or promote products derived from this software without
! 23: * specific prior written permission.
! 24: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
! 25: * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
! 26: * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
! 27: */
! 28:
! 29: /* $Header: /a/cvsroot/src/usr.bin/lex/sym.c,v 1.7 1995/05/05 05:35:42 jtc Exp $ */
! 30:
! 31: #include "flexdef.h"
! 32:
! 33:
! 34: /* declare functions that have forward references */
! 35:
! 36: int hashfunct PROTO((register char[], int));
! 37:
! 38:
! 39: struct hash_entry *ndtbl[NAME_TABLE_HASH_SIZE];
! 40: struct hash_entry *sctbl[START_COND_HASH_SIZE];
! 41: struct hash_entry *ccltab[CCL_HASH_SIZE];
! 42:
! 43: struct hash_entry *findsym();
! 44:
! 45:
! 46: /* addsym - add symbol and definitions to symbol table
! 47: *
! 48: * -1 is returned if the symbol already exists, and the change not made.
! 49: */
! 50:
! 51: int addsym( sym, str_def, int_def, table, table_size )
! 52: register char sym[];
! 53: char *str_def;
! 54: int int_def;
! 55: hash_table table;
! 56: int table_size;
! 57: {
! 58: int hash_val = hashfunct( sym, table_size );
! 59: register struct hash_entry *sym_entry = table[hash_val];
! 60: register struct hash_entry *new_entry;
! 61: register struct hash_entry *successor;
! 62:
! 63: while ( sym_entry )
! 64: {
! 65: if ( ! strcmp( sym, sym_entry->name ) )
! 66: { /* entry already exists */
! 67: return -1;
! 68: }
! 69:
! 70: sym_entry = sym_entry->next;
! 71: }
! 72:
! 73: /* create new entry */
! 74: new_entry = (struct hash_entry *)
! 75: flex_alloc( sizeof( struct hash_entry ) );
! 76:
! 77: if ( new_entry == NULL )
! 78: flexfatal( _( "symbol table memory allocation failed" ) );
! 79:
! 80: if ( (successor = table[hash_val]) != 0 )
! 81: {
! 82: new_entry->next = successor;
! 83: successor->prev = new_entry;
! 84: }
! 85: else
! 86: new_entry->next = NULL;
! 87:
! 88: new_entry->prev = NULL;
! 89: new_entry->name = sym;
! 90: new_entry->str_val = str_def;
! 91: new_entry->int_val = int_def;
! 92:
! 93: table[hash_val] = new_entry;
! 94:
! 95: return 0;
! 96: }
! 97:
! 98:
! 99: /* cclinstal - save the text of a character class */
! 100:
! 101: void cclinstal( ccltxt, cclnum )
! 102: Char ccltxt[];
! 103: int cclnum;
! 104: {
! 105: /* We don't bother checking the return status because we are not
! 106: * called unless the symbol is new.
! 107: */
! 108: Char *copy_unsigned_string();
! 109:
! 110: (void) addsym( (char *) copy_unsigned_string( ccltxt ),
! 111: (char *) 0, cclnum,
! 112: ccltab, CCL_HASH_SIZE );
! 113: }
! 114:
! 115:
! 116: /* ccllookup - lookup the number associated with character class text
! 117: *
! 118: * Returns 0 if there's no CCL associated with the text.
! 119: */
! 120:
! 121: int ccllookup( ccltxt )
! 122: Char ccltxt[];
! 123: {
! 124: return findsym( (char *) ccltxt, ccltab, CCL_HASH_SIZE )->int_val;
! 125: }
! 126:
! 127:
! 128: /* findsym - find symbol in symbol table */
! 129:
! 130: struct hash_entry *findsym( sym, table, table_size )
! 131: register char sym[];
! 132: hash_table table;
! 133: int table_size;
! 134: {
! 135: static struct hash_entry empty_entry =
! 136: {
! 137: (struct hash_entry *) 0, (struct hash_entry *) 0,
! 138: (char *) 0, (char *) 0, 0,
! 139: } ;
! 140: register struct hash_entry *sym_entry =
! 141: table[hashfunct( sym, table_size )];
! 142:
! 143: while ( sym_entry )
! 144: {
! 145: if ( ! strcmp( sym, sym_entry->name ) )
! 146: return sym_entry;
! 147: sym_entry = sym_entry->next;
! 148: }
! 149:
! 150: return &empty_entry;
! 151: }
! 152:
! 153:
! 154: /* hashfunct - compute the hash value for "str" and hash size "hash_size" */
! 155:
! 156: int hashfunct( str, hash_size )
! 157: register char str[];
! 158: int hash_size;
! 159: {
! 160: register int hashval;
! 161: register int locstr;
! 162:
! 163: hashval = 0;
! 164: locstr = 0;
! 165:
! 166: while ( str[locstr] )
! 167: {
! 168: hashval = (hashval << 1) + (unsigned char) str[locstr++];
! 169: hashval %= hash_size;
! 170: }
! 171:
! 172: return hashval;
! 173: }
! 174:
! 175:
! 176: /* ndinstal - install a name definition */
! 177:
! 178: void ndinstal( name, definition )
! 179: char name[];
! 180: Char definition[];
! 181: {
! 182: char *copy_string();
! 183: Char *copy_unsigned_string();
! 184:
! 185: if ( addsym( copy_string( name ),
! 186: (char *) copy_unsigned_string( definition ), 0,
! 187: ndtbl, NAME_TABLE_HASH_SIZE ) )
! 188: synerr( _( "name defined twice" ) );
! 189: }
! 190:
! 191:
! 192: /* ndlookup - lookup a name definition
! 193: *
! 194: * Returns a nil pointer if the name definition does not exist.
! 195: */
! 196:
! 197: Char *ndlookup( nd )
! 198: char nd[];
! 199: {
! 200: return (Char *) findsym( nd, ndtbl, NAME_TABLE_HASH_SIZE )->str_val;
! 201: }
! 202:
! 203:
! 204: /* scextend - increase the maximum number of start conditions */
! 205:
! 206: void scextend()
! 207: {
! 208: current_max_scs += MAX_SCS_INCREMENT;
! 209:
! 210: ++num_reallocs;
! 211:
! 212: scset = reallocate_integer_array( scset, current_max_scs );
! 213: scbol = reallocate_integer_array( scbol, current_max_scs );
! 214: scxclu = reallocate_integer_array( scxclu, current_max_scs );
! 215: sceof = reallocate_integer_array( sceof, current_max_scs );
! 216: scname = reallocate_char_ptr_array( scname, current_max_scs );
! 217: }
! 218:
! 219:
! 220: /* scinstal - make a start condition
! 221: *
! 222: * NOTE
! 223: * The start condition is "exclusive" if xcluflg is true.
! 224: */
! 225:
! 226: void scinstal( str, xcluflg )
! 227: char str[];
! 228: int xcluflg;
! 229: {
! 230: char *copy_string();
! 231:
! 232: /* Generate start condition definition, for use in BEGIN et al. */
! 233: action_define( str, lastsc );
! 234:
! 235: if ( ++lastsc >= current_max_scs )
! 236: scextend();
! 237:
! 238: scname[lastsc] = copy_string( str );
! 239:
! 240: if ( addsym( scname[lastsc], (char *) 0, lastsc,
! 241: sctbl, START_COND_HASH_SIZE ) )
! 242: format_pinpoint_message(
! 243: _( "start condition %s declared twice" ),
! 244: str );
! 245:
! 246: scset[lastsc] = mkstate( SYM_EPSILON );
! 247: scbol[lastsc] = mkstate( SYM_EPSILON );
! 248: scxclu[lastsc] = xcluflg;
! 249: sceof[lastsc] = false;
! 250: }
! 251:
! 252:
! 253: /* sclookup - lookup the number associated with a start condition
! 254: *
! 255: * Returns 0 if no such start condition.
! 256: */
! 257:
! 258: int sclookup( str )
! 259: char str[];
! 260: {
! 261: return findsym( str, sctbl, START_COND_HASH_SIZE )->int_val;
! 262: }