From 48361dc5b443b9fb03a07ab7cfc51accedcad518 Mon Sep 17 00:00:00 2001 From: Leo Tenenbaum Date: Sun, 22 Dec 2019 13:58:21 -0500 Subject: started exporting system --- main.c | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'main.c') diff --git a/main.c b/main.c index 2c95b63..6cb0998 100644 --- a/main.c +++ b/main.c @@ -126,9 +126,14 @@ int main(int argc, char **argv) { Typer tr; Evaluator ev; + Exporter exptr; evalr_create(&ev, &tr, &main_allocr); typer_create(&tr, &ev, &main_allocr); + tr.exptr = &exptr; + FILE *out_pkg = fopen("out.top", "wb"); + exptr_create(&exptr, out_pkg); + if (!block_enter(NULL, f.stmts, SCOPE_CHECK_REDECL)) /* enter global scope */ return false; @@ -158,6 +163,7 @@ int main(int argc, char **argv) { evalr_free(&ev); fclose(out); + fclose(out_pkg); idents_free(&file_idents); } -- cgit v1.2.3