home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / comint / dbx.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  4.3 KB  |  66 lines
  1. ;;; compiled by jwz@thalidomide on Thu Jul  2 14:39:10 1992
  2. ;;; from file /u/jwz/emacs19/lisp/comint/dbx.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (require 'comint)
  14. (defvar dbx-trace-flag nil "\
  15. Dbx trace switch.")
  16. (defvar dbx-process nil "\
  17. The process in which dbx is running.")
  18. (defvar dbx-break-point "stopped in .* at line \\([0-9]*\\) in file \"\\([^\"]*\\)\"" "\
  19. Regexp of pattern that dbx writes at break point.")
  20. (byte-code "└┴!¼é┬    ¼ù├ !┼    ╞╟#ê┼    ╚╔#ê┼\n╦╠#ê┬ç" [boundp inferior-dbx-mode-map nil copy-keymap shell-mode-map define-key "" dbx-where "" dbx-trace-mode ctl-x-map " " dbx-stop-at] 4)
  21. (fset 'inferior-dbx-mode #[nil "└ ê┴ ê┬ !ê─╞╚    ╩╦!ê╦ ₧¼å═ B ╬╧!ç" [kill-all-local-variables comint-mode use-local-map inferior-dbx-mode-map inferior-dbx-mode major-mode "Inferior dbx" mode-name "^[^)]*dbx) *" comint-prompt-regexp make-local-variable dbx-trace-flag minor-mode-alist (dbx-trace-flag " Trace") run-hooks dbx-mode-hook] 2 "\
  22. Major mode for interacting with an inferior dbx process.
  23.  
  24. The following commands are available:
  25. \\{inferior-dbx-mode-map}
  26.  
  27. Entry to this mode calls the value of dbx-mode-hook with no arguments,
  28. if that value is non-nil.  Likewise with the value of comint-mode-hook.
  29. dbx-mode-hook is called after comint-mode-hook.
  30.  
  31. You can display the debugging program in other window and point out
  32. where you are looking at using the command \\[dbx-where].
  33.  
  34. \\[dbx-trace-mode] toggles dbx-trace mode. In dbx-trace mode,
  35. debugging program is automatically traced using output from dbx.
  36.  
  37. The command \\[dbx-stop-at] sets break point at current line of the
  38. program in the buffer. Major mode name of the buffer must be in
  39. dbx-language-mode-list.
  40.  
  41. Commands:
  42.  
  43. Return at end of buffer sends line as input.
  44. Return not at end copies line, sans any dbx prompt, to end and sends it.
  45. \\[shell-send-eof] sends end-of-file as input.
  46. \\[comint-kill-input] and \\[backward-kill-word] are kill commands, imitating normal Unix input editing.
  47. \\[comint-interrupt-subjob] interrupts the shell or its current subjob if any.
  48. \\[comint-stop-subjob] stops, likewise. \\[comint-quit-subjob] sends quit signal, likewise.
  49. \\[dbx-where] displays debugging program in other window and
  50.  points out where you are looking at.
  51. \\[dbx-trace-mode] toggles dbx-trace mode.
  52. \\[dbx-stop-at] sets break point at current line." nil])
  53. (fset 'run-dbx #[(path) "└    !┬    !─┼ ╞Q!ê╟    !─╔╩ P╦╠ $!ê)═p!╧╨\"ê╤ ç" [expand-file-name path file-name-nondirectory file switch-to-buffer "*dbx-" "*" file-name-directory default-directory make-comint "dbx-" "dbx" nil get-buffer-process dbx-process set-process-filter dbx-filter inferior-dbx-mode] 6 "\
  54. Run inferior dbx process on PROGRAM, with I/O via buffer *dbx-PROGRAM*." "fProgram to debug: "])
  55. (fset 'dbx-trace-mode #[(arg) "┴=¼ä┬├!ê ¼ä?¬à╞ !╟V╚╔ !ç" [major-mode inferior-dbx-mode error "dbx-trace mode is effective in inferior-dbx mode only." arg dbx-trace-flag prefix-numeric-value 0 set-buffer-modified-p buffer-modified-p] 2 "\
  56. Toggle dbx-trace mode.
  57. With arg, turn dbx-trace mode on iff arg is positive.
  58. In dbx-trace mode, user program is automatically traced." "P"])
  59. (fset 'dbx-filter #[(process string) "è└    !qêdbê`├ !ê½à╞\n╟\"ê)╚    !½ç╚    !d╔ôê)└    !p=¡édbç" [process-buffer process beg insert-before-markers string dbx-trace-flag dbx-where t process-mark nil] 3 "\
  60. Trace debugging program automatically if dbx-trace-flag is not nil."])
  61. (fset 'dbx-where #[(&optional begin quiet) "└ëè├ #½î╟ö╟ò{╚ö╚ò{)\n¡º    ¡ñ╔╩\n└\"!ê╦╠    !!ê═yê╬¼ä╤ `pôê╥╟!*ç" [nil line file re-search-backward dbx-break-point begin quiet 1 2 find-file-other-window expand-file-name goto-line string-to-int 0 "=>" overlay-arrow-string overlay-arrow-position make-marker other-window] 4 "\
  62. Display dbx'ed program in other window and point out where you are looking.
  63. BEGIN bounds the search. If QUIET, just return nil (no error) if fail." nil])
  64. (fset 'dbx-stop-at #[nil "└    !î~ê┬├`\"T)╞╚╔ ╩░\"*ç" [file-name-nondirectory buffer-file-name count-lines 1 line file-name send-string dbx-process "stop at \"" "\":" "\n"] 7 "\
  65. Set break point at current line." nil])
  66.