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-stuff.elc

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

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`calc-stuff.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
#@140 Use the number at the top of stack as the numeric prefix for the next command.
With a prefix, push that prefix as a number onto the stack.
(defalias 'calc-num-prefix #[(n) "\300\301!\207" [calc-do #[nil "\203\f�\303\304\305\306!#\207\307\310!\311	!\203�\312	!	\250\204#�\313\314!\210\315\310!\210	\316\317	\")\207" [n num prefix-arg calc-enter-result 0 "" prefix-numeric-value calc-top 1 math-messy-integerp math-trunc error "Argument must be a small integer" calc-pop-stack message "%d-"] 5]] 2 (#$ . 689) "P"])
(defalias 'calc-more-recursion-depth #[(n) "\300\301!\207" [calc-do #[nil "\303 \203	�\304!\207\203�\305!\202�\306\211\307V\203#�	_\n_)\310\311\n\"\207" [n max-specpdl-size max-lisp-eval-depth calc-is-inverse calc-less-recursion-depth prefix-numeric-value 2 1 message "max-lisp-eval-depth is now %d"] 4]] 2 nil "P"])
(defalias 'calc-less-recursion-depth #[(n) "\203\n�\303!\202�\304\211\305V\203�	\245\306]\n\245\307])\310\311\n\"\207" [n max-specpdl-size max-lisp-eval-depth prefix-numeric-value 2 1 600 200 message "max-lisp-eval-depth is now %d"] 4 nil "P"])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\304\207" [current-load-list calc-which-why default-boundp set-default nil calc-last-why-command] 3)
(defalias 'calc-explain-why #[(why &optional more) "@\306=\203\n�A@A@	\204�\307\202f	;\203\"�	\202f	\310=\203,�\311\202f	\312=\203^�\n\203Z�\n\211:?\206B�@\313>)\203Z�\n\211:?\206R�@\314>)\204Z�\311\202f\315\202f	\316=\203\220�\n\203\214�\n\211:?\206t�@\313>)\203\214�\n\211:?\206\204�@\314>)\204\214�\311\202f\317\202f	\320=\203\262�\n\203\256�\n\211:?\206\246�@\314>)\203\256�\321\202f\311\202f	\322=\203\n\203\325�\n\211:\203\312�@\323=\202\315�\324Y)\203\325�\321\202f\n\203\375�\n\211:?\206\345�@\313>)\203\375�\n\211:?\206\365�@\314>)\204\375�\311\202f\315\202f	\325=\203\214\n\203`\n\211:?\206@\314>)\203`\n\211:\203U@\323=\206X@\326=?\205X@\327>\203OA@\211:\203H@\323=\202K\324V)\202X\330!\202X\324V)\203`\321\202f\n\203\210\n\211:?\206p@\313>)\203\210\n\211:?\206\200@\314>)\204\210\311\202f\317\202f	\331=\203\226\332\202f	\333=\203\240\334\202f	\335=\203\252\336\202f	\337=\203\264\340\202f	\341=\203\276\340\202f	\342=\203\310\343\202f	\344=\203\372\n\203\366\n\211:?\206\336@\345>)\203\366\n\211:?\206\356@\346>)\204\366\347\202f\350\202f	\351=\203\352\202f	\353=\203\352\202f	\354=\203\355\202f	\356=\203\"\357\202f	\360=\203,\361\202f	\362=\203D\n\203@\363\n!\203@\364\202f\361\202f	\365=\203N\352\202f	\366=\203X\367\202f	\370=\203b\371\202f\372\373	\"\374\375@A\211\203\221@\203l\f
@;\203\205@\202\212\376@\324\"Q\377\202l\201B�\201C�\fA\203\243\201D�\202\246\201E�#-\207" [why pred arg a msg punc * "Wrong type of argument" integerp "Integer expected" natnump (bigpos bigneg frac float cplx polar hms date sdev intv mod vec) (bigpos bigneg) "Nonnegative integer expected" posintp "Positive integer expected" fixnump "Small integer expected" fixnatnump bigpos 0 fixposintp bigneg (frac float) math-posp posp "Positive number expected" negp "Negative number expected" nonzerop "Nonzero number expected" realp "Real number expected" anglep hmsp "HMS form expected" datep (bigpos bigneg frac float cplx polar hms date sdev intv mod) (bigpos bigneg frac float) "Real number or date form expected" "Date form expected" numberp "Number expected" scalarp vectorp "Vector or matrix expected" numvecp "Number or vector expected" matrixp "Matrix expected" square-matrixp math-matrixp "Square matrix expected" objectp constp "Constant expected" range "Argument out of range" format "%s expected" ": " t math-format-flat-expr ", " calc-can-abbrev-vectors more message "%s%s" "  [w=more]" ""] 6])
(defalias 'calc-why #[nil "	=\204�	\n=\203�A\202�\f\203$�\305\f@\fA\"\210\fA\211\207\2030�\306\307!\210\211\207\306\310!\207" [this-command last-command calc-last-why-command calc-why calc-which-why calc-explain-why message "(No further explanations available)" "No explanations available"] 3 nil nil])
(defalias 'calc-flush-caches #[(&optional inhibit-msg) "\300\301!\207" [calc-do #[nil "\306\211\306\211\306\211\306\211\f
\306\307\306\307\310\311\"\210?\205-�\312\313!\207" [math-lud-cache math-log2-cache math-radix-digits-cache math-radix-float-cache-tag math-random-cache math-max-digits-cache nil t mapc #[(x) "\301L\207" [x -100] 2] message "All internal calculator caches have been reset" math-integral-cache math-units-table math-decls-cache-tag math-eval-rules-cache-tag math-format-date-cache math-holidays-cache-tag math-cache-list inhibit-msg] 4]] 2 nil "P"])
(defalias 'calc-clean #[(n) "\300\301`\"\207" [calc-do #[nil "\304>?\205�\305 \203�\306\202�\307\310\311\312\n\2035�\313\n!	\314\311!\n\315X\203/�\n\\\2020�\nE)\202:�	\314\311!D#*\207" [calc-simplify-mode func n calc-internal-prec (none num) calc-is-hyperbolic calcFunc-clean calcFunc-pclean calc-enter-result 1 "cln" prefix-numeric-value calc-top-n 0] 7]] 3 nil "P"])
(defalias 'calc-clean-num #[(num) "\302\203�\303!\202 �	\304Y\203�	\305X\203�	\304Z\202 �\306\307![!\207" [num last-command-event calc-clean prefix-numeric-value 48 57 error "Number required"] 3 nil "P"])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list math-chopping-small default-boundp set-default nil] 3)
(defalias 'calcFunc-clean #[(a &optional prec) "\203V�\211:\205�	@\306=\205�\307	8\310Y)\203\"�\311	\312!\"\207\250\203-�\313W\2036�\314\315!\210\311	E\207	\211:?\206B�	@\316>)\204K�\311	E\207\317\311\320	!!*\207	\242\321=\203\201�\322\307	8\f\323=\203l�\324 \202m�\325\"\326\211\320\321\311	A@!\311
!E!!!)\207	\242\327>\203\221�	@\330\311	A\"B\207	\242\331>\203\243�\320	@\330\311	A\"B!\207	\242\306=\203\343�\n\203\341�\307	8[V\204\312�[\332	!!\333	!\"\334U*\203\337�\335	!\203\335�\336\332	!\"\203\335�\312	!\207	\207\310\207	\207	\211:?\206\357�	@\337>)\203\365�	\207\340	!\203\375�	\207\311	D\207" [prec a math-chopping-small calc-internal-prec calc-angle-mode theta float 2 0 calcFunc-clean math-trunc 3 calc-record-why "*Precision must be an integer 3 or above" (bigpos bigneg frac float cplx polar hms date sdev intv mod vec) t math-normalize polar math-mod rad math-two-pi 360 math-neg (vec date hms) mapcar (cplx mod sdev intv) calcFunc-xpon math-compare -1 math-num-integerp math-lessp (bigpos bigneg frac float cplx polar hms date sdev intv mod) math-infinitep b] 8])
(defalias 'calcFunc-pclean #[(a &optional prec) "\301\302\"\207" [a math-map-over-constants #[(x) "\302	\"\207" [x prec calcFunc-clean] 3]] 3])
(defalias 'calcFunc-pfloat #[(a) "\301\302\"\207" [a math-map-over-constants math-float] 3])
(defalias 'calcFunc-pfrac #[(a &optional tol) "\301\302\"\207" [a math-map-over-constants #[(x) "\302	\"\207" [x tol calcFunc-frac] 3]] 3])
(defalias 'math-map-over-constants #[(math-moc-func expr) "\301!\207" [expr math-map-over-constants-rec] 2])
(defalias 'math-map-over-constants-rec #[(expr) "\211:?\206\f�	@\303>)\204�@\304>\203/�\211:?\206#�	@\305>)\203-�\n!\206i�\207@\306>\203a�\n\307=\203a�G\310U\203a�\3118\211:?\206Q�	@\312>)\203a�@\313A@!\3118E\207@\314\313A\"B\207" [expr a math-moc-func (bigpos bigneg frac float cplx polar hms date mod var) (intv sdev) (bigpos bigneg frac float cplx polar hms date sdev intv mod) (^ calcFunc-subscr) math-float 3 2 (bigpos bigneg) math-map-over-constants-rec mapcar] 5])
(provide 'calc-stuff)

${this.title}

Code Editor : calc-stuff.elc