#include <stdio.h>
#include "symbol_table.h"
-struct symbol_t *new_table(void) {
- return (struct symbol_t *)NULL;
+struct symbol *new_tab(void)
+{
+ return SYMNULL;
}
-struct symbol_t *clone_table(struct symbol_t *table) {
- struct symbol_t *element;
- struct symbol_t *new_tablex;
+struct symbol *clone_tab(struct symbol *tab)
+{
+ struct symbol *elm;
+ struct symbol *new_tabx;
- element=table;
- new_tablex=new_table();
- while((struct symbol_t *)NULL!=element) {
- /* check return value */
- new_tablex=table_add_symbol(new_tablex,element->identifier,element->type,0);
- element=element->next;
+ elm = tab;
+ new_tabx = new_tab();
+ while(elm != SYMNULL) {
+ new_tabx = tab_add_symbol(new_tabx, elm->ident, elm->type, 0);
+ elm = elm->next;
}
- return new_tablex;
+ return new_tabx;
}
-struct symbol_t *table_add_symbol(struct symbol_t *table, char *identifier, short type, short check) {
- struct symbol_t *element;
- struct symbol_t *new_element;
+struct symbol *tab_add_symbol(struct symbol *tab, char *ident, short type, short check)
+{
+ struct symbol *elm;
+ struct symbol *new_elm;
- if(table_lookup(table,identifier)!=(struct symbol_t *)NULL) {
+ if(tab_lookup(tab,ident) != SYMNULL) {
if(check) {
- fprintf(stderr,"Duplicate field %s.\n",identifier);
+ fprintf(stderr, "Feld doppelt vorhanden: \"%s\"\n", ident);
exit(3);
}
-
- table=table_remove_symbol(table,identifier);
+ tab = tab_remove_symbol(tab, ident);
}
- new_element=(struct symbol_t *)malloc(sizeof(struct symbol_t));
- new_element->next=(struct symbol_t *)NULL;
- new_element->identifier=strdup(identifier);
- new_element->type=type;
+ new_elm = (struct symbol *) malloc(sizeof(struct symbol));
+ new_elm->next = SYMNULL;
+ new_elm->ident = strdup(ident);
+ new_elm->type = type;
- if((struct symbol_t *)NULL==table) {
- return new_element;
+ if(tab == SYMNULL) {
+ return new_elm;
}
- element=table;
- while((struct symbol_t *)NULL!=element->next) {
- element=element->next;
+ elm = tab;
+ while(elm->next != SYMNULL) {
+ elm = elm->next;
}
-
- element->next=new_element;
+ elm->next = new_elm;
- return table;
+ return tab;
}
-struct symbol_t *table_lookup(struct symbol_t *table, char *identifier) {
- struct symbol_t *element;
+struct symbol *tab_lookup(struct symbol *tab, char *ident)
+{
+ struct symbol *elm = tab;
- element=table;
-
- if((struct symbol_t *)NULL==table) {
- return (struct symbol_t *)NULL;
+ if(tab == SYMNULL) {
+ return SYMNULL;
}
- if(strcmp(element->identifier,identifier)==0) {
- return element;
+ if(strcmp(elm->ident, ident) == 0) {
+ return elm;
}
- while((struct symbol_t *)NULL!=element->next) {
- element=element->next;
- if(strcmp(element->identifier,identifier)==0) {
- return element;
+ while(elm->next != SYMNULL) {
+ elm = elm->next;
+ if(strcmp(elm->ident, ident) == 0) {
+ return elm;
}
}
- return (struct symbol_t *)NULL;
+ return SYMNULL;
}
-struct symbol_t *table_merge(struct symbol_t *table, struct symbol_t *to_add, short check) {
- struct symbol_t *element;
- struct symbol_t *new_table=clone_table(table);
+struct symbol *tab_merge(struct symbol *tab, struct symbol *to_add, short check)
+{
+ struct symbol *elm = to_add;
+ struct symbol *new_tab = clone_tab(tab);
- element=to_add;
- while(element!=(struct symbol_t *)NULL) {
- new_table=table_add_symbol(new_table,element->identifier,element->type,check);
- element=element->next;
+ while(elm != SYMNULL) {
+ new_tab = tab_add_symbol(new_tab, elm->ident, elm->type, check);
+ elm = elm->next;
}
- return new_table;
+ return new_tab;
}
-struct symbol_t *table_remove_symbol(struct symbol_t *table, char *identifier) {
- struct symbol_t *element;
- struct symbol_t *previous_element;
- struct symbol_t *new_element;
+struct symbol *tab_remove_symbol(struct symbol *tab, char *ident)
+{
+ struct symbol *elm = tab;
+ struct symbol *previous_elm = SYMNULL;
+ struct symbol *new_elm;
- if((struct symbol_t *)NULL==table) {
- return table;
+ if(tab == SYMNULL) {
+ return SYMNULL;
}
- previous_element=(struct symbol_t *)NULL;
- element=table;
-
- while((struct symbol_t *)NULL!=element) {
- if(strcmp(element->identifier,identifier)==0) {
- if((struct symbol_t *)NULL==previous_element) {
- new_element=element->next;
+ while(elm != SYMNULL) {
+ if(strcmp(elm->ident, ident) == 0) {
+ if(previous_elm == SYMNULL) {
+ new_elm = elm->next;
+ } else {
+ previous_elm->next = elm->next;
+ new_elm = tab;
}
- else {
- previous_element->next=element->next;
- new_element=table;
- }
- (void)free(element->identifier);
- (void)free(element);
- return new_element;
+ (void)free(elm->ident);
+ (void)free(elm);
+ return new_elm;
}
- previous_element=element;
- element=element->next;
+ previous_elm = elm;
+ elm = elm->next;
}
- return table;
+ return tab;
}
-void check_variable(struct symbol_t *table, char *identifier) {
- struct symbol_t *element=table_lookup(table,identifier);
- if(element!=(struct symbol_t *)NULL) {
- if(element->type!=SYMBOL_TYPE_VAR) {
- fprintf(stderr,"Identifier %s not a variable.\n",identifier);
+void check_variable(struct symbol *tab, char *ident)
+{
+ struct symbol *elm = tab_lookup(tab, ident);
+ if(elm != SYMNULL) {
+ if(elm->type != S_VAR) {
+ fprintf(stderr, "Identifier ist keine Variable: \"%s\"\n", ident);
exit(3);
}
- }
- else {
- fprintf(stderr,"Unknown identifier %s.\n",identifier);
+ } else {
+ fprintf(stderr, "Unbekannter Identifier: \"%s\"\n", ident);
exit(3);
}
}
-void check_field(struct symbol_t *table, char *identifier) {
- struct symbol_t *element=table_lookup(table,identifier);
- if(element!=(struct symbol_t *)NULL) {
- if(element->type!=SYMBOL_TYPE_FIELD) {
- fprintf(stderr,"Identifier %s not a variable.\n",identifier);
+void check_field(struct symbol *tab, char *ident)
+{
+ struct symbol *elm = tab_lookup(tab, ident);
+ if(elm != SYMNULL) {
+ if(elm->type != S_FIELD) {
+ fprintf(stderr, "Identifier ist kein Feld: \"%s\"\n", ident);
exit(3);
}
- }
- else {
- fprintf(stderr,"Unknown identifier %s.\n",identifier);
+ } else {
+ fprintf(stderr, "Unbekannter Identifier: \"%s\"\n", ident);
exit(3);
}
}
projects / uebersetzerbau-ss10.git / blobdiff