home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume14 / gmcalc / patch04 < prev    next >
Encoding:
Text File  |  1990-08-09  |  48.2 KB  |  2,017 lines
  1. Newsgroups: comp.sources.misc
  2. subject: v14i051: Patch for GNU Emacs Calc, version 1.03 -> 1.04, part 2/2
  3. from: daveg@csvax.cs.caltech.edu (David Gillespie)
  4. Sender: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  5.  
  6. Posting-number: Volume 14, Issue 51
  7. Submitted-by: daveg@csvax.cs.caltech.edu (David Gillespie)
  8. Archive-name: gmcalc/patch04
  9.  
  10. The following patches convert Calc version 1.03 into Calc
  11. version 1.04.  To apply them automatically with Patch v2.0,
  12. first cd into your Calc distribution directory, then execute
  13. "patch -p0 <calc.patch", where "calc.patch" is the name of this file.
  14. You will want to re-byte-compile both parts, and re-format the
  15. manual, as explained in the calc-INSTALL file.
  16.  
  17. This is part 2 of 2 patches.  You must apply both in order to
  18. complete the upgrade to version 1.04.
  19.  
  20. These patches do not cover the README file, but the interesting
  21. part of that file (the revision history) is now present near the
  22. top of calc.el.  The INSTALL file is now being included in the
  23. patches under the name calc-INSTALL.
  24.  
  25. Note that some patches will add to the list of "autoload" commands
  26. recommended in the calc-INSTALL file.
  27.  
  28. Patches and complete tar files are also available from anonymous FTP
  29. on csvax.cs.caltech.edu [131.215.131.131], in the "pub" subdirectory.
  30.  
  31. Enjoy!
  32.                             -- Dave
  33.  
  34. Dave Gillespie
  35. 256-80 Caltech, Pasadena CA 91125
  36. daveg@csvax.cs.caltech.edu, ...!cit-vax!daveg
  37.  
  38.  
  39.  
  40. *** calc-ext.el    Tue Jun 26 20:53:30 1990
  41. --- ../dist/calc-ext.el    Mon Aug  6 14:54:45 1990
  42. ***************
  43. *** 1,4 ****
  44. ! ;; Calculator for GNU Emacs version 1.03, part II
  45.   ;; Copyright (C) 1990 Dave Gillespie
  46.   
  47.   ;; This file is part of GNU Emacs.
  48. --- 1,4 ----
  49. ! ;; Calculator for GNU Emacs version 1.04, part II
  50.   ;; Copyright (C) 1990 Dave Gillespie
  51.   
  52.   ;; This file is part of GNU Emacs.
  53. ***************
  54. *** 19,24 ****
  55. --- 19,25 ----
  56.   ;; and this notice must be preserved on all copies.
  57.   
  58.   
  59. + ;;;; [calc-ext.el]
  60.   
  61.   (provide 'calc-ext)
  62.   
  63. ***************
  64. *** 41,47 ****
  65.   
  66.   
  67.   
  68. ! (progn
  69.     (define-key calc-mode-map ":" 'calc-fdiv)
  70.     (define-key calc-mode-map "\\" 'calc-idiv)
  71.     (define-key calc-mode-map "|" 'calc-concat)
  72. --- 42,50 ----
  73.   
  74.   
  75.   
  76. ! ;;; The following was made a function so that it could be byte-compiled.
  77. ! (defun calc-init-extensions ()
  78. ! 
  79.     (define-key calc-mode-map ":" 'calc-fdiv)
  80.     (define-key calc-mode-map "\\" 'calc-idiv)
  81.     (define-key calc-mode-map "|" 'calc-concat)
  82. ***************
  83. *** 120,130 ****
  84.     (define-key calc-mode-map "bc" 'calc-clip)
  85.     (define-key calc-mode-map "bd" 'calc-diff)
  86.     (define-key calc-mode-map "bl" 'calc-lshift-binary)
  87.     (define-key calc-mode-map "bn" 'calc-not)
  88.     (define-key calc-mode-map "bo" 'calc-or)
  89.     (define-key calc-mode-map "br" 'calc-rshift-binary)
  90. !   (define-key calc-mode-map "bR" 'calc-rotate-binary)
  91. !   (define-key calc-mode-map "bs" 'calc-shift-binary)
  92.     (define-key calc-mode-map "bw" 'calc-word-size)
  93.     (define-key calc-mode-map "bx" 'calc-xor)
  94.   
  95. --- 123,134 ----
  96.     (define-key calc-mode-map "bc" 'calc-clip)
  97.     (define-key calc-mode-map "bd" 'calc-diff)
  98.     (define-key calc-mode-map "bl" 'calc-lshift-binary)
  99. +   (define-key calc-mode-map "bL" 'calc-lshift-arith)
  100.     (define-key calc-mode-map "bn" 'calc-not)
  101.     (define-key calc-mode-map "bo" 'calc-or)
  102.     (define-key calc-mode-map "br" 'calc-rshift-binary)
  103. !   (define-key calc-mode-map "bR" 'calc-rshift-arith)
  104. !   (define-key calc-mode-map "bt" 'calc-rotate-binary)
  105.     (define-key calc-mode-map "bw" 'calc-word-size)
  106.     (define-key calc-mode-map "bx" 'calc-xor)
  107.   
  108. ***************
  109. *** 320,330 ****
  110. --- 324,338 ----
  111.     (define-key calc-mode-map "Z=" 'calc-kbd-report)
  112.     (define-key calc-mode-map "Z#" 'calc-kbd-query)
  113.   
  114. + ;;;; (Autoloads here)
  115. + 
  116.   )
  117.   
  118. + (calc-init-extensions)
  119.   
  120.   
  121.   
  122. + 
  123.   ;;;; Miscellaneous.
  124.   
  125.   (defun calc-record-message (tag &rest args)
  126. ***************
  127. *** 501,506 ****
  128. --- 509,517 ----
  129.   )
  130.   
  131.   
  132. + 
  133. + ;;;; [calc-forms.el]
  134. + 
  135.   (defun calc-time ()
  136.     "Push the current time of day on the stack as an HMS form.
  137.   \(Why?  Why not!)"
  138. ***************
  139. *** 518,523 ****
  140. --- 529,536 ----
  141.   
  142.   
  143.   
  144. + ;;;; [calc-incom.el]
  145. + 
  146.   ;;; Incomplete forms.
  147.   
  148.   (defun calc-begin-complex ()
  149. ***************
  150. *** 698,703 ****
  151. --- 711,718 ----
  152.   
  153.   
  154.   
  155. + ;;;; [calc-undo.el]
  156. + 
  157.   ;;; Undo.
  158.   
  159.   (defun calc-undo (n)
  160. ***************
  161. *** 832,837 ****
  162. --- 847,854 ----
  163.   
  164.   
  165.   
  166. + ;;;; [calc-arith.el]
  167. + 
  168.   ;;; Arithmetic.
  169.   
  170.   (defun calc-min (arg)
  171. ***************
  172. *** 855,860 ****
  173. --- 872,879 ----
  174.      (calc-unary-op "abs" 'calcFunc-abs arg))
  175.   )
  176.   
  177. + ;;;; [calc-math.el]
  178. + 
  179.   (defun calc-sqrt (arg)
  180.     "Take the square root of the top element of the Calculator stack."
  181.     (interactive "P")
  182. ***************
  183. *** 864,869 ****
  184. --- 883,890 ----
  185.        (calc-unary-op "sqrt" 'calcFunc-sqrt arg)))
  186.   )
  187.   
  188. + ;;;; [calc-arith.el]
  189. + 
  190.   (defun calc-idiv (arg)
  191.     "Compute the integer quotient of the top two elements of the stack."
  192.     (interactive "P")
  193. ***************
  194. *** 871,876 ****
  195. --- 892,899 ----
  196.      (calc-binary-op "\\" 'calcFunc-idiv arg 1))
  197.   )
  198.   
  199. + ;;;; [calc-frac.el]
  200. + 
  201.   (defun calc-fdiv (arg)
  202.     "Compute the quotient (in fraction form) of the top two elements of the stack."
  203.     (interactive "P")
  204. ***************
  205. *** 878,883 ****
  206. --- 901,908 ----
  207.      (calc-binary-op ":" 'calcFunc-fdiv arg 1))
  208.   )
  209.   
  210. + ;;;; [calc-arith.el]
  211. + 
  212.   (defun calc-floor (arg)
  213.     "Truncate to an integer (toward minus infinity) the top element of the stack.
  214.   With Inverse flag, truncates toward plus infinity.
  215. ***************
  216. *** 922,927 ****
  217. --- 947,973 ----
  218.     (calc-round arg)
  219.   )
  220.   
  221. + (defun calc-mant-part (arg)
  222. +   "Extract the mantissa part of a floating-point number."
  223. +   (interactive "P")
  224. +   (calc-slow-wrapper
  225. +    (calc-unary-op "mant" 'calcFunc-mant arg))
  226. + )
  227. + 
  228. + (defun calc-xpon-part (arg)
  229. +   "Extract the exponent part of a floating-point number."
  230. +   (interactive "P")
  231. +   (calc-slow-wrapper
  232. +    (calc-unary-op "xpon" 'calcFunc-xpon arg))
  233. + )
  234. + 
  235. + (defun calc-scale-float (arg)
  236. +   "Scale a floating-point number by an integer power of ten."
  237. +   (interactive "P")
  238. +   (calc-slow-wrapper
  239. +    (calc-binary-op "scal" 'calcFunc-scf arg))
  240. + )
  241. + 
  242.   (defun calc-abssqr (arg)
  243.     "Compute the absolute value squared of the top element of the stack."
  244.     (interactive "P")
  245. ***************
  246. *** 929,934 ****
  247. --- 975,982 ----
  248.      (calc-unary-op "absq" 'calcFunc-abssqr arg))
  249.   )
  250.   
  251. + ;;;; [calc-cplx.el]
  252. + 
  253.   (defun calc-argument (arg)
  254.     "Compute the complex argument of the top element of the Calculator stack."
  255.     (interactive "P")
  256. ***************
  257. *** 950,955 ****
  258. --- 998,1005 ----
  259.      (calc-unary-op "im" 'calcFunc-im arg))
  260.   )
  261.   
  262. + ;;;; [calc-math.el]
  263. + 
  264.   (defun calc-hypot (arg)
  265.     "Take the square root of sum of squares of the top two elements of the stack."
  266.     (interactive "P")
  267. ***************
  268. *** 1174,1179 ****
  269. --- 1224,1231 ----
  270.   
  271.   
  272.   
  273. + ;;;; [calc-store.el]
  274. + 
  275.   ;;; Memory commands.
  276.   
  277.   (defun calc-store (n &optional var oper)
  278. ***************
  279. *** 1340,1345 ****
  280. --- 1392,1399 ----
  281.   
  282.   
  283.   
  284. + ;;;; [calc-yank.el]
  285. + 
  286.   ;;; Kill ring commands.
  287.   
  288.   (defun calc-kill (nn &optional no-delete)
  289. ***************
  290. *** 1574,1580 ****
  291.              ((> n 0)
  292.           (calc-cursor-stack-index n)
  293.           (setq top (point))
  294. !         (calc-cursor-stack-index (1- n))
  295.           (setq bot (point)))
  296.              ((< n 0)
  297.           (calc-cursor-stack-index (- n))
  298. --- 1628,1634 ----
  299.              ((> n 0)
  300.           (calc-cursor-stack-index n)
  301.           (setq top (point))
  302. !         (calc-cursor-stack-index 0)
  303.           (setq bot (point)))
  304.              ((< n 0)
  305.           (calc-cursor-stack-index (- n))
  306. ***************
  307. *** 1675,1682 ****
  308.     (switch-to-buffer (get-buffer-create "*Calc Edit*"))
  309.     (if (and (< (window-width) (screen-width))
  310.          calc-display-trail)
  311. !       (let* ((trail (get-buffer-create "*Calc Trail*"))
  312. !          (win (get-buffer-window trail)))
  313.       (if win
  314.           (delete-window win))))
  315.     (set-buffer-modified-p nil)
  316. --- 1729,1735 ----
  317.     (switch-to-buffer (get-buffer-create "*Calc Edit*"))
  318.     (if (and (< (window-width) (screen-width))
  319.          calc-display-trail)
  320. !       (let ((win (get-buffer-window (calc-trail-buffer))))
  321.       (if win
  322.           (delete-window win))))
  323.     (set-buffer-modified-p nil)
  324. ***************
  325. *** 1732,1737 ****
  326. --- 1785,1792 ----
  327.   
  328.   
  329.   
  330. + ;;;; [calc-ext.el]
  331. + 
  332.   ;;; Algebra commands.
  333.   
  334.   (defun calc-a-prefix-help ()
  335. ***************
  336. *** 1739,1748 ****
  337.     (calc-do-prefix-help
  338.      '("Simplify, Extended-simplify; eXpand, Collect"
  339.        "Derivative, Integral, Taylor; suBstitute; Rewrite"
  340. !      "SHIFT + Solve; Integral-limit")
  341.      "algebra" ?a)
  342.   )
  343.   
  344.   (defun calc-simplify ()
  345.     "Simplify the formula on top of the stack."
  346.     (interactive)
  347. --- 1794,1807 ----
  348.     (calc-do-prefix-help
  349.      '("Simplify, Extended-simplify; eXpand, Collect"
  350.        "Derivative, Integral, Taylor; suBstitute; Rewrite"
  351. !      "SHIFT + Solve; Integral-limit"
  352. !      "relations: =, # (not =), <, >, [ (< or =), ] (> or =)"
  353. !      "logical: & (and), | (or), ! (not); misc: { (in-set)")
  354.      "algebra" ?a)
  355.   )
  356.   
  357. + ;;;; [calc-alg.el]
  358. + 
  359.   (defun calc-simplify ()
  360.     "Simplify the formula on top of the stack."
  361.     (interactive)
  362. ***************
  363. *** 1859,1864 ****
  364. --- 1918,1925 ----
  365.        (calc-enter-result n "rwrt" (math-rewrite expr rules many))))
  366.   )
  367.   
  368. + ;;;; [calc-alg-2.el]
  369. + 
  370.   (defun calc-derivative (var)
  371.     "Differentiate the formula on top of the stack with respect to a variable.
  372.   If you enter a blank line, top of stack is the variable, next-to-top is expr.
  373. ***************
  374. *** 1951,1956 ****
  375. --- 2012,2019 ----
  376.   )
  377.   
  378.   
  379. + ;;;; [calc-prog.el]
  380. + 
  381.   (defun calc-equal-to (arg)
  382.     "Return 1 if numbers are equal, 0 if they are unequal."
  383.     (interactive "P")
  384. ***************
  385. *** 2025,2030 ****
  386. --- 2088,2095 ----
  387.   
  388.   
  389.   
  390. + ;;;; [calc-ext.el]
  391. + 
  392.   ;;; b-prefix binary commands.
  393.   
  394.   (defun calc-b-prefix-help ()
  395. ***************
  396. *** 2031,2040 ****
  397.     (interactive)
  398.     (calc-do-prefix-help
  399.      '("And, Or, Xor, Diff, Not; Wordsize, Clip"
  400. !      "Lshift, Rshift-logical, rShift-arith; SHIFT + Rotate")
  401.      "binary" ?b)
  402.   )
  403.   
  404.   (defun calc-and (n)
  405.     "Compute the bitwise binary AND of the top two elements on the stack."
  406.     (interactive "P")
  407. --- 2096,2107 ----
  408.     (interactive)
  409.     (calc-do-prefix-help
  410.      '("And, Or, Xor, Diff, Not; Wordsize, Clip"
  411. !      "Lshift, Rshift, roTate; SHIFT + signed Lshift, Rshift")
  412.      "binary" ?b)
  413.   )
  414.   
  415. + ;;;; [calc-bin.el]
  416. + 
  417.   (defun calc-and (n)
  418.     "Compute the bitwise binary AND of the top two elements on the stack."
  419.     (interactive "P")
  420. ***************
  421. *** 2087,2105 ****
  422.                     (and n (list (prefix-numeric-value n))))))
  423.   )
  424.   
  425. - (defun calc-shift-binary (n)
  426. -   "Shift the top element on the stack one bit right in binary (arithmetically).
  427. - With a numeric prefix argument, shift N bits left.
  428. - With a negative prefix argument, arithmetically shift -N bits right.
  429. - The result is clipped to the current word size."
  430. -   (interactive "P")
  431. -   (calc-slow-wrapper
  432. -    (calc-enter-result 1 "ash"
  433. -               (append '(calcFunc-ash)
  434. -                   (calc-top-list-n 1)
  435. -                   (and n (list (prefix-numeric-value n))))))
  436. - )
  437. - 
  438.   (defun calc-lshift-binary (n)
  439.     "Shift the top element on the stack one bit left in binary.
  440.   With a numeric prefix argument, shift N bits left.
  441. --- 2154,2159 ----
  442. ***************
  443. *** 2114,2120 ****
  444.   )
  445.   
  446.   (defun calc-rshift-binary (n)
  447. !   "Shift the top element on the Calculator stack one bit right in binary.
  448.   With a numeric prefix argument, logically shift N bits right.
  449.   With a negative prefix argument, shift -N bits left.
  450.   The result is clipped to the current word size."
  451. --- 2168,2174 ----
  452.   )
  453.   
  454.   (defun calc-rshift-binary (n)
  455. !   "Shift the top element on the stack one bit right in binary (logically).
  456.   With a numeric prefix argument, logically shift N bits right.
  457.   With a negative prefix argument, shift -N bits left.
  458.   The result is clipped to the current word size."
  459. ***************
  460. *** 2126,2131 ****
  461. --- 2180,2211 ----
  462.                     (and n (list (prefix-numeric-value n))))))
  463.   )
  464.   
  465. + (defun calc-lshift-arith (n)
  466. +   "Shift the top element on the stack one bit left in binary.
  467. + With a numeric prefix argument, shift N bits left.
  468. + With a negative prefix argument, arithmetically shift -N bits right.
  469. + The result is clipped to the current word size."
  470. +   (interactive "P")
  471. +   (calc-slow-wrapper
  472. +    (calc-enter-result 1 "ash"
  473. +               (append '(calcFunc-ash)
  474. +                   (calc-top-list-n 1)
  475. +                   (and n (list (prefix-numeric-value n))))))
  476. + )
  477. + 
  478. + (defun calc-rshift-arith (n)
  479. +   "Shift the top element on the stack one bit right in binary (arithmetically).
  480. + With a numeric prefix argument, arithmetically shift N bits right.
  481. + With a negative prefix argument, shift -N bits left.
  482. + The result is clipped to the current word size."
  483. +   (interactive "P")
  484. +   (calc-slow-wrapper
  485. +    (calc-enter-result 1 "rash"
  486. +               (append '(calcFunc-rash)
  487. +                   (calc-top-list-n 1)
  488. +                   (and n (list (prefix-numeric-value n))))))
  489. + )
  490. + 
  491.   (defun calc-rotate-binary (n)
  492.     "Rotate the top element on the Calculator stack one bit left in binary.
  493.   With a numeric prefix argument, rotate N bits left.
  494. ***************
  495. *** 2173,2178 ****
  496. --- 2253,2260 ----
  497.   
  498.   
  499.   
  500. + ;;;; [calc-ext.el]
  501. + 
  502.   ;;; Conversions.
  503.   
  504.   (defun calc-c-prefix-help ()
  505. ***************
  506. *** 2226,2231 ****
  507. --- 2308,2315 ----
  508.      (calc-unary-op "flt" 'calcFunc-float arg))
  509.   )
  510.   
  511. + ;;;; [calc-frac.el]
  512. + 
  513.   (defun calc-fraction (arg)
  514.     "Convert the top element of the Calculator stack to fractional form.
  515.   For floating-point arguments, the fraction is exactly equivalent within
  516. ***************
  517. *** 2249,2254 ****
  518. --- 2333,2340 ----
  519.                          (prefix-numeric-value (or arg 0))))))
  520.   )
  521.   
  522. + ;;;; [calc-forms.el]
  523. + 
  524.   (defun calc-to-hms (arg)
  525.     "Convert the top element of the stack to hours-minutes-seconds form.
  526.   Number is interpreted as degrees or radians according to current mode."
  527. ***************
  528. *** 2268,2273 ****
  529. --- 2354,2361 ----
  530.     (calc-to-hms arg)
  531.   )
  532.   
  533. + ;;;; [calc-math.el]
  534. + 
  535.   (defun calc-to-degrees (arg)
  536.     "Convert the top element of the stack from radians or HMS to degrees."
  537.     (interactive "P")
  538. ***************
  539. *** 2282,2287 ****
  540. --- 2370,2377 ----
  541.      (calc-unary-op ">rad" 'calcFunc-rad arg))
  542.   )
  543.   
  544. + ;;;; [calc-cplx.el]
  545. + 
  546.   (defun calc-polar ()
  547.     "Convert the top element of the stack to polar complex form."
  548.     (interactive)
  549. ***************
  550. *** 2295,2300 ****
  551. --- 2385,2392 ----
  552.   
  553.   
  554.   
  555. + ;;;; [calc-ext.el]
  556. + 
  557.   ;;; d-prefix mode commands.
  558.   
  559.   (defun calc-d-prefix-help ()
  560. ***************
  561. *** 2309,2314 ****
  562. --- 2401,2408 ----
  563.      "display" ?d)
  564.   )
  565.   
  566. + ;;;; [calc-bin.el]
  567. + 
  568.   (defun calc-radix (n)
  569.     "Set the display radix for integers and rationals to N, from 2 to 36."
  570.     (interactive "NDisplay radix (2-36): ")
  571. ***************
  572. *** 2355,2360 ****
  573. --- 2449,2456 ----
  574.      (calc-refresh))
  575.   )
  576.   
  577. + ;;;; [calc-mode.el]
  578. + 
  579.   (defun calc-line-numbering (n)
  580.     "Toggle display of line numbers in the Calculator stack.
  581.   With positive numeric prefix, turn mode on.
  582. ***************
  583. *** 2526,2531 ****
  584. --- 2622,2629 ----
  585.      (calc-refresh))
  586.   )
  587.   
  588. + ;;;; [calc-cplx.el]
  589. + 
  590.   (defun calc-complex-notation ()
  591.     "Set (x,y) notation for display of complex numbers."
  592.     (interactive)
  593. ***************
  594. *** 2550,2555 ****
  595. --- 2648,2655 ----
  596.      (calc-refresh))
  597.   )
  598.   
  599. + ;;;; [calc-frac.el]
  600. + 
  601.   (defun calc-over-notation (fmt)
  602.     "Set notation used for fractions.  Argument should be one of :, ::, /, //, :/.
  603.   \(During numeric entry, the : key is always used.)"
  604. ***************
  605. *** 2569,2574 ****
  606. --- 2669,2676 ----
  607.      (setq calc-frac-format (if n "//" "/")))
  608.   )
  609.   
  610. + ;;;; [calc-forms.el]
  611. + 
  612.   (defun calc-hms-notation (fmt)
  613.     "Set notation used for hours-minutes-seconds values.
  614.   Argument should be something like: hms, deg m s, o'\".
  615. ***************
  616. *** 2587,2592 ****
  617. --- 2689,2696 ----
  618.      (calc-refresh))
  619.   )
  620.   
  621. + ;;;; [calc-mode.el]
  622. + 
  623.   (defun calc-truncate-stack (n &optional rel)
  624.     "Treat cursor line as \"top of stack\" for all further operations.
  625.   Objects below this line are frozen, but still displayed."
  626. ***************
  627. *** 2651,2656 ****
  628. --- 2755,2762 ----
  629.   
  630.   
  631.   
  632. + ;;;; [calc-lang.el]
  633. + 
  634.   ;;; Alternate entry/display languages.
  635.   
  636.   (defun calc-set-language (lang &optional option no-refresh)
  637. ***************
  638. *** 2961,2966 ****
  639. --- 3067,3073 ----
  640.        ( If       . calcFunc-if )
  641.        ( Im       . calcFunc-im )
  642.        ( Inverse       . calcFunc-inv )
  643. +      ( Integrate   . calcFunc-integ )
  644.        ( Join       . calcFunc-vconcat )
  645.        ( LCM       . calcFunc-lcm )
  646.        ( Log       . calcFunc-ln )
  647. ***************
  648. *** 2998,3003 ****
  649. --- 3105,3112 ----
  650.   
  651.   
  652.   
  653. + ;;;; [calc-ext.el]
  654. + 
  655.   ;;; Combinatorics
  656.   
  657.   (defun calc-k-prefix-help ()
  658. ***************
  659. *** 3009,3014 ****
  660. --- 3118,3125 ----
  661.      "combinatorics" ?k)
  662.   )
  663.   
  664. + ;;;; [calc-comb.el]
  665. + 
  666.   (defun calc-gcd (arg)
  667.     "Compute the GCD of the top two elements of the Calculator stack."
  668.     (interactive "P")
  669. ***************
  670. *** 3202,3207 ****
  671. --- 3313,3320 ----
  672.   
  673.   
  674.   
  675. + ;;;; [calc-ext.el]
  676. + 
  677.   ;;; Mode commands.
  678.   
  679.   (defun calc-m-prefix-help ()
  680. ***************
  681. *** 3213,3218 ****
  682. --- 3326,3333 ----
  683.      "mode" ?m)
  684.   )
  685.   
  686. + ;;;; [calc-mode.el]
  687. + 
  688.   (defun calc-save-modes ()
  689.     "Save all mode variables' values in your .emacs file."
  690.     (interactive)
  691. ***************
  692. *** 3361,3366 ****
  693. --- 3476,3483 ----
  694.        (message "Loading extensions package on demand only.")))
  695.   )
  696.   
  697. + ;;;; [calc-math.el]
  698. + 
  699.   (defun calc-degrees-mode ()
  700.     "Set Calculator to use degrees for all angles."
  701.     (interactive)
  702. ***************
  703. *** 3377,3382 ****
  704. --- 3494,3501 ----
  705.      (message "Angles measured in radians."))
  706.   )
  707.   
  708. + ;;;; [calc-forms.el]
  709. + 
  710.   (defun calc-hms-mode ()
  711.     "Set Calculator to use degrees-minutes-seconds for all angles."
  712.     (interactive)
  713. ***************
  714. *** 3385,3390 ****
  715. --- 3504,3511 ----
  716.      (message "Angles measured in degrees-minutes-seconds."))
  717.   )
  718.   
  719. + ;;;; [calc-cplx.el]
  720. + 
  721.   (defun calc-polar-mode (n)
  722.     "Toggle mode complex number preference between rectangular and polar forms."
  723.     (interactive "P")
  724. ***************
  725. *** 3399,3404 ****
  726. --- 3520,3527 ----
  727.        (message "Preferred complex form is rectangular.")))
  728.   )
  729.   
  730. + ;;;; [calc-frac.el]
  731. + 
  732.   (defun calc-frac-mode (n)
  733.     "Toggle mode in which Calculator prefers fractions over floats.
  734.   With positive prefix argument, sets mode on (fractions).
  735. ***************
  736. *** 3418,3423 ****
  737. --- 3541,3548 ----
  738.   
  739.   
  740.   
  741. + ;;;; [calc-ext.el]
  742. + 
  743.   ;;; Trail commands.
  744.   
  745.   (defun calc-t-prefix-help ()
  746. ***************
  747. *** 3428,3433 ****
  748. --- 3553,3560 ----
  749.      "trail" ?t)
  750.   )
  751.   
  752. + ;;;; [calc-trail.el]
  753. + 
  754.   (defun calc-trail-in ()
  755.     "Switch to the Calc Trail window."
  756.     (interactive)
  757. ***************
  758. *** 3451,3458 ****
  759.          (unwind-protect
  760.          (, (append '(progn
  761.                (set-buffer (calc-trail-display t))
  762. -              (or (eq major-mode 'calc-trail-mode)
  763. -                  (error "Calc Trail buffer is not usable"))
  764.                (goto-char calc-trail-pointer))
  765.                 body))
  766.        (set-buffer save-buf))))
  767. --- 3578,3583 ----
  768. ***************
  769. *** 3607,3612 ****
  770. --- 3732,3739 ----
  771.   
  772.   
  773.   
  774. + ;;;; [calc-ext.el]
  775. + 
  776.   ;;; Units commands.
  777.   
  778.   (defun calc-u-prefix-help ()
  779. ***************
  780. *** 3618,3623 ****
  781. --- 3745,3752 ----
  782.      "units" ?u)
  783.   )
  784.   
  785. + ;;;; [calc-units.el]
  786. + 
  787.   (defun calc-base-units ()
  788.     "Convert the value on the stack into \"base\" units, like m, g, and s."
  789.     (interactive)
  790. ***************
  791. *** 3938,3943 ****
  792. --- 4067,4074 ----
  793.   
  794.   
  795.   
  796. + ;;;; [calc-ext.el]
  797. + 
  798.   ;;; Vector commands.
  799.   
  800.   (defun calc-v-prefix-help ()
  801. ***************
  802. *** 3960,3965 ****
  803. --- 4091,4098 ----
  804.      (calc-binary-op "|" 'calcFunc-vconcat arg '(vec)))
  805.   )
  806.   
  807. + ;;;; [calc-mode.el]
  808. + 
  809.   (defun calc-matrix-left-justify ()
  810.     "Left-justify elements of matrices."
  811.     (interactive)
  812. ***************
  813. *** 4019,4024 ****
  814. --- 4152,4159 ----
  815.      (calc-refresh))
  816.   )
  817.   
  818. + ;;;; [calc-vec.el]
  819. + 
  820.   (defun calc-pack (n)
  821.     "Pack the top two numbers on the Calculator stack into a complex number.
  822.   Given a numeric prefix, pack the top N numbers into a vector.
  823. ***************
  824. *** 4087,4093 ****
  825.     (interactive)
  826.     (calc-wrapper
  827.      (let ((num (calc-top)))
  828. !      (if (or (and (not (memq (car-safe num) '(cplx polar vec hms sdev mod)))
  829.             (math-objvecp num))
  830.            (eq (car-safe num) 'var))
  831.        (error "Argument must be a vector, complex number, or HMS, error, or modulo form"))
  832. --- 4222,4229 ----
  833.     (interactive)
  834.     (calc-wrapper
  835.      (let ((num (calc-top)))
  836. !      (if (or (and (not (memq (car-safe num) '(frac float cplx polar vec hms
  837. !                            sdev mod)))
  838.             (math-objvecp num))
  839.            (eq (car-safe num) 'var))
  840.        (error "Argument must be a vector, complex number, or HMS, error, or modulo form"))
  841. ***************
  842. *** 4195,4200 ****
  843. --- 4331,4338 ----
  844.      (calc-binary-op "cros" 'calcFunc-cross arg))
  845.   )
  846.   
  847. + ;;;; [calc-mat.el]
  848. + 
  849.   (defun calc-mdet (arg)
  850.     "Compute the determinant of the square matrix on the top of the stack."
  851.     (interactive "P")
  852. ***************
  853. *** 4217,4222 ****
  854. --- 4355,4362 ----
  855.      (calc-unary-op "mlud" 'calcFunc-lud arg))
  856.   )
  857.   
  858. + ;;;; [calc-vec.el]
  859. + 
  860.   (defun calc-rnorm (arg)
  861.     "Compute the row norm of the vector or matrix on the top of the stack.
  862.   This is the maximum row-absolute-value-sum of the matrix.
  863. ***************
  864. *** 4267,4272 ****
  865. --- 4407,4414 ----
  866.          (calc-enter-result 1 "mcol" (list 'calcFunc-mcol (calc-top-n 1) n)))))
  867.   )
  868.   
  869. + ;;;; [calc-map.el]
  870. + 
  871.   (defun calc-apply (&optional oper)
  872.     "Apply an operator to the elements of a vector.
  873.   For example, applying f to [1, 2, 3] produces f(1, 2, 3)."
  874. ***************
  875. *** 4509,4514 ****
  876. --- 4651,4661 ----
  877.                     ( ?d 2 calcFunc-diff )
  878.                     ( ?n 1 calcFunc-not )
  879.                     ( ?c 1 calcFunc-clip )
  880. +                   ( ?l 2 calcFunc-lsh )
  881. +                   ( ?r 2 calcFunc-rsh )
  882. +                   ( ?L 2 calcFunc-ash )
  883. +                   ( ?R 2 calcFunc-rash )
  884. +                   ( ?t 2 calcFunc-rot )
  885.   ))
  886.   (defconst calc-c-oper-keys '( ( ?d 1 calcFunc-deg )
  887.                     ( ?r 1 calcFunc-rad )
  888. ***************
  889. *** 4554,4559 ****
  890. --- 4701,4708 ----
  891.   
  892.   
  893.   
  894. + ;;;; [calc-ext.el]
  895. + 
  896.   ;;; User menu.
  897.   
  898.   (defun calc-user-key-map ()
  899. ***************
  900. *** 4639,4644 ****
  901. --- 4788,4795 ----
  902.      "user" ?Z)
  903.   )
  904.   
  905. + ;;;; [calc-prog.el]
  906. + 
  907.   (defun calc-user-define ()
  908.     "Bind a Calculator command to a key sequence using the z prefix."
  909.     (interactive)
  910. ***************
  911. *** 4911,4918 ****
  912.              (progn
  913.            (if (and (< (window-width) (screen-width))
  914.                 calc-display-trail)
  915. !              (let* ((trail (get-buffer-create "*Calc Trail*"))
  916. !                 (win (get-buffer-window trail)))
  917.                  (if win
  918.                  (delete-window win))))
  919.            (edit-kbd-macro (cdr def) prefix nil
  920. --- 5062,5068 ----
  921.              (progn
  922.            (if (and (< (window-width) (screen-width))
  923.                 calc-display-trail)
  924. !              (let ((win (get-buffer-window (calc-trail-buffer))))
  925.                  (if win
  926.                  (delete-window win))))
  927.            (edit-kbd-macro (cdr def) prefix nil
  928. ***************
  929. *** 5633,5638 ****
  930. --- 5783,5790 ----
  931.   
  932.   
  933.   
  934. + ;;;; [calc-ext.el]
  935. + 
  936.   ;;;; Caches.
  937.   
  938.   (defmacro math-defcache (name init form)
  939. ***************
  940. *** 6031,6036 ****
  941. --- 6183,6190 ----
  942.   )
  943.   
  944.   
  945. + ;;;; [calc-map.el]
  946. + 
  947.   ;;; Convert a variable name (as a formula) into a like-looking function name.
  948.   (defun math-var-to-calcFunc (f)
  949.     (if (eq (car-safe f) 'var)
  950. ***************
  951. *** 6085,6090 ****
  952. --- 6239,6246 ----
  953.   
  954.   
  955.   
  956. + ;;;; [calc-vec.el]
  957. + 
  958.   ;;;; Vectors.
  959.   
  960.   ;;; Return the dimensions of a matrix as a list.  [l x] [Public]
  961. ***************
  962. *** 6138,6143 ****
  963. --- 6294,6301 ----
  964.   )
  965.   
  966.   
  967. + ;;;; [calc-mat.el]
  968. + 
  969.   ;;; Coerce row vector A to be a matrix.  [V V]
  970.   (defun math-row-matrix (a)
  971.     (if (and (Math-vectorp a)
  972. ***************
  973. *** 6155,6160 ****
  974. --- 6313,6320 ----
  975.   )
  976.   
  977.   
  978. + ;;;; [calc-ext.el]
  979. + 
  980.   (defun calc-binary-op-fancy (name func arg ident unary)
  981.     (let ((n (prefix-numeric-value arg)))
  982.       (cond ((> n 1)
  983. ***************
  984. *** 6195,6200 ****
  985. --- 6355,6362 ----
  986.   )
  987.   
  988.   
  989. + ;;;; [calc-vec.el]
  990. + 
  991.   ;;; Apply a function elementwise to vectors A and B.  [O X O O] [Public]
  992.   (defun math-map-vec-2 (f a b)
  993.     (if (math-vectorp a)
  994. ***************
  995. *** 6227,6232 ****
  996. --- 6389,6396 ----
  997.   )
  998.   
  999.   
  1000. + ;;;; [calc-map.el]
  1001. + 
  1002.   ;;; Map a function over a vector symbolically. [Public]
  1003.   (defun math-symb-map (f mode args)
  1004.     (let* ((func (math-var-to-calcFunc f))
  1005. ***************
  1006. *** 6307,6312 ****
  1007. --- 6471,6478 ----
  1008.   )
  1009.   
  1010.   
  1011. + ;;;; [calc-vec.el]
  1012. + 
  1013.   ;;; "Reduce" a function over a vector (left-associatively).  [O X V] [Public]
  1014.   (defun math-reduce-vec (f a)
  1015.     (if (math-vectorp a)
  1016. ***************
  1017. *** 6347,6352 ****
  1018. --- 6513,6520 ----
  1019.   )
  1020.   
  1021.   
  1022. + ;;;; [calc-map.el]
  1023. + 
  1024.   ;;; Reduce a function over a vector symbolically. [Public]
  1025.   (defun calcFunc-reduce (func vec)
  1026.     (if (math-matrixp vec)
  1027. ***************
  1028. *** 6399,6404 ****
  1029. --- 6567,6574 ----
  1030.   )
  1031.   
  1032.   
  1033. + ;;;; [calc-mat.el]
  1034. + 
  1035.   ;;; Multiply matrix vector element lists A and B.  [L L L]
  1036.   (defun math-mul-mats (a b)
  1037.     (and a
  1038. ***************
  1039. *** 6432,6437 ****
  1040. --- 6602,6609 ----
  1041.   )
  1042.   
  1043.   
  1044. + ;;;; [calc-vec.el]
  1045. + 
  1046.   ;;; Return the number of elements in vector V.  [Public]
  1047.   (defun math-vec-length (v)
  1048.     (if (math-vectorp v)
  1049. ***************
  1050. *** 6680,6685 ****
  1051. --- 6852,6859 ----
  1052.   (fset 'calcFunc-histogram (symbol-function 'math-histogram))
  1053.   
  1054.   
  1055. + ;;;; [calc-mat.el]
  1056. + 
  1057.   (defun math-matrix-trace (mat)   ; [Public]
  1058.     (if (math-square-matrixp mat)
  1059.         (math-matrix-trace-step 2 (1- (length mat)) mat (nth 1 (nth 1 mat)))
  1060. ***************
  1061. *** 6978,6983 ****
  1062. --- 7152,7159 ----
  1063.       (math-reject-arg m 'square-matrixp))
  1064.   )
  1065.   
  1066. + ;;;; [calc-vec.el]
  1067. + 
  1068.   ;;; Compute a right-handed vector cross product.  [O O O] [Public]
  1069.   (defun math-cross (a b)
  1070.     (if (and (eq (car-safe a) 'vec)
  1071. ***************
  1072. *** 6999,7004 ****
  1073. --- 7175,7182 ----
  1074.   
  1075.   
  1076.   
  1077. + ;;;; [calc-forms.el]
  1078. + 
  1079.   ;;;; Hours-minutes-seconds forms.
  1080.   
  1081.   (defun math-normalize-hms (a)
  1082. ***************
  1083. *** 7092,7097 ****
  1084. --- 7270,7277 ----
  1085.   
  1086.   
  1087.   
  1088. + ;;;; [calc-cplx.el]
  1089. + 
  1090.   ;;;; Complex numbers.
  1091.   
  1092.   (defun math-normalize-polar (a)
  1093. ***************
  1094. *** 7149,7154 ****
  1095. --- 7329,7337 ----
  1096.   )
  1097.   
  1098.   
  1099. + 
  1100. + ;;;; [calc-forms.el]
  1101. + 
  1102.   ;;;; Error forms.
  1103.   
  1104.   ;;; Build a standard deviation form.  [X X X]
  1105. ***************
  1106. *** 7231,7236 ****
  1107. --- 7414,7421 ----
  1108.   
  1109.   
  1110.   
  1111. + ;;;; [calc-arith.el]
  1112. + 
  1113.   ;;;; Arithmetic.
  1114.   
  1115.   (defun math-neg-fancy (a)
  1116. ***************
  1117. *** 7499,7504 ****
  1118. --- 7684,7691 ----
  1119.              (+ (nth 2 a) (nth 2 a)))
  1120.   )
  1121.   
  1122. + ;;;; [calc-forms.el]
  1123. + 
  1124.   (defun math-combine-intervals (a am b bm c cm d dm)
  1125.     (let (res)
  1126.       (if (= (setq res (math-compare a c)) 1)
  1127. ***************
  1128. *** 7512,7517 ****
  1129. --- 7699,7706 ----
  1130.       (math-make-intv (+ (if am 2 0) (if bm 1 0)) a b))
  1131.   )
  1132.   
  1133. + ;;;; [calc-arith.el]
  1134. + 
  1135.   (defun math-mul-symb-fancy (a b)
  1136.     (or (and (Math-equal-int a 1)
  1137.          b)
  1138. ***************
  1139. *** 7574,7579 ****
  1140. --- 7763,7770 ----
  1141.         (list '* a b))
  1142.   )
  1143.   
  1144. + ;;;; [calc-cplx.el]
  1145. + 
  1146.   (defun math-want-polar (a b)
  1147.     (cond ((eq (car-safe a) 'polar)
  1148.        (if (eq (car-safe b) 'cplx)
  1149. ***************
  1150. *** 7615,7620 ****
  1151. --- 7806,7812 ----
  1152.           (math-fix-circular (math-add a (math-two-pi)) 1)))))
  1153.   )
  1154.   
  1155. + ;;;; [calc-arith.el]
  1156.   
  1157.   (defun math-div-objects-fancy (a b)
  1158.     (cond ((and (Math-numberp a) (Math-numberp b))
  1159. ***************
  1160. *** 7796,7801 ****
  1161. --- 7988,7995 ----
  1162.         (list '/ a b))
  1163.   )
  1164.   
  1165. + ;;;; [calc-forms.el]
  1166. + 
  1167.   (defun math-div-mod (a b m)   ; [R R R R]  (Returns nil if no solution)
  1168.     (and (Math-integerp a) (Math-integerp b) (Math-integerp m)
  1169.          (let ((u1 1) (u3 b) (v1 0) (v3 m))
  1170. ***************
  1171. *** 7823,7828 ****
  1172. --- 8017,8024 ----
  1173.          (math-make-intv 2 0 b))))
  1174.   )
  1175.   
  1176. + ;;;; [calc-arith.el]
  1177. + 
  1178.   (defun math-pow-fancy (a b)
  1179.     (cond ((and (Math-numberp a) (Math-numberp b))
  1180.        (cond ((and (eq (car-safe b) 'frac)
  1181. ***************
  1182. *** 7973,7978 ****
  1183. --- 8169,8176 ----
  1184.       val)
  1185.   )
  1186.   
  1187. + ;;;; [calc-bin.el]
  1188. + 
  1189.   (defvar math-power-of-2-cache (list 1 2 4 8 16 32 64 128 256 512 1024))
  1190.   (defvar math-big-power-of-2-cache nil)
  1191.   (defun math-power-of-2 (n)    ;  [I I] [Public]
  1192. ***************
  1193. *** 8018,8023 ****
  1194. --- 8216,8223 ----
  1195.   
  1196.   
  1197.   
  1198. + ;;;; [calc-math.el]
  1199. + 
  1200.   ;;; Compute the integer square-root floor(sqrt(A)).  A > 0.  [I I] [Public]
  1201.   ;;; This method takes advantage of the fact that Newton's method starting
  1202.   ;;; with an overestimate always works, even using truncating integer division!
  1203. ***************
  1204. *** 8085,8090 ****
  1205. --- 8285,8292 ----
  1206.   )
  1207.   
  1208.   
  1209. + ;;;; [calc-ext.el]
  1210. + 
  1211.   (defun math-inexact-result ()
  1212.     (and calc-symbolic-mode
  1213.          (signal 'inexact-result nil))
  1214. ***************
  1215. *** 8091,8096 ****
  1216. --- 8293,8300 ----
  1217.   )
  1218.   
  1219.   
  1220. + ;;;; [calc-math.el]
  1221. + 
  1222.   ;;; Compute the square root of a number.
  1223.   ;;; [T N] if possible, else [F N] if possible, else [C N].  [Public]
  1224.   (defun math-sqrt (a)
  1225. ***************
  1226. *** 8247,8252 ****
  1227. --- 8451,8458 ----
  1228.   
  1229.   
  1230.   
  1231. + ;;;; [calc-arith.el]
  1232. + 
  1233.   ;;; Compute the minimum of two real numbers.  [R R R] [Public]
  1234.   (defun math-min (a b)
  1235.     (if (and (consp a) (eq (car a) 'intv))
  1236. ***************
  1237. *** 8382,8388 ****
  1238.       (t (math-reject-arg a 'numberp)))
  1239.   )
  1240.   (defun calcFunc-ftrunc (a)
  1241. !   (math-float (math-trunc a))
  1242.   )
  1243.   
  1244.   (defun math-floor-fancy (a)
  1245. --- 8588,8596 ----
  1246.       (t (math-reject-arg a 'numberp)))
  1247.   )
  1248.   (defun calcFunc-ftrunc (a)
  1249. !   (if (Math-messy-integerp a)
  1250. !       a
  1251. !     (math-float (math-trunc a)))
  1252.   )
  1253.   
  1254.   (defun math-floor-fancy (a)
  1255. ***************
  1256. *** 8403,8409 ****
  1257.       (t (math-reject-arg a 'anglep)))
  1258.   )
  1259.   (defun calcFunc-ffloor (a)
  1260. !   (math-float (math-floor a))
  1261.   )
  1262.   
  1263.   ;;; Coerce A to be an integer (by truncation toward plus infinity).  [I N]
  1264. --- 8611,8619 ----
  1265.       (t (math-reject-arg a 'anglep)))
  1266.   )
  1267.   (defun calcFunc-ffloor (a)
  1268. !   (if (Math-messy-integerp a)
  1269. !       a
  1270. !     (math-float (math-floor a)))
  1271.   )
  1272.   
  1273.   ;;; Coerce A to be an integer (by truncation toward plus infinity).  [I N]
  1274. ***************
  1275. *** 8432,8438 ****
  1276.   )
  1277.   (fset 'calcFunc-ceil (symbol-function 'math-ceiling))
  1278.   (defun calcFunc-fceil (a)
  1279. !   (math-float (math-ceiling a))
  1280.   )
  1281.   
  1282.   ;;; Coerce A to be an integer (by rounding to nearest integer).  [I N] [Public]
  1283. --- 8642,8650 ----
  1284.   )
  1285.   (fset 'calcFunc-ceil (symbol-function 'math-ceiling))
  1286.   (defun calcFunc-fceil (a)
  1287. !   (if (Math-messy-integerp a)
  1288. !       a
  1289. !     (math-float (math-ceiling a)))
  1290.   )
  1291.   
  1292.   ;;; Coerce A to be an integer (by rounding to nearest integer).  [I N] [Public]
  1293. ***************
  1294. *** 8454,8463 ****
  1295.   )
  1296.   (fset 'calcFunc-round (symbol-function 'math-round))
  1297.   (defun calcFunc-fround (a)
  1298. !   (math-float (math-round a))
  1299.   )
  1300.   
  1301.   
  1302.   ;;; Convert a real value to fractional form.  [T R I; T R F] [Public]
  1303.   (defun math-to-fraction (a &optional tol)
  1304.     (or tol (setq tol 0))
  1305. --- 8666,8743 ----
  1306.   )
  1307.   (fset 'calcFunc-round (symbol-function 'math-round))
  1308.   (defun calcFunc-fround (a)
  1309. !   (if (Math-messy-integerp a)
  1310. !       a
  1311. !     (math-float (math-round a)))
  1312.   )
  1313.   
  1314.   
  1315. + ;;; Pull floating-point values apart into mantissa and exponent.
  1316. + (defun math-mant-part (x)
  1317. +   (if (Math-realp x)
  1318. +       (if (or (Math-ratp x)
  1319. +           (eq (nth 1 x) 0))
  1320. +       x
  1321. +     (list 'float (nth 1 x) (- 1 (math-numdigs (nth 1 x)))))
  1322. +     (calc-record-why 'realp x)
  1323. +     (list 'calcFunc-mant x))
  1324. + )
  1325. + (fset 'calcFunc-mant (symbol-function 'math-mant-part))
  1326. + 
  1327. + (defun math-xpon-part (x)
  1328. +   (if (Math-realp x)
  1329. +       (if (or (Math-ratp x)
  1330. +           (eq (nth 1 x) 0))
  1331. +       0
  1332. +     (math-add (nth 2 x) (1- (math-numdigs (nth 1 x)))))
  1333. +     (calc-record-why 'realp x)
  1334. +     (list 'calcFunc-xpon x))
  1335. + )
  1336. + (fset 'calcFunc-xpon (symbol-function 'math-xpon-part))
  1337. + 
  1338. + (defun math-scale-float (x n)
  1339. +   (if (integerp n)
  1340. +       (cond ((= n 0)
  1341. +          x)
  1342. +         ((Math-integerp x)
  1343. +          (if (> n 0)
  1344. +          (math-scale-int x n)
  1345. +            (math-div x (math-scale-int 1 (- n)))))
  1346. +         ((eq (car x) 'frac)
  1347. +          (if (> n 0)
  1348. +          (math-make-frac (math-scale-int (nth 1 x) n) (nth 2 x))
  1349. +            (math-make-frac (nth 1 x) (math-scale-int (nth 2 x) (- n)))))
  1350. +         ((eq (car x) 'float)
  1351. +          (math-make-float (nth 1 x) (+ (nth 2 x) n)))
  1352. +         ((memq (car x) '(cplx sdev))
  1353. +          (math-normalize
  1354. +           (list (car x)
  1355. +             (math-scale-float (nth 1 x) n)
  1356. +             (math-scale-float (nth 2 x) n))))
  1357. +         ((memq (car x) '(polar mod))
  1358. +          (math-normalize
  1359. +           (list (car x)
  1360. +             (math-scale-float (nth 1 x) n)
  1361. +             (nth 2 x))))
  1362. +         ((eq (car x) 'intv)
  1363. +          (math-normalize
  1364. +           (list (car x)
  1365. +             (nth 1 x)
  1366. +             (math-scale-float (nth 2 x) n)
  1367. +             (math-scale-float (nth 3 x) n))))
  1368. +         (t
  1369. +          (calc-record-why 'realp x)
  1370. +          (list 'calcFunc-scf x n)))
  1371. +     (if (math-messy-integerp n)
  1372. +     (math-scale-float x (math-trunc n))
  1373. +       (calc-record-why 'integerp n)
  1374. +       (list 'calcFunc-scf x n)))
  1375. + )
  1376. + (fset 'calcFunc-scf (symbol-function 'math-scale-float))
  1377. + 
  1378. + 
  1379. + ;;;; [calc-frac.el]
  1380. + 
  1381.   ;;; Convert a real value to fractional form.  [T R I; T R F] [Public]
  1382.   (defun math-to-fraction (a &optional tol)
  1383.     (or tol (setq tol 0))
  1384. ***************
  1385. *** 8534,8539 ****
  1386. --- 8814,8821 ----
  1387.   )
  1388.   
  1389.   
  1390. + ;;;; [calc-ext.el]
  1391. + 
  1392.   (defun math-clean-number (a &optional prec)   ; [X X S] [Public]
  1393.     (if prec
  1394.         (cond ((Math-messy-integerp prec)
  1395. ***************
  1396. *** 8565,8570 ****
  1397. --- 8847,8854 ----
  1398.   
  1399.   
  1400.   
  1401. + ;;;; [calc-prog.el]
  1402. + 
  1403.   ;;;; Logical operations.
  1404.   
  1405.   (defun calcFunc-eq (a b)
  1406. ***************
  1407. *** 8762,8767 ****
  1408. --- 9046,9053 ----
  1409.   
  1410.   
  1411.   
  1412. + ;;;; [calc-cplx.el]
  1413. + 
  1414.   ;;;; Complex numbers.
  1415.   
  1416.   (defun math-to-polar (a)   ; [C N] [Public]
  1417. ***************
  1418. *** 8801,8806 ****
  1419. --- 9087,9094 ----
  1420.   )
  1421.   (fset 'calcFunc-conj (symbol-function 'math-conj))
  1422.   
  1423. + ;;;; [calc-arith.el]
  1424. + 
  1425.   ;;; Compute the absolute value squared of A.  [F N] [Public]
  1426.   (defun math-abssqr (a)
  1427.     (cond ((Math-realp a)
  1428. ***************
  1429. *** 8818,8823 ****
  1430. --- 9106,9113 ----
  1431.   )
  1432.   (fset 'calcFunc-abssqr (symbol-function 'math-abssqr))
  1433.   
  1434. + ;;;; [calc-cplx.el]
  1435. + 
  1436.   ;;; Compute the complex argument of A.  [F N] [Public]
  1437.   (defun math-cplx-arg (a)
  1438.     (cond ((Math-anglep a)
  1439. ***************
  1440. *** 8866,8871 ****
  1441. --- 9156,9163 ----
  1442.   
  1443.   
  1444.   
  1445. + ;;;; [calc-math.el]
  1446. + 
  1447.   ;;;; Transcendental functions.
  1448.   
  1449.   ;;; All of these functions are defined on the complex plane.
  1450. ***************
  1451. *** 9744,9749 ****
  1452. --- 10036,10043 ----
  1453.   
  1454.   
  1455.   
  1456. + ;;;; [calc-arith.el]
  1457. + 
  1458.   ;;;; Number theory.
  1459.   
  1460.   (defun calcFunc-idiv (a b)   ; [I I I] [Public]
  1461. ***************
  1462. *** 9765,9770 ****
  1463. --- 10059,10066 ----
  1464.       (t (math-reject-arg a 'anglep)))
  1465.   )
  1466.   
  1467. + ;;;; [calc-frac.el]
  1468. + 
  1469.   (defun calcFunc-fdiv (a b)   ; [R I I] [Public]
  1470.     (if (Math-num-integerp a)
  1471.         (if (Math-num-integerp b)
  1472. ***************
  1473. *** 9775,9780 ****
  1474. --- 10071,10078 ----
  1475.       (math-reject-arg a 'integerp))
  1476.   )
  1477.   
  1478. + ;;;; [calc-comb.el]
  1479. + 
  1480.   (defun math-lcm (a b)
  1481.     (let ((g (math-gcd a b)))
  1482.       (if (Math-numberp g)
  1483. ***************
  1484. *** 10380,10385 ****
  1485. --- 10678,10685 ----
  1486.   
  1487.   
  1488.   
  1489. + ;;;; [calc-bin.el]
  1490. + 
  1491.   ;;; Bitwise operations.
  1492.   
  1493.   (defun math-and (a b &optional w)   ; [I I I] [Public]
  1494. ***************
  1495. *** 10601,10607 ****
  1496.   )
  1497.   (fset 'calcFunc-rsh (symbol-function 'math-rshift-binary))
  1498.   
  1499. ! (defun math-shift-binary (a &optional n w)   ; [I I] [Public]
  1500.     (if (or (null n)
  1501.         (not (Math-negp n)))
  1502.         (math-lshift-binary a n w)
  1503. --- 10901,10907 ----
  1504.   )
  1505.   (fset 'calcFunc-rsh (symbol-function 'math-rshift-binary))
  1506.   
  1507. ! (defun math-lshift-arith (a &optional n w)   ; [I I] [Public]
  1508.     (if (or (null n)
  1509.         (not (Math-negp n)))
  1510.         (math-lshift-binary a n w)
  1511. ***************
  1512. *** 10608,10614 ****
  1513.       (setq a (math-trunc a)
  1514.         n (if n (math-trunc n) 1))
  1515.       (if (eq (car-safe a) 'mod)
  1516. !     (math-binary-modulo-args 'math-shift-binary a n w)
  1517.         (setq w (if w (math-trunc w) calc-word-size))
  1518.         (or (integerp w)
  1519.         (math-reject-arg w 'integerp))
  1520. --- 10908,10914 ----
  1521.       (setq a (math-trunc a)
  1522.         n (if n (math-trunc n) 1))
  1523.       (if (eq (car-safe a) 'mod)
  1524. !     (math-binary-modulo-args 'math-lshift-arith a n w)
  1525.         (setq w (if w (math-trunc w) calc-word-size))
  1526.         (or (integerp w)
  1527.         (math-reject-arg w 'integerp))
  1528. ***************
  1529. *** 10617,10623 ****
  1530.         (or (Math-integerp n)
  1531.         (math-reject-arg n 'integerp))
  1532.         (if (< w 0)
  1533. !       (math-clip (math-shift-binary a n (- w)) w)
  1534.       (if (Math-integer-negp a)
  1535.           (setq a (math-clip a w)))
  1536.       (let ((two-to-sizem1 (math-power-of-2 (1- w)))
  1537. --- 10917,10923 ----
  1538.         (or (Math-integerp n)
  1539.         (math-reject-arg n 'integerp))
  1540.         (if (< w 0)
  1541. !       (math-clip (math-lshift-arith a n (- w)) w)
  1542.       (if (Math-integer-negp a)
  1543.           (setq a (math-clip a w)))
  1544.       (let ((two-to-sizem1 (math-power-of-2 (1- w)))
  1545. ***************
  1546. *** 10631,10638 ****
  1547.                              (+ w n) w)
  1548.                      sh))))))))
  1549.   )
  1550. ! (fset 'calcFunc-ash (symbol-function 'math-shift-binary))
  1551.   
  1552.   (defun math-rotate-binary (a &optional n w)   ; [I I] [Public]
  1553.     (setq a (math-trunc a)
  1554.       n (if n (math-trunc n) 1))
  1555. --- 10931,10943 ----
  1556.                              (+ w n) w)
  1557.                      sh))))))))
  1558.   )
  1559. ! (fset 'calcFunc-ash (symbol-function 'math-lshift-arith))
  1560.   
  1561. + (defun math-rshift-arith (a &optional n w)   ; [I I] [Public]
  1562. +   (math-lshift-arith a (math-neg (or n 1)) w)
  1563. + )
  1564. + (fset 'calcFunc-rash (symbol-function 'math-rshift-arith))
  1565. + 
  1566.   (defun math-rotate-binary (a &optional n w)   ; [I I] [Public]
  1567.     (setq a (math-trunc a)
  1568.       n (if n (math-trunc n) 1))
  1569. ***************
  1570. *** 10699,10704 ****
  1571. --- 11004,11011 ----
  1572.   
  1573.   
  1574.   
  1575. + ;;;; [calc-ext.el]
  1576. + 
  1577.   ;;;; Algebra.
  1578.   
  1579.   ;;; Evaluate variables in an expression.
  1580. ***************
  1581. *** 10780,10785 ****
  1582. --- 11087,11095 ----
  1583.   ;;; The following is expanded out four ways for speed.
  1584.   (defun math-combine-prod (a b inva invb scalar-okay)
  1585.     (cond
  1586. +    ((or (and inva (Math-zerop a))
  1587. +     (and invb (Math-zerop b)))
  1588. +     nil)
  1589.      ((and scalar-okay (Math-objvecp a) (Math-objvecp b))
  1590.       (math-mul-or-div a b inva invb))
  1591.      ((and (eq (car-safe a) '^)
  1592. ***************
  1593. *** 10863,10868 ****
  1594. --- 11173,11180 ----
  1595.   
  1596.   
  1597.   
  1598. + ;;;; [calc-alg.el]
  1599. + 
  1600.   (setq math-living-dangerously nil)   ; true if unsafe simplifications are okay.
  1601.   
  1602.   (defun math-simplify-extended (a)
  1603. ***************
  1604. *** 10900,10905 ****
  1605. --- 11212,11219 ----
  1606.         aa))
  1607.   )
  1608.   
  1609. + ;;;; [calc-ext.el]
  1610. + 
  1611.   (defmacro math-defsimplify (funcs &rest code)
  1612.     "Define a simplification rule for the specified function.
  1613.   If FUNCS is a list of functions, the same rule is applied for each function.
  1614. ***************
  1615. *** 10922,10927 ****
  1616. --- 11236,11243 ----
  1617.   )
  1618.   (put 'math-defsimplify 'lisp-indent-hook 1)
  1619.   
  1620. + ;;;; [calc-alg.el]
  1621. + 
  1622.   (math-defsimplify (+ -)
  1623.     (math-simplify-plus))
  1624.   
  1625. ***************
  1626. *** 11386,11391 ****
  1627. --- 11702,11709 ----
  1628.       (cons (car expr) (mapcar 'math-replace-variables (cdr expr))))
  1629.   )
  1630.   
  1631. + ;;;; [calc-ext.el]
  1632. + 
  1633.   (defun math-is-true (expr)
  1634.     (and (Math-realp expr)
  1635.          (not (Math-zerop expr)))
  1636. ***************
  1637. *** 11394,11399 ****
  1638. --- 11712,11719 ----
  1639.   
  1640.   
  1641.   
  1642. + ;;;; [calc-alg-2.el]
  1643. + 
  1644.   (defun math-derivative (expr)   ; uses global values: deriv-var, deriv-total.
  1645.     (cond ((equal expr deriv-var)
  1646.        1)
  1647. ***************
  1648. *** 12069,12074 ****
  1649. --- 12389,12396 ----
  1650.             (and high (list high)))))
  1651.   )
  1652.   
  1653. + ;;;; [calc-ext.el]
  1654. + 
  1655.   (defmacro math-defintegral (funcs &rest code)
  1656.     "Define an integration rule for the specified function.
  1657.   If FUNCS is a list of functions, the same rule is applied for each function.
  1658. ***************
  1659. *** 12112,12117 ****
  1660. --- 12434,12441 ----
  1661.   )
  1662.   (put 'math-defintegral-2 'lisp-indent-hook 1)
  1663.   
  1664. + ;;;; [calc-alg-2.el]
  1665. + 
  1666.   (math-defintegral calcFunc-inv
  1667.     (math-integral (math-div 1 u)))
  1668.   
  1669. ***************
  1670. *** 12624,12629 ****
  1671. --- 12948,12955 ----
  1672.   
  1673.   
  1674.   
  1675. + ;;;; [calc-alg.el]
  1676. + 
  1677.   ;;; Simple operations on expressions.
  1678.   
  1679.   ;;; Return number of ocurrences of thing in expr, or nil if none.
  1680. ***************
  1681. *** 12863,12868 ****
  1682. --- 13189,13196 ----
  1683.   
  1684.   
  1685.   
  1686. + ;;;; [calc-units.el]
  1687. + 
  1688.   ;;; Units operations.
  1689.   
  1690.   (defvar math-standard-units
  1691. ***************
  1692. *** 12873,12880 ****
  1693.        ( yd      "3 ft"             "Yard" )
  1694.        ( mi      "5280 ft"         "Mile" )
  1695.        ( au      "1.495979e11 m"       "Astronomical Unit" )
  1696. !      ( lyr     "9.46052e15 m"         "Light Year" )
  1697. !      ( pc      "3.08568e16 m"         "Parsec" )
  1698.        ( nmi     "1852 m"             "Nautical Mile" )
  1699.        ( fath    "6 ft"             "Fathom" )
  1700.        ( u       "1 um"             "Micron" )
  1701. --- 13201,13208 ----
  1702.        ( yd      "3 ft"             "Yard" )
  1703.        ( mi      "5280 ft"         "Mile" )
  1704.        ( au      "1.495979e11 m"       "Astronomical Unit" )
  1705. !      ( lyr     "9460536207068016 m"  "Light Year" )
  1706. !      ( pc      "206264.80625 au"     "Parsec" )
  1707.        ( nmi     "1852 m"             "Nautical Mile" )
  1708.        ( fath    "6 ft"             "Fathom" )
  1709.        ( u       "1 um"             "Micron" )
  1710. ***************
  1711. *** 12896,12902 ****
  1712.        ( cup     "8 ozfl"             "Cup" )
  1713.        ( ozfl    "2 tbsp"             "Fluid Ounce" )
  1714.        ( tbsp    "3 tsp"             "Tablespoon" )
  1715. !      ( tsp     "4.92892 ml"         "Teaspoon" )
  1716.        ( galC    "4.54609 l"         "Canadian Gallon" )
  1717.        ( galUK   "4.546092 l"         "UK Gallon" )
  1718.        
  1719. --- 13224,13230 ----
  1720.        ( cup     "8 ozfl"             "Cup" )
  1721.        ( ozfl    "2 tbsp"             "Fluid Ounce" )
  1722.        ( tbsp    "3 tsp"             "Tablespoon" )
  1723. !      ( tsp     "4.92892159375 ml"    "Teaspoon" )
  1724.        ( galC    "4.54609 l"         "Canadian Gallon" )
  1725.        ( galUK   "4.546092 l"         "UK Gallon" )
  1726.        
  1727. ***************
  1728. *** 13423,13428 ****
  1729. --- 13751,13758 ----
  1730.          (list '^ (math-to-standard-units a nil) pow))))
  1731.   )
  1732.   
  1733. + ;;;; [calc-alg.el]
  1734. + 
  1735.   (defun math-to-simple-fraction (f)
  1736.     (or (and (eq (car-safe f) 'float)
  1737.          (or (and (>= (nth 2 f) 0)
  1738. ***************
  1739. *** 13435,13440 ****
  1740. --- 13765,13772 ----
  1741.         f)
  1742.   )
  1743.   
  1744. + ;;;; [calc-units.el]
  1745. + 
  1746.   (defun math-units-are-multiple (u n)
  1747.     (setq u (nth 4 u))
  1748.     (while (and u (= (% (cdr (car u)) n) 0))
  1749. ***************
  1750. *** 13592,13597 ****
  1751. --- 13924,13931 ----
  1752.   
  1753.   
  1754.   
  1755. + ;;;; [calc-prog.el]
  1756. + 
  1757.   ;;;; User-programmability.
  1758.   
  1759.   ;;; Compiling Lisp-like forms to use the math library.
  1760. ***************
  1761. *** 13765,13771 ****
  1762.     '( (~= . math-nearly-equal)
  1763.        (% . math-mod)
  1764.        (lsh . math-lshift-binary)
  1765. !      (ash . math-shift-binary)
  1766.        (logand . math-and)
  1767.        (logandc2 . math-diff)
  1768.        (logior . math-or)
  1769. --- 14099,14105 ----
  1770.     '( (~= . math-nearly-equal)
  1771.        (% . math-mod)
  1772.        (lsh . math-lshift-binary)
  1773. !      (ash . math-lshift-arith)
  1774.        (logand . math-and)
  1775.        (logandc2 . math-diff)
  1776.        (logior . math-or)
  1777. ***************
  1778. *** 14174,14179 ****
  1779. --- 14508,14515 ----
  1780.   
  1781.   
  1782.   
  1783. + ;;;; [calc-ext.el]
  1784. + 
  1785.   ;;; Nontrivial number parsing.
  1786.   
  1787.   (defun math-read-number-fancy (s)
  1788. ***************
  1789. *** 14322,14327 ****
  1790. --- 14658,14665 ----
  1791.         (list 'error exp-old-pos "Syntax error")))))
  1792.   )
  1793.   
  1794. + ;;;; [calc-vec.el]
  1795. + 
  1796.   (defun math-read-brackets (space-sep close)
  1797.     (and space-sep (setq space-sep (not (math-check-for-commas))))
  1798.     (math-read-token)
  1799. ***************
  1800. *** 14401,14406 ****
  1801. --- 14739,14746 ----
  1802.     mat
  1803.   )
  1804.   
  1805. + ;;;; [calc-ext.el]
  1806. + 
  1807.   (defun math-read-string ()
  1808.     (let ((str (read-from-string (concat exp-data "\""))))
  1809.       (or (and (= (cdr str) (1+ (length exp-data)))
  1810. ***************
  1811. *** 14538,14543 ****
  1812. --- 14878,14885 ----
  1813.         str))
  1814.   )
  1815.   
  1816. + ;;;; [calc-bin.el]
  1817. + 
  1818.   (defvar math-max-digits-cache nil)
  1819.   (defun math-compute-max-digits (w r)
  1820.     (let* ((pair (+ (* r 100000) w))
  1821. ***************
  1822. *** 14567,14590 ****
  1823.       log)))
  1824.   )
  1825.   
  1826. - (defun math-group-float (str)   ; [X X]
  1827. -   (let* ((pt (or (string-match "[^0-9]" str) (length str)))
  1828. -      (g (if (integerp calc-group-digits) (math-abs calc-group-digits) 3))
  1829. -      (i pt))
  1830. -     (if (and (integerp calc-group-digits) (< calc-group-digits 0))
  1831. -     (while (< (setq i (+ (1+ i) g)) (length str))
  1832. -       (setq str (concat (substring str 0 i)
  1833. -                 calc-group-char
  1834. -                 (substring str i)))))
  1835. -     (setq i pt)
  1836. -     (while (> i g)
  1837. -       (setq i (- i g)
  1838. -         str (concat (substring str 0 i)
  1839. -             calc-group-char
  1840. -             (substring str i))))
  1841. -     str)
  1842. - )
  1843. - 
  1844.   (defconst math-radix-digits ["0" "1" "2" "3" "4" "5" "6" "7" "8" "9"
  1845.                    "A" "B" "C" "D" "E" "F" "G" "H" "I" "J"
  1846.                    "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T"
  1847. --- 14909,14914 ----
  1848. ***************
  1849. *** 14665,14675 ****
  1850. --- 14989,15021 ----
  1851.              (math-format-radix-digit (% (cdr q) 16))))))
  1852.   )
  1853.   
  1854. + ;;;; [calc-ext.el]
  1855. + 
  1856. + (defun math-group-float (str)   ; [X X]
  1857. +   (let* ((pt (or (string-match "[^0-9]" str) (length str)))
  1858. +      (g (if (integerp calc-group-digits) (math-abs calc-group-digits) 3))
  1859. +      (i pt))
  1860. +     (if (and (integerp calc-group-digits) (< calc-group-digits 0))
  1861. +     (while (< (setq i (+ (1+ i) g)) (length str))
  1862. +       (setq str (concat (substring str 0 i)
  1863. +                 calc-group-char
  1864. +                 (substring str i)))))
  1865. +     (setq i pt)
  1866. +     (while (> i g)
  1867. +       (setq i (- i g)
  1868. +         str (concat (substring str 0 i)
  1869. +             calc-group-char
  1870. +             (substring str i))))
  1871. +     str)
  1872. + )
  1873. + 
  1874. + 
  1875.   
  1876.   
  1877.   
  1878.   
  1879.   
  1880. + ;;;; [calc-comp.el]
  1881.   
  1882.   ;;; A "composition" has one of the following forms:
  1883.   ;;;
  1884. ***************
  1885. *** 15335,15340 ****
  1886. --- 15681,15810 ----
  1887.   )
  1888.   
  1889.   
  1890. + 
  1891. + 
  1892. + 
  1893. + 
  1894. + ;;;; [end]
  1895. + 
  1896. + 
  1897. + ;;;; Splitting calc-ext.el into smaller parts.  [Suggested by Juha Sarlin.]
  1898. + 
  1899. + (defun calc-split (directory no-save)
  1900. +   "Split the file \"calc-ext.el\" into smaller parts for faster loading.
  1901. + This should be done during installation of Calc only."
  1902. +   (interactive "DDirectory for resulting files: \nP")
  1903. +   (or (string-match "calc-ext.el" (buffer-file-name))
  1904. +       (error "This command is for Calc installers only.  (Refer to the documentation.)"))
  1905. +   (or (equal directory "")
  1906. +       (setq directory (file-name-as-directory (expand-file-name directory))))
  1907. +   (and (or (get-buffer "calc-incom.el")
  1908. +        (file-exists-p (concat directory "calc-incom.el")))
  1909. +        (error "calc-split has already been used!"))
  1910. +   (let (copyright-point
  1911. +     autoload-point
  1912. +     (start (point-marker))
  1913. +     filename
  1914. +     (dest-buffer nil)
  1915. +     (done nil)
  1916. +     (func-list nil)
  1917. +     (cmd-list nil)
  1918. +     (file-list nil))
  1919. +     (goto-char (point-min))
  1920. +     (search-forward ";;;; (Autoloads here)\n")
  1921. +     (setq autoload-point (point-marker))
  1922. +     (goto-char (point-min))
  1923. +     (search-forward ";;;;")
  1924. +     (forward-char -4)
  1925. +     (setq copyright-point (point))
  1926. +     (copy-file (buffer-file-name) "calc-old.el" t)
  1927. +     (while (not done)
  1928. +       (re-search-forward "^;;;; \\[\\(.*\\)\\]\n\\|^(defun \\|^(fset '")
  1929. +       (if (equal (buffer-substring (match-beginning 0)
  1930. +                    (1+ (match-beginning 0)))
  1931. +          ";")
  1932. +       (progn
  1933. +         (setq filename (buffer-substring (match-beginning 1)
  1934. +                          (match-end 1)))
  1935. +         (and dest-buffer
  1936. +          (progn
  1937. +            (append-to-buffer dest-buffer
  1938. +                      start (match-beginning 0))
  1939. +            (delete-region start (match-beginning 0))))
  1940. +         (if (equal filename "end")
  1941. +         (progn
  1942. +           (delete-region (point) (point-max))
  1943. +           (setq done t))
  1944. +           (set-marker start (point))
  1945. +           (setq dest-buffer (and (not (equal filename "calc-ext.el"))
  1946. +                      (find-file-noselect
  1947. +                       (concat directory filename))))
  1948. +           (message "Splitting to %s..." filename)
  1949. +           (and dest-buffer
  1950. +            (save-excursion
  1951. +              (set-buffer dest-buffer)
  1952. +              (= (buffer-size) 0))
  1953. +            (save-excursion
  1954. +              (append-to-buffer dest-buffer
  1955. +                        (point-min) copyright-point)
  1956. +              (set-buffer dest-buffer)
  1957. +              (goto-char (point-min))
  1958. +              (end-of-line)
  1959. +              (insert " [" filename "]")
  1960. +              (goto-char (point-max))
  1961. +              (insert "\n"
  1962. +                  ";; This file is autoloaded from calc-ext, which in turn is loaded from calc.\n"
  1963. +                  "(require 'calc-ext)\n\n")))))
  1964. +     (and dest-buffer
  1965. +          (let* ((name (progn
  1966. +                 (looking-at "[^ \n]*")
  1967. +                 (buffer-substring (match-beginning 0)
  1968. +                           (match-end 0))))
  1969. +             (interactive (and (not (string-match
  1970. +                         "calcFunc-\\|math-" name))
  1971. +                       (save-excursion
  1972. +                     (re-search-forward "^ *(")
  1973. +                     (looking-at "interactive"))))
  1974. +             (which (if interactive 'cmd-list 'func-list))
  1975. +             (small-filename (substring filename 0 -3))
  1976. +             (found (or (assoc small-filename (symbol-value which))
  1977. +                    (car (set which
  1978. +                      (cons (list small-filename)
  1979. +                            (symbol-value which)))))))
  1980. +            (or (assoc filename file-list)
  1981. +            (setq file-list (cons (list filename) file-list)))
  1982. +            (setcdr found (cons (intern name) (cdr found)))))))
  1983. +     (goto-char autoload-point)
  1984. +     (insert "  (let ((dir \"" directory "\"))\n"
  1985. +         "    (mapcar (function (lambda (x)\n"
  1986. +         "      (let ((file (concat dir (car x))))\n"
  1987. +         "        (mapcar (function (lambda (func)\n"
  1988. +         "          (autoload func file))) (cdr x)))))\n"
  1989. +         "      '" (prin1-to-string func-list) ")\n"
  1990. +         "    (mapcar (function (lambda (x)\n"
  1991. +         "      (let ((file (concat dir (car x))))\n"
  1992. +         "        (mapcar (function (lambda (cmd)\n"
  1993. +         "          (autoload cmd file nil t))) (cdr x)))))\n"
  1994. +         "      '" (prin1-to-string cmd-list) "))\n")
  1995. +     (fill-region autoload-point (point))
  1996. +     (goto-char (point-min))
  1997. +     (or no-save
  1998. +     (progn
  1999. +       (save-some-buffers t)
  2000. +       (if (y-or-n-p "Byte-compile all files? ")
  2001. +           (progn
  2002. +         (require 'calc)
  2003. +         (byte-compile-file "calc-ext.el")
  2004. +         (load-file "calc-ext.elc")
  2005. +         (mapcar (function
  2006. +              (lambda (x)
  2007. +                (byte-compile-file
  2008. +                 (concat directory (car x)))))
  2009. +             file-list)))))
  2010. +     (message "Done."))
  2011. + )
  2012. + 
  2013. + ;;; Type C-x C-e at the beginning of this line before running calc-split.
  2014.   
  2015.   
  2016.  
  2017.