diff options
| author | Irene Knapp <ireneista@irenes.space> | 2026-05-21 23:38:32 -0700 |
|---|---|---|
| committer | Irene Knapp <ireneista@irenes.space> | 2026-05-21 23:38:32 -0700 |
| commit | 5ae0fdad3c7df2fc02acfc3b8f36d96c5d07bcd4 (patch) | |
| tree | d3ef7a92ca411be57de91c27ad1881e976cd0d9e /transform.e | |
| parent | ff9b791acf12688caec27e8ca883f3eefac8891d (diff) | |
the interpreter fully compiles now
doesn't work quite yet. close :) Force-Push: yes Change-Id: I71b6e788790fe2ca8e07dae95e9ad6e39d0664c0
Diffstat (limited to 'transform.e')
| -rw-r--r-- | transform.e | 8 |
1 files changed, 8 insertions, 0 deletions
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 |