gforth/extend.fs - diff

Return to extend.fs CVS log

Up to [gforth] / gforth

version 1.49, 2002/12/21 17:27:13	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 266 variable span ( -- c-addr ) \ core-ext	Line 266 variable span ( -- c-addr ) \ core-ext
drop	drop
\ restore udp and dp	\ restore udp and dp
[IFDEF] forget-dyncode	[IFDEF] forget-dyncode
dup cell+ @ forget-dyncode 0= abort" gforth bug"	dup cell+ @ forget-dyncode drop
[THEN]	[THEN]
@ udp ! dp !	@ udp ! dp !
\ clean up vocabulary stack	\ clean up vocabulary stack