gforth/kernel/args.fs - diff

Return to args.fs CVS log

Up to [gforth] / gforth / kernel

version 1.11, 2002/01/05 20:16:18	version 1.12, 2002/09/14 08:20:20
Line 42 Variable argc ( -- addr ) \ gforth	Line 42 Variable argc ( -- addr ) \ gforth

: do-option ( addr1 len1 addr2 len2 -- n )	: do-option ( addr1 len1 addr2 len2 -- n )
2swap	2swap
2dup s" -e" compare 0= >r	2dup s" -e" str= >r
2dup s" --evaluate" compare 0= r> or	2dup s" --evaluate" str= r> or
IF 2drop ( dup >r ) evaluate	IF 2drop ( dup >r ) evaluate
( r> >tib +! ) 2 EXIT THEN	( r> >tib +! ) 2 EXIT THEN
2dup s" -h" compare 0= >r	2dup s" -h" str= >r
2dup s" --help" compare 0= r> or	2dup s" --help" str= r> or
IF ." Image Options:" cr	IF ." Image Options:" cr
." FILE load FILE (with `require')" cr	." FILE load FILE (with `require')" cr
." -e STRING, --evaluate STRING interpret STRING (with `EVALUATE')" cr	." -e STRING, --evaluate STRING interpret STRING (with `EVALUATE')" cr