[Win32forth-cvs] win32forth/apps/Player4 NUMBER.F,1.2,1.3

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10339/apps/Player4

Modified Files:
	NUMBER.F 
Log Message:
Some minor changes, to make the code work with my changes to Float.f

Index: NUMBER.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/NUMBER.F,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** NUMBER.F	5 May 2005 09:43:26 -0000	1.2
--- NUMBER.F	14 May 2005 11:40:21 -0000	1.3
***************
*** 29,73 ****
  
  
! : fvalue-to-string \ ( adr - ) fs: ( n - ) \ Borrowed from f.
!          >r 0 r@ c!                        \ Now it puts a float in a string
!                 fdepth 0 <=
!                 IF      ." Empty " r> drop EXIT
!                 THEN
!                 precision 1 max set-precision
!                 fexam 0x0200 and
!                 IF      fabs  s" -" r@ +place
!                 THEN
!                 fdup f0.5 f<
!                 IF      s" ." r@  +place f1.0 f+ $ftemp
!                         precision 1+ maxsig umin
!                         represent
!                         drop drop drop
!                         $ftemp 1+ precision maxsig 1- umin
!                         r@ +place s" " r@ +place
!                 ELSE    $ftemp precision represent 0=
!                         IF      drop drop $ftemp precision
!                                 r@ +place s" " r@ +place
!                         ELSE    drop dup precision <
!                                 IF      dup 0=
!                                         IF      drop s" ." r@ +place
!                                                 $ftemp precision
!                                                 r@ +place s" " r> +place EXIT
!                                         THEN
!                                         $ftemp over r@ +place s" ." r@ +place
!                                         $ftemp over + swap precision
!                                         swap - r@ +place s" " r@ +place
!                                 ELSE    dup precision =
!                                         IF      $ftemp swap r@ +place
!                                                 s" . " r> +place
!                                                 EXIT
!                                         THEN
!                                         $ftemp precision r@ +place r@ pad !
!                                         precision - 0
!                                         DO       s" 0" pad @ +place
!                                         LOOP
!                                          s" . " r@ +place
!                                 THEN
!                         THEN
!                 THEN r> drop ;
  
  : lfprep ( f: f - ) ( - base hld-max hld_abs 0 adr$ 0 LOCALE_SYSTEM_DEFAULT )
--- 29,74 ----
  
  
! \ : fvalue-to-string \ ( adr - ) fs: ( n - ) \ Borrowed from f.
! \          >r 0 r@ c!                        \ Now it puts a float in a string
! \                 fdepth 0 <=
! \                 IF      ." Empty " r> drop EXIT
! \                 THEN
! \                 precision 1 max set-precision
! \                 fexam 0x0200 and
! \                 IF      fabs  s" -" r@ +place
! \                 THEN
! \                 fdup f0.5 f<
! \                 IF      s" ." r@  +place f1.0 f+ $ftemp
! \                         precision 1+ maxsig umin
! \                         represent
! \                         drop drop drop
! \                         $ftemp 1+ precision maxsig 1- umin
! \                         r@ +place s" " r@ +place
! \                 ELSE    $ftemp precision represent 0=
! \                         IF      drop drop $ftemp precision
! \                                 r@ +place s" " r@ +place
! \                         ELSE    drop dup precision <
! \                                 IF      dup 0=
! \                                         IF      drop s" ." r@ +place
! \                                                 $ftemp precision
! \                                                 r@ +place s" " r> +place EXIT
! \                                         THEN
! \                                         $ftemp over r@ +place s" ." r@ +place
! \                                         $ftemp over + swap precision
! \                                         swap - r@ +place s" " r@ +place
! \                                 ELSE    dup precision =
! \                                         IF      $ftemp swap r@ +place
! \                                                 s" . " r> +place
! \                                                 EXIT
! \                                         THEN
! \                                         $ftemp precision r@ +place r@ pad !
! \                                         precision - 0
! \                                         DO       s" 0" pad @ +place
! \                                         LOOP
! \                                          s" . " r@ +place
! \                                 THEN
! \                         THEN
! \                 THEN r> drop ;
! ' (f.) alias fvalue-to-string
  
  : lfprep ( f: f - ) ( - base hld-max hld_abs 0 adr$ 0 LOCALE_SYSTEM_DEFAULT )