Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5530/apps/Player4
Modified Files:
NUMBER.F
Log Message:
Jos: Added .fint.r for big floats in which you like too see the integer part only.
Index: NUMBER.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/NUMBER.F,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** NUMBER.F 14 May 2005 11:40:21 -0000 1.3
--- NUMBER.F 10 Aug 2006 20:23:51 -0000 1.4
***************
*** 128,132 ****
: l.f ( f: f - ) (l.f) type ;
! : l.fr ( r - ) ( f: f - ) (l.f) rot type-r ;
: #zeros-in$? ( adr count - #zeros )
--- 128,133 ----
: l.f ( f: f - ) (l.f) type ;
! : l.fr ( r - ) ( f: f - ) (l.f) rot type-r ;
! : .fint.r ( r - ) ( F: f - ) (l.f) no_idigits rot type-r ;
: #zeros-in$? ( adr count - #zeros )
***************
*** 152,156 ****
cr -12345e 12 l.fr
cr 1239.47e 12 l.fr
!
cr
cr 9841 l.
--- 153,157 ----
cr -12345e 12 l.fr
cr 1239.47e 12 l.fr
! cr 1240.58e 12 .fint.r
cr
cr 9841 l.
***************
*** 186,188 ****
\s
! |
