gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

version 1.32, 2000/08/17 12:46:57	version 1.33, 2000/09/23 12:27:46
Line 110 DOES> ( -- r )	Line 110 DOES> ( -- r )
\ I'm afraid this does not really implement ansi semantics wrt precision.	\ I'm afraid this does not really implement ansi semantics wrt precision.
\ Shouldn't precision indicate the number of places shown after the point?	\ Shouldn't precision indicate the number of places shown after the point?

	\ Why do you think so? ANS Forth appears ambiguous on this point. -anton.

: fe. ( r -- ) \ float-ext f-e-dot	: fe. ( r -- ) \ float-ext f-e-dot
\G Display @i{r} using engineering notation (with exponent dividable	\G Display @i{r} using engineering notation (with exponent dividable
\G by 3), followed by a space.	\G by 3), followed by a space.
f$ 1- s>d 3 fm/mod 3 * >r 1+ >r	f$ 1- s>d 3 fm/mod 3 * >r 1+ >r
scratch r@ min type '. emit scratch r> /string type	scratch r@ tuck min tuck - >r type r> zeros
	'. emit scratch r> /string type
'E emit r> . ;	'E emit r> . ;

: fs. ( r -- ) \ float-ext f-s-dot	: fs. ( r -- ) \ float-ext f-s-dot