Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
progmodes /
Delete
Unzip
Name
Size
Permission
Date
Action
ada-mode.elc
107.31
KB
-rw-r--r--
2023-06-07 04:14
ada-prj.elc
17.96
KB
-rw-r--r--
2023-06-07 04:14
ada-stmt.elc
35.97
KB
-rw-r--r--
2023-06-07 04:14
ada-xref.elc
55.09
KB
-rw-r--r--
2023-06-07 04:14
antlr-mode.elc
79.34
KB
-rw-r--r--
2023-06-07 04:14
asm-mode.elc
7.69
KB
-rw-r--r--
2023-06-07 04:14
autoconf.elc
5.1
KB
-rw-r--r--
2023-06-07 04:14
bug-reference.elc
6.43
KB
-rw-r--r--
2023-06-07 04:14
cap-words.elc
3.59
KB
-rw-r--r--
2023-06-07 04:14
cc-align.elc
35.39
KB
-rw-r--r--
2023-06-07 04:14
cc-awk.elc
17.81
KB
-rw-r--r--
2023-06-07 04:14
cc-bytecomp.elc
9.35
KB
-rw-r--r--
2023-06-07 04:14
cc-cmds.elc
96.69
KB
-rw-r--r--
2023-06-07 04:14
cc-compat.elc
2.92
KB
-rw-r--r--
2023-06-07 04:14
cc-defs.elc
49.04
KB
-rw-r--r--
2023-06-07 04:14
cc-engine.elc
173.3
KB
-rw-r--r--
2023-06-07 04:14
cc-fonts.elc
153.89
KB
-rw-r--r--
2023-06-07 04:14
cc-guess.elc
13.77
KB
-rw-r--r--
2023-06-07 04:14
cc-langs.elc
75.55
KB
-rw-r--r--
2023-06-07 04:14
cc-menus.elc
7.28
KB
-rw-r--r--
2023-06-07 04:14
cc-mode.elc
191.85
KB
-rw-r--r--
2023-06-07 04:14
cc-styles.elc
16.38
KB
-rw-r--r--
2023-06-07 04:14
cc-vars.elc
69.17
KB
-rw-r--r--
2023-06-07 04:14
cfengine.elc
15.58
KB
-rw-r--r--
2023-06-07 04:14
cmacexp.elc
6.3
KB
-rw-r--r--
2023-06-07 04:14
compile.elc
83.66
KB
-rw-r--r--
2023-06-07 04:14
cperl-mode.elc
215.31
KB
-rw-r--r--
2023-06-07 04:14
cpp.elc
22.18
KB
-rw-r--r--
2023-06-07 04:14
cwarn.elc
11.09
KB
-rw-r--r--
2023-06-07 04:14
dcl-mode.elc
50.23
KB
-rw-r--r--
2023-06-07 04:14
delphi.elc
50.8
KB
-rw-r--r--
2023-06-07 04:14
ebnf-abn.elc
6.88
KB
-rw-r--r--
2023-06-07 04:14
ebnf-bnf.elc
7.67
KB
-rw-r--r--
2023-06-07 04:14
ebnf-dtd.elc
13.03
KB
-rw-r--r--
2023-06-07 04:15
ebnf-ebx.elc
7.99
KB
-rw-r--r--
2023-06-07 04:15
ebnf-iso.elc
7.83
KB
-rw-r--r--
2023-06-07 04:15
ebnf-otz.elc
8.46
KB
-rw-r--r--
2023-06-07 04:15
ebnf-yac.elc
7.22
KB
-rw-r--r--
2023-06-07 04:15
ebnf2ps.elc
117.22
KB
-rw-r--r--
2023-06-07 04:15
ebrowse.elc
206.22
KB
-rw-r--r--
2023-06-07 04:15
etags.elc
55.93
KB
-rw-r--r--
2023-06-07 04:15
executable.elc
7.49
KB
-rw-r--r--
2023-06-07 04:15
f90.elc
92.25
KB
-rw-r--r--
2023-06-07 04:15
flymake.elc
61.63
KB
-rw-r--r--
2023-06-07 04:15
fortran.elc
60.04
KB
-rw-r--r--
2023-06-07 04:15
gdb-mi.elc
169.74
KB
-rw-r--r--
2023-06-07 04:15
glasses.elc
10.17
KB
-rw-r--r--
2023-06-07 04:15
grep.elc
32.61
KB
-rw-r--r--
2023-06-07 04:15
gud.elc
93.14
KB
-rw-r--r--
2023-06-07 04:15
hideif.elc
26.37
KB
-rw-r--r--
2023-06-07 04:15
hideshow.elc
25.32
KB
-rw-r--r--
2023-06-07 04:15
icon.elc
16.85
KB
-rw-r--r--
2023-06-07 04:15
idlw-complete-structtag.elc
4.5
KB
-rw-r--r--
2023-06-07 04:15
idlw-help.elc
36.32
KB
-rw-r--r--
2023-06-07 04:15
idlw-shell.elc
130.41
KB
-rw-r--r--
2023-06-07 04:15
idlw-toolbar.elc
27.61
KB
-rw-r--r--
2023-06-07 04:15
idlwave.elc
251.77
KB
-rw-r--r--
2023-06-07 04:15
inf-lisp.elc
20.29
KB
-rw-r--r--
2023-06-07 04:15
js.elc
95.5
KB
-rw-r--r--
2023-06-07 04:15
ld-script.elc
5.68
KB
-rw-r--r--
2023-06-07 04:15
m4-mode.elc
6.12
KB
-rw-r--r--
2023-06-07 04:15
make-mode.elc
63.81
KB
-rw-r--r--
2023-06-07 04:15
mantemp.elc
3.71
KB
-rw-r--r--
2023-06-07 04:15
meta-mode.elc
32.62
KB
-rw-r--r--
2023-06-07 04:15
mixal-mode.elc
36.42
KB
-rw-r--r--
2023-06-07 04:15
modula2.elc
29.79
KB
-rw-r--r--
2023-06-07 04:15
octave-inf.elc
13.56
KB
-rw-r--r--
2023-06-07 04:15
octave-mod.elc
33.98
KB
-rw-r--r--
2023-06-07 04:15
pascal.elc
39.33
KB
-rw-r--r--
2023-06-07 04:15
perl-mode.elc
24.86
KB
-rw-r--r--
2023-06-07 04:15
prolog.elc
95.73
KB
-rw-r--r--
2023-06-07 04:15
ps-mode.elc
34.13
KB
-rw-r--r--
2023-06-07 04:15
python.elc
99.85
KB
-rw-r--r--
2023-06-07 04:15
ruby-mode.elc
36.94
KB
-rw-r--r--
2023-06-07 04:15
scheme.elc
18.28
KB
-rw-r--r--
2023-06-07 04:15
sh-script.elc
103.89
KB
-rw-r--r--
2023-06-07 04:15
simula.elc
45.68
KB
-rw-r--r--
2023-06-07 04:15
sql.elc
158.59
KB
-rw-r--r--
2023-06-07 04:15
subword.elc
10.31
KB
-rw-r--r--
2023-06-07 04:15
tcl.elc
39.55
KB
-rw-r--r--
2023-06-07 04:15
vera-mode.elc
45.89
KB
-rw-r--r--
2023-06-07 04:15
verilog-mode.elc
419.97
KB
-rw-r--r--
2023-06-07 04:15
vhdl-mode.elc
528.67
KB
-rw-r--r--
2023-06-07 04:15
which-func.elc
9.72
KB
-rw-r--r--
2023-06-07 04:11
xscheme.elc
37.06
KB
-rw-r--r--
2023-06-07 04:15
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:15:09 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/gud.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 "\302\303!\210\304\305\306\307\310\311\310\312&\210\313\300\314\315\316\317\310\305&\210\320\321\322\"\323\"\210\324 \325\326#\207" [gud-key-prefix ctl-x-map require comint custom-declare-group gud nil "The \"Grand Unified Debugger\" interface.\nSupported debuggers include gdb, sdb, dbx, xdb, perldb,\npdb (Python), and jdb." :group processes tools custom-declare-variable "" "Prefix of all GUD commands valid in C buffers." :type key-sequence global-set-key vconcat "\f" gud-refresh define-key " " gud-break] 8) (defvar gud-marker-filter nil) (put 'gud-marker-filter 'permanent-local t) (defvar gud-find-file nil) (put 'gud-find-file 'permanent-local t) (defalias 'gud-marker-filter #[(&rest args) "\302 \"\207" [gud-marker-filter args apply] 3]) (defvar gud-minor-mode nil) (put 'gud-minor-mode 'permanent-local t) (defvar gud-comint-buffer nil) (defvar gud-keep-buffer nil) #@206 Return the symbol used for SYM in MINOR-MODE. MINOR-MODE defaults to `gud-minor-mode'. The symbol returned is `gud-<MINOR-MODE>-<SYM>'. If SOFT is non-nil, returns nil if the symbol doesn't already exist. (defalias 'gud-symbol #[(sym &optional soft minor-mode) "\204\f \204\f \304\305!\210\n\203 \306\202 \307\310\311\206 #!\207" [minor-mode gud-minor-mode soft sym error "Gud internal error" intern-soft intern format "gud-%s-%s"] 5 (#$ . 1448)]) #@56 Return the value of `gud-symbol' SYM. Default to nil. (defalias 'gud-val #[(sym &optional minor-mode) "\302\303 #\304!\205 J)\207" [sym minor-mode gud-symbol t boundp] 4 (#$ . 1910)]) #@82 Non-nil if debugged program is running. Used to gray out relevant toolbar icons. (defvar gud-running nil (#$ . 2106)) #@66 The apparent name of the program being debugged in a gud buffer. (defvar gud-target-name "--unknown--" (#$ . 2230)) #@33 Go to relevant Emacs info node. (defalias 'gud-goto-info #[nil "\301=\203\n \302\303!\207\302\304!\207" [gud-minor-mode gdbmi info-other-window "(emacs)GDB Graphical Interface" "(emacs)Debuggers"] 2 (#$ . 2352) nil]) (defalias 'gud-tool-bar-item-visible-no-fringe #[nil "\301\302\303 \"\304=\206 \301\302\303 \"\305=\206 \306=\205 \307 @\310V?\207" [gud-minor-mode buffer-local-value major-mode window-buffer speedbar-mode gdb-memory-mode gdbmi window-fringes 0] 3]) (defalias 'gud-stop-subjob #[nil "rq\210 \303\230\203 \304 \202+ \n\305=\203 \306\307!\202+ \n\310=\203) \306\311\312!!\202+ \313 )\207" [gud-comint-buffer gud-target-name gud-minor-mode "emacs" comint-stop-subjob jdb gud-call "suspend" gdbmi gdb-gud-context-command "-exec-interrupt" comint-interrupt-subjob] 3 nil nil]) #@22 Menu for `gud-mode'. (defconst gud-menu-map (byte-code "\301\302\303\304\300!\205\n \305\306D$\207" [gud-menu-map easy-mmode-define-keymap (([help] "Info (debugger)" . gud-goto-info) ([tooltips] menu-item "Show GUD tooltips" gud-tooltip-mode :enable (and (not emacs-basic-display) (display-graphic-p) (fboundp 'x-show-tip)) :visible (memq gud-minor-mode '(gdbmi dbx sdb xdb pdb)) :button (:toggle . gud-tooltip-mode)) ([refresh] "Refresh" . gud-refresh) ([run] menu-item "Run" gud-run :enable (not gud-running) :visible (memq gud-minor-mode '(gdbmi gdb dbx jdb))) ([go] menu-item (if (bound-and-true-p gdb-active-process) "Continue" "Run") gud-go :visible (and (eq gud-minor-mode 'gdbmi) (gdb-show-run-p))) ([stop] menu-item "Stop" gud-stop-subjob :visible (or (not (memq gud-minor-mode '(gdbmi pdb))) (gdb-show-stop-p))) ([until] menu-item "Continue to selection" gud-until :enable (not gud-running) :visible (and (memq gud-minor-mode '(gdbmi gdb perldb)) (gud-tool-bar-item-visible-no-fringe))) ([remove] menu-item "Remove Breakpoint" gud-remove :enable (not gud-running) :visible (gud-tool-bar-item-visible-no-fringe)) ([tbreak] menu-item "Temporary Breakpoint" gud-tbreak :enable (not gud-running) :visible (memq gud-minor-mode '(gdbmi gdb sdb xdb))) ([break] menu-item "Set Breakpoint" gud-break :enable (not gud-running) :visible (gud-tool-bar-item-visible-no-fringe)) ([up] menu-item "Up Stack" gud-up :enable (not gud-running) :visible (memq gud-minor-mode '(gdbmi gdb dbx xdb jdb pdb))) ([down] menu-item "Down Stack" gud-down :enable (not gud-running) :visible (memq gud-minor-mode '(gdbmi gdb dbx xdb jdb pdb))) ([pp] menu-item "Print S-expression" gud-pp :enable (and (not gud-running) (bound-and-true-p gdb-active-process)) :visible (and (string-equal (buffer-local-value 'gud-target-name gud-comint-buffer) "emacs") (eq gud-minor-mode 'gdbmi))) ([print*] menu-item (if (eq gud-minor-mode 'jdb) "Dump object" "Print Dereference") gud-pstar :enable (not gud-running) :visible (memq gud-minor-mode '(gdbmi gdb jdb))) ([print] menu-item "Print Expression" gud-print :enable (not gud-running)) ([watch] menu-item "Watch Expression" gud-watch :enable (not gud-running) :visible (eq gud-minor-mode 'gdbmi)) ([finish] menu-item "Finish Function" gud-finish :enable (not gud-running) :visible (memq gud-minor-mode '(gdbmi gdb xdb jdb pdb))) ([stepi] menu-item "Step Instruction" gud-stepi :enable (not gud-running) :visible (memq gud-minor-mode '(gdbmi gdb dbx))) ([nexti] menu-item "Next Instruction" gud-nexti :enable (not gud-running) :visible (memq gud-minor-mode '(gdbmi gdb dbx))) ([step] menu-item "Step Line" gud-step :enable (not gud-running)) ([next] menu-item "Next Line" gud-next :enable (not gud-running)) ([cont] menu-item "Continue" gud-cont :enable (not gud-running) :visible (not (eq gud-minor-mode 'gdbmi)))) nil boundp :name "Gud"] 6) (#$ . 3155)) #@28 Map used in visited files. (defconst gud-minor-mode-map (byte-code "\303\304\305\306BBC ?\205\206 \307\310\311\312\313#\314BB\315\310\316\312\313#\317BB\320\310\321\312\313#\322BB\323\310\324\312\313#\325BB\326\310\327\312\313#\330BB\331\332\310\333\312\313#\334BBB\335\332\310\336\312\313#\337BBB\340\332\310\341\312\313#\342BBB\343\332\310\344\312\313#\345BBB\346\332\310\347\312\313#\350BBB\351\310\352\312\313#\353BB\354BBBBBBBBBBB\"\355\356\302!\205\217 \n\355$\207" [gud-menu-map window-system gud-minor-mode-map easy-mmode-define-keymap append [menu-bar debug] "Gud" [menu-bar down] propertize "down" face font-lock-doc-face gud-down [menu-bar up] "up" gud-up [menu-bar finish] "finish" gud-finish [menu-bar step] "step" gud-step [menu-bar next] "next" gud-next [menu-bar until] menu-item "until" (gud-until :visible (memq gud-minor-mode '(gdbmi gdb perldb))) [menu-bar cont] "cont" (gud-cont :visible (not (eq gud-minor-mode 'gdbmi))) [menu-bar run] "run" (gud-run :visible (memq gud-minor-mode '(gdbmi gdb dbx jdb))) [menu-bar go] " go " (gud-go :visible (and (eq gud-minor-mode 'gdbmi) (gdb-show-run-p))) [menu-bar stop] "stop" (gud-stop-subjob :visible (or (and (eq gud-minor-mode 'gdbmi) (gdb-show-stop-p)) (not (eq gud-minor-mode 'gdbmi)))) [menu-bar print] "print" gud-print (([menu-bar tools] . undefined) ([menu-bar buffer] . undefined) ([menu-bar options] . undefined) ([menu-bar edit] . undefined) ([menu-bar file] . undefined)) nil boundp] 18) (#$ . 6034)) (byte-code "\303\236\211\203 \n\241\210\202 \303\nBB)\303\207" [minor-mode-map-alist m gud-minor-mode-map gud-minor-mode] 3) #@20 `gud-mode' keymap. (defvar gud-mode-map (make-sparse-keymap) (#$ . 7649)) (defvar gud-tool-bar-map (byte-code "\304 \305\306\211\203 \n@\307 @ A $\210\nA\211\204 \306+\207" [map x --dolist-tail-- gud-minor-mode-map make-sparse-keymap ((gud-break . "gud/break") (gud-remove . "gud/remove") (gud-print . "gud/print") (gud-pstar . "gud/pstar") (gud-pp . "gud/pp") (gud-watch . "gud/watch") (gud-run . "gud/run") (gud-go . "gud/go") (gud-stop-subjob . "gud/stop") (gud-cont . "gud/cont") (gud-until . "gud/until") (gud-next . "gud/next") (gud-step . "gud/step") (gud-finish . "gud/finish") (gud-nexti . "gud/nexti") (gud-stepi . "gud/stepi") (gud-up . "gud/up") (gud-down . "gud/down") (gud-goto-info . "info")) nil tool-bar-local-item-from-menu] 6)) #@120 Transform a relative file name to an absolute file name. Uses `gud-<MINOR-MODE>-directories' to find the source files. (defalias 'gud-file-name #[(f) "\305!\206 \306 P\307 !\203 \310 !\207\311\303!\312\211\2036 \310 @\" \307\f!\203. \f\312) A\211\204 \n*\207" [default-directory f result directories path file-remote-p "" file-exists-p expand-file-name gud-val nil] 4 (#$ . 8413)]) (defalias 'gud-find-file #[(file) "\306\307\"\203 \310\311\312\211$\202 \n\206 \313! ;\203+ \314 !\205* \315 \316\" \205d r q\210\317\301!\210\f\317\320!\210 \203^ \321=\203^ \317\322!\210\204W \323 \210\324\325\323\326\312$\210\317\327!\210) *\207" [file gud-minor-mode gud-find-file buf minor-mode gud-tool-bar-map string-match "//+" replace-match "/" t gud-file-name file-readable-p find-file-noselect nowarn make-local-variable tool-bar-map gdbmi gdb-define-alist gdb-create-define-alist add-hook after-save-hook nil gud-keep-buffer gud-tooltip-mode] 5]) #@1018 Define FUNC to be a command sending CMD and bound to KEY, with optional doc string DOC. Certain %-escapes in the string arguments are interpreted specially if present. These are: %f -- Name (without directory) of current source file. %F -- Name (without directory or extension) of current source file. %d -- Directory of current source file. %l -- Number of current source line. %e -- Text of the C lvalue or function-call expression surrounding point. %a -- Text of the hexadecimal address surrounding point. %p -- Prefix argument to the command (if any) as a number. %c -- Fully qualified class name derived from the expression surrounding point (jdb only). The `current' source file is the file of the current buffer (if we're in a C file) or the source file current at the last break or step (if we're in the GUD buffer). The `current' line is that of the current buffer (if we're in a source file) or the source line number at the last break or step (if we're in the GUD buffer). (defalias 'gud-def '(macro . #[(func cmd key &optional doc) "\304\305\306D\307\310\311 \205 C\312\313\314\n;\203 \315\n\316BB\202 \nED\"BBE \2051 \317\320 P\306DE \205> \321\322\323 E\306DEF\207" [func doc cmd key progn defalias quote lambda (arg) append (interactive "p") if (not gud-running) gud-call (arg) local-set-key "" global-set-key vconcat gud-key-prefix] 13 (#$ . 9392)])) (defvar gud-last-frame nil) (defvar gud-last-last-frame nil) #@126 Description of the currently displayed GUD stack. The value t means that there is no stack, and we are in display-file mode. (defvar gud-last-speedbar-stackframe nil (#$ . 10868)) #@47 Keymap used when in the buffers display mode. (defvar gud-speedbar-key-map nil (#$ . 11054)) #@56 Display the data type of the watch expression element. (defalias 'gud-speedbar-item-info #[nil "\302`!\303Z8\304 8\203 \305\306\304 8\307 8#\202 \305\310\307 8\")\207" [gdb-var-list var line-number-at-pos 2 7 dframe-message "%s: %s" 3 "%s"] 5 (#$ . 11153)]) #@62 Install those variables used by speedbar to enhance gud/gdb. (defalias 'gud-install-speedbar-variables #[nil "\204+ \301 \302\303\304#\210\302\305\304#\210\302\306\304#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\315\316!\210\317\320\321\"\207" [gud-speedbar-key-map speedbar-make-specialized-keymap define-key "j" speedbar-edit-line "e" " " " " speedbar-toggle-line-expansion "D" gdb-var-delete "p" gud-pp speedbar-add-expansion-list ("GUD" gud-speedbar-menu-items gud-speedbar-key-map gud-expansion-speedbar-buttons) add-to-list speedbar-mode-functions-list ("GUD" (speedbar-item-info . gud-speedbar-item-info) (speedbar-line-directory . ignore))] 4 (#$ . 11421)]) #@53 Additional menu items to add to the speedbar frame. (defvar gud-speedbar-menu-items '(["Jump to stack frame" speedbar-edit-line :visible (not (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdbmi))] ["Edit value" speedbar-edit-line :visible (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdbmi)] ["Delete expression" gdb-var-delete :visible (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdbmi)] ["Auto raise frame" gdb-speedbar-auto-raise :style toggle :selected gdb-speedbar-auto-raise :visible (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdbmi)] ("Output Format" :visible (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdbmi) ["Binary" (gdb-var-set-format "binary") t] ["Natural" (gdb-var-set-format "natural") t] ["Hexadecimal" (gdb-var-set-format "hexadecimal") t])) (#$ . 12113)) (byte-code "\300\301!\203\f \302 \210\202 \303\304\302\"\210\300\207" [featurep speedbar gud-install-speedbar-variables add-hook speedbar-load-hook] 3) #@117 Wrapper for call to `speedbar-add-expansion-list'. DIRECTORY and ZERO are not used, but are required by the caller. (defalias 'gud-expansion-speedbar-buttons #[(_directory _zero) "\301!\207" [gud-comint-buffer gud-speedbar-buttons] 2 (#$ . 13126)]) #@214 Create a speedbar display based on the current state of GUD. If the GUD BUFFER is not running a supported debugger, then turn off the specialized speedbar mode. BUFFER is not used, but is required by the caller. (defalias 'gud-speedbar-buttons #[(buffer) "\205_\306!\205_r q\210\n)\307p\310\" \311\f! \312\f! < \313=\203\310\314 \210\315c\210=\316 >\211 ?\203\304\316 @\310\211 A ?@\211 B@ CBA@ D\317B8\203[ \317B8\202\\ \320 E\321B8 F\322B8 G\323B8 H\324\310DG\325ID%\210\324\310EG\325JE%\210\326\327C #\203\235 ATA\310\224T\202\210 A\310=\203\247 \316>H\203\263 H\330\230\203\331B8\330\232\204\315 \331B8\332\232\203\326\333E\"\203\334\335\336\316\211D\337FQ>\206\341 G\340=?\205\346 \341\316K\203 >\206\fG\342=\203\374 \343\202\fG\340=\203\344\202\f\345\202\f\345A& \210\202\271G\340=\203 \344>?A@\2039\326C\327P?A@@\"\2039\346@\202<\347@\326\350E\"\203\221\334\335@\351CD\337E\337F\260>\206^G\340=?\205c\341\316K\203\210>\206\211G\342=\203y\343\202\211G\340=\203\204\344\202\211\345\202\211\345A& \210\202\271\334\335@\351CD\337EQ\316\211>\204\252G\203\263K\203\263\344\202\264\345A& \210.\n?A\211?\2046 *\202T\212eb\210\352\353!)\203\333LM\232\204T \354=\203\347\355 !\202\354\356 !\210\316 N\314 \210N\204\374\357c\210\202\377\360c\210N\316 O\211 P\203OP@\211OA@\361\261\210OG\331U\203-\362O@\363\316\211\211\345&\210\202F\362O@\364\365 \366>\203=\367\202@\370\371!O\345&\210PA\211P\204\n+LM\372\f \"\210\373\f<\",\207" [gud-comint-buffer buffer gud-minor-mode minor-mode window start buffer-name get-buffer-window 0 window-start window-point gdbmi erase-buffer "Watch Expressions:\n" nil 3 " " 4 5 6 put-text-property face string-match "\\." "0" 2 "1" "char \\*$" speedbar-make-tag-line bracket 63 " " out-of-scope gdb-edit-value changed font-lock-warning-face shadow t 45 43 "\\*$\\|\\*&$" gdb-speedbar-expand-node looking-at "Current Stack:" gdb gud-gdb-get-stackframe speedbar-remove-localized-speedbar-support "No Stack frames\n" "Current Stack:\n" ":\n" speedbar-insert-button speedbar-directory-face speedbar-file-face speedbar-highlight-face (gdbmi gdb) gud-gdb-goto-stackframe error "Should never be here" set-window-start set-window-point p gdb-var-list parent var-list char depth var varnum expr type value status has-more font-lock-variable-name-face font-lock-type-face gdb-show-changed-values gud-last-last-frame gud-last-speedbar-stackframe gud-frame-list frame --dolist-tail--] 11 (#$ . 13383)]) (defvar gud-gdb-history nil) #@126 Default command to run an executable under GDB in text command mode. The option "--fullname" must be included in this value. (custom-declare-variable 'gud-gud-gdb-command-name "gdb --fullname" '(#$ . 15974) :type 'string :group 'gud) (defvar gud-gdb-marker-regexp "\\(.:?[^:\n]*\\):\\([0-9]*\\):.*\n") (defvar gud-marker-acc "") (make-variable-buffer-local 'gud-marker-acc) (defalias 'gud-gdb-marker-filter #[(string) " P\305\306 \"\203* \307\310\"\311\307\312\"!B\n\313\211\224OP\313\225\314O\202 \306\315\"\203B \n\313\211\224OP\313\225\314O\202* \306\316\"\203Z \n\313\211\224OP\313\224\314O\202` \nP\305\n)\207" [gud-marker-acc string output gud-gdb-marker-regexp gud-last-frame "" string-match match-string 1 string-to-number 2 0 nil "\n\\(.*\\)\n" "\n\\(.*\\)?\\'"] 5]) #@57 Keymap for minibuffer prompting of gud startup command. (defconst gud-minibuffer-local-map (byte-code "\302\303\304\305\300!\205\n \306 D$\207" [gud-minibuffer-local-map minibuffer-local-map easy-mmode-define-keymap ((" " . comint-dynamic-complete-filename)) nil boundp :inherit] 6) (#$ . 16786)) (defalias 'gud-query-cmdline #[(minor-mode &optional init) "\306\307\310#\311\312\"\313 !\204 \310L\210\314\315\316\" J\242\206k \n\206' \317!\320 \206j \310 \321 !\310 \211 \203e @\322!\203\\ \323!\204\\ \f\203Y \324\f\"\203\\ A\211\204: \310\f+Q\310 %*\207" [minor-mode hist-sym cmd-name init file default-directory gud-symbol history nil gud-val command-name boundp read-from-minibuffer format "Run %s (like this): " symbol-name " " directory-files file-executable-p file-directory-p file-newer-than-file-p f --dolist-tail-- gud-minibuffer-local-map] 8]) (defvar gdb-first-prompt t) #@75 Non-nil means this is text that has been saved for later in `gud-filter'. (defvar gud-filter-pending-text nil (#$ . 17707)) #@160 Run gdb on program FILE in buffer *gud-FILE*. The directory containing FILE becomes the initial working directory and source-file directory for your debugger. (defalias 'gud-gdb #[(command-line) "\203\" \306!\203\" \307!\203\" rq\210 )\310=\203\" \311 \210\312\313!\210\314\n\315\316#\210\317\301!\210\320\321\322\323\"\210\324\325\322\"\210\326\327 \330\"\322\"\210\321\331\332\"\210\324\333\331\"\210\326\327 \334\"\331\"\210\321\335\336\"\210\324\337\335\"\210\326\327 \340\"\335\"\210\321\341\342\"\210\324\343\341\"\210\326\327 \344\"\341\"\210\321\345\346\"\210\324\347\345\"\210\326\327 \350\"\345\"\210\321\351\352\"\210\324\353\351\"\210\326\327 \354\"\351\"\210\321\355\356\"\210\321\357\360\"\210\324\361\357\"\210\326\327 \362\"\357\"\210\321\363\364\"\210\324\365\363\"\210\326\327 \366\"\363\"\210\321\367\370\"\210\324\371\367\"\210\326\327 \372\"\367\"\210\321\373\374\"\210\324\375\373\"\210\326\327 \376\"\373\"\210\321\377\201D \"\210\324\201E \377\"\210\326\327 \201F \"\377\"\210\321\201G \201H \"\210\324\201I \201G \"\210\326\327 \201J \"\201G \"\210\321\201K \201L \"\210\321\201M \201N \"\210\324\201O \201M \"\210\326\327 \201P \"\201M \"\210\321\201Q \201R \"\210\324\201S \201Q \"\210\326\327 \201T \"\201Q \"\210\321\201U \201V \"\210\201W \201X \201Y \315\201Z $\210\317\304!\210\201[ \324\350\201\\ \"\210\201] \211@\201^ A\315\211BC\201_ \201` !\207" [gud-comint-buffer gud-minor-mode command-line gud-key-prefix gud-gdb-completion-function comint-prompt-regexp buffer-name get-buffer-process gdbmi gdb-restore-windows error "Multiple debugging requires restarting in text command mode" gud-common-init nil gud-gdb-marker-filter make-local-variable gdb defalias gud-break #[#1=(arg) "?\205 \302\303 \"\207" [gud-running arg gud-call "break %f:%l"] 3 "Set breakpoint at current line." #2="p"] local-set-key "" global-set-key vconcat "" gud-tbreak #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "tbreak %f:%l"] 3 "Set temporary breakpoint at current line." #2#] "" "" gud-remove #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "clear %f:%l"] 3 "Remove breakpoint at current line" #2#] "" "" gud-step #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "step %p"] 3 "Step one source line with display." #2#] "" "" gud-stepi #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "stepi %p"] 3 "Step one instruction with display." #2#] " " " " gud-next #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "next %p"] 3 "Step one line (skip functions)." #2#] "" "" gud-nexti #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "nexti %p"] 3 "Step one instruction (skip functions)." #2#] gud-cont #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "cont"] 3 "Continue with display." #2#] "" "" gud-finish #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "finish"] 3 "Finish executing current function." #2#] "" "" gud-jump #[#1# "?\205\f \301\302!\210\301\303!\207" [gud-running gud-call "tbreak %f:%l" "jump %f:%l"] 2 "Set execution address to current line." #2#] "\n" "\n" gud-up #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "up %p"] 3 "Up N stack frames (numeric arg)." #2#] "<" "<" gud-down paragraph-start gdb-first-prompt gud-running gud-filter-pending-text #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "down %p"] 3 "Down N stack frames (numeric arg)." #2#] ">" ">" gud-print #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "print %e"] 3 "Evaluate C expression at point." #2#] "" "" gud-pstar #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "print* %e"] 3 "Evaluate C dereferenced pointer expression at point." #2#] gud-pv #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "pv %e"] 3 "Print the value of the lisp variable." #2#] "" "" gud-until #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "until %l"] 3 "Continue to current line." #2#] "" "" gud-run #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "run"] 3 "Run the program." #2#] add-hook completion-at-point-functions gud-gdb-completion-at-point local gud-gdb-completions completion-at-point "^(.*gdb[+]?) *" t run-hooks gud-gdb-mode-hook] 6 (#$ . 17838) (list (gud-query-cmdline 'gud-gdb))]) #@213 Completion function for GDB commands. It receives two arguments: COMMAND, the prefix for which we seek completion; and CONTEXT, the text before COMMAND on the line. It should return a list of completion strings. (defvar gud-gdb-completion-function nil (#$ . 22105)) #@136 Completion table for GDB commands. COMMAND is the prefix for which we seek completion. CONTEXT is the text before COMMAND on the line. (defalias 'gud-gdb-completions #[(context command) "`\306 Z\307\310 \nQp G#`\306 ZU\204A \311`S!\312 \211 \203@ @\313\f\314\"\315=\2039 \316\f`Z\317\f!#\210 A\211\204# * \203Q \320\321 @\"\203Q \322\323!\210\324 !*\207" [start context command complete-list ol --dolist-tail-- field-beginning gud-gdb-run-command-fetch-lines "complete " overlays-at nil overlay-get field completion move-overlay overlay-end string-match "^Undefined command: \"complete\"" error "This version of GDB doesn't support the `complete' command" gud-gdb-completions-1] 6 (#$ . 22378)]) (defalias 'gud-gdb-completions-1 #[(complete-list) "\306\307\"\211\211A \203) \n@ @\230\203 \n A\211\241\210\202\n A\211\204 *G\310U\203X @\311\211 \312\313 \f#\203I T\311\225\2028 \314 \315\"\310U\203W \316PC+\207" [complete-list second first count pos str sort string-lessp 1 0 string-match "\\([^'\\]\\|\\\\'\\)*'" mod 2 "'"] 5]) #@59 Return the data to complete the GDB command before point. (defalias 'gud-gdb-completion-at-point #[nil "`\212\303\304 x\210`) \305\306\n\304 {\"!E*\207" [start end gud-gdb-completion-function "^ " comint-line-beginning-position completion-table-dynamic apply-partially] 7 (#$ . 23441)]) #@159 Filter used to read the list of lines output by a command. STRING is the output to filter. It is passed through `gud-gdb-marker-filter' before we look at it. (defalias 'gud-gdb-fetch-lines-filter #[(string) "\306! P\307\310\"\203 \n\311\224O B\311\225\312O\202 \307\f\"\203+ \312\207\313\207" [string gud-gdb-fetch-lines-string gud-gdb-fetch-lines-break gud-gdb-fetched-lines comint-prompt-regexp gud-gdb-fetch-lines-in-progress gud-gdb-marker-filter string-match "\n" 0 nil ""] 3 (#$ . 23739)]) #@59 Goto the stackframe described by TEXT, TOKEN, and INDENT. (defalias 'gud-gdb-goto-stackframe #[(_text token _indent) "\302 r\303\216\304 \210\305\306 A@P!\210\307\310!\210\311 +\207" [save-selected-window--state token internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) dframe-select-attached-frame gud-basic-call "server frame " sit-for 1 dframe-maybee-jump-to-attached-frame] 3 (#$ . 24257)]) #@40 Stack frames we are fetching from GDB. (defvar gud-gdb-fetched-stack-frame nil (#$ . 24714)) #@60 Extract the current stack frame out of the GUD GDB BUFFER. (defalias 'gud-gdb-get-stackframe #[(buffer) "\306\307\310\" @\205 \311\312 @\"?\205\203 \306\211 \203\200 \f@\306\211 \311\313 \"\204P \311\314 \"\204P \311\315 \"\203x \n\211@@\n@A@\316\317 \"\316\320 \"F\240\210\202x \316\317 \"\316\320 \"\311\315 \"\203q \316\317 \"\316\320 \"F\202u D\nB*\fA\211\204 *\n\237*\207" [buffer fetched-stack-frame-list newlst e --dolist-tail-- num nil gud-gdb-run-command-fetch-lines "server backtrace" string-match "No stack" "^#\\([0-9]+\\) +[0-9a-fx]+ in \\([:0-9a-zA-Z_]+\\) (" "^#\\([0-9]+\\) +\\([:0-9a-zA-Z_]+\\) (" "at \\([-0-9a-zA-Z_/.]+\\):\\([0-9]+\\)$" match-string 1 2 name] 8 (#$ . 24813)]) #@197 Run COMMAND, and return the list of lines it outputs. BUFFER is the current buffer which may be the GUD buffer in which to run. SKIP is the number of chars to skip on each line, it defaults to 0. (defalias 'gud-gdb-run-command-fetch-lines #[(command buffer &optional skip) "rq\210 =\205 \212db\210\306y\210\307\n!)??\205B \310\311\211 \206\" \306\312 \313!\210\203> \314\315!!\210\2020 \237-)\207" [gud-comint-buffer buffer comint-prompt-regexp skip gud-marker-filter gud-gdb-fetch-lines-break 0 looking-at t nil gud-gdb-fetch-lines-filter gud-basic-call accept-process-output get-buffer-process gud-gdb-fetch-lines-string gud-gdb-fetched-lines gud-gdb-fetch-lines-in-progress command] 5 (#$ . 25538)]) (defvar gud-sdb-history nil) #@69 If nil, we're on a System V Release 4 and don't need the tags hack. (defvar gud-sdb-needs-tags (byte-code "\300\301!?\207" [file-exists-p "/var"] 2) (#$ . 26293)) (defvar gud-sdb-lastfile nil) (defalias 'gud-sdb-marker-filter #[(string) "\203\n P\202 \305\306\307\n#\203& \310\311\"\312\310\313\"!B\211\202m \306\314\n#\203@ \310\315\"\211\312\310\311\"!B\211\202m \306\316\n#\203Q \310\315\"\211\202m \f\203j \306\317\n#\203j \f\312\310\320\"!B\211\202m \305\211\203v \321\225\202 \306\322\n#\203\204 \321\225\202v \n\206\212 \321\305O) \207" [gud-marker-acc string start gud-last-frame gud-sdb-lastfile nil string-match "\\(^\\|\n\\)\\*?\\(0x\\w* in \\)?\\([^:\n]*\\):\\([0-9]*\\):.*\n" match-string 3 string-to-number 4 "^\\(BREAKPOINT\\|STEPPED\\) process [0-9]+ function [^ ]+ in \\(.+\\)\n\\([0-9]+\\):" 2 "^\\(BREAKPOINT\\|STEPPED\\) process [0-9]+ function [^ ]+ in \\(.+\\)\n" "^\\([0-9]+\\):" 1 0 "\n"] 6]) (defalias 'gud-sdb-find-file #[(f) "\203 \302 !\207\303 !\207" [gud-sdb-needs-tags f find-tag-noselect find-file-noselect] 2]) #@160 Run sdb on program FILE in buffer *gud-FILE*. The directory containing FILE becomes the initial working directory and source-file directory for your debugger. (defalias 'sdb #[(command-line) "\203 \306\307!\210\203! \310\301!\203 ;\203 \311 !\204! \312\313!\210\314\n\315\316\317$\210\320\303!\210\321\322\323\324\"\210\325\326\323\"\210\327\330\f\331\"\323\"\210\322\332\333\"\210\325\334\332\"\210\327\330\f\335\"\332\"\210\322\336\337\"\210\325\340\336\"\210\327\330\f\341\"\336\"\210\322\342\343\"\210\325\344\342\"\210\327\330\f\345\"\342\"\210\322\346\347\"\210\325\350\346\"\210\327\330\f\351\"\346\"\210\322\352\353\"\210\325\354\352\"\210\327\330\f\355\"\352\"\210\322\356\357\"\210\325\360\356\"\210\327\330\f\361\"\356\"\210\322\362\363\"\210\325\364\362\"\210\327\330\f\365\"\362\"\210\366\2119\367\370!\207" [gud-sdb-needs-tags tags-file-name command-line gud-minor-mode gud-key-prefix comint-prompt-regexp require etags boundp file-exists-p error "The sdb support requires a valid tags table to work" gud-common-init nil gud-sdb-marker-filter gud-sdb-find-file make-local-variable sdb defalias gud-break #[#1=(arg) "?\205 \302\303 \"\207" [gud-running arg gud-call "%l b"] 3 "Set breakpoint at current line." #2="p"] local-set-key "" global-set-key vconcat "" gud-tbreak #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "%l c"] 3 "Set temporary breakpoint at current line." #2#] "" "" gud-remove #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "%l d"] 3 "Remove breakpoint at current line" #2#] "" "" gud-step #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "s %p"] 3 "Step one source line with display." #2#] "" "" gud-stepi #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "i %p"] 3 "Step one instruction with display." #2#] " " " " gud-next #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "S %p"] 3 "Step one line (skip functions)." #2#] "" "" gud-cont #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "c"] 3 "Continue with display." #2#] "" "" gud-print #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "%e/"] 3 "Evaluate C expression at point." #2#] "" "" "\\(^\\|\n\\)\\*" run-hooks sdb-mode-hook paragraph-start] 6 (#$ . 27375) (list (gud-query-cmdline 'sdb))]) (defvar gud-dbx-history nil) #@243 A list of directories that dbx should search for source code. If nil, only source files in the program directory will be known to dbx. The file names should be absolute, or relative to the directory containing the executable being debugged. (custom-declare-variable 'gud-dbx-directories nil '(#$ . 29693) :type '(choice (const :tag "Current Directory" nil) (repeat :value ("") directory)) :group 'gud) (defalias 'gud-dbx-massage-args #[(_file args) "\304\211\203 \n@\305 BB\nA\211\204 \237* \244\207" [gud-dbx-directories result directories args nil "-I"] 4]) (defalias 'gud-dbx-marker-filter #[(string) "\203\n P\202 \304\305\306\n#\204 \305\307\n#\2030 \310\311\"\312\310\313\"!B\314\225\202 \305\315\n#\203> \314\225\2020 \305\316\n#\205K \314\224\304O) \207" [gud-marker-acc string start gud-last-frame nil string-match "stopped in .* at line \\([0-9]*\\) in file \"\\([^\"]*\\)\"" "signal .* in .* at line \\([0-9]*\\) in file \"\\([^\"]*\\)\"" match-string 2 string-to-number 1 0 "\n" "\\(stopped\\|signal\\)"] 5]) #@69 Non-nil to assume the MIPS/OSF dbx conventions (argument `-emacs'). (defvar gud-mips-p (byte-code "\301\302\"\206 \301\303\"\206 \301\304\"\206 \301\305\"\207" [system-configuration string-match "^mips-[^-]*-ultrix" "^mips-[^-]*-riscos" "^mips-[^-]*-osf1" "^alpha[^-]*-[^-]*-osf"] 3) (#$ . 30749)) (defvar gud-dbx-command-name (byte-code "\301\205 \302P\207" [gud-mips-p "dbx" " -emacs"] 2)) (defalias 'gud-mipsdbx-marker-filter #[(string) " P\304\305\306\"\203* \307\310\"\311\307\312\"!B\n\313\211\224OP\313\225\314O\202 \305\315\"\203B \n\313\211\224OP\313\224\314O\202H \nP\304\n)\207" [gud-marker-acc string output gud-last-frame "" string-match "[][ 0-9]*\\([^:\n]*\\):\\([0-9]*\\):.*\n" match-string 1 string-to-number 2 0 nil "[][ 0-9]*.*\\'"] 5]) #@164 Non-nil to assume the interface appropriate for IRIX dbx. This works in IRIX 4, 5 and 6, but `gud-dbx-use-stopformat-p' provides a better solution in 6.1 upwards. (defvar gud-irix-p (byte-code "\301\302\"\205\f \301\303\"?\207" [system-configuration string-match "^mips-[^-]*-irix" "irix[6-9]\\.[1-9]"] 3) (#$ . 31544)) #@152 Non-nil to use the dbx feature present at least from Irix 6.1 whereby $stopformat=1 produces an output format compatible with `gud-dbx-marker-filter'. (defvar gud-dbx-use-stopformat-p (string-match "irix[6-9]\\.[1-9]" system-configuration) (#$ . 31873)) (defalias 'gud-irixdbx-marker-filter #[(string) "\306\211\307\n \"\204 \307\310 \"\203 \f P\311\202 \f P \203\207 \307\312 \"\2034 \313\314 !\315\"\210\202\207 \307\316 \"\203[ \317\320 \" \321!\203U \317\320 \"\322\317\323 \"!B) \210\202\207 \307\324 \"\203\207 \325\317\323 \"!\211 \203\200 \321!\203\200 \322\317\320 \"!B) \326\211\224O \206\214 \311*\207" [case-fold-search result comint-prompt-regexp string gud-marker-acc gud-comint-buffer nil string-match ".*\n" "" "^\\(\\[[0-9]+] \\)?Process +[0-9]+ ([^)]*) [^[]+\\[[^]\n]*]\n" process-send-string get-buffer-process "printf \"%1d:\",(int)$curline;file\n" "^[^ ][^[]*\\[\"\\([^\"]+\\)\":\\([0-9]+\\), [^]]+]\n" match-string 1 file-exists-p string-to-number 2 "\\([0-9]*\\):\\(.*\\)\n" gud-file-name 0 file gud-last-frame] 6]) (defalias 'gud-dguxdbx-marker-filter #[(string) "\203\n P\202 \305\306\307 \n#\203* \310\311\"\312\310\313\"!B\314\225\202 \307\315\n#\2038 \314\225\202* \307\316\n#\205E \314\224\306O* \207" [gud-marker-acc string start re gud-last-frame "^\\(\\(([0-9]+) \\)?Stopped at\\|Frame [0-9]+,\\) line \\([0-9]+\\), routine .*, file \\([^ \n]+\\)" nil string-match match-string 4 string-to-number 3 0 "\n" "Stopped\\|Frame"] 5]) #@160 Run dbx on program FILE in buffer *gud-FILE*. The directory containing FILE becomes the initial working directory and source-file directory for your debugger. (defalias 'dbx #[(command-line) "\203 \306 \307\310#\210\202 \n\203 \306 \311\312#\210\202 \306 \311\313#\210\314\303!\210\315\203u \316\317\320\"\210\321\322\317\"\210\323\324\f\325\"\317\"\210\316\326\327\"\210\321\330\326\"\210\323\324\f\331\"\326\"\210\316\332\333\"\210\321\334\332\"\210\323\324\f\335\"\332\"\210\316\336\337\"\210\321\340\336\"\210\323\324\f\341\"\336\"\210\202 \n\203\313 \316\332\342\"\210\321\334\332\"\210\323\324\f\335\"\332\"\210\316\336\343\"\210\321\340\336\"\210\323\324\f\341\"\336\"\210\316\317\344\"\210\321\322\317\"\210\323\324\f\325\"\317\"\210\316\326\345\"\210\321\330\326\"\210\323\324\f\331\"\326\"\210\346\347 !\350\"\210\202 \316\317\351\"\210\321\322\317\"\210\323\324\f\325\"\317\"\210\316\326\352\"\210\321\330\326\"\210\323\324\f\331\"\326\"\210\316\332\353\"\210\321\334\332\"\210\323\324\f\335\"\332\"\210@\203 \346\347 !\354\"\210\316\355\356\"\210\321\357\355\"\210\323\324\f\360\"\355\"\210\316\361\362\"\210\321\363\361\"\210\323\324\f\364\"\361\"\210\316\365\366\"\210\321\367\365\"\210\323\324\f\370\"\365\"\210\316\371\372\"\210\321\373\371\"\210\323\324\f\374\"\371\"\210\316\375\376\"\210\316\377\201C \"\210\321\201D \377\"\210\323\324\f\201E \"\377\"\210\316\201F \201G \"\210\321\201H \201F \"\210\323\324\f\201I \"\201F \"\210\316\201J \201K \"\210\201L \211AB\201M \201N !\207" [gud-mips-p command-line gud-irix-p gud-minor-mode gud-key-prefix gud-comint-buffer gud-common-init nil gud-mipsdbx-marker-filter gud-dbx-massage-args gud-irixdbx-marker-filter gud-dbx-marker-filter make-local-variable dbx defalias gud-up #[#1=(arg) "?\205 \302\303 \"\207" [gud-running arg gud-call "up %p"] 3 "Up (numeric arg) stack frames." #2="p"] local-set-key "<" global-set-key vconcat "<" gud-down #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "down %p"] 3 "Down (numeric arg) stack frames." #2#] ">" ">" gud-break #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "stop at \"%f\":%l"] 3 "Set breakpoint at current line." #2#] "" "" gud-finish #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "return"] 3 "Finish executing current function." #2#] "" "" #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "stop at \"%d%f\":%l"] 3 "Set breakpoint at current line." #2#] #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "return"] 3 "Finish executing current function." #2#] #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "up %p; printf \"%1d:\",(int)$curline;file\n"] 3 "Up (numeric arg) stack frames." #2#] #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "down %p; printf \"%1d:\",(int)$curline;file\n"] 3 "Down (numeric arg) stack frames." #2#] process-send-string get-buffer-process "printf \"%1d:\",(int)$curline;file\n" #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "up %p"] 3 "Up (numeric arg) stack frames." #2#] #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "down %p"] 3 "Down (numeric arg) stack frames." #2#] #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "file \"%d%f\"\nstop at %l"] 3 "Set breakpoint at current line." #2#] "set $stopformat=1\n" gud-remove #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "clear %l"] 3 "Remove breakpoint at current line" #2#] "" "" gud-step #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "step %p"] 3 "Step one line with display." #2#] "" "" gud-stepi #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "stepi %p"] 3 "Step one instruction with display." #2#] " " " " gud-next #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "next %p"] 3 "Step one line (skip functions)." #2#] "" "" gud-nexti #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "nexti %p"] 3 "Step one instruction (skip functions)." #2#] gud-cont gud-dbx-use-stopformat-p comint-prompt-regexp paragraph-start #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "cont"] 3 "Continue with display." #2#] "" "" gud-print #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "print %e"] 3 "Evaluate C expression at point." #2#] "" "" gud-run #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "run"] 3 "Run the program." #2#] "^[^)\n]*dbx) *" run-hooks dbx-mode-hook] 5 (#$ . 33386) (list (gud-query-cmdline 'dbx))]) (defvar gud-xdb-history nil) #@243 A list of directories that xdb should search for source code. If nil, only source files in the program directory will be known to xdb. The file names should be absolute, or relative to the directory containing the executable being debugged. (custom-declare-variable 'gud-xdb-directories nil '(#$ . 37860) :type '(choice (const :tag "Current Directory" nil) (repeat :value ("") directory)) :group 'gud) (defalias 'gud-xdb-massage-args #[(_file args) "\304\211\203 \n@\305 BB\nA\211\204 \237* \244\207" [gud-xdb-directories result directories args nil "-d"] 4]) (defalias 'gud-xdb-marker-filter #[(string) "\306\307 \n\"\204 \307\310\n\"\203 \nP\311\202 \nP\203G \307\312\"\204/ \307\313\"\203G \314\315\316\"!\317\315\320\"! \f\203F \f B*\206L \311)\207" [result comint-prompt-regexp string gud-marker-acc file line nil string-match ".*\n" "" "\\([^\n :]+\\): [^:]+: \\([0-9]+\\)[: ]" "[^: ]+:[ ]+\\([^:]+\\): [^:]+: \\([0-9]+\\):" string-to-number match-string 2 gud-file-name 1 gud-last-frame] 5]) #@311 Run xdb on program FILE in buffer *gud-FILE*. The directory containing FILE becomes the initial working directory and source-file directory for your debugger. You can set the variable `gud-xdb-directories' to a list of program source directories if your program contains sources from more than one directory. (defalias 'xdb #[(command-line) "\305\306\307#\210\310\301!\210\311\312\313\314\"\210\315\316\313\"\210\317\320\n\321\"\313\"\210\312\322\323\"\210\315\324\322\"\210\317\320\n\325\"\322\"\210\312\326\327\"\210\315\330\326\"\210\317\320\n\331\"\326\"\210\312\332\333\"\210\315\334\332\"\210\317\320\n\335\"\332\"\210\312\336\337\"\210\315\340\336\"\210\317\320\n\341\"\336\"\210\312\342\343\"\210\315\344\342\"\210\317\320\n\345\"\342\"\210\312\346\347\"\210\315\350\346\"\210\317\320\n\351\"\346\"\210\312\352\353\"\210\315\354\352\"\210\317\320\n\355\"\352\"\210\312\356\357\"\210\315\360\356\"\210\317\320\n\361\"\356\"\210\312\362\363\"\210\315\364\362\"\210\317\320\n\365\"\362\"\210\366\211\367\370!\207" [command-line gud-minor-mode gud-key-prefix comint-prompt-regexp paragraph-start gud-common-init gud-xdb-massage-args gud-xdb-marker-filter make-local-variable xdb defalias gud-break #[#1=(arg) "?\205 \302\303 \"\207" [gud-running arg gud-call "b %f:%l"] 3 "Set breakpoint at current line." #2="p"] local-set-key "" global-set-key vconcat "" gud-tbreak #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "b %f:%l\\t"] 3 "Set temporary breakpoint at current line." #2#] "" "" gud-remove #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "db"] 3 "Remove breakpoint at current line" #2#] "" "" gud-step #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "s %p"] 3 "Step one line with display." #2#] "" "" gud-next #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "S %p"] 3 "Step one line (skip functions)." #2#] "" "" gud-cont #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "c"] 3 "Continue with display." #2#] "" "" gud-up #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "up %p"] 3 "Up (numeric arg) stack frames." #2#] "<" "<" gud-down #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "down %p"] 3 "Down (numeric arg) stack frames." #2#] ">" ">" gud-finish #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "bu\\t"] 3 "Finish executing current function." #2#] "" "" gud-print #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "p %e"] 3 "Evaluate C expression at point." #2#] "" "" "^>" run-hooks xdb-mode-hook] 5 (#$ . 38896) (list (gud-query-cmdline 'xdb))]) (defvar gud-perldb-history nil) #@188 Convert a command line as would be typed normally to run perldb into one that invokes an Emacs-enabled debugging session. "-emacs" is inserted where it will be $ARGV[0] (see perl5db.pl). (defalias 'gud-perldb-massage-args #[(_file args) "\304\211\305 \2038 \306\307 @\"\2038 @\310\232\2048 @\311\232\2048 @\312\232\2032 \n \2040 \313\314!\210\315\n \210\202 \204O \203H \306\307 @\"\203L \313\316!\210\n \210 \203` @\311\232\203` \n \210\202h \203h \311B\317B \203v \n \210\202l \237+\207" [new-args seen-e shift args nil #[nil "\211A@ B\211\207" [args new-args] 2] string-match "^-" "-" "--" "-e" error "No code specified for -e" t "Can't use stdin as the script to debug" "-emacs"] 4 (#$ . 41523)]) (defalias 'gud-perldb-marker-filter #[(string) " P\304\305\306\"\203* \307\310\"\311\307\312\"!B\n\313\211\224OP\313\225\314O\202 \305\315\"\203B \n\313\211\224OP\313\224\314O\202H \nP\304\n)\207" [gud-marker-acc string output gud-last-frame "" string-match "\\(\\([a-zA-Z]:\\)?[^:\n]*\\):\\([0-9]*\\):.*\n" match-string 1 string-to-number 3 0 nil ".*\\'"] 5]) #@58 Default command to execute a Perl script under debugger. (custom-declare-variable 'gud-perldb-command-name "perl -d" '(#$ . 42634) :type 'string :group 'gud) #@163 Run perldb on program FILE in buffer *gud-FILE*. The directory containing FILE becomes the initial working directory and source-file directory for your debugger. (defalias 'perldb #[(command-line) "\305\306\307#\210\310\301!\210\311\312\313\314\"\210\315\316\313\"\210\317\320\n\321\"\313\"\210\312\322\323\"\210\315\324\322\"\210\317\320\n\325\"\322\"\210\312\326\327\"\210\315\330\326\"\210\317\320\n\331\"\326\"\210\312\332\333\"\210\315\334\332\"\210\317\320\n\335\"\332\"\210\312\336\337\"\210\315\340\336\"\210\317\320\n\341\"\336\"\210\312\342\343\"\210\315\344\342\"\210\317\320\n\345\"\342\"\210\312\346\347\"\210\315\350\346\"\210\317\320\n\351\"\346\"\210\352\211\353\354!\207" [command-line gud-minor-mode gud-key-prefix comint-prompt-regexp paragraph-start gud-common-init gud-perldb-massage-args gud-perldb-marker-filter make-local-variable perldb defalias gud-break #[#1=(arg) "?\205 \302\303 \"\207" [gud-running arg gud-call "b %l"] 3 "Set breakpoint at current line." #2="p"] local-set-key "" global-set-key vconcat "" gud-remove #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "B %l"] 3 "Remove breakpoint at current line" #2#] "" "" gud-step #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "s"] 3 "Step one source line with display." #2#] "" "" gud-next #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "n"] 3 "Step one line (skip functions)." #2#] "" "" gud-cont #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "c"] 3 "Continue with display." #2#] "" "" gud-print #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "p %e"] 3 "Evaluate perl expression at point." #2#] "" "" gud-until #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "c %l"] 3 "Continue to current line." #2#] "" "" "^ DB<+[0-9]+>+ " run-hooks perldb-mode-hook] 5 (#$ . 42799) (list (gud-query-cmdline 'perldb (concat (or (buffer-file-name) "-e 0") " ")))]) (defvar gud-pdb-history nil) (defvar gud-pdb-marker-regexp "^> \\([-a-zA-Z0-9_/.:\\]*\\|<string>\\)(\\([0-9]+\\))\\([a-zA-Z0-9_]*\\|\\?\\|<module>\\)()\\(->[^\n ]*\\)?[\n ]") (defvar gud-pdb-marker-regexp-file-group 1) (defvar gud-pdb-marker-regexp-line-group 2) (defvar gud-pdb-marker-regexp-fnname-group 3) (defvar gud-pdb-marker-regexp-start "^> ") (defalias 'gud-pdb-marker-filter #[(string) " P\306\307 \"\203? \310\f\"\311\310 \"! \211 \312\230\203& \202+ B*\n\313\211\225OP\313\225\314O\202 \307\"\203X \n\313\211\224OP\313\224\314O\202^ \nP\306\n)\207" [gud-marker-acc string output gud-pdb-marker-regexp gud-pdb-marker-regexp-file-group gud-pdb-marker-regexp-line-group "" string-match match-string string-to-number "<string>" 0 nil line file gud-last-frame gud-pdb-marker-regexp-start] 6]) #@115 File name for executing the Python debugger. This should be an executable on your path, or an absolute file name. (custom-declare-variable 'gud-pdb-command-name "pdb" '(#$ . 45564) :type 'string :group 'gud) #@162 Run pdb on program FILE in buffer `*gud-FILE*'. The directory containing FILE becomes the initial working directory and source-file directory for your debugger. (defalias 'pdb #[(command-line) "\305\306\307#\210\310\301!\210\311\312\313\314\"\210\315\316\313\"\210\317\320\n\321\"\313\"\210\312\322\323\"\210\315\324\322\"\210\317\320\n\325\"\322\"\210\312\326\327\"\210\315\330\326\"\210\317\320\n\331\"\326\"\210\312\332\333\"\210\315\334\332\"\210\317\320\n\335\"\332\"\210\312\336\337\"\210\315\340\336\"\210\317\320\n\341\"\336\"\210\312\342\343\"\210\315\344\342\"\210\317\320\n\345\"\342\"\210\312\346\347\"\210\315\350\346\"\210\317\320\n\351\"\346\"\210\312\352\353\"\210\315\354\352\"\210\317\320\n\355\"\352\"\210\312\356\357\"\210\315\360\356\"\210\317\320\n\361\"\356\"\210\312\362\363\"\210\315\364\362\"\210\317\320\n\365\"\362\"\210\366\211\367\370!\207" [command-line gud-minor-mode gud-key-prefix comint-prompt-regexp paragraph-start gud-common-init nil gud-pdb-marker-filter make-local-variable pdb defalias gud-break #[#1=(arg) "?\205 \302\303 \"\207" [gud-running arg gud-call "break %d%f:%l"] 3 "Set breakpoint at current line." #2="p"] local-set-key "" global-set-key vconcat "" gud-remove #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "clear %d%f:%l"] 3 "Remove breakpoint at current line" #2#] "" "" gud-step #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "step"] 3 "Step one source line with display." #2#] "" "" gud-next #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "next"] 3 "Step one line (skip functions)." #2#] "" "" gud-cont #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "continue"] 3 "Continue with display." #2#] "" "" gud-finish #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "return"] 3 "Finish executing current function." #2#] "" "" gud-up #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "up"] 3 "Up one stack frame." #2#] "<" "<" gud-down #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "down"] 3 "Down one stack frame." #2#] ">" ">" gud-print #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "p %e"] 3 "Evaluate Python expression at point." #2#] "" "" gud-statement #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "! %e"] 3 "Execute Python statement at point." #2#] "" "" "^(Pdb) *" run-hooks pdb-mode-hook] 5 (#$ . 45779) (list (gud-query-cmdline 'pdb))]) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\207" [custom-declare-variable gud-jdb-command-name "jdb" "Command that executes the Java debugger." :type string :group gud gud-jdb-use-classpath t "If non-nil, search for Java source files in classpath directories.\nThe list of directories to search is the value of `gud-jdb-classpath'.\nThe file pathname is obtained by converting the fully qualified\nclass information output by jdb to a relative pathname and appending\nit to `gud-jdb-classpath' element by element until a match is found.\n\nThis method has a significant jdb startup time reduction advantage\nsince it does not require the scanning of all `gud-jdb-directories'\nand parsing all Java files for class information.\n\nSet to nil to use `gud-jdb-directories' to scan java sources for\nclass information on jdb startup (original method)." boolean] 8) #@897 Java/jdb classpath directories list. If `gud-jdb-use-classpath' is non-nil, gud-jdb derives the `gud-jdb-classpath' list automatically using the following methods in sequence (with subsequent successful steps overriding the results of previous steps): 1) Read the CLASSPATH environment variable, 2) Read any "-classpath" argument used to run jdb, or detected in jdb output (e.g. if jdb is run by a script that echoes the actual jdb command before starting jdb), 3) Send a "classpath" command to jdb and scan jdb output for classpath information if jdb is invoked with an "-attach" (to an already running VM) argument (This case typically does not have a "-classpath" command line argument - that is provided to the VM when it is started). Note that method 3 cannot be used with oldjdb (or Java 1 jdb) since those debuggers do not support the classpath command. Use 1) or 2). (defvar gud-jdb-classpath nil (#$ . 49115)) #@185 Directory list provided by an (optional) "-sourcepath" option to jdb. This list is prepended to `gud-jdb-classpath' to form the complete list of directories searched for source files. (defvar gud-jdb-sourcepath nil (#$ . 50062)) #@202 Maximum number of debugger output characters to keep. This variable limits the size of `gud-marker-acc' which holds the most recent debugger output history while searching for source file information. (defvar gud-marker-acc-max-length 4000 (#$ . 50298)) #@42 History of argument lists passed to jdb. (defvar gud-jdb-history nil (#$ . 50558)) #@540 A list of directories that gud jdb should search for source code. The file names should be absolute, or relative to the current directory. The set of .java files residing in the directories listed are syntactically analyzed to determine the classes they define and the packages in which these classes belong. In this way gud jdb maps the package-qualified class names output by the jdb debugger to the source file from which the class originated. This allows gud mode to keep the source code display in sync with the debugging session. (defvar gud-jdb-directories (list ".") (#$ . 50648)) #@59 List of the java source files for this debugging session. (defvar gud-jdb-source-files nil (#$ . 51246)) #@67 Association list of fully qualified class names and source files. (defvar gud-jdb-class-source-alist nil (#$ . 51357)) (defvar gud-jdb-analysis-buffer nil) #@35 Holds temporary classpath values. (defvar gud-jdb-classpath-string nil (#$ . 51519)) #@194 Return a list of java source files (absolute paths). PATH gives the directories in which to search for files with extension EXTN. Normally EXTN is given as the regular expression "\.java$" . (defalias 'gud-jdb-build-source-files-list #[(path extn) "\301\302\303\304\"\"\207" [path apply nconc mapcar #[(d) "\302!\205\f \303\304 \305$\207" [d extn file-directory-p directory-files t nil] 5]] 5 (#$ . 51611)]) (defalias 'gud-jdb-skip-whitespace #[nil "\300\301w\207" [" \n \f" nil] 2]) (defalias 'gud-jdb-skip-single-line-comment #[nil "\300\207" [nil] 1]) (defalias 'gud-jdb-skip-traditional-or-documentation-comment #[nil "\300u\210\301\302\215\207" [2 break (byte-code "m?\205) g\300=\203# \301u\210m\204 g\302=\203 \301u\210\303\304\301\"\210\202 \301u\210\202 \207" [42 nil 47 throw break] 3)] 2]) (defalias 'gud-jdb-skip-whitespace-and-comments #[nil "\300 \210\301\302\215\207" [gud-jdb-skip-whitespace done (byte-code "\300\301!\203 \302 \210\303 \210\202 \300\304!\203 \305 \210\303 \210\202 \306\307\310\"\210\202 " [looking-at "//" gud-jdb-skip-single-line-comment gud-jdb-skip-whitespace "/\\*" gud-jdb-skip-traditional-or-documentation-comment throw done nil] 3)] 2]) (defalias 'gud-jdb-skip-id-ish-thing #[nil "\300\301w\207" ["^ /\n \f,;{" nil] 2]) (defalias 'gud-jdb-skip-string-literal #[nil "\300u\210g\301=\203 \300u\202 g\302=\204 \300u\210\202 \300u\207" [nil 92 34] 2]) (defalias 'gud-jdb-skip-character-literal #[nil "\300u\210g\301=\203\f \302u\210g\303=\204 \300u\210\202 \300u\207" [nil 92 2 39] 2]) (defalias 'gud-jdb-skip-block #[nil "g\301=\204< \302\303!\203 \304 \210\202 \302\305!\203 \306 \210\202 g\307=\203* \310 \210\202 g\311=\2036 \312 \210\202 \313u\210\202 \313u\210\314\315=?\205\234 \302\303!\203T \304 \210\202A \302\305!\203` \306 \210\202A g\307=\203l \310 \210\202A g\311=\203x \312 \210\202A g\301=\203\207 T\313u\210\202A g\316=\203\226 S\313u\210\202A \313u\210\202A )\207" [open-level 123 looking-at "//" gud-jdb-skip-single-line-comment "/\\*" gud-jdb-skip-traditional-or-documentation-comment 34 gud-jdb-skip-string-literal 39 gud-jdb-skip-character-literal nil 1 0 125] 2]) (defalias 'gud-jdb-analyze-source #[(buf file) "\303 q\210\304\n\303\211\211\305%\210\306b\210\307\310\215\210)\207" [l buf file nil insert-file-contents t 0 abort (byte-code "\304\305 \210m\204\323 g\306=\203 \307u\210\202 \310\311!\203! \312 \210\202 \310\313!\203- \314 \210\202 \310\315!\203T \316u\210\317 \210`\320 \210 `{\321P\317 \210g\306=\203P \307u\210)\202 \310\322!\203r \323u\210\317 \210\320 \210\317 \210g\306=\203 \307u\210\202 \310\324!\203~ \323u\210\202 \310\325!\203\212 \326u\210\202 \310\327!\203\226 \330u\210\202 \310\331!\203\267 \330u\210\317 \210`\320 \210\n `{PC\244)\332 \210\202 \310\333!\203\306 \334u\210\332 \210\202 \335\336 \"\210\337\340\307\"\210\202 )\307\207" [p s l file "" gud-jdb-skip-whitespace 59 nil looking-at "//" gud-jdb-skip-single-line-comment "/\\*" gud-jdb-skip-traditional-or-documentation-comment "package" 7 gud-jdb-skip-whitespace-and-comments gud-jdb-skip-id-ish-thing "." "import" 6 "public" "abstract" 8 "final" 5 "class" gud-jdb-skip-block "interface" 9 message "Error parsing file %s." throw abort] 4)] 6]) (defalias 'gud-jdb-build-class-source-alist-for-file #[(file) "\302\303\304 \"\"\207" [gud-jdb-analysis-buffer file mapcar #[(c) " B\207" [c file] 2] gud-jdb-analyze-source] 5]) (defalias 'gud-jdb-build-class-source-alist #[(sources) "\302\303!\304\305\306\307 \"\"\310!\210\311\207" [gud-jdb-analysis-buffer sources get-buffer-create " *gud-jdb-scratch*" apply nconc mapcar gud-jdb-build-class-source-alist-for-file kill-buffer nil] 5]) (defalias 'gud-jdb-massage-args #[(_file args) "\205p \305\211\203b \204b \306\307@\"\211\204[ \306\310@\"\211\204[ \306\311@\"\203< \312\n\313\314\315@\"\211D\"\202[ \306\316@\"\203T \312\n\317\314\315@\"\211D\"\202[ \312\n@C\"A\211\204\f \203n \320p!\210\321\322!\210\n*\207" [args user-error massaged-args gud-jdb-classpath-string gud-jdb-sourcepath nil string-match "-classpath$" "-sourcepath$" "-classpath\\(.+\\)" append "-classpath" match-string 1 "-sourcepath\\(.+\\)" "-sourcepath" kill-buffer error "Error: Omit whitespace between '-classpath or -sourcepath' and its value"] 7]) (defalias 'gud-jdb-find-source-file #[(p) "\302 \"A\207" [p gud-jdb-class-source-alist assoc] 3]) (defvar gud-jdb-lowest-stack-level 999) #@148 Find source file corresponding to fully qualified class P. Convert P from jdb's output, converted to a pathname relative to a classpath directory. (defalias 'gud-jdb-find-source-using-classpath #[(p) "\306 \307\216\310\311\312 \313\314\n\"\203 \315\316\317\211\n$\202 )\320\"\321#\322P\323 \f\"\324 \203H \325@\321Q!\211\204H A\211\2041 \205S @\321Q-\207" [save-match-data-internal p x gud-jdb-sourcepath gud-jdb-classpath found-file match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) mapconcat identity split-string string-match "$.*" replace-match "" t "\\." "/" ".java" append nil file-readable-p cplist filename] 9 (#$ . 56062)]) #@201 Alias for function used to locate source files. Set to `gud-jdb-find-source-using-classpath' or `gud-jdb-find-source-file' during jdb initialization depending on the value of `gud-jdb-use-classpath'. (defalias 'gud-jdb-find-source #[(_string) "\300\207" [nil] 1 (#$ . 56774)]) #@73 Parse the classpath list and convert each item to an absolute pathname. (defalias 'gud-jdb-parse-classpath-string #[(string) "\302\303\302\304\305\306 \307Q\"\"\"\207" [string path-separator mapcar #[(s) "\301\302\"\203 \303\304\305\211$\207\207" [s string-match "[/\\]$" replace-match "" nil] 5] file-truename split-string "[ \n ,\"" "]+"] 9 (#$ . 57057)]) (defalias 'gud-jdb-marker-filter #[(string) "\203\n P\202 \n\203+ \204+ \306\307\"\204\" \306\310\"\203+ \311\312\313\"\211!\314 \306\315\"\203\231 \313\224\203Y \314 \316\313\224T\313\225\317ZO!\211 W\205U \320)\202Z \320\203\220 \321\312\317\"!\211\203\214 \316\312\322\" \306\323 \"\203\202 \324\325\314\211 $\202\204 )!B \202\220 \326\327!\210\330\225\314O\202- \306 \"\203\244 \331 )G V\203\270 \332_\322\245[\314O \207" [gud-marker-acc string gud-jdb-use-classpath gud-jdb-classpath-string gud-jdb-classpath file-found string-match "classpath:[ []+\\([^]]+\\)" "-classpath[ \"]+\\([^ \"]+\\)" gud-jdb-parse-classpath-string match-string 1 nil "\\(\\[[0-9]+] \\)*\\([a-zA-Z0-9.$_]+\\)\\.[a-zA-Z0-9$_<>(),]+ \\(([a-zA-Z0-9.$_]+:\\|line=\\)\\([0-9.,]+\\)" string-to-number 2 t gud-jdb-find-source 4 "[.,]" replace-match "" message "Could not find source file." 0 999 3 n gud-jdb-lowest-stack-level numstr gud-last-frame comint-prompt-regexp gud-marker-acc-max-length] 8]) #@42 Command that executes the Java debugger. (defvar gud-jdb-command-name "jdb" (#$ . 58447)) #@573 Run jdb with command line COMMAND-LINE in a buffer. The buffer is named "*gud*" if no initial class is given or "*gud-<initial-class-basename>*" if there is. If the "-classpath" switch is given, omit all whitespace between it and its value. See `gud-jdb-use-classpath' and `gud-jdb-classpath' documentation for information on how jdb accesses source files. Alternatively (if `gud-jdb-use-classpath' is nil), see `gud-jdb-directories' for the original source file access method. For general information about commands available to control jdb from gud, see `gud-mode'. (defalias 'jdb #[(command-line) "\306\211\307\310!\206 \311\211\203 \312\n!\306\313 \314\315#\210\316\304!\210\317\n\203* \312\n!\306 \2034 \312 !\320\321\322\"\210\323\324\321\"\210\325\326 \327\"\321\"\210\320\330\331\"\210\323\332\330\"\210\325\326 \333\"\330\"\210\320\334\335\"\210\323\336\334\"\210\325\326 \337\"\334\"\210\320\340\341\"\210\323\342\340\"\210\325\326 \343\"\340\"\210\320\344\345\"\210\323\346\344\"\210\325\326 \347\"\344\"\210\320\350\351\"\210\323\352\350\"\210\325\326 \353\"\350\"\210\320\354\355\"\210\323\356\354\"\210\325\326 \357\"\354\"\210\320\360\361\"\210\323\362\360\"\210\325\326 \363\"\360\"\210\320\364\365\"\210\320\366\367\"\210\323\370\366\"\210\325\326 \371\"\366\"\210\320\372\373\"\210\374\211@A\375\376!\210B\203\377\201F \"\203 \201G \201H !\210\201I \201J M\207\201K \201L C\201M \"\211D!E\201I \201N M\207" [gud-jdb-classpath gud-jdb-sourcepath gud-jdb-classpath-string command-line gud-minor-mode gud-key-prefix nil getenv "CLASSPATH" "." gud-jdb-parse-classpath-string gud-common-init gud-jdb-massage-args gud-jdb-marker-filter make-local-variable jdb defalias gud-break #[#1=(arg) "?\205 \302\303 \"\207" [gud-running arg gud-call "stop at %c:%l"] 3 "Set breakpoint at current line." #2="p"] local-set-key "" global-set-key vconcat "" gud-remove #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "clear %c:%l"] 3 "Remove breakpoint at current line" #2#] "" "" gud-step #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "step"] 3 "Step one source line with display." #2#] "" "" gud-next #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "next"] 3 "Step one line (skip functions)." #2#] "" "" gud-cont #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "cont"] 3 "Continue with display." #2#] "" "" gud-finish #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "step up"] 3 "Continue until current method returns." #2#] "" "" gud-up #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "up where"] 3 "Up one stack frame." #2#] "<" "<" gud-down #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "down where"] 3 "Up one stack frame." #2#] ">" ">" gud-run #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "run"] 3 "Run the program." #2#] gud-print #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "print %e"] 3 "Print value of expression at point." #2#] "" "" gud-pstar #[#1# "?\205 \302\303 \"\207" [gud-running arg gud-call "dump %e"] 3 "Print all object information at point." #2#] "^> \\|^[^ ]+\\[[0-9]+\\] " run-hooks jdb-mode-hook string-match comint-prompt-regexp paragraph-start gud-jdb-use-classpath gud-jdb-directories gud-jdb-source-files gud-jdb-class-source-alist "-attach" gud-call "classpath" gud-jdb-find-source gud-jdb-find-source-using-classpath gud-jdb-build-class-source-alist gud-jdb-build-source-files-list "\\.java$" gud-jdb-find-source-file] 5 (#$ . 58544) (list (gud-query-cmdline 'jdb))]) (defvar gud-delete-prompt-marker nil) (byte-code "\300\301\302\303#\210\304\305N\204 \300\304\305\306\307!#\210\310\311!\204 \300\311\312\301#\210\300\207" [put gud-mode mode-class special gud-mode-hook variable-documentation purecopy "Hook run when entering Debugger mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp gud-mode-map definition-name] 5) (defvar gud-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" [gud-mode-map variable-documentation put purecopy "Keymap for `gud-mode'." boundp gud-mode-syntax-table definition-name gud-mode] 5) (defvar gud-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [gud-mode-syntax-table variable-documentation put purecopy "Syntax table for `gud-mode'." gud-mode-abbrev-table definition-name gud-mode] 5) (defvar gud-mode-abbrev-table (progn (define-abbrev-table 'gud-mode-abbrev-table nil) gud-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [gud-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `gud-mode'." gud-mode derived-mode-parent comint-mode] 5) #@2370 Major mode for interacting with an inferior debugger process. You start it up with one of the commands M-x gdb, M-x sdb, M-x dbx, M-x perldb, M-x xdb, or M-x jdb. Each entry point finishes by executing a hook; `gdb-mode-hook', `sdb-mode-hook', `dbx-mode-hook', `perldb-mode-hook', `xdb-mode-hook', or `jdb-mode-hook' respectively. After startup, the following commands are available in both the GUD interaction buffer and any source buffer GUD visits due to a breakpoint stop or step operation: \[gud-break] sets a breakpoint at the current file and line. In the GUD buffer, the current file and line are those of the last breakpoint or step. In a source buffer, they are the buffer's file and current line. \[gud-remove] removes breakpoints on the current file and line. \[gud-refresh] displays in the source window the last line referred to in the gud buffer. \[gud-step], \[gud-next], and \[gud-stepi] do a step-one-line, step-one-line (not entering function calls), and step-one-instruction and then update the source window with the current file and position. \[gud-cont] continues execution. \[gud-print] tries to find the largest C lvalue or function-call expression around point, and sends it to the debugger for value display. The above commands are common to all supported debuggers except xdb which does not support stepping instructions. Under gdb, sdb and xdb, \[gud-tbreak] behaves exactly like \[gud-break], except that the breakpoint is temporary; that is, it is removed when execution stops on it. Under gdb, dbx, and xdb, \[gud-up] pops up through an enclosing stack frame. \[gud-down] drops back down through one. If you are using gdb or xdb, \[gud-finish] runs execution to the return from the current function and stops. All the keystrokes above are accessible in the GUD buffer with the prefix C-c, and in all buffers through the prefix C-x C-a. All pre-defined functions for which the concept make sense repeat themselves the appropriate number of times if you give a prefix argument. You may use the `gud-def' macro in the initialization hook to define other commands. Other commands for interacting with the debugger process are inherited from comint mode, which see. In addition to any hooks its parent mode `comint-mode' might have run, this mode runs the hook `gud-mode-hook', as the final step during initialization. (defalias 'gud-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\324*\325\"\204V *+=\204V \326*\325+C#\210\327 !\210\330\f!\210*+\331,\332\317 \333\334#\210\306\335!\210\336 \306\337!\210- \306\340!\210\306\341!\210\307!\306\342!\210\306\343!\210\344 #\345\346\347\336\307$\210)\350\351!\207" [delay-mode-hooks major-mode mode-name gud-mode-map gud-mode-syntax-table parent make-local-variable t comint-mode gud-mode "Debugger" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table (":%s") define-key "\f" gud-refresh gud-last-frame nil tool-bar-map comint-prompt-regexp comint-input-ignoredups paragraph-start gud-delete-prompt-marker make-marker add-hook kill-buffer-hook gud-kill-buffer-hook run-mode-hooks gud-mode-hook gud-mode-abbrev-table local-abbrev-table mode-line-process gud-tool-bar-map] 6 (#$ . 63412) nil]) #@56 Non-nil if GUD should `cd' to the debugged executable. (custom-declare-variable 'gud-chdir-before-run t '(#$ . 66901) :group 'gud :type 'boolean) (defalias 'gud-common-init #[(command-line massage-args marker-filter &optional find-file) "\306!\211@ A\211 \203 @\307H\310U\203 A\211\204 \205* @ \311\240\210)\211 *\2055 \312*! + A ,*\205P \313+!\203N \314+!\202P + -*\205] \315\316-!P .\317\320.\321Q! /\322\320.\321Q!\210/\203\200 \323/!\203\200 \324\325!\210\f*\203\230 0\203\230 \313-!\203\230 \313-!n\204\237 \326 \210\327 \330\261\210,\211 \203\272 @\311=\204\272 A\211\204\254 \203\326 \331-!\203\322 \332\333-!!\211-\202\324 -\240\210)\334\335\336.P\n\3371\203\356 1-,\"\202\360 ,%\210\340 \210\341\342!\210*\205\316-!\". \341\343!\2102#3\203\341\344!\2103$\3374\345\323p!\346\"\210\347\323p!\350\"\210\351 \207" [command-line words program default-directory dir w split-string-and-unquote 0 45 t substitute-in-file-name file-name-directory expand-file-name "-" file-name-nondirectory get-buffer "*gud" "*" switch-to-buffer get-buffer-process error "This program is already being debugged" newline "Current directory is " "\n" file-remote-p tramp-file-name-localname tramp-dissect-file-name apply make-comint "gud" nil gud-mode make-local-variable gud-target-name gud-marker-filter gud-find-file set-process-filter gud-filter set-process-sentinel gud-sentinel gud-set-buffer file-word file-subst args file filepart existing-buffer gud-chdir-before-run massage-args marker-filter find-file gud-last-last-frame] 9]) (defalias 'gud-set-buffer #[nil "\301\302!\205 p\211\207" [gud-comint-buffer derived-mode-p gud-mode] 2]) #@110 Non-nil means don't process anything from the debugger right now. It is saved for when this flag is not set. (defvar gud-filter-defer-flag nil (#$ . 68596)) (defalias 'gud-filter #[(proc string) "\306\211\307\310\n!!\205\225 \203 \f\206 \311 P\211\202\225 \312\f\203( \f P\306r\310\n!q\210\214~\210\313!\203L \312 \314\n!|\210\315 \210\306\211\223\210)\316 !\205` `\314\n!Y\205` \317p!)\320\n \"\210)\203\202 \321! r\322\216\323@\324\"\210\325 \210+\202\214 r\310\n!q\210\325 \210))\f\205\225 \326\n\311\"*\207" [process-window output proc gud-filter-defer-flag gud-filter-pending-text string nil buffer-name process-buffer "" t marker-buffer process-mark comint-update-fence gud-marker-filter get-buffer-window comint-output-filter internal--before-with-selected-window ((internal--after-with-selected-window save-selected-window--state)) select-window norecord gud-display-frame gud-filter gud-delete-prompt-marker inhibit-read-only gud-last-frame save-selected-window--state] 3]) (defvar gud-minor-mode-type nil) (defvar gud-overlay-arrow-position nil) (add-to-list 'overlay-arrow-variable-list 'gud-overlay-arrow-position) (defalias 'gud-sentinel #[(proc msg) "\306\307!!\204+ \310\311\310\"\210\312\313!\203 \n\314\230\203 \315 !\210\f\316=\203( \317 \207\320 \207\321!\322>\205 \310\323\324 \"\316=\203D \317 \210\202G \320 \210p \325\216\307!q\210\326\327\321!!P \330 \210m\203m \331 \332 \261\210\202{ \212db\210\331 \332 \261\210)\333!*\207" [proc gud-overlay-arrow-position speedbar-initial-expansion-list-name speedbar-previously-used-expansion-list-name gud-minor-mode-type gud-comint-buffer buffer-name process-buffer nil set-process-buffer boundp speedbar-frame "GUD" speedbar-change-initial-expansion-list gdbmi gdb-reset gud-reset process-status (signal exit) buffer-local-value gud-minor-mode ((set-buffer obuf)) ":" symbol-name force-mode-line-update 10 " " delete-process obuf mode-line-process mode-name msg] 4]) (defalias 'gud-kill-buffer-hook #[nil "\302\303\304\217\207" [gud-minor-mode gud-minor-mode-type nil (byte-code "\300\301p!!\210\302\303\304!!\207" [kill-process get-buffer-process delete-process get-process "gdb-inferior"] 3) ((error))] 3]) (defalias 'gud-reset #[nil "\304 \305\211\205) @\211\n=\204! rq\210 \203 \305\306\307!\210) A\211\204 \305*\207" [buffer --dolist-tail-- gud-comint-buffer gud-minor-mode buffer-list nil kill-local-variable tool-bar-map] 3]) #@143 Find and obey the last filename-and-line marker from the debugger. Obeying it means displaying in another window the specified file and line. (defalias 'gud-display-frame #[nil "\205 \302 \210\303@A\"\210\304\211\207" [gud-last-frame gud-last-last-frame gud-set-buffer gud-display-line nil] 3 (#$ . 71057) nil]) (defalias 'gud-display-line #[(true-file line) "\306r q\210\307\n!)\211\205 \310 !\206 \311 ! \312 \205\245 r q\210\313 !\204C \204C \314\315\316\317 \"!\203@ \320\306\211\"\210\202C \306\214~\210eb\210Sy\210`\204Y \321 `p\223\210\322\323!\203} \203p \324 \210\202} \203} \203} \325 \210) eW\204\212 dV\203\217 ~\210 b\210)\f\205\245 \326\f\"\210 \327=\205\245 \f\211 ,\207" [last-nonmenu-event gud-comint-buffer true-file buffer window pos t gud-find-file get-buffer-window display-buffer nil verify-visited-file-modtime yes-or-no-p format "File %s changed on disk. Reread from disk? " buffer-name revert-buffer make-marker featurep hl-line global-hl-line-highlight hl-line-highlight set-window-point gdbmi gud-keep-buffer line gud-overlay-arrow-position global-hl-line-mode hl-line-mode hl-line-sticky-flag gud-minor-mode gdb-source-window] 5]) (defalias 'gud-format-command #[(str arg) "p=? \206 \n\306 \203\306 \307\310 \")\203\311\312\313 \"!\306 !\211 \"\314=\203B \315 \203: \316 \202< \f@!!\202\377 \"\317=\203[ \320 \203S \316 \202U \f@!!\202\377 \"\321=\203t \322 \203l \316 \202n \f@!!\202\377 \"\323=\203\235 \324 \203\225 \214~\210\325e`\"n\203\217 \326\202\220 \327\\)\202\227 \fA!!\202\377 \"\330=\203\253 \331 !\202\377 \"\332=\203\271 \333 !\202\377 \"\334=\203\355 \335 \203\312 \316 \202\314 \f@ \203\345 \214~\210\325e`\"n\203\337 \326\202\340 \327\\)\202\347 \fA\"!\202\377 \"\336=\203\377 #\205\375 \324#!! \312\326 \"!Q* \313\225\306O\211 \204 P+\207" [gud-comint-buffer gud-last-frame gud-last-last-frame result frame insource nil string-match "\\([^%]*\\)%\\([adefFlpc]\\)" string-to-char match-string 2 102 file-name-nondirectory buffer-file-name 70 file-name-base 100 file-name-directory 108 int-to-string count-lines 1 0 101 gud-find-expr 97 gud-read-address 99 gud-find-class 112 str case-fold-search subst key arg] 6]) #@75 Return a string containing the core-address found in the buffer at point. (defalias 'gud-read-address #[nil "\304 \305\216\212`\306\211\307\310 \311Z\312#\205 `\211\203, \313u\210\n\314\315!\210\316u\210`{\202B \317\320!\210\321u\210`\321u\210\314\320!\210\316u\210 `{.\207" [save-match-data-internal begin found pt match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) nil search-backward "0x" 7 t 2 re-search-forward "[^0-9a-f]" -1 re-search-backward "[^0-9]" 1] 5 (#$ . 73300)]) (defalias 'gud-call #[(fmt &optional arg) "\303 \"\304\305\n\"\210\306\307!\210\310\n!)\207" [fmt arg msg gud-format-command message "Command: %s" sit-for 0 gud-basic-call] 3]) #@64 Invoke the debugger COMMAND displaying source in other window. (defalias 'gud-basic-call #[(command) "\306 \210\307!\211\204 \310\311!\210rq\210\212\214~\210\312\n!\203# \nb\210\202+ \313 !b\210\314y\210\315 !\2036 \n`\316\223\210\f\317=\203F \320 D\"\202M \321 \322P\",\207" [gud-comint-buffer proc gud-delete-prompt-marker comint-prompt-regexp gud-minor-mode comint-input-sender gud-set-buffer get-buffer-process error "Current buffer has no process" marker-position process-mark 0 looking-at nil gdbmi apply process-send-string "\n" command] 5 (#$ . 74018) nil]) #@58 Fix up a possibly garbled display, and redraw the arrow. (defalias 'gud-refresh #[(&optional arg) "\204 \303 \210\304\n!\207" [gud-last-frame gud-last-last-frame arg gud-display-frame recenter] 2 (#$ . 74599) "P"]) (defvar gud-find-expr-function 'gud-find-c-expr) (defalias 'gud-find-expr #[(&rest args) "\203 \203 \306 \307 {\202 \310\n \" \311 \312\216\313\314\f\"\203% \315\316!\210rq\210\212\317\320!!b\210\321y\210\322!\203I `\323\223\210\324 \325\"\210\326\327\"\330=\204X \f\331Pc\210,\f)\207" [transient-mark-mode mark-active gud-find-expr-function args expr save-match-data-internal region-beginning region-end apply match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "\n" error "Expression must not include a newline" process-mark get-buffer-process 0 looking-at nil set-marker-insertion-type t buffer-local-value gud-minor-mode jdb " = " gud-comint-buffer comint-prompt-regexp gud-delete-prompt-marker] 3]) #@40 Returns the expr that surrounds point. (defalias 'gud-find-c-expr #[nil "\212`\304 \305 \2035 \306 \"\2035 @ AB\211@b\210\305 \211@A{\307\235\2031 \310 )\202 \nb\210\311 \306 \"\203N @AB\311 \202; @ A{,\207" [test-expr expr p prev-expr gud-innermost-expr gud-prev-expr gud-expr-compound ("if" "while" "for") nil gud-next-expr] 4 (#$ . 75603) nil]) #@272 Returns the smallest expr that point is in; move point to beginning of it. The expr is represented as a cons cell, where the car specifies the point in the current buffer that marks the beginning of the expr and the cdr specifies the character after the end of the expr. (defalias 'gud-innermost-expr #[nil "`\303\211\304 \210`\305 \210`\nY\203 \n\nb\210\305 \210` b\210 +B\207" [end begin p nil gud-backward-sexp gud-forward-sexp] 3 (#$ . 75979)]) #@49 Version of `backward-sexp' that catches errors. (defalias 'gud-backward-sexp #[nil "\300\301\302\217\207" [nil (backward-sexp) ((error t))] 3 (#$ . 76444)]) #@48 Version of `forward-sexp' that catches errors. (defalias 'gud-forward-sexp #[nil "\300\301\302\217\207" [nil (forward-sexp) ((error t))] 3 (#$ . 76607)]) #@263 Returns the previous expr, point is set to beginning of that expr. The expr is represented as a cons cell, where the car specifies the point in the current buffer that marks the beginning of the expr and the cdr specifies the character after the end of the expr (defalias 'gud-prev-expr #[nil "\302\211\303 \210`\304 \210` b\210 *B\207" [end begin nil gud-backward-sexp gud-forward-sexp] 2 (#$ . 76768)]) #@265 Returns the following expr, point is set to beginning of that expr. The expr is represented as a cons cell, where the car specifies the point in the current buffer that marks the beginning of the expr and the cdr specifies the character after the end of the expr. (defalias 'gud-next-expr #[nil "\302\211\303 \210\303 \210`\304 \210`\211*B\207" [end begin nil gud-forward-sexp gud-backward-sexp] 3 (#$ . 77185)]) #@213 Scan from SPAN-START to SPAN-END for punctuation characters. If `->' is found, return `?.'. If `.' is found, return `?.'. If any other punctuation is found, return `??'. If no punctuation is found, return `? '. (defalias 'gud-expr-compound-sep #[(span-start span-end) "\304\305\n W\203I \nfz\211\304U\204B \306U\203B \nf\211\306U\203( \306\202B \307U\203> \nTf\310U\203> \306\nT\202B \311\nT\211\202 *\207" [syntax result span-start span-end 32 nil 46 45 62 63] 3 (#$ . 77610)]) #@408 Non-nil if concatenating FIRST and SECOND makes a single C expression. The two exprs are represented as a cons cells, where the car specifies the point in the current buffer that marks the beginning of the expr and the cdr specifies the character after the end of the expr. Link exprs of the form: Expr -> Expr Expr . Expr Expr (Expr) Expr [Expr] (Expr) Expr [Expr] Expr (defalias 'gud-expr-compound #[(first second) "A @\305 \306\f \"@ @U\203 \305\202i A AU\203% \305\202i \n\307U\203/ \310\202i \n\311U\203h \fSf f\f\312U\203F \310\202i \f\313U\203P \310\202i \314U\203Z \310\202i \315U\203d \310\202i \305\202i \305+\207" [first second syntax span-end span-start nil gud-expr-compound-sep 46 t 32 41 93 40 91] 3 (#$ . 78112)]) #@558 Find fully qualified class in file F at line LINE. This function uses the `gud-jdb-classpath' (and optional `gud-jdb-sourcepath') list(s) to derive a file pathname relative to its classpath directory. The values in `gud-jdb-classpath' are assumed to have been converted to absolute pathname standards using file-truename. If F is visited by a buffer and its mode is CC-mode(Java), syntactic information of LINE is used to find the enclosing (nested) class string which is appended to the top level class of the file (using s to separate nested class ids). (defalias 'gud-find-class #[(f _line) "\203\376 \204\f \n\203\376 \306 \307\216\310\n \"\311\f!\312\313\314 ' ( ) *\315\316\f!!*\203U (\204U \317*@\f\"\203L \320\321\322\f\323\225T\312O\324\"\325#(*A\211*\204/ )\203\357 \326\327!\330\232\203\357 r)q\210\312\211 + ,'\331 !\332=\204\326 \331 +'+!\333=\204\223 +A\203\223 +A+\202{ '+!\333=\203\264 +!b\210\334\335!\210\310\336\337!C,\",\202m \331 + +!\204\315 +A\203\315 +A+\202\270 +!b\210\202m \317,@\340P(\"\210\341\320\321,\340#\342\211($(+(\204\371 \343\344\f\"\210(.\207\345\f-\"\211 (\203(@\202\343\346\f\"\210\312)\207" [gud-jdb-use-classpath gud-jdb-classpath gud-jdb-sourcepath save-match-data-internal f syntax-point match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) append get-file-buffer nil #[(x) "\301@!\207" [x c-langelem-sym] 2] #[(x) "\301@!\207" [x c-langelem-pos] 2] file-name-sans-extension file-truename string-match mapconcat identity split-string 0 "/" "." symbol-file java-mode "cc-mode" c-guess-basic-syntax topmost-intro inclass looking-at "[A-Za-z0-9 \n]*?class[ \n]+\\([^ \n]+\\)" match-string-no-properties 1 "$" replace-match t message "gud-find-class: class for file %s not found!" rassoc "gud-find-class: class for file %s not found in gud-jdb-class-source-alist!" syntax-symbol class-found fbuffer cplist syntax nclass gud-jdb-class-source-alist] 7 (#$ . 78896)]) (defvar gdb-script-mode-syntax-table (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210)\207" [st make-syntax-table modify-syntax-entry 39 "\"" 35 "<" 10 ">"] 4)) (defvar gdb-script-font-lock-keywords '(("^define\\s-+\\(\\(\\w\\|\\s_\\)+\\)" (1 font-lock-function-name-face)) ("\\$\\(\\w+\\)" (1 font-lock-variable-name-face)) ("^\\s-*\\(\\w\\(\\w\\|\\s_\\)*\\)" (1 font-lock-keyword-face)))) (defconst gdb-script-syntax-propertize-function #[(start end) "b\210` W\205c \303\304 \305#\205c \306\224\203\" \307\306\224\306\225\310\311$\210\202 \312\224\203 \313\314!\211A\315\n\233\241\210\316\n!\210)\317\224eV\203 \320\212\321\317\224S!)8\306=\203 \307\317\224S\317\224\310\322$\210\307\317\224S\317\225\323\305$\210\202 \207" [start end md re-search-forward "^document\\s-.*\\(\n\\)\\|^end\\(\\>\\)" t 1 put-text-property syntax-table (2097163) 2 match-data ints 4 set-match-data 0 7 syntax-ppss (2097164) syntax-multiline] 6]) (defalias 'gdb-script-font-lock-syntactic-face #[(state) "\3048\203 \207\3058\203 \n\207 \207" [state font-lock-string-face font-lock-doc-face font-lock-comment-face 3 7] 2]) (defvar gdb-script-basic-indent 2) #@64 We're just in front of an `end' and we need to go to its head. (defalias 'gdb-script-skip-to-head #[nil "\300\301\302\303#\205 \304\225\205 \305 \210\202 \207" [re-search-backward "^\\s-*\\(\\(end\\)\\|define\\|document\\|if\\|while\\|commands\\)\\>" nil move 2 gdb-script-skip-to-head] 4 (#$ . 82079)]) (defalias 'gdb-script-calculate-indentation #[nil "\301\302!\203\f \303 \210\304 \207\301\305!\203( \306\307\310\311#\203% \312\225\203% \303 \210\202 \304 \207\313d[!\210\314y\210\315\310w\210\304 \301\316!\203@ \202A \314\\\207" [gdb-script-basic-indent looking-at "end\\>" gdb-script-skip-to-head current-indentation "else\\>" re-search-backward "^\\s-*\\(if\\|\\(end\\)\\)\\>" nil move 2 forward-comment 0 " " "\\(if\\|while\\|define\\|else\\|commands\\)\\>"] 4]) #@36 Indent current line of GDB script. (defalias 'gdb-script-indent-line #[nil "\303`\304\"=\203 \212\305y\210\306\307w\210\310\311!)\204 \312\207`\307\313\314\217 \203- \212\315\n!)\2020 \315\n!*\207" [font-lock-doc-face savep indent get-text-property face 0 " " nil looking-at "end\\>" noindent (byte-code "\212\301y\210\302\303w\210`Y\203 \303\304 \301])\207" [savep 0 " " nil gdb-script-calculate-indentation] 2) ((error 0)) indent-line-to] 3 (#$ . 82863) nil]) #@78 `beginning-of-defun' function for Gdb script mode. Treats actions as defuns. (defalias 'gdb-script-beginning-of-defun #[nil "i\300 X\204\n \301\210\302\303\301\304#\203 \305 \210\202 eb\210\304\207" [current-indentation nil re-search-backward "^define \\|^document " t beginning-of-line] 4 (#$ . 83341)]) #@72 `end-of-defun' function for Gdb script mode. Treats actions as defuns. (defalias 'gdb-script-end-of-defun #[nil "\300\210\301\302\300\303#\203 \304 \210\202 db\210\303\207" [nil re-search-forward "^end" t beginning-of-line] 4 (#$ . 83655)]) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [gdb-script-mode-hook variable-documentation put purecopy "Hook run when entering GDB-Script mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp gdb-script-mode-map definition-name gdb-script-mode] 5) (defvar gdb-script-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" [gdb-script-mode-map variable-documentation put purecopy "Keymap for `gdb-script-mode'." boundp gdb-script-mode-syntax-table definition-name gdb-script-mode] 5) (defvar gdb-script-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [gdb-script-mode-syntax-table variable-documentation put purecopy "Syntax table for `gdb-script-mode'." gdb-script-mode-abbrev-table definition-name gdb-script-mode] 5) (defvar gdb-script-mode-abbrev-table (progn (define-abbrev-table 'gdb-script-mode-abbrev-table nil) gdb-script-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [gdb-script-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `gdb-script-mode'." gdb-script-mode derived-mode-parent prog-mode] 5) #@220 Major mode for editing GDB scripts. In addition to any hooks its parent mode `prog-mode' might have run, this mode runs the hook `gdb-script-mode-hook', as the final step during initialization. \{gdb-script-mode-map} (defalias 'gdb-script-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\3241\325\"\204V 12=\204V \3261\3252C#\210\327 !\210\330\f!\21012\306\331!\210\332\306\333!\210\334\306\335!\210\336 \306\337!\210\340 \306\341!\210\342!\306\343!\210\344#\306\345!\210\346%\306\347!\210\350'\306\351!\2103)\352\353\354\355\356$\210)\357\360!\207" [delay-mode-hooks major-mode mode-name gdb-script-mode-map gdb-script-mode-syntax-table parent make-local-variable t prog-mode gdb-script-mode "GDB-Script" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table comment-start "#" comment-start-skip "#+\\s-*" outline-regexp "[ ]" imenu-generic-expression ((nil "^define[ ]+\\(\\w+\\)" 1)) indent-line-function gdb-script-indent-line beginning-of-defun-function gdb-script-beginning-of-defun end-of-defun-function gdb-script-end-of-defun font-lock-defaults (gdb-script-font-lock-keywords nil nil ((95 . "w")) nil (font-lock-syntactic-face-function . gdb-script-font-lock-syntactic-face)) syntax-propertize-function add-hook syntax-propertize-extend-region-functions syntax-propertize-multiline append local run-mode-hooks gdb-script-mode-hook gdb-script-mode-abbrev-table local-abbrev-table gdb-script-syntax-propertize-function] 6 (#$ . 85269) nil]) #@269 Non-nil if Gud-Tooltip mode is enabled. See the command `gud-tooltip-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `gud-tooltip-mode'. (custom-declare-variable 'gud-tooltip-mode nil '(#$ . 87026) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'gud :group 'tooltip :type 'boolean) #@188 Toggle the display of GUD tooltips. With a prefix argument ARG, enable the feature if ARG is positive, and disable it otherwise. If called from Lisp, enable it if ARG is omitted or nil. (defalias 'gud-tooltip-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\312\313!\210\n\2034 \314\315\316\"\210\314\317\320\"\210\314\321\322\"\210\323 \324\325#\210\202M \f\204M \326\317\320\"\210\326\315\316\"\210\326\321\322\"\210\323 \327\330#\210\331 \210 \203\267 \332 !\203\267 \333\334 \"\335=\203\267 \n\203\255 \336 \337 4\211 5\203\251 5@\2114 =\204\240 r4q\210 \335=\203\237 \340\341\332 \"\204\237 \342\343!\210\344 \210\314\345\344\337\346$\210)5A\2115\204r *\202\267 \347\343!\210\326\345\344\346#\210\350\351\n\203\301 \352\202\302 \353\"\210\354\355!\203\347 \356\302!\210\306 \203\332 \306 \232\203\347 \357\360\n\203\344 \361\202\345 \362\"\210)\363 \210\n\207" [#1=#:last-message arg gud-tooltip-mode global-map tooltip-mode gud-comint-buffer current-message toggle prefix-numeric-value 0 require tooltip add-hook change-major-mode-hook gud-tooltip-change-major-mode pre-command-hook tooltip-hide tooltip-functions gud-tooltip-tips define-key [mouse-movement] gud-tooltip-mouse-motion remove-hook [mouse-movement] ignore gud-tooltip-activate-mouse-motions-if-enabled buffer-name buffer-local-value gud-minor-mode gdbmi buffer-list nil string-match "\\`\\*.+\\*\\'" make-local-variable gdb-define-alist gdb-create-define-alist after-save-hook t kill-local-variable run-hooks gud-tooltip-mode-hook gud-tooltip-mode-on-hook gud-tooltip-mode-off-hook called-interactively-p any customize-mark-as-set message "Gud-Tooltip mode %sabled" "en" "dis" force-mode-line-update buffer --dolist-tail--] 6 (#$ . 87473) (list (or current-prefix-arg 'toggle))]) (byte-code "\303\304\305\306\300!\205\n \305\211%\210\307\310\311\305#\210\312\305\211\203: \n@\310 N\2033 \311 N\2043 \313\311 \310 N#\210\nA\211\204 *\314\310\311\315#\210\316\311\317\320\321\322\323\324\323\325& \210\307\326\327\305#\210\312\305\211\203z \n@\326 N\203s \327 N\204s \313\327 \326 N#\210\nA\211\204\\ *\314\326\327\315#\210\316\327\330\331\321\322\323\324\323\325& \210\316\332\305\333\321\334\323\324\323\325& \207" [gud-tooltip-mode-map prop --dolist-tail-- add-minor-mode gud-tooltip-mode nil boundp defvaralias tooltip-gud-modes gud-tooltip-modes (saved-value saved-variable-comment) put make-obsolete-variable "22.1" custom-declare-variable '(gud-mode c-mode c++-mode fortran-mode python-mode) "List of modes for which to enable GUD tooltips." :type sexp :group gud tooltip tooltip-gud-display gud-tooltip-display '((eq (tooltip-event-buffer gud-tooltip-event) (marker-buffer gud-overlay-arrow-position))) "List of forms determining where GUD tooltips are displayed.\n\nForms in the list are combined with AND. The default is to display\nonly tooltips in the buffer containing the overlay arrow." gud-tooltip-echo-area "Use the echo area instead of frames for GUD tooltips." boolean] 11) #@69 Function added to `change-major-mode-hook' when tooltip mode is on. (defalias 'gud-tooltip-change-major-mode #[nil "\300\301\302\"\207" [add-hook post-command-hook gud-tooltip-activate-mouse-motions-if-enabled] 3 (#$ . 90474)]) #@69 Reconsider for all buffers whether mouse motion events are desired. (defalias 'gud-tooltip-activate-mouse-motions-if-enabled #[nil "\305\306\307\"\210\310 \311\211\2053 @rq\210\n\203& \f>\203& \312\313!\210\202* \312\311!\210) A\211\204 \311*\207" [buffer --dolist-tail-- gud-tooltip-mode major-mode gud-tooltip-modes remove-hook post-command-hook gud-tooltip-activate-mouse-motions-if-enabled buffer-list nil gud-tooltip-activate-mouse-motions t] 4 (#$ . 90708)]) #@73 Locally t in a buffer if tooltip processing of mouse motion is enabled. (defvar gud-tooltip-mouse-motions-active nil (#$ . 91187)) #@119 Activate/deactivate mouse motion events for the current buffer. ACTIVATEP non-nil means activate mouse motion events. (defalias 'gud-tooltip-activate-mouse-motions #[(activatep) "\203 \303\301!\210\304\303\302!\210\304\211\207 \205 \305\301!\210\305\302!\207" [activatep gud-tooltip-mouse-motions-active track-mouse make-local-variable t kill-local-variable] 2 (#$ . 91325)]) #@60 Command handler for mouse movement events in `global-map'. (defalias 'gud-tooltip-mouse-motion #[(event) "\302 \210\303 @\205 \304!\305 \207" [event tooltip-last-mouse-motion-event tooltip-hide mouse-pixel-position copy-sequence tooltip-start-delayed-tip] 2 (#$ . 91712) "e"]) #@63 Process filter to restore after GUD output has been received. (defvar gud-tooltip-original-filter nil (#$ . 91998)) #@113 Non-nil means print expressions with a `*' in front of them. For C this would dereference a pointer expression. (defvar gud-tooltip-dereference nil (#$ . 92121)) #@119 The mouse movement event that led to a tooltip display. This event can be examined by forms in `gud-tooltip-display'. (defvar gud-tooltip-event nil (#$ . 92290)) #@134 Toggle whether tooltips should show `* expr' or `expr'. With arg, dereference expr if ARG is positive, otherwise do not dereference. (defalias 'gud-tooltip-dereference #[(&optional arg) "\204 ?\202 \302!\303V\304\305 \203 \306\202 \307\"\207" [arg gud-tooltip-dereference prefix-numeric-value 0 message "Dereferencing is now %s." "on" "off"] 3 (#$ . 92459) "P"]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias tooltip-gud-toggle-dereference gud-tooltip-dereference nil make-obsolete "22.1"] 4) #@58 Process debugger output and show it in a tooltip window. (defalias 'gud-tooltip-process-output #[(process output) "\305 \"\210\306\307\n\" \206 \f\"\207" [process gud-tooltip-original-filter output gud-tooltip-echo-area tooltip-use-echo-area set-process-filter tooltip-show tooltip-strip-prompt] 4 (#$ . 92986)]) #@57 Return a suitable command to print the expression EXPR. (defalias 'gud-tooltip-print-command #[(expr) "\302=\203 \303 \304Q\207\305=\203 \306 P\207\307>\203 \310 P\207\311=\203) \312P\207\313\207" [gud-minor-mode expr gdbmi "-data-evaluate-expression \"" "\"" dbx "print " (xdb pdb) "p " sdb "/" nil] 3 (#$ . 93308)]) #@418 Show tip for identifier or selection under the mouse. The mouse must either point at an identifier or inside a selected region for the tip window to be shown. If `gud-tooltip-dereference' is t, add a `*' in front of the printed expression. In the case of a C program controlled by GDB, show the associated #define directives when program is not executing. This function must return nil if it doesn't handle EVENT. (defalias 'gud-tooltip-tips #[(event) "\306\307 !\205\366 \n\205\366 \205\366 \310 !\205\366 \311 !\211\205\366 \312 ! \313\f8\2069 \fA@:\2036 \fA@@\2029 \fA@)\205\366 \314=\203H #\203T $\315\316%B!\205\366 \317 !\211 &\205\365 \314=\203\215 #\204\215 r\320 !q\210\321&'\"\211 (\205\211 \322(A)\206\205 *\"\210&*\202\365 +\203\230 \323&P&\324&! ,\n\203\260 \325=\203\260 \302\326!\210\327\330!\210,\205\364 \314=\203\343 -\203\322 \331\332&\333Q\334\306\335&DE\"\210\202\362 \331,\333P\334\306\336&DE\"\210\202\362 \337!.\340\341\"\210\342,!\210&)))\207" [process event gud-tooltip-mode gud-comint-buffer position gud-minor-mode nil eventp buffer-name get-buffer-process event-end 5 gdbmi eval and tooltip-expr-to-print tooltip-event-buffer assoc tooltip-show "*" gud-tooltip-print-command gdb -1 message-box "Using GUD tooltips in this mode is unsafe \nso they have been disabled." gdb-input "server macro expand " "\n" lambda gdb-tooltip-print-1 gdb-tooltip-print process-filter set-process-filter gud-tooltip-process-output gud-basic-call gdb-active-process gud-tooltip-event gud-tooltip-display expr gdb-define-alist define-elt gud-tooltip-echo-area tooltip-use-echo-area gud-tooltip-dereference cmd gdb-macro-info gud-tooltip-original-filter] 7 (#$ . 93641)]) (provide 'gud)