Lines Matching +defs:calc +defs:default +defs:simplify +defs:mode
0 ;;; calc.el --- the GNU Emacs calculator
32 ;; facilities. The more advanced features are based in calc-ext, which
45 ;; report-calc-bug to send them).
48 ;; of the prefixes "math", "Math", or "calc", with the exceptions of
49 ;; "full-calc", "full-calc-keypad", "another-calc", "quick-calc",
50 ;; "report-calc-bug", and "defmath". User-accessible variables begin
61 ;; Consider reimplementing calc-delete-selection using rewrites.
68 ;; Have defmath generate calls to calc-binary-op or calc-unary-op.
71 ;; Allow calc-word-size=0 => Common Lisp-style signed bitwise arithmetic.
84 ;; Handle TeX-mode parsing of \matrix{ ... } where ... contains braces.
89 ;; Change calc-grab-region to use math-read-big-expr.
93 ;; Make a calc-graph-histogram function.
142 ;; Note: Probably a good idea to call math-simplify-extended before
146 ;; Subject: Re: fix for `Cannot open load file: calc-alg-3'
207 (require 'calc-macs)
209 (defgroup calc nil
211 :prefix "calc-"
216 (defcustom calc-settings-file
217 (convert-standard-filename "~/.calc.el")
219 :group 'calc
222 (defcustom calc-language-alist
223 '((latex-mode . latex)
224 (tex-mode . tex)
225 (plain-tex-mode . tex)
226 (context-mode . tex)
227 (nroff-mode . eqn)
228 (pascal-mode . pascal)
229 (c-mode . c)
230 (c++-mode . c)
231 (fortran-mode . fortran)
232 (f90-mode . fortran))
234 :group 'calc
235 :type '(alist :key-type (symbol :tag "Major mode")
238 (defcustom calc-embedded-announce-formula
240 "*A regular expression which is sure to be followed by a calc-embedded formula."
241 :group 'calc
244 (defcustom calc-embedded-announce-formula-alist
245 '((c++-mode . "//Embed\n\\(// .*\n\\)*")
246 (c-mode . "/\\*Embed\\*/\n\\(/\\* .*\\*/\n\\)*")
247 (f90-mode . "!Embed\n\\(! .*\n\\)*")
248 (fortran-mode . "C Embed\n\\(C .*\n\\)*")
249 (html-helper-mode . "<!-- Embed -->\n\\(<!-- .* -->\n\\)*")
250 (html-mode . "<!-- Embed -->\n\\(<!-- .* -->\n\\)*")
251 (nroff-mode . "\\\\\"Embed\n\\(\\\\\" .*\n\\)*")
252 (pascal-mode . "{Embed}\n\\({.*}\n\\)*")
253 (sgml-mode . "<!-- Embed -->\n\\(<!-- .* -->\n\\)*")
254 (xml-mode . "<!-- Embed -->\n\\(<!-- .* -->\n\\)*")
255 (texinfo-mode . "@c Embed\n\\(@c .*\n\\)*"))
256 "*Alist of major modes with appropriate values for `calc-embedded-announce-formula'."
257 :group 'calc
258 :type '(alist :key-type (symbol :tag "Major mode")
261 (defcustom calc-embedded-open-formula
263 "*A regular expression for the opening delimiter of a formula used by calc-embedded."
264 :group 'calc
267 (defcustom calc-embedded-close-formula
269 "*A regular expression for the closing delimiter of a formula used by calc-embedded."
270 :group 'calc
273 (defcustom calc-embedded-open-close-formula-alist
275 "*Alist of major modes with pairs of formula delimiters used by calc-embedded."
276 :group 'calc
277 :type '(alist :key-type (symbol :tag "Major mode")
281 (defcustom calc-embedded-open-word
283 "*A regular expression for the opening delimiter of a formula used by calc-embedded-word."
284 :group 'calc
287 (defcustom calc-embedded-close-word
289 "*A regular expression for the closing delimiter of a formula used by calc-embedded-word."
290 :group 'calc
293 (defcustom calc-embedded-open-close-word-alist
295 "*Alist of major modes with pairs of word delimiters used by calc-embedded."
296 :group 'calc
297 :type '(alist :key-type (symbol :tag "Major mode")
301 (defcustom calc-embedded-open-plain
304 If calc-show-plain mode is enabled, this is inserted at the front of
306 :group 'calc
309 (defcustom calc-embedded-close-plain
312 See calc-embedded-open-plain."
313 :group 'calc
316 (defcustom calc-embedded-open-close-plain-alist
317 '((c++-mode "// %% " " %%\n")
318 (c-mode "/* %% " " %% */\n")
319 (f90-mode "! %% " " %%\n")
320 (fortran-mode "C %% " " %%\n")
321 (html-helper-mode "<!-- %% " " %% -->\n")
322 (html-mode "<!-- %% " " %% -->\n")
323 (nroff-mode "\\\" %% " " %%\n")
324 (pascal-mode "{%% " " %%}\n")
325 (sgml-mode "<!-- %% " " %% -->\n")
326 (xml-mode "<!-- %% " " %% -->\n")
327 (texinfo-mode "@c %% " " %%\n"))
329 :group 'calc
330 :type '(alist :key-type (symbol :tag "Major mode")
334 (defcustom calc-embedded-open-new-formula
336 "*A string which is inserted at front of formula by calc-embedded-new-formula."
337 :group 'calc
340 (defcustom calc-embedded-close-new-formula
342 "*A string which is inserted at end of formula by calc-embedded-new-formula."
343 :group 'calc
346 (defcustom calc-embedded-open-close-new-formula-alist
348 "*Alist of major modes with pairs of new formula delimiters used by calc-embedded."
349 :group 'calc
350 :type '(alist :key-type (symbol :tag "Major mode")
354 (defcustom calc-embedded-open-mode
356 "*A string which should precede calc-embedded mode annotations.
357 This is not required to be present for user-written mode annotations."
358 :group 'calc
361 (defcustom calc-embedded-close-mode
363 "*A string which should follow calc-embedded mode annotations.
364 This is not required to be present for user-written mode annotations."
365 :group 'calc
368 (defcustom calc-embedded-open-close-mode-alist
369 '((c++-mode "// " "\n")
370 (c-mode "/* " " */\n")
371 (f90-mode "! " "\n")
372 (fortran-mode "C " "\n")
373 (html-helper-mode "<!-- " " -->\n")
374 (html-mode "<!-- " " -->\n")
375 (nroff-mode "\\\" " "\n")
376 (pascal-mode "{ " " }\n")
377 (sgml-mode "<!-- " " -->\n")
378 (xml-mode "<!-- " " -->\n")
379 (texinfo-mode "@c " "\n"))
381 :group 'calc
382 :type '(alist :key-type (symbol :tag "Major mode")
386 (defcustom calc-gnuplot-name
388 "*Name of GNUPLOT program, for calc-graph features."
389 :group 'calc
392 (defcustom calc-gnuplot-plot-command
395 :group 'calc
398 (defcustom calc-gnuplot-print-command
401 :group 'calc
404 (defvar calc-bug-address "jay.p.belanger@gmail.com"
405 "Address of the maintainer of Calc, for use by `report-calc-bug'.")
407 (defvar calc-scan-for-dels t
409 if nil, only DEL itself is mapped to calc-pop.")
411 (defvar calc-stack '((top-of-stack 1 nil))
415 (defvar calc-stack-top 1
416 "Index into `calc-stack' of \"top\" of stack.
417 This is 1 unless `calc-truncate-stack' has been used.")
419 (defvar calc-display-sci-high 0
421 current precision are displayed in scientific notation in calc-mode.")
423 (defvar calc-display-sci-low -3
425 scientific notation in calc-mode.")
427 (defvar calc-other-modes nil
428 "List of used-defined strings to append to Calculator mode line.")
430 (defvar calc-Y-help-msgs nil
433 (defvar calc-loaded-settings-file nil
434 "t if `calc-settings-file' has been loaded yet.")
437 (defvar calc-mode-var-list '()
443 (add-to-list 'calc-mode-var-list (list (quote ,var) ,defval))))
445 (defun calc-mode-var-list-restore-default-values ()
447 calc-mode-var-list))
449 (defun calc-mode-var-list-restore-saved-values ()
453 (file (substitute-in-file-name calc-settings-file)))
462 (search-forward "\n;;; End of mode settings" nil t)))
464 (calc-mode-var-list-restore-default-values)
466 (let ((varlist calc-mode-var-list))
476 (calc-mode-var-list-restore-default-values))))
478 (defcalcmodevar calc-always-load-extensions nil
479 "If non-nil, load the calc-ext module automatically when calc is loaded.")
481 (defcalcmodevar calc-line-numbering t
484 (defcalcmodevar calc-line-breaking t
487 (defcalcmodevar calc-display-just nil
492 (defcalcmodevar calc-display-origin nil
494 In left-justified mode, this is effectively indentation. (Default 0).
495 In right-justified mode, this is effectively window width.
496 In centered mode, center of stack entry is placed here.")
498 (defcalcmodevar calc-number-radix 10
499 "Radix for entry and display of numbers in calc-mode, 2-36.")
501 (defcalcmodevar calc-leading-zeros nil
502 "If non-nil, leading zeros are provided to pad integers to calc-word-size.")
504 (defcalcmodevar calc-group-digits nil
509 (defcalcmodevar calc-group-char ","
511 This is used only when calc-group-digits mode is on.")
513 (defcalcmodevar calc-point-char "."
516 (defcalcmodevar calc-frac-format '(":" nil)
519 (defcalcmodevar calc-prefer-frac nil
522 (defcalcmodevar calc-hms-format "%s@ %s' %s\""
526 (defcalcmodevar calc-date-format '((H ":" mm C SS pp " ")
530 (defcalcmodevar calc-float-format '(float 0)
531 "Format to use for display of floating-point numbers in calc-mode.
535 (float -N) -N < 0: Floating point format, calc-internal-prec - N figs.
539 (sci -N) -N < 0: Scientific notation, calc-internal-prec - N figs.
542 (eng -N) -N < 0: Engineering notation, calc-internal-prec - N figs.")
544 (defcalcmodevar calc-full-float-format '(float 0)
547 (defcalcmodevar calc-complex-format nil
548 "Format to use for display of complex numbers in calc-mode. Must be one of:
553 (defcalcmodevar calc-complex-mode 'cplx
556 (defcalcmodevar calc-infinite-mode nil
561 (defcalcmodevar calc-display-strings nil
564 (defcalcmodevar calc-matrix-just 'center
569 (defcalcmodevar calc-break-vectors nil
572 (defcalcmodevar calc-full-vectors t
575 (defcalcmodevar calc-full-trail-vectors t
578 (defcalcmodevar calc-vector-commas ","
581 (defcalcmodevar calc-vector-brackets "[]"
584 (defcalcmodevar calc-matrix-brackets '(R O)
590 (defcalcmodevar calc-language nil
605 (defcalcmodevar calc-language-option nil
606 "Numeric prefix argument for the command that set `calc-language'.")
608 (defcalcmodevar calc-left-label ""
611 (defcalcmodevar calc-right-label ""
614 (defcalcmodevar calc-word-size 32
615 "Minimum number of bits per word, if any, for binary operations in calc-mode.")
617 (defcalcmodevar calc-previous-modulo nil
620 (defcalcmodevar calc-simplify-mode nil
626 If `alg', `math-simplify' is applied.
627 If `ext', `math-simplify-extended' is applied.
628 If `units', `math-simplify-units' is applied.")
630 (defcalcmodevar calc-auto-recompute t
633 (defcalcmodevar calc-display-raw nil
636 (defcalcmodevar calc-internal-prec 12
637 "Number of digits of internal precision for calc-mode calculations.")
639 (defcalcmodevar calc-angle-mode 'deg
643 (defcalcmodevar calc-algebraic-mode nil
647 (defcalcmodevar calc-incomplete-algebraic-mode nil
648 "Like calc-algebraic-mode except only affects ( and [ keys.")
650 (defcalcmodevar calc-symbolic-mode nil
654 (defcalcmodevar calc-matrix-mode nil
661 (defcalcmodevar calc-shift-prefix nil
664 (defcalcmodevar calc-window-height 7
667 (defcalcmodevar calc-display-trail t
668 "If non-nil, M-x calc creates a window to display Calculator trail.")
670 (defcalcmodevar calc-show-selections t
674 (defcalcmodevar calc-use-selections t
678 (defcalcmodevar calc-assoc-selections t
681 (defcalcmodevar calc-display-working-message 'lots
684 (defcalcmodevar calc-auto-why 'maybe
687 (defcalcmodevar calc-timing nil
690 (defcalcmodevar calc-mode-save-mode 'local)
692 (defcalcmodevar calc-standard-date-formats
704 (defcalcmodevar calc-autorange-units nil)
706 (defcalcmodevar calc-was-keypad-mode nil)
708 (defcalcmodevar calc-full-mode nil)
710 (defcalcmodevar calc-user-parse-tables nil)
712 (defcalcmodevar calc-gnuplot-default-device "default")
714 (defcalcmodevar calc-gnuplot-default-output "STDOUT")
716 (defcalcmodevar calc-gnuplot-print-device "postscript")
718 (defcalcmodevar calc-gnuplot-print-output "auto")
720 (defcalcmodevar calc-gnuplot-geometry nil)
722 (defcalcmodevar calc-graph-default-resolution 15)
724 (defcalcmodevar calc-graph-default-resolution-3d 5)
726 (defcalcmodevar calc-invocation-macro nil)
728 (defcalcmodevar calc-show-banner t
731 (defconst calc-local-var-list '(calc-stack
732 calc-stack-top
733 calc-undo-list
734 calc-redo-list
735 calc-always-load-extensions
736 calc-mode-save-mode
737 calc-display-raw
738 calc-line-numbering
739 calc-line-breaking
740 calc-display-just
741 calc-display-origin
742 calc-left-label
743 calc-right-label
744 calc-auto-why
745 calc-algebraic-mode
746 calc-incomplete-algebraic-mode
747 calc-symbolic-mode
748 calc-matrix-mode
749 calc-inverse-flag
750 calc-hyperbolic-flag
751 calc-keep-args-flag
752 calc-angle-mode
753 calc-number-radix
754 calc-leading-zeros
755 calc-group-digits
756 calc-group-char
757 calc-point-char
758 calc-frac-format
759 calc-prefer-frac
760 calc-hms-format
761 calc-date-format
762 calc-standard-date-formats
763 calc-float-format
764 calc-full-float-format
765 calc-complex-format
766 calc-matrix-just
767 calc-full-vectors
768 calc-full-trail-vectors
769 calc-break-vectors
770 calc-vector-commas
771 calc-vector-brackets
772 calc-matrix-brackets
773 calc-complex-mode
774 calc-infinite-mode
775 calc-display-strings
776 calc-simplify-mode
777 calc-auto-recompute
778 calc-autorange-units
779 calc-show-plain
780 calc-show-selections
781 calc-use-selections
782 calc-assoc-selections
783 calc-word-size
784 calc-internal-prec))
786 (defvar calc-mode-hook nil
787 "Hook run when entering calc-mode.")
789 (defvar calc-trail-mode-hook nil
790 "Hook run when entering calc-trail-mode.")
792 (defvar calc-start-hook nil
793 "Hook run when calc is started.")
795 (defvar calc-end-hook nil
796 "Hook run when calc is quit.")
798 (defvar calc-load-hook nil
799 "Hook run when calc.el is loaded.")
801 (defvar calc-window-hook nil
804 (defvar calc-trail-window-hook nil
807 (defvar calc-embedded-new-buffer-hook nil
808 "Hook run when starting embedded mode in a new buffer.")
810 (defvar calc-embedded-new-formula-hook nil
811 "Hook run when starting embedded mode in a new formula.")
813 (defvar calc-embedded-mode-hook nil
814 "Hook run when starting embedded mode.")
817 (defvar calc-emacs-type-lucid (not (not (string-match "Lucid" emacs-version))))
820 (let ((name (and (fboundp 'calc-dispatch)
821 (eq (car-safe (symbol-function 'calc-dispatch)) 'autoload)
822 (nth 1 (symbol-function 'calc-dispatch))))
827 (expand-file-name "calc-misc.elc" (car p)))))
832 ;; This works for both relative ("calc/calc.elc") and absolute paths.
836 "calc-misc.elc")))
849 (put 'calc-mode 'mode-class 'special)
850 (put 'calc-trail-mode 'mode-class 'special)
853 (put 'inexact-result 'error-conditions '(error inexact-result calc-error))
857 (put 'math-overflow 'error-conditions '(error math-overflow calc-error))
859 (put 'math-underflow 'error-conditions '(error math-underflow calc-error))
862 (defconst calc-version "2.1")
863 (defvar calc-trail-pointer nil) ; "Current" entry in trail buffer.
864 (defvar calc-trail-overlay nil) ; Value of overlay-arrow-string.
865 (defvar calc-undo-list nil) ; List of previous operations for undo.
866 (defvar calc-redo-list nil) ; List of recent undo operations.
867 (defvar calc-main-buffer nil) ; Pointer to Calculator buffer.
868 (defvar calc-trail-buffer nil) ; Pointer to Calc Trail buffer.
869 (defvar calc-why nil) ; Explanations of most recent errors.
870 (defvar calc-next-why nil)
871 (defvar calc-inverse-flag nil
873 (defvar calc-hyperbolic-flag nil
875 (defvar calc-keep-args-flag nil
877 (defvar calc-function-open "("
879 (defvar calc-function-close ")"
881 (defvar calc-language-output-filter nil
883 (defvar calc-language-input-filter nil
885 (defvar calc-radix-formatter nil
888 (defvar calc-last-kill nil) ; Last number killed in calc-mode.
889 (defvar calc-dollar-values nil) ; Values to be used for '$'.
890 (defvar calc-dollar-used nil) ; Highest order of '$' that occurred.
891 (defvar calc-hashes-used nil) ; Highest order of '#' that occurred.
892 (defvar calc-quick-prev-results nil) ; Previous results from Quick Calc.
893 (defvar calc-said-hello nil) ; Has welcome message been said yet?
894 (defvar calc-executing-macro nil) ; Kbd macro executing from "K" key.
895 (defvar calc-any-selections nil) ; Nil means no selections present.
896 (defvar calc-help-phase 0) ; Count of consecutive "?" keystrokes.
897 (defvar calc-full-help-flag nil) ; Executing calc-full-help?
898 (defvar calc-refresh-count 0) ; Count of calc-refresh calls.
899 (defvar calc-display-dirty nil)
900 (defvar calc-prepared-composition nil)
901 (defvar calc-selection-cache-default-entry nil)
902 (defvar calc-embedded-info nil)
903 (defvar calc-embedded-active nil)
904 (defvar calc-standalone-flag nil)
922 calc-local-var-list)
924 (defvar calc-mode-map
927 (define-key map "+" 'calc-plus)
928 (define-key map "-" 'calc-minus)
929 (define-key map "*" 'calc-times)
930 (define-key map "/" 'calc-divide)
931 (define-key map "%" 'calc-mod)
932 (define-key map "&" 'calc-inv)
933 (define-key map "^" 'calc-power)
934 (define-key map "\M-%" 'calc-percent)
936 (define-key map "i" 'calc-info)
937 (define-key map "n" 'calc-change-sign)
938 (define-key map "q" 'calc-quit)
940 (define-key map "Y?" 'calc-shift-Y-prefix-help)
941 (define-key map "?" 'calc-help)
942 (define-key map " " 'calc-enter)
943 (define-key map "'" 'calc-algebraic-entry)
944 (define-key map "$" 'calc-auto-algebraic-entry)
945 (define-key map "\"" 'calc-auto-algebraic-entry)
946 (define-key map "\t" 'calc-roll-down)
947 (define-key map "\M-\t" 'calc-roll-up)
948 (define-key map "\C-m" 'calc-enter)
949 (define-key map "\M-\C-m" 'calc-last-args-stub)
950 (define-key map "\C-j" 'calc-over)
954 (mapc (lambda (x) (define-key map (char-to-string x) 'calc-missing-key))
961 (defvar calc-digit-map
963 (if calc-emacs-type-lucid
969 calc-mode-map)
970 (let ((cmap (nth 1 calc-mode-map))
990 (define-key calc-digit-map x 'calcDigit-backspace)
991 (define-key calc-mode-map x 'calc-pop)
992 (define-key calc-mode-map
994 (if calc-emacs-type-lucid
1002 'calc-pop-above))
1004 (if calc-scan-for-dels
1010 (defvar calc-dispatch-map
1018 '( ( ?a . calc-embedded-activate )
1019 ( ?b . calc-big-or-small )
1020 ( ?c . calc )
1021 ( ?d . calc-embedded-duplicate )
1022 ( ?e . calc-embedded )
1023 ( ?f . calc-embedded-new-formula )
1024 ( ?g . calc-grab-region )
1025 ( ?h . calc-dispatch-help )
1026 ( ?i . calc-info )
1027 ( ?j . calc-embedded-select )
1028 ( ?k . calc-keypad )
1029 ( ?l . calc-load-everything )
1031 ( ?n . calc-embedded-next )
1032 ( ?o . calc-other-window )
1033 ( ?p . calc-embedded-previous )
1034 ( ?q . quick-calc )
1035 ( ?r . calc-grab-rectangle )
1036 ( ?s . calc-info-summary )
1037 ( ?t . calc-tutorial )
1038 ( ?u . calc-embedded-update-formula )
1039 ( ?w . calc-embedded-word )
1040 ( ?x . calc-quit )
1041 ( ?y . calc-copy-to-buffer )
1042 ( ?z . calc-user-invocation )
1043 ( ?\' . calc-embedded-new-formula )
1044 ( ?\` . calc-embedded-edit )
1045 ( ?: . calc-grab-sum-down )
1046 ( ?_ . calc-grab-sum-across )
1047 ( ?0 . calc-reset )
1048 ( ?? . calc-dispatch-help )
1049 ( ?# . calc-same-interface )
1050 ( ?& . calc-same-interface )
1051 ( ?\\ . calc-same-interface )
1052 ( ?= . calc-same-interface )
1053 ( ?* . calc-same-interface )
1054 ( ?/ . calc-same-interface )
1055 ( ?+ . calc-same-interface )
1056 ( ?- . calc-same-interface ) ))
1064 ("calc-aent" calc-alg-digit-entry calc-alg-entry
1065 calc-check-user-syntax calc-do-alg-entry calc-do-calc-eval
1066 calc-do-quick-calc calc-match-user-syntax math-build-parse-table
1070 ("calc-embed" calc-do-embedded-activate)
1072 ("calc-misc"
1073 calc-do-handle-whys calc-do-refresh calc-num-prefix-name
1074 calc-record-list calc-record-why calc-report-bug calc-roll-down-stack
1075 calc-roll-up-stack calc-temp-minibuffer-message calcFunc-floor
1086 ("calc-aent" calc-algebraic-entry calc-auto-algebraic-entry
1089 ("calc-misc" another-calc calc-big-or-small calc-dispatch-help
1090 calc-help calc-info calc-info-goto-node calc-info-summary calc-inv
1091 calc-last-args-stub
1092 calc-missing-key calc-mod calc-other-window calc-over calc-percent
1093 calc-pop-above calc-power calc-roll-down calc-roll-up
1094 calc-shift-Y-prefix-help calc-tutorial calcDigit-letter
1095 report-calc-bug)))
1098 ;;;###autoload (define-key ctl-x-map "*" 'calc-dispatch)
1101 (defun calc-dispatch (&optional arg)
1102 "Invoke the GNU Emacs Calculator. See `calc-dispatch-help' for details."
1105 (condition-case err ; look for other keys bound to calc-dispatch
1109 (eq (lookup-key calc-dispatch-map keys) 'calc-same-interface))
1112 (lookup-key calc-dispatch-map (substring keys 0 1))))
1113 (define-key calc-dispatch-map (substring keys 0 1) nil))
1114 (define-key calc-dispatch-map keys 'calc-same-interface)))
1116 (calc-do-dispatch arg))
1118 (defvar calc-dispatch-help nil)
1119 (defun calc-do-dispatch (arg)
1120 (let ((key (calc-read-key-sequence
1121 (if calc-dispatch-help
1125 calc-dispatch-map)))
1126 (setq key (lookup-key calc-dispatch-map key))
1130 (or (commandp key) (require 'calc-ext))
1134 (defun calc-read-key-sequence (prompt map)
1139 (let ((key (calc-read-key t)))
1140 (calc-unread-command (cdr key))
1149 (defvar calc-alg-map) ; Defined in calc-ext.el
1151 (defun calc-version ()
1154 (message (concat "Calc version " calc-version)))
1156 (defun calc-mode ()
1157 "Calculator major mode.
1185 \\{calc-mode-map}
1189 (lambda (v) (set-default v (symbol-value v)))) calc-local-var-list)
1191 (use-local-map (if (eq calc-algebraic-mode 'total)
1192 (progn (require 'calc-ext) calc-alg-map) calc-mode-map))
1193 (mapcar (function (lambda (v) (make-local-variable v))) calc-local-var-list)
1196 (add-hook 'change-major-mode-hook 'font-lock-defontify nil t)
1199 (setq major-mode 'calc-mode)
1200 (setq mode-name "Calculator")
1201 (setq calc-stack-top (length (or (memq (assq 'top-of-stack calc-stack)
1202 calc-stack)
1203 (setq calc-stack (list (list 'top-of-stack
1205 (setq calc-stack-top (- (length calc-stack) calc-stack-top -1))
1206 (or calc-loaded-settings-file
1207 (null calc-settings-file)
1208 (equal calc-settings-file user-init-file)
1210 (setq calc-loaded-settings-file t)
1211 (load (file-name-sans-extension calc-settings-file) t))) ; t = missing-ok
1215 (string-match "calc" (nth 1 p))
1217 (setq calc-standalone-flag t))
1219 (run-mode-hooks 'calc-mode-hook)
1220 (calc-refresh t)
1221 (calc-set-mode-line)
1222 (calc-check-defines))
1224 (defvar calc-check-defines 'calc-check-defines) ; suitable for run-hooks
1225 (defun calc-check-defines ()
1226 (if (symbol-plist 'calc-define)
1227 (let ((plist (copy-sequence (symbol-plist 'calc-define))))
1232 (require 'calc-ext)
1233 (require 'calc-macs)
1236 (put 'calc-define (car plist) nil)
1239 ;; See if this has added any more calc-define properties.
1240 (calc-check-defines))
1241 (setplist 'calc-define nil)))))
1243 (defun calc-trail-mode (&optional buf)
1244 "Calc Trail mode.
1245 This mode is used by the *Calc Trail* buffer, which records all results
1254 (fundamental-mode)
1255 (use-local-map calc-mode-map)
1256 (setq major-mode 'calc-trail-mode)
1257 (setq mode-name "Calc Trail")
1263 (set (make-local-variable 'calc-main-buffer) buf))
1268 (run-mode-hooks 'calc-trail-mode-hook))
1270 (defun calc-create-buffer ()
1272 (or (eq major-mode 'calc-mode)
1273 (calc-mode))
1275 (when calc-always-load-extensions
1276 (require 'calc-ext))
1277 (when calc-language
1278 (require 'calc-ext)
1279 (calc-set-language calc-language calc-language-option t)))
1282 (defun calc (&optional arg full-display interactive)
1283 "The Emacs Calculator. Full documentation is listed under \"calc-mode\"."
1287 (require 'calc-ext)
1289 (calc-grab-region (region-beginning) (region-end) nil)
1291 (calc-keypad))))
1293 (calc-keypad)
1295 (if (eq major-mode 'calc-mode)
1296 (calc-quit)
1298 (calc-create-buffer)
1299 (setq calc-was-keypad-mode nil)
1301 (and (null full-display) calc-full-mode))
1305 (if calc-window-hook
1306 (run-hooks 'calc-window-hook)
1310 (+ window-min-height calc-window-height 2)))
1314 calc-window-height 2)
1320 (set-buffer (calc-trail-buffer))
1321 (and calc-display-trail
1323 (calc-trail-display 1 t)))
1325 (run-hooks 'calc-start-hook)
1329 (calc-check-defines)
1330 (when (and calc-said-hello interactive)
1333 (setq calc-said-hello t)))))
1336 (defun full-calc (&optional interactive)
1339 (calc nil t interactive))
1341 (defun calc-same-interface (arg)
1342 "Invoke the Calculator using the most recent interface (calc or calc-keypad)."
1347 (if (eq major-mode 'calc-edit-mode)
1348 (calc-edit-finish arg)
1349 (if calc-was-keypad-mode
1350 (calc-keypad)
1351 (calc arg calc-full-mode t)))))
1353 (defun calc-quit (&optional non-fatal interactive)
1355 (and calc-standalone-flag (not non-fatal)
1360 (if (eq major-mode 'calc-edit-mode)
1361 (calc-edit-cancel)
1363 calc-embedded-info
1364 (eq (current-buffer) (aref calc-embedded-info 0)))
1365 (calc-embedded nil)
1366 (unless (eq major-mode 'calc-mode)
1367 (calc-create-buffer))
1368 (run-hooks 'calc-end-hook)
1369 (setq calc-undo-list nil calc-redo-list nil)
1370 (mapcar (function (lambda (v) (set-default v (symbol-value v))))
1371 calc-local-var-list)
1375 (delete-windows-on (calc-trail-buffer))
1378 (= (window-width win) (frame-width)) ; avoid calc-keypad
1380 (setq calc-window-height (- (window-height win) 2)))
1385 (bury-buffer calc-trail-buffer)
1389 (defun quick-calc ()
1392 (calc-do-quick-calc))
1395 (defun calc-eval (str &optional separator &rest args)
1399 (calc-do-calc-eval str separator args))
1402 (defun calc-keypad (&optional interactive)
1403 "Invoke the Calculator in \"visual keypad\" mode.
1405 In this mode, click on the Calc \"buttons\" using the left mouse button.
1406 Or, position the cursor manually and do M-x calc-keypad-press."
1408 (require 'calc-ext)
1409 (calc-do-keypad calc-full-mode interactive))
1412 (defun full-calc-keypad (&optional interactive)
1413 "Invoke the Calculator in full-screen \"visual keypad\" mode.
1414 See calc-keypad for details."
1416 (require 'calc-ext)
1417 (calc-do-keypad t interactive))
1420 (defvar calc-aborted-prefix nil)
1421 (defvar calc-start-time nil)
1422 (defvar calc-command-flags)
1423 (defvar calc-final-point-line)
1424 (defvar calc-final-point-column)
1425 ;;; Note that modifications to this function may break calc-pass-errors.
1426 (defun calc-do (do-body &optional do-slow)
1427 (calc-check-defines)
1428 (let* ((calc-command-flags nil)
1429 (calc-start-time (and calc-timing (not calc-start-time)
1430 (require 'calc-ext)
1433 (if calc-timing 2000000 100000)))
1434 calc-final-point-line calc-final-point-column)
1435 (setq calc-aborted-prefix "")
1439 (if calc-embedded-info
1440 (calc-embedded-select-buffer)
1441 (calc-select-buffer))
1442 (and (eq calc-algebraic-mode 'total)
1443 (require 'calc-ext)
1444 (use-local-map calc-alg-map))
1445 (when (and do-slow calc-display-working-message)
1447 (calc-set-command-flag 'clear-message))
1449 (setq calc-aborted-prefix nil)
1450 (when (memq 'renum-stack calc-command-flags)
1451 (calc-renumber-stack))
1452 (when (memq 'clear-message calc-command-flags)
1460 (setq calc-aborted-prefix nil)
1462 (when calc-aborted-prefix
1463 (calc-record "<Aborted>" calc-aborted-prefix))
1464 (and calc-start-time
1465 (let* ((calc-internal-prec 12)
1466 (calc-date-format nil)
1468 (time (if (equal calc-start-time end-time)
1472 (calcFunc-unixtime (math-parse-date calc-start-time)
1475 (calc-record time "(t)"))))
1476 (or (memq 'no-align calc-command-flags)
1477 (eq major-mode 'calc-trail-mode)
1478 (calc-align-stack-window))
1479 (and (memq 'position-point calc-command-flags)
1480 (if (eq major-mode 'calc-mode)
1482 (goto-line calc-final-point-line)
1483 (move-to-column calc-final-point-column))
1485 (calc-select-buffer)
1486 (goto-line calc-final-point-line)
1487 (move-to-column calc-final-point-column))))
1488 (unless (memq 'keep-flags calc-command-flags)
1490 (calc-select-buffer)
1491 (setq calc-inverse-flag nil
1492 calc-hyperbolic-flag nil
1493 calc-keep-args-flag nil)))
1494 (when (memq 'do-edit calc-command-flags)
1496 (calc-set-mode-line)
1497 (when calc-embedded-info
1498 (calc-embedded-finish-command))))
1502 (defun calc-set-command-flag (f)
1503 (unless (memq f calc-command-flags)
1504 (setq calc-command-flags (cons f calc-command-flags))))
1506 (defun calc-select-buffer ()
1507 (or (eq major-mode 'calc-mode)
1508 (if calc-main-buffer
1509 (set-buffer calc-main-buffer)
1515 (defun calc-cursor-stack-index (&optional index)
1517 (forward-line (- (calc-substack-height (or index 1)))))
1519 (defun calc-stack-size ()
1520 (- (length calc-stack) calc-stack-top))
1522 (defun calc-substack-height (n)
1524 (stack calc-stack))
1525 (setq n (+ n calc-stack-top))
1532 (defun calc-set-mode-line ()
1534 (calc-select-buffer)
1535 (let* ((fmt (car calc-float-format))
1536 (figs (nth 1 calc-float-format))
1537 (new-mode-string
1539 (if calc-embedded-info "Embed" "")
1545 calc-internal-prec
1546 (capitalize (symbol-name calc-angle-mode))
1550 (if (eq calc-algebraic-mode 'total) "Alg* "
1551 (if calc-algebraic-mode "Alg "
1552 (if calc-incomplete-algebraic-mode "Alg[( " "")))
1555 (if calc-symbolic-mode "Symb " "")
1556 (cond ((eq calc-matrix-mode 'matrix) "Matrix ")
1557 ((integerp calc-matrix-mode)
1558 (format "Matrix%d " calc-matrix-mode))
1559 ((eq calc-matrix-mode 'sqmatrix) "SqMatrix ")
1560 ((eq calc-matrix-mode 'scalar) "Scalar ")
1562 (if (eq calc-complex-mode 'polar) "Polar " "")
1563 (if calc-prefer-frac "Frac " "")
1564 (cond ((null calc-infinite-mode) "")
1565 ((eq calc-infinite-mode 1) "+Inf ")
1567 (cond ((eq calc-simplify-mode 'none) "NoSimp ")
1568 ((eq calc-simplify-mode 'num) "NumSimp ")
1569 ((eq calc-simplify-mode 'binary)
1570 (format "BinSimp%d " calc-word-size))
1571 ((eq calc-simplify-mode 'alg) "AlgSimp ")
1572 ((eq calc-simplify-mode 'ext) "ExtSimp ")
1573 ((eq calc-simplify-mode 'units) "UnitSimp ")
1577 (cond ((= calc-number-radix 10) "")
1578 ((= calc-number-radix 2) "Bin ")
1579 ((= calc-number-radix 8) "Oct ")
1580 ((= calc-number-radix 16) "Hex ")
1581 (t (format "Radix%d " calc-number-radix)))
1582 (if calc-leading-zeros "Zero " "")
1583 (cond ((null calc-language) "")
1584 ((eq calc-language 'tex) "TeX ")
1585 ((eq calc-language 'latex) "LaTeX ")
1587 (capitalize (symbol-name calc-language))
1596 (cond ((not calc-display-just)
1597 (if calc-display-origin
1598 (format "Left%d " calc-display-origin) ""))
1599 ((eq calc-display-just 'right)
1600 (if calc-display-origin
1601 (format "Right%d " calc-display-origin)
1604 (if calc-display-origin
1605 (format "Center%d " calc-display-origin)
1607 (cond ((integerp calc-line-breaking)
1608 (format "Wid%d " calc-line-breaking))
1609 (calc-line-breaking "")
1613 (if calc-assoc-selections "" "Break ")
1614 (cond ((eq calc-mode-save-mode 'save) "Save ")
1615 ((not calc-embedded-info) "")
1616 ((eq calc-mode-save-mode 'local) "Local ")
1617 ((eq calc-mode-save-mode 'edit) "LocEdit ")
1618 ((eq calc-mode-save-mode 'perm) "LocPerm ")
1619 ((eq calc-mode-save-mode 'global) "Global ")
1621 (if calc-auto-recompute "" "Manual ")
1622 (if (and (fboundp 'calc-gnuplot-alive)
1623 (calc-gnuplot-alive)) "Graph " "")
1624 (if (and calc-embedded-info
1625 (> (calc-stack-size) 0)
1626 (calc-top 1 'sel)) "Sel " "")
1627 (if calc-display-dirty "Dirty " "")
1628 (if calc-inverse-flag "Inv " "")
1629 (if calc-hyperbolic-flag "Hyp " "")
1630 (if calc-keep-args-flag "Keep " "")
1631 (if (/= calc-stack-top 1) "Narrow " "")
1632 (apply 'concat calc-other-modes)))))
1633 (if (equal new-mode-string mode-line-buffer-identification)
1635 (setq mode-line-buffer-identification new-mode-string)
1637 (and calc-embedded-info (calc-embedded-mode-line-change))))))
1639 (defun calc-align-stack-window ()
1640 (if (eq major-mode 'calc-mode)
1645 (calc-cursor-stack-index 0)
1648 (calc-cursor-stack-index 0)
1652 (calc-select-buffer)
1653 (calc-align-stack-window))))
1655 (defun calc-check-stack (n)
1656 (if (> n (calc-stack-size))
1661 (defun calc-push-list (vals &optional m sels)
1663 (if calc-executing-macro
1664 (calc-push-list-in-macro vals m sels)
1666 (calc-select-buffer)
1669 (mm (+ (or m 1) calc-stack-top)))
1670 (calc-cursor-stack-index (1- (or m 1)))
1672 (setcdr (nthcdr (- mm 2) calc-stack)
1673 (cons entry (nthcdr (1- mm) calc-stack)))
1674 (setq calc-stack (cons entry calc-stack)))
1677 (calc-record-undo (list 'push mm))
1678 (calc-set-command-flag 'renum-stack))))
1682 (defun calc-pop-push-list (n vals &optional m sels)
1683 (if (and calc-any-selections (null sels))
1684 (calc-replace-selections n vals m)
1685 (calc-pop-stack n m sels)
1686 (calc-push-list vals m sels)))
1688 (defun calc-pop-push-record-list (n prefix vals &optional m sels)
1694 (calc-check-stack (+ n (or m 1) -1))
1697 (calc-record-list vals prefix)
1698 (calc-record (car vals) prefix)))
1699 (calc-pop-push-list n vals m sels))
1701 (defun calc-enter-result (n prefix vals &optional m)
1702 (setq calc-aborted-prefix prefix)
1706 (setq vals (mapcar 'calc-normalize vals))
1707 (setq vals (calc-normalize vals)))
1714 (calc-pop-push-record-list n prefix vals m)
1715 (calc-handle-whys))
1717 (defun calc-normalize (val)
1718 (if (memq calc-simplify-mode '(nil none num))
1720 (require 'calc-ext)
1721 (calc-normalize-fancy val)))
1723 (defun calc-handle-whys ()
1724 (if calc-next-why
1725 (calc-do-handle-whys)))
1728 (defun calc-pop-stack (&optional n m sel-ok) ; pop N objs at level M of stack.
1731 (or calc-keep-args-flag
1732 (let ((mm (+ m calc-stack-top)))
1733 (if (and calc-any-selections (not sel-ok)
1734 (calc-top-selected n m))
1735 (calc-sel-error))
1736 (if calc-executing-macro
1737 (calc-pop-stack-in-macro n mm)
1738 (calc-record-undo (list 'pop mm (calc-top-list n m 'full)))
1740 (calc-select-buffer)
1744 (calc-cursor-stack-index (1- m))
1746 (calc-cursor-stack-index (+ n m -1))
1748 (setcdr (nthcdr (- mm 2) calc-stack)
1749 (nthcdr (+ n mm -1) calc-stack)))
1750 (calc-cursor-stack-index n)
1751 (setq calc-stack (nthcdr n calc-stack))
1753 (calc-set-command-flag 'renum-stack))))))
1755 (defvar sel-mode)
1756 (defun calc-get-stack-element (x)
1757 (cond ((eq sel-mode 'entry)
1759 ((eq sel-mode 'sel)
1762 (eq sel-mode 'full)
1763 (not calc-use-selections))
1765 (sel-mode
1766 (calc-sel-error))
1770 (defun calc-top (&optional n sel-mode)
1772 (calc-check-stack n)
1773 (calc-get-stack-element (nth (+ n calc-stack-top -1) calc-stack)))
1775 (defun calc-top-n (&optional n sel-mode) ; in case precision has changed
1776 (math-check-complete (calc-normalize (calc-top n sel-mode))))
1778 (defun calc-top-list (&optional n m sel-mode)
1781 (calc-check-stack (+ n m -1))
1783 (let ((top (copy-sequence (nthcdr (+ m calc-stack-top -1)
1784 calc-stack))))
1786 (nreverse (mapcar 'calc-get-stack-element top)))))
1788 (defun calc-top-list-n (&optional n m sel-mode)
1790 (mapcar 'calc-normalize (calc-top-list n m sel-mode))))
1793 (defun calc-renumber-stack ()
1794 (if calc-line-numbering
1796 (calc-cursor-stack-index 0)
1799 (stack (nthcdr calc-stack-top calc-stack)))
1808 (calc-cursor-stack-index 0)))
1814 calc-use-selections) "*" ":")))
1817 calc-use-selections) "*" ":")
1822 (and calc-embedded-info (calc-embedded-stack-change)))
1824 (defvar calc-any-evaltos nil)
1825 (defun calc-refresh (&optional align)
1827 (and (eq major-mode 'calc-mode)
1828 (not calc-executing-macro)
1833 (thing calc-stack)
1834 (calc-any-evaltos nil))
1835 (setq calc-any-selections nil)
1837 (when calc-show-banner
1842 (when calc-show-banner
1846 (calc-renumber-stack)
1847 (if calc-display-dirty
1848 (calc-wrapper (setq calc-display-dirty nil)))
1849 (and calc-any-evaltos calc-auto-recompute
1850 (calc-wrapper (calc-refresh-evaltos)))
1852 (calc-align-stack-window)
1855 (and calc-embedded-info (not (eq major-mode 'calc-mode))
1857 (set-buffer (aref calc-embedded-info 1))
1858 (calc-refresh align)))
1859 (setq calc-refresh-count (1+ calc-refresh-count)))
1863 (defun calc-check-trail-aligned ()
1869 (defun calc-trail-buffer ()
1870 (and (or (null calc-trail-buffer)
1871 (null (buffer-name calc-trail-buffer)))
1873 (setq calc-trail-buffer (get-buffer-create "*Calc Trail*"))
1874 (let ((buf (or (and (not (eq major-mode 'calc-mode))
1877 (set-buffer calc-trail-buffer)
1878 (or (eq major-mode 'calc-trail-mode)
1879 (calc-trail-mode buf)))))
1880 (or (and calc-trail-pointer
1881 (eq (marker-buffer calc-trail-pointer) calc-trail-buffer))
1883 (set-buffer calc-trail-buffer)
1885 (setq calc-trail-pointer (point-marker))))
1886 calc-trail-buffer)
1888 (defun calc-record (val &optional prefix)
1889 (setq calc-aborted-prefix nil)
1890 (or calc-executing-macro
1892 (buf (calc-trail-buffer))
1893 (calc-display-raw nil)
1894 (calc-can-abbrev-vectors t)
1903 (let ((aligned (calc-check-trail-aligned))
1913 (if (and aligned win (not (memq 'hold-trail calc-command-flags)))
1914 (calc-trail-here))
1919 (defun calc-trail-display (flag &optional no-refresh interactive)
1921 (let ((win (get-buffer-window (calc-trail-buffer))))
1922 (if (setq calc-display-trail
1926 (if calc-trail-window-hook
1927 (run-hooks 'calc-trail-window-hook)
1929 (set-window-buffer w calc-trail-buffer)))
1930 (calc-wrapper
1931 (setq overlay-arrow-string calc-trail-overlay
1932 overlay-arrow-position calc-trail-pointer)
1935 (calc-do-refresh)
1936 (calc-refresh))))))
1940 (calc-wrapper
1943 (calc-do-refresh)
1944 (calc-refresh))))))))
1945 calc-trail-buffer)
1947 (defun calc-trail-here ()
1949 (if (eq major-mode 'calc-trail-mode)
1958 (set-marker calc-trail-pointer (point) (current-buffer))
1959 (setq calc-trail-overlay (concat (buffer-substring (point)
1962 overlay-arrow-string calc-trail-overlay
1963 overlay-arrow-position calc-trail-pointer)
1971 (set-window-point win (+ calc-trail-pointer 4))
1972 (set-buffer calc-main-buffer)
1973 (setq overlay-arrow-string calc-trail-overlay
1974 overlay-arrow-position calc-trail-pointer))))))
1982 (defun calc-record-undo (rec)
1983 (or calc-executing-macro
1984 (if (memq 'undo calc-command-flags)
1985 (setq calc-undo-list (cons (cons rec (car calc-undo-list))
1986 (cdr calc-undo-list)))
1987 (setq calc-undo-list (cons (list rec) calc-undo-list)
1988 calc-redo-list nil)
1989 (calc-set-command-flag 'undo))))
1996 (defun calc-binary-op (name func arg &optional ident unary func2)
1997 (setq calc-aborted-prefix name)
1999 (calc-enter-result 2 name (cons (or func2 func)
2001 (calc-top-list 2))))
2002 (require 'calc-ext)
2003 (calc-binary-op-fancy name func arg ident unary)))
2005 (defun calc-unary-op (name func arg &optional func2)
2006 (setq calc-aborted-prefix name)
2008 (calc-enter-result 1 name (list (or func2 func)
2009 (math-check-complete (calc-top 1))))
2010 (require 'calc-ext)
2011 (calc-unary-op-fancy name func arg)))
2014 (defun calc-plus (arg)
2016 (calc-slow-wrapper
2017 (calc-binary-op "+" 'calcFunc-add arg 0 nil '+)))
2019 (defun calc-minus (arg)
2021 (calc-slow-wrapper
2022 (calc-binary-op "-" 'calcFunc-sub arg 0 'neg '-)))
2024 (defun calc-times (arg)
2026 (calc-slow-wrapper
2027 (calc-binary-op "*" 'calcFunc-mul arg 1 nil '*)))
2029 (defun calc-divide (arg)
2031 (calc-slow-wrapper
2032 (calc-binary-op "/" 'calcFunc-div arg 0 'calcFunc-inv '/)))
2034 (defun calc-left-divide (arg)
2036 (calc-slow-wrapper
2037 (calc-binary-op "ldiv" 'calcFunc-ldiv arg 0 nil nil)))
2039 (defun calc-change-sign (arg)
2041 (calc-wrapper
2042 (calc-unary-op "chs" 'neg arg)))
2048 (defun calc-enter (n)
2050 (calc-wrapper
2052 (calc-push-list (calc-top-list 1 (- n))))
2054 (calc-push-list (calc-top-list (calc-stack-size))))
2056 (calc-push-list (calc-top-list n))))))
2059 (defun calc-pop (n)
2061 (calc-wrapper
2063 (top (and (null n) (calc-top 1))))
2067 (calc-pop-push-list 1 (let ((tt (copy-sequence top)))
2071 (if (and calc-any-selections
2072 (calc-top-selected 1 (- nn)))
2073 (calc-delete-selection (- nn))
2074 (calc-pop-stack 1 (- nn) t)))
2076 (calc-pop-stack (calc-stack-size) 1 t))
2078 (if (and calc-any-selections
2080 (calc-top-selected 1 1))
2081 (calc-delete-selection 1)
2082 (calc-pop-stack nn)))))))
2088 (defvar calc-buffer)
2089 (defvar calc-prev-char)
2090 (defvar calc-prev-prev-char)
2091 (defvar calc-digit-value)
2094 (calc-wrapper
2095 (if (or calc-algebraic-mode
2096 (and (> calc-number-radix 14) (eq last-command-char ?e)))
2097 (calc-alg-digit-entry)
2098 (calc-unread-command)
2099 (setq calc-aborted-prefix nil)
2100 (let* ((calc-digit-value nil)
2101 (calc-prev-char nil)
2102 (calc-prev-prev-char nil)
2103 (calc-buffer (current-buffer))
2104 (buf (if calc-emacs-type-lucid
2105 (catch 'calc-foo
2107 (throw 'calc-foo
2109 "Calc: " "" calc-digit-map)))
2116 (read-from-minibuffer "Calc: " "" calc-digit-map))
2118 (or calc-digit-value (setq calc-digit-value (math-read-number buf)))
2119 (if (stringp calc-digit-value)
2120 (calc-alg-entry calc-digit-value)
2121 (if calc-digit-value
2122 (calc-push-list (list (calc-record (calc-normalize
2123 calc-digit-value))))))
2124 (if (eq calc-prev-char 'dots)
2126 (require 'calc-ext)
2127 (calc-dots)))))))
2129 (defsubst calc-minibuffer-size ()
2135 (or (boundp 'calc-buffer)
2138 (setq calc-digit-value (save-excursion
2139 (set-buffer calc-buffer)
2141 (if (and (null calc-digit-value) (> (calc-minibuffer-size) 0))
2144 (calc-temp-minibuffer-message " [Bad format]"))
2147 (calc-unread-command (if (and (eq last-command-char 27)
2154 (defun calc-minibuffer-contains (rex)
2166 (not (calc-minibuffer-contains "[-+]?[0-9]+\\.?0*[@oh].*"))
2167 (not (calc-minibuffer-contains "[-+]?\\(1[1-9]\\|[2-9][0-9]\\)#.*"))))
2169 (if (calc-minibuffer-contains "\\([-+]?\\|.* \\)\\'")
2172 (not (calc-minibuffer-contains ".*#.*"))) (insert "0"))
2175 (insert (int-to-string calc-number-radix)))))
2176 (if (and (calc-minibuffer-contains "\\([-+]?[0-9]+#\\|[^:]*:\\)\\'")
2179 (if (and (calc-minibuffer-contains "[-+]?[0-9]+#\\'")
2182 (if (and (calc-minibuffer-contains "[-+]?0*\\([2-9]\\|1[0-4]\\)#\\'")
2186 (calc-minibuffer-contains ".*#.*"))
2188 (calc-minibuffer-contains "[-+]?\\(1[5-9]\\|[2-9][0-9]\\)#.*"))
2190 (calc-minibuffer-contains "[-+]?\\(2[4-9]\\|[3-9][0-9]\\)#.*")))
2198 (and (not (calc-minibuffer-contains "[-+]?\\(1[5-9]\\|[2-9][0-9]\\)#.*"))
2207 (if (or (calc-minibuffer-contains ".*\\+/-.*")
2208 (calc-minibuffer-contains ".*mod.*")
2209 (calc-minibuffer-contains ".*#.*")
2210 (calc-minibuffer-contains ".*[-+e:]\\'"))
2212 (if (not (calc-minibuffer-contains ".* \\'"))
2216 (not (calc-minibuffer-contains
2218 (if (or (calc-minibuffer-contains ".*\\+/-.*")
2219 (calc-minibuffer-contains ".*mod *[^ ]+")
2220 (calc-minibuffer-contains ".*[-+e:]\\'"))
2222 (if (calc-minibuffer-contains ".*mod \\'")
2223 (if calc-previous-modulo
2224 (insert (math-format-flat-expr calc-previous-modulo 0))
2226 (if (not (calc-minibuffer-contains ".* \\'"))
2231 (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]*\\)?\\)?\\'")
2242 (calc-minibuffer-contains
2245 (string-match " " calc-hms-format))
2250 (require 'calc-ext)
2251 (calc-digit-dots))
2254 (calc-temp-minibuffer-message " [Bad format]"))))))
2255 (setq calc-prev-prev-char calc-prev-char
2256 calc-prev-char last-command-char))
2262 (cond ((calc-minibuffer-contains ".* \\+/- \\'")
2264 ((calc-minibuffer-contains ".* mod \\'")
2266 ((calc-minibuffer-contains ".* \\'")
2271 (if (= (calc-minibuffer-size) 0)
2302 ;;; abs(NUM) < 10^calc-internal-prec.
2425 (require 'calc-ext)
2428 (or (and calc-simplify-mode
2429 (require 'calc-ext)
2446 (require 'calc-ext)
2459 (and (not (featurep 'calc-ext))
2460 (require 'calc-ext)
2464 (calc-record-why "*Wrong number of arguments"
2468 (or calc-next-why
2469 (calc-record-why "Wrong type of argument"
2473 (calc-record-why "*Argument out of range"
2477 (calc-record-why "No exact representation for result"
2481 (calc-record-why "*Floating-point overflow occurred"
2485 (calc-record-why "*Floating-point underflow occurred"
2493 (calc-record-why "*Variable is void" (nth 1 err)))))
2516 (calc-incomplete-error a))
2538 (let* ((ldiff (- calc-internal-prec (math-numdigs mant))))
2728 (require 'calc-ext)
2729 (calc-add-fractions a b))
2737 (and (require 'calc-ext)
2739 (and (require 'calc-ext)
2817 (if (>= ediff (+ calc-internal-prec calc-internal-prec))
2825 (+ calc-internal-prec calc-internal-prec))
2843 (if (>= ediff (+ calc-internal-prec calc-internal-prec))
2851 (+ calc-internal-prec calc-internal-prec))
2868 (require 'calc-ext)
2873 (require 'calc-ext)
2889 (require 'calc-ext)
2890 (calc-mul-fractions a b))
2899 (and (require 'calc-ext)
2901 (and (require 'calc-ext)
3057 (require 'calc-ext)
3062 (require 'calc-ext)
3070 (if calc-prefer-frac
3072 (require 'calc-ext)
3077 (require 'calc-ext)
3078 (calc-div-fractions a b))
3086 (and (require 'calc-ext)
3088 (and (require 'calc-ext)
3092 (let ((ldiff (max (- (1+ calc-internal-prec)
3101 (defvar calc-selection-cache-entry)
3104 (setq calc-selection-cache-entry calc-selection-cache-default-entry)
3108 ((eq calc-display-raw t) (format "%s" a))
3111 (calc-prepared-composition
3112 calc-prepared-composition)
3114 (memq calc-language '(nil flat unform))
3117 (t (require 'calc-ext)
3121 (and math-comp-selected (setq calc-any-selections t))
3126 (or (equal calc-left-label "")
3128 (make-string (length calc-left-label) ?\s)
3129 calc-left-label)
3131 (when calc-line-numbering
3132 (setq c (math-comp-concat (if (eq calc-language 'big)
3138 (unless (or (equal calc-right-label "")
3140 (require 'calc-ext)
3143 (length calc-right-label)) 0) ?\s)
3145 calc-right-label)))
3147 (if calc-display-raw
3151 (when calc-language-output-filter
3152 (setq s (funcall calc-language-output-filter s)))
3153 (if (eq calc-language 'big)
3155 (when calc-line-numbering
3157 (setcar (cdr entry) (calc-count-lines s))
3165 (let* ((num (if calc-line-numbering 4 0))
3166 (math-svo-wid (calc-window-width))
3168 (if calc-display-just
3170 (require 'calc-ext)
3172 (setq math-svo-off (or calc-display-origin 0))
3173 (when (integerp calc-line-breaking)
3174 (setq math-svo-wid calc-line-breaking)))
3175 (cons (max (- math-svo-off (length calc-left-label)) 0)
3178 (defun calc-count-lines (s)
3188 (memq calc-language '(nil flat unform)))
3190 (require 'calc-ext)
3191 (let ((calc-line-breaking nil))
3194 (defun calc-window-width ()
3195 (if calc-embedded-info
3196 (let ((win (get-buffer-window (aref calc-embedded-info 0))))
3199 (if calc-line-numbering 5 1))))
3213 (eq calc-display-raw t))
3217 (let ((calc-group-digits nil)
3218 (calc-point-char ".")
3219 (calc-frac-format (if (> (length (car calc-frac-format)) 1)
3221 (calc-complex-format nil)
3222 (calc-hms-format "%s@ %s' %s\"")
3223 (calc-language nil))
3226 (require 'calc-ext)
3234 ((eq calc-display-raw t) (format "%s" a))
3235 ((and (nth 1 calc-frac-format) (Math-integerp a))
3236 (require 'calc-ext)
3239 (if (not (or calc-group-digits calc-leading-zeros))
3240 (if (= calc-number-radix 10)
3244 (require 'calc-ext)
3246 (if calc-radix-formatter
3247 (funcall calc-radix-formatter
3248 calc-number-radix
3249 (if (= calc-number-radix 2)
3252 (format "%d#%s" calc-number-radix
3253 (if (= calc-number-radix 2)
3262 ((and (eq (car a) 'float) (= calc-number-radix 10))
3267 (fmt (car calc-float-format))
3268 (figs (nth 1 calc-float-format))
3269 (point calc-point-char)
3286 (when calc-group-digits
3287 (require 'calc-ext)
3290 (setq figs (+ calc-internal-prec figs)))
3302 (<= dpos (+ calc-internal-prec calc-display-sci-high))
3303 (>= dpos (+ calc-display-sci-low 2)))
3316 (when calc-group-digits
3317 (require 'calc-ext)
3329 (when calc-group-digits
3330 (require 'calc-ext)
3332 (setq str (format (if (memq calc-language '(math maple))
3339 (require 'calc-ext)
3343 (if (and (= calc-number-radix 10)
3344 (not calc-leading-zeros)
3345 (not calc-group-digits))
3347 (require 'calc-ext)
3369 (if (and (eq calc-language 'c)
3389 (require 'calc-ext)
3498 (defun calc-grab-region (top bot arg)
3501 (require 'calc-ext)
3502 (calc-do-grab-region top bot arg))
3505 (defun calc-grab-rectangle (top bot arg)
3508 (require 'calc-ext)
3509 (calc-do-grab-rectangle top bot arg))
3511 (defun calc-grab-sum-down (top bot arg)
3514 (require 'calc-ext)
3515 (calc-do-grab-rectangle top bot arg 'calcFunc-reduced))
3517 (defun calc-grab-sum-across (top bot arg)
3520 (require 'calc-ext)
3521 (calc-do-grab-rectangle top bot arg 'calcFunc-reducea))
3525 (defun calc-embedded (arg &optional end obeg oend)
3526 "Start Calc Embedded mode on the formula surrounding point."
3528 (require 'calc-ext)
3529 (calc-do-embedded arg end obeg oend))
3532 (defun calc-embedded-activate (&optional arg cbuf)
3536 (calc-do-embedded-activate arg cbuf))
3538 (defun calc-user-invocation ()
3540 (unless calc-invocation-macro
3542 (execute-kbd-macro calc-invocation-macro nil))
3548 (require 'calc-ext)
3553 (defun calc-read-key (&optional optkey)
3554 (cond (calc-emacs-type-lucid
3563 (defun calc-unread-command (&optional input)
3570 (defun calc-clear-unread-commands ()
3572 (calc-emacs-type-lucid (setq unread-command-event nil))
3575 (when calc-always-load-extensions
3576 (require 'calc-ext)
3577 (calc-load-everything))
3580 (run-hooks 'calc-load-hook)
3582 (provide 'calc)
3585 ;;; calc.el ends here