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" 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" 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