version 1.48, 2002/12/13 15:49:53
|
version 1.54, 2003/01/31 22:45:11
|
Line 25 decimal
|
Line 25 decimal
|
|
|
\ .( 12may93jaw |
\ .( 12may93jaw |
|
|
: .( ( compilation,interpretation "ccc<paren>" -- ) \ core-ext dot-paren |
: .( ( compilation&interpretation "ccc<paren>" -- ) \ core-ext dot-paren |
\G Compilation and interpretation semantics: Parse a string @i{ccc} |
\G Compilation and interpretation semantics: Parse a string @i{ccc} |
\G delimited by a @code{)} (right parenthesis). Display the |
\G delimited by a @code{)} (right parenthesis). Display the |
\G string. This is often used to display progress information during |
\G string. This is often used to display progress information during |
Line 118 decimal
|
Line 118 decimal
|
begin |
begin |
dup r@ >= |
dup r@ >= |
while |
while |
over 2r@ swap -text 0= if |
2dup 2r@ string-prefix? if |
2swap 2drop 2r> 2drop true exit |
2swap 2drop 2r> 2drop true exit |
endif |
endif |
1 /string |
1 /string |
Line 265 variable span ( -- c-addr ) \ core-ext
|
Line 265 variable span ( -- c-addr ) \ core-ext
|
REPEAT |
REPEAT |
drop |
drop |
\ restore udp and dp |
\ restore udp and dp |
dup cell+ @ forget-dyncode 0= abort" gforth bug" |
[IFDEF] forget-dyncode |
|
dup cell+ @ forget-dyncode drop |
|
[THEN] |
@ udp ! dp ! |
@ udp ! dp ! |
\ clean up vocabulary stack |
\ clean up vocabulary stack |
0 vp @ 0 |
0 vp @ 0 |