Initial commit: WAFER (WebAssembly Forth Engine in Rust)

Optimizing Forth 2012 compiler targeting WebAssembly with IR-based compilation pipeline, multi-typed stack inference, subroutine threading, and JIT/consolidation modes. Rust kernel with ~35 primitives and Forth standard library for core/core-ext word sets.
2026-03-29 22:14:53 +02:00
commit 683281363d
33 changed files with 5084 additions and 0 deletions
@@ -0,0 +1,48 @@
+\ WAFER Core Word Set - High-level words defined in Forth
+\ These implement Forth 2012 Core words that can be expressed
+\ in terms of primitives and boot words.
+
+\ TODO: Step 10 - Populate as Core compliance tests are run.
+\ Each word here will be tested against forth2012-test-suite/src/core.fr
+
+\ -- Derived stack operations --
+\ : NIP   ( x1 x2 -- x2 )           SWAP DROP ;
+\ : TUCK  ( x1 x2 -- x2 x1 x2 )    SWAP OVER ;
+\ : 2DUP  ( x1 x2 -- x1 x2 x1 x2 ) OVER OVER ;
+\ : 2DROP ( x1 x2 -- )              DROP DROP ;
+\ : 2SWAP ( x1 x2 x3 x4 -- x3 x4 x1 x2 ) ROT >R ROT R> ;
+\ : 2OVER ( x1 x2 x3 x4 -- x1 x2 x3 x4 x1 x2 ) >R >R 2DUP R> R> 2SWAP ;
+
+\ -- Arithmetic --
+\ : 1+      1 + ;
+\ : 1-      1 - ;
+\ : 2*      1 LSHIFT ;
+\ : 2/      1 RSHIFT ;
+\ : NEGATE  0 SWAP - ;
+\ : ABS     DUP 0< IF NEGATE THEN ;
+\ : MIN     2DUP > IF SWAP THEN DROP ;
+\ : MAX     2DUP < IF SWAP THEN DROP ;
+\ : MOD     /MOD DROP ;
+\ : /       /MOD NIP ;
+
+\ -- Comparison --
+\ : 0=   0 = ;
+\ : 0<>  0= 0= ;
+\ : 0<   0 < ;
+\ : 0>   0 SWAP < ;
+\ : <>   = 0= ;
+
+\ -- Memory --
+\ : +!     DUP @ ROT + SWAP ! ;
+\ : CELLS  4 * ;
+\ : CELL+  4 + ;
+\ : CHARS  ;
+\ : CHAR+  1+ ;
+
+\ -- Defining words --
+\ : VARIABLE  CREATE 0 , ;
+\ : CONSTANT  CREATE , DOES> @ ;
+
+\ -- I/O --
+\ : SPACE   BL EMIT ;
+\ : SPACES  0 ?DO SPACE LOOP ;