utils/Burg/symtab.c

   1 char rcsid_symtab[] = "$Id$";
   2
   3 #include <stdio.h>
   4 #include <string.h>
   5 #include "b.h"
   6 #include "fe.h"
   7
   8 static List symtab;
   9
  10 Symbol
  11 newSymbol(name) char *name;
  12 {
  13         Symbol s;
  14
  15         s = (Symbol) zalloc(sizeof(struct symbol));
  16         assert(s);
  17         s->name = name;
  18         return s;
  19 }
  20
  21 Symbol
  22 enter(name, new) char *name; int *new;
  23 {
  24         List l;
  25         Symbol s;
  26
  27         *new = 0;
  28         for (l = symtab; l; l = l->next) {
  29                 s = (Symbol) l->x;
  30                 if (!strcmp(name, s->name)) {
  31                         return s;
  32                 }
  33         }
  34         *new = 1;
  35         s = newSymbol(name);
  36         symtab = newList(s, symtab);
  37         return s;
  38 }