File:  [gforth] / gforth / Attic / special.fs
Revision 1.1: download - view: text, annotated - select for diffs
Thu Jul 25 09:25:16 1996 UTC (25 years, 3 months ago) by anton
Branches: MAIN
CVS tags: HEAD
fixed some macros such that their arguments are only evaluated once.
checked in special.fs

    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

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>