gforth/float.fs - diff

Return to float.fs CVS log

Up to [gforth] / gforth

version 1.20, 1996/09/10 16:08:37	version 1.23, 1998/12/08 22:02:42
Line 1	Line 1
\ High level floating point 14jan94py	\ High level floating point 14jan94py

\ Copyright (C) 1995 Free Software Foundation, Inc.	\ Copyright (C) 1995,1997 Free Software Foundation, Inc.

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

Line 60 dofield: lastxt code-address! \ change t	Line 60 dofield: lastxt code-address! \ change t
DOES> ( -- r )	DOES> ( -- r )
f@ ;	f@ ;

: fdepth ( -- n ) f0 @ fp@ - [ 1 floats ] Literal / ;	: fdepth ( -- n ) fp0 @ fp@ - [ 1 floats ] Literal / ;

: FLit ( -- r ) r> dup f@ float+ >r ;	: FLit ( -- r ) r> dup f@ float+ >r ;
: FLiteral ( r -- )	: FLiteral ( r -- )
Line 98 DOES> ( -- r )	Line 98 DOES> ( -- r )
scratch over c@ emit '. emit 1 /string type	scratch over c@ emit '. emit 1 /string type
'E emit . ;	'E emit . ;

require debugging.fs	require debugs.fs

: sfnumber ( c-addr u -- r true \| false )	: sfnumber ( c-addr u -- r true \| false )
2dup [CHAR] e scan ( c-addr u c-addr2 u2 )	2dup [CHAR] e scan ( c-addr u c-addr2 u2 )