inscribe-evoke.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
34
35

~ cat inscribe-evoke.e | ./evoke > evoke.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" compilation/transform.e" pack-file-contents
  s" compilation/execution.e" pack-file-contents
  s" evoke.e" pack-file-contents
  0 pack8 8 packalign here !
  s" evoke-source" variable

  1024 1024 4 * * allocate s" evoke-binary" variable
  1024 1024 4 * * allocate s" evoke-metadata" variable ;

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