version 1.32, 1995/03/13 09:17:31
|
version 1.34, 1995/04/14 18:56:55
|
Line 794 Avariable leave-sp leave-stack 3 cells
|
Line 794 Avariable leave-sp leave-stack 3 cells
|
THEN |
THEN |
source >in ! drop ; immediate |
source >in ! drop ; immediate |
|
|
: G\ ( -- ) \ new backslash |
: \G ( -- ) \ new backslash |
POSTPONE \ ; immediate |
POSTPONE \ ; immediate |
|
|
\ error handling 22feb93py |
\ error handling 22feb93py |
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 |