| Current Path : /usr/share/emacs/24.3/lisp/calc/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/calc/calc-keypd.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:44 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calc/calc-keypd.el
;;; in Emacs version 24.3.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)
(defvar calc-keypad-buffer nil)
(defvar calc-keypad-menu 0)
(defvar calc-keypad-full-layout nil)
(defvar calc-keypad-input nil)
(defvar calc-keypad-prev-input nil)
(defvar calc-keypad-said-hello nil)
(defvar calc-keypad-layout '((("ENTER" calc-enter calc-roll-down calc-roll-up calc-over) ("ENTER" calc-enter calc-roll-down calc-roll-up calc-over) ("+/-" calc-change-sign calc-inv (progn -4 calc-pack)) ("EEX" ("e") (progn calc-num-prefix calc-pack-interval) (progn -5 calc-pack)) ("UNDO" calc-undo calc-redo calc-last-args) ("<-" calc-pop (progn 0 calc-pop) (progn calc-num-prefix calc-pop))) (("INV" calc-inverse) ("7" ("7") calc-round) ("8" ("8") (progn 2 calc-clean-num)) ("9" ("9") calc-float) ("/" calc-divide (progn calc-inverse calc-power))) (("HYP" calc-hyperbolic) ("4" ("4") calc-ln calc-log10) ("5" ("5") calc-exp calc-exp10) ("6" ("6") calc-abs) ("*" calc-times calc-power)) (("EXEC" calc-keypad-execute) ("1" ("1") calc-arcsin calc-sin) ("2" ("2") calc-arccos calc-cos) ("3" ("3") calc-arctan calc-tan) ("-" calc-minus calc-conj)) (("OFF" calc-keypad-off) ("0" ("0") calc-imaginary) ("." (".") calc-precision) ("PI" calc-pi) ("+" calc-plus calc-sqrt))))
(defvar calc-keypad-menus '(calc-keypad-math-menu calc-keypad-funcs-menu calc-keypad-binary-menu calc-keypad-vector-menu calc-keypad-modes-menu calc-keypad-user-menu))
(defvar calc-keypad-math-menu '((("FLR" calc-floor) ("CEIL" calc-ceiling) ("RND" calc-round) ("TRNC" calc-trunc) ("CLN2" (progn 2 calc-clean-num)) ("FLT" calc-float)) (("LN" calc-ln) ("EXP" calc-exp) ("" nil) ("ABS" calc-abs) ("IDIV" calc-idiv) ("MOD" calc-mod)) (("SIN" calc-sin) ("COS" calc-cos) ("TAN" calc-tan) ("SQRT" calc-sqrt) ("y^x" calc-power) ("1/x" calc-inv))))
(defvar calc-keypad-funcs-menu '((("IGAM" calc-inc-gamma) ("BETA" calc-beta) ("IBET" calc-inc-beta) ("ERF" calc-erf) ("BESJ" calc-bessel-J) ("BESY" calc-bessel-Y)) (("IMAG" calc-imaginary) ("CONJ" calc-conj) ("RE" calc-re calc-im) ("ATN2" calc-arctan2) ("RAND" calc-random) ("RAGN" calc-random-again)) (("GCD" calc-gcd calc-lcm) ("FACT" calc-factorial calc-gamma) ("DFCT" calc-double-factorial) ("BNOM" calc-choose) ("PERM" calc-perm) ("NXTP" calc-next-prime calc-prev-prime))))
(defvar calc-keypad-binary-menu '((("AND" calc-and calc-diff) ("OR" calc-or) ("XOR" calc-xor) ("NOT" calc-not calc-clip) ("LSH" calc-lshift-binary calc-rotate-binary) ("RSH" calc-rshift-binary)) (("DEC" calc-decimal-radix) ("HEX" calc-hex-radix) ("OCT" calc-octal-radix) ("BIN" calc-binary-radix) ("WSIZ" calc-word-size) ("ARSH" calc-rshift-arith)) (("A" ("A")) ("B" ("B")) ("C" ("C")) ("D" ("D")) ("E" ("E")) ("F" ("F")))))
(defvar calc-keypad-vector-menu '((("SUM" calc-vector-sum calc-vector-alt-sum calc-vector-mean) ("PROD" calc-vector-product nil calc-vector-sdev) ("MAX" calc-vector-max calc-vector-min calc-vector-median) ("MAP*" (lambda nil (interactive) (calc-map '(2 calcFunc-mul "*")))) ("MAP^" (lambda nil (interactive) (calc-map '(2 calcFunc-pow "^")))) ("MAP$" calc-map-stack)) (("MINV" calc-inv) ("MDET" calc-mdet) ("MTRN" calc-transpose calc-conj-transpose) ("IDNT" (progn calc-num-prefix calc-ident)) ("CRSS" calc-cross) ("\"x\"" "xcalc-algebraic-entry
x
" "xcalc-algebraic-entry
y
" "xcalc-algebraic-entry
z
" "xcalc-algebraic-entry
t
")) (("PACK" calc-pack) ("UNPK" calc-unpack) ("INDX" (progn calc-num-prefix calc-index) "xcalc-index
") ("BLD" (progn calc-num-prefix calc-build-vector)) ("LEN" calc-vlength) ("..." calc-full-vectors))))
(defvar calc-keypad-modes-menu '((("FLT" calc-normal-notation (progn calc-num-prefix calc-normal-notation)) ("FIX" (progn 2 calc-fix-notation) (progn calc-num-prefix calc-fix-notation)) ("SCI" calc-sci-notation (progn calc-num-prefix calc-sci-notation)) ("ENG" calc-eng-notation (progn calc-num-prefix calc-eng-notation)) ("GRP" calc-group-digits "-3xcalc-group-digits
") ("" nil)) (("RAD" calc-radians-mode) ("DEG" calc-degrees-mode) ("FRAC" calc-frac-mode) ("POLR" calc-polar-mode) ("SYMB" calc-symbolic-mode) ("PREC" calc-precision)) (("SWAP" calc-roll-down) ("RLL3" (progn 3 calc-roll-up) (progn 3 calc-roll-down)) ("RLL4" (progn 4 calc-roll-up) (progn 4 calc-roll-down)) ("OVER" calc-over) ("STO" calc-keypad-store) ("RCL" calc-keypad-recall))))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [calc-keypad-mode-hook variable-documentation put purecopy "Hook run when entering Calculator mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp calc-keypad-mode-map definition-name calc-keypad-mode] 5)
(defvar calc-keypad-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [calc-keypad-mode-map variable-documentation put purecopy "Keymap for `calc-keypad-mode'." boundp calc-keypad-mode-syntax-table definition-name calc-keypad-mode] 5)
(defvar calc-keypad-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [calc-keypad-mode-syntax-table variable-documentation put purecopy "Syntax table for `calc-keypad-mode'." calc-keypad-mode-abbrev-table definition-name calc-keypad-mode] 5)
(defvar calc-keypad-mode-abbrev-table (progn (define-abbrev-table 'calc-keypad-mode-abbrev-table nil) calc-keypad-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [calc-keypad-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `calc-keypad-mode'." calc-keypad-mode derived-mode-parent nil] 5)
#@151 Major mode for Calc keypad input.
This mode runs the hook `calc-keypad-mode-hook', as the final step
during initialization.
\{calc-keypad-mode-map}
(defalias 'calc-keypad-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210
.\315 \316\317#\210\315 \320\317#\210\315 \321\322#\210\315 \323\324#\210\315 \325\326#\210\315 \327\326#\210\315 \330\326#\210\315 \331\326#\210\315 \332\326#\210\315 \333\326#\210\315 \334\326#\210\315 \335\326#\210\315 \336\326#\210\315 \337\326#\210\315 \340\326#\210\315 \341\326#\210\315 \342\343#\210\315 \344\345#\210\315 \346\347#\210\350\311\351\352#\210\306\353!\210)\354\355!\207" [delay-mode-hooks major-mode mode-name calc-keypad-mode-map calc-keypad-mode-syntax-table calc-keypad-mode-abbrev-table make-local-variable t kill-all-local-variables calc-keypad-mode "Calculator" use-local-map set-syntax-table define-key " " calc-keypad-press "
" " " calc-keypad-menu "q" calc-keypad-off [down-mouse-1] ignore [drag-mouse-1] [double-mouse-1] [triple-mouse-1] [down-mouse-2] [drag-mouse-2] [double-mouse-2] [triple-mouse-2] [down-mouse-3] [drag-mouse-3] [double-mouse-3] [triple-mouse-3] [mouse-3] calc-keypad-right-click [mouse-2] calc-keypad-middle-click [mouse-1] calc-keypad-left-click put mode-class special calc-main-buffer run-mode-hooks calc-keypad-mode-hook local-abbrev-table] 4 (#$ . 6212) nil])
(defalias 'calc-do-keypad #[(&optional full-display interactive) "\306 \210p\307 !\204 \310\311!\211q\210\312 \210\313 \210\314 \210\315\316\317\211 0\320\321!\211\2032 \322\f!\210\320\323!\211\203K \324 \203G \325\326 !\210\202K \322\f!\210\320 !\211\203s \327\321!\210\327\323!\210\327 !\210\324 \203l \325\326 !\210\202 \322\f!\210\202 \3301\331 \332 !
\333\\W\204\223 \334 !0\335\\W\204\223 2\203\227 \336 !\210\332 !
\337\\W\203\245 \340\341!\2102\203\326 \342 \343\332 !
\344#\"\345 \314 \"\210\345\f \"\210\346\f\344\"\210\342\f0\347\\\330#\345\f\"\210\202\375 \342 \343\334 !0\350#\330#\345\f \"\210\346\f\344\"\210\342\f\343\332\f!
\344#\"\210\345\f\"\210\351 !\210\352\353!\210\354\355!\2103\2034\203\356\350!\210\352\357!\210\3303,\317\2115)\207" [calcbuf calc-keypad-buffer calc-main-buffer old-win win height calc-create-buffer bufferp get-buffer-create "*Calc Keypad*" calc-keypad-mode calc-keypad-redraw calc-trail-buffer 29 17 nil get-buffer-window "*Calculator*" delete-window "*Calc Trail*" one-window-p switch-to-buffer other-buffer bury-buffer t get-largest-window window-height 6 window-width 15 delete-other-windows 4 error "Screen is not tall enough for this mode" split-window - 1 set-window-buffer set-window-start 7 2 select-window message "Welcome to GNU Emacs Calc! Use the left and right mouse buttons" run-hooks calc-keypad-start-hook sit-for "" width calc-was-keypad-mode full-display calc-keypad-said-hello interactive calc-keypad-input] 6])
(defalias 'calc-keypad-off #[nil "\203 \301\302!\207\303 \207" [calc-standalone-flag save-buffers-kill-emacs nil calc-keypad] 2 nil nil])
(defalias 'calc-keypad-redraw #[nil "q\210\306\307\n 8J\f\"\310
\311 ! \"\312 \210\313c\210\"\203\374 \"@ ##\203\310 #@ $!\314Y\203: \315\202T !\316U\203S #\"@=\203S #A#\317\202T \314 %&\203h $A@\320=\203h \321\202 $@G%V\203| $@\311%O\202 $@\211 'G (%(\322\245Z )\323%(Z\322\245\324\"'\323\325%(\326#\322\245\324\"'\327\232\203\264 \330\nT!\202\265 \331\261\210-#A\211#\204% \313c\210\202% !\314Y\203\323 \332\202\337 !\316U\203\336 \333\202\337 \334!\335U\203\352 \336\202\353 \337\261\210!T!\"A\")\202 +\306*\340 \210eb\207" [calc-keypad-buffer buffer-read-only calc-keypad-menu calc-keypad-menus calc-keypad-layout calc-keypad-full-layout t append nil 0 erase-buffer "\n" 4 5 3 9 calc-keypad-off "EXIT" 2 make-string 32 - -1 "MENU" int-to-string "|" "-----+-----+-----+-----+-----" "-----+---+-+--+--+-+---++----" "----+----+----+----+----+----" 7 "+\n" "|\n" calc-keypad-show-input y row col key cwid calc-standalone-flag name wid pad calc-keypad-prev-input] 8])
(defalias 'calc-keypad-show-input #[nil " \232\204* \304\212eb\210\305y\210e`|\210\203 \306\307\261\210\202) \310\311 T!\307\261\210*\211\207" [calc-keypad-input calc-keypad-prev-input buffer-read-only calc-keypad-menu nil 1 "Calc: " "\n" "----+----+--Calc---+----+----" int-to-string] 3])
(defalias 'calc-keypad-press #[nil "\306=\204\n \307\310!\210\311e\312 \"\211\313\245i\n\314Y\203 \315\202 \316\245\317\211 \317 @rAq\210BCD@E) F\320 GHI8J JK\211 L\205h \321\322L\"\204f \f\323X\205h \321\324L\"\205h \325\225 M \nN88 O@\203\204 F\203\200 \314\202\216 \313\202\216 F\203\215 \326\202\216 \327O8\206\237 \317\211G\206\237 OA@\211 P:\205\252 P@; Q\320 RG\203\270 \330\331!\210\332\216P\203\307 \313\246\325U\203\314 \333 \202\354\334 \325V\203 Q\203\346 P@\325HSB\211S\202\354P\335=\203\367 \336SB\211S\202\354P\337=\203\340SB\211S\202\354P\341=\203\342SB\211S\202\354\333 \202\354L\203\355\321\343L\"\203\355Q\203\277\321\344P@\"\203\277\317K\345\346P@P! TL\347\232\203S\350T!\202\273L\351\232\203a\352T!\202\273L\353\232\203o\354T!\202\273L\355\232\203}\356T!\202\273L\357\232\203\213\360T!\202\273L\361\232\203\232\362\363T\"\202\273L\364\232\203\251\365\363T\"\202\273L\366\232\203\267\367T!\202\273\370T!)\202\354P\371>\203\315\317\211K\202\354L\366\232\203\350P\372\236\211\203\350L
AP\211K\202\354\333 \202\354Q\203\352P@\211P\373\232\203\nL\203\n\321\374L\"\204TP\324\232\203,L\203,\f\323X\203$\321\324L\"\204T\321\375L\"\204TP\373\232\204Y\317 U\321P\376\321\377L\206D\201[ \"\203N\201\\ \202O\f#)\203Y\333 \202\354\f\201\\ U?\205xL\203pL\201] \232\205x\201^ \201_ \f\"L\203\206L\201] \232\205\247P\324\232\203\223\201` \202\247P\373\232\205\247
\203\244\201` \202\247\201a LP\373\232\203\272
\203\272\201b \202\343P\324\232\203\341L\203\320\321\201c L\"\203\341\f\323V\203\341\201^ \201d \f\"\202\343PR\211K\202\354P\201e =\203.L\203.M\206\376\325 VLV\317O WL\325VO\321\201f W\"\203 W\363\317O\202&\201] WPP\211K*\202\354P\335=\203_L\203_L\201[ \232\203H\333 \202\354L\325\321\201g L\"\206X\201h O\211K\202\354P\341=\203rL\203r\317\211K\202\354L\203\252\201i L! X\317KX\203\220\330\201j !\210\202\237L\201[ \232\204\234\333 \210\317PP\337=\203\251\317P)YZP\205\354P:\203\346P@\201k =\203\346PA\211P\205\354P@\250\203\333P@Z\202\303\201l P@!\210\202\303\201l P!.\207" [major-mode row y x radix frac calc-keypad-mode error "Must be in *Calc Keypad* buffer for this command" count-lines point-at-bol 2 4 6 5 nil t string-match "\\*[0-9]+\\.\\^" 14 "e" 0 3 99 calc-do #[nil "\300\207" [nil] 1] ((byte-code "q\210\301 \207" [calc-keypad-buffer calc-keypad-show-input] 1)) beep minibuffer-depth calc-pop 127 calc-enter 13 calc-undo 7 "STO\\|RCL" "[0-9]" intern "var-q" "STO+" calc-store-plus "STO-" calc-store-minus "STO*" calc-store-times "STO/" calc-store-div "STO^" calc-store-power "STOn" calc-store-neg 1 "STO&" calc-store-inv "STO" calc-store-into calc-recall (calc-pop calc-undo) ((calc-plus . "+") (calc-minus . "-") (calc-times . "*") (calc-divide . "/") (calc-power . "^") (calc-change-sign . "n") (calc-inv . "&")) "." "[.:e^]" "\\^\\|[-.:]\\'" "0123456789ABCDEF" "[e^]" inv calc-main-buffer calc-number-radix calc-prefer-frac calc-inverse-flag calc-hyperbolic-flag hyp invhyp calc-keypad-menu calc-keypad-menus menu calc-keypad-input input iexpon calc-keypad-full-layout key cmd isstring calc-is-keypad-press unread-command-events var case-fold-search epos suffix val current-prefix-arg prefix-arg "" 10 "-" format "%d#" "1" "0" ":" "#" "*%d.^" calc-change-sign "\\`-" "\\*[0-9]+\\.\\^\\'" -1 math-read-number #[nil "\301\302\303!!C!\207" [val calc-push-list calc-record calc-normalize] 4] progn command-execute] 7 nil nil])
#@57 Handle a left-button mouse click in Calc Keypad window.
(defalias 'calc-keypad-left-click #[(event) "rq\210\303 !\304\n8\206 \nA@:\203 \nA@@\202 \nA@)b\210\305 )\207" [calc-keypad-buffer event position event-start 5 calc-keypad-press] 2 (#$ . 14134) "e"])
#@58 Handle a right-button mouse click in Calc Keypad window.
(defalias 'calc-keypad-right-click #[(event) "rq\210\301 )\207" [calc-keypad-buffer calc-keypad-menu] 1 (#$ . 14401) "e"])
#@59 Handle a middle-button mouse click in Calc Keypad window.
(defalias 'calc-keypad-middle-click #[(event) "rq\210\301 )\207" [calc-keypad-buffer calc-keypad-menu-back] 1 (#$ . 14588) "e"])
(defalias 'calc-keypad-menu #[nil "\303=\204\n \304\305!\210 T\nG\246\211\n8J\203\n \306 \207" [major-mode calc-keypad-menu calc-keypad-menus calc-keypad-mode error "Must be in *Calc Keypad* buffer for this command" calc-keypad-redraw] 3 nil nil])
(defalias 'calc-keypad-menu-back #[nil "\303=\204\n \304\305!\210 \nG\\S\nG\246\211\n8J\203\n \306 \207" [major-mode calc-keypad-menu calc-keypad-menus calc-keypad-mode error "Must be in *Calc Keypad* buffer for this command" calc-keypad-redraw] 3 nil nil])
(defalias 'calc-keypad-store #[nil "\301\211\207" [calc-keypad-input "STO"] 2 nil nil])
(defalias 'calc-keypad-recall #[nil "\301\211\207" [calc-keypad-input "RCL"] 2 nil nil])
(defalias 'calc-pack-interval #[(mode) "\301W\204\f \302V\203 \303\304!\210\305\306Z!\207" [mode 0 3 error "Open/close code should be in the range from 0 to 3" calc-pack -6] 3 nil "p"])
(defalias 'calc-keypad-execute #[nil "\306\307\310\211\310 \212\311 \210\312!\313 !\211\314>\204' \n\203@ \315\316 \"\203@ \211GSH\317\f!\210\320\321\322 !\323Q\211\202C \f =\204 )\324\325!\210\326\f!\203W \317\f!\202] \327\330\322 !\"-\207" [prompt flush prefix keys cmd last-command-event "Calc keystrokes: " x-flush-mouse-queue nil calc-select-buffer read-key-sequence key-binding (calc-inverse calc-hyperbolic universal-argument digit-argument negative-argument) string-match "\\`?[-0-9]\\'" command-execute not-any-more t key-description " " message "" commandp error "Not a Calc command: %s"] 5 nil nil])
(provide 'calc-keypd)