;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2) (defvar calc-store-keep nil) (defalias 'calc-store #[(&optional var) "\302\303 !)\207" [calc-store-keep var t calc-store-into] 2 nil nil]) (defvar calc-given-value-flag nil) (defalias 'calc-store-into #[(&optional var) "\300\301!\207" [calc-do #[nil "\305\306\n\204 \307\310\311\"\n\2038\n\312\236\211\203 A \2024\313\n \206(\314\306!\315$\316\317\320\n!\f#))\202p\321\314\306!!\211\205p\n\205p\313\n@@\n@A\nA?\205T\315\nA?\205[\306$\316\317\320\n@@!\f#\210)\nA\211\204F\305*\207" [calc-given-value-flag calc-given-value var found msg nil 1 calc-read-var-name "Store: " t ((+ . calc-store-plus) (- . calc-store-minus) (* . calc-store-times) (/ . calc-store-div) (^ . calc-store-power) (| . calc-store-concat)) calc-store-value calc-top "" message "Stored to variable \"%s\"%s" calc-var-name calc-is-assignments] 6]] 2 nil nil]) (defalias 'calc-store-plus #[(&optional var) "\301\302\303#\207" [var calc-store-binary "+" +] 4 nil nil]) (defalias 'calc-store-minus #[(&optional var) "\301\302\303#\207" [var calc-store-binary "-" -] 4 nil nil]) (defalias 'calc-store-times #[(&optional var) "\301\302\303#\207" [var calc-store-binary "*" *] 4 nil nil]) (defalias 'calc-store-div #[(&optional var) "\301\302\303#\207" [var calc-store-binary "/" /] 4 nil nil]) (defalias 'calc-store-power #[(&optional var) "\301\302\303#\207" [var calc-store-binary "^" ^] 4 nil nil]) (defalias 'calc-store-concat #[(&optional var) "\301\302\303#\207" [var calc-store-binary "|" |] 4 nil nil]) (defalias 'calc-store-neg #[(n &optional var) "\302\303\304 [$\207" [var n calc-store-binary "n" /] 5 nil "p"]) (defalias 'calc-store-inv #[(n &optional var) "\302\303\304 [$\207" [var n calc-store-binary "&" ^] 5 nil "p"]) (defalias 'calc-store-incr #[(n &optional var) "\302\303\304 [$\207" [var n calc-store-binary "n" -] 5 nil "p"]) (defalias 'calc-store-decr #[(n &optional var) "\302\303\304 $\207" [var n calc-store-binary "n" -] 5 nil "p"]) (defalias 'calc-store-value #[(var value tag &optional pop) "\306 \203e\307 ! L\210\f\203 \204\310\f!\210\311\312\313 !\nE!\210\2038\314\315 \316\317\320 !#\"\210) \321>\203O\n\242\322=\203O\316\323\320 !\"\202` \324>\203`\n\204`\316\325\320 !\"\326 !\210))\207" [msg var old value pop calc-store-keep "" calc-var-value calc-pop-stack calc-record-undo store symbol-name nil calc-record format ">%s%s" calc-var-name (var-e var-i var-pi var-phi var-gamma) special-const " (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 tag calc-full-trail-vectors] 7]) (defalias 'calc-var-name #[(var) "9\203 \301!\302\303\"\203\304\305O\207\207" [var symbol-name string-match "\\`var-." 4 nil] 3]) (defalias 'calc-store-binary #[(var tag func &optional val) "\300\301!\207" [calc-do #[nil "\306=\203\n\307\202  \206\310\311! \204\312\313\314\f\"! \205\215\315 !\211\242\316=\2035\317\320\321 !\"\210 \204P \322>\203I\317\323\321 !\"\210\202P\317\324\321 !\"\210 ;\203Y\325 ! \242\317=\203g\317\326\327 8\"\210\330 \331\332 \203w\n E\202| \nE!\f ?\205\204\311$\210\333\334\321 !\")*\207" [calc-simplify-mode val value var tag old none num calc-top 1 calc-read-var-name format "Store %s: " calc-var-value special-const error "\"%s\" is a special constant" calc-var-name (var-inf var-uinf var-nan) "\"%s\" is a special variable" "No such variable: \"%s\"" math-read-expr "Bad format in variable contents: %s" 2 calc-store-value calc-normalize calc-is-inverse message "Variable \"%s\" changed" func] 7]] 2]) #@41 Keymap for reading Calc variable names. (defvar calc-var-name-map nil (#$ . 4086)) (byte-code "\204\302 !\303\304\305#\210\306\307\310\"\210\306\311\312\"\210\302\207" [calc-var-name-map minibuffer-local-completion-map copy-keymap define-key " " self-insert-command mapc #[(x) "\302\303 !\304#\207" [calc-var-name-map x define-key char-to-string calcVar-digit] 4] "0123456789" #[(x) "\302\303 !\304#\207" [calc-var-name-map x define-key char-to-string calcVar-oper] 4] "+-*/^|"] 4) #@37 History for reading variable names. (defvar calc-read-var-name-history nil (#$ . 4581)) (defalias 'calc-read-var-name #[(prompt &optional calc-store-opers) "\306\211\307\310\311\312\307\n\"\"\313\314\315\306\306\316%+P\317\307\232?\205m\320\321\"\203i\204;\322\323!\202m\324\325\326\225O!\325\327\325\225\306O!\211\242\322=\203_\322\330\3318\"\210\332!)\202m\324!)\207" [calc-given-value calc-aborted-prefix obarray minibuffer-completion-confirm minibuffer-completion-predicate minibuffer-completion-table nil "var-" mapcar #[(x) "\301\302O\207" [x 4 nil] 3] all-completions #[(x) "\301\302\303P!!\207" [x boundp intern "var-"] 4] t read-from-minibuffer calc-read-var-name-history "" string-match "\\`\\([-a-zA-Zα-ωΑ-Ω0-9]+\\) *:?=" error "Assignment is not allowed in this command" intern 0 1 math-read-expr "Bad format: %s" 2 math-evaluate-expr prompt calc-var-name-map var calc-given-value-flag svar] 8]) (defalias 'calcVar-digit #[nil "\301\302!\203\303=\203\304 \207\305c\210\306 \207\307\310!\207" [calc-store-opers calc-minibuffer-contains "\\'" 0 beep "q" self-insert-and-exit self-insert-command 1] 2 nil nil]) (defalias 'calcVar-oper #[nil "\301=\203\302\303!\203\304 \210\305 \207\306\307!\207" [calc-store-opers t calc-minibuffer-contains "\\'" erase-buffer self-insert-and-exit self-insert-command 1] 2 nil nil]) (defalias 'calc-store-map #[(&optional oper var) "\300\301!\207" [calc-do #[nil "\306\307 \233\"\310\f\206\311\312!\211@&\204#\313\314\315\316\f8\"!&&\205\321\317&!\211'\242\320=\203=\321\322\323&!\"\210'\204\\&\324>\203T\321\325\323&!\"\210\202\\\321\326\323&!\"\210(\327=\203g\330\202i( \331V\205u\332 S T\")(\333\334!\210\335\336!\210';\203\215\337'!''\242\321=\203\235\321\340\316'8\"\210\341 \203\254\342)'C\"\202\263\342'C)\")\343&\344\fA@)B!\316\f8 S\\$\210\333\345\323&!\"+,\207" [calc-stack-top calc-stack calc-dollar-values calc-dollar-used oper nargs mapcar calc-get-stack-element 0 calc-get-operator "Store Mapping" calc-read-var-name format "Store Mapping %s: " 2 calc-var-value special-const error "\"%s\" is a special constant" calc-var-name (var-inf var-uinf var-nan) "\"%s\" is a special variable" "No such variable: \"%s\"" none num 1 calc-top-list 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 "Variable \"%s\" changed" var old calc-simplify-mode values] 7]] 2 nil nil]) (defalias 'calc-store-exchange #[(&optional var) "\300\301!\207" [calc-do #[nil "\305\306\305 \204\307\310! \205W\311 !\211\242\312=\203$\313\314\315 !\"\210\f\204? \316>\2038\313\317\315 !\"\210\202?\313\320\315 !\"\210\n\206F\321\306!\322 \305#\210\323 \324\315 !P\f#)+\207" [top calc-given-value-flag calc-given-value var value nil 1 calc-read-var-name "Exchange with: " calc-var-value special-const error "\"%s\" is a special constant" calc-var-name (var-inf var-uinf var-nan) "\"%s\" is a special variable" "No such variable: \"%s\"" calc-top calc-store-value calc-pop-push-record "<>"] 6]] 2 nil nil]) (defalias 'calc-unstore #[(&optional var) "\300\301!\207" [calc-do #[nil "\204\301\302!\205C\303>\203 \304!\242\305=\203 \306\307\"\210\310!\2035J\2035\306\311\312!\"\210\202<\306\313\312!\"\210\314!\210\315!\207" [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) "\300\301!\207" [calc-do #[nil "\306\307\306\211\f\204\310\311!\203\312\307!\202%\312\307!\312\313!\f\2030\f BC\2023\314 !\211\205q\315 T\316\317\f@@!P\320\321\f\"\322\216\f\211\203l@@\323@A!L\210\324@@!\210A\211\204P\325\n!+#,\207" [calc-given-value calc-given-value-flag thing value var saved-val nil 1 calc-read-var-name "Let variable: " calc-top 2 calc-is-assignments calc-pop-push-record "=" calc-var-name mapcar #[(v) "\301@!\205\n@J\207" [v boundp] 2] #[nil "\203\"@\203 @@@L\210\202\302 @@!\210A A\202\303 \207" [saved-val var makunbound calc-handle-whys] 2] calc-normalize calc-refresh-evaltos math-evaluate-expr vv] 7]] 2 nil nil]) (defalias 'calc-is-assignments #[(value) "\242\302>\203A@\242\303=\205U\304A@8\3048BC\207\242\305=\205U\306A\211\203N@\242\307>\203N@A@\242\303=\203N\304@A@8\304@8B B\202$?\205T )\207" [value vv (calcFunc-eq calcFunc-assign) var 2 vec nil (calcFunc-eq calcFunc-assign)] 3]) (defalias 'calc-recall #[(&optional var) "\300\301!\207" [calc-do #[nil "\204\303\304!\205F\305!\211\204\306\307\310!\"\210 ;\203$\311 ! \242\306=\2032\306\312\313 8\"\210\314 !\315\316 \317\310!P\"\210)\320 !)\207" [var value calc-full-trail-vectors calc-read-var-name "Recall: " calc-var-value error "No such variable: \"%s\"" calc-var-name math-read-expr "Bad format in variable contents: %s" 2 calc-normalize nil calc-record "<" calc-push] 6]] 2 nil nil]) (defalias 'calc-store-quick #[nil "\301\302\303\304\"!!\207" [last-command-event calc-store intern format "var-q%c"] 5 nil nil]) (defalias 'calc-store-into-quick #[nil "\301\302\303\304\"!!\207" [last-command-event calc-store-into intern format "var-q%c"] 5 nil nil]) (defalias 'calc-recall-quick #[nil "\301\302\303\304\"!!\207" [last-command-event calc-recall intern format "var-q%c"] 5 nil nil]) (defalias 'calc-copy-special-constant #[(&optional sconst var) "\301\302\303!)\207" [sc ((#1="") ("e" special-const (math-e)) ("pi" special-const (math-pi)) ("i" special-const (math-imaginary 1)) ("phi" special-const (math-phi)) ("gamma" special-const (math-gamma-const))) calc-do #[nil "\204 \305\306 \307\310$\311\230?\2058\312 \"A \204#\313\314\315\"! \2057\316 \n\311#\317\320\fP\321 !#))\207" [sconst sc value var msg completing-read "Special constant: " nil t #1# assoc calc-read-var-name format "Copy special constant %s, to: " calc-store-value message "Special constant \"%s\" copied to \"%s\"" calc-var-name] 5]] 2 nil nil]) (defalias 'calc-copy-variable #[(&optional var1 var2) "\300\301!\207" [calc-do #[nil "\204\304\305!\205>\306!\211\204\307\310\311!\"\210\n\204(\304\312\313\311!\"!\n\205=\314\n \315#\316\317\311!\311\n! $))\207" [var1 value var2 msg calc-read-var-name "Copy variable: " calc-var-value error "No such variable: \"%s\"" calc-var-name format "Copy variable: %s, to: " calc-store-value "" message "Variable \"%s\" copied to \"%s\"%s"] 6]] 2 nil nil]) (defvar calc-last-edited-variable nil) (defalias 'calc-edit-variable #[(&optional var) "\300\301!\210\302 \207" [calc-do #[nil "\204\303 \203\304\305\306 !\"\202\307!\204 \205M\310!\211\242\311=\203/\312\313\"\210\314\315\316DD\317\320\321\306!\"#\210\n\205L\322\n\323 \"\324\261)\207" [var calc-last-edited-variable value calc-read-var-name format "Edit (default %s): " calc-var-name "Edit: " calc-var-value special-const error "%s is a special constant" calc-edit-mode calc-finish-stack-edit quote t format-message "Editing variable `%s'" math-format-nice-expr frame-width "\n"] 8] calc-show-edit-buffer] 2 nil nil]) (defalias 'calc-edit-Decls #[nil "\300\301!\207" [calc-edit-variable var-Decls] 2 nil nil]) (defalias 'calc-edit-EvalRules #[nil "\300\301!\207" [calc-edit-variable var-EvalRules] 2 nil nil]) (defalias 'calc-edit-FitRules #[nil "\300\301!\207" [calc-edit-variable var-FitRules] 2 nil nil]) (defalias 'calc-edit-GenCount #[nil "\300\301!\207" [calc-edit-variable var-GenCount] 2 nil nil]) (defalias 'calc-edit-Holidays #[nil "\300\301!\207" [calc-edit-variable var-Holidays] 2 nil nil]) (defalias 'calc-edit-IntegLimit #[nil "\300\301!\207" [calc-edit-variable var-IntegLimit] 2 nil nil]) (defalias 'calc-edit-LineStyles #[nil "\300\301!\207" [calc-edit-variable var-LineStyles] 2 nil nil]) (defalias 'calc-edit-PointStyles #[nil "\300\301!\207" [calc-edit-variable var-PointStyles] 2 nil nil]) (defalias 'calc-edit-PlotRejects #[nil "\300\301!\207" [calc-edit-variable var-PlotRejects] 2 nil nil]) (defalias 'calc-edit-AlgSimpRules #[nil "\300\301!\207" [calc-edit-variable var-AlgSimpRules] 2 nil nil]) (defalias 'calc-edit-TimeZone #[nil "\300\301!\207" [calc-edit-variable var-TimeZone] 2 nil nil]) (defalias 'calc-edit-Units #[nil "\300\301!\207" [calc-edit-variable var-Units] 2 nil nil]) (defalias 'calc-edit-ExtSimpRules #[nil "\300\301!\207" [calc-edit-variable var-ExtSimpRules] 2 nil nil]) (defalias 'calc-declare-variable #[(&optional var) "\300\301!\207" [calc-do #[nil "\204 \306\307\310\"\204\311\312\211\312\211\312\313\314!\203'\f\242\315=\204+\315C\f\f A\211\203\206 @\242\315=\203. @G\316U\203. @A@\211\f\242\315=\203q A\211\203k @\242\300=\203S\317 @8=\203S @\202\202\f\242\300=\203\200\317\f8=\204\202\312 \203.\320\321!\210\322\323\324\325!\" \205\234\326\317 @8\310\"\"\327\330\n\"\205\250\331\n!\211\242\332=\203\267\332\333\317\n8\"\210\nA\203\303\315\nB\202\306\n@\n\242\315=\203\330\nG\317U\203\330\nA@\334\335\336\337!C\n\205\345\nC#\340\"\210\341\f!\f\f\242\315=\203\f\342 \fA\"\241\210\fA\204\342 @\f\"\f\202\342 @\f\"\f\n\203z\311=?\205#\f A\211\203D @\242\315=\203$ @G\316U\203$\317 @8\n\232\203$ \203m @A\335 @A@\242\315=\203] @A@\202c\315 @A@D\337!C\"\240\210\202z\335\f\315\337!\nEC\"\f\343\314!-\207" [var dp decl def row rp calc-read-var-name "Declare: " 0 var-All nil calc-var-value var-Decls vec 3 2 calc-unread-command 1 read-string format "Declare: %s to be: " calc-var-name 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]) (defvar 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)) (defalias 'calc-permanent-variable #[(&optional var) "\300\301!\207" [calc-do #[nil "\204\303\304!\305\203\306!\203J\204\307\310!\210\311\312\n!!q\210\203/\313!\210\2023\314\315!\210\316 )\207" [var calc-pv-pos calc-settings-file calc-read-var-name "Save variable (default all): " nil boundp error "No such variable" find-file-noselect substitute-in-file-name calc-insert-permanent-variable mapatoms #[(x) "\302\303\304!\"\205\" >?\205\"\305!\205\"J\242\306=?\205\"\307!\207" [x calc-dont-insert-variables string-match "\\`var-" symbol-name calc-var-value special-const calc-insert-permanent-variable] 4] save-buffer] 3]] 2 nil nil]) (defalias 'calc-insert-permanent-variable #[(var) "eb\210\303\304\305\306 !\307Q\303\310#)\203C\311 \312y\210\313\314!\203+\315\225\303\210`|\210\316 c\210\317\n\320\306 !G#b\210\321\322!\210\312u\210\n`|\210\202Xdb\210\323\306 !\324\316 \325\306 !\326\261\210\327u\210\330\331 !!c\210\322y\207" [case-fold-search var calc-pv-pos nil search-forward "(setq " symbol-name " '" t point-marker -1 looking-at ";;; Variable .* stored by Calc on " 0 current-time-string - 8 forward-sexp 1 "\n;;; Variable \"" "\" stored by Calc on " "\n(setq " " ')\n" -2 prin1-to-string calc-var-value] 7]) (defalias 'calc-insert-variables #[(buf) "rq\210\301\302!)\207" [buf mapatoms #[(x) "\305\306\307!\"\205U >?\205U\310!\205UJ\242\311=?\205U\302=\203,\n\312\232?\205U\303=\2039 \313\232?\205U\314\307!\315\316\f\317>\203I\320\202J\f\321J\322\")!\323\261\207" [x calc-dont-insert-variables var-Decls var-Holidays calc-language string-match "\\`var-" symbol-name calc-var-value special-const (vec) (vec (var sat var-sat) (var sun var-sun)) "(setq " " " prin1-to-string (nil big) flat math-format-value 100000 ")\n"] 7]] 2 nil "bBuffer in which to save variable values: "]) (defalias 'calc-assign #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-binary-op ":=" calcFunc-assign] 4]] 3 nil "P"]) (defalias 'calc-evalto #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "=>" calcFunc-evalto] 4]] 3 nil "P"]) (defalias 'calc-subscript #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-binary-op "sub" calcFunc-subscr] 4]] 3 nil "P"]) (provide 'calc-store)