;ELC ;;; compiled by amu@mit.edu on Wed Dec 18 01:19:32 1996 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/calc-2.02e/calc-store.el ;;; emacs version 19.30.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`calc-store.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!ˆÀÂ!‡" [require calc-ext calc-macs] 2) (defalias 'calc-Need-calc-store #[nil "À‡" [nil] 1]) (defalias 'calc-store #[(&optional var) "À !)‡" [t calc-store-keep calc-store-into var] 2 nil nil]) (byte-code "ÀÀ‡" [nil calc-store-keep] 1) (defalias 'calc-store-into #[(&optional var) "ÀÁ!‡" [calc-do #[nil "ÀÁ\f„ ÅÆÇ\"\fƒ8\fÈž‰ ƒ! A ‚4Ê\f †*ËÁ!Ì\n$ˆÍÎÏ\f!\")‚eÐËÁ!!‰…e\f…eÊ\f@@\f@A\fA?…TÌ\fA?…[Á$ˆ\fA‰„FÀ*‡" [nil 1 calc-given-value-flag calc-given-value var calc-read-var-name "Store: " t ((+ . calc-store-plus) (- . calc-store-minus) (* . calc-store-times) (/ . calc-store-div) (^ . calc-store-power) (| . calc-store-concat)) found calc-store-value calc-top "" message "Stored to variable \"%s\"" calc-var-name calc-is-assignments] 6]] 2 nil nil]) (defalias 'calc-store-plus #[(&optional var) "À ÂÃ#‡" [calc-store-binary var "+" +] 4 nil nil]) (defalias 'calc-store-minus #[(&optional var) "À ÂÃ#‡" [calc-store-binary var "-" -] 4 nil nil]) (defalias 'calc-store-times #[(&optional var) "À ÂÃ#‡" [calc-store-binary var "*" *] 4 nil nil]) (defalias 'calc-store-div #[(&optional var) "À ÂÃ#‡" [calc-store-binary var "/" /] 4 nil nil]) (defalias 'calc-store-power #[(&optional var) "À ÂÃ#‡" [calc-store-binary var "^" ^] 4 nil nil]) (defalias 'calc-store-concat #[(&optional var) "À ÂÃ#‡" [calc-store-binary var "|" |] 4 nil nil]) (defalias 'calc-store-neg #[(n &optional var) "À ÂÃ\f[$‡" [calc-store-binary var "n" / n] 5 nil "p"]) (defalias 'calc-store-inv #[(n &optional var) "À ÂÃ\f[$‡" [calc-store-binary var "&" ^ n] 5 nil "p"]) (defalias 'calc-store-incr #[(n &optional var) "À ÂÃ\f[$‡" [calc-store-binary var "n" - n] 5 nil "p"]) (defalias 'calc-store-decr #[(n &optional var) "À ÂÃ\f$‡" [calc-store-binary var "n" - n] 5 nil "p"]) (defalias 'calc-store-value #[(var value tag &optional pop) "…[Á! Lˆ\fƒ „Æ\f!ˆÇÈÉ!\nE!ˆ\nƒ6Ë\fÍ ÎÏ\nÐ!#\"ˆ)Ñ>ƒH\n¢Ò=ƒHÓÔ\"ˆÕ>ƒW\n„WÓÖ\"ˆ×!)‡" [var calc-var-value old value pop calc-store-keep calc-pop-stack calc-record-undo store symbol-name tag nil calc-full-trail-vectors calc-record format ">%s%s" calc-var-name (var-e var-i var-pi var-phi var-gamma) special-const message "(Note: Built-in definition of %s has been lost)" (var-inf var-uinf var-nan) "(Note: %s has built-in meanings which may interfere)" calc-refresh-evaltos] 7]) (defalias 'calc-var-name #[(var) "9ƒ Á!ÂÃ\"ƒÄÅO‡‡" [var symbol-name string-match "\\`var-." 4 nil] 3]) (defalias 'calc-store-binary #[(var tag func &optional val) "ÀÁ!‡" [calc-do #[nil "Á=ƒ\n‚  †ÄÅ!„#ÈÉÊ \"!…ƒÌ!‰ „:ÎÏÐ!\"ˆ ;ƒFÑ !  ¢Î=ƒVÎÒÓ 8\"ˆÔÕÖ ƒi E‚p E! ?…yÅ$ˆØÙÐ!\")*‡" [calc-simplify-mode none num val calc-top 1 value var calc-read-var-name format "Store %s: " tag calc-var-value old error "No such variable: \"%s\"" calc-var-name math-read-expr "Bad format in variable contents: %s" 2 calc-store-value calc-normalize calc-is-inverse func message "Stored to variable \"%s\""] 7]] 2]) (defalias 'calc-read-var-name #[(prompt &optional calc-store-opers) "ÀÀ ÄÅÉ\nË\fÀ$+ Î Κ?…o Ëš?…oÏÐ \"ƒk„=ÒÓ!‚oÔ ÕÖ•O!ÕØ Õ•ÀO!‰¢Ò=ƒaÒÙÚ 8\"ˆÛ !)‚oÔ !)‡" [nil calc-given-value calc-aborted-prefix obarray boundp t minibuffer-completion-confirm minibuffer-completion-predicate minibuffer-completion-table read-from-minibuffer prompt "var-" calc-var-name-map var "" string-match "\\`\\([-a-zA-Z0-9]+\\) *:?=" calc-given-value-flag error "Assignment is not allowed in this command" intern 0 1 svar math-read-expr "Bad format: %s" 2 math-evaluate-expr] 6]) (byte-code "ÀÀ‡" [nil calc-given-value-flag] 1) #@41 Keymap for reading Calc variable names. (defvar calc-var-name-map nil (#$ . 4105)) (byte-code "„Á\n!ÃÄÅ#ˆÆÇÈ\"ˆÆÉÊ\"ˆÁ‡" [calc-var-name-map copy-keymap minibuffer-local-completion-map define-key " " self-insert-command mapcar #[(x) "À  !Ä#‡" [define-key calc-var-name-map char-to-string x calcVar-digit] 4] "0123456789" #[(x) "À  !Ä#‡" [define-key calc-var-name-map char-to-string x calcVar-oper] 4] "+-*/^|"] 4) (defalias 'calcVar-digit #[nil "ÀÁ!ƒ\nÃ=ƒÄ ‡ÅcˆÆ ‡ÇÈ!‡" [calc-minibuffer-contains "var-\\'" calc-store-opers 0 beep "q" self-insert-and-exit self-insert-command 1] 2 nil nil]) (defalias 'calcVar-oper #[nil "Á=ƒÂÃ!ƒÄ ˆÅ ‡ÆÇ!‡" [calc-store-opers t calc-minibuffer-contains "var-\\'" erase-buffer self-insert-and-exit self-insert-command 1] 2 nil nil]) (defalias 'calc-store-map #[(&optional oper var) "ÀÁ!‡" [calc-do #[nil "ÀÂÃ\f ›\"Ç †ÊË!‰ @\f „+ÎÏÐÑ 8\"!  …´Ò !†>ÓÔÕ !\"×=ƒIØ‚K\fÙV…ZÚ\fST\"ÝÞ!ˆßà!ˆ;ƒtá!¢Ó=ƒ„ÓâÑ8\"ˆã ƒ“äC\"‚šäC\"å æ A@B!Ñ 8\fS\\$+-‡" [nil sel-mode mapcar calc-get-stack-element calc-stack-top calc-stack calc-dollar-values 0 calc-dollar-used oper calc-get-operator "Store Mapping" nargs var calc-read-var-name format "Store Mapping %s: " 2 calc-var-value error "No such variable: \"%s\"" calc-var-name calc-simplify-mode none num 1 calc-top-list values old message "Working..." calc-set-command-flag clear-message math-read-expr "Bad format in variable contents: %s" calc-is-inverse append calc-store-value calc-normalize] 7]] 2 nil nil]) (defalias 'calc-store-exchange #[(&optional var) "ÀÁ!‡" [calc-do #[nil "ÀÁÀ „ÆÇ! …HÈ !‰ „\"ÊËÌ !\"ˆ ¢Í=ƒ/ÊÎ \"ˆ\f†6ÏÁ!Ð \nÀ#ˆÑ ÒÌ !P #)+‡" [nil 1 top calc-given-value-flag calc-given-value var calc-read-var-name "Exchange with: " calc-var-value value error "No such variable: \"%s\"" calc-var-name special-const "%s is a special constant" calc-top calc-store-value calc-pop-push-record "<>"] 6]] 2 nil nil]) (defalias 'calc-unstore #[(&optional var) "ÀÁ!‡" [calc-do #[nil "„ÁÂ!…CÃ>ƒ Ä!¢Å=ƒ ÆÇ\"ˆÈ!ƒ5Jƒ5ÆÉÊ!\"ˆ‚<ÆËÊ!\"ˆÌ!ˆÍ!‡" [var calc-read-var-name "Unstore: " (var-e var-i var-pi var-phi var-gamma) calc-var-value special-const message "(Note: Built-in definition of %s has been lost)" boundp "Unstored variable \"%s\"" calc-var-name "Variable \"%s\" remains unstored" makunbound calc-refresh-evaltos] 4]] 2 nil nil]) (defalias 'calc-let #[(&optional var) "ÀÁ!‡" [calc-do #[nil "ÀÂÀÀ„ÇÈ! ƒ ÉÂ!‚'ÉÂ!ÉÊ!ƒ4 BC‚7Ë !‰…zÌ TÍÎ@@!PÏÐ\"ÒŽ‰ƒu@@Ô@A!LˆÕ@@!ˆA‰„YÖ\f!+#,‡" [nil calc-given-value 1 calc-given-value-flag thing value var calc-read-var-name "Let variable: " calc-top 2 calc-is-assignments calc-pop-push-record "=" calc-var-name mapcar #[(v) "À @!…\n @J‡" [boundp v] 2] saved-val ((byte-code "ƒ\"@ƒ @@@Lˆ‚ @@!ˆA A‚à ‡" [saved-val var makunbound calc-handle-whys] 2)) vv calc-normalize calc-refresh-evaltos math-evaluate-expr] 7]] 2 nil nil]) (defalias 'calc-is-assignments #[(value) "¢Á>ƒA@¢Â=…YÃA@8Ã8BC‡¢Ä=…YÅA‰ƒQ@¢Ç>ƒQ@A@¢Â=ƒQÃ@A@8Ã@8BB‚%?…X)‡" [value (calcFunc-eq calcFunc-assign) var 2 vec nil vv (calcFunc-eq calcFunc-assign)] 3]) (defalias 'calc-recall #[(&optional var) "ÀÁ!‡" [calc-do #[nil "„ÁÂ!…GÃ!‰„ÅÆÇ!\"ˆ\f;ƒ$È\f!\f¢Å=ƒ2ÅÉÊ\f8\"ˆË\f!Ì Î\fÏÇ!P\"ˆ)Ð\f!)‡" [var calc-read-var-name "Recall: " calc-var-value value error "No such variable: \"%s\"" calc-var-name math-read-expr "Bad format in variable contents: %s" 2 calc-normalize nil calc-full-trail-vectors calc-record "<" calc-push] 6]] 2 nil nil]) (defalias 'calc-store-quick #[nil "ÀÁÂÃ\f\"!!‡" [calc-store intern format "var-q%c" last-command-char] 5 nil nil]) (defalias 'calc-store-into-quick #[nil "ÀÁÂÃ\f\"!!‡" [calc-store-into intern format "var-q%c" last-command-char] 5 nil nil]) (defalias 'calc-recall-quick #[nil "ÀÁÂÃ\f\"!!‡" [calc-recall intern format "var-q%c" last-command-char] 5 nil nil]) (defalias 'calc-copy-variable #[(&optional var1 var2) "ÀÁ!‡" [calc-do #[nil "„ÁÂ!…5Ã!‰„ÅÆÇ!\"ˆ „)ÁÊË\"!  …4Ì \fÍ#)‡" [var1 calc-read-var-name "Copy variable: " calc-var-value value error "No such variable: \"%s\"" calc-var-name var var2 format "Copy variable: %s, to: " calc-store-value ""] 5]] 2 nil nil]) (defalias 'calc-edit-variable #[(&optional var) "ÀÁ!ˆÂ ‡" [calc-do #[nil "„Á\nƒÃÄÅ\n!\"‚Æ!„\n…OÇ!‰¢É=ƒ0ÊË\"ˆÌÍÎDDÏÐÅ!P#ˆ…NÑÒ \"Ó±)‡" [var calc-read-var-name calc-last-edited-variable format "Edit: (default %s) " calc-var-name "Edit: " calc-var-value value special-const error "%s is a special constant" calc-edit-mode calc-finish-stack-edit quote t "Editing " math-format-nice-expr screen-width "\n"] 7] calc-show-edit-buffer] 2 nil nil]) (byte-code "ÀÀ‡" [nil calc-last-edited-variable] 1) (defalias 'calc-edit-Decls #[nil "ÀÁ!‡" [calc-edit-variable var-Decls] 2 nil nil]) (defalias 'calc-edit-EvalRules #[nil "ÀÁ!‡" [calc-edit-variable var-EvalRules] 2 nil nil]) (defalias 'calc-edit-FitRules #[nil "ÀÁ!‡" [calc-edit-variable var-FitRules] 2 nil nil]) (defalias 'calc-edit-GenCount #[nil "ÀÁ!‡" [calc-edit-variable var-GenCount] 2 nil nil]) (defalias 'calc-edit-Holidays #[nil "ÀÁ!‡" [calc-edit-variable var-Holidays] 2 nil nil]) (defalias 'calc-edit-IntegLimit #[nil "ÀÁ!‡" [calc-edit-variable var-IntegLimit] 2 nil nil]) (defalias 'calc-edit-LineStyles #[nil "ÀÁ!‡" [calc-edit-variable var-LineStyles] 2 nil nil]) (defalias 'calc-edit-PointStyles #[nil "ÀÁ!‡" [calc-edit-variable var-PointStyles] 2 nil nil]) (defalias 'calc-edit-PlotRejects #[nil "ÀÁ!‡" [calc-edit-variable var-PlotRejects] 2 nil nil]) (defalias 'calc-edit-AlgSimpRules #[nil "ÀÁ!‡" [calc-edit-variable var-AlgSimpRules] 2 nil nil]) (defalias 'calc-edit-TimeZone #[nil "ÀÁ!‡" [calc-edit-variable var-TimeZone] 2 nil nil]) (defalias 'calc-edit-Units #[nil "ÀÁ!‡" [calc-edit-variable var-Units] 2 nil nil]) (defalias 'calc-edit-ExtSimpRules #[nil "ÀÁ!‡" [calc-edit-variable var-ExtSimpRules] 2 nil nil]) (defalias 'calc-declare-variable #[(&optional var) "ÀÁ!‡" [calc-do #[nil "„ ÁÂÃ\"„ÄÅÅÅÅ Å\nËÌ!ƒ,\f¢Í=„0ÍC\f\fA‰ƒž@¢Í=ƒ4@GÎUƒ4@A@‰ \n ¢Í=ƒ…\nA‰\nƒ}\n@¢À=ƒaÏ\n@8=ƒa\n@\n‚™ ¢À=ƒ–Ï 8=„™Å\n\nƒ4ÐÑ!ˆÒÓÔ\"\n…´ÕÏ@8Ã\"\"Ö×\"…ÃØ!‰¢Ù=ƒÔÙÚÏ8\"ˆAƒãÍB‚è@¢Í=ƒþGÏUƒþA@ÛÜÝÞ!C… C#ß\"ˆà\f!\f ¢Í=ƒ< á\n A\"¡ˆ A„Eá@\f\"\f‚Eá@\f\"\fƒ·Ä=?…S\fA‰ƒ{@¢Í=ƒU@GÎUƒUÏ@8šƒUƒ©@AÜ@A@¢Í=ƒ˜@A@‚ŸÍ@A@DÞ!C\" ˆ‚·Ü\fÍÞ!EC\"\fâÌ!-‡" [var calc-read-var-name "Declare: " 0 var-All nil dp decl def row rp calc-var-value var-Decls vec 3 2 calc-unread-command 1 read-string format "Declare: %s to be: " math-format-flat-expr string-match "[^ ]" math-read-exprs error "Bad format in declaration: %s" calc-record append (vec) math-build-var-name "decl" copy-sequence delq calc-refresh-evaltos] 6]] 2 nil nil]) (defalias 'calc-permanent-variable #[(&optional var) "ÀÁ!‡" [calc-do #[nil "„ÁÂ!ÃÅ!ƒJ„ÆÇ!ˆÈÉ\n!!qˆƒ0Ë!ˆ‚4ÌÍ!ˆÎ )‡" [var calc-read-var-name "Save variable (default=all): " nil pos boundp error "No such variable" find-file-noselect substitute-in-file-name calc-settings-file calc-insert-permanent-variable mapatoms #[(x) "ÀÁ !\"…\" \f>?…\"Å !…\" J¢Æ=?…\"Ç !‡" [string-match "\\`var-" symbol-name x calc-dont-insert-variables calc-var-value special-const calc-insert-permanent-variable] 4] save-buffer] 3]] 2 nil nil]) (byte-code "ÀÁ!„ÂÁ BÀ‡" [boundp calc-dont-insert-variables (var-FitRules var-FactorRules var-CommuteRules var-JumpRules var-DistribRules var-MergeRules var-NegateRules var-InvertRules var-IntegAfterRules var-TimeZone var-PlotRejects var-PlotData1 var-PlotData2 var-PlotData3 var-PlotData4 var-PlotData5 var-PlotData6 var-DUMMY) current-load-list] 2) (defalias 'calc-insert-permanent-variable #[(var) "ebˆÀÁ !ÄQÅÆ#ƒDÇ ÉyˆÊË!ƒ)̕ň`|ˆÍ cˆ !GZÎZbˆÏÐ!ˆÑÐ!ˆ`|ˆ‚ZdbˆÒ !ÓÍ Ô !Õ±ˆÑÖ!ˆ×Ø !!cˆÐy‡" [search-forward "(setq " symbol-name var " '" nil t point-marker pos -1 looking-at ";;; Variable .* stored by Calc on " 0 current-time-string 8 forward-sexp 1 backward-char "\n;;; Variable \"" "\" stored by Calc on " "\n(setq " " ')\n" 2 prin1-to-string calc-var-value] 7]) (defalias 'calc-insert-variables #[(buf) "ŠqˆÁÂ!)‡" [buf mapatoms #[(x) "ÀÁ !\"…Z \f>?…ZÅ !…Z J¢Æ=?…Z Ç=ƒ-Èš?…Z É=ƒ; Êš?…ZË !ÌÍÏ>ƒLЂNÑ JÒ\")!Ó±‡" [string-match "\\`var-" symbol-name x calc-dont-insert-variables calc-var-value special-const var-Decls (vec) var-Holidays (vec (var sat var-sat) (var sun var-sun)) "(setq " " " prin1-to-string calc-language (nil big) flat math-format-value 100000 ")\n"] 7]] 2 nil "bBuffer in which to save variable values: "]) (defalias 'calc-assign #[(arg) "ÀÁÂ\"‡" [calc-do #[nil "ÀÁ #‡" [calc-binary-op ":=" calcFunc-assign arg] 4] 19052] 3 nil "P"]) (defalias 'calc-evalto #[(arg) "ÀÁÂ\"‡" [calc-do #[nil "ÀÁ #‡" [calc-unary-op "=>" calcFunc-evalto arg] 4] 19167] 3 nil "P"]) (defalias 'calc-subscript #[(arg) "ÀÁÂ\"‡" [calc-do #[nil "ÀÁ #‡" [calc-binary-op "sub" calcFunc-subscr arg] 4] 19287] 3 nil "P"])