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
36
37
38
39
40
41
42

~ (cat labels.e elf.e transform.e execution.e \
~  echo 262144 read-to-buffer; \
~  cat core.e linux.e output.e amd64.e execution-support.e log-load.e; \
~  echo pyrzqxgl 262144 read-to-buffer; \
~  cat core.e linux.e output.e amd64.e execution-support.e log-load.e \
~      dynamic.e input.e interpret.e ; \
~  echo 0 sys-exit pyrzqxgl; \
~  cat evoke.e) \
~     | ./quine > evoke && chmod 755 evoke && ./evoke

s" source-to-copy-to-log" variable
s" source-to-precompile" variable


~ (output memory start, current output point
~  -- output memory start, current output point)
~
~ Everything directly called by all-contents has this same interface.
~
: all-contents
  0x08000000 L!' origin

  elf-file-header
  elf-program-header
  output-cold-start
  source-to-copy-to-log output-warm-start
  source-to-precompile label-transform

  ~   If we wanted words in the log to be able to call statically-linked
  ~ words, we could set this to something nonzero. We don't, so we leave it
  ~ alone.
  0 L!' final-word-name

  current-offset L!' total-size
  0 L!' :
  0 L!' ;
  0 L!' ;asm
  ;

' all-contents entry-to-execution-token label-loop
swap sys-write bye