[Aimmath-commit] AIM/WEB-INF/maple/aim LaTeX.mpl,1.13,1.14

[<mo...@us...>]

Update of /cvsroot/aimmath/AIM/WEB-INF/maple/aim
In directory sc8-pr-cvs1:/tmp/cvs-serv7435

Modified Files:
	LaTeX.mpl 
Log Message:
fixes bug in latex/latex/float

Index: LaTeX.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/aim/LaTeX.mpl,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** LaTeX.mpl	10 Oct 2003 15:39:58 -0000	1.13
--- LaTeX.mpl	15 Oct 2003 14:54:53 -0000	1.14
***************
*** 439,450 ****
                exponent:=exponent+shift;
              fi:
!             # if its greater than one, we're all set
!             if mantissa*10^exponent>1 then
                ipart:=(mantissa-(mantissa mod 10^(-exponent)))/10^(-exponent);
                fracpart:=mantissa mod 10^(-exponent);
                if fracpart=0 then
                  return cat(sign,ipart)
                else
!                 return cat(sign,ipart,".",fracpart)
                fi:
              # otherwise we need the leading zero and the other zeros
--- 439,452 ----
                exponent:=exponent+shift;
              fi:
!             # if its greater than or equal to one, we're all set
!             if mantissa>=10^(-exponent) then
                ipart:=(mantissa-(mantissa mod 10^(-exponent)))/10^(-exponent);
                fracpart:=mantissa mod 10^(-exponent);
+               # pad zeros on the left if needed
+               filler:=-exponent-length(fracpart);
                if fracpart=0 then
                  return cat(sign,ipart)
                else
!                 return cat(sign,ipart,".","0"$filler,fracpart)
                fi:
              # otherwise we need the leading zero and the other zeros