crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

example: fix amalgamate tool

Browse source 
FossilOrigin-Name: 7070b825aa90ec9ebb59af0d52a58dbf43892597b6f0afa2dab02971a5165fed
This commit is contained in:
crc 2019-12-13 16:58:48 +00:00
parent d3c3b99d08
commit c7d08e2e8a
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
example/amalgamate.retro
View file

@ -9,15 +9,15 @@ Output will be written to stdout.
## References
[1] source/interfaces/retro-unix.c
[2] source/interfaces/retro-image.c
[1] vm/nga-c/retro-unix.c
[2] vm/nga-c/retro-image.c
## Code
~~~
{{
:image:inline
'source/interfaces/retro-image.c [ s:put nl ] file:for-each-line ;
'vm/nga-c/retro-image.c [ s:put nl ] file:for-each-line ;
:source:line
dup '#include_"retro-image.c" s:eq?
@ -26,7 +26,7 @@ Output will be written to stdout.
---reveal---
:amalgamate
'source/interfaces/retro-unix.c [ source:line ] file:for-each-line ;
'vm/nga-c/retro-unix.c [ source:line ] file:for-each-line ;
}}
amalgamate