From 5ae0fdad3c7df2fc02acfc3b8f36d96c5d07bcd4 Mon Sep 17 00:00:00 2001 From: Irene Knapp Date: Thu, 21 May 2026 23:38:32 -0700 Subject: the interpreter fully compiles now doesn't work quite yet. close :) Force-Push: yes Change-Id: I71b6e788790fe2ca8e07dae95e9ad6e39d0664c0 --- transform.e | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'transform.e') diff --git a/transform.e b/transform.e index 1502ee4..4d7c32c 100644 --- a/transform.e +++ b/transform.e @@ -740,6 +740,13 @@ allocate-transform-state s" transform-state" variable dup s" allocate-input-buffer-metadata" stringcmp 0 = { drop 1 exit } if dup s" allocate-input-buffer" stringcmp 0 = { drop 0 exit } if dup s" attach-string-to-input-buffer" stringcmp 0 = { drop -2 exit } if + dup s" consume-from" stringcmp 0 = { drop -1 exit } if + dup s" peek-from" stringcmp 0 = { drop 0 exit } if + dup s" key-from" stringcmp 0 = { drop 0 exit } if + dup s" normalize-buffer" stringcmp 0 = { drop -1 exit } if + dup s" compute-next-buffer-free-block" stringcmp 0 = { drop 1 exit } if + dup s" refill-input-buffer-from-stdin" stringcmp 0 = { drop -1 exit } if + dup s" main-input-buffer" stringcmp 0 = { drop 1 exit } if ~ From interpret.e. dup s" unroll-past-string" stringcmp 0 = { drop 0 exit } if @@ -759,6 +766,7 @@ allocate-transform-state s" transform-state" variable dup s" ;" stringcmp 0 = { drop 0 exit } if dup s" ;asm" stringcmp 0 = { drop 0 exit } if dup s" '" stringcmp 0 = { drop 1 exit } if + dup s" relink-main-input-buffer-to-stdin" stringcmp 0 = { drop 0 exit } if ~ The following is a deliberate omission: interpret. dup s" quit" stringcmp 0 = { drop 0 exit } if -- cgit 1.4.1