Return to special.fs CVS log

Up to [gforth] / gforth

Annotation of gforth/special.fs, revision 1.1

1.1     ! anton       1: \ state-smart words last, because they override cross' words.
        !             2: 
        !             3: create s"-buffer /line chars allot
        !             4: :noname    [char] " parse
        !             5:     /line min >r s"-buffer r@ cmove
        !             6:     s"-buffer r> ;
        !             7: :noname    [char] " parse postpone SLiteral ;
        !             8: special: S" ( compilation 'ccc"' -- ; run-time -- c-addr u )   \ core,file     s-quote
        !             9: 
        !            10: :noname    ' >body ! ;
        !            11: :noname    ' >body postpone ALiteral postpone ! ;
        !            12: special: IS ( addr "name" -- ) \ gforth
        !            13: 
        !            14: ' IS Alias TO ( addr "name" -- ) \ core-ext
        !            15: immediate
        !            16: 
        !            17: :noname    ' >body @ ;
        !            18: :noname    ' >body postpone ALiteral postpone @ ;
        !            19: special: What's ( "name" -- addr ) \ gforth
        !            20: 
        !            21: :noname    [char] " parse type ;
        !            22: :noname    postpone (.") ,"  align ;
        !            23: special: ." ( compilation 'ccc"' -- ; run-time -- )  \ core    dot-quote
        !            24: 
        !            25: \ DOES>                                                17mar93py
        !            26: 
        !            27: :noname    align dodoes, here !does ]
        !            28:     defstart :-hook ;
        !            29: :noname    ;-hook postpone (does>) ?struc dodoes,
        !            30:     defstart :-hook ;
        !            31: special: DOES>  ( compilation colon-sys1 -- colon-sys2 ; run-time nest-sys -- ) \ core does