From 9385eaa149fae5d3c793f154611518342b7f3e9e Mon Sep 17 00:00:00 2001
From: Kyle Gunger <kgunger12@gmail.com>
Date: Sun, 17 Mar 2024 02:37:34 -0400
Subject: changes to control

---
 compiler.c | 49 +++++++++++++++++++++++++++++++++++++++++--------
 1 file changed, 41 insertions(+), 8 deletions(-)

(limited to 'compiler.c')

diff --git a/compiler.c b/compiler.c
index 9901e2e..f56fe18 100644
--- a/compiler.c
+++ b/compiler.c
@@ -1846,7 +1846,7 @@ void *mod_find_rec(Module *mod, Artifact *art, size_t sub, int find_type) {
 		char **to_check = vect_get(art, sub);
 
 		Vector e_check = vect_from_string("@@"); // In case it is a variable inside an enum
-		Vector t_check = vect_from_string("@"); // In case it is a function inside a method block
+		Vector t_check = vect_from_string("_#"); // In case it is a function inside a method block
 		vect_push_string(&e_check, *to_check);
 		vect_as_string(&e_check);
 		vect_push_string(&t_check, *to_check);
@@ -1939,7 +1939,7 @@ void mod_full_path_rec(Module *m, Vector *v) {
 		mod_full_path_rec(m->parent, v);
 	
 	char dot = '.';
-	if(v->count > 0 || (v->count == 0 && m->name[0] == '@'))
+	if(v->count > 0)
 		vect_push(v, &dot);
 	vect_push_string(v, m->name);
 }
@@ -3094,7 +3094,7 @@ void p1_parse_method(Module *root, Vector *tokens, size_t *pos) {
 		return;
 	}
 
-	Vector mod_name = vect_from_string("@");
+	Vector mod_name = vect_from_string("_#");
 	vect_push_string(&mod_name, t->data);
 	Module out = mod_init(vect_as_string(&mod_name), root, root->exported);
 	vect_end(&mod_name);
@@ -3290,7 +3290,7 @@ void p1_size_type (Module *root, Type *t) {
 	int sum = 0;
 	t->size = -1;
 
-	Vector tmp = vect_from_string("@");
+	Vector tmp = vect_from_string("_#");
 	vect_push_string(&tmp, t->name);
 	t->module = mod_find_sub(root, vect_as_string(&tmp));
 	vect_end(&tmp);
@@ -3349,7 +3349,7 @@ void p1_size_type (Module *root, Type *t) {
 
 void p1_resolve_func_types(Module *root, Function *func) {
 
-	bool method = root->name != NULL && strlen(root->name) > 0 && root->name[0] == '@';
+	bool method = root->name != NULL && strlen(root->name) > 1 && root->name[0] == '_' && root->name[1] == '#';
 
 	int reg = 1;
 	if (method)
@@ -5030,13 +5030,43 @@ void p2_compile_control(Scope *s, CompData *out, Vector *tokens, size_t *pos, Ve
 		return;
 	}
 
+	*pos += 1;
+	t = vect_get(tokens, *pos);
+
+	if (tok_str_eq(t, "loop")) {
+	} else if (t->type != TT_KEYWORD) {
+		printf("ERROR: Expected control block type ('loop' or 'if'), found \"%s\" (%d:%d)\n", t->data, t->line, t->col);
+		p2_error = true;
+		*pos = end;
+		return;
+	} else {
+		// if block
+	}
+	
+	int build = -1;
+	int rep = -1;
+	for (*pos += 1; *pos < end; *pos += 1) {
+		t = vect_get(tokens, *pos);
+		
+		if (tok_str_eq(t, "(")) {
+			build = *pos;
+			*pos = tnsl_find_closing(tokens, *pos);
+		} else if (tok_str_eq(t, "[")) {
+			rep = *pos;
+			*pos = tnsl_find_closing(tokens, *pos);
+		} else {
+			break;
+		}
+	}
+
+
 }
 
 // Handles the 'self' variable in the case where the function is in a method block.
 void _p2_handle_method_scope(Module *root, CompData *out, Scope *fs, Function *f) {
 	
 	// load type for method
-	Artifact t_art = art_from_str((root->name + 1), '.');
+	Artifact t_art = art_from_str((root->name + 2), '.');
 	Type *t = mod_find_type(root, &t_art);
 	art_end(&t_art);
 	
@@ -5148,7 +5178,7 @@ void p2_compile_function(Module *root, CompData *out, Vector *tokens, size_t *po
 	// Scope init
 	Scope fs = scope_init(t->data, root);
 	_p2_func_scope_init(root, out, &fs, f, &p_list);
-	if(root->name != NULL && strlen(root->name) > 0 && root->name[0] == '@') {
+	if(root->name != NULL && strlen(root->name) > 1 && root->name[0] == '_' && root->name[1] == '#') {
 		_p2_handle_method_scope(root, out, &fs, f);
 	}
 
@@ -5211,6 +5241,9 @@ void p2_compile_function(Module *root, CompData *out, Vector *tokens, size_t *po
 					vect_push_string(&out->text, "; User insert asm\n");
 					vect_end(&asm_str);
 				}
+			} else {
+				printf("ERROR: Keyword not implemented inside functions \"%s\" (%d:%d)\n", t->data, t->line, t->col);
+				p2_error = true;
 			}
 		} else if (tnsl_is_def(tokens, *pos)) {
 			p2_compile_def(&fs, out, tokens, pos, &p_list);
@@ -5253,7 +5286,7 @@ void p2_compile_method(Module *root, CompData *out, Vector *tokens, size_t *pos)
 		return;
 	}
 
-	Vector sub_name = vect_from_string("@");
+	Vector sub_name = vect_from_string("_#");
 	vect_push_string(&sub_name, t->data);
 
 	// TODO: method loop
-- 
cgit v1.2.3