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

Diff for /gforth/kernel/Attic/special.fs between versions 1.8 and 1.12

version 1.8, 1999/03/23 20:24:27 version 1.12, 1999/05/17 15:07:05
Line 20 Line 20
   
 \ this file comes last, because these words override cross' words.  \ this file comes last, because these words override cross' words.
   
   require ./vars.fs
   
 create s"-buffer /line chars allot  create s"-buffer /line chars allot
 has? compiler 0=   has? compiler 0= 
 [IF] : s" [ELSE] :noname [THEN]  [IF] : s" [ELSE] :noname [THEN]
Line 29  has? compiler 0= Line 31  has? compiler 0=
 has? compiler [IF]  has? compiler [IF]
 :noname [char] " parse postpone SLiteral ;  :noname [char] " parse postpone SLiteral ;
 interpret/compile: 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
   \G Compilation: Parse a string @var{ccc} delimited by a @code{"}    \G Compilation: Parse a string @i{ccc} delimited by a @code{"}
   \G (double quote). At run-time, return the length, @var{u}, and the    \G (double quote). At run-time, return the length, @i{u}, and the
   \G start address, @var{c-addr} of the string. Interpretation: parse    \G start address, @i{c-addr} of the string. Interpretation: parse
   \G the string as before, and return @var{c-addr}, @var{u}. The    \G the string as before, and return @i{c-addr}, @i{u}. The
   \G string is stored in a temporary buffer which may be overwritten    \G string is stored in a temporary buffer which may be overwritten
   \G by subsequent uses of @code{S"}.    \G by subsequent uses of @code{S"}.
 [THEN]  [THEN]
Line 43  has? compiler [IF] Line 45  has? compiler [IF]
   
 :noname    ' >body ! ;  :noname    ' >body ! ;
 ' [IS]  ' [IS]
 interpret/compile: IS ( addr "name" -- ) \ gforth  interpret/compile: IS ( xt "name" -- ) \ gforth
   
 :noname    ' >body @ ;  :noname    ' >body @ ;
 :noname    ' >body postpone ALiteral postpone @ ;  :noname    ' >body postpone ALiteral postpone @ ;
Line 52  interpret/compile: What's ( "name" -- ad Line 54  interpret/compile: What's ( "name" -- ad
 :noname    [char] " parse type ;  :noname    [char] " parse type ;
 :noname    postpone (.") ,"  align ;  :noname    postpone (.") ,"  align ;
 interpret/compile: ." ( compilation 'ccc"' -- ; run-time -- )  \ core   dot-quote  interpret/compile: ." ( compilation 'ccc"' -- ; run-time -- )  \ core   dot-quote
   \G Compilation: Parse a string @var{ccc} delimited by a " (double    \G Compilation: Parse a string @i{ccc} delimited by a " (double
   \G quote). At run-time, display the string. Interpretation semantics    \G quote). At run-time, display the string. Interpretation semantics
   \G for this word are undefined in ANS Forth. Gforth's interpretation    \G for this word are undefined in ANS Forth. Gforth's interpretation
   \G semantics are to display the string. This is the simplest way to    \G semantics are to display the string. This is the simplest way to
Line 64  interpret/compile: ." ( compilation 'ccc Line 66  interpret/compile: ." ( compilation 'ccc
     dodoes, here !does ]      dodoes, here !does ]
     defstart :-hook ;      defstart :-hook ;
 :noname  :noname
     ;-hook postpone (does>) ?struc dodoes,      ;-hook ?struc 
       [ has? xconds [IF] ] exit-like [ [THEN] ]
       postpone (does>) dodoes,
     defstart :-hook ;      defstart :-hook ;
 interpret/compile: 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
           
 ' IS Alias TO ( addr "name" -- ) \ core-ext  ' IS Alias TO ( w "name" -- ) \ core-ext
 immediate  immediate
   
 [THEN]  [THEN]
Removed from v.1.8  
changed lines
  Added in v.1.12

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