symbol_table.c

   1 #include <stdio.h>
   2 #include <string.h>
   3 #include <stdlib.h>
   4 #include "symbol_table.h"
   5
   6 Symbol *
   7 symbol_new(char const * name)
   8 {
   9     Symbol * symbol = (Symbol *) malloc (sizeof(Symbol));
  10     symbol->type = NONE_TYPE;
  11     value_set(&symbol->value, symbol->type, NULL);
  12     symbol->next = NULL;
  13
  14     if (name != NULL)
  15         symbol->name = strdup(name);
  16      else
  17         symbol->name = NULL;
  18
  19     return symbol;
  20 }
  21
  22
  23 Symbol *
  24 symbol_insert(Symbol *table, char const *name)
  25 {
  26     Symbol *symbol = symbol_lookup(table, name);
  27
  28     if (symbol == NULL) {
  29         symbol = symbol_new(name);
  30         symbol->next = table;
  31         return symbol;
  32     }
  33
  34     return table;
  35 }
  36
  37 Symbol *
  38 symbol_lookup(Symbol *table, char const *name)
  39 {
  40     Symbol *temp;
  41     temp = table;
  42
  43     while (temp != NULL) {
  44         if (!strcmp (temp->name, name))
  45             return temp;
  46
  47         temp = temp->next;
  48     }
  49
  50     return temp;
  51 }
  52
  53 void
  54 symbol_table_destroy(Symbol **table)
  55 {
  56     Symbol *first;
  57     Symbol *to_kill;
  58     first = *table;
  59     *table = NULL;
  60
  61     while (first != NULL) {
  62         to_kill = first;
  63         first = first->next;
  64         free(to_kill);
  65     }
  66
  67     free(first);
  68 }
  69
  70 void
  71 symbol_print(Symbol *symbol)
  72 {
  73     if (symbol == NULL) {
  74         printf("NULL\n\n");
  75         return;
  76     }
  77
  78     printf("Symbol: %x\n", symbol);
  79     printf("name: %s\n", symbol->name);
  80     printf("type: %d\n", symbol->type);
  81     printf("value:");
  82     value_print(&symbol->value, symbol->type);
  83     printf("\nnext: %x\n\n", symbol->next);
  84 }
  85
  86 void
  87 symbol_table_dump(Symbol *table)
  88 {
  89     Symbol *temp = table;
  90
  91     while(temp != NULL) {
  92         symbol_print(temp);
  93         temp = temp->next;
  94     }
  95
  96     free(temp);
  97 }