calc-mode.el 21 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688
  1. ;;; calc-mode.el --- calculator modes for Calc
  2. ;; Copyright (C) 1990-1993, 2001-2015 Free Software Foundation, Inc.
  3. ;; Author: David Gillespie <daveg@synaptics.com>
  4. ;; This file is part of GNU Emacs.
  5. ;; GNU Emacs is free software: you can redistribute it and/or modify
  6. ;; it under the terms of the GNU General Public License as published by
  7. ;; the Free Software Foundation, either version 3 of the License, or
  8. ;; (at your option) any later version.
  9. ;; GNU Emacs is distributed in the hope that it will be useful,
  10. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  12. ;; GNU General Public License for more details.
  13. ;; You should have received a copy of the GNU General Public License
  14. ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
  15. ;;; Commentary:
  16. ;;; Code:
  17. ;; This file is autoloaded from calc-ext.el.
  18. (require 'calc-ext)
  19. (require 'calc-macs)
  20. ;; Declare functions which are defined elsewhere.
  21. (declare-function calc-embedded-save-original-modes "calc-embed" ())
  22. (defun calc-line-numbering (n)
  23. (interactive "P")
  24. (calc-wrapper
  25. (message (if (calc-change-mode 'calc-line-numbering n t t)
  26. "Displaying stack level numbers"
  27. "Hiding stack level numbers"))))
  28. (defun calc-line-breaking (n)
  29. (interactive "P")
  30. (calc-wrapper
  31. (setq n (if n
  32. (and (> (setq n (prefix-numeric-value n)) 0)
  33. (or (< n 5)
  34. n))
  35. (not calc-line-breaking)))
  36. (if (calc-change-mode 'calc-line-breaking n t)
  37. (if (integerp calc-line-breaking)
  38. (message "Breaking lines longer than %d characters" n)
  39. (message "Breaking long lines in Stack display"))
  40. (message "Not breaking long lines in Stack display"))))
  41. (defun calc-left-justify (n)
  42. (interactive "P")
  43. (calc-wrapper
  44. (and n (setq n (prefix-numeric-value n)))
  45. (calc-change-mode '(calc-display-just calc-display-origin)
  46. (list nil n) t)
  47. (if n
  48. (message "Displaying stack entries indented by %d" n)
  49. (message "Displaying stack entries left-justified"))))
  50. (defun calc-center-justify (n)
  51. (interactive "P")
  52. (calc-wrapper
  53. (and n (setq n (prefix-numeric-value n)))
  54. (calc-change-mode '(calc-display-just calc-display-origin)
  55. (list 'center n) t)
  56. (if n
  57. (message "Displaying stack entries centered on column %d" n)
  58. (message "Displaying stack entries centered in window"))))
  59. (defun calc-right-justify (n)
  60. (interactive "P")
  61. (calc-wrapper
  62. (and n (setq n (prefix-numeric-value n)))
  63. (calc-change-mode '(calc-display-just calc-display-origin)
  64. (list 'right n) t)
  65. (if n
  66. (message "Displaying stack entries right-justified to column %d" n)
  67. (message "Displaying stack entries right-justified in window"))))
  68. (defun calc-left-label (s)
  69. (interactive "sLefthand label: ")
  70. (calc-wrapper
  71. (or (equal s "")
  72. (setq s (concat s " ")))
  73. (calc-change-mode 'calc-left-label s t)))
  74. (defun calc-right-label (s)
  75. (interactive "sRighthand label: ")
  76. (calc-wrapper
  77. (or (equal s "")
  78. (setq s (concat " " s)))
  79. (calc-change-mode 'calc-right-label s t)))
  80. (defun calc-auto-why (n)
  81. (interactive "P")
  82. (calc-wrapper
  83. (if n
  84. (progn
  85. (setq n (prefix-numeric-value n))
  86. (if (<= n 0) (setq n nil)
  87. (if (> n 1) (setq n t))))
  88. (setq n (and (not (eq calc-auto-why t)) (if calc-auto-why t 1))))
  89. (calc-change-mode 'calc-auto-why n nil)
  90. (cond ((null n)
  91. (message "User must press `w' to explain unsimplified results"))
  92. ((eq n t)
  93. (message "Automatically doing `w' to explain unsimplified results"))
  94. (t
  95. (message "Automatically doing `w' only for unusual messages")))))
  96. (defun calc-group-digits (n)
  97. (interactive "P")
  98. (calc-wrapper
  99. (if n
  100. (progn
  101. (setq n (prefix-numeric-value n))
  102. (cond ((or (> n 0) (< n -1)))
  103. ((= n -1)
  104. (setq n nil))
  105. (t
  106. (setq n calc-group-digits))))
  107. (setq n (not calc-group-digits)))
  108. (calc-change-mode 'calc-group-digits n t)
  109. (cond ((null n)
  110. (message "Grouping is off"))
  111. ((integerp n)
  112. (message "Grouping every %d digits" (math-abs n)))
  113. (t
  114. (message "Grouping is on")))))
  115. (defun calc-group-char (ch)
  116. (interactive "cGrouping character: ")
  117. (calc-wrapper
  118. (or (>= ch 32)
  119. (error "Control characters not allowed for grouping"))
  120. (if (= ch ?\\)
  121. (setq ch "\\,")
  122. (setq ch (char-to-string ch)))
  123. (calc-change-mode 'calc-group-char ch calc-group-digits)
  124. (message "Digit grouping character is \"%s\"" ch)))
  125. (defun calc-point-char (ch)
  126. (interactive "cCharacter to use as decimal point: ")
  127. (calc-wrapper
  128. (or (>= ch 32)
  129. (error "Control characters not allowed as decimal point"))
  130. (calc-change-mode 'calc-point-char (char-to-string ch) t)
  131. (message "Decimal point character is \"%c\"" ch)))
  132. (defun calc-normal-notation (n)
  133. (interactive "P")
  134. (calc-wrapper
  135. (calc-change-mode 'calc-float-format
  136. (let* ((val (if n (prefix-numeric-value n) 0))
  137. (mode (/ (+ val 5000) 10000)))
  138. (if (or (< val -5000) (> mode 3))
  139. (error "Prefix out of range"))
  140. (setq n (list (aref [float sci eng fix] mode)
  141. (- (% (+ val 5000) 10000) 5000))))
  142. t)
  143. (if (eq (nth 1 n) 0)
  144. (message "Displaying floating-point numbers normally")
  145. (if (> (nth 1 n) 0)
  146. (message
  147. "Displaying floating-point numbers with %d significant digits"
  148. (nth 1 n))
  149. (message "Displaying floating-point numbers with (precision%d)"
  150. (nth 1 n))))))
  151. (defun calc-fix-notation (n)
  152. (interactive "NDigits after decimal point: ")
  153. (calc-wrapper
  154. (calc-change-mode 'calc-float-format
  155. (setq n (list 'fix (if n (prefix-numeric-value n) 0)))
  156. t)
  157. (message "Displaying floats with %d digits after decimal"
  158. (math-abs (nth 1 n)))))
  159. (defun calc-sci-notation (n)
  160. (interactive "P")
  161. (calc-wrapper
  162. (calc-change-mode 'calc-float-format
  163. (setq n (list 'sci (if n (prefix-numeric-value n) 0)))
  164. t)
  165. (if (eq (nth 1 n) 0)
  166. (message "Displaying floats in scientific notation")
  167. (if (> (nth 1 n) 0)
  168. (message "Displaying scientific notation with %d significant digits"
  169. (nth 1 n))
  170. (message "Displaying scientific notation with (precision%d)"
  171. (nth 1 n))))))
  172. (defun calc-eng-notation (n)
  173. (interactive "P")
  174. (calc-wrapper
  175. (calc-change-mode 'calc-float-format
  176. (setq n (list 'eng (if n (prefix-numeric-value n) 0)))
  177. t)
  178. (if (eq (nth 1 n) 0)
  179. (message "Displaying floats in engineering notation")
  180. (if (> (nth 1 n) 0)
  181. (message "Displaying engineering notation with %d significant digits"
  182. (nth 1 n))
  183. (message "Displaying engineering notation with (precision%d)"
  184. (nth 1 n))))))
  185. (defun calc-truncate-stack (n &optional rel)
  186. (interactive "P")
  187. (calc-wrapper
  188. (let ((oldtop calc-stack-top)
  189. (newtop calc-stack-top))
  190. (calc-record-undo (list 'set 'saved-stack-top calc-stack-top))
  191. (let ((calc-stack-top 0)
  192. (nn (prefix-numeric-value n)))
  193. (setq newtop
  194. (if n
  195. (progn
  196. (if rel
  197. (setq nn (+ oldtop nn))
  198. (if (< nn 0)
  199. (setq nn (+ nn (calc-stack-size)))
  200. (setq nn (1+ nn))))
  201. (if (< nn 1)
  202. 1
  203. (if (> nn (calc-stack-size))
  204. (calc-stack-size)
  205. nn)))
  206. (max 1 (calc-locate-cursor-element (point)))))
  207. (if (= newtop oldtop)
  208. ()
  209. (calc-pop-stack 1 oldtop t)
  210. (calc-push-list '(top-of-stack) newtop)
  211. (if calc-line-numbering
  212. (calc-refresh))))
  213. (calc-record-undo (list 'set 'saved-stack-top 0))
  214. (setq calc-stack-top newtop))))
  215. (defun calc-truncate-up (n)
  216. (interactive "p")
  217. (calc-truncate-stack n t))
  218. (defun calc-truncate-down (n)
  219. (interactive "p")
  220. (calc-truncate-stack (- n) t))
  221. (defun calc-display-raw (arg)
  222. (interactive "P")
  223. (calc-wrapper
  224. (setq calc-display-raw (if calc-display-raw nil (if arg 0 t)))
  225. (calc-do-refresh)
  226. (if calc-display-raw
  227. (message "%s" "Press d ' again to cancel \"raw\" display mode"))))
  228. ;;; Mode commands.
  229. (defun calc-save-modes ()
  230. (interactive)
  231. (calc-wrapper
  232. (let (pos
  233. (vals (mapcar (function (lambda (v) (symbol-value (car v))))
  234. calc-mode-var-list)))
  235. (unless calc-settings-file
  236. (error "No `calc-settings-file' specified"))
  237. (set-buffer (find-file-noselect (substitute-in-file-name
  238. calc-settings-file)))
  239. (goto-char (point-min))
  240. (if (and (search-forward ";;; Mode settings stored by Calc" nil t)
  241. (progn
  242. (beginning-of-line)
  243. (setq pos (point))
  244. (search-forward "\n;;; End of mode settings" nil t)))
  245. (progn
  246. (beginning-of-line)
  247. (forward-line 1)
  248. (delete-region pos (point)))
  249. (goto-char (point-max))
  250. (insert "\n\n")
  251. (forward-char -1))
  252. (insert ";;; Mode settings stored by Calc on " (current-time-string) "\n")
  253. (let ((list calc-mode-var-list))
  254. (while list
  255. (let* ((v (car (car list)))
  256. (def (nth 1 (car list)))
  257. (val (car vals)))
  258. (or (equal val def)
  259. (progn
  260. (insert "(setq " (symbol-name v) " ")
  261. (if (and (or (listp val)
  262. (symbolp val))
  263. (not (memq val '(nil t))))
  264. (insert "'"))
  265. (insert (prin1-to-string val) ")\n"))))
  266. (setq list (cdr list)
  267. vals (cdr vals))))
  268. (run-hooks 'calc-mode-save-hook)
  269. (insert ";;; End of mode settings\n")
  270. (save-buffer)
  271. (if calc-embedded-info
  272. (calc-embedded-save-original-modes)))))
  273. (defun calc-settings-file-name (name &optional arg)
  274. (interactive
  275. (list (read-file-name (format "Settings file name (normally %s): "
  276. (abbreviate-file-name calc-settings-file)))
  277. current-prefix-arg))
  278. (calc-wrapper
  279. (setq arg (if arg (prefix-numeric-value arg) 0))
  280. (if (string-equal (file-name-nondirectory name) "")
  281. (message "Calc settings file is \"%s\"" calc-settings-file)
  282. (if (< (math-abs arg) 2)
  283. (let ((list calc-mode-var-list))
  284. (while list
  285. (set (car (car list)) (nth 1 (car list)))
  286. (setq list (cdr list)))))
  287. (setq calc-settings-file name)
  288. (or (and
  289. calc-settings-file
  290. (equal user-init-file calc-settings-file)
  291. (> arg 0))
  292. (< arg 0)
  293. (load name t)
  294. (message "New file")))))
  295. (defun math-get-modes-vec ()
  296. (list 'vec
  297. calc-internal-prec
  298. calc-word-size
  299. (calc-stack-size)
  300. calc-number-radix
  301. (+ (if (<= (nth 1 calc-float-format) 0)
  302. (+ calc-internal-prec (nth 1 calc-float-format))
  303. (nth 1 calc-float-format))
  304. (cdr (assq (car calc-float-format)
  305. '((float . 0) (sci . 10000)
  306. (eng . 20000) (fix . 30000)))))
  307. (cond ((eq calc-angle-mode 'rad) 2)
  308. ((eq calc-angle-mode 'hms) 3)
  309. (t 1))
  310. (if calc-symbolic-mode 1 0)
  311. (if calc-prefer-frac 1 0)
  312. (if (eq calc-complex-mode 'polar) 1 0)
  313. (cond ((eq calc-matrix-mode 'scalar) 0)
  314. ((eq calc-matrix-mode 'matrix) -2)
  315. ((eq calc-matrix-mode 'sqmatrix) -3)
  316. (calc-matrix-mode)
  317. (t -1))
  318. (cond ((eq calc-simplify-mode 'none) -1)
  319. ((eq calc-simplify-mode 'num) 0)
  320. ((eq calc-simplify-mode 'binary) 2)
  321. ((eq calc-simplify-mode 'alg) 3)
  322. ((eq calc-simplify-mode 'ext) 4)
  323. ((eq calc-simplify-mode 'units) 5)
  324. (t 1))
  325. (cond ((eq calc-infinite-mode 1) 0)
  326. (calc-infinite-mode 1)
  327. (t -1))))
  328. (defun calc-get-modes (n)
  329. (interactive "P")
  330. (calc-wrapper
  331. (let ((modes (math-get-modes-vec)))
  332. (calc-enter-result 0 "mode"
  333. (if n
  334. (if (and (>= (setq n (prefix-numeric-value n)) 1)
  335. (< n (length modes)))
  336. (nth n modes)
  337. (error "Prefix out of range"))
  338. modes)))))
  339. (defun calc-shift-prefix (arg)
  340. (interactive "P")
  341. (calc-wrapper
  342. (setq calc-shift-prefix (if arg
  343. (> (prefix-numeric-value arg) 0)
  344. (not calc-shift-prefix)))
  345. (calc-init-prefixes)
  346. (message (if calc-shift-prefix
  347. "Prefix keys are now case-insensitive"
  348. "Prefix keys must be unshifted (except V, Z)"))))
  349. (defun calc-mode-record-mode (n)
  350. (interactive "P")
  351. (calc-wrapper
  352. (calc-change-mode 'calc-mode-save-mode
  353. (cond ((null n)
  354. (cond ((not calc-embedded-info)
  355. (if (eq calc-mode-save-mode 'save)
  356. 'local 'save))
  357. ((eq calc-mode-save-mode 'local) 'edit)
  358. ((eq calc-mode-save-mode 'edit) 'perm)
  359. ((eq calc-mode-save-mode 'perm) 'global)
  360. ((eq calc-mode-save-mode 'global) 'save)
  361. ((eq calc-mode-save-mode 'save) nil)
  362. ((eq calc-mode-save-mode nil) 'local)))
  363. ((= (setq n (prefix-numeric-value n)) 0) nil)
  364. ((= n 2) 'edit)
  365. ((= n 3) 'perm)
  366. ((= n 4) 'global)
  367. ((= n 5) 'save)
  368. (t 'local)))
  369. (message "%s"
  370. (cond ((and (eq calc-mode-save-mode 'local) calc-embedded-info)
  371. "Recording mode changes with [calc-mode: ...]")
  372. ((eq calc-mode-save-mode 'edit)
  373. "Recording mode changes with [calc-edit-mode: ...]")
  374. ((eq calc-mode-save-mode 'perm)
  375. "Recording mode changes with [calc-perm-mode: ...]")
  376. ((eq calc-mode-save-mode 'global)
  377. "Recording mode changes with [calc-global-mode: ...]")
  378. ((eq calc-mode-save-mode 'save)
  379. (format "Recording mode changes in \"%s\""
  380. calc-settings-file))
  381. (t
  382. "Not recording mode changes permanently")))))
  383. (defun calc-total-algebraic-mode (flag)
  384. (interactive "P")
  385. (calc-wrapper
  386. (if (eq calc-algebraic-mode 'total)
  387. (calc-algebraic-mode nil)
  388. (calc-change-mode '(calc-algebraic-mode calc-incomplete-algebraic-mode)
  389. '(total nil))
  390. (use-local-map calc-alg-map)
  391. (message
  392. "All keys begin algebraic entry; use Meta (ESC) for Calc keys"))))
  393. (defun calc-algebraic-mode (flag)
  394. (interactive "P")
  395. (calc-wrapper
  396. (if flag
  397. (calc-change-mode '(calc-algebraic-mode
  398. calc-incomplete-algebraic-mode)
  399. (list nil (not calc-incomplete-algebraic-mode)))
  400. (calc-change-mode '(calc-algebraic-mode calc-incomplete-algebraic-mode)
  401. (list (not calc-algebraic-mode) nil)))
  402. (use-local-map calc-mode-map)
  403. (message "%s" (if calc-algebraic-mode
  404. "Numeric keys and ( and [ begin algebraic entry"
  405. (if calc-incomplete-algebraic-mode
  406. "Only ( and [ begin algebraic entry"
  407. "No keys except ' and $ begin algebraic entry")))))
  408. (defun calc-symbolic-mode (n)
  409. (interactive "P")
  410. (calc-wrapper
  411. (message (if (calc-change-mode 'calc-symbolic-mode n nil t)
  412. "Inexact computations like sqrt(2) are deferred"
  413. "Numerical computations are always done immediately"))))
  414. (defun calc-infinite-mode (n)
  415. (interactive "P")
  416. (calc-wrapper
  417. (if (eq n 0)
  418. (progn
  419. (calc-change-mode 'calc-infinite-mode 1)
  420. (message "Computations like 1 / 0 produce \"inf\""))
  421. (message (if (calc-change-mode 'calc-infinite-mode n nil t)
  422. "Computations like 1 / 0 produce \"uinf\""
  423. "Computations like 1 / 0 are left unsimplified")))))
  424. (defun calc-matrix-mode (arg)
  425. (interactive "P")
  426. (calc-wrapper
  427. (calc-change-mode 'calc-matrix-mode
  428. (cond ((eq arg 0) 'scalar)
  429. ((< (prefix-numeric-value arg) 1)
  430. (and (< (prefix-numeric-value arg) -1) 'matrix))
  431. (arg
  432. (if (consp arg) 'sqmatrix
  433. (prefix-numeric-value arg)))
  434. ((eq calc-matrix-mode 'matrix) 'scalar)
  435. ((eq calc-matrix-mode 'scalar) nil)
  436. (t 'matrix)))
  437. (if (integerp calc-matrix-mode)
  438. (message "Variables are assumed to be %dx%d matrices"
  439. calc-matrix-mode calc-matrix-mode)
  440. (message (if (eq calc-matrix-mode 'matrix)
  441. "Variables are assumed to be matrices"
  442. (if (eq calc-matrix-mode 'sqmatrix)
  443. "Variables are assumed to be square matrices"
  444. (if calc-matrix-mode
  445. "Variables are assumed to be scalars (non-matrices)"
  446. "Variables are not assumed to be matrix or scalar")))))))
  447. (defun calc-set-simplify-mode (mode arg msg)
  448. (calc-change-mode 'calc-simplify-mode
  449. (cond
  450. (arg mode)
  451. ((eq calc-simplify-mode mode)
  452. 'alg)
  453. (t mode)))
  454. (message "%s" (if (eq calc-simplify-mode mode)
  455. msg
  456. "Algebraic simplification occurs by default")))
  457. (defun calc-no-simplify-mode (arg)
  458. (interactive "P")
  459. (calc-wrapper
  460. (calc-set-simplify-mode 'none arg
  461. "Simplification is disabled")))
  462. (defun calc-num-simplify-mode (arg)
  463. (interactive "P")
  464. (calc-wrapper
  465. (calc-set-simplify-mode 'num arg
  466. "Basic simplifications apply only if arguments are numeric")))
  467. (defun calc-default-simplify-mode (arg)
  468. (interactive "P")
  469. (cond ((or (not arg) (= arg 3))
  470. (calc-wrapper
  471. (calc-set-simplify-mode
  472. 'alg nil "Algebraic simplification occurs by default")))
  473. ((= arg 1)
  474. (calc-wrapper
  475. (calc-set-simplify-mode
  476. nil nil "Only basic simplifications occur by default")))
  477. ((= arg 0) (calc-num-simplify-mode 1))
  478. ((< arg 0) (calc-no-simplify-mode 1))
  479. ((= arg 2) (calc-bin-simplify-mode 1))
  480. ((= arg 4) (calc-ext-simplify-mode 1))
  481. ((= arg 5) (calc-units-simplify-mode 1))
  482. (t (error "Prefix argument out of range"))))
  483. (defun calc-bin-simplify-mode (arg)
  484. (interactive "P")
  485. (calc-wrapper
  486. (calc-set-simplify-mode 'binary arg
  487. (format "Binary simplification occurs by default (word size=%d)"
  488. calc-word-size))))
  489. (defun calc-basic-simplify-mode (arg)
  490. (interactive "P")
  491. (calc-wrapper
  492. (calc-set-simplify-mode nil arg
  493. "Only basic simplifications occur by default")))
  494. (defun calc-alg-simplify-mode (arg)
  495. (interactive "P")
  496. (calc-wrapper
  497. (calc-set-simplify-mode 'alg arg
  498. "Algebraic simplification occurs by default")))
  499. (defun calc-ext-simplify-mode (arg)
  500. (interactive "P")
  501. (calc-wrapper
  502. (calc-set-simplify-mode 'ext arg
  503. "Extended algebraic simplification occurs by default")))
  504. (defun calc-units-simplify-mode (arg)
  505. (interactive "P")
  506. (calc-wrapper
  507. (calc-set-simplify-mode 'units arg
  508. "Units simplification occurs by default")))
  509. (defun calc-auto-recompute (arg)
  510. (interactive "P")
  511. (calc-wrapper
  512. (calc-change-mode 'calc-auto-recompute arg nil t)
  513. (calc-refresh-evaltos)
  514. (message (if calc-auto-recompute
  515. "Automatically recomputing `=>' forms when necessary"
  516. "Not recomputing `=>' forms automatically"))))
  517. (defun calc-working (n)
  518. (interactive "P")
  519. (calc-wrapper
  520. (cond ((consp n)
  521. (calc-pop-push-record 0 "work"
  522. (cond ((eq calc-display-working-message t) 1)
  523. (calc-display-working-message 2)
  524. (t 0))))
  525. ((eq n 2) (calc-change-mode 'calc-display-working-message 'lots))
  526. ((eq n 0) (calc-change-mode 'calc-display-working-message nil))
  527. ((eq n 1) (calc-change-mode 'calc-display-working-message t)))
  528. (cond ((eq calc-display-working-message t)
  529. (message "\"Working...\" messages enabled"))
  530. (calc-display-working-message
  531. (message "Detailed \"Working...\" messages enabled"))
  532. (t
  533. (message "\"Working...\" messages disabled")))))
  534. (defun calc-always-load-extensions ()
  535. (interactive)
  536. (calc-wrapper
  537. (if (setq calc-always-load-extensions (not calc-always-load-extensions))
  538. (message "Always loading extensions package")
  539. (message "Loading extensions package on demand only"))))
  540. (defun calc-matrix-left-justify ()
  541. (interactive)
  542. (calc-wrapper
  543. (calc-change-mode 'calc-matrix-just nil t)
  544. (message "Matrix elements will be left-justified in columns")))
  545. (defun calc-matrix-center-justify ()
  546. (interactive)
  547. (calc-wrapper
  548. (calc-change-mode 'calc-matrix-just 'center t)
  549. (message "Matrix elements will be centered in columns")))
  550. (defun calc-matrix-right-justify ()
  551. (interactive)
  552. (calc-wrapper
  553. (calc-change-mode 'calc-matrix-just 'right t)
  554. (message "Matrix elements will be right-justified in columns")))
  555. (defun calc-full-vectors (n)
  556. (interactive "P")
  557. (calc-wrapper
  558. (message (if (calc-change-mode 'calc-full-vectors n t t)
  559. "Displaying long vectors in full"
  560. "Displaying long vectors in [a, b, c, ..., z] notation"))))
  561. (defun calc-full-trail-vectors (n)
  562. (interactive "P")
  563. (calc-wrapper
  564. (message (if (calc-change-mode 'calc-full-trail-vectors n nil t)
  565. "Recording long vectors in full"
  566. "Recording long vectors in [a, b, c, ..., z] notation"))))
  567. (defun calc-break-vectors (n)
  568. (interactive "P")
  569. (calc-wrapper
  570. (message (if (calc-change-mode 'calc-break-vectors n t t)
  571. "Displaying vector elements one-per-line"
  572. "Displaying vector elements all on one line"))))
  573. (defun calc-vector-commas ()
  574. (interactive)
  575. (calc-wrapper
  576. (if (calc-change-mode 'calc-vector-commas (if calc-vector-commas nil ",") t)
  577. (message "Separating vector elements with \",\"")
  578. (message "Separating vector elements with spaces"))))
  579. (defun calc-vector-brackets ()
  580. (interactive)
  581. (calc-wrapper
  582. (if (calc-change-mode 'calc-vector-brackets
  583. (if (equal calc-vector-brackets "[]") nil "[]") t)
  584. (message "Surrounding vectors with \"[]\"")
  585. (message "Not surrounding vectors with brackets"))))
  586. (defun calc-vector-braces ()
  587. (interactive)
  588. (calc-wrapper
  589. (if (calc-change-mode 'calc-vector-brackets
  590. (if (equal calc-vector-brackets "{}") nil "{}") t)
  591. (message "Surrounding vectors with \"{}\"")
  592. (message "Not surrounding vectors with brackets"))))
  593. (defun calc-vector-parens ()
  594. (interactive)
  595. (calc-wrapper
  596. (if (calc-change-mode 'calc-vector-brackets
  597. (if (equal calc-vector-brackets "()") nil "()") t)
  598. (message "Surrounding vectors with \"()\"")
  599. (message "Not surrounding vectors with brackets"))))
  600. (defun calc-matrix-brackets (arg)
  601. (interactive "sCode letters (R, O, C): ")
  602. (calc-wrapper
  603. (let ((code (append (and (string-match "[rR]" arg) '(R))
  604. (and (string-match "[oO]" arg) '(O))
  605. (and (string-match "[cC]" arg) '(C))
  606. (and (string-match "[pP]" arg) '(P))))
  607. (bad (string-match "[^rRoOcCpP ]" arg)))
  608. (if bad
  609. (error "Unrecognized character: %c" (aref arg bad)))
  610. (calc-change-mode 'calc-matrix-brackets code t))))
  611. (provide 'calc-mode)
  612. ;;; calc-mode.el ends here