X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=aus_sammelwut%2Fpaulchen%2Fublu%2Fss08%2Fabgabe%2Fcodeb%2F.svn%2Ftext-base%2Fsymbol_table.c.svn-base;fp=aus_sammelwut%2Fpaulchen%2Fublu%2Fss08%2Fabgabe%2Fcodeb%2F.svn%2Ftext-base%2Fsymbol_table.c.svn-base;h=bf66a658b2ab4acd78ff6ad618706f0a3f60e91c;hb=f6171150f9e60240b256808fc31613530b21db6c;hp=0000000000000000000000000000000000000000;hpb=b82da83a0ad2014c11113818eee6bd5fb5f3445c;p=uebersetzerbau-ss10.git

diff --git a/aus_sammelwut/paulchen/ublu/ss08/abgabe/codeb/.svn/text-base/symbol_table.c.svn-base b/aus_sammelwut/paulchen/ublu/ss08/abgabe/codeb/.svn/text-base/symbol_table.c.svn-base
new file mode 100644
index 0000000..bf66a65
--- /dev/null
+++ b/aus_sammelwut/paulchen/ublu/ss08/abgabe/codeb/.svn/text-base/symbol_table.c.svn-base
@@ -0,0 +1,192 @@
+#include <string.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include "symbol_table.h"
+
+struct symbol_t *new_table(void) {
+	return (struct symbol_t *)NULL;
+}
+
+struct symbol_t *clone_table(struct symbol_t *table) {
+	struct symbol_t *element;
+	struct symbol_t *new_tablex;
+
+	element=table;
+	new_tablex=new_table();
+	while((struct symbol_t *)NULL!=element) {
+		/* check return value */
+		if(element->param_index!=-1) {
+			new_tablex=table_add_param(new_tablex,element->identifier,element->param_index);
+		}
+		else {
+			new_tablex=table_add_symbol(new_tablex,element->identifier,element->type,0,element->stack_offset);
+		}
+		element=element->next;
+	}
+
+	return new_tablex;
+}
+
+struct symbol_t *table_add_symbol(struct symbol_t *table, char *identifier, short type, short check, int stack_offset) {
+	struct symbol_t *element;
+	struct symbol_t *new_element;
+
+	if(table_lookup(table,identifier)!=(struct symbol_t *)NULL) {
+		if(check) {
+			fprintf(stderr,"Duplicate field %s.\n",identifier);
+			exit(3);
+		}
+
+		table=table_remove_symbol(table,identifier);
+	}
+	
+	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_element->stack_offset=stack_offset;
+	new_element->param_index=-1;
+
+	if((struct symbol_t *)NULL==table) {
+		return new_element;
+	}
+	element=table;
+
+	while((struct symbol_t *)NULL!=element->next) {
+		element=element->next;
+	}
+
+	element->next=new_element;
+	
+	return table;
+}
+
+struct symbol_t *table_add_param(struct symbol_t *table, char *identifier, int param_index) {
+	struct symbol_t *element;
+	struct symbol_t *new_element;
+
+	if(table_lookup(table,identifier)!=(struct symbol_t *)NULL) {
+		table=table_remove_symbol(table,identifier);
+	}
+	
+	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=SYMBOL_TYPE_PARAM;
+	new_element->param_index=param_index;
+
+	if((struct symbol_t *)NULL==table) {
+		return new_element;
+	}
+	element=table;
+
+	while((struct symbol_t *)NULL!=element->next) {
+		element=element->next;
+	}
+
+	element->next=new_element;
+	
+	return table;
+}
+
+struct symbol_t *table_lookup(struct symbol_t *table, char *identifier) {
+	struct symbol_t *element;
+
+	element=table;
+
+	if((struct symbol_t *)NULL==table) {
+		return (struct symbol_t *)NULL;
+	}
+	
+	if(strcmp(element->identifier,identifier)==0) {
+		return element;
+	}
+	
+	while((struct symbol_t *)NULL!=element->next) {
+		element=element->next;
+		if(strcmp(element->identifier,identifier)==0) {
+			return element;
+		}
+	}
+
+	return (struct symbol_t *)NULL;
+}
+
+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);
+	
+	element=to_add;
+	while(element!=(struct symbol_t *)NULL) {
+		if(element->param_index!=-1) {
+			new_table=table_add_param(new_table,element->identifier,element->param_index);
+		}
+		else {
+			new_table=table_add_symbol(new_table,element->identifier,element->type,check,element->stack_offset);
+		}
+		element=element->next;
+	}
+
+	return new_table;
+}
+
+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;
+
+	if((struct symbol_t *)NULL==table) {
+		return table;
+	}
+
+	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;
+			}
+			else {
+				previous_element->next=element->next;
+				new_element=table;
+			}
+			(void)free(element->identifier);
+			(void)free(element);
+			return new_element;
+		}
+		previous_element=element;
+		element=element->next;
+	}
+
+	return table;
+}
+
+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 && element->type!=SYMBOL_TYPE_PARAM) {
+			fprintf(stderr,"Identifier %s not a variable.\n",identifier);
+			exit(3);
+		}
+	}
+	else {
+		fprintf(stderr,"Unknown identifier %s.\n",identifier);
+		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);
+			exit(3);
+		}
+	}
+	else {
+		fprintf(stderr,"Unknown identifier %s.\n",identifier);
+		exit(3);
+	}
+}
+