;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:10:07 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/calc/calc-store.el
;;; in Emacs version 24.0.50.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 "`calc-store.el' was compiled for Emacs 23 or later"))

;;;;;;;;;;;;;;;;;;;;;


(byte-code "\301\302!\210\301\303!\210\304B\305\304!\204\306\304\307\"\210\307\207" [current-load-list require calc-ext calc-macs calc-store-keep default-boundp set-default nil] 3)
(defalias 'calc-store #[(&optional var) "\302\303	!)\207" [calc-store-keep var t calc-store-into] 2 nil nil])
(byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list calc-given-value-flag default-boundp set-default nil] 3)
(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\203A \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 (#$ . 4417))
(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 (#$ . 4912))
(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\310	\n\233\"\311
\206\312\313!\211@'(\204&\314\315\316\317
8\"!((\205\327\320(!\211)\242\321=\203@\322\323\324(!\"\210)\204_(\325>\203W\322\326\324(!\"\210\202_\322\327\324(!\"\210*\330=\203j\331\202l*'\332V\205z\333'S\fT\"+*\334\335!\210\336\337!\210);\203\222\340)!))\242\322=\203\242\322\341\317)8\"\210\342 \203\261\343+)C\"\202\270\343)C+\"+\344(\345
A@+B!\317
8\f'S\\$\210\334\346\324(!\"+-\207" [sel-mode calc-stack-top calc-stack calc-dollar-values calc-dollar-used oper nil 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" nargs 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\fBC\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>\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\317P\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])
(byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list calc-last-edited-variable default-boundp set-default nil] 3)
(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])
(byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list calc-dont-insert-variables default-boundp set-default (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)] 3)
(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\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\202Udb\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!\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)
