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 = VOID;
  11     value_set(&symbol->value, symbol->type, NULL);
  12     symbol->decl_linenum = 0;
  13     symbol->params = 0;
  14     symbol->param_types = (int *) malloc (sizeof(int) * 10);
  15
  16     symbol->next = NULL;
  17
  18     if (name != NULL)
  19         symbol->name = strdup(name);
  20      else
  21         symbol->name = NULL;
  22
  23     return symbol;
  24 }
  25
  26 /* Insere um simbolo na tabela indicada.
  27  * Caso o simbolo ja exista, a memoria do
  28  * simbolo do parametro sera liberada.
  29  * Returns: O simbolo passado como parametro,
  30  * caso este ainda nao esteja na tabela,
  31  * ou um ponteiro para o simbolo encontrado.
  32  */
  33 Symbol *
  34 symbol_insert(Symbol *symtab, Symbol *symbol)
  35 {
  36     Symbol *sym;
  37
  38     if (symbol == NULL)
  39         return NULL;
  40
  41     sym = symbol_lookup(symtab, symbol->name);
  42
  43     if (sym != NULL) {
  44         free(symbol->name);
  45         free(symbol);
  46         return sym;
  47     }
  48
  49     symbol->next = symtab->next;
  50     symtab->next = symbol;
  51
  52     return symbol;
  53 }
  54
  55 Symbol *
  56 symbol_lookup(Symbol *symtab, char const *name)
  57 {
  58     Symbol *temp;
  59
  60     if (symtab == NULL)
  61         return NULL;
  62
  63     for (temp = symtab->next; temp != NULL; temp = temp->next) {
  64         if (!strcmp (temp->name, name))
  65             return temp;
  66     }
  67
  68     return temp;
  69 }
  70
  71 void
  72 symbol_table_destroy(Symbol *symtab)
  73 {
  74     Symbol *first;
  75     Symbol *to_kill;
  76     first = symtab->next;
  77     symtab->next = NULL;
  78
  79     while (first != NULL) {
  80         to_kill = first;
  81         first = first->next;
  82         if (to_kill->name != NULL)
  83             free(to_kill->name);
  84         free(to_kill);
  85     }
  86 }
  87
  88 void
  89 symbol_print(Symbol *symbol)
  90 {
  91     if (symbol == NULL) {
  92         printf("NULL\n\n");
  93         return;
  94     }
  95
  96     printf("Symbol: %x\n", symbol);
  97     printf("name: %s\n", symbol->name);
  98     printf("type: %d\n", symbol->type);
  99     printf("value:");
 100     value_print(stdout, &symbol->value, symbol->type);
 101     printf("\ndeclaration line: %d\n", symbol->decl_linenum);
 102     printf("next: %x\n\n", symbol->next);
 103 }
 104
 105 void
 106 symbol_table_dump(Symbol *symtab)
 107 {
 108     Symbol *temp = symtab;
 109
 110     for (temp = symtab->next; temp != NULL; temp = temp->next)
 111         symbol_print(temp);
 112 }