2015-05-04 19:51:54 -07:00
|
|
|
#! /usr/bin/gforth
|
|
|
|
|
\
|
|
|
|
|
\ Sample Hello World! Forth script...
|
|
|
|
|
\
|
|
|
|
|
|
2015-05-08 23:18:50 -07:00
|
|
|
: 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
|
|
|
|
|
|
2015-05-04 19:51:54 -07:00
|
|
|
bye
|
