gforth/kernel/recognizer.fs - diff

Return to recognizer.fs CVS log

Up to [gforth] / gforth / kernel

version 1.11, 2011/10/06 21:12:29	version 1.13, 2011/10/06 21:18:46
Line 18	Line 18
: recognizer: ( xt1 xt2 xt3 -- ) Create rot , swap , , ;	: recognizer: ( xt1 xt2 xt3 -- ) Create rot , swap , , ;

(field) r>int ( r-addr -- addr ) 0 cells ,	(field) r>int ( r-addr -- addr ) 0 cells ,
(field) r>comp ( r-addr -- ) 1 cells ,	(field) r>comp ( r-addr -- addr ) 1 cells ,
(field) r>lit ( r-addr -- ) 2 cells ,	(field) r>lit ( r-addr -- addr ) 2 cells ,

:noname ( ... nt -- ) name>int execute ;	:noname ( ... nt -- ) name>int execute ;
:noname ( ... nt -- ) name>comp execute ;	:noname ( ... nt -- ) name>comp execute ;
Line 106 Variable forth-recognizer	Line 106 Variable forth-recognizer
\G Enter compilation state.	\G Enter compilation state.
['] compiler-r IS parser1 state on ;	['] compiler-r IS parser1 state on ;

	: >int ( token table -- ) r>int perform ;
	: >comp ( token table -- ) r>comp perform ;
: >postpone ( token table -- )	: >postpone ( token table -- )
>r r@ r>lit perform r> r>comp @ compile, ;	>r r@ r>lit perform r> r>comp @ compile, ;