r4/lang
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

implement basic RAII-ish array management

Browse Source
This commit is contained in:
r4
2021-12-29 21:42:43 +01:00
parent 7773cc6c14
commit 4d5cd93354
8 changed files with 137 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
main.c
View File

@@ -166,6 +166,7 @@ static Value fn_getln(Value *args) {
.type = TypeArr,
.Arr = {
.is_string = true,
.dynamically_allocated = true,
.type = TypeChar,
.vals = line,
.len = len,
@@ -219,11 +220,9 @@ int main(int argc, const char **argv) {
}
fclose(fp);
/* lex source file */
Pool *static_vars = pool_new(4096);
TokList tokens = lex(file, static_vars);
TokList tokens = lex(file);
if (err) {
toklist_term(&tokens);
pool_term(static_vars);
free(file);
fprintf(stderr, C_IRED "Lexer error" C_RESET " in " C_CYAN "%s" C_RESET ":%zu:%zu: %s\n", filename, err_ln, err_col, errbuf);
return 1;
@@ -248,7 +247,6 @@ int main(int argc, const char **argv) {
if (err) {
irlist_term(&ir);
toklist_term(&tokens);
pool_term(static_vars);
fprintf(stderr, C_IRED "Parser error" C_RESET " in " C_CYAN "%s" C_RESET ":%zu:%zu: %s\n", filename, err_ln, err_col, errbuf);
return 1;
}
@@ -261,11 +259,9 @@ int main(int argc, const char **argv) {
run(&ir, funcs);
if (err) {
irlist_term(&ir);
pool_term(static_vars);
fprintf(stderr, C_IRED "Runtime error" C_RESET " in " C_CYAN "%s" C_RESET ":%zu:%zu: %s\n", filename, err_ln, err_col, errbuf);
return 1;
}
}
irlist_term(&ir);
pool_term(static_vars);
}