Added version info output to Hello Forth World script and
made initial pass at outputing command line arguments.
This commit is contained in:
parent
f09f508324
commit
fdbb99aeeb
1 changed files with 11 additions and 1 deletions
|
|
@ -3,5 +3,15 @@
|
||||||
\ Sample Hello World! Forth script...
|
\ Sample Hello World! Forth script...
|
||||||
\
|
\
|
||||||
|
|
||||||
.( Hello Forth World! ) cr
|
: verinfo s" git describe --abbrev=7 --dirty --always --tags" system ;
|
||||||
|
|
||||||
|
\ Obligatory Hello World with some version info
|
||||||
|
.( Hello Forth World! Version: ) verinfo cr
|
||||||
|
|
||||||
|
\ Show list of command line arguments
|
||||||
|
: printargs
|
||||||
|
argc @ 0 do i arg type cr loop ;
|
||||||
|
.( Command line args: ) cr
|
||||||
|
printargs
|
||||||
|
|
||||||
bye
|
bye
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue