version 1.8, 2002/12/04 10:42:59
|
version 1.10, 2003/03/09 15:17:06
|
Line 1
|
Line 1
|
\ quote: S" and ." words |
\ quote: S" and ." words |
|
|
\ Copyright (C) 1996,1998,1999 Free Software Foundation, Inc. |
\ Copyright (C) 1996,1998,1999,2002 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 70 interpret/compile: S" ( compilation 'ccc
|
Line 70 interpret/compile: S" ( compilation 'ccc
|
[THEN] |
[THEN] |
|
|
:noname [char] " parse type ; |
:noname [char] " parse type ; |
:noname postpone (.") ," align ; |
:noname [char] " parse postpone sLiteral postpone type ; |
\ :noname postpone s" postpone type ; |
|
interpret/compile: ." ( compilation 'ccc"' -- ; run-time -- ) \ core dot-quote |
interpret/compile: ." ( compilation 'ccc"' -- ; run-time -- ) \ core dot-quote |
\G Compilation: Parse a string @i{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 |