Mercurial > emacs
annotate lisp/calc/calc.el @ 108632:d38b0dd2bdbe
Provide a simple generic indentation engine and use it for Prolog.
* emacs-lisp/smie.el: New file.
* progmodes/prolog.el (prolog-smie-op-levels)
(prolog-smie-indent-rules): New var.
(prolog-mode-variables): Use them to configure SMIE.
(prolog-indent-line, prolog-indent-level): Remove.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Mon, 17 May 2010 15:27:26 -0400 |
parents | c84578d13e42 |
children | d835100c3e8b |
rev | line source |
---|---|
41283
1c09d8ddd155
(toplevel): Add comment and version header.
Colin Walters <walters@gnu.org>
parents:
41270
diff
changeset
|
1 ;;; calc.el --- the GNU Emacs calculator |
41270
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
2 |
104543
da8b3e61b182
Use forward-line rather than goto-line.
Glenn Morris <rgm@gnu.org>
parents:
104174
diff
changeset
|
3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004, 2005, |
106815 | 4 ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
41270
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
5 |
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
6 ;; Author: David Gillespie <daveg@synaptics.com> |
77464
e62817ef9d31
Update maintainer's address.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77257
diff
changeset
|
7 ;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com> |
41270
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
8 ;; Keywords: convenience, extensions |
40785 | 9 |
10 ;; This file is part of GNU Emacs. | |
11 | |
94654
6c9af2bfcfee
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
12 ;; GNU Emacs is free software: you can redistribute it and/or modify |
76595
497d17a80bb8
Change form of license text to match rest of Emacs.
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
13 ;; it under the terms of the GNU General Public License as published by |
94654
6c9af2bfcfee
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
14 ;; the Free Software Foundation, either version 3 of the License, or |
6c9af2bfcfee
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
15 ;; (at your option) any later version. |
76595
497d17a80bb8
Change form of license text to match rest of Emacs.
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
16 |
40785 | 17 ;; GNU Emacs is distributed in the hope that it will be useful, |
76595
497d17a80bb8
Change form of license text to match rest of Emacs.
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
497d17a80bb8
Change form of license text to match rest of Emacs.
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
497d17a80bb8
Change form of license text to match rest of Emacs.
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
20 ;; GNU General Public License for more details. |
497d17a80bb8
Change form of license text to match rest of Emacs.
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
21 |
497d17a80bb8
Change form of license text to match rest of Emacs.
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
22 ;; You should have received a copy of the GNU General Public License |
94654
6c9af2bfcfee
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
40785 | 24 |
41270
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
25 ;;; Commentary: |
40785 | 26 |
41455
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
27 ;; Calc is split into many files. This file is the main entry point. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
28 ;; This file includes autoload commands for various other basic Calc |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
29 ;; facilities. The more advanced features are based in calc-ext, which |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
30 ;; in turn contains autoloads for the rest of the Calc files. This |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
31 ;; odd set of interactions is designed to make Calc's loading time |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
32 ;; be as short as possible when only simple calculations are needed. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
33 |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
34 ;; Original author's address: |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
35 ;; Dave Gillespie, daveg@synaptics.com, uunet!synaptx!daveg. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
36 ;; Synaptics, Inc., 2698 Orchard Parkway, San Jose, CA 95134. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
37 ;; |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
38 ;; The old address daveg@csvax.cs.caltech.edu will continue to |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
39 ;; work for the foreseeable future. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
40 ;; |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
41 ;; Bug reports and suggestions are always welcome! (Type M-x |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
42 ;; report-calc-bug to send them). |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
43 |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
44 ;; All functions, macros, and Lisp variables defined here begin with one |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
45 ;; of the prefixes "math", "Math", or "calc", with the exceptions of |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
46 ;; "full-calc", "full-calc-keypad", "another-calc", "quick-calc", |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
47 ;; "report-calc-bug", and "defmath". User-accessible variables begin |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
48 ;; with "var-". |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
49 |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
50 ;;; TODO: |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
51 |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
52 ;; Fix rewrite mechanism to do less gratuitous rearrangement of terms. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
53 ;; Implement a pattern-based "refers" predicate. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
54 ;; |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
55 ;; Make it possible to Undo a selection command. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
56 ;; Figure out how to allow selecting rows of matrices. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
57 ;; If cursor was in selection before, move it after j n, j p, j L, etc. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
58 ;; Consider reimplementing calc-delete-selection using rewrites. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
59 ;; |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
60 ;; Implement line-breaking in non-flat compositions (is this desirable?). |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
61 ;; Implement matrix formatting with multi-line components. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
62 ;; |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
63 ;; Have "Z R" define a user command based on a set of rewrite rules. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
64 ;; Support "incf" and "decf" in defmath definitions. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
65 ;; Have defmath generate calls to calc-binary-op or calc-unary-op. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
66 ;; Make some way to define algebraic functions using keyboard macros. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
67 ;; |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
68 ;; Allow calc-word-size=0 => Common Lisp-style signed bitwise arithmetic. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
69 ;; Consider digamma function (and thus arb. prec. Euler's gamma constant). |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
70 ;; May as well make continued-fractions stuff available to the user. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
71 ;; |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
72 ;; How about matrix eigenvalues, SVD, pseudo-inverse, etc.? |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
73 ;; Should cache matrix inverses as well as decompositions. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
74 ;; If dividing by a non-square matrix, use least-squares automatically. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
75 ;; Consider supporting matrix exponentials. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
76 ;; |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
77 ;; Have ninteg detect and work around singularities at the endpoints. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
78 ;; Use an adaptive subdivision algorithm for ninteg. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
79 ;; Provide nsum and nprod to go along with ninteg. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
80 ;; |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
81 ;; Handle TeX-mode parsing of \matrix{ ... } where ... contains braces. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
82 ;; Support AmS-TeX's \{d,t,}frac, \{d,t,}binom notations. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
83 ;; Format and parse sums and products in Eqn and Math modes. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
84 ;; |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
85 ;; Get math-read-big-expr to read sums, products, etc. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
86 ;; Change calc-grab-region to use math-read-big-expr. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
87 ;; Have a way to define functions using := in Embedded Mode. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
88 ;; |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
89 ;; Support polar plotting with GNUPLOT. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
90 ;; Make a calc-graph-histogram function. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
91 ;; |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
92 ;; Replace hokey formulas for complex functions with formulas designed |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
93 ;; to minimize roundoff while maintaining the proper branch cuts. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
94 ;; Test accuracy of advanced math functions over whole complex plane. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
95 ;; Extend Bessel functions to provide arbitrary precision. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
96 ;; Extend advanced math functions to handle error forms and intervals. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
97 ;; Provide a better implementation for math-sin-cos-raw. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
98 ;; Provide a better implementation for math-hypot. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
99 ;; Provide a better implementation for math-make-frac. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
100 ;; Provide a better implementation for calcFunc-prfac. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
101 ;; Provide a better implementation for calcFunc-factor. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
102 ;; |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
103 ;; Provide more examples in the tutorial section of the manual. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
104 ;; Cover in the tutorial: simplification modes, declarations, |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
105 ;; bitwise stuff, selections, matrix mapping, financial functions. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
106 ;; Provide more Lisp programming examples in the manual. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
107 ;; Finish the Internals section of the manual (and bring it up to date). |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
108 ;; |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
109 ;; Tim suggests adding spreadsheet-like features. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
110 ;; Implement language modes for Gnuplot, Lisp, Ada, APL, ...? |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
111 ;; |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
112 ;; For atan series, if x > tan(pi/12) (about 0.268) reduce using the identity |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
113 ;; atan(x) = atan((x * sqrt(3) - 1) / (sqrt(3) + x)) + pi/6. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
114 ;; |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
115 ;; A better integration algorithm: |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
116 ;; Use breadth-first instead of depth-first search, as follows: |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
117 ;; The integral cache allows unfinished integrals in symbolic notation |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
118 ;; on the righthand side. An entry with no unfinished integrals on the |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
119 ;; RHS is "complete"; references to it elsewhere are replaced by the |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
120 ;; integrated value. More than one cache entry for the same integral |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
121 ;; may exist, though if one becomes complete, the others may be deleted. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
122 ;; The integrator works by using every applicable rule (such as |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
123 ;; substitution, parts, linearity, etc.) to generate possible righthand |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
124 ;; sides, all of which are entered into the cache. Now, as long as the |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
125 ;; target integral is not complete (and the time limit has not run out) |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
126 ;; choose an incomplete integral from the cache and, for every integral |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
127 ;; appearing in its RHS's, add those integrals to the cache using the |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
128 ;; same substitition, parts, etc. rules. The cache should be organized |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
129 ;; as a priority queue, choosing the "simplest" incomplete integral at |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
130 ;; each step, or choosing randomly among equally simple integrals. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
131 ;; Simplicity equals small size, and few steps removed from the original |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
132 ;; target integral. Note that when the integrator finishes, incomplete |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
133 ;; integrals can be left in the cache, so the algorithm can start where |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
134 ;; it left off if another similar integral is later requested. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
135 ;; Breadth-first search would avoid the nagging problem of, e.g., whether |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
136 ;; to use parts or substitution first, and which decomposition is best. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
137 ;; All are tried, and any path that diverges will quickly be put on the |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
138 ;; back burner by the priority queue. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
139 ;; Note: Probably a good idea to call math-simplify-extended before |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
140 ;; measuring a formula's simplicity. |
ede347046135
(Commentary): Cleanup, and add logistic curve fitting suggestion from
Colin Walters <walters@gnu.org>
parents:
41283
diff
changeset
|
141 |
41270
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
142 ;;; Code: |
40785 | 143 |
40911
df97a382ad43
(toplevel): Require calc-macs.
Eli Zaretskii <eliz@gnu.org>
parents:
40785
diff
changeset
|
144 (require 'calc-macs) |
40785 | 145 |
86470
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
146 ;; Declare functions which are defined elsewhere. |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
147 (declare-function calc-set-language "calc-lang" (lang &optional option no-refresh)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
148 (declare-function calc-edit-finish "calc-yank" (&optional keep)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
149 (declare-function calc-edit-cancel "calc-yank" ()) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
150 (declare-function calc-do-quick-calc "calc-aent" ()) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
151 (declare-function calc-do-calc-eval "calc-aent" (str separator args)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
152 (declare-function calc-do-keypad "calc-keypd" (&optional full-display interactive)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
153 (declare-function calcFunc-unixtime "calc-forms" (date &optional zone)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
154 (declare-function math-parse-date "calc-forms" (math-pd-str)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
155 (declare-function math-lessp "calc-ext" (a b)) |
106035
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
156 (declare-function math-compare "calc-ext" (a b)) |
86470
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
157 (declare-function calc-embedded-finish-command "calc-embed" ()) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
158 (declare-function calc-embedded-select-buffer "calc-embed" ()) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
159 (declare-function calc-embedded-mode-line-change "calc-embed" ()) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
160 (declare-function calc-push-list-in-macro "calc-prog" (vals m sels)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
161 (declare-function calc-replace-selections "calc-sel" (n vals m)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
162 (declare-function calc-record-list "calc-misc" (vals &optional prefix)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
163 (declare-function calc-normalize-fancy "calc-ext" (val)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
164 (declare-function calc-do-handle-whys "calc-misc" ()) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
165 (declare-function calc-top-selected "calc-sel" (&optional n m)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
166 (declare-function calc-sel-error "calc-sel" ()) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
167 (declare-function calc-pop-stack-in-macro "calc-prog" (n mm)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
168 (declare-function calc-embedded-stack-change "calc-embed" ()) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
169 (declare-function calc-refresh-evaltos "calc-ext" (&optional which-var)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
170 (declare-function calc-do-refresh "calc-misc" ()) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
171 (declare-function calc-binary-op-fancy "calc-ext" (name func arg ident unary)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
172 (declare-function calc-unary-op-fancy "calc-ext" (name func arg)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
173 (declare-function calc-delete-selection "calc-sel" (n)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
174 (declare-function calc-alg-digit-entry "calc-aent" ()) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
175 (declare-function calc-alg-entry "calc-aent" (&optional initial prompt)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
176 (declare-function calc-dots "calc-incom" ()) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
177 (declare-function calc-temp-minibuffer-message "calc-misc" (m)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
178 (declare-function math-read-radix-digit "calc-misc" (dig)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
179 (declare-function calc-digit-dots "calc-incom" ()) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
180 (declare-function math-normalize-fancy "calc-ext" (a)) |
86507
b7cc783e1692
(math-normalize-nonstandard): Fix declaration.
Glenn Morris <rgm@gnu.org>
parents:
86470
diff
changeset
|
181 (declare-function math-normalize-nonstandard "calc-ext" ()) |
86470
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
182 (declare-function math-recompile-eval-rules "calc-alg" ()) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
183 (declare-function math-apply-rewrites "calc-rewr" (expr rules &optional heads math-apply-rw-ruleset)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
184 (declare-function calc-record-why "calc-misc" (&rest stuff)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
185 (declare-function math-dimension-error "calc-vec" ()) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
186 (declare-function calc-incomplete-error "calc-incom" (a)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
187 (declare-function math-float-fancy "calc-arith" (a)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
188 (declare-function math-neg-fancy "calc-arith" (a)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
189 (declare-function calc-add-fractions "calc-frac" (a b)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
190 (declare-function math-add-objects-fancy "calc-arith" (a b)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
191 (declare-function math-add-symb-fancy "calc-arith" (a b)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
192 (declare-function math-mul-zero "calc-arith" (a b)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
193 (declare-function calc-mul-fractions "calc-frac" (a b)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
194 (declare-function math-mul-objects-fancy "calc-arith" (a b)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
195 (declare-function math-mul-symb-fancy "calc-arith" (a b)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
196 (declare-function math-reject-arg "calc-misc" (&optional a p option)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
197 (declare-function math-div-by-zero "calc-arith" (a b)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
198 (declare-function math-div-zero "calc-arith" (a b)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
199 (declare-function math-make-frac "calc-frac" (num den)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
200 (declare-function calc-div-fractions "calc-frac" (a b)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
201 (declare-function math-div-objects-fancy "calc-arith" (a b)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
202 (declare-function math-div-symb-fancy "calc-arith" (a b)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
203 (declare-function math-compose-expr "calccomp" (a prec)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
204 (declare-function math-comp-width "calccomp" (c)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
205 (declare-function math-composition-to-string "calccomp" (c &optional width)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
206 (declare-function math-stack-value-offset-fancy "calccomp" ()) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
207 (declare-function math-format-flat-expr-fancy "calc-ext" (a prec)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
208 (declare-function math-adjust-fraction "calc-ext" (a)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
209 (declare-function math-format-binary "calc-bin" (a)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
210 (declare-function math-format-radix "calc-bin" (a)) |
106135
44eb0cd5515b
(calc-set-mode-line): Rename `calc-complement-signed-mode' to
Jay Belanger <jay.p.belanger@gmail.com>
parents:
106036
diff
changeset
|
211 (declare-function math-format-twos-complement "calc-bin" (a)) |
86470
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
212 (declare-function math-group-float "calc-ext" (str)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
213 (declare-function math-mod "calc-misc" (a b)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
214 (declare-function math-format-number-fancy "calc-ext" (a prec)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
215 (declare-function math-format-bignum-fancy "calc-ext" (a)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
216 (declare-function math-read-number-fancy "calc-ext" (s)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
217 (declare-function calc-do-grab-region "calc-yank" (top bot arg)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
218 (declare-function calc-do-grab-rectangle "calc-yank" (top bot arg &optional reduce)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
219 (declare-function calc-do-embedded "calc-embed" (calc-embed-arg end obeg oend)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
220 (declare-function calc-do-embedded-activate "calc-embed" (calc-embed-arg cbuf)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
221 (declare-function math-do-defmath "calc-prog" (func args body)) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
222 (declare-function calc-load-everything "calc-ext" ()) |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
223 |
c91f81134a74
(calc-set-language, calc-edit-finish)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86076
diff
changeset
|
224 |
61213 | 225 (defgroup calc nil |
64027
ba3f24a57b73
(calc): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents:
62911
diff
changeset
|
226 "GNU Calc." |
61213 | 227 :prefix "calc-" |
62805
bb4c78051de0
(calc): Specify customization group.
Lute Kamstra <lute@gnu.org>
parents:
62776
diff
changeset
|
228 :tag "Calc" |
bb4c78051de0
(calc): Specify customization group.
Lute Kamstra <lute@gnu.org>
parents:
62776
diff
changeset
|
229 :group 'applications) |
61213 | 230 |
104712
c4fb8f245750
* paths.el (abbrev-file-name): Move to abbrev.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104543
diff
changeset
|
231 ;; Do not autoload, so it is evaluated at run-time rather than at dump time. |
c4fb8f245750
* paths.el (abbrev-file-name): Move to abbrev.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104543
diff
changeset
|
232 ;; ;;;###autoload |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
233 (defcustom calc-settings-file |
104712
c4fb8f245750
* paths.el (abbrev-file-name): Move to abbrev.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104543
diff
changeset
|
234 (locate-user-emacs-file "calc.el" ".calc.el") |
99900
f42d7c051576
(calc-settings-file, calc-language-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99400
diff
changeset
|
235 "File in which to record permanent settings." |
61213 | 236 :group 'calc |
237 :type '(file)) | |
238 | |
239 (defcustom calc-language-alist | |
240 '((latex-mode . latex) | |
241 (tex-mode . tex) | |
242 (plain-tex-mode . tex) | |
243 (context-mode . tex) | |
244 (nroff-mode . eqn) | |
245 (pascal-mode . pascal) | |
246 (c-mode . c) | |
247 (c++-mode . c) | |
248 (fortran-mode . fortran) | |
82418
08e51b086d98
(calc-language-alist): Add texinfo-mode.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
82140
diff
changeset
|
249 (f90-mode . fortran) |
08e51b086d98
(calc-language-alist): Add texinfo-mode.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
82140
diff
changeset
|
250 (texinfo-mode . calc-normal-language)) |
99900
f42d7c051576
(calc-settings-file, calc-language-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99400
diff
changeset
|
251 "Alist of major modes with appropriate Calc languages." |
61213 | 252 :group 'calc |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
253 :type '(alist :key-type (symbol :tag "Major mode") |
61258
847aae9ef36a
(calc-language-alist): Add tags to customization type.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
61213
diff
changeset
|
254 :value-type (symbol :tag "Calc language"))) |
61213 | 255 |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
256 (defcustom calc-embedded-announce-formula |
61213 | 257 "%Embed\n\\(% .*\n\\)*" |
99900
f42d7c051576
(calc-settings-file, calc-language-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99400
diff
changeset
|
258 "A regular expression which is sure to be followed by a calc-embedded formula." |
61213 | 259 :group 'calc |
260 :type '(regexp)) | |
261 | |
64184
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
262 (defcustom calc-embedded-announce-formula-alist |
64230
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
263 '((c++-mode . "//Embed\n\\(// .*\n\\)*") |
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
264 (c-mode . "/\\*Embed\\*/\n\\(/\\* .*\\*/\n\\)*") |
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
265 (f90-mode . "!Embed\n\\(! .*\n\\)*") |
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
266 (fortran-mode . "C Embed\n\\(C .*\n\\)*") |
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
267 (html-helper-mode . "<!-- Embed -->\n\\(<!-- .* -->\n\\)*") |
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
268 (html-mode . "<!-- Embed -->\n\\(<!-- .* -->\n\\)*") |
64184
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
269 (nroff-mode . "\\\\\"Embed\n\\(\\\\\" .*\n\\)*") |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
270 (pascal-mode . "{Embed}\n\\({.*}\n\\)*") |
64230
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
271 (sgml-mode . "<!-- Embed -->\n\\(<!-- .* -->\n\\)*") |
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
272 (xml-mode . "<!-- Embed -->\n\\(<!-- .* -->\n\\)*") |
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
273 (texinfo-mode . "@c Embed\n\\(@c .*\n\\)*")) |
99900
f42d7c051576
(calc-settings-file, calc-language-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99400
diff
changeset
|
274 "Alist of major modes with appropriate values for `calc-embedded-announce-formula'." |
64184
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
275 :group 'calc |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
276 :type '(alist :key-type (symbol :tag "Major mode") |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
277 :value-type (regexp :tag "Regexp to announce formula"))) |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
278 |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
279 (defcustom calc-embedded-open-formula |
61213 | 280 "\\`\\|^\n\\|\\$\\$?\\|\\\\\\[\\|^\\\\begin[^{].*\n\\|^\\\\begin{.*[^x]}.*\n\\|^@.*\n\\|^\\.EQ.*\n\\|\\\\(\\|^%\n\\|^\\.\\\\\"\n" |
99900
f42d7c051576
(calc-settings-file, calc-language-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99400
diff
changeset
|
281 "A regular expression for the opening delimiter of a formula used by calc-embedded." |
61213 | 282 :group 'calc |
283 :type '(regexp)) | |
284 | |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
285 (defcustom calc-embedded-close-formula |
61213 | 286 "\\'\\|\n$\\|\\$\\$?\\|\\\\]\\|^\\\\end[^{].*\n\\|^\\\\end{.*[^x]}.*\n\\|^@.*\n\\|^\\.EN.*\n\\|\\\\)\\|\n%\n\\|^\\.\\\\\"\n" |
99900
f42d7c051576
(calc-settings-file, calc-language-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99400
diff
changeset
|
287 "A regular expression for the closing delimiter of a formula used by calc-embedded." |
61213 | 288 :group 'calc |
289 :type '(regexp)) | |
290 | |
64184
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
291 (defcustom calc-embedded-open-close-formula-alist |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
292 nil |
99900
f42d7c051576
(calc-settings-file, calc-language-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99400
diff
changeset
|
293 "Alist of major modes with pairs of formula delimiters used by calc-embedded." |
64184
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
294 :group 'calc |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
295 :type '(alist :key-type (symbol :tag "Major mode") |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
296 :value-type (list (regexp :tag "Opening formula delimiter") |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
297 (regexp :tag "Closing formula delimiter")))) |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
298 |
98602
8bc022b29e81
(calc-embedded-word-regexp, calc-embedded-word-regexp-alist):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
97949
diff
changeset
|
299 (defcustom calc-embedded-word-regexp |
8bc022b29e81
(calc-embedded-word-regexp, calc-embedded-word-regexp-alist):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
97949
diff
changeset
|
300 "[-+]?[0-9]+\\(\\.[0-9]+\\)?\\([eE][-+]?[0-9]+\\)?" |
8bc022b29e81
(calc-embedded-word-regexp, calc-embedded-word-regexp-alist):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
97949
diff
changeset
|
301 "A regular expression determining a word for calc-embedded-word." |
61213 | 302 :group 'calc |
303 :type '(regexp)) | |
304 | |
98602
8bc022b29e81
(calc-embedded-word-regexp, calc-embedded-word-regexp-alist):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
97949
diff
changeset
|
305 (defcustom calc-embedded-word-regexp-alist |
64184
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
306 nil |
99900
f42d7c051576
(calc-settings-file, calc-language-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99400
diff
changeset
|
307 "Alist of major modes with word regexps used by calc-embedded-word." |
64184
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
308 :group 'calc |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
309 :type '(alist :key-type (symbol :tag "Major mode") |
98602
8bc022b29e81
(calc-embedded-word-regexp, calc-embedded-word-regexp-alist):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
97949
diff
changeset
|
310 :value-type (regexp :tag "Regexp for word"))) |
64184
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
311 |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
312 (defcustom calc-embedded-open-plain |
61213 | 313 "%%% " |
99900
f42d7c051576
(calc-settings-file, calc-language-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99400
diff
changeset
|
314 "A string which is the opening delimiter for a \"plain\" formula. |
61213 | 315 If calc-show-plain mode is enabled, this is inserted at the front of |
316 each formula." | |
317 :group 'calc | |
318 :type '(string)) | |
319 | |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
320 (defcustom calc-embedded-close-plain |
61213 | 321 " %%%\n" |
99900
f42d7c051576
(calc-settings-file, calc-language-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99400
diff
changeset
|
322 "A string which is the closing delimiter for a \"plain\" formula. |
61213 | 323 See calc-embedded-open-plain." |
324 :group 'calc | |
325 :type '(string)) | |
326 | |
64184
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
327 (defcustom calc-embedded-open-close-plain-alist |
64230
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
328 '((c++-mode "// %% " " %%\n") |
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
329 (c-mode "/* %% " " %% */\n") |
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
330 (f90-mode "! %% " " %%\n") |
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
331 (fortran-mode "C %% " " %%\n") |
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
332 (html-helper-mode "<!-- %% " " %% -->\n") |
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
333 (html-mode "<!-- %% " " %% -->\n") |
64184
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
334 (nroff-mode "\\\" %% " " %%\n") |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
335 (pascal-mode "{%% " " %%}\n") |
64230
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
336 (sgml-mode "<!-- %% " " %% -->\n") |
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
337 (xml-mode "<!-- %% " " %% -->\n") |
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
338 (texinfo-mode "@c %% " " %%\n")) |
99900
f42d7c051576
(calc-settings-file, calc-language-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99400
diff
changeset
|
339 "Alist of major modes with pairs of delimiters for \"plain\" formulas." |
64184
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
340 :group 'calc |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
341 :type '(alist :key-type (symbol :tag "Major mode") |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
342 :value-type (list (string :tag "Opening \"plain\" delimiter") |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
343 (string :tag "Closing \"plain\" delimiter")))) |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
344 |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
345 (defcustom calc-embedded-open-new-formula |
61213 | 346 "\n\n" |
99900
f42d7c051576
(calc-settings-file, calc-language-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99400
diff
changeset
|
347 "A string which is inserted at front of formula by calc-embedded-new-formula." |
61213 | 348 :group 'calc |
349 :type '(string)) | |
350 | |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
351 (defcustom calc-embedded-close-new-formula |
61213 | 352 "\n\n" |
99900
f42d7c051576
(calc-settings-file, calc-language-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99400
diff
changeset
|
353 "A string which is inserted at end of formula by calc-embedded-new-formula." |
61213 | 354 :group 'calc |
355 :type '(string)) | |
356 | |
64184
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
357 (defcustom calc-embedded-open-close-new-formula-alist |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
358 nil |
99900
f42d7c051576
(calc-settings-file, calc-language-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99400
diff
changeset
|
359 "Alist of major modes with pairs of new formula delimiters used by calc-embedded." |
64184
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
360 :group 'calc |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
361 :type '(alist :key-type (symbol :tag "Major mode") |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
362 :value-type (list (string :tag "Opening new formula delimiter") |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
363 (string :tag "Closing new formula delimiter")))) |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
364 |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
365 (defcustom calc-embedded-open-mode |
61213 | 366 "% " |
99900
f42d7c051576
(calc-settings-file, calc-language-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99400
diff
changeset
|
367 "A string which should precede calc-embedded mode annotations. |
61213 | 368 This is not required to be present for user-written mode annotations." |
369 :group 'calc | |
370 :type '(string)) | |
371 | |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
372 (defcustom calc-embedded-close-mode |
61213 | 373 "\n" |
99900
f42d7c051576
(calc-settings-file, calc-language-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99400
diff
changeset
|
374 "A string which should follow calc-embedded mode annotations. |
61213 | 375 This is not required to be present for user-written mode annotations." |
376 :group 'calc | |
377 :type '(string)) | |
378 | |
64184
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
379 (defcustom calc-embedded-open-close-mode-alist |
64230
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
380 '((c++-mode "// " "\n") |
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
381 (c-mode "/* " " */\n") |
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
382 (f90-mode "! " "\n") |
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
383 (fortran-mode "C " "\n") |
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
384 (html-helper-mode "<!-- " " -->\n") |
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
385 (html-mode "<!-- " " -->\n") |
64184
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
386 (nroff-mode "\\\" " "\n") |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
387 (pascal-mode "{ " " }\n") |
64230
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
388 (sgml-mode "<!-- " " -->\n") |
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
389 (xml-mode "<!-- " " -->\n") |
b036e189a4c0
(calc-embedded-announce-formula-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64184
diff
changeset
|
390 (texinfo-mode "@c " "\n")) |
99900
f42d7c051576
(calc-settings-file, calc-language-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99400
diff
changeset
|
391 "Alist of major modes with pairs of strings to delimit annotations." |
64184
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
392 :group 'calc |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
393 :type '(alist :key-type (symbol :tag "Major mode") |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
394 :value-type (list (string :tag "Opening annotation delimiter") |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
395 (string :tag "Closing annotation delimiter")))) |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
396 |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
397 (defcustom calc-gnuplot-name |
104174
bdaf1510bb98
(calc-gnuplot-name) [windows-nt]: Use "pgnuplot" as the default.
Eli Zaretskii <eliz@gnu.org>
parents:
104100
diff
changeset
|
398 (if (eq system-type 'windows-nt) "pgnuplot" "gnuplot") |
99900
f42d7c051576
(calc-settings-file, calc-language-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99400
diff
changeset
|
399 "Name of GNUPLOT program, for calc-graph features." |
61213 | 400 :group 'calc |
401 :type '(string)) | |
402 | |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
403 (defcustom calc-gnuplot-plot-command |
61213 | 404 nil |
99900
f42d7c051576
(calc-settings-file, calc-language-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99400
diff
changeset
|
405 "Name of command for displaying GNUPLOT output; %s = file name to print." |
61213 | 406 :group 'calc |
407 :type '(choice (string) (sexp))) | |
408 | |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
409 (defcustom calc-gnuplot-print-command |
61213 | 410 "lp %s" |
99900
f42d7c051576
(calc-settings-file, calc-language-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99400
diff
changeset
|
411 "Name of command for printing GNUPLOT output; %s = file name to print." |
61213 | 412 :group 'calc |
413 :type '(choice (string) (sexp))) | |
40785 | 414 |
81466
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
415 (defcustom calc-multiplication-has-precedence |
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
416 t |
99900
f42d7c051576
(calc-settings-file, calc-language-alist)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99400
diff
changeset
|
417 "If non-nil, multiplication has precedence over division |
81466
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
418 in normal mode." |
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
419 :group 'calc |
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
420 :type 'boolean) |
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
421 |
104010
671cf7805a1e
(calc-undo-length): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
103084
diff
changeset
|
422 (defcustom calc-undo-length |
671cf7805a1e
(calc-undo-length): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
103084
diff
changeset
|
423 100 |
671cf7805a1e
(calc-undo-length): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
103084
diff
changeset
|
424 "The number of undo steps that will be preserved when Calc is quit." |
671cf7805a1e
(calc-undo-length): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
103084
diff
changeset
|
425 :group 'calc |
671cf7805a1e
(calc-undo-length): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
103084
diff
changeset
|
426 :type 'integer) |
671cf7805a1e
(calc-undo-length): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
103084
diff
changeset
|
427 |
77464
e62817ef9d31
Update maintainer's address.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77257
diff
changeset
|
428 (defvar calc-bug-address "jay.p.belanger@gmail.com" |
62911
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
429 "Address of the maintainer of Calc, for use by `report-calc-bug'.") |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
430 |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
431 (defvar calc-scan-for-dels t |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
432 "If t, scan keymaps to find all DEL-like keys. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
433 if nil, only DEL itself is mapped to calc-pop.") |
40785 | 434 |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
435 (defvar calc-stack '((top-of-stack 1 nil)) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
436 "Calculator stack. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
437 Entries are 3-lists: Formula, Height (in lines), Selection (or nil).") |
40785 | 438 |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
439 (defvar calc-stack-top 1 |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
440 "Index into `calc-stack' of \"top\" of stack. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
441 This is 1 unless `calc-truncate-stack' has been used.") |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
442 |
57115
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
443 (defvar calc-display-sci-high 0 |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
444 "Floating-point numbers with this positive exponent or higher above the |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
445 current precision are displayed in scientific notation in calc-mode.") |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
446 |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
447 (defvar calc-display-sci-low -3 |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
448 "Floating-point numbers with this negative exponent or lower are displayed |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
449 scientific notation in calc-mode.") |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
450 |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
451 (defvar calc-other-modes nil |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
452 "List of used-defined strings to append to Calculator mode line.") |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
453 |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
454 (defvar calc-Y-help-msgs nil |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
455 "List of strings for Y prefix help.") |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
456 |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
457 (defvar calc-loaded-settings-file nil |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
458 "t if `calc-settings-file' has been loaded yet.") |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
459 |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
460 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
461 (defvar calc-mode-var-list '() |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
462 "List of variables used in customizing GNU Calc.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
463 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
464 (defmacro defcalcmodevar (var defval &optional doc) |
93087
caaf0ad72a9e
Remove outdated comments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
87649
diff
changeset
|
465 "Declare VAR as a Calc variable, with default value DEFVAL |
caaf0ad72a9e
Remove outdated comments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
87649
diff
changeset
|
466 and doc-string DOC. |
caaf0ad72a9e
Remove outdated comments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
87649
diff
changeset
|
467 The variable VAR will be added to `calc-mode-var-list'." |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
468 `(progn |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
469 (defvar ,var ,defval ,doc) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
470 (add-to-list 'calc-mode-var-list (list (quote ,var) ,defval)))) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
471 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
472 (defun calc-mode-var-list-restore-default-values () |
93087
caaf0ad72a9e
Remove outdated comments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
87649
diff
changeset
|
473 "Restore the default values of the variables in `calc-mode-var-list'." |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
474 (mapcar (function (lambda (v) (set (car v) (nth 1 v)))) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
475 calc-mode-var-list)) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
476 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
477 (defun calc-mode-var-list-restore-saved-values () |
93087
caaf0ad72a9e
Remove outdated comments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
87649
diff
changeset
|
478 "Restore the user-saved values of the variables in `calc-mode-var-list'." |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
479 (let ((newvarlist '())) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
480 (save-excursion |
59449
00dbe02e6d46
(calc-mode-var-list-restore-saved-values): Make sure settings file
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59437
diff
changeset
|
481 (let (pos |
00dbe02e6d46
(calc-mode-var-list-restore-saved-values): Make sure settings file
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59437
diff
changeset
|
482 (file (substitute-in-file-name calc-settings-file))) |
00dbe02e6d46
(calc-mode-var-list-restore-saved-values): Make sure settings file
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59437
diff
changeset
|
483 (when (and |
00dbe02e6d46
(calc-mode-var-list-restore-saved-values): Make sure settings file
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59437
diff
changeset
|
484 (file-regular-p file) |
00dbe02e6d46
(calc-mode-var-list-restore-saved-values): Make sure settings file
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59437
diff
changeset
|
485 (set-buffer (find-file-noselect file)) |
00dbe02e6d46
(calc-mode-var-list-restore-saved-values): Make sure settings file
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59437
diff
changeset
|
486 (goto-char (point-min)) |
00dbe02e6d46
(calc-mode-var-list-restore-saved-values): Make sure settings file
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59437
diff
changeset
|
487 (search-forward ";;; Mode settings stored by Calc" nil t) |
00dbe02e6d46
(calc-mode-var-list-restore-saved-values): Make sure settings file
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59437
diff
changeset
|
488 (progn |
00dbe02e6d46
(calc-mode-var-list-restore-saved-values): Make sure settings file
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59437
diff
changeset
|
489 (forward-line 1) |
00dbe02e6d46
(calc-mode-var-list-restore-saved-values): Make sure settings file
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59437
diff
changeset
|
490 (setq pos (point)) |
00dbe02e6d46
(calc-mode-var-list-restore-saved-values): Make sure settings file
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59437
diff
changeset
|
491 (search-forward "\n;;; End of mode settings" nil t))) |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
492 (beginning-of-line) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
493 (calc-mode-var-list-restore-default-values) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
494 (eval-region pos (point)) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
495 (let ((varlist calc-mode-var-list)) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
496 (while varlist |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
497 (let ((var (car varlist))) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
498 (setq newvarlist |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
499 (cons (list (car var) (symbol-value (car var))) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
500 newvarlist))) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
501 (setq varlist (cdr varlist))))))) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
502 (if newvarlist |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
503 (mapcar (function (lambda (v) (set (car v) (nth 1 v)))) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
504 newvarlist) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
505 (calc-mode-var-list-restore-default-values)))) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
506 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
507 (defcalcmodevar calc-always-load-extensions nil |
93152
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
508 "If non-nil, load the calc-ext module automatically when Calc is loaded.") |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
509 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
510 (defcalcmodevar calc-line-numbering t |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
511 "If non-nil, display line numbers in Calculator stack.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
512 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
513 (defcalcmodevar calc-line-breaking t |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
514 "If non-nil, break long values across multiple lines in Calculator stack.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
515 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
516 (defcalcmodevar calc-display-just nil |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
517 "If nil, stack display is left-justified. |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
518 If `right', stack display is right-justified. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
519 If `center', stack display is centered.") |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
520 |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
521 (defcalcmodevar calc-display-origin nil |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
522 "Horizontal origin of displayed stack entries. |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
523 In left-justified mode, this is effectively indentation. (Default 0). |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
524 In right-justified mode, this is effectively window width. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
525 In centered mode, center of stack entry is placed here.") |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
526 |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
527 (defcalcmodevar calc-number-radix 10 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
528 "Radix for entry and display of numbers in calc-mode, 2-36.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
529 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
530 (defcalcmodevar calc-leading-zeros nil |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
531 "If non-nil, leading zeros are provided to pad integers to calc-word-size.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
532 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
533 (defcalcmodevar calc-group-digits nil |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
534 "If non-nil, group digits in large displayed integers by inserting spaces. |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
535 If an integer, group that many digits at a time. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
536 If t, use 4 for binary and hex, 3 otherwise.") |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
537 |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
538 (defcalcmodevar calc-group-char "," |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
539 "The character (in the form of a string) to be used for grouping digits. |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
540 This is used only when calc-group-digits mode is on.") |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
541 |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
542 (defcalcmodevar calc-point-char "." |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
543 "The character (in the form of a string) to be used as a decimal point.") |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
544 |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
545 (defcalcmodevar calc-frac-format '(":" nil) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
546 "Format of displayed fractions; a string of one or two of \":\" or \"/\".") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
547 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
548 (defcalcmodevar calc-prefer-frac nil |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
549 "If non-nil, prefer fractional over floating-point results.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
550 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
551 (defcalcmodevar calc-hms-format "%s@ %s' %s\"" |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
552 "Format of displayed hours-minutes-seconds angles, a format string. |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
553 String must contain three %s marks for hours, minutes, seconds respectively.") |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
554 |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
555 (defcalcmodevar calc-date-format '((H ":" mm C SS pp " ") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
556 Www " " Mmm " " D ", " YYYY) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
557 "Format of displayed date forms.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
558 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
559 (defcalcmodevar calc-float-format '(float 0) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
560 "Format to use for display of floating-point numbers in calc-mode. |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
561 Must be a list of one of the following forms: |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
562 (float 0) Floating point format, display full precision. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
563 (float N) N > 0: Floating point format, at most N significant figures. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
564 (float -N) -N < 0: Floating point format, calc-internal-prec - N figs. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
565 (fix N) N >= 0: Fixed point format, N places after decimal point. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
566 (sci 0) Scientific notation, full precision. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
567 (sci N) N > 0: Scientific notation, N significant figures. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
568 (sci -N) -N < 0: Scientific notation, calc-internal-prec - N figs. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
569 (eng 0) Engineering notation, full precision. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
570 (eng N) N > 0: Engineering notation, N significant figures. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
571 (eng -N) -N < 0: Engineering notation, calc-internal-prec - N figs.") |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
572 |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
573 (defcalcmodevar calc-full-float-format '(float 0) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
574 "Format to use when full precision must be displayed.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
575 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
576 (defcalcmodevar calc-complex-format nil |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
577 "Format to use for display of complex numbers in calc-mode. Must be one of: |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
578 nil Use (x, y) form. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
579 i Use x + yi form. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
580 j Use x + yj form.") |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
581 |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
582 (defcalcmodevar calc-complex-mode 'cplx |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
583 "Preferred form, either `cplx' or `polar', for complex numbers.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
584 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
585 (defcalcmodevar calc-infinite-mode nil |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
586 "If nil, 1 / 0 is left unsimplified. |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
587 If 0, 1 / 0 is changed to inf (zeros are considered positive). |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
588 Otherwise, 1 / 0 is changed to uinf (undirected infinity).") |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
589 |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
590 (defcalcmodevar calc-display-strings nil |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
591 "If non-nil, display vectors of byte-sized integers as strings.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
592 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
593 (defcalcmodevar calc-matrix-just 'center |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
594 "If nil, vector elements are left-justified. |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
595 If `right', vector elements are right-justified. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
596 If `center', vector elements are centered.") |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
597 |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
598 (defcalcmodevar calc-break-vectors nil |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
599 "If non-nil, display vectors one element per line.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
600 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
601 (defcalcmodevar calc-full-vectors t |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
602 "If non-nil, display long vectors in full. If nil, use abbreviated form.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
603 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
604 (defcalcmodevar calc-full-trail-vectors t |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
605 "If non-nil, display long vectors in full in the trail.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
606 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
607 (defcalcmodevar calc-vector-commas "," |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
608 "If non-nil, separate elements of displayed vectors with this string.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
609 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
610 (defcalcmodevar calc-vector-brackets "[]" |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
611 "If non-nil, surround displayed vectors with these characters.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
612 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
613 (defcalcmodevar calc-matrix-brackets '(R O) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
614 "A list of code-letter symbols that control \"big\" matrix display. |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
615 If `R' is present, display inner brackets for matrices. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
616 If `O' is present, display outer brackets for matrices (above/below). |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
617 If `C' is present, display outer brackets for matrices (centered).") |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
618 |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
619 (defcalcmodevar calc-language nil |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
620 "Language or format for entry and display of stack values. Must be one of: |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
621 nil Use standard Calc notation. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
622 flat Use standard Calc notation, one-line format. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
623 big Display formulas in 2-d notation (enter w/std notation). |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
624 unform Use unformatted display: add(a, mul(b,c)). |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
625 c Use C language notation. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
626 pascal Use Pascal language notation. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
627 fortran Use Fortran language notation. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
628 tex Use TeX notation. |
59813
eae40eb7229e
(calc-language): Adjust docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59623
diff
changeset
|
629 latex Use LaTeX notation. |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
630 eqn Use eqn notation. |
87460
1cd950dd3214
(calc-language): Add languages to docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
87413
diff
changeset
|
631 yacas Use Yacas notation. |
1cd950dd3214
(calc-language): Add languages to docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
87413
diff
changeset
|
632 maxima Use Maxima notation. |
1cd950dd3214
(calc-language): Add languages to docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
87413
diff
changeset
|
633 giac Use Giac notation. |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
634 math Use Mathematica(tm) notation. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
635 maple Use Maple notation.") |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
636 |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
637 (defcalcmodevar calc-language-option nil |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
638 "Numeric prefix argument for the command that set `calc-language'.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
639 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
640 (defcalcmodevar calc-left-label "" |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
641 "Label to display at left of formula.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
642 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
643 (defcalcmodevar calc-right-label "" |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
644 "Label to display at right of formula.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
645 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
646 (defcalcmodevar calc-word-size 32 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
647 "Minimum number of bits per word, if any, for binary operations in calc-mode.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
648 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
649 (defcalcmodevar calc-previous-modulo nil |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
650 "Most recently used value of M in a modulo form.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
651 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
652 (defcalcmodevar calc-simplify-mode nil |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
653 "Type of simplification applied to results. |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
654 If `none', results are not simplified when pushed on the stack. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
655 If `num', functions are simplified only when args are constant. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
656 If nil, only fast simplifications are applied. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
657 If `binary', `math-clip' is applied if appropriate. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
658 If `alg', `math-simplify' is applied. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
659 If `ext', `math-simplify-extended' is applied. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
660 If `units', `math-simplify-units' is applied.") |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
661 |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
662 (defcalcmodevar calc-auto-recompute t |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
663 "If non-nil, recompute evalto's automatically when necessary.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
664 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
665 (defcalcmodevar calc-display-raw nil |
59623
23a9f70c492b
(calc-display-raw): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59449
diff
changeset
|
666 "If non-nil, display shows unformatted Lisp exprs. (For debugging)") |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
667 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
668 (defcalcmodevar calc-internal-prec 12 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
669 "Number of digits of internal precision for calc-mode calculations.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
670 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
671 (defcalcmodevar calc-angle-mode 'deg |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
672 "If deg, angles are in degrees; if rad, angles are in radians. |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
673 If hms, angles are in degrees-minutes-seconds.") |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
674 |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
675 (defcalcmodevar calc-algebraic-mode nil |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
676 "If non-nil, numeric entry accepts whole algebraic expressions. |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
677 If nil, algebraic expressions must be preceded by \"'\".") |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
678 |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
679 (defcalcmodevar calc-incomplete-algebraic-mode nil |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
680 "Like calc-algebraic-mode except only affects ( and [ keys.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
681 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
682 (defcalcmodevar calc-symbolic-mode nil |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
683 "If non-nil, inexact numeric computations like sqrt(2) are postponed. |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
684 If nil, computations on numbers always yield numbers where possible.") |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
685 |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
686 (defcalcmodevar calc-matrix-mode nil |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
687 "If `matrix', variables are assumed to be matrix-valued. |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
688 If a number, variables are assumed to be NxN matrices. |
65989
1851d5f19b4f
(calc-matrix-mode, calc-set-mode-line): Change the mode name `square'
Jay Belanger <jay.p.belanger@gmail.com>
parents:
65903
diff
changeset
|
689 If `sqmatrix', variables are assumed to be square matrices of an unspecified size. |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
690 If `scalar', variables are assumed to be scalar-valued. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
691 If nil, symbolic math routines make no assumptions about variables.") |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
692 |
106135
44eb0cd5515b
(calc-set-mode-line): Rename `calc-complement-signed-mode' to
Jay Belanger <jay.p.belanger@gmail.com>
parents:
106036
diff
changeset
|
693 (defcalcmodevar calc-twos-complement-mode nil |
44eb0cd5515b
(calc-set-mode-line): Rename `calc-complement-signed-mode' to
Jay Belanger <jay.p.belanger@gmail.com>
parents:
106036
diff
changeset
|
694 "If non-nil, display integers in two's complement mode.") |
106035
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
695 |
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
696 |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
697 (defcalcmodevar calc-shift-prefix nil |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
698 "If non-nil, shifted letter keys are prefix keys rather than normal meanings.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
699 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
700 (defcalcmodevar calc-window-height 7 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
701 "Initial height of Calculator window.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
702 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
703 (defcalcmodevar calc-display-trail t |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
704 "If non-nil, M-x calc creates a window to display Calculator trail.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
705 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
706 (defcalcmodevar calc-show-selections t |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
707 "If non-nil, selected sub-formulas are shown by obscuring rest of formula. |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
708 If nil, selected sub-formulas are highlighted by obscuring the sub-formulas.") |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
709 |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
710 (defcalcmodevar calc-use-selections t |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
711 "If non-nil, commands operate only on selected portions of formulas. |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
712 If nil, selections displayed but ignored.") |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
713 |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
714 (defcalcmodevar calc-assoc-selections t |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
715 "If non-nil, selection hides deep structure of associative formulas.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
716 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
717 (defcalcmodevar calc-display-working-message 'lots |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
718 "If non-nil, display \"Working...\" for potentially slow Calculator commands.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
719 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
720 (defcalcmodevar calc-auto-why 'maybe |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
721 "If non-nil, automatically execute a \"why\" command to explain odd results.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
722 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
723 (defcalcmodevar calc-timing nil |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
724 "If non-nil, display timing information on each slow command.") |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
725 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
726 (defcalcmodevar calc-mode-save-mode 'local) |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
727 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
728 (defcalcmodevar calc-standard-date-formats |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
729 '("N" |
57170
01f54f65a36b
(calc-mode-var-list): Removed unnecessary quotes.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57121
diff
changeset
|
730 "<H:mm:SSpp >Www Mmm D, YYYY" |
01f54f65a36b
(calc-mode-var-list): Removed unnecessary quotes.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57121
diff
changeset
|
731 "D Mmm YYYY<, h:mm:SS>" |
01f54f65a36b
(calc-mode-var-list): Removed unnecessary quotes.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57121
diff
changeset
|
732 "Www Mmm BD< hh:mm:ss> YYYY" |
01f54f65a36b
(calc-mode-var-list): Removed unnecessary quotes.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57121
diff
changeset
|
733 "M/D/Y< H:mm:SSpp>" |
01f54f65a36b
(calc-mode-var-list): Removed unnecessary quotes.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57121
diff
changeset
|
734 "D.M.Y< h:mm:SS>" |
01f54f65a36b
(calc-mode-var-list): Removed unnecessary quotes.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57121
diff
changeset
|
735 "M-D-Y< H:mm:SSpp>" |
01f54f65a36b
(calc-mode-var-list): Removed unnecessary quotes.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57121
diff
changeset
|
736 "D-M-Y< h:mm:SS>" |
01f54f65a36b
(calc-mode-var-list): Removed unnecessary quotes.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57121
diff
changeset
|
737 "j<, h:mm:SS>" |
01f54f65a36b
(calc-mode-var-list): Removed unnecessary quotes.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57121
diff
changeset
|
738 "YYddd< hh:mm:ss>")) |
57115
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
739 |
93087
caaf0ad72a9e
Remove outdated comments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
87649
diff
changeset
|
740 (defcalcmodevar calc-autorange-units nil |
caaf0ad72a9e
Remove outdated comments.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
87649
diff
changeset
|
741 "If non-nil, automatically set unit prefixes to keep units in a reasonable range.") |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
742 |
93152
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
743 (defcalcmodevar calc-was-keypad-mode nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
744 "Non-nil if Calc was last invoked in keypad mode.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
745 |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
746 (defcalcmodevar calc-full-mode nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
747 "Non-nil if Calc was last invoked in full-screen mode.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
748 |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
749 (defcalcmodevar calc-user-parse-tables nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
750 "Alist of languages with user-defined parse rules.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
751 |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
752 (defcalcmodevar calc-gnuplot-default-device "default" |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
753 "The default device name for GNUPLOT plotting.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
754 |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
755 (defcalcmodevar calc-gnuplot-default-output "STDOUT" |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
756 "The default output file for GNUPLOT plotting.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
757 |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
758 (defcalcmodevar calc-gnuplot-print-device "postscript" |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
759 "The default device name for GNUPLOT printing.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
760 |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
761 (defcalcmodevar calc-gnuplot-print-output "auto" |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
762 "The default output for GNUPLOT printing.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
763 |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
764 (defcalcmodevar calc-gnuplot-geometry nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
765 "The default geometry for the GNUPLOT window.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
766 |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
767 (defcalcmodevar calc-graph-default-resolution 15 |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
768 "The default number of data points when plotting curves.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
769 |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
770 (defcalcmodevar calc-graph-default-resolution-3d 5 |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
771 "The default number of x- and y- data points when plotting surfaces.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
772 |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
773 (defcalcmodevar calc-invocation-macro nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
774 "A user defined macro for starting Calc. |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
775 Used by `calc-user-invocation'.") |
59437
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
776 |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
777 (defcalcmodevar calc-show-banner t |
4cd1791518c2
(defcalcmodevar): New macro.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59424
diff
changeset
|
778 "*If non-nil, show a friendly greeting above the stack.") |
40785 | 779 |
780 (defconst calc-local-var-list '(calc-stack | |
781 calc-stack-top | |
782 calc-undo-list | |
783 calc-redo-list | |
784 calc-always-load-extensions | |
785 calc-mode-save-mode | |
786 calc-display-raw | |
787 calc-line-numbering | |
788 calc-line-breaking | |
789 calc-display-just | |
790 calc-display-origin | |
791 calc-left-label | |
792 calc-right-label | |
793 calc-auto-why | |
794 calc-algebraic-mode | |
795 calc-incomplete-algebraic-mode | |
796 calc-symbolic-mode | |
797 calc-matrix-mode | |
798 calc-inverse-flag | |
799 calc-hyperbolic-flag | |
107882
9b67d5035af2
* calc-ext.el (calc-init-extensions): Add keybinding for 'calc-option'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
106883
diff
changeset
|
800 calc-option-flag |
40785 | 801 calc-keep-args-flag |
802 calc-angle-mode | |
803 calc-number-radix | |
804 calc-leading-zeros | |
805 calc-group-digits | |
806 calc-group-char | |
807 calc-point-char | |
808 calc-frac-format | |
809 calc-prefer-frac | |
810 calc-hms-format | |
811 calc-date-format | |
812 calc-standard-date-formats | |
813 calc-float-format | |
814 calc-full-float-format | |
815 calc-complex-format | |
816 calc-matrix-just | |
817 calc-full-vectors | |
818 calc-full-trail-vectors | |
819 calc-break-vectors | |
820 calc-vector-commas | |
821 calc-vector-brackets | |
822 calc-matrix-brackets | |
823 calc-complex-mode | |
824 calc-infinite-mode | |
825 calc-display-strings | |
826 calc-simplify-mode | |
827 calc-auto-recompute | |
828 calc-autorange-units | |
829 calc-show-plain | |
830 calc-show-selections | |
831 calc-use-selections | |
832 calc-assoc-selections | |
833 calc-word-size | |
834 calc-internal-prec)) | |
835 | |
58061
3f48c4fde605
(calc-mode-hook, calc-trail-mode-hook, calc-start-hook, calc-end-hook)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57710
diff
changeset
|
836 (defvar calc-mode-hook nil |
3f48c4fde605
(calc-mode-hook, calc-trail-mode-hook, calc-start-hook, calc-end-hook)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57710
diff
changeset
|
837 "Hook run when entering calc-mode.") |
3f48c4fde605
(calc-mode-hook, calc-trail-mode-hook, calc-start-hook, calc-end-hook)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57710
diff
changeset
|
838 |
3f48c4fde605
(calc-mode-hook, calc-trail-mode-hook, calc-start-hook, calc-end-hook)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57710
diff
changeset
|
839 (defvar calc-trail-mode-hook nil |
3f48c4fde605
(calc-mode-hook, calc-trail-mode-hook, calc-start-hook, calc-end-hook)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57710
diff
changeset
|
840 "Hook run when entering calc-trail-mode.") |
3f48c4fde605
(calc-mode-hook, calc-trail-mode-hook, calc-start-hook, calc-end-hook)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57710
diff
changeset
|
841 |
3f48c4fde605
(calc-mode-hook, calc-trail-mode-hook, calc-start-hook, calc-end-hook)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57710
diff
changeset
|
842 (defvar calc-start-hook nil |
3f48c4fde605
(calc-mode-hook, calc-trail-mode-hook, calc-start-hook, calc-end-hook)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57710
diff
changeset
|
843 "Hook run when calc is started.") |
3f48c4fde605
(calc-mode-hook, calc-trail-mode-hook, calc-start-hook, calc-end-hook)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57710
diff
changeset
|
844 |
3f48c4fde605
(calc-mode-hook, calc-trail-mode-hook, calc-start-hook, calc-end-hook)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57710
diff
changeset
|
845 (defvar calc-end-hook nil |
3f48c4fde605
(calc-mode-hook, calc-trail-mode-hook, calc-start-hook, calc-end-hook)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57710
diff
changeset
|
846 "Hook run when calc is quit.") |
3f48c4fde605
(calc-mode-hook, calc-trail-mode-hook, calc-start-hook, calc-end-hook)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57710
diff
changeset
|
847 |
3f48c4fde605
(calc-mode-hook, calc-trail-mode-hook, calc-start-hook, calc-end-hook)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57710
diff
changeset
|
848 (defvar calc-load-hook nil |
3f48c4fde605
(calc-mode-hook, calc-trail-mode-hook, calc-start-hook, calc-end-hook)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57710
diff
changeset
|
849 "Hook run when calc.el is loaded.") |
40785 | 850 |
62911
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
851 (defvar calc-window-hook nil |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
852 "Hook called to create the Calc window.") |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
853 |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
854 (defvar calc-trail-window-hook nil |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
855 "Hook called to create the Calc trail window.") |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
856 |
64184
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
857 (defvar calc-embedded-new-buffer-hook nil |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
858 "Hook run when starting embedded mode in a new buffer.") |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
859 |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
860 (defvar calc-embedded-new-formula-hook nil |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
861 "Hook run when starting embedded mode in a new formula.") |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
862 |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
863 (defvar calc-embedded-mode-hook nil |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
864 "Hook run when starting embedded mode.") |
a0570a2818b2
(calc-embedded-announce-formula-alist, calc-embedded-open-close-formula-alist,
Jay Belanger <jay.p.belanger@gmail.com>
parents:
64027
diff
changeset
|
865 |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
866 ;; Set up the autoloading linkage. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
867 (let ((name (and (fboundp 'calc-dispatch) |
93880
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
868 (eq (car-safe (symbol-function 'calc-dispatch)) 'autoload) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
869 (nth 1 (symbol-function 'calc-dispatch)))) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
870 (p load-path)) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
871 |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
872 ;; If Calc files exist on the load-path, we're all set. |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
873 (while (and p (not (file-exists-p |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
874 (expand-file-name "calc-misc.elc" (car p))))) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
875 (setq p (cdr p))) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
876 (or p |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
877 |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
878 ;; If Calc is autoloaded using a path name, look there for Calc files. |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
879 ;; This works for both relative ("calc/calc.elc") and absolute paths. |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
880 (and name (file-name-directory name) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
881 (let ((p2 load-path) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
882 (name2 (concat (file-name-directory name) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
883 "calc-misc.elc"))) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
884 (while (and p2 (not (file-exists-p |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
885 (expand-file-name name2 (car p2))))) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
886 (setq p2 (cdr p2))) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
887 (when p2 |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
888 (setq load-path (nconc load-path |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
889 (list |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
890 (directory-file-name |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
891 (file-name-directory |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
892 (expand-file-name |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
893 name (car p2)))))))))))) |
40785 | 894 |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
895 ;; The following modes use specially-formatted data. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
896 (put 'calc-mode 'mode-class 'special) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
897 (put 'calc-trail-mode 'mode-class 'special) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49263
diff
changeset
|
898 |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
899 ;; Define "inexact-result" as an e-lisp error symbol. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
900 (put 'inexact-result 'error-conditions '(error inexact-result calc-error)) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
901 (put 'inexact-result 'error-message "Calc internal error (inexact-result)") |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49263
diff
changeset
|
902 |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
903 ;; Define "math-overflow" and "math-underflow" as e-lisp error symbols. |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
904 (put 'math-overflow 'error-conditions '(error math-overflow calc-error)) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
905 (put 'math-overflow 'error-message "Floating-point overflow occurred") |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
906 (put 'math-underflow 'error-conditions '(error math-underflow calc-error)) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
907 (put 'math-underflow 'error-message "Floating-point underflow occurred") |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49263
diff
changeset
|
908 |
93152
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
909 (defvar calc-trail-pointer nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
910 "The \"current\" entry in trail buffer.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
911 (defvar calc-trail-overlay nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
912 "The value of overlay-arrow-string.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
913 (defvar calc-undo-list nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
914 "The list of previous operations for undo.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
915 (defvar calc-redo-list nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
916 "The list of recent undo operations.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
917 (defvar calc-main-buffer nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
918 "A pointer to Calculator buffer.") |
102789
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
919 (defvar calc-buffer-list nil |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
920 "A list of all Calc buffers.") |
93152
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
921 (defvar calc-trail-buffer nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
922 "A pointer to Calc Trail buffer.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
923 (defvar calc-why nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
924 "Explanations of most recent errors.") |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
925 (defvar calc-next-why nil) |
57115
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
926 (defvar calc-inverse-flag nil |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
927 "If non-nil, next operation is Inverse.") |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
928 (defvar calc-hyperbolic-flag nil |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
929 "If non-nil, next operation is Hyperbolic.") |
107882
9b67d5035af2
* calc-ext.el (calc-init-extensions): Add keybinding for 'calc-option'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
106883
diff
changeset
|
930 (defvar calc-option-flag nil |
9b67d5035af2
* calc-ext.el (calc-init-extensions): Add keybinding for 'calc-option'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
106883
diff
changeset
|
931 "If non-nil, next operation has Optional behavior.") |
57115
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
932 (defvar calc-keep-args-flag nil |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
933 "If non-nil, next operation should not remove its arguments from stack.") |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
934 (defvar calc-function-open "(" |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
935 "Open-parenthesis string for function call notation.") |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
936 (defvar calc-function-close ")" |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
937 "Close-parenthesis string for function call notation.") |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
938 (defvar calc-language-output-filter nil |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
939 "Function through which to pass strings after formatting.") |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
940 (defvar calc-language-input-filter nil |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
941 "Function through which to pass strings before parsing.") |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
942 (defvar calc-radix-formatter nil |
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
943 "Formatting function used for non-decimal numbers.") |
86931
469f2c7b7648
(calc-lang-slash-idiv,calc-lang-allow-underscores,calc-lang-c-type-hex)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86507
diff
changeset
|
944 (defvar calc-lang-slash-idiv nil |
469f2c7b7648
(calc-lang-slash-idiv,calc-lang-allow-underscores,calc-lang-c-type-hex)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86507
diff
changeset
|
945 "A list of languages in which / might represent integer division.") |
469f2c7b7648
(calc-lang-slash-idiv,calc-lang-allow-underscores,calc-lang-c-type-hex)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86507
diff
changeset
|
946 (defvar calc-lang-allow-underscores nil |
469f2c7b7648
(calc-lang-slash-idiv,calc-lang-allow-underscores,calc-lang-c-type-hex)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86507
diff
changeset
|
947 "A list of languages which allow underscores in variable names.") |
87413
0f888390c9b8
(calc-lang-allow-percentsigns): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
87224
diff
changeset
|
948 (defvar calc-lang-allow-percentsigns nil |
0f888390c9b8
(calc-lang-allow-percentsigns): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
87224
diff
changeset
|
949 "A list of languages which allow percent signs in variable names.") |
86931
469f2c7b7648
(calc-lang-slash-idiv,calc-lang-allow-underscores,calc-lang-c-type-hex)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86507
diff
changeset
|
950 (defvar calc-lang-c-type-hex nil |
469f2c7b7648
(calc-lang-slash-idiv,calc-lang-allow-underscores,calc-lang-c-type-hex)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86507
diff
changeset
|
951 "Languages in which octal and hex numbers are written with leading 0 and 0x,") |
469f2c7b7648
(calc-lang-slash-idiv,calc-lang-allow-underscores,calc-lang-c-type-hex)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86507
diff
changeset
|
952 (defvar calc-lang-brackets-are-subscripts nil |
469f2c7b7648
(calc-lang-slash-idiv,calc-lang-allow-underscores,calc-lang-c-type-hex)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86507
diff
changeset
|
953 "Languages in which subscripts are indicated by brackets.") |
469f2c7b7648
(calc-lang-slash-idiv,calc-lang-allow-underscores,calc-lang-c-type-hex)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86507
diff
changeset
|
954 (defvar calc-lang-parens-are-subscripts nil |
469f2c7b7648
(calc-lang-slash-idiv,calc-lang-allow-underscores,calc-lang-c-type-hex)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86507
diff
changeset
|
955 "Languages in which subscripts are indicated by parentheses.") |
57115
abc0e9beaacd
calc/calc.el (calc-mode-var-list): Define this variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
54583
diff
changeset
|
956 |
93152
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
957 (defvar calc-last-kill nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
958 "The last number killed in calc-mode.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
959 (defvar calc-dollar-values nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
960 "Values to be used for '$'.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
961 (defvar calc-dollar-used nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
962 "The highest order of '$' that occurred.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
963 (defvar calc-hashes-used nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
964 "The highest order of '#' that occurred.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
965 (defvar calc-quick-prev-results nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
966 "Previous results from Quick Calc.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
967 (defvar calc-said-hello nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
968 "Non-nil if the welcomd message has been displayed.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
969 (defvar calc-executing-macro nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
970 "Non-nil if a keyboard macro is executing from the \"K\" key.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
971 (defvar calc-any-selections nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
972 "Non-nil if there are selections present.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
973 (defvar calc-help-phase 0 |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
974 "The number of consecutive \"?\" keystrokes.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
975 (defvar calc-full-help-flag nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
976 "Non-nil if `calc-full-help' is being executed.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
977 (defvar calc-refresh-count 0 |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
978 "The number of `calc-refresh' calls.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
979 (defvar calc-display-dirty nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
980 "Non-nil if the stack display might not reflect the latest mode settings.") |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
981 (defvar calc-prepared-composition nil) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
982 (defvar calc-selection-cache-default-entry nil) |
93152
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
983 (defvar calc-embedded-info nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
984 "If non-nil, a vector consisting of information for embedded mode.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
985 (defvar calc-embedded-active nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
986 "Alist of buffers with sorted lists of calc-embedded-infos.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
987 (defvar calc-standalone-flag nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
988 "Non-nil if Emacs started with standalone Calc.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
989 (defvar var-EvalRules nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
990 "User defined rules that Calc will apply automatically.") |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
991 (defvar math-eval-rules-cache-tag t) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
992 (defvar math-radix-explicit-format t) |
93152
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
993 (defvar math-expr-function-mapping nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
994 "Alist of language specific functions with Calc functions.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
995 (defvar math-expr-variable-mapping nil |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
996 "Alist of language specific variables with Calc variables.") |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
997 (defvar math-read-expr-quotes nil) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
998 (defvar math-working-step nil) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
999 (defvar math-working-step-2 nil) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
1000 (defvar var-i '(special-const (math-imaginary 1))) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
1001 (defvar var-pi '(special-const (math-pi))) |
108590
c84578d13e42
calc-aent.el (math-read-token, math-find-user-tokens):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
107889
diff
changeset
|
1002 (defvar var-Ï€ '(special-const (math-pi))) |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
1003 (defvar var-e '(special-const (math-e))) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
1004 (defvar var-phi '(special-const (math-phi))) |
108590
c84578d13e42
calc-aent.el (math-read-token, math-find-user-tokens):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
107889
diff
changeset
|
1005 (defvar var-φ '(special-const (math-phi))) |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
1006 (defvar var-gamma '(special-const (math-gamma-const))) |
108590
c84578d13e42
calc-aent.el (math-read-token, math-find-user-tokens):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
107889
diff
changeset
|
1007 (defvar var-γ '(special-const (math-gamma-const))) |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
1008 (defvar var-Modes '(special-const (math-get-modes-vec))) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
1009 |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
1010 (mapc (lambda (v) (or (boundp v) (set v nil))) |
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
1011 calc-local-var-list) |
40785 | 1012 |
93880
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1013 (defvar calc-mode-map |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1014 (let ((map (make-keymap))) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1015 (suppress-keymap map t) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1016 (define-key map "+" 'calc-plus) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1017 (define-key map "-" 'calc-minus) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1018 (define-key map "*" 'calc-times) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1019 (define-key map "/" 'calc-divide) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1020 (define-key map "%" 'calc-mod) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1021 (define-key map "&" 'calc-inv) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1022 (define-key map "^" 'calc-power) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1023 (define-key map "\M-%" 'calc-percent) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1024 (define-key map "e" 'calcDigit-start) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1025 (define-key map "i" 'calc-info) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1026 (define-key map "n" 'calc-change-sign) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1027 (define-key map "q" 'calc-quit) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1028 (define-key map "Y" 'nil) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1029 (define-key map "Y?" 'calc-shift-Y-prefix-help) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1030 (define-key map "?" 'calc-help) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1031 (define-key map " " 'calc-enter) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1032 (define-key map "'" 'calc-algebraic-entry) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1033 (define-key map "$" 'calc-auto-algebraic-entry) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1034 (define-key map "\"" 'calc-auto-algebraic-entry) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1035 (define-key map "\t" 'calc-roll-down) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1036 (define-key map "\M-\t" 'calc-roll-up) |
104100
2afab32ae92d
(calc-mode-map): Add keybinding for `calc-transpose-lines'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
104010
diff
changeset
|
1037 (define-key map "\C-x\C-t" 'calc-transpose-lines) |
93880
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1038 (define-key map "\C-m" 'calc-enter) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1039 (define-key map "\M-\C-m" 'calc-last-args-stub) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1040 (define-key map "\C-j" 'calc-over) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1041 (define-key map "\C-y" 'calc-yank) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1042 (define-key map [mouse-2] 'calc-yank) |
97949
e763543ca817
(calc-dispatch-map): Fix handling of upcased and
Martin Rudalics <rudalics@gmx.at>
parents:
97465
diff
changeset
|
1043 |
93880
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1044 (mapc (lambda (x) (define-key map (char-to-string x) 'undefined)) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1045 "lOW") |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1046 (mapc (lambda (x) (define-key map (char-to-string x) 'calc-missing-key)) |
107889
3a236df3a739
calc.el (calc-mode-map): Bind O to 'calc-missing-key'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
107882
diff
changeset
|
1047 (concat "ABCDEFGHIJKLMNOPQRSTUVXZabcdfghjkmoprstuvwxyz" |
96219
6b5e14225482
(calc-mode-map): Add extra keybindings to `calc-missing-key'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
94901
diff
changeset
|
1048 ":\\|!()[]<>{},;=~`\C-k\C-w\C-_")) |
6b5e14225482
(calc-mode-map): Add extra keybindings to `calc-missing-key'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
94901
diff
changeset
|
1049 (define-key map "\M-w" 'calc-missing-key) |
6b5e14225482
(calc-mode-map): Add extra keybindings to `calc-missing-key'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
94901
diff
changeset
|
1050 (define-key map "\M-k" 'calc-missing-key) |
6b5e14225482
(calc-mode-map): Add extra keybindings to `calc-missing-key'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
94901
diff
changeset
|
1051 (define-key map "\M-\C-w" 'calc-missing-key) |
93880
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1052 (mapc (lambda (x) (define-key map (char-to-string x) 'calcDigit-start)) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1053 "_0123456789.#@") |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1054 map) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1055 "The key map for Calc.") |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1056 |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1057 (defvar calc-digit-map |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1058 (let ((map (make-keymap))) |
104726
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
1059 (map-keymap (lambda (key bind) |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
1060 (define-key map (vector key) |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
1061 (if (eq bind 'undefined) |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
1062 'undefined 'calcDigit-nondigit))) |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
1063 calc-mode-map) |
93880
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1064 (mapc (lambda (x) (define-key map (char-to-string x) 'calcDigit-key)) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1065 "_0123456789.e+-:n#@oh'\"mspM") |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1066 (mapc (lambda (x) (define-key map (char-to-string x) 'calcDigit-letter)) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1067 "abcdfgijklqrtuvwxyzABCDEFGHIJKLNOPQRSTUVWXYZ") |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1068 (define-key map "'" 'calcDigit-algebraic) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1069 (define-key map "`" 'calcDigit-edit) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1070 (define-key map "\C-g" 'abort-recursive-edit) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1071 map) |
93152
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
1072 "The key map for entering Calc digits.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
1073 |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
1074 (mapc (lambda (x) |
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
1075 (condition-case err |
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
1076 (progn |
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
1077 (define-key calc-digit-map x 'calcDigit-backspace) |
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
1078 (define-key calc-mode-map x 'calc-pop) |
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
1079 (define-key calc-mode-map |
104726
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
1080 (if (and (vectorp x) (featurep 'xemacs)) |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
1081 (if (= (length x) 1) |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
1082 (vector (if (consp (aref x 0)) |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
1083 (cons 'meta (aref x 0)) |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
1084 (list 'meta (aref x 0)))) |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
1085 "\e\C-d") |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
1086 (vconcat "\e" x)) |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
1087 'calc-pop-above)) |
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
1088 (error nil))) |
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
1089 (if calc-scan-for-dels |
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
1090 (append (where-is-internal 'delete-backward-char global-map) |
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
1091 (where-is-internal 'backward-delete-char global-map) |
86057
78d8c12b061b
Add `backward-delete-char-untabify' to the list of bindings to remap when
Noah Friedman <friedman@splode.com>
parents:
85762
diff
changeset
|
1092 (where-is-internal 'backward-delete-char-untabify global-map) |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
1093 '("\C-d")) |
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
1094 '("\177" "\C-d"))) |
40785 | 1095 |
93880
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1096 (defvar calc-dispatch-map |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1097 (let ((map (make-keymap))) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1098 (mapc (lambda (x) |
97949
e763543ca817
(calc-dispatch-map): Fix handling of upcased and
Martin Rudalics <rudalics@gmx.at>
parents:
97465
diff
changeset
|
1099 (let* ((x-chr (car x)) |
e763543ca817
(calc-dispatch-map): Fix handling of upcased and
Martin Rudalics <rudalics@gmx.at>
parents:
97465
diff
changeset
|
1100 (x-str (char-to-string x-chr)) |
e763543ca817
(calc-dispatch-map): Fix handling of upcased and
Martin Rudalics <rudalics@gmx.at>
parents:
97465
diff
changeset
|
1101 (x-def (cdr x))) |
e763543ca817
(calc-dispatch-map): Fix handling of upcased and
Martin Rudalics <rudalics@gmx.at>
parents:
97465
diff
changeset
|
1102 (define-key map x-str x-def) |
e763543ca817
(calc-dispatch-map): Fix handling of upcased and
Martin Rudalics <rudalics@gmx.at>
parents:
97465
diff
changeset
|
1103 (when (string-match "[a-z]" x-str) |
e763543ca817
(calc-dispatch-map): Fix handling of upcased and
Martin Rudalics <rudalics@gmx.at>
parents:
97465
diff
changeset
|
1104 ;; Map upper case char to same definition. |
e763543ca817
(calc-dispatch-map): Fix handling of upcased and
Martin Rudalics <rudalics@gmx.at>
parents:
97465
diff
changeset
|
1105 (define-key map (upcase x-str) x-def) |
e763543ca817
(calc-dispatch-map): Fix handling of upcased and
Martin Rudalics <rudalics@gmx.at>
parents:
97465
diff
changeset
|
1106 (unless (string-match "[gmv]" x-str) |
e763543ca817
(calc-dispatch-map): Fix handling of upcased and
Martin Rudalics <rudalics@gmx.at>
parents:
97465
diff
changeset
|
1107 ;; Map control prefixed char to same definition. |
e763543ca817
(calc-dispatch-map): Fix handling of upcased and
Martin Rudalics <rudalics@gmx.at>
parents:
97465
diff
changeset
|
1108 (define-key map (vector (list 'control x-chr)) x-def))) |
e763543ca817
(calc-dispatch-map): Fix handling of upcased and
Martin Rudalics <rudalics@gmx.at>
parents:
97465
diff
changeset
|
1109 (define-key map (format "\e%c" x-chr) x-def))) |
93880
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1110 '( ( ?a . calc-embedded-activate ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1111 ( ?b . calc-big-or-small ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1112 ( ?c . calc ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1113 ( ?d . calc-embedded-duplicate ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1114 ( ?e . calc-embedded ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1115 ( ?f . calc-embedded-new-formula ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1116 ( ?g . calc-grab-region ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1117 ( ?h . calc-dispatch-help ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1118 ( ?i . calc-info ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1119 ( ?j . calc-embedded-select ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1120 ( ?k . calc-keypad ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1121 ( ?l . calc-load-everything ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1122 ( ?m . read-kbd-macro ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1123 ( ?n . calc-embedded-next ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1124 ( ?o . calc-other-window ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1125 ( ?p . calc-embedded-previous ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1126 ( ?q . quick-calc ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1127 ( ?r . calc-grab-rectangle ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1128 ( ?s . calc-info-summary ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1129 ( ?t . calc-tutorial ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1130 ( ?u . calc-embedded-update-formula ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1131 ( ?w . calc-embedded-word ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1132 ( ?x . calc-quit ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1133 ( ?y . calc-copy-to-buffer ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1134 ( ?z . calc-user-invocation ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1135 ( ?\' . calc-embedded-new-formula ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1136 ( ?\` . calc-embedded-edit ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1137 ( ?: . calc-grab-sum-down ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1138 ( ?_ . calc-grab-sum-across ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1139 ( ?0 . calc-reset ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1140 ( ?? . calc-dispatch-help ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1141 ( ?# . calc-same-interface ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1142 ( ?& . calc-same-interface ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1143 ( ?\\ . calc-same-interface ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1144 ( ?= . calc-same-interface ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1145 ( ?* . calc-same-interface ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1146 ( ?/ . calc-same-interface ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1147 ( ?+ . calc-same-interface ) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1148 ( ?- . calc-same-interface ) )) |
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1149 map) |
93152
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
1150 "The key map for starting Calc.") |
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
1151 |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
1152 |
40785 | 1153 ;;;; (Autoloads here) |
93880
c6152337e4ad
* calc/calc.el: Load "cal-loaddefs" rather than set up autoloads manually.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93474
diff
changeset
|
1154 (load "calc-loaddefs.el" nil t) |
40785 | 1155 |
67189
50f4df2d357a
Change global keybinding for calc-dispatch to "\C-x*"
Jay Belanger <jay.p.belanger@gmail.com>
parents:
66865
diff
changeset
|
1156 ;;;###autoload (define-key ctl-x-map "*" 'calc-dispatch) |
40785 | 1157 |
1158 ;;;###autoload | |
1159 (defun calc-dispatch (&optional arg) | |
41270
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1160 "Invoke the GNU Emacs Calculator. See `calc-dispatch-help' for details." |
40785 | 1161 (interactive "P") |
72838
33d86144989f
(calc-dispatch): Remove unnecessary `sit-for'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
72036
diff
changeset
|
1162 ; (sit-for echo-keystrokes) |
40785 | 1163 (condition-case err ; look for other keys bound to calc-dispatch |
1164 (let ((keys (this-command-keys))) | |
45769 | 1165 (unless (or (not (stringp keys)) |
1166 (string-match "\\`\C-u\\|\\`\e[-0-9#]\\|`[\M--\M-0-\M-9]" keys) | |
1167 (eq (lookup-key calc-dispatch-map keys) 'calc-same-interface)) | |
1168 (when (and (string-match "\\`[\C-@-\C-_]" keys) | |
1169 (symbolp | |
1170 (lookup-key calc-dispatch-map (substring keys 0 1)))) | |
1171 (define-key calc-dispatch-map (substring keys 0 1) nil)) | |
1172 (define-key calc-dispatch-map keys 'calc-same-interface))) | |
40785 | 1173 (error nil)) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1174 (calc-do-dispatch arg)) |
40785 | 1175 |
41270
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1176 (defvar calc-dispatch-help nil) |
40785 | 1177 (defun calc-do-dispatch (arg) |
93152
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
1178 "Start the Calculator." |
40785 | 1179 (let ((key (calc-read-key-sequence |
1180 (if calc-dispatch-help | |
1181 "Calc options: Calc, Keypad, Quick, Embed; eXit; Info, Tutorial; Grab; ?=more" | |
1182 (format "%s (Type ? for a list of Calc options)" | |
1183 (key-description (this-command-keys)))) | |
1184 calc-dispatch-map))) | |
1185 (setq key (lookup-key calc-dispatch-map key)) | |
1186 (message "") | |
1187 (if key | |
1188 (progn | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
1189 (or (commandp key) (require 'calc-ext)) |
40785 | 1190 (call-interactively key)) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1191 (beep)))) |
40785 | 1192 |
1193 (defun calc-read-key-sequence (prompt map) | |
93152
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
1194 "Read keys, with prompt PROMPT and keymap MAP." |
40785 | 1195 (let ((prompt2 (format "%s " (key-description (this-command-keys)))) |
1196 (glob (current-global-map)) | |
1197 (loc (current-local-map))) | |
87170
e50a2e215441
* erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents:
86931
diff
changeset
|
1198 (or (input-pending-p) (message "%s" prompt)) |
40785 | 1199 (let ((key (calc-read-key t))) |
1200 (calc-unread-command (cdr key)) | |
1201 (unwind-protect | |
1202 (progn | |
1203 (use-global-map map) | |
1204 (use-local-map nil) | |
58730
58d50d1b56ac
(calc-read-key-sequence): Leave message visible.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58680
diff
changeset
|
1205 (read-key-sequence nil)) |
40785 | 1206 (use-global-map glob) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1207 (use-local-map loc))))) |
40785 | 1208 |
62836
4b90639651ef
(calc-alg-map): Declare it.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62805
diff
changeset
|
1209 (defvar calc-alg-map) ; Defined in calc-ext.el |
40785 | 1210 |
102789
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1211 |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1212 (defvar calc-embedded-modes) ; Defined in calc-embed.el |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1213 (defvar calc-override-minor-modes) ; Defined in calc-embed.el |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1214 (defun calc-kill-stack-buffer () |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1215 "Check to see if user wants to kill the Calc stack buffer. |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1216 This will look for buffers using the Calc buffer for embedded mode, |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1217 and inform the user if there are any. |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1218 If the user wants to kill the Calc buffer, this will remove |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1219 embedded information from the appropriate buffers and tidy up |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1220 the trail buffer." |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1221 (let ((cb (current-buffer)) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1222 (info-list nil) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1223 (buflist) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1224 ; (plural nil) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1225 (cea calc-embedded-active)) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1226 ;; Get a list of all buffers using this buffer for |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1227 ;; embedded Calc. |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1228 (while cea |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1229 (when (and (eq cb (aref (nth 1 (car cea)) 1)) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1230 (buffer-name (car (car cea)))) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1231 (setq info-list (cons (car cea) info-list))) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1232 (setq cea (cdr cea))) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1233 ;; Eventually, prompt user with a list of buffers using embedded mode. |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1234 (when (and |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1235 info-list |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1236 (yes-or-no-p |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1237 (concat "This Calc stack is being used for embedded mode. Kill anyway?"))) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1238 (while info-list |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1239 (with-current-buffer (car (car info-list)) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1240 (when calc-embedded-info |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1241 (setq calc-embedded-info nil |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1242 mode-line-buffer-identification (car calc-embedded-modes) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1243 truncate-lines (nth 2 calc-embedded-modes) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1244 buffer-read-only nil) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1245 (use-local-map (nth 1 calc-embedded-modes)) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1246 (setq minor-mode-overriding-map-alist |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1247 (remq calc-override-minor-modes minor-mode-overriding-map-alist)) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1248 (let ((str mode-line-buffer-identification)) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1249 (setq mode-line-buffer-identification str)) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1250 (set-buffer-modified-p (buffer-modified-p)))) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1251 (setq calc-embedded-active |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1252 (delete (car info-list) calc-embedded-active)) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1253 (setq info-list (cdr info-list)))) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1254 (if (not info-list) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1255 (progn |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1256 (setq calc-buffer-list (delete cb calc-buffer-list)) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1257 (with-current-buffer calc-trail-buffer |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1258 (if (eq cb calc-main-buffer) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1259 ;; If there are other Calc stacks, make another one |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1260 ;; the calc-main-buffer ... |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1261 (if calc-buffer-list |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1262 (setq calc-main-buffer (car calc-buffer-list)) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1263 ;; ... otherwise kill the trail and its windows. |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1264 (let ((wl (get-buffer-window-list calc-trail-buffer))) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1265 (while wl |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1266 (delete-window (car wl)) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1267 (setq wl (cdr wl)))) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1268 (kill-buffer calc-trail-buffer) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1269 (setq calc-trail-buffer nil)))) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1270 t)))) |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1271 |
40785 | 1272 (defun calc-mode () |
1273 "Calculator major mode. | |
1274 | |
1275 This is an RPN calculator featuring arbitrary-precision integer, rational, | |
1276 floating-point, complex, matrix, and symbolic arithmetic. | |
1277 | |
1278 RPN calculation: 2 RET 3 + produces 5. | |
1279 Algebraic style: ' 2+3 RET produces 5. | |
1280 | |
1281 Basic operators are +, -, *, /, ^, & (reciprocal), % (modulo), n (change-sign). | |
1282 | |
1283 Press ? repeatedly for more complete help. Press `h i' to read the | |
1284 Calc manual on-line, `h s' to read the summary, or `h t' for the tutorial. | |
1285 | |
1286 Notations: 3.14e6 3.14 * 10^6 | |
1287 _23 negative number -23 (or type `23 n') | |
1288 17:3 the fraction 17/3 | |
1289 5:2:3 the fraction 5 and 2/3 | |
1290 16#12C the integer 12C base 16 = 300 base 10 | |
1291 8#177:100 the fraction 177:100 base 8 = 127:64 base 10 | |
1292 (2, 4) complex number 2 + 4i | |
1293 (2; 4) polar complex number (r; theta) | |
1294 [1, 2, 3] vector ([[1, 2], [3, 4]] is a matrix) | |
1295 [1 .. 4) semi-open interval, 1 <= x < 4 | |
1296 2 +/- 3 (p key) number with mean 2, standard deviation 3 | |
1297 2 mod 3 (M key) number 2 computed modulo 3 | |
1298 <1 jan 91> Date form (enter using ' key) | |
1299 | |
1300 | |
1301 \\{calc-mode-map} | |
1302 " | |
1303 (interactive) | |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
1304 (mapc (function |
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
1305 (lambda (v) (set-default v (symbol-value v)))) calc-local-var-list) |
40785 | 1306 (kill-all-local-variables) |
1307 (use-local-map (if (eq calc-algebraic-mode 'total) | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
1308 (progn (require 'calc-ext) calc-alg-map) calc-mode-map)) |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
1309 (mapc (function (lambda (v) (make-local-variable v))) calc-local-var-list) |
40785 | 1310 (make-local-variable 'overlay-arrow-position) |
1311 (make-local-variable 'overlay-arrow-string) | |
47539
663c306c80c6
(calc-mode): Add font-lock-defontify to change-major-mode-hook.
Colin Walters <walters@gnu.org>
parents:
46807
diff
changeset
|
1312 (add-hook 'change-major-mode-hook 'font-lock-defontify nil t) |
102789
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1313 (add-hook 'kill-buffer-query-functions |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1314 'calc-kill-stack-buffer |
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1315 t t) |
40785 | 1316 (setq truncate-lines t) |
1317 (setq buffer-read-only t) | |
1318 (setq major-mode 'calc-mode) | |
1319 (setq mode-name "Calculator") | |
1320 (setq calc-stack-top (length (or (memq (assq 'top-of-stack calc-stack) | |
1321 calc-stack) | |
1322 (setq calc-stack (list (list 'top-of-stack | |
1323 1 nil)))))) | |
1324 (setq calc-stack-top (- (length calc-stack) calc-stack-top -1)) | |
1325 (or calc-loaded-settings-file | |
41270
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1326 (null calc-settings-file) |
57117
d2ffbe58525c
(calc-mode): Compare `calc-settings-file' to `user-init-file' rather
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57115
diff
changeset
|
1327 (equal calc-settings-file user-init-file) |
40785 | 1328 (progn |
1329 (setq calc-loaded-settings-file t) | |
59424
1c4ad61afb54
(calc-mode): Remove the extension from `calc-settings-file' for loading.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
59416
diff
changeset
|
1330 (load (file-name-sans-extension calc-settings-file) t))) ; t = missing-ok |
40785 | 1331 (let ((p command-line-args)) |
1332 (while p | |
1333 (and (equal (car p) "-f") | |
1334 (string-match "calc" (nth 1 p)) | |
1335 (string-match "full" (nth 1 p)) | |
1336 (setq calc-standalone-flag t)) | |
1337 (setq p (cdr p)))) | |
86076
41d5d55ebca0
(calc-mode): Require calc-menu.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
86057
diff
changeset
|
1338 (require 'calc-menu) |
62749
3848ecb8352f
(calc-mode, calc-trail-mode): Use run-mode-hooks.
Lute Kamstra <lute@gnu.org>
parents:
62442
diff
changeset
|
1339 (run-mode-hooks 'calc-mode-hook) |
40785 | 1340 (calc-refresh t) |
1341 (calc-set-mode-line) | |
102789
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1342 (calc-check-defines) |
103084
70bd50ad24da
(calc-mode): Replace `copy-list' with `copy-sequence'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
103074
diff
changeset
|
1343 (if calc-buffer-list (setq calc-stack (copy-sequence calc-stack))) |
102789
9b97f51b2e82
(calc-buffer-list): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
101013
diff
changeset
|
1344 (add-to-list 'calc-buffer-list (current-buffer) t)) |
40785 | 1345 |
41270
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1346 (defvar calc-check-defines 'calc-check-defines) ; suitable for run-hooks |
40785 | 1347 (defun calc-check-defines () |
1348 (if (symbol-plist 'calc-define) | |
1349 (let ((plist (copy-sequence (symbol-plist 'calc-define)))) | |
1350 (while (and plist (null (nth 1 plist))) | |
1351 (setq plist (cdr (cdr plist)))) | |
1352 (if plist | |
1353 (save-excursion | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
1354 (require 'calc-ext) |
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
1355 (require 'calc-macs) |
40785 | 1356 (set-buffer "*Calculator*") |
1357 (while plist | |
1358 (put 'calc-define (car plist) nil) | |
1359 (eval (nth 1 plist)) | |
1360 (setq plist (cdr (cdr plist)))) | |
1361 ;; See if this has added any more calc-define properties. | |
1362 (calc-check-defines)) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1363 (setplist 'calc-define nil))))) |
40785 | 1364 |
1365 (defun calc-trail-mode (&optional buf) | |
1366 "Calc Trail mode. | |
1367 This mode is used by the *Calc Trail* buffer, which records all results | |
1368 obtained by the GNU Emacs Calculator. | |
1369 | |
1370 Calculator commands beginning with the `t' key are used to manipulate | |
1371 the Trail. | |
1372 | |
1373 This buffer uses the same key map as the *Calculator* buffer; calculator | |
1374 commands given here will actually operate on the *Calculator* stack." | |
1375 (interactive) | |
1376 (fundamental-mode) | |
1377 (use-local-map calc-mode-map) | |
1378 (setq major-mode 'calc-trail-mode) | |
1379 (setq mode-name "Calc Trail") | |
1380 (setq truncate-lines t) | |
1381 (setq buffer-read-only t) | |
1382 (make-local-variable 'overlay-arrow-position) | |
1383 (make-local-variable 'overlay-arrow-string) | |
45769 | 1384 (when buf |
1385 (set (make-local-variable 'calc-main-buffer) buf)) | |
1386 (when (= (buffer-size) 0) | |
1387 (let ((buffer-read-only nil)) | |
77254
8807d7eac608
(calc-trail-mode): Shorten the title.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
76595
diff
changeset
|
1388 (insert (propertize (concat "Emacs Calculator Trail\n") |
45769 | 1389 'font-lock-face 'italic)))) |
62749
3848ecb8352f
(calc-mode, calc-trail-mode): Use run-mode-hooks.
Lute Kamstra <lute@gnu.org>
parents:
62442
diff
changeset
|
1390 (run-mode-hooks 'calc-trail-mode-hook)) |
40785 | 1391 |
1392 (defun calc-create-buffer () | |
93152
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
1393 "Create and initialize a buffer for the Calculator." |
40785 | 1394 (set-buffer (get-buffer-create "*Calculator*")) |
1395 (or (eq major-mode 'calc-mode) | |
1396 (calc-mode)) | |
1397 (setq max-lisp-eval-depth (max max-lisp-eval-depth 1000)) | |
45769 | 1398 (when calc-always-load-extensions |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
1399 (require 'calc-ext)) |
45769 | 1400 (when calc-language |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
1401 (require 'calc-ext) |
45769 | 1402 (calc-set-language calc-language calc-language-option t))) |
40785 | 1403 |
1404 ;;;###autoload | |
1405 (defun calc (&optional arg full-display interactive) | |
1406 "The Emacs Calculator. Full documentation is listed under \"calc-mode\"." | |
57710
a18ff071e655
(calc,full-calc, calc-quit, calc-keypad, full-calc-keypad)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57591
diff
changeset
|
1407 (interactive "P\ni\np") |
40785 | 1408 (if arg |
45769 | 1409 (unless (eq arg 0) |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
1410 (require 'calc-ext) |
45769 | 1411 (if (= (prefix-numeric-value arg) -1) |
1412 (calc-grab-region (region-beginning) (region-end) nil) | |
1413 (when (= (prefix-numeric-value arg) -2) | |
1414 (calc-keypad)))) | |
1415 (when (get-buffer-window "*Calc Keypad*") | |
1416 (calc-keypad) | |
1417 (set-buffer (window-buffer (selected-window)))) | |
40785 | 1418 (if (eq major-mode 'calc-mode) |
1419 (calc-quit) | |
1420 (let ((oldbuf (current-buffer))) | |
1421 (calc-create-buffer) | |
1422 (setq calc-was-keypad-mode nil) | |
1423 (if (or (eq full-display t) | |
1424 (and (null full-display) calc-full-mode)) | |
1425 (switch-to-buffer (current-buffer) t) | |
1426 (if (get-buffer-window (current-buffer)) | |
1427 (select-window (get-buffer-window (current-buffer))) | |
62911
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
1428 (if calc-window-hook |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
1429 (run-hooks 'calc-window-hook) |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
1430 (let ((w (get-largest-window))) |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
1431 (if (and pop-up-windows |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
1432 (> (window-height w) |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
1433 (+ window-min-height calc-window-height 2))) |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
1434 (progn |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
1435 (setq w (split-window w |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
1436 (- (window-height w) |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
1437 calc-window-height 2) |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
1438 nil)) |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
1439 (set-window-buffer w (current-buffer)) |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
1440 (select-window w)) |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
1441 (pop-to-buffer (current-buffer))))))) |
105792
2c12fbae77c2
* calc/calc.el (calc, calc-refresh, calc-trail-buffer, calc-record)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105713
diff
changeset
|
1442 (with-current-buffer (calc-trail-buffer) |
40785 | 1443 (and calc-display-trail |
40999
d5ccdce87268
Use `frame-width' instead of `screen-width',
Eli Zaretskii <eliz@gnu.org>
parents:
40911
diff
changeset
|
1444 (= (window-width) (frame-width)) |
40785 | 1445 (calc-trail-display 1 t))) |
41270
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1446 (message "Welcome to the GNU Emacs Calculator! Press `?' or `h' for help, `q' to quit") |
40785 | 1447 (run-hooks 'calc-start-hook) |
1448 (and (windowp full-display) | |
1449 (window-point full-display) | |
1450 (select-window full-display)) | |
1451 (calc-check-defines) | |
57710
a18ff071e655
(calc,full-calc, calc-quit, calc-keypad, full-calc-keypad)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57591
diff
changeset
|
1452 (when (and calc-said-hello interactive) |
45769 | 1453 (sit-for 2) |
1454 (message "")) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1455 (setq calc-said-hello t))))) |
40785 | 1456 |
1457 ;;;###autoload | |
57710
a18ff071e655
(calc,full-calc, calc-quit, calc-keypad, full-calc-keypad)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57591
diff
changeset
|
1458 (defun full-calc (&optional interactive) |
40785 | 1459 "Invoke the Calculator and give it a full-sized window." |
57710
a18ff071e655
(calc,full-calc, calc-quit, calc-keypad, full-calc-keypad)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57591
diff
changeset
|
1460 (interactive "p") |
a18ff071e655
(calc,full-calc, calc-quit, calc-keypad, full-calc-keypad)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57591
diff
changeset
|
1461 (calc nil t interactive)) |
40785 | 1462 |
1463 (defun calc-same-interface (arg) | |
1464 "Invoke the Calculator using the most recent interface (calc or calc-keypad)." | |
1465 (interactive "P") | |
1466 (if (and (equal (buffer-name) "*Gnuplot Trail*") | |
1467 (> (recursion-depth) 0)) | |
1468 (exit-recursive-edit) | |
1469 (if (eq major-mode 'calc-edit-mode) | |
1470 (calc-edit-finish arg) | |
59228
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1471 (if calc-was-keypad-mode |
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1472 (calc-keypad) |
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1473 (calc arg calc-full-mode t))))) |
40785 | 1474 |
57710
a18ff071e655
(calc,full-calc, calc-quit, calc-keypad, full-calc-keypad)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57591
diff
changeset
|
1475 (defun calc-quit (&optional non-fatal interactive) |
93152
e0b881dce3f9
(calc-was-keypad-mode, calc-full-mode, calc-user-parse-tables)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
93087
diff
changeset
|
1476 "Quit the Calculator in an appropriate manner." |
57710
a18ff071e655
(calc,full-calc, calc-quit, calc-keypad, full-calc-keypad)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57591
diff
changeset
|
1477 (interactive "i\np") |
40785 | 1478 (and calc-standalone-flag (not non-fatal) |
1479 (save-buffers-kill-emacs nil)) | |
1480 (if (and (equal (buffer-name) "*Gnuplot Trail*") | |
1481 (> (recursion-depth) 0)) | |
1482 (exit-recursive-edit)) | |
1483 (if (eq major-mode 'calc-edit-mode) | |
1484 (calc-edit-cancel) | |
59228
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1485 (if (and interactive |
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1486 calc-embedded-info |
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1487 (eq (current-buffer) (aref calc-embedded-info 0))) |
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1488 (calc-embedded nil) |
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1489 (unless (eq major-mode 'calc-mode) |
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1490 (calc-create-buffer)) |
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1491 (run-hooks 'calc-end-hook) |
104010
671cf7805a1e
(calc-undo-length): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
103084
diff
changeset
|
1492 (if (integerp calc-undo-length) |
671cf7805a1e
(calc-undo-length): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
103084
diff
changeset
|
1493 (cond |
671cf7805a1e
(calc-undo-length): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
103084
diff
changeset
|
1494 ((= calc-undo-length 0) |
671cf7805a1e
(calc-undo-length): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
103084
diff
changeset
|
1495 (setq calc-undo-list nil calc-redo-list nil)) |
671cf7805a1e
(calc-undo-length): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
103084
diff
changeset
|
1496 ((> calc-undo-length 0) |
671cf7805a1e
(calc-undo-length): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
103084
diff
changeset
|
1497 (let ((tail (nthcdr (1- calc-undo-length) calc-undo-list))) |
671cf7805a1e
(calc-undo-length): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
103084
diff
changeset
|
1498 (if tail (setcdr tail nil))) |
671cf7805a1e
(calc-undo-length): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
103084
diff
changeset
|
1499 (setq calc-redo-list nil)))) |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
1500 (mapc (function (lambda (v) (set-default v (symbol-value v)))) |
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
1501 calc-local-var-list) |
59228
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1502 (let ((buf (current-buffer)) |
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1503 (win (get-buffer-window (current-buffer))) |
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1504 (kbuf (get-buffer "*Calc Keypad*"))) |
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1505 (delete-windows-on (calc-trail-buffer)) |
99400
b0dc8618a597
(calc-quit): Use `window-full-width-p' to check window width.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99391
diff
changeset
|
1506 ;; The next few lines will set `calc-window-height' so that the |
b0dc8618a597
(calc-quit): Use `window-full-width-p' to check window width.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99391
diff
changeset
|
1507 ;; next time Calc is called, the window will be the same size |
b0dc8618a597
(calc-quit): Use `window-full-width-p' to check window width.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99391
diff
changeset
|
1508 ;; as the current window. |
59228
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1509 (if (and win |
105478 | 1510 (not (window-full-height-p win)) |
99400
b0dc8618a597
(calc-quit): Use `window-full-width-p' to check window width.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
99391
diff
changeset
|
1511 (window-full-width-p win) ; avoid calc-keypad |
59228
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1512 (not (get-buffer-window "*Calc Keypad*"))) |
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1513 (setq calc-window-height (- (window-height win) 2))) |
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1514 (progn |
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1515 (delete-windows-on buf) |
99391
d33ec2dc14a6
(calc-quit): Make sure that the keypad buffer exists before delete its windows.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
98602
diff
changeset
|
1516 (and kbuf (delete-windows-on kbuf))) |
59228
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1517 (bury-buffer buf) |
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1518 (bury-buffer calc-trail-buffer) |
30ee5fc56ad0
(calc-same-interface, calc-quit): Remove obsolete MacEdit code.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58842
diff
changeset
|
1519 (and kbuf (bury-buffer kbuf)))))) |
40785 | 1520 |
1521 ;;;###autoload | |
1522 (defun quick-calc () | |
1523 "Do a quick calculation in the minibuffer without invoking full Calculator." | |
1524 (interactive) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1525 (calc-do-quick-calc)) |
40785 | 1526 |
1527 ;;;###autoload | |
1528 (defun calc-eval (str &optional separator &rest args) | |
1529 "Do a quick calculation and return the result as a string. | |
1530 Return value will either be the formatted result in string form, | |
1531 or a list containing a character position and an error message in string form." | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1532 (calc-do-calc-eval str separator args)) |
40785 | 1533 |
1534 ;;;###autoload | |
57710
a18ff071e655
(calc,full-calc, calc-quit, calc-keypad, full-calc-keypad)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57591
diff
changeset
|
1535 (defun calc-keypad (&optional interactive) |
40785 | 1536 "Invoke the Calculator in \"visual keypad\" mode. |
1537 This is most useful in the X window system. | |
1538 In this mode, click on the Calc \"buttons\" using the left mouse button. | |
1539 Or, position the cursor manually and do M-x calc-keypad-press." | |
57710
a18ff071e655
(calc,full-calc, calc-quit, calc-keypad, full-calc-keypad)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57591
diff
changeset
|
1540 (interactive "p") |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
1541 (require 'calc-ext) |
57710
a18ff071e655
(calc,full-calc, calc-quit, calc-keypad, full-calc-keypad)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57591
diff
changeset
|
1542 (calc-do-keypad calc-full-mode interactive)) |
40785 | 1543 |
1544 ;;;###autoload | |
57710
a18ff071e655
(calc,full-calc, calc-quit, calc-keypad, full-calc-keypad)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57591
diff
changeset
|
1545 (defun full-calc-keypad (&optional interactive) |
40785 | 1546 "Invoke the Calculator in full-screen \"visual keypad\" mode. |
1547 See calc-keypad for details." | |
57710
a18ff071e655
(calc,full-calc, calc-quit, calc-keypad, full-calc-keypad)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57591
diff
changeset
|
1548 (interactive "p") |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
1549 (require 'calc-ext) |
57710
a18ff071e655
(calc,full-calc, calc-quit, calc-keypad, full-calc-keypad)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57591
diff
changeset
|
1550 (calc-do-keypad t interactive)) |
40785 | 1551 |
1552 | |
41270
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1553 (defvar calc-aborted-prefix nil) |
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1554 (defvar calc-start-time nil) |
106883
e1a2be550f0e
Give `calc-command-flags' an initial value.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
106815
diff
changeset
|
1555 (defvar calc-command-flags nil) |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
1556 (defvar calc-final-point-line) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
1557 (defvar calc-final-point-column) |
40785 | 1558 ;;; Note that modifications to this function may break calc-pass-errors. |
1559 (defun calc-do (do-body &optional do-slow) | |
1560 (calc-check-defines) | |
1561 (let* ((calc-command-flags nil) | |
1562 (calc-start-time (and calc-timing (not calc-start-time) | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
1563 (require 'calc-ext) |
40785 | 1564 (current-time-string))) |
1565 (gc-cons-threshold (max gc-cons-threshold | |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
1566 (if calc-timing 2000000 100000))) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
1567 calc-final-point-line calc-final-point-column) |
40785 | 1568 (setq calc-aborted-prefix "") |
1569 (unwind-protect | |
1570 (condition-case err | |
1571 (save-excursion | |
1572 (if calc-embedded-info | |
1573 (calc-embedded-select-buffer) | |
1574 (calc-select-buffer)) | |
1575 (and (eq calc-algebraic-mode 'total) | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
1576 (require 'calc-ext) |
40785 | 1577 (use-local-map calc-alg-map)) |
41270
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1578 (when (and do-slow calc-display-working-message) |
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1579 (message "Working...") |
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1580 (calc-set-command-flag 'clear-message)) |
40785 | 1581 (funcall do-body) |
1582 (setq calc-aborted-prefix nil) | |
41270
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1583 (when (memq 'renum-stack calc-command-flags) |
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1584 (calc-renumber-stack)) |
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1585 (when (memq 'clear-message calc-command-flags) |
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1586 (message ""))) |
40785 | 1587 (error |
1588 (if (and (eq (car err) 'error) | |
1589 (stringp (nth 1 err)) | |
1590 (string-match "max-specpdl-size\\|max-lisp-eval-depth" | |
1591 (nth 1 err))) | |
41270
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1592 (error "Computation got stuck or ran too long. Type `M' to increase the limit") |
40785 | 1593 (setq calc-aborted-prefix nil) |
1594 (signal (car err) (cdr err))))) | |
41270
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1595 (when calc-aborted-prefix |
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1596 (calc-record "<Aborted>" calc-aborted-prefix)) |
40785 | 1597 (and calc-start-time |
1598 (let* ((calc-internal-prec 12) | |
1599 (calc-date-format nil) | |
1600 (end-time (current-time-string)) | |
1601 (time (if (equal calc-start-time end-time) | |
1602 0 | |
1603 (math-sub | |
1604 (calcFunc-unixtime (math-parse-date end-time) 0) | |
1605 (calcFunc-unixtime (math-parse-date calc-start-time) | |
1606 0))))) | |
1607 (if (math-lessp 1 time) | |
1608 (calc-record time "(t)")))) | |
1609 (or (memq 'no-align calc-command-flags) | |
1610 (eq major-mode 'calc-trail-mode) | |
1611 (calc-align-stack-window)) | |
1612 (and (memq 'position-point calc-command-flags) | |
1613 (if (eq major-mode 'calc-mode) | |
1614 (progn | |
104543
da8b3e61b182
Use forward-line rather than goto-line.
Glenn Morris <rgm@gnu.org>
parents:
104174
diff
changeset
|
1615 (goto-char (point-min)) |
da8b3e61b182
Use forward-line rather than goto-line.
Glenn Morris <rgm@gnu.org>
parents:
104174
diff
changeset
|
1616 (forward-line (1- calc-final-point-line)) |
40785 | 1617 (move-to-column calc-final-point-column)) |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
1618 (save-current-buffer |
40785 | 1619 (calc-select-buffer) |
104543
da8b3e61b182
Use forward-line rather than goto-line.
Glenn Morris <rgm@gnu.org>
parents:
104174
diff
changeset
|
1620 (goto-char (point-min)) |
da8b3e61b182
Use forward-line rather than goto-line.
Glenn Morris <rgm@gnu.org>
parents:
104174
diff
changeset
|
1621 (forward-line (1- calc-final-point-line)) |
40785 | 1622 (move-to-column calc-final-point-column)))) |
41270
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1623 (unless (memq 'keep-flags calc-command-flags) |
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1624 (save-excursion |
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1625 (calc-select-buffer) |
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1626 (setq calc-inverse-flag nil |
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1627 calc-hyperbolic-flag nil |
107882
9b67d5035af2
* calc-ext.el (calc-init-extensions): Add keybinding for 'calc-option'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
106883
diff
changeset
|
1628 calc-option-flag nil |
41270
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1629 calc-keep-args-flag nil))) |
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1630 (when (memq 'do-edit calc-command-flags) |
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1631 (switch-to-buffer (get-buffer-create "*Calc Edit*"))) |
40785 | 1632 (calc-set-mode-line) |
41270
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1633 (when calc-embedded-info |
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1634 (calc-embedded-finish-command)))) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1635 (identity nil)) ; allow a GC after timing is done |
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1636 |
40785 | 1637 |
1638 (defun calc-set-command-flag (f) | |
41270
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1639 (unless (memq f calc-command-flags) |
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
1640 (setq calc-command-flags (cons f calc-command-flags)))) |
40785 | 1641 |
1642 (defun calc-select-buffer () | |
1643 (or (eq major-mode 'calc-mode) | |
1644 (if calc-main-buffer | |
1645 (set-buffer calc-main-buffer) | |
1646 (let ((buf (get-buffer "*Calculator*"))) | |
1647 (if buf | |
1648 (set-buffer buf) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1649 (error "Calculator buffer not available")))))) |
40785 | 1650 |
1651 (defun calc-cursor-stack-index (&optional index) | |
1652 (goto-char (point-max)) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1653 (forward-line (- (calc-substack-height (or index 1))))) |
40785 | 1654 |
1655 (defun calc-stack-size () | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1656 (- (length calc-stack) calc-stack-top)) |
40785 | 1657 |
1658 (defun calc-substack-height (n) | |
1659 (let ((sum 0) | |
1660 (stack calc-stack)) | |
1661 (setq n (+ n calc-stack-top)) | |
1662 (while (and (> n 0) stack) | |
1663 (setq sum (+ sum (nth 1 (car stack))) | |
1664 n (1- n) | |
1665 stack (cdr stack))) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1666 sum)) |
40785 | 1667 |
1668 (defun calc-set-mode-line () | |
1669 (save-excursion | |
1670 (calc-select-buffer) | |
1671 (let* ((fmt (car calc-float-format)) | |
1672 (figs (nth 1 calc-float-format)) | |
1673 (new-mode-string | |
1674 (format "Calc%s%s: %d %s %-14s" | |
103074
be74cb571117
(calc-set-mode-line): Check to make sure that the correct Calc buffer
Jay Belanger <jay.p.belanger@gmail.com>
parents:
102789
diff
changeset
|
1675 (if (and calc-embedded-info |
be74cb571117
(calc-set-mode-line): Check to make sure that the correct Calc buffer
Jay Belanger <jay.p.belanger@gmail.com>
parents:
102789
diff
changeset
|
1676 (eq (aref calc-embedded-info 1) (current-buffer))) |
be74cb571117
(calc-set-mode-line): Check to make sure that the correct Calc buffer
Jay Belanger <jay.p.belanger@gmail.com>
parents:
102789
diff
changeset
|
1677 "Embed" "") |
40785 | 1678 (if (and (> (length (buffer-name)) 12) |
1679 (equal (substring (buffer-name) 0 12) | |
1680 "*Calculator*")) | |
1681 (substring (buffer-name) 12) | |
1682 "") | |
1683 calc-internal-prec | |
1684 (capitalize (symbol-name calc-angle-mode)) | |
1685 (concat | |
1686 | |
1687 ;; Input-related modes | |
1688 (if (eq calc-algebraic-mode 'total) "Alg* " | |
1689 (if calc-algebraic-mode "Alg " | |
1690 (if calc-incomplete-algebraic-mode "Alg[( " ""))) | |
1691 | |
1692 ;; Computational modes | |
1693 (if calc-symbolic-mode "Symb " "") | |
1694 (cond ((eq calc-matrix-mode 'matrix) "Matrix ") | |
1695 ((integerp calc-matrix-mode) | |
1696 (format "Matrix%d " calc-matrix-mode)) | |
65989
1851d5f19b4f
(calc-matrix-mode, calc-set-mode-line): Change the mode name `square'
Jay Belanger <jay.p.belanger@gmail.com>
parents:
65903
diff
changeset
|
1697 ((eq calc-matrix-mode 'sqmatrix) "SqMatrix ") |
40785 | 1698 ((eq calc-matrix-mode 'scalar) "Scalar ") |
1699 (t "")) | |
1700 (if (eq calc-complex-mode 'polar) "Polar " "") | |
1701 (if calc-prefer-frac "Frac " "") | |
1702 (cond ((null calc-infinite-mode) "") | |
1703 ((eq calc-infinite-mode 1) "+Inf ") | |
1704 (t "Inf ")) | |
1705 (cond ((eq calc-simplify-mode 'none) "NoSimp ") | |
1706 ((eq calc-simplify-mode 'num) "NumSimp ") | |
1707 ((eq calc-simplify-mode 'binary) | |
1708 (format "BinSimp%d " calc-word-size)) | |
1709 ((eq calc-simplify-mode 'alg) "AlgSimp ") | |
1710 ((eq calc-simplify-mode 'ext) "ExtSimp ") | |
1711 ((eq calc-simplify-mode 'units) "UnitSimp ") | |
1712 (t "")) | |
1713 | |
1714 ;; Display modes | |
1715 (cond ((= calc-number-radix 10) "") | |
1716 ((= calc-number-radix 2) "Bin ") | |
1717 ((= calc-number-radix 8) "Oct ") | |
1718 ((= calc-number-radix 16) "Hex ") | |
1719 (t (format "Radix%d " calc-number-radix))) | |
106135
44eb0cd5515b
(calc-set-mode-line): Rename `calc-complement-signed-mode' to
Jay Belanger <jay.p.belanger@gmail.com>
parents:
106036
diff
changeset
|
1720 (if calc-twos-complement-mode "TwosComp " "") |
40785 | 1721 (if calc-leading-zeros "Zero " "") |
1722 (cond ((null calc-language) "") | |
87224
e26cf770952c
(calc-set-mode-line): Use `math-lang-name' to set language name.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
87170
diff
changeset
|
1723 ((get calc-language 'math-lang-name) |
e26cf770952c
(calc-set-mode-line): Use `math-lang-name' to set language name.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
87170
diff
changeset
|
1724 (concat (get calc-language 'math-lang-name) " ")) |
40785 | 1725 (t (concat |
1726 (capitalize (symbol-name calc-language)) | |
1727 " "))) | |
1728 (cond ((eq fmt 'float) | |
1729 (if (zerop figs) "" (format "Norm%d " figs))) | |
1730 ((eq fmt 'fix) (format "Fix%d " figs)) | |
1731 ((eq fmt 'sci) | |
1732 (if (zerop figs) "Sci " (format "Sci%d " figs))) | |
1733 ((eq fmt 'eng) | |
1734 (if (zerop figs) "Eng " (format "Eng%d " figs)))) | |
1735 (cond ((not calc-display-just) | |
1736 (if calc-display-origin | |
1737 (format "Left%d " calc-display-origin) "")) | |
1738 ((eq calc-display-just 'right) | |
1739 (if calc-display-origin | |
1740 (format "Right%d " calc-display-origin) | |
1741 "Right ")) | |
1742 (t | |
1743 (if calc-display-origin | |
1744 (format "Center%d " calc-display-origin) | |
1745 "Center "))) | |
1746 (cond ((integerp calc-line-breaking) | |
1747 (format "Wid%d " calc-line-breaking)) | |
1748 (calc-line-breaking "") | |
1749 (t "Wide ")) | |
1750 | |
1751 ;; Miscellaneous other modes/indicators | |
1752 (if calc-assoc-selections "" "Break ") | |
1753 (cond ((eq calc-mode-save-mode 'save) "Save ") | |
1754 ((not calc-embedded-info) "") | |
1755 ((eq calc-mode-save-mode 'local) "Local ") | |
1756 ((eq calc-mode-save-mode 'edit) "LocEdit ") | |
1757 ((eq calc-mode-save-mode 'perm) "LocPerm ") | |
1758 ((eq calc-mode-save-mode 'global) "Global ") | |
1759 (t "")) | |
1760 (if calc-auto-recompute "" "Manual ") | |
1761 (if (and (fboundp 'calc-gnuplot-alive) | |
1762 (calc-gnuplot-alive)) "Graph " "") | |
1763 (if (and calc-embedded-info | |
1764 (> (calc-stack-size) 0) | |
1765 (calc-top 1 'sel)) "Sel " "") | |
1766 (if calc-display-dirty "Dirty " "") | |
107882
9b67d5035af2
* calc-ext.el (calc-init-extensions): Add keybinding for 'calc-option'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
106883
diff
changeset
|
1767 (if calc-option-flag "Opt " "") |
40785 | 1768 (if calc-inverse-flag "Inv " "") |
1769 (if calc-hyperbolic-flag "Hyp " "") | |
1770 (if calc-keep-args-flag "Keep " "") | |
1771 (if (/= calc-stack-top 1) "Narrow " "") | |
1772 (apply 'concat calc-other-modes))))) | |
1773 (if (equal new-mode-string mode-line-buffer-identification) | |
1774 nil | |
1775 (setq mode-line-buffer-identification new-mode-string) | |
1776 (set-buffer-modified-p (buffer-modified-p)) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1777 (and calc-embedded-info (calc-embedded-mode-line-change)))))) |
40785 | 1778 |
1779 (defun calc-align-stack-window () | |
1780 (if (eq major-mode 'calc-mode) | |
1781 (progn | |
1782 (let ((win (get-buffer-window (current-buffer)))) | |
1783 (if win | |
1784 (progn | |
1785 (calc-cursor-stack-index 0) | |
1786 (vertical-motion (- 2 (window-height win))) | |
1787 (set-window-start win (point))))) | |
1788 (calc-cursor-stack-index 0) | |
1789 (if (looking-at " *\\.$") | |
1790 (goto-char (1- (match-end 0))))) | |
1791 (save-excursion | |
1792 (calc-select-buffer) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1793 (calc-align-stack-window)))) |
40785 | 1794 |
1795 (defun calc-check-stack (n) | |
1796 (if (> n (calc-stack-size)) | |
1797 (error "Too few elements on stack")) | |
1798 (if (< n 0) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1799 (error "Invalid argument"))) |
40785 | 1800 |
1801 (defun calc-push-list (vals &optional m sels) | |
1802 (while vals | |
1803 (if calc-executing-macro | |
1804 (calc-push-list-in-macro vals m sels) | |
1805 (save-excursion | |
1806 (calc-select-buffer) | |
1807 (let* ((val (car vals)) | |
1808 (entry (list val 1 (car sels))) | |
1809 (mm (+ (or m 1) calc-stack-top))) | |
1810 (calc-cursor-stack-index (1- (or m 1))) | |
1811 (if (> mm 1) | |
1812 (setcdr (nthcdr (- mm 2) calc-stack) | |
1813 (cons entry (nthcdr (1- mm) calc-stack))) | |
1814 (setq calc-stack (cons entry calc-stack))) | |
1815 (let ((buffer-read-only nil)) | |
1816 (insert (math-format-stack-value entry) "\n")) | |
1817 (calc-record-undo (list 'push mm)) | |
1818 (calc-set-command-flag 'renum-stack)))) | |
1819 (setq vals (cdr vals) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1820 sels (cdr sels)))) |
40785 | 1821 |
1822 (defun calc-pop-push-list (n vals &optional m sels) | |
1823 (if (and calc-any-selections (null sels)) | |
1824 (calc-replace-selections n vals m) | |
1825 (calc-pop-stack n m sels) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1826 (calc-push-list vals m sels))) |
40785 | 1827 |
1828 (defun calc-pop-push-record-list (n prefix vals &optional m sels) | |
1829 (or (and (consp vals) | |
1830 (or (integerp (car vals)) | |
1831 (consp (car vals)))) | |
1832 (and vals (setq vals (list vals) | |
1833 sels (and sels (list sels))))) | |
1834 (calc-check-stack (+ n (or m 1) -1)) | |
1835 (if prefix | |
1836 (if (cdr vals) | |
1837 (calc-record-list vals prefix) | |
1838 (calc-record (car vals) prefix))) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1839 (calc-pop-push-list n vals m sels)) |
40785 | 1840 |
1841 (defun calc-enter-result (n prefix vals &optional m) | |
1842 (setq calc-aborted-prefix prefix) | |
1843 (if (and (consp vals) | |
1844 (or (integerp (car vals)) | |
1845 (consp (car vals)))) | |
1846 (setq vals (mapcar 'calc-normalize vals)) | |
1847 (setq vals (calc-normalize vals))) | |
1848 (or (and (consp vals) | |
1849 (or (integerp (car vals)) | |
1850 (consp (car vals)))) | |
1851 (setq vals (list vals))) | |
1852 (if (equal vals '((nil))) | |
1853 (setq vals nil)) | |
1854 (calc-pop-push-record-list n prefix vals m) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1855 (calc-handle-whys)) |
40785 | 1856 |
1857 (defun calc-normalize (val) | |
1858 (if (memq calc-simplify-mode '(nil none num)) | |
1859 (math-normalize val) | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
1860 (require 'calc-ext) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1861 (calc-normalize-fancy val))) |
40785 | 1862 |
1863 (defun calc-handle-whys () | |
1864 (if calc-next-why | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1865 (calc-do-handle-whys))) |
40785 | 1866 |
1867 | |
1868 (defun calc-pop-stack (&optional n m sel-ok) ; pop N objs at level M of stack. | |
1869 (or n (setq n 1)) | |
1870 (or m (setq m 1)) | |
1871 (or calc-keep-args-flag | |
1872 (let ((mm (+ m calc-stack-top))) | |
1873 (if (and calc-any-selections (not sel-ok) | |
1874 (calc-top-selected n m)) | |
1875 (calc-sel-error)) | |
1876 (if calc-executing-macro | |
1877 (calc-pop-stack-in-macro n mm) | |
1878 (calc-record-undo (list 'pop mm (calc-top-list n m 'full))) | |
1879 (save-excursion | |
1880 (calc-select-buffer) | |
1881 (let ((buffer-read-only nil)) | |
1882 (if (> mm 1) | |
1883 (progn | |
1884 (calc-cursor-stack-index (1- m)) | |
1885 (let ((bot (point))) | |
1886 (calc-cursor-stack-index (+ n m -1)) | |
1887 (delete-region (point) bot)) | |
1888 (setcdr (nthcdr (- mm 2) calc-stack) | |
1889 (nthcdr (+ n mm -1) calc-stack))) | |
1890 (calc-cursor-stack-index n) | |
1891 (setq calc-stack (nthcdr n calc-stack)) | |
1892 (delete-region (point) (point-max)))) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1893 (calc-set-command-flag 'renum-stack)))))) |
40785 | 1894 |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
1895 (defvar sel-mode) |
40785 | 1896 (defun calc-get-stack-element (x) |
1897 (cond ((eq sel-mode 'entry) | |
1898 x) | |
1899 ((eq sel-mode 'sel) | |
1900 (nth 2 x)) | |
1901 ((or (null (nth 2 x)) | |
1902 (eq sel-mode 'full) | |
1903 (not calc-use-selections)) | |
1904 (car x)) | |
1905 (sel-mode | |
1906 (calc-sel-error)) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1907 (t (nth 2 x)))) |
40785 | 1908 |
1909 ;; Get the Nth element of the stack (N=1 is the top element). | |
1910 (defun calc-top (&optional n sel-mode) | |
1911 (or n (setq n 1)) | |
1912 (calc-check-stack n) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1913 (calc-get-stack-element (nth (+ n calc-stack-top -1) calc-stack))) |
40785 | 1914 |
1915 (defun calc-top-n (&optional n sel-mode) ; in case precision has changed | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1916 (math-check-complete (calc-normalize (calc-top n sel-mode)))) |
40785 | 1917 |
1918 (defun calc-top-list (&optional n m sel-mode) | |
1919 (or n (setq n 1)) | |
1920 (or m (setq m 1)) | |
1921 (calc-check-stack (+ n m -1)) | |
1922 (and (> n 0) | |
1923 (let ((top (copy-sequence (nthcdr (+ m calc-stack-top -1) | |
1924 calc-stack)))) | |
1925 (setcdr (nthcdr (1- n) top) nil) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1926 (nreverse (mapcar 'calc-get-stack-element top))))) |
40785 | 1927 |
1928 (defun calc-top-list-n (&optional n m sel-mode) | |
1929 (mapcar 'math-check-complete | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1930 (mapcar 'calc-normalize (calc-top-list n m sel-mode)))) |
40785 | 1931 |
1932 | |
1933 (defun calc-renumber-stack () | |
1934 (if calc-line-numbering | |
1935 (save-excursion | |
1936 (calc-cursor-stack-index 0) | |
1937 (let ((lnum 1) | |
1938 (buffer-read-only nil) | |
1939 (stack (nthcdr calc-stack-top calc-stack))) | |
1940 (if (re-search-forward "^[0-9]+[:*]" nil t) | |
1941 (progn | |
1942 (beginning-of-line) | |
1943 (while (re-search-forward "^[0-9]+[:*]" nil t) | |
1944 (let ((buffer-read-only nil)) | |
1945 (beginning-of-line) | |
1946 (delete-char 4) | |
1947 (insert " "))) | |
1948 (calc-cursor-stack-index 0))) | |
1949 (while (re-search-backward "^[0-9]+[:*]" nil t) | |
1950 (delete-char 4) | |
1951 (if (> lnum 999) | |
1952 (insert (format "%03d%s" (% lnum 1000) | |
1953 (if (and (nth 2 (car stack)) | |
1954 calc-use-selections) "*" ":"))) | |
1955 (let ((prefix (int-to-string lnum))) | |
1956 (insert prefix (if (and (nth 2 (car stack)) | |
1957 calc-use-selections) "*" ":") | |
1958 (make-string (- 3 (length prefix)) 32)))) | |
1959 (beginning-of-line) | |
1960 (setq lnum (1+ lnum) | |
1961 stack (cdr stack)))))) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1962 (and calc-embedded-info (calc-embedded-stack-change))) |
40785 | 1963 |
48055
dd72f9547abd
(calc-any-evaltos): Initialize to nil, since
David Kastrup <dak@gnu.org>
parents:
47682
diff
changeset
|
1964 (defvar calc-any-evaltos nil) |
40785 | 1965 (defun calc-refresh (&optional align) |
1966 (interactive) | |
1967 (and (eq major-mode 'calc-mode) | |
1968 (not calc-executing-macro) | |
1969 (let* ((buffer-read-only nil) | |
1970 (save-point (point)) | |
1971 (save-mark (condition-case err (mark) (error nil))) | |
1972 (save-aligned (looking-at "\\.$")) | |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
1973 (thing calc-stack) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
1974 (calc-any-evaltos nil)) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
1975 (setq calc-any-selections nil) |
40785 | 1976 (erase-buffer) |
45578
73f6b3b88ae9
(calc-show-banner): New variable.
Miles Bader <miles@gnu.org>
parents:
44574
diff
changeset
|
1977 (when calc-show-banner |
45769 | 1978 (insert (propertize "--- Emacs Calculator Mode ---\n" |
1979 'font-lock-face 'italic))) | |
40785 | 1980 (while thing |
1981 (goto-char (point-min)) | |
45578
73f6b3b88ae9
(calc-show-banner): New variable.
Miles Bader <miles@gnu.org>
parents:
44574
diff
changeset
|
1982 (when calc-show-banner |
73f6b3b88ae9
(calc-show-banner): New variable.
Miles Bader <miles@gnu.org>
parents:
44574
diff
changeset
|
1983 (forward-line 1)) |
40785 | 1984 (insert (math-format-stack-value (car thing)) "\n") |
1985 (setq thing (cdr thing))) | |
1986 (calc-renumber-stack) | |
1987 (if calc-display-dirty | |
1988 (calc-wrapper (setq calc-display-dirty nil))) | |
1989 (and calc-any-evaltos calc-auto-recompute | |
1990 (calc-wrapper (calc-refresh-evaltos))) | |
1991 (if (or align save-aligned) | |
1992 (calc-align-stack-window) | |
1993 (goto-char save-point)) | |
1994 (if save-mark (set-mark save-mark)))) | |
1995 (and calc-embedded-info (not (eq major-mode 'calc-mode)) | |
105792
2c12fbae77c2
* calc/calc.el (calc, calc-refresh, calc-trail-buffer, calc-record)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105713
diff
changeset
|
1996 (with-current-buffer (aref calc-embedded-info 1) |
40785 | 1997 (calc-refresh align))) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
1998 (setq calc-refresh-count (1+ calc-refresh-count))) |
40785 | 1999 |
2000 ;;;; The Calc Trail buffer. | |
2001 | |
2002 (defun calc-check-trail-aligned () | |
2003 (save-excursion | |
2004 (let ((win (get-buffer-window (current-buffer)))) | |
2005 (and win | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2006 (pos-visible-in-window-p (1- (point-max)) win))))) |
40785 | 2007 |
2008 (defun calc-trail-buffer () | |
2009 (and (or (null calc-trail-buffer) | |
2010 (null (buffer-name calc-trail-buffer))) | |
2011 (save-excursion | |
2012 (setq calc-trail-buffer (get-buffer-create "*Calc Trail*")) | |
2013 (let ((buf (or (and (not (eq major-mode 'calc-mode)) | |
2014 (get-buffer "*Calculator*")) | |
2015 (current-buffer)))) | |
2016 (set-buffer calc-trail-buffer) | |
2017 (or (eq major-mode 'calc-trail-mode) | |
2018 (calc-trail-mode buf))))) | |
2019 (or (and calc-trail-pointer | |
2020 (eq (marker-buffer calc-trail-pointer) calc-trail-buffer)) | |
105792
2c12fbae77c2
* calc/calc.el (calc, calc-refresh, calc-trail-buffer, calc-record)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105713
diff
changeset
|
2021 (with-current-buffer calc-trail-buffer |
104543
da8b3e61b182
Use forward-line rather than goto-line.
Glenn Morris <rgm@gnu.org>
parents:
104174
diff
changeset
|
2022 (goto-char (point-min)) |
da8b3e61b182
Use forward-line rather than goto-line.
Glenn Morris <rgm@gnu.org>
parents:
104174
diff
changeset
|
2023 (forward-line 1) |
40785 | 2024 (setq calc-trail-pointer (point-marker)))) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2025 calc-trail-buffer) |
40785 | 2026 |
2027 (defun calc-record (val &optional prefix) | |
2028 (setq calc-aborted-prefix nil) | |
2029 (or calc-executing-macro | |
2030 (let* ((mainbuf (current-buffer)) | |
2031 (buf (calc-trail-buffer)) | |
2032 (calc-display-raw nil) | |
2033 (calc-can-abbrev-vectors t) | |
2034 (fval (if val | |
2035 (if (stringp val) | |
2036 val | |
2037 (math-showing-full-precision | |
2038 (math-format-flat-expr val 0))) | |
2039 ""))) | |
105792
2c12fbae77c2
* calc/calc.el (calc, calc-refresh, calc-trail-buffer, calc-record)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105713
diff
changeset
|
2040 (with-current-buffer buf |
40785 | 2041 (let ((aligned (calc-check-trail-aligned)) |
2042 (buffer-read-only nil)) | |
2043 (goto-char (point-max)) | |
2044 (cond ((null prefix) (insert " ")) | |
2045 ((and (> (length prefix) 4) | |
2046 (string-match " " prefix 4)) | |
2047 (insert (substring prefix 0 4) " ")) | |
2048 (t (insert (format "%4s " prefix)))) | |
2049 (insert fval "\n") | |
2050 (let ((win (get-buffer-window buf))) | |
2051 (if (and aligned win (not (memq 'hold-trail calc-command-flags))) | |
2052 (calc-trail-here)) | |
2053 (goto-char (1- (point-max)))))))) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2054 val) |
40785 | 2055 |
2056 | |
57710
a18ff071e655
(calc,full-calc, calc-quit, calc-keypad, full-calc-keypad)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57591
diff
changeset
|
2057 (defun calc-trail-display (flag &optional no-refresh interactive) |
a18ff071e655
(calc,full-calc, calc-quit, calc-keypad, full-calc-keypad)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57591
diff
changeset
|
2058 (interactive "P\ni\np") |
40785 | 2059 (let ((win (get-buffer-window (calc-trail-buffer)))) |
2060 (if (setq calc-display-trail | |
2061 (not (if flag (memq flag '(nil 0)) win))) | |
2062 (if (null win) | |
2063 (progn | |
62911
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
2064 (if calc-trail-window-hook |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
2065 (run-hooks 'calc-trail-window-hook) |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
2066 (let ((w (split-window nil (/ (* (window-width) 2) 3) t))) |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
2067 (set-window-buffer w calc-trail-buffer))) |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
2068 (calc-wrapper |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
2069 (setq overlay-arrow-string calc-trail-overlay |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
2070 overlay-arrow-position calc-trail-pointer) |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
2071 (or no-refresh |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
2072 (if interactive |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
2073 (calc-do-refresh) |
bc2eee483e93
(calc-bug-address): Fix docstring.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62880
diff
changeset
|
2074 (calc-refresh)))))) |
40785 | 2075 (if win |
2076 (progn | |
2077 (delete-window win) | |
2078 (calc-wrapper | |
2079 (or no-refresh | |
57710
a18ff071e655
(calc,full-calc, calc-quit, calc-keypad, full-calc-keypad)
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57591
diff
changeset
|
2080 (if interactive |
40785 | 2081 (calc-do-refresh) |
2082 (calc-refresh)))))))) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2083 calc-trail-buffer) |
40785 | 2084 |
2085 (defun calc-trail-here () | |
2086 (interactive) | |
2087 (if (eq major-mode 'calc-trail-mode) | |
2088 (progn | |
2089 (beginning-of-line) | |
2090 (if (bobp) | |
2091 (forward-line 1) | |
2092 (if (eobp) | |
2093 (forward-line -1))) | |
2094 (if (or (bobp) (eobp)) | |
2095 (setq overlay-arrow-position nil) ; trail is empty | |
2096 (set-marker calc-trail-pointer (point) (current-buffer)) | |
2097 (setq calc-trail-overlay (concat (buffer-substring (point) | |
2098 (+ (point) 4)) | |
2099 ">") | |
2100 overlay-arrow-string calc-trail-overlay | |
2101 overlay-arrow-position calc-trail-pointer) | |
2102 (forward-char 4) | |
2103 (let ((win (get-buffer-window (current-buffer)))) | |
2104 (if win | |
2105 (save-excursion | |
2106 (forward-line (/ (window-height win) 2)) | |
2107 (forward-line (- 1 (window-height win))) | |
2108 (set-window-start win (point)) | |
2109 (set-window-point win (+ calc-trail-pointer 4)) | |
2110 (set-buffer calc-main-buffer) | |
2111 (setq overlay-arrow-string calc-trail-overlay | |
2112 overlay-arrow-position calc-trail-pointer)))))) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2113 (error "Not in Calc Trail buffer"))) |
40785 | 2114 |
2115 | |
2116 | |
2117 | |
2118 ;;;; The Undo list. | |
2119 | |
2120 (defun calc-record-undo (rec) | |
2121 (or calc-executing-macro | |
2122 (if (memq 'undo calc-command-flags) | |
2123 (setq calc-undo-list (cons (cons rec (car calc-undo-list)) | |
2124 (cdr calc-undo-list))) | |
2125 (setq calc-undo-list (cons (list rec) calc-undo-list) | |
2126 calc-redo-list nil) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2127 (calc-set-command-flag 'undo)))) |
40785 | 2128 |
2129 | |
2130 | |
2131 | |
2132 ;;; Arithmetic commands. | |
2133 | |
2134 (defun calc-binary-op (name func arg &optional ident unary func2) | |
2135 (setq calc-aborted-prefix name) | |
2136 (if (null arg) | |
2137 (calc-enter-result 2 name (cons (or func2 func) | |
2138 (mapcar 'math-check-complete | |
2139 (calc-top-list 2)))) | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
2140 (require 'calc-ext) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2141 (calc-binary-op-fancy name func arg ident unary))) |
40785 | 2142 |
2143 (defun calc-unary-op (name func arg &optional func2) | |
2144 (setq calc-aborted-prefix name) | |
2145 (if (null arg) | |
2146 (calc-enter-result 1 name (list (or func2 func) | |
2147 (math-check-complete (calc-top 1)))) | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
2148 (require 'calc-ext) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2149 (calc-unary-op-fancy name func arg))) |
40785 | 2150 |
2151 | |
2152 (defun calc-plus (arg) | |
2153 (interactive "P") | |
2154 (calc-slow-wrapper | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2155 (calc-binary-op "+" 'calcFunc-add arg 0 nil '+))) |
40785 | 2156 |
2157 (defun calc-minus (arg) | |
2158 (interactive "P") | |
2159 (calc-slow-wrapper | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2160 (calc-binary-op "-" 'calcFunc-sub arg 0 'neg '-))) |
40785 | 2161 |
2162 (defun calc-times (arg) | |
2163 (interactive "P") | |
2164 (calc-slow-wrapper | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2165 (calc-binary-op "*" 'calcFunc-mul arg 1 nil '*))) |
40785 | 2166 |
2167 (defun calc-divide (arg) | |
2168 (interactive "P") | |
2169 (calc-slow-wrapper | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2170 (calc-binary-op "/" 'calcFunc-div arg 0 'calcFunc-inv '/))) |
40785 | 2171 |
66865
7e4742b0d788
(calc-left-divide): New function.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
65989
diff
changeset
|
2172 (defun calc-left-divide (arg) |
7e4742b0d788
(calc-left-divide): New function.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
65989
diff
changeset
|
2173 (interactive "P") |
7e4742b0d788
(calc-left-divide): New function.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
65989
diff
changeset
|
2174 (calc-slow-wrapper |
7e4742b0d788
(calc-left-divide): New function.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
65989
diff
changeset
|
2175 (calc-binary-op "ldiv" 'calcFunc-ldiv arg 0 nil nil))) |
40785 | 2176 |
2177 (defun calc-change-sign (arg) | |
2178 (interactive "P") | |
2179 (calc-wrapper | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2180 (calc-unary-op "chs" 'neg arg))) |
40785 | 2181 |
2182 | |
2183 | |
2184 ;;; Stack management commands. | |
2185 | |
2186 (defun calc-enter (n) | |
2187 (interactive "p") | |
2188 (calc-wrapper | |
2189 (cond ((< n 0) | |
2190 (calc-push-list (calc-top-list 1 (- n)))) | |
2191 ((= n 0) | |
2192 (calc-push-list (calc-top-list (calc-stack-size)))) | |
2193 (t | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2194 (calc-push-list (calc-top-list n)))))) |
40785 | 2195 |
2196 | |
2197 (defun calc-pop (n) | |
2198 (interactive "P") | |
2199 (calc-wrapper | |
2200 (let* ((nn (prefix-numeric-value n)) | |
2201 (top (and (null n) (calc-top 1)))) | |
2202 (cond ((and (null n) | |
2203 (eq (car-safe top) 'incomplete) | |
2204 (> (length top) (if (eq (nth 1 top) 'intv) 3 2))) | |
2205 (calc-pop-push-list 1 (let ((tt (copy-sequence top))) | |
2206 (setcdr (nthcdr (- (length tt) 2) tt) nil) | |
2207 (list tt)))) | |
2208 ((< nn 0) | |
2209 (if (and calc-any-selections | |
2210 (calc-top-selected 1 (- nn))) | |
2211 (calc-delete-selection (- nn)) | |
2212 (calc-pop-stack 1 (- nn) t))) | |
2213 ((= nn 0) | |
2214 (calc-pop-stack (calc-stack-size) 1 t)) | |
2215 (t | |
2216 (if (and calc-any-selections | |
2217 (= nn 1) | |
2218 (calc-top-selected 1 1)) | |
2219 (calc-delete-selection 1) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2220 (calc-pop-stack nn))))))) |
40785 | 2221 |
2222 | |
2223 | |
2224 | |
2225 ;;;; Reading a number using the minibuffer. | |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
2226 (defvar calc-buffer) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
2227 (defvar calc-prev-char) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
2228 (defvar calc-prev-prev-char) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
2229 (defvar calc-digit-value) |
40785 | 2230 (defun calcDigit-start () |
2231 (interactive) | |
2232 (calc-wrapper | |
2233 (if (or calc-algebraic-mode | |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2234 (and (> calc-number-radix 14) (eq last-command-event ?e))) |
40785 | 2235 (calc-alg-digit-entry) |
2236 (calc-unread-command) | |
2237 (setq calc-aborted-prefix nil) | |
2238 (let* ((calc-digit-value nil) | |
2239 (calc-prev-char nil) | |
2240 (calc-prev-prev-char nil) | |
2241 (calc-buffer (current-buffer)) | |
85762
29e75576e47f
* calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85701
diff
changeset
|
2242 (buf (if (featurep 'xemacs) |
40785 | 2243 (catch 'calc-foo |
2244 (catch 'execute-kbd-macro | |
2245 (throw 'calc-foo | |
2246 (read-from-minibuffer | |
2247 "Calc: " "" calc-digit-map))) | |
85762
29e75576e47f
* calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85701
diff
changeset
|
2248 (error "XEmacs requires RET after %s" |
40785 | 2249 "digit entry in kbd macro")) |
2250 (let ((old-esc (lookup-key global-map "\e"))) | |
2251 (unwind-protect | |
2252 (progn | |
2253 (define-key global-map "\e" nil) | |
2254 (read-from-minibuffer "Calc: " "" calc-digit-map)) | |
2255 (define-key global-map "\e" old-esc)))))) | |
2256 (or calc-digit-value (setq calc-digit-value (math-read-number buf))) | |
2257 (if (stringp calc-digit-value) | |
2258 (calc-alg-entry calc-digit-value) | |
2259 (if calc-digit-value | |
2260 (calc-push-list (list (calc-record (calc-normalize | |
2261 calc-digit-value)))))) | |
2262 (if (eq calc-prev-char 'dots) | |
2263 (progn | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
2264 (require 'calc-ext) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2265 (calc-dots))))))) |
40785 | 2266 |
40911
df97a382ad43
(toplevel): Require calc-macs.
Eli Zaretskii <eliz@gnu.org>
parents:
40785
diff
changeset
|
2267 (defsubst calc-minibuffer-size () |
df97a382ad43
(toplevel): Require calc-macs.
Eli Zaretskii <eliz@gnu.org>
parents:
40785
diff
changeset
|
2268 (- (point-max) (minibuffer-prompt-end))) |
df97a382ad43
(toplevel): Require calc-macs.
Eli Zaretskii <eliz@gnu.org>
parents:
40785
diff
changeset
|
2269 |
40785 | 2270 (defun calcDigit-nondigit () |
2271 (interactive) | |
2272 ;; Exercise for the reader: Figure out why this is a good precaution! | |
2273 (or (boundp 'calc-buffer) | |
2274 (use-local-map minibuffer-local-map)) | |
40911
df97a382ad43
(toplevel): Require calc-macs.
Eli Zaretskii <eliz@gnu.org>
parents:
40785
diff
changeset
|
2275 (let ((str (minibuffer-contents))) |
105792
2c12fbae77c2
* calc/calc.el (calc, calc-refresh, calc-trail-buffer, calc-record)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
105713
diff
changeset
|
2276 (setq calc-digit-value (with-current-buffer calc-buffer |
40785 | 2277 (math-read-number str)))) |
40911
df97a382ad43
(toplevel): Require calc-macs.
Eli Zaretskii <eliz@gnu.org>
parents:
40785
diff
changeset
|
2278 (if (and (null calc-digit-value) (> (calc-minibuffer-size) 0)) |
40785 | 2279 (progn |
2280 (beep) | |
2281 (calc-temp-minibuffer-message " [Bad format]")) | |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2282 (or (memq last-command-event '(32 13)) |
40785 | 2283 (progn (setq prefix-arg current-prefix-arg) |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2284 (calc-unread-command (if (and (eq last-command-event 27) |
101013
dbe70c3aa01d
Replace last-input-char with last-input-event.
Glenn Morris <rgm@gnu.org>
parents:
101001
diff
changeset
|
2285 (>= last-input-event 128)) |
dbe70c3aa01d
Replace last-input-char with last-input-event.
Glenn Morris <rgm@gnu.org>
parents:
101001
diff
changeset
|
2286 last-input-event |
40785 | 2287 nil)))) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2288 (exit-minibuffer))) |
40785 | 2289 |
2290 | |
2291 (defun calc-minibuffer-contains (rex) | |
2292 (save-excursion | |
40911
df97a382ad43
(toplevel): Require calc-macs.
Eli Zaretskii <eliz@gnu.org>
parents:
40785
diff
changeset
|
2293 (goto-char (minibuffer-prompt-end)) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2294 (looking-at rex))) |
40785 | 2295 |
2296 (defun calcDigit-key () | |
2297 (interactive) | |
2298 (goto-char (point-max)) | |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2299 (if (or (and (memq last-command-event '(?+ ?-)) |
40785 | 2300 (> (buffer-size) 0) |
2301 (/= (preceding-char) ?e)) | |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2302 (and (memq last-command-event '(?m ?s)) |
40785 | 2303 (not (calc-minibuffer-contains "[-+]?[0-9]+\\.?0*[@oh].*")) |
2304 (not (calc-minibuffer-contains "[-+]?\\(1[1-9]\\|[2-9][0-9]\\)#.*")))) | |
2305 (calcDigit-nondigit) | |
2306 (if (calc-minibuffer-contains "\\([-+]?\\|.* \\)\\'") | |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2307 (cond ((memq last-command-event '(?. ?@)) (insert "0")) |
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2308 ((and (memq last-command-event '(?o ?h ?m)) |
40785 | 2309 (not (calc-minibuffer-contains ".*#.*"))) (insert "0")) |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2310 ((memq last-command-event '(?: ?e)) (insert "1")) |
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2311 ((eq last-command-event ?#) |
40785 | 2312 (insert (int-to-string calc-number-radix))))) |
2313 (if (and (calc-minibuffer-contains "\\([-+]?[0-9]+#\\|[^:]*:\\)\\'") | |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2314 (eq last-command-event ?:)) |
40785 | 2315 (insert "1")) |
2316 (if (and (calc-minibuffer-contains "[-+]?[0-9]+#\\'") | |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2317 (eq last-command-event ?.)) |
40785 | 2318 (insert "0")) |
2319 (if (and (calc-minibuffer-contains "[-+]?0*\\([2-9]\\|1[0-4]\\)#\\'") | |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2320 (eq last-command-event ?e)) |
40785 | 2321 (insert "1")) |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2322 (if (or (and (memq last-command-event '(?h ?o ?m ?s ?p)) |
40785 | 2323 (calc-minibuffer-contains ".*#.*")) |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2324 (and (eq last-command-event ?e) |
40785 | 2325 (calc-minibuffer-contains "[-+]?\\(1[5-9]\\|[2-9][0-9]\\)#.*")) |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2326 (and (eq last-command-event ?n) |
40785 | 2327 (calc-minibuffer-contains "[-+]?\\(2[4-9]\\|[3-9][0-9]\\)#.*"))) |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2328 (setq last-command-event (upcase last-command-event))) |
40785 | 2329 (cond |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2330 ((memq last-command-event '(?_ ?n)) |
43185
e38061462de6
(calcDigit-key): Use minibuffer-prompt-end instead of point-min.
Andreas Schwab <schwab@suse.de>
parents:
42205
diff
changeset
|
2331 (goto-char (minibuffer-prompt-end)) |
40785 | 2332 (if (and (search-forward " +/- " nil t) |
2333 (not (search-forward "e" nil t))) | |
2334 (beep) | |
2335 (and (not (calc-minibuffer-contains "[-+]?\\(1[5-9]\\|[2-9][0-9]\\)#.*")) | |
2336 (search-forward "e" nil t)) | |
2337 (if (looking-at "+") | |
2338 (delete-char 1)) | |
2339 (if (looking-at "-") | |
2340 (delete-char 1) | |
2341 (insert "-"))) | |
2342 (goto-char (point-max))) | |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2343 ((eq last-command-event ?p) |
40785 | 2344 (if (or (calc-minibuffer-contains ".*\\+/-.*") |
2345 (calc-minibuffer-contains ".*mod.*") | |
2346 (calc-minibuffer-contains ".*#.*") | |
2347 (calc-minibuffer-contains ".*[-+e:]\\'")) | |
2348 (beep) | |
2349 (if (not (calc-minibuffer-contains ".* \\'")) | |
2350 (insert " ")) | |
2351 (insert "+/- "))) | |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2352 ((and (eq last-command-event ?M) |
40785 | 2353 (not (calc-minibuffer-contains |
2354 "[-+]?\\(2[3-9]\\|[3-9][0-9]\\)#.*"))) | |
2355 (if (or (calc-minibuffer-contains ".*\\+/-.*") | |
2356 (calc-minibuffer-contains ".*mod *[^ ]+") | |
2357 (calc-minibuffer-contains ".*[-+e:]\\'")) | |
2358 (beep) | |
2359 (if (calc-minibuffer-contains ".*mod \\'") | |
2360 (if calc-previous-modulo | |
2361 (insert (math-format-flat-expr calc-previous-modulo 0)) | |
2362 (beep)) | |
2363 (if (not (calc-minibuffer-contains ".* \\'")) | |
2364 (insert " ")) | |
2365 (insert "mod ")))) | |
2366 (t | |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2367 (insert (char-to-string last-command-event)) |
106036
20558a815b94
(calcDigit-key): Fix regexp.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
106035
diff
changeset
|
2368 (if (or (and (calc-minibuffer-contains "[-+]?\\(.*\\+/- *\\|.*mod *\\)?\\([0-9][0-9]?\\)#[#]?[0-9a-zA-Z]*\\(:[0-9a-zA-Z]*\\(:[0-9a-zA-Z]*\\)?\\|.[0-9a-zA-Z]*\\(e[-+]?[0-9]*\\)?\\)?\\'") |
62040
d9e11e28ebbb
(calcDigit-key, math-read-number, math-read-bignum): Replace
Jay Belanger <jay.p.belanger@gmail.com>
parents:
61833
diff
changeset
|
2369 (let ((radix (string-to-number |
40785 | 2370 (buffer-substring |
2371 (match-beginning 2) (match-end 2))))) | |
2372 (and (>= radix 2) | |
2373 (<= radix 36) | |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2374 (or (memq last-command-event '(?# ?: ?. ?e ?+ ?-)) |
40785 | 2375 (let ((dig (math-read-radix-digit |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2376 (upcase last-command-event)))) |
40785 | 2377 (and dig |
2378 (< dig radix))))))) | |
40911
df97a382ad43
(toplevel): Require calc-macs.
Eli Zaretskii <eliz@gnu.org>
parents:
40785
diff
changeset
|
2379 (calc-minibuffer-contains |
df97a382ad43
(toplevel): Require calc-macs.
Eli Zaretskii <eliz@gnu.org>
parents:
40785
diff
changeset
|
2380 "[-+]?\\(.*\\+/- *\\|.*mod *\\)?\\([0-9]+\\.?0*[@oh] *\\)?\\([0-9]+\\.?0*['m] *\\)?[0-9]*\\(\\.?[0-9]*\\(e[-+]?[0-3]?[0-9]?[0-9]?[0-9]?[0-9]?[0-9]?[0-9]?\\)?\\|[0-9]:\\([0-9]+:\\)?[0-9]*\\)?[\"s]?\\'")) |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2381 (if (and (memq last-command-event '(?@ ?o ?h ?\' ?m)) |
40785 | 2382 (string-match " " calc-hms-format)) |
2383 (insert " ")) | |
2384 (if (and (eq this-command last-command) | |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2385 (eq last-command-event ?.)) |
40785 | 2386 (progn |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
2387 (require 'calc-ext) |
40785 | 2388 (calc-digit-dots)) |
2389 (delete-backward-char 1) | |
2390 (beep) | |
2391 (calc-temp-minibuffer-message " [Bad format]")))))) | |
2392 (setq calc-prev-prev-char calc-prev-char | |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2393 calc-prev-char last-command-event)) |
40785 | 2394 |
2395 | |
2396 (defun calcDigit-backspace () | |
2397 (interactive) | |
2398 (goto-char (point-max)) | |
2399 (cond ((calc-minibuffer-contains ".* \\+/- \\'") | |
2400 (backward-delete-char 5)) | |
2401 ((calc-minibuffer-contains ".* mod \\'") | |
2402 (backward-delete-char 5)) | |
2403 ((calc-minibuffer-contains ".* \\'") | |
2404 (backward-delete-char 2)) | |
2405 ((eq last-command 'calcDigit-start) | |
2406 (erase-buffer)) | |
2407 (t (backward-delete-char 1))) | |
40911
df97a382ad43
(toplevel): Require calc-macs.
Eli Zaretskii <eliz@gnu.org>
parents:
40785
diff
changeset
|
2408 (if (= (calc-minibuffer-size) 0) |
40785 | 2409 (progn |
101001
14b421290b2f
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2410 (setq last-command-event 13) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2411 (calcDigit-nondigit)))) |
40785 | 2412 |
2413 | |
2414 | |
2415 | |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2416 (defconst math-bignum-digit-length |
82438
3b91823ccbc5
(math-bignum-digit-length): Compute the appropriate value.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
82418
diff
changeset
|
2417 (truncate (/ (log10 (/ most-positive-fixnum 2)) 2)) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2418 "The length of a \"digit\" in Calc bignums. |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2419 If a big integer is of the form (bigpos N0 N1 ...), this is the |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2420 length of the allowable Emacs integers N0, N1,... |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2421 The value of 2*10^(2*MATH-BIGNUM-DIGIT-LENGTH) must be less than the |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2422 largest Emacs integer.") |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2423 |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2424 (defconst math-bignum-digit-size |
81753
e4415539660a
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81749
diff
changeset
|
2425 (expt 10 math-bignum-digit-length) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2426 "An upper bound for the size of the \"digit\"s in Calc bignums.") |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2427 |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2428 (defconst math-small-integer-size |
81753
e4415539660a
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81749
diff
changeset
|
2429 (expt math-bignum-digit-size 2) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2430 "An upper bound for the size of \"small integer\"s in Calc.") |
40785 | 2431 |
2432 | |
2433 ;;;; Arithmetic routines. | |
104726
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2434 ;; |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2435 ;; An object as manipulated by one of these routines may take any of the |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2436 ;; following forms: |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2437 ;; |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2438 ;; integer An integer. For normalized numbers, this format |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2439 ;; is used only for |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2440 ;; negative math-small-integer-size + 1 to |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2441 ;; math-small-integer-size - 1 |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2442 ;; |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2443 ;; (bigpos N0 N1 N2 ...) A big positive integer, |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2444 ;; N0 + N1*math-bignum-digit-size |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2445 ;; + N2*(math-bignum-digit-size)^2 ... |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2446 ;; (bigneg N0 N1 N2 ...) A big negative integer, |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2447 ;; - N0 - N1*math-bignum-digit-size ... |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2448 ;; Each digit N is in the range |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2449 ;; 0 ... math-bignum-digit-size -1. |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2450 ;; Normalized, always at least three N present, |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2451 ;; and the most significant N is nonzero. |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2452 ;; |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2453 ;; (frac NUM DEN) A fraction. NUM and DEN are small or big integers. |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2454 ;; Normalized, DEN > 1. |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2455 ;; |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2456 ;; (float NUM EXP) A floating-point number, NUM * 10^EXP; |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2457 ;; NUM is a small or big integer, EXP is a small int. |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2458 ;; Normalized, NUM is not a multiple of 10, and |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2459 ;; abs(NUM) < 10^calc-internal-prec. |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2460 ;; Normalized zero is stored as (float 0 0). |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2461 ;; |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2462 ;; (cplx REAL IMAG) A complex number; REAL and IMAG are any of above. |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2463 ;; Normalized, IMAG is nonzero. |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2464 ;; |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2465 ;; (polar R THETA) Polar complex number. Normalized, R > 0 and THETA |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2466 ;; is neither zero nor 180 degrees (pi radians). |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2467 ;; |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2468 ;; (vec A B C ...) Vector of objects A, B, C, ... A matrix is a |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2469 ;; vector of vectors. |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2470 ;; |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2471 ;; (hms H M S) Angle in hours-minutes-seconds form. All three |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2472 ;; components have the same sign; H and M must be |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2473 ;; numerically integers; M and S are expected to |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2474 ;; lie in the range [0,60). |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2475 ;; |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2476 ;; (date N) A date or date/time object. N is an integer to |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2477 ;; store a date only, or a fraction or float to |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2478 ;; store a date and time. |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2479 ;; |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2480 ;; (sdev X SIGMA) Error form, X +/- SIGMA. When normalized, |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2481 ;; SIGMA > 0. X is any complex number and SIGMA |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2482 ;; is real numbers; or these may be symbolic |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2483 ;; expressions where SIGMA is assumed real. |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2484 ;; |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2485 ;; (intv MASK LO HI) Interval form. MASK is 0=(), 1=(], 2=[), or 3=[]. |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2486 ;; LO and HI are any real numbers, or symbolic |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2487 ;; expressions which are assumed real, and LO < HI. |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2488 ;; For [LO..HI], if LO = HI normalization produces LO, |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2489 ;; and if LO > HI normalization produces [LO..LO). |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2490 ;; For other intervals, if LO > HI normalization |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2491 ;; sets HI equal to LO. |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2492 ;; |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2493 ;; (mod N M) Number modulo M. When normalized, 0 <= N < M. |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2494 ;; N and M are real numbers. |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2495 ;; |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2496 ;; (var V S) Symbolic variable. V is a Lisp symbol which |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2497 ;; represents the variable's visible name. S is |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2498 ;; the symbol which actually stores the variable's |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2499 ;; value: (var pi var-pi). |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2500 ;; |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2501 ;; In general, combining rational numbers in a calculation always produces |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2502 ;; a rational result, but if either argument is a float, result is a float. |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2503 |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2504 ;; In the following comments, [x y z] means result is x, args must be y, z, |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2505 ;; respectively, where the code letters are: |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2506 ;; |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2507 ;; O Normalized object (vector or number) |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2508 ;; V Normalized vector |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2509 ;; N Normalized number of any type |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2510 ;; N Normalized complex number |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2511 ;; R Normalized real number (float or rational) |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2512 ;; F Normalized floating-point number |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2513 ;; T Normalized rational number |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2514 ;; I Normalized integer |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2515 ;; B Normalized big integer |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2516 ;; S Normalized small integer |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2517 ;; D Digit (small integer, 0..999) |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2518 ;; L Normalized bignum digit list (without "bigpos" or "bigneg" symbol) |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2519 ;; or normalized vector element list (without "vec") |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2520 ;; P Predicate (truth value) |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2521 ;; X Any Lisp object |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2522 ;; Z "nil" |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2523 ;; |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2524 ;; Lower-case letters signify possibly un-normalized values. |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2525 ;; "L.D" means a cons of an L and a D. |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2526 ;; [N N; n n] means result will be normalized if argument is. |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2527 ;; Also, [Public] marks routines intended to be called from outside. |
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2528 ;; [This notation has been neglected in many recent routines.] |
40785 | 2529 |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
2530 (defvar math-eval-rules-cache) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
2531 (defvar math-eval-rules-cache-other) |
40785 | 2532 ;;; Reduce an object to canonical (normalized) form. [O o; Z Z] [Public] |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2533 |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2534 (defvar math-normalize-a) |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2535 (defun math-normalize (math-normalize-a) |
40785 | 2536 (cond |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2537 ((not (consp math-normalize-a)) |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2538 (if (integerp math-normalize-a) |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2539 (if (or (>= math-normalize-a math-small-integer-size) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2540 (<= math-normalize-a (- math-small-integer-size))) |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2541 (math-bignum math-normalize-a) |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2542 math-normalize-a) |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2543 math-normalize-a)) |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2544 ((eq (car math-normalize-a) 'bigpos) |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2545 (if (eq (nth (1- (length math-normalize-a)) math-normalize-a) 0) |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2546 (let* ((last (setq math-normalize-a |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2547 (copy-sequence math-normalize-a))) (digs math-normalize-a)) |
40785 | 2548 (while (setq digs (cdr digs)) |
2549 (or (eq (car digs) 0) (setq last digs))) | |
2550 (setcdr last nil))) | |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2551 (if (cdr (cdr (cdr math-normalize-a))) |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2552 math-normalize-a |
40785 | 2553 (cond |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2554 ((cdr (cdr math-normalize-a)) (+ (nth 1 math-normalize-a) |
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2555 (* (nth 2 math-normalize-a) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2556 math-bignum-digit-size))) |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2557 ((cdr math-normalize-a) (nth 1 math-normalize-a)) |
40785 | 2558 (t 0)))) |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2559 ((eq (car math-normalize-a) 'bigneg) |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2560 (if (eq (nth (1- (length math-normalize-a)) math-normalize-a) 0) |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2561 (let* ((last (setq math-normalize-a (copy-sequence math-normalize-a))) |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2562 (digs math-normalize-a)) |
40785 | 2563 (while (setq digs (cdr digs)) |
2564 (or (eq (car digs) 0) (setq last digs))) | |
2565 (setcdr last nil))) | |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2566 (if (cdr (cdr (cdr math-normalize-a))) |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2567 math-normalize-a |
40785 | 2568 (cond |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2569 ((cdr (cdr math-normalize-a)) (- (+ (nth 1 math-normalize-a) |
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2570 (* (nth 2 math-normalize-a) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2571 math-bignum-digit-size)))) |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2572 ((cdr math-normalize-a) (- (nth 1 math-normalize-a))) |
40785 | 2573 (t 0)))) |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2574 ((eq (car math-normalize-a) 'float) |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2575 (math-make-float (math-normalize (nth 1 math-normalize-a)) |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2576 (nth 2 math-normalize-a))) |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2577 ((or (memq (car math-normalize-a) |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2578 '(frac cplx polar hms date mod sdev intv vec var quote |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2579 special-const calcFunc-if calcFunc-lambda |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2580 calcFunc-quote calcFunc-condition |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2581 calcFunc-evalto)) |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2582 (integerp (car math-normalize-a)) |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2583 (and (consp (car math-normalize-a)) |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2584 (not (eq (car (car math-normalize-a)) 'lambda)))) |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
2585 (require 'calc-ext) |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2586 (math-normalize-fancy math-normalize-a)) |
40785 | 2587 (t |
2588 (or (and calc-simplify-mode | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
2589 (require 'calc-ext) |
40785 | 2590 (math-normalize-nonstandard)) |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2591 (let ((args (mapcar 'math-normalize (cdr math-normalize-a)))) |
40785 | 2592 (or (condition-case err |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2593 (let ((func |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2594 (assq (car math-normalize-a) '( ( + . math-add ) |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2595 ( - . math-sub ) |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2596 ( * . math-mul ) |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2597 ( / . math-div ) |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2598 ( % . math-mod ) |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2599 ( ^ . math-pow ) |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2600 ( neg . math-neg ) |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2601 ( | . math-concat ) )))) |
40785 | 2602 (or (and var-EvalRules |
2603 (progn | |
2604 (or (eq var-EvalRules math-eval-rules-cache-tag) | |
2605 (progn | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
2606 (require 'calc-ext) |
40785 | 2607 (math-recompile-eval-rules))) |
2608 (and (or math-eval-rules-cache-other | |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2609 (assq (car math-normalize-a) |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2610 math-eval-rules-cache)) |
40785 | 2611 (math-apply-rewrites |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2612 (cons (car math-normalize-a) args) |
40785 | 2613 (cdr math-eval-rules-cache) |
2614 nil math-eval-rules-cache)))) | |
2615 (if func | |
2616 (apply (cdr func) args) | |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2617 (and (or (consp (car math-normalize-a)) |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2618 (fboundp (car math-normalize-a)) |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
2619 (and (not (featurep 'calc-ext)) |
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
2620 (require 'calc-ext) |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2621 (fboundp (car math-normalize-a)))) |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2622 (apply (car math-normalize-a) args))))) |
40785 | 2623 (wrong-number-of-arguments |
2624 (calc-record-why "*Wrong number of arguments" | |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2625 (cons (car math-normalize-a) args)) |
40785 | 2626 nil) |
2627 (wrong-type-argument | |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2628 (or calc-next-why |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2629 (calc-record-why "Wrong type of argument" |
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2630 (cons (car math-normalize-a) args))) |
40785 | 2631 nil) |
2632 (args-out-of-range | |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2633 (calc-record-why "*Argument out of range" |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2634 (cons (car math-normalize-a) args)) |
40785 | 2635 nil) |
2636 (inexact-result | |
2637 (calc-record-why "No exact representation for result" | |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2638 (cons (car math-normalize-a) args)) |
40785 | 2639 nil) |
2640 (math-overflow | |
2641 (calc-record-why "*Floating-point overflow occurred" | |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2642 (cons (car math-normalize-a) args)) |
40785 | 2643 nil) |
2644 (math-underflow | |
2645 (calc-record-why "*Floating-point underflow occurred" | |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2646 (cons (car math-normalize-a) args)) |
40785 | 2647 nil) |
2648 (void-variable | |
2649 (if (eq (nth 1 err) 'var-EvalRules) | |
2650 (progn | |
2651 (setq var-EvalRules nil) | |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2652 (math-normalize (cons (car math-normalize-a) args))) |
40785 | 2653 (calc-record-why "*Variable is void" (nth 1 err))))) |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2654 (if (consp (car math-normalize-a)) |
40785 | 2655 (math-dimension-error) |
58103
5fb84c291168
(math-normalize-a): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58061
diff
changeset
|
2656 (cons (car math-normalize-a) args)))))))) |
40785 | 2657 |
2658 | |
2659 | |
104726
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2660 ;; True if A is a floating-point real or complex number. [P x] [Public] |
40785 | 2661 (defun math-floatp (a) |
2662 (cond ((eq (car-safe a) 'float) t) | |
2663 ((memq (car-safe a) '(cplx polar mod sdev intv)) | |
2664 (or (math-floatp (nth 1 a)) | |
2665 (math-floatp (nth 2 a)) | |
2666 (and (eq (car a) 'intv) (math-floatp (nth 3 a))))) | |
2667 ((eq (car-safe a) 'date) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2668 (math-floatp (nth 1 a))))) |
40785 | 2669 |
2670 | |
2671 | |
104726
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2672 ;; Verify that A is a complete object and return A. [x x] [Public] |
40785 | 2673 (defun math-check-complete (a) |
2674 (cond ((integerp a) a) | |
2675 ((eq (car-safe a) 'incomplete) | |
2676 (calc-incomplete-error a)) | |
2677 ((consp a) a) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2678 (t (error "Invalid data object encountered")))) |
40785 | 2679 |
2680 | |
2681 | |
104726
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2682 ;; Coerce integer A to be a bignum. [B S] |
40785 | 2683 (defun math-bignum (a) |
2684 (if (>= a 0) | |
2685 (cons 'bigpos (math-bignum-big a)) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2686 (cons 'bigneg (math-bignum-big (- a))))) |
40785 | 2687 |
2688 (defun math-bignum-big (a) ; [L s] | |
2689 (if (= a 0) | |
2690 nil | |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2691 (cons (% a math-bignum-digit-size) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2692 (math-bignum-big (/ a math-bignum-digit-size))))) |
40785 | 2693 |
2694 | |
104726
848797c69be5
Improve commenting convention.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
104712
diff
changeset
|
2695 ;; Build a normalized floating-point number. [F I S] |
40785 | 2696 (defun math-make-float (mant exp) |
2697 (if (eq mant 0) | |
2698 '(float 0 0) | |
2699 (let* ((ldiff (- calc-internal-prec (math-numdigs mant)))) | |
2700 (if (< ldiff 0) | |
2701 (setq mant (math-scale-rounding mant ldiff) | |
2702 exp (- exp ldiff)))) | |
2703 (if (consp mant) | |
2704 (let ((digs (cdr mant))) | |
2705 (if (= (% (car digs) 10) 0) | |
2706 (progn | |
2707 (while (= (car digs) 0) | |
2708 (setq digs (cdr digs) | |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2709 exp (+ exp math-bignum-digit-length))) |
40785 | 2710 (while (= (% (car digs) 10) 0) |
2711 (setq digs (math-div10-bignum digs) | |
2712 exp (1+ exp))) | |
2713 (setq mant (math-normalize (cons (car mant) digs)))))) | |
2714 (while (= (% mant 10) 0) | |
2715 (setq mant (/ mant 10) | |
2716 exp (1+ exp)))) | |
2717 (if (and (<= exp -4000000) | |
2718 (<= (+ exp (math-numdigs mant) -1) -4000000)) | |
2719 (signal 'math-underflow nil) | |
2720 (if (and (>= exp 3000000) | |
2721 (>= (+ exp (math-numdigs mant) -1) 4000000)) | |
2722 (signal 'math-overflow nil) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2723 (list 'float mant exp))))) |
40785 | 2724 |
2725 (defun math-div10-bignum (a) ; [l l] | |
2726 (if (cdr a) | |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2727 (cons (+ (/ (car a) 10) (* (% (nth 1 a) 10) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2728 (expt 10 (1- math-bignum-digit-length)))) |
40785 | 2729 (math-div10-bignum (cdr a))) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2730 (list (/ (car a) 10)))) |
40785 | 2731 |
2732 ;;; Coerce A to be a float. [F N; V V] [Public] | |
2733 (defun math-float (a) | |
2734 (cond ((Math-integerp a) (math-make-float a 0)) | |
2735 ((eq (car a) 'frac) (math-div (math-float (nth 1 a)) (nth 2 a))) | |
2736 ((eq (car a) 'float) a) | |
2737 ((memq (car a) '(cplx polar vec hms date sdev mod)) | |
2738 (cons (car a) (mapcar 'math-float (cdr a)))) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2739 (t (math-float-fancy a)))) |
40785 | 2740 |
2741 | |
2742 (defun math-neg (a) | |
2743 (cond ((not (consp a)) (- a)) | |
2744 ((eq (car a) 'bigpos) (cons 'bigneg (cdr a))) | |
2745 ((eq (car a) 'bigneg) (cons 'bigpos (cdr a))) | |
2746 ((memq (car a) '(frac float)) | |
2747 (list (car a) (Math-integer-neg (nth 1 a)) (nth 2 a))) | |
2748 ((memq (car a) '(cplx vec hms date calcFunc-idn)) | |
2749 (cons (car a) (mapcar 'math-neg (cdr a)))) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2750 (t (math-neg-fancy a)))) |
40785 | 2751 |
2752 | |
2753 ;;; Compute the number of decimal digits in integer A. [S I] | |
2754 (defun math-numdigs (a) | |
2755 (if (consp a) | |
2756 (if (cdr a) | |
2757 (let* ((len (1- (length a))) | |
2758 (top (nth len a))) | |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2759 (+ (* (1- len) math-bignum-digit-length) (math-numdigs top))) |
40785 | 2760 0) |
2761 (cond ((>= a 100) (+ (math-numdigs (/ a 1000)) 3)) | |
2762 ((>= a 10) 2) | |
2763 ((>= a 1) 1) | |
2764 ((= a 0) 0) | |
2765 ((> a -10) 1) | |
2766 ((> a -100) 2) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2767 (t (math-numdigs (- a)))))) |
40785 | 2768 |
2769 ;;; Multiply (with truncation toward 0) the integer A by 10^N. [I i S] | |
2770 (defun math-scale-int (a n) | |
2771 (cond ((= n 0) a) | |
2772 ((> n 0) (math-scale-left a n)) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2773 (t (math-normalize (math-scale-right a (- n)))))) |
40785 | 2774 |
2775 (defun math-scale-left (a n) ; [I I S] | |
2776 (if (= n 0) | |
2777 a | |
2778 (if (consp a) | |
2779 (cons (car a) (math-scale-left-bignum (cdr a) n)) | |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2780 (if (>= n math-bignum-digit-length) |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2781 (if (or (>= a math-bignum-digit-size) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2782 (<= a (- math-bignum-digit-size))) |
40785 | 2783 (math-scale-left (math-bignum a) n) |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2784 (math-scale-left (* a math-bignum-digit-size) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2785 (- n math-bignum-digit-length))) |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2786 (let ((sz (expt 10 (- (* 2 math-bignum-digit-length) n)))) |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2787 (if (or (>= a sz) (<= a (- sz))) |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2788 (math-scale-left (math-bignum a) n) |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2789 (* a (expt 10 n)))))))) |
40785 | 2790 |
2791 (defun math-scale-left-bignum (a n) | |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2792 (if (>= n math-bignum-digit-length) |
40785 | 2793 (while (>= (setq a (cons 0 a) |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2794 n (- n math-bignum-digit-length)) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2795 math-bignum-digit-length))) |
40785 | 2796 (if (> n 0) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2797 (math-mul-bignum-digit a (expt 10 n) 0) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2798 a)) |
40785 | 2799 |
2800 (defun math-scale-right (a n) ; [i i S] | |
2801 (if (= n 0) | |
2802 a | |
2803 (if (consp a) | |
2804 (cons (car a) (math-scale-right-bignum (cdr a) n)) | |
2805 (if (<= a 0) | |
2806 (if (= a 0) | |
2807 0 | |
2808 (- (math-scale-right (- a) n))) | |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2809 (if (>= n math-bignum-digit-length) |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2810 (while (and (> (setq a (/ a math-bignum-digit-size)) 0) |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2811 (>= (setq n (- n math-bignum-digit-length)) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2812 math-bignum-digit-length)))) |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2813 (if (> n 0) |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2814 (/ a (expt 10 n)) |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2815 a))))) |
40785 | 2816 |
2817 (defun math-scale-right-bignum (a n) ; [L L S; l l S] | |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2818 (if (>= n math-bignum-digit-length) |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2819 (setq a (nthcdr (/ n math-bignum-digit-length) a) |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2820 n (% n math-bignum-digit-length))) |
40785 | 2821 (if (> n 0) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2822 (cdr (math-mul-bignum-digit a (expt 10 (- math-bignum-digit-length n)) 0)) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2823 a)) |
40785 | 2824 |
2825 ;;; Multiply (with rounding) the integer A by 10^N. [I i S] | |
2826 (defun math-scale-rounding (a n) | |
2827 (cond ((>= n 0) | |
2828 (math-scale-left a n)) | |
2829 ((consp a) | |
2830 (math-normalize | |
2831 (cons (car a) | |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2832 (let ((val (if (< n (- math-bignum-digit-length)) |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2833 (math-scale-right-bignum |
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2834 (cdr a) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2835 (- (- math-bignum-digit-length) n)) |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2836 (if (< n 0) |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2837 (math-mul-bignum-digit |
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2838 (cdr a) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2839 (expt 10 (+ math-bignum-digit-length n)) 0) |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2840 (cdr a))))) ; n = -math-bignum-digit-length |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2841 (if (and val (>= (car val) (/ math-bignum-digit-size 2))) |
40785 | 2842 (if (cdr val) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2843 (if (eq (car (cdr val)) (1- math-bignum-digit-size)) |
40785 | 2844 (math-add-bignum (cdr val) '(1)) |
2845 (cons (1+ (car (cdr val))) (cdr (cdr val)))) | |
2846 '(1)) | |
2847 (cdr val)))))) | |
2848 (t | |
2849 (if (< a 0) | |
2850 (- (math-scale-rounding (- a) n)) | |
2851 (if (= n -1) | |
2852 (/ (+ a 5) 10) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2853 (/ (+ (math-scale-right a (- -1 n)) 5) 10)))))) |
40785 | 2854 |
2855 | |
2856 ;;; Compute the sum of A and B. [O O O] [Public] | |
2857 (defun math-add (a b) | |
2858 (or | |
2859 (and (not (or (consp a) (consp b))) | |
2860 (progn | |
2861 (setq a (+ a b)) | |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2862 (if (or (<= a (- math-small-integer-size)) (>= a math-small-integer-size)) |
40785 | 2863 (math-bignum a) |
2864 a))) | |
2865 (and (Math-zerop a) (not (eq (car-safe a) 'mod)) | |
2866 (if (and (math-floatp a) (Math-ratp b)) (math-float b) b)) | |
2867 (and (Math-zerop b) (not (eq (car-safe b) 'mod)) | |
2868 (if (and (math-floatp b) (Math-ratp a)) (math-float a) a)) | |
2869 (and (Math-objvecp a) (Math-objvecp b) | |
2870 (or | |
2871 (and (Math-integerp a) (Math-integerp b) | |
2872 (progn | |
2873 (or (consp a) (setq a (math-bignum a))) | |
2874 (or (consp b) (setq b (math-bignum b))) | |
2875 (if (eq (car a) 'bigneg) | |
2876 (if (eq (car b) 'bigneg) | |
2877 (cons 'bigneg (math-add-bignum (cdr a) (cdr b))) | |
2878 (math-normalize | |
2879 (let ((diff (math-sub-bignum (cdr b) (cdr a)))) | |
2880 (if (eq diff 'neg) | |
2881 (cons 'bigneg (math-sub-bignum (cdr a) (cdr b))) | |
2882 (cons 'bigpos diff))))) | |
2883 (if (eq (car b) 'bigneg) | |
2884 (math-normalize | |
2885 (let ((diff (math-sub-bignum (cdr a) (cdr b)))) | |
2886 (if (eq diff 'neg) | |
2887 (cons 'bigneg (math-sub-bignum (cdr b) (cdr a))) | |
2888 (cons 'bigpos diff)))) | |
2889 (cons 'bigpos (math-add-bignum (cdr a) (cdr b))))))) | |
2890 (and (Math-ratp a) (Math-ratp b) | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
2891 (require 'calc-ext) |
40785 | 2892 (calc-add-fractions a b)) |
2893 (and (Math-realp a) (Math-realp b) | |
2894 (progn | |
2895 (or (and (consp a) (eq (car a) 'float)) | |
2896 (setq a (math-float a))) | |
2897 (or (and (consp b) (eq (car b) 'float)) | |
2898 (setq b (math-float b))) | |
2899 (math-add-float a b))) | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
2900 (and (require 'calc-ext) |
40785 | 2901 (math-add-objects-fancy a b)))) |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
2902 (and (require 'calc-ext) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2903 (math-add-symb-fancy a b)))) |
40785 | 2904 |
2905 (defun math-add-bignum (a b) ; [L L L; l l l] | |
2906 (if a | |
2907 (if b | |
2908 (let* ((a (copy-sequence a)) (aa a) (carry nil) sum) | |
2909 (while (and aa b) | |
2910 (if carry | |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
2911 (if (< (setq sum (+ (car aa) (car b))) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2912 (1- math-bignum-digit-size)) |
40785 | 2913 (progn |
2914 (setcar aa (1+ sum)) | |
2915 (setq carry nil)) | |
81719
38726b7738d9
(math-add-bignum): Replace number by constant.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81573
diff
changeset
|
2916 (setcar aa (- sum (1- math-bignum-digit-size)))) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2917 (if (< (setq sum (+ (car aa) (car b))) math-bignum-digit-size) |
40785 | 2918 (setcar aa sum) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2919 (setcar aa (- sum math-bignum-digit-size)) |
40785 | 2920 (setq carry t))) |
2921 (setq aa (cdr aa) | |
2922 b (cdr b))) | |
2923 (if carry | |
2924 (if b | |
2925 (nconc a (math-add-bignum b '(1))) | |
81719
38726b7738d9
(math-add-bignum): Replace number by constant.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81573
diff
changeset
|
2926 (while (eq (car aa) (1- math-bignum-digit-size)) |
40785 | 2927 (setcar aa 0) |
2928 (setq aa (cdr aa))) | |
2929 (if aa | |
2930 (progn | |
2931 (setcar aa (1+ (car aa))) | |
2932 a) | |
2933 (nconc a '(1)))) | |
2934 (if b | |
2935 (nconc a b) | |
2936 a))) | |
2937 a) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2938 b)) |
40785 | 2939 |
2940 (defun math-sub-bignum (a b) ; [l l l] | |
2941 (if b | |
2942 (if a | |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
2943 (let* ((a (copy-sequence a)) (aa a) (borrow nil) sum diff) |
40785 | 2944 (while (and aa b) |
2945 (if borrow | |
2946 (if (>= (setq diff (- (car aa) (car b))) 1) | |
2947 (progn | |
2948 (setcar aa (1- diff)) | |
2949 (setq borrow nil)) | |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2950 (setcar aa (+ diff (1- math-bignum-digit-size)))) |
40785 | 2951 (if (>= (setq diff (- (car aa) (car b))) 0) |
2952 (setcar aa diff) | |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2953 (setcar aa (+ diff math-bignum-digit-size)) |
40785 | 2954 (setq borrow t))) |
2955 (setq aa (cdr aa) | |
2956 b (cdr b))) | |
2957 (if borrow | |
2958 (progn | |
2959 (while (eq (car aa) 0) | |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
2960 (setcar aa (1- math-bignum-digit-size)) |
40785 | 2961 (setq aa (cdr aa))) |
2962 (if aa | |
2963 (progn | |
2964 (setcar aa (1- (car aa))) | |
2965 a) | |
2966 'neg)) | |
2967 (while (eq (car b) 0) | |
2968 (setq b (cdr b))) | |
2969 (if b | |
2970 'neg | |
2971 a))) | |
2972 (while (eq (car b) 0) | |
2973 (setq b (cdr b))) | |
2974 (and b | |
2975 'neg)) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2976 a)) |
40785 | 2977 |
2978 (defun math-add-float (a b) ; [F F F] | |
2979 (let ((ediff (- (nth 2 a) (nth 2 b)))) | |
2980 (if (>= ediff 0) | |
2981 (if (>= ediff (+ calc-internal-prec calc-internal-prec)) | |
2982 a | |
2983 (math-make-float (math-add (nth 1 b) | |
2984 (if (eq ediff 0) | |
2985 (nth 1 a) | |
2986 (math-scale-left (nth 1 a) ediff))) | |
2987 (nth 2 b))) | |
2988 (if (>= (setq ediff (- ediff)) | |
2989 (+ calc-internal-prec calc-internal-prec)) | |
2990 b | |
2991 (math-make-float (math-add (nth 1 a) | |
2992 (math-scale-left (nth 1 b) ediff)) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
2993 (nth 2 a)))))) |
40785 | 2994 |
2995 ;;; Compute the difference of A and B. [O O O] [Public] | |
2996 (defun math-sub (a b) | |
2997 (if (or (consp a) (consp b)) | |
2998 (math-add a (math-neg b)) | |
2999 (setq a (- a b)) | |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3000 (if (or (<= a (- math-small-integer-size)) (>= a math-small-integer-size)) |
40785 | 3001 (math-bignum a) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3002 a))) |
40785 | 3003 |
3004 (defun math-sub-float (a b) ; [F F F] | |
3005 (let ((ediff (- (nth 2 a) (nth 2 b)))) | |
3006 (if (>= ediff 0) | |
3007 (if (>= ediff (+ calc-internal-prec calc-internal-prec)) | |
3008 a | |
3009 (math-make-float (math-add (Math-integer-neg (nth 1 b)) | |
3010 (if (eq ediff 0) | |
3011 (nth 1 a) | |
3012 (math-scale-left (nth 1 a) ediff))) | |
3013 (nth 2 b))) | |
3014 (if (>= (setq ediff (- ediff)) | |
3015 (+ calc-internal-prec calc-internal-prec)) | |
3016 b | |
3017 (math-make-float (math-add (nth 1 a) | |
3018 (Math-integer-neg | |
3019 (math-scale-left (nth 1 b) ediff))) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3020 (nth 2 a)))))) |
40785 | 3021 |
3022 | |
3023 ;;; Compute the product of A and B. [O O O] [Public] | |
3024 (defun math-mul (a b) | |
3025 (or | |
3026 (and (not (consp a)) (not (consp b)) | |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
3027 (< a math-bignum-digit-size) (> a (- math-bignum-digit-size)) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3028 (< b math-bignum-digit-size) (> b (- math-bignum-digit-size)) |
40785 | 3029 (* a b)) |
3030 (and (Math-zerop a) (not (eq (car-safe b) 'mod)) | |
3031 (if (Math-scalarp b) | |
3032 (if (and (math-floatp b) (Math-ratp a)) (math-float a) a) | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3033 (require 'calc-ext) |
40785 | 3034 (math-mul-zero a b))) |
3035 (and (Math-zerop b) (not (eq (car-safe a) 'mod)) | |
3036 (if (Math-scalarp a) | |
3037 (if (and (math-floatp a) (Math-ratp b)) (math-float b) b) | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3038 (require 'calc-ext) |
40785 | 3039 (math-mul-zero b a))) |
3040 (and (Math-objvecp a) (Math-objvecp b) | |
3041 (or | |
3042 (and (Math-integerp a) (Math-integerp b) | |
3043 (progn | |
3044 (or (consp a) (setq a (math-bignum a))) | |
3045 (or (consp b) (setq b (math-bignum b))) | |
3046 (math-normalize | |
3047 (cons (if (eq (car a) (car b)) 'bigpos 'bigneg) | |
3048 (if (cdr (cdr a)) | |
3049 (if (cdr (cdr b)) | |
3050 (math-mul-bignum (cdr a) (cdr b)) | |
3051 (math-mul-bignum-digit (cdr a) (nth 1 b) 0)) | |
3052 (math-mul-bignum-digit (cdr b) (nth 1 a) 0)))))) | |
3053 (and (Math-ratp a) (Math-ratp b) | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3054 (require 'calc-ext) |
40785 | 3055 (calc-mul-fractions a b)) |
3056 (and (Math-realp a) (Math-realp b) | |
3057 (progn | |
3058 (or (and (consp a) (eq (car a) 'float)) | |
3059 (setq a (math-float a))) | |
3060 (or (and (consp b) (eq (car b) 'float)) | |
3061 (setq b (math-float b))) | |
3062 (math-make-float (math-mul (nth 1 a) (nth 1 b)) | |
3063 (+ (nth 2 a) (nth 2 b))))) | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3064 (and (require 'calc-ext) |
40785 | 3065 (math-mul-objects-fancy a b)))) |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3066 (and (require 'calc-ext) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3067 (math-mul-symb-fancy a b)))) |
40785 | 3068 |
3069 (defun math-infinitep (a &optional undir) | |
3070 (while (and (consp a) (memq (car a) '(* / neg))) | |
3071 (if (or (not (eq (car a) '*)) (math-infinitep (nth 1 a))) | |
3072 (setq a (nth 1 a)) | |
3073 (setq a (nth 2 a)))) | |
3074 (and (consp a) | |
3075 (eq (car a) 'var) | |
3076 (memq (nth 2 a) '(var-inf var-uinf var-nan)) | |
3077 (if (and undir (eq (nth 2 a) 'var-inf)) | |
3078 '(var uinf var-uinf) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3079 a))) |
40785 | 3080 |
3081 ;;; Multiply digit lists A and B. [L L L; l l l] | |
3082 (defun math-mul-bignum (a b) | |
3083 (and a b | |
3084 (let* ((sum (if (<= (car b) 1) | |
3085 (if (= (car b) 0) | |
3086 (list 0) | |
3087 (copy-sequence a)) | |
3088 (math-mul-bignum-digit a (car b) 0))) | |
3089 (sump sum) c d aa ss prod) | |
3090 (while (setq b (cdr b)) | |
3091 (setq ss (setq sump (or (cdr sump) (setcdr sump (list 0)))) | |
3092 d (car b) | |
3093 c 0 | |
3094 aa a) | |
3095 (while (progn | |
3096 (setcar ss (% (setq prod (+ (+ (car ss) (* (car aa) d)) | |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3097 c)) math-bignum-digit-size)) |
40785 | 3098 (setq aa (cdr aa))) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3099 (setq c (/ prod math-bignum-digit-size) |
40785 | 3100 ss (or (cdr ss) (setcdr ss (list 0))))) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3101 (if (>= prod math-bignum-digit-size) |
40785 | 3102 (if (cdr ss) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3103 (setcar (cdr ss) (+ (/ prod math-bignum-digit-size) (car (cdr ss)))) |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3104 (setcdr ss (list (/ prod math-bignum-digit-size)))))) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3105 sum))) |
40785 | 3106 |
3107 ;;; Multiply digit list A by digit D. [L L D D; l l D D] | |
3108 (defun math-mul-bignum-digit (a d c) | |
3109 (if a | |
3110 (if (<= d 1) | |
3111 (and (= d 1) a) | |
3112 (let* ((a (copy-sequence a)) (aa a) prod) | |
3113 (while (progn | |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
3114 (setcar aa |
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
3115 (% (setq prod (+ (* (car aa) d) c)) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3116 math-bignum-digit-size)) |
40785 | 3117 (cdr aa)) |
3118 (setq aa (cdr aa) | |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3119 c (/ prod math-bignum-digit-size))) |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3120 (if (>= prod math-bignum-digit-size) |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3121 (setcdr aa (list (/ prod math-bignum-digit-size)))) |
40785 | 3122 a)) |
3123 (and (> c 0) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3124 (list c)))) |
40785 | 3125 |
3126 | |
3127 ;;; Compute the integer (quotient . remainder) of A and B, which may be | |
3128 ;;; small or big integers. Type and consistency of truncation is undefined | |
3129 ;;; if A or B is negative. B must be nonzero. [I.I I I] [Public] | |
3130 (defun math-idivmod (a b) | |
3131 (if (eq b 0) | |
3132 (math-reject-arg a "*Division by zero")) | |
3133 (if (or (consp a) (consp b)) | |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3134 (if (and (natnump b) (< b math-bignum-digit-size)) |
40785 | 3135 (let ((res (math-div-bignum-digit (cdr a) b))) |
3136 (cons | |
3137 (math-normalize (cons (car a) (car res))) | |
3138 (cdr res))) | |
3139 (or (consp a) (setq a (math-bignum a))) | |
3140 (or (consp b) (setq b (math-bignum b))) | |
3141 (let ((res (math-div-bignum (cdr a) (cdr b)))) | |
3142 (cons | |
3143 (math-normalize (cons (if (eq (car a) (car b)) 'bigpos 'bigneg) | |
3144 (car res))) | |
3145 (math-normalize (cons (car a) (cdr res)))))) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3146 (cons (/ a b) (% a b)))) |
40785 | 3147 |
3148 (defun math-quotient (a b) ; [I I I] [Public] | |
3149 (if (and (not (consp a)) (not (consp b))) | |
3150 (if (= b 0) | |
3151 (math-reject-arg a "*Division by zero") | |
3152 (/ a b)) | |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3153 (if (and (natnump b) (< b math-bignum-digit-size)) |
40785 | 3154 (if (= b 0) |
3155 (math-reject-arg a "*Division by zero") | |
3156 (math-normalize (cons (car a) | |
3157 (car (math-div-bignum-digit (cdr a) b))))) | |
3158 (or (consp a) (setq a (math-bignum a))) | |
3159 (or (consp b) (setq b (math-bignum b))) | |
3160 (let* ((alen (1- (length a))) | |
3161 (blen (1- (length b))) | |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3162 (d (/ math-bignum-digit-size (1+ (nth (1- blen) (cdr b))))) |
40785 | 3163 (res (math-div-bignum-big (math-mul-bignum-digit (cdr a) d 0) |
3164 (math-mul-bignum-digit (cdr b) d 0) | |
3165 alen blen))) | |
3166 (math-normalize (cons (if (eq (car a) (car b)) 'bigpos 'bigneg) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3167 (car res))))))) |
40785 | 3168 |
3169 | |
3170 ;;; Divide a bignum digit list by another. [l.l l L] | |
3171 ;;; The following division algorithm is borrowed from Knuth vol. II, sec. 4.3.1 | |
3172 (defun math-div-bignum (a b) | |
3173 (if (cdr b) | |
3174 (let* ((alen (length a)) | |
3175 (blen (length b)) | |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3176 (d (/ math-bignum-digit-size (1+ (nth (1- blen) b)))) |
40785 | 3177 (res (math-div-bignum-big (math-mul-bignum-digit a d 0) |
3178 (math-mul-bignum-digit b d 0) | |
3179 alen blen))) | |
3180 (if (= d 1) | |
3181 res | |
3182 (cons (car res) | |
3183 (car (math-div-bignum-digit (cdr res) d))))) | |
3184 (let ((res (math-div-bignum-digit a (car b)))) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3185 (cons (car res) (list (cdr res)))))) |
40785 | 3186 |
3187 ;;; Divide a bignum digit list by a digit. [l.D l D] | |
3188 (defun math-div-bignum-digit (a b) | |
3189 (if a | |
3190 (let* ((res (math-div-bignum-digit (cdr a) b)) | |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3191 (num (+ (* (cdr res) math-bignum-digit-size) (car a)))) |
40785 | 3192 (cons |
3193 (cons (/ num b) (car res)) | |
3194 (% num b))) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3195 '(nil . 0))) |
40785 | 3196 |
3197 (defun math-div-bignum-big (a b alen blen) ; [l.l l L] | |
3198 (if (< alen blen) | |
3199 (cons nil a) | |
3200 (let* ((res (math-div-bignum-big (cdr a) b (1- alen) blen)) | |
3201 (num (cons (car a) (cdr res))) | |
3202 (res2 (math-div-bignum-part num b blen))) | |
3203 (cons | |
3204 (cons (car res2) (car res)) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3205 (cdr res2))))) |
40785 | 3206 |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3207 (defun math-div-bignum-part (a b blen) ; a < b*math-bignum-digit-size [D.l l L] |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
3208 (let* ((num (+ (* (or (nth blen a) 0) math-bignum-digit-size) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3209 (or (nth (1- blen) a) 0))) |
40785 | 3210 (den (nth (1- blen) b)) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3211 (guess (min (/ num den) (1- math-bignum-digit-size)))) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3212 (math-div-bignum-try a b (math-mul-bignum-digit b guess 0) guess))) |
40785 | 3213 |
3214 (defun math-div-bignum-try (a b c guess) ; [D.l l l D] | |
3215 (let ((rem (math-sub-bignum a c))) | |
3216 (if (eq rem 'neg) | |
3217 (math-div-bignum-try a b (math-sub-bignum c b) (1- guess)) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3218 (cons guess rem)))) |
40785 | 3219 |
3220 | |
3221 ;;; Compute the quotient of A and B. [O O N] [Public] | |
3222 (defun math-div (a b) | |
3223 (or | |
3224 (and (Math-zerop b) | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3225 (require 'calc-ext) |
40785 | 3226 (math-div-by-zero a b)) |
3227 (and (Math-zerop a) (not (eq (car-safe b) 'mod)) | |
3228 (if (Math-scalarp b) | |
3229 (if (and (math-floatp b) (Math-ratp a)) (math-float a) a) | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3230 (require 'calc-ext) |
40785 | 3231 (math-div-zero a b))) |
3232 (and (Math-objvecp a) (Math-objvecp b) | |
3233 (or | |
3234 (and (Math-integerp a) (Math-integerp b) | |
3235 (let ((q (math-idivmod a b))) | |
3236 (if (eq (cdr q) 0) | |
3237 (car q) | |
3238 (if calc-prefer-frac | |
3239 (progn | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3240 (require 'calc-ext) |
40785 | 3241 (math-make-frac a b)) |
3242 (math-div-float (math-make-float a 0) | |
3243 (math-make-float b 0)))))) | |
3244 (and (Math-ratp a) (Math-ratp b) | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3245 (require 'calc-ext) |
40785 | 3246 (calc-div-fractions a b)) |
3247 (and (Math-realp a) (Math-realp b) | |
3248 (progn | |
3249 (or (and (consp a) (eq (car a) 'float)) | |
3250 (setq a (math-float a))) | |
3251 (or (and (consp b) (eq (car b) 'float)) | |
3252 (setq b (math-float b))) | |
3253 (math-div-float a b))) | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3254 (and (require 'calc-ext) |
40785 | 3255 (math-div-objects-fancy a b)))) |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3256 (and (require 'calc-ext) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3257 (math-div-symb-fancy a b)))) |
40785 | 3258 |
3259 (defun math-div-float (a b) ; [F F F] | |
3260 (let ((ldiff (max (- (1+ calc-internal-prec) | |
3261 (- (math-numdigs (nth 1 a)) (math-numdigs (nth 1 b)))) | |
3262 0))) | |
3263 (math-make-float (math-quotient (math-scale-int (nth 1 a) ldiff) (nth 1 b)) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3264 (- (- (nth 2 a) (nth 2 b)) ldiff)))) |
40785 | 3265 |
3266 | |
3267 | |
3268 | |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
3269 (defvar calc-selection-cache-entry) |
40785 | 3270 ;;; Format the number A as a string. [X N; X Z] [Public] |
3271 (defun math-format-stack-value (entry) | |
3272 (setq calc-selection-cache-entry calc-selection-cache-default-entry) | |
3273 (let* ((a (car entry)) | |
3274 (math-comp-selected (nth 2 entry)) | |
3275 (c (cond ((null a) "<nil>") | |
3276 ((eq calc-display-raw t) (format "%s" a)) | |
3277 ((stringp a) a) | |
45769 | 3278 ((eq a 'top-of-stack) (propertize "." 'font-lock-face 'bold)) |
40785 | 3279 (calc-prepared-composition |
3280 calc-prepared-composition) | |
3281 ((and (Math-scalarp a) | |
3282 (memq calc-language '(nil flat unform)) | |
3283 (null math-comp-selected)) | |
3284 (math-format-number a)) | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3285 (t (require 'calc-ext) |
40785 | 3286 (math-compose-expr a 0)))) |
3287 (off (math-stack-value-offset c)) | |
3288 s w) | |
3289 (and math-comp-selected (setq calc-any-selections t)) | |
3290 (setq w (cdr off) | |
3291 off (car off)) | |
45769 | 3292 (when (> off 0) |
64027
ba3f24a57b73
(calc): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents:
62911
diff
changeset
|
3293 (setq c (math-comp-concat (make-string off ?\s) c))) |
40785 | 3294 (or (equal calc-left-label "") |
3295 (setq c (math-comp-concat (if (eq a 'top-of-stack) | |
64027
ba3f24a57b73
(calc): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents:
62911
diff
changeset
|
3296 (make-string (length calc-left-label) ?\s) |
40785 | 3297 calc-left-label) |
3298 c))) | |
45769 | 3299 (when calc-line-numbering |
3300 (setq c (math-comp-concat (if (eq calc-language 'big) | |
46807
f57a8a1712ae
(math-format-stack-value): Revert a broken
David Kastrup <dak@gnu.org>
parents:
45769
diff
changeset
|
3301 (if math-comp-selected |
f57a8a1712ae
(math-format-stack-value): Revert a broken
David Kastrup <dak@gnu.org>
parents:
45769
diff
changeset
|
3302 '(tag t "1: ") |
f57a8a1712ae
(math-format-stack-value): Revert a broken
David Kastrup <dak@gnu.org>
parents:
45769
diff
changeset
|
3303 "1: ") |
45769 | 3304 " ") |
3305 c))) | |
3306 (unless (or (equal calc-right-label "") | |
3307 (eq a 'top-of-stack)) | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3308 (require 'calc-ext) |
45769 | 3309 (setq c (list 'horiz c |
3310 (make-string (max (- w (math-comp-width c) | |
64027
ba3f24a57b73
(calc): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents:
62911
diff
changeset
|
3311 (length calc-right-label)) 0) ?\s) |
45769 | 3312 '(break -1) |
3313 calc-right-label))) | |
40785 | 3314 (setq s (if (stringp c) |
3315 (if calc-display-raw | |
3316 (prin1-to-string c) | |
3317 c) | |
3318 (math-composition-to-string c w))) | |
45769 | 3319 (when calc-language-output-filter |
3320 (setq s (funcall calc-language-output-filter s))) | |
40785 | 3321 (if (eq calc-language 'big) |
3322 (setq s (concat s "\n")) | |
45769 | 3323 (when calc-line-numbering |
54583
4a88f2b2e26a
(calc-mode-map): Use mapc.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
3324 (setq s (concat "1:" (substring s 2))))) |
40785 | 3325 (setcar (cdr entry) (calc-count-lines s)) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3326 s)) |
40785 | 3327 |
58467
4a905282edbb
(math-stack-value-offset): Replace variables c, wid and off with
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58103
diff
changeset
|
3328 ;; The variables math-svo-c, math-svo-wid and math-svo-off are local |
4a905282edbb
(math-stack-value-offset): Replace variables c, wid and off with
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58103
diff
changeset
|
3329 ;; to math-stack-value-offset, but are used by math-stack-value-offset-fancy |
4a905282edbb
(math-stack-value-offset): Replace variables c, wid and off with
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58103
diff
changeset
|
3330 ;; in calccomp.el. |
4a905282edbb
(math-stack-value-offset): Replace variables c, wid and off with
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58103
diff
changeset
|
3331 |
4a905282edbb
(math-stack-value-offset): Replace variables c, wid and off with
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58103
diff
changeset
|
3332 (defun math-stack-value-offset (math-svo-c) |
40785 | 3333 (let* ((num (if calc-line-numbering 4 0)) |
58467
4a905282edbb
(math-stack-value-offset): Replace variables c, wid and off with
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58103
diff
changeset
|
3334 (math-svo-wid (calc-window-width)) |
4a905282edbb
(math-stack-value-offset): Replace variables c, wid and off with
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58103
diff
changeset
|
3335 math-svo-off) |
40785 | 3336 (if calc-display-just |
3337 (progn | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3338 (require 'calc-ext) |
40785 | 3339 (math-stack-value-offset-fancy)) |
58467
4a905282edbb
(math-stack-value-offset): Replace variables c, wid and off with
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58103
diff
changeset
|
3340 (setq math-svo-off (or calc-display-origin 0)) |
45769 | 3341 (when (integerp calc-line-breaking) |
58467
4a905282edbb
(math-stack-value-offset): Replace variables c, wid and off with
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58103
diff
changeset
|
3342 (setq math-svo-wid calc-line-breaking))) |
4a905282edbb
(math-stack-value-offset): Replace variables c, wid and off with
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58103
diff
changeset
|
3343 (cons (max (- math-svo-off (length calc-left-label)) 0) |
4a905282edbb
(math-stack-value-offset): Replace variables c, wid and off with
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58103
diff
changeset
|
3344 (+ math-svo-wid num)))) |
40785 | 3345 |
3346 (defun calc-count-lines (s) | |
3347 (let ((pos 0) | |
3348 (num 1)) | |
47641
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
3349 (while (setq pos (string-match "\n" s pos)) |
172cf7391545
(calc-bug-address, calc-scan-for-dels, calc-stack)
Colin Walters <walters@gnu.org>
parents:
47539
diff
changeset
|
3350 (setq pos (1+ pos) |
40785 | 3351 num (1+ num))) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3352 num)) |
40785 | 3353 |
3354 (defun math-format-value (a &optional w) | |
3355 (if (and (Math-scalarp a) | |
3356 (memq calc-language '(nil flat unform))) | |
3357 (math-format-number a) | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3358 (require 'calc-ext) |
40785 | 3359 (let ((calc-line-breaking nil)) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3360 (math-composition-to-string (math-compose-expr a 0) w)))) |
40785 | 3361 |
3362 (defun calc-window-width () | |
3363 (if calc-embedded-info | |
3364 (let ((win (get-buffer-window (aref calc-embedded-info 0)))) | |
40999
d5ccdce87268
Use `frame-width' instead of `screen-width',
Eli Zaretskii <eliz@gnu.org>
parents:
40911
diff
changeset
|
3365 (1- (if win (window-width win) (frame-width)))) |
40785 | 3366 (- (window-width (get-buffer-window (current-buffer))) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3367 (if calc-line-numbering 5 1)))) |
40785 | 3368 |
3369 (defun math-comp-concat (c1 c2) | |
3370 (if (and (stringp c1) (stringp c2)) | |
3371 (concat c1 c2) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3372 (list 'horiz c1 c2))) |
40785 | 3373 |
3374 | |
3375 | |
3376 ;;; Format an expression as a one-line string suitable for re-reading. | |
3377 | |
3378 (defun math-format-flat-expr (a prec) | |
3379 (cond | |
3380 ((or (not (or (consp a) (integerp a))) | |
3381 (eq calc-display-raw t)) | |
3382 (let ((print-escape-newlines t)) | |
3383 (concat "'" (prin1-to-string a)))) | |
3384 ((Math-scalarp a) | |
3385 (let ((calc-group-digits nil) | |
3386 (calc-point-char ".") | |
3387 (calc-frac-format (if (> (length (car calc-frac-format)) 1) | |
3388 '("::" nil) '(":" nil))) | |
3389 (calc-complex-format nil) | |
3390 (calc-hms-format "%s@ %s' %s\"") | |
3391 (calc-language nil)) | |
3392 (math-format-number a))) | |
3393 (t | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3394 (require 'calc-ext) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3395 (math-format-flat-expr-fancy a prec)))) |
40785 | 3396 |
3397 | |
3398 | |
3399 ;;; Format a number as a string. | |
106035
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
3400 (defvar math-half-2-word-size) |
40785 | 3401 (defun math-format-number (a &optional prec) ; [X N] [Public] |
3402 (cond | |
3403 ((eq calc-display-raw t) (format "%s" a)) | |
106135
44eb0cd5515b
(calc-set-mode-line): Rename `calc-complement-signed-mode' to
Jay Belanger <jay.p.belanger@gmail.com>
parents:
106036
diff
changeset
|
3404 ((and calc-twos-complement-mode |
106035
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
3405 math-radix-explicit-format |
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
3406 (Math-integerp a) |
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
3407 (or (eq a 0) |
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
3408 (and (Math-integer-posp a) |
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
3409 (Math-lessp a math-half-2-word-size)) |
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
3410 (and (Math-integer-negp a) |
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
3411 (require 'calc-ext) |
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
3412 (let ((comparison |
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
3413 (math-compare (Math-integer-neg a) math-half-2-word-size))) |
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
3414 (or (= comparison 0) |
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
3415 (= comparison -1)))))) |
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
3416 (require 'calc-bin) |
106135
44eb0cd5515b
(calc-set-mode-line): Rename `calc-complement-signed-mode' to
Jay Belanger <jay.p.belanger@gmail.com>
parents:
106036
diff
changeset
|
3417 (math-format-twos-complement a)) |
40785 | 3418 ((and (nth 1 calc-frac-format) (Math-integerp a)) |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3419 (require 'calc-ext) |
40785 | 3420 (math-format-number (math-adjust-fraction a))) |
3421 ((integerp a) | |
3422 (if (not (or calc-group-digits calc-leading-zeros)) | |
3423 (if (= calc-number-radix 10) | |
3424 (int-to-string a) | |
3425 (if (< a 0) | |
3426 (concat "-" (math-format-number (- a))) | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3427 (require 'calc-ext) |
40785 | 3428 (if math-radix-explicit-format |
3429 (if calc-radix-formatter | |
3430 (funcall calc-radix-formatter | |
3431 calc-number-radix | |
3432 (if (= calc-number-radix 2) | |
3433 (math-format-binary a) | |
3434 (math-format-radix a))) | |
3435 (format "%d#%s" calc-number-radix | |
3436 (if (= calc-number-radix 2) | |
3437 (math-format-binary a) | |
3438 (math-format-radix a)))) | |
3439 (math-format-radix a)))) | |
3440 (math-format-number (math-bignum a)))) | |
3441 ((stringp a) a) | |
3442 ((not (consp a)) (prin1-to-string a)) | |
3443 ((eq (car a) 'bigpos) (math-format-bignum (cdr a))) | |
3444 ((eq (car a) 'bigneg) (concat "-" (math-format-bignum (cdr a)))) | |
3445 ((and (eq (car a) 'float) (= calc-number-radix 10)) | |
3446 (if (Math-integer-negp (nth 1 a)) | |
3447 (concat "-" (math-format-number (math-neg a))) | |
3448 (let ((mant (nth 1 a)) | |
3449 (exp (nth 2 a)) | |
3450 (fmt (car calc-float-format)) | |
3451 (figs (nth 1 calc-float-format)) | |
3452 (point calc-point-char) | |
3453 str) | |
3454 (if (and (eq fmt 'fix) | |
3455 (or (and (< figs 0) (setq figs (- figs))) | |
3456 (> (+ exp (math-numdigs mant)) (- figs)))) | |
3457 (progn | |
3458 (setq mant (math-scale-rounding mant (+ exp figs)) | |
3459 str (if (integerp mant) | |
3460 (int-to-string mant) | |
3461 (math-format-bignum-decimal (cdr mant)))) | |
3462 (if (<= (length str) figs) | |
3463 (setq str (concat (make-string (1+ (- figs (length str))) ?0) | |
3464 str))) | |
3465 (if (> figs 0) | |
3466 (setq str (concat (substring str 0 (- figs)) point | |
3467 (substring str (- figs)))) | |
3468 (setq str (concat str point))) | |
44574
f9b633c7d323
(math-format-number): Load `calc-ext' before we call
Colin Walters <walters@gnu.org>
parents:
44249
diff
changeset
|
3469 (when calc-group-digits |
f9b633c7d323
(math-format-number): Load `calc-ext' before we call
Colin Walters <walters@gnu.org>
parents:
44249
diff
changeset
|
3470 (require 'calc-ext) |
f9b633c7d323
(math-format-number): Load `calc-ext' before we call
Colin Walters <walters@gnu.org>
parents:
44249
diff
changeset
|
3471 (setq str (math-group-float str)))) |
45769 | 3472 (when (< figs 0) |
3473 (setq figs (+ calc-internal-prec figs))) | |
3474 (when (> figs 0) | |
3475 (let ((adj (- figs (math-numdigs mant)))) | |
3476 (when (< adj 0) | |
3477 (setq mant (math-scale-rounding mant adj) | |
3478 exp (- exp adj))))) | |
40785 | 3479 (setq str (if (integerp mant) |
3480 (int-to-string mant) | |
3481 (math-format-bignum-decimal (cdr mant)))) | |
3482 (let* ((len (length str)) | |
3483 (dpos (+ exp len))) | |
3484 (if (and (eq fmt 'float) | |
3485 (<= dpos (+ calc-internal-prec calc-display-sci-high)) | |
3486 (>= dpos (+ calc-display-sci-low 2))) | |
3487 (progn | |
3488 (cond | |
3489 ((= dpos 0) | |
3490 (setq str (concat "0" point str))) | |
3491 ((and (<= exp 0) (> dpos 0)) | |
3492 (setq str (concat (substring str 0 dpos) point | |
3493 (substring str dpos)))) | |
3494 ((> exp 0) | |
3495 (setq str (concat str (make-string exp ?0) point))) | |
3496 (t ; (< dpos 0) | |
3497 (setq str (concat "0" point | |
3498 (make-string (- dpos) ?0) str)))) | |
44574
f9b633c7d323
(math-format-number): Load `calc-ext' before we call
Colin Walters <walters@gnu.org>
parents:
44249
diff
changeset
|
3499 (when calc-group-digits |
f9b633c7d323
(math-format-number): Load `calc-ext' before we call
Colin Walters <walters@gnu.org>
parents:
44249
diff
changeset
|
3500 (require 'calc-ext) |
f9b633c7d323
(math-format-number): Load `calc-ext' before we call
Colin Walters <walters@gnu.org>
parents:
44249
diff
changeset
|
3501 (setq str (math-group-float str)))) |
40785 | 3502 (let* ((eadj (+ exp len)) |
3503 (scale (if (eq fmt 'eng) | |
3504 (1+ (math-mod (+ eadj 300002) 3)) | |
3505 1))) | |
3506 (if (> scale (length str)) | |
3507 (setq str (concat str (make-string (- scale (length str)) | |
3508 ?0)))) | |
3509 (if (< scale (length str)) | |
3510 (setq str (concat (substring str 0 scale) point | |
3511 (substring str scale)))) | |
44574
f9b633c7d323
(math-format-number): Load `calc-ext' before we call
Colin Walters <walters@gnu.org>
parents:
44249
diff
changeset
|
3512 (when calc-group-digits |
f9b633c7d323
(math-format-number): Load `calc-ext' before we call
Colin Walters <walters@gnu.org>
parents:
44249
diff
changeset
|
3513 (require 'calc-ext) |
f9b633c7d323
(math-format-number): Load `calc-ext' before we call
Colin Walters <walters@gnu.org>
parents:
44249
diff
changeset
|
3514 (setq str (math-group-float str))) |
40785 | 3515 (setq str (format (if (memq calc-language '(math maple)) |
3516 (if (and prec (> prec 191)) | |
3517 "(%s*10.^%d)" "%s*10.^%d") | |
3518 "%se%d") | |
3519 str (- eadj scale))))))) | |
3520 str))) | |
3521 (t | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3522 (require 'calc-ext) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3523 (math-format-number-fancy a prec)))) |
40785 | 3524 |
3525 (defun math-format-bignum (a) ; [X L] | |
3526 (if (and (= calc-number-radix 10) | |
3527 (not calc-leading-zeros) | |
3528 (not calc-group-digits)) | |
3529 (math-format-bignum-decimal a) | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3530 (require 'calc-ext) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3531 (math-format-bignum-fancy a))) |
40785 | 3532 |
3533 (defun math-format-bignum-decimal (a) ; [X L] | |
3534 (if a | |
3535 (let ((s "")) | |
3536 (while (cdr (cdr a)) | |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
3537 (setq s (concat |
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
3538 (format |
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
3539 (concat "%0" |
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
3540 (number-to-string (* 2 math-bignum-digit-length)) |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3541 "d") |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3542 (+ (* (nth 1 a) math-bignum-digit-size) (car a))) s) |
40785 | 3543 a (cdr (cdr a)))) |
84892
ebd3a386d39c
(calc-digit-map, calc-dispatch-map, calc-mode, calc-quit):
Juanma Barranquero <lekktu@gmail.com>
parents:
82438
diff
changeset
|
3544 (concat (int-to-string |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3545 (+ (* (or (nth 1 a) 0) math-bignum-digit-size) (car a))) s)) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3546 "0")) |
40785 | 3547 |
3548 | |
3549 | |
3550 ;;; Parse a simple number in string form. [N X] [Public] | |
97280
ab31e89ca779
(math-read-number): Handle C numbers beginning with 0 correctly.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
96394
diff
changeset
|
3551 (defun math-read-number (s &optional decimal) |
81729
c88370efde0d
(math-read-number): Replace number by variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81719
diff
changeset
|
3552 "Convert the string S into a Calc number." |
40785 | 3553 (math-normalize |
105713
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3554 (save-match-data |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3555 (cond |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3556 |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3557 ;; Integers (most common case) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3558 ((string-match "\\` *\\([0-9]+\\) *\\'" s) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3559 (let ((digs (math-match-substring s 1))) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3560 (if (and (memq calc-language calc-lang-c-type-hex) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3561 (> (length digs) 1) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3562 (eq (aref digs 0) ?0) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3563 (null decimal)) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3564 (math-read-number (concat "8#" digs)) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3565 (if (<= (length digs) (* 2 math-bignum-digit-length)) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3566 (string-to-number digs) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3567 (cons 'bigpos (math-read-bignum digs)))))) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3568 |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3569 ;; Clean up the string if necessary |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3570 ((string-match "\\`\\(.*\\)[ \t\n]+\\([^\001]*\\)\\'" s) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3571 (math-read-number (concat (math-match-substring s 1) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3572 (math-match-substring s 2)))) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3573 |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3574 ;; Plus and minus signs |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3575 ((string-match "^[-_+]\\(.*\\)$" s) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3576 (let ((val (math-read-number (math-match-substring s 1)))) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3577 (and val (if (eq (aref s 0) ?+) val (math-neg val))))) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3578 |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3579 ;; Forms that require extensions module |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3580 ((string-match "[^-+0-9eE.]" s) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3581 (require 'calc-ext) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3582 (math-read-number-fancy s)) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3583 |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3584 ;; Decimal point |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3585 ((string-match "^\\([0-9]*\\)\\.\\([0-9]*\\)$" s) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3586 (let ((int (math-match-substring s 1)) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3587 (frac (math-match-substring s 2))) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3588 (let ((ilen (length int)) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3589 (flen (length frac))) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3590 (let ((int (if (> ilen 0) (math-read-number int t) 0)) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3591 (frac (if (> flen 0) (math-read-number frac t) 0))) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3592 (and int frac (or (> ilen 0) (> flen 0)) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3593 (list 'float |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3594 (math-add (math-scale-int int flen) frac) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3595 (- flen))))))) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3596 |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3597 ;; "e" notation |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3598 ((string-match "^\\(.*\\)[eE]\\([-+]?[0-9]+\\)$" s) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3599 (let ((mant (math-match-substring s 1)) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3600 (exp (math-match-substring s 2))) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3601 (let ((mant (if (> (length mant) 0) (math-read-number mant t) 1)) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3602 (exp (if (<= (length exp) (if (memq (aref exp 0) '(?+ ?-)) 8 7)) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3603 (string-to-number exp)))) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3604 (and mant exp (Math-realp mant) (> exp -4000000) (< exp 4000000) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3605 (let ((mant (math-float mant))) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3606 (list 'float (nth 1 mant) (+ (nth 2 mant) exp))))))) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3607 |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3608 ;; Syntax error! |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3609 (t nil))))) |
40785 | 3610 |
81535
041563cafc04
(math-read-number-simple): New function.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81513
diff
changeset
|
3611 ;;; Parse a very simple number, keeping all digits. |
041563cafc04
(math-read-number-simple): New function.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81513
diff
changeset
|
3612 (defun math-read-number-simple (s) |
81729
c88370efde0d
(math-read-number): Replace number by variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81719
diff
changeset
|
3613 "Convert the string S into a Calc number. |
c88370efde0d
(math-read-number): Replace number by variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81719
diff
changeset
|
3614 S is assumed to be a simple number (integer or float without an exponent) |
c88370efde0d
(math-read-number): Replace number by variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81719
diff
changeset
|
3615 and all digits are kept, regardless of Calc's current precision." |
105713
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3616 (save-match-data |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3617 (cond |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3618 ;; Integer |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3619 ((string-match "^[0-9]+$" s) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3620 (if (string-match "^\\(0+\\)" s) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3621 (setq s (substring s (match-end 0)))) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3622 (if (<= (length s) (* 2 math-bignum-digit-length)) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3623 (string-to-number s) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3624 (cons 'bigpos (math-read-bignum s)))) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3625 ;; Minus sign |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3626 ((string-match "^-[0-9]+$" s) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3627 (if (<= (length s) (1+ (* 2 math-bignum-digit-length))) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3628 (string-to-number s) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3629 (cons 'bigneg (math-read-bignum (substring s 1))))) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3630 ;; Decimal point |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3631 ((string-match "^\\(-?[0-9]*\\)\\.\\([0-9]*\\)$" s) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3632 (let ((int (math-match-substring s 1)) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3633 (frac (math-match-substring s 2))) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3634 (list 'float (math-read-number-simple (concat int frac)) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3635 (- (length frac))))) |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3636 ;; Syntax error! |
4d7b61a743cb
(math-read-number, math-read-number-simple): Use `save-match-data'.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105478
diff
changeset
|
3637 (t nil)))) |
81535
041563cafc04
(math-read-number-simple): New function.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81513
diff
changeset
|
3638 |
40785 | 3639 (defun math-match-substring (s n) |
3640 (if (match-beginning n) | |
3641 (substring s (match-beginning n) (match-end n)) | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3642 "")) |
40785 | 3643 |
3644 (defun math-read-bignum (s) ; [l X] | |
81573
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3645 (if (> (length s) math-bignum-digit-length) |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3646 (cons (string-to-number (substring s (- math-bignum-digit-length))) |
d5640ed7c397
(math-bignum-digit-length,math-bignum-digit-size,math-small-integer-size):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81535
diff
changeset
|
3647 (math-read-bignum (substring s 0 (- math-bignum-digit-length)))) |
62040
d9e11e28ebbb
(calcDigit-key, math-read-number, math-read-bignum): Replace
Jay Belanger <jay.p.belanger@gmail.com>
parents:
61833
diff
changeset
|
3648 (list (string-to-number s)))) |
40785 | 3649 |
3650 (defconst math-standard-opers | |
3651 '( ( "_" calcFunc-subscr 1200 1201 ) | |
3652 ( "%" calcFunc-percent 1100 -1 ) | |
3653 ( "u!" calcFunc-lnot -1 1000 ) | |
3654 ( "mod" mod 400 400 185 ) | |
3655 ( "+/-" sdev 300 300 185 ) | |
3656 ( "!!" calcFunc-dfact 210 -1 ) | |
3657 ( "!" calcFunc-fact 210 -1 ) | |
3658 ( "^" ^ 201 200 ) | |
3659 ( "**" ^ 201 200 ) | |
85701
a716b9a57af8
(math-standard-opers): Lower the precedence of negation.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
84892
diff
changeset
|
3660 ( "u+" ident -1 197 ) |
a716b9a57af8
(math-standard-opers): Lower the precedence of negation.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
84892
diff
changeset
|
3661 ( "u-" neg -1 197 ) |
40785 | 3662 ( "/" / 190 191 ) |
3663 ( "%" % 190 191 ) | |
3664 ( "\\" calcFunc-idiv 190 191 ) | |
3665 ( "+" + 180 181 ) | |
3666 ( "-" - 180 181 ) | |
3667 ( "|" | 170 171 ) | |
3668 ( "<" calcFunc-lt 160 161 ) | |
3669 ( ">" calcFunc-gt 160 161 ) | |
3670 ( "<=" calcFunc-leq 160 161 ) | |
3671 ( ">=" calcFunc-geq 160 161 ) | |
3672 ( "=" calcFunc-eq 160 161 ) | |
3673 ( "==" calcFunc-eq 160 161 ) | |
3674 ( "!=" calcFunc-neq 160 161 ) | |
3675 ( "&&" calcFunc-land 110 111 ) | |
3676 ( "||" calcFunc-lor 100 101 ) | |
3677 ( "?" (math-read-if) 91 90 ) | |
3678 ( "!!!" calcFunc-pnot -1 85 ) | |
3679 ( "&&&" calcFunc-pand 80 81 ) | |
3680 ( "|||" calcFunc-por 75 76 ) | |
3681 ( ":=" calcFunc-assign 51 50 ) | |
3682 ( "::" calcFunc-condition 45 46 ) | |
3683 ( "=>" calcFunc-evalto 40 41 ) | |
41270
711f18abaf57
(calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents:
41047
diff
changeset
|
3684 ( "=>" calcFunc-evalto 40 -1 ))) |
81466
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
3685 |
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
3686 (defun math-standard-ops () |
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
3687 (if calc-multiplication-has-precedence |
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
3688 (cons |
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
3689 '( "*" * 196 195 ) |
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
3690 (cons |
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
3691 '( "2x" * 196 195 ) |
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
3692 math-standard-opers)) |
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
3693 (cons |
81513
9d34273fd331
(math-standard-ops): Fix precedence of multiplication.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81466
diff
changeset
|
3694 '( "*" * 190 191 ) |
81466
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
3695 (cons |
81513
9d34273fd331
(math-standard-ops): Fix precedence of multiplication.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81466
diff
changeset
|
3696 '( "2x" * 190 191 ) |
81466
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
3697 math-standard-opers)))) |
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
3698 |
81748
61fb5a974af6
(math-bignum-digit-length): Evaluate when compiled.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81741
diff
changeset
|
3699 (defvar math-expr-opers (math-standard-ops)) |
61fb5a974af6
(math-bignum-digit-length): Evaluate when compiled.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
81741
diff
changeset
|
3700 |
81466
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
3701 (defun math-standard-ops-p () |
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
3702 (let ((meo (caar math-expr-opers))) |
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
3703 (and (stringp meo) |
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
3704 (string= meo "*")))) |
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
3705 |
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
3706 (defun math-expr-ops () |
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
3707 (if (math-standard-ops-p) |
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
3708 (math-standard-ops) |
e51a63a95590
(calc-multiplication-has-precendence): New variable.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
77464
diff
changeset
|
3709 math-expr-opers)) |
40785 | 3710 |
3711 ;;;###autoload | |
3712 (defun calc-grab-region (top bot arg) | |
3713 "Parse the region as a vector of numbers and push it on the Calculator stack." | |
3714 (interactive "r\nP") | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3715 (require 'calc-ext) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3716 (calc-do-grab-region top bot arg)) |
40785 | 3717 |
3718 ;;;###autoload | |
3719 (defun calc-grab-rectangle (top bot arg) | |
3720 "Parse a rectangle as a matrix of numbers and push it on the Calculator stack." | |
3721 (interactive "r\nP") | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3722 (require 'calc-ext) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3723 (calc-do-grab-rectangle top bot arg)) |
40785 | 3724 |
3725 (defun calc-grab-sum-down (top bot arg) | |
3726 "Parse a rectangle as a matrix of numbers and sum its columns." | |
3727 (interactive "r\nP") | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3728 (require 'calc-ext) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3729 (calc-do-grab-rectangle top bot arg 'calcFunc-reduced)) |
40785 | 3730 |
3731 (defun calc-grab-sum-across (top bot arg) | |
3732 "Parse a rectangle as a matrix of numbers and sum its rows." | |
3733 (interactive "r\nP") | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3734 (require 'calc-ext) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3735 (calc-do-grab-rectangle top bot arg 'calcFunc-reducea)) |
40785 | 3736 |
3737 | |
3738 ;;;###autoload | |
3739 (defun calc-embedded (arg &optional end obeg oend) | |
3740 "Start Calc Embedded mode on the formula surrounding point." | |
3741 (interactive "P") | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3742 (require 'calc-ext) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3743 (calc-do-embedded arg end obeg oend)) |
40785 | 3744 |
3745 ;;;###autoload | |
3746 (defun calc-embedded-activate (&optional arg cbuf) | |
3747 "Scan the current editing buffer for all embedded := and => formulas. | |
3748 Also looks for the equivalent TeX words, \\gets and \\evalto." | |
3749 (interactive "P") | |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3750 (calc-do-embedded-activate arg cbuf)) |
40785 | 3751 |
3752 (defun calc-user-invocation () | |
3753 (interactive) | |
62880
321a0876ac0b
(calc-user-invocation): Check if calc-invocation-macro is non-nil.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
62836
diff
changeset
|
3754 (unless calc-invocation-macro |
67189
50f4df2d357a
Change global keybinding for calc-dispatch to "\C-x*"
Jay Belanger <jay.p.belanger@gmail.com>
parents:
66865
diff
changeset
|
3755 (error "Use `Z I' inside Calc to define a `C-x * Z' keyboard macro")) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3756 (execute-kbd-macro calc-invocation-macro nil)) |
40785 | 3757 |
3758 ;;; User-programmability. | |
3759 | |
3760 ;;;###autoload | |
3761 (defmacro defmath (func args &rest body) ; [Public] | |
96394
c594284b21d1
(defmath): Add `doc-string' decl. Add docstring.
John Paul Wallington <jpw@pobox.com>
parents:
96219
diff
changeset
|
3762 "Define Calc function. |
c594284b21d1
(defmath): Add `doc-string' decl. Add docstring.
John Paul Wallington <jpw@pobox.com>
parents:
96219
diff
changeset
|
3763 |
c594284b21d1
(defmath): Add `doc-string' decl. Add docstring.
John Paul Wallington <jpw@pobox.com>
parents:
96219
diff
changeset
|
3764 Like `defun' except that code in the body of the definition can |
c594284b21d1
(defmath): Add `doc-string' decl. Add docstring.
John Paul Wallington <jpw@pobox.com>
parents:
96219
diff
changeset
|
3765 make use of the full range of Calc data types and the usual |
c594284b21d1
(defmath): Add `doc-string' decl. Add docstring.
John Paul Wallington <jpw@pobox.com>
parents:
96219
diff
changeset
|
3766 arithmetic operations are converted to their Calc equivalents. |
c594284b21d1
(defmath): Add `doc-string' decl. Add docstring.
John Paul Wallington <jpw@pobox.com>
parents:
96219
diff
changeset
|
3767 |
c594284b21d1
(defmath): Add `doc-string' decl. Add docstring.
John Paul Wallington <jpw@pobox.com>
parents:
96219
diff
changeset
|
3768 The prefix `calcFunc-' is added to the specified name to get the |
c594284b21d1
(defmath): Add `doc-string' decl. Add docstring.
John Paul Wallington <jpw@pobox.com>
parents:
96219
diff
changeset
|
3769 actual Lisp function name. |
c594284b21d1
(defmath): Add `doc-string' decl. Add docstring.
John Paul Wallington <jpw@pobox.com>
parents:
96219
diff
changeset
|
3770 |
c594284b21d1
(defmath): Add `doc-string' decl. Add docstring.
John Paul Wallington <jpw@pobox.com>
parents:
96219
diff
changeset
|
3771 See Info node `(calc)Defining Functions'." |
c594284b21d1
(defmath): Add `doc-string' decl. Add docstring.
John Paul Wallington <jpw@pobox.com>
parents:
96219
diff
changeset
|
3772 (declare (doc-string 3)) |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3773 (require 'calc-ext) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3774 (math-do-defmath func args body)) |
40785 | 3775 |
3776 ;;; Functions needed for Lucid Emacs support. | |
3777 | |
3778 (defun calc-read-key (&optional optkey) | |
85762
29e75576e47f
* calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85701
diff
changeset
|
3779 (cond ((featurep 'xemacs) |
40785 | 3780 (let ((event (next-command-event))) |
3781 (let ((key (event-to-character event t t))) | |
3782 (or key optkey (error "Expected a plain keystroke")) | |
3783 (cons key event)))) | |
57591
98d755565607
(calc-emacs-type-19, calc-emacs-type-epoch, calc-emacs-type-gnu19):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
57429
diff
changeset
|
3784 (t |
40785 | 3785 (let ((key (read-event))) |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3786 (cons key key))))) |
40785 | 3787 |
3788 (defun calc-unread-command (&optional input) | |
40999
d5ccdce87268
Use `frame-width' instead of `screen-width',
Eli Zaretskii <eliz@gnu.org>
parents:
40911
diff
changeset
|
3789 (if (featurep 'xemacs) |
d5ccdce87268
Use `frame-width' instead of `screen-width',
Eli Zaretskii <eliz@gnu.org>
parents:
40911
diff
changeset
|
3790 (setq unread-command-event |
d5ccdce87268
Use `frame-width' instead of `screen-width',
Eli Zaretskii <eliz@gnu.org>
parents:
40911
diff
changeset
|
3791 (if (integerp input) (character-to-event input) |
d5ccdce87268
Use `frame-width' instead of `screen-width',
Eli Zaretskii <eliz@gnu.org>
parents:
40911
diff
changeset
|
3792 (or input last-command-event))) |
d5ccdce87268
Use `frame-width' instead of `screen-width',
Eli Zaretskii <eliz@gnu.org>
parents:
40911
diff
changeset
|
3793 (push (or input last-command-event) unread-command-events))) |
40785 | 3794 |
3795 (defun calc-clear-unread-commands () | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49263
diff
changeset
|
3796 (if (featurep 'xemacs) |
85762
29e75576e47f
* calc/calc.el (calc-emacs-type-lucid): Remove.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85701
diff
changeset
|
3797 (setq unread-command-event nil) |
40999
d5ccdce87268
Use `frame-width' instead of `screen-width',
Eli Zaretskii <eliz@gnu.org>
parents:
40911
diff
changeset
|
3798 (setq unread-command-events nil))) |
40785 | 3799 |
106035
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
3800 (defcalcmodevar math-2-word-size |
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
3801 (math-read-number-simple "4294967296") |
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
3802 "Two to the power of `calc-word-size'.") |
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
3803 |
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
3804 (defcalcmodevar math-half-2-word-size |
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
3805 (math-read-number-simple "2147483648") |
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
3806 "One-half of two to the power of `calc-word-size'.") |
0cbe709e0f55
(math-2-word-size, math-half-2-word-size, calc-complement-signed-mode):
Jay Belanger <jay.p.belanger@gmail.com>
parents:
105792
diff
changeset
|
3807 |
45769 | 3808 (when calc-always-load-extensions |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3809 (require 'calc-ext) |
45769 | 3810 (calc-load-everything)) |
40785 | 3811 |
3812 | |
3813 (run-hooks 'calc-load-hook) | |
3814 | |
58615
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3815 (provide 'calc) |
bba6d2de0a93
Move require to end of file.
Jay Belanger <jay.p.belanger@gmail.com>
parents:
58477
diff
changeset
|
3816 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93880
diff
changeset
|
3817 ;; arch-tag: 0c3b170c-4ce6-4eaf-8d9b-5834d1fe938f |
41047
73f364fd8aaa
Style cleanup; don't put closing parens on their
Colin Walters <walters@gnu.org>
parents:
40999
diff
changeset
|
3818 ;;; calc.el ends here |