Gecko [ 122.154.134.11 ]

Name	Size	Permission
README	7.89 KB	-rw-r--r--
README.prev	31.02 KB	-rw-r--r--
calc-aent.elc	26.85 KB	-rw-r--r--
calc-alg.elc	46.35 KB	-rw-r--r--
calc-arith.elc	81.62 KB	-rw-r--r--
calc-bin.elc	21.53 KB	-rw-r--r--
calc-comb.elc	30.12 KB	-rw-r--r--
calc-cplx.elc	8.5 KB	-rw-r--r--
calc-embed.elc	29.83 KB	-rw-r--r--
calc-ext.elc	108.83 KB	-rw-r--r--
calc-fin.elc	11.84 KB	-rw-r--r--
calc-forms.elc	48.05 KB	-rw-r--r--
calc-frac.elc	5.58 KB	-rw-r--r--
calc-funcs.elc	25.78 KB	-rw-r--r--
calc-graph.elc	35.09 KB	-rw-r--r--
calc-help.elc	19.55 KB	-rw-r--r--
calc-incom.elc	5.29 KB	-rw-r--r--
calc-keypd.elc	15.83 KB	-rw-r--r--
calc-lang.elc	57.72 KB	-rw-r--r--
calc-loaddefs.el	10.61 KB	-rw-r--r--
calc-macs.elc	6.09 KB	-rw-r--r--
calc-map.elc	29.56 KB	-rw-r--r--
calc-math.elc	60.12 KB	-rw-r--r--
calc-menu.elc	32.85 KB	-rw-r--r--
calc-misc.elc	20.54 KB	-rw-r--r--
calc-mode.elc	19.45 KB	-rw-r--r--
calc-mtx.elc	6.77 KB	-rw-r--r--
calc-nlfit.elc	13.59 KB	-rw-r--r--
calc-poly.elc	24.53 KB	-rw-r--r--
calc-prog.elc	51.27 KB	-rw-r--r--
calc-rewr.elc	40.01 KB	-rw-r--r--
calc-rules.elc	17.6 KB	-rw-r--r--
calc-sel.elc	19.83 KB	-rw-r--r--
calc-stat.elc	13.97 KB	-rw-r--r--
calc-store.elc	17.31 KB	-rw-r--r--
calc-stuff.elc	8.07 KB	-rw-r--r--
calc-trail.elc	4.67 KB	-rw-r--r--
calc-undo.elc	3.35 KB	-rw-r--r--
calc-units.elc	37.86 KB	-rw-r--r--
calc-vec.elc	37.25 KB	-rw-r--r--
calc-yank.elc	16.66 KB	-rw-r--r--
calc.elc	101.08 KB	-rw-r--r--
calcalg2.elc	80.01 KB	-rw-r--r--
calcalg3.elc	42.38 KB	-rw-r--r--
calccomp.elc	32.86 KB	-rw-r--r--
calcsel2.elc	6.04 KB	-rw-r--r--

