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

editor: add "new <filename>" to command line as option

Browse source 
FossilOrigin-Name: 515e25b3cd9937a3c7e4e1185b0d32ba9f5797fbd2686ac05908f9ef7d0c23c6
This commit is contained in:
crc 2017-11-17 21:01:51 +00:00
parent 44285bc81b
commit b8f7dd4d62
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
example/edit.forth
View file

@ -33,6 +33,9 @@ Get the name of the file to edit. If no file is provided, exit.
~~~
sys:argc n:zero? [ #0 unix:exit ] if
#0 sys:argv s:keep !SourceFile
@SourceFile 'new s:eq?
[ #1 sys:argv s:keep !SourceFile
@SourceFile file:A file:open file:close ] if
~~~
This is just a shortcut to make writing strings to the current file