inscribe-hex.e


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

~ cat inscribe-hex.e | ./evoke > hex.hex

s" compilation/labels.e" include
s" compilation/elf.e" include
s" compilation/transform.e" include

: prepare
  here @ dup
  s" language/static/core.e" pack-file-contents
  s" language/static/linux.e" pack-file-contents
  s" language/static/output.e" pack-file-contents
  s" language/static/amd64.e" pack-file-contents
  s" language/static/execution-support.e" pack-file-contents
  s" language/static/log-load.e" pack-file-contents
  s" language/dynamic/dynamic.e" pack-file-contents
  s" language/dynamic/input.e" pack-file-contents
  s" language/dynamic/interpret.e" pack-file-contents
  s" language/dynamic/flow-control.e" pack-file-contents
  s" language/dynamic/linux.e" pack-file-contents
  s" language/dynamic/files.e" pack-file-contents
  s" compilation/labels.e" pack-file-contents
  s" compilation/elf.e" pack-file-contents
  s" hex.e" pack-file-contents
  0 pack8 8 packalign here !
  s" hex-source" variable

  1024 1024 * allocate s" hex-binary" variable
  1024 1024 * allocate s" hex-metadata" variable ;

prepare
hex-metadata hex-binary dup hex-source hex-transform
bye