about summary refs log tree commit diff
path: root/hex.e
diff options
context:
space:
mode:
Diffstat (limited to 'hex.e')
-rw-r--r--hex.e23
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 ;