;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:25:05 2007 ;;; from file /home/cyd/emacs/lisp/progmodes/idlw-shell.el ;;; in Emacs version 22.0.99 ;;; 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\301\307\"\210\307\310\311\217\210\312\313!\2033\314\315!\2033\314\316!\2033\317\202;\320\321M\210\322\323M\210\324\325\307\326\327\330\331\304&\207" [current-load-list idlwave-shell-have-new-custom require comint idlwave default-boundp set-default 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) #@359 *Regexp to match IDL prompt at beginning of a line. For example, "^ ?IDL> " or "^ ?WAVE> ". The "^ ?" is needed, to indicate the beginning of the line, with optional return character (which IDL seems to output randomly). This variable is used to initialize `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> " '(#$ . -1305) :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" '(#$ . -1804) :group 'idlwave-shell-general-setup :type 'string) #@68 *Non-nil means, never replace the shell frame with another buffer. (custom-declare-variable 'idlwave-shell-use-dedicated-window 'nil '(#$ . -2059) :group 'idlwave-shell-general-setup :type 'boolean) #@77 *Non-nil means, IDLWAVE should use a special frame to display shell buffer. (custom-declare-variable 'idlwave-shell-use-dedicated-frame 'nil '(#$ . -2264) :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)) '(#$ . 2478) :group 'idlwave-shell-general-setup :type '(repeat (cons symbol sexp))) #@76 *Non-nil means, `idlwave-shell' raises the frame showing the shell window. (custom-declare-variable 'idlwave-shell-raise-frame 't '(#$ . -2839) :group 'idlwave-shell-general-setup :type 'boolean) #@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 '(#$ . -3042) :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 '(#$ . -3661) :group 'idlwave-shell-general-setup :type 'boolean) #@232 *The prefix for temporary IDL files used when compiling regions. It should be an absolute pathname. The full temporary file name is obtained by using `make-temp-file' so that the name will be unique among multiple Emacs processes. (custom-declare-variable 'idlwave-shell-temp-pro-prefix '"/tmp/idltemp" '(#$ . -4131) :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 (#$ . -4506)) #@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 '"" '(#$ . -4736) :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 '(#$ . 5044) :group 'idlwave-shell-general-setup :type 'boolean) #@243 Enter the electric-debug minor mode automatically. This occurs at a breakpoint or any other halt. The mode is exited upon return to the main level. Can be set to 'breakpoint to enter electric debug mode only when breakpoints are tripped. (custom-declare-variable 'idlwave-shell-automatic-electric-debug ''breakpoint '(#$ . 5386) :group 'idlwave-shell-general-setup :type '(choice (const :tag "never" nil) (const :tag "always" t) (const :tag "for breakpoints only" breakpoint))) #@180 When entering electric debug mode, select the window displaying the file at which point is stopped. This takes point away from the shell window, but is useful for stepping, etc. (custom-declare-variable 'idlwave-shell-electric-zap-to-file 't '(#$ . 5875) :group 'idlwave-shell-general-setup :type 'boolean) #@58 Obsolete variable. See `idlwave-shell-debug-modifiers'. (defvar idlwave-shell-activate-alt-keybindings nil (#$ . 6189)) #@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 '(#$ . -6317) :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+:_.$#%={}\\- " '(#$ . 7004) :group 'idlwave-shell-general-setup :type 'string) #@45 *Hook for customising `idlwave-shell-mode'. (custom-declare-variable 'idlwave-shell-mode-hook ''nil '(#$ . -7320) :group 'idlwave-shell-general-setup :type 'hook) #@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) '(#$ . 7490) :group 'idlwave-shell-general-setup :type '(list (integer :tag "x size") (integer :tag "y size"))) (custom-declare-group 'idlwave-shell-command-setup nil "Setup for command parameters of the Shell interaction for IDLWAVE." :prefix "idlwave-shell" :group 'idlwave) #@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 & defsysv,'!ERROR_STATE',EXISTS=__e & if __e then begin & !ERROR_STATE.MSG_PREFIX=\"% \" & delvar,__e & endif" '(#$ . 8042) :group 'idlwave-shell-command-setup :type 'string) #@145 Non-nil means preserve command history between sessions. The file `idlwave-shell-command-history-file' is used to save and restore the history. (custom-declare-variable 'idlwave-shell-save-command-history 't '(#$ . 8448) :group 'idlwave-shell-command-setup :type 'boolean) #@248 The file in which the command history of the idlwave shell is saved. In order to change the size of the history, see the variable `comint-input-ring-size'. The history is only saved if the variable `idlwave-shell-save-command-history' is non-nil. (custom-declare-variable 'idlwave-shell-command-history-file '"idlwhist" '(#$ . 8728) :group 'idlwave-shell-command-setup :type 'file) #@242 *A list of command types to show output from in the shell. Possibilities are 'run, 'debug, 'breakpoint, and 'misc. Unselected types are not displayed in the shell. The type 'everything causes all the copious shell traffic to be displayed. (custom-declare-variable 'idlwave-shell-show-commands ''(run misc breakpoint) '(#$ . -9117) :group 'idlwave-shell-command-setup :type '(choice (const everything) (set :tag "Checklist" :greedy t (const :tag "All .run and .compile commands" run) (const :tag "All breakpoint commands" breakpoint) (const :tag "All debug and stepping commands" debug) (const :tag "Close, window, retall, etc. commands" misc)))) #@59 Maximum number of array elements to print when examining. (custom-declare-variable 'idlwave-shell-max-print-length '200 '(#$ . 9771) :group 'idlwave-shell-command-setup :type 'integer) #@276 Alist of special examine commands for popup selection. The keys are used in the selection popup created by `idlwave-shell-examine-select', and the corresponding value is sent as a command to the shell, with special sequence `___' replaced by the expression being examined. (custom-declare-variable 'idlwave-shell-examine-alist '`(("Print" \, (concat "idlwave_print_safe,___," (number-to-string idlwave-shell-max-print-length))) ("Help" . "help,___") ("Structure Help" . "help,___,/STRUCTURE") ("Dimensions" . "print,size(___,/DIMENSIONS)") ("Type" . "print,size(___,/TNAME)") ("N_Elements" . "print,n_elements(___)") ("All Size Info" . "help,(__IWsz__=size(___,/STRUCTURE)),/STRUCTURE & print,__IWsz__.DIMENSIONS") ("Ptr Valid" . "print,ptr_valid(___)") ("Arg Present" . "print,arg_present(___)") ("Widget Valid" . "print,widget_info(___,/VALID)") ("Widget Geometry" . "help,widget_info(___,/GEOMETRY)")) '(#$ . 9963) :group 'idlwave-shell-command-setup :type '(repeat (cons (string :tag "Label ") (string :tag "Command")))) #@40 *OBSOLETE VARIABLE, is no longer used. (defvar idlwave-shell-print-expression-function nil (#$ . -10997)) #@68 *Non-nil mean, put output of examine commands in their own buffer. (custom-declare-variable 'idlwave-shell-separate-examine-output 't '(#$ . -11109) :group 'idlwave-shell-command-setup :type 'boolean) #@305 Alist of special settings for the comint variables in the IDLWAVE Shell. Each entry is a cons cell with the name of a variable and a value. The function `idlwave-shell-mode' will make local variables out of each entry. Changes to this variable will only be active when the shell buffer is newly created. (custom-declare-variable 'idlwave-shell-comint-settings ''((comint-scroll-to-bottom-on-input . t) (comint-scroll-to-bottom-on-output . t) (comint-scroll-show-maximum-output) (comint-prompt-read-only . t)) '(#$ . 11317) :group 'idlwave-shell-command-setup :type '(repeat (cons variable sexp))) #@72 *Non-nil means query the shell for object class on object completions. (custom-declare-variable 'idlwave-shell-query-for-class 't '(#$ . -11920) :group 'idlwave-shell-command-setup :type 'boolean) #@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 '(#$ . -12124) :group 'idlwave-shell-command-setup :type 'boolean) #@2075 The three regular expressions which match the magic spells for input modes. When the first regexp matches in the output stream 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 characters 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 ''("^$" "^$" "^$") '(#$ . 12610) :group 'idlwave-shell-command-setup :type '(list (regexp :tag "One-char regexp") (regexp :tag "Char-mode regexp") (regexp :tag "Line-mode regexp"))) #@94 *If non-nil, provide a menu on mouse-3 on breakpoint lines, and popup help text on the line. (custom-declare-variable 'idlwave-shell-breakpoint-popup-menu 't '(#$ . -14955) :group 'idlwave-shell-command-setup :type 'boolean) #@68 If non-nil, skip the yes/no prompt when resetting the IDL session. (custom-declare-variable 'idlwave-shell-reset-no-prompt 'nil '(#$ . 15186) :group 'idlwave-shell-command-setup :type 'boolean) (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. Valid 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. In 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 '(#$ . -15549) :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 '">" '(#$ . -16565) :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 '(#$ . -17046) :group 'idlwave-shell-highlighting-and-faces :type 'symbol) #@64 *The color for the default face or overlay arrow when stopped. (custom-declare-variable 'idlwave-shell-electric-stop-color '"Violet" '(#$ . -17374) :group 'idlwave-shell-highlighting-and-faces :type 'string) #@200 *The face for `idlwave-shell-stop-line-overlay' when in electric debug mode. Allows you to choose the font, color and other properties for the line where IDL is stopped, when in Electric Debug Mode. (custom-declare-variable 'idlwave-shell-electric-stop-line-face '(prog1 (copy-face 'modeline 'idlwave-shell-electric-stop-line) (set-face-background 'idlwave-shell-electric-stop-line idlwave-shell-electric-stop-color) (condition-case nil (set-face-foreground 'idlwave-shell-electric-stop-line nil) (error nil))) '(#$ . -17589) :group 'idlwave-shell-highlighting-and-faces :type 'symbol) #@366 *Non-nil means, mark breakpoints in the source files. Valid 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 '(#$ . -18182) :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 (#$ . 18837)) #@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 '(#$ . -18960) :group 'idlwave-shell-highlighting-and-faces :type 'symbol) (byte-code "\204\f\301\302\303\"\210\202\304\303\305\306\307\310%\210\301\207" [idlwave-shell-have-new-custom copy-face underline idlwave-shell-bp custom-declare-face ((((class color)) (:foreground "Black" :background "Pink")) (t (:underline t))) "Face for highlighting lines with breakpoints." :group idlwave-shell-highlighting-and-faces] 6) #@198 *The face for disabled 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-disabled-breakpoint-face ''idlwave-shell-disabled-bp '(#$ . -19652) :group 'idlwave-shell-highlighting-and-faces :type 'symbol) (byte-code "\204\f\301\302\303\"\210\202\304\303\305\306\307\310%\210\301\207" [idlwave-shell-have-new-custom copy-face underline idlwave-shell-disabled-bp custom-declare-face ((((class color)) (:foreground "Black" :background "gray")) (t (:underline t))) "Face for highlighting lines with breakpoints." :group idlwave-shell-highlighting-and-faces] 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 '(#$ . -20380) :group 'idlwave-shell-highlighting-and-faces :type 'symbol) #@139 *The face for `idlwave-shell-output-overlay'. Allows you to choose the font, color and other properties for the expression output by IDL. (custom-declare-variable 'idlwave-shell-output-face ''secondary-selection '(#$ . -20683) :group 'idlwave-shell-highlighting-and-faces :type 'symbol) #@64 Absolute pathname for temporary IDL file for compiling regions (defvar idlwave-shell-temp-pro-file nil (#$ . 20976)) #@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 nil (#$ . 21100)) #@178 Return a temp file, creating it if necessary. TYPE is either 'pro' or 'rinfo', and `idlwave-shell-temp-pro-file' or `idlwave-shell-temp-rinfo-save-file' is set (respectively). (defalias 'idlwave-shell-temp-file #[(type) "\304=\203 \206&\305\n!\211\207\306=\203 \206&\305\n!\211\207\307\310\311!\"\207" [type idlwave-shell-temp-rinfo-save-file idlwave-shell-temp-pro-prefix idlwave-shell-temp-pro-file rinfo idlwave-shell-make-temp-file pro error "Wrong argument (idlwave-shell-temp-file): %s" symbol-name] 4 (#$ . 21331)]) #@26 Create a temporary file. (defalias 'idlwave-shell-make-temp-file #[(prefix) "\304\305!\203\n\305!\207\306\307\301!\203 \202\310\306\311\312\217\204 *\207" [prefix temporary-file-directory temp-file-dir file fboundp make-temp-file nil boundp "/tmp" (byte-code "\303\304 \"!\305\306\307\n\307\310\307\311&\210\307\207" [prefix temp-file-dir file make-temp-name expand-file-name write-region "" nil silent excl] 8) ((file-already-exists t))] 3 (#$ . 21872)]) #@84 Command used by `idlwave-shell-resync-dirs' to query IDL for the directory stack. (defvar idlwave-shell-dirstack-query "cd,current=___cur & print,___cur" (#$ . 22347)) #@60 The command which gets !PATH and !DIR info from the shell. (defvar idlwave-shell-path-query "print,'PATH:<'+transpose(expand_path(!PATH,/ARRAY))+'>' & print,'SYSDIR:<'+!dir+'>'" (#$ . 22522)) #@44 Additional info displayed in the mode line (defvar idlwave-shell-mode-line-info nil (#$ . 22720)) #@68 The default directory in the idlwave-shell buffer, of outside use. (defvar idlwave-shell-default-directory nil (#$ . 22824)) #@69 The last file which was compiled with `idlwave-shell-save-and-...'. (defvar idlwave-shell-last-save-and-action-file nil (#$ . 22955)) (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 (#$ . 23240)) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list idlwave-shell-is-stopped default-boundp set-default nil] 3) #@42 The overlay for the examined expression. (defvar idlwave-shell-expression-overlay nil (#$ . 23493)) #@38 The overlay for the last IDL output. (defvar idlwave-shell-output-overlay nil (#$ . 23599)) (byte-code "\306!\203\n\307!\210\306 !\203\307 !\210\306\n!\203\307\n!\210\310\211\310 \203[ \311=\204[ \312=\203L\313\314!\204>\f\203[\315\316\211\"\317\312 #\210\202[\f\203[\315\316\211\"\317\312 #\210\315\316\211\"\317 \312#\210\317 \320\316#\210\315\316\211\"\317\n\312#\210\321 \322\"\210\321\323\"\210\324\322\325\"\210\324\323\325\"\207" [idlwave-shell-stop-line-overlay idlwave-shell-expression-overlay idlwave-shell-output-overlay idlwave-shell-mark-stop-line window-system idlwave-shell-stop-line-face overlayp delete-overlay nil arrow face fboundp tty-defined-colors make-overlay 1 overlay-put priority copy-face idlwave-shell-pending-stop idlwave-shell-pending-electric-stop set-face-background "gray70" idlwave-shell-expression-face idlwave-shell-output-face idlwave-shell-electric-stop-line-face] 5) #@39 Command to obtain list of breakpoints (defvar idlwave-shell-bp-query "help,/breakpoints" (#$ . 24540)) #@49 String for accumulating current command output. (defvar idlwave-shell-command-output nil (#$ . 24649)) #@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 (#$ . 24759)) #@38 Hook run when the idl process exits. (defvar idlwave-shell-sentinel-hook nil (#$ . 25020)) #@71 If non-nil the process output is not inserted into the output buffer. (defvar idlwave-shell-hide-output nil (#$ . 25117)) #@131 If non-nil the process output is inserted into the output buffer if it contains an error message, even if hide-output is non-nil. (defvar idlwave-shell-show-if-error nil (#$ . 25246)) #@33 Accumulate last line of output. (defvar idlwave-shell-accumulation nil (#$ . 25436)) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list idlwave-shell-command-line-to-execute default-boundp set-default nil] 3) #@55 List of functions to do cleanup when the shell exits. (defvar idlwave-shell-cleanup-hook nil (#$ . 25681)) #@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 (#$ . 25795)) #@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 (#$ . 26148)]) #@50 If non-nil can send next command to IDL process. (defvar idlwave-shell-ready nil (#$ . 26388)) #@53 The frame associated with halt/breakpoint messages. (defvar idlwave-shell-halt-frame nil (#$ . 26489)) #@42 The frame associated with step messages. (defvar idlwave-shell-step-frame nil (#$ . 26598)) #@43 The frame associated with trace messages. (defvar idlwave-shell-trace-frame nil (#$ . 26696)) #@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 '("^% Interrupted at:" "^% Stepped to:" "^% Skipped to:" "^% Stop encountered:") (#$ . -26797)) #@66 The regular expression computed from idlwave-shell-halt-messages (defconst idlwave-shell-halt-messages-re (mapconcat 'identity idlwave-shell-halt-messages "\\|") (#$ . 27083)) #@137 *A regular expression matching IDL trace messages. These are the messages containing file and line information of a current traceback. (defconst idlwave-shell-trace-message-re "^% At " (#$ . -27266)) #@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:") (#$ . -27474)) #@62 *Regular expression matching an IDL breakpoint message line. (defvar idlwave-shell-break-message "^% Breakpoint at:" (#$ . -27714)) (byte-code "\301B\302\303!\210\304B\305\304!\204\306\304\307\"\210\307\207" [current-load-list idlwave-shell-electric-debug-help (lambda (#1=#:defconst-tmp-var) (defconst idlwave-shell-electric-debug-help #1#)) " ==> IDLWAVE Electric Debug Mode Help <==\n \n Break Point Setting and Clearing:\n b Set breakpoint ([C-u b] for conditional, [C-n b] nth hit, etc.).\n d Clear nearby breakpoint.\n a Clear all breakpoints.\n i Set breakpoint in routine named here.\n j Set breakpoint at beginning of containing routine.\n \\ Toggle breakpoint disable\n ] Go to next breakpoint in file.\n [ Go to previous breakpoint in file.\n\n Stepping, Continuing, and the Stack:\n s or SPACE Step, into function calls.\n n Step, over function calls.\n k Skip one statement.\n m Continue to end of function.\n o Continue past end of function.\n u Continue to end of block.\n h Continue to line at cursor position.\n r Continue execution to next breakpoint, if any.\n + or = Show higher level in calling stack.\n - or _ Show lower level in calling stack.\n\n Examining Expressions (with prefix for examining the region):\n p Print expression near point or in region ([C-u p]).\n ? Help on expression near point or in region ([C-u ?]).\n x Examine expression near point or in region ([C-u x]) with \n letter completion of the examine type.\n e Prompt for an expression to print.\n\n Miscellaneous:\n q Quit - end debugging session and return to the Shell's main level.\n v Turn Electric Debugging Mode off (C-c C-d C-v to return).\n t Print a calling-level traceback in the shell.\n z Reset IDL.\n C-? Show this help menu." idlwave-shell-only-prompt-pattern default-boundp set-default nil] 3) #@3218 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. Expression Examination ---------------------- Expressions near point can be examined with print, \[idlwave-shell-print] or \[idlwave-shell-mouse-print] with the mouse, help, \[idlwave-shell-help-expression] or \[idlwave-shell-mouse-help] with the mouse, or with a configureable set of custom examine commands using \[idlwave-shell-examine-select]. The mouse examine commands can also work by click and drag, to select an expression for examination. 6. Hooks ----- Turning on `idlwave-shell-mode' runs `comint-mode-hook' and `idlwave-shell-mode-hook' (in that order). 7. 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://idlwave.org'. IDLWAVE has customize support - see the group `idlwave'. 8. Keybindings ----------- \{idlwave-shell-mode-map} (defalias 'idlwave-shell-mode #[nil "\306 \210\307!\204\310 \"\n\311\312\313\314!\210\313\315!\210\311 \316\f\311;\317<\320=\312>\321?\312\211@A\312\211BC\322\312!\210\323D\324\n\325\312O\326QEF\203\\\327\313\330!\331\"\210\311GH`\312\223\210\312\211IJ\312K\332 \210\312\211LMNO\312P\333\334\335\312\336$\210\333\334\337\312\336$\210\333\340\337\"\210\341Q!\210\342RQ\"\210S\203\301S\312TUU\211AU@\211T\203\300\313T@!TAL\210\202\246*\343\344\345!>\204\327\333\345\346\347\336$\210\333\345\350\312\336$\210\351\345\352\"\210VW\353X!\210\313\354!\210\355,\311Y\333\356\357\312\311$\210Z\203;\203\313\360!\2100\361!\203\362 \210\313\363!\210\3123\364\365!\210\366[\312\367#\210\366\370\371\\\"\312\367#\210\366]\372\367#\207" [idlwave-shell-command-history-file idlwave-config-directory idlwave-shell-prompt-pattern comint-prompt-regexp comint-process-echoes comint-input-autoexpand idlwave-setup file-name-absolute-p expand-file-name t nil make-local-variable comint-completion-addsuffix 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 "\\`[ \n]*" 1 "[ \n]*\\'" add-to-list idlwave-determine-class-special idlwave-shell-get-object-class idlwave-shell-update-bp-overlays add-hook kill-buffer-hook idlwave-shell-kill-shell-buffer-confirm local idlwave-shell-delete-temp-files kill-emacs-hook use-local-map easy-menu-add comint-carriage-motion default-value comint-output-filter-functions #[(string) "\303\304\"\205\"\305\306p!!\212\nb\210\307\304 \310#\205!`\311 |\210\202*\207" [string pmark comint-last-output-start string-match " " process-mark get-buffer-process search-forward t line-beginning-position] 4] append comint-strip-ctrl-m remove-hook py-pdbtrack-track-stack-file set-syntax-table comment-start ";" post-command-hook idlwave-command-hook comint-input-ring-file-name file-regular-p comint-read-input-ring tool-bar-map run-mode-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 idlwave-shell-only-prompt-pattern idlwave-shell-query-for-class idlwave-store-inquired-class comint-last-input-end idlwave-idlwave_routine_info-compiled idlwave-shell-ready idlwave-shell-bp-alist idlwave-shell-post-command-hook idlwave-shell-sources-alist default-directory idlwave-shell-default-directory idlwave-shell-hide-output idlwave-shell-mode-map idlwave-shell-mode-menu idlwave-shell-comint-settings entry list idlwave-mode-abbrev-table local-abbrev-table idlwave-mode-syntax-table abbrev-mode idlwave-shell-save-command-history idlwave-shell-initial-commands idlwave-mode-version idlwave-shell-path-query] 6 (#$ . 29780) nil]) #@61 Get the path lists, writing to file unless NO-WRITE is set. (defalias 'idlwave-shell-get-path-info #[(&optional no-write) "\306 \211@A  \307\211 \203+ \211\230?\211\203+\310\305\311\312#\210\313\314\n\"\211\f\232?\211\203@\310\303\311\312#\210 \203d?\205g\205g\204Y\205g?\205g\315 \202g\f\211.\207" [rpl sysdir dirs idlwave-path-alist old-path-alist idlwave-system-directory idlwave-shell-path-filter nil put from-shell t mapcar #[(x) "\303 \"\211\203\nAB\202C)\207" [x old-path-alist old-entry assoc] 4] idlwave-write-paths old-sys-dir path-changed sysdir-changed no-write idlwave-auto-write-paths idlwave-library-path] 5 (#$ . 36220)]) (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 (#$ . 37001)) #@44 Frame for displaying the idl source files. (defvar idlwave-shell-display-wframe nil (#$ . 37101)) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\306\"\210\306\207" [current-load-list idlwave-shell-calling-stack-index default-boundp set-default 0 idlwave-shell-calling-stack-routine nil] 3) #@49 Return the frame to be used for source display. (defalias 'idlwave-shell-source-frame #[nil "\205)\305 !\203\f \207\306 \n=\203%\307 \306 \310\311\215*\206'\312 \202'\306 \211\207" [idlwave-shell-use-dedicated-frame idlwave-shell-display-wframe idlwave-shell-idl-wframe frame flist frame-live-p selected-frame visible-frame-list exit (byte-code "\205@ =\204\302\303@\"\210\202A\211\204\304\207" [flist idlwave-shell-idl-wframe throw exit nil] 4) make-frame] 2 (#$ . 37433)]) #@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 (#$ . 37936)]) #@774 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', with options taken from `idlwave-shell-command-line-options'. 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 quick) "\306=\203 \307\310\307!\210\311 \210) \203\312 \313\314\315\316#\210\202\260\203&\316\317\232\203.\307\320\321 !\204o \206:\322\323\324 \f\307$;\203M\325$!\202O$%%\326%!&\307'\327&\330\"\210\331&\332\"\210%q\210\333 \210+\334\321 \307\335 #\336 ()\337)!\210db\210*\203\217\340)\316\"\210\337(!\210+\203\240\341\342)!!\210\312 \342)!=\203\257\337)!\210*\313\314\343\"\207" [arg idlwave-shell-use-dedicated-frame idlwave-shell-idl-wframe idlwave-shell-explicit-file-name prg idlwave-shell-process-name quick nil idlwave-shell delete-other-windows selected-frame add-hook idlwave-shell-sentinel-hook save-buffers-kill-emacs t (16) comint-check-proc idlwave-shell-buffer "idl" apply make-comint idlwave-split-string 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 set-window-dedicated-p raise-frame window-frame #[nil "\205 \205\n?\205\301\303N\205\304 \207" [idlwave-auto-write-paths idlwave-path-alist idlwave-library-path from-shell idlwave-write-paths] 2] idlwave-shell-command-line-options buf process idlwave-idlwave_routine_info-compiled current-window window idlwave-shell-use-dedicated-window idlwave-shell-ready] 7 (#$ . 38275) "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 (#$ . 40447) "P"]) #@67 Whether to hide this type of command. Return either nil or 'hide. (defalias 'idlwave-shell-hide-p #[(type &optional list) "\206 \211<\205\n>?\205\303)\207" [list idlwave-shell-show-commands type hide] 3 (#$ . 40696)]) #@45 Add or remove a show command from the list. (defalias 'idlwave-shell-add-or-remove-show #[(type) "<\203 >\203\302 \"\202\303\300 \"\211\207 C\211\207" [idlwave-shell-show-commands type delq add-to-list] 3 (#$ . 40929)]) #@1080 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, unless it is the symbol 'mostly, in which case only output beginning with "%" is hidden, and all other output (i.e., the results of a PRINT command), is shown. This helps with, e.g., stepping through code with output. If optional fourth argument PREEMPT is non-nil CMD is put at front of `idlwave-shell-pending-commands'. If PREEMPT is 'wait, wait for all output to complete and the next prompt to arrive before returning (useful if you need an answer now). IDL is considered ready if the prompt is present and if `idlwave-shell-ready' is non-nil. If SHOW-IF-ERROR is non-nil, show the output if it contains an error message, independent of what HIDE is set to. (defalias 'idlwave-shell-send-command #[(&optional cmd pcmd hide preempt show-if-error) "9\203 \306=\203 \307p\307\211\310\311 !\211\203$\312 !\211\204N \2041\313\314\315!!\210\202N\316 \210\310\311 !\310\311 !\211\203J\312 !\211\204N\313\317!\210\204X\205 q\210\203\204 \203u\320! \"FC\"\202\202\320! \"FC\"\321 #\322\n!b\210$\203\n\323y\210\324%!\322\n!b\210\203\n@\211&@&A@!\325&8\326&8\"\327!\330=\203\307\323'!( )\"*A+`\307\223\210,`\307\223\210\331\n\"\210\307$ \332\232\203 $\204 \333\n\334\"\204\363\307\313\335!\210\202\363-#b\210)\fq+\207" [idlwave-shell-show-commands hide proc buf save-buffer idlwave-shell-automatic-start everything 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" append point-marker process-mark 0 looking-at 2 3 string-to-char 46 comint-simple-send wait accept-process-output 6 "Process timed out" cmd idlwave-shell-pending-commands preempt pcmd show-if-error save-point idlwave-shell-ready idlwave-shell-prompt-pattern lcmd idlwave-shell-calling-stack-index idlwave-shell-post-command-hook idlwave-shell-hide-output idlwave-shell-show-if-error comint-last-input-start comint-last-input-end] 7 (#$ . 41168)]) #@53 Send one character to the shell, without a newline. (defalias 'idlwave-shell-send-char #[(c &optional error) "\203\300\202 \305\306\211\307\310 !\211\203\311\n!\211\204# \312!\210\f\313\232\203/ \314!\2025\315 \316\f!\"+\207" [error proc buf errf c message nil get-buffer idlwave-shell-buffer get-buffer-process "Shell is not running" 7 "Abort" comint-send-string char-to-string] 4 (#$ . 43656) "cChar to send to IDL: \np"]) #@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 (#$ . 44102)]) #@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 (#$ . 44718) nil]) #@129 When in last line of process buffer, do `comint-previous-input'. Otherwise just move the line. Move down unless UP is non-nil. (defalias 'idlwave-shell-move-or-history #[(up &optional arg) "\304\305\306p!!! \206 \307\n\203 \202 [ \310=\203\"b\210 \2038\212\311\210`)TY\2038\312 !\202;\313 !+\207" [proc-pos arg up idlwave-shell-arrows-do-history marker-position process-mark get-buffer-process 1 t nil comint-previous-input previous-line] 4 (#$ . 46336)]) #@94 When in last line of process buffer, move to previous input. Otherwise just go up one line. (defalias 'idlwave-shell-up-or-history #[(&optional arg) "\301\302\"\207" [arg idlwave-shell-move-or-history t] 3 (#$ . 46814) "p"]) #@92 When in last line of process buffer, move to next input. Otherwise just go down one line. (defalias 'idlwave-shell-down-or-history #[(&optional arg) "\301\302\"\207" [arg idlwave-shell-move-or-history nil] 3 (#$ . 47047) "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 (#$ . 47508)]) #@277 Filter hidden output, leaving the good stuff. Remove everything to the first newline, and all lines with % in front of them, with optional follow-on lines starting with two spaces. This works well enough, since any print output typically arrives before error messages, etc. (defalias 'idlwave-shell-filter-hidden-output #[(output) "\302\303\"\304O\302\305\"\203\306\307\304\310$\202\302 \"?\205\"\207" [output idlwave-shell-only-prompt-pattern string-match "\n" nil "\\(\n\\|\\`\\)%.*\\(\n .*\\)*" replace-match "" t] 5 (#$ . 47682)]) #@52 Buffer containing hidden output from IDL commands. (defvar idlwave-shell-hidden-output-buffer " *idlwave-shell-hidden-output*" (#$ . 48239)) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list idlwave-shell-current-state default-boundp set-default nil] 3) #@193 Watch for IDL prompt and filter incoming text. 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!\310 \311\211\312\216\313\314\f\"\211\203%\315 \210\f\n\316I\210\202 \203K\212\313\317\f\"\211\203;\f\n\320I\210\202*\321#!q\210db\210\fc\210)\202Q\322$\f\"\210\313\323\f\"\203s%\203d\324&\fP!\210\f\313\325\f\"\210\326\225\311O&\202y&\fP&\313'&\"\211(\205  \203\255\212#q\210\327 db\210\330'\311\331#\210\326\225b\210\332e`\")e`|\210)\202\307r\333$!q\210\332\212\334$!b\210\326y\210`)*\"))\311(\335 \210 \203\375+\203\346,\336=\203\346\322$ \"\210\202\375 \337=\203\375\340 !\211-\203\374\322$-\"\210).<\203 \341.!\210\202. \210\311\211&)\311\211.\311+)\342 ,\207" [idlwave-shell-process-name full-output p data string idlwave-shell-hide-output process-status run match-data nil ((store-match-data data)) string-match "" ding 10 " " 32 get-buffer-create idlwave-shell-comint-filter "\n" idlwave-shell-input-mode-magic "\\(.*[\n ]+\\)*" 0 buffer-string re-search-backward t buffer-substring-no-properties process-buffer process-mark idlwave-shell-scan-for-state error mostly idlwave-shell-filter-hidden-output eval idlwave-shell-send-command idlwave-shell-hidden-output-buffer 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-show-if-error idlwave-shell-current-state filtered idlwave-shell-post-command-hook] 5 (#$ . 48531)]) #@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\f\203* ;\203*\313\314\315\217\210)\316 G\317V\203E\320!\203E\321!\210\313\211\322 !\203U\323\324!\204U\325 !\210\326 \210\310!\203i\212q\210\327\330!)\202l\327\330!*\207" [buf win process event idlwave-shell-save-command-history idlwave-shell-command-history-file idlwave-shell-buffer get-buffer-window get-buffer format "\n\n Process %s %s" nil (comint-write-input-ring) ((error)) frame-list 1 frame-live-p delete-frame window-live-p one-window-p nomini delete-window idlwave-shell-cleanup run-hooks idlwave-shell-sentinel-hook idlwave-shell-idl-wframe idlwave-shell-display-wframe] 5 (#$ . 50214)]) #@56 Buffer containing syntax errors from IDL compilations. (defvar idlwave-shell-error-buffer " *idlwave-shell-errors*" (#$ . 51009)) #@131 A regular expression to match an IDL syntax error. The 1st pair matches the file name, the second pair matches the line number. (defvar idlwave-shell-syntax-error "^% Syntax error.\\s-*\n\\s-*At:\\s-*\\(.*\\),\\s-*Line\\s-*\\(.*\\)" (#$ . 51146)) #@46 A regular expression to match any IDL error. (defvar idlwave-shell-other-error "^% .*\n\\s-*At:\\s-*\\(.*\\),\\s-*Line\\s-*\\(.*\\)" (#$ . 51401)) #@60 A regular expression to match errors which halt execution. (defvar idlwave-shell-halting-error "^% .*\n\\([^%].*\n\\)*% Execution halted at:\\(\\s-*\\S-+\\s-*[0-9]+\\s-*.*\\)\n" (#$ . 51554)) #@55 A regular expression to match errors stepping errors. (defvar idlwave-shell-cant-continue-error "^% Can't continue from this point.\n" (#$ . 51752)) #@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 "\\(\\$MAIN\\$\\|\\<[a-zA-Z][a-zA-Z0-9_$:]*\\([ ]*\n[ ]*[a-zA-Z0-9_$:]+\\)*\\)[ \n]+\\([0-9]+\\([ ]*\n[ ]*[0-9]+\\)*\\)[ \n]+\\([^ \n]+\\([ ]*\n[ ]*[^ \n]+\\)*\\)" (#$ . -51908)) #@492 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. For breakpoint messages process any attached count or command parameters. Update the stop line if a message is found. The variable `idlwave-shell-current-state' is set to 'error, 'halt, or 'breakpoint, which describes the status, or nil for none of the above. (defalias 'idlwave-shell-scan-for-state #[nil "\306 ?\206\354\307\n \"\204\307 \"\203/r\310\f!q\210\311 \210 c\210eb\210`)\312\313 \202\354\307 \"\203M\314\315 \316\224\306O!\312\317\320 !\202\354\307 \"\211\204_\307 \"\203\204\314\315 \314\225\306O!\321\317\320 \306\203z\322\202\200 \205\200\323#\202\354\307! \"\203\331\314\315 \314\225\306O!\324@A@D\"\"\211#\203\313\325#\326\"\211\203\307<\203\303\327!\210\202\307 \210)\202\316\330 \210)\331\317\320 !\202\354\307$ \"\203\350\331\211\202\354\306\211)\207" [trace idlwave-shell-command-output idlwave-shell-syntax-error idlwave-shell-other-error idlwave-shell-error-buffer idlwave-shell-error-last nil string-match get-buffer-create erase-buffer error idlwave-shell-goto-next-error 0 idlwave-shell-parse-line 2 idlwave-shell-display-line idlwave-shell-pc-frame halt disable force assoc idlwave-shell-bp-get cmd eval idlwave-shell-bp-query breakpoint idlwave-shell-current-state idlwave-shell-halting-error idlwave-shell-calling-stack-index idlwave-shell-halt-frame idlwave-shell-trace-message-re idlwave-shell-halt-messages-re idlwave-shell-electric-debug-mode idlwave-shell-break-message idlwave-shell-bp-alist bp idlwave-shell-cant-continue-error] 5 (#$ . 52471)]) #@66 Parse IDL message for the subroutine, file name and line number. (defalias 'idlwave-shell-parse-line #[(string &optional skip-main) "\306\211\211 \205\307\310\f\"?\205@\307 \f\"\205@\311\312\f\"\311\313\f\"\311\314\f\"\315 !\315\n!\316!\211\205@\317!\320\n! E+\207" [file procedure number skip-main string idlwave-shell-file-line-message nil string-match ":\\s-*\\$MAIN" match-string 1 3 5 idlwave-shell-repair-string idlwave-shell-repair-file-name idlwave-shell-file-name string-to-number] 4 (#$ . 54265)]) #@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 (#$ . 54795)]) #@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 (#$ . 55043)]) #@52 Do necessary cleanup for a terminated IDL process. (defalias 'idlwave-shell-cleanup #[nil "\306\211\306\211\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] 4 (#$ . 55543)]) #@31 Kill buffer BUF if it exists. (defalias 'idlwave-shell-kill-buffer #[(buf) "\301!\211\205 \302!\207" [buf get-buffer kill-buffer] 2 (#$ . 56314)]) (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 $\310\311\312!\310\313%)\207" [n idlwave-shell-graphics-window-size prefix-numeric-value 0 idlwave-shell-send-command apply format "window,%d,xs=%d,ys=%d" nil idlwave-shell-hide-p misc t] 6 (#$ . 56778) "P"]) #@175 Resync the buffer's idea of the current directory. This command queries IDL with the command bound to `idlwave-shell-dirstack-query', reads the output for the new directory. (defalias 'idlwave-shell-resync-dirs #[nil "\301\302\303\304$\207" [idlwave-shell-dirstack-query idlwave-shell-send-command idlwave-shell-filter-directory hide wait] 5 (#$ . 57196) nil]) #@83 Return from the entire calling stack. Also get rid of widget events in the queue. (defalias 'idlwave-shell-retall #[(&optional arg) "\302 \303\304\305 \"r\306\216\307\310\311\312\313!\205\314\311\315%\210\316\311!,\207" [save-selected-window-alist save-selected-window-window selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\203/\n@\306 @!\203(\307 \211A@)!\203(\310 @ \211A@)\"\210\nA\211\204*\307\f!\203:\311\f!\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window select-window] 4)) idlwave-shell-send-command "retall" nil idlwave-shell-hide-p misc mostly t idlwave-shell-display-line] 6 (#$ . 57564) "P"]) #@23 Close all open files. (defalias 'idlwave-shell-closeall #[(&optional arg) "\300\301\302\303\304!\302\305%\207" [idlwave-shell-send-command "close,/all" nil idlwave-shell-hide-p misc t] 6 (#$ . 58365) "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 (#$ . 58577) "P"]) #@167 Reset IDL. Return to main level and destroy the leftover variables. This issues the following commands: RETALL WIDGET_CONTROL,/RESET CLOSE, /ALL HEAP_GC, /VERBOSE (defalias 'idlwave-shell-reset #[(&optional hidden) "\204\n\303\304!\205+\305\306!\210\307\310\311\312\n#\210\310\313\312\n#\210\310\314\312\n#\210\310\315\312\n#\210\316\312!\207" [idlwave-shell-reset-no-prompt idlwave-shell-calling-stack-index hidden yes-or-no-p "Really Reset IDL and discard current session? " message "Resetting IDL" 0 idlwave-shell-send-command "retall" nil "widget_control,/reset" "close,/all" "heap_gc,/verbose" idlwave-shell-display-line] 4 (#$ . 58953) "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,-./01234\307\21156\310\3114\"\203M\312\3134\"2\3142!\315P14\306\225\307O4\202`\3162\3171\32047\203`\321\322\"\210\310\3234\"\203s4\306\211\224O4\202}7\203}\321\324\"\210\310\32543#\203w\306\2253\312\3134\"/\312\3264\".\327.1\"\211-@,-A@\320\232?\205\263-A@\326-80\330-8\331-8\211;\205\333\310\332\f\"?\205\333\333\334\335\320\327\f\336\"\"\"\337,\n\340#,\341\n\340\"0\320\232?\205\36300\333\342 \",\343\230\204}/\344\230\203<,\345\n\3460\205\3470!\350\3510!!DB \307 B\2570\2033 5B5\202} 6B6\202}/\352\230\203},\353\n\3460\205X\3470!\350\3510!!DB \307 B\2570\203n 5B5\202} 6B6\202}.5\23756\237\2116\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 in \n>>>\n%s\n<<<\n" "^>>>END OF IDLWAVE ROUTINE INFO.*" "Routine Info warning: No match for END line in \n>>>\n%s\n<<<\n" "^IDLWAVE-\\(PRO\\|FUN\\): \\(.*\\)" 2 idlwave-split-string 3 4 "\\` *\\'" mapcar list delete " +" idlwave-sintern-routine-or-method t idlwave-sintern-class #[(x) "\301@\302\"C\207" [x idlwave-sintern-keyword t] 3] "$MAIN$" "PRO" pro compiled file-name-nondirectory idlwave-sintern-dir file-name-directory "FUN" fun name specs spec type file sep-re sep start text idlwave-compiled-routines idlwave-unresolved-routines idlwave-idlwave_routine_info-compiled] 15 (#$ . 60002)]) #@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\211\310 !\211))\207" [idlwave-shell-command-output dir idlwave-shell-default-directory default-directory idlwave-shell-buffer string-match ",___cur[\n ]+\\([^\n ]+\\)[\n ]" 1 file-name-as-directory] 4 (#$ . 61746)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list idlwave-shell-get-object-class default-boundp set-default nil] 3) #@59 Query the shell for the class of the object before point. (defalias 'idlwave-shell-get-object-class #[(apos) "\212\305\306!\210`)\212\307y\210`)\310\212 b\210\311\312\215 {)\313\230?\205C\310\314\315\316\317\260\320\321\322$\210\f\203B\323\f\324 \325#\204B\326 \210\f+\207" [expression bol bos apos idlwave-shell-get-object-class idlwave-start-of-substatement pre 0 nil exit (byte-code "\302\303\304#\204 \305\306\"\210\307 !\204\305\306`T\"\210\202" [bos bol re-search-backward "[^][.A-Za-z0-9_() ]" t throw exit idlwave-is-pointer-dereference] 4) "" idlwave-shell-send-command "if obj_valid(" ") then print,obj_class(" ")" idlwave-shell-parse-object-class hide wait assoc-string idlwave-class-alist t idlwave-shell-maybe-update-routine-info] 6 (#$ . 62344)]) #@44 Parse the output of the obj_class command. (defalias 'idlwave-shell-parse-object-class #[nil "\304\305\306 \307R\n\"\205\310\311\n\"\211)\207" [match idlwave-shell-prompt-pattern idlwave-shell-command-output idlwave-shell-get-object-class "obj_class([^\n ]+[\n ]" string-match "\\([A-Za-z_0-9]+\\) *[\n ]\\(" "\\)" match-string 1] 5 (#$ . 63130)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305\306!\207" [current-load-list idlwave-sint-sysvars default-boundp set-default nil idlwave-new-sintern-type execcomm] 3) #@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) "\305\306 \211\203A\203A\226\307\235\203\310 \202\\\242\203.\311\312\313\211\n\305\314\315&\202\\\316 \2038\310 \202\\\317 \203B\310 \202\\\320 \203Y\212\321 \210\322\323\324!*\204Y\310 \202\\\325\f!)\207" [exec-cmd idlwave-completion-help-info idlwave-executive-commands-alist 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-complete-execcomm-help) idlwave-complete-in-buffer execcomm "Select an executive command" "system variable" idlwave-shell-batch-command idlwave-shell-shell-command idlwave-shell-filename-string beginning-of-line t looking-at ".*obj_new" idlwave-complete] 7 (#$ . 63667) "P"]) (defalias 'idlwave-shell-complete-execcomm-help #[(mode word) "A@\206 \306 \n\307#\f\310=\203\" ;\2056 \2056 A\2026\f\311=\2033 \2056 A\211\2026\312\313!*\207" [idlwave-completion-help-info word idlwave-executive-commands-alist entry mode link assoc-string t test set error "This should not happen"] 5]) #@166 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. (defalias 'idlwave-shell-complete-filename #[(&optional arg) "\302 \210\303 )\207" [idlwave-shell-file-name-chars comint-file-name-chars idlwave-shell-resync-dirs comint-dynamic-complete-as-filename] 1 (#$ . 65010)]) #@59 Return the name of the current executive command, if any. (defalias 'idlwave-shell-executive-command #[nil "\212\300 \210\301\302!\301\303!\205\304\305!)B\207" [idlwave-beginning-of-statement looking-at "[ ]*\\." "[ ]*[.]\\([^ \n ]+\\)[ ]" match-string 1] 3 (#$ . 65400)]) #@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 (#$ . 65685)]) #@59 Returns t if we're in a batch command statement like @foo (defalias 'idlwave-shell-batch-command #[nil "\212\302 \210`)\212 x\210\303x\210h\304=\205\305 ?*\207" [limit idlwave-shell-file-name-chars beginning-of-line " " 64 idlwave-in-quote] 2 (#$ . 65921)]) #@58 Returns t if we're in a shell command statement like $ls (defalias 'idlwave-shell-shell-command #[nil "\212\300 \210\301\302!)\207" [idlwave-beginning-of-statement looking-at "\\$"] 2 (#$ . 66191)]) #@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 (#$ . 66397) 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\313\205h\326#\210\305\327 \206x\321\330[#\"-\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 force "%s" "In routine %s (stack level %d)" idlwave-shell-calling-stack-index idlwave-shell-calling-stack-routine idlwave-shell-electric-debug-mode] 7]) #@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 (#$ . 67918) 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 (#$ . 68145) 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 (#$ . 68377)]) #@38 Returns the frame for IDL execution. (defalias 'idlwave-shell-pc-frame #[nil "\205 @A@\3018E\207" [idlwave-shell-halt-frame 2] 4 (#$ . 68757)]) #@43 Check that frame is for an existing file. (defalias 'idlwave-shell-valid-frame #[(frame) "\301@!\207" [frame file-readable-p] 2 (#$ . 68912)]) (defalias 'idlwave-shell-stop-line-pending #[nil "\205\302\303 \203\304\202\305#\207" [idlwave-shell-stop-line-overlay idlwave-shell-electric-debug-mode overlay-put face idlwave-shell-pending-electric-stop idlwave-shell-pending-stop] 4]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list idlwave-shell-suppress-electric-debug default-boundp set-default nil] 3) #@445 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. if col is set, move point to that column in the line. if debug is non-nil, enable the electric debug mode. if it is 'disable, do not enable no matter what the setting of 'idlwave-shell-automatic-electric-debug'. if it is 'force, enable no matter what the settings of that variable. (defalias 'idlwave-shell-display-line #[(frame &optional col debug) "\204\306\211\306\f\203\307\f!\210\310 \207\311!\204\"\312\313@P!\207\3148\2050\315\316 [\3148#\317@\320\"$\321 \322 \232%\306\211&'\306(\323\322 \306\324 #\210\323$\306\325 #&\212$q\210\214~\210\326A@!\210\327y\210`'\330\f\203\223\331\f\332!\203\200)\202\202*#\210\333\f`\212\306\210`)p$\210\202\253+\203\233,-\204\244\334 --`$\223\210)'eW\204\272'dV\203\300~\210'b\210.\203\312\335.!\210`'!\204\376/\336=\204\372/\337=\204\3760\330=\204\3650\340=\203\3761\312=\204\3762\204\376\341\330!\210!()\342&'\"\2103\203(\204\"\321 \322 \232\205&%?\205&\343&!-\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-electric-debug-all-off 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 0 t overlay-put face move-overlay make-marker move-to-column force disable breakpoint idlwave-shell-electric-debug-mode set-window-point select-window buffer select-shell window pos electric idlwave-shell-electric-stop-line-face idlwave-shell-stop-line-face idlwave-shell-mark-stop-line idlwave-shell-overlay-arrow overlay-arrow-position col debug idlwave-shell-automatic-electric-debug idlwave-shell-current-state idlwave-shell-suppress-electric-debug idlwave-shell-electric-zap-to-file] 6 (#$ . 69463)]) #@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 \210\303\304\250\203\305!\202P\306\307\310!\205&\311\306\312%\207" [arg 1 idlwave-shell-stop-line-pending idlwave-shell-send-command ".s " int-to-string nil idlwave-shell-hide-p debug mostly t] 6 (#$ . 71574) "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 \210\303\304\250\203\305!\202P\306\307\310!\205&\311\306\312%\207" [arg 1 idlwave-shell-stop-line-pending idlwave-shell-send-command ".so " int-to-string nil idlwave-shell-hide-p debug mostly t] 6 (#$ . 71949) "p"]) #@441 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. CONDITION is a break condition, and DISABLED, if non-nil disables the breakpoint (defalias 'idlwave-shell-break-here #[(&optional count cmd condition disabled no-show) "<\203@\305\232\203\306\307!\310\311\312\313 \n F\314 #\f\"\207" [count condition cmd disabled no-show 4 read-string "Break Condition: " nil idlwave-shell-set-bp idlwave-shell-bp idlwave-shell-current-frame idlwave-shell-current-module] 7 (#$ . 72411) "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) "\205U\302\303\"\203D\304 \210\305\306\307 \310\"\311Q!\2038\312 \210\313\314\307 \310\"\315Q\316\317\320!\205-\321\316\322%\210\323 !\210\202B\304 \210\324\325!\210\312 \210\316\207\302\326\"\203T\324\327!\210\312 \210\316\207\330\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-hide-p run mostly t idlwave-shell-set-bp message "Unable to set breakpoint." "% Syntax error" "Syntax error in condition." okay] 6 (#$ . 73213)]) #@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 (#$ . 74110)]) #@21 Continue executing. (defalias 'idlwave-shell-cont #[(&optional no-show) "\301 \210\302\303?\205 \304\305\306!\205\307\310\311%\207" [no-show idlwave-shell-stop-line-pending idlwave-shell-send-command ".c" (idlwave-shell-redisplay 'hide) idlwave-shell-hide-p debug mostly nil t] 6 (#$ . 74493) nil]) #@67 Run .GO. This starts the main program of the last compiled file. (defalias 'idlwave-shell-go #[nil "\300 \210\301\302\303\304\305!\205 \306\307\310%\207" [idlwave-shell-stop-line-pending idlwave-shell-send-command ".go" (idlwave-shell-redisplay 'hide) idlwave-shell-hide-p debug mostly nil t] 6 (#$ . 74802) nil]) #@64 Run .RETURN (continue to next return, but stay in subprogram). (defalias 'idlwave-shell-return #[nil "\300 \210\301\302\303\304\305!\205 \306\307\310%\207" [idlwave-shell-stop-line-pending idlwave-shell-send-command ".return" (idlwave-shell-redisplay 'hide) idlwave-shell-hide-p debug mostly nil t] 6 (#$ . 75124) nil]) #@39 Run .SKIP (skip one line, then step). (defalias 'idlwave-shell-skip #[nil "\300 \210\301\302\303\304\305!\205 \306\307\310%\207" [idlwave-shell-stop-line-pending idlwave-shell-send-command ".skip" (idlwave-shell-redisplay 'hide) idlwave-shell-hide-p debug mostly nil t] 6 (#$ . 75451) nil]) #@69 Clear breakpoint BP. Clears in IDL and in `idlwave-shell-bp-alist'. (defalias 'idlwave-shell-clear-bp #[(bp &optional no-query) "\303!\211\205\304\305\306 !P\307\310\311!\307\312%\210\n?\205\313 )\207" [bp index no-query idlwave-shell-bp-get idlwave-shell-send-command "breakpoint,/clear," int-to-string nil idlwave-shell-hide-p breakpoint t idlwave-shell-bp-query] 7 (#$ . 75749)]) #@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 (#$ . 76145)]) #@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\304\305 !=\203 \3068\207\214~\210\212\307 \205*\310 \311\306 8 @\" A@\n\226 +D*\207" [idlwave-shell-halt-frame module name type get-buffer idlwave-shell-buffer 2 idlwave-prev-index-position idlwave-what-module idlwave-make-full-name] 3 (#$ . 76556)]) #@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 \211\205\n\302!)\207" [bp idlwave-shell-find-current-bp idlwave-shell-clear-bp] 3 (#$ . 76968) nil]) #@216 Disable or enable current breakpoint or a breakpoint passed in BP. If FORCE is 'disable or 'enable, for that condition instead of toggling. If NO-UPDATE is non-nil, don't update the breakpoint list after toggling. (defalias 'idlwave-shell-toggle-enable-current-bp #[(&optional bp force no-update) "\206\304 \305\301\"\n\306=\203\307\202\n\310=\203\311\205L\312AA\233 ?\240\210\313\314 \2036\315\2027\316\317\305!!Q\307\320\321!\307\311%\210 ?\205L\322 *\207" [bp disabled force no-update idlwave-shell-find-current-bp idlwave-shell-bp-get disable nil enable t 3 idlwave-shell-send-command "breakpoint," "/enable," "/disable," int-to-string idlwave-shell-hide-p breakpoint idlwave-shell-bp-query] 6 (#$ . 77262) nil]) #@104 Disable all breakpoints we know about which need disabling. If ENABLE is non-nil, enable them instead. (defalias 'idlwave-shell-enable-all-bp #[(&optional enable no-update bpl) "\206 \306\211\211\203E\307@\303\"\211\203\f\304=\203> \204(\f\304=\204>\310@\f\304=\2035\304\2026\311 #\210@\nBA\211\204 \204L\312 \210\n+\207" [bpl idlwave-shell-bp-alist modified disabled enable no-update nil idlwave-shell-bp-get idlwave-shell-toggle-enable-current-bp disable idlwave-shell-bp-query] 5 (#$ . 78008)]) #@46 Set a breakpoint with count 1 then continue. (defalias 'idlwave-shell-to-here #[nil "\301\302\303\"\304\305\306\211\211\307%\210\310\307!\210\301\311\303#\210)\312 \207" [disabled idlwave-shell-enable-all-bp disable no-update idlwave-shell-break-here 1 nil no-show idlwave-shell-cont enable idlwave-shell-redisplay] 6 (#$ . 78536) nil]) (defalias 'idlwave-shell-break-this-module #[(&optional arg) "\212\301 \210\302!)\207" [arg idlwave-beginning-of-subprogram idlwave-shell-break-here] 2 nil "P"]) #@229 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. If MODULE is `t', set in the current routine. (defalias 'idlwave-shell-break-in #[nil "\304\305 !\211A@@\3068\203&\307 \n\"\310 \"\210\311\n #\202)\312\313!,\207" [module type name class idlwave-fix-module-if-obj_new idlwave-what-module 2 idlwave-make-full-name idlwave-shell-module-source-query idlwave-shell-set-bp-in-module error "No identifier at point"] 5 (#$ . 79045) 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 #[(name type class) "\306 \"\307\n\226 \"\206\310\311 \f\312 $8\243\242\313 \2035\314 !\2035\315 !\206/\316 !\211\204?\317\320\n\"\210\321 \202n\212q\210\212eb\210\322\323\324\n\227\325Q\313\322#\203e\326\224b\210\317\327\n\"\210\330 \202m\317\331\n #\210\321 ++\207" [class name module idlwave-shell-sources-alist type source-file idlwave-make-full-name assoc 3 idlwave-best-rinfo-assoc idlwave-routines 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" buf case-fold-search] 6 (#$ . 79626)]) #@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 (#$ . 80541) 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\302\303\304!\205\n\305\302\306%\207" [idlwave-shell-send-command ".o" nil idlwave-shell-hide-p debug mostly t] 6 (#$ . 81047) nil]) #@48 Move to the previous breakpoint in the buffer. (defalias 'idlwave-shell-goto-previous-bp #[nil "\300\301!\207" [idlwave-shell-move-to-bp -1] 2 (#$ . 81352) nil]) #@44 Move to the next breakpoint in the buffer. (defalias 'idlwave-shell-goto-next-bp #[nil "\300\301!\207" [idlwave-shell-move-to-bp 1] 2 (#$ . 81520) nil]) #@70 Move to the next or previous breakpoint, depending on direction DIR. (defalias 'idlwave-shell-move-to-bp #[(dir) "\306 \211@A@  \307V\203\310\202\311 \307V\203#\311\202$\310\312\211\312\211\f\211A@\211\203o @@\230\2032\313@A@\n\"\2032\203h\"\2032\2022\204x\314\315!\210\316!.\n\207" [frame file orig-bp-line idlwave-shell-bp-alist bp-alist dir idlwave-shell-current-frame 0 > < nil 1 error "No further breakpoints" goto-line orig-func closer-func bp got-bp bp-line cur-line] 4 (#$ . 81679)]) #@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 (#$ . 82238) "P"]) #@59 Create a function for generic examination of expressions. (defalias 'idlwave-shell-mouse-examine '(macro . #[(help &optional ev) "\302\303\304\305\306\307\310\311\312 FF\257\207" [help ev lambda (event) "Expansion function for expression examination." (interactive "e") let* ((drag-track (fboundp 'mouse-drag-track)) (transient-mark-mode t) (zmacs-regions t) (tracker (if (featurep 'xemacs) (if (fboundp 'default-mouse-track-event-is-with-button) 'idlwave-xemacs-hack-mouse-track 'mouse-track) (if drag-track 'mouse-drag-track 'mouse-drag-region)))) (funcall tracker event) idlwave-shell-print (if (idlwave-region-active-p) '(4) nil)] 11 (#$ . 82425)])) (defalias 'idlwave-default-mouse-track-event-is-with-button #[(event n) "\300\207" [t] 1]) (defalias 'idlwave-xemacs-hack-mouse-track #[(event) "\300\207" [nil] 1]) #@60 Print value of variable at the mouse position, with `help' (defalias 'idlwave-shell-mouse-print #[(event) "\305\306!\307\211\310\311!\203\305\312!\203\313\202'\314\202' \203&\306\202'\315\211!\210\316\317 \2036\320\2027\321\321\211#-\207" [event drag-track transient-mark-mode zmacs-regions tracker fboundp mouse-drag-track t featurep xemacs default-mouse-track-event-is-with-button idlwave-xemacs-hack-mouse-track mouse-track mouse-drag-region idlwave-shell-print idlwave-region-active-p (4) nil] 5 (#$ . 83252) "e"]) #@62 Print value of variable at the mouse position, with `print'. (defalias 'idlwave-shell-mouse-help #[(event) "\305\306!\307\211\310\311!\203\305\312!\203\313\202'\314\202' \203&\306\202'\315\211!\210\316\317 \2036\320\2027\321\322\321#-\207" [event drag-track transient-mark-mode zmacs-regions tracker fboundp mouse-drag-track t featurep xemacs default-mouse-track-event-is-with-button idlwave-xemacs-hack-mouse-track mouse-track mouse-drag-region idlwave-shell-print idlwave-region-active-p (4) nil help] 5 (#$ . 83794) "e"]) #@59 Pop-up a list to select from for examining the expression (defalias 'idlwave-shell-examine-select #[(event) "\305\306!\307\211\310\311!\203\305\312!\203\313\202'\314\202' \203&\306\202'\315\211!\210\316\317 \2036\320\2027\321\321#-\207" [event drag-track transient-mark-mode zmacs-regions tracker fboundp mouse-drag-track t featurep xemacs default-mouse-track-event-is-with-button idlwave-xemacs-hack-mouse-track mouse-track mouse-drag-region idlwave-shell-print idlwave-region-active-p (4) nil] 5 (#$ . 84342) "e"]) #@58 Create a function for key-driven expression examination. (defalias 'idlwave-shell-examine '(macro . #[(help) "\301\302\303\304\302EF\207" [help lambda nil (interactive) idlwave-shell-print] 6 (#$ . 84883)])) #@61 Label to include with examine text if in a separate buffer. (defvar idlwave-shell-examine-label nil (#$ . 85098)) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list idlwave-shell-examine-completion-list default-boundp set-default nil] 3) #@1142 Print current expression. With HELP non-nil, show help on expression. If HELP is a string, the expression will be put in place of ___, e.g.: print,size(___,/DIMENSIONS) HELP can also be a cons cell ( NAME . STRING ) in which case NAME will be used to label the help print-out. Otherwise, print is called on the 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 parenthesis 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, or if transient mode set and the region is defined, use the current region as the expression. With double prefix arg ARG prompt for an expression. If EV is a valid event passed, pop-up a list from idlw-shell-examine-alist from which to select the help command text. If instead COMPLETE-HELP-TYPE is non-nil, choose from idlw-shell-examine-alist via mini-buffer shortcut key. (defalias 'idlwave-shell-print #[(arg &optional help ev complete-help-type) "\204\306 \210\212\307p!\211\205\302 ! \250\205$ \310V\205$\311\312 \f#\313\211,-\313\211./0\314\232\203@\315\316!,\202\2360\204J\317 \203_\320 \321 Z\322W\203_\321 -\320 .\202\236\323 1\324\216\3252!\210\326\327!\203|\326\330!\203\331 \210\202\331 \210\326\330!\203\210\331 \210`-\332 \210\326\333!\203\232\332 \210\202\216`.*-\203\306.\203\306\n\203\277\n-V\203\277\n.W\203\277\334\n!--.{,-\203\344.\203\3443\203\344\3353-.p$\210\336\337\340\"\210\336\337\341\"\210\342\343,\"\203\375\344\345\346\211,$,\202\351\342\347,\"\203\344\350\346\211,$,\202\375\342\351,\"\203\"\344\350\346\211,$,\352\353\215.\207" [idlwave-idlwave_routine_info-compiled process process-mark idlwave-shell-calling-stack-index idlwave-shell-calling-stack-routine stack-label idlwave-shell-compile-helper-routines get-buffer-process 0 format " [-%d:%s]" nil (16) read-string "Expression: " idlwave-region-active-p region-end region-beginning 2000 syntax-table ((set-syntax-table saved-syntax)) set-syntax-table looking-at "\\<\\|(" "\\>" backward-sexp forward-sexp "\\>[[(]\\|\\." marker-position move-overlay add-hook pre-command-hook idlwave-shell-delete-expression-overlay idlwave-shell-delete-output-overlay string-match "\n[ ]*\\(;.*\\)? *\n" replace-match "\n" t "[ ]*\\$[ ]*\\(;.*\\)?\\(\n[ ]*\\|$\\)" "" "\n[ ]*\\'" exit (byte-code "\204 \203\f\n\204 :\203S :\203 \2021\306\203'\307\302\310\311#\202/\312 \313\314\n\"\315#\n\"\211A\211\204>\316\317\320\"\210 \203O\321\322\f@#\323Q)\202r\321\322 \204_\324\202k ;\203h \202k\325 !#\323Q\203\326\"\327 \"\330\331 \205\217\332#\207" [complete-help-type ev idlwave-shell-examine-alist help help-cons idlwave-shell-separate-examine-output assoc idlwave-one-key-select "Examine with: " 1.5 idlwave-popup-select mapcar car "Examine with" throw exit nil format "==>%s<==\n%s:" "\n" "print" symbol-name idlwave-retrieve-expression-from-level idlwave-shell-help-statement idlwave-shell-send-command idlwave-shell-check-compiled-and-display hide expr stack-label idlwave-shell-examine-label idlwave-shell-calling-stack-index cmd] 7) expr beg end cmd arg saved-syntax idlwave-find-symbol-syntax-table idlwave-shell-expression-overlay] 6 (#$ . 85374) "P"]) #@66 Variable to hold the win/height pairs for all *Examine* windows. (defvar idlwave-shell-examine-window-alist nil (#$ . 88908)) (byte-code "\301B\302\301!\204\303\301\304 \"\210\305 \306\307#\210\305 \310\311#\207" [current-load-list idlwave-shell-examine-map default-boundp set-default make-sparse-keymap define-key "q" idlwave-shell-examine-display-quit "c" idlwave-shell-examine-display-clear] 4) #@70 Check examine output for warning about undefined procedure/function. (defalias 'idlwave-shell-check-compiled-and-display #[nil "\302\303\"\203\n\304 \210 \203\305 \207\306 \207" [idlwave-shell-command-output idlwave-shell-separate-examine-output string-match "% Attempt to call undefined" idlwave-shell-compile-helper-routines idlwave-shell-examine-display idlwave-shell-examine-highlight] 3 (#$ . 89316)]) #@55 View the examine command output in a separate buffer. (defalias 'idlwave-shell-examine-display #[nil "\306\211\211\212\307\310!q\210\311 !\210\306db\210\214``}\210\312\313 \"\203'\314c\210\202j c\210\315.\306\316#\2064d/\315.\306\316#\203D\317\225\206Eeb\210\320\321!\2110/{1ed|\2101c\2102\203ieb\2102c\210\3062+ed\316\3223 p$\210\323\310\306\324#4\325\310\3064\30656\326\327\215*#\330\ne\"\210\331 \332\333\334 \"78r\335\216\336\n!\210\337\n)\"9\340 \204\365\n4>\203\302\341 9A=\203\365\342\343 \344\245\341 Z!\210\345 \210\346\306\332\347)\"\")\337\n)\"\2119\203\3559\341 \241\210\202\365\350\351\n\341 B\"\210.\331 \332\352\334 \"78r\353\216\336\n!\210db\210\321\306x\210\354\355!.\207" [cur-end cur-beg win idlwave-shell-examine-map buffer-read-only idlwave-shell-command-output nil get-buffer-create "*Examine*" use-local-map string-match "^% Syntax error." "% Syntax error.\n" re-search-backward t 0 re-search-forward "\n" move-overlay get-buffer-window-list visible idlwave-display-buffer exit (byte-code "\304 \305\306\307 \"r\310\216\n\211A@\211\205)\311 !\210\312 \203\f\313\314\315 !\"\210\202\f,\207" [save-selected-window-alist save-selected-window-window list thiswin selected-window mapcar #[#1=(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\203/\n@\306 @!\203(\307 \211A@)!\203(\310 @ \211A@)\"\210\nA\211\204*\307\f!\203:\311\f!\210\305\207" [save-selected-window-alist elt #2=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window select-window] 4)) select-window one-window-p throw exit window-frame] 4) set-window-start selected-window mapcar #[#1# "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\203/\n@\306 @!\203(\307 \211A@)!\203(\310 @ \211A@)\"\210\nA\211\204*\307\f!\203:\311\f!\210\305\207" [save-selected-window-alist elt #3=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window select-window] 4)) select-window assoc one-window-p window-height enlarge-window frame-height 2 shrink-window-if-larger-than-buffer delq #[(x) "\301@!\205\207" [x window-live-p] 2] add-to-list idlwave-shell-examine-window-alist #[#1# "\301!D\207" [frame frame-selected-window] 3] ((byte-code "\305\211\203/\n@\306 @!\203(\307 \211A@)!\203(\310 @ \211A@)\"\210\nA\211\204*\307\f!\203:\311\f!\210\305\207" [save-selected-window-alist elt #4=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window select-window] 4)) recenter -1 idlwave-shell-prompt-pattern end beg str idlwave-shell-examine-label idlwave-shell-output-overlay winlist thiswin list save-selected-window-alist save-selected-window-window elt] 6 (#$ . 89733)]) (defalias 'idlwave-shell-examine-display-quit #[nil "\301 \302 \203\303\304!!\202\305!)\207" [win selected-window one-window-p delete-frame window-frame delete-window] 3 nil nil]) (defalias 'idlwave-shell-examine-display-clear #[nil "\212\302\303!\304!\205q\210\305\306 \210\307\211*\207" [buf buffer-read-only get-buffer "*Examine*" bufferp nil erase-buffer t] 2 nil nil]) #@452 Return IDL command to print the expression EXPR from stack level LEVEL. It does not seem possible to evaluate an expression on a different level than the current. Therefore, this function retrieves variables by reference from other levels, and then includes that variable in place of the chosen one. Since this function depends upon the undocumented IDL routine routine_names, there is no guarantee that this will work with future versions of IDL. (defalias 'idlwave-retrieve-expression-from-level #[(expr level) "[\306\307\211\211\211\211\310\311 #\203\217\312\313 \"\313\225 \306\313\224O \313\225\307O\310\314\n\"\204\310\315\n\"\203H\310\316 \"\204\310\317 \"\204\310\320\n\"\204\310\321\n\"\204\310\322\n\"\203\310\323\312\324\n\"\325\312\324\n\"R \"\203\306\225\\\202\326\211 GZ\327\330 %\210\202\306\331\327 #\211\203\344\332\327 #\203\260\f\202\267\331\f\327 # \204\277 G\333\f \334 $\210 \306\fO\335\336 \f O# \307OQ \202\222\332\306\327 #\203\366\335\336 #  .\207" [level post pre fetch-end fetch-start var 0 nil string-match "\\(\\`\\|[^a-zA-Z0-9$_][ ]*\\)\\([a-zA-Z][a-zA-Z0-9$_]*\\)\\([ ]*[^a-zA-Z0-9$_]\\|\\'\\)" match-string 2 ",[ $\n]*/\\'" "[,(][ \n]*\\'" "\\`[ ]*=" "\\`(" "->[ ]*\\'" "\\.\\'" "\\([\"']\\)[^]*$" "^[^" 1 "]*" put-text-property fetch t next-single-property-change get-text-property remove-text-properties (fetch) format "(routine_names('%s',fetch=%d))" start expr] 7 (#$ . 92994)]) #@218 Construct a help statement for printing expression EXPR. HELP can be non-nil for `help,', nil for 'print,' or any string into which to insert expression in place of the marker ___, e.g.: print, size(___,/DIMENSIONS) (defalias 'idlwave-shell-help-statement #[(help expr) "\204\f\303 \304\305\n!R\207;\203%\306\307\"\205(\310\311\224O \311\225\312OQ\207\313 P\207" [help expr idlwave-shell-max-print-length "idlwave_print_safe, " "," number-to-string string-match "\\(^\\|[^_]\\)\\(___\\)\\([^_]\\|$\\)" 0 2 nil "help, "] 5 (#$ . 94516)]) #@39 Highlight the most recent IDL output. (defalias 'idlwave-shell-examine-highlight #[nil "\306\307 !\310!\211\205\302 !\311\211\212q\210\nb\210\312 \210`\313 \311\314#\210\312\315!\210`)\316\307 \311\317 #\210\205F\n\205F\320 \f$-\207" [buffer process process-mark output-begin output-end idlwave-shell-prompt-pattern get-buffer idlwave-shell-buffer get-buffer-process nil beginning-of-line re-search-backward t 2 idlwave-display-buffer idlwave-shell-shell-frame move-overlay idlwave-shell-output-overlay] 6 (#$ . 95068)]) (defalias 'idlwave-shell-delete-output-overlay #[nil "\301=\206 \302=?\205\303\304\305\217\210\306\307\310\"\207" [this-command idlwave-shell-mouse-nop handle-switch-frame nil (byte-code "\203\301!\210\301\207" [idlwave-shell-output-overlay delete-overlay] 2) ((error)) remove-hook pre-command-hook idlwave-shell-delete-output-overlay] 3]) (defalias 'idlwave-shell-delete-expression-overlay #[nil "\301=\206 \302=?\205\303\304\305\217\210\306\307\310\"\207" [this-command idlwave-shell-mouse-nop handle-switch-frame 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]) #@892 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 four 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'. condition - any condition to apply to the breakpoint. disabled - whether the bp is disabled (defvar idlwave-shell-bp-alist nil (#$ . 96324)) #@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\306\307\310!\311\"q\210\312\301!\210\313\312\302!\210\314\315 \210\316 \f#\210\212\317 \210\320\321!)\204.\322c\210\323\324!\210*\325\326 \327Q\330\331\332!\205@\333\330\334%\210 \205P\335\336 \330\337 #\207" [oldbuf comment-start-skip comment-start beg end idlwave-shell-temp-pro-file idlwave-find-file-noselect idlwave-shell-temp-file pro tmp make-local-variable ";+[ ]*" ";" erase-buffer insert-buffer-substring idlwave-previous-statement idlwave-look-at "\\" "\nend\n" save-buffer 0 idlwave-shell-send-command ".run \"" "\"" nil idlwave-shell-hide-p run mostly t idlwave-display-buffer idlwave-shell-buffer idlwave-shell-shell-frame n] 6 (#$ . 97271) "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 (#$ . 98502) "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 (#$ . 98932)]) (defalias 'idlwave-display-buffer #[(buf not-this-window-p &optional frame) "\304 \212\305 !\203\306 !\210\304 =\203\307\n!\202-\310 \203)\311\n!\210\312 \202-\307\n \"*\207" [this-frame frame buf not-this-window-p selected-frame frame-live-p select-frame display-buffer one-window-p switch-to-buffer selected-window] 3]) #@66 Scratch buffer for parsing IDL breakpoint lists and other stuff. (defvar idlwave-shell-bp-buffer " *idlwave-shell-bp*" (#$ . 99754)) #@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 #[(&optional no-show) "\302\303\304\305 DDD\306#\207" [idlwave-shell-bp-query no-show idlwave-shell-send-command progn idlwave-shell-filter-bp quote hide] 6 (#$ . 99894) nil]) #@322 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, 'condition, 'disabled, 'type, or 'data. 'data returns a list of 'count, 'cmd and 'condition. Defaults to 'index. (defalias 'idlwave-shell-bp-get #[(bp &optional item) "\303=\203 @A@\207\304=\203 @@\207\305=\203 AA\207\306=\203* AA@\207\307=\2036 AAA@\207\310=\203B\311 AA8\207\312=\203N\313 AA8\207\302=\203g A@A@\211<\203d\n@\202e\n)\207\314=\203} A@A@\211<\205{\nA@)\207 A@@\207" [item bp module line file data count cmd condition 2 disabled 3 type] 3 (#$ . 100224)]) #@223 Get the breakpoints from `idlwave-shell-command-output'. Create `idlwave-shell-bp-alist' updating breakpoint count and command data from previous breakpoint list. If NO-SHOW is set, don't update the breakpoint overlays. (defalias 'idlwave-shell-filter-bp #[(&optional no-show) "\212\306!q\210\307 \210 c\210eb\210\n\310\311\312\211\211\211\211\211\211\211\211 !\"#$%&'\312C\313\314\312\315#\203D&\316\211\204U\313\317\312\315#\203\301%\320\211\203\301\313\f\312\315#\203\301\321\322 @!!\"\322 A@!!\321\322\323 8!!#\324\322\325 8!!$\f%=\203\247\322\326!\203\217\327\202\232\322\330!\205\232\321\322\330!! \322\331!\322\332!??\n$#D\"!D \312 \257BC\244\210\202U\nA\f&=\203\324\333\334'\"\210\202\332\333\335'\"\210. (\204\344\336 \210\n\207" [idlwave-shell-bp-buffer idlwave-shell-command-output idlwave-shell-bp-alist indmap bp-re disabled get-buffer-create erase-buffer "^[ ]*\\([0-9]+\\)[ ]+\\(\\S-+\\)?[ ]+\\([0-9]+\\)[ ]+\\(\\S-+\\)" "^\\s-*\\([0-9]+\\)\\s-+\\([0-9]+\\)\\s-+\\(Uncompiled\\|\\(\\(Func=\\|Pro=\\)\\(\\$?[a-zA-Z][a-zA-Z0-9$_:]*\\$?\\)\\)\\)\\(\\s-*,\\s-*After=[0-9]+/\\([0-9]+\\)?\\)?\\(\\s-*,\\s-*\\(BreakOnce\\)\\)?\\(\\s-*,\\s-*\\(Condition='\\(.*\\)'\\)\n?\\)?\\(\\s-*,\\s-*\\(Disabled\\)\n?\\)?\\s-+\\(\\S-+\\)" nil re-search-forward "^\\s-*Index.*\n\\s-*-" t (1 2 3 4) "^\\s-*Index\\s-*Line\\s-*Attributes\\s-*File" (1 6 2 16) string-to-number match-string 2 idlwave-shell-file-name 3 10 1 8 13 15 mapcar idlwave-shell-update-bp idlwave-shell-update-bp-command-only idlwave-shell-update-bp-overlays condition count module index line file bp-re55 bp-re54 old-bp-alist no-show] 12 (#$ . 100935)]) (defalias 'idlwave-shell-update-bp-command-only #[(bp) "\301\302\"\207" [bp idlwave-shell-update-bp t] 3]) #@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 &optional command-only) "\304@ \"\211\205! \203\nAAA\nAAA@\240\202!\nAAA\241)\207" [bp idlwave-shell-bp-alist match command-only assoc] 4 (#$ . 102730)]) #@29 Set the data of BP to DATA. (defalias 'idlwave-shell-set-bp-data #[(bp data) "A \241\207" [bp data] 2 (#$ . 103045)]) #@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 (#$ . 103171)]) #@59 List of breakpoints previous to setting a new breakpoint. (defvar idlwave-shell-old-bp nil (#$ . 103563)) #@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\"\211\205\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 (#$ . 103676)]) #@354 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 than specified. If NO-SHOW is non-nil, don't do any updating. (defalias 'idlwave-shell-set-bp #[(bp &optional no-show) "\306\307\310\311 DD\312BB\313#\210\314\315\n\316\"\315\n\317\"\"\210\315\n\303\"\315\n\304\"\315\n\305\" \205E \247\205E \320U\203;\321\202E \320V\205E\322\323 \"\f\205M\324\f\325Q \205\\\f?\205\\ ?\205\\\326Q#\315\n\327\"\306\330\331\n!\332\250\205x\333!\211#\260\307\334\335\311\nDD\336\311\nD\311 DEED\337\340!\341\342%-\207" [idlwave-shell-bp-query no-show bp count condition disabled idlwave-shell-send-command progn idlwave-shell-filter-bp quote ((setq idlwave-shell-old-bp idlwave-shell-bp-alist)) hide idlwave-shell-module-source-query idlwave-shell-bp-get module type 1 ",/once" format ",after=%d" ",CONDITION=\"" "\"" ",/DISABLE" line "breakpoint,'" idlwave-shell-sources-bp "'," int-to-string if idlwave-shell-set-bp-check idlwave-shell-set-bp-adjust idlwave-shell-hide-p breakpoint preempt t key] 9 (#$ . 104114)]) #@60 Find the breakpoint in IDL's internal list of breakpoints. (defalias 'idlwave-shell-set-bp-adjust #[(bp &optional no-show) "\303\304\305\306\307 DD\310\307\nD\311BBF\312\313$\207" [idlwave-shell-bp-query bp no-show idlwave-shell-send-command progn (idlwave-shell-filter-bp 'no-show) idlwave-shell-new-bp quote unless ((idlwave-shell-update-bp-overlays)) hide preempt] 8 (#$ . 105383)]) #@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 (#$ . 105776)]) #@44 Find breakpoint here, or at halt location. (defalias 'idlwave-shell-find-current-bp #[nil "\301\302 !\211\204!\212\303 \210\304 \210\301\302 !)\204!\305 \210\306\307!\210)\207" [bp idlwave-shell-find-bp idlwave-shell-current-frame idlwave-shell-goto-frame idlwave-beginning-of-statement beep message "Cannot identify breakpoint for this line"] 3 (#$ . 105986)]) #@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 (#$ . 106361)]) #@39 Alist of overlays marking breakpoints (defvar idlwave-shell-bp-overlays nil (#$ . 107099)) (byte-code "\301B\302\301!\204\303\301\304 \"\210\305 \306\307#\207" [current-load-list idlwave-shell-debug-line-map default-boundp set-default make-sparse-keymap define-key [mouse-3] idlwave-shell-mouse-active-bp] 4) #@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\306 !\n\307>\205 \310\211\211\211\211\21145678\2119\203W9\211A9@\2115\203W5A@5\211AA\241\210\2116\203)\311\305\3126!\"\210\3136!\210\2026 9 \203h\314\315\314\316 \"\"\202k\317CC8\211A8@\211\203\321\212\320@!\210\321\210`:\322\321!\210`;\323\324\"\323\325\"\323\326\" \203\331\203\257\327\202\332\203\325\330X\203\277\317\202\332\331X\203\321\332\333\334!P!\202\332\335\202\332\317\202\332\317<\336\310\205\351\337\340!P\205\362\341P\205\370\342E\"=\343\340\323!!=\205\344\345\346=\347#P?\205?\205\350R>\2030\332\351#\210\3566;:#\210? \236\211A\203\205A6AAB\241\210\202\216 ?6DC\244\210.\f7\203\315 \203\236\336p \"\357\360!\203\257\360Cp\361B\"\210\202\271C\361W\203\271\361C\362p\330\"\211D\203\314\363DCE#\210))\202l7\205 \211A@\2114\205r4q\210\357\360!\203\367\360Cp\330B\"\210\202\372\330C\3624\330\"\211D\203\363DCE#\210*\202\326. \207" [idlwave-shell-mark-breakpoints idlwave-shell-bp-overlays idlwave-shell-bp-alist idlwave-shell-bp-glyph win old-buffers copy-alist (t glyph) nil add-to-list overlay-buffer delete-overlay mapcar list car bp idlwave-shell-goto-frame 1 beginning-of-line idlwave-shell-bp-get condition count disabled bp-cond 0 4 intern "bp-" number-to-string bp-n delq "after:" int-to-string "condition:" "disabled" "BP " " - " mapconcat identity ", " " (use mouse-3 for breakpoint actions)" symbol-name "-disabled" idlwave-shell-make-new-bp-overlay overlay-put help-echo move-overlay fboundp set-specifier 2 get-buffer-window set-window-margins buf ov-list ov use-glyph bp-list ov-alist end beg type help-list help-text full-type ov-existing match idlwave-shell-breakpoint-popup-menu left-margin-width window right-margin-width] 10 (#$ . 107419)]) #@208 Make a new overlay for highlighting breakpoints. This stuff is strongly dependant upon the version of Emacs. If TYPE is passed, make an overlay of that type ('bp or 'bp-cond, currently only for glyphs). (defalias 'idlwave-shell-make-new-bp-overlay #[(&optional type disabled) "\306\307\211\"\310>\205 \n\206\311 \203\f\202 \2034\312\313\314#\210\312\315#\210\203w\203l\n \236A\316 \203T\317\320\303D\"\321\322\323\324\325DD#\312\326#\210*\202\203\312\327#\210\202\203\203\203\312\327#\210,\207" [idlwave-shell-mark-breakpoints idlwave-shell-bp-glyph type disabled idlwave-shell-disabled-breakpoint-face idlwave-shell-breakpoint-face make-overlay 1 (t glyph) bp overlay-put mouse-face highlight keymap nil append :conversion propertize "@" display margin left-margin before-string face use-glyph ov idlwave-shell-breakpoint-popup-menu idlwave-shell-debug-line-map window-system string image-props] 5 (#$ . 109543)]) #@52 Does right-click mouse action on breakpoint lines. (defalias 'idlwave-shell-mouse-active-bp #[(ev) "\203\306!\210\307\310 !\311\211\211\211\211\211*\211+\204#\312\313!\210\314\315+!!*\315+\305\"\315+\302\"\315+\304\"\315+\301\"\316\317\311 \203O\320\202P\321\322\323 \203Z\324\202[\325 \205`\326\f\203h\327\202i\330\f\205n\331\257\"\332*P#\211\205\335 \323\230\203\206\333 \202\335 \322\230\203\221\334 \202\335\335\336 \"\203\256\337\f\n \203\246\335\340 \"\205\251\341\342! $\202\335\335\343 \"\203\315\337\f\203\301\335\340 \"\205\306\344\341\345!!\n $\202\335\335\346 \"\203\331\347 \202\335\350\351 \".\207" [ev disabled cmd select count condition mouse-set-point idlwave-shell-find-bp idlwave-shell-current-frame nil error "Breakpoint not found" int-to-string idlwave-shell-bp-get idlwave-popup-select delq "Enable" "Disable" "Clear" "Clear All" "Remove Condition" "Add Condition" "Change Condition" "Remove Repeat Count" "Add Repeat Count" "Change Repeat Count" "BreakPoint " idlwave-shell-clear-all-bp idlwave-shell-clear-current-bp string-match "Condition" idlwave-shell-break-here "Change" read-string "Break Condition: " "Count" string-to-number "Break After Count: " "able$" idlwave-shell-toggle-enable-current-bp message "Unimplemented: %s" index bp] 12 (#$ . 110530) "e"]) #@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 (#$ . 111874) "P"]) #@194 Execute a command line. On first use, ask for the command. Also with prefix arg, ask for the command. You can also use the command `idlwave-shell-edit-default-command-line' to edit the line. (defalias 'idlwave-shell-execute-default-command-line #[(arg) "\303\232\203 \304\202\305\232\203\306\307 \"\310\311!\210\312 \206)r\313 q\210\314\n\315\")\316\"\207" [arg idlwave-shell-command-line-to-execute comint-input-ring (16) nil (4) read-string "IDL> " idlwave-shell-reset hidden idlwave-shell-send-command idlwave-shell-buffer ring-ref 0 (idlwave-shell-redisplay 'hide)] 4 (#$ . 112079) "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 (#$ . 112690) 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 (#$ . 113032) 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 (#$ . 113388) 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 \203\307 \210\310\211\310\f\311=\203$\312 \210\313 \202? \203;\314 !\211\203?\212 q\210\312 \210)\202?\315\316!)\317 !\203\203\320!\321=\203R\322\202m!\323=\203]\324\202m!\325=\203h\326\202m\327\330!\"\331 \331R\332\310 E\333\321!\205|\334\310\335%\210\336 \207\337\340 \"\"\310\327\"!)\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 idlwave-shell-electric-debug-all-off 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-hide-p mostly t idlwave-shell-bp-query format "No such file %s" action msg] 7 (#$ . 113739)]) #@66 Update the routine info if the shell is not stopped at an error. (defalias 'idlwave-shell-maybe-update-routine-info #[(&optional wait file) "?\205 \306=\204\307 >\205\n\205 \205\310\306\311\f $\207" [idlwave-shell-is-stopped idlwave-auto-routine-info-updates idlwave-query-shell-for-routine-info idlwave-routines wait file t compile-buffer idlwave-shell-update-routine-info nil] 5 (#$ . 114889)]) #@61 IDL command to obtain source files for compiled procedures. (defvar idlwave-shell-sources-query "help,/source,/full" (#$ . 115303)) #@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 (#$ . 115442)) #@105 Determine the source file for a given module. Query as a function if TYPE set to something beside 'pro. (defalias 'idlwave-shell-module-source-query #[(module &optional type) "\205\302\303\304 \305=\203\306\202\307#\310D\311\312$\207" [module type idlwave-shell-send-command format "print,(routine_info('%s',/SOURCE%s)).PATH" pro "" ",/FUNCTIONS" idlwave-shell-module-source-filter hide wait] 6 (#$ . 115666)]) #@60 Get module source, and update idlwave-shell-sources-alist. (defalias 'idlwave-shell-module-source-filter #[(module) "\305\226 \"\306\307\310\f\"\2052\f\311\224\311\225O \203$ \312\n!\nD\241\2022\313 \226\312\n!\nDBC\"\211*\207" [module idlwave-shell-sources-alist filename old idlwave-shell-command-output assoc nil string-match ".PATH *[\n ]\\([^%][^ \n]+\\)[\n ]" 1 idlwave-shell-file-name append] 5 (#$ . 116092)]) #@120 Determine source files for all 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 (#$ . 116526) 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 (#$ . 116831)]) (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 (lambda (x) (idlwave-shell-clear-bp x 'no-query)) idlwave-shell-bp-alist) (idlwave-shell-bp-query)) hide] 4 (#$ . 117798) 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 (#$ . 118120) nil]) #@64 Position of last syntax error in `idlwave-shell-error-buffer'. (defvar idlwave-shell-error-last 0 (#$ . 118285)) #@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)`) \203Q\322 \323#\202W\324 \210\325\326!*\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 ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) idlwave-shell-file-name 1 string-to-number 2 re-search-backward "\\^" 0 idlwave-shell-display-line disable beep message "No more errors." save-match-data-internal] 4 (#$ . 118404) 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 (#$ . 119141)]) #@26 Keymap for idlwave-mode. (defvar idlwave-shell-mode-map (copy-keymap comint-mode-map) (#$ . 119537)) (byte-code "\303B\304\303!\204\305\303\306 \"\210\301B\304\301!\204 \305\301\306 \"\210\301 M\210\302B\304\302!\2044\305\302\306 \"\210\302\nM\207" [current-load-list idlwave-shell-mode-prefix-map idlwave-mode-prefix-map idlwave-shell-electric-debug-mode-map default-boundp set-default make-sparse-keymap] 3) #@54 Define a key in both the shell and buffer mode maps. (defalias 'idlwave-shell-define-key-both #[(key hook) "\304 \n#\210\304 \n#\207" [idlwave-mode-map key hook idlwave-shell-mode-map define-key] 4 (#$ . 119963)]) (byte-code "\303\304\305#\210\303\306\307#\210\303\310\307#\210\303\311\312#\210\303\313\314#\210\303\315\316#\210\303\317\320#\210\303\321\322#\210\303\323\324#\210\303\325\326#\210\303\327\330#\210\303\331\332#\210\303\333\334#\210\303\335\336#\210\303 \337#\210\303\340\341#\210\303\342\343#\210\303\n\325\326#\210\303\n\327\330#\210\344\345\346\"\210\344\347\350\"\210\344\351\352\"\210\303\353\354#\207" [idlwave-shell-mode-map idlwave-shell-prefix-key idlwave-mode-map define-key "" comint-kill-region " " idlwave-shell-complete "\211" "" idlwave-shell "?" idlwave-routine-info "" idlwave-keyboard-quit "\277" idlwave-context-help [(control meta 63)] idlwave-help-assistant-help-with-topic " " 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 idlwave-shell-define-key-both [(shift down-mouse-2)] idlwave-shell-mouse-print [(control meta down-mouse-2)] idlwave-shell-mouse-help [(control shift down-mouse-2)] idlwave-shell-examine-select [(shift mouse-3)] idlwave-mouse-context-help] 4) (defalias 'idlwave-shell-mouse-nop #[(event) "\300\207" [nil] 1 nil "e"]) (byte-code "\306\307\310\"\210\306\311\310\"\210\306\312\310\"\210\313 \203$ <\203$ \314\232\204$ \202)\n\205)\315\304 >\316\304\317 !\"\314\211-.\314\211/0\314\21112\314\21134\211A@\211-\203-@.-A@/\320-81\321-82\322-83\f\205\205\323/!\205\205/\211\226=45\203\250.\203\2503\204\237\3246.1#\210\3247.1#\210 \203\3658\203\365\325/!\203\317\326\327 \f\203\305/\226\202\307/C\"!0\202\331\326\327 /C\"!04\204\365\324901#\2103\204\365\324:01#\2102\203M\325/!\203M\324;\330/!1#\210\202M.\f\324;\331\332#\210\324;\333\334#\210\324;\335\334#\210\324;\336\337#\210\324;\340\337#\210\324;\341\342#\210\324;\343\344#\210\324;\345\346#\210\324;\347\350#\210\324;\351\352#\210\3537M\210\3546M\207" [specs idlwave-shell-debug-modifiers idlwave-shell-activate-alt-keybindings mod shift mod-noshift idlwave-shell-define-key-both [(shift mouse-2)] idlwave-shell-mouse-nop [(shift control mouse-2)] [(control meta mouse-2)] (([(control 98)] 98 idlwave-shell-break-here t t) ([(control 105)] 105 idlwave-shell-break-in t t) ([(control 106)] 106 idlwave-shell-break-this-module t t) ([(control 100)] 100 idlwave-shell-clear-current-bp t) ([(control 97)] 97 idlwave-shell-clear-all-bp t) ([(control 92)] 92 idlwave-shell-toggle-enable-current-bp t) ([(control 115)] 115 idlwave-shell-step t) ([(control 110)] 110 idlwave-shell-stepover t) ([(control 107)] 107 idlwave-shell-skip t) ([(control 117)] 117 idlwave-shell-up t) ([(control 111)] 111 idlwave-shell-out t) ([(control 109)] 109 idlwave-shell-return t) ([(control 104)] 104 idlwave-shell-to-here t t) ([(control 114)] 114 idlwave-shell-cont t) ([(control 121)] 121 idlwave-shell-execute-default-command-line) ([(control 122)] 122 idlwave-shell-reset t) ([(control 113)] 113 idlwave-shell-quit) ([(control 112)] 112 idlwave-shell-print t) ([(63)] 63 idlwave-shell-help-expression t) ([(control 118)] 118 idlwave-shell-toggle-electric-debug-mode t t) ([(control 120)] 120 idlwave-shell-goto-next-error) ([(control 99)] 99 idlwave-shell-save-and-run t) ([(64)] 64 idlwave-shell-save-and-batch) ([(control 101)] 101 idlwave-shell-run-region) ([(control 119)] 119 idlwave-shell-resync-dirs) ([(control 108)] 108 idlwave-shell-redisplay t) ([(control 116)] 116 idlwave-shell-toggle-toolbar) ([(control up)] up idlwave-shell-stack-up) ([(control down)] down idlwave-shell-stack-down) ([(91)] 91 idlwave-shell-goto-previous-bp t t) ([(93)] 93 idlwave-shell-goto-next-bp t t) ([(control 102)] 102 idlwave-shell-window)) nil (alt) delete copy-sequence 2 3 4 char-valid-p define-key char-or-string-p vector append char-to-string " " idlwave-shell-step "+" idlwave-shell-stack-up "=" "-" idlwave-shell-stack-down "_" "e" (lambda nil (interactive) (idlwave-shell-print '(16))) "q" idlwave-shell-retall "t" (lambda nil (interactive) (idlwave-shell-send-command "help,/TRACE")) [(control 63)] idlwave-shell-electric-debug-help "x" (lambda (arg) (interactive "P") (idlwave-shell-print arg nil nil t)) idlwave-debug-map idlwave-shell-debug-map s k1 c2 k2 cmd electric only-buffer cannotshift idlwave-shell-activate-prefix-keybindings idlwave-shell-mode-prefix-map idlwave-mode-prefix-map window-system idlwave-mode-map idlwave-shell-mode-map idlwave-shell-electric-debug-mode-map] 5) #@75 Toggle electric-debug-mode, suppressing re-entry into mode if turned off. (defalias 'idlwave-shell-toggle-electric-debug-mode #[nil "\203\n\302\300\303!\207\304\300\302!\207" [idlwave-shell-electric-debug-mode idlwave-shell-suppress-electric-debug t 0 nil] 2 (#$ . 124792) nil]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list idlwave-shell-electric-debug-buffers default-boundp set-default nil] 3) #@135 Non-nil if Idlwave-Shell-Electric-Debug mode is enabled. Use the command `idlwave-shell-electric-debug-mode' to change this variable. (defvar idlwave-shell-electric-debug-mode nil (#$ . 125235)) (make-variable-buffer-local 'idlwave-shell-electric-debug-mode) #@269 Toggle Electric Debug mode. With no argument, this command toggles the mode. Non-null prefix argument turns on the mode. Null prefix argument turns off the mode. When Electric Debug mode is enabled, the many debugging commands are available as single key sequences. (defalias 'idlwave-shell-electric-debug-mode #[(&optional arg) "\302=\203 ?\202%\203\303!\304V\202% \204\305\202%\306\307\301\"\210\310\311\312 \2030\313\2021\314\"\210\315 \203E\306\316 \203B\317\202C\320\"\210\321 \210 \207" [arg idlwave-shell-electric-debug-mode toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil run-hooks idlwave-shell-electric-debug-mode-hook idlwave-shell-electric-debug-mode-on-hook idlwave-shell-electric-debug-mode-off-hook called-interactively-p "Idlwave-Shell-Electric-Debug mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 125501) (list (or current-prefix-arg 'toggle))]) (byte-code "\302\303\304#\210\305\306\307\"\210\305\310\311\"\210\312\303\313\314\315$\210\316\303\315\"\210\317 B\320\317!\204+\321\317\315\"\210\315\207" [idlwave-shell-electric-debug-mode-map current-load-list add-minor-mode idlwave-shell-electric-debug-mode " *Debugging*" add-hook idlwave-shell-electric-debug-mode-on-hook #[nil "\305\301!\210\306\307\310p\"\210\n\203\311\n\312 #\210\313\314!\205#\315\314\f\316 #\207" [buffer-read-only idlwave-shell-electric-debug-read-only idlwave-shell-stop-line-overlay idlwave-shell-electric-stop-line-face idlwave-shell-electric-stop-color make-local-variable t add-to-list idlwave-shell-electric-debug-buffers overlay-put face facep fringe set-face-foreground selected-frame] 4] idlwave-shell-electric-debug-mode-off-hook #[nil "\305\300!\205\306p\n\" \203\307 \310\f#\207\311\312!\205#\313\312\314\315!\"\207" [idlwave-shell-electric-debug-read-only buffer-read-only idlwave-shell-electric-debug-buffers idlwave-shell-stop-line-overlay idlwave-shell-stop-line-face boundp delq overlay-put face facep fringe set-face-foreground face-foreground default] 4] ad-add-advice (print-enter nil t (advice lambda nil "Print out an entrance message" (when idlwave-shell-electric-debug-mode (message "Electric Debugging mode entered. Press [C-?] for help, [q] to quit")) (force-mode-line-update))) after nil ad-activate idlwave-shell-electric-debug-buffers default-boundp set-default] 5) (defalias 'idlwave-shell-electric-debug-all-off #[nil "\306 \306\212 \211A@\211\2030\307\n!\203\nq\210\f\310=\203 \203 \203\311\312!\210\202+\306\211\207" [idlwave-shell-suppress-electric-debug idlwave-shell-electric-debug-buffers buf buffers major-mode buffer-file-name nil buffer-live-p idlwave-mode idlwave-shell-electric-debug-mode 0] 2]) (defalias 'idlwave-shell-electric-debug-help #[nil "\304\220\305!\221\210\306 \307\304!\310\n!\311\n!\210\312\313\314d\" ZT!\210\311 !+\207" [idlwave-shell-electric-debug-help current-window window window-lines "*IDLWAVE Electric Debug Help*" princ selected-window get-buffer-window window-height select-window enlarge-window count-lines 1] 4 nil nil]) (byte-code "\303B\305\303!\204-\306\303\307\310\311\312\313\314\315\316\317\320\321\322 \"B\323\321\324 \"B\257\325BBBBBBB\"\210\326\327!\204:\330\331\332\"\203z\333B\334\333\335\336#\210\305\333!\204O\306\333\337\"\210\340\333\n\336 $\210\341B\334\341\335\342#\210\305\341!\204k\306\341\337\"\210\340\341\f\342 $\210\212\321\343\344 \"\210)\337\207" [current-load-list idlwave-shell-examine-alist idlwave-mode-map idlwave-shell-menu-def idlwave-shell-mode-map default-boundp set-default "Debug" ["Electric Debug Mode" idlwave-shell-electric-debug-mode :style toggle :selected idlwave-shell-electric-debug-mode :included (eq major-mode 'idlwave-mode) :keys "C-c C-d C-v"] "--" ("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] "--" ["Compile and Run Region" idlwave-shell-run-region (eq major-mode 'idlwave-mode)] ["Evaluate Region" idlwave-shell-evaluate-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 :keys "C-c C-d C-b" :active (eq major-mode 'idlwave-mode)] ("Set Special Breakpoint" ["Set After Count Breakpoint" (progn (let ((count (string-to-number (read-string "Break after count: ")))) (if (integerp count) (idlwave-shell-break-here count)))) :active (eq major-mode 'idlwave-mode)] ["Set Condition Breakpoint" (idlwave-shell-break-here '(4)) :active (eq major-mode 'idlwave-mode)]) ["Break in Module" idlwave-shell-break-in :keys "C-c C-d C-i" :active (eq major-mode 'idlwave-mode)] ["Break in this Module" idlwave-shell-break-this-module :keys "C-c C-d C-j" :active (eq major-mode 'idlwave-mode)] ["Clear Breakpoint" idlwave-shell-clear-current-bp t] ["Clear All Breakpoints" idlwave-shell-clear-all-bp t] ["Disable/Enable Breakpoint" idlwave-shell-toggle-enable-current-bp t] ["Goto Previous Breakpoint" idlwave-shell-goto-previous-bp :keys "C-c C-d [" :active (eq major-mode 'idlwave-mode)] ["Goto Next Breakpoint" idlwave-shell-goto-next-bp :keys "C-c C-d ]" :active (eq major-mode 'idlwave-mode)] ["List All Breakpoints" idlwave-shell-list-all-bp t] ["Resync Breakpoints" idlwave-shell-bp-query 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 :keys "C-c C-d C-h" :active (eq major-mode 'idlwave-mode)]) "Examine Expressions" ["Print expression" idlwave-shell-print t] ["Help on expression" idlwave-shell-help-expression t] "Examine nearby expression with" mapcar #[(x) "\301\302@\303\304\305DE\306BB\"\207" [x apply vector idlwave-shell-print nil quote (t)] 7] "Examine region with" #[(x) "\301\302@\303\304\305DE\306BB\"\207" [x apply vector idlwave-shell-print '(4) quote (t)] 7] (("Call Stack" ["Stack Up" idlwave-shell-stack-up t] ["Stack Down" idlwave-shell-stack-down t] "--" ["Redisplay and Sync" idlwave-shell-redisplay t]) ("Show Commands" ["Everything" (if (eq idlwave-shell-show-commands 'everything) (progn (setq idlwave-shell-show-commands (get 'idlwave-shell-show-commands 'last-val)) (put 'idlwave-shell-show-commands 'last-val nil)) (put 'idlwave-shell-show-commands 'last-val idlwave-shell-show-commands) (setq idlwave-shell-show-commands 'everything)) :style toggle :selected (and (not (listp idlwave-shell-show-commands)) (eq idlwave-shell-show-commands 'everything))] "--" ["Compiling Commands" (idlwave-shell-add-or-remove-show 'run) :style toggle :selected (not (idlwave-shell-hide-p 'run (get 'idlwave-shell-show-commands 'last-val))) :active (not (eq idlwave-shell-show-commands 'everything))] ["Breakpoint Commands" (idlwave-shell-add-or-remove-show 'breakpoint) :style toggle :selected (not (idlwave-shell-hide-p 'breakpoint (get 'idlwave-shell-show-commands 'last-val))) :active (not (eq idlwave-shell-show-commands 'everything))] ["Debug Commands" (idlwave-shell-add-or-remove-show 'debug) :style toggle :selected (not (idlwave-shell-hide-p 'debug (get 'idlwave-shell-show-commands 'last-val))) :active (not (eq idlwave-shell-show-commands 'everything))] ["Miscellaneous Commands" (idlwave-shell-add-or-remove-show 'misc) :style toggle :selected (not (idlwave-shell-hide-p 'misc (get 'idlwave-shell-show-commands 'last-val))) :active (not (eq idlwave-shell-show-commands 'everything))]) ("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] ["Save Path Info" (idlwave-shell-send-command idlwave-shell-path-query 'idlwave-shell-get-path-info 'hide) t] ["Reset IDL" idlwave-shell-reset t] "--" ["Toggle Toolbar" idlwave-shell-toggle-toolbar t] ["Exit IDL" idlwave-shell-quit t]) featurep easymenu load "easymenu" t idlwave-mode-debug-menu put variable-documentation "IDL debugging menus" nil easy-menu-do-define idlwave-shell-mode-menu "IDL shell menus" #[(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] 16) #@57 The glyphs to mark breakpoint lines in the source code. (defvar idlwave-shell-bp-glyph nil (#$ . 134471)) (byte-code "\304\305\211\n\211A@\211\2039\306\307!\203)\307\310!\203)\311\312\310\313 A\314\315\257\202*\305\211\203 @B B\202+\316\317!\210\316\320!\207" [im im-cons image-alist idlwave-shell-bp-glyph ((bp . "/* XPM */\nstatic char * file[] = {\n\"14 12 3 1\",\n\" c None 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\" \"};") (bp-cond . "/* XPM */\nstatic char * file[] = {\n\"14 12 4 1\",\n\" c None s backgroundColor\",\n\". c #4B4B4B4B4B4B\",\n\"R c #FFFF00000000\",\n\"B c #000000000000\",\n\" \",\n\" .... \",\n\" .RRRR. \",\n\" .RRRRRR. \",\n\" .RRRRRRRR. \",\n\" .RRBBBBRR. \",\n\" .RRRRRRRR. \",\n\" .RRBBBBRR. \",\n\" .RRRRRR. \",\n\" .RRRR. \",\n\" .... \",\n\" \"};") (bp-1 . "/* XPM */\nstatic char * file[] = {\n\"14 12 4 1\",\n\" c None s backgroundColor\",\n\". c #4B4B4B4B4B4B\",\n\"X c #FFFF00000000\",\n\"o c #000000000000\",\n\" \",\n\" .... \",\n\" .XXXX. \",\n\" .XXooXX. \",\n\" .XXoooXXX. \",\n\" .XXXooXXX. \",\n\" .XXXooXXX. \",\n\" .XXooooXX. \",\n\" .XooooX. \",\n\" .XXXX. \",\n\" .... \",\n\" \"};") (bp-2 . "/* XPM */\nstatic char * file[] = {\n\"14 12 4 1\",\n\" c None s backgroundColor\",\n\". c #4B4B4B4B4B4B\",\n\"X c #FFFF00000000\",\n\"o c #000000000000\",\n\" \",\n\" .... \",\n\" .XXXX. \",\n\" .XoooXX. \",\n\" .XXoXooXX. \",\n\" .XXXXooXX. \",\n\" .XXXooXXX. \",\n\" .XXooXXXX. \",\n\" .XooooX. \",\n\" .XXXX. \",\n\" .... \",\n\" \"};") (bp-3 . "/* XPM */\nstatic char * file[] = {\n\"14 12 4 1\",\n\" c None s backgroundColor\",\n\". c #4B4B4B4B4B4B\",\n\"X c #FFFF00000000\",\n\"o c #000000000000\",\n\" \",\n\" .... \",\n\" .XXXX. \",\n\" .XoooXX. \",\n\" .XXXXooXX. \",\n\" .XXXooXXX. \",\n\" .XXXXooXX. \",\n\" .XXoXooXX. \",\n\" .XoooXX. \",\n\" .XXXX. \",\n\" .... \",\n\" \"};") (bp-4 . "/* XPM */\nstatic char * file[] = {\n\"14 12 4 1\",\n\" c None s backgroundColor\",\n\". c #4B4B4B4B4B4B\",\n\"X c #FFFF00000000\",\n\"o c #000000000000\",\n\" \",\n\" .... \",\n\" .XXXX. \",\n\" .XoXXoX. \",\n\" .XXoXXoXX. \",\n\" .XXooooXX. \",\n\" .XXXXooXX. \",\n\" .XXXXooXX. \",\n\" .XXXooX. \",\n\" .XXXX. \",\n\" .... \",\n\" \"};") (bp-n . "/* XPM */\nstatic char * file[] = {\n\"14 12 4 1\",\n\" c None s backgroundColor\",\n\". c #4B4B4B4B4B4B\",\n\"X c #FFFF00000000\",\n\"o c #000000000000\",\n\" \",\n\" .... \",\n\" .XXXX. \",\n\" .XXXXXX. \",\n\" .XXoXoXXX. \",\n\" .XXooXoXX. \",\n\" .XXoXXoXX. \",\n\" .XXoXXoXX. \",\n\" .XoXXoX. \",\n\" .XXXX. \",\n\" .... \",\n\" \"};")) nil fboundp image-type-available-p xpm image :type :data :ascent center provide idlw-shell idlwave-shell] 8) #@28 Toggle the IDLWAVE toolbar (autoload 'idlwave-toolbar-toggle "idlw-toolbar" '(#$ . 137900)) #@21 Add IDLWAVE toolbar (autoload 'idlwave-toolbar-add-everywhere "idlw-toolbar" '(#$ . 137998)) #@46 Toggle the display of the debugging toolbar. (defalias 'idlwave-shell-toggle-toolbar #[nil "\300 \207" [idlwave-toolbar-toggle] 1 (#$ . 138097) 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)