Return to doers.fs CVS log

Up to [gforth] / gforth / kernel

Annotation of gforth/kernel/doers.fs, revision 1.1

1.1     ! pazsan      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: