Return to doers.fs CVS log

Up to [gforth] / gforth / kernel

Added missing doers.fs and getdoers.fs

    1: 
    2: 
    3: \ If we leave out the compiler we need the runtime code for our defining
    4: \ words. This file defines the defining words without the
    5: \ interpretative/compiling part.
    6: 
    7: has? compiler 0= [IF]
    8: 
    9: \ fillers for interpreter only mode
   10: .( Do-Fillers: )
   11: 
   12: : (does>) ;    
   13: 
   14: doer? :dofield 0= [IF] .( DOFIELD )
   15: | : (Field)  DOES> @ + ;
   16: [THEN]
   17: 
   18: doer? :dodefer 0= [IF] .( DODEFER )
   19: | : Defer ( "name" -- ) DOES> @ execute ;
   20: [THEN]
   21: 
   22: | : 2Constant ( w1 w2 "name" -- ) \ double
   23:     DOES> ( -- w1 w2 )
   24:         2@ ;
   25: 
   26: doer? :docon 0= [IF] .( DOCON )
   27: | : (Constant)  DOES> @ ;
   28: [THEN]
   29: 
   30: doer? :douser 0= [IF] .( DOUSER )
   31: | : User DOES> @ up @ + ;
   32: [THEN]
   33: 
   34: doer? :dovar 0= [IF] .( DOVAR )
   35: | : Create ( "name" -- ) \ core
   36:     DOES> ;
   37: 
   38: .( .)
   39: [THEN]
   40: