comparison lisp/calc/calc.el @ 81741:d40120fec750

(math-bignum-digit-length): Change to optimal value. (math-read-number-simple): Remove leading 0s.

81740:8c6a9f107a7e

	(calcDigit-nondigit))))




(defconst math-bignum-digit-length 3
  "The length of a \"digit\" in Calc bignums.
If a big integer is of the form (bigpos N0 N1 ...), this is the
length of the allowable Emacs integers N0, N1,...
The value of 2*10^(2*MATH-BIGNUM-DIGIT-LENGTH) must be less than the
largest Emacs integer.")

S is assumed to be a simple number (integer or float without an exponent)
and all digits are kept, regardless of Calc's current precision."
   (cond
    ;; Integer
    ((string-match "^[0-9]+$" s)
     (if (<= (length s) (* 2 math-bignum-digit-length))
         (string-to-number s)
       (cons 'bigpos (math-read-bignum s))))
    ;; Minus sign
    ((string-match "^-[0-9]+$" s)

81741:d40120fec750

	(calcDigit-nondigit))))




(defconst math-bignum-digit-length 
  (truncate (/ (log10 (/ most-positive-fixnum 2)) 2))
  "The length of a \"digit\" in Calc bignums.
If a big integer is of the form (bigpos N0 N1 ...), this is the
length of the allowable Emacs integers N0, N1,...
The value of 2*10^(2*MATH-BIGNUM-DIGIT-LENGTH) must be less than the
largest Emacs integer.")

S is assumed to be a simple number (integer or float without an exponent)
and all digits are kept, regardless of Calc's current precision."
   (cond
    ;; Integer
    ((string-match "^[0-9]+$" s)
     (if (string-match "^\\(0+\\)" s)
         (setq s (substring s (match-end 0))))
     (if (<= (length s) (* 2 math-bignum-digit-length))
         (string-to-number s)
       (cons 'bigpos (math-read-bignum s))))
    ;; Minus sign
    ((string-match "^-[0-9]+$" s)