diff options
Diffstat (limited to 'hex.e')
| -rw-r--r-- | hex.e | 23 |
1 files changed, 20 insertions, 3 deletions
diff --git a/hex.e b/hex.e index 8a57383..9c645f0 100644 --- a/hex.e +++ b/hex.e @@ -1,4 +1,7 @@ -~ cat hex.e | ./evoke > hex && chmod 755 hex +~ ./evoke hex.e enchant > hex && chmod 755 hex +~ ./evoke hex.e inscribe > hex.hex + +s" evoke.e" include drop ~ (buffer start, output point, label offset ~ -- buffer start, output point) @@ -303,6 +306,20 @@ ~ : This is the end of the hex dump. ; -x' all-contents label-loop -1 3unroll sys-write bye +: define-compilation + allocate-compilation-definition + dup zero-compilation-definition + ~ (definition) + + :raw-executable over compilation-definition-executable-type ! + + [ current-input-file-name literal-string ] + over compilation-definition-top-level-filename ! + + x' all-contents over compilation-definition-compile-body ! + + s" hex-executable-data" variable ; +define-compilation + +: latest-executable-data hex-executable-data ; |