Bruce/tomo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Activity

Corecursive modules

Browse Source
This commit is contained in:
Bruce Hill 2024-03-19 14:30:40 -04:00
parent 71f4da18f2
commit 80ea0f8507
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compile.c
View File

@ -1768,6 +1768,7 @@ module_code_t compile_file(ast_t *ast)
const char *name = file_base_name(ast->file->filename);
env->file_prefix = heap_strf("%s$", name);
Table_str_set(env->imports, name, env);
CORD_appendf(&env->code->imports, "#include <tomo/tomo.h>\n");

6
typecheck.c
View File

@ -208,8 +208,14 @@ void bind_statement(env_t *env, ast_t *statement)
case Use: {
auto use = Match(statement, Use);
const char *name = file_base_name(use->path);
if (Table_str_get(*env->imports, name))
break;
env_t *module_env = new_compilation_unit();
module_env->file_prefix = heap_strf("%s$", name);
Table_str_set(module_env->imports, name, module_env);
const char *my_name = heap_strn(CORD_to_const_char_star(env->file_prefix), CORD_len(env->file_prefix)-1);
Table_str_set(module_env->imports, my_name, env);
file_t *f = load_file(use->path);
if (!f) errx(1, "No such file: %s", use->path);