# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1217907504 0
# Node ID ab31e89ca7799f25746612f817a69c5b5a5c0d64
# Parent  76ed169d532c84120c18e5949d97f25c72d53c97
(math-read-number): Handle C numbers beginning with 0 correctly.

diff -r 76ed169d532c -r ab31e89ca779 lisp/calc/calc.el
--- a/lisp/calc/calc.el	Tue Aug 05 03:05:14 2008 +0000
+++ b/lisp/calc/calc.el	Tue Aug 05 03:38:24 2008 +0000
@@ -3455,7 +3455,7 @@
 
 
 ;;; Parse a simple number in string form.   [N X] [Public]
-(defun math-read-number (s)
+(defun math-read-number (s &optional decimal)
   "Convert the string S into a Calc number."
   (math-normalize
    (cond
@@ -3465,7 +3465,8 @@
      (let ((digs (math-match-substring s 1)))
        (if (and (eq calc-language 'c)
 		(> (length digs) 1)
-		(eq (aref digs 0) ?0))
+		(eq (aref digs 0) ?0)
+                (null decimal))
 	   (math-read-number (concat "8#" digs))
 	 (if (<= (length digs) (* 2 math-bignum-digit-length))
 	     (string-to-number digs)
@@ -3492,8 +3493,8 @@
 	   (frac (math-match-substring s 2)))
        (let ((ilen (length int))
 	     (flen (length frac)))
-	 (let ((int (if (> ilen 0) (math-read-number int) 0))
-	       (frac (if (> flen 0) (math-read-number frac) 0)))
+	 (let ((int (if (> ilen 0) (math-read-number int t) 0))
+	       (frac (if (> flen 0) (math-read-number frac t) 0)))
 	   (and int frac (or (> ilen 0) (> flen 0))
 		(list 'float
 		      (math-add (math-scale-int int flen) frac)
@@ -3503,7 +3504,7 @@
     ((string-match "^\\(.*\\)[eE]\\([-+]?[0-9]+\\)$" s)
      (let ((mant (math-match-substring s 1))
 	   (exp (math-match-substring s 2)))
-       (let ((mant (if (> (length mant) 0) (math-read-number mant) 1))
+       (let ((mant (if (> (length mant) 0) (math-read-number mant t) 1))
 	     (exp (if (<= (length exp) (if (memq (aref exp 0) '(?+ ?-)) 8 7))
 		      (string-to-number exp))))
 	 (and mant exp (Math-realp mant) (> exp -4000000) (< exp 4000000)