| Current Path : /usr/share/emacs/24.3/lisp/calc/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/calc/calc-store.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:46 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calc/calc-store.el
;;; in Emacs version 24.3.1
;;; 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\2039 \n\312\236\211\203 A \2025 \313\n \206( \314\306!\315$ \316\317\fP\320\n!\"))\202r \321\314\306!!\211\205r \n\205r \313\n@@\n@A\nA?\205U \315\nA?\205\\ \306$ \316\317\fP\320\n@@!\"\210)\nA\211\204G \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\"" 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 (#$ . 4239))
(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 (#$ . 4734))
(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!\2035 J\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] ((byte-code "\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>\203 A@\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 P\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\""] 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\306!\321Q#\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 "Editing variable `" "'. " math-format-nice-expr frame-width "\n"] 7] 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!\203 J\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\302\303\304!\305Q\306\307#\203@ \310 \311y\210\312\313!\203( \314\225\306\210`|\210\315 c\210\316 \317\304!G#b\210\320\321!\210\311u\210 `|\210\202U db\210\322\304!\323\315 \324\304!\325\261\210\326u\210\327\330!!c\210\321y\207" [var calc-pv-pos search-forward "(setq " symbol-name " '" nil 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!\205U J\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)