Lines Matching +defs:forward +defs:visible +defs:line
57 ;; GUD commands must be visible in C buffers visited by GUD
126 (defun gud-tool-bar-item-visible-no-fringe ()
144 :visible (memq gud-minor-mode
150 :visible (memq gud-minor-mode '(gdbmi gdb dbx jdb)))
152 :visible (and (not gud-running)
155 :visible (or (not (memq gud-minor-mode '(gdba pdb)))
160 :visible (and (memq gud-minor-mode '(gdbmi gdba gdb perldb))
161 (gud-tool-bar-item-visible-no-fringe)))
164 :visible (gud-tool-bar-item-visible-no-fringe))
167 :visible (memq gud-minor-mode
171 :visible (gud-tool-bar-item-visible-no-fringe))
174 :visible (memq gud-minor-mode
178 :visible (memq gud-minor-mode
183 :visible (and (string-equal
189 :visible (memq gud-minor-mode '(gdbmi gdba gdb)))
194 :visible (memq gud-minor-mode '(gdbmi gdba)))
197 :visible (memq gud-minor-mode
201 :visible (memq gud-minor-mode '(gdbmi gdba gdb dbx)))
204 :visible (memq gud-minor-mode '(gdbmi gdba gdb dbx)))
211 :visible (not (eq gud-minor-mode 'gdba))))
233 :visible (memq gud-minor-mode '(gdbmi gdba gdb perldb)))
236 :visible (not (eq gud-minor-mode 'gdba)))
239 :visible (memq gud-minor-mode '(gdbmi gdb dbx jdb)))
242 :visible (and (not gud-running)
246 :visible (or gud-running
349 %l -- Number of current source line.
359 The `current' line is that of the current buffer (if we're in a
360 source file) or the source line number at the last break or step (if
373 ;; (filename . line-number). This is set by the marker-filter, which scans
396 ;; The job of the marker-filter method is to detect file/line markers in
421 (let ((var (nth (- (line-number-at-pos (point)) 2) gdb-var-list)))
432 (define-key gud-speedbar-key-map "j" 'speedbar-edit-line)
433 (define-key gud-speedbar-key-map "e" 'speedbar-edit-line)
434 (define-key gud-speedbar-key-map "\C-m" 'speedbar-edit-line)
435 (define-key gud-speedbar-key-map " " 'speedbar-toggle-line-expansion)
446 (speedbar-line-directory . ignore))))
449 '(["Jump to stack frame" speedbar-edit-line
450 :visible (not (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
452 ["Edit value" speedbar-edit-line
453 :visible (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
456 :visible (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
460 :visible (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
509 (speedbar-make-tag-line
529 (speedbar-make-tag-line
543 (speedbar-make-tag-line
714 (defun gdb (command-line)
737 (gud-common-init command-line nil 'gud-gdb-marker-filter)
740 (gud-def gud-break "break %f:%l" "\C-b" "Set breakpoint at current line.")
742 "Set temporary breakpoint at current line.")
743 (gud-def gud-remove "clear %f:%l" "\C-d" "Remove breakpoint at current line")
744 (gud-def gud-step "step %p" "\C-s" "Step one source line with display.")
746 (gud-def gud-next "next %p" "\C-n" "Step one line (skip functions).")
752 "\C-j" "Set execution address to current line.")
763 (gud-def gud-until "until %l" "\C-u" "Continue to current line.")
799 (setq command (buffer-substring (comint-line-beginning-position) end))))
925 (forward-line 0)
990 ;; Search for the last incomplete line in this chunk
994 ;; If we have an incomplete line, store it in gud-marker-acc.
1002 (defun sdb (command-line)
1015 (gud-common-init command-line nil 'gud-sdb-marker-filter 'gud-sdb-find-file)
1018 (gud-def gud-break "%l b" "\C-b" "Set breakpoint at current line.")
1019 (gud-def gud-tbreak "%l c" "\C-t" "Set temporary breakpoint at current line.")
1020 (gud-def gud-remove "%l d" "\C-d" "Remove breakpoint at current line")
1021 (gud-def gud-step "s %p" "\C-s" "Step one source line with display.")
1023 (gud-def gud-next "S %p" "\C-n" "Step one line (skip functions).")
1066 "stopped in .* at line \\([0-9]*\\) in file \"\\([^\"]*\\)\""
1069 "signal .* in .* at line \\([0-9]*\\) in file \"\\([^\"]*\\)\""
1076 ;; Search for the last incomplete line in this chunk
1080 ;; If the incomplete line APPEARS to begin with another marker, keep it
1153 ;; to be with a `file' command, although the current line number is
1161 ;; number rather than a line number etc. Maybe this could be made to
1163 ;; correct line number, but life's too short.
1182 ;; `long long'(why?!), so the printf stuff needed changing. The line
1214 ;; prod dbx into printing out the line number and file
1249 ;; (0) Stopped at line 10, routine main(argc=1, argv=0xeffff0e0), file t.c
1254 ;; Stopped at line 13, routine main(argc=1, argv=0xeffff0e0), file t.c
1258 ;; Frame 21, line 974, routine command_loop(), file keyboard.c
1267 " line \\([0-9]+\\), routine .*, file \\([^ \t\n]+\\)"))
1276 ;; Search for the last incomplete line in this chunk
1280 ;; If the incomplete line APPEARS to begin with another marker, keep it
1290 (defun dbx (command-line)
1298 (gud-common-init command-line nil 'gud-mipsdbx-marker-filter))
1300 (gud-common-init command-line 'gud-dbx-massage-args
1303 (gud-common-init command-line 'gud-dbx-massage-args
1306 (gud-common-init command-line 'gud-dbx-massage-args
1316 "\C-b" "Set breakpoint at current line.")
1320 "\C-b" "Set breakpoint at current line.")
1333 "\C-b" "Set breakpoint at current line.")
1338 (gud-def gud-remove "clear %l" "\C-d" "Remove breakpoint at current line")
1339 (gud-def gud-step "step %p" "\C-s" "Step one line with display.")
1341 (gud-def gud-next "next %p" "\C-n" "Step one line (skip functions).")
1393 (let ((line (string-to-number (match-string 2 result)))
1396 (setq gud-last-frame (cons file line))))))
1400 (defun xdb (command-line)
1409 (gud-common-init command-line 'gud-xdb-massage-args
1413 (gud-def gud-break "b %f:%l" "\C-b" "Set breakpoint at current line.")
1415 "Set temporary breakpoint at current line.")
1416 (gud-def gud-remove "db" "\C-d" "Remove breakpoint at current line")
1417 (gud-def gud-step "s %p" "\C-s" "Step one line with display.")
1418 (gud-def gud-next "S %p" "\C-n" "Step one line (skip functions).")
1437 "Convert a command line as would be typed normally to run perldb
1532 (defun perldb (command-line)
1540 (gud-common-init command-line 'gud-perldb-massage-args
1544 (gud-def gud-break "b %l" "\C-b" "Set breakpoint at current line.")
1545 (gud-def gud-remove "B %l" "\C-d" "Remove breakpoint at current line")
1546 (gud-def gud-step "s" "\C-s" "Step one source line with display.")
1547 (gud-def gud-next "n" "\C-n" "Step one line (skip functions).")
1553 (gud-def gud-until "c %l" "\C-u" "Continue to current line.")
1572 (defvar gud-pdb-marker-regexp-line-group 2)
1595 (line (string-to-number
1596 (match-string gud-pdb-marker-regexp-line-group
1600 (cons file line)))
1639 (defun pdb (command-line)
1646 (gud-common-init command-line nil 'gud-pdb-marker-filter)
1649 (gud-def gud-break "break %l" "\C-b" "Set breakpoint at current line.")
1650 (gud-def gud-remove "clear %f:%l" "\C-d" "Remove breakpoint at current line")
1651 (gud-def gud-step "step" "\C-s" "Step one source line with display.")
1652 (gud-def gud-next "next" "\C-n" "Step one line (skip functions).")
1692 ;; command line switches (search forward for '-classpath').
1715 ;; Type M-n to step over the current line and M-s to step into it. That,
1730 ;; from the command line. See gud-jdb-massage-args for details.
1792 have a \"-classpath\" command line argument - that is provided
1852 (skip-chars-forward " \n\r\t\014"))
1855 (defun gud-jdb-skip-single-line-comment ()
1856 (end-of-line))
1860 (forward-char 2)
1865 (forward-char)
1869 (forward-char)
1871 (forward-char)))))
1880 (gud-jdb-skip-single-line-comment)
1891 (skip-chars-forward "^ /\n\r\t\014,;{"))
1895 (forward-char)
1898 (forward-char))
1900 (forward-char))
1901 (forward-char))
1905 (forward-char)
1909 (forward-char 2))
1911 (forward-char))
1912 (forward-char))
1927 (gud-jdb-skip-single-line-comment))
1934 (t (forward-char))))
1937 (forward-char)
1944 (gud-jdb-skip-single-line-comment))
1953 (forward-char))
1956 (forward-char))
1957 (t (forward-char))))))
1978 (forward-char))
1980 ;; Move point past a single line comment.
1982 (gud-jdb-skip-single-line-comment))
1990 (forward-char 7)
1997 (forward-char))))
2001 (forward-char 6)
2006 (forward-char)))
2010 (forward-char 6))
2012 (forward-char 8))
2014 (forward-char 5))
2019 (forward-char 5)
2029 (forward-char 9)
2189 ;; <fully-qualified-class><method> (<class>:<line-number>)
2202 ;; matches <line-number>. We don't care about using
2210 ;; reported line numbers from jdb - starting in 1.4.0 they
2211 ;; print line numbers using LOCALE, inserting a comma or a
2215 \\(([a-zA-Z0-9.$_]+:\\|line=\\)\\([0-9.,]+\\)"
2222 ;; Figure out the line on which to position the debugging arrow.
2225 ;; (<file-name> . <line-number>) .
2267 (defun jdb (command-line)
2268 "Run jdb with command line COMMAND-LINE in a buffer.
2293 (gud-common-init command-line 'gud-jdb-massage-args
2307 (gud-def gud-break "stop at %c:%l" "\C-b" "Set breakpoint at current line.")
2308 (gud-def gud-remove "clear %c:%l" "\C-d" "Remove breakpoint at current line")
2309 (gud-def gud-step "step" "\C-s" "Step one source line with display.")
2310 (gud-def gud-next "next" "\C-n" "Step one line (skip functions).")
2326 (if (string-match "-attach" command-line)
2360 ;; Breakpoint 1 at 0x92: file make-docfile.c, line 49.
2404 \\[gud-break] sets a breakpoint at the current file and line. In the
2405 GUD buffer, the current file and line are those of the last breakpoint or
2406 step. In a source buffer, they are the buffer's file and current line.
2408 \\[gud-remove] removes breakpoints on the current file and line.
2410 \\[gud-refresh] displays in the source window the last line referred to
2413 \\[gud-step], \\[gud-next], and \\[gud-stepi] do a step-one-line,
2414 step-one-line (not entering function calls), and step-one-instruction
2446 (setq mode-line-process '(":%s"))
2470 ;; The first arg is the specified command line,
2474 (defun gud-common-init (command-line massage-args marker-filter
2476 (let* ((words (split-string command-line))
2495 ;; omitting the expansion here has no visible effect.
2583 ;; Check for a filename-and-line number.
2596 ;; Put the arrow on the source line.
2641 ;; Write something in *compilation* and hack its mode line,
2643 ;; Fix the mode line.
2644 (setq mode-line-process
2647 (force-mode-line-update)
2653 ;; If buffer and mode line will show that the process
2676 "Find and obey the last filename-and-line marker from the debugger.
2677 Obeying it means displaying in another window the specified file and line."
2681 (gud-display-line (car gud-last-frame) (cdr gud-last-frame))
2686 ;; and that its line LINE is visible.
2687 ;; Put the overlay-arrow on the line LINE in that buffer.
2692 (defun gud-display-line (true-file line)
2714 (goto-line line)
2719 ;; If they turned on hl-line, move the hl-line highlight to
2720 ;; the arrow's line.
2721 (when (featurep 'hl-line)
2723 (global-hl-line-mode
2724 (global-hl-line-highlight))
2725 ((and hl-line-mode hl-line-sticky-flag)
2726 (hl-line-highlight)))))
2801 (found (forward-char 2)
2803 (progn (re-search-forward "[^0-9a-f]")
2804 (forward-char -1)
2807 (forward-char 1)
2809 (forward-char 1)
2810 (re-search-forward "[^0-9]")
2811 (forward-char -1)
2835 (forward-line 0))
2866 (forward-line 0)
2912 (gud-forward-sexp)
2918 (gud-forward-sexp)
2930 (defun gud-forward-sexp ()
2931 "Version of `forward-sexp' that catches errors."
2933 (forward-sexp)
2944 (gud-forward-sexp)
2955 (gud-forward-sexp)
2956 (gud-forward-sexp)
3015 (defun gud-find-class (f line)
3016 "Find fully qualified class in file F at line LINE.
3129 ;; Make sure that rehighlighting the previous line won't erase our
3160 (forward-comment (- (point-max)))
3161 (forward-line 0)
3162 (skip-chars-forward " \t")
3167 (defun gdb-script-indent-line ()
3168 "Indent current line of GDB script."
3172 (forward-line 0)
3173 (skip-chars-forward " \t")
3179 (forward-line 0)
3180 (skip-chars-forward " \t")
3185 (save-excursion (indent-line-to indent))
3186 (indent-line-to indent)))))
3193 (end-of-line))
3195 (beginning-of-line)
3203 (end-of-line)
3204 (if (re-search-forward "^end" nil t)
3205 (beginning-of-line)
3220 (set (make-local-variable 'indent-line-function) 'gdb-script-indent-line)