gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/float.fs between versions 1.63 and 1.68

version 1.63, 2011/12/28 13:39:49	version 1.68, 2012/12/31 15:25:18
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,2012 Free Software Foundation, Inc.

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

Line 128 DOES> ( -- r )	Line 128 DOES> ( -- r )
scratch over c@ emit '. emit 1 /string type	scratch over c@ emit '. emit 1 /string type
'E emit . ;	'E emit . ;

	[IFDEF] fp-char
: sfnumber ( c-addr u -- r true \| false )	: sfnumber ( c-addr u -- r true \| false )
2dup [CHAR] e scan ( c-addr u c-addr2 u2 )	fp-char @ >float1 ;
dup 0=
IF	Create si-prefixes ," PTGMk munpf"
2drop 2dup [CHAR] E scan ( c-addr u c-addr3 u3 )	si-prefixes count bl scan drop Constant zero-exp
THEN
nip	: prefix-number ( c-addr u -- r true \| false )
IF	si-prefixes count bounds DO
>float	2dup I c@ scan nip dup 0<> IF
ELSE	1 = IF 1- fp-char @ ELSE I c@ THEN
2drop false	>float1
THEN ;	dup IF 1000 s>f zero-exp I - s>f f** f* THEN
	UNLOOP EXIT THEN drop
	LOOP
	sfnumber ;
	[ELSE]
	: sfnumber ( c-addr u -- r true \| false )
	>float ;
	: prefix-number sfnumber ;
	[THEN]

[ifdef] recognizer:	[ifdef] recognizer:
[IFDEF] 2lit,	[IFDEF] 2lit,
Line 154 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

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.63
changed lines
	Added in v.1.68