gforth/extend.fs - diff

Return to extend.fs CVS log

Up to [gforth] / gforth

version 1.59, 2007/03/08 13:55:49	version 1.60, 2007/07/06 12:54:56
Line 98 decimal	Line 98 decimal

\ CONVERT 17may93jaw	\ CONVERT 17may93jaw

: convert ( ud1 c-addr1 -- ud2 c-addr2 ) \ core-ext	: convert ( ud1 c-addr1 -- ud2 c-addr2 ) \ core-ext-obsolescent
\G OBSOLESCENT: superseded by @code{>number}.	\G Obsolescent: superseded by @code{>number}.
char+ true >number drop ;	char+ true >number drop ;

\ ERASE 17may93jaw	\ ERASE 17may93jaw
Line 188 decimal	Line 188 decimal

\ EXPECT SPAN 17may93jaw	\ EXPECT SPAN 17may93jaw

variable span ( -- c-addr ) \ core-ext	variable span ( -- c-addr ) \ core-ext-obsolescent
\G @code{Variable} -- @i{c-addr} is the address of a cell that stores the	\G @code{Variable} -- @i{c-addr} is the address of a cell that stores the
\G length of the last string received by @code{expect}. OBSOLESCENT.	\G length of the last string received by @code{expect}. OBSOLESCENT.

: expect ( c-addr +n -- ) \ core-ext	: expect ( c-addr +n -- ) \ core-ext-obsolescent
\G Receive a string of at most @i{+n} characters, and store it	\G Receive a string of at most @i{+n} characters, and store it
\G in memory starting at @i{c-addr}. The string is	\G in memory starting at @i{c-addr}. The string is
\G displayed. Input terminates when the <return> key is pressed or	\G displayed. Input terminates when the <return> key is pressed or