gforth/kernel/recognizer.fs - diff

Return to recognizer.fs CVS log

Up to [gforth] / gforth / kernel

version 1.1, 2011/10/05 20:48:16	version 1.2, 2011/10/05 20:56:45
Line 17	Line 17

: recognizer: ( xt1 xt2 xt3 xt4 -- ) Create 2swap swap 2, swap 2, ;	: recognizer: ( xt1 xt2 xt3 xt4 -- ) Create 2swap swap 2, swap 2, ;

: r>int ( r-addr -- ) @ ;	(field) r>int ( r-addr -- addr ) 0 cells ,
: r>compint ( r-addr -- ) cell+ @ ;	(field) r>compint ( r-addr -- ) 1 cells ,
: r>comp ( r-addr -- ) cell+ cell+ @ ;	(field) r>comp ( r-addr -- ) 2 cells ,
: r>lit ( r-addr -- ) cell+ cell+ cell+ @ ;	(field) r>lit ( r-addr -- ) 3 cells ,

:noname ( ... nt -- ) name>int execute ;	:noname ( ... nt -- ) name>int execute ;
:noname ( ... nt -- ) name>int compile, ;	:noname ( ... nt -- ) name>int compile, ;
Line 80 num-recognizer int-recognizer 2 forth-re	Line 80 num-recognizer int-recognizer 2 forth-re
no.extensions ;	no.extensions ;

: interpreter-r ( addr u -- ... xt )	: interpreter-r ( addr u -- ... xt )
forth-recognizer do-recognizer r>int ;	forth-recognizer do-recognizer r>int @ ;

: compiler-r ( addr u -- ... xt )	: compiler-r ( addr u -- ... xt )
forth-recognizer do-recognizer r>comp ;	forth-recognizer do-recognizer r>comp @ ;

: [ ( -- ) \ core left-bracket	: [ ( -- ) \ core left-bracket
\G Enter interpretation state. Immediate word.	\G Enter interpretation state. Immediate word.