gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

version 1.6, 1994/07/21 10:52:40	version 1.8, 1994/09/12 19:00:29
Line 6	Line 6
' align Alias sfalign	' align Alias sfalign
' aligned Alias sfaligned	' aligned Alias sfaligned
[ELSE]	[ELSE]
: sfloats 4 * ;	: sfloats 2* 2* ;
: sfloat+ 4 + ;	: sfloat+ 4 + ;
: sfaligned ( addr -- addr' ) 3 + -4 and ;	: sfaligned ( addr -- addr' ) 3 + -4 and ;
: sfalign ( -- ) here dup sfaligned swap ?DO bl c, LOOP ;	: sfalign ( -- ) here dup sfaligned swap ?DO bl c, LOOP ;
Line 18	Line 18
' falign Alias dfalign	' falign Alias dfalign
' faligned Alias dfaligned	' faligned Alias dfaligned
[ELSE]	[ELSE]
: dfloats 8 * ;	: dfloats 2* 2* 2* ;
: dfloat+ 8 + ;	: dfloat+ 8 + ;
: dfaligned ( addr -- addr' ) 7 + -8 and ;	: dfaligned ( addr -- addr' ) 7 + -8 and ;
: dfalign ( -- ) here dup dfaligned swap ?DO bl c, LOOP ;	: dfalign ( -- ) here dup dfaligned swap ?DO bl c, LOOP ;
Line 70	Line 70
scratch over c@ emit '. emit 1 /string type	scratch over c@ emit '. emit 1 /string type
'E emit . ;	'E emit . ;

: fnumber ( string -- r / )	: sfnumber ( c-addr u -- r / )
?dup IF dup count >float 0=	2dup >float
IF defers notfound	IF
ELSE drop state @	2drop state @
IF postpone FLiteral THEN THEN THEN ;	IF
	postpone FLiteral
	THEN
	ELSE
	defers notfound
	THEN ;

' fnumber IS notfound	' sfnumber IS notfound

1e0 fasin 2e0 f* fconstant pi	1e0 fasin 2e0 f* fconstant pi