example: fix amalgamate tool
FossilOrigin-Name: 7070b825aa90ec9ebb59af0d52a58dbf43892597b6f0afa2dab02971a5165fed
This commit is contained in:
parent
d3c3b99d08
commit
c7d08e2e8a
1 changed files with 4 additions and 4 deletions
|
@ -9,15 +9,15 @@ Output will be written to stdout.
|
||||||
|
|
||||||
## References
|
## References
|
||||||
|
|
||||||
[1] source/interfaces/retro-unix.c
|
[1] vm/nga-c/retro-unix.c
|
||||||
[2] source/interfaces/retro-image.c
|
[2] vm/nga-c/retro-image.c
|
||||||
|
|
||||||
## Code
|
## Code
|
||||||
|
|
||||||
~~~
|
~~~
|
||||||
{{
|
{{
|
||||||
:image:inline
|
: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
|
:source:line
|
||||||
dup '#include_"retro-image.c" s:eq?
|
dup '#include_"retro-image.c" s:eq?
|
||||||
|
@ -26,7 +26,7 @@ Output will be written to stdout.
|
||||||
---reveal---
|
---reveal---
|
||||||
|
|
||||||
:amalgamate
|
: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
|
amalgamate
|
||||||
|
|
Loading…
Reference in a new issue