gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

version 1.65, 2012/05/26 10:20:01	version 1.66, 2012/05/26 10:35:35
Line 131 DOES> ( -- r )	Line 131 DOES> ( -- r )
[IFDEF] fp-char	[IFDEF] fp-char
: sfnumber ( c-addr u -- r true \| false )	: sfnumber ( c-addr u -- r true \| false )
fp-char @ >float1 ;	fp-char @ >float1 ;

	Create si-prefixes ," PTGMk.munpf"
	si-prefixes count '.' scan drop Constant zero-exp

	: prefix-number ( c-addr u -- r true \| false )
	si-prefixes count bounds DO
	2dup I c@ scan nip 0<> IF
	I c@ >float1
	dup IF 1000 s>f zero-exp I - s>f f** f* THEN
	UNLOOP EXIT THEN
	LOOP
	sfnumber ;
[ELSE]	[ELSE]
: sfnumber ( c-addr u -- r true \| false )	: sfnumber ( c-addr u -- r true \| false )
>float ;	>float ;
	: prefix-number sfnumber ;
[THEN]	[THEN]

[ifdef] recognizer:	[ifdef] recognizer:
Line 149 DOES> ( -- r )	Line 162 DOES> ( -- r )
recognizer: r:fnumber	recognizer: r:fnumber

: fnum-recognizer ( addr u -- float int-table \| addr u r:fail )	: fnum-recognizer ( addr u -- float int-table \| addr u r:fail )
2dup sfnumber	2dup prefix-number
IF	IF
2drop r:fnumber EXIT	2drop r:fnumber EXIT
THEN	THEN