retroforth/tools/amalgamate.retro
crc 1308006c41 fix
FossilOrigin-Name: c87761406ccef6a856710a913be725648b11a6dd003b8b7d169f1efa8cd772d0
2021-05-28 19:04:27 +00:00

49 lines
987 B
Forth

# Amalgamate
The standard RETRO system is built using the Nga VM[1] and a
copy of the image exported as a C source file[2]. I sometimes
prefer to have these as a single file for easier sharing. This
is a quick little tool to combine them.
Output will be written to stdout.
## References
[1] vm/nga-c/retro.c
[2] vm/nga-c/image.c
## Code
Include compilation instructions and enable i/o devices.
~~~
'/*_Build_with_`cc_-lm_-O2_retro-unix.c_-o_retro`_*/ s:put nl nl
{ 'ENABLE\_FLOATS
'ENABLE\_FILES
'ENABLE\_UNIX
'ENABLE\_RNG
'ENABLE\_CLOCK
'ENABLE\_SCRIPTING
} [ s:format '#define_%s s:format s:put nl ] a:for-each nl
~~~
Then extract and generate the single file source.
~~~
{{
:include-file
#10 + s:chop 'vm/nga-c/ s:prepend here swap file:slurp here s:put ;
:source:line
dup '#include_" s:begins-with?
[ include-file ] [ s:put nl ] choose ;
---reveal---
:amalgamate
'vm/nga-c/retro.c [ source:line ] file:for-each-line ;
}}
amalgamate
~~~