| |
|
| s" Gforth" environment? [IF] s" 0.5.0" str= [IF] |
s" Gforth" environment? [IF] s" 0.5.0" str= [IF] |
| : parse-string ( c-addr u -- ) \ core,block |
: parse-string ( c-addr u -- ) \ core,block |
| loadfilename 2@ 2>r |
s" *evaluated string*" loadfilename>r |
| s" *evaluated string*" loadfilename 2! \ "*evaluated string*" |
|
| push-file #tib ! >tib ! |
push-file #tib ! >tib ! |
| >in off blk off loadfile off -1 loadline ! |
>in off blk off loadfile off -1 loadline ! |
| ['] parse-line catch |
['] parse-line catch |
| pop-file 2r> loadfilename 2! throw ; |
pop-file r>loadfilename throw ; |
| [ELSE] |
[ELSE] |
| : parse-string ( addr u -- ) |
: parse-string ( addr u -- ) |
| evaluate-input cell new-tib #tib ! tib ! |
evaluate-input cell new-tib #tib ! tib ! |
