[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.9

version 1.8, 1999/03/23 20:24:27 version 1.9, 1999/05/03 09:46:20
Line 29  has? compiler 0= Line 29  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 ccc delimited by a " (double quote). At run-time,
   \G (double quote). At run-time, return the length, @var{u}, and the    \G return the length, u, and the start address, c-addr of the string. Interpretation:
   \G start address, @var{c-addr} of the string. Interpretation: parse    \G parse the string as before, and return c-addr, u. The string is stored in a
   \G the string as before, and return @var{c-addr}, @var{u}. The    \G temporary buffer which may be overwritten by subsequent uses of @code{S"}.
   \G string is stored in a temporary buffer which may be overwritten  
   \G by subsequent uses of @code{S"}.  
 [THEN]  [THEN]
   
 has? compiler [IF]  has? compiler [IF]
Line 52  interpret/compile: What's ( "name" -- ad Line 50  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 ccc delimited by a " (double quote). At run-time,
   \G quote). At run-time, display the string. Interpretation semantics    \G display the string. Interpretation semantics for this word are undefined in
   \G for this word are undefined in ANS Forth. Gforth's interpretation    \G the ANS Forth Standard. Gforth's interpretation semantics are to display the
   \G semantics are to display the string. This is the simplest way to    \G string. This is the simplest way to display a string from
   \G display a string from within a definition; see examples below.    \G within a definition; see examples below.
   
 \ DOES>                                                17mar93py  \ DOES>                                                17mar93py
   
Line 64  interpret/compile: ." ( compilation 'ccc Line 62  interpret/compile: ." ( compilation 'ccc
     dodoes, here !does ]      dodoes, here !does ]
     defstart :-hook ;      defstart :-hook ;
 :noname  :noname
     ;-hook postpone (does>) ?struc dodoes,      ;-hook ?struc exit-like 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
           
Removed from v.1.8  
changed lines
  Added in v.1.9

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