From f33024799722433c55e03aad49bace89beaf99ca Mon Sep 17 00:00:00 2001
From: Kyle Gunger <kgunger12@gmail.com>
Date: Tue, 5 Dec 2023 01:29:04 -0500
Subject: enable def parsing

---
 compiler.c | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

(limited to 'compiler.c')

diff --git a/compiler.c b/compiler.c
index 98c2c11..f0a1b30 100644
--- a/compiler.c
+++ b/compiler.c
@@ -386,7 +386,7 @@ Type TYP_INBUILT[] = {
 };
 
 Type *typ_get_inbuilt(char *name) {
-	for (int i = 0; i < sizeof(TYP_INBUILT)/sizeof(Type); i++) {
+	for (size_t i = 0; i < sizeof(TYP_INBUILT)/sizeof(Type); i++) {
 		if (strcmp(TYP_INBUILT[i].name, name) == 0) {
 			return &(TYP_INBUILT[i]);
 		}
@@ -1331,11 +1331,11 @@ void p1_parse_params(Vector *var_list, Vector *tokens, size_t *pos) {
 	current_type.name = NULL;
 	current_type.type = NULL;
 
-	for(*pos = tnsl_next_non_nl(tokens, *pos); *pos < end; *pos = tnsl_next_non_nl(tokens, *pos)) {
+	for(*pos = tnsl_next_non_nl(tokens, *pos); *pos < (size_t) end; *pos = tnsl_next_non_nl(tokens, *pos)) {
 		size_t next = tnsl_next_non_nl(tokens, *pos);
 		t = vect_get(tokens, tnsl_next_non_nl(tokens, *pos));
 
-		if(!tok_str_eq(t, ",") && next < end) {
+		if(!tok_str_eq(t, ",") && next < (size_t) end) {
 			if(current_type.name != NULL) {
 				free(current_type.name);
 				vect_end(&(current_type.ptr_chain));
@@ -1375,7 +1375,7 @@ void p1_parse_params(Vector *var_list, Vector *tokens, size_t *pos) {
 		*pos = tnsl_next_non_nl(tokens, *pos);
 		t = vect_get(tokens, *pos);
 
-		if (*pos >= end) {
+		if (*pos >= (size_t)end) {
 			break;
 		} else if (tok_str_eq(t, ",") != true) {
 			printf("ERROR: Unexpected token in member list (was looking for a comma to separate members)\n");
@@ -1459,6 +1459,7 @@ void p1_parse_def(Module *root, Vector *tokens, size_t *pos) {
 	Token *t = vect_get(tokens, *pos);
 	if (t == NULL || t->type != TT_DEFWORD) {
 		printf("ERROR: p1_parse_def was called but did not find a defword after the type. (%d:%d)\n\n", t->line, t->col);
+		*pos -= 1;
 		return;
 	}
 
@@ -1477,6 +1478,8 @@ void p1_parse_def(Module *root, Vector *tokens, size_t *pos) {
 		vect_push_string(&name, type.name);
 		to_add.name = vect_as_string(&name);
 
+		vect_push(&root->vars, &to_add);
+
 		*pos += 1;
 		t = vect_get(tokens, *pos);
 		
@@ -1499,6 +1502,8 @@ void p1_parse_def(Module *root, Vector *tokens, size_t *pos) {
 		}
 	}
 
+	*pos -= 1;
+
 	var_end(&type);
 }
 
@@ -1542,7 +1547,7 @@ void p1_parse_enum(Module *root, Vector *tokens, size_t *pos) {
 	Variable e_type = tnsl_parse_type(tokens, *pos);
 	*pos = tnsl_next_non_nl(tokens, e_type.location); // Past the closing bracket
 	
-	for (;*pos < end; *pos = tnsl_next_non_nl(tokens, *pos)) {
+	for (;*pos < (size_t)end; *pos = tnsl_next_non_nl(tokens, *pos)) {
 		t = vect_get(tokens, *pos);
 		if (t == NULL || t->type != TT_DEFWORD) {
 			printf("ERROR: Unexpected token in enum block (expected user defined name) (%d:%d)\n\n", t->line, t->col);
@@ -1576,7 +1581,7 @@ void p1_parse_enum(Module *root, Vector *tokens, size_t *pos) {
 					*pos = tnsl_find_closing(tokens, *pos);
 				}
 			}
-		} else if (tok_str_eq(t, ",") || *pos >= end) {
+		} else if (tok_str_eq(t, ",") || *pos >= (size_t)end) {
 			continue;
 		} else {
 			printf("ERROR: Expected an assignment (= <value>) or a comma after user defined word in enum block \"%s\" (%d:%d)\n\n", t->data, t->line, t->col);
@@ -1599,7 +1604,7 @@ void p1_parse_function(Module *root, Vector *tokens, size_t *pos) {
 	
 	Function out = func_init("", root);
 
-	for (*pos += 1; *pos < end; *pos += 1) {
+	for (*pos += 1; *pos < (size_t)end; *pos += 1) {
 		Token *t = vect_get(tokens, *pos);
 		if(t->type == TT_DEFWORD) {
 			free(out.name);
@@ -1808,6 +1813,8 @@ void p1_file_loop(Artifact *path, Module *root, Vector *tokens, size_t start, si
 			}
 		} else if (t->type == TT_KEYWORD && tok_str_eq(t, "struct")) {
 			p1_parse_struct(root, tokens, &start);
+		} else if (tnsl_is_def(tokens, start)) {
+			p1_parse_def(root, tokens, &start);
 		}
 	}
 }
-- 
cgit v1.2.3