[BACK]Return to special.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/Attic/special.fs between versions 1.1 and 1.3

version 1.1, 1996/07/25 09:25:16 version 1.3, 1996/08/26 10:07:21
Line 1 Line 1
 \ state-smart words last, because they override cross' words.  \ words with non-default and non-immediate compilation semantics
   
   \ Copyright (C) 1996 Free Software Foundation, Inc.
   
   \ This file is part of Gforth.
   
   \ Gforth is free software; you can redistribute it and/or
   \ modify it under the terms of the GNU General Public License
   \ as published by the Free Software Foundation; either version 2
   \ of the License, or (at your option) any later version.
   
   \ This program is distributed in the hope that it will be useful,
   \ but WITHOUT ANY WARRANTY; without even the implied warranty of
   \ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   \ GNU General Public License for more details.
   
   \ You should have received a copy of the GNU General Public License
   \ along with this program; if not, write to the Free Software
   \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   
   \ this file comes last, because these words override cross' words.
   
 create s"-buffer /line chars allot  create s"-buffer /line chars allot
 :noname    [char] " parse  :noname    [char] " parse
     /line min >r s"-buffer r@ cmove      /line min >r s"-buffer r@ cmove
     s"-buffer r> ;      s"-buffer r> ;
 :noname    [char] " parse postpone SLiteral ;  :noname    [char] " parse postpone SLiteral ;
 special: S" ( compilation 'ccc"' -- ; run-time -- c-addr u )    \ core,file     s-quote  interpret/compile: S" ( compilation 'ccc"' -- ; run-time -- c-addr u )  \ core,file     s-quote
   
 :noname    ' >body ! ;  :noname    ' >body ! ;
 :noname    ' >body postpone ALiteral postpone ! ;  :noname    ' >body postpone ALiteral postpone ! ;
 special: IS ( addr "name" -- ) \ gforth  interpret/compile: IS ( addr "name" -- ) \ gforth
   
 ' IS Alias TO ( addr "name" -- ) \ core-ext  ' IS Alias TO ( addr "name" -- ) \ core-ext
 immediate  immediate
   
 :noname    ' >body @ ;  :noname    ' >body @ ;
 :noname    ' >body postpone ALiteral postpone @ ;  :noname    ' >body postpone ALiteral postpone @ ;
 special: What's ( "name" -- addr ) \ gforth  interpret/compile: What's ( "name" -- addr ) \ gforth
   
 :noname    [char] " parse type ;  :noname    [char] " parse type ;
 :noname    postpone (.") ,"  align ;  :noname    postpone (.") ,"  align ;
 special: ." ( compilation 'ccc"' -- ; run-time -- )  \ core     dot-quote  interpret/compile: ." ( compilation 'ccc"' -- ; run-time -- )  \ core   dot-quote
   
 \ DOES>                                                17mar93py  \ DOES>                                                17mar93py
   
 :noname    align dodoes, here !does ]  :noname
       align dodoes, here !does ]
     defstart :-hook ;      defstart :-hook ;
 :noname    ;-hook postpone (does>) ?struc dodoes,  :noname
       ;-hook postpone (does>) ?struc dodoes,
     defstart :-hook ;      defstart :-hook ;
 special: DOES>  ( compilation colon-sys1 -- colon-sys2 ; run-time nest-sys -- ) \ core  does  interpret/compile: DOES>  ( compilation colon-sys1 -- colon-sys2 ; run-time nest-sys -- ) \ core        does
       
   
Removed from v.1.1  
changed lines
  Added in v.1.3

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