Code Editor : calc-aent.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:34 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/calc/calc-aent.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters
;;; and therefore cannot be loaded into Emacs 21 or earlier.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (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 (#$ . 682))
(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\2020�66\321\322\323\313\324$7\325\3267\"\2118G\327U\203\205�8@\242\330=\203\205�8@G\331U\203\205�8@A@\242\332=\203\205�\3338@A@8\3338@8L\210\334\3338@A@8!\210\3338@8C88\335\3368\337#\2118G\327U\203\367�8@\242\340>\203\367�\nG\341W\203\367�9\342U\203\367�\n\343\3449\3458@\346\")\347\3509\3458@\346\")\347\3339\3458@\346\")8@\250\203\362�8@\316V\203\362�8@\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\206�@9\204\206�\307\310 \311\312\307\211\313\314\307\211\315\316\307\317\320\321\322\307\211\323\307\324\325\326\327\307\211\211\330A@ABCDEFGHIJKLMNOPQRSTUVWX	\203y�	@	A@L\210	AA\211\204j�\331@YZ#.\202ZY\332=\203\223�\332!\202ZY\333=\203\313�\334\335!\210p[\336[!\\\337 ]\\\203\303�\340\216\341\\!\210\342\307Z@#\210)\202\306�\343\213\210+\307\202ZY\344=\203\351�\250\203\344�\345U\204\344�\346\347 ^!\210\347 \202ZY\350=\203\250\205Z\345V\205Z\347 X\205Z\351\352Z@\"\353\"\202ZY\354=\2030\250\205Z\345V\205Z\347 X\205Z\352Z@\"\202Z\307\211^_X\355>\203A\356\202CXX\357\360Z\"`\345a;\203Z\361!\202\\Cb\307cb@\362=\203q\363bA!\202X\357\364b\"b\365^>\203\203\366\367!\210Y\370=\203\244\334\335!\210bG\371U\203\236\372b@!\202X\363\373!\202XY\374=\203\277bG\371U\203\271b@\202X\363\375!\202XY\376=\203\313b\202XY\377>\203bG\371U\203\201d�b@!\203\374Y\201e�=\203\366\351b@\353\"\202Xb@\202X\363\345_\203
\201f�_@!\202\201g�D!\202X\363\201h�!\202XY\201i�=\2031\201j�b!\210\307\202Xb\203Vc\211\205DY\206D\201k�\351b@\353\"QcbA\211b\2046c.)\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-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 ", "] 31)] 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 (#$ . 5279))
(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 (#$ . 6082))
(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 nil (#$ . 6856))
#@49 The keymap used for escapes in algebraic entry.
(defvar calc-alg-ent-esc-map nil (#$ . 6941))
(defalias 'calc-do-alg-entry #[(&optional initial prompt no-normalize history) "p\306\307\204D�\310\f!\311\312\313#\210\311\314\315#\210\311\316\317#\210\311\320\317#\210\321\310+!,
\322W\203C�,A@
\323I\210
T\211\202/�)\311\324\325#\210-\326=\203[�\311\324,#\210\202\205�\311\327\330#\210\311\331\332#\210\311\333\334#\210\311\335\334#\210\311\336\337#\210\311\340\341#\210\311\342\343#\210\325.\344/\206\217�\3450\206\225�\346\3251%2\n\307=\203\260�\3472!\211\242\307=\203\260�\325\350.3\204\301�\n\203\301�\351\352\n\"\n,\207" [calc-buffer blink-paren-function calc-alg-exp calc-alg-ent-map minibuffer-local-map i calcAlg-blink-matching-open error copy-keymap define-key "'" calcAlg-previous "`" calcAlg-edit "
" calcAlg-enter "\n" 33 127 calcAlg-escape "" 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 esc-map calc-alg-ent-esc-map calc-algebraic-mode calc-aborted-prefix prompt initial history buf no-normalize] 7])
(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\f�G\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\205�\212	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-open #[nil "`\306h\306\211\211\212\306\307\310\217\210)\f\203w�\311U\203#�\n\312U\204/�\313U\203w�\n\314U\203w�\212\fb\210\315\316!)\203w�\317 \nH\317 H\320\216\n\312U\203a�\317 \n\321\311BI\210\317 \322\312BI\210\202q�\317 \n\321\313BI\210\317 \322\314BI\210\323 +\202y�\323 .\207" [leftsyntax rightsyntax leftchar rightchar leftpt rightpt nil (byte-code "\303\304\"\211f\303\207" [rightpt leftpt leftchar scan-sexps -1] 4) ((error)) 41 91 93 40 looking-at ".+\$\\.\\.\\|\\\\dots\\|\\\\ldots\$" syntax-table ((byte-code "\304 	I\210\304 \nI\207" [leftchar leftsaved rightchar rightsaved syntax-table] 3)) 4 5 blink-matching-open rightsaved leftsaved] 6])
(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") ("₊" "+") ("₋" "-") ("₍" "(") ("₎" ")")) (#$ . 11285))
#@58 A string consisting of the superscripts allowed by Calc.
(defvar math-read-superscripts "⁰¹²³⁴⁵⁶⁷⁸⁹⁺⁻⁽⁾ⁿⁱ" (#$ . 12174))
#@56 A string consisting of the subscripts allowed by Calc.
(defvar math-read-subscripts "₀₁₂₃₄₅₆₇₈₉₊₋₍₎" (#$ . 12330))
#@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 (#$ . 12479)])
(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 (#$ . 14160))
(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-Z0-9]" regexp-quote "\\`[a-zA-Z0-9]" "\\<" "[a-zA-Z0-9]\\'" "\\>" assoc 0 math-find-user-tokens \? 2 nil] 4])
(defalias 'math-read-token #[nil "	GY\203�\306\307\211\207\310	H9
\311>\2033�T:\203.�\312\313\211\202\f\314 \202\f
;>\203W�\310<\315=	#)=\203W�\316\317	\320\"\320\225\211\202\f
\321Y\203c�
\322X\204o�
\323Y\203\261�
\324X\203\261�\315>?>\203\204�>@>\203\204�\325\202\221�>?>\203\220�\326\202\221�\327	#\210\330\320\225\331\317	\320\"!>\332N\2119\205\f9 \202\f
\333Y\203\275�
\334X\204\367�
\335=\203\315�\315\336	#=\204\367�
\337=\203\315\340	#=\203\320=\204\367�>?>\204\315\341	S#S=\203>A>\203\315\342	#\204
\315\343	#\210\344\317	\320\"\320\225\211\202\f
>\345N\236\2119\2039\3469A@!\2039\346\34798!\202\f
\350=\203i\315\351	#=\203T\352\317	\353\"![\202`\315\354	#\210\320\225\320\224Z\355\320\225\211\202\f
\356=\203\221\315\357	#=\203\206\352\317	\353\"!\320\225\202\213\353T\360\211\202\f\315\361	#=\203\251\316\317	\320\"\320\225\211\202\f
\362=\203\305\315\363	#\203\305\364\317	\353\"\320\225\211\202\f>\365N\2119\203\340\3469@!\203\340\3469A@!\206\f\315\366	#=\203\362\320\225\314 \202\f
>\367N\236\2119\2039A\316\370
!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 "[a-zA-Z0-9_'#]*" "[a-zA-Z0-9_#]*" "[a-zA-Z0-9'#]*" symbol math-restore-dashes math-lang-adjust-words 48 57 46 "\\.[0-9]" 95 "_\\.?[0-9]" "[^])}\"a-zA-Z0-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\336�V\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\203�A@:\203�A@A@@\202�A@\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 (#$ . 22075)])
#@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 (#$ . 22577)])
(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\315�A@:\203\213�A@@!\202\241\315 \210\332\3338!CA@\334=\203\242�C\202\311�C\211D:?\206\261�D@\335>)\203\303�@\336\232\203\303�\337C!\202\311�A@CD)\202\241\n\340=\203U\341!E\315 \210F\232\203\241EG\236H\315 \210HA:\203\377�HA@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�\201d�YZE!\202^\201e�Y\201f�Z\201g�EEY)\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�\201j�YZE!\202\314\345\346!\210\201f�Y\201k�\201f�\201l�Z!\201m�EDEY)\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)

${this.title}

Code Editor : calc-aent.elc