gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

version 1.59, 2011/10/06 20:04:35	version 1.62, 2011/11/14 22:33:22
Line 88 DOES> ( -- r )	Line 88 DOES> ( -- r )
\G @code{F.} @code{FE.} and @code{FS.} to @i{u}.	\G @code{F.} @code{FE.} and @code{FS.} to @i{u}.
to precision ;	to precision ;

: scratch ( r -- addr len )	: scratch ( -- addr len )
pad precision - precision ;	pad precision - precision ;

: zeros ( n -- ) 0 max 0 ?DO '0 emit LOOP ;	: zeros ( n -- ) 0 max 0 ?DO '0 emit LOOP ;
Line 147 DOES> ( -- r )	Line 147 DOES> ( -- r )
dup	dup
recognizer: r:fnumber	recognizer: r:fnumber

:noname ( addr u -- nt int-table true \| addr u false )	: fnum-recognizer ( addr u -- float int-table \| addr u r:fail )
2dup sfnumber dup	2dup sfnumber
IF	IF
drop 2drop r:fnumber true	2drop r:fnumber EXIT
THEN ; Constant fnum-recognizer	THEN
	r:fail ;

fnum-recognizer	' fnum-recognizer
forth-recognizer get-recognizers	forth-recognizer get-recognizers
1+ forth-recognizer set-recognizers	1+ forth-recognizer set-recognizers
[else]	[else]