;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2) (defalias 'calc-begin-complex #[nil "\300\301!\207" [calc-do #[nil "\204 \203\f\303\304!\207\305\306\nD!\207" [calc-algebraic-mode calc-incomplete-algebraic-mode calc-complex-mode calc-alg-entry "(" calc-push incomplete] 3]] 2 nil nil]) (defalias 'calc-end-complex #[nil "\300\301!\210\302\303!\207" [calc-comma t calc-do #[nil "\301\302!\211\242\303=\2034A@\304=\2034G\305W\203\306\307\"G\310W\203+\306\311\"\312\302\313A#\202\205\242\303=\203CA@\314>\204G\315\316!\210G\305W\203W\306\317\"\211\202H\3208\211:?\206d\211@\321>\262\203{\3228\211:?\206v\211@\323>\262\204\315\324!\210\312\302\325A#)\207" [top calc-top 1 incomplete intv 4 append ((neg (var inf var-inf))) 5 ((var inf var-inf)) calc-enter-result "..)" (cplx polar) error "Not entering a complex number" (0) 2 (frac float) 3 (frac float hms) "Components must be real" "()"] 5]] 2 nil nil]) (defalias 'calc-begin-vector #[nil "\300\301!\207" [calc-do #[nil "\204 \203\f\302\303!\207\304\305!\207" [calc-algebraic-mode calc-incomplete-algebraic-mode calc-alg-entry "[" calc-push (incomplete vec)] 2]] 2 nil nil]) (defalias 'calc-end-vector #[nil "\300\301!\210\302\303!\207" [calc-comma t calc-do #[nil "\301\302!\211\242\303=\203=A@\304=\203=G\305W\203\306\307\"G\310W\203+\306\311\"AA\3128T\240\210\313\302\314A#\202V\242\303=\203LA@\315=\204P\316\317!\210\320\302\321A#)\207" [top calc-top 1 incomplete intv 4 append ((neg (var inf var-inf))) 5 ((var inf var-inf)) 2 calc-enter-result "..]" vec error "Not entering a vector" calc-pop-push-record "[]"] 5]] 2 nil nil]) (defalias 'calc-comma #[(&optional allow-polar) "\300\301!\207" [calc-do #[nil "\306 \233\307\"\211\310U\203\311\312!\210\313\n!\314\nS!\315 \f\"\f\204K\204K A@\316=\2047 G\317W\203K\315 \211G\320U\203D\321\202I GS \233\"\204r A@\322=\203b\315\323 AA\"\202r A@\324=\203r\315\325 AAA\" A@\326>\203\205 G\317V\203\205\311\327!\210 A@\324=\203\230 G\330V\203\230\311\331!\210\332\n \",\207" [calc-stack-top calc-stack num inc stuff new calc-find-first-incomplete 1 0 error "Not entering a vector or complex number" calc-top calc-top-list append vec 4 2 (0) polar (incomplete cplx) intv (incomplete cplx) (cplx polar) "Too many components in complex number" 5 "Too many components in interval form" calc-pop-push allow-polar] 5]] 2 nil nil]) (defalias 'calc-semi #[nil "\300\301!\207" [calc-do #[nil "\306 \233\307\"\211\310U\203\311\312!\210\313\n!\314\nS!\211A@\315=\203,\316\317\fAA\"\202<\fA@\320=\203<\316\321\fAAA\"\fA@\322=\203k\316\f \"\211G\323V\203W\311\324!\210\202c G\325U\203c\316 \326\"\327\n \")\202\370 \204\226\fG\325V\205\370\325\f8\211\242\330=\262\203\207\331 \202\370\327\307\332\330\fAAE\332\330D#\202\370 @\211\242\330=\262\203\246\331 \202\370\n\\ 8\242\242\332=\203\304\333 \210\331 \210\334\211\335 *\202\370\fG\325U\204\327\325\f8\211\242\330=\262\203\347\327\n\316\f\330 BC\"\332\330D#\202\370\327\n\332\330\211\316\fAA \"BE\332\330D#+\207" [calc-stack-top calc-stack num stuff inc new calc-find-first-incomplete 1 0 error "Not entering a vector or complex number" calc-top calc-top-list cplx append (incomplete polar) intv (incomplete polar) polar 4 "Too many components in complex number" 2 (1) calc-pop-push vec calc-comma incomplete calc-end-vector nil calc-begin-vector calc-incomplete-algebraic-mode calc-algebraic-mode] 9]] 2 nil nil]) (defalias 'calc-digit-dots #[nil "\305=\203*\306\307!\210\310\311!\203\306\307!\210\312\313\n\203\314 \207\315\316\317 \210)\320 \207\306\307!\207" [calc-prev-char last-command-event calc-prev-prev-char calc-digit-value inhibit-read-only 46 delete-char -1 calc-minibuffer-contains ".*\\.\\'" dots 32 calcDigit-nondigit nil t erase-buffer exit-minibuffer] 2]) (defalias 'calc-dots #[nil "\300\301!\207" [calc-do #[nil "\306 \233\307\"\211\310U\203\311\312!\210\313\n!\314\nS!\315 \f\"\211A@\316=\204;\315\317 A@\320=\2035\321\2026\322 AA#\f\204K G\323U\203K\315 \324\" G\325V\203V\311\326!\210\327\n \",\207" [calc-stack-top calc-stack num inc stuff new calc-find-first-incomplete 1 0 error "Not entering an interval form" calc-top calc-top-list append intv (incomplete intv) vec (2) (0) 3 ((neg (var inf var-inf))) 5 "Too many components in interval form" calc-pop-push] 5]] 2 nil nil]) (defalias 'calc-find-first-incomplete #[(stack n) "\204\302\207@\242\242\303=\203 \207\304A T\"\207" [stack n 0 incomplete calc-find-first-incomplete] 3]) (defalias 'calc-incomplete-error #[(a) "A@\301>\203\f\302\303!\207A@\304=\203\302\305!\207A@\306=\203$\302\307!\207\302\310!\207" [a (cplx polar) error "Complex number is incomplete" vec "Vector is incomplete" intv "Interval form is incomplete" "Object is incomplete"] 2]) (provide 'calc-incom)