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

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

version 1.10, 1999/05/05 18:10:30 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 ccc delimited by a " (double quote). At run-time,    \G Compilation: Parse a string @i{ccc} delimited by a @code{"}
   \G return the length, u, and the start address, c-addr of the string. Interpretation:    \G (double quote). At run-time, return the length, @i{u}, and the
   \G parse the string as before, and return c-addr, u. The string is stored in a    \G start address, @i{c-addr} of the string. Interpretation: parse
   \G temporary buffer which may be overwritten by subsequent uses of @code{S"}.    \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 by subsequent uses of @code{S"}.
 [THEN]  [THEN]
   
 has? compiler [IF]  has? compiler [IF]
Line 41  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 50  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 ccc delimited by a " (double quote). At run-time,    \G Compilation: Parse a string @i{ccc} delimited by a " (double
   \G display the string. Interpretation semantics for this word are undefined in    \G quote). At run-time, display the string. Interpretation semantics
   \G the ANS Forth Standard. Gforth's interpretation semantics are to display the    \G for this word are undefined in ANS Forth. Gforth's interpretation
   \G string. This is the simplest way to display a string from    \G semantics are to display the string. This is the simplest way to
   \G within a definition; see examples below.    \G display a string from within a definition; see examples below.
   
 \ DOES>                                                17mar93py  \ DOES>                                                17mar93py
   
Line 68  interpret/compile: ." ( compilation 'ccc Line 72  interpret/compile: ." ( compilation 'ccc
     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.10  
changed lines
  Added in v.1.12

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