version 1.14, 2001/11/11 22:33:31
|
version 1.15, 2002/07/26 08:35:15
|
Line 195 Defer parse-line
|
Line 195 Defer parse-line
|
over c@ '% = over 0> and IF do-size on 1 /string THEN |
over c@ '% = over 0> and IF do-size on 1 /string THEN |
over c@ '\ = over 0> and IF do-icon off 1 /string THEN ; |
over c@ '\ = over 0> and IF do-icon off 1 /string THEN ; |
|
|
|
s" Gforth" environment? [IF] s" 0.5.0" compare 0= [IF] |
|
: parse-string ( c-addr u -- ) \ core,block |
|
loadfilename# @ >r |
|
1 loadfilename# ! \ "*evaluated string*" |
|
push-file #tib ! >tib ! |
|
>in off blk off loadfile off -1 loadline ! |
|
['] parse-line catch |
|
pop-file r> loadfilename# ! throw ; |
|
[ELSE] |
: parse-string ( addr u -- ) |
: parse-string ( addr u -- ) |
evaluate-input cell new-tib #tib ! tib ! |
evaluate-input cell new-tib #tib ! tib ! |
['] parse-line catch pop-file throw ; |
['] parse-line catch pop-file throw ; |
|
[THEN] [THEN] |
|
|
: .link ( addr u -- ) dup >r '| -$split dup r> = IF 2swap THEN |
: .link ( addr u -- ) dup >r '| -$split dup r> = IF 2swap THEN |
link-options link $! |
link-options link $! |