summaryrefslogtreecommitdiff
path: root/compiler.c
diff options
context:
space:
mode:
Diffstat (limited to 'compiler.c')
-rw-r--r--compiler.c21
1 files changed, 14 insertions, 7 deletions
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);
}
}
}