diff options
Diffstat (limited to 'transform.e')
| -rw-r--r-- | transform.e | 32 |
1 files changed, 24 insertions, 8 deletions
diff --git a/transform.e b/transform.e index 6b2b64b..1502ee4 100644 --- a/transform.e +++ b/transform.e @@ -726,6 +726,7 @@ allocate-transform-state s" transform-state" variable dup s" self-codeword" stringcmp 0 = { drop 0 exit } if dup s" variable" stringcmp 0 = { drop -2 exit } if dup s" keyword" stringcmp 0 = { drop -1 exit } if + dup s" literal" stringcmp 0 = { drop -1 exit } if ~ From input.e. dup s" buffer-physical-start" stringcmp 0 = { drop 0 exit } if @@ -740,6 +741,27 @@ allocate-transform-state s" transform-state" variable dup s" allocate-input-buffer" stringcmp 0 = { drop 0 exit } if dup s" attach-string-to-input-buffer" stringcmp 0 = { drop -2 exit } if + ~ From interpret.e. + dup s" unroll-past-string" stringcmp 0 = { drop 0 exit } if + dup s" swap-past-string" stringcmp 0 = { drop 0 exit } if + ~ The following are deliberate omissions: dropstring, + ~ dropstring-with-result, accumulate-string. + dup s" is-space" stringcmp 0 = { drop 0 exit } if + dup s" is-alphanumeric" stringcmp 0 = { drop 0 exit } if + ~ The following is a deliberate omission: word. + dup s" generalized-digit-value" stringcmp 0 = { drop 0 exit } if + ~ The following are deliberate omissions: decode-generalized-digit, + ~ read-base-unsigned, read-integer-unsigned, read-integer, read-decimal. + dup s" interpreter-flags" stringcmp 0 = { drop 1 exit } if + dup s" [" stringcmp 0 = { drop 0 exit } if + dup s" ]" stringcmp 0 = { drop 0 exit } if + dup s" :" stringcmp 0 = { drop 0 exit } if + 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 + ~ The following is a deliberate omission: interpret. + dup s" quit" stringcmp 0 = { drop 0 exit } if + ~ Created by warm-start in execution.e. dup s" log" stringcmp 0 = { drop 1 exit } if dup s" s0" stringcmp 0 = { drop 1 exit } if @@ -748,11 +770,6 @@ allocate-transform-state s" transform-state" variable dup s" here" stringcmp 0 = { drop 1 exit } if ~ Word not provided statically, but used during the log-load routine anyway. - dup s" [" stringcmp 0 = { drop 0 exit } if - dup s" ]" stringcmp 0 = { drop 0 exit } if - dup s" :" stringcmp 0 = { drop 0 exit } if - dup s" ;" stringcmp 0 = { drop 0 exit } if - dup s" ;asm" stringcmp 0 = { drop 0 exit } if dup s" L@'" stringcmp 0 = { drop 1 exit } if dup s" L!'" stringcmp 0 = { drop -1 exit } if @@ -1621,7 +1638,7 @@ allocate-transform-state s" transform-state" variable ~ which is the same thing that would happen if we didn't have an alternate ~ at all. interpreter-flags @ 0x01 & { - s" ," log-load-compile-dynamic-word + s" create" log-load-compile-dynamic-word } { log-load-roll-log-address @@ -1774,7 +1791,7 @@ allocate-transform-state s" transform-state" variable ~ We consumed the value, so we apply a delta. -1 transform-apply-stack-delta - log-load-roll-log-address + log-load-unroll-log-address } if-else ; make-immediate @@ -2159,7 +2176,6 @@ allocate-transform-state s" transform-state" variable swap drop ' log-load-left-square-brace-alternate swap } if dup s" ]" stringcmp 0 = { swap drop ' log-load-right-square-brace-alternate swap } if - dup s" '" stringcmp 0 = { swap drop ' log-load-tick-alternate swap } if dup s" ," stringcmp 0 = { swap drop ' log-load-comma-alternate swap } if dup s" variable" stringcmp 0 = { swap drop ' log-load-variable-alternate swap } if |