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

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


(byte-code "\300\301!\210\300\302!\207" [require calc calc-macs] 2)
#@34 The history list for quick-calc.
(defvar calc-quick-calc-history nil (#$ . 616))
(defalias 'calc-do-quick-calc #[nil "\306\307!\210\310 \210\311=\203\312\313!\207\314\211\212\315 \210\314\f\3164\31356\317>\203.\320\202066\321\322\323\313\324$7\325\3267\"\2118G\327U\203\2058@\242\330=\203\2058@G\331U\203\2058@A@\242\332=\203\205\3338@A@8\3338@8L\210\334\3338@A@8!\210\3338@8C88\335\3368\337#\2118G\327U\203\3678@\242\340>\203\367\nG\341W\203\3679\342U\203\367\n\343\3449\3458@\346\")\347\3509\3458@\346\")\347\3339\3458@\346\")8@\250\203\3628@\316V\203\3628@\351W\203\362\352\3538@\"\202\363\322\354\260	\nG\355 W\203&7G\327U\203&\356\307!\203&\3457@\346\"\357\nQ\211:G\355 \350ZX\203%:)\360 \210\361\362\n\"\210.;\342=\203<	c\202?\363	!*\207" [major-mode shortbuf buf calc-command-flags calc-quick-prev-results calc-dollar-values require calc-ext calc-check-defines calc-mode calc-algebraic-entry t nil calc-create-buffer 0 (nil big) flat calc-do-alg-entry "" "Quick calc: " calc-quick-calc-history mapcar math-evaluate-expr 1 calcFunc-assign 3 var 2 calc-refresh-evaltos mapconcat #[(x) "\301\302\"\207" [x math-format-value 1000] 3] " " (nil bigpos bigneg) 20 10 "  (" 16 math-format-value 1000 ", " 8 127 format ", \"%c\"" ")" frame-width featurep " =>  " calc-handle-whys message "Result: %s" kill-new calc-dollar-used enable-recursive-minibuffers calc-language entry alg-exp calc-number-radix long last-command-event] 11])
(defalias 'calc-do-calc-eval #[(str separator args) "\300 \210\301\302\215\207" [calc-check-defines calc-error (byte-code "\212\306 \210:\203\211@9\204\211\307\310 \311\312\307\211\313\314\307\211\211\315\316\307\317\320\321\322\307\211\323\307\324\325\326\327\307\211\211\330A@ABCDEFGHIJKLMNOPQRSTUVWXY	\203|	@	A@L\210	AA\211\204m\331@Z[#.\202]Z\332=\203\226\332!\202]Z\333=\203\316\334\335!\210p\\\336\\!]\337 ^]\203\306\340\216\341]!\210\342\307[@#\210)\202\311\343\213\210+\307\202]Z\344=\203\354\250\203\347\345U\204\347\346\347 ^!\210\347 \202]Z\350=\203\250\205]\345V\205]\347 X\205]\351\352[@\"\353\"\202]Z\354=\2033\250\205]\345V\205]\347 X\205]\352[@\"\202]\307\211_`Y\355>\203D\356\202FYY\357\360[\"a\345b;\203]\361!\202_Cc\307dc@\362=\203t\363cA!\202[\357\364c\"c\365_>\203\206\366\367!\210Z\370=\203\247\334\335!\210cG\371U\203\241\372c@!\202[\363\373!\202[Z\374=\203\302cG\371U\203\274c@\202[\363\375!\202[Z\376=\203\316c\202[Z\377>\203 cG\371U\203\201ec@!\203\377Z\201f=\203\371\351c@\353\"\202[c@\202[\363\345`\203\201g`@!\202\201hD!\202[\363\201i!\202[Z\201j=\2034\201kc!\210\307\202[c\203Yd\211\205GZ\206G\201l\351c@\353\"QdcA\211c\2049d.)\207" [str strp calc-display-working-message calc-simplify-mode calc-display-strings calc-infinite-mode calc-create-buffer nil math-standard-ops 12 32 deg 10 "." (":" nil) "%s@ %s' %s\"" ((H ":" mm C SS pp " ") Www " " Mmm " " D ", " YYYY) (float 0) (float 0) t "," "[]" (R O) cplx lots calc-do-calc-eval eval macro require calc-ext get-buffer-window selected-window ((byte-code "\301!\203\n\302!\210\301\207" [save-window window-point select-window] 2)) select-window calc-execute-kbd-macro ((byte-code "\303\304 !\210\305!\210\306	\307\n@#\207" [calc-buffer str args select-window get-largest-window switch-to-buffer calc-execute-kbd-macro nil] 4)) pop 0 calc-pop calc-stack-size top math-format-value calc-top-n 1000 rawtop (nil big) flat mapcar #[(x) ";\203\301!\211\242\302=\203\303\304\305A!\"\207@\207\207" [x math-read-exprs error throw calc-error calc-eval-error] 5] math-read-exprs error calc-eval-error calc-normalize clear-message message "" pred 1 math-is-true (0 "Single value expected") raw (0 "Single value expected") list (num rawnum) calc-complex-mode calc-matrix-brackets calc-vector-brackets calc-vector-commas calc-break-vectors calc-full-vectors calc-matrix-just calc-complex-format calc-full-float-format calc-float-format calc-date-format calc-hms-format calc-prefer-frac calc-frac-format calc-point-char calc-group-digits calc-leading-zeros calc-twos-complement-mode calc-number-radix calc-angle-mode calc-matrix-mode calc-symbolic-mode calc-word-size calc-internal-prec math-expr-opers calc-language separator args calc-buffer calc-window save-window calc-command-flags calc-next-why calc-dollar-values calc-dollar-used res buf math-constp num calc-explain-why "Number expected" (0 "Single value expected") push calc-push-list ", "] 32)] 2])
#@216 Determines how calc handles errors.
If nil, return a list containing the character position of error.
STRING means return error message as string rather than list.
The value t means abort and give an error message.
(defvar calc-eval-error nil (#$ . 5243))
(defalias 'calc-eval-error #[(msg) "\203\302=\203	A@\207\303\304	A@\"\207	\207" [calc-eval-error msg string error "%s"] 3])
(defalias 'calc-auto-algebraic-entry #[(&optional prefix) "\301\302\"\207" [prefix calc-algebraic-entry t] 3 nil "P"])
(defalias 'calc-algebraic-entry #[(&optional prefix auto) "\300\301!\207" [calc-do #[nil "?\205	\203\305 \202\306 \307\205\310\f!!*\207" [prefix calc-language math-expr-opers auto last-command-event math-standard-ops math-expr-ops calc-alg-entry char-to-string] 3]] 2 nil "P"])
#@30 History for algebraic entry.
(defvar calc-alg-entry-history nil (#$ . 6046))
(defalias 'calc-alg-entry #[(&optional initial prompt) "\306\307\310	\n\233\"\311\312\313\312\314$\211;\203'\315\316!\210\317!\202\201\320=\2032\321\2024\307\322\"\203~\323\324\316!\203O@\202R@\325\"\210\326\f@@\232?\205i\324\316!\205i\327@C#\210AA\311\202=*\330 -\207" [sel-mode calc-stack-top calc-stack calc-dollar-values calc-dollar-used calc-plain-entry nil mapcar calc-get-stack-element 0 t calc-do-alg-entry calc-alg-entry-history require calc-ext calc-alg-edit 10 none calc-normalize calc-record featurep "alg'" calc-pop-push-record-list "" calc-handle-whys initial prompt alg-exp last-command-event calc-simplify-mode nvals] 6])
#@38 The keymap used for algebraic entry.
(defvar calc-alg-ent-map (byte-code "\302 \303	\"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\312#\210)\207" [map minibuffer-local-map make-sparse-keymap set-keymap-parent define-key "'" calcAlg-previous "`" calcAlg-edit "
" calcAlg-enter "\n"] 4) (#$ . 6820))
#@49 The keymap used for escapes in algebraic entry.
(defvar calc-alg-ent-esc-map (byte-code "\303 \304\305	\n\"\210\306W\203\307	\310!\311#\210T\211\202	*\207" [i map esc-map make-keymap 33 set-keymap-parent 127 define-key vector calcAlg-escape] 5) (#$ . 7150))
(defalias 'calc-do-alg-entry #[(&optional initial prompt no-normalize history) "p\306\307\310\311\312#\210\f\313=\203\310\311
#\210\202E\310\314\315#\210\310\316\317#\210\310\320\321#\210\310\322\321#\210\310\323\324#\210\310\325\326#\210\310\327\330#\210\312 \331!\206O\332\"\206U\333\312#%$\n\307=\203p\334$!\211\242\307=\203p\312\335 %\204\201\n\203\201\336\337\n\"\n,\207" [calc-buffer blink-matching-check-function calc-alg-exp calc-alg-ent-map calc-algebraic-mode calc-alg-ent-esc-map calcAlg-blink-matching-check error define-key "" nil total "+" calcAlg-plus-minus "m" calcAlg-mod "=" calcAlg-equals "
" "p" previous-history-element "n" next-history-element "%" self-insert-command read-from-minibuffer "Algebraic: " "" math-read-exprs "alg'" mapcar calc-normalize calc-aborted-prefix prompt initial history buf no-normalize] 6])
(defalias 'calcAlg-plus-minus #[nil "\300\301!\203	\302c\207\303c\207" [calc-minibuffer-contains ".* \\'" "+/- " " +/- "] 2 nil nil])
(defalias 'calcAlg-mod #[nil "\301\302!\204	\303c\210\301\304!\203\203\305\306\"c\207\307 \207\310c\207" [calc-previous-modulo calc-minibuffer-contains ".* \\'" " " ".* mod +\\'" math-format-flat-expr 0 beep "mod "] 3 nil nil])
(defalias 'calcAlg-previous #[nil "\300\301!\203\n\302\303!\207\304c\207" [calc-minibuffer-contains "\\'" previous-history-element 1 "'"] 2 nil nil])
(defalias 'calcAlg-equals #[nil "\300\216\301 )\207" [((byte-code ":\203\fG\302\303!\210\302\207" [calc-alg-exp prefix-arg calc-unread-command 61] 2)) calcAlg-enter] 1 nil nil])
(defalias 'calcAlg-escape #[nil "\301 \210\212\302 \210\303!\210)\304 \207" [calc-mode-map calc-unread-command calc-select-buffer use-local-map calcAlg-enter] 2 nil nil])
(byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list calc-plain-entry default-boundp set-default nil] 3)
(defalias 'calcAlg-edit #[nil "\203\n\302\303!\203
\304c\207\305 \306 \207" [calc-plain-entry calc-alg-exp calc-minibuffer-contains "\\`\\([^\"]*\"[^\"]*\"\\)*[^\"]*\"[^\"]*\\'" "`" minibuffer-contents exit-minibuffer] 2 nil nil])
(defalias 'calcAlg-enter #[nil "\304 \211G\305V\205r	q\210\306!)\211\242\307=\2038\310 b\210\nA@u\210\311 \210\312\313\314\n8\206/\315\316Q!\210\317 \202F\320\321!\203B\322\202C\n\323 *\207" [str calc-buffer exp calc-alg-exp minibuffer-contents 0 math-read-exprs error minibuffer-prompt-end beep calc-temp-minibuffer-message " [" 2 "Error" "]" calc-clear-unread-commands calc-minibuffer-contains "\\` *\\[ *\\'" ((incomplete vec)) exit-minibuffer] 5 nil nil])
(defalias 'calcAlg-blink-matching-check #[(leftpt rightpt) "Sf	\205		f	\205/\304U\203\n\305U\204'\306U\205/\n\307U\205/\212	b\210\310\311!)?\2057\312	\"*\207" [rightpt leftpt leftchar rightchar 41 91 93 40 looking-at ".+\\(\\.\\.\\|\\\\dots\\|\\\\ldots\\)" blink-matching-check-mismatch] 3])
(defalias 'calc-alg-digit-entry #[nil "\302\303=\203	\304V\203\305\306	\"\202<\307\202<\310=\203%\305\311	\"\202<\312=\203/\313\202<\314=\2039\315\202<\316!!\207" [last-command-event calc-number-radix calc-alg-entry 101 14 format "%d.^" "1e" 35 "%d#" 95 "-" 64 "0@ " char-to-string] 4])
(defalias 'calcDigit-algebraic #[nil "\301\302!\203	\303 \207\304 \305 \207" [calc-digit-value calc-minibuffer-contains ".*[@oh] *[^'m ]+[^'m]*\\'" calcDigit-key minibuffer-contents exit-minibuffer] 2 nil nil])
(defalias 'calcDigit-edit #[nil "\301 \210\302 \303 \207" [calc-digit-value calc-unread-command minibuffer-contents exit-minibuffer] 1 nil nil])
#@88 A list whose elements (old new) indicate replacements to make
in Calc algebraic input.
(defvar math-read-replacement-list '(("Â±" "+/-") ("Ã—" "*") ("Ã·" ":") ("âˆ’" "-") ("âˆ•" "/") ("âˆ—" "*") ("âˆž" "inf") ("â‰¤" "<=") ("â‰¥" ">=") ("â‰¦" "<=") ("â‰§" ">=") ("Âµ" "Î¼") ("Â¼" "(1:4)") ("Â½" "(1:2)") ("Â¾" "(3:4)") ("â…“" "(1:3)") ("â…”" "(2:3)") ("â…•" "(1:5)") ("â…–" "(2:5)") ("â…—" "(3:5)") ("â…˜" "(4:5)") ("â…™" "(1:6)") ("â…š" "(5:6)") ("â…›" "(1:8)") ("â…œ" "(3:8)") ("â…�" "(5:8)") ("â…ž" "(7:8)") ("â…Ÿ" "1:") ("â�°" "0") ("Â¹" "1") ("Â²" "2") ("Â³" "3") ("â�´" "4") ("â�µ" "5") ("â�¶" "6") ("â�·" "7") ("â�¸" "8") ("â�¹" "9") ("â�º" "+") ("â�»" "-") ("â�½" "(") ("â�¾" ")") ("â�¿" "n") ("â�±" "i") ("â‚€" "0") ("â‚�" "1") ("â‚‚" "2") ("â‚ƒ" "3") ("â‚„" "4") ("â‚…" "5") ("â‚†" "6") ("â‚‡" "7") ("â‚ˆ" "8") ("â‚‰" "9") ("â‚Š" "+") ("â‚‹" "-") ("â‚�" "(") ("â‚Ž" ")")) (#$ . 10986))
#@58 A string consisting of the superscripts allowed by Calc.
(defvar math-read-superscripts "â�°Â¹Â²Â³â�´â�µâ�¶â�·â�¸â�¹â�ºâ�»â�½â�¾â�¿â�±" (#$ . 11887))
#@56 A string consisting of the subscripts allowed by Calc.
(defvar math-read-subscripts "â‚€â‚�â‚‚â‚ƒâ‚„â‚…â‚†â‚‡â‚ˆâ‚‰â‚Šâ‚‹â‚�â‚Ž" (#$ . 12043))
#@53 Replace some substrings of STR by Calc equivalents.
(defalias 'math-read-preprocess-string #[(str) "\305\306\307Q\310	#\305\306\n\307Q\311	#\211\203*\305\f@@\f@A@	#\fA\211\204)	\207" [math-read-superscripts str math-read-subscripts math-read-replacement-list rep-list replace-regexp-in-string "[" "]+" "^(\\&)" "_(\\&)"] 5 (#$ . 12192)])
(defalias 'math-read-exprs #[(math-exp-str) "\306\211\307\211\211\310
!>\203\311
!\203$
!\312\313
\"\211\203=
\306	O\314
	\315\\\307OQ\202$\316 \210\317 \210\320\321\215\211;\203U\322E\202d	\323\232\203`\202d\322\324E.\207" [math-expr-data math-exp-token math-exp-keep-spaces math-exp-old-pos math-exp-pos math-exp-str 0 nil math-read-preprocess-string math-remove-percentsigns string-match "\\.\\.\\([^.]\\|.[^.]\\)" "\\dots" 2 math-build-parse-table math-read-token syntax (math-read-expr-list) error end "Syntax error" calc-language calc-lang-allow-percentsigns calc-language-input-filter val] 6])
(defalias 'math-read-expr-list #[nil "\305\306\307!C\211\310\232\203!\311 \210\306\307!C\n\f\241\210\f)\202		+\207" [math-exp-keep-spaces val last math-expr-data rest nil math-read-expr-level 0 "," math-read-token] 3])
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\302\306!\204-\303\306\304\"\210\307B\302\307!\204<\303\307\304\"\210\310B\302\310!\204K\303\310\304\"\210\311B\302\311!\204Z\303\311\304\"\210\304\207" [current-load-list calc-user-parse-table default-boundp set-default nil calc-last-main-parse-table calc-last-user-lang-parse-table calc-last-lang-parse-table calc-user-tokens calc-user-token-chars] 3)
#@74 Tokens to pass between math-build-parse-table and math-find-user-tokens.
(defvar math-toks nil (#$ . 13873))
(defalias 'math-build-parse-table #[nil "\306\236A	\236A	\307N\211
=\203\"=\203\"\n=\206_\310\f\n#\306\211\306\203G\311@@!\210A\211\2047\312\313\314\315\316\"\317\"\320#\f\n\211*+\207" [calc-user-parse-tables calc-language lltab ltab mtab calc-last-main-parse-table nil math-parse-table append math-find-user-tokens mapconcat identity sort mapcar car #[(x y) "G	GV\207" [x y] 2] "\\|" calc-last-user-lang-parse-table calc-last-lang-parse-table math-toks p calc-user-parse-table calc-user-token-chars calc-user-tokens] 7])
(defalias 'math-find-user-tokens #[(p) "\205\207@;\203c@G\304V\204 @\305\232\204 @\306\232\203c\307\310@\"\203c\311@!\307\312	\"\2038\313	P\307\314	\"\203C	\315P\316	\n\"\204_	C\nB@\317H>\204_@\317HB)\202@:\203\320@A@!\210@@\321=\204\320\322@8!\210A\211\204\323\207" [p s math-toks calc-user-token-chars 1 "$" "\"" string-match "[^a-zA-ZÎ±-Ï‰Î‘-Î©0-9]" regexp-quote "\\`[a-zA-ZÎ±-Ï‰Î‘-Î©0-9]" "\\<" "[a-zA-ZÎ±-Ï‰Î‘-Î©0-9]\\'" "\\>" assoc 0 math-find-user-tokens \? 2 nil] 4])
(defalias 'math-read-token #[nil "	GY\203\306\307\211\207\310	H=
\311>\2033T>\203.\312\313\211\202$\314 \202$
?>\203W\310@\315A	#)=\203W\316\317	\320\"\320\225\211\202$
\321Y\203c
\322X\204\207
\323Y\203o
\324X\204\207
\325Y\203{
\326X\204\207
\327Y\203\311
\330X\203\311\315BC>\203\234BD>\203\234\331\202\251BC>\203\250\332\202\251\333	#\210\334\320\225\335\317	\320\"!B\336N\211=\205$= \202$
\337Y\203\325
\340X\204
\341=\203\345\315\342	#=\204
\343=\2033\315\344	#=\2033\320=\204BC>\2043\315\345	S#S=\2033BE>\203\315\346	#\204%\315\347	#\210\350\317	\320\"\320\225\211\202$
B\351N\236\211=\203Q\352=A@!\203Q\352\353=8!\202$
\354=\203\201\315\355	#=\203l\356\317	\357\"![\202x\315\360	#\210\320\225\320\224Z\361\320\225\211\202$
\362=\203\251\315\363	#=\203\236\356\317	\357\"!\320\225\202\243\357T\364\211\202$\315\365	#=\203\301\316\317	\320\"\320\225\211\202$
\366=\203\335\315\367	#\203\335\370\317	\357\"\320\225\211\202$B\371N\211=\203\370\352=@!\203\370\352=A@!\206$\315\372	#=\203\n\320\225\314 \202$
B\373N\236\211=\203=A\316\374
!T\211*\207" [math-exp-pos math-exp-str math-exp-old-pos math-exp-token math-expr-data ch end "" nil (32 10 9) space " " math-read-token string-match punc math-match-substring 0 97 122 65 90 945 969 913 937 "[a-zA-ZÎ±-Ï‰Î‘-Î©0-9_'#]*" "[a-zA-ZÎ±-Ï‰Î‘-Î©0-9_#]*" "[a-zA-ZÎ±-Ï‰Î‘-Î©0-9'#]*" symbol math-restore-dashes math-lang-adjust-words 48 57 46 "\\.[0-9]" 95 "_\\.?[0-9]" "[^])}\"a-zA-ZÎ±-Ï‰Î‘-Î©0-9'$]_" "0[xX][0-9a-fA-F]+" "_?\\([0-9]+.?0*@ *\\)?\\([0-9]+.?0*' *\\)?\\(0*\\([2-9]\\|1[0-4]\\)\\(#[#]?\\|\\^\\^\\)[0-9a-dA-D.]+[eE][-+_]?[0-9]+\\|0*\\([2-9]\\|[0-2][0-9]\\|3[0-6]\\)\\(#[#]?\\|\\^\\^\\)[0-9a-zA-ZÎ±-Ï‰Î‘-Î©:.]+\\|[0-9]+:[0-9:]+\\|[0-9.]+\\([eE][-+_]?[0-9]+\\)?\"?\\)?" number math-lang-read-symbol eval 2 36 "\\$\\([1-9][0-9]*\\)" string-to-number 1 "\\$+" dollar 35 "#\\([1-9][0-9]*\\)" hash "~=\\|<=\\|>=\\|<>\\|/=\\|\\+/-\\|\\\\dots\\|\\\\ldots\\|\\*\\*\\|<<\\|>>\\|==\\|!=\\|&&&\\||||\\|!!!\\|&&\\|||\\|!!\\|:=\\|::\\|=>" 34 "\\(\"\\([^\"\\]\\|\\\\.\\)*\\)\\(\"\\|\\'\\)" string math-lang-read "%%.*$" math-punc-table char-to-string adfn math-exp-keep-spaces calc-user-token-chars case-fold-search calc-user-tokens calc-language calc-lang-allow-underscores calc-lang-allow-percentsigns calc-lang-c-type-hex] 4])
(byte-code "\301B\302\303!\207" [current-load-list math-alg-inequalities (lambda (#1=#:defconst-tmp-var) (defconst math-alg-inequalities #1#)) (calcFunc-lt calcFunc-gt calcFunc-leq calcFunc-geq calcFunc-eq calcFunc-neq)] 2)
(defalias 'math-read-expr-level #[(exp-prec &optional exp-term) "\306 \307 \310\311\211
\203\"\312	$\"\211\203\"\313\211\204\350\314%\"\211\203e\3158\316U\204e\314%>A\"\211\203\350\3178\316U\317\f8\316U?=\203\350\317\f8\316U\320 ?=\203\350\f\211\204\350\202\350\3158\316=\204\227&\321>\204\227%\322\232\204\227%\323\232\203\222'\324N\323\232\204\222(\203\227	\242\325=\204\222\314%\"\211\203\251\3158\316U\204\222
\203\337&\326=\203\337
\211)\203\331)@@@\250\203\320)@@A@%\232\204\331)A\211)\204\273))\204\222\314\327\"\211\203\222*\203\365%*\232\204\222\3158$Y\203\222@\327\232\204\330 \210A@\331>\203\332\333!\210A@:\203%A@@	\"\202\214\3178\316=\203`A@\334=\2039	\202\214A@\335=\203X\3158$=\203Q\336$	\202\214\337\340\341\"\202\214A@	D\202\214\n\204\200A@+>\203\200	\242+>\203\200\332\333!\210\342	\"\202\214A@	\343\3178*\"E\311\202\f	-\207" [math-expr-opers x first op op2 calc-user-parse-table math-expr-ops math-read-factor t nil calc-check-user-syntax ("2x" ident 999999 -1) assoc 2 -1 3 math-factor-after (symbol number dollar hash) "(" "[" math-function-open vec symbol "2x" math-read-token (sdev mod) require calc-ext ident closing 1000 throw syntax "Mismatched delimiters" math-composite-inequalities math-read-expr-level exp-prec math-expr-data math-exp-token calc-language math-exp-keep-spaces p exp-term math-alg-inequalities] 6])
(defalias 'calc-check-user-syntax #[(&optional x prec) "\306\211\211\211\203\203\f@@
\203-	@\250\203|	@Y\203|	A\211@\232\2022	@\232\203| \307	!\211<?\206x\310\311!\210!\306\211\"#$
\203e
B\f@A\211\242\312=\203\212\nG\313U\203\212\314\315\316\n8!#\"#\nA@\211\202j#\203V\n\203V\310\311!\210#@\242\317=\203\356#@\211\"G\313U\204\324\"G\316U\203\322\"A@\242\320=\203\322\"A@G\313U\203\322\"A@\211\"\204\324\306\321\322\316\"8$#!B\"A@$B$\202M#@\242\323=\203<#@G\313U\203<\324\322#@A@$#\316#@8\"\211\"\325=\203\306\202M\"A\211\"\203M\316\"@8B\"@A@$B$\202\326\327\322#@$#!!\204M\306#A\211#\204\217\n\203f\322\n$#\211?\202w \211+,\203\203\fA\211\204\f\f\205\210\n,\207" [calc-user-parse-table rule match matches p x nil calc-match-user-syntax require calc-ext calcFunc-condition 3 append math-flatten-lands 2 calcFunc-let calcFunc-assign math-normalize math-multi-subst calcFunc-matches calcFunc-vmatches 0 math-is-true math-simplify prec math-expr-data math-exp-pos math-exp-old-pos math-exp-token save-exp-data save-exp-token save-exp-old-pos save-exp-pos calc-arg-values temp conds args] 7])
(defalias 'calc-match-user-syntax #[(p &optional term) "\306	\n\306\203@;\203*@\232\203\307 \210\202\377@\250\203I\310\311\215\211\203\f;\204\fC\244\211\202\374@@\312=\203\220\313@A@!\314@8\204p\315\f<\205k\fBC\244\f<\204\377\314@8\203\377\314@8@\316H\317=\203\377\n\320=\202\374\313@A@\314@8@\"\211<\203\353\315\fB\306\211
\313\314@8\206\277@A@\314@8@\"\211<\203\336V\203\336
\244
\202\256
C\244\211+\202\374@@\321=\203\322C\244\211\203A\211\204\203
\323.\207" [math-exp-pos math-exp-old-pos math-exp-token math-expr-data m save-exp-data nil math-read-token syntax (byte-code "\302@A\203A@:\203A@A@@\202A@\202	\"\207" [p term math-read-expr-level] 3) \? calc-match-user-syntax 2 vec 0 36 end * (vec) "Failed" save-exp-token save-exp-old-pos save-exp-pos matches p mm opos] 7])
(defalias 'math-remove-dashes #[(x) "\301\302\"\203\303\304\305\"\306\304\307\"Q!\207\207" [x string-match "\\`\\(.*\\)-\\(.*\\)\\'" math-remove-dashes math-match-substring 1 "#" 2] 6])
(defalias 'math-remove-percentsigns #[(x) "\301\302\"\203\303\304\305\"\306\304\307\"Q!\207\207" [x string-match "\\`\\(.*\\)%\\(.*\\)\\'" math-remove-percentsigns math-match-substring 1 "o'o" 2] 6])
(defalias 'math-restore-dashes #[(x) "\301\302\"\203\303\304\305\"\306\304\307\"Q!\207\207" [x string-match "\\`\\(.*\\)[#_]\\(.*\\)\\'" math-restore-dashes math-match-substring 1 "-" 2] 6])
#@175 Replace placeholders by the proper characters in the symbol x.
This includes `#' for `_' and `'' for `%'.
If the current Calc language does not use placeholders, return nil.
(defalias 'math-restore-placeholders #[(x) "	>\204\f\n>\205,\305!\n>\203\306\307!\210\310\f!	>\203(\311\f!\312\f!)\207" [calc-language calc-lang-allow-underscores calc-lang-allow-percentsigns x sx symbol-name require calccomp math-to-percentsigns math-string-restore-underscores intern-soft] 2 (#$ . 21928)])
#@53 Replace pound signs by underscores in the string x.
(defalias 'math-string-restore-underscores #[(x) "\301\302\"\203\303\304\305\"\306\304\307\"Q!\207\207" [x string-match "\\`\\(.*\\)#\\(.*\\)\\'" math-string-restore-underscores math-match-substring 1 "_" 2] 6 (#$ . 22430)])
(defalias 'math-read-if #[(cond op) "\304\305!	\306\232\204\307\310\311\"\210\312 \210\313\n\304\3148!F)\207" [then math-expr-data cond op math-read-expr-level 0 ":" throw syntax "Expected ':'" math-read-token calcFunc-if 3] 6])
(defalias 'math-factor-after #[nil "\305\211\211\306 \210\n\307>\2060\310	\311\"\203!\310\312	P\f\"\2060\313\310	\f\"8\314=\2060\310	\315\",\207" [math-exp-pos math-expr-data math-exp-token math-exp-old-pos math-expr-opers nil math-read-token (number symbol dollar hash string) assoc (("-") ("+") ("!") ("|") ("/")) "u" 2 -1 (("(") ("[") ("{"))] 4])
(defalias 'math-read-factor #[nil "\306 \307\n\310=\2033\311!\211\204
@\312\313\314\"\210\315 \210A\203.\f:\203.\316\fD\202/\f)\202\241B\203C\317 \211\203C\202\241\320\232\204a\321\232\204a\322\232\204a\323\232\204a\324\232\203j\325P\326 \202\241\327	\"\211\203\315\3308\331=\203\315A@:\203\213A@@!\202\241\315 \210\332\3338!CA@\334=\203\242C\202\311C\211D:?\206\261D@\335>)\203\303@\336\232\203\303\337C!\202\311A@CD)\202\241\n\340=\203U\341!E\315 \210F\232\203\241EG\236H\315 \210HA:\203\377HA@HE\"\202\235I\232\206	\n\342=?\205\343 JI\232\204#\n\342=\204#\312\313\344\"\210\315 \210KL>\203WJ\203W\345\346!\203W\347M\350\351E\341\352\353E!P!E!)\203W\354EJ\"\202\234H\203dHAE\202\227\353E!\355H\356U\203\203\357N!\355W\203\203\341\353E!\360\307O!E\361\320\353E!\"\204\227\341\362\353E!P!EEJB))\202QA\203\253E\202Q\351\341\363\353E!!!\361\320\353E!\"\203\303E\202\313\341\352\353E!P!E\211CA@O\236\206\340\364CA@!O\236\211P\203\nPA:\203\371PA@PC\"\202\351\341\353PA!\365\307O!PAEC)KQ>\203N\366\232\203N\315 \210\343 \211R\2039\367\370CDR@C\"CRA\211R\204$)\371\232\203F\315 \210\202\312\313\372\"\210\202C))\202\241\n\373=\203\232\355V\203e\202g[STGSY\203\211\315 \210U\f]U\374SST8!)\202\226\312\313T\203\224\375\202\225\376\")\202\241\n\377=\203\325V\204\254\312\313\201[\"\210\345\346!\210WGX\203\314\315 \210V\f]V\fSW8)\202\241\312\313\201\\\"\202\241\201]\232\203I\307X\315 \210\201^\232\204\363\201_\232\203\371\201`\202\374\332\355!)Y\307X\201a\232\203d\315 \210\332\355!\211Z\203OY\211D:?\206'D@\201b>)\203OZ\211D:?\206<D@\201b>)\203O\201c\201dYZE!\202^\201eY\201fZ\201gEEY)\202\201h\232\203\322\315 \210\332\355!\211Z\203\261Y\211D:?\206\211D@\201b>)\203\261Z\211D:?\206\236D@\201i>)\203\261\201c\201jYZE!\202\314\345\346!\210\201fY\201k\201f\201lZ!\201mEDEY)\202\201^\232\204\342\201_\232\203\315 \210\201n\232\204\371\371\232\204\371\n\342=\203\377\201o\202\332\355!Z\201p\201n\232\203\355\202\360YZFY))\201n\232\204@\371\232\2035Y\242\201p=\204@\n\342=\204@\312\313\344\"\210\315 \210Y)\202\241\n\201q=\203\\\345\346!\210\201r \202\241\366\232\203q\345\346!\210\201s\201t\371\"\202\241\201u\232\203\210\345\346!\210\201s\307\201v\"\202\241\201w\232\203\233\345\346!\210\201x \202\241\312\313\201y\"*\207" [op math-expr-opers math-exp-token math-expr-data num math-exp-pos math-expr-ops nil number math-read-number throw syntax "Bad format" math-read-token quote calc-check-user-syntax "-" "+" "!" "|" "/" "u" math-read-factor assoc 2 -1 math-read-expr-level 3 ident (bigpos bigneg frac float cplx polar) "u-" math-neg symbol intern end math-read-expr-list "Expected `)'" require calc-ext scalar math-known-matrixp var "var-" symbol-name math-parse-fortran-subscr 0 92 prefix-numeric-value 1 string-match "calcFunc-" math-remove-dashes math-restore-placeholders 4 "[" append calcFunc-subscr "]" "Expected ']'" dollar math-check-complete "Too many $'s" "$'s not allowed in this context" hash math-exp-old-pos math-read-expr-quotes calc-user-parse-table val a sym calc-function-open math-expr-function-mapping f calc-function-close args calc-language calc-lang-parens-are-subscripts calc-matrix-mode calc-language-option math-expr-variable-mapping v calc-lang-brackets-are-subscripts el abs calc-dollar-values calc-dollar-used calc-hashes-used calc-arg-values math-exp-keep-spaces exp exp2 "#'s not allowed in this context" "Too many # arguments" "(" "\\dots" "\\ldots" (neg (var inf var-inf)) "," (bigpos bigneg frac float) math-normalize cplx + * (var i var-i) ";" (bigpos bigneg frac float hms) polar calcFunc-exp math-to-radians-2 (var i var-i) ")" (var inf var-inf) intv string math-read-string math-read-brackets t "{" "}" "<" math-read-angle-brackets "Expected a number"] 8])
(provide 'calc-aent)
