Lines Matching defs:decimal
34 ;; range of -(2**23) to +(2**23)-1, or -8388608 to 8388607 decimal.
35 ;; This gives six significant decimal digit accuracy. Exponents can
65 (defconst decimal-digits 6
66 "Number of decimal digits expected to be accurate.")
108 ;; support for decimal conversion routines
109 (defvar powers-of-10 (make-vector (1+ decimal-digits) _f1))
117 (defconst all-decimal-digs-minval (aref powers-of-10 (1- decimal-digits)))
118 (defconst highest-power-of-10 (aref powers-of-10 decimal-digits))
326 "Convert the floating point number to a decimal string.
338 power (+ power decimal-digits)))
345 power (- power decimal-digits)))
350 (setq value (f* (f/ value pow10) all-decimal-digs-minval)
364 ; regular decimal string
365 (cond ((>= power (1- decimal-digits))
367 (let ((zeroes (- power decimal-digits)))
372 ; negative power, prepend decimal
380 (t ; in range, insert decimal point
396 Accepts a decimal string in scientific notation, with exponent preceded
399 are used. Negative signs preceding both the decimal number and the exponent
413 (setq power (- (length int-subst) decimal-digits))
421 (if (> (length digit-string) decimal-digits)
422 (setq round-up (>= (aref digit-string decimal-digits) ?5)
423 digit-string (substring digit-string 0 decimal-digits))
424 (setq power (+ power (- decimal-digits (length digit-string)))))
446 (setq chunks (/ expt decimal-digits)
447 tens (% expt decimal-digits))