;ELC ;;; compiled by nobody@localhost on Mon Mar 13 19:56:05 2000 ;;; from file /ade/home/lib/emacs/lisp/rexx-debug.el ;;; emacs version 19.34.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`rexx-debug.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!ˆÂÃ!‡" [require comint provide rexx-debug] 2) #@72 A regexp to recognize a linenumber in the rexx debugger output stream. (defvar rxdb-lineno-regexp "^ +[0-9]+ +\\*\\-\\* " (#$ . 531)) #@49 A regexp to recognize the rexx debugger prompt. (defvar rxdb-prompt-pattern "^>\\+> " (#$ . 671)) #@32 Pathname for REXX interpreter. (defvar rxdb-command-name "rx" (#$ . 775)) #@29 Keymap for rexx-debug-mode. (defvar rxdb-mode-map nil (#$ . 855)) (byte-code "„Á\n!ÃÄÅ#ˆÁ‡" [rxdb-mode-map full-copy-sparse-keymap comint-mode-map define-key "\f" rxdb-refresh] 4) #@543 Major mode for interacting with an inferior rexx process. Commands: \{rxdb-mode-map} Variable: rxdb-command-name contains the name of the REXX interpretator. Default is "RX", which is used by ARexx. Customisation: Entry to this mode runs the hooks comint-mode-hook and rxdb-mode-hook (in that order). For example: (setq rxdb-mode-hook '(lambda () (setq rxdb-command-name "/usr/local/bin/rexx") (define-local-key "key" 'favorite-command) )) will set the command so it can be used in many UNIX environments. (defalias 'rxdb-mode #[nil "À ˆÁÃÅÇ!ˆ \nËÌ!ˆÍ\fËÎ!ˆÏËÐ!ˆÍÑÒ!‡" [comint-mode rxdb-mode major-mode "Inferior REXX" mode-name (": %s") mode-line-process use-local-map rxdb-mode-map rxdb-prompt-pattern comint-prompt-regexp make-local-variable rxdb-last-frame nil rxdb-last-frame-displayed-p t rxdb-delete-prompt-marker run-hooks rxdb-mode-hook] 2 (#$ . 1047) nil]) #@213 Run a rexx program FILE in buffer *rexx-FILE*. The directory containing FILE becomes the initial working directory and source-file directory. (Type \[describe-mode] in the process buffer for a list of commands.) (defalias 'rexx-debug #[(path args) "À ! !Ä ÅQÇ!‰ƒ É!ˆ‚%Ê!ˆË!„^Ì ! n„8Î ˆÏ бˆÑÒ PÔ ÕQ$ˆ× ˆØÙp!Ú\"ˆÛÙp!Ü\"ˆÝ !+‡" [expand-file-name path file-name-nondirectory file "*rexx-" "*" rxdb-buffer get-buffer-window rxdb-window select-window switch-to-buffer comint-check-proc file-name-directory default-directory newline "Current directory is " "\n" make-comint "rexx-" rxdb-command-name nil " " args rxdb-mode set-process-filter get-buffer-process rxdb-filter set-process-sentinel rxdb-sentinel rxdb-set-buffer] 8 (#$ . 1970) "FDebug file (return for current buffer): \nsArguments:"]) (defalias 'rxdb-set-buffer #[(&optional path) "Á=…p … ‰‡" [major-mode rxdb-mode current-rxdb-buffer path current-rxdb-file] 2]) (defalias 'rxdb-filter #[(proc string) "À \f\")‡" [t inhibit-quit rxdb-filter-accumulate-marker proc string] 3]) (defalias 'rxdb-filter-accumulate-marker #[(proc string) "À ƒ8ÂÃ\f\"‰ƒ \f\"ƒ%Æ\fÇÂÈ\fÉ#O!\nË\fÍ\fÇ TO\"ˆ\f TËO‚\fÏš?…DÍ\f\")‡" [t end string-match "\n" string rxdb-lineno-regexp string-to-int 0 "\\*\\-\\*" 1 rxdb-last-frame nil rxdb-last-frame-displayed-p rxdb-filter-insert proc ""] 8]) (defalias 'rxdb-filter-insert #[(proc string) "`À !U`À !WpÂÇ !qˆÈŽŠÀ !bˆ` cˆÀ !`“ˆÊ ˆË †7Ìp!?Í\"ˆ*…DÀ !b,‡" [process-mark proc nil start old-buffer output-after-point moving process-buffer ((set-buffer old-buffer)) string rxdb-maybe-delete-prompt rxdb-display-frame get-buffer-window t] 4]) (defalias 'rxdb-sentinel #[(proc msg) "ÀÁ\n!!„ÃÅ\nÃ\"‡Æ\n!Ç>…SÃÈÉÆ\n!!P\np ÌŽÁ\n!qˆÍÎ !ˆmƒAÏѱˆ‚OŠdbˆÏѱˆ)Ó\n!*‡" [buffer-name process-buffer proc nil overlay-arrow-position set-process-buffer process-status (signal exit) ": " symbol-name mode-line-process obuf ((set-buffer obuf)) set-buffer-modified-p buffer-modified-p 10 mode-name " " msg delete-process] 4]) #@58 Fix up a possibly garbled display, and redraw the arrow. (defalias 'rxdb-refresh #[nil "À ˆÁ ‡" [redraw-display rxdb-display-frame] 1 (#$ . 4034) nil]) #@51 Display the last line executed in another window. (defalias 'rxdb-display-frame #[(&optional nodisplay noauto) "À ˆ …\n?… ƒ\f?…Å \"ˆÇ‰‡" [rxdb-set-buffer rxdb-last-frame nodisplay rxdb-last-frame-displayed-p noauto rxdb-display-line current-rxdb-file t] 3 (#$ . 4192) nil]) (defalias 'rxdb-display-line #[(true-file line) "À !Ã\nÄ\"ÆŠ\nqˆŒ~ˆÈ !ˆ`Ê \f„'Í \f\f`p“ˆ)eW„<dVƒB~ˆbˆ)Î \f\"+‡" [find-file-noselect true-file buffer display-buffer t window nil pos goto-line line "=>" overlay-arrow-string overlay-arrow-position make-marker set-window-point] 3]) #@62 Invoke rexx debug COMMAND displaying source in other window. (defalias 'rxdb-call #[(command) "dbˆÀ  ˆÃÄ !ÇP\"‡" [point-marker rxdb-delete-prompt-marker rxdb-set-buffer send-string get-buffer-process current-rxdb-buffer command "\n"] 4 (#$ . 4783) nil]) (defalias 'rxdb-maybe-delete-prompt #[nil "…dÁ!V…Âbˆ`Äyˆ` |ˆÂ‰)‡" [rxdb-delete-prompt-marker marker-position nil start 0] 3]) #@89 List of strings or functions used by send-rxdb-command. It is for customization by you. (defvar rxdb-commands nil (#$ . 5183)) #@401 This command reads the core-address where the cursor is positioned. It then inserts this ADDR at the end of the rxdb buffer. A numeric arg selects the ARG'th member COMMAND of the list rxdb-commands. If COMMAND is a string, (format COMMAND ADDR) is inserted, otherwise (funcall COMMAND ADDR) is inserted. eg. "p (rtx)%s->fld[0].rtint" is a possible string to be a member of rxdb-commands.  (defalias 'send-rxdb-command #[(arg) "À‰ ƒ\f \f8Å p=ƒÇ`!ˆ\nƒ1\n;ƒ*È\n \"‚-\n !‚3 É!ˆdbˆÊ\n!*‡" [nil addr comm arg rxdb-commands rxdb-read-address current-rxdb-buffer set-mark format switch-to-buffer insert-string] 3 (#$ . 5317) "P"])