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

command-line: need to check for run differently.

db4
John Benediktsson 2012-08-13 21:06:57 -07:00
parent 2109af55ad
commit 2854ecd4ec
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/command-line/command-line.factor
View File

@ -62,19 +62,19 @@ SYMBOL: command-line
[ source-file main>> [ execute( -- ) ] when* ] bi [ source-file main>> [ execute( -- ) ] when* ] bi
] with-variable ; ] with-variable ;
: run-script? ( rest first -- rest first ? ) : (parse-command-line) ( run? args -- )
over empty? not "run" get-global and ; [ command-line off script off drop ] [
: parse-command-line ( args -- )
[ command-line off script off ] [
unclip "-" ?head unclip "-" ?head
[ param parse-command-line ] [ param (parse-command-line) ]
[ [
run-script? [ prefix f ] when rot [ prefix f ] when
script set command-line set script set command-line set
] if ] if
] if-empty ; ] if-empty ;
: parse-command-line ( args -- )
[ [ "-run=" head? ] any? ] keep (parse-command-line) ;
SYMBOL: main-vocab-hook SYMBOL: main-vocab-hook
: main-vocab ( -- vocab ) : main-vocab ( -- vocab )