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.67, 2012/05/28 14:20:04
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 bl scan drop Constant zero-exp

	: prefix-number ( c-addr u -- r true \| false )
	si-prefixes count bounds DO
	2dup I c@ scan nip dup 0<> IF
	1 = IF 1- fp-char @ ELSE I c@ THEN
	>float1
	dup IF 1000 s>f zero-exp I - s>f f** f* THEN
	UNLOOP EXIT THEN drop
	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 163 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