version 1.33, 1995/03/14 19:01:43
|
version 1.34, 1995/04/14 18:56:55
|
Line 1464 Variable argc
|
Line 1464 Variable argc
|
r> >tib +! 2 EXIT THEN |
r> >tib +! 2 EXIT THEN |
." Unknown option: " type cr 2drop 1 ; |
." Unknown option: " type cr 2drop 1 ; |
|
|
: process-args ( -- ) >tib @ >r |
: process-args ( -- ) |
|
>tib @ >r |
|
true to script? |
argc @ 1 |
argc @ 1 |
?DO |
?DO |
I arg over c@ [char] - <> |
I arg over c@ [char] - <> |
IF |
IF |
true to script? included false to script? 1 |
included 1 |
ELSE |
ELSE |
I 1+ arg do-option |
I 1+ arg do-option |
THEN |
THEN |
+LOOP |
+LOOP |
|
false to script? |
r> >tib ! ; |
r> >tib ! ; |
|
|
Defer 'cold ' noop IS 'cold |
Defer 'cold ' noop IS 'cold |