Mercurial > emacs
annotate lisp/calc/calc-lang.el @ 90533:8a8e69664178
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 343-356)
- Update from CVS
- Update for ERC 5.1.3.
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 113-115)
- Merge from emacs--devo--0
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-90
author | Miles Bader <miles@gnu.org> |
---|---|
date | Wed, 19 Jul 2006 00:42:56 +0000 |
parents | c5406394f567 |
children | bb0e318b7c53 |
rev | line source |
---|---|
41271
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1 ;;; calc-lang.el --- calc language functions |
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
2 |
64325
1db49616ce05
Update copyright information.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62165
diff
changeset
|
3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004, |
68636
6bf177f8065b
Update copyright year.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
65711
diff
changeset
|
4 ;; 2005, 2006 Free Software Foundation, Inc. |
41271
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
5 |
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
6 ;; Author: David Gillespie <daveg@synaptics.com> |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
7 ;; Maintainer: Jay Belanger <belanger@truman.edu> |
40785 | 8 |
9 ;; This file is part of GNU Emacs. | |
10 | |
11 ;; GNU Emacs is distributed in the hope that it will be useful, | |
12 ;; but WITHOUT ANY WARRANTY. No author or distributor | |
13 ;; accepts responsibility to anyone for the consequences of using it | |
14 ;; or for whether it serves any particular purpose or works at all, | |
15 ;; unless he says so in writing. Refer to the GNU Emacs General Public | |
16 ;; License for full details. | |
17 | |
18 ;; Everyone is granted permission to copy, modify and redistribute | |
19 ;; GNU Emacs, but only under the conditions described in the | |
20 ;; GNU Emacs General Public License. A copy of this license is | |
21 ;; supposed to have been given to you along with GNU Emacs so you | |
22 ;; can know your rights and responsibilities. It should be in a | |
23 ;; file named COPYING. Among other things, the copyright notice | |
24 ;; and this notice must be preserved on all copies. | |
25 | |
41271
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
26 ;;; Commentary: |
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
27 |
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
28 ;;; Code: |
40785 | 29 |
30 ;; This file is autoloaded from calc-ext.el. | |
31 | |
58661
10224395a3c2
Add a provide statement.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58571
diff
changeset
|
32 (require 'calc-ext) |
40785 | 33 (require 'calc-macs) |
34 | |
35 ;;; Alternate entry/display languages. | |
36 | |
37 (defun calc-set-language (lang &optional option no-refresh) | |
38 (setq math-expr-opers (or (get lang 'math-oper-table) math-standard-opers) | |
39 math-expr-function-mapping (get lang 'math-function-table) | |
59811
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
40 math-expr-special-function-mapping (get lang 'math-special-function-table) |
40785 | 41 math-expr-variable-mapping (get lang 'math-variable-table) |
42 calc-language-input-filter (get lang 'math-input-filter) | |
43 calc-language-output-filter (get lang 'math-output-filter) | |
44 calc-vector-brackets (or (get lang 'math-vector-brackets) "[]") | |
45 calc-complex-format (get lang 'math-complex-format) | |
46 calc-radix-formatter (get lang 'math-radix-formatter) | |
47 calc-function-open (or (get lang 'math-function-open) "(") | |
48 calc-function-close (or (get lang 'math-function-close) ")")) | |
49 (if no-refresh | |
50 (setq calc-language lang | |
51 calc-language-option option) | |
52 (calc-change-mode '(calc-language calc-language-option) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
53 (list lang option) t))) |
40785 | 54 |
55 (defun calc-normal-language () | |
56 (interactive) | |
57 (calc-wrapper | |
58 (calc-set-language nil) | |
41271
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
59 (message "Normal language mode"))) |
40785 | 60 |
61 (defun calc-flat-language () | |
62 (interactive) | |
63 (calc-wrapper | |
64 (calc-set-language 'flat) | |
41271
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
65 (message "Flat language mode (all stack entries shown on one line)"))) |
40785 | 66 |
67 (defun calc-big-language () | |
68 (interactive) | |
69 (calc-wrapper | |
70 (calc-set-language 'big) | |
41271
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
71 (message "\"Big\" language mode"))) |
40785 | 72 |
73 (defun calc-unformatted-language () | |
74 (interactive) | |
75 (calc-wrapper | |
76 (calc-set-language 'unform) | |
41271
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
77 (message "Unformatted language mode"))) |
40785 | 78 |
79 | |
80 (defun calc-c-language () | |
81 (interactive) | |
82 (calc-wrapper | |
83 (calc-set-language 'c) | |
41271
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
84 (message "`C' language mode"))) |
40785 | 85 |
86 (put 'c 'math-oper-table | |
87 '( ( "u+" ident -1 1000 ) | |
88 ( "u-" neg -1 1000 ) | |
89 ( "u!" calcFunc-lnot -1 1000 ) | |
90 ( "~" calcFunc-not -1 1000 ) | |
91 ( "*" * 190 191 ) | |
92 ( "/" / 190 191 ) | |
93 ( "%" % 190 191 ) | |
94 ( "+" + 180 181 ) | |
95 ( "-" - 180 181 ) | |
96 ( "<<" calcFunc-lsh 170 171 ) | |
97 ( ">>" calcFunc-rsh 170 171 ) | |
98 ( "<" calcFunc-lt 160 161 ) | |
99 ( ">" calcFunc-gt 160 161 ) | |
100 ( "<=" calcFunc-leq 160 161 ) | |
101 ( ">=" calcFunc-geq 160 161 ) | |
102 ( "==" calcFunc-eq 150 151 ) | |
103 ( "!=" calcFunc-neq 150 151 ) | |
104 ( "&" calcFunc-and 140 141 ) | |
105 ( "^" calcFunc-xor 131 130 ) | |
106 ( "|" calcFunc-or 120 121 ) | |
107 ( "&&" calcFunc-land 110 111 ) | |
108 ( "||" calcFunc-lor 100 101 ) | |
109 ( "?" (math-read-if) 91 90 ) | |
110 ( "!!!" calcFunc-pnot -1 88 ) | |
111 ( "&&&" calcFunc-pand 85 86 ) | |
112 ( "|||" calcFunc-por 75 76 ) | |
113 ( "=" calcFunc-assign 51 50 ) | |
114 ( ":=" calcFunc-assign 51 50 ) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
115 ( "::" calcFunc-condition 45 46 ))) ; should support full assignments |
40785 | 116 |
117 (put 'c 'math-function-table | |
118 '( ( acos . calcFunc-arccos ) | |
119 ( acosh . calcFunc-arccosh ) | |
120 ( asin . calcFunc-arcsin ) | |
121 ( asinh . calcFunc-arcsinh ) | |
122 ( atan . calcFunc-arctan ) | |
123 ( atan2 . calcFunc-arctan2 ) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
124 ( atanh . calcFunc-arctanh ))) |
40785 | 125 |
126 (put 'c 'math-variable-table | |
127 '( ( M_PI . var-pi ) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
128 ( M_E . var-e ))) |
40785 | 129 |
130 (put 'c 'math-vector-brackets "{}") | |
131 | |
132 (put 'c 'math-radix-formatter | |
133 (function (lambda (r s) | |
134 (if (= r 16) (format "0x%s" s) | |
135 (if (= r 8) (format "0%s" s) | |
136 (format "%d#%s" r s)))))) | |
137 | |
138 | |
139 (defun calc-pascal-language (n) | |
140 (interactive "P") | |
141 (calc-wrapper | |
142 (and n (setq n (prefix-numeric-value n))) | |
143 (calc-set-language 'pascal n) | |
144 (message (if (and n (/= n 0)) | |
145 (if (> n 0) | |
41271
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
146 "Pascal language mode (all uppercase)" |
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
147 "Pascal language mode (all lowercase)") |
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
148 "Pascal language mode")))) |
40785 | 149 |
150 (put 'pascal 'math-oper-table | |
151 '( ( "not" calcFunc-lnot -1 1000 ) | |
152 ( "*" * 190 191 ) | |
153 ( "/" / 190 191 ) | |
154 ( "and" calcFunc-and 190 191 ) | |
155 ( "div" calcFunc-idiv 190 191 ) | |
156 ( "mod" % 190 191 ) | |
157 ( "u+" ident -1 185 ) | |
158 ( "u-" neg -1 185 ) | |
159 ( "+" + 180 181 ) | |
160 ( "-" - 180 181 ) | |
161 ( "or" calcFunc-or 180 181 ) | |
162 ( "xor" calcFunc-xor 180 181 ) | |
163 ( "shl" calcFunc-lsh 180 181 ) | |
164 ( "shr" calcFunc-rsh 180 181 ) | |
165 ( "in" calcFunc-in 160 161 ) | |
166 ( "<" calcFunc-lt 160 161 ) | |
167 ( ">" calcFunc-gt 160 161 ) | |
168 ( "<=" calcFunc-leq 160 161 ) | |
169 ( ">=" calcFunc-geq 160 161 ) | |
170 ( "=" calcFunc-eq 160 161 ) | |
171 ( "<>" calcFunc-neq 160 161 ) | |
172 ( "!!!" calcFunc-pnot -1 85 ) | |
173 ( "&&&" calcFunc-pand 80 81 ) | |
174 ( "|||" calcFunc-por 75 76 ) | |
175 ( ":=" calcFunc-assign 51 50 ) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
176 ( "::" calcFunc-condition 45 46 ))) |
40785 | 177 |
178 (put 'pascal 'math-input-filter 'calc-input-case-filter) | |
179 (put 'pascal 'math-output-filter 'calc-output-case-filter) | |
180 | |
181 (put 'pascal 'math-radix-formatter | |
182 (function (lambda (r s) | |
183 (if (= r 16) (format "$%s" s) | |
184 (format "%d#%s" r s))))) | |
185 | |
186 (defun calc-input-case-filter (str) | |
187 (cond ((or (null calc-language-option) (= calc-language-option 0)) | |
188 str) | |
189 (t | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
190 (downcase str)))) |
40785 | 191 |
192 (defun calc-output-case-filter (str) | |
193 (cond ((or (null calc-language-option) (= calc-language-option 0)) | |
194 str) | |
195 ((> calc-language-option 0) | |
196 (upcase str)) | |
197 (t | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
198 (downcase str)))) |
40785 | 199 |
200 | |
201 (defun calc-fortran-language (n) | |
202 (interactive "P") | |
203 (calc-wrapper | |
204 (and n (setq n (prefix-numeric-value n))) | |
205 (calc-set-language 'fortran n) | |
206 (message (if (and n (/= n 0)) | |
207 (if (> n 0) | |
41271
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
208 "FORTRAN language mode (all uppercase)" |
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
209 "FORTRAN language mode (all lowercase)") |
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
210 "FORTRAN language mode")))) |
40785 | 211 |
212 (put 'fortran 'math-oper-table | |
213 '( ( "u/" (math-parse-fortran-vector) -1 1 ) | |
214 ( "/" (math-parse-fortran-vector-end) 1 -1 ) | |
215 ( "**" ^ 201 200 ) | |
216 ( "u+" ident -1 191 ) | |
217 ( "u-" neg -1 191 ) | |
218 ( "*" * 190 191 ) | |
219 ( "/" / 190 191 ) | |
220 ( "+" + 180 181 ) | |
221 ( "-" - 180 181 ) | |
222 ( ".LT." calcFunc-lt 160 161 ) | |
223 ( ".GT." calcFunc-gt 160 161 ) | |
224 ( ".LE." calcFunc-leq 160 161 ) | |
225 ( ".GE." calcFunc-geq 160 161 ) | |
226 ( ".EQ." calcFunc-eq 160 161 ) | |
227 ( ".NE." calcFunc-neq 160 161 ) | |
228 ( ".NOT." calcFunc-lnot -1 121 ) | |
229 ( ".AND." calcFunc-land 110 111 ) | |
230 ( ".OR." calcFunc-lor 100 101 ) | |
231 ( "!!!" calcFunc-pnot -1 85 ) | |
232 ( "&&&" calcFunc-pand 80 81 ) | |
233 ( "|||" calcFunc-por 75 76 ) | |
234 ( "=" calcFunc-assign 51 50 ) | |
235 ( ":=" calcFunc-assign 51 50 ) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
236 ( "::" calcFunc-condition 45 46 ))) |
40785 | 237 |
238 (put 'fortran 'math-vector-brackets "//") | |
239 | |
240 (put 'fortran 'math-function-table | |
241 '( ( acos . calcFunc-arccos ) | |
242 ( acosh . calcFunc-arccosh ) | |
243 ( aimag . calcFunc-im ) | |
244 ( aint . calcFunc-ftrunc ) | |
245 ( asin . calcFunc-arcsin ) | |
246 ( asinh . calcFunc-arcsinh ) | |
247 ( atan . calcFunc-arctan ) | |
248 ( atan2 . calcFunc-arctan2 ) | |
249 ( atanh . calcFunc-arctanh ) | |
250 ( conjg . calcFunc-conj ) | |
251 ( log . calcFunc-ln ) | |
252 ( nint . calcFunc-round ) | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49263
diff
changeset
|
253 ( real . calcFunc-re ))) |
40785 | 254 |
255 (put 'fortran 'math-input-filter 'calc-input-case-filter) | |
256 (put 'fortran 'math-output-filter 'calc-output-case-filter) | |
257 | |
58571
4ca47d70b075
(math-expr-data, math-expr-token, math-exp-old-pos): Declare them.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58411
diff
changeset
|
258 ;; The next few variables are local to math-read-exprs in calc-aent.el |
4ca47d70b075
(math-expr-data, math-expr-token, math-exp-old-pos): Declare them.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58411
diff
changeset
|
259 ;; and math-read-expr in calc-ext.el, but are set in functions they call. |
4ca47d70b075
(math-expr-data, math-expr-token, math-exp-old-pos): Declare them.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58411
diff
changeset
|
260 |
4ca47d70b075
(math-expr-data, math-expr-token, math-exp-old-pos): Declare them.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58411
diff
changeset
|
261 (defvar math-exp-token) |
4ca47d70b075
(math-expr-data, math-expr-token, math-exp-old-pos): Declare them.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58411
diff
changeset
|
262 (defvar math-expr-data) |
4ca47d70b075
(math-expr-data, math-expr-token, math-exp-old-pos): Declare them.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58411
diff
changeset
|
263 (defvar math-exp-old-pos) |
4ca47d70b075
(math-expr-data, math-expr-token, math-exp-old-pos): Declare them.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58411
diff
changeset
|
264 |
41271
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
265 (defvar math-parsing-fortran-vector nil) |
40785 | 266 (defun math-parse-fortran-vector (op) |
267 (let ((math-parsing-fortran-vector '(end . "\000"))) | |
268 (prog1 | |
269 (math-read-brackets t "]") | |
58134
3089957051ea
(math-parse-tex-sum): Use declared variable math-exp-old-pos.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58107
diff
changeset
|
270 (setq math-exp-token (car math-parsing-fortran-vector) |
58107
cfad3432f125
(math-parse-fortran-vector, math-parse-fortran-vector-end,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
52401
diff
changeset
|
271 math-expr-data (cdr math-parsing-fortran-vector))))) |
40785 | 272 |
273 (defun math-parse-fortran-vector-end (x op) | |
274 (if math-parsing-fortran-vector | |
275 (progn | |
58134
3089957051ea
(math-parse-tex-sum): Use declared variable math-exp-old-pos.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58107
diff
changeset
|
276 (setq math-parsing-fortran-vector (cons math-exp-token math-expr-data) |
3089957051ea
(math-parse-tex-sum): Use declared variable math-exp-old-pos.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58107
diff
changeset
|
277 math-exp-token 'end |
58107
cfad3432f125
(math-parse-fortran-vector, math-parse-fortran-vector-end,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
52401
diff
changeset
|
278 math-expr-data "\000") |
40785 | 279 x) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
280 (throw 'syntax "Unmatched closing `/'"))) |
40785 | 281 |
282 (defun math-parse-fortran-subscr (sym args) | |
283 (setq sym (math-build-var-name sym)) | |
284 (while args | |
285 (setq sym (list 'calcFunc-subscr sym (car args)) | |
286 args (cdr args))) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
287 sym) |
40785 | 288 |
289 | |
290 (defun calc-tex-language (n) | |
291 (interactive "P") | |
292 (calc-wrapper | |
293 (and n (setq n (prefix-numeric-value n))) | |
294 (calc-set-language 'tex n) | |
59966
9eb004b49fc9
(calc-tex-language): Display more information in messages.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59915
diff
changeset
|
295 (cond ((not n) |
9eb004b49fc9
(calc-tex-language): Display more information in messages.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59915
diff
changeset
|
296 (message "TeX language mode")) |
9eb004b49fc9
(calc-tex-language): Display more information in messages.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59915
diff
changeset
|
297 ((= n 0) |
9eb004b49fc9
(calc-tex-language): Display more information in messages.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59915
diff
changeset
|
298 (message "TeX language mode with multiline matrices")) |
9eb004b49fc9
(calc-tex-language): Display more information in messages.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59915
diff
changeset
|
299 ((= n 1) |
9eb004b49fc9
(calc-tex-language): Display more information in messages.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59915
diff
changeset
|
300 (message "TeX language mode with \\hbox{func}(\\hbox{var})")) |
9eb004b49fc9
(calc-tex-language): Display more information in messages.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59915
diff
changeset
|
301 ((> n 1) |
9eb004b49fc9
(calc-tex-language): Display more information in messages.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59915
diff
changeset
|
302 (message |
9eb004b49fc9
(calc-tex-language): Display more information in messages.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59915
diff
changeset
|
303 "TeX language mode with \\hbox{func}(\\hbox{var}) and multiline matrices")) |
9eb004b49fc9
(calc-tex-language): Display more information in messages.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59915
diff
changeset
|
304 ((= n -1) |
9eb004b49fc9
(calc-tex-language): Display more information in messages.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59915
diff
changeset
|
305 (message "TeX language mode with \\func(\\hbox{var})")) |
9eb004b49fc9
(calc-tex-language): Display more information in messages.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59915
diff
changeset
|
306 ((< n -1) |
9eb004b49fc9
(calc-tex-language): Display more information in messages.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59915
diff
changeset
|
307 (message |
9eb004b49fc9
(calc-tex-language): Display more information in messages.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59915
diff
changeset
|
308 "TeX language mode with \\func(\\hbox{var}) and multiline matrices"))))) |
40785 | 309 |
59811
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
310 (defun calc-latex-language (n) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
311 (interactive "P") |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
312 (calc-wrapper |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
313 (and n (setq n (prefix-numeric-value n))) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
314 (calc-set-language 'latex n) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
315 (cond ((not n) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
316 (message "LaTeX language mode")) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
317 ((= n 0) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
318 (message "LaTeX language mode with multiline matrices")) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
319 ((= n 1) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
320 (message "LaTeX language mode with \\text{func}(\\text{var})")) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
321 ((> n 1) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
322 (message |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
323 "LaTeX language mode with \\text{func}(\\text{var}) and multiline matrices")) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
324 ((= n -1) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
325 (message "LaTeX language mode with \\func(\\text{var})")) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
326 ((< n -1) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
327 (message |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
328 "LaTeX language mode with \\func(\\text{var}) and multiline matrices"))))) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
329 |
40785 | 330 (put 'tex 'math-oper-table |
331 '( ( "u+" ident -1 1000 ) | |
332 ( "u-" neg -1 1000 ) | |
333 ( "\\hat" calcFunc-hat -1 950 ) | |
334 ( "\\check" calcFunc-check -1 950 ) | |
335 ( "\\tilde" calcFunc-tilde -1 950 ) | |
336 ( "\\acute" calcFunc-acute -1 950 ) | |
337 ( "\\grave" calcFunc-grave -1 950 ) | |
338 ( "\\dot" calcFunc-dot -1 950 ) | |
339 ( "\\ddot" calcFunc-dotdot -1 950 ) | |
340 ( "\\breve" calcFunc-breve -1 950 ) | |
341 ( "\\bar" calcFunc-bar -1 950 ) | |
342 ( "\\vec" calcFunc-Vec -1 950 ) | |
343 ( "\\underline" calcFunc-under -1 950 ) | |
344 ( "u|" calcFunc-abs -1 0 ) | |
345 ( "|" closing 0 -1 ) | |
346 ( "\\lfloor" calcFunc-floor -1 0 ) | |
347 ( "\\rfloor" closing 0 -1 ) | |
348 ( "\\lceil" calcFunc-ceil -1 0 ) | |
349 ( "\\rceil" closing 0 -1 ) | |
350 ( "\\pm" sdev 300 300 ) | |
351 ( "!" calcFunc-fact 210 -1 ) | |
352 ( "^" ^ 201 200 ) | |
353 ( "_" calcFunc-subscr 201 200 ) | |
354 ( "\\times" * 191 190 ) | |
355 ( "*" * 191 190 ) | |
356 ( "2x" * 191 190 ) | |
65711
dd684f00015e
(math-oper-table): Raise the precedence of "/" in TeX mode.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64325
diff
changeset
|
357 ( "/" / 185 186 ) |
40785 | 358 ( "+" + 180 181 ) |
359 ( "-" - 180 181 ) | |
360 ( "\\over" / 170 171 ) | |
361 ( "\\choose" calcFunc-choose 170 171 ) | |
362 ( "\\mod" % 170 171 ) | |
363 ( "<" calcFunc-lt 160 161 ) | |
364 ( ">" calcFunc-gt 160 161 ) | |
365 ( "\\leq" calcFunc-leq 160 161 ) | |
366 ( "\\geq" calcFunc-geq 160 161 ) | |
367 ( "=" calcFunc-eq 160 161 ) | |
368 ( "\\neq" calcFunc-neq 160 161 ) | |
369 ( "\\ne" calcFunc-neq 160 161 ) | |
370 ( "\\lnot" calcFunc-lnot -1 121 ) | |
371 ( "\\land" calcFunc-land 110 111 ) | |
372 ( "\\lor" calcFunc-lor 100 101 ) | |
373 ( "?" (math-read-if) 91 90 ) | |
374 ( "!!!" calcFunc-pnot -1 85 ) | |
375 ( "&&&" calcFunc-pand 80 81 ) | |
376 ( "|||" calcFunc-por 75 76 ) | |
377 ( "\\gets" calcFunc-assign 51 50 ) | |
378 ( ":=" calcFunc-assign 51 50 ) | |
379 ( "::" calcFunc-condition 45 46 ) | |
380 ( "\\to" calcFunc-evalto 40 41 ) | |
381 ( "\\to" calcFunc-evalto 40 -1 ) | |
382 ( "=>" calcFunc-evalto 40 41 ) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
383 ( "=>" calcFunc-evalto 40 -1 ))) |
40785 | 384 |
385 (put 'tex 'math-function-table | |
386 '( ( \\arccos . calcFunc-arccos ) | |
387 ( \\arcsin . calcFunc-arcsin ) | |
388 ( \\arctan . calcFunc-arctan ) | |
389 ( \\arg . calcFunc-arg ) | |
390 ( \\cos . calcFunc-cos ) | |
391 ( \\cosh . calcFunc-cosh ) | |
61069
803f4b2d0113
Add functions to math-function-table properties of tex and math.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59966
diff
changeset
|
392 ( \\cot . calcFunc-cot ) |
803f4b2d0113
Add functions to math-function-table properties of tex and math.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59966
diff
changeset
|
393 ( \\coth . calcFunc-coth ) |
803f4b2d0113
Add functions to math-function-table properties of tex and math.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59966
diff
changeset
|
394 ( \\csc . calcFunc-csc ) |
40785 | 395 ( \\det . calcFunc-det ) |
396 ( \\exp . calcFunc-exp ) | |
397 ( \\gcd . calcFunc-gcd ) | |
398 ( \\ln . calcFunc-ln ) | |
399 ( \\log . calcFunc-log10 ) | |
400 ( \\max . calcFunc-max ) | |
401 ( \\min . calcFunc-min ) | |
61069
803f4b2d0113
Add functions to math-function-table properties of tex and math.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59966
diff
changeset
|
402 ( \\sec . calcFunc-sec ) |
40785 | 403 ( \\sin . calcFunc-sin ) |
404 ( \\sinh . calcFunc-sinh ) | |
405 ( \\sqrt . calcFunc-sqrt ) | |
61069
803f4b2d0113
Add functions to math-function-table properties of tex and math.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59966
diff
changeset
|
406 ( \\tan . calcFunc-tan ) |
40785 | 407 ( \\tanh . calcFunc-tanh ) |
408 ( \\phi . calcFunc-totient ) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
409 ( \\mu . calcFunc-moebius ))) |
40785 | 410 |
411 (put 'tex 'math-variable-table | |
412 '( ( \\pi . var-pi ) | |
413 ( \\infty . var-inf ) | |
414 ( \\infty . var-uinf ) | |
415 ( \\phi . var-phi ) | |
416 ( \\gamma . var-gamma ) | |
417 ( \\sum . (math-parse-tex-sum calcFunc-sum) ) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
418 ( \\prod . (math-parse-tex-sum calcFunc-prod) ))) |
40785 | 419 |
420 (put 'tex 'math-complex-format 'i) | |
421 | |
422 (defun math-parse-tex-sum (f val) | |
423 (let (low high save) | |
58107
cfad3432f125
(math-parse-fortran-vector, math-parse-fortran-vector-end,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
52401
diff
changeset
|
424 (or (equal math-expr-data "_") (throw 'syntax "Expected `_'")) |
40785 | 425 (math-read-token) |
58134
3089957051ea
(math-parse-tex-sum): Use declared variable math-exp-old-pos.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58107
diff
changeset
|
426 (setq save math-exp-old-pos) |
40785 | 427 (setq low (math-read-factor)) |
428 (or (eq (car-safe low) 'calcFunc-eq) | |
429 (progn | |
58134
3089957051ea
(math-parse-tex-sum): Use declared variable math-exp-old-pos.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58107
diff
changeset
|
430 (setq math-exp-old-pos (1+ save)) |
40785 | 431 (throw 'syntax "Expected equation"))) |
58107
cfad3432f125
(math-parse-fortran-vector, math-parse-fortran-vector-end,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
52401
diff
changeset
|
432 (or (equal math-expr-data "^") (throw 'syntax "Expected `^'")) |
40785 | 433 (math-read-token) |
434 (setq high (math-read-factor)) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
435 (list (nth 2 f) (math-read-factor) (nth 1 low) (nth 2 low) high))) |
40785 | 436 |
437 (defun math-tex-input-filter (str) ; allow parsing of 123\,456\,789. | |
438 (while (string-match "[0-9]\\\\,[0-9]" str) | |
439 (setq str (concat (substring str 0 (1+ (match-beginning 0))) | |
440 (substring str (1- (match-end 0)))))) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
441 str) |
40785 | 442 (put 'tex 'math-input-filter 'math-tex-input-filter) |
443 | |
59811
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
444 (put 'latex 'math-oper-table |
59829
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
445 (append (get 'tex 'math-oper-table) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
446 '(( "\\Hat" calcFunc-Hat -1 950 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
447 ( "\\Check" calcFunc-Check -1 950 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
448 ( "\\Tilde" calcFunc-Tilde -1 950 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
449 ( "\\Acute" calcFunc-Acute -1 950 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
450 ( "\\Grave" calcFunc-Grave -1 950 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
451 ( "\\Dot" calcFunc-Dot -1 950 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
452 ( "\\Ddot" calcFunc-Dotdot -1 950 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
453 ( "\\Breve" calcFunc-Breve -1 950 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
454 ( "\\Bar" calcFunc-Bar -1 950 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
455 ( "\\Vec" calcFunc-VEC -1 950 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
456 ( "\\dddot" calcFunc-dddot -1 950 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
457 ( "\\ddddot" calcFunc-ddddot -1 950 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
458 ( "\div" / 170 171 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
459 ( "\\le" calcFunc-leq 160 161 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
460 ( "\\leqq" calcFunc-leq 160 161 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
461 ( "\\leqsland" calcFunc-leq 160 161 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
462 ( "\\ge" calcFunc-geq 160 161 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
463 ( "\\geqq" calcFunc-geq 160 161 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
464 ( "\\geqslant" calcFunc-geq 160 161 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
465 ( "=" calcFunc-eq 160 161 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
466 ( "\\neq" calcFunc-neq 160 161 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
467 ( "\\ne" calcFunc-neq 160 161 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
468 ( "\\lnot" calcFunc-lnot -1 121 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
469 ( "\\land" calcFunc-land 110 111 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
470 ( "\\lor" calcFunc-lor 100 101 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
471 ( "?" (math-read-if) 91 90 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
472 ( "!!!" calcFunc-pnot -1 85 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
473 ( "&&&" calcFunc-pand 80 81 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
474 ( "|||" calcFunc-por 75 76 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
475 ( "\\gets" calcFunc-assign 51 50 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
476 ( ":=" calcFunc-assign 51 50 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
477 ( "::" calcFunc-condition 45 46 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
478 ( "\\to" calcFunc-evalto 40 41 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
479 ( "\\to" calcFunc-evalto 40 -1 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
480 ( "=>" calcFunc-evalto 40 41 ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
481 ( "=>" calcFunc-evalto 40 -1 )))) |
59811
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
482 |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
483 (put 'latex 'math-function-table |
59829
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
484 (append |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
485 (get 'tex 'math-function-table) |
59915
937e422a1694
(math-latex-parse-frac): Don't use arguments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59829
diff
changeset
|
486 '(( \\frac . (math-latex-parse-frac)) |
937e422a1694
(math-latex-parse-frac): Don't use arguments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59829
diff
changeset
|
487 ( \\tfrac . (math-latex-parse-frac)) |
937e422a1694
(math-latex-parse-frac): Don't use arguments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59829
diff
changeset
|
488 ( \\dfrac . (math-latex-parse-frac)) |
937e422a1694
(math-latex-parse-frac): Don't use arguments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59829
diff
changeset
|
489 ( \\binom . (math-latex-parse-two-args calcFunc-choose)) |
937e422a1694
(math-latex-parse-frac): Don't use arguments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59829
diff
changeset
|
490 ( \\tbinom . (math-latex-parse-two-args calcFunc-choose)) |
937e422a1694
(math-latex-parse-frac): Don't use arguments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59829
diff
changeset
|
491 ( \\dbinom . (math-latex-parse-two-args calcFunc-choose)) |
59829
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
492 ( \\phi . calcFunc-totient ) |
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
493 ( \\mu . calcFunc-moebius )))) |
59811
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
494 |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
495 (put 'latex 'math-special-function-table |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
496 '((/ . (math-latex-print-frac "\\frac")) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
497 (calcFunc-choose . (math-latex-print-frac "\\binom")))) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
498 |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
499 (put 'latex 'math-variable-table |
59829
502b609847e8
(math-function-table, math-oper-table, math-variable-table):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59819
diff
changeset
|
500 (get 'tex 'math-variable-table)) |
59811
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
501 |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
502 (put 'latex 'math-complex-format 'i) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
503 |
59915
937e422a1694
(math-latex-parse-frac): Don't use arguments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59829
diff
changeset
|
504 |
59811
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
505 (defun math-latex-parse-frac (f val) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
506 (let (numer denom) |
59915
937e422a1694
(math-latex-parse-frac): Don't use arguments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59829
diff
changeset
|
507 (setq numer (car (math-read-expr-list))) |
59811
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
508 (math-read-token) |
59915
937e422a1694
(math-latex-parse-frac): Don't use arguments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59829
diff
changeset
|
509 (setq denom (math-read-factor)) |
937e422a1694
(math-latex-parse-frac): Don't use arguments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59829
diff
changeset
|
510 (if (and (Math-num-integerp numer) |
937e422a1694
(math-latex-parse-frac): Don't use arguments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59829
diff
changeset
|
511 (Math-num-integerp denom)) |
937e422a1694
(math-latex-parse-frac): Don't use arguments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59829
diff
changeset
|
512 (list 'frac numer denom) |
937e422a1694
(math-latex-parse-frac): Don't use arguments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59829
diff
changeset
|
513 (list '/ numer denom)))) |
937e422a1694
(math-latex-parse-frac): Don't use arguments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59829
diff
changeset
|
514 |
937e422a1694
(math-latex-parse-frac): Don't use arguments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59829
diff
changeset
|
515 (defun math-latex-parse-two-args (f val) |
937e422a1694
(math-latex-parse-frac): Don't use arguments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59829
diff
changeset
|
516 (let (first second) |
937e422a1694
(math-latex-parse-frac): Don't use arguments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59829
diff
changeset
|
517 (setq first (car (math-read-expr-list))) |
937e422a1694
(math-latex-parse-frac): Don't use arguments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59829
diff
changeset
|
518 (math-read-token) |
937e422a1694
(math-latex-parse-frac): Don't use arguments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59829
diff
changeset
|
519 (setq second (math-read-factor)) |
937e422a1694
(math-latex-parse-frac): Don't use arguments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59829
diff
changeset
|
520 (list (nth 2 f) first second))) |
59811
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
521 |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
522 (defun math-latex-print-frac (a fn) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
523 (list 'horiz (nth 1 fn) "{" (math-compose-expr (nth 1 a) -1) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
524 "}{" |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
525 (math-compose-expr (nth 2 a) -1) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
526 "}")) |
9e28f5bc25bb
(calc-latex-language, math-latex-parse-frac)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58661
diff
changeset
|
527 |
59819
dea78c6f5e48
(math-latex-input-filter): Remove function.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59811
diff
changeset
|
528 (put 'latex 'math-input-filter 'math-tex-input-filter) |
40785 | 529 |
530 (defun calc-eqn-language (n) | |
531 (interactive "P") | |
532 (calc-wrapper | |
533 (calc-set-language 'eqn) | |
41271
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
534 (message "Eqn language mode"))) |
40785 | 535 |
536 (put 'eqn 'math-oper-table | |
537 '( ( "u+" ident -1 1000 ) | |
538 ( "u-" neg -1 1000 ) | |
539 ( "prime" (math-parse-eqn-prime) 950 -1 ) | |
540 ( "prime" calcFunc-Prime 950 -1 ) | |
541 ( "dot" calcFunc-dot 950 -1 ) | |
542 ( "dotdot" calcFunc-dotdot 950 -1 ) | |
543 ( "hat" calcFunc-hat 950 -1 ) | |
544 ( "tilde" calcFunc-tilde 950 -1 ) | |
545 ( "vec" calcFunc-Vec 950 -1 ) | |
546 ( "dyad" calcFunc-dyad 950 -1 ) | |
547 ( "bar" calcFunc-bar 950 -1 ) | |
548 ( "under" calcFunc-under 950 -1 ) | |
549 ( "sub" calcFunc-subscr 931 930 ) | |
550 ( "sup" ^ 921 920 ) | |
551 ( "sqrt" calcFunc-sqrt -1 910 ) | |
552 ( "over" / 900 901 ) | |
553 ( "u|" calcFunc-abs -1 0 ) | |
554 ( "|" closing 0 -1 ) | |
555 ( "left floor" calcFunc-floor -1 0 ) | |
556 ( "right floor" closing 0 -1 ) | |
557 ( "left ceil" calcFunc-ceil -1 0 ) | |
558 ( "right ceil" closing 0 -1 ) | |
559 ( "+-" sdev 300 300 ) | |
560 ( "!" calcFunc-fact 210 -1 ) | |
561 ( "times" * 191 190 ) | |
562 ( "*" * 191 190 ) | |
563 ( "2x" * 191 190 ) | |
564 ( "/" / 180 181 ) | |
565 ( "%" % 180 181 ) | |
566 ( "+" + 170 171 ) | |
567 ( "-" - 170 171 ) | |
568 ( "<" calcFunc-lt 160 161 ) | |
569 ( ">" calcFunc-gt 160 161 ) | |
570 ( "<=" calcFunc-leq 160 161 ) | |
571 ( ">=" calcFunc-geq 160 161 ) | |
572 ( "=" calcFunc-eq 160 161 ) | |
573 ( "==" calcFunc-eq 160 161 ) | |
574 ( "!=" calcFunc-neq 160 161 ) | |
575 ( "u!" calcFunc-lnot -1 121 ) | |
576 ( "&&" calcFunc-land 110 111 ) | |
577 ( "||" calcFunc-lor 100 101 ) | |
578 ( "?" (math-read-if) 91 90 ) | |
579 ( "!!!" calcFunc-pnot -1 85 ) | |
580 ( "&&&" calcFunc-pand 80 81 ) | |
581 ( "|||" calcFunc-por 75 76 ) | |
582 ( "<-" calcFunc-assign 51 50 ) | |
583 ( ":=" calcFunc-assign 51 50 ) | |
584 ( "::" calcFunc-condition 45 46 ) | |
585 ( "->" calcFunc-evalto 40 41 ) | |
586 ( "->" calcFunc-evalto 40 -1 ) | |
587 ( "=>" calcFunc-evalto 40 41 ) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
588 ( "=>" calcFunc-evalto 40 -1 ))) |
40785 | 589 |
590 (put 'eqn 'math-function-table | |
591 '( ( arc\ cos . calcFunc-arccos ) | |
592 ( arc\ cosh . calcFunc-arccosh ) | |
593 ( arc\ sin . calcFunc-arcsin ) | |
594 ( arc\ sinh . calcFunc-arcsinh ) | |
595 ( arc\ tan . calcFunc-arctan ) | |
596 ( arc\ tanh . calcFunc-arctanh ) | |
597 ( GAMMA . calcFunc-gamma ) | |
598 ( phi . calcFunc-totient ) | |
599 ( mu . calcFunc-moebius ) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
600 ( matrix . (math-parse-eqn-matrix) ))) |
40785 | 601 |
602 (put 'eqn 'math-variable-table | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
603 '( ( inf . var-uinf ))) |
40785 | 604 |
605 (put 'eqn 'math-complex-format 'i) | |
606 | |
607 (defun math-parse-eqn-matrix (f sym) | |
608 (let ((vec nil)) | |
58107
cfad3432f125
(math-parse-fortran-vector, math-parse-fortran-vector-end,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
52401
diff
changeset
|
609 (while (assoc math-expr-data '(("ccol") ("lcol") ("rcol"))) |
40785 | 610 (math-read-token) |
58107
cfad3432f125
(math-parse-fortran-vector, math-parse-fortran-vector-end,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
52401
diff
changeset
|
611 (or (equal math-expr-data calc-function-open) |
40785 | 612 (throw 'syntax "Expected `{'")) |
613 (math-read-token) | |
614 (setq vec (cons (cons 'vec (math-read-expr-list)) vec)) | |
58107
cfad3432f125
(math-parse-fortran-vector, math-parse-fortran-vector-end,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
52401
diff
changeset
|
615 (or (equal math-expr-data calc-function-close) |
40785 | 616 (throw 'syntax "Expected `}'")) |
617 (math-read-token)) | |
58107
cfad3432f125
(math-parse-fortran-vector, math-parse-fortran-vector-end,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
52401
diff
changeset
|
618 (or (equal math-expr-data calc-function-close) |
40785 | 619 (throw 'syntax "Expected `}'")) |
620 (math-read-token) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
621 (math-transpose (cons 'vec (nreverse vec))))) |
40785 | 622 |
623 (defun math-parse-eqn-prime (x sym) | |
624 (if (eq (car-safe x) 'var) | |
58107
cfad3432f125
(math-parse-fortran-vector, math-parse-fortran-vector-end,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
52401
diff
changeset
|
625 (if (equal math-expr-data calc-function-open) |
40785 | 626 (progn |
627 (math-read-token) | |
58107
cfad3432f125
(math-parse-fortran-vector, math-parse-fortran-vector-end,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
52401
diff
changeset
|
628 (let ((args (if (or (equal math-expr-data calc-function-close) |
58134
3089957051ea
(math-parse-tex-sum): Use declared variable math-exp-old-pos.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58107
diff
changeset
|
629 (eq math-exp-token 'end)) |
40785 | 630 nil |
631 (math-read-expr-list)))) | |
58107
cfad3432f125
(math-parse-fortran-vector, math-parse-fortran-vector-end,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
52401
diff
changeset
|
632 (if (not (or (equal math-expr-data calc-function-close) |
58134
3089957051ea
(math-parse-tex-sum): Use declared variable math-exp-old-pos.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58107
diff
changeset
|
633 (eq math-exp-token 'end))) |
40785 | 634 (throw 'syntax "Expected `)'")) |
635 (math-read-token) | |
636 (cons (intern (format "calcFunc-%s'" (nth 1 x))) args))) | |
637 (list 'var | |
638 (intern (concat (symbol-name (nth 1 x)) "'")) | |
639 (intern (concat (symbol-name (nth 2 x)) "'")))) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
640 (list 'calcFunc-Prime x))) |
40785 | 641 |
642 | |
643 (defun calc-mathematica-language () | |
644 (interactive) | |
645 (calc-wrapper | |
646 (calc-set-language 'math) | |
41271
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
647 (message "Mathematica language mode"))) |
40785 | 648 |
649 (put 'math 'math-oper-table | |
650 '( ( "[[" (math-read-math-subscr) 250 -1 ) | |
651 ( "!" calcFunc-fact 210 -1 ) | |
652 ( "!!" calcFunc-dfact 210 -1 ) | |
653 ( "^" ^ 201 200 ) | |
654 ( "u+" ident -1 197 ) | |
655 ( "u-" neg -1 197 ) | |
656 ( "/" / 195 196 ) | |
657 ( "*" * 190 191 ) | |
658 ( "2x" * 190 191 ) | |
659 ( "+" + 180 181 ) | |
660 ( "-" - 180 181 ) | |
661 ( "<" calcFunc-lt 160 161 ) | |
662 ( ">" calcFunc-gt 160 161 ) | |
663 ( "<=" calcFunc-leq 160 161 ) | |
664 ( ">=" calcFunc-geq 160 161 ) | |
665 ( "==" calcFunc-eq 150 151 ) | |
666 ( "!=" calcFunc-neq 150 151 ) | |
667 ( "u!" calcFunc-lnot -1 121 ) | |
668 ( "&&" calcFunc-land 110 111 ) | |
669 ( "||" calcFunc-lor 100 101 ) | |
670 ( "!!!" calcFunc-pnot -1 85 ) | |
671 ( "&&&" calcFunc-pand 80 81 ) | |
672 ( "|||" calcFunc-por 75 76 ) | |
673 ( ":=" calcFunc-assign 51 50 ) | |
674 ( "=" calcFunc-assign 51 50 ) | |
675 ( "->" calcFunc-assign 51 50 ) | |
676 ( ":>" calcFunc-assign 51 50 ) | |
677 ( "::" calcFunc-condition 45 46 ) | |
678 )) | |
679 | |
680 (put 'math 'math-function-table | |
681 '( ( Abs . calcFunc-abs ) | |
682 ( ArcCos . calcFunc-arccos ) | |
683 ( ArcCosh . calcFunc-arccosh ) | |
684 ( ArcSin . calcFunc-arcsin ) | |
685 ( ArcSinh . calcFunc-arcsinh ) | |
686 ( ArcTan . calcFunc-arctan ) | |
687 ( ArcTanh . calcFunc-arctanh ) | |
688 ( Arg . calcFunc-arg ) | |
689 ( Binomial . calcFunc-choose ) | |
690 ( Ceiling . calcFunc-ceil ) | |
691 ( Conjugate . calcFunc-conj ) | |
692 ( Cos . calcFunc-cos ) | |
693 ( Cosh . calcFunc-cosh ) | |
61069
803f4b2d0113
Add functions to math-function-table properties of tex and math.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59966
diff
changeset
|
694 ( Cot . calcFunc-cot ) |
803f4b2d0113
Add functions to math-function-table properties of tex and math.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59966
diff
changeset
|
695 ( Coth . calcFunc-coth ) |
803f4b2d0113
Add functions to math-function-table properties of tex and math.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59966
diff
changeset
|
696 ( Csc . calcFunc-csc ) |
803f4b2d0113
Add functions to math-function-table properties of tex and math.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59966
diff
changeset
|
697 ( Csch . calcFunc-csch ) |
40785 | 698 ( D . calcFunc-deriv ) |
699 ( Dt . calcFunc-tderiv ) | |
700 ( Det . calcFunc-det ) | |
701 ( Exp . calcFunc-exp ) | |
702 ( EulerPhi . calcFunc-totient ) | |
703 ( Floor . calcFunc-floor ) | |
704 ( Gamma . calcFunc-gamma ) | |
705 ( GCD . calcFunc-gcd ) | |
706 ( If . calcFunc-if ) | |
707 ( Im . calcFunc-im ) | |
708 ( Inverse . calcFunc-inv ) | |
709 ( Integrate . calcFunc-integ ) | |
710 ( Join . calcFunc-vconcat ) | |
711 ( LCM . calcFunc-lcm ) | |
712 ( Log . calcFunc-ln ) | |
713 ( Max . calcFunc-max ) | |
714 ( Min . calcFunc-min ) | |
715 ( Mod . calcFunc-mod ) | |
716 ( MoebiusMu . calcFunc-moebius ) | |
717 ( Random . calcFunc-random ) | |
718 ( Round . calcFunc-round ) | |
719 ( Re . calcFunc-re ) | |
61069
803f4b2d0113
Add functions to math-function-table properties of tex and math.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59966
diff
changeset
|
720 ( Sec . calcFunc-sec ) |
803f4b2d0113
Add functions to math-function-table properties of tex and math.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59966
diff
changeset
|
721 ( Sech . calcFunc-sech ) |
40785 | 722 ( Sign . calcFunc-sign ) |
723 ( Sin . calcFunc-sin ) | |
724 ( Sinh . calcFunc-sinh ) | |
725 ( Sqrt . calcFunc-sqrt ) | |
726 ( Tan . calcFunc-tan ) | |
727 ( Tanh . calcFunc-tanh ) | |
728 ( Transpose . calcFunc-trn ) | |
729 ( Length . calcFunc-vlen ) | |
730 )) | |
731 | |
732 (put 'math 'math-variable-table | |
733 '( ( I . var-i ) | |
734 ( Pi . var-pi ) | |
735 ( E . var-e ) | |
736 ( GoldenRatio . var-phi ) | |
737 ( EulerGamma . var-gamma ) | |
738 ( Infinity . var-inf ) | |
739 ( ComplexInfinity . var-uinf ) | |
740 ( Indeterminate . var-nan ) | |
741 )) | |
742 | |
743 (put 'math 'math-vector-brackets "{}") | |
744 (put 'math 'math-complex-format 'I) | |
745 (put 'math 'math-function-open "[") | |
746 (put 'math 'math-function-close "]") | |
747 | |
748 (put 'math 'math-radix-formatter | |
749 (function (lambda (r s) (format "%d^^%s" r s)))) | |
750 | |
751 (defun math-read-math-subscr (x op) | |
752 (let ((idx (math-read-expr-level 0))) | |
58107
cfad3432f125
(math-parse-fortran-vector, math-parse-fortran-vector-end,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
52401
diff
changeset
|
753 (or (and (equal math-expr-data "]") |
40785 | 754 (progn |
755 (math-read-token) | |
58107
cfad3432f125
(math-parse-fortran-vector, math-parse-fortran-vector-end,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
52401
diff
changeset
|
756 (equal math-expr-data "]"))) |
40785 | 757 (throw 'syntax "Expected ']]'")) |
758 (math-read-token) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
759 (list 'calcFunc-subscr x idx))) |
40785 | 760 |
761 | |
762 (defun calc-maple-language () | |
763 (interactive) | |
764 (calc-wrapper | |
765 (calc-set-language 'maple) | |
41271
fcd507927105
Change all toplevel `setq' forms to `defvar' forms, and move them
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
766 (message "Maple language mode"))) |
40785 | 767 |
768 (put 'maple 'math-oper-table | |
769 '( ( "matrix" ident -1 300 ) | |
770 ( "MATRIX" ident -1 300 ) | |
771 ( "!" calcFunc-fact 210 -1 ) | |
772 ( "^" ^ 201 200 ) | |
773 ( "**" ^ 201 200 ) | |
774 ( "u+" ident -1 197 ) | |
775 ( "u-" neg -1 197 ) | |
776 ( "/" / 191 192 ) | |
777 ( "*" * 191 192 ) | |
778 ( "intersect" calcFunc-vint 191 192 ) | |
779 ( "+" + 180 181 ) | |
780 ( "-" - 180 181 ) | |
781 ( "union" calcFunc-vunion 180 181 ) | |
782 ( "minus" calcFunc-vdiff 180 181 ) | |
783 ( "mod" % 170 170 ) | |
784 ( ".." (math-read-maple-dots) 165 165 ) | |
785 ( "\\dots" (math-read-maple-dots) 165 165 ) | |
786 ( "<" calcFunc-lt 160 160 ) | |
787 ( ">" calcFunc-gt 160 160 ) | |
788 ( "<=" calcFunc-leq 160 160 ) | |
789 ( ">=" calcFunc-geq 160 160 ) | |
790 ( "=" calcFunc-eq 160 160 ) | |
791 ( "<>" calcFunc-neq 160 160 ) | |
792 ( "not" calcFunc-lnot -1 121 ) | |
793 ( "and" calcFunc-land 110 111 ) | |
794 ( "or" calcFunc-lor 100 101 ) | |
795 ( "!!!" calcFunc-pnot -1 85 ) | |
796 ( "&&&" calcFunc-pand 80 81 ) | |
797 ( "|||" calcFunc-por 75 76 ) | |
798 ( ":=" calcFunc-assign 51 50 ) | |
799 ( "::" calcFunc-condition 45 46 ) | |
800 )) | |
801 | |
802 (put 'maple 'math-function-table | |
803 '( ( bernoulli . calcFunc-bern ) | |
804 ( binomial . calcFunc-choose ) | |
805 ( diff . calcFunc-deriv ) | |
806 ( GAMMA . calcFunc-gamma ) | |
807 ( ifactor . calcFunc-prfac ) | |
808 ( igcd . calcFunc-gcd ) | |
809 ( ilcm . calcFunc-lcm ) | |
810 ( int . calcFunc-integ ) | |
811 ( modp . % ) | |
812 ( irem . % ) | |
813 ( iquo . calcFunc-idiv ) | |
814 ( isprime . calcFunc-prime ) | |
815 ( length . calcFunc-vlen ) | |
816 ( member . calcFunc-in ) | |
817 ( crossprod . calcFunc-cross ) | |
818 ( inverse . calcFunc-inv ) | |
819 ( trace . calcFunc-tr ) | |
820 ( transpose . calcFunc-trn ) | |
821 ( vectdim . calcFunc-vlen ) | |
822 )) | |
823 | |
824 (put 'maple 'math-variable-table | |
825 '( ( I . var-i ) | |
826 ( Pi . var-pi ) | |
827 ( E . var-e ) | |
828 ( infinity . var-inf ) | |
829 ( infinity . var-uinf ) | |
830 ( infinity . var-nan ) | |
831 )) | |
832 | |
833 (put 'maple 'math-complex-format 'I) | |
834 | |
835 (defun math-read-maple-dots (x op) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
836 (list 'intv 3 x (math-read-expr-level (nth 3 op)))) |
40785 | 837 |
838 | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
839 ;; The variable math-read-big-lines is local to math-read-big-expr in |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
840 ;; calc-ext.el, but is used by math-read-big-rec, math-read-big-char, |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
841 ;; math-read-big-emptyp, math-read-big-error and math-read-big-balance, |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
842 ;; which are called (directly and indirectly) by math-read-big-expr. |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
843 ;; It is also local to math-read-big-bigp in calc-ext.el, which calls |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
844 ;; math-read-big-balance. |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
845 (defvar math-read-big-lines) |
40785 | 846 |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
847 ;; The variables math-read-big-baseline and math-read-big-h2 are |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
848 ;; local to math-read-big-expr in calc-ext.el, but used by |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
849 ;; math-read-big-rec. |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
850 (defvar math-read-big-baseline) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
851 (defvar math-read-big-h2) |
40785 | 852 |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
853 ;; The variables math-rb-h1, math-rb-h2, math-rb-v1 and math-rb-v2 |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
854 ;; are local to math-read-big-rec, but are used by math-read-big-char, |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
855 ;; math-read-big-emptyp and math-read-big-balance which are called by |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
856 ;; math-read-big-rec. |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
857 ;; math-rb-h2 is also local to math-read-big-bigp in calc-ext.el, |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
858 ;; which calls math-read-big-balance. |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
859 (defvar math-rb-h1) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
860 (defvar math-rb-h2) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
861 (defvar math-rb-v1) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
862 (defvar math-rb-v2) |
40785 | 863 |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
864 (defun math-read-big-rec (math-rb-h1 math-rb-v1 math-rb-h2 math-rb-v2 |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
865 &optional baseline prec short) |
40785 | 866 (or prec (setq prec 0)) |
867 | |
868 ;; Clip whitespace above or below. | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
869 (while (and (< math-rb-v1 math-rb-v2) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
870 (math-read-big-emptyp math-rb-h1 math-rb-v1 math-rb-h2 (1+ math-rb-v1))) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
871 (setq math-rb-v1 (1+ math-rb-v1))) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
872 (while (and (< math-rb-v1 math-rb-v2) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
873 (math-read-big-emptyp math-rb-h1 (1- math-rb-v2) math-rb-h2 math-rb-v2)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
874 (setq math-rb-v2 (1- math-rb-v2))) |
40785 | 875 |
876 ;; If formula is a single line high, normal parser can handle it. | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
877 (if (<= math-rb-v2 (1+ math-rb-v1)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
878 (if (or (<= math-rb-v2 math-rb-v1) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
879 (> math-rb-h1 (length (setq math-rb-v2 |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
880 (nth math-rb-v1 math-read-big-lines))))) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
881 (math-read-big-error math-rb-h1 math-rb-v1) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
882 (setq math-read-big-baseline math-rb-v1 |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
883 math-read-big-h2 math-rb-h2 |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
884 math-rb-v2 (nth math-rb-v1 math-read-big-lines) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
885 math-rb-h2 (math-read-expr |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
886 (substring math-rb-v2 math-rb-h1 |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
887 (min math-rb-h2 (length math-rb-v2))))) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
888 (if (eq (car-safe math-rb-h2) 'error) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
889 (math-read-big-error (+ math-rb-h1 (nth 1 math-rb-h2)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
890 math-rb-v1 (nth 2 math-rb-h2)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
891 math-rb-h2)) |
40785 | 892 |
893 ;; Clip whitespace at left or right. | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
894 (while (and (< math-rb-h1 math-rb-h2) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
895 (math-read-big-emptyp math-rb-h1 math-rb-v1 (1+ math-rb-h1) math-rb-v2)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
896 (setq math-rb-h1 (1+ math-rb-h1))) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
897 (while (and (< math-rb-h1 math-rb-h2) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
898 (math-read-big-emptyp (1- math-rb-h2) math-rb-v1 math-rb-h2 math-rb-v2)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
899 (setq math-rb-h2 (1- math-rb-h2))) |
40785 | 900 |
901 ;; Scan to find widest left-justified "----" in the region. | |
902 (let* ((widest nil) | |
903 (widest-h2 0) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
904 (lines-v1 (nthcdr math-rb-v1 math-read-big-lines)) |
40785 | 905 (p lines-v1) |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
906 (v math-rb-v1) |
40785 | 907 (other-v nil) |
908 other-char line len h) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
909 (while (< v math-rb-v2) |
40785 | 910 (setq line (car p) |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
911 len (min math-rb-h2 (length line))) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
912 (and (< math-rb-h1 len) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
913 (/= (aref line math-rb-h1) ?\ ) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
914 (if (and (= (aref line math-rb-h1) ?\-) |
40785 | 915 ;; Make sure it's not a minus sign. |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
916 (or (and (< (1+ math-rb-h1) len) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
917 (= (aref line (1+ math-rb-h1)) ?\-)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
918 (/= (math-read-big-char math-rb-h1 (1- v)) ?\ ) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
919 (/= (math-read-big-char math-rb-h1 (1+ v)) ?\ ))) |
40785 | 920 (progn |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
921 (setq h math-rb-h1) |
40785 | 922 (while (and (< (setq h (1+ h)) len) |
923 (= (aref line h) ?\-))) | |
924 (if (> h widest-h2) | |
925 (setq widest v | |
926 widest-h2 h))) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
927 (or other-v (setq other-v v other-char (aref line math-rb-h1))))) |
40785 | 928 (setq v (1+ v) |
929 p (cdr p))) | |
930 | |
931 (cond ((not (setq v other-v)) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
932 (math-read-big-error math-rb-h1 math-rb-v1)) ; Should never happen! |
40785 | 933 |
934 ;; Quotient. | |
935 (widest | |
936 (setq h widest-h2 | |
937 v widest) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
938 (let ((num (math-read-big-rec math-rb-h1 math-rb-v1 h v)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
939 (den (math-read-big-rec math-rb-h1 (1+ v) h math-rb-v2))) |
40785 | 940 (setq p (if (and (math-integerp num) (math-integerp den)) |
941 (math-make-frac num den) | |
942 (list '/ num den))))) | |
943 | |
944 ;; Big radical sign. | |
945 ((= other-char ?\\) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
946 (or (= (math-read-big-char (1+ math-rb-h1) v) ?\|) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
947 (math-read-big-error (1+ math-rb-h1) v "Malformed root sign")) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
948 (math-read-big-emptyp math-rb-h1 math-rb-v1 (1+ math-rb-h1) v nil t) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
949 (while (= (math-read-big-char (1+ math-rb-h1) (setq v (1- v))) ?\|)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
950 (or (= (math-read-big-char (setq h (+ math-rb-h1 2)) v) ?\_) |
40785 | 951 (math-read-big-error h v "Malformed root sign")) |
952 (while (= (math-read-big-char (setq h (1+ h)) v) ?\_)) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
953 (math-read-big-emptyp math-rb-h1 math-rb-v1 (1+ math-rb-h1) v nil t) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
954 (math-read-big-emptyp math-rb-h1 (1+ other-v) h math-rb-v2 nil t) |
40785 | 955 (setq p (list 'calcFunc-sqrt (math-read-big-rec |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
956 (+ math-rb-h1 2) (1+ v) |
40785 | 957 h (1+ other-v) baseline)) |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
958 v math-read-big-baseline)) |
40785 | 959 |
960 ;; Small radical sign. | |
961 ((and (= other-char ?V) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
962 (= (math-read-big-char (1+ math-rb-h1) (1- v)) ?\_)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
963 (setq h (1+ math-rb-h1)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
964 (math-read-big-emptyp math-rb-h1 math-rb-v1 h (1- v) nil t) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
965 (math-read-big-emptyp math-rb-h1 (1+ v) h math-rb-v2 nil t) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
966 (math-read-big-emptyp math-rb-h1 math-rb-v1 (1+ math-rb-h1) v nil t) |
40785 | 967 (while (= (math-read-big-char (setq h (1+ h)) (1- v)) ?\_)) |
968 (setq p (list 'calcFunc-sqrt (math-read-big-rec | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
969 (1+ math-rb-h1) v h (1+ v) t)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
970 v math-read-big-baseline)) |
40785 | 971 |
972 ;; Binomial coefficient. | |
973 ((and (= other-char ?\() | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
974 (= (math-read-big-char (1+ math-rb-h1) v) ?\ ) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
975 (= (string-match "( *)" (nth v math-read-big-lines) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
976 math-rb-h1) math-rb-h1)) |
40785 | 977 (setq h (match-end 0)) |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
978 (math-read-big-emptyp math-rb-h1 math-rb-v1 (1+ math-rb-h1) v nil t) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
979 (math-read-big-emptyp math-rb-h1 (1+ v) (1+ math-rb-h1) math-rb-v2 nil t) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
980 (math-read-big-emptyp (1- h) math-rb-v1 h v nil t) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
981 (math-read-big-emptyp (1- h) (1+ v) h math-rb-v2 nil t) |
40785 | 982 (setq p (list 'calcFunc-choose |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
983 (math-read-big-rec (1+ math-rb-h1) math-rb-v1 (1- h) v) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
984 (math-read-big-rec (1+ math-rb-h1) (1+ v) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
985 (1- h) math-rb-v2)))) |
40785 | 986 |
987 ;; Minus sign. | |
988 ((= other-char ?\-) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
989 (setq p (list 'neg (math-read-big-rec (1+ math-rb-h1) math-rb-v1 |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
990 math-rb-h2 math-rb-v2 v 250 t)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
991 v math-read-big-baseline |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
992 h math-read-big-h2)) |
40785 | 993 |
994 ;; Parentheses. | |
995 ((= other-char ?\() | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
996 (math-read-big-emptyp math-rb-h1 math-rb-v1 (1+ math-rb-h1) v nil t) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
997 (math-read-big-emptyp math-rb-h1 (1+ v) (1+ math-rb-h1) math-rb-v2 nil t) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
998 (setq h (math-read-big-balance (1+ math-rb-h1) v "(" t)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
999 (math-read-big-emptyp (1- h) math-rb-v1 h v nil t) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1000 (math-read-big-emptyp (1- h) (1+ v) h math-rb-v2 nil t) |
40785 | 1001 (let ((sep (math-read-big-char (1- h) v)) |
1002 hmid) | |
1003 (if (= sep ?\.) | |
1004 (setq h (1+ h))) | |
1005 (if (= sep ?\]) | |
1006 (math-read-big-error (1- h) v "Expected `)'")) | |
1007 (if (= sep ?\)) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1008 (setq p (math-read-big-rec |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1009 (1+ math-rb-h1) math-rb-v1 (1- h) math-rb-v2 v)) |
40785 | 1010 (setq hmid (math-read-big-balance h v "(") |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1011 p (list p |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1012 (math-read-big-rec h math-rb-v1 (1- hmid) math-rb-v2 v)) |
40785 | 1013 h hmid) |
1014 (cond ((= sep ?\.) | |
1015 (setq p (cons 'intv (cons (if (= (math-read-big-char | |
1016 (1- h) v) | |
1017 ?\)) | |
1018 0 1) | |
1019 p)))) | |
1020 ((= (math-read-big-char (1- h) v) ?\]) | |
1021 (math-read-big-error (1- h) v "Expected `)'")) | |
1022 ((= sep ?\,) | |
1023 (or (and (math-realp (car p)) (math-realp (nth 1 p))) | |
1024 (math-read-big-error | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1025 math-rb-h1 v "Complex components must be real")) |
40785 | 1026 (setq p (cons 'cplx p))) |
1027 ((= sep ?\;) | |
1028 (or (and (math-realp (car p)) (math-anglep (nth 1 p))) | |
1029 (math-read-big-error | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1030 math-rb-h1 v "Complex components must be real")) |
40785 | 1031 (setq p (cons 'polar p))))))) |
1032 | |
1033 ;; Matrix. | |
1034 ((and (= other-char ?\[) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1035 (or (= (math-read-big-char (setq h math-rb-h1) (1+ v)) ?\[) |
40785 | 1036 (= (math-read-big-char (setq h (1+ h)) v) ?\[) |
1037 (and (= (math-read-big-char h v) ?\ ) | |
1038 (= (math-read-big-char (setq h (1+ h)) v) ?\[))) | |
1039 (= (math-read-big-char h (1+ v)) ?\[)) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1040 (math-read-big-emptyp math-rb-h1 math-rb-v1 h v nil t) |
40785 | 1041 (let ((vtop v) |
1042 (hleft h) | |
1043 (hright nil)) | |
1044 (setq p nil) | |
1045 (while (progn | |
1046 (setq h (math-read-big-balance (1+ hleft) v "[")) | |
1047 (if hright | |
1048 (or (= h hright) | |
1049 (math-read-big-error hright v "Expected `]'")) | |
1050 (setq hright h)) | |
1051 (setq p (cons (math-read-big-rec | |
1052 hleft v h (1+ v)) p)) | |
1053 (and (memq (math-read-big-char h v) '(?\ ?\,)) | |
1054 (= (math-read-big-char hleft (1+ v)) ?\[))) | |
1055 (setq v (1+ v))) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1056 (or (= hleft math-rb-h1) |
40785 | 1057 (progn |
1058 (if (= (math-read-big-char h v) ?\ ) | |
1059 (setq h (1+ h))) | |
1060 (and (= (math-read-big-char h v) ?\]) | |
1061 (setq h (1+ h)))) | |
1062 (math-read-big-error (1- h) v "Expected `]'")) | |
1063 (if (= (math-read-big-char h vtop) ?\,) | |
1064 (setq h (1+ h))) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1065 (math-read-big-emptyp math-rb-h1 (1+ v) (1- h) math-rb-v2 nil t) |
40785 | 1066 (setq v (+ vtop (/ (- v vtop) 2)) |
1067 p (cons 'vec (nreverse p))))) | |
1068 | |
1069 ;; Square brackets. | |
1070 ((= other-char ?\[) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1071 (math-read-big-emptyp math-rb-h1 math-rb-v1 (1+ math-rb-h1) v nil t) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1072 (math-read-big-emptyp math-rb-h1 (1+ v) (1+ math-rb-h1) math-rb-v2 nil t) |
40785 | 1073 (setq p nil |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1074 h (1+ math-rb-h1)) |
40785 | 1075 (while (progn |
1076 (setq widest (math-read-big-balance h v "[" t)) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1077 (math-read-big-emptyp (1- h) math-rb-v1 h v nil t) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1078 (math-read-big-emptyp (1- h) (1+ v) h math-rb-v2 nil t) |
40785 | 1079 (setq p (cons (math-read-big-rec |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1080 h math-rb-v1 (1- widest) math-rb-v2 v) p) |
40785 | 1081 h widest) |
1082 (= (math-read-big-char (1- h) v) ?\,))) | |
1083 (setq widest (math-read-big-char (1- h) v)) | |
1084 (if (or (memq widest '(?\; ?\))) | |
1085 (and (eq widest ?\.) (cdr p))) | |
1086 (math-read-big-error (1- h) v "Expected `]'")) | |
1087 (if (= widest ?\.) | |
1088 (setq h (1+ h) | |
1089 widest (math-read-big-balance h v "[") | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1090 p (nconc p (list (math-read-big-rec |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1091 h math-rb-v1 (1- widest) math-rb-v2 v))) |
40785 | 1092 h widest |
1093 p (cons 'intv (cons (if (= (math-read-big-char (1- h) v) | |
1094 ?\]) | |
1095 3 2) | |
1096 p))) | |
1097 (setq p (cons 'vec (nreverse p))))) | |
1098 | |
1099 ;; Date form. | |
1100 ((= other-char ?\<) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1101 (setq line (nth v math-read-big-lines)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1102 (string-match ">" line math-rb-h1) |
40785 | 1103 (setq h (match-end 0)) |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1104 (math-read-big-emptyp math-rb-h1 math-rb-v1 h v nil t) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1105 (math-read-big-emptyp math-rb-h1 (1+ v) h math-rb-v2 nil t) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1106 (setq p (math-read-big-rec math-rb-h1 v h (1+ v) v))) |
40785 | 1107 |
1108 ;; Variable name or function call. | |
1109 ((or (and (>= other-char ?a) (<= other-char ?z)) | |
1110 (and (>= other-char ?A) (<= other-char ?Z))) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1111 (setq line (nth v math-read-big-lines)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1112 (string-match "\\([a-zA-Z'_]+\\) *" line math-rb-h1) |
40785 | 1113 (setq h (match-end 1) |
1114 widest (match-end 0) | |
1115 p (math-match-substring line 1)) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1116 (math-read-big-emptyp math-rb-h1 math-rb-v1 h v nil t) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1117 (math-read-big-emptyp math-rb-h1 (1+ v) h math-rb-v2 nil t) |
40785 | 1118 (if (= (math-read-big-char widest v) ?\() |
1119 (progn | |
1120 (setq line (if (string-match "-" p) | |
1121 (intern p) | |
1122 (intern (concat "calcFunc-" p))) | |
1123 h (1+ widest) | |
1124 p nil) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1125 (math-read-big-emptyp widest math-rb-v1 h v nil t) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1126 (math-read-big-emptyp widest (1+ v) h math-rb-v2 nil t) |
40785 | 1127 (while (progn |
1128 (setq widest (math-read-big-balance h v "(" t)) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1129 (math-read-big-emptyp (1- h) math-rb-v1 h v nil t) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1130 (math-read-big-emptyp (1- h) (1+ v) h math-rb-v2 nil t) |
40785 | 1131 (setq p (cons (math-read-big-rec |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1132 h math-rb-v1 (1- widest) math-rb-v2 v) p) |
40785 | 1133 h widest) |
1134 (= (math-read-big-char (1- h) v) ?\,))) | |
1135 (or (= (math-read-big-char (1- h) v) ?\)) | |
1136 (math-read-big-error (1- h) v "Expected `)'")) | |
1137 (setq p (cons line (nreverse p)))) | |
1138 (setq p (list 'var | |
1139 (intern (math-remove-dashes p)) | |
1140 (if (string-match "-" p) | |
1141 (intern p) | |
1142 (intern (concat "var-" p))))))) | |
1143 | |
1144 ;; Number. | |
1145 (t | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1146 (setq line (nth v math-read-big-lines)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1147 (or (= (string-match "_?\\([0-9]+.?0*@ *\\)?\\([0-9]+.?0*' *\\)?\\([0-9]+\\(#\\|\\^\\^\\)[0-9a-zA-Z:]+\\|[0-9]+:[0-9:]+\\|[0-9.]+\\([eE][-+_]?[0-9]+\\)?\"?\\)?" line math-rb-h1) math-rb-h1) |
40785 | 1148 (math-read-big-error h v "Expected a number")) |
1149 (setq h (match-end 0) | |
1150 p (math-read-number (math-match-substring line 0))) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1151 (math-read-big-emptyp math-rb-h1 math-rb-v1 h v nil t) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1152 (math-read-big-emptyp math-rb-h1 (1+ v) h math-rb-v2 nil t))) |
40785 | 1153 |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1154 ;; Now left term is bounded by math-rb-h1, math-rb-v1, h, math-rb-v2; |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1155 ;; baseline = v. |
40785 | 1156 (if baseline |
1157 (or (= v baseline) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1158 (math-read-big-error math-rb-h1 v "Inconsistent baseline in formula")) |
40785 | 1159 (setq baseline v)) |
1160 | |
1161 ;; Look for superscripts or subscripts. | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1162 (setq line (nth baseline math-read-big-lines) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1163 len (min math-rb-h2 (length line)) |
40785 | 1164 widest h) |
1165 (while (and (< widest len) | |
1166 (= (aref line widest) ?\ )) | |
1167 (setq widest (1+ widest))) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1168 (and (>= widest len) (setq widest math-rb-h2)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1169 (if (math-read-big-emptyp h v widest math-rb-v2) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1170 (if (math-read-big-emptyp h math-rb-v1 widest v) |
40785 | 1171 (setq h widest) |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1172 (setq p (list '^ p (math-read-big-rec h math-rb-v1 widest v)) |
40785 | 1173 h widest)) |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1174 (if (math-read-big-emptyp h math-rb-v1 widest v) |
40785 | 1175 (setq p (list 'calcFunc-subscr p |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1176 (math-read-big-rec h v widest math-rb-v2)) |
40785 | 1177 h widest))) |
1178 | |
1179 ;; Look for an operator name and grab additional terms. | |
1180 (while (and (< h len) | |
1181 (if (setq widest (and (math-read-big-emptyp | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1182 h math-rb-v1 (1+ h) v) |
40785 | 1183 (math-read-big-emptyp |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1184 h (1+ v) (1+ h) math-rb-v2) |
40785 | 1185 (string-match "<=\\|>=\\|\\+/-\\|!=\\|&&\\|||\\|:=\\|=>\\|." line h) |
1186 (assoc (math-match-substring line 0) | |
1187 math-standard-opers))) | |
1188 (and (>= (nth 2 widest) prec) | |
1189 (setq h (match-end 0))) | |
1190 (and (not (eq (string-match ",\\|;\\|\\.\\.\\|)\\|\\]\\|:" line h) | |
1191 h)) | |
1192 (setq widest '("2x" * 196 195))))) | |
1193 (cond ((eq (nth 3 widest) -1) | |
1194 (setq p (list (nth 1 widest) p))) | |
1195 ((equal (car widest) "?") | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1196 (let ((y (math-read-big-rec h math-rb-v1 math-rb-h2 |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1197 math-rb-v2 baseline nil t))) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1198 (or (= (math-read-big-char math-read-big-h2 baseline) ?\:) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1199 (math-read-big-error math-read-big-h2 baseline "Expected `:'")) |
40785 | 1200 (setq p (list (nth 1 widest) p y |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1201 (math-read-big-rec |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1202 (1+ math-read-big-h2) math-rb-v1 math-rb-h2 math-rb-v2 |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1203 baseline (nth 3 widest) t)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1204 h math-read-big-h2))) |
40785 | 1205 (t |
1206 (setq p (list (nth 1 widest) p | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1207 (math-read-big-rec h math-rb-v1 math-rb-h2 math-rb-v2 |
40785 | 1208 baseline (nth 3 widest) t)) |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1209 h math-read-big-h2)))) |
40785 | 1210 |
1211 ;; Return all relevant information to caller. | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1212 (setq math-read-big-baseline baseline |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1213 math-read-big-h2 h) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1214 (or short (= math-read-big-h2 math-rb-h2) |
40785 | 1215 (math-read-big-error h baseline)) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
1216 p))) |
40785 | 1217 |
1218 (defun math-read-big-char (h v) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1219 (or (and (>= h math-rb-h1) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1220 (< h math-rb-h2) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1221 (>= v math-rb-v1) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1222 (< v math-rb-v2) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1223 (let ((line (nth v math-read-big-lines))) |
40785 | 1224 (and line |
1225 (< h (length line)) | |
1226 (aref line h)))) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
1227 ?\ )) |
40785 | 1228 |
1229 (defun math-read-big-emptyp (eh1 ev1 eh2 ev2 &optional what error) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1230 (and (< ev1 math-rb-v1) (setq ev1 math-rb-v1)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1231 (and (< eh1 math-rb-h1) (setq eh1 math-rb-h1)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1232 (and (> ev2 math-rb-v2) (setq ev2 math-rb-v2)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1233 (and (> eh2 math-rb-h2) (setq eh2 math-rb-h2)) |
40785 | 1234 (or what (setq what ?\ )) |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1235 (let ((p (nthcdr ev1 math-read-big-lines)) |
40785 | 1236 h) |
1237 (while (and (< ev1 ev2) | |
1238 (progn | |
1239 (setq h (min eh2 (length (car p)))) | |
1240 (while (and (>= (setq h (1- h)) eh1) | |
1241 (= (aref (car p) h) what))) | |
1242 (and error (>= h eh1) | |
1243 (math-read-big-error h ev1 (if (stringp error) | |
1244 error | |
1245 "Whitespace expected"))) | |
1246 (< h eh1))) | |
1247 (setq ev1 (1+ ev1) | |
1248 p (cdr p))) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
1249 (>= ev1 ev2))) |
40785 | 1250 |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1251 ;; math-read-big-err-msg is local to math-read-big-expr in calc-ext.el, |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1252 ;; but is used by math-read-big-error which is called (indirectly) by |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1253 ;; math-read-big-expr. |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1254 (defvar math-read-big-err-msg) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1255 |
40785 | 1256 (defun math-read-big-error (h v &optional msg) |
1257 (let ((pos 0) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1258 (p math-read-big-lines)) |
40785 | 1259 (while (> v 0) |
1260 (setq pos (+ pos 1 (length (car p))) | |
1261 p (cdr p) | |
1262 v (1- v))) | |
1263 (setq h (+ pos (min h (length (car p)))) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1264 math-read-big-err-msg (list 'error h (or msg "Syntax error"))) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
1265 (throw 'syntax nil))) |
40785 | 1266 |
1267 (defun math-read-big-balance (h v what &optional commas) | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1268 (let* ((line (nth v math-read-big-lines)) |
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1269 (len (min math-rb-h2 (length line))) |
40785 | 1270 (count 1)) |
1271 (while (> count 0) | |
1272 (if (>= h len) | |
1273 (if what | |
58411
9ceda393e263
(math-read-big-lines): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58134
diff
changeset
|
1274 (math-read-big-error nil v (format "Unmatched `%s'" what)) |
40785 | 1275 (setq count 0)) |
1276 (if (memq (aref line h) '(?\( ?\[)) | |
1277 (setq count (1+ count)) | |
1278 (if (if (and commas (= count 1)) | |
1279 (or (memq (aref line h) '(?\) ?\] ?\, ?\;)) | |
1280 (and (eq (aref line h) ?\.) | |
1281 (< (1+ h) len) | |
1282 (eq (aref line (1+ h)) ?\.))) | |
1283 (memq (aref line h) '(?\) ?\]))) | |
1284 (setq count (1- count)))) | |
1285 (setq h (1+ h)))) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
1286 h)) |
40785 | 1287 |
58661
10224395a3c2
Add a provide statement.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58571
diff
changeset
|
1288 (provide 'calc-lang) |
10224395a3c2
Add a provide statement.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58571
diff
changeset
|
1289 |
52401 | 1290 ;;; arch-tag: 483bfe15-f290-4fef-bb7d-ce65be687f2e |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40785
diff
changeset
|
1291 ;;; calc-lang.el ends here |