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.64, 2011/12/31 15:29:25
Line 1	Line 1
\ High level floating point 14jan94py	\ High level floating point 14jan94py

\ Copyright (C) 1995,1997,2003,2004,2005,2006,2007,2009,2010 Free Software Foundation, Inc.	\ Copyright (C) 1995,1997,2003,2004,2005,2006,2007,2009,2010,2011 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

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 142 DOES> ( -- r )	Line 142 DOES> ( -- r )
THEN ;	THEN ;

[ifdef] recognizer:	[ifdef] recognizer:
' noop	[IFDEF] 2lit,
:noname postpone Fliteral ;	: flit, postpone Fliteral ;
	:noname ['] noop ;
	:noname ['] flit, ;
	[ELSE]
	' noop
	:noname postpone Fliteral ;
	[THEN]
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]