steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

command-line.startup: fix help message on windows 

Support /? while we're at it. Fixes #323
db4
Joe Groff 2011-11-15 13:09:32 -08:00
parent 1db3d6f051
commit ddcc87f58a
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/command-line/startup/startup.factor
View File

@ -10,7 +10,7 @@ Usage: """ write vm file-name write """ [Factor arguments] [script] [script argu
Common arguments: Common arguments:
-help print this message and exit -help print this message and exit
-i=<image> load Factor image file <image> (default """ write vm file-name write """.image) -i=<image> load Factor image file <image> (default """ write vm file-stem write """.image)
-run=<vocab> run the MAIN: entry point of <vocab> -run=<vocab> run the MAIN: entry point of <vocab>
-run=listener run terminal listener -run=listener run terminal listener
-run=ui.tools run Factor development UI -run=ui.tools run Factor development UI
@ -23,12 +23,15 @@ from within Factor for more information.
""" write ; """ write ;
: help? ( -- ? )
"help" get "-help" get or "h" get or
os windows? [ script get "/?" = ] [ f ] if or ;
: command-line-startup ( -- ) : command-line-startup ( -- )
(command-line) parse-command-line (command-line) parse-command-line
"help" get "-help" get or "h" get or [ cli-usage ] [ help? [ cli-usage ] [
load-vocab-roots load-vocab-roots
run-user-init run-user-init
"e" get script get or [ "e" get script get or [
"e" get [ eval( -- ) ] when* "e" get [ eval( -- ) ] when*
script get [ run-script ] when* script get [ run-script ] when*