[gforth] / gforth / kernel / recognizer.fs  

gforth: gforth/kernel/recognizer.fs

Diff for /gforth/kernel/recognizer.fs between version 1.5 and 1.6

version 1.5, Wed Oct 5 21:09:05 2011 UTC version 1.6, Wed Oct 5 21:17:09 2011 UTC
Line 81 
Line 81 
     cell +LOOP      cell +LOOP
     r:fail ;      r:fail ;
   
   \ nested recognizer helper
   
   : r:table>flag ( table -- table true | false )
       dup r:fail <> dup 0= IF  nip  THEN ;
   
   \ : nest-recognizer ( addr u -- token table true | addr u false )
   \   xxx-recognizer do-recognizer r:table>flag ;
   
 : interpreter-r ( addr u -- ... xt )  : interpreter-r ( addr u -- ... xt )
     forth-recognizer do-recognizer r>int @ ;      forth-recognizer do-recognizer r>int @ ;
   

Generate output suitable for use with a patch program
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help