Lines Matching +defs:read +defs:only
766 math-normalize-mod math-parse-date math-read-angle-brackets
792 math-read-big-balance math-read-big-rec)
844 calc-fix-token-name calc-fix-user-formula calc-read-parse-table
845 calc-read-parse-table-part calc-subsetp calc-write-parse-table
880 ("calc-store" calc-read-var-name
910 math-read-brackets math-reduce-cols math-reduce-vec math-transpose)
1397 (let ((event (calc-read-key t)))
1607 (cmd (intern (completing-read prompt obarray 'commandp t "calc-"))))
1640 (let ((val (math-read-expr (symbol-value v))))
2208 (defvar math-simplify-only nil)
2218 (not math-simplify-only)) ; oh, what a kludge!
2288 math-simplify-only (car-safe (cdr-safe math-normalize-a)))
2766 (defun math-read-number-fancy (s)
2774 (let ((int (if (> (length int) 0) (math-read-number int) 0))
2775 (num (if (> (length num) 0) (math-read-number num) 1))
2776 (den (if (> (length num) 0) (math-read-number den) 1)))
2786 (let ((num (if (> (length num) 0) (math-read-number num) 1))
2787 (den (if (> (length num) 0) (math-read-number den) 1)))
2796 (n (math-read-number n))
2797 (m (math-read-number m)))
2805 (x (math-read-number x))
2806 (sigma (math-read-number sigma)))
2815 (hours (math-read-number hours))
2816 (minsec (if (> (length minsec) 0) (math-read-number minsec) 0)))
2832 (minutes (math-read-number minutes))
2833 (seconds (if (> (length seconds) 0) (math-read-number seconds) 0)))
2848 (let ((seconds (math-read-number (math-match-substring s 1))))
2860 (let ((int (if (> (length int) 0) (math-read-radix int radix) 0))
2861 (num (if (> (length num) 0) (math-read-radix num radix) 1))
2862 (den (if (> (length den) 0) (math-read-radix den radix) 1)))
2873 (let ((num (if (> (length num) 0) (math-read-radix num radix) 1))
2874 (den (if (> (length den) 0) (math-read-radix den radix) 1)))
2883 (let ((mant (math-read-number mant))
2884 (exp (math-read-number exp)))
2893 (let ((int (if (> (length int) 0) (math-read-radix int radix) 0))
2894 (frac (if (> (length fracs) 0) (math-read-radix fracs radix) 0))
2901 (math-read-radix (math-match-substring s 3)
2908 (math-read-radix digs 16)))
2914 (math-read-radix digs 16)))
2918 (math-read-number (concat (math-match-substring s 1) ":"
2924 (defun math-read-radix (s r) ; [I X D]
2930 (setq dig (math-read-radix-digit (elt s i)))
2943 (defun math-read-expr (math-exp-str)
2948 (setq math-exp-str (math-read-preprocess-string math-exp-str))
2953 (math-read-token)
2954 (let ((val (catch 'syntax (math-read-expr-level 0))))
2961 (defun math-read-plain-expr (exp-str &optional error-check)
2964 (val (math-read-expr exp-str)))
2971 (defun math-read-string ()
2972 (let ((str (read-from-string (concat math-expr-data "\""))))
2976 (math-read-token)
2983 (defun math-read-big-expr (str)
2994 (math-read-expr str)
3000 (math-read-expr str)))
3001 (let ((math-read-big-lines nil)
3004 (math-read-big-err-msg nil)
3005 math-read-big-baseline math-read-big-h2
3008 (setq math-read-big-lines
3009 (cons (substring str pos new-pos) math-read-big-lines)
3011 (setq math-read-big-lines
3012 (nreverse (cons (substring str pos) math-read-big-lines))
3013 p math-read-big-lines)
3017 (if (math-read-big-bigp math-read-big-lines)
3019 (math-read-big-rec 0 0 width (length math-read-big-lines)))
3020 math-read-big-err-msg
3022 (math-read-expr str)))))
3024 (defun math-read-big-bigp (math-read-big-lines)
3025 (and (cdr math-read-big-lines)
3028 (height (if (> (length (car math-read-big-lines)) 0) 1 0)))
3029 (while (and (cdr math-read-big-lines)
3032 (l1 (car math-read-big-lines))
3033 (l2 (nth 1 math-read-big-lines))
3045 (setq j (math-read-big-balance
3054 (setq math-read-big-lines (cdr math-read-big-lines)
3057 (not (cdr math-read-big-lines)))