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" labels.e" include
s" elf.e" include
s" transform.e" include

: prepare
  here @ dup
  s" core.e" pack-file-contents
  s" linux.e" pack-file-contents
  s" output.e" pack-file-contents
  s" amd64.e" pack-file-contents
  s" execution-support.e" pack-file-contents
  s" log-load.e" pack-file-contents
  s" dynamic.e" pack-file-contents
  s" input.e" pack-file-contents
  s" interpret.e" pack-file-contents
  s" flow-control.e" pack-file-contents
  s" linux-dynamic.e" pack-file-contents
  s" files.e" pack-file-contents
  s" labels.e" pack-file-contents
  s" elf.e" pack-file-contents
  s" transform.e" pack-file-contents
  s" 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