Mercurial > emacs
changeset 58844:d598b3594142
(math-read-replacement-list, math-read-superscripts): Move to
calc-aent.el.
(math-read-preprocess-string): Move to calc-aent.el.
author | Jay Belanger <jay.p.belanger@gmail.com> |
---|---|
date | Wed, 08 Dec 2004 06:10:56 +0000 (2004-12-08) |
parents | f3d24ef9bf58 |
children | c05f062fa72f |
files | lisp/calc/calc-ext.el |
diffstat | 1 files changed, 0 insertions(+), 67 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-ext.el Wed Dec 08 06:09:20 2004 +0000 +++ b/lisp/calc/calc-ext.el Wed Dec 08 06:10:56 2004 +0000 @@ -2874,73 +2874,6 @@ (defvar math-expr-data) -(defvar math-read-replacement-list - '(;; Misc symbols - ("賊" "+/-") ; plus or minus - ("�" "*") ; multiplication sign - ("歎" ":") ; division sign - ("��" "-") ; subtraction sign - ("��" "/") ; division sign - ("��" "*") ; asterisk multiplication - ("��" "inf") ; infinity symbol - ("��" "<=") - ("��" ">=") - ("��" "<=") - ("��" ">=") - ;; fractions - ("村" "(1:4)") ; 1/4 - ("遜" "(1:2)") ; 1/2 - ("他" "(3:4)") ; 3/4 - ("��" "(1:3)") ; 1/3 - ("��" "(2:3)") ; 2/3 - ("��" "(1:5)") ; 1/5 - ("��" "(2:5)") ; 2/5 - ("��" "(3:5)") ; 3/5 - ("��" "(4:5)") ; 4/5 - ("��" "(1:6)") ; 1/6 - ("��" "(5:6)") ; 5/6 - ("��" "(1:8)") ; 1/8 - ("��" "(3:8)") ; 3/8 - ("��" "(5:8)") ; 5/8 - ("��" "(7:8)") ; 7/8 - ("��" "1:") ; 1/... - ;; superscripts - ("��" "0") ; 0 - ("孫" "1") ; 1 - ("族" "2") ; 2 - ("続" "3") ; 3 - ("��" "4") ; 4 - ("��" "5") ; 5 - ("��" "6") ; 6 - ("��" "7") ; 7 - ("��" "8") ; 8 - ("��" "9") ; 9 - ("��" "+") ; + - ("��" "-") ; - - ("��" "(") ; ( - ("��" ")") ; ) - ("��" "n") ; n - ("��" "i")) ; i - "A list whose elements (old new) indicate replacements to make -in Calc algebraic input.") - -(defvar math-read-superscripts - "�安溝佳鰍�癌�汲�金�撃�呉�高�財�獅�盾�鐘�垂��" ; 0123456789+-()ni - "A string consisting of the superscripts allowed by Calc.") - -(defun math-read-preprocess-string (str) - "Replace some substrings of STR by Calc equivalents." - (setq str - (replace-regexp-in-string (concat "[" math-read-superscripts "]+") - "^(\\&)" str)) - (let ((rep-list math-read-replacement-list)) - (while rep-list - (setq str - (replace-regexp-in-string (nth 0 (car rep-list)) - (nth 1 (car rep-list)) str)) - (setq rep-list (cdr rep-list)))) - str) - (defun math-read-expr (math-exp-str) (let ((math-exp-pos 0) (math-exp-old-pos 0)