;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:51:15 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/progmodes/idlw-shell.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`idlw-shell.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\302\304!\210\301B\305\301!\204\306\306\307\310\217\210\311\312!\2030\313\314!\2030\313\315!\2030\316\2028\317\320M\210\321\322M\210\323\324\306\325\326\327\330\304&\207" [current-load-list idlwave-shell-have-new-custom require comint idlwave boundp nil (byte-code "\300\301!\207" [require custom] 2) ((error)) featurep custom fboundp custom-declare-variable defface t defgroup (macro . #[(&rest args) "\300\207" [nil] 1]) defcustom (macro . #[(var value doc &rest args) "\303 \nF\207" [var value doc defvar] 4]) custom-declare-group idlwave-shell-general-setup "General setup of the Shell interaction for IDLWAVE/Shell." :prefix "idlwave-shell" :group] 8) #@259 *Regexp to match IDL prompt at beginning of a line. For example, "^IDL> " or "^WAVE> ". The "^" means beginning of line. This variable is used to initialise `comint-prompt-regexp' in the process buffer. This is a fine thing to set in your `.emacs' file. (custom-declare-variable 'idlwave-shell-prompt-pattern '"^ ?IDL> " '(#$ . -1327) :group 'idlwave-shell-general-setup :type 'regexp) #@125 *Name to be associated with the IDL process. The buffer for the process output is made by surrounding this name with `*'s. (custom-declare-variable 'idlwave-shell-process-name '"idl" '(#$ . -1724) :group 'idlwave-shell-general-setup :type 'string) #@158 Initial commands, separated by newlines, to send to IDL. This string is sent to the IDL process by `idlwave-shell-mode' which is invoked by `idlwave-shell'. (custom-declare-variable 'idlwave-shell-initial-commands '"!more=0" '(#$ . 1980) :group 'idlwave-shell-initial-commands :type 'string) #@77 *Non-nil means, IDLWAVE should use a special frame to display shell buffer. (custom-declare-variable 'idlwave-shell-use-dedicated-frame 'nil '(#$ . -2278) :group 'idlwave-shell-general-setup :type 'boolean) #@181 The frame parameters for a dedicated idlwave-shell frame. See also `idlwave-shell-use-dedicated-frame'. The default makes the frame splittable, so that completion works correctly. (custom-declare-variable 'idlwave-shell-frame-parameters ''((height . 30) (unsplittable)) '(#$ . 2492) :group 'idlwave-shell-general-setup :type '(repeat (cons symbol sexp))) #@388 *Non-nil means UP and DOWN arrows move through command history. This variable can have 3 values: nil Arrows just move the cursor t Arrows force the cursor back to the current command line and walk the history 'cmdline When the cursor is in the current command line, arrows walk the history. Everywhere else in the buffer, arrows move the cursor. (custom-declare-variable 'idlwave-shell-arrows-do-history 't '(#$ . -2854) :group 'idlwave-shell-general-setup :type '(choice (const :tag "never" nil) (const :tag "everywhere" t) (const :tag "in command line only" cmdline))) #@343 *Non-nil means, use the debugging toolbar in all IDL related buffers. Starting the shell will then add the toolbar to all idlwave-mode buffers. Exiting the shell will removed everywhere. Available on XEmacs and on Emacs 21.x or later. At any time you can toggle the display of the toolbar with `C-c C-d C-t' (`idlwave-shell-toggle-toolbar'). (custom-declare-variable 'idlwave-shell-use-toolbar 't '(#$ . -3473) :group 'idlwave-shell-general-setup :type 'boolean) #@235 *The prefix for temporary IDL files used when compiling regions. It should be an absolute pathname. The full temporary file name is obtained by to using `make-temp-name' so that the name will be unique among multiple Emacs processes. (custom-declare-variable 'idlwave-shell-temp-pro-prefix '"/tmp/idltemp" '(#$ . -3943) :group 'idlwave-shell-general-setup :type 'string) #@164 *OBSOLETE VARIABLE, is no longer used. The documentation of this variable used to be: If non-nil then run `idlwave-shell-remove-breaks' to clean up IDL messages. (defvar idlwave-shell-fix-inserted-breaks nil (#$ . -4321)) #@180 *The prefix key for the debugging map `idlwave-shell-mode-prefix-map'. This variable must already be set when idlwave-shell.el is loaded. Setting it in the mode-hook is too late. (custom-declare-variable 'idlwave-shell-prefix-key '"" '(#$ . -4551) :group 'idlwave-shell-general-setup :type 'string) #@200 Non-nil means, the debug commands will be bound to the prefix key. The prefix key itself is given in the option `idlwave-shell-prefix-key'. So by default setting a breakpoint will be on C-c C-d C-b. (custom-declare-variable 'idlwave-shell-activate-prefix-keybindings 't '(#$ . 4859) :group 'idlwave-shell-general-setup :type 'boolean) #@58 Obsolete variable. See `idlwave-shell-debug-modifiers'. (defvar idlwave-shell-activate-alt-keybindings nil (#$ . 5200)) #@557 *Non-nil means, use use `file-truename' when looking for buffers. If this variable is non-nil, Emacs will use the function `file-truename' to resolve symbolic links in the file paths printed by e.g., STOP commands. This means, unvisited files will be loaded under their truename. However, when a file is already visited under a different name, IDLWAVE will reuse that buffer. This option was once introduced in order to avoid multiple buffers visiting the same file. However, IDLWAVE no longer makes this mistake, so it is safe to set this option to nil. (custom-declare-variable 'idlwave-shell-use-truename 'nil '(#$ . -5328) :group 'idlwave-shell-general-setup :type 'boolean) #@162 The characters allowed in file names, as a string. Used for file name completion. Must not contain `'', `,' and `"' because these are used as separators by IDL. (custom-declare-variable 'idlwave-shell-file-name-chars '"~/A-Za-z0-9+@:_.$#%={}\\-" '(#$ . 6015) :group 'idlwave-shell-general-setup :type 'string) #@45 *Hook for customising `idlwave-shell-mode'. (custom-declare-variable 'idlwave-shell-mode-hook ''nil '(#$ . -6331) :group 'idlwave-shell-general-setup :type 'hook) #@330 When non-nil, a function to handle display of evaluated expressions. This can be used to arrange for displaying the value of an expression in (e.g.) a special frame. The function must accept one argument: the expression which was evaluated. The output from IDL will be available in the variable `idlwave-shell-command-output'. (custom-declare-variable 'idlwave-shell-print-expression-function 'nil '(#$ . 6501) :group 'idlwave-shell-highlighting-and-faces :type 'symbol) #@346 *Non-nil means, IDLWAVE should check for input mode spells in output. The spells are strings printed by your IDL program and matched by the regular expressions in `idlwave-shell-input-mode-spells'. When these expressions match, IDLWAVE switches to character input mode and back, respectively. See `idlwave-shell-input-mode-spells' for details. (custom-declare-variable 'idlwave-shell-use-input-mode-magic 'nil '(#$ . -6981) :group 'idlwave-shell-general-setup :type 'boolean) #@2074 The three regular expressions which match the magic spells for input modes. When the first regexp matches in the output streem of IDL, IDLWAVE prompts for a single character and sends it immediately to IDL, similar to the command \[idlwave-shell-send-char]. When the second regexp matches, IDLWAVE switches to a blocking single-character input mode. This is the same mode which can be entered manually with \[idlwave-shell-char-mode-loop]. This input mode exits when the third regexp matches in the output, or when the IDL prompt is encountered. The variable `idlwave-shell-use-input-mode-magic' must be non-nil to enable scanning for these expressions. If the IDL program produces lots of output, shell operation may be slowed down. This mechanism is useful for correct interaction with the IDL function GET_KBRD, because in normal operation IDLWAVE only sends \n terminated strings. Here is some example code which makes use of the default spells. print,'' ; Make IDLWAVE switch to character mode REPEAT BEGIN A = GET_KBRD(1) PRINT, BYTE(A) ENDREP UNTIL A EQ 'q' print,'' ; Make IDLWAVE switch back to line mode print,'Quit the program, y or n?' print,'' ; Ask IDLWAVE to send one character answer = GET_KBRD(1) Since the IDLWAVE shell defines the system variable `!IDLWAVE_VERSION', you could actually check if you are running under Emacs before printing the magic strings. Here is a procedure which uses this. Usage: ====== idlwave_char_input ; Make IDLWAVE send one character idlwave_char_input,/on ; Start the loop to send characters idlwave_char_input,/off ; End the loop to send chracters pro idlwave_char_input,on=on,off=off ;; Test if we are running under Emacs defsysv,'!idlwave_version',exists=running_emacs if running_emacs then begin if keyword_set(on) then print,'' $ else if keyword_set(off) then print,'' $ else print,'' endif end (custom-declare-variable 'idlwave-shell-input-mode-spells ''("^$" "^$" "^$") '(#$ . 7466) :group 'idlwave-shell-general-setup :type '(list (regexp :tag "One-char regexp") (regexp :tag "Char-mode regexp") (regexp :tag "Line-mode regexp"))) #@196 Size of IDL graphics windows popped up by special IDLWAVE command. The command is `C-c C-d C-f' and accepts as a prefix the window nr. A command like `WINDOW,N,xsize=XX,ysize=YY' is sent to IDL. (custom-declare-variable 'idlwave-shell-graphics-window-size ''(500 400) '(#$ . 9810) :group 'idlwave-shell-general-setup :type '(list (integer :tag "x size") (integer :tag "y size"))) (custom-declare-group 'idlwave-shell-highlighting-and-faces nil "Highlighting and Faces used by the IDLWAVE Shell mode." :prefix "idlwave-shell" :group 'idlwave) #@734 *Non-nil means, mark the source code line where IDL is currently stopped. Value decides about the method which is used to mark the line. Legal values are: nil Do not mark the line 'arrow Use the overlay arrow 'face Use `idlwave-shell-stop-line-face' to highlight the line. t Use what IDLWAVE thinks is best. Will be a face where possible, otherwise the overlay arrow. The overlay-arrow has the disadvantage to hide the first chars of a line. Since many people do not have the main block of IDL programs indented, a face highlighting may be better. On Emacs 21, the overlay arrow is displayed in a special area and never hides any code, so setting this to 'arrow on Emacs 21 sounds like a good idea. (custom-declare-variable 'idlwave-shell-mark-stop-line 't '(#$ . -10359) :group 'idlwave-shell-highlighting-and-faces :type '(choice (const :tag "No marking" nil) (const :tag "Use overlay arrow" arrow) (const :tag "Highlight with face" face) (const :tag "Face or arrow." t))) #@341 *The overlay arrow to display at source lines where execution halts. We use a single character by default, since the main block of IDL procedures often has no indentation. Where possible, IDLWAVE will use overlays to display the stop-lines. The arrow is only used on character-based terminals. See also `idlwave-shell-use-overlay-arrow'. (custom-declare-variable 'idlwave-shell-overlay-arrow '">" '(#$ . -11375) :group 'idlwave-shell-highlighting-and-faces :type 'string) #@181 *The face for `idlwave-shell-stop-line-overlay'. Allows you to choose the font, color and other properties for line where IDL is stopped. See also `idlwave-shell-mark-stop-line'. (custom-declare-variable 'idlwave-shell-stop-line-face ''highlight '(#$ . -11856) :group 'idlwave-shell-highlighting-and-faces :type 'symbol) #@366 *Non-nil means, mark breakpoints in the source files. Legal values are: nil Do not mark breakpoints. 'face Highlight line with `idlwave-shell-breakpoint-face'. 'glyph Red dot at the beginning of line. If the display does not support glyphs, will use 'face instead. t Glyph when possible, otherwise face (same effect as 'glyph). (custom-declare-variable 'idlwave-shell-mark-breakpoints 't '(#$ . -12185) :group 'idlwave-shell-highlighting-and-faces :type '(choice (const :tag "No marking" nil) (const :tag "Highlight with face" face) (const :tag "Display glyph (red dot)" glyph) (const :tag "Glyph or face." t))) #@58 Obsolete variable. See `idlwave-shell-mark-breakpoints. (defvar idlwave-shell-use-breakpoint-glyph t (#$ . 12840)) #@189 *The face for breakpoint lines in the source code. Allows you to choose the font, color and other properties for lines which have a breakpoint. See also `idlwave-shell-mark-breakpoints'. (custom-declare-variable 'idlwave-shell-breakpoint-face ''idlwave-shell-bp-face '(#$ . -12963) :group 'idlwave-shell-highlighting-and-faces :type 'symbol) (byte-code "\203\301\302\303\304\305\306%\210\202\307\310\302\"\210\301\207" [idlwave-shell-have-new-custom custom-declare-face idlwave-shell-bp-face ((((class color)) (:foreground "Black" :background "Pink")) (t (:underline t))) "Face for highlighting lines-with-breakpoints." :group idlwave-shell-highlighting-and-faces copy-face underline] 6) #@144 *The face for `idlwave-shell-expression-overlay'. Allows you to choose the font, color and other properties for the expression printed by IDL. (custom-declare-variable 'idlwave-shell-expression-face ''secondary-selection '(#$ . -13664) :group 'idlwave-shell-highlighting-and-faces :type 'symbol) (byte-code "\301B\302B\301\207" [current-load-list comint-last-input-start comint-last-input-end] 2) #@35 Base name of the temporary files. (defvar idlwave-shell-temp-file-base (make-temp-name idlwave-shell-temp-pro-prefix) (#$ . 14071)) #@64 Absolute pathname for temporary IDL file for compiling regions (defvar idlwave-shell-temp-pro-file (concat idlwave-shell-temp-file-base ".pro") (#$ . 14209)) #@164 Absolute pathname for temporary IDL file save file for routine_info. This is used to speed up the reloading of the routine info procedure before use by the shell. (defvar idlwave-shell-temp-rinfo-save-file (concat idlwave-shell-temp-file-base ".sav") (#$ . 14374)) #@84 Command used by `idlwave-shell-resync-dirs' to query IDL for the directory stack. (defvar idlwave-shell-dirstack-query "printd" (#$ . 14645)) #@61 The command which gets !PATH and !DIR infor from the shell. (defvar idlwave-shell-path-query "__pa=expand_path(!path,/array)&for i=0,n_elements(__pa)-1 do print,'PATH:<'+__pa[i]+'>'&print,'SYSDIR:<'+!dir+'>'" (#$ . 14794)) #@44 Additional info displayed in the mode line (defvar idlwave-shell-mode-line-info nil (#$ . 15023)) #@68 The default directory in the idlwave-shell buffer, of outside use. (defvar idlwave-shell-default-directory nil (#$ . 15127)) #@69 The last file which was compiled with `idlwave-shell-save-and-...'. (defvar idlwave-shell-last-save-and-action-file nil (#$ . 15258)) (byte-code "\300\301!\204 \302\303\304\217\210\302\207" [fboundp make-overlay nil (byte-code "\300\301!\207" [require overlay] 2) ((error))] 3) #@49 The overlay for where IDL is currently stopped. (defvar idlwave-shell-stop-line-overlay nil (#$ . 15543)) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list idlwave-shell-is-stopped boundp nil] 2) #@49 The overlay for where IDL is currently stopped. (defvar idlwave-shell-expression-overlay nil (#$ . 15764)) (byte-code "\306!\203\n\307!\210\306 !\203\307 !\210\310\310\n\203U\n\311=\204U\n\312=\203F\313\314!\2048\315\316!\2048 \203U\317\320\211\"\321\312\f#\210\202U \203U\317\320\211\"\321\312\f#\210\317\320\211\"\321 \312 #\207" [idlwave-shell-stop-line-overlay idlwave-shell-expression-overlay idlwave-shell-mark-stop-line window-system idlwave-shell-stop-line-face idlwave-shell-expression-face overlayp delete-overlay nil arrow face featurep xemacs fboundp tty-defined-colors make-overlay 1 overlay-put] 4) #@39 Command to obtain list of breakpoints (defvar idlwave-shell-bp-query "help,/breakpoints" (#$ . 16403)) #@49 String for accumulating current command output. (defvar idlwave-shell-command-output nil (#$ . 16512)) #@198 Lisp list expression or function to run when an IDL command is finished. The current command is finished when the IDL prompt is displayed. This is evaluated if it is a list or called with funcall. (defvar idlwave-shell-post-command-hook nil (#$ . 16622)) #@73 If non-nil the process output is not inserted into the output buffer. (defvar idlwave-shell-hide-output nil (#$ . 16883)) #@33 Accumulate last line of output. (defvar idlwave-shell-accumulation nil (#$ . 17013)) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list idlwave-shell-command-line-to-execute boundp nil] 2) #@55 List of functions to do cleanup when the shell exits. (defvar idlwave-shell-cleanup-hook nil (#$ . 17226)) #@290 List of commands to be sent to IDL. Each element of the list is list of (CMD PCMD HIDE), where CMD is a string to be sent to IDL and PCMD is a post-command to be placed on `idlwave-shell-post-command-hook'. If HIDE is non-nil, hide the output from command CMD. PCMD and HIDE are optional. (defvar idlwave-shell-pending-commands nil (#$ . 17340)) #@130 Name of buffer associated with IDL process. The name of the buffer is made by surrounding `idlwave-shell-process-name with `*'s. (defalias 'idlwave-shell-buffer #[nil "\301\301Q\207" [idlwave-shell-process-name "*"] 3 (#$ . 17693)]) #@50 If non-nil can send next command to IDL process. (defvar idlwave-shell-ready nil (#$ . 17933)) #@53 The frame associated with halt/breakpoint messages. (defvar idlwave-shell-halt-frame nil (#$ . 18034)) #@42 The frame associated with step messages. (defvar idlwave-shell-step-frame nil (#$ . 18143)) #@43 The frame associated with trace messages. (defvar idlwave-shell-trace-frame nil (#$ . 18241)) #@147 *A list of regular expressions matching IDL messages. These are the messages containing file and line information where IDL is currently stopped. (defconst idlwave-shell-halt-messages '("^% Execution halted at" "^% Interrupted at:" "^% Stepped to:" "^% At " "^% Stop encountered:") (#$ . -18342)) #@66 The regular expression computed from idlwave-shell-halt-messages (defconst idlwave-shell-halt-messages-re (mapconcat 'identity idlwave-shell-halt-messages "\\|") (#$ . 18645)) #@185 *A list of regular expressions matching IDL trace messages. These are the messages containing file and line information where IDL will begin looking for the next statement to execute. (defconst idlwave-shell-trace-messages '("^% At ") (#$ . -18828)) #@162 *A list of regular expressions matching stepped execution messages. These are IDL messages containing file and line information where IDL has currently stepped. (defconst idlwave-shell-step-messages '("^% Stepped to:") (#$ . -19085)) #@62 *Regular expression matching an IDL breakpoint message line. (defvar idlwave-shell-break-message "^% Breakpoint at:" (#$ . -19325)) (byte-code "\301B\302B\303B\304B\305B\306B\307B\310B\311B\312B\313B\314B\315B\301\207" [current-load-list idlwave-shell-bp-alist idlwave-shell-sources-alist idlwave-shell-menu-def idlwave-shell-mode-menu idlwave-shell-initial-commands idlwave-shell-syntax-error idlwave-shell-other-error idlwave-shell-error-buffer idlwave-shell-error-last idlwave-shell-bp-buffer idlwave-shell-sources-query idlwave-shell-mode-map idlwave-shell-calling-stack-index] 2) #@2741 Major mode for interacting with an inferior IDL process. 1. Shell Interaction ----------------- RET after the end of the process' output sends the text from the end of process to the end of the current line. RET before end of process output copies the current line (except for the prompt) to the end of the buffer. Command history, searching of previous commands, command line editing are available via the comint-mode key bindings, by default mostly on the key `C-c'. Command history is also available with the arrow keys UP and DOWN. 2. Completion ---------- TAB and M-TAB do completion of IDL routines, classes and keywords - similar to M-TAB in `idlwave-mode'. In executive commands and strings, it completes file names. Abbreviations are also expanded like in `idlwave-mode'. 3. Routine Info ------------ `\[idlwave-routine-info]' displays information about an IDL routine near point, just like in `idlwave-mode'. The module used is the one at point or the one whose argument list is being edited. To update IDLWAVE's knowledge about compiled or edited modules, use \[idlwave-update-routine-info]. \[idlwave-find-module] find the source of a module. \[idlwave-resolve] tells IDL to compile an unresolved module. \[idlwave-context-help] shows the online help on the item at point, if online help has been installed. 4. Debugging --------- A complete set of commands for compiling and debugging IDL programs is available from the menu. Also keybindings starting with a `C-c C-d' prefix are available for most commands in the *idl* buffer and also in source buffers. The best place to learn about the keybindings is again the menu. On Emacs versions where this is possible, a debugging toolbar is installed. When IDL is halted in the middle of a procedure, the corresponding line of that procedure file is displayed with an overlay in another window. Breakpoints are also highlighted in the source. \[idlwave-shell-resync-dirs] queries IDL in order to change Emacs current directory to correspond to the IDL process current directory. 5. Hooks ----- Turning on `idlwave-shell-mode' runs `comint-mode-hook' and `idlwave-shell-mode-hook' (in that order). 6. Documentation and Customization ------------------------------- Info documentation for this package is available. Use \[idlwave-info] to display (complain to your sysadmin if that does not work). For Postscript and HTML versions of the documentation, check IDLWAVE's homepage at `http://www.idlwave.org/'. IDLWAVE has customize support - see the group `idlwave'. 7. Keybindings ----------- \{idlwave-shell-mode-map} (defalias 'idlwave-shell-mode #[nil "\306\307\310\311\305!\210\311\312!\306L\210\313\306)\314*\315+\307,\316-\307.\307/\3070\3071\317\307!\210\32023`\307\223\210\3074\3075\3076\321 \210\307789\307:\322\323!\210\324\323\325\307\326$\210\324\323\327\307\326$\210\324\330\327\"\210\331;!\210\332<;\"\210\311\333!\306L\210\311\334!\306L\210=>\335?!\210\311\336!\337L\210\306@\322\340!\210\324\340\341\307\306$\210\342\343!\210\344A\307\345#\210\344\346\347B\"\307\345#\210C?\205\305D?\205\305\344E\350\345#\207" [idlwave-shell-prompt-pattern comint-prompt-regexp comint-process-echoes comint-input-autoexpand comint-input-ring-size comint-completion-addsuffix t nil 64 make-local-variable completion-ignore-case ("/" . "") idlwave-shell-mode "IDL-Shell" ("" mode-line-modified mode-line-buffer-identification " " global-mode-string " %[(" mode-name mode-line-process minor-mode-alist "%n" ")%]-" idlwave-shell-mode-line-info "---" (line-number-mode "L%l--") (column-number-mode "C%c--") (-3 . "%p") "-%-") idlwave-shell-display-line 0 idlwave-shell-update-bp-overlays make-local-hook kill-buffer-hook add-hook idlwave-shell-kill-shell-buffer-confirm local idlwave-shell-delete-temp-files kill-emacs-hook use-local-map easy-menu-add comint-scroll-to-bottom-on-input comint-scroll-show-maximum-output set-syntax-table comment-start ";" post-command-hook idlwave-command-hook run-hooks idlwave-shell-mode-hook idlwave-shell-send-command hide format "defsysv,'!idlwave_version','%s',1" idlwave-shell-get-path-info comint-input-ignoredups major-mode mode-name idlwave-shell-mode-line-info mode-line-format idlwave-shell-halt-frame idlwave-shell-trace-frame idlwave-shell-command-output idlwave-shell-step-frame idlwave-shell-calling-stack-index comint-last-input-end idlwave-idlwave_routine_info-compiled idlwave-shell-ready idlwave-shell-bp-alist idlwave-shell-sources-alist default-directory idlwave-shell-default-directory idlwave-shell-hide-output idlwave-shell-mode-map idlwave-shell-mode-menu idlwave-mode-abbrev-table local-abbrev-table idlwave-mode-syntax-table abbrev-mode idlwave-shell-initial-commands idlwave-mode-version idlwave-path-alist idlwave-sys-dir idlwave-shell-path-query] 5 (#$ . 19944) nil]) (defalias 'idlwave-shell-get-path-info #[nil "\305 \211@A \306\307\n\"\211+\207" [rpl sysdir dirs idlwave-sys-dir idlwave-path-alist idlwave-shell-path-filter mapcar #[(x) "\301B\207" [x nil] 2]] 4]) (byte-code "\300\301!\204\n\301\302M\210\300\207" [fboundp idl-shell idlwave-shell] 2) #@44 Frame for displaying the idl shell window. (defvar idlwave-shell-idl-wframe nil (#$ . 25234)) #@44 Frame for displaying the idl source files. (defvar idlwave-shell-display-wframe nil (#$ . 25334)) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\305\305\207" [current-load-list idlwave-shell-calling-stack-index idlwave-shell-calling-stack-routine boundp 0 nil] 2) #@49 Return the frame to be used for source display. (defalias 'idlwave-shell-source-frame #[nil "\205\303 !\203\f \207\304 \n=\203\305 \202\304 \211\207" [idlwave-shell-use-dedicated-frame idlwave-shell-display-wframe idlwave-shell-idl-wframe frame-live-p selected-frame make-frame] 2 (#$ . 25621)]) #@51 Return the frame to be used for the shell buffer. (defalias 'idlwave-shell-shell-frame #[nil "\205\304 !\203\f \207\304\n!\204\305 \306 !\211\207" [idlwave-shell-use-dedicated-frame idlwave-shell-idl-wframe idlwave-shell-display-wframe idlwave-shell-frame-parameters frame-live-p selected-frame make-frame] 2 (#$ . 25932)]) #@712 Run an inferior IDL, with I/O through buffer `(idlwave-shell-buffer)'. If buffer exists but shell process is not running, start new IDL. If buffer exists and shell process is running, just switch to the buffer. When called with a prefix ARG, or when `idlwave-shell-use-dedicated-frame' is non-nil, the shell buffer and the source buffers will be in separate frames. The command to run comes from variable `idlwave-shell-explicit-file-name'. The buffer is put in `idlwave-shell-mode', providing commands for sending input and controlling the IDL job. See help on `idlwave-shell-mode'. See also the variable `idlwave-shell-prompt-pattern'. (Type \[describe-mode] in the shell buffer for a list of commands.) (defalias 'idlwave-shell #[(&optional arg) "\203\306\307\232\203\310\311\312 !\204A\n\206\313\314\315\f \310 %\316!\310\317\320\"\210\321\322\"\210q\210\323 \210+\324\312 \310\325 #\326 \327!\210db\210\327!\210\330\331!!\210\332 \331!=\205p\327!*\207" [arg idlwave-shell-use-dedicated-frame idlwave-shell-explicit-file-name prg idlwave-shell-process-name idlwave-shell-command-line-options t (16) nil comint-check-proc idlwave-shell-buffer "idl" apply make-comint get-buffer-process set-process-filter idlwave-shell-filter set-process-sentinel idlwave-shell-sentinel idlwave-shell-mode idlwave-display-buffer idlwave-shell-shell-frame selected-window select-window raise-frame window-frame selected-frame buf process idlwave-idlwave_routine_info-compiled current-window window] 6 (#$ . 26271) "P"]) #@71 Run `idlwave-shell', but make sure the current window stays selected. (defalias 'idlwave-shell-recenter-shell-window #[(&optional arg) "\302 \303 !\210\304!)\207" [window arg selected-window idlwave-shell select-window] 2 (#$ . 27828) "P"]) #@605 Send a command to IDL process. (CMD PCMD HIDE) are placed at the end of `idlwave-shell-pending-commands'. If IDL is ready the first command, CMD, in `idlwave-shell-pending-commands' is sent to the IDL process. If optional second argument PCMD is non-nil it will be placed on `idlwave-shell-post-command-hook' when CMD is executed. If the optional third argument HIDE is non-nil, then hide output from CMD. If optional fourth argument PREEMPT is non-nil CMD is put at front of `idlwave-shell-pending-commands'. IDL is considered ready if the prompt is present and if `idlwave-shell-ready' is non-nil. (defalias 'idlwave-shell-send-command #[(&optional cmd pcmd hide preempt) "\306\211\307\310 !\211\203\311 !\211\204?\n\204\"\312\313\314!!\210\202?\315 \210\307\310 !\307\310 !\211\203;\311 !\211\204?\312\316!\210\212 q\210\317!b\210 \203i\f\203]\320 EC\"\202g\320 EC\"\205\277\212\321y\210\322!)\205\277\205\277@\211@A@\3238\324 !\325=\203\235\321 A`\306\223\210 `\306\223\210\326 \"\210\306\211,+\207" [proc buf idlwave-shell-automatic-start cmd preempt pcmd nil get-buffer idlwave-shell-buffer get-buffer-process error substitute-command-keys "You need to first start an IDL shell with \\[idlwave-shell]" idlwave-shell-recenter-shell-window "Problem with autostarting IDL shell" process-mark append 0 looking-at 2 string-to-char 46 comint-simple-send hide idlwave-shell-pending-commands idlwave-shell-ready idlwave-shell-prompt-pattern lcmd idlwave-shell-calling-stack-index idlwave-shell-post-command-hook idlwave-shell-hide-output comint-last-input-start comint-last-input-end] 6 (#$ . 28078)]) #@53 Send one character to the shell, without a newline. (defalias 'idlwave-shell-send-char #[(c &optional no-error) "t\203\304\202 \305\306\211\307\310 !\211\203\311 !\211\204#\n\312!\210 \313\232\203/\n\314!\2025\315\316 !\"+\207" [proc buf errf c error message nil get-buffer idlwave-shell-buffer get-buffer-process "Shell is not running" 7 "Abort" comint-send-string char-to-string] 4 (#$ . 29758) "cChar to send to IDL: "]) (byte-code "\301B\301\207" [current-load-list idlwave-shell-char-mode-active] 2) #@120 Check STRING for magic words and toggle character input mode. See also the variable `idlwave-shell-input-mode-spells'. (defalias 'idlwave-shell-input-mode-magic #[(string) "\303@ \"\203\f\304\305!\207\306\302!\203\303\3078 \"\203\310\211\207\303A@ \"\205?\311\312!\2039\312\313\314\315\316\211\317\320&\207\321\322\316\314\320$\207" [idlwave-shell-input-mode-spells string idlwave-shell-char-mode-active string-match call-interactively idlwave-shell-send-char boundp 2 exit fboundp start-itimer "IDLWAVE Char Mode" idlwave-shell-char-mode-loop 0.5 nil t no-error run-at-time 0.5] 8 (#$ . 30286)]) (byte-code "\301B\301\207" [current-load-list keyboard-quit] 2) #@400 Enter a loop which accepts single characters and sends them to IDL. Characters are sent one by one, without newlines. The loop is blocking and intercepts all input events to Emacs. You can use this command to interact with the IDL command GET_KBRD. The loop can be aborted by typing `C-g'. The loop also exits automatically when the IDL prompt gets displayed again after the current IDL command. (defalias 'idlwave-shell-char-mode-loop #[(&optional no-error) "\306\203 \307\202\n\310\311\211\211\312\313 !\211\203#\314 !\211\204'\f\315!\210\2030\f\316!\210\307\317!\210\307\320\321\215!-\207" [no-error c proc buf errf idlwave-shell-char-mode-active t message error nil get-buffer idlwave-shell-buffer get-buffer-process "Shell is not running" "No IDL program seems to be waiting for input" "Character mode on: Sending single chars (`C-g' to exit)" exit (byte-code "\306\307\310!\203 \203\311\312\313\"\210\n\312=\203\311\312\314\"\210\202\315\316\317\217\210 \204.\320 \210\202H \321\232\203A\315\320 \210\311\312\322\"\210\202H\323 \324 !\"\210\n\312=\203S\311\312\325\"\210)\202" [inhibit-quit idlwave-shell-ready idlwave-shell-char-mode-active c keyboard-quit proc t sit-for 0.3 throw exit "Character mode off (prompt displayed)" "Character mode off (closing spell incantation)" nil (byte-code "\301 \301\207" [c read-char] 1) ((error (byte-code "\300 \210\301\302\303\"\207" [ding throw exit "Character mode off"] 3))) ding 7 "Character mode off (keyboard quit)" comint-send-string char-to-string "Single char loop exited"] 4) idlwave-shell-ready] 5 (#$ . 30968) nil]) #@101 When in last line of process buffer, do `comint-previous-input'. Otherwise just do `previous-line'. (defalias 'idlwave-shell-up-or-history #[(&optional arg) "\302=\203 db\210\203+\212\303\210`)T\304\305\306p!!!Y\203+l\204'\307\303!\210\310 !\207\311 !\207" [idlwave-shell-arrows-do-history arg t nil marker-position process-mark get-buffer-process kill-line comint-previous-input previous-line] 5 (#$ . 32586) "p"]) #@94 When in last line of process buffer, do `comint-next-input'. Otherwise just do `next-line'. (defalias 'idlwave-shell-down-or-history #[(&optional arg) "\302=\203 db\210\203+\212\303\210`)T\304\305\306p!!!Y\203+l\204'\307\303!\210\310 !\207\311 !\207" [idlwave-shell-arrows-do-history arg t nil marker-position process-mark get-buffer-process kill-line comint-next-input next-line] 5 (#$ . 33015) "p"]) (defalias 'idlwave-shell-comint-filter #[(process string) "\300\207" [nil] 1]) (byte-code "\300\301!\203\302\301KM\210\202\302\303KM\210\300\207" [fboundp comint-output-filter idlwave-shell-comint-filter comint-filter] 2) #@43 Return t if the shell process is running. (defalias 'idlwave-shell-is-running #[nil "\301!\302=\207" [idlwave-shell-process-name process-status run] 2 (#$ . 33657)]) #@52 Buffer containing hidden output from IDL commands. (defvar idlwave-shell-hidden-output-buffer " *idlwave-shell-hidden-output*" (#$ . 33830)) #@200 Replace Carriage returns in output. Watch for prompt. When the IDL prompt is received executes `idlwave-shell-post-command-hook' and then calls `idlwave-shell-send-command' for any pending commands. (defalias 'idlwave-shell-filter #[(proc string) "\306!\307=\205\315\310 \311\216\312\313\314 \"\211\203 \n\315I\210\202)\f\2035\212\316 !q\210db\210 c\210)\202;\317 \"\210\313\320 \"\203]\203N\321 P!\210 \313\322 \"\210\323\225\312O\202c P\313\"\211 \205\314\f\203\216\212 q\210eb\210\324\312\325#\210e`{!e`|\210)\202\246\212\326!q\210\327!b\210\330\312!\210`\"{)!\312 \331 \210#<\203\272\332#!\210\202\276# \210\312\312!\312#\312)\333 *\207" [idlwave-shell-process-name data p string idlwave-shell-hide-output idlwave-shell-hidden-output-buffer process-status run match-data ((store-match-data data)) nil string-match " " 32 get-buffer-create idlwave-shell-comint-filter "\n" idlwave-shell-input-mode-magic "\\(.*\n\\)*" 0 re-search-forward t process-buffer process-mark beginning-of-line idlwave-shell-scan-for-state eval idlwave-shell-send-command proc idlwave-shell-use-input-mode-magic idlwave-shell-accumulation idlwave-shell-prompt-pattern idlwave-shell-ready idlwave-shell-command-output comint-last-input-end idlwave-shell-post-command-hook] 4 (#$ . 33978)]) #@54 The sentinel function for the IDLWAVE shell process. (defalias 'idlwave-shell-sentinel #[(process event) "\306 \307!\310!\203\212\306 q\210db\210\311\312\n #c\210)\313 G\314V\2033\315\f!\2033\316\f!\210\317\317\320 !\203=\321 !\210\322 *\207" [buf win process event idlwave-shell-idl-wframe idlwave-shell-display-wframe idlwave-shell-buffer get-buffer-window get-buffer format "\n\n Process %s %s" frame-list 1 frame-live-p delete-frame nil window-live-p delete-window idlwave-shell-cleanup] 4 (#$ . 35305)]) #@381 Scan for state info. Looks for messages in output from last IDL command indicating where IDL has stopped. The types of messages we are interested in are execution halted, stepped, breakpoint, interrupted at and trace messages. We ignore error messages otherwise. For breakpoint messages process any attached count or command parameters. Update the windows if a message is found. (defalias 'idlwave-shell-scan-for-state #[nil "\306 \203d\307\n \"\203\310\311 \310\225\306O!\312\202d\307 \"\203d\310\311 \310\225\306O!\312\313\f@\fA@D\"\211\203`\314\315\"\211 \203\\ <\203X\316 !\210\202\\ \210)\202c\317 \210) \203\217\307 \"\204x\307 \"\203\217\212\320!q\210\321 \210 c\210eb\210`)\322 \210\205\227\323\324 !)\207" [update idlwave-shell-command-output idlwave-shell-halt-messages-re idlwave-shell-calling-stack-index idlwave-shell-halt-frame idlwave-shell-break-message nil string-match 0 idlwave-shell-parse-line t assoc idlwave-shell-bp-get cmd eval idlwave-shell-bp-query get-buffer-create erase-buffer idlwave-shell-goto-next-error idlwave-shell-display-line idlwave-shell-pc-frame idlwave-shell-bp-alist bp idlwave-shell-syntax-error idlwave-shell-other-error idlwave-shell-error-buffer idlwave-shell-error-last] 5 (#$ . 35833)]) #@56 Buffer containing syntax errors from IDL compilations. (defvar idlwave-shell-error-buffer " *idlwave-shell-errors*" (#$ . 37117)) #@147 A regular expression to match an IDL syntax error. The first (..) pair should match the file name. The second pair should match the line number. (defvar idlwave-shell-syntax-error "^% Syntax error.\\s-*\n\\s-*At:\\s-*\\(.*\\),\\s-*Line\\s-*\\(.*\\)" (#$ . 37254)) #@141 A regular expression to match any IDL error. The first (..) pair should match the file name. The second pair should match the line number. (defvar idlwave-shell-other-error "^% .*\n\\s-*At:\\s-*\\(.*\\),\\s-*Line\\s-*\\(.*\\)" (#$ . 37526)) #@328 *A regular expression to parse out the file name and line number. The 1st group should match the subroutine name. The 3rd group is the line number. The 5th group is the file name. All parts may contain linebreaks surrounded by spaces. This is important in IDL5 which inserts random linebreaks in long module and file names. (defvar idlwave-shell-file-line-message "\\(\\<[a-zA-Z][a-zA-Z0-9_$:]*\\([ ]*\n[ ]*[a-zA-Z0-9_$:]+\\)*\\)[ \n]+\\([0-9]+\\([ ]*\n[ ]*[0-9]+\\)*\\)[ \n]+\\([^ \n]+\\([ ]*\n[ ]*[^ \n]+\\)*\\)" (#$ . -37775)) #@971 Parse IDL message for the subroutine, file name and line number. We need to work hard here to remove the stupid line breaks inserted by IDL5. These line breaks can be right in the middle of procedure or file names. It is very difficult to come up with a robust solution. This one seems to be pretty good though. Here is in what ways it improves over the previous solution: 1. The procedure name can be split and will be restored. 2. The number can be split. I have never seen this, but who knows. 3. We do not require the `.pro' extension for files. This function can still break when the file name ends on a end line and the message line contains an additional line with garbage. Then the first part of that garbage will be added to the file name. However, the function checks the existence of the files with and without this last part - thus the function only breaks if file name plus garbage match an existing regular file. This is hopefully very unlikely. (defalias 'idlwave-shell-parse-line #[(string) "\305\211\211\306 \f\"\2054\307\310\f\"\307\311\f\"\307\312\f\"\313 !\313\n!\314!\211\2054\315!\316\n! E+\207" [file procedure number idlwave-shell-file-line-message string nil string-match match-string 1 3 5 idlwave-shell-repair-string idlwave-shell-repair-file-name idlwave-shell-file-name string-to-int] 4 (#$ . 38325)]) #@69 Repair a string by taking out all linebreaks. This is destructive! (defalias 'idlwave-shell-repair-string #[(string) "\301\302\"\203\303\304\305\211$\202\207" [string string-match "[ ]*\n[ ]*" replace-match "" t] 5 (#$ . 39685)]) #@142 Repair a file name string by taking out all linebreaks. The last line of STRING may be garbage - we check which one makes a valid file name. (defalias 'idlwave-shell-repair-file-name #[(file) "\304\211\305\306\307 \"\203 \305\211\224O\306\310 #\203)\n \305\224OP\305\225\202\n \311OP\312 !\203: \202Y\312\n!\203D\n\202Y\n\304\230\204N\n\202Y \304\230\204X \202Y\311+\207" [start file2 file1 file "" 0 string-match "^%" "[ ]*\n[ ]*" nil file-regular-p] 4 (#$ . 39933)]) #@52 Do necessary cleanup for a terminated IDL process. (defalias 'idlwave-shell-cleanup #[nil "\306\306\306\306\306\307\306\310 \210\311\306!\210\312 \210\313!\210\313!\210\313!\210\314\315 !\2036\316\314\315 !!\210\317\320!\207" [idlwave-shell-step-frame idlwave-shell-halt-frame idlwave-shell-pending-commands idlwave-shell-command-line-to-execute idlwave-shell-bp-alist idlwave-shell-calling-stack-index nil 0 idlwave-shell-delete-temp-files idlwave-shell-display-line idlwave-shell-update-bp-overlays idlwave-shell-kill-buffer get-buffer idlwave-shell-buffer bury-buffer run-hooks idlwave-shell-cleanup-hook idlwave-idlwave_routine_info-compiled idlwave-shell-hidden-output-buffer idlwave-shell-bp-buffer idlwave-shell-error-buffer] 3 (#$ . 40433)]) #@31 Kill buffer BUF if it exists. (defalias 'idlwave-shell-kill-buffer #[(buf) "\301!\211\205 \302!\207" [buf get-buffer kill-buffer] 2 (#$ . 41204)]) (defalias 'idlwave-shell-kill-shell-buffer-confirm #[nil "\300 \205\301 \210\302\303!\204\304\305!\210\306\307!\207" [idlwave-shell-is-running ding y-or-n-p "IDL shell is running. Are you sure you want to kill the buffer? " error "Abort" message "Killing buffer *idl* and the associated process"] 2]) #@121 Issue a `window,N' command to IDL, with special window size. The size is given by `idlwave-shell-graphics-window-size'. (defalias 'idlwave-shell-window #[(n) "\203\n\302!\202 \303\304\305\306\307 $!)\207" [n idlwave-shell-graphics-window-size prefix-numeric-value 0 idlwave-shell-send-command apply format "window,%d,xs=%d,ys=%d"] 6 (#$ . 41668) "P"]) #@207 Resync the buffer's idea of the current directory stack. This command queries IDL with the command bound to `idlwave-shell-dirstack-query' (default "printd"), reads the output for the new directory stack. (defalias 'idlwave-shell-resync-dirs #[nil "\301\302\303#\207" [idlwave-shell-dirstack-query idlwave-shell-send-command idlwave-shell-filter-directory hide] 4 (#$ . 42033) nil]) #@39 Return from the entire calling stack. (defalias 'idlwave-shell-retall #[(&optional arg) "\300\301!\207" [idlwave-shell-send-command "retall"] 2 (#$ . 42424) "P"]) #@23 Close all open files. (defalias 'idlwave-shell-closeall #[(&optional arg) "\300\301!\207" [idlwave-shell-send-command "close,/all"] 2 (#$ . 42593) "P"]) #@86 Exit the idl process after confirmation. With prefix ARG, exit without confirmation. (defalias 'idlwave-shell-quit #[(&optional arg) "\301 \204 \302\303!\207\204\304\305!\205\306\307\310\217\207" [arg idlwave-shell-is-running error "Shell is not running" y-or-n-p "Exit the IDLWAVE Shell? " nil (idlwave-shell-send-command "exit") ((error))] 3 (#$ . 42752) "P"]) #@168 Reset IDL. Return to main level and destroy the leaftover variables. This issues the following commands: RETALL WIDGET_CONTROL,/RESET CLOSE, /ALL HEAP_GC, /VERBOSE (defalias 'idlwave-shell-reset #[(&optional hidden) "\302\303!\210\304\305\306\307 #\210\305\310\307 #\210\305\311\307 #\210\305\312\307 #\210\313\307!\207" [idlwave-shell-calling-stack-index hidden message "Resetting IDL" 0 idlwave-shell-send-command "retall" nil "widget_control,/reset" "close,/all" "heap_gc,/verbose" idlwave-shell-display-line] 4 (#$ . 43128) "P"]) (defalias 'idlwave-shell-path-filter #[nil "\306\307\310\211\311\312 #\203\313\314 \"\nB\307\225\202\n\315\316\n\"\311\317 \"\2032\316\313\314 \"! \n\237-B\207" [idlwave-shell-command-output sysdir dirs start case-fold-search path-string t 0 nil string-match "^PATH:[ ]*<\\(.*\\)>[ ]*\n" match-string 1 mapcar file-name-as-directory "^SYSDIR:[ ]*<\\(.*\\)>[ ]*\n"] 5]) #@73 Function which parses the special output from idlwave_routine_info.pro. (defalias 'idlwave-shell-routine-info-filter #[nil "\306\307\211\211\211\211\211\211\211\211\211\211\211+,-./0123\3074\3075\310\3113\"\203M\312\3133\"1\3141!\315P03\306\225\307O3\202Z\3161\3170\3203\321\322!\210\310\3233\"\203m3\306\211\224O3\202q\321\324!\210\310\3253\"\203|\3266\310\32732#\203]\306\2252\312\3133\".\312\3303\"-\331-0\"\211,@+,A@\320\232?\205\262,A@\330,8/\332,8\333,8\211;\205\332\310\334\f\"?\205\332\335\336\337\320\331\f\340\"\"\"\341+\n\326#+\342\n\326\"/\320\232?\205\362//\335\343 \"\344/\326\"/+\345\230\204|.\346\230\2032+\347\n\350/B \257/\203) 4B4\202| 5B5\202|.\351\230\203|+\352\n\350/B \257/\203T 4B4\202| 5B5\202|.4\23745\237\2115\207" [idlwave-shell-command-output entry class keys key cs 0 nil string-match "^>>>BEGIN OF IDLWAVE ROUTINE INFO (\"\\(.+\\)\" IS THE SEPARATOR.*" match-string 1 regexp-quote " *" "@" "@ *" "" message "Routine Info warning: No match for BEGIN line" "^>>>END OF IDLWAVE ROUTINE INFO.*" "Routine Info warning: No match for END line" "\\S-" t "^IDLWAVE-\\(PRO\\|FUN\\): \\(.*\\)" 2 idlwave-split-string 3 4 "\\` *\\'" mapcar list delete " +" idlwave-sintern-routine-or-method idlwave-sintern-class #[(x) "\301@\302\"C\207" [x idlwave-sintern-keyword t] 3] idlwave-sintern-file "$MAIN$" "PRO" pro compiled "FUN" fun name specs spec type file sep-re sep start text idlwave-compiled-routines idlwave-unresolved-routines idlwave-idlwave_routine_info-compiled] 15 (#$ . 44060)]) #@127 Get the current directory from `idlwave-shell-command-output'. Change the default directory for the process buffer to concur. (defalias 'idlwave-shell-filter-directory #[nil "\212\304 q\210\305\306\"\205 \307\224\307\225O\310\311 \"\210 \312 !\211))\207" [idlwave-shell-command-output dir idlwave-shell-default-directory default-directory idlwave-shell-buffer string-match "Current Directory: *\\(\\S-*\\) *$" 1 message "Setting Emacs wd to %s" file-name-as-directory] 3 (#$ . 45685)]) #@200 Do completion in the idlwave-shell buffer. Calls `idlwave-shell-complete-filename' after some executive commands or in strings. Otherwise, calls `idlwave-complete' to complete modules and keywords. (defalias 'idlwave-shell-complete #[(&optional arg) "\303\304 \211\203\226\305\235\205/\306 \202/\307 \203,\212\310 \210\311\312\313!*\204,\306 \206/\314\n!)\207" [cmd case-fold-search arg nil idlwave-shell-executive-command (".R" ".RU" ".RUN" ".RN" ".RNE" ".RNEW" ".COM" ".COMP" ".COMPI" ".COMPIL" ".COMPILE") idlwave-shell-complete-filename idlwave-shell-filename-string beginning-of-line t looking-at ".*obj_new" idlwave-complete] 2 (#$ . 46184) "P"]) #@295 Complete a file name at point if after a file name. We assume that we are after a file name when completing one of the args of an executive .run, .rnew or .compile. Also, in a string constant we complete file names. Otherwise return nil, so that other completion functions can do thier work. (defalias 'idlwave-shell-complete-filename #[(&optional arg) "\303\302!\304 *\207" [idlwave-shell-file-name-chars comint-file-name-chars completion-ignore-case default-value comint-dynamic-complete-filename] 2 (#$ . 46856)]) #@59 Return the name of the current executive command, if any. (defalias 'idlwave-shell-executive-command #[nil "\212\300 \210\301\302!\205 \303\304!)\207" [idlwave-beginning-of-statement looking-at "[ ]*\\([.][^ \n ]*\\)" match-string 1] 2 (#$ . 47384)]) #@62 Return t if in a string and after what could be a file name. (defalias 'idlwave-shell-filename-string #[nil "\212\302 \210`)\212 x\210h\303>*\207" [limit idlwave-shell-file-name-chars beginning-of-line (39 34)] 2 (#$ . 47644)]) #@186 Tries to resync the display with where execution has stopped. Issues a "help,/trace" command followed by a call to `idlwave-shell-display-line'. Also updates the breakpoint overlays. (defalias 'idlwave-shell-redisplay #[(&optional hide) "\302\303\304\305 #\210\306 \207" [idlwave-shell-calling-stack-index hide 0 idlwave-shell-send-command "help,/trace" (idlwave-shell-display-line (idlwave-shell-pc-frame)) idlwave-shell-bp-query] 4 (#$ . 47881) nil]) (defalias 'idlwave-shell-display-level-in-calling-stack #[(&optional hide) "\302\303\304\305\300E\306BB #\207" [idlwave-shell-calling-stack-index hide idlwave-shell-send-command "help,/trace" progn setq ((idlwave-shell-parse-stack-and-display))] 6]) (defalias 'idlwave-shell-parse-stack-and-display #[nil "\306\307\310\311\"\"\312\313\314\315 \"\"\211GS\316\313 \fW\203+\316\317 \210\305\320!\210\202T V\203A\317 \210 \321\322 [\"\202T\fW\203T\317 \210\f\321\323\f[\"\324\n88\325\n8!\210\305 \206p\321\326[#!-\207" [idlwave-shell-command-output lines stack nmax nmin message delete "" idlwave-split-string "^%" delq nil mapcar idlwave-shell-parse-line 0 ding "Problem with calling stack" format "%d is the highest calling stack level - can't go further up" "%d is the current calling stack level - can't go further down" 2 idlwave-shell-display-line "In routine %s (stack level %d)" idlwave-shell-calling-stack-index idlwave-shell-calling-stack-routine] 6]) #@56 Display the source code one step up the calling stack. (defalias 'idlwave-shell-stack-up #[nil "T\301\302!\207" [idlwave-shell-calling-stack-index idlwave-shell-display-level-in-calling-stack hide] 2 (#$ . 49336) nil]) #@58 Display the source code one step down the calling stack. (defalias 'idlwave-shell-stack-down #[nil "S\301\302!\207" [idlwave-shell-calling-stack-index idlwave-shell-display-level-in-calling-stack hide] 2 (#$ . 49563) nil]) #@171 Set buffer to FRAME with point at the frame line. If the optional argument FRAME is nil then idlwave-shell-pc-frame is used. Does nothing if the resulting frame is nil. (defalias 'idlwave-shell-goto-frame #[(&optional frame) "\204\301 \205\302@\303\"q\210~\210\304A@!\207" [frame idlwave-shell-pc-frame idlwave-find-file-noselect shell goto-line] 3 (#$ . 49795)]) #@38 Returns the frame for IDL execution. (defalias 'idlwave-shell-pc-frame #[nil "\205 @A@\3018E\207" [idlwave-shell-halt-frame 2] 4 (#$ . 50175)]) #@43 Check that frame is for an existing file. (defalias 'idlwave-shell-valid-frame #[(frame) "\301@!\207" [frame file-readable-p] 2 (#$ . 50330)]) #@158 Display FRAME file in other window with overlay arrow. FRAME is a list of file name, line number, and subroutine name. If FRAME is nil then remove overlay. (defalias 'idlwave-shell-display-line #[(frame &optional col) "\204\306\306\306\f\205\316\307\f!\207\310!\204\311\312@P!\207\3138\205-\314\315 [\3138#\316@\317\"\320 \321 \232\306\306\322\321 \306\323 #\210\322\306\324 #\212q\210\214~\210\325A@!\210`\326\f\203y\327\f`\212\306\210`)p$\210\202\221 \203\201!\"\204\212\330 \"\"`\223\210)eW\204\240dV\203\246~\210b\210#\203\260\331#!\210`)\332\"\210\320 \321 \232\205\315?\205\315\333!,\207" [frame overlay-arrow-string idlwave-shell-mode-line-info idlwave-shell-is-stopped idlwave-shell-stop-line-overlay idlwave-shell-calling-stack-index nil delete-overlay idlwave-shell-valid-frame error "Invalid frame - unable to access file: " 2 format "[%d:%s]" idlwave-find-file-noselect shell buffer-name idlwave-shell-buffer idlwave-display-buffer idlwave-shell-shell-frame idlwave-shell-source-frame goto-line t move-overlay make-marker move-to-column set-window-point select-window buffer select-shell window pos idlwave-shell-mark-stop-line idlwave-shell-overlay-arrow overlay-arrow-position col] 5 (#$ . 50481)]) #@76 Step one source line. If given prefix argument ARG, step ARG source lines. (defalias 'idlwave-shell-step #[(arg) "\203\f\301W\204\f\301\302\303\250\203\304!\202P!\207" [arg 1 idlwave-shell-send-command ".s " int-to-string] 4 (#$ . 51771) "p"]) #@158 Stepover one source line. If given prefix argument ARG, step ARG source lines. Uses IDL's stepover executive command which does not enter called functions. (defalias 'idlwave-shell-stepover #[(arg) "\203\f\301W\204\f\301\302\303\250\203\304!\202P!\207" [arg 1 idlwave-shell-send-command ".so " int-to-string] 4 (#$ . 52034) "p"]) #@360 Set breakpoint at current line. If Count is nil then an ordinary breakpoint is set. We treat a count of 1 as a temporary breakpoint using the ONCE keyword. Counts greater than 1 use the IDL AFTER=count keyword to break only after reaching the statement count times. Optional argument CMD is a list or function to evaluate upon reaching the breakpoint. (defalias 'idlwave-shell-break-here #[(&optional count cmd) "<\203\302\303\304\305  D\306 #!\207" [count cmd nil idlwave-shell-set-bp idlwave-shell-bp idlwave-shell-current-frame idlwave-shell-current-module] 5 (#$ . 52384) "P"]) #@211 Check for failure to set breakpoint. This is run on `idlwave-shell-post-command-hook'. Offers to recompile the procedure if we failed. This usually fixes the problem with not being able to set the breakpoint. (defalias 'idlwave-shell-set-bp-check #[(bp) "\203;\302\303\"\203;\304 \210\305\306\307 \310\"\311Q!\203/\312 \210\313\314\307 \310\"P\315\211#\210\316 !\210\2029\304 \210\317\320!\210\312 \210\315\207\321\207" [idlwave-shell-command-output bp string-match "% BREAKPOINT: *Unable to find code" beep y-or-n-p "Okay to recompile file " idlwave-shell-bp-get file " " idlwave-shell-command-failure idlwave-shell-send-command ".run " nil idlwave-shell-set-bp message "Unable to set breakpoint." okay] 5 (#$ . 52985)]) #@261 Do any necessary clean up when an IDL command fails. Call this from a function attached to `idlwave-shell-post-command-hook' that detects the failure of a command. For example, this is called from `idlwave-shell-set-bp-check' when a breakpoint can not be set. (defalias 'idlwave-shell-command-failure #[nil "\301\211\207" [idlwave-shell-pending-commands nil] 2 (#$ . 53721)]) #@21 Continue executing. (defalias 'idlwave-shell-cont #[nil "\300\301\302\"\207" [idlwave-shell-send-command ".c" (idlwave-shell-redisplay 'hide)] 3 (#$ . 54104) nil]) #@67 Run .GO. This starts the main program of the last compiled file. (defalias 'idlwave-shell-go #[nil "\300\301\302\"\207" [idlwave-shell-send-command ".go" (idlwave-shell-redisplay 'hide)] 3 (#$ . 54274) nil]) #@64 Run .RETURN (continue to next return, but stay in subprogram). (defalias 'idlwave-shell-return #[nil "\300\301\302\"\207" [idlwave-shell-send-command ".return" (idlwave-shell-redisplay 'hide)] 3 (#$ . 54489) nil]) #@39 Run .SKIP (skip one line, then step). (defalias 'idlwave-shell-skip #[nil "\300\301\302\"\207" [idlwave-shell-send-command ".skip" (idlwave-shell-redisplay 'hide)] 3 (#$ . 54709) nil]) #@69 Clear breakpoint BP. Clears in IDL and in `idlwave-shell-bp-alist'. (defalias 'idlwave-shell-clear-bp #[(bp) "\302!\211\205\303\304 \250\203\305 !\202 P!\210\306 )\207" [bp index idlwave-shell-bp-get idlwave-shell-send-command "breakpoint,/clear," int-to-string idlwave-shell-bp-query] 5 (#$ . 54900)]) #@132 Return a list containing the current file name and line point is in. If in the IDL shell buffer, returns `idlwave-shell-pc-frame'. (defalias 'idlwave-shell-current-frame #[nil "p\300\301 !=\203\f\302 \207\303\304 !\214~\210\212\305 \210\306\307`\"T*D\207" [get-buffer idlwave-shell-buffer idlwave-shell-pc-frame idlwave-shell-file-name buffer-file-name beginning-of-line count-lines 1] 4 (#$ . 55218)]) #@100 Return the name of the module for the current file. Returns nil if unable to obtain a module name. (defalias 'idlwave-shell-current-module #[nil "p\301\302 !=\203 \3038\207\214~\210\212\304 \205\305 \226*\207" [idlwave-shell-halt-frame get-buffer idlwave-shell-buffer 2 idlwave-prev-index-position idlwave-unit-name] 3 (#$ . 55629)]) #@130 Remove breakpoint at current line. This command can be called from the shell buffer if IDL is currently stopped at a breakpoint. (defalias 'idlwave-shell-clear-current-bp #[nil "\301\302 !\211\203\303!\202,\212\304 \210\305 \210\301\302 !\211\203%\303!\202+\306 \210\307\310!))\207" [bp idlwave-shell-find-bp idlwave-shell-current-frame idlwave-shell-clear-bp idlwave-shell-goto-frame idlwave-beginning-of-statement beep message "Cannot identify breakpoint for this line"] 3 (#$ . 55974) nil]) #@46 Set a breakpoint with count 1 then continue. (defalias 'idlwave-shell-to-here #[nil "\300\301!\210\302 \207" [idlwave-shell-break-here 1 idlwave-shell-cont] 2 (#$ . 56483) nil]) #@182 Look for a module name near point and set a break point for it. The command looks for an identifier near point and sets a breakpoint for the first line of the corresponding module. (defalias 'idlwave-shell-break-in #[(&optional module) "\303\212\304\303x\210\305 !\203\306\307!\202\310\311!\210)\312\n\313\314\315DE\316#)\207" [module idlwave-identifier idlwave-shell-sources-query nil "a-zA-Z0-9_$" looking-at match-string 0 error "No identifier at point" idlwave-shell-send-command progn (idlwave-shell-sources-filter) idlwave-shell-set-bp-in-module hide] 6 (#$ . 56668) nil]) #@106 Set breakpoint in module. Assumes that `idlwave-shell-sources-alist' contains an entry for that module. (defalias 'idlwave-shell-set-bp-in-module #[(module) "\305\226 \"\243\242\306\211\203\"\307 !\203\"\310 !\206\311 !\211\204,\312\313\"\210\314 \202Y\212\nq\210\212eb\210\315\316\317\227\320Q\306\315#\203P\321\224b\210\312\322\"\210\323 \202X\312\324 #\210\314 +*\207" [module idlwave-shell-sources-alist buf source-file case-fold-search assoc nil file-regular-p idlwave-get-buffer-visiting find-file-noselect message "The source file for module %s is probably not compiled" beep t re-search-forward "^[ ]*\\(pro\\|function\\)[ ]+" "[ \n,]" 1 "Setting breakpoint for module %s" idlwave-shell-break-here "Cannot find module %s in file %s"] 5 (#$ . 57261)]) #@94 Run to end of current block. Sets a breakpoint with count 1 at end of block, then continues. (defalias 'idlwave-shell-up #[nil "\301 \205,\212\302 \210\212\303 \210\304 \210`)\305\306!\210\307 \210\310 \210`W\204)b\210\311 \210\312 *\207" [eos idlwave-shell-pc-frame idlwave-shell-goto-frame idlwave-beginning-of-subprogram idlwave-forward-block idlwave-backward-up-block -1 idlwave-next-statement idlwave-end-of-statement idlwave-previous-statement idlwave-shell-to-here] 2 (#$ . 58047) nil]) #@122 Attempt to run until this procedure exits. Runs to the last statement and then steps 1 statement. Use the .out command. (defalias 'idlwave-shell-out #[nil "\300\301!\207" [idlwave-shell-send-command ".o"] 2 (#$ . 58553) nil]) #@63 Print help on current expression. See `idlwave-shell-print'. (defalias 'idlwave-shell-help-expression #[(arg) "\301\302\"\207" [arg idlwave-shell-print help] 3 (#$ . 58786) "P"]) #@51 Call `idlwave-shell-print' at the mouse position. (defalias 'idlwave-shell-mouse-print #[(event) "\301!\210\302\303\211\304#\207" [event mouse-set-point idlwave-shell-print nil mouse] 4 (#$ . 58973) "e"]) #@51 Call `idlwave-shell-print' at the mouse position. (defalias 'idlwave-shell-mouse-help #[(event) "\301!\210\302\303\304\305#\207" [event mouse-set-point idlwave-shell-print nil help mouse] 4 (#$ . 59185) "e"]) #@563 Print current expression. With HELP, show help on expression. An expression is an identifier plus 1 pair of matched parentheses directly following the identifier - an array or function call. Alternatively, an expression is the contents of any matched parentheses when the open parentheses is not directly preceded by an identifier. If point is at the beginning or within an expression return the inner-most containing expression, otherwise, return the preceding expression. With prefix arg ARG, or when called from the shell buffer, prompt for an expression. (defalias 'idlwave-shell-print #[(arg &optional help mouse) "\212\306\211\211\211\f\204 \204\307=\203\310\311!\202`\312 \313\216\314 !\210\315\316!\203<\315\317!\203?\320 \210\202?\320 \210\315\317!\203H\320 \210`\321 \210\315\322!\203Y\321 \210\202M`\n {*\n\203z \203z!\203z\323!\n p$\210\324\325\326\"\210\"\250\203\224\"\327V\203\224\330 \"#$$\202\241$\203\235\331\202\236\332 P%\203\261\333% D\334#\202\267\335 \210\333!-\207" [cmd end beg expr mouse arg nil idlwave-shell-mode read-string "Expression: " syntax-table ((set-syntax-table saved-syntax)) set-syntax-table looking-at "\\<\\|(" "\\>" backward-sexp forward-sexp "\\>[[(]\\|\\." move-overlay add-hook pre-command-hook idlwave-shell-delete-expression-overlay 0 idlwave-retrieve-expression-from-level "help," "print," idlwave-shell-send-command hide idlwave-shell-recenter-shell-window major-mode saved-syntax idlwave-find-symbol-syntax-table idlwave-shell-expression-overlay idlwave-shell-calling-stack-index idlwave-shell-calling-stack-routine help idlwave-shell-print-expression-function] 5 (#$ . 59402) "P"]) #@574 Return IDL command to print the expression EXPR from stack level LEVEL. It does not seem possible to evaluate an expression on a differnt level than the current. Therefore, this function retrieves *copies* of the variables involved in the expression from the desired level in the calling stack. The copies are given some unlikely names on the *current* level, and the expression is then evaluated on the *current* level. Since this function depends upon the undocumented IDL routine routine_names, there is no guarantie that this will work with future versions of IDL. (defalias 'idlwave-retrieve-expression-from-level #[(expr level routine help) "\306[\307\310\211\211\211\211\311\312#\203t\313\314\" P\314\224\307\314\224O\314\225\310O\311\315\n\"\204\311\316\n\"\203P\311\317 \"\204\311\320 \"\204\311\321\n\"\204\311\322\n\"\204 \fB B\n\f Q\202\323\324 \237\325#\203\203\325\202\204\326 \203\215\327\202\216\330\331\332!#\260.\207" [level post pre fetch-vars tvar var "___" 0 nil string-match "\\(\\`\\|[^a-zA-Z0-9$_]\\)\\([a-zA-Z][a-zA-Z0-9$_]*\\)\\([^a-zA-Z0-9$_]\\|\\'\\)" match-string 2 ",[ ]*/\\'" "[,(][ ]*\\'" "\\`[ ]*=" "\\`(" "->[ ]*\\'" "\\.\\'" mapconcat #[(x) "\302\303A@ $\207" [x fetch format "%s = routine_names('%s',fetch=%d)"] 5] " & " "\n" "help, " "print, " format " ; [-%d:%s]" start fetch prefix expr idlwave-shell-print-expression-function help routine] 8 (#$ . 61096)]) (defalias 'idlwave-shell-delete-expression-overlay #[nil "\300\301\302\217\210\303\304\305\"\207" [nil (byte-code "\203\301!\210\301\207" [idlwave-shell-expression-overlay delete-overlay] 2) ((error)) remove-hook pre-command-hook idlwave-shell-delete-expression-overlay] 3]) #@788 Alist of breakpoints. A breakpoint is a cons cell ((file line) . ((index module) data)) The car is the frame for the breakpoint: file - full path file name. line - line number of breakpoint - integer. The first element of the cdr is a list of internal IDL data: index - the index number of the breakpoint internal to IDL. module - the module for breakpoint internal to IDL. Remaining elements of the cdr: data - Data associated with the breakpoint by idlwave-shell currently contains two items: count - number of times to execute breakpoint. When count reaches 0 the breakpoint is cleared and removed from the alist. command - command to execute when breakpoint is reached, either a lisp function to be called with `funcall' with no arguments or a list to be evaluated with `eval'. (defvar idlwave-shell-bp-alist nil (#$ . 62849)) #@478 Compile and run the region using the IDL process. Copies the region to a temporary file `idlwave-shell-temp-pro-file' and issues the IDL .run command for the file. Because the region is compiled and run as a main program there is no problem with begin-end blocks extending over multiple lines - which would be a problem if `idlwave-shell-evaluate-region' was used. An END statement is appended to the region if necessary. If there is a prefix argument, display IDL process. (defalias 'idlwave-shell-run-region #[(beg end &optional n) "p\212\305 \306\"q\210\307 \210\310\n #\210\212\311 \210\312\313!)\204 \314c\210\315\316!\210*\317\320 P!\210\f\2056\321\322 \323\324 #\207" [oldbuf idlwave-shell-temp-pro-file beg end n idlwave-find-file-noselect tmp erase-buffer insert-buffer-substring idlwave-previous-statement idlwave-look-at "\\" "\nend\n" save-buffer 0 idlwave-shell-send-command ".run " idlwave-display-buffer idlwave-shell-buffer nil idlwave-shell-shell-frame] 4 (#$ . 63692) "r\nP"]) #@177 Send region to the IDL process. If there is a prefix argument, display IDL process. Does not work for a region with multiline blocks - use `idlwave-shell-run-region' for this. (defalias 'idlwave-shell-evaluate-region #[(beg end &optional n) "\303 {!\210\n\205\304\305 \306\307 #\207" [beg end n idlwave-shell-send-command idlwave-display-buffer idlwave-shell-buffer nil idlwave-shell-shell-frame] 4 (#$ . 64708) "r\nP"]) #@57 Delete the temporary files and kill associated buffers. (defalias 'idlwave-shell-delete-temp-files #[nil ";\203\n\302\303\304\217\210 ;\205\302\305\306\217\207" [idlwave-shell-temp-pro-file idlwave-shell-temp-rinfo-save-file nil (byte-code "\302!\303 !\203\304 !\210\305!\210)\302\207" [idlwave-shell-temp-pro-file buf idlwave-get-buffer-visiting buffer-live-p kill-buffer delete-file] 2) ((error)) (delete-file idlwave-shell-temp-rinfo-save-file) ((error))] 3 (#$ . 65138)]) (defalias 'idlwave-display-buffer #[(buf not-this-window-p &optional frame) "\305W\204\305U\203 \306W\203\307\n \"\207\307\n \f#\207" [emacs-major-version emacs-minor-version buf not-this-window-p frame 20 3 display-buffer] 4]) #@66 Scratch buffer for parsing IDL breakpoint lists and other stuff. (defvar idlwave-shell-bp-buffer " *idlwave-shell-bp*" (#$ . 65865)) #@113 Reconcile idlwave-shell's breakpoint list with IDL's. Queries IDL using the string in `idlwave-shell-bp-query'. (defalias 'idlwave-shell-bp-query #[nil "\301\302\303#\207" [idlwave-shell-bp-query idlwave-shell-send-command idlwave-shell-filter-bp hide] 4 (#$ . 66005) nil]) #@276 Get a value for a breakpoint. BP has the form of elements in idlwave-shell-bp-alist. Optional second arg ITEM is the particular value to retrieve. ITEM can be 'file, 'line, 'index, 'module, 'count, 'cmd, or 'data. 'data returns a list of 'count and 'cmd. Defaults to 'index. (defalias 'idlwave-shell-bp-get #[(bp &optional item) "\302=\203 @A@\207\303=\203 @@\207\304=\203 AA\207\305=\203* AA@\207\306=\2036 AAA@\207\307=\203B A@A@\207 A@@\207" [item bp line file data count cmd module] 2 (#$ . 66287)]) #@164 Get the breakpoints from `idlwave-shell-command-output'. Create `idlwave-shell-bp-alist' updating breakpoint count and command data from previous breakpoint list. (defalias 'idlwave-shell-filter-bp #[nil "\212\306!q\210\307 \210 c\210eb\210\n\310\211\211\211\310C\311\312\310\313#\203U\311\314\310\313#\203U\315\316!\315\317!\320\315\321!!\322\315\323!!\n D\f D\310\211EBC\244\210\202&\nA\324\325\"\210.\326 \210\n\207" [idlwave-shell-bp-buffer idlwave-shell-command-output idlwave-shell-bp-alist module index line get-buffer-create erase-buffer nil re-search-forward "^\\s-*Index.*\n\\s-*-" t "^[ ]*\\([0-9]+\\)[ ]+\\(\\S-+\\)?[ ]+\\([0-9]+\\)[ ]+\\(\\S-+\\)" match-string 1 2 string-to-int 3 idlwave-shell-file-name 4 mapcar idlwave-shell-update-bp idlwave-shell-update-bp-overlays file old-bp-alist] 5 (#$ . 66813)]) #@108 Update BP data in breakpoint list. If BP frame is in `idlwave-shell-bp-alist' updates the breakpoint data. (defalias 'idlwave-shell-update-bp #[(bp) "\303@ \"\211\205\nAAA\241)\207" [bp idlwave-shell-bp-alist match assoc] 4 (#$ . 67667)]) #@29 Set the data of BP to DATA. (defalias 'idlwave-shell-set-bp-data #[(bp data) "A \241\207" [bp data] 2 (#$ . 67917)]) #@267 Create a breakpoint structure containing FRAME and DATA. Second and third args, DATA and MODULE, are optional. Returns a breakpoint of the format used in `idlwave-shell-bp-alist'. Can be used in commands attempting match a breakpoint in `idlwave-shell-bp-alist'. (defalias 'idlwave-shell-bp #[(frame &optional data module) "\303 D\nBB\207" [frame module data nil] 3 (#$ . 68042)]) #@59 List of breakpoints previous to setting a new breakpoint. (defvar idlwave-shell-old-bp nil (#$ . 68433)) #@174 Check `idlwave-shell-sources-alist' for source of breakpoint using BP. If an equivalency is found, return the IDL internal source name. Otherwise return the filename in bp. (defalias 'idlwave-shell-sources-bp #[(bp) "\305\306\"\305\307\"\310\n \"A\211\203! \f@\232\203!\fA@\202\" +\207" [bp bp-file bp-module idlwave-shell-sources-alist internal-file-list idlwave-shell-bp-get file module assoc] 4 (#$ . 68545)]) #@327 Try to set a breakpoint BP. The breakpoint will be placed at the beginning of the statement on the line specified by BP or at the next IDL statement if that line is not a statement. Determines IDL's internal representation for the breakpoint which may have occurred at a different line then used with the breakpoint command. (defalias 'idlwave-shell-set-bp #[(bp) "\303\304\305#\210\303 \306\307\310\311\nDDE\305#\207" [idlwave-shell-bp-query idlwave-shell-sources-query bp idlwave-shell-send-command (progn (idlwave-shell-filter-bp) (setq idlwave-shell-old-bp idlwave-shell-bp-alist)) hide progn (idlwave-shell-sources-filter) idlwave-shell-set-bp2 quote] 7 (#$ . 68973)]) #@269 Use results of breakpoint and sources query to set bp. Use the count argument with IDLs breakpoint command. We treat a count of 1 as a temporary breakpoint. Counts greater than 1 use the IDL AFTER=count keyword to break only after reaching the statement count times. (defalias 'idlwave-shell-set-bp2 #[(bp) "\304\305\"\211\203 \247\204\306\202& \307U\203\310\202& \307V\205&\311\312 \"\304\303\"\313\314\315!\316 \250\205<\317 !\211\n\260\320\321\322\323DD\324\323DDED\325\326$+\207" [bp arg key line idlwave-shell-bp-get count "" 1 ",/once" format ",after=%d" idlwave-shell-send-command "breakpoint,'" idlwave-shell-sources-bp "'," int-to-string progn if idlwave-shell-set-bp-check quote idlwave-shell-set-bp3 nil preempt] 9 (#$ . 69656)]) #@60 Find the breakpoint in IDL's internal list of breakpoints. (defalias 'idlwave-shell-set-bp3 #[(bp) "\302\303\304\305\306 DDE\307\310$\207" [idlwave-shell-bp-query bp idlwave-shell-send-command progn (idlwave-shell-filter-bp) idlwave-shell-new-bp quote hide preempt] 7 (#$ . 70424)]) #@92 Return breakpoint from `idlwave-shell-bp-alist' for frame. Returns nil if frame not found. (defalias 'idlwave-shell-find-bp #[(frame) "\302 \"\207" [frame idlwave-shell-bp-alist assoc] 3 (#$ . 70714)]) #@311 Find the new breakpoint in IDL's list and update with DATA. The actual line number for a breakpoint in IDL may be different than the line number used with the IDL breakpoint command. Looks for a new breakpoint index number in the list. This is considered the new breakpoint if the file name of frame matches. (defalias 'idlwave-shell-new-bp #[(bp) "\305\306\" \306\n@! \235\203\nA\211\204\n\204(\307\f@ \"\211\203(\nC\n\203E\306\n@\211\310\"\306\f\310\"\232\203E\311\n\306\f\312\"\"\202K\313 \210\314\315!*\207" [idlwave-shell-old-bp idlwave-shell-bp-alist bpl obp-index bp mapcar idlwave-shell-bp-get assoc file idlwave-shell-set-bp-data data beep message "Failed to identify breakpoint in IDL"] 5 (#$ . 70924)]) #@38 List of overlays marking breakpoints (defvar idlwave-shell-bp-overlays nil (#$ . 71661)) #@130 Update the overlays which mark breakpoints in the source code. Existing overlays are recycled, in order to minimize consumption. (defalias 'idlwave-shell-update-bp-overlays #[nil "\205] \n\306\211 \211A@\211\203\307\f!\210\202 \n\306 \211A @\211\205\\\212\310 @!\210\311\210`\312\311!\210` \211A@\206K\313 \314\f#\210\f\nB,\202\",\207" [idlwave-shell-mark-breakpoints idlwave-shell-bp-alist idlwave-shell-bp-overlays bp ov ov-list nil delete-overlay idlwave-shell-goto-frame 1 beginning-of-line idlwave-shell-make-new-bp-overlay move-overlay bp-list end beg] 4 (#$ . 71757)]) (byte-code "\301B\301\207" [current-load-list idlwave-shell-bp-glyph] 2) #@110 Make a new overlay for highlighting breakpoints. This stuff is stringly dependant upon the version of Emacs. (defalias 'idlwave-shell-make-new-bp-overlay #[nil "\306\307\211\"\310\311!\203@\312 \313=\203\314\315 #\210\2028\n\316>\203. \203.\314\317 #\210\2028\n\2038\314\315 #\210\320\321\"\210\202u\f\203k\n\322>\203b \203b\323\324\325\307\326 %\210\327\330 #\210)\202u\327\315 #\210\202u\n\203u\327\315 #\210)\207" [ov idlwave-shell-breakpoint-face idlwave-shell-mark-breakpoints idlwave-shell-bp-glyph window-system string make-overlay 1 featurep xemacs console-type tty set-extent-property face (t glyph) begin-glyph set-extent-priority -1 (t glyph) "@" put-text-property 0 display overlay-put before-string] 6 (#$ . 72447)]) #@35 Edit the current execute command. (defalias 'idlwave-shell-edit-default-command-line #[(arg) "\301\302\"\211\207" [idlwave-shell-command-line-to-execute read-string "IDL> "] 3 (#$ . 73209) "P"]) #@195 Execute a command line. On first use, ask for the command. Also with prefix arg, ask for the command. You can also uase the command `idlwave-shell-edit-default-command-line' to edit the line. (defalias 'idlwave-shell-execute-default-command-line #[(arg) "\203 \203 \302\303\"\304\305!\210\306\307\"\207" [idlwave-shell-command-line-to-execute arg read-string "IDL> " idlwave-shell-reset hidden idlwave-shell-send-command (idlwave-shell-redisplay 'hide)] 3 (#$ . 73413) "P"]) #@218 Save file and run it in IDL. Runs `save-buffer' and sends a '.RUN' command for the associated file to IDL. When called from the shell buffer, re-run the file which was last handled by one of the save-and-.. commands. (defalias 'idlwave-shell-save-and-run #[nil "\300\301!\207" [idlwave-shell-save-and-action run] 2 (#$ . 73904) nil]) #@224 Save file and run it in IDL. Runs `save-buffer' and sends '.COMPILE' command for the associated file to IDL. When called from the shell buffer, re-compile the file which was last handled by one of the save-and-.. commands. (defalias 'idlwave-shell-save-and-compile #[nil "\300\301!\207" [idlwave-shell-save-and-action compile] 2 (#$ . 74245) nil]) #@223 Save file and batch it in IDL. Runs `save-buffer' and sends a '@file' command for the associated file to IDL. When called from the shell buffer, re-batch the file which was last handled by one of the save-and-.. commands. (defalias 'idlwave-shell-save-and-batch #[nil "\300\301!\207" [idlwave-shell-save-and-action batch] 2 (#$ . 74600) nil]) #@207 Save file and compile it in IDL. Runs `save-buffer' and sends a '.RUN' command for the associated file to IDL. When called from the shell buffer, re-compile the file which was last handled by this command. (defalias 'idlwave-shell-save-and-action #[(action) "\203\306!\210\307\307\307\f\310=\203\311 \210\312 \2028 \2034\313 !\211\2038\212 q\210\311 \210)\2028\314\315!)\316 !\203o\317\320=\203K\321\202f\322=\203V\323\202f\324=\203a\325\202f\326\327\" P\330\307#\210\331 \207\332\333 \"\307\326!)\207" [idlwave-shell-stop-line-overlay idlwave-shell-is-stopped overlay-arrow-string buf major-mode idlwave-shell-last-save-and-action-file delete-overlay nil idlwave-mode save-buffer buffer-file-name idlwave-get-buffer-visiting read-file-name "File: " file-regular-p idlwave-shell-send-command run ".run " compile ".compile " batch "@" error "Unknown action %s" idlwave-shell-maybe-update-routine-info idlwave-shell-bp-query format "No such file %s" action msg] 4 (#$ . 74950)]) #@66 Update the routine info if the shell is not stopped at an error. (defalias 'idlwave-shell-maybe-update-routine-info #[nil "?\205 \304=\204\305 >\205\n\205 \205\306\304!\207" [idlwave-shell-is-stopped idlwave-auto-routine-info-updates idlwave-query-shell-for-routine-info idlwave-routines t compile-buffer idlwave-shell-update-routine-info] 2 (#$ . 75969)]) #@61 IDL command to obtain source files for compiled procedures. (defvar idlwave-shell-sources-query "help,/source" (#$ . 76343)) #@163 Alist of IDL procedure names and compiled source files. Elements of the alist have the form: (module name . (source-file-truename idlwave-internal-filename)). (defvar idlwave-shell-sources-alist nil (#$ . 76475)) #@116 Determine source files for IDL compiled procedures. Queries IDL using the string in `idlwave-shell-sources-query'. (defalias 'idlwave-shell-sources-query #[nil "\301\302\303#\207" [idlwave-shell-sources-query idlwave-shell-send-command idlwave-shell-sources-filter hide] 4 (#$ . 76698) nil]) #@207 Get source files from `idlwave-shell-sources-query' output. Create `idlwave-shell-sources-alist' consisting of list elements of the form: (module name . (source-file-truename idlwave-internal-filename)). (defalias 'idlwave-shell-sources-filter #[nil "\212\305!q\210\306 \210 c\210eb\210\307\211\310\311\307\312#\203 \307y\210`\310\313\307\312#\205A`\314\315 \210 `}\210eb\210\316 ~\210\nb\210\316 \"\211+\207" [idlwave-shell-bp-buffer idlwave-shell-command-output cfun cpro idlwave-shell-sources-alist get-buffer-create erase-buffer nil re-search-forward "Compiled Procedures:" t "Compiled Functions:" append beginning-of-line idlwave-shell-sources-grep] 4 (#$ . 76998)]) (defalias 'idlwave-shell-sources-grep #[nil "\212\302C\302y\210m\204,\303\304\302\305#\203,\306\224\306\225{\307\224\307\225{\310 ! )DBC\244\210\202A*\207" [al internal-filename nil re-search-forward "\\s-*\\(\\S-+\\)\\s-+\\(\\S-+\\)" t 1 2 idlwave-shell-file-name] 4]) #@32 Remove all breakpoints in IDL. (defalias 'idlwave-shell-clear-all-bp #[nil "\301\302\303#\207" [idlwave-shell-bp-query idlwave-shell-send-command (progn (idlwave-shell-filter-bp) (mapcar 'idlwave-shell-clear-bp idlwave-shell-bp-alist)) hide] 4 (#$ . 77964) nil]) #@30 List all breakpoints in IDL. (defalias 'idlwave-shell-list-all-bp #[nil "\301!\207" [idlwave-shell-bp-query idlwave-shell-send-command] 2 (#$ . 78234) nil]) #@64 Position of last syntax error in `idlwave-shell-error-buffer'. (defvar idlwave-shell-error-last 0 (#$ . 78398)) #@38 Move point to next IDL syntax error. (defalias 'idlwave-shell-goto-next-error #[nil "\306\211\212\nq\210 b\210\307\f\306\310#\204\307 \306\310#\203B\311 \312\216\313\314\224\314\225{!*\315\316\224\316\225{!D\212\317\320\306\310#\203?i\202@\321)`) \203P\322 \"\202V\323 \210\324\325!*\207" [col frame idlwave-shell-error-buffer idlwave-shell-error-last idlwave-shell-syntax-error idlwave-shell-other-error nil re-search-forward t match-data ((set-match-data save-match-data-internal)) idlwave-shell-file-name 1 string-to-int 2 re-search-backward "\\^" 0 idlwave-shell-display-line beep message "No more errors." save-match-data-internal] 4 (#$ . 78516) nil]) #@115 If `idlwave-shell-use-truename' is non-nil, convert file name to true name. Otherwise, just expand the file name. (defalias 'idlwave-shell-file-name #[(name) "\306=\203\n \202 \n\f\203\307 \"\202\310 \")\207" [major-mode default-directory idlwave-shell-default-directory def-dir idlwave-shell-use-truename name idlwave-shell-mode file-truename expand-file-name] 3 (#$ . 79196)]) #@26 Keymap for idlwave-mode. (defvar idlwave-shell-mode-map (copy-keymap comint-mode-map) (#$ . 79591)) (byte-code "\301B\306\301!\204 \307 \301 M\210\310\n\311\312#\210\310\n\313\312#\210\310\n\314\315#\210\310\n\316\317#\210\310\n\320\321#\210\310\n\322\323#\210\310\n\324\325#\210\310\n\326\327#\210\310\n\330\331#\210\310\n\332\333#\210\310\n\334\335#\210\310\n \336#\210\310\n\337\340#\210\310\n\341\342#\210\310\f\324\325#\210\310\f\326\327#\210\310\f\343\344!\203}\345\202~\346\347#\210\310\f\343\344!\203\215\350\202\216\351\352#\210\310\n\343\344!\203\235\353\202\236\354\347#\210\310\n\343\344!\203\255\355\202\256\356\352#\210\310\n\343\344!\203\275\357\202\276\360\361#\210\362@\203\332@<\203\332@\363\232\204\332@\202\340A\205\340\364B\365B>5\366\365\367B!\"C\363D\363E\363F\363G\363H \211A@\211D\203vD@EDA@F\370D8HI\203.E\203.\310 EH#\210B\203J\203\371F!\203X\372\373C5\203NF\226\202PFC\"!G\202c\372\373BFC\"!G\310\fGH#\210\310\nGH#\210\202. \374 M\210\336 M\210\375B\306\375!\204\215\376=\377=\343\201M!\204\245\201N\201O\201P\"\203 \201KB\201Q\201K\201R\201S#\210\306\201K!\204\304\363K\201T\201K\n\201S=$\210\201LB\201Q\201L\201R\201U#\210\306\201L!\204\361\363L\201T\201L\f\201U=$\210\212\201V\201W\201X \"\210)\363\207" [current-load-list idlwave-shell-mode-prefix-map idlwave-shell-mode-map idlwave-shell-prefix-key idlwave-mode-map specs boundp make-sparse-keymap define-key " " idlwave-shell-complete "\211" "" idlwave-shell "?" idlwave-routine-info "\277" idlwave-context-help " " idlwave-update-routine-info "" idlwave-shell-char-mode-loop "" idlwave-shell-send-char "=" idlwave-resolve "" idlwave-find-module " " idlwave-kill-autoloaded-buffers idlwave-shell-debug-map [(up)] idlwave-shell-up-or-history [(down)] idlwave-shell-down-or-history featurep xemacs [(shift button2)] [(shift mouse-2)] idlwave-shell-mouse-print [(shift control button2)] [(shift control mouse-2)] idlwave-shell-mouse-help [(shift button2)] [(shift mouse-2)] [(shift control button2)] [(shift control mouse-2)] [(shift button3)] [(shift mouse-3)] idlwave-mouse-context-help (([(control 98)] 98 idlwave-shell-break-here) ([(control 105)] 105 idlwave-shell-break-in) ([(control 100)] 100 idlwave-shell-clear-current-bp) ([(control 97)] 97 idlwave-shell-clear-all-bp) ([(control 115)] 115 idlwave-shell-step) ([(control 110)] 110 idlwave-shell-stepover) ([(control 107)] 107 idlwave-shell-skip) ([(control 117)] 117 idlwave-shell-up) ([(control 111)] 111 idlwave-shell-out) ([(control 109)] 109 idlwave-shell-return) ([(control 104)] 104 idlwave-shell-to-here) ([(control 114)] 114 idlwave-shell-cont) ([(control 121)] 121 idlwave-shell-execute-default-command-line) ([(control 122)] 122 idlwave-shell-reset) ([(control 113)] 113 idlwave-shell-quit) ([(control 112)] 112 idlwave-shell-print) ([(63)] 63 idlwave-shell-help-expression) ([(control 99)] 99 idlwave-shell-save-and-run) ([(64)] 64 idlwave-shell-save-and-batch) ([(control 120)] 120 idlwave-shell-goto-next-error) ([(control 101)] 101 idlwave-shell-run-region) ([(control 119)] 119 idlwave-shell-resync-dirs) ([(control 108)] 108 idlwave-shell-redisplay) ([(control 116)] 116 idlwave-shell-toggle-toolbar) ([(control up)] up idlwave-shell-stack-up) ([(control down)] down idlwave-shell-stack-down) ([(control 102)] 102 idlwave-shell-window)) nil (alt) shift delete copy-sequence 2 char-or-string-p vector append idlwave-debug-map idlwave-shell-menu-def ("Debug" ["Save and .RUN" idlwave-shell-save-and-run (or (eq major-mode 'idlwave-mode) idlwave-shell-last-save-and-action-file)] ["Save and .COMPILE" idlwave-shell-save-and-compile (or (eq major-mode 'idlwave-mode) idlwave-shell-last-save-and-action-file)] ["Save and @Batch" idlwave-shell-save-and-batch (or (eq major-mode 'idlwave-mode) idlwave-shell-last-save-and-action-file)] ["Goto Next Error" idlwave-shell-goto-next-error t] "--" ["Execute Default Cmd" idlwave-shell-execute-default-command-line t] ["Edit Default Cmd" idlwave-shell-edit-default-command-line t] "--" ["Set Breakpoint" idlwave-shell-break-here (eq major-mode 'idlwave-mode)] ["Break in Module" idlwave-shell-break-in t] ["Clear Breakpoint" idlwave-shell-clear-current-bp t] ["Clear All Breakpoints" idlwave-shell-clear-all-bp t] ["List All Breakpoints" idlwave-shell-list-all-bp t] "--" ["Step (into)" idlwave-shell-step t] ["Step (over)" idlwave-shell-stepover t] ["Skip One Statement" idlwave-shell-skip t] ["Continue" idlwave-shell-cont t] ("Continue to" ["End of Block" idlwave-shell-up t] ["End of Subprog" idlwave-shell-return t] ["End of Subprog+1" idlwave-shell-out t] ["Here (Cursor Line)" idlwave-shell-to-here (eq major-mode 'idlwave-mode)]) "--" ["Print expression" idlwave-shell-print t] ["Help on expression" idlwave-shell-help-expression t] ["Evaluate Region" idlwave-shell-evaluate-region (eq major-mode 'idlwave-mode)] ["Run Region" idlwave-shell-run-region (eq major-mode 'idlwave-mode)] "--" ["Redisplay" idlwave-shell-redisplay t] ["Stack Up" idlwave-shell-stack-up t] ["Stack Down" idlwave-shell-stack-down t] "--" ["Update Working Dir" idlwave-shell-resync-dirs t] ["Reset IDL" idlwave-shell-reset t] "--" ["Toggle Toolbar" idlwave-shell-toggle-toolbar t] ["Exit IDL" idlwave-shell-quit t]) ("Debug" ("Compile & Run" ["Save and .RUN" idlwave-shell-save-and-run (or (eq major-mode 'idlwave-mode) idlwave-shell-last-save-and-action-file)] ["Save and .COMPILE" idlwave-shell-save-and-compile (or (eq major-mode 'idlwave-mode) idlwave-shell-last-save-and-action-file)] ["Save and @Batch" idlwave-shell-save-and-batch (or (eq major-mode 'idlwave-mode) idlwave-shell-last-save-and-action-file)] ["Goto Next Error" idlwave-shell-goto-next-error t] "--" ["Run Region" idlwave-shell-run-region (eq major-mode 'idlwave-mode)] "--" ["Execute Default Cmd" idlwave-shell-execute-default-command-line t] ["Edit Default Cmd" idlwave-shell-edit-default-command-line t]) ("Breakpoints" ["Set Breakpoint" idlwave-shell-break-here (eq major-mode 'idlwave-mode)] ["Break in Module" idlwave-shell-break-in t] ["Clear Breakpoint" idlwave-shell-clear-current-bp t] ["Clear All Breakpoints" idlwave-shell-clear-all-bp t] ["List All Breakpoints" idlwave-shell-list-all-bp t]) ("Continue/Step" ["Step (into)" idlwave-shell-step t] ["Step (over)" idlwave-shell-stepover t] ["Skip One Statement" idlwave-shell-skip t] ["Continue" idlwave-shell-cont t] ["... to End of Block" idlwave-shell-up t] ["... to End of Subprog" idlwave-shell-return t] ["... to End of Subprog+1" idlwave-shell-out t] ["... to Here (Cursor Line)" idlwave-shell-to-here (eq major-mode 'idlwave-mode)]) ("Print Expression" ["Print expression" idlwave-shell-print t] ["Help on expression" idlwave-shell-help-expression t] ["Evaluate Region" idlwave-shell-evaluate-region (eq major-mode 'idlwave-mode)] "--" ["Redisplay" idlwave-shell-redisplay t] ["Stack Up" idlwave-shell-stack-up t] ["Stack Down" idlwave-shell-stack-down t]) ("Input Mode" ["Send one char" idlwave-shell-send-char t] ["Temporary Character Mode" idlwave-shell-char-mode-loop t] "--" ["Use Input Mode Magic" (setq idlwave-shell-use-input-mode-magic (not idlwave-shell-use-input-mode-magic)) :style toggle :selected idlwave-shell-use-input-mode-magic]) "--" ["Update Working Dir" idlwave-shell-resync-dirs t] ["Reset IDL" idlwave-shell-reset t] "--" ["Toggle Toolbar" idlwave-shell-toggle-toolbar t] ["Exit IDL" idlwave-shell-quit t]) idlwave-shell-debug-modifiers idlwave-shell-activate-alt-keybindings mod mod-noshift s k1 c2 k2 cmd idlwave-shell-activate-prefix-keybindings window-system idlwave-shell-mode-menu idlwave-mode-debug-menu easymenu load "easymenu" t put variable-documentation "IDL shell menus" easy-menu-do-define "IDL debugging menus" mapcar #[(buf) "q\210 \303=\205\304\n!\210\305\n!\207" [buf major-mode idlwave-mode-debug-menu idlwave-mode easy-menu-remove easy-menu-add] 2] buffer-list] 5) #@56 The glyph to mark breakpoint lines in the source code. (defvar idlwave-shell-bp-glyph nil (#$ . 87554)) (byte-code "\302\303\304!\203\303\305!\203\306!\2021\303\304!\2040\307\310!\2030\310\305!\2030\311\312\305\313\257\2021\314)\315\316!\210\315\317!\207" [image-string idlwave-shell-bp-glyph "/* XPM */\nstatic char * file[] = {\n\"14 12 3 1\",\n\" c #FFFFFFFFFFFF s backgroundColor\",\n\". c #4B4B4B4B4B4B\",\n\"R c #FFFF00000000\",\n\" \",\n\" \",\n\" RRRR \",\n\" RRRRRR \",\n\" RRRRRRRR \",\n\" RRRRRRRR \",\n\" RRRRRRRR \",\n\" RRRRRRRR \",\n\" RRRRRR \",\n\" RRRR \",\n\" \",\n\" \"};" featurep xemacs xpm make-glyph fboundp image-type-available-p image :type :data nil provide idlw-shell idlwave-shell] 5) #@28 Toggle the IDLWAVE toolbar (autoload 'idlwave-toolbar-toggle "idlw-toolbar" '(#$ . 88385)) #@21 Add IDLWAVE toolbar (autoload 'idlwave-toolbar-add-everywhere "idlw-toolbar" '(#$ . 88482)) #@46 Toggle the display of the debugging toolbar. (defalias 'idlwave-shell-toggle-toolbar #[nil "\300 \207" [idlwave-toolbar-toggle] 1 (#$ . 88580) nil]) (byte-code "\203 \301\302\303\"\210\301\207" [idlwave-shell-use-toolbar add-hook idlwave-shell-mode-hook idlwave-toolbar-add-everywhere] 3)