lisp/calc/calc.el

34 ;; odd set of interactions is designed to make Calc's loading time
66 ;;   Have "Z R" define a user command based on a set of rewrite rules.
113 ;;   Implement language modes for Gnuplot, Lisp, Ada, APL, ...?
202 ;; what may be useful set of confidence levels for different amounts of
222 (defcustom calc-language-alist
235   :type '(alist :key-type (symbol :tag "Major mode")
236                 :value-type (symbol :tag "Calc language")))
244 (defcustom calc-embedded-announce-formula-alist
258   :type '(alist :key-type (symbol :tag "Major mode")
273 (defcustom calc-embedded-open-close-formula-alist
277   :type '(alist :key-type (symbol :tag "Major mode")
293 (defcustom calc-embedded-open-close-word-alist
297   :type '(alist :key-type (symbol :tag "Major mode")
316 (defcustom calc-embedded-open-close-plain-alist
330   :type '(alist :key-type (symbol :tag "Major mode")
346 (defcustom calc-embedded-open-close-new-formula-alist
350   :type '(alist :key-type (symbol :tag "Major mode")
368 (defcustom calc-embedded-open-close-mode-alist
382   :type '(alist :key-type (symbol :tag "Major mode")
446   (mapcar (function (lambda (v) (set (car v) (nth 1 v))))
456                (set-buffer (find-file-noselect file))
474         (mapcar (function (lambda (v) (set (car v) (nth 1 v))))
590 (defcalcmodevar calc-language nil
596   c		Use C language notation.
597   pascal	Use Pascal language notation.
598   fortran	Use Fortran language notation.
605 (defcalcmodevar calc-language-option nil
606   "Numeric prefix argument for the command that set `calc-language'.")
825     ;; If Calc files exist on the load-path, we're all set.
881 (defvar calc-language-output-filter nil
883 (defvar calc-language-input-filter nil
902 (defvar calc-embedded-info nil)
921 (mapcar (lambda (v) (or (boundp v) (set v nil)))
936     (define-key map "i" 'calc-info)
1026 	       ( ?i . calc-info )
1036 	       ( ?s . calc-info-summary )
1090     calc-help calc-info calc-info-goto-node calc-info-summary calc-inv
1189 	   (lambda (v) (set-default v (symbol-value v)))) calc-local-var-list)
1221   (calc-set-mode-line)
1234 	      (set-buffer "*Calculator*")
1263     (set (make-local-variable 'calc-main-buffer) buf))
1271   (set-buffer (get-buffer-create "*Calculator*"))
1277   (when calc-language
1279     (calc-set-language calc-language calc-language-option t)))
1294       (set-buffer (window-buffer (selected-window))))
1316                       (set-window-buffer w (current-buffer))
1320 	  (set-buffer (calc-trail-buffer))
1363              calc-embedded-info
1364              (eq (current-buffer) (aref calc-embedded-info 0)))
1370       (mapcar (function (lambda (v) (set-default v (symbol-value v))))
1439 	      (if calc-embedded-info
1447 		(calc-set-command-flag 'clear-message))
1496       (calc-set-mode-line)
1497       (when calc-embedded-info
1502 (defun calc-set-command-flag (f)
1509 	  (set-buffer calc-main-buffer)
1512 	      (set-buffer buf)
1532 (defun calc-set-mode-line ()
1539 		    (if calc-embedded-info "Embed" "")
1583 		     (cond ((null calc-language) "")
1584 			   ((eq calc-language 'tex) "TeX ")
1585 			   ((eq calc-language 'latex) "LaTeX ")
1587 			       (capitalize (symbol-name calc-language))
1615 			   ((not calc-embedded-info) "")
1624 		     (if (and calc-embedded-info
1636 	(set-buffer-modified-p (buffer-modified-p))
1637 	(and calc-embedded-info (calc-embedded-mode-line-change))))))
1647 		(set-window-start win (point)))))
1678 	  (calc-set-command-flag 'renum-stack))))
1753 	    (calc-set-command-flag 'renum-stack))))))
1822   (and calc-embedded-info (calc-embedded-stack-change)))
1854 	 (if save-mark (set-mark save-mark))))
1855   (and calc-embedded-info (not (eq major-mode 'calc-mode))
1857 	 (set-buffer (aref calc-embedded-info 1))
1877 	   (set-buffer calc-trail-buffer)
1883 	(set-buffer calc-trail-buffer)
1902 	  (set-buffer buf)
1929                   (set-window-buffer w calc-trail-buffer)))
1958 	  (set-marker calc-trail-pointer (point) (current-buffer))
1970 		  (set-window-start win (point))
1971 		  (set-window-point win (+ calc-trail-pointer 4))
1972 		  (set-buffer calc-main-buffer)
1989 	(calc-set-command-flag 'undo))))
2139 			     (set-buffer calc-buffer)
3114 			(memq calc-language '(nil flat unform))
3132       (setq c (math-comp-concat (if (eq calc-language 'big)
3151     (when calc-language-output-filter
3152       (setq s (funcall calc-language-output-filter s)))
3153     (if (eq calc-language 'big)
3188 	   (memq calc-language '(nil flat unform)))
3195   (if calc-embedded-info
3196       (let ((win (get-buffer-window (aref calc-embedded-info 0))))
3223 	  (calc-language nil))
3332 		(setq str (format (if (memq calc-language '(math maple))
3369        (if (and (eq calc-language 'c)