fix: correct Cell union and add interpreter, main, word implementations

Co-authored-by: aider (openrouter/tencent/hy3-preview:free) <aider@aider.chat>
2026-05-03 16:59:53 +03:00
parent 0d9b7e3424
commit e5c6fdf9d0
4 changed files with 383 additions and 2 deletions
@@ -0,0 +1,74 @@
+#include "forth.h"
+
+int main(void) {
+    // Register primitive words
+    // Hidden words first
+    add_primitive("exit", do_exit, 0);
+    add_primitive("docolon", do_docolon, 1 << 6); // Hidden
+    add_primitive("lit", do_lit, 1 << 6); // Hidden
+    add_primitive("do_dot_quote_inner", do_dot_quote_inner, 1 << 6); // Hidden
+    add_primitive("0branch", do_zero_branch, 1 << 6); // Hidden (for IF)
+    add_primitive("branch", do_branch, 1 << 6); // Hidden (for ELSE, BEGIN)
+
+    // Public primitives
+    // Stack ops
+    add_primitive("dup", do_dup, 0);
+    add_primitive("drop", do_drop, 0);
+    add_primitive("swap", do_swap, 0);
+    add_primitive("over", do_over, 0);
+    add_primitive("rot", do_rot, 0);
+    add_primitive("minus-rot", do_minus_rot, 0);
+    add_primitive("nip", do_nip, 0);
+    add_primitive("tuck", do_tuck, 0);
+
+    // Arithmetic
+    add_primitive("+", do_add, 0);
+    add_primitive("-", do_sub, 0);
+    add_primitive("*", do_mul, 0);
+    add_primitive("/", do_div, 0);
+    add_primitive("mod", do_mod, 0);
+    add_primitive("/mod", do_slash_mod, 0);
+    add_primitive("1+", do_one_plus, 0);
+    add_primitive("1-", do_one_minus, 0);
+    add_primitive("2+", do_two_plus, 0);
+    add_primitive("2-", do_two_minus, 0);
+    add_primitive("negate", do_negate, 0);
+    add_primitive("abs", do_abs, 0);
+    add_primitive("min", do_min, 0);
+    add_primitive("max", do_max, 0);
+
+    // Logic
+    add_primitive("and", do_and, 0);
+    add_primitive("or", do_or, 0);
+    add_primitive("xor", do_xor, 0);
+    add_primitive("invert", do_invert, 0);
+    add_primitive("lshift", do_lshift, 0);
+    add_primitive("rshift", do_rshift, 0);
+
+    // Comparison
+    add_primitive("=", do_eq, 0);
+    add_primitive("<>", do_neq, 0);
+    add_primitive("<", do_lt, 0);
+    add_primitive(">", do_gt, 0);
+    add_primitive("<=", do_lte, 0);
+    add_primitive(">=", do_gte, 0);
+    add_primitive("0=", do_zero_eq, 0);
+    add_primitive("0<", do_zero_lt, 0);
+    add_primitive("0>", do_zero_gt, 0);
+
+    // I/O
+    add_primitive(".", do_dot, 0);
+    add_primitive("cr", do_cr, 0);
+    add_primitive("emit", do_emit, 0);
+    add_primitive("key", do_key, 0);
+    add_primitive(".\"", do_dot_quote, 1 << 7); // Immediate
+    add_primitive("words", do_words, 0);
+
+    // Compilation words
+    add_primitive(":", do_colon, 0);
+    add_primitive(";", do_semicolon, 1 << 7); // Immediate
+
+    // Start outer interpreter
+    outer_interpreter();
+    return 0;
+}