version 1.40, 2000/08/09 20:04:05
|
version 1.42, 2000/09/09 20:32:58
|
Line 25 decimal
|
Line 25 decimal
|
|
|
\ .( 12may93jaw |
\ .( 12may93jaw |
|
|
: .( ( "ccc<paren>" -- ) \ core-ext dot-paren |
: .( ( compilation,interpretation "ccc<paren>" -- ) \ core-ext dot-paren |
\G Parse a string @i{ccc} delimited by a @code{)} (right |
\G Compilation and interpretation semantics: Parse a string @i{ccc} |
\G parenthesis). Display the string. This is often used to display |
\G delimited by a @code{)} (right parenthesis). Display the |
\G progress information during compilation; see examples below. |
\G string. This is often used to display progress information during |
|
\G compilation; see examples below. |
[char] ) parse type ; immediate |
[char] ) parse type ; immediate |
|
|
\ VALUE 2>R 2R> 2R@ 17may93jaw |
\ VALUE 2>R 2R> 2R@ 17may93jaw |
Line 145 decimal
|
Line 146 decimal
|
>in @ |
>in @ |
loadfile @ |
loadfile @ |
if |
if |
loadfile @ file-position throw #TIB @ 1+ 0 d- \ !! bug for CRLF and EOF |
loadfile @ file-position throw #fill-bytes @ 0 d- \ !! bug for CRLF and EOF |
else |
else |
blk @ |
blk @ |
linestart @ |
linestart @ |