;ELC   
;;; compiled by amu@mit.edu on Wed Dec 18 01:18:59 1996
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/calc-2.02e/calc-lang.el
;;; emacs version 19.30.1.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`calc-lang.el' was compiled for Emacs 19.29 or later"))


(byte-code "!!" [require calc-ext calc-macs] 2)
(defalias 'calc-Need-calc-lang #[nil "" [nil] 1])
(defalias 'calc-set-language #[(lang &optional option no-refresh) "N \nNNN	NN\" NNN5 N> N D#" [lang math-oper-table math-standard-opers math-expr-opers math-function-table math-expr-function-mapping math-variable-table math-expr-variable-mapping math-input-filter calc-language-input-filter math-output-filter calc-language-output-filter math-vector-brackets "[]" calc-vector-brackets math-complex-format calc-complex-format math-radix-formatter calc-radix-formatter math-function-open "(" calc-function-open math-function-close ")" calc-function-close no-refresh calc-language option calc-language-option calc-change-mode (calc-language calc-language-option) t] 4])
(defalias 'calc-normal-language #[nil "!" [calc-do #[nil "!!" [calc-set-language nil message "Normal language mode."] 2]] 2 nil nil])
(defalias 'calc-flat-language #[nil "!" [calc-do #[nil "!!" [calc-set-language flat message "Flat language mode (all stack entries shown on one line)."] 2]] 2 nil nil])
(defalias 'calc-big-language #[nil "!" [calc-do #[nil "!!" [calc-set-language big message "\"Big\" language mode."] 2]] 2 nil nil])
(defalias 'calc-unformatted-language #[nil "!" [calc-do #[nil "!!" [calc-set-language unform message "Unformatted language mode."] 2]] 2 nil nil])
(defalias 'calc-c-language #[nil "!" [calc-do #[nil "!!" [calc-set-language c message "`C' language mode."] 2]] 2 nil nil])
(byte-code "#####" [put c math-oper-table (("u+" ident -1 1000) ("u-" neg -1 1000) ("u!" calcFunc-lnot -1 1000) ("~" calcFunc-not -1 1000) ("*" * 190 191) ("/" / 190 191) ("%" % 190 191) ("+" + 180 181) ("-" - 180 181) ("<<" calcFunc-lsh 170 171) (">>" calcFunc-rsh 170 171) ("<" calcFunc-lt 160 161) (">" calcFunc-gt 160 161) ("<=" calcFunc-leq 160 161) (">=" calcFunc-geq 160 161) ("==" calcFunc-eq 150 151) ("!=" calcFunc-neq 150 151) ("&" calcFunc-and 140 141) ("^" calcFunc-xor 131 130) ("|" calcFunc-or 120 121) ("&&" calcFunc-land 110 111) ("||" calcFunc-lor 100 101) ("?" (math-read-if) 91 90) ("!!!" calcFunc-pnot -1 88) ("&&&" calcFunc-pand 85 86) ("|||" calcFunc-por 75 76) ("=" calcFunc-assign 51 50) (":=" calcFunc-assign 51 50) ("::" calcFunc-condition 45 46)) math-function-table ((acos . calcFunc-arccos) (acosh . calcFunc-arccosh) (asin . calcFunc-arcsin) (asinh . calcFunc-arcsinh) (atan . calcFunc-arctan) (atan2 . calcFunc-arctan2) (atanh . calcFunc-arctanh)) math-variable-table ((M_PI . var-pi) (M_E . var-e)) math-vector-brackets "{}" math-radix-formatter #[(r s) "U \f\"U \f\"\f#" [r 16 format "0x%s" s 8 "0%s" "%d#%s"] 4]] 4)
(defalias 'calc-pascal-language #[(n) "!" [calc-do #[nil " !\"& U& V\" Ƃ' ǂ' !" [n prefix-numeric-value calc-set-language pascal message 0 "Pascal language mode (all uppercase)." "Pascal language mode (all lowercase)." "Pascal language mode."] 3]] 2 nil "P"])
(byte-code "####" [put pascal math-oper-table (("not" calcFunc-lnot -1 1000) ("*" * 190 191) ("/" / 190 191) ("and" calcFunc-and 190 191) ("div" calcFunc-idiv 190 191) ("mod" % 190 191) ("u+" ident -1 185) ("u-" neg -1 185) ("+" + 180 181) ("-" - 180 181) ("or" calcFunc-or 180 181) ("xor" calcFunc-xor 180 181) ("shl" calcFunc-lsh 180 181) ("shr" calcFunc-rsh 180 181) ("in" calcFunc-in 160 161) ("<" calcFunc-lt 160 161) (">" calcFunc-gt 160 161) ("<=" calcFunc-leq 160 161) (">=" calcFunc-geq 160 161) ("=" calcFunc-eq 160 161) ("<>" calcFunc-neq 160 161) ("!!!" calcFunc-pnot -1 85) ("&&&" calcFunc-pand 80 81) ("|||" calcFunc-por 75 76) (":=" calcFunc-assign 51 50) ("::" calcFunc-condition 45 46)) math-input-filter calc-input-case-filter math-output-filter calc-output-case-filter math-radix-formatter #[(r s) "U \f\"\f#" [r 16 format "$%s" s "%d#%s"] 4]] 4)
(defalias 'calc-input-case-filter #[(str) "\n U\f \n\n" [calc-language-option 0 str] 2])
(defalias 'calc-output-case-filter #[(str) "\n U\f \nV \n\n" [calc-language-option 0 str] 2])
(defalias 'calc-fortran-language #[(n) "!" [calc-do #[nil " !\"& U& V\" Ƃ' ǂ' !" [n prefix-numeric-value calc-set-language fortran message 0 "FORTRAN language mode (all uppercase)." "FORTRAN language mode (all lowercase)." "FORTRAN language mode."] 3]] 2 nil "P"])
(byte-code "#####" [put fortran math-oper-table (("u/" (math-parse-fortran-vector) -1 1) ("/" (math-parse-fortran-vector-end) 1 -1) ("**" ^ 201 200) ("u+" ident -1 191) ("u-" neg -1 191) ("*" * 190 191) ("/" / 190 191) ("+" + 180 181) ("-" - 180 181) (".LT." calcFunc-lt 160 161) (".GT." calcFunc-gt 160 161) (".LE." calcFunc-leq 160 161) (".GE." calcFunc-geq 160 161) (".EQ." calcFunc-eq 160 161) (".NE." calcFunc-neq 160 161) (".NOT." calcFunc-lnot -1 121) (".AND." calcFunc-land 110 111) (".OR." calcFunc-lor 100 101) ("!!!" calcFunc-pnot -1 85) ("&&&" calcFunc-pand 80 81) ("|||" calcFunc-por 75 76) ("=" calcFunc-assign 51 50) (":=" calcFunc-assign 51 50) ("::" calcFunc-condition 45 46)) math-vector-brackets "//" math-function-table ((acos . calcFunc-arccos) (acosh . calcFunc-arccosh) (aimag . calcFunc-im) (aint . calcFunc-ftrunc) (asin . calcFunc-arcsin) (asinh . calcFunc-arcsinh) (atan . calcFunc-arctan) (atan2 . calcFunc-arctan2) (atanh . calcFunc-arctanh) (conjg . calcFunc-conj) (log . calcFunc-ln) (nint . calcFunc-round) (real . calcFunc-re)) math-input-filter calc-input-case-filter math-output-filter calc-output-case-filter] 4)
(defalias 'math-parse-fortran-vector #[(op) "\"	@	A)" [(end . " ") math-parsing-fortran-vector math-read-brackets t "]" exp-token exp-data] 3])
(defalias 'math-parse-fortran-vector-end #[(x op) " 	\nB\"" [math-parsing-fortran-vector exp-token exp-data end " " x throw syntax "Unmatched closing `/'"] 3])
(byte-code "" [nil math-parsing-fortran-vector] 1)
(defalias 'math-parse-fortran-subscr #[(sym args) "	!\n 	\n@E\nA 	" [math-build-var-name sym args calcFunc-subscr] 4])
(defalias 'calc-tex-language #[(n) "!" [calc-do #[nil " !\"& U& V\" Ƃ' ǂ' !" [n prefix-numeric-value calc-set-language tex message 0 "TeX language mode with \\hbox{func}(\\hbox{var})." "TeX language mode with \\func{\\hbox{var}}." "TeX language mode."] 3]] 2 nil "P"])
(byte-code "####" [put tex math-oper-table (("u+" ident -1 1000) ("u-" neg -1 1000) ("\\hat" calcFunc-hat -1 950) ("\\check" calcFunc-check -1 950) ("\\tilde" calcFunc-tilde -1 950) ("\\acute" calcFunc-acute -1 950) ("\\grave" calcFunc-grave -1 950) ("\\dot" calcFunc-dot -1 950) ("\\ddot" calcFunc-dotdot -1 950) ("\\breve" calcFunc-breve -1 950) ("\\bar" calcFunc-bar -1 950) ("\\vec" calcFunc-Vec -1 950) ("\\underline" calcFunc-under -1 950) ("u|" calcFunc-abs -1 0) ("|" closing 0 -1) ("\\lfloor" calcFunc-floor -1 0) ("\\rfloor" closing 0 -1) ("\\lceil" calcFunc-ceil -1 0) ("\\rceil" closing 0 -1) ("\\pm" sdev 300 300) ("!" calcFunc-fact 210 -1) ("^" ^ 201 200) ("_" calcFunc-subscr 201 200) ("\\times" * 191 190) ("*" * 191 190) ("2x" * 191 190) ("+" + 180 181) ("-" - 180 181) ("\\over" / 170 171) ("/" / 170 171) ("\\choose" calcFunc-choose 170 171) ("\\mod" % 170 171) ("<" calcFunc-lt 160 161) (">" calcFunc-gt 160 161) ("\\leq" calcFunc-leq 160 161) ("\\geq" calcFunc-geq 160 161) ("=" calcFunc-eq 160 161) ("\\neq" calcFunc-neq 160 161) ("\\ne" calcFunc-neq 160 161) ("\\lnot" calcFunc-lnot -1 121) ("\\land" calcFunc-land 110 111) ("\\lor" calcFunc-lor 100 101) ("?" (math-read-if) 91 90) ("!!!" calcFunc-pnot -1 85) ("&&&" calcFunc-pand 80 81) ("|||" calcFunc-por 75 76) ("\\gets" calcFunc-assign 51 50) (":=" calcFunc-assign 51 50) ("::" calcFunc-condition 45 46) ("\\to" calcFunc-evalto 40 41) ("\\to" calcFunc-evalto 40 -1) ("=>" calcFunc-evalto 40 41) ("=>" calcFunc-evalto 40 -1)) math-function-table ((\\arccos . calcFunc-arccos) (\\arcsin . calcFunc-arcsin) (\\arctan . calcFunc-arctan) (\\arg . calcFunc-arg) (\\cos . calcFunc-cos) (\\cosh . calcFunc-cosh) (\\det . calcFunc-det) (\\exp . calcFunc-exp) (\\gcd . calcFunc-gcd) (\\ln . calcFunc-ln) (\\log . calcFunc-log10) (\\max . calcFunc-max) (\\min . calcFunc-min) (\\tan . calcFunc-tan) (\\sin . calcFunc-sin) (\\sinh . calcFunc-sinh) (\\sqrt . calcFunc-sqrt) (\\tanh . calcFunc-tanh) (\\phi . calcFunc-totient) (\\mu . calcFunc-moebius)) math-variable-table ((\\pi . var-pi) (\\infty . var-inf) (\\infty . var-uinf) (\\phi . var-phi) (\\gamma . var-gamma) (\\sum math-parse-tex-sum calcFunc-sum) (\\prod math-parse-tex-sum calcFunc-prod)) math-complex-format i] 4)
(defalias 'math-parse-tex-sum #[(f val) "\fŚ \" \n =* 	T\n\"\fΚ5 \"  8 A@8\n+" [nil save high low exp-data "_" throw syntax "Expected `_'" math-read-token exp-old-pos math-read-factor calcFunc-eq "Expected equation" "^" "Expected `^'" 2 f] 6])
(defalias 'math-tex-input-filter #[(str) "\n\" \nÉTO\nÕSOP  \n" [string-match "[0-9]\\\\,[0-9]" str 0 nil] 4])
(put (quote tex) (quote math-input-filter) (quote math-tex-input-filter))
(defalias 'calc-eqn-language #[(n) "!" [calc-do #[nil "!!" [calc-set-language eqn message "Eqn language mode."] 2]] 2 nil "P"])
(byte-code "####" [put eqn math-oper-table (("u+" ident -1 1000) ("u-" neg -1 1000) ("prime" (math-parse-eqn-prime) 950 -1) ("prime" calcFunc-Prime 950 -1) ("dot" calcFunc-dot 950 -1) ("dotdot" calcFunc-dotdot 950 -1) ("hat" calcFunc-hat 950 -1) ("tilde" calcFunc-tilde 950 -1) ("vec" calcFunc-Vec 950 -1) ("dyad" calcFunc-dyad 950 -1) ("bar" calcFunc-bar 950 -1) ("under" calcFunc-under 950 -1) ("sub" calcFunc-subscr 931 930) ("sup" ^ 921 920) ("sqrt" calcFunc-sqrt -1 910) ("over" / 900 901) ("u|" calcFunc-abs -1 0) ("|" closing 0 -1) ("left floor" calcFunc-floor -1 0) ("right floor" closing 0 -1) ("left ceil" calcFunc-ceil -1 0) ("right ceil" closing 0 -1) ("+-" sdev 300 300) ("!" calcFunc-fact 210 -1) ("times" * 191 190) ("*" * 191 190) ("2x" * 191 190) ("/" / 180 181) ("%" % 180 181) ("+" + 170 171) ("-" - 170 171) ("<" calcFunc-lt 160 161) (">" calcFunc-gt 160 161) ("<=" calcFunc-leq 160 161) (">=" calcFunc-geq 160 161) ("=" calcFunc-eq 160 161) ("==" calcFunc-eq 160 161) ("!=" calcFunc-neq 160 161) ("u!" calcFunc-lnot -1 121) ("&&" calcFunc-land 110 111) ("||" calcFunc-lor 100 101) ("?" (math-read-if) 91 90) ("!!!" calcFunc-pnot -1 85) ("&&&" calcFunc-pand 80 81) ("|||" calcFunc-por 75 76) ("<-" calcFunc-assign 51 50) (":=" calcFunc-assign 51 50) ("::" calcFunc-condition 45 46) ("->" calcFunc-evalto 40 41) ("->" calcFunc-evalto 40 -1) ("=>" calcFunc-evalto 40 41) ("=>" calcFunc-evalto 40 -1)) math-function-table ((arc\ cos . calcFunc-arccos) (arc\ cosh . calcFunc-arccosh) (arc\ sin . calcFunc-arcsin) (arc\ sinh . calcFunc-arcsinh) (arc\ tan . calcFunc-arctan) (arc\ tanh . calcFunc-arctanh) (GAMMA . calcFunc-gamma) (phi . calcFunc-totient) (mu . calcFunc-moebius) (matrix math-parse-eqn-matrix)) math-variable-table ((inf . var-uinf)) math-complex-format i] 4)
(defalias 'math-parse-eqn-matrix #[(f sym) "\"4   \"  B	B. \"  @ \" 	B!)" [nil vec assoc exp-data (("ccol") ("lcol") ("rcol")) math-read-token calc-function-open throw syntax "Expected `{'" math-read-expr-list calc-function-close "Expected `}'" math-transpose] 3])
(defalias 'math-parse-eqn-prime #[(x sym) "=Y \nD  \n =?   	\n4 =4 \" A@\"!	)BA@!P!8!P!ED" [x var exp-data calc-function-open math-read-token calc-function-close exp-token end math-read-expr-list args throw syntax "Expected `)'" intern format "calcFunc-%s'" symbol-name "'" 2 calcFunc-Prime] 6])
(defalias 'calc-mathematica-language #[nil "!" [calc-do #[nil "!!" [calc-set-language math message "Mathematica language mode."] 2]] 2 nil nil])
(byte-code "########" [put math math-oper-table (("[[" (math-read-math-subscr) 250 -1) ("!" calcFunc-fact 210 -1) ("!!" calcFunc-dfact 210 -1) ("^" ^ 201 200) ("u+" ident -1 197) ("u-" neg -1 197) ("/" / 195 196) ("*" * 190 191) ("2x" * 190 191) ("+" + 180 181) ("-" - 180 181) ("<" calcFunc-lt 160 161) (">" calcFunc-gt 160 161) ("<=" calcFunc-leq 160 161) (">=" calcFunc-geq 160 161) ("==" calcFunc-eq 150 151) ("!=" calcFunc-neq 150 151) ("u!" calcFunc-lnot -1 121) ("&&" calcFunc-land 110 111) ("||" calcFunc-lor 100 101) ("!!!" calcFunc-pnot -1 85) ("&&&" calcFunc-pand 80 81) ("|||" calcFunc-por 75 76) (":=" calcFunc-assign 51 50) ("=" calcFunc-assign 51 50) ("->" calcFunc-assign 51 50) (":>" calcFunc-assign 51 50) ("::" calcFunc-condition 45 46)) math-function-table ((Abs . calcFunc-abs) (ArcCos . calcFunc-arccos) (ArcCosh . calcFunc-arccosh) (ArcSin . calcFunc-arcsin) (ArcSinh . calcFunc-arcsinh) (ArcTan . calcFunc-arctan) (ArcTanh . calcFunc-arctanh) (Arg . calcFunc-arg) (Binomial . calcFunc-choose) (Ceiling . calcFunc-ceil) (Conjugate . calcFunc-conj) (Cos . calcFunc-cos) (Cosh . calcFunc-cosh) (D . calcFunc-deriv) (Dt . calcFunc-tderiv) (Det . calcFunc-det) (Exp . calcFunc-exp) (EulerPhi . calcFunc-totient) (Floor . calcFunc-floor) (Gamma . calcFunc-gamma) (GCD . calcFunc-gcd) (If . calcFunc-if) (Im . calcFunc-im) (Inverse . calcFunc-inv) (Integrate . calcFunc-integ) (Join . calcFunc-vconcat) (LCM . calcFunc-lcm) (Log . calcFunc-ln) (Max . calcFunc-max) (Min . calcFunc-min) (Mod . calcFunc-mod) (MoebiusMu . calcFunc-moebius) (Random . calcFunc-random) (Round . calcFunc-round) (Re . calcFunc-re) (Sign . calcFunc-sign) (Sin . calcFunc-sin) (Sinh . calcFunc-sinh) (Sqrt . calcFunc-sqrt) (Tan . calcFunc-tan) (Tanh . calcFunc-tanh) (Transpose . calcFunc-trn) (Length . calcFunc-vlen)) math-variable-table ((I . var-i) (Pi . var-pi) (E . var-e) (GoldenRatio . var-phi) (EulerGamma . var-gamma) (Infinity . var-inf) (ComplexInfinity . var-uinf) (Indeterminate . var-nan)) math-vector-brackets "{}" math-complex-format I math-function-open "[" math-function-close "]" math-radix-formatter #[(r s) "\n#" [format "%d^^%s" r s] 4]] 4)
(defalias 'math-read-math-subscr #[(x op) "!Ě  Ě \" \n\nE)" [math-read-expr-level 0 idx exp-data "]" math-read-token throw syntax "Expected ']]'" calcFunc-subscr x] 3])
(defalias 'calc-maple-language #[nil "!" [calc-do #[nil "!!" [calc-set-language maple message "Maple language mode."] 2]] 2 nil nil])
(byte-code "####" [put maple math-oper-table (("matrix" ident -1 300) ("MATRIX" ident -1 300) ("!" calcFunc-fact 210 -1) ("^" ^ 201 200) ("**" ^ 201 200) ("u+" ident -1 197) ("u-" neg -1 197) ("/" / 191 192) ("*" * 191 192) ("intersect" calcFunc-vint 191 192) ("+" + 180 181) ("-" - 180 181) ("union" calcFunc-vunion 180 181) ("minus" calcFunc-vdiff 180 181) ("mod" % 170 170) (".." (math-read-maple-dots) 165 165) ("\\dots" (math-read-maple-dots) 165 165) ("<" calcFunc-lt 160 160) (">" calcFunc-gt 160 160) ("<=" calcFunc-leq 160 160) (">=" calcFunc-geq 160 160) ("=" calcFunc-eq 160 160) ("<>" calcFunc-neq 160 160) ("not" calcFunc-lnot -1 121) ("and" calcFunc-land 110 111) ("or" calcFunc-lor 100 101) ("!!!" calcFunc-pnot -1 85) ("&&&" calcFunc-pand 80 81) ("|||" calcFunc-por 75 76) (":=" calcFunc-assign 51 50) ("::" calcFunc-condition 45 46)) math-function-table ((bernoulli . calcFunc-bern) (binomial . calcFunc-choose) (diff . calcFunc-deriv) (GAMMA . calcFunc-gamma) (ifactor . calcFunc-prfac) (igcd . calcFunc-gcd) (ilcm . calcFunc-lcm) (int . calcFunc-integ) (modp . %) (irem . %) (iquo . calcFunc-idiv) (isprime . calcFunc-prime) (length . calcFunc-vlen) (member . calcFunc-in) (crossprod . calcFunc-cross) (inverse . calcFunc-inv) (trace . calcFunc-tr) (transpose . calcFunc-trn) (vectdim . calcFunc-vlen)) math-variable-table ((I . var-i) (Pi . var-pi) (E . var-e) (infinity . var-inf) (infinity . var-uinf) (infinity . var-nan)) math-complex-format I] 4)
(defalias 'math-read-maple-dots #[(x op) "\n\f8!F" [intv 3 x math-read-expr-level op] 6])
(defalias 'math-read-big-rec #[(h1 v1 h2 v2 &optional baseline prec short) " \nW \n\nT$ \nT \nW5 S$5 S \nTX \nXN \n8GVS \n\"\n	\n\n8G^O!= A@\\\n8#W \nT$ T W S\n$ S \n\nWt@G^WgHUgHUXTWTHU,S\"U,T\"UXTWEHU/VgggHTA \n\"~\n$T$!!\"E*~UWT\"UT#\nT&TS\"U\\\"U#T\"U\nT&T&\\TT(%D	~UTS\"UT\nS&T&\nT&TS\"UTT%D	~U1T\"U18#U1\nT&TT&S\n&ST&T\nS$TTS$E~UTT\n&D	\n~U\nT&TT&T$S\n&ST&S\"23UT3US#3UT\nS%#2\n2S%D23US\"UBBS\"U0S#3UX@!H8!O#B3U@!p8!w#@ B*~A UT\"A UT\"A U\"UT\"A UT\"A U\n&BCDCTE #BBUBF #BCT$B\"G >NCT\"A UNTCU\"UeT\"UyTSF #D\"UTTS&DDZͥ\\H B+~A U\nT&TT&TE $S\n&ST&\nS%BS\"US\"I >K=VAVSF #UTE #J \nS%CS\"UK BB~H B~L U8M #\n&T&T%~N YO XP Y6Q X68R #S \"\n&T&\"UT \"pU !zU V P!T\n&T&$S\n&ST&\nS%BS\"US\"US#B~W U X !!T \"&U !0U Y P!E~8Z #UT[ #\\ S \"!\n&T&((U] #((8G^WHUTY$	\n$,	^ \n$E,	\n$,	_ $EW)\n\nT$h	TT$h	` #h	a S \"b\"	8Y)\n	c #=)\nd )\nK 8e =	A@D,	@f \n\n(&g\n(\"h U	\n(i #A@g\nT\n(K 8&F\n),	A@\n(K 8&E\n.	(	\njE\n\nUE\n(\".\n" [prec 0 v1 v2 math-read-big-emptyp h1 h2 lines math-read-big-error the-baseline the-h2 math-read-expr error 2 nil widest widest-h2 lines-v1 p v other-v other-char line len h 32 45 math-read-big-char math-read-big-rec den num math-integerp math-make-frac / 92 124 "Malformed root sign" t 95 calcFunc-sqrt baseline 86 40 string-match "( *)" calcFunc-choose neg 250 math-read-big-balance "(" hmid sep 46 93 "Expected `)'" 41 intv 1 44 math-realp "Complex components must be real" cplx 59 math-anglep polar 91 hright hleft vtop "[" "Expected `]'" (32 44) vec (59 41) math-read-big-big-rec 3 60 ">" 97 122 65 90 "\\([a-zA-Z'_]+\\) *" math-match-substring "-" intern "calcFunc-" var math-remove-dashes "var-" "_?\\([0-9]+.?0*@ *\\)?\\([0-9]+.?0*' *\\)?\\([0-9]+\\(#\\|\\^\\^\\)[0-9a-zA-Z:]+\\|[0-9]+:[0-9:]+\\|[0-9.]+\\([eE][-+_]?[0-9]+\\)?\"?\\)?" "Expected a number" math-read-number "Inconsistent baseline in formula" ^ calcFunc-subscr "<=\\|>=\\|\\+/-\\|!=\\|&&\\|||\\|:=\\|=>\\|." assoc math-standard-opers ",\\|;\\|\\.\\.\\|)\\|\\]\\|:" ("2x" * 196 195) -1 "?" y 58 "Expected `:'" short] 12])
(defalias 'math-read-big-char #[(h v) "	Y2 \nW2 \fY2 W2 8. GW. H)3 ȇ" [h h1 h2 v v1 v2 lines line 32] 3])
(defalias 'math-read-big-emptyp #[(eh1 ev1 eh2 ev2 &optional what error) "	W 	\nW \fV V$ , \n\f\fW @G^\f\fS\f\nY[ @\fHUD y \f\nYy \f;v w #\f\nW TA5 \fY*" [ev1 v1 eh1 h1 ev2 v2 eh2 h2 what 32 lines nil h p error math-read-big-error "Whitespace expected"] 4])
(defalias 'math-read-big-error #[(h v &optional msg) "	\fV \n@G\\\\\nA\fS \n@G^\\/ E\n\"*" [0 lines p pos v 1 h error msg "Syntax error" err-msg throw syntax nil] 4])
(defalias 'math-read-big-balance #[(h v what &optional commas) "	8\nG^V \fY4 	- 	\"#\f ǉ \nH>E T u Uu \nH>~ \nH= T\fW \nTH={ \nH> ST\f +" [v lines line h2 len 1 count 0 h what math-read-big-error h1 format "Unmatched `%s'" (40 91) commas (41 93 44 59) 46 (41 93)] 7])
