home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / modes / mipsdbx.el.el < prev    next >
Encoding:
Text File  |  1992-11-25  |  15.3 KB  |  431 lines
  1. ; Newsgroups: gnu.emacs.help,gnu.emacs.sources
  2. ; Path: hal.com!decwrl!uunet!mcsun!sunic!aun.uninett.no!nuug!nntp.uio.no!egilp
  3. ; From: egilp@ulrik.uio.no (Egil Pedersen)
  4. ; Subject: Re: Is there a dbx-mode for DEC's Ultrix dbx?
  5. ; In-Reply-To: whaley@kpc.com's message of Mon, 16 Nov 1992 03:20:27 GMT
  6. ; Organization: University of Oslo, Norway
  7. ; Date: Mon, 16 Nov 1992 10:28:14 GMT
  8. ; 
  9. ; In article <whaley.721884027@kpc.com> whaley@kpc.com (Kenneth Whaley) writes:
  10. ; 
  11. ;  Unfortunately, DEC's Ultrix dbx outputs different strings  for breakpoints,
  12. ;  etc. than the dbx that all the "dbx.el"s I've found on the net are
  13. ;  written to work with.  If it were simply a matter of changing the 
  14. ;  regexp of breakpoints, then I could get this to work, but
  15. ;  unfortunately the DEC dbx does not print out the file name at every
  16. ;  breakpoint, only the line number (and the breakpoint number, the function
  17. ;  name, and the PC).
  18. ; 
  19. ; You may try this one. It works with 18.58. I do not remember where I got it.
  20. ;
  21.  
  22.  
  23. ;; Run MIPS dbx under Emacs
  24. ;; Author: W. Schelter, University of Texas
  25. ;;     wfs@rascal.ics.utexas.edu
  26. ;; Rewritten by rms.
  27. ;; Some ideas are due to Masanobu.
  28. ;; Converted from gdb.el to mipsdbx.el by Kung and Killian.
  29.  
  30. ;; LCD Archive Entry:
  31. ;; mipsdbx.el|Egil Pedersen|egilp@ulrik.uio.no|
  32. ;; Run MIPS dbx under Emacs.|
  33. ;; 92-11-16||~/modes/mipsdbx.el.el.Z|
  34.  
  35. ;; This file is part of GNU Emacs.
  36. ;; Copyright (C) 1988 Free Software Foundation, Inc.
  37.  
  38. ;; GNU Emacs is distributed in the hope that it will be useful, but
  39. ;; WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  40. ;; to anyone for the consequences of using it or for whether it serves
  41. ;; any particular purpose or works at all, unless he says so in writing.
  42. ;; Refer to the GNU Emacs General Public License for full details.
  43.  
  44. ;; Everyone is granted permission to copy, modify and redistribute GNU
  45. ;; Emacs, but only under the conditions described in the GNU Emacs
  46. ;; General Public License.  A copy of this license is supposed to have
  47. ;; been given to you along with GNU Emacs so you can know your rights and
  48. ;; responsibilities.  It should be in a file named COPYING.  Among other
  49. ;; things, the copyright notice and this notice must be preserved on all
  50. ;; copies.
  51.  
  52. ;; Description of DBX interface:
  53.  
  54. ;; A facility is provided for the simultaneous display of the source code
  55. ;; in one window, while using dbx to step through a function in the
  56. ;; other.  A small arrow in the source window, indicates the current
  57. ;; line.
  58.  
  59. ;; Starting up:
  60.  
  61. ;; In order to use this facility, invoke the command DBX to obtain a
  62. ;; shell window with the appropriate command bindings.  You will be asked
  63. ;; for the name of a file to run.  Dbx will be invoked on this file, in a
  64. ;; window named *dbx-foo* if the file is foo.
  65.  
  66. ;; M-s steps by one line, and redisplays the source file and line.
  67.  
  68. ;; You may easily create additional commands and bindings to interact
  69. ;; with the display.  For example to put the dbx command next on \M-n
  70. ;; (def-dbx next "\M-n")
  71.  
  72. ;; This causes the emacs command dbx-next to be defined, and runs
  73. ;; dbx-display-frame after the command.
  74.  
  75. ;; dbx-display-frame is the basic display function.  It tries to display
  76. ;; in the other window, the file and line corresponding to the current
  77. ;; position in the dbx window.  For example after a dbx-step, it would
  78. ;; display the line corresponding to the position for the last step.  Or
  79. ;; if you have done a backtrace in the dbx buffer, and move the cursor
  80. ;; into one of the frames, it would display the position corresponding to
  81. ;; that frame.
  82.  
  83. ;; dbx-display-frame is invoked automatically when a filename-and-line-number
  84. ;; appears in the output.
  85.  
  86.  
  87. (require 'shell)
  88.  
  89. (defvar dbx-prompt-pattern "^(.*dbx[+]?) *"
  90.   "A regexp to recognize the prompt for dbx or dbx+.")
  91.  
  92. (defvar dbx-mode-map nil
  93.   "Keymap for dbx-mode.")
  94.  
  95. (if dbx-mode-map
  96.    nil
  97.   (setq dbx-mode-map (copy-keymap shell-mode-map))
  98.   (define-key dbx-mode-map "\C-l" 'dbx-refresh))
  99.  
  100. (define-key ctl-x-map " " 'dbx-break)
  101. (define-key ctl-x-map "&" 'send-dbx-command)
  102.  
  103. ;;Of course you may use `def-dbx' with any other dbx command, including
  104. ;;user defined ones.
  105.  
  106. (defmacro def-dbx (name key &optional doc)
  107.   (let* ((fun (intern (format "dbx-%s" name)))
  108.      (cstr (list 'if '(not (= 1 arg))
  109.              (list 'format "%s %s" name 'arg)
  110.              name)))
  111.     (list 'progn
  112.        (list 'defun fun '(arg)
  113.         (or doc "")
  114.         '(interactive "p")
  115.         (list 'dbx-call cstr))
  116.       (list 'define-key 'dbx-mode-map key  (list 'quote fun)))))
  117.  
  118. (def-dbx "step"   "\M-s" "Step one source line with display")
  119. (def-dbx "stepi"  "\M-i" "Step one instruction with display")
  120. (def-dbx "next"   "\M-n" "Step one source line (skip functions)")
  121. (def-dbx "cont"   "\M-c" "Continue with display")
  122.  
  123. (def-dbx "quit!" "\C-c\C-f" "Finish executing current function")
  124. (def-dbx "up"     "\M-u"   "Go up N stack frames (numeric arg) with display")
  125. (def-dbx "down"   "\M-d"   "Go down N stack frames (numeric arg) with display")
  126.  
  127. (defun dbx-mode ()
  128.   "Major mode for interacting with an child Dbx process.
  129. The following commands are available:
  130.  
  131. \\{dbx-mode-map}
  132.  
  133. \\[dbx-display-frame] displays in the other window
  134. the last line referred to in the dbx buffer.
  135.  
  136. \\[dbx-step],\\[dbx-next], and \\[dbx-nexti] in the dbx window,
  137. call dbx to step,next or nexti and then update the other window
  138. with the current file and position.
  139.  
  140. If you are in a source file, you may select a point to break
  141. at, by doing \\[dbx-break].
  142.  
  143. Commands:
  144. Many commands are inherited from shell mode.
  145. Additionally we have:
  146.  
  147. \\[dbx-display-frame] display frames file in other window
  148. \\[dbx-step] advance one line in program
  149. \\[dbx-next] advance one line in program (skip over calls).
  150. \\[send-dbx-command] used for special printing of an arg at the current point.
  151. C-x SPACE sets break point at current line."
  152.   (interactive)
  153.   (kill-all-local-variables)
  154.   (setq major-mode 'dbx-mode)
  155.   (setq mode-name "Child Dbx")
  156.   (setq mode-line-process '(": %s"))
  157.   (use-local-map dbx-mode-map)
  158.   (make-local-variable 'last-input-start)
  159.   (setq last-input-start (make-marker))
  160.   (make-local-variable 'last-input-end)
  161.   (setq last-input-end (make-marker))
  162.   (make-local-variable 'dbx-last-frame)
  163.   (setq dbx-last-frame nil)
  164.   (make-local-variable 'dbx-last-frame-displayed-p)
  165.   (setq dbx-last-frame-displayed-p t)
  166.   (make-local-variable 'dbx-delete-prompt-marker)
  167.   (setq dbx-delete-prompt-marker nil)
  168.   (make-local-variable 'dbx-filter-accumulator)
  169.   (setq dbx-filter-accumulator nil)
  170.   (make-local-variable 'shell-prompt-pattern)
  171.   (setq shell-prompt-pattern dbx-prompt-pattern)
  172.   (run-hooks 'shell-mode-hook 'dbx-mode-hook))
  173.  
  174. (defvar current-dbx-buffer nil)
  175.  
  176. (defvar dbx-command-name "dbx"
  177.   "Pathname for executing dbx.")
  178.  
  179. (defun dbx (path &optional dbxargs)
  180.   "Run dbx on program FILE in buffer *dbx-FILE*.
  181. The directory containing FILE becomes the initial working directory
  182. and source-file directory for DBX.  If you wish to change this, use
  183. the DBX commands `cd DIR' and `directory'."
  184.   (interactive "FRun dbx on file: ")
  185.   (setq path (expand-file-name path))
  186.   (let ((file (file-name-nondirectory path)))
  187.     (switch-to-buffer (concat "*dbx-" file "*"))
  188.     (setq default-directory (file-name-directory path))
  189.     (or (bolp) (newline))
  190.     (insert "Current directory is " default-directory "\n")
  191.     (if dbxargs
  192.     (make-shell (concat "dbx-" file) dbx-command-name nil "-emacs" dbxargs file)
  193.       (make-shell (concat "dbx-" file) dbx-command-name nil "-emacs" file))
  194.     (dbx-mode)
  195.     (set-process-filter (get-buffer-process (current-buffer)) 'dbx-filter)
  196.     (set-process-sentinel (get-buffer-process (current-buffer)) 'dbx-sentinel)
  197.     (dbx-set-buffer)))
  198.  
  199. (defun dbx-set-buffer ()
  200.   (cond ((eq major-mode 'dbx-mode)
  201.     (setq current-dbx-buffer (current-buffer)))))
  202.  
  203. ;; This function is responsible for inserting output from DBX
  204. ;; into the buffer.
  205. ;; Aside from inserting the text, it notices and deletes
  206. ;; each filename-and-line-number;
  207. ;; that DBX prints to identify the selected frame.
  208. ;; It records the filename and line number, and maybe displays that file.
  209. (defun dbx-filter (proc string)
  210.   (let ((inhibit-quit t))
  211.     (if dbx-filter-accumulator
  212.     (dbx-filter-accumulate-marker proc
  213.                       (concat dbx-filter-accumulator string))
  214.     (dbx-filter-scan-input proc string))))
  215.  
  216. (defun dbx-filter-accumulate-marker (proc string)
  217.   (setq dbx-filter-accumulator nil)
  218.   (if (> (length string) 1)
  219.       (if (= (aref string 1) ?\032)
  220.       (let ((end (string-match "\n" string)))
  221.         (if end
  222.         (progn
  223.           (let* ((first-colon (string-match ":" string 2))
  224.              (second-colon
  225.               (string-match ":" string (1+ first-colon))))
  226.             (setq dbx-last-frame
  227.               (cons (substring string 2 first-colon)
  228.                 (cons (string-to-int
  229.                      (substring string (1+ first-colon)
  230.                         second-colon))
  231.                       (string-to-int
  232.                      (substring string (1+ second-colon)
  233.                         end))))))
  234.           (setq dbx-last-frame-displayed-p nil)
  235.           (dbx-filter-scan-input proc
  236.                      (substring string (1+ end))))
  237.           (setq dbx-filter-accumulator string)))
  238.     (dbx-filter-insert proc "\032")
  239.     (dbx-filter-scan-input proc (substring string 1)))
  240.     (setq dbx-filter-accumulator string)))
  241.  
  242. (defun dbx-filter-scan-input (proc string)
  243.   (if (equal string "")
  244.       (setq dbx-filter-accumulator nil)
  245.       (let ((start (string-match "\032" string)))
  246.     (if start
  247.         (progn (dbx-filter-insert proc (substring string 0 start))
  248.            (dbx-filter-accumulate-marker proc
  249.                          (substring string start)))
  250.         (dbx-filter-insert proc string)))))
  251.  
  252. (defun dbx-filter-insert (proc string)
  253.   (let ((moving (= (point) (process-mark proc)))
  254.     (output-after-point (< (point) (process-mark proc)))
  255.     (old-buffer (current-buffer))
  256.     start)
  257.     (set-buffer (process-buffer proc))
  258.     (unwind-protect
  259.     (save-excursion
  260.       ;; Insert the text, moving the process-marker.
  261.       (goto-char (process-mark proc))
  262.       (setq start (point))
  263.       (insert string)
  264.       (set-marker (process-mark proc) (point))
  265.       (dbx-maybe-delete-prompt)
  266.       ;; Check for a filename-and-line number.
  267.       (dbx-display-frame
  268.        ;; Don't display the specified file
  269.        ;; unless (1) point is at or after the position where output appears
  270.        ;; and (2) this buffer is on the screen.
  271.        (or output-after-point
  272.            (not (get-buffer-window (current-buffer))))
  273.        ;; Display a file only when a new filename-and-line-number appears.
  274.        t))
  275.       (set-buffer old-buffer))
  276.     (if moving (goto-char (process-mark proc)))))
  277.  
  278. (defun dbx-sentinel (proc msg)
  279.   (cond ((null (buffer-name (process-buffer proc)))
  280.      ;; buffer killed
  281.      ;; Stop displaying an arrow in a source file.
  282.      (setq overlay-arrow-position nil)
  283.      (set-process-buffer proc nil))
  284.     ((memq (process-status proc) '(signal exit))
  285.      ;; Stop displaying an arrow in a source file.
  286.      (setq overlay-arrow-position nil)
  287.      ;; Fix the mode line.
  288.      (setq mode-line-process
  289.            (concat ": "
  290.                (symbol-name (process-status proc))))
  291.      (let* ((obuf (current-buffer)))
  292.        ;; save-excursion isn't the right thing if
  293.        ;;  process-buffer is current-buffer
  294.        (unwind-protect
  295.            (progn
  296.          ;; Write something in *compilation* and hack its mode line,
  297.          (set-buffer (process-buffer proc))
  298.          ;; Force mode line redisplay soon
  299.          (set-buffer-modified-p (buffer-modified-p))
  300.          (if (eobp)
  301.              (insert ?\n mode-name " " msg)
  302.            (save-excursion
  303.              (goto-char (point-max))
  304.              (insert ?\n mode-name " " msg)))
  305.          ;; If buffer and mode line will show that the process
  306.          ;; is dead, we can delete it now.  Otherwise it
  307.          ;; will stay around until M-x list-processes.
  308.          (delete-process proc))
  309.          ;; Restore old buffer, but don't restore old point
  310.          ;; if obuf is the dbx buffer.
  311.          (set-buffer obuf))))))
  312.  
  313.  
  314. (defun dbx-refresh ()
  315.   "Fix up a possibly garbled display, and redraw the arrow."
  316.   (interactive)
  317.   (redraw-display)
  318.   (dbx-display-frame))
  319.  
  320. (defun dbx-display-frame (&optional nodisplay noauto)
  321.   "Find, obey and delete the last filename-and-line marker from DBX.
  322. The marker looks like \\032\\032FILENAME:LINE:CHARPOS\\n.
  323. Obeying it means displaying in another window the specified file and line."
  324.   (interactive)
  325.   (dbx-set-buffer)
  326.   (and dbx-last-frame (not nodisplay)
  327.        (or (not dbx-last-frame-displayed-p) (not noauto))
  328.        (progn (dbx-display-line (car dbx-last-frame)
  329.                        (car (cdr dbx-last-frame))
  330.                 (cdr (cdr dbx-last-frame)))
  331.           (setq dbx-last-frame-displayed-p t))))
  332.  
  333. ;; Make sure the file named TRUE-FILE is in a buffer that appears on the screen
  334. ;; and that its line LINE is visible.
  335. ;; Put the overlay-arrow on the line LINE in that buffer.
  336.  
  337. (defun dbx-display-line (true-file line chpos)
  338.   (let* ((buffer (find-file-noselect true-file))
  339.      (window (display-buffer buffer t))
  340.      (pos))
  341.     (save-excursion
  342.       (set-buffer buffer)
  343.       (save-restriction
  344.     (widen)
  345.     (goto-line line)
  346.     (setq pos (point))
  347.     (cond ((not (= chpos 0)) (setq overlay-arrow-string "=>"))
  348.           (t (setq overlay-arrow-string "")))
  349.     (or overlay-arrow-position
  350.         (setq overlay-arrow-position (make-marker)))
  351.     (set-marker overlay-arrow-position (point) (current-buffer)))
  352.       (cond ((or (< pos (point-min)) (> pos (point-max)))
  353.          (widen)
  354.          (goto-char pos))))
  355.     (set-window-point window overlay-arrow-position)))
  356.  
  357. (defun dbx-call (command)
  358.   "Invoke dbx COMMAND displaying source in other window."
  359.   (interactive)
  360.   (goto-char (point-max))
  361.   (setq dbx-delete-prompt-marker (point-marker))
  362.   (dbx-set-buffer)
  363.   (send-string (get-buffer-process current-dbx-buffer)
  364.            (concat command "\n")))
  365.  
  366. (defun dbx-maybe-delete-prompt ()
  367.   (if (and dbx-delete-prompt-marker
  368.        (> (point-max) (marker-position dbx-delete-prompt-marker)))
  369.       (let (start)
  370.     (goto-char dbx-delete-prompt-marker)
  371.     (setq start (point))
  372.     (beginning-of-line)
  373.     (delete-region (point) start)
  374.     (setq dbx-delete-prompt-marker nil))))
  375.  
  376. (defun dbx-break ()
  377.   "Set DBX breakpoint at this source line."
  378.   (interactive)
  379.   (let ((file-name (file-name-nondirectory buffer-file-name))
  380.     (line (save-restriction
  381.         (widen)
  382.         (1+ (count-lines 1 (point))))))
  383.     (send-string (get-buffer-process current-dbx-buffer)
  384.          (concat "stop at \"" file-name "\":" line "\n"))))
  385.  
  386. (defun dbx-read-address()
  387.   "Return a string containing the core-address found in the buffer at point."
  388.   (save-excursion
  389.    (let ((pt (dot)) found begin)
  390.      (setq found (if (search-backward "0x" (- pt 7) t)(dot)))
  391.      (cond (found (forward-char 2)(setq result
  392.             (buffer-substring found
  393.                  (progn (re-search-forward "[^0-9a-f]")
  394.                     (forward-char -1)
  395.                     (dot)))))
  396.        (t (setq begin (progn (re-search-backward "[^0-9]") (forward-char 1)
  397.                  (dot)))
  398.           (forward-char 1)
  399.           (re-search-forward "[^0-9]")
  400.           (forward-char -1)
  401.           (buffer-substring begin (dot)))))))
  402.  
  403.  
  404. (defvar dbx-commands nil
  405.   "List of strings or functions used by send-dbx-command.
  406. It is for customization by you.")
  407.  
  408. (defun send-dbx-command (arg)
  409.  
  410.   "This command reads the number where the cursor is positioned.  It
  411.  then inserts this ADDR at the end of the dbx buffer.  A numeric arg
  412.  selects the ARG'th member COMMAND of the list dbx-print-command.  If
  413.  COMMAND is a string, (format COMMAND ADDR) is inserted, otherwise
  414.  (funcall COMMAND ADDR) is inserted.  eg. \"p (rtx)%s->fld[0].rtint\"
  415.  is a possible string to be a member of dbx-commands.  "
  416.  
  417.  
  418.   (interactive "P")
  419.   (let (comm addr)
  420.     (if arg (setq comm (nth arg dbx-commands)))
  421.     (setq addr (dbx-read-address))
  422.     (if (eq (current-buffer) current-dbx-buffer)
  423.     (set-mark (point)))
  424.     (cond (comm
  425.        (setq comm
  426.          (if (stringp comm) (format comm addr) (funcall comm addr))))
  427.       (t (setq comm addr)))
  428.     (switch-to-buffer current-dbx-buffer)
  429.     (goto-char (dot-max))
  430.     (insert-string comm)))
  431.