lisp/progmodes/gud.el

54 (defvar tool-bar-map)
126 (defun gud-tool-bar-item-visible-no-fringe ()
161 				(gud-tool-bar-item-visible-no-fringe)))
164 		  :visible (gud-tool-bar-item-visible-no-fringe))
171 		  :visible (gud-tool-bar-item-visible-no-fringe))
217      `(([menu-bar debug] . ("Gud" . ,gud-menu-map)))
218      ;; Get tool bar like functionality from the menu bar on a text only
221      `(([menu-bar down]
223        ([menu-bar up]
225        ([menu-bar finish]
227        ([menu-bar step]
229        ([menu-bar next]
231        ([menu-bar until] menu-item
234        ([menu-bar cont] menu-item
237        ([menu-bar run] menu-item
240        ([menu-bar go] menu-item
244        ([menu-bar stop] menu-item
248        ([menu-bar print]
250        ([menu-bar tools] . undefined)
251        ([menu-bar buffer] . undefined)
252        ([menu-bar options] . undefined)
253        ([menu-bar edit] . undefined)
254        ([menu-bar file] . undefined))))
266 (defvar gud-tool-bar-map
289 	  (tool-bar-local-item-from-menu
318 	(set (make-local-variable 'tool-bar-map) gud-tool-bar-map)
778 (defvar gud-gdb-fetch-lines-in-progress)
781 (defvar gud-gdb-fetch-lines-string)
784 (defvar gud-gdb-fetch-lines-break)
787 (defvar gud-gdb-fetched-lines)
805 	  (gud-gdb-run-command-fetch-lines (concat "complete " command)
839 (defun gud-gdb-fetch-lines-filter (string filter)
840   "Filter used to read the list of lines output by a command.
844   (setq string (concat gud-gdb-fetch-lines-string string))
846     (push (substring string gud-gdb-fetch-lines-break (match-beginning 0))
847 	  gud-gdb-fetched-lines)
851 	(setq gud-gdb-fetch-lines-in-progress nil)
854       (setq gud-gdb-fetch-lines-string string)
873 ;    (gud-gdb-run-command-fetch-lines "info args")
875 ;    (gud-gdb-run-command-fetch-lines "info local")
883 	 (gud-gdb-run-command-fetch-lines "server backtrace" buffer)))
917 (defun gud-gdb-run-command-fetch-lines (command buffer &optional skip)
918   "Run COMMAND, and return the list of lines it outputs.
920 SKIP is the number of chars to skip on each lines, it defaults to 0."
930       (let ((gud-gdb-fetch-lines-in-progress t)
931 	    (gud-gdb-fetched-lines nil)
932 	    (gud-gdb-fetch-lines-string nil)
933 	    (gud-gdb-fetch-lines-break (or skip 0))
936 		(gud-gdb-fetch-lines-filter string ',gud-marker-filter))))
940 	(while gud-gdb-fetch-lines-in-progress
942 	(nreverse gud-gdb-fetched-lines)))))
970 	 ;; System V Release 4.0 quite often clumps two lines together
1220 	 ;; (this will also catch one of the lines printed by "where")
1380 ;; xdb does not print the lines all at once, so we have to accumulate them
2352 ;; (gdb) set args foo bar
2359 ;; (gdb) set args foo bar
2449   (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)
2673 	  (kill-local-variable 'tool-bar-map))))))
2768 			     (+ (count-lines (point-min) (point))
2784                         (+ (count-lines (point-min) (point))