annotate lisp/calc/calc.el @ 108765:d835100c3e8b

Replace Lisp calls to delete-backward-char by delete-char. * bs.el, expand.el, ido.el, image-dired.el, lpr.el, pcomplete.el, skeleton.el, term.el, time.el, wid-edit.el, woman.el, calc/calc-graph.el, calc/calc-help.el, calc/calc-incom.el, calc/calc.el, emacs-cl-extra.el, emacs-cl-loaddefs.el, emulation/cua-rect.el, emulation/viper-ex.el, eshell/esh-test.el, eshell/eshell.el, gnus/gnus-uu.el, gnus/nndoc.el, gnus/nnrss.el, gnus/rfc2047.el, gnus/utf7.el, international/utf-7.el, language/ethio-util.el, mh-e/mh-alias.el, mh-e/mh-search.el, net/imap.el, net/rcirc.el, obsolete/complete.el, play/decipher.el, progmodes/ada-mode.el, progmodes/cc-awk.el, progmodes/dcl-mode.el, progmodes/ps-mode.el, progmodes/verilog-mode.el, progmodes/vhdl-mode.el, textmodes/bibtex.el, textmodes/fill.el, textmodes/reftex-auc.el, textmodes/rst.el, textmodes/sgml-mode.el, textmodes/table.el, textmodes/texinfmt.el: Replace Lisp calls to delete-backward-char by calls to delete-char.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 24 May 2010 22:11:08 -0400
parents c84578d13e42
children d150a25a0eb9
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 106135
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
9
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
24
41270
711f18abaf57 (calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents: 41047
diff changeset
25 ;;; Commentary:
40785
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
143
40911
df97a382ad43 (toplevel): Require calc-macs.
Eli Zaretskii <eliz@gnu.org>
parents: 40785
diff changeset
144 (require 'calc-macs)
40785
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
236 :group 'calc
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
237 :type '(file))
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
238
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
239 (defcustom calc-language-alist
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
240 '((latex-mode . latex)
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
241 (tex-mode . tex)
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
242 (plain-tex-mode . tex)
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
243 (context-mode . tex)
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
244 (nroff-mode . eqn)
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
245 (pascal-mode . pascal)
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
246 (c-mode . c)
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
247 (c++-mode . c)
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
259 :group 'calc
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
260 :type '(regexp))
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
282 :group 'calc
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
283 :type '(regexp))
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
288 :group 'calc
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
289 :type '(regexp))
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
302 :group 'calc
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
303 :type '(regexp))
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
315 If calc-show-plain mode is enabled, this is inserted at the front of
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
316 each formula."
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
317 :group 'calc
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
318 :type '(string))
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
323 See calc-embedded-open-plain."
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
324 :group 'calc
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
325 :type '(string))
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
348 :group 'calc
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
349 :type '(string))
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
354 :group 'calc
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
355 :type '(string))
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
368 This is not required to be present for user-written mode annotations."
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
369 :group 'calc
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
370 :type '(string))
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
375 This is not required to be present for user-written mode annotations."
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
376 :group 'calc
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
377 :type '(string))
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
400 :group 'calc
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
401 :type '(string))
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
406 :group 'calc
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
407 :type '(choice (string) (sexp)))
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
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
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
412 :group 'calc
a513872cd8a1 calc.el
Jay Belanger <jay.p.belanger@gmail.com>
parents: 61094
diff changeset
413 :type '(choice (string) (sexp)))
40785
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
779
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
780 (defconst calc-local-var-list '(calc-stack
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
781 calc-stack-top
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
782 calc-undo-list
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
783 calc-redo-list
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
784 calc-always-load-extensions
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
785 calc-mode-save-mode
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
786 calc-display-raw
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
787 calc-line-numbering
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
788 calc-line-breaking
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
789 calc-display-just
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
790 calc-display-origin
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
791 calc-left-label
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
792 calc-right-label
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
793 calc-auto-why
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
794 calc-algebraic-mode
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
795 calc-incomplete-algebraic-mode
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
796 calc-symbolic-mode
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
797 calc-matrix-mode
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
798 calc-inverse-flag
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
801 calc-keep-args-flag
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
802 calc-angle-mode
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
803 calc-number-radix
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
804 calc-leading-zeros
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
805 calc-group-digits
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
806 calc-group-char
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
807 calc-point-char
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
808 calc-frac-format
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
809 calc-prefer-frac
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
810 calc-hms-format
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
811 calc-date-format
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
812 calc-standard-date-formats
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
813 calc-float-format
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
814 calc-full-float-format
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
815 calc-complex-format
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
816 calc-matrix-just
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
817 calc-full-vectors
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
818 calc-full-trail-vectors
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
819 calc-break-vectors
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
820 calc-vector-commas
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
821 calc-vector-brackets
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
822 calc-matrix-brackets
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
823 calc-complex-mode
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
824 calc-infinite-mode
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
825 calc-display-strings
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
826 calc-simplify-mode
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
827 calc-auto-recompute
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
828 calc-autorange-units
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
829 calc-show-plain
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
830 calc-show-selections
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
831 calc-use-selections
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
832 calc-assoc-selections
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
833 calc-word-size
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
834 calc-internal-prec))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1157
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1158 ;;;###autoload
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1163 (condition-case err ; look for other keys bound to calc-dispatch
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1164 (let ((keys (this-command-keys)))
45769
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1165 (unless (or (not (stringp keys))
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1166 (string-match "\\`\C-u\\|\\`\e[-0-9#]\\|`[\M--\M-0-\M-9]" keys)
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1167 (eq (lookup-key calc-dispatch-map keys) 'calc-same-interface))
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1168 (when (and (string-match "\\`[\C-@-\C-_]" keys)
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1169 (symbolp
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1170 (lookup-key calc-dispatch-map (substring keys 0 1))))
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1171 (define-key calc-dispatch-map (substring keys 0 1) nil))
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1172 (define-key calc-dispatch-map keys 'calc-same-interface)))
40785
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1175
41270
711f18abaf57 (calc-record-compilation-date): Remove.
Colin Walters <walters@gnu.org>
parents: 41047
diff changeset
1176 (defvar calc-dispatch-help nil)
40785
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1179 (let ((key (calc-read-key-sequence
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1180 (if calc-dispatch-help
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1181 "Calc options: Calc, Keypad, Quick, Embed; eXit; Info, Tutorial; Grab; ?=more"
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1182 (format "%s (Type ? for a list of Calc options)"
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1183 (key-description (this-command-keys))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1184 calc-dispatch-map)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1185 (setq key (lookup-key calc-dispatch-map key))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1186 (message "")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1187 (if key
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1192
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1195 (let ((prompt2 (format "%s " (key-description (this-command-keys))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1196 (glob (current-global-map))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1199 (let ((key (calc-read-key t)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1200 (calc-unread-command (cdr key))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1201 (unwind-protect
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1202 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1203 (use-global-map map)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1272 (defun calc-mode ()
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1273 "Calculator major mode.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1274
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1275 This is an RPN calculator featuring arbitrary-precision integer, rational,
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1276 floating-point, complex, matrix, and symbolic arithmetic.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1277
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1278 RPN calculation: 2 RET 3 + produces 5.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1279 Algebraic style: ' 2+3 RET produces 5.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1280
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1281 Basic operators are +, -, *, /, ^, & (reciprocal), % (modulo), n (change-sign).
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1282
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1283 Press ? repeatedly for more complete help. Press `h i' to read the
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1284 Calc manual on-line, `h s' to read the summary, or `h t' for the tutorial.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1285
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1286 Notations: 3.14e6 3.14 * 10^6
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1287 _23 negative number -23 (or type `23 n')
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1288 17:3 the fraction 17/3
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1289 5:2:3 the fraction 5 and 2/3
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1290 16#12C the integer 12C base 16 = 300 base 10
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1291 8#177:100 the fraction 177:100 base 8 = 127:64 base 10
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1292 (2, 4) complex number 2 + 4i
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1293 (2; 4) polar complex number (r; theta)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1294 [1, 2, 3] vector ([[1, 2], [3, 4]] is a matrix)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1295 [1 .. 4) semi-open interval, 1 <= x < 4
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1296 2 +/- 3 (p key) number with mean 2, standard deviation 3
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1297 2 mod 3 (M key) number 2 computed modulo 3
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1298 <1 jan 91> Date form (enter using ' key)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1299
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1300
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1301 \\{calc-mode-map}
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1302 "
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1306 (kill-all-local-variables)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1310 (make-local-variable 'overlay-arrow-position)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1316 (setq truncate-lines t)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1317 (setq buffer-read-only t)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1318 (setq major-mode 'calc-mode)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1319 (setq mode-name "Calculator")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1320 (setq calc-stack-top (length (or (memq (assq 'top-of-stack calc-stack)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1321 calc-stack)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1322 (setq calc-stack (list (list 'top-of-stack
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1323 1 nil))))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1324 (setq calc-stack-top (- (length calc-stack) calc-stack-top -1))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1328 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1331 (let ((p command-line-args))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1332 (while p
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1333 (and (equal (car p) "-f")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1334 (string-match "calc" (nth 1 p))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1335 (string-match "full" (nth 1 p))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1336 (setq calc-standalone-flag t))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1340 (calc-refresh t)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1347 (defun calc-check-defines ()
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1348 (if (symbol-plist 'calc-define)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1349 (let ((plist (copy-sequence (symbol-plist 'calc-define))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1350 (while (and plist (null (nth 1 plist)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1351 (setq plist (cdr (cdr plist))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1352 (if plist
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1356 (set-buffer "*Calculator*")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1357 (while plist
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1358 (put 'calc-define (car plist) nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1359 (eval (nth 1 plist))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1360 (setq plist (cdr (cdr plist))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1361 ;; See if this has added any more calc-define properties.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1364
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1365 (defun calc-trail-mode (&optional buf)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1366 "Calc Trail mode.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1367 This mode is used by the *Calc Trail* buffer, which records all results
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1368 obtained by the GNU Emacs Calculator.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1369
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1370 Calculator commands beginning with the `t' key are used to manipulate
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1371 the Trail.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1372
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1373 This buffer uses the same key map as the *Calculator* buffer; calculator
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1374 commands given here will actually operate on the *Calculator* stack."
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1375 (interactive)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1376 (fundamental-mode)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1377 (use-local-map calc-mode-map)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1378 (setq major-mode 'calc-trail-mode)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1379 (setq mode-name "Calc Trail")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1380 (setq truncate-lines t)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1381 (setq buffer-read-only t)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1382 (make-local-variable 'overlay-arrow-position)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1383 (make-local-variable 'overlay-arrow-string)
45769
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1384 (when buf
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1385 (set (make-local-variable 'calc-main-buffer) buf))
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1386 (when (= (buffer-size) 0)
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
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
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1391
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1394 (set-buffer (get-buffer-create "*Calculator*"))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1395 (or (eq major-mode 'calc-mode)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1396 (calc-mode))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1397 (setq max-lisp-eval-depth (max max-lisp-eval-depth 1000))
45769
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
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
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
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
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1402 (calc-set-language calc-language calc-language-option t)))
40785
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1403
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1404 ;;;###autoload
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1405 (defun calc (&optional arg full-display interactive)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1408 (if arg
45769
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
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
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1411 (if (= (prefix-numeric-value arg) -1)
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1412 (calc-grab-region (region-beginning) (region-end) nil)
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1413 (when (= (prefix-numeric-value arg) -2)
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1414 (calc-keypad))))
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1415 (when (get-buffer-window "*Calc Keypad*")
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1416 (calc-keypad)
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1417 (set-buffer (window-buffer (selected-window))))
40785
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1418 (if (eq major-mode 'calc-mode)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1419 (calc-quit)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1420 (let ((oldbuf (current-buffer)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1421 (calc-create-buffer)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1422 (setq calc-was-keypad-mode nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1423 (if (or (eq full-display t)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1424 (and (null full-display) calc-full-mode))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1425 (switch-to-buffer (current-buffer) t)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1426 (if (get-buffer-window (current-buffer))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1447 (run-hooks 'calc-start-hook)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1448 (and (windowp full-display)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1449 (window-point full-display)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1450 (select-window full-display))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1453 (sit-for 2)
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1456
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1462
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1463 (defun calc-same-interface (arg)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1464 "Invoke the Calculator using the most recent interface (calc or calc-keypad)."
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1465 (interactive "P")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1466 (if (and (equal (buffer-name) "*Gnuplot Trail*")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1467 (> (recursion-depth) 0))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1468 (exit-recursive-edit)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1469 (if (eq major-mode 'calc-edit-mode)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1478 (and calc-standalone-flag (not non-fatal)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1479 (save-buffers-kill-emacs nil))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1480 (if (and (equal (buffer-name) "*Gnuplot Trail*")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1481 (> (recursion-depth) 0))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1482 (exit-recursive-edit))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1483 (if (eq major-mode 'calc-edit-mode)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
e3187820f169 Use window-full-height-p.
Glenn Morris <rgm@gnu.org>
parents: 105322
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1520
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1521 ;;;###autoload
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1522 (defun quick-calc ()
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1523 "Do a quick calculation in the minibuffer without invoking full Calculator."
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1526
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1527 ;;;###autoload
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1528 (defun calc-eval (str &optional separator &rest args)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1529 "Do a quick calculation and return the result as a string.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1530 Return value will either be the formatted result in string form,
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1533
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1536 "Invoke the Calculator in \"visual keypad\" mode.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1537 This is most useful in the X window system.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1538 In this mode, click on the Calc \"buttons\" using the left mouse button.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1543
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1546 "Invoke the Calculator in full-screen \"visual keypad\" mode.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1551
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1558 ;;; Note that modifications to this function may break calc-pass-errors.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1559 (defun calc-do (do-body &optional do-slow)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1560 (calc-check-defines)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1561 (let* ((calc-command-flags nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1564 (current-time-string)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1568 (setq calc-aborted-prefix "")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1569 (unwind-protect
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1570 (condition-case err
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1571 (save-excursion
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1572 (if calc-embedded-info
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1573 (calc-embedded-select-buffer)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1574 (calc-select-buffer))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1581 (funcall do-body)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1587 (error
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1588 (if (and (eq (car err) 'error)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1589 (stringp (nth 1 err))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1590 (string-match "max-specpdl-size\\|max-lisp-eval-depth"
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1593 (setq calc-aborted-prefix nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1597 (and calc-start-time
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1598 (let* ((calc-internal-prec 12)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1599 (calc-date-format nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1600 (end-time (current-time-string))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1601 (time (if (equal calc-start-time end-time)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1602 0
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1603 (math-sub
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1604 (calcFunc-unixtime (math-parse-date end-time) 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1605 (calcFunc-unixtime (math-parse-date calc-start-time)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1606 0)))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1607 (if (math-lessp 1 time)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1608 (calc-record time "(t)"))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1609 (or (memq 'no-align calc-command-flags)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1610 (eq major-mode 'calc-trail-mode)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1611 (calc-align-stack-window))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1612 (and (memq 'position-point calc-command-flags)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1613 (if (eq major-mode 'calc-mode)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1637
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1641
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1642 (defun calc-select-buffer ()
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1643 (or (eq major-mode 'calc-mode)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1644 (if calc-main-buffer
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1645 (set-buffer calc-main-buffer)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1646 (let ((buf (get-buffer "*Calculator*")))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1647 (if buf
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1650
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1651 (defun calc-cursor-stack-index (&optional index)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1654
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1657
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1658 (defun calc-substack-height (n)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1659 (let ((sum 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1660 (stack calc-stack))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1661 (setq n (+ n calc-stack-top))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1662 (while (and (> n 0) stack)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1663 (setq sum (+ sum (nth 1 (car stack)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1664 n (1- n)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1667
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1668 (defun calc-set-mode-line ()
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1669 (save-excursion
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1670 (calc-select-buffer)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1671 (let* ((fmt (car calc-float-format))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1672 (figs (nth 1 calc-float-format))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1673 (new-mode-string
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1678 (if (and (> (length (buffer-name)) 12)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1679 (equal (substring (buffer-name) 0 12)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1680 "*Calculator*"))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1681 (substring (buffer-name) 12)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1682 "")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1683 calc-internal-prec
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1684 (capitalize (symbol-name calc-angle-mode))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1685 (concat
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1686
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1687 ;; Input-related modes
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1688 (if (eq calc-algebraic-mode 'total) "Alg* "
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1689 (if calc-algebraic-mode "Alg "
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1690 (if calc-incomplete-algebraic-mode "Alg[( " "")))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1691
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1692 ;; Computational modes
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1693 (if calc-symbolic-mode "Symb " "")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1694 (cond ((eq calc-matrix-mode 'matrix) "Matrix ")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1695 ((integerp calc-matrix-mode)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1698 ((eq calc-matrix-mode 'scalar) "Scalar ")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1699 (t ""))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1700 (if (eq calc-complex-mode 'polar) "Polar " "")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1701 (if calc-prefer-frac "Frac " "")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1702 (cond ((null calc-infinite-mode) "")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1703 ((eq calc-infinite-mode 1) "+Inf ")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1704 (t "Inf "))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1705 (cond ((eq calc-simplify-mode 'none) "NoSimp ")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1706 ((eq calc-simplify-mode 'num) "NumSimp ")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1707 ((eq calc-simplify-mode 'binary)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1708 (format "BinSimp%d " calc-word-size))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1709 ((eq calc-simplify-mode 'alg) "AlgSimp ")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1710 ((eq calc-simplify-mode 'ext) "ExtSimp ")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1711 ((eq calc-simplify-mode 'units) "UnitSimp ")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1712 (t ""))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1713
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1714 ;; Display modes
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1715 (cond ((= calc-number-radix 10) "")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1716 ((= calc-number-radix 2) "Bin ")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1717 ((= calc-number-radix 8) "Oct ")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1718 ((= calc-number-radix 16) "Hex ")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1721 (if calc-leading-zeros "Zero " "")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1725 (t (concat
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1726 (capitalize (symbol-name calc-language))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1727 " ")))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1728 (cond ((eq fmt 'float)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1729 (if (zerop figs) "" (format "Norm%d " figs)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1730 ((eq fmt 'fix) (format "Fix%d " figs))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1731 ((eq fmt 'sci)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1732 (if (zerop figs) "Sci " (format "Sci%d " figs)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1733 ((eq fmt 'eng)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1734 (if (zerop figs) "Eng " (format "Eng%d " figs))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1735 (cond ((not calc-display-just)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1736 (if calc-display-origin
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1737 (format "Left%d " calc-display-origin) ""))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1738 ((eq calc-display-just 'right)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1739 (if calc-display-origin
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1740 (format "Right%d " calc-display-origin)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1741 "Right "))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1742 (t
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1743 (if calc-display-origin
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1744 (format "Center%d " calc-display-origin)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1745 "Center ")))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1746 (cond ((integerp calc-line-breaking)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1747 (format "Wid%d " calc-line-breaking))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1748 (calc-line-breaking "")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1749 (t "Wide "))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1750
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1751 ;; Miscellaneous other modes/indicators
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1752 (if calc-assoc-selections "" "Break ")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1753 (cond ((eq calc-mode-save-mode 'save) "Save ")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1754 ((not calc-embedded-info) "")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1755 ((eq calc-mode-save-mode 'local) "Local ")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1756 ((eq calc-mode-save-mode 'edit) "LocEdit ")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1757 ((eq calc-mode-save-mode 'perm) "LocPerm ")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1758 ((eq calc-mode-save-mode 'global) "Global ")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1759 (t ""))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1760 (if calc-auto-recompute "" "Manual ")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1761 (if (and (fboundp 'calc-gnuplot-alive)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1762 (calc-gnuplot-alive)) "Graph " "")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1763 (if (and calc-embedded-info
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1764 (> (calc-stack-size) 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1765 (calc-top 1 'sel)) "Sel " "")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1768 (if calc-inverse-flag "Inv " "")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1769 (if calc-hyperbolic-flag "Hyp " "")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1770 (if calc-keep-args-flag "Keep " "")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1771 (if (/= calc-stack-top 1) "Narrow " "")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1772 (apply 'concat calc-other-modes)))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1773 (if (equal new-mode-string mode-line-buffer-identification)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1774 nil
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1775 (setq mode-line-buffer-identification new-mode-string)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1778
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1779 (defun calc-align-stack-window ()
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1780 (if (eq major-mode 'calc-mode)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1781 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1782 (let ((win (get-buffer-window (current-buffer))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1783 (if win
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1784 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1785 (calc-cursor-stack-index 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1786 (vertical-motion (- 2 (window-height win)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1787 (set-window-start win (point)))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1788 (calc-cursor-stack-index 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1789 (if (looking-at " *\\.$")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1790 (goto-char (1- (match-end 0)))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1791 (save-excursion
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1794
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1795 (defun calc-check-stack (n)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1796 (if (> n (calc-stack-size))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1797 (error "Too few elements on stack"))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1800
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1801 (defun calc-push-list (vals &optional m sels)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1802 (while vals
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1803 (if calc-executing-macro
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1804 (calc-push-list-in-macro vals m sels)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1805 (save-excursion
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1806 (calc-select-buffer)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1807 (let* ((val (car vals))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1808 (entry (list val 1 (car sels)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1809 (mm (+ (or m 1) calc-stack-top)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1810 (calc-cursor-stack-index (1- (or m 1)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1811 (if (> mm 1)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1812 (setcdr (nthcdr (- mm 2) calc-stack)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1813 (cons entry (nthcdr (1- mm) calc-stack)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1814 (setq calc-stack (cons entry calc-stack)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1815 (let ((buffer-read-only nil))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1816 (insert (math-format-stack-value entry) "\n"))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1817 (calc-record-undo (list 'push mm))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1818 (calc-set-command-flag 'renum-stack))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1821
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1822 (defun calc-pop-push-list (n vals &optional m sels)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1823 (if (and calc-any-selections (null sels))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1824 (calc-replace-selections n vals m)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1827
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1828 (defun calc-pop-push-record-list (n prefix vals &optional m sels)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1829 (or (and (consp vals)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1830 (or (integerp (car vals))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1831 (consp (car vals))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1832 (and vals (setq vals (list vals)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1833 sels (and sels (list sels)))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1834 (calc-check-stack (+ n (or m 1) -1))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1835 (if prefix
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1836 (if (cdr vals)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1837 (calc-record-list vals prefix)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1840
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1841 (defun calc-enter-result (n prefix vals &optional m)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1842 (setq calc-aborted-prefix prefix)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1843 (if (and (consp vals)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1844 (or (integerp (car vals))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1845 (consp (car vals))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1846 (setq vals (mapcar 'calc-normalize vals))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1847 (setq vals (calc-normalize vals)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1848 (or (and (consp vals)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1849 (or (integerp (car vals))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1850 (consp (car vals))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1851 (setq vals (list vals)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1852 (if (equal vals '((nil)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1853 (setq vals nil))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1856
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1857 (defun calc-normalize (val)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1858 (if (memq calc-simplify-mode '(nil none num))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1862
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1863 (defun calc-handle-whys ()
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1866
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1867
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1868 (defun calc-pop-stack (&optional n m sel-ok) ; pop N objs at level M of stack.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1869 (or n (setq n 1))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1870 (or m (setq m 1))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1871 (or calc-keep-args-flag
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1872 (let ((mm (+ m calc-stack-top)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1873 (if (and calc-any-selections (not sel-ok)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1874 (calc-top-selected n m))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1875 (calc-sel-error))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1876 (if calc-executing-macro
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1877 (calc-pop-stack-in-macro n mm)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1878 (calc-record-undo (list 'pop mm (calc-top-list n m 'full)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1879 (save-excursion
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1880 (calc-select-buffer)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1881 (let ((buffer-read-only nil))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1882 (if (> mm 1)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1883 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1884 (calc-cursor-stack-index (1- m))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1885 (let ((bot (point)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1886 (calc-cursor-stack-index (+ n m -1))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1887 (delete-region (point) bot))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1888 (setcdr (nthcdr (- mm 2) calc-stack)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1889 (nthcdr (+ n mm -1) calc-stack)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1890 (calc-cursor-stack-index n)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1891 (setq calc-stack (nthcdr n calc-stack))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1896 (defun calc-get-stack-element (x)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1897 (cond ((eq sel-mode 'entry)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1898 x)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1899 ((eq sel-mode 'sel)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1900 (nth 2 x))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1901 ((or (null (nth 2 x))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1902 (eq sel-mode 'full)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1903 (not calc-use-selections))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1904 (car x))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1905 (sel-mode
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1908
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1909 ;; Get the Nth element of the stack (N=1 is the top element).
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1910 (defun calc-top (&optional n sel-mode)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1911 (or n (setq n 1))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1914
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1917
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1918 (defun calc-top-list (&optional n m sel-mode)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1919 (or n (setq n 1))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1920 (or m (setq m 1))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1921 (calc-check-stack (+ n m -1))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1922 (and (> n 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1923 (let ((top (copy-sequence (nthcdr (+ m calc-stack-top -1)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1924 calc-stack))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1927
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1928 (defun calc-top-list-n (&optional n m sel-mode)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1931
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1932
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1933 (defun calc-renumber-stack ()
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1934 (if calc-line-numbering
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1935 (save-excursion
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1936 (calc-cursor-stack-index 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1937 (let ((lnum 1)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1938 (buffer-read-only nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1939 (stack (nthcdr calc-stack-top calc-stack)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1940 (if (re-search-forward "^[0-9]+[:*]" nil t)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1941 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1942 (beginning-of-line)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1943 (while (re-search-forward "^[0-9]+[:*]" nil t)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1944 (let ((buffer-read-only nil))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1945 (beginning-of-line)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1946 (delete-char 4)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1947 (insert " ")))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1948 (calc-cursor-stack-index 0)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1949 (while (re-search-backward "^[0-9]+[:*]" nil t)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1950 (delete-char 4)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1951 (if (> lnum 999)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1952 (insert (format "%03d%s" (% lnum 1000)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1953 (if (and (nth 2 (car stack))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1954 calc-use-selections) "*" ":")))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1955 (let ((prefix (int-to-string lnum)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1956 (insert prefix (if (and (nth 2 (car stack))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1957 calc-use-selections) "*" ":")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1958 (make-string (- 3 (length prefix)) 32))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1959 (beginning-of-line)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1960 (setq lnum (1+ lnum)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1965 (defun calc-refresh (&optional align)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1966 (interactive)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1967 (and (eq major-mode 'calc-mode)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1968 (not calc-executing-macro)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1969 (let* ((buffer-read-only nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1970 (save-point (point))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1971 (save-mark (condition-case err (mark) (error nil)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1978 (insert (propertize "--- Emacs Calculator Mode ---\n"
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
1979 'font-lock-face 'italic)))
40785
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1980 (while thing
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1984 (insert (math-format-stack-value (car thing)) "\n")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1985 (setq thing (cdr thing)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1986 (calc-renumber-stack)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1987 (if calc-display-dirty
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1988 (calc-wrapper (setq calc-display-dirty nil)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1989 (and calc-any-evaltos calc-auto-recompute
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1990 (calc-wrapper (calc-refresh-evaltos)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1991 (if (or align save-aligned)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1992 (calc-align-stack-window)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1993 (goto-char save-point))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1994 (if save-mark (set-mark save-mark))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1999
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2000 ;;;; The Calc Trail buffer.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2001
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2002 (defun calc-check-trail-aligned ()
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2003 (save-excursion
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2004 (let ((win (get-buffer-window (current-buffer))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2007
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2008 (defun calc-trail-buffer ()
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2009 (and (or (null calc-trail-buffer)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2010 (null (buffer-name calc-trail-buffer)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2011 (save-excursion
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2012 (setq calc-trail-buffer (get-buffer-create "*Calc Trail*"))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2013 (let ((buf (or (and (not (eq major-mode 'calc-mode))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2014 (get-buffer "*Calculator*"))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2015 (current-buffer))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2016 (set-buffer calc-trail-buffer)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2017 (or (eq major-mode 'calc-trail-mode)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2018 (calc-trail-mode buf)))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2019 (or (and calc-trail-pointer
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2026
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2027 (defun calc-record (val &optional prefix)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2028 (setq calc-aborted-prefix nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2029 (or calc-executing-macro
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2030 (let* ((mainbuf (current-buffer))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2031 (buf (calc-trail-buffer))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2032 (calc-display-raw nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2033 (calc-can-abbrev-vectors t)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2034 (fval (if val
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2035 (if (stringp val)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2036 val
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2037 (math-showing-full-precision
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2038 (math-format-flat-expr val 0)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2041 (let ((aligned (calc-check-trail-aligned))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2042 (buffer-read-only nil))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2043 (goto-char (point-max))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2044 (cond ((null prefix) (insert " "))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2045 ((and (> (length prefix) 4)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2046 (string-match " " prefix 4))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2047 (insert (substring prefix 0 4) " "))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2048 (t (insert (format "%4s " prefix))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2049 (insert fval "\n")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2050 (let ((win (get-buffer-window buf)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2051 (if (and aligned win (not (memq 'hold-trail calc-command-flags)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2052 (calc-trail-here))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2055
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2059 (let ((win (get-buffer-window (calc-trail-buffer))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2060 (if (setq calc-display-trail
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2061 (not (if flag (memq flag '(nil 0)) win)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2062 (if (null win)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2075 (if win
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2076 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2077 (delete-window win)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2078 (calc-wrapper
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2081 (calc-do-refresh)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2084
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2085 (defun calc-trail-here ()
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2086 (interactive)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2087 (if (eq major-mode 'calc-trail-mode)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2088 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2089 (beginning-of-line)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2090 (if (bobp)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2091 (forward-line 1)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2092 (if (eobp)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2093 (forward-line -1)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2094 (if (or (bobp) (eobp))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2095 (setq overlay-arrow-position nil) ; trail is empty
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2096 (set-marker calc-trail-pointer (point) (current-buffer))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2097 (setq calc-trail-overlay (concat (buffer-substring (point)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2098 (+ (point) 4))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2099 ">")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2100 overlay-arrow-string calc-trail-overlay
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2101 overlay-arrow-position calc-trail-pointer)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2102 (forward-char 4)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2103 (let ((win (get-buffer-window (current-buffer))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2104 (if win
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2105 (save-excursion
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2106 (forward-line (/ (window-height win) 2))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2107 (forward-line (- 1 (window-height win)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2108 (set-window-start win (point))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2109 (set-window-point win (+ calc-trail-pointer 4))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2110 (set-buffer calc-main-buffer)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2111 (setq overlay-arrow-string calc-trail-overlay
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2114
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2115
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2116
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2117
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2118 ;;;; The Undo list.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2119
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2120 (defun calc-record-undo (rec)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2121 (or calc-executing-macro
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2122 (if (memq 'undo calc-command-flags)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2123 (setq calc-undo-list (cons (cons rec (car calc-undo-list))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2124 (cdr calc-undo-list)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2125 (setq calc-undo-list (cons (list rec) calc-undo-list)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2128
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2129
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2130
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2131
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2132 ;;; Arithmetic commands.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2133
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2134 (defun calc-binary-op (name func arg &optional ident unary func2)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2135 (setq calc-aborted-prefix name)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2136 (if (null arg)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2137 (calc-enter-result 2 name (cons (or func2 func)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2138 (mapcar 'math-check-complete
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2142
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2143 (defun calc-unary-op (name func arg &optional func2)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2144 (setq calc-aborted-prefix name)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2145 (if (null arg)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2146 (calc-enter-result 1 name (list (or func2 func)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2150
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2151
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2152 (defun calc-plus (arg)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2153 (interactive "P")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2156
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2157 (defun calc-minus (arg)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2158 (interactive "P")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2161
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2162 (defun calc-times (arg)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2163 (interactive "P")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2166
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2167 (defun calc-divide (arg)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2168 (interactive "P")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2176
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2177 (defun calc-change-sign (arg)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2178 (interactive "P")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2181
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2182
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2183
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2184 ;;; Stack management commands.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2185
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2186 (defun calc-enter (n)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2187 (interactive "p")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2188 (calc-wrapper
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2189 (cond ((< n 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2190 (calc-push-list (calc-top-list 1 (- n))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2191 ((= n 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2192 (calc-push-list (calc-top-list (calc-stack-size))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2195
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2196
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2197 (defun calc-pop (n)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2198 (interactive "P")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2199 (calc-wrapper
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2200 (let* ((nn (prefix-numeric-value n))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2201 (top (and (null n) (calc-top 1))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2202 (cond ((and (null n)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2203 (eq (car-safe top) 'incomplete)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2204 (> (length top) (if (eq (nth 1 top) 'intv) 3 2)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2205 (calc-pop-push-list 1 (let ((tt (copy-sequence top)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2206 (setcdr (nthcdr (- (length tt) 2) tt) nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2207 (list tt))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2208 ((< nn 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2209 (if (and calc-any-selections
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2210 (calc-top-selected 1 (- nn)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2211 (calc-delete-selection (- nn))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2212 (calc-pop-stack 1 (- nn) t)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2213 ((= nn 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2214 (calc-pop-stack (calc-stack-size) 1 t))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2215 (t
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2216 (if (and calc-any-selections
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2217 (= nn 1)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2218 (calc-top-selected 1 1))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2221
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2222
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2223
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2224
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2230 (defun calcDigit-start ()
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2231 (interactive)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2232 (calc-wrapper
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2235 (calc-alg-digit-entry)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2236 (calc-unread-command)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2237 (setq calc-aborted-prefix nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2238 (let* ((calc-digit-value nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2239 (calc-prev-char nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2240 (calc-prev-prev-char nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2243 (catch 'calc-foo
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2244 (catch 'execute-kbd-macro
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2245 (throw 'calc-foo
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2246 (read-from-minibuffer
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2249 "digit entry in kbd macro"))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2250 (let ((old-esc (lookup-key global-map "\e")))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2251 (unwind-protect
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2252 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2253 (define-key global-map "\e" nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2254 (read-from-minibuffer "Calc: " "" calc-digit-map))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2255 (define-key global-map "\e" old-esc))))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2256 (or calc-digit-value (setq calc-digit-value (math-read-number buf)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2257 (if (stringp calc-digit-value)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2258 (calc-alg-entry calc-digit-value)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2259 (if calc-digit-value
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2260 (calc-push-list (list (calc-record (calc-normalize
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2261 calc-digit-value))))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2262 (if (eq calc-prev-char 'dots)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2270 (defun calcDigit-nondigit ()
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2271 (interactive)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2272 ;; Exercise for the reader: Figure out why this is a good precaution!
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2273 (or (boundp 'calc-buffer)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2279 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2280 (beep)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2289
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2290
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2291 (defun calc-minibuffer-contains (rex)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2295
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2296 (defun calcDigit-key ()
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2297 (interactive)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2300 (> (buffer-size) 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2303 (not (calc-minibuffer-contains "[-+]?[0-9]+\\.?0*[@oh].*"))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2304 (not (calc-minibuffer-contains "[-+]?\\(1[1-9]\\|[2-9][0-9]\\)#.*"))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2305 (calcDigit-nondigit)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2312 (insert (int-to-string calc-number-radix)))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2315 (insert "1"))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2318 (insert "0"))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2332 (if (and (search-forward " +/- " nil t)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2333 (not (search-forward "e" nil t)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2334 (beep)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2335 (and (not (calc-minibuffer-contains "[-+]?\\(1[5-9]\\|[2-9][0-9]\\)#.*"))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2336 (search-forward "e" nil t))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2337 (if (looking-at "+")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2338 (delete-char 1))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2339 (if (looking-at "-")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2340 (delete-char 1)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2341 (insert "-")))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2344 (if (or (calc-minibuffer-contains ".*\\+/-.*")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2345 (calc-minibuffer-contains ".*mod.*")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2346 (calc-minibuffer-contains ".*#.*")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2347 (calc-minibuffer-contains ".*[-+e:]\\'"))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2348 (beep)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2349 (if (not (calc-minibuffer-contains ".* \\'"))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2350 (insert " "))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2353 (not (calc-minibuffer-contains
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2354 "[-+]?\\(2[3-9]\\|[3-9][0-9]\\)#.*")))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2355 (if (or (calc-minibuffer-contains ".*\\+/-.*")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2356 (calc-minibuffer-contains ".*mod *[^ ]+")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2357 (calc-minibuffer-contains ".*[-+e:]\\'"))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2358 (beep)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2359 (if (calc-minibuffer-contains ".*mod \\'")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2360 (if calc-previous-modulo
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2361 (insert (math-format-flat-expr calc-previous-modulo 0))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2362 (beep))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2363 (if (not (calc-minibuffer-contains ".* \\'"))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2364 (insert " "))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2365 (insert "mod "))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2370 (buffer-substring
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2371 (match-beginning 2) (match-end 2)))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2372 (and (>= radix 2)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2377 (and dig
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2382 (string-match " " calc-hms-format))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2383 (insert " "))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2388 (calc-digit-dots))
108765
d835100c3e8b Replace Lisp calls to delete-backward-char by delete-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108590
diff changeset
2389 (delete-char -1)
40785
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2390 (beep)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2391 (calc-temp-minibuffer-message " [Bad format]"))))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2394
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2395
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2396 (defun calcDigit-backspace ()
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2397 (interactive)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2398 (goto-char (point-max))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2399 (cond ((calc-minibuffer-contains ".* \\+/- \\'")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2400 (backward-delete-char 5))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2401 ((calc-minibuffer-contains ".* mod \\'")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2402 (backward-delete-char 5))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2403 ((calc-minibuffer-contains ".* \\'")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2404 (backward-delete-char 2))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2405 ((eq last-command 'calcDigit-start)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2406 (erase-buffer))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2412
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2413
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2414
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2431
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2432
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2548 (while (setq digs (cdr digs))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2549 (or (eq (car digs) 0) (setq last digs)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2563 (while (setq digs (cdr digs))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2564 (or (eq (car digs) 0) (setq last digs)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2587 (t
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2602 (or (and var-EvalRules
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2603 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2604 (or (eq var-EvalRules math-eval-rules-cache-tag)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2607 (math-recompile-eval-rules)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2613 (cdr math-eval-rules-cache)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2614 nil math-eval-rules-cache))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2615 (if func
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2623 (wrong-number-of-arguments
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2626 nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2631 nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2635 nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2636 (inexact-result
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2639 nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2640 (math-overflow
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2643 nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2644 (math-underflow
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2647 nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2648 (void-variable
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2649 (if (eq (nth 1 err) 'var-EvalRules)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2650 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2657
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2658
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2661 (defun math-floatp (a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2662 (cond ((eq (car-safe a) 'float) t)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2663 ((memq (car-safe a) '(cplx polar mod sdev intv))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2664 (or (math-floatp (nth 1 a))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2665 (math-floatp (nth 2 a))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2666 (and (eq (car a) 'intv) (math-floatp (nth 3 a)))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2669
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2670
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2673 (defun math-check-complete (a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2674 (cond ((integerp a) a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2675 ((eq (car-safe a) 'incomplete)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2676 (calc-incomplete-error a))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2679
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2680
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2683 (defun math-bignum (a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2684 (if (>= a 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2687
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2688 (defun math-bignum-big (a) ; [L s]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2689 (if (= a 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2693
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2696 (defun math-make-float (mant exp)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2697 (if (eq mant 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2698 '(float 0 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2699 (let* ((ldiff (- calc-internal-prec (math-numdigs mant))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2700 (if (< ldiff 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2701 (setq mant (math-scale-rounding mant ldiff)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2702 exp (- exp ldiff))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2703 (if (consp mant)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2704 (let ((digs (cdr mant)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2705 (if (= (% (car digs) 10) 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2706 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2707 (while (= (car digs) 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2710 (while (= (% (car digs) 10) 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2711 (setq digs (math-div10-bignum digs)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2712 exp (1+ exp)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2713 (setq mant (math-normalize (cons (car mant) digs))))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2714 (while (= (% mant 10) 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2715 (setq mant (/ mant 10)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2716 exp (1+ exp))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2717 (if (and (<= exp -4000000)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2718 (<= (+ exp (math-numdigs mant) -1) -4000000))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2719 (signal 'math-underflow nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2720 (if (and (>= exp 3000000)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2721 (>= (+ exp (math-numdigs mant) -1) 4000000))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2724
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2725 (defun math-div10-bignum (a) ; [l l]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2731
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2732 ;;; Coerce A to be a float. [F N; V V] [Public]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2733 (defun math-float (a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2734 (cond ((Math-integerp a) (math-make-float a 0))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2735 ((eq (car a) 'frac) (math-div (math-float (nth 1 a)) (nth 2 a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2736 ((eq (car a) 'float) a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2737 ((memq (car a) '(cplx polar vec hms date sdev mod))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2740
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2741
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2742 (defun math-neg (a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2743 (cond ((not (consp a)) (- a))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2744 ((eq (car a) 'bigpos) (cons 'bigneg (cdr a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2745 ((eq (car a) 'bigneg) (cons 'bigpos (cdr a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2746 ((memq (car a) '(frac float))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2747 (list (car a) (Math-integer-neg (nth 1 a)) (nth 2 a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2748 ((memq (car a) '(cplx vec hms date calcFunc-idn))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2751
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2752
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2753 ;;; Compute the number of decimal digits in integer A. [S I]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2754 (defun math-numdigs (a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2755 (if (consp a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2756 (if (cdr a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2757 (let* ((len (1- (length a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2760 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2761 (cond ((>= a 100) (+ (math-numdigs (/ a 1000)) 3))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2762 ((>= a 10) 2)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2763 ((>= a 1) 1)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2764 ((= a 0) 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2765 ((> a -10) 1)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2768
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2769 ;;; Multiply (with truncation toward 0) the integer A by 10^N. [I i S]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2770 (defun math-scale-int (a n)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2771 (cond ((= n 0) a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2774
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2775 (defun math-scale-left (a n) ; [I I S]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2776 (if (= n 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2777 a
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2778 (if (consp a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2790
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2799
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2800 (defun math-scale-right (a n) ; [i i S]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2801 (if (= n 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2802 a
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2803 (if (consp a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2804 (cons (car a) (math-scale-right-bignum (cdr a) n))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2805 (if (<= a 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2806 (if (= a 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2807 0
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2816
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2824
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2825 ;;; Multiply (with rounding) the integer A by 10^N. [I i S]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2826 (defun math-scale-rounding (a n)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2827 (cond ((>= n 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2828 (math-scale-left a n))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2829 ((consp a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2830 (math-normalize
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2844 (math-add-bignum (cdr val) '(1))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2845 (cons (1+ (car (cdr val))) (cdr (cdr val))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2846 '(1))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2847 (cdr val))))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2848 (t
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2849 (if (< a 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2850 (- (math-scale-rounding (- a) n))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2851 (if (= n -1)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2854
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2855
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2856 ;;; Compute the sum of A and B. [O O O] [Public]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2857 (defun math-add (a b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2858 (or
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2859 (and (not (or (consp a) (consp b)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2860 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2863 (math-bignum a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2864 a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2865 (and (Math-zerop a) (not (eq (car-safe a) 'mod))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2866 (if (and (math-floatp a) (Math-ratp b)) (math-float b) b))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2867 (and (Math-zerop b) (not (eq (car-safe b) 'mod))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2868 (if (and (math-floatp b) (Math-ratp a)) (math-float a) a))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2869 (and (Math-objvecp a) (Math-objvecp b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2870 (or
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2871 (and (Math-integerp a) (Math-integerp b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2872 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2873 (or (consp a) (setq a (math-bignum a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2874 (or (consp b) (setq b (math-bignum b)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2875 (if (eq (car a) 'bigneg)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2876 (if (eq (car b) 'bigneg)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2877 (cons 'bigneg (math-add-bignum (cdr a) (cdr b)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2878 (math-normalize
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2879 (let ((diff (math-sub-bignum (cdr b) (cdr a))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2880 (if (eq diff 'neg)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2881 (cons 'bigneg (math-sub-bignum (cdr a) (cdr b)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2882 (cons 'bigpos diff)))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2883 (if (eq (car b) 'bigneg)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2884 (math-normalize
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2885 (let ((diff (math-sub-bignum (cdr a) (cdr b))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2886 (if (eq diff 'neg)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2887 (cons 'bigneg (math-sub-bignum (cdr b) (cdr a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2888 (cons 'bigpos diff))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2889 (cons 'bigpos (math-add-bignum (cdr a) (cdr b)))))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2892 (calc-add-fractions a b))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2893 (and (Math-realp a) (Math-realp b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2894 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2895 (or (and (consp a) (eq (car a) 'float))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2896 (setq a (math-float a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2897 (or (and (consp b) (eq (car b) 'float))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2898 (setq b (math-float b)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2904
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2905 (defun math-add-bignum (a b) ; [L L L; l l l]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2906 (if a
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2907 (if b
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2908 (let* ((a (copy-sequence a)) (aa a) (carry nil) sum)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2909 (while (and aa b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2913 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2914 (setcar aa (1+ sum))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2920 (setq carry t)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2921 (setq aa (cdr aa)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2922 b (cdr b)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2923 (if carry
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2924 (if b
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2927 (setcar aa 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2928 (setq aa (cdr aa)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2929 (if aa
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2930 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2931 (setcar aa (1+ (car aa)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2932 a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2933 (nconc a '(1))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2934 (if b
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2935 (nconc a b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2936 a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2939
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2940 (defun math-sub-bignum (a b) ; [l l l]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2941 (if b
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2944 (while (and aa b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2945 (if borrow
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2946 (if (>= (setq diff (- (car aa) (car b))) 1)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2947 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2948 (setcar aa (1- diff))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2951 (if (>= (setq diff (- (car aa) (car b))) 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2954 (setq borrow t)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2955 (setq aa (cdr aa)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2956 b (cdr b)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2957 (if borrow
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2958 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2961 (setq aa (cdr aa)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2962 (if aa
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2963 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2964 (setcar aa (1- (car aa)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2965 a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2966 'neg))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2967 (while (eq (car b) 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2968 (setq b (cdr b)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2969 (if b
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2970 'neg
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2971 a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2972 (while (eq (car b) 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2973 (setq b (cdr b)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2974 (and b
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2977
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2978 (defun math-add-float (a b) ; [F F F]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2979 (let ((ediff (- (nth 2 a) (nth 2 b))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2980 (if (>= ediff 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2981 (if (>= ediff (+ calc-internal-prec calc-internal-prec))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2982 a
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2983 (math-make-float (math-add (nth 1 b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2984 (if (eq ediff 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2985 (nth 1 a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2986 (math-scale-left (nth 1 a) ediff)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2987 (nth 2 b)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2988 (if (>= (setq ediff (- ediff))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2989 (+ calc-internal-prec calc-internal-prec))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2990 b
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2991 (math-make-float (math-add (nth 1 a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2994
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2995 ;;; Compute the difference of A and B. [O O O] [Public]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2996 (defun math-sub (a b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2997 (if (or (consp a) (consp b))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2998 (math-add a (math-neg b))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3003
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3004 (defun math-sub-float (a b) ; [F F F]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3005 (let ((ediff (- (nth 2 a) (nth 2 b))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3006 (if (>= ediff 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3007 (if (>= ediff (+ calc-internal-prec calc-internal-prec))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3008 a
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3009 (math-make-float (math-add (Math-integer-neg (nth 1 b))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3010 (if (eq ediff 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3011 (nth 1 a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3012 (math-scale-left (nth 1 a) ediff)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3013 (nth 2 b)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3014 (if (>= (setq ediff (- ediff))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3015 (+ calc-internal-prec calc-internal-prec))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3016 b
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3017 (math-make-float (math-add (nth 1 a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3018 (Math-integer-neg
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3021
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3022
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3023 ;;; Compute the product of A and B. [O O O] [Public]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3024 (defun math-mul (a b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3025 (or
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3029 (* a b))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3030 (and (Math-zerop a) (not (eq (car-safe b) 'mod))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3031 (if (Math-scalarp b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3034 (math-mul-zero a b)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3035 (and (Math-zerop b) (not (eq (car-safe a) 'mod))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3036 (if (Math-scalarp a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3039 (math-mul-zero b a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3040 (and (Math-objvecp a) (Math-objvecp b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3041 (or
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3042 (and (Math-integerp a) (Math-integerp b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3043 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3044 (or (consp a) (setq a (math-bignum a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3045 (or (consp b) (setq b (math-bignum b)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3046 (math-normalize
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3047 (cons (if (eq (car a) (car b)) 'bigpos 'bigneg)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3048 (if (cdr (cdr a))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3049 (if (cdr (cdr b))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3050 (math-mul-bignum (cdr a) (cdr b))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3051 (math-mul-bignum-digit (cdr a) (nth 1 b) 0))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3052 (math-mul-bignum-digit (cdr b) (nth 1 a) 0))))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3055 (calc-mul-fractions a b))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3056 (and (Math-realp a) (Math-realp b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3057 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3058 (or (and (consp a) (eq (car a) 'float))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3059 (setq a (math-float a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3060 (or (and (consp b) (eq (car b) 'float))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3061 (setq b (math-float b)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3062 (math-make-float (math-mul (nth 1 a) (nth 1 b))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3068
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3069 (defun math-infinitep (a &optional undir)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3070 (while (and (consp a) (memq (car a) '(* / neg)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3071 (if (or (not (eq (car a) '*)) (math-infinitep (nth 1 a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3072 (setq a (nth 1 a))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3073 (setq a (nth 2 a))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3074 (and (consp a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3075 (eq (car a) 'var)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3076 (memq (nth 2 a) '(var-inf var-uinf var-nan))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3077 (if (and undir (eq (nth 2 a) 'var-inf))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3080
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3081 ;;; Multiply digit lists A and B. [L L L; l l l]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3082 (defun math-mul-bignum (a b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3083 (and a b
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3084 (let* ((sum (if (<= (car b) 1)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3085 (if (= (car b) 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3086 (list 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3087 (copy-sequence a))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3088 (math-mul-bignum-digit a (car b) 0)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3089 (sump sum) c d aa ss prod)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3090 (while (setq b (cdr b))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3091 (setq ss (setq sump (or (cdr sump) (setcdr sump (list 0))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3092 d (car b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3093 c 0
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3094 aa a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3095 (while (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3106
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3107 ;;; Multiply digit list A by digit D. [L L D D; l l D D]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3108 (defun math-mul-bignum-digit (a d c)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3109 (if a
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3110 (if (<= d 1)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3111 (and (= d 1) a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3112 (let* ((a (copy-sequence a)) (aa a) prod)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3117 (cdr aa))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3122 a))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3125
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3126
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3127 ;;; Compute the integer (quotient . remainder) of A and B, which may be
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3128 ;;; small or big integers. Type and consistency of truncation is undefined
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3129 ;;; if A or B is negative. B must be nonzero. [I.I I I] [Public]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3130 (defun math-idivmod (a b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3131 (if (eq b 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3132 (math-reject-arg a "*Division by zero"))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3135 (let ((res (math-div-bignum-digit (cdr a) b)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3136 (cons
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3137 (math-normalize (cons (car a) (car res)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3138 (cdr res)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3139 (or (consp a) (setq a (math-bignum a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3140 (or (consp b) (setq b (math-bignum b)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3141 (let ((res (math-div-bignum (cdr a) (cdr b))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3142 (cons
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3143 (math-normalize (cons (if (eq (car a) (car b)) 'bigpos 'bigneg)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3144 (car res)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3147
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3148 (defun math-quotient (a b) ; [I I I] [Public]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3149 (if (and (not (consp a)) (not (consp b)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3150 (if (= b 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3151 (math-reject-arg a "*Division by zero")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3154 (if (= b 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3155 (math-reject-arg a "*Division by zero")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3156 (math-normalize (cons (car a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3157 (car (math-div-bignum-digit (cdr a) b)))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3158 (or (consp a) (setq a (math-bignum a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3159 (or (consp b) (setq b (math-bignum b)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3160 (let* ((alen (1- (length a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3163 (res (math-div-bignum-big (math-mul-bignum-digit (cdr a) d 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3164 (math-mul-bignum-digit (cdr b) d 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3165 alen blen)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3168
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3169
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3170 ;;; Divide a bignum digit list by another. [l.l l L]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3171 ;;; The following division algorithm is borrowed from Knuth vol. II, sec. 4.3.1
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3172 (defun math-div-bignum (a b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3173 (if (cdr b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3174 (let* ((alen (length a))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3177 (res (math-div-bignum-big (math-mul-bignum-digit a d 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3178 (math-mul-bignum-digit b d 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3179 alen blen)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3180 (if (= d 1)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3181 res
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3182 (cons (car res)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3183 (car (math-div-bignum-digit (cdr res) d)))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3186
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3187 ;;; Divide a bignum digit list by a digit. [l.D l D]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3188 (defun math-div-bignum-digit (a b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3189 (if a
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3192 (cons
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3193 (cons (/ num b) (car res))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3196
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3197 (defun math-div-bignum-big (a b alen blen) ; [l.l l L]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3198 (if (< alen blen)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3199 (cons nil a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3200 (let* ((res (math-div-bignum-big (cdr a) b (1- alen) blen))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3201 (num (cons (car a) (cdr res)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3202 (res2 (math-div-bignum-part num b blen)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3203 (cons
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3213
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3214 (defun math-div-bignum-try (a b c guess) ; [D.l l l D]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3215 (let ((rem (math-sub-bignum a c)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3216 (if (eq rem 'neg)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3219
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3220
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3221 ;;; Compute the quotient of A and B. [O O N] [Public]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3222 (defun math-div (a b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3223 (or
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3226 (math-div-by-zero a b))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3227 (and (Math-zerop a) (not (eq (car-safe b) 'mod))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3228 (if (Math-scalarp b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3231 (math-div-zero a b)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3232 (and (Math-objvecp a) (Math-objvecp b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3233 (or
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3234 (and (Math-integerp a) (Math-integerp b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3235 (let ((q (math-idivmod a b)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3236 (if (eq (cdr q) 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3237 (car q)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3238 (if calc-prefer-frac
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3241 (math-make-frac a b))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3242 (math-div-float (math-make-float a 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3243 (math-make-float b 0))))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3246 (calc-div-fractions a b))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3247 (and (Math-realp a) (Math-realp b)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3248 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3249 (or (and (consp a) (eq (car a) 'float))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3250 (setq a (math-float a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3251 (or (and (consp b) (eq (car b) 'float))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3252 (setq b (math-float b)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3258
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3259 (defun math-div-float (a b) ; [F F F]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3260 (let ((ldiff (max (- (1+ calc-internal-prec)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3261 (- (math-numdigs (nth 1 a)) (math-numdigs (nth 1 b))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3262 0)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3265
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3266
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3267
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3270 ;;; Format the number A as a string. [X N; X Z] [Public]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3271 (defun math-format-stack-value (entry)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3272 (setq calc-selection-cache-entry calc-selection-cache-default-entry)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3273 (let* ((a (car entry))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3274 (math-comp-selected (nth 2 entry))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3275 (c (cond ((null a) "<nil>")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3276 ((eq calc-display-raw t) (format "%s" a))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3277 ((stringp a) a)
45769
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
3278 ((eq a 'top-of-stack) (propertize "." 'font-lock-face 'bold))
40785
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3279 (calc-prepared-composition
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3280 calc-prepared-composition)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3281 ((and (Math-scalarp a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3282 (memq calc-language '(nil flat unform))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3283 (null math-comp-selected))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3286 (math-compose-expr a 0))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3287 (off (math-stack-value-offset c))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3288 s w)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3289 (and math-comp-selected (setq calc-any-selections t))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3290 (setq w (cdr off)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3291 off (car off))
45769
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3294 (or (equal calc-left-label "")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3297 calc-left-label)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3298 c)))
45769
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
3299 (when calc-line-numbering
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
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
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
3304 " ")
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
3305 c)))
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
3306 (unless (or (equal calc-right-label "")
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
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
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
3309 (setq c (list 'horiz c
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
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
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
3312 '(break -1)
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
3313 calc-right-label)))
40785
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3314 (setq s (if (stringp c)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3315 (if calc-display-raw
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3316 (prin1-to-string c)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3317 c)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3318 (math-composition-to-string c w)))
45769
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
3319 (when calc-language-output-filter
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
3320 (setq s (funcall calc-language-output-filter s)))
40785
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3321 (if (eq calc-language 'big)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3322 (setq s (concat s "\n"))
45769
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3336 (if calc-display-just
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3345
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3346 (defun calc-count-lines (s)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3347 (let ((pos 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3353
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3354 (defun math-format-value (a &optional w)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3355 (if (and (Math-scalarp a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3356 (memq calc-language '(nil flat unform)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3361
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3362 (defun calc-window-width ()
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3363 (if calc-embedded-info
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3368
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3369 (defun math-comp-concat (c1 c2)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3370 (if (and (stringp c1) (stringp c2))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3373
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3374
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3375
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3376 ;;; Format an expression as a one-line string suitable for re-reading.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3377
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3378 (defun math-format-flat-expr (a prec)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3379 (cond
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3380 ((or (not (or (consp a) (integerp a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3381 (eq calc-display-raw t))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3382 (let ((print-escape-newlines t))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3383 (concat "'" (prin1-to-string a))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3384 ((Math-scalarp a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3385 (let ((calc-group-digits nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3386 (calc-point-char ".")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3387 (calc-frac-format (if (> (length (car calc-frac-format)) 1)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3388 '("::" nil) '(":" nil)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3389 (calc-complex-format nil)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3390 (calc-hms-format "%s@ %s' %s\"")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3391 (calc-language nil))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3392 (math-format-number a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3396
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3397
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3398
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3401 (defun math-format-number (a &optional prec) ; [X N] [Public]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3402 (cond
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3420 (math-format-number (math-adjust-fraction a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3421 ((integerp a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3422 (if (not (or calc-group-digits calc-leading-zeros))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3423 (if (= calc-number-radix 10)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3424 (int-to-string a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3425 (if (< a 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3428 (if math-radix-explicit-format
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3429 (if calc-radix-formatter
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3430 (funcall calc-radix-formatter
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3431 calc-number-radix
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3432 (if (= calc-number-radix 2)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3433 (math-format-binary a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3434 (math-format-radix a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3435 (format "%d#%s" calc-number-radix
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3436 (if (= calc-number-radix 2)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3437 (math-format-binary a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3438 (math-format-radix a))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3439 (math-format-radix a))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3440 (math-format-number (math-bignum a))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3441 ((stringp a) a)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3442 ((not (consp a)) (prin1-to-string a))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3443 ((eq (car a) 'bigpos) (math-format-bignum (cdr a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3444 ((eq (car a) 'bigneg) (concat "-" (math-format-bignum (cdr a))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3445 ((and (eq (car a) 'float) (= calc-number-radix 10))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3446 (if (Math-integer-negp (nth 1 a))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3447 (concat "-" (math-format-number (math-neg a)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3448 (let ((mant (nth 1 a))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3449 (exp (nth 2 a))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3450 (fmt (car calc-float-format))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3451 (figs (nth 1 calc-float-format))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3452 (point calc-point-char)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3453 str)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3454 (if (and (eq fmt 'fix)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3455 (or (and (< figs 0) (setq figs (- figs)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3456 (> (+ exp (math-numdigs mant)) (- figs))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3457 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3458 (setq mant (math-scale-rounding mant (+ exp figs))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3459 str (if (integerp mant)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3460 (int-to-string mant)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3461 (math-format-bignum-decimal (cdr mant))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3462 (if (<= (length str) figs)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3463 (setq str (concat (make-string (1+ (- figs (length str))) ?0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3464 str)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3465 (if (> figs 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3466 (setq str (concat (substring str 0 (- figs)) point
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3467 (substring str (- figs))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
3472 (when (< figs 0)
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
3473 (setq figs (+ calc-internal-prec figs)))
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
3474 (when (> figs 0)
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
3475 (let ((adj (- figs (math-numdigs mant))))
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
3476 (when (< adj 0)
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
3477 (setq mant (math-scale-rounding mant adj)
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
3478 exp (- exp adj)))))
40785
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3479 (setq str (if (integerp mant)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3480 (int-to-string mant)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3481 (math-format-bignum-decimal (cdr mant))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3482 (let* ((len (length str))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3483 (dpos (+ exp len)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3484 (if (and (eq fmt 'float)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3485 (<= dpos (+ calc-internal-prec calc-display-sci-high))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3486 (>= dpos (+ calc-display-sci-low 2)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3487 (progn
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3488 (cond
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3489 ((= dpos 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3490 (setq str (concat "0" point str)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3491 ((and (<= exp 0) (> dpos 0))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3492 (setq str (concat (substring str 0 dpos) point
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3493 (substring str dpos))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3494 ((> exp 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3495 (setq str (concat str (make-string exp ?0) point)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3496 (t ; (< dpos 0)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3497 (setq str (concat "0" point
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3502 (let* ((eadj (+ exp len))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3503 (scale (if (eq fmt 'eng)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3504 (1+ (math-mod (+ eadj 300002) 3))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3505 1)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3506 (if (> scale (length str))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3507 (setq str (concat str (make-string (- scale (length str))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3508 ?0))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3509 (if (< scale (length str))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3510 (setq str (concat (substring str 0 scale) point
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3515 (setq str (format (if (memq calc-language '(math maple))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3516 (if (and prec (> prec 191))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3517 "(%s*10.^%d)" "%s*10.^%d")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3518 "%se%d")
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3519 str (- eadj scale)))))))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3520 str)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3524
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3525 (defun math-format-bignum (a) ; [X L]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3526 (if (and (= calc-number-radix 10)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3527 (not calc-leading-zeros)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3528 (not calc-group-digits))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3532
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3533 (defun math-format-bignum-decimal (a) ; [X L]
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3534 (if a
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3535 (let ((s ""))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3547
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3548
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3549
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3639 (defun math-match-substring (s n)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3640 (if (match-beginning n)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3643
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3649
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3650 (defconst math-standard-opers
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3651 '( ( "_" calcFunc-subscr 1200 1201 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3652 ( "%" calcFunc-percent 1100 -1 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3653 ( "u!" calcFunc-lnot -1 1000 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3654 ( "mod" mod 400 400 185 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3655 ( "+/-" sdev 300 300 185 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3656 ( "!!" calcFunc-dfact 210 -1 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3657 ( "!" calcFunc-fact 210 -1 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3658 ( "^" ^ 201 200 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3662 ( "/" / 190 191 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3663 ( "%" % 190 191 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3664 ( "\\" calcFunc-idiv 190 191 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3665 ( "+" + 180 181 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3666 ( "-" - 180 181 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3667 ( "|" | 170 171 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3668 ( "<" calcFunc-lt 160 161 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3669 ( ">" calcFunc-gt 160 161 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3670 ( "<=" calcFunc-leq 160 161 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3671 ( ">=" calcFunc-geq 160 161 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3672 ( "=" calcFunc-eq 160 161 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3673 ( "==" calcFunc-eq 160 161 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3674 ( "!=" calcFunc-neq 160 161 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3675 ( "&&" calcFunc-land 110 111 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3676 ( "||" calcFunc-lor 100 101 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3677 ( "?" (math-read-if) 91 90 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3678 ( "!!!" calcFunc-pnot -1 85 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3679 ( "&&&" calcFunc-pand 80 81 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3680 ( "|||" calcFunc-por 75 76 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3681 ( ":=" calcFunc-assign 51 50 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3682 ( "::" calcFunc-condition 45 46 )
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3710
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3711 ;;;###autoload
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3712 (defun calc-grab-region (top bot arg)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3713 "Parse the region as a vector of numbers and push it on the Calculator stack."
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3717
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3718 ;;;###autoload
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3719 (defun calc-grab-rectangle (top bot arg)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3720 "Parse a rectangle as a matrix of numbers and push it on the Calculator stack."
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3724
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3725 (defun calc-grab-sum-down (top bot arg)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3726 "Parse a rectangle as a matrix of numbers and sum its columns."
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3730
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3731 (defun calc-grab-sum-across (top bot arg)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3732 "Parse a rectangle as a matrix of numbers and sum its rows."
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3736
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3737
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3738 ;;;###autoload
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3739 (defun calc-embedded (arg &optional end obeg oend)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3740 "Start Calc Embedded mode on the formula surrounding point."
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3744
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3745 ;;;###autoload
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3746 (defun calc-embedded-activate (&optional arg cbuf)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3747 "Scan the current editing buffer for all embedded := and => formulas.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3748 Also looks for the equivalent TeX words, \\gets and \\evalto."
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3751
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3752 (defun calc-user-invocation ()
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3757
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3758 ;;; User-programmability.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3759
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3760 ;;;###autoload
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3775
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3776 ;;; Functions needed for Lucid Emacs support.
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3777
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3780 (let ((event (next-command-event)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3781 (let ((key (event-to-character event t t)))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3782 (or key optkey (error "Expected a plain keystroke"))
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3787
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3794
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
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
2030da0c85f2 Use `when', `unless'.
Colin Walters <walters@gnu.org>
parents: 45578
diff changeset
3810 (calc-load-everything))
40785
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3811
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3812
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
3813 (run-hooks 'calc-load-hook)
2fb9d407ae73 Initial import of Calc 2.02f.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
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