port eval test

src/eval/eval_parse.c

@@ -1578,7 +1578,7 @@ internal E_Parse
 e_push_parse_from_string(Arena *arena, String8 text)
 {
   Temp scratch = scratch_begin(&arena, 1);
-  E_TokenArray tokens = e_token_array_from_text(scratch.arena, text);
+  E_TokenArray tokens = e_token_array_from_text(arena, text);
   E_Parse parse = e_push_parse_from_string_tokens__prec(arena, text, tokens, e_max_precedence, max_U64);
   scratch_end(scratch);
   return parse;

src/torture/torture_eval.c

@@ -0,0 +1,105 @@
+#define T_Group "eval"
+
+T_BeginTest(eval_compiler_basics)
+{
+  E_Cache *eval_cache = e_cache_alloc();
+  e_select_cache(eval_cache);
+  E_BaseCtx *base_ctx = push_array(arena, E_BaseCtx, 1);
+  e_select_base_ctx(base_ctx);
+  E_IRCtx *ir_ctx = push_array(arena, E_IRCtx, 1);
+  e_select_ir_ctx(ir_ctx);
+  E_InterpretCtx *interpret_ctx = push_array(arena, E_InterpretCtx, 1);
+  e_select_interpret_ctx(interpret_ctx, 0, 0);
+
+  String8 exprs[] =
+  {
+    str8_lit("123"),
+    str8_lit("1 + 2"),
+    str8_lit("foo"),
+    str8_lit("foo(bar)"),
+    str8_lit("foo(bar(baz))"),
+  };
+  String8List logs = {0};
+  for EachElement(idx, exprs)
+  {
+    String8 log = e_debug_log_from_expr_string(arena, exprs[idx]);
+    str8_list_push(arena, &logs, log);
+  }
+  String8 log = str8_list_join(arena, &logs, 0);
+
+  String8 expected_log = str8_lit(
+"`123`\n"
+"    tokens:\n"
+"        Numeric: `123`\n"
+"    expr:\n"
+"        LeafU64 (123)\n"
+"    type:\n"
+"        int32\n"
+"    ir_tree:\n"
+"        ConstU8 (123)\n"
+"\n"
+"`1 + 2`\n"
+"    tokens:\n"
+"        Numeric: `1`\n"
+"        Symbol: `+`\n"
+"        Numeric: `2`\n"
+"    expr:\n"
+"        Add\n"
+"            LeafU64 (1)\n"
+"            LeafU64 (2)\n"
+"    type:\n"
+"        int32\n"
+"    ir_tree:\n"
+"        Add (1026)\n"
+"            ConstU8 (1)\n"
+"            ConstU8 (2)\n"
+"\n"
+"`foo`\n"
+"    tokens:\n"
+"        Identifier: `foo`\n"
+"    expr:\n"
+"        LeafIdentifier (`foo`)\n"
+"    type:\n"
+"    ir_tree:\n"
+"        Stop\n"
+"\n"
+"`foo(bar)`\n"
+"    tokens:\n"
+"        Identifier: `foo`\n"
+"        Symbol: `(`\n"
+"        Identifier: `bar`\n"
+"        Symbol: `)`\n"
+"    expr:\n"
+"        Call\n"
+"            LeafIdentifier (`foo`)\n"
+"            LeafIdentifier (`bar`)\n"
+"    type:\n"
+"    ir_tree:\n"
+"        Stop\n"
+"\n"
+"`foo(bar(baz))`\n"
+"    tokens:\n"
+"        Identifier: `foo`\n"
+"        Symbol: `(`\n"
+"        Identifier: `bar`\n"
+"        Symbol: `(`\n"
+"        Identifier: `baz`\n"
+"        Symbol: `)`\n"
+"        Symbol: `)`\n"
+"    expr:\n"
+"        Call\n"
+"            LeafIdentifier (`foo`)\n"
+"            Call\n"
+"                LeafIdentifier (`bar`)\n"
+"                LeafIdentifier (`baz`)\n"
+"    type:\n"
+"    ir_tree:\n"
+"        Stop\n"
+"\n"
+);
+
+  T_Ok(str8_match(log, expected_log, 0));
+}
+
+#undef T_Group
+

src/torture/torture_main.c

@@ -4,35 +4,78 @@
 ////////////////////////////////
 // Build Options
 
-#define BUILD_CONSOLE_INTERFACE 1
 #define BUILD_TITLE "TORTURE"
+
+#define BUILD_CONSOLE_INTERFACE 1
+#define OS_FEATURE_GRAPHICAL 1
+#define DMN_INIT_MANUAL 1
+#define CTRL_INIT_MANUAL 1
+#define OS_GFX_INIT_MANUAL 1
+#define FP_INIT_MANUAL 1
+#define R_INIT_MANUAL 1
+#define FNT_INIT_MANUAL 1
+#define D_INIT_MANUAL 1
+#define RD_INIT_MANUAL 1
 #define NO_ASYNC 1
 
 ////////////////////////////////
 
 #include "base/base_inc.h"
+#include "x64/x64.h"
 #include "linker/hash_table.h"
+#include "linker/lf_hash_table.h"
 #include "os/os_inc.h"
+#include "artifact_cache/artifact_cache.h"
 #include "rdi/rdi_local.h"
 #include "rdi_make/rdi_make_local.h"
-#include "obj/obj.h"
+#include "mdesk/mdesk.h"
+#include "config/config_inc.h"
+#include "content/content.h"
+#include "file_stream/file_stream.h"
+#include "text/text.h"
+#include "mutable_text/mutable_text.h"
 #include "coff/coff.h"
 #include "coff/coff_parse.h"
 #include "coff/coff_obj_writer.h"
 #include "coff/coff_lib_writer.h"
 #include "pe/pe.h"
 #include "pe/pe_section_flags.h"
+#include "elf/elf.h"
+#include "gnu/gnu.h"
+#include "gnu/gnu_parse.h"
+#include "elf/elf_parse.h"
+#include "elf/elf_dump.h"
 #include "codeview/codeview.h"
 #include "codeview/codeview_parse.h"
 #include "msf/msf.h"
 #include "msf/msf_parse.h"
 #include "pdb/pdb.h"
 #include "pdb/pdb_parse.h"
-#include "elf/elf.h"
+#include "pdb/pdb_stringize.h"
-#include "elf/elf_parse.h"
 #include "dwarf/dwarf_inc.h"
+#include "rdi_from_coff/rdi_from_coff.h"
+#include "rdi_from_elf/rdi_from_elf.h"
+#include "rdi_from_pdb/rdi_from_pdb.h"
+#include "rdi_from_dwarf/rdi_from_dwarf.h"
+#include "obj/obj.h"
+#include "radbin/radbin.h"
 #include "regs/regs.h"
+#include "regs/rdi/regs_rdi.h"
 #include "regs/dwarf/regs_dwarf.h"
+#include "dbg_info/dbg_info.h"
+#include "disasm/disasm.h"
+#include "stap/stap_parse.h"
+#include "demon/demon_inc.h"
+#include "eval/eval_inc.h"
+#include "eval_visualization/eval_visualization_inc.h"
+#include "ctrl/ctrl_inc.h"
+#include "font_provider/font_provider_inc.h"
+#include "render/render_inc.h"
+#include "font_cache/font_cache.h"
+#include "draw/draw.h"
+#include "ui/ui_inc.h"
+#include "dbg_engine/dbg_engine_inc.h"
+#include "raddbg/raddbg_inc.h"
 #include "linker/base_ext/base_core.h"
 #include "linker/base_ext/base_arena.h"
 #include "linker/base_ext/base_arrays.h"
@@ -47,27 +90,60 @@
 #include "torture_radlink.h"
 
 #include "base/base_inc.c"
+#include "x64/x64.c"
 #include "linker/hash_table.c"
+#include "linker/lf_hash_table.c"
 #include "os/os_inc.c"
+#include "artifact_cache/artifact_cache.c"
 #include "rdi/rdi_local.c"
 #include "rdi_make/rdi_make_local.c"
-#include "obj/obj.c"
+#include "mdesk/mdesk.c"
+#include "config/config_inc.c"
+#include "content/content.c"
+#include "file_stream/file_stream.c"
+#include "text/text.c"
+#include "mutable_text/mutable_text.c"
 #include "coff/coff.c"
 #include "coff/coff_parse.c"
 #include "coff/coff_obj_writer.c"
 #include "coff/coff_lib_writer.c"
 #include "pe/pe.c"
+#include "elf/elf.c"
+#include "gnu/gnu.c"
+#include "gnu/gnu_parse.c"
+#include "elf/elf_parse.c"
+#include "elf/elf_dump.c"
 #include "codeview/codeview.c"
 #include "codeview/codeview_parse.c"
 #include "msf/msf.c"
 #include "msf/msf_parse.c"
 #include "pdb/pdb.c"
 #include "pdb/pdb_parse.c"
-#include "elf/elf.c"
+#include "pdb/pdb_stringize.c"
-#include "elf/elf_parse.c"
 #include "dwarf/dwarf_inc.c"
+#include "rdi_from_coff/rdi_from_coff.c"
+#include "rdi_from_elf/rdi_from_elf.c"
+#include "rdi_from_pdb/rdi_from_pdb.c"
+#include "rdi_from_dwarf/rdi_from_dwarf.c"
+#include "obj/obj.c"
+#include "radbin/radbin.c"
 #include "regs/regs.c"
+#include "regs/rdi/regs_rdi.c"
 #include "regs/dwarf/regs_dwarf.c"
+#include "dbg_info/dbg_info.c"
+#include "disasm/disasm.c"
+#include "stap/stap_parse.c"
+#include "demon/demon_inc.c"
+#include "eval/eval_inc.c"
+#include "eval_visualization/eval_visualization_inc.c"
+#include "ctrl/ctrl_inc.c"
+#include "font_provider/font_provider_inc.c"
+#include "render/render_inc.c"
+#include "font_cache/font_cache.c"
+#include "draw/draw.c"
+#include "ui/ui_inc.c"
+#include "dbg_engine/dbg_engine_inc.c"
+#include "raddbg/raddbg_inc.c"
 #include "linker/base_ext/base_core.c"
 #include "linker/base_ext/base_arena.c"
 #include "linker/base_ext/base_arrays.c"
@@ -75,12 +151,16 @@
 #include "linker/thread_pool/thread_pool.c"
 #include "linker/codeview_ext/codeview.c"
 #include "linker/pdb_ext/msf_builder.c"
+
 #include "torture.c"
 #include "torture_base.c"
 #include "torture_radlink.c"
 #include "torture_dwarf.c"
 #include "torture_d2r.c"
 #include "torture_p2r.c"
+#include "torture_eval.c"
+
+internal B32 frame(void) { return 0; }
 
 ////////////////////////////////