Current File : //usr/local/share/emacs/27.2/lisp/progmodes/idlw-shell.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require comint idlwave] 2)
(defvar idlwave-shell-have-new-custom nil)
(byte-code "\301\302\303\304\305\306\307\310&\210\311\312\313\314\315DD\316\307\302\317\320&\210\311\321\313\314\322DD\323\307\302\317\324&\210\311\325\313\314\326DD\327\307\302\317\330&\210\311\331\313\314\332DD\333\307\302\317\330&\210\311\334\313\314\335DD\336\307\302\317\337&\210\311\340\313\314\341DD\342\307\302\317\330&\210\311\343\313\314\344DD\345\307\302\317\346&\210\311\347\313\314\350DD\351\307\302\317\330&\210\311\352\313\314\353DD\354\307\302\317\324&\210\311\355\313\314\356DD\357\307\302\317\324&\210\311\360\313\314\361DD\362\307\302\317\330&\210\311\363\313\314\364DD\365\307\302\317\366&\210\311\367\313\314\370DD\371\307\302\317\330&\210\311\372\313\314\373DD\374\307\302\317\330&\210\311\375\313\314\376DD\377\307\302\317\324&\210\311\201@ \313\314\201A DD\201B \307\302\317\201C &\210\311\201D \313\314\201E DD\201F \307\302\317\201G &\210\301\201H \303\201I \305\306\307\310&\210\311\201J \313\314\201K DD\201L \307\201H \317\324&\210\311\201M \313\314\201N DD\201O \307\201H \317\330&\210\311\201P \313\314\201Q DD\201R \307\201H \317\201S &\210\311\201T \313\314\201U DD\201V \307\201H \317\201W &\210\311\201X \313\314\201Y DD\201Z \307\201H \317\201[ &\210\311\201\\ \313\314\201] DD\201^ \307\201H \317\201_ &\210\311\201` \313\314\201a DD\201b \307\201H \317\330&\210\311\201c \313\314\201d DD\201e \307\201H \317\201f &\210\311\201g \313\314\201h DD\201i \307\201H \317\330&\210\311\201j \313\314\201k DD\201l \307\201H \317\330&\210\311\201m \313\314\201n DD\201o \307\201H \317\201p &\210\311\201q \313\314\201r DD\201s \307\201H \317\330&\210\311\201t \313\314\201u DD\201v \307\201H \317\330&\210\301\201w \303\201x \305\306\307\310&\210\311\201y \313\314\201z DD\201{ \307\201w \317\201| &\210\311\201} \313\314\201~ DD\201 \307\201w \317\324&\210\311\201\200 \313\314\201\201 DD\201\202 \307\201w \317\201\203 &\210\311\201\204 \313\314\201\205 DD\201\206 \307\201w \317\324&\210\311\201\207 \313\314\201\210 DD\201\211 \307\201w \317\201\203 &\210\311\201\212 \313\314\201\213 DD\201\214 \307\201w \317\201\215 &\210\311\201\216 \313\314\201\217 DD\201\220 \307\201w \317\201\203 &\210\204,\201\221 \201\222 \201\223 \"\210\202>\201\224 \201\223 \201\225 \201\226 \307\201w %\210\311\201\227 \313\314\201\230 DD\201\231 \307\201w \317\201\203 &\210\204i\201\221 \201\222 \201\232 \"\210\202{\201\224 \201\232 \201\233 \201\226 \307\201w %\210\311\201\234 \313\314\201\235 DD\201\236 \307\201w \317\201\203 &\210\311\201\237 \313\314\201\240 DD\201\241 \307\201w \317\201\203 &\207" [idlwave-shell-have-new-custom custom-declare-group idlwave-shell-general-setup nil "General setup of the Shell interaction for IDLWAVE/Shell." :prefix "idlwave-shell" :group idlwave custom-declare-variable idlwave-shell-prompt-pattern funcall function #[0 "\300\207" [#1="^
? ?IDL> "] 1 #1#] "Regexp to match IDL prompt at beginning of a line.\nFor example, \"^
?IDL> \" or \"^
?WAVE> \".\nThe \"^
?\" is needed, to indicate the beginning of the line, with\noptional return character (which IDL seems to output randomly).\nThis variable is used to initialize `comint-prompt-regexp' in the\nprocess buffer." :type regexp idlwave-shell-process-name #[0 "\300\207" [#2="idl"] 1 #2#] "Name to be associated with the IDL process. The buffer for the\nprocess output is made by surrounding this name with `*'s." string idlwave-shell-use-dedicated-window #[0 "\300\207" [nil] 1] "Non-nil means, never replace the shell frame with another buffer." boolean idlwave-shell-use-dedicated-frame #[0 "\300\207" [nil] 1] "Non-nil means, IDLWAVE should use a special frame to display shell buffer." idlwave-shell-frame-parameters #[0 "\300\207" [((height . 30) (unsplittable))] 1] "The frame parameters for a dedicated idlwave-shell frame.\nSee also `idlwave-shell-use-dedicated-frame'.\nThe default makes the frame splittable, so that completion works correctly." (repeat (cons symbol sexp)) idlwave-shell-raise-frame #[0 "\300\207" [t] 1] "Non-nil means, `idlwave-shell' raises the frame showing the shell window." idlwave-shell-arrows-do-history #[0 "\300\207" [t] 1] "Non-nil means UP and DOWN arrows move through command history.\nThis variable can have 3 values:\nnil Arrows just move the cursor\nt Arrows force the cursor back to the current command line and\n walk the history\n`cmdline' When the cursor is in the current command line, arrows walk the\n history. Everywhere else in the buffer, arrows move the cursor." (choice (const :tag "never" nil) (const :tag "everywhere" t) (const :tag "in command line only" cmdline)) idlwave-shell-use-toolbar #[0 "\300\207" [t] 1] "Non-nil means, use the debugging toolbar in all IDL related buffers.\nStarting the shell will then add the toolbar to all idlwave-mode buffers.\nExiting the shell will removed everywhere.\nAvailable on XEmacs and on Emacs 21.x or later.\nAt any time you can toggle the display of the toolbar with\n`C-c C-d C-t' (`idlwave-shell-toggle-toolbar')." idlwave-shell-temp-pro-prefix #[0 "\300\207" [#3="/tmp/idltemp"] 1 #3#] "The prefix for temporary IDL files used when compiling regions.\nIt should be an absolute pathname.\nThe full temporary file name is obtained by using `make-temp-file'\nso that the name will be unique among multiple Emacs processes." idlwave-shell-prefix-key #[0 "\300\207" [#4=""] 1 #4#] "The prefix key for the debugging map `idlwave-shell-mode-prefix-map'.\nThis variable must already be set when idlwave-shell.el is loaded.\nSetting it in the mode-hook is too late." idlwave-shell-activate-prefix-keybindings #[0 "\300\207" [t] 1] "Non-nil means, the debug commands will be bound to the prefix key.\nThe prefix key itself is given in the option `idlwave-shell-prefix-key'.\nSo by default setting a breakpoint will be on C-c C-d C-b." idlwave-shell-automatic-electric-debug #[0 "\300\207" [breakpoint] 1] "Enter the electric-debug minor mode automatically.\nThis occurs at a breakpoint or any other halt. The mode is exited\nupon return to the main level. Can be set to `breakpoint' to enter\nelectric debug mode only when breakpoints are tripped." (choice (const :tag "never" nil) (const :tag "always" t) (const :tag "for breakpoints only" breakpoint)) idlwave-shell-electric-zap-to-file #[0 "\300\207" [t] 1] "When entering electric debug mode, select the window displaying the\nfile at which point is stopped. This takes point away from the shell\nwindow, but is useful for stepping, etc." idlwave-shell-use-truename #[0 "\300\207" [nil] 1] "Non-nil means, use `file-truename' when looking for buffers.\nIf this variable is non-nil, Emacs will use the function `file-truename' to\nresolve symbolic links in the file paths printed by e.g., STOP commands.\nThis means, unvisited files will be loaded under their truename.\nHowever, when a file is already visited under a different name, IDLWAVE will\nreuse that buffer.\nThis option was once introduced in order to avoid multiple buffers visiting\nthe same file. However, IDLWAVE no longer makes this mistake, so it is safe\nto set this option to nil." idlwave-shell-file-name-chars #[0 "\300\207" [#5="~/A-Za-z0-9+:_.$#%={}\\- "] 1 #5#] "The characters allowed in file names, as a string.\nUsed for file name completion. Must not contain `\\='', `,' and `\"'\nbecause these are used as separators by IDL." idlwave-shell-mode-hook #[0 "\300\207" [nil] 1] "Hook for customizing `idlwave-shell-mode'." hook idlwave-shell-graphics-window-size #[0 "\300\207" [(500 400)] 1] "Size of IDL graphics windows popped up by special IDLWAVE command.\nThe command is `C-c C-d C-f' and accepts as a prefix the window nr.\nA command like `WINDOW,N,xsize=XX,ysize=YY' is sent to IDL." (list (integer :tag "x size") (integer :tag "y size")) idlwave-shell-command-setup "Setup for command parameters of the Shell interaction for IDLWAVE." idlwave-shell-initial-commands #[0 "\300\207" [#6="!more=0 & defsysv,'!ERROR_STATE',EXISTS=__e & if __e then begin & !ERROR_STATE.MSG_PREFIX=\"% \" & delvar,__e & endif"] 1 #6#] "Initial commands, separated by newlines, to send to IDL.\nThis string is sent to the IDL process by `idlwave-shell-mode' which is\ninvoked by `idlwave-shell'." idlwave-shell-save-command-history #[0 "\300\207" [t] 1] "Non-nil means preserve command history between sessions.\nThe file `idlwave-shell-command-history-file' is used to save and restore\nthe history." idlwave-shell-command-history-file #[0 "\300\207" [#7="idlwhist"] 1 #7#] "The file in which the command history of the idlwave shell is saved.\nIn order to change the size of the history, see the variable\n`comint-input-ring-size'.\nThe history is only saved if the variable `idlwave-shell-save-command-history'\nis non-nil." file idlwave-shell-show-commands #[0 "\300\207" [(run misc breakpoint)] 1] "A list of command types to show output from in the shell.\nPossibilities are `run', `debug', `breakpoint', and `misc'. Unselected\ntypes are not displayed in the shell. The type `everything' causes all\nthe copious shell traffic to be displayed." (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))) idlwave-shell-max-print-length #[0 "\300\207" [200] 1] "Maximum number of array elements to print when examining." integer idlwave-shell-examine-alist #[0 "\301\302\303!PB\304B\207" [idlwave-shell-max-print-length "Print" "idlwave_print_safe,___," number-to-string (("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)"))] 4] "Alist of special examine commands for popup selection.\nThe keys are used in the selection popup created by\n`idlwave-shell-examine-select', and the corresponding value is sent as\na command to the shell, with special sequence `___' replaced by the\nexpression being examined." (repeat (cons (string :tag "Label ") (string :tag "Command"))) idlwave-shell-separate-examine-output #[0 "\300\207" [t] 1] "Non-nil means, put output of examine commands in their own buffer." idlwave-shell-comint-settings #[0 "\300\207" [((comint-scroll-to-bottom-on-input . t) (comint-scroll-to-bottom-on-output . t) (comint-scroll-show-maximum-output) (comint-prompt-read-only . t))] 1] "Alist of special settings for the comint variables in the IDLWAVE Shell.\nEach entry is a cons cell with the name of a variable and a value.\nThe function `idlwave-shell-mode' will make local variables out of each entry.\nChanges to this variable will only be active when the shell buffer is\nnewly created." (repeat (cons variable sexp)) idlwave-shell-query-for-class #[0 "\300\207" [t] 1] "Non-nil means query the shell for object class on object completions." idlwave-shell-use-input-mode-magic #[0 "\300\207" [nil] 1] "Non-nil means, IDLWAVE should check for input mode spells in output.\nThe spells are strings printed by your IDL program and matched\nby the regular expressions in `idlwave-shell-input-mode-spells'.\nWhen these expressions match, IDLWAVE switches to character input mode and\nback, respectively. See `idlwave-shell-input-mode-spells' for details." idlwave-shell-input-mode-spells #[0 "\300\207" [("^<onechar>$" "^<chars>$" "^</chars>$")] 1] "The three regular expressions which match the magic spells for input modes.\n\nWhen the first regexp matches in the output stream of IDL, IDLWAVE\nprompts for a single character and sends it immediately to IDL, similar\nto the command \\[idlwave-shell-send-char].\n\nWhen the second regexp matches, IDLWAVE switches to a blocking\nsingle-character input mode. This is the same mode which can be entered\nmanually with \\[idlwave-shell-char-mode-loop].\nThis input mode exits when the third regexp matches in the output,\nor when the IDL prompt is encountered.\n\nThe variable `idlwave-shell-use-input-mode-magic' must be non-nil to enable\nscanning for these expressions. If the IDL program produces lots of\noutput, shell operation may be slowed down.\n\nThis mechanism is useful for correct interaction with the IDL function\nGET_KBRD, because in normal operation IDLWAVE only sends \\n terminated\nstrings. Here is some example code which makes use of the default spells.\n\n print,\\='<chars>\\=' ; Make IDLWAVE switch to character mode\n REPEAT BEGIN\n A = GET_KBRD(1)\n PRINT, BYTE(A)\n ENDREP UNTIL A EQ \\='q\\='\n print,\\='</chars>\\=' ; Make IDLWAVE switch back to line mode\n\n print,\\='Quit the program, y or n?\\='\n print,\\='<onechar>\\=' ; Ask IDLWAVE to send one character\n answer = GET_KBRD(1)\n\nSince the IDLWAVE shell defines the system variable `!IDLWAVE_VERSION',\nyou could actually check if you are running under Emacs before printing\nthe magic strings. Here is a procedure which uses this.\n\nUsage:\n======\nidlwave_char_input ; Make IDLWAVE send one character\nidlwave_char_input,/on ; Start the loop to send characters\nidlwave_char_input,/off ; End the loop to send characters\n\n\npro idlwave_char_input,on=on,off=off\n ;; Test if we are running under Emacs\n defsysv,\\='!idlwave_version\\=',exists=running_emacs\n if running_emacs then begin\n if keyword_set(on) then print,\\='<chars>\\=' $\n else if keyword_set(off) then print,\\='</chars>\\=' $\n else print,\\='<onechar>\\='\n endif\nend" (list (regexp :tag "One-char regexp") (regexp :tag "Char-mode regexp") (regexp :tag "Line-mode regexp")) idlwave-shell-breakpoint-popup-menu #[0 "\300\207" [t] 1] "If non-nil, provide a menu on mouse-3 on breakpoint lines, and\npopup help text on the line." idlwave-shell-reset-no-prompt #[0 "\300\207" [nil] 1] "If non-nil, skip the yes/no prompt when resetting the IDL session." idlwave-shell-highlighting-and-faces "Highlighting and faces used by the IDLWAVE Shell mode." idlwave-shell-mark-stop-line #[0 "\300\207" [t] 1] "Non-nil means, mark the source code line where IDL is currently stopped.\nValue decides about the method which is used to mark the line. Valid values\nare:\n\nnil Do not mark the line\n`arrow' Use the overlay arrow\n`face' Use `idlwave-shell-stop-line-face' to highlight the line.\nt Use what IDLWAVE thinks is best. Will be a face where possible,\n otherwise the overlay arrow.\nThe overlay-arrow has the disadvantage to hide the first chars of a line.\nSince many people do not have the main block of IDL programs indented,\na face highlighting may be better." (choice (const :tag "No marking" nil) (const :tag "Use overlay arrow" arrow) (const :tag "Highlight with face" face) (const :tag "Face or arrow." t)) idlwave-shell-overlay-arrow #[0 "\300\207" [#8=">"] 1 #8#] "The overlay arrow to display at source lines where execution halts.\nWe use a single character by default, since the main block of IDL procedures\noften has no indentation. Where possible, IDLWAVE will use overlays to\ndisplay the stop-lines. The arrow is only used on character-based terminals.\nSee also `idlwave-shell-use-overlay-arrow'." idlwave-shell-stop-line-face #[0 "\300\207" [highlight] 1] "The face for `idlwave-shell-stop-line-overlay'.\nAllows you to choose the font, color and other properties for\nline where IDL is stopped. See also `idlwave-shell-mark-stop-line'." symbol idlwave-shell-electric-stop-color #[0 "\300\207" [#9="Violet"] 1 #9#] "The color for the default face or overlay arrow when stopped." idlwave-shell-electric-stop-line-face #[0 "\301\302\303\"\304\303\"\210\3051 \306\303\307\"0\202 \210\207\210\207" [idlwave-shell-electric-stop-color copy-face mode-line idlwave-shell-electric-stop-line set-face-background (error) set-face-foreground nil] 4] "The face for `idlwave-shell-stop-line-overlay' when in electric debug mode.\nAllows you to choose the font, color and other properties for the line\nwhere IDL is stopped, when in Electric Debug Mode." idlwave-shell-mark-breakpoints #[0 "\300\207" [t] 1] "Non-nil means, mark breakpoints in the source files.\nValid values are:\nnil Do not mark breakpoints.\n`face' Highlight line with `idlwave-shell-breakpoint-face'.\n`glyph' Red dot at the beginning of line. If the display does not\n support glyphs, will use `face' instead.\nt Glyph when possible, otherwise face (same effect as `glyph')." (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)) idlwave-shell-breakpoint-face #[0 "\300\207" [idlwave-shell-bp] 1] "The face for breakpoint lines in the source code.\nAllows you to choose the font, color and other properties for\nlines which have a breakpoint. See also `idlwave-shell-mark-breakpoints'." copy-face underline idlwave-shell-bp custom-declare-face ((((class color)) (:foreground "Black" :background "Pink")) (t (:underline t))) "Face for highlighting lines with breakpoints." idlwave-shell-disabled-breakpoint-face #[0 "\300\207" [idlwave-shell-disabled-bp] 1] "The face for disabled breakpoint lines in the source code.\nAllows you to choose the font, color and other properties for\nlines which have a breakpoint. See also `idlwave-shell-mark-breakpoints'." idlwave-shell-disabled-bp ((((class color)) (:foreground "Black" :background "gray")) (t (:underline t))) idlwave-shell-expression-face #[0 "\300\207" [secondary-selection] 1] "The face for `idlwave-shell-expression-overlay'.\nAllows you to choose the font, color and other properties for\nthe expression printed by IDL." idlwave-shell-output-face #[0 "\300\207" [secondary-selection] 1] "The face for `idlwave-shell-output-overlay'.\nAllows you to choose the font, color and other properties for\nthe expression output by IDL."] 8)
#@64 Absolute pathname for temporary IDL file for compiling regions
(defvar idlwave-shell-temp-pro-file nil (#$ . 18794))
#@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 (#$ . 18918))
#@189 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).
(fn TYPE)
(defalias 'idlwave-shell-temp-file #[257 "\211\303\267\202 \206 \304 !\211\207\n\206 \304 !\211\207\305\306\307!\"\207" [idlwave-shell-temp-rinfo-save-file idlwave-shell-temp-pro-prefix idlwave-shell-temp-pro-file #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (rinfo 6 pro 16)) make-temp-file error "Wrong argument (idlwave-shell-temp-file): %s" symbol-name] 5 (#$ . 19149)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias idlwave-shell-make-temp-file make-temp-file nil make-obsolete "27.1"] 4)
#@83 Command used by `idlwave-shell-resync-dirs' to query IDL for
the directory stack.
(defvar idlwave-shell-dirstack-query "cd,current=___cur & print,___cur" (#$ . 19904))
#@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+'>'" (#$ . 20078))
#@45 Additional info displayed in the mode line.
(defvar idlwave-shell-mode-line-info nil (#$ . 20276))
#@68 The default directory in the idlwave-shell buffer, of outside use.
(defvar idlwave-shell-default-directory nil (#$ . 20381))
#@69 The last file which was compiled with `idlwave-shell-save-and-...'.
(defvar idlwave-shell-last-save-and-action-file nil (#$ . 20512))
(byte-code "\300\301!\204 \3021 \303\304!0\202 \210\202 \210\305\207" [fboundp make-overlay (error) require overlay nil] 2)
#@49 The overlay for where IDL is currently stopped.
(defvar idlwave-shell-stop-line-overlay nil (#$ . 20780))
(defvar idlwave-shell-is-stopped nil)
#@42 The overlay for the examined expression.
(defvar idlwave-shell-expression-overlay nil (#$ . 20930))
#@38 The overlay for the last IDL output.
(defvar idlwave-shell-output-overlay nil (#$ . 21036))
(byte-code "\306!\203\n \307!\210\306 !\203 \307 !\210\306\n!\203 \307\n!\210\310\211\310 \203U \311=\204U \312=\203F \f\203U \313\314\211\"\315\312
#\210\202U \f\203U \313\314\211\"\315\312
#\210\313\314\211\"\315 \312#\210\315 \316\314#\210\313\314\211\"\315\n\312#\210\317
\320\"\210\317\321\"\210\322\320\323\"\210\322\321\323\"\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 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)
#@40 Command to obtain list of breakpoints.
(defvar idlwave-shell-bp-query "help,/breakpoints" (#$ . 21935))
#@49 String for accumulating current command output.
(defvar idlwave-shell-command-output nil (#$ . 22045))
#@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 (#$ . 22155))
#@38 Hook run when the IDL process exits.
(defvar idlwave-shell-sentinel-hook nil (#$ . 22416))
#@71 If non-nil the process output is not inserted into the output buffer.
(defvar idlwave-shell-hide-output nil (#$ . 22513))
#@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 (#$ . 22642))
#@33 Accumulate last line of output.
(defvar idlwave-shell-accumulation nil (#$ . 22832))
(defvar idlwave-shell-command-line-to-execute nil)
#@55 List of functions to do cleanup when the shell exits.
(defvar idlwave-shell-cleanup-hook nil (#$ . 22974))
#@292 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 (#$ . 23088))
#@131 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 #[0 "\301\301Q\207" [idlwave-shell-process-name "*"] 3 (#$ . 23443)])
#@50 If non-nil can send next command to IDL process.
(defvar idlwave-shell-ready nil (#$ . 23682))
#@53 The frame associated with halt/breakpoint messages.
(defvar idlwave-shell-halt-frame nil (#$ . 23783))
#@42 The frame associated with step messages.
(defvar idlwave-shell-step-frame nil (#$ . 23892))
#@43 The frame associated with trace messages.
(defvar idlwave-shell-trace-frame nil (#$ . 23990))
#@146 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:") (#$ . 24091))
#@69 The regular expression computed from `idlwave-shell-halt-messages'.
(defconst idlwave-shell-halt-messages-re (mapconcat 'identity idlwave-shell-halt-messages "\\|") (#$ . 24375))
#@136 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 " (#$ . 24561))
#@161 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:") (#$ . 24767))
#@61 Regular expression matching an IDL breakpoint message line.
(defvar idlwave-shell-break-message "^% Breakpoint at:" (#$ . 25005))
(defconst idlwave-shell-electric-debug-help " ==> 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.")
(defvar idlwave-shell-only-prompt-pattern nil)
(defvar idlwave-shell-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [idlwave-shell-mode-hook variable-documentation put "Hook run after entering IDL-Shell mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp idlwave-shell-mode-map definition-name idlwave-shell-mode] 4)
(defvar idlwave-shell-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\311\312 !\210\306\301N\204- \302\306\301\303\313!#\210\302\310\314\315#\207" [idlwave-shell-mode-map variable-documentation put purecopy "Keymap for `idlwave-shell-mode'." boundp idlwave-shell-mode-syntax-table definition-name idlwave-shell-mode (lambda (#1=#:def-tmp-var) (defvar idlwave-shell-mode-syntax-table #1#)) make-syntax-table "Syntax table for `idlwave-shell-mode'." derived-mode-parent comint-mode] 5)
#@3233 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
configurable 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 URL `http://github.com/jdtsmith/idlwave'.
IDLWAVE has customize support - see the group `idlwave'.
8. Keybindings
-----------
\{idlwave-shell-mode-map}
(defalias 'idlwave-shell-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324 !\210\325\f!\210
@\326 \210\327A!\204Y \330AB\"ACD\307E\331F\306\332!\210\307\306\333!\210\334\307G\331H\335I\331\211JK\331\211LM\336\331!\210\337N\340\341C\342\"\343QOP\203\246 \344\306\345!\346\"\210\307QR`\331\223\210\331\211ST\331U\347 \210\331\211VWXY\331Z\350\351\352\331\353$\210\350\351\354\331\353$\210\350\355\354\"\210\356[ \"\210\\\203\377 \\\331\211A\262\242\211\262\203\375 \306@!AL\210\202\346 \266\357\360\361!>\204\350\361\362\363\353$\210\350\361\364\331\353$\210\365\361\366\"\210\306\367!\210\3707\307]\350\371\372\331\307$\210^\203HA;\203H\306\373!\210A;\374A!\203H\375 \210\306\376!\210\331>\377_\331\201b #\210\377\201c \201d `\"\331\201b #\210\377a\201e \201b #\210)\201f \201g !\207" [delay-mode-hooks major-mode mode-name idlwave-shell-mode-map idlwave-shell-mode-syntax-table idlwave-mode-abbrev-table make-local-variable t comint-mode idlwave-shell-mode "IDL-Shell" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table idlwave-setup file-name-absolute-p expand-file-name nil completion-ignore-case comint-completion-addsuffix ("/" . #1="") (#1# 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]*" substring 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 easy-menu-add comint-carriage-motion default-value comint-output-filter-functions #[257 "\301\302\"\205# \303\304p!!\212b\210\305\302\306#\205 `\307 |\210\202 )\262\207" [comint-last-output-start string-match "
" process-mark get-buffer-process search-forward t line-beginning-position] 6 "\n\n(fn STRING)"] append comint-strip-ctrl-m remove-hook py-pdbtrack-track-stack-file comment-start ";" post-command-hook idlwave-command-hook comint-input-ring-file-name file-regular-p comint-read-input-ring tool-bar-map idlwave-shell-send-command local-abbrev-table idlwave-shell-command-history-file idlwave-config-directory idlwave-shell-prompt-pattern comint-prompt-regexp comint-process-echoes comint-input-autoexpand comint-input-ignoredups 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-menu idlwave-shell-comint-settings abbrev-mode idlwave-shell-save-command-history idlwave-shell-initial-commands idlwave-mode-version idlwave-shell-path-query hide format "defsysv,'!idlwave_version','%s',1" idlwave-shell-get-path-info run-mode-hooks idlwave-shell-mode-hook] 6 (#$ . 27852) nil])
#@86 Get the path lists, writing to file unless NO-WRITE is set.
(fn &optional NO-WRITE)
(defalias 'idlwave-shell-get-path-info #[256 "\304 \211@A \305\211\203 \211\230?\211\262\203 \306\301\307\310#\210\311\312\313\314\315\316 !\317\"\320\321%\"\211\232?\211\262\203B \306\300\307\310#\210\203b ?\205e \n\205e \211\204X \205e ?\205e \322 \202e \211\207" [idlwave-path-alist idlwave-system-directory idlwave-auto-write-paths idlwave-library-path idlwave-shell-path-filter nil put from-shell t mapcar make-byte-code 257 "\301\300\"\211\203 AB\202 C\207" vconcat vector [assoc] 4 "\n\n(fn X)" idlwave-write-paths] 16 (#$ . 34663)])
(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 (#$ . 35411))
#@44 Frame for displaying the IDL source files.
(defvar idlwave-shell-display-wframe nil (#$ . 35511))
(defvar idlwave-shell-calling-stack-index 0)
(defvar idlwave-shell-calling-stack-routine nil)
#@49 Return the frame to be used for source display.
(defalias 'idlwave-shell-source-frame #[0 "\205C \303 !\203\f \207\304 \n=\203? \305 \30625 \211\2054 \211@\n=\204- \307\306@\"\210\202 \211A\262\202 0\262\206A \310 \202A \304 \211\207" [idlwave-shell-use-dedicated-frame idlwave-shell-display-wframe idlwave-shell-idl-wframe frame-live-p selected-frame visible-frame-list exit throw make-frame] 4 (#$ . 35709)])
#@51 Return the frame to be used for the shell buffer.
(defalias 'idlwave-shell-shell-frame #[0 "\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 (#$ . 36134)])
#@794 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.)
(fn &optional ARG)
(defalias 'idlwave-shell #[256 "\211\306=\203 \307\310\307!\210\311 \210)\203 \312 \313\314\315\316#\210\202\232 \211\203& \316\211\317\232\203. \307\320\321 !\204b \n\206: \322\323\324 \307\f;\203J \325\f!\202K \f%\326!\307\327\330\"\210\331\332\"\210q\210\333 \266\334\321 \307\335 #\336 \337!\210db\210$\203| \340\316\"\210\337!\210%\203\213 \341\342!!\210\312 \342!=\203\230 \337!\210\266\313\314\343\"\207" [idlwave-shell-use-dedicated-frame idlwave-shell-idl-wframe idlwave-shell-explicit-file-name idlwave-shell-process-name idlwave-shell-command-line-options idlwave-idlwave_routine_info-compiled 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 #[0 "\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-use-dedicated-window idlwave-shell-ready] 9 (#$ . 36471) "P"])
#@91 Run `idlwave-shell', but make sure the current window stays selected.
(fn &optional ARG)
(defalias 'idlwave-shell-recenter-shell-window #[256 "\300 \301!\210\302!\207" [selected-window idlwave-shell select-window] 4 (#$ . 38591) "P"])
#@94 Whether to hide this type of command.
Return either nil or `hide'.
(fn TYPE &optional LIST)
(defalias 'idlwave-shell-hide-p #[513 "\211\206 \211<\205 >?\205 \301\207" [idlwave-shell-show-commands hide] 5 (#$ . 38835)])
#@56 Add or remove a show command from the list.
(fn TYPE)
(defalias 'idlwave-shell-add-or-remove-show #[257 "<\203$ \211>\203 \301\"\202! \211\235\203 \202! \211B\211\211\207\211C\211\207" [idlwave-shell-show-commands delq] 4 (#$ . 39067)])
#@1131 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 in `idlwave-shell-pending-commands',
CMD, 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.
(fn &optional CMD PCMD HIDE PREEMPT SHOW-IF-ERROR)
(defalias 'idlwave-shell-send-command #[1280 "9\203 \306=\203 \307\262p\307\211\310\311 !\211\262\203$ \312!\211\262\204R \2042 \313\314\315\316!\"\210\202R \317 \210\310\311 !\262\310\311 !\211\262\203N \312!\211\262\204R \313\320!\210\204[ \n\205\371 q\210\203\205 \203w \321FC\n\"\202\204 \321\n FC\"\322 \323!b\210 \203\363 \324y\210\325\f!\323!b\210\203\363 \n@\211@A@\3268\3278\330!\331=\203\265 \324 \211!\nA\"`\307\223\210#`\307\223\210\332\"\210\307\n\333=\203\361 \204\361 \334\335\"\204\334 \307\313\336!\210\202\334 \266\211b\266q\207" [idlwave-shell-show-commands idlwave-shell-automatic-start idlwave-shell-pending-commands idlwave-shell-ready idlwave-shell-prompt-pattern idlwave-shell-calling-stack-index everything nil get-buffer idlwave-shell-buffer get-buffer-process error "%s" 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" idlwave-shell-post-command-hook idlwave-shell-hide-output idlwave-shell-show-if-error comint-last-input-start comint-last-input-end] 17 (#$ . 39325)])
#@77 Send one character to the shell, without a newline.
(fn C &optional ERROR)
(defalias 'idlwave-shell-send-char #[513 "\211\203 \300\202 \301\302\211\303\304 !\211\262\203 \305!\211\262\204\" \306!\210\307\232\203. \310!\2025 \311\312!\"\207" [error message nil get-buffer idlwave-shell-buffer get-buffer-process "Shell is not running" 7 "Abort" comint-send-string char-to-string] 9 (#$ . 41769) "cChar to send to IDL: \np"])
#@133 Check STRING for magic words and toggle character input mode.
See also the variable `idlwave-shell-input-mode-spells'.
(fn STRING)
(defalias 'idlwave-shell-input-mode-magic #[257 "\302@\"\203\f \303\304!\207\305\301!\203 \302\3068\"\203 \307\211\207\302A@\"\205? \310\311!\2039 \311\312\313\314\315\211\316\317&\207\320\321\315\313\317$\207" [idlwave-shell-input-mode-spells 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] 9 (#$ . 42213)])
#@425 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.
(fn &optional NO-ERROR)
(defalias 'idlwave-shell-char-mode-loop #[256 "\304\203 \305\202\n \306\307\211\211\310\311 !\211\262\203\" \312!\211\262\204& \313!\210 \203. \314!\210\305\315!\210\305\3162\237 \304\317\320!\203V \203H \321\316\322\"\210\316=\2039 \321\316\323\"\210\2029 \3241c \325 \211\2620\202k \210\326 \210\321\316\327\"\210\204v \326 \210\202\220 \330\232\203\211 \307\326 \210\321\316\331\"\210\202\220 \332\333!\"\210\316=\203\233 \321\316\334\"\210)\2027 !)\207" [idlwave-shell-char-mode-active idlwave-shell-ready inhibit-quit keyboard-quit 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 sit-for 0.3 throw "Character mode off (prompt displayed)" "Character mode off (closing spell incantation)" (error) read-char ding "Character mode off" 7 "Character mode off (keyboard quit)" comint-send-string char-to-string "Single char loop exited"] 11 (#$ . 42830) nil])
#@152 When in last line of process buffer, do `comint-previous-input'.
Otherwise just move the line. Move down unless UP is non-nil.
(fn UP &optional ARG)
(defalias 'idlwave-shell-move-or-history #[513 "\301\302\303p!!!\206\f \304\203 \211\202 \211[\305=\203 b\210\2031 \306 TY\2031 \307!\2024 \211[y\207" [idlwave-shell-arrows-do-history marker-position process-mark get-buffer-process 1 t point-at-eol comint-previous-input] 7 (#$ . 44295)])
#@114 When in last line of process buffer, move to previous input.
Otherwise just go up one line.
(fn &optional ARG)
(defalias 'idlwave-shell-up-or-history #[256 "\300\301\"\207" [idlwave-shell-move-or-history t] 4 (#$ . 44752) "p"])
#@112 When in last line of process buffer, move to next input.
Otherwise just go down one line.
(fn &optional ARG)
(defalias 'idlwave-shell-down-or-history #[256 "\300\301\"\207" [idlwave-shell-move-or-history nil] 4 (#$ . 44990) "p"])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias idlwave-shell-comint-filter comint-output-filter nil make-obsolete "25.1"] 4)
#@43 Return t if the shell process is running.
(defalias 'idlwave-shell-is-running #[0 "\301!\302=\207" [idlwave-shell-process-name process-status run] 2 (#$ . 45373)])
#@290 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.
(fn OUTPUT)
(defalias 'idlwave-shell-filter-hidden-output #[257 "\301\302\303\"\"\262\302\304\"\203 \305\306\307\310$\262\202 \302\"?\205$ \211\207" [idlwave-shell-only-prompt-pattern substring string-match "\n" "\\(\n\\|\\`\\)%.*\\(\n .*\\)*" replace-match "" nil t] 6 (#$ . 45545)])
#@52 Buffer containing hidden output from IDL commands.
(defvar idlwave-shell-hidden-output-buffer " *idlwave-shell-hidden-output*" (#$ . 46124))
(defvar idlwave-shell-current-state nil)
#@211 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.
(fn PROC STRING)
(defalias 'idlwave-shell-filter #[514 "\306!\307=\205 \310 \311\211\312\313\314\315\316!\317\"\320$\216\321\322\"\211\262\203. \323 \210\324I\210\202 \203T \212\321\325\"\211\262\203E \326I\210\2023 \327\n!q\210db\210c\210)\202Y \330\"\210\321\331\"\203y \203j \332\fP!\210\333\321\334\"\210\313\225\"\202} \fP\321
\f\"\211)\205 \203\256 r\nq\210\335 \262db\210\336
\311\337#\210\313\225b\210\340e`\"*e`|\210)\202\307 r\341!q\210\340\212\342!b\210\313y\210`)+\")*\311 )\343 \210 \203\371 ,\203\345 -\344=\203\345 \330\"\210\202\371 \345=\203\371 \346!\211\203\370 \330\"\210\210.<\203\347.!\210\202 . \210\311\211*\311\211.\311,)\350 )\266\203\207" [idlwave-shell-process-name idlwave-shell-hide-output idlwave-shell-hidden-output-buffer idlwave-shell-use-input-mode-magic idlwave-shell-accumulation idlwave-shell-prompt-pattern process-status run match-data nil make-byte-code 0 "\301\300!\207" vconcat vector [store-match-data] 2 string-match "" ding 10 "
" 32 get-buffer-create comint-output-filter "\n" idlwave-shell-input-mode-magic substring "\\(.*[\n
]+\\)*" 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-ready idlwave-shell-command-output comint-last-input-end idlwave-shell-show-if-error idlwave-shell-current-state idlwave-shell-post-command-hook] 12 (#$ . 46313)])
#@74 The sentinel function for the IDLWAVE shell process.
(fn PROCESS EVENT)
(defalias 'idlwave-shell-sentinel #[514 "\304 \305!\306!\2033 r\304 q\210db\210\307\310#c\210\2032 ;\2032 \3111- \312 0\2021 \210\2022 \210)\313 G\314V\203I \315\n!\203I \316\n!\210\317\211\320!\203Y \321\322!\204Y \323!\210\324 \210\306!\203m rq\210\325\326!)\202p \325\326!\207" [idlwave-shell-save-command-history idlwave-shell-command-history-file idlwave-shell-idl-wframe idlwave-shell-display-wframe idlwave-shell-buffer get-buffer-window get-buffer format "\n\n Process %s %s" (error) comint-write-input-ring frame-list 1 frame-live-p delete-frame nil window-live-p one-window-p nomini delete-window idlwave-shell-cleanup run-hooks idlwave-shell-sentinel-hook] 9 (#$ . 48033)])
#@56 Buffer containing syntax errors from IDL compilations.
(defvar idlwave-shell-error-buffer " *idlwave-shell-errors*" (#$ . 48810))
#@131 A regular expression to match an IDL syntax error.
The first 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-*\\(.*\\)" (#$ . 48947))
#@46 A regular expression to match any IDL error.
(defvar idlwave-shell-other-error "^% .*\n\\s-*At:\\s-*\\(.*\\),\\s-*Line\\s-*\\(.*\\)" (#$ . 49202))
#@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" (#$ . 49355))
#@55 A regular expression to match errors stepping errors.
(defvar idlwave-shell-cant-continue-error "^% Can't continue from this point.\n" (#$ . 49553))
#@325 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]+\\)*\\)" (#$ . 49709))
#@494 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 #[0 "\306?\206\336 \307 \"\204 \307\n\"\203- r\310 !q\210\311 \210c\210eb\210`)\312\313 \202\336 \307\"\203J \314 \315\316\317\224\"! \312\320\321 !\202\336 \307 \"\211\262\204] \307 \"\203\201 \314 \315\316\314\225\"! \322\320\321 \306\203w \323\202} \205} \324#\202\336 \307!\"\203\315 \314 \315\316\314\225\"! \325 @ A@D\"\"\211\203\300 \326\327\"\211\203\274 \211<\203\271 \330!\210\202\274 \211 \210\210\202\303 \331 \210\210\332\320\321 !\202\336 \307#\"\203\333 \332\211\202\336 \306\211\207" [idlwave-shell-command-output idlwave-shell-syntax-error idlwave-shell-other-error idlwave-shell-error-buffer idlwave-shell-error-last idlwave-shell-current-state nil string-match get-buffer-create erase-buffer error idlwave-shell-goto-next-error 0 idlwave-shell-parse-line substring 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-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 idlwave-shell-cant-continue-error] 5 (#$ . 50268)])
#@99 Parse IDL message for the subroutine, file name and line number.
(fn STRING &optional SKIP-MAIN)
(defalias 'idlwave-shell-parse-line #[513 "\301\211\211\205\f \302\303\"?\205H \302\"\205H \304\305\"\262\304\306\"\262\304\307\"\262\310!\262\310!\262\311!\262\211\205H \312!\313!E\207" [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] 8 (#$ . 52059)])
#@82 Repair a string by taking out all linebreaks. This is destructive!
(fn STRING)
(defalias 'idlwave-shell-repair-string #[257 "\300\301\"\203 \302\303\304\211$\262\202 \207" [string-match "[ ]*\n[ ]*" replace-match "" t] 6 (#$ . 52577)])
#@153 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.
(fn FILE)
(defalias 'idlwave-shell-repair-file-name #[257 "\300\211\301\302\303\"\203 \304\301\211\224#\262\302\305#\203+ \304\301\224#P\262\301\225\262\202 \304\"P\262\306!\203= \202\\ \306!\203G \202\\ \300\230\204Q \202\\ \300\230\204[ \202\\ \307\207" ["" 0 string-match "^%" substring "[ ]*\n[ ]*" file-regular-p nil] 9 (#$ . 52829)])
#@52 Do necessary cleanup for a terminated IDL process.
(defalias 'idlwave-shell-cleanup #[0 "\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 (#$ . 53343)])
#@41 Kill buffer BUF if it exists.
(fn BUF)
(defalias 'idlwave-shell-kill-buffer #[257 "\300!\211\262\205\f \301!\207" [get-buffer kill-buffer] 3 (#$ . 54112)])
(defalias 'idlwave-shell-kill-shell-buffer-confirm #[0 "\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])
#@129 Issue a `window,N' command to IDL, with special window size.
The size is given by `idlwave-shell-graphics-window-size'.
(fn N)
(defalias 'idlwave-shell-window #[257 "\211\203\n \301!\202 \302\303\304\305\306$\307\310\311!\307\312%\207" [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] 8 (#$ . 54583) "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 #[0 "\301\302\303\304$\207" [idlwave-shell-dirstack-query idlwave-shell-send-command idlwave-shell-filter-directory hide wait] 5 (#$ . 55008) nil])
#@83 Return from the entire calling stack.
Also get rid of widget events in the queue.
(defalias 'idlwave-shell-retall #[0 "\300 r\301\302\303\304\305!\306\"\307$\216\310\311\312\313\314!\205 \315\312\316%\210\317\312!*\207" [internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 idlwave-shell-send-command "retall" nil idlwave-shell-hide-p misc mostly t idlwave-shell-display-line] 7 (#$ . 55374) nil])
#@23 Close all open files.
(defalias 'idlwave-shell-closeall #[0 "\300\301\302\303\304!\302\305%\207" [idlwave-shell-send-command "close,/all" nil idlwave-shell-hide-p misc t] 6 (#$ . 55854) nil])
#@106 Exit the IDL process after confirmation.
With prefix ARG, exit without confirmation.
(fn &optional ARG)
(defalias 'idlwave-shell-quit #[256 "\300 \204 \301\302!\207\211\204 \303\304!\205 \3051 \306\307!0\207\210\310\207" [idlwave-shell-is-running error "Shell is not running" y-or-n-p "Exit the IDLWAVE Shell? " (error) idlwave-shell-send-command "exit" nil] 3 (#$ . 56053) "P"])
#@188 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
(fn &optional HIDDEN)
(defalias 'idlwave-shell-reset #[256 "\204\n \302\303!\205+ \304\305!\210\306\307\310\311#\210\307\312\311#\210\307\313\311#\210\307\314\311#\210\315\311!\207" [idlwave-shell-reset-no-prompt idlwave-shell-calling-stack-index 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] 5 (#$ . 56445) "P"])
(defalias 'idlwave-shell-path-filter #[0 "\302\303\304\211\305\306#\203 \307\310\"B\262\303\225\262\202 \311\312\"\262\305\313\"\2037 \312\307\310\"!\262\211\237)B\207" [idlwave-shell-command-output case-fold-search t 0 nil string-match "^PATH:[ ]*<\\(.*\\)>[ ]*\n" match-string 1 mapcar file-name-as-directory "^SYSDIR:[ ]*<\\(.*\\)>[ ]*\n"] 9])
#@73 Function which parses the special output from idlwave_routine_info.pro.
(defalias 'idlwave-shell-routine-info-filter #[0 "\304\305\211\211\211\211\211\211\211\211\211\211\211\211\305\306\307\"\2034 \310\311\"\262\f\312\f!\313P\262 \314\304\225\"\262\202F \315\262\f\316\262 \317\262 \203F \320\321\"\210\306\322\"\203Z \314\304\211\224#\262\202c \203c \320\323\"\210\306\324#\203`\304\225\262
\310\311\"\262 \310\325\"\262\326\f\"\262@\262A@\317\232?\205\232 A@\262\3258\262\n\3278\262\3308\262;\205\306 \306\331\"?\205\306 \332\333\334\317\326\335\"\"\"\262\336\337#\262\340\337\"\262 \317\232?\205\340 \262\n\332\341\"\262\342\230\204c \343\230\203'\344\345
\205 \346!\347\350!!DB\305B\257\262 \203 \211 B\202c \211\nB\202c \351\230\203c \352\345
\205B\346!\347\350!!DB\305B\257\262 \203Y\211 B\202c \211\nB\202c \266 \237\n\237\211\207" [idlwave-shell-command-output idlwave-compiled-routines idlwave-unresolved-routines idlwave-idlwave_routine_info-compiled 0 nil string-match "^>>>BEGIN OF IDLWAVE ROUTINE INFO (\"\\(.+\\)\" IS THE SEPARATOR.*" match-string 1 regexp-quote " *" substring "@" "@ *" "" 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 #[257 "\300@\301\"C\207" [idlwave-sintern-keyword t] 4 "\n\n(fn X)"] "$MAIN$" "PRO" pro compiled file-name-nondirectory idlwave-sintern-dir file-name-directory "FUN" fun] 22 (#$ . 57473)])
#@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 #[0 "r\303 q\210\304\305\"\205 \306\307\224\307\225#\211\310!\211\262)\207" [idlwave-shell-command-output idlwave-shell-default-directory default-directory idlwave-shell-buffer string-match ",___cur[\n
]+\\([^\n
]+\\)[\n
]" substring 1 file-name-as-directory] 4 (#$ . 59222)])
(defvar idlwave-shell-get-object-class nil)
#@70 Query the shell for the class of the object before point.
(fn APOS)
(defalias 'idlwave-shell-get-object-class #[257 "\212\301\302!\210`)\212\303y\210`)\304\212b\210\30522 \306\307\310#\204# \311\305\"\210\312!\204 \311\305`T\"\210\202 {\262)\211\313\230?\205^ \304\314\315\316\317\260\320\321\322$\210\203] \323\324 \310#\204] \325 \210\207" [idlwave-shell-get-object-class idlwave-start-of-substatement pre 0 nil exit re-search-backward "[^][.A-Za-z0-9_() ]" t throw idlwave-is-pointer-dereference "" idlwave-shell-send-command "if obj_valid(" ") then print,obj_class(" ")" idlwave-shell-parse-object-class hide wait assoc-string idlwave-class-alist idlwave-shell-maybe-update-routine-info] 10 (#$ . 59725)])
#@44 Parse the output of the obj_class command.
(defalias 'idlwave-shell-parse-object-class #[0 "\303\304\305\306R \"\205 \307\310 \"\211\207" [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] 6 (#$ . 60457)])
(defvar idlwave-sint-sysvars nil)
(idlwave-new-sintern-type 'execcomm)
#@220 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.
(fn &optional ARG)
(defalias 'idlwave-shell-complete #[256 "\303\304 \211\262\203 \211A\203 \211A\226\305\235\203 \306 \202\\ \211\242\203. \307\310\311\211 \303\312\313&\202\\ \314 \2038 \306 \202\\ \315 \203B \306 \202\\ \316 \203Y \212\317 \210\320\321\322!*\204Y \306 \202\\ \323!\207" [idlwave-completion-help-info idlwave-executive-commands-alist case-fold-search 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] 9 (#$ . 60877) "P"])
#@18
(fn MODE WORD)
(defalias 'idlwave-shell-complete-execcomm-help #[514 "A@\206 \211\303 \304#\305\267\202+ ;\205. \211\205. \211A\202. \211\205. \211A\211\202. \306\307!\207" [idlwave-completion-help-info idlwave-executive-commands-alist idlw-help-link assoc-string t #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (test 18 set 32)) error "This should not happen"] 7 (#$ . 61906)])
#@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 #[0 "\302 \210\303 )\207" [idlwave-shell-file-name-chars comint-file-name-chars idlwave-shell-resync-dirs comint-dynamic-complete-filename] 1 (#$ . 62339)])
#@59 Return the name of the current executive command, if any.
(defalias 'idlwave-shell-executive-command #[0 "\212\300 \210\301\302!\301\303!\205 \304\305!)B\207" [idlwave-beginning-of-statement looking-at "[ ]*\\." "[ ]*[.]\\([^ \n
]+\\)[ ]" match-string 1] 3 (#$ . 62712)])
#@62 Return t if in a string and after what could be a file name.
(defalias 'idlwave-shell-filename-string #[0 "\301 \212x\210h\302>\205 \303)\207" [idlwave-shell-file-name-chars point-at-bol (39 34) t] 3 (#$ . 62995)])
#@58 Return t if we're in a batch command statement like @foo
(defalias 'idlwave-shell-batch-command #[0 "\301 \212x\210\302x\210h\303=\205 \304 ?)\207" [idlwave-shell-file-name-chars point-at-bol " " 64 idlwave-in-quote] 3 (#$ . 63219)])
#@57 Return t if we're in a shell command statement like $ls
(defalias 'idlwave-shell-shell-command #[0 "\212\300 \210\301\302!)\207" [idlwave-beginning-of-statement looking-at "\\$"] 2 (#$ . 63464)])
#@204 Try 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.
(fn &optional HIDE)
(defalias 'idlwave-shell-redisplay #[256 "\301\302\303\304#\210\305 \207" [idlwave-shell-calling-stack-index 0 idlwave-shell-send-command "help,/trace" (idlwave-shell-display-line (idlwave-shell-pc-frame)) idlwave-shell-bp-query] 5 (#$ . 63667) nil])
#@23
(fn &optional HIDE)
(defalias 'idlwave-shell-display-level-in-calling-stack #[256 "\301\302\303\304\300E\305BB#\207" [idlwave-shell-calling-stack-index idlwave-shell-send-command "help,/trace" progn setq ((idlwave-shell-parse-stack-and-display))] 7 (#$ . 64129)])
(defalias 'idlwave-shell-parse-stack-and-display #[0 "\304\305\306\307\"\"\310\311\312\313\"\"\211GS\314\311W\203% \314\315 \210\316\317!\210\202L V\203: \315 \210\320\321[\"\262\202L W\203L \315 \210\320\322[\"\262\323 88\324 8\311 \205\\ \325#\210\316\326\206j \320\327\n [#\"\207" [idlwave-shell-command-output idlwave-shell-calling-stack-index idlwave-shell-calling-stack-routine idlwave-shell-electric-debug-mode delete "" idlwave-split-string "^%" delq nil mapcar idlwave-shell-parse-line 0 ding message "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)"] 11])
#@56 Display the source code one step up the calling stack.
(defalias 'idlwave-shell-stack-up #[0 "T\301\302!\207" [idlwave-shell-calling-stack-index idlwave-shell-display-level-in-calling-stack hide] 2 (#$ . 65175) nil])
#@58 Display the source code one step down the calling stack.
(defalias 'idlwave-shell-stack-down #[0 "S\301\302!\207" [idlwave-shell-calling-stack-index idlwave-shell-display-level-in-calling-stack hide] 2 (#$ . 65400) nil])
#@195 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.
(fn &optional FRAME)
(defalias 'idlwave-shell-goto-frame #[256 "\211\204 \300 \262\211\205 \301@\302\"q\210~\210eb\210\211A@Sy\207" [idlwave-shell-pc-frame idlwave-find-file-noselect shell] 4 (#$ . 65630)])
#@37 Return the frame for IDL execution.
(defalias 'idlwave-shell-pc-frame #[0 "\205
@A@\3018E\207" [idlwave-shell-halt-frame 2] 4 (#$ . 66020)])
#@55 Check that frame is for an existing file.
(fn FRAME)
(defalias 'idlwave-shell-valid-frame #[257 "\300@!\207" [file-readable-p] 3 (#$ . 66172)])
(defalias 'idlwave-shell-stop-line-pending #[0 "\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])
(defvar idlwave-shell-suppress-electric-debug nil)
#@479 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.
(fn FRAME &optional COL DEBUG)
(defalias 'idlwave-shell-display-line #[769 "\204 \306\211\306 \203 \307 !\210\310 \207\311!\204! \312\313@\"\207\3148\2050 \315\316\f[\3148#\317@\320\"\321 \322 \232\306\211\211\323\322 \306\324 #\210\323\306\325 #\262rq\210\214~\210eb\210A@Sy\210`\262\326 \203\203 \327 \330
\203t \"\202v ##\210\331 `\332 p$\210\202\233 $\203\213 %&\204\224 \333 &&`\223\210)eW\204\250 dV\203\255 ~\210b\210\203\267 \334!\210`\262
\204\350 \335=\204\344 \336=\204\350 '\326=\204\337 '\337=\203\350 (\312=\204\350 )\204\350 \305\326!\210
\262)\340\"\210*\203\372 \211\204\321 \322 \232\205\n?\205\n\341!\207" [overlay-arrow-string idlwave-shell-mode-line-info idlwave-shell-is-stopped idlwave-shell-stop-line-overlay idlwave-shell-calling-stack-index idlwave-shell-electric-debug-mode nil delete-overlay idlwave-shell-electric-debug-all-off idlwave-shell-valid-frame error "invalid frame - unable to access file: %s" 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 t overlay-put face move-overlay point-at-eol make-marker move-to-column force disable breakpoint set-window-point select-window idlwave-shell-electric-stop-line-face idlwave-shell-stop-line-face idlwave-shell-mark-stop-line idlwave-shell-overlay-arrow overlay-arrow-position idlwave-shell-automatic-electric-debug idlwave-shell-current-state idlwave-shell-suppress-electric-debug idlwave-shell-electric-zap-to-file] 14 (#$ . 66620)])
#@86 Step one source line.
If given prefix argument ARG, step ARG source lines.
(fn ARG)
(defalias 'idlwave-shell-step #[257 "\211\203
\211\300W\204
\300\262\301 \210\302\303\250\203 \304!\202 P\305\306\307!\205' \310\305\311%\207" [1 idlwave-shell-stop-line-pending idlwave-shell-send-command ".s " int-to-string nil idlwave-shell-hide-p debug mostly t] 7 (#$ . 68655) "p"])
#@167 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.
(fn ARG)
(defalias 'idlwave-shell-stepover #[257 "\211\203
\211\300W\204
\300\262\301 \210\302\303\250\203 \304!\202 P\305\306\307!\205' \310\305\311%\207" [1 idlwave-shell-stop-line-pending idlwave-shell-send-command ".so " int-to-string nil idlwave-shell-hide-p debug mostly t] 7 (#$ . 69042) "p"])
#@493 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.
(fn &optional COUNT CMD CONDITION DISABLED NO-SHOW)
(defalias 'idlwave-shell-break-here #[1280 "<\203 @\300\232\203 \301\302!\262\303\262\304\305\306 F\307 #\"\207" [4 read-string "Break Condition: " nil idlwave-shell-set-bp idlwave-shell-bp idlwave-shell-current-frame idlwave-shell-current-module] 12 (#$ . 69515) "P"])
#@220 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.
(fn BP)
(defalias 'idlwave-shell-set-bp-check #[257 "\205U \301\302\"\203D \303 \210\304\305\306\307\"\310Q!\2038 \311 \210\312\313\306\307\"\314Q\315\316\317!\205- \320\315\321%\210\322!\210\202B \303 \210\323\324!\210\311 \210\315\207\301\325\"\203T \323\326!\210\311 \210\315\207\327\207" [idlwave-shell-command-output 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] 7 (#$ . 70299)])
#@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 #[0 "\301\211\207" [idlwave-shell-pending-commands nil] 2 (#$ . 71201)])
#@45 Continue executing.
(fn &optional NO-SHOW)
(defalias 'idlwave-shell-cont #[256 "\300 \210\301\302?\205 \303\304\305!\205 \306\307\310%\207" [idlwave-shell-stop-line-pending idlwave-shell-send-command ".c" (idlwave-shell-redisplay 'hide) idlwave-shell-hide-p debug mostly nil t] 7 (#$ . 71582) nil])
#@67 Run .GO. This starts the main program of the last compiled file.
(defalias 'idlwave-shell-go #[0 "\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 (#$ . 71891) nil])
#@64 Run .RETURN (continue to next return, but stay in subprogram).
(defalias 'idlwave-shell-return #[0 "\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 (#$ . 72211) nil])
#@39 Run .SKIP (skip one line, then step).
(defalias 'idlwave-shell-skip #[0 "\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 (#$ . 72536) nil])
#@97 Clear breakpoint BP.
Clears in IDL and in `idlwave-shell-bp-alist'.
(fn BP &optional NO-QUERY)
(defalias 'idlwave-shell-clear-bp #[513 "\300!\211\205 \301\302\303!P\304\305\306!\304\307%\210?\205 \310 \207" [idlwave-shell-bp-get idlwave-shell-send-command "breakpoint,/clear," int-to-string nil idlwave-shell-hide-p breakpoint t idlwave-shell-bp-query] 9 (#$ . 72832)])
#@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 #[0 "p\300\301 !=\203\f \302 \207\303\304 !\214~\210\305\306\307 \"T)D\207" [get-buffer idlwave-shell-buffer idlwave-shell-pc-frame idlwave-shell-file-name buffer-file-name count-lines 1 point-at-bol] 4 (#$ . 73215)])
#@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 #[0 "p\301\302 !=\203
\3038\207\214~\210\212\304 \205( \305 \306\3038@\"A@\226D\266\203*\207" [idlwave-shell-halt-frame get-buffer idlwave-shell-buffer 2 idlwave-prev-index-position idlwave-what-module idlwave-make-full-name] 5 (#$ . 73610)])
#@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 #[0 "\300 \211\205 \301!\207" [idlwave-shell-find-current-bp idlwave-shell-clear-bp] 3 (#$ . 74006) nil])
#@253 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.
(fn &optional BP FORCE NO-UPDATE)
(defalias 'idlwave-shell-toggle-enable-current-bp #[768 "\206 \300 \301\302\"\303\267\202 \304\262\202 \305\262\205I \306AA\233\211?\240\266\307\310\2032 \311\2023 \312\313\301!!Q\304\314\315!\304\305%\210?\205I \316 \207" [idlwave-shell-find-current-bp idlwave-shell-bp-get disabled #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (disable 16 enable 22)) nil t 3 idlwave-shell-send-command "breakpoint," "/enable," "/disable," int-to-string idlwave-shell-hide-p breakpoint idlwave-shell-bp-query] 11 (#$ . 74292) nil])
#@141 Disable all breakpoints we know about which need disabling.
If ENABLE is non-nil, enable them instead.
(fn &optional ENABLE NO-UPDATE BPL)
(defalias 'idlwave-shell-enable-all-bp #[768 "\211\206 \301\211\203L \302@\303\"\262?\304=\204! \262\202) \211?\205' \266\202\203E \305@\304=\203: \304\202; \306#\210@B\262A\262\202 \204S \307 \210\207" [idlwave-shell-bp-alist nil idlwave-shell-bp-get disabled enable idlwave-shell-toggle-enable-current-bp disable idlwave-shell-bp-query] 10 (#$ . 75124)])
#@46 Set a breakpoint with count 1 then continue.
(defalias 'idlwave-shell-to-here #[0 "\300\301\302\"\303\304\305\211\211\306%\210\307\306!\210\300\310\302#\266\311 \207" [idlwave-shell-enable-all-bp disable no-update idlwave-shell-break-here 1 nil no-show idlwave-shell-cont enable idlwave-shell-redisplay] 7 (#$ . 75650) nil])
#@22
(fn &optional ARG)
(defalias 'idlwave-shell-break-this-module #[256 "\212\300 \210\301!)\207" [idlwave-beginning-of-subprogram idlwave-shell-break-here] 3 (#$ . 75983) "P"])
#@227 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 #[0 "\300\301 !\211A@@\3028\203# \303\"\262\304\"\210\305#\202& \306\307!\207" [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"] 8 (#$ . 76167) nil])
#@127 Set breakpoint in module.
Assumes that `idlwave-shell-sources-alist' contains an entry for that module.
(fn NAME TYPE CLASS)
(defalias 'idlwave-shell-set-bp-in-module #[771 "\302\"\303\226\"\206 \304\305\306 $8\243\242\307\2031 \310!\2031 \311!\206+ \312!\211\262\204; \313\314\"\210\315 \202h r\211q\210\212eb\210\316\317\320\227\321Q\307\316#\203_ \322\224b\210\313\323\"\210\324 \202g \313\325#\210\315 +\207" [idlwave-shell-sources-alist case-fold-search 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"] 10 (#$ . 76718)])
#@94 Run to end of current block.
Sets a breakpoint with count 1 at end of block, then continues.
(defalias 'idlwave-shell-up #[0 "\300 \205- \212\301 \210\212\302 \210\303 \210`)\304\305!\210\306 \210\307 \210`W\204( \211b\210\310 \210\311 \262)\207" [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] 3 (#$ . 77592) 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 #[0 "\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 (#$ . 78099) nil])
#@48 Move to the previous breakpoint in the buffer.
(defalias 'idlwave-shell-goto-previous-bp #[0 "\300\301!\207" [idlwave-shell-move-to-bp -1] 2 (#$ . 78402) nil])
#@44 Move to the next breakpoint in the buffer.
(defalias 'idlwave-shell-goto-next-bp #[0 "\300\301!\207" [idlwave-shell-move-to-bp 1] 2 (#$ . 78568) nil])
#@80 Move to the next or previous breakpoint, depending on direction DIR.
(fn DIR)
(defalias 'idlwave-shell-move-to-bp #[257 "\301 \211@A@\302V\203 \303\202 \304\302V\203 \304\202 \303\305\211\211\211A\262\242\211\262\203U @@\230\203! @A@\262\"\203! \203O \"\203! \211\262\202! \204] \306\307!\210eb\210Sy\207" [idlwave-shell-bp-alist idlwave-shell-current-frame 0 > < nil error "No further breakpoints"] 13 (#$ . 78725)])
#@73 Print help on current expression. See `idlwave-shell-print'.
(fn ARG)
(defalias 'idlwave-shell-help-expression #[257 "\300\301\"\207" [idlwave-shell-print help] 4 (#$ . 79177) "P"])
#@83 Create a function for generic examination of expressions.
(fn HELP &optional EV)
(defalias 'idlwave-shell-mouse-examine '(macro . #[513 "\300\301\302\303\304\305\306\307\310\n\nFF\257\207" [lambda (event) "Expansion function for expression examination." (interactive "e") let* ((drag-track (fboundp 'mouse-drag-track)) (transient-mark-mode t) (tracker (if drag-track 'mouse-drag-track 'mouse-drag-region))) (funcall tracker event) idlwave-shell-print (if (idlwave-region-active-p) '(4) nil)] 13 (#$ . 79368)]))
#@16
(fn EVENT N)
(defalias 'idlwave-default-mouse-track-event-is-with-button #[514 "\300\207" [t] 3 (#$ . 79889)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias idlwave-xemacs-hack-mouse-track ignore nil make-obsolete "27.1"] 4)
#@74 Print value of variable at the mouse position, with `print'.
(fn EVENT)
(defalias 'idlwave-shell-mouse-print #[257 "\211\301\302!\303\211\203 \302\202 \304\211!\210\305\306 \205 \307\310\211#)\266\202\207" [transient-mark-mode fboundp mouse-drag-track t mouse-drag-region idlwave-shell-print idlwave-region-active-p (4) nil] 8 (#$ . 80142) "e"])
#@73 Print value of variable at the mouse position, with `help'.
(fn EVENT)
(defalias 'idlwave-shell-mouse-help #[257 "\211\301\302!\303\211\203 \302\202 \304\211!\210\305\306 \205 \307\310\311#)\266\202\207" [transient-mark-mode fboundp mouse-drag-track t mouse-drag-region idlwave-shell-print idlwave-region-active-p (4) help nil] 8 (#$ . 80500) "e"])
#@72 Pop-up a list to select from for examining the expression.
(fn EVENT)
(defalias 'idlwave-shell-examine-select #[257 "\211\301\302!\303\211\203 \302\202 \304\211!\210\305\306 \205 \307\310#)\266\202\207" [transient-mark-mode fboundp mouse-drag-track t mouse-drag-region idlwave-shell-print idlwave-region-active-p (4) nil] 8 (#$ . 80861) "e"])
#@69 Create a function for key-driven expression examination.
(fn HELP)
(defalias 'idlwave-shell-examine '(macro . #[257 "\300\301\302\303\301EF\207" [lambda nil (interactive) idlwave-shell-print] 7 (#$ . 81217)]))
#@61 Label to include with examine text if in a separate buffer.
(defvar idlwave-shell-examine-label nil (#$ . 81435))
(defvar idlwave-shell-examine-completion-list nil)
#@1199 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
`idlwave-shell-examine-alist' from which to select the help
command text. If instead COMPLETE-HELP-TYPE is non-nil, choose
from `idlwave-shell-examine-alist' via mini-buffer shortcut key.
(fn ARG &optional HELP EV COMPLETE-HELP-TYPE)
(defalias 'idlwave-shell-print #[1025 "\204 \306 \210\212\307p!\211\205 \310! \250\205\" \311V\205\" \312\313 \n#\314\211\211\211\n\315\232\2035 \316\317!\262\202\233 \n\204? \320 \203T \321 \322 Z\323W\203T \322 \262\321 \262\202\233 \324 \325\311\326\327\330!\331\"\332$\216\333 !\210\334\335!\203x \334\336!\203{ \337 \210\202{ \337 \210\334\336!\203\204 \337 \210`\262\340 \210\334\341!\203\226 \340 \210\202\212 `\262)\210\203\276 \203\276 \203\271 V\203\271 W\203\271 \342!\262{\262\203\326 \203\326 \f\203\326 \343\fp$\210\344\345\346\"\210\344\345\347\"\210\350\351\"\203\356 \352\353\354\211$\262\202\333 \350\355\"\203\352\356\354\211$\262\202\356 \350\357\"\203\352\356\354\211$\262\3602\262\204)\203#
\204) :\203q :\2034 \202M\361\203B\362\305\363\364#\202K\365\n\366\367
\"\370#
\"\211A\262 \n\204[\371\360\314\"\210@\203m\312\372@#\353QA\210\202\222\312\372\f\204}\373\202\214\f;\203\210\f\202\214\374
!#\353QA\203\234\375 \"\262\376\n\"\262\377\201B @\205\260\201C #0\266\207)\207" [idlwave-idlwave_routine_info-compiled idlwave-shell-calling-stack-index idlwave-shell-calling-stack-routine idlwave-find-symbol-syntax-table idlwave-shell-expression-overlay idlwave-shell-examine-alist idlwave-shell-compile-helper-routines get-buffer-process process-mark 0 format " [-%d:%s]" nil (16) read-string "Expression: " idlwave-region-active-p region-end region-beginning 2000 syntax-table make-byte-code "\301\300!\207" vconcat vector [set-syntax-table] 2 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 assoc idlwave-one-key-select "Examine with: " 1.5 idlwave-popup-select mapcar car "Examine with" throw "==>%s<==\n%s:" "print" symbol-name idlwave-retrieve-expression-from-level idlwave-shell-help-statement idlwave-shell-send-command idlwave-shell-separate-examine-output idlwave-shell-examine-label idlwave-shell-check-compiled-and-display hide] 18 (#$ . 81608) "P"])
#@66 Variable to hold the win/height pairs for all *Examine* windows.
(defvar idlwave-shell-examine-window-alist nil (#$ . 85084))
(defvar idlwave-shell-examine-map (make-sparse-keymap))
(byte-code "\301\302\303#\210\301\304\305#\207" [idlwave-shell-examine-map 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 #[0 "\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 (#$ . 85443)])
#@55 View the examine command output in a separate buffer.
(defalias 'idlwave-shell-examine-display #[0 "\306\211\211r\307\310!q\210\311!\210\306db\210\214``}\210\312\313\n\"\203$ \314c\210\202[ \nc\210\315 \306\316#\2060 d\315 \306\316#\203= \317\225\206> eb\210\320\321!\211{ed|\210\211c\210\f\203Y eb\210\fc\210\306\266e\262d\262\316\322
p$\210\323\310\306\324#\325\310\306\306\3262\252 \327 r\330\317\331\332\333!\334\"\335$\216\211A\262\242\211\262\205\246 \336!\210\337 \203\207 \340\326\341!\"\210\202\207 *\2620\266\202#\262\342e\"\210\327 r\330\317\331\332\333!\343\"\335$\216\336!\210\344/\"\337 \204\">\203\337 \345 A=\203\"\346\347 \335\245\345 Z!\210\350 \210\351\306\352\353/\"\"/\344/\"\211\262\203\n\211\345 \241\210\202\"\345 B\211/\235\203/\210\202!\211/B/\210\210*\266)\327 r\330\317\331\332\333!\354\"\335$\216\336!\210db\210\321\306x\210\355\356!*\262)\207" [idlwave-shell-examine-map buffer-read-only idlwave-shell-command-output idlwave-shell-prompt-pattern idlwave-shell-examine-label idlwave-shell-output-overlay 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 internal--before-save-selected-window make-byte-code "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 select-window one-window-p throw window-frame set-window-start [internal--after-save-selected-window] assoc window-height enlarge-window frame-height shrink-window-if-larger-than-buffer delq mapcar #[257 "\300@!\205 \211\207" [window-live-p] 3 "\n\n(fn X)"] [internal--after-save-selected-window] recenter -1 idlwave-shell-examine-window-alist] 16 (#$ . 85858)])
(defalias 'idlwave-shell-examine-display-quit #[0 "\300 \301 \203 \302\303!!\202 \304!\207" [selected-window one-window-p delete-frame window-frame delete-window] 4 nil nil])
(defalias 'idlwave-shell-examine-display-clear #[0 "\301\302!\303!\205 r\211q\210\304\305 *\207" [inhibit-read-only get-buffer "*Examine*" bufferp t erase-buffer] 3 nil nil])
#@469 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.
(fn EXPR LEVEL)
(defalias 'idlwave-retrieve-expression-from-level #[514 "\300Z\300\301\211\211\211\211\302\303\n#\203\214 \304\305\n\"\262\305\225\262\306 \300\305\224#\262\306 \305\225\"\262\302\307\"\204 \302\310\"\203D \302\311\"\204 \302\312\"\204 \302\313\"\204 \302\314\"\204 \302\315\"\203{ \302\316\304\317\"\320\304\317\"R\"\203{ \300\225\\\262\202 \321\211GZ\322\323
%\210\202 \300\262\324\322 #\211\262\203\353 \325\322 #\203\257 \262\262\202\267 \324\322 #\262\204\300 G\262\326\327\f$\210\306 \300#\330\331\306\f#\n#\306 \"Q\262 \262\202\217 \325\300\322 #\203\375 \330\331\n #\262 \207" [0 nil string-match "\\(\\`\\|[^a-zA-Z0-9$_][ ]*\\)\\([a-zA-Z][a-zA-Z0-9$_]*\\)\\([ ]*[^a-zA-Z0-9$_]\\|\\'\\)" match-string 2 substring ",[ $\n]*/\\'" "[,(][ \n]*\\'" "\\`[ ]*=" "\\`(" "->[ ]*\\'" "\\.\\'" "\\([\"']\\)[^]*$" "^[^" 1 "]*" put-text-property fetch t next-single-property-change get-text-property remove-text-properties (fetch nil) format "(routine_names('%s',fetch=%d))"] 16 (#$ . 88012)])
#@234 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)
(fn HELP EXPR)
(defalias 'idlwave-shell-help-statement #[514 "\204\f \301\302\303!R\207;\203& \304\305\"\205) \306\307\310\224#\306\310\225\"Q\207\311P\207" [idlwave-shell-max-print-length "idlwave_print_safe, " "," number-to-string string-match "\\(^\\|[^_]\\)\\(___\\)\\([^_]\\|$\\)" substring 0 2 "help, "] 7 (#$ . 89560)])
#@39 Highlight the most recent IDL output.
(defalias 'idlwave-shell-examine-highlight #[0 "\302\303 !\304!\211\205 \305!\306\211rq\210b\210\307 \210`\262\310\306\311#\210\307\312!\210`\262)\313\303 \306\314 #\210 \205B \205B \315 $\207" [idlwave-shell-prompt-pattern idlwave-shell-output-overlay get-buffer idlwave-shell-buffer get-buffer-process process-mark nil beginning-of-line re-search-backward t 2 idlwave-display-buffer idlwave-shell-shell-frame move-overlay] 10 (#$ . 90120)])
(defalias 'idlwave-shell-delete-output-overlay #[0 "\302>?\205 \3031 \205 \304 !0\202 \210\202 \210\305\306\307\"\207" [this-command idlwave-shell-output-overlay (ignore handle-switch-frame) (error) delete-overlay remove-hook pre-command-hook idlwave-shell-delete-output-overlay] 3])
(defalias 'idlwave-shell-delete-expression-overlay #[0 "\302>?\205 \3031 \205 \304 !0\202 \210\202 \210\305\306\307\"\207" [this-command idlwave-shell-expression-overlay (ignore handle-switch-frame) (error) delete-overlay remove-hook pre-command-hook idlwave-shell-delete-expression-overlay] 3])
#@893 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 (#$ . 91215))
#@503 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.
(fn BEG END &optional N)
(defalias 'idlwave-shell-run-region #[770 "pr\303\304\305!\306\"q\210\307\300!\210\310\307\301!\210\311\312 \210\313#\210\212\314 \210\315\316!)\204- \317c\210\320\321!\210)\210\322\323\n\324Q\325\326\327!\205@ \330\325\331%\210\211\205O \332\333 \325\334 #\207" [comment-start-skip comment-start 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 "\\<end\\>" "\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] 9 (#$ . 92163) "r\nP"])
#@203 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.
(fn BEG END &optional N)
(defalias 'idlwave-shell-evaluate-region #[770 "\300{!\210\211\205 \301\302 \303\304 #\207" [idlwave-shell-send-command idlwave-display-buffer idlwave-shell-buffer nil idlwave-shell-shell-frame] 7 (#$ . 93386) "r\nP"])
#@57 Delete the temporary files and kill associated buffers.
(defalias 'idlwave-shell-delete-temp-files #[0 ";\203$ \3021 \303!\304!\203 \305!\210\306!\2620\202# \210\202$ \210 ;\2054 \30712 \306 !0\207\210\310\207" [idlwave-shell-temp-pro-file idlwave-shell-temp-rinfo-save-file (error) idlwave-get-buffer-visiting buffer-live-p kill-buffer delete-file (error) nil] 3 (#$ . 93816)])
#@46
(fn BUF NOT-THIS-WINDOW-P &optional FRAME)
(defalias 'idlwave-display-buffer #[770 "\300 \212\301!\203
\302!\210\211\300 =\203 \303!\202, \304 \203( \305!\210\306 \202, \303\")\207" [selected-frame frame-live-p select-frame display-buffer one-window-p switch-to-buffer selected-window] 7 (#$ . 94209)])
#@66 Scratch buffer for parsing IDL breakpoint lists and other stuff.
(defvar idlwave-shell-bp-buffer " *idlwave-shell-bp*" (#$ . 94528))
#@137 Reconcile idlwave-shell's breakpoint list with IDL's.
Queries IDL using the string in `idlwave-shell-bp-query'.
(fn &optional NO-SHOW)
(defalias 'idlwave-shell-bp-query #[256 "\301\302\303\304DDD\305#\207" [idlwave-shell-bp-query idlwave-shell-send-command progn idlwave-shell-filter-bp quote hide] 7 (#$ . 94668) nil])
#@361 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'.
(fn BP &optional ITEM)
(defalias 'idlwave-shell-bp-get #[513 "\211\300\267\202I @A@\207@@\207AA\207AA@\207AAA@\207\301AA8\207\302AA8\207A@A@\211<\2039 \211@\202: \211\207A@A@\211<\205H \211A@\207A@@\207" [#s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (line 6 file 11 data 15 count 19 cmd 24 condition 30 disabled 36 module 42 type 59)) 2 3] 4 (#$ . 94998)])
#@246 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.
(fn &optional NO-SHOW)
(defalias 'idlwave-shell-filter-bp #[256 "r\303!q\210\304 \210 c\210eb\210\n\305\306\307\211\211\211\211\211\211\211\211\211C\310\311\307\312#\2031 \n\262\313\211\262\204D \310\314\307\312#\203\262 \262\315\211\262\203\262 \310\307\312#\203\262 \316\317@!!\262\317A@!\262\316\317\3208!!\262\321\317\3228!!\262 \n=\203\227 \317\323!\203~ \324\202\211 \317\325!\205\211 \316\317\325!!\262\317\326!\262\317\327!??\262\n DD\307\257BC\244\210\202D \nA =\203\305 \330\331
\"\210\202\313 \330\332
\"\210\266\f)\211\204\325 \333 \210\n\207" [idlwave-shell-bp-buffer idlwave-shell-command-output idlwave-shell-bp-alist 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 mapc idlwave-shell-update-bp idlwave-shell-update-bp-command-only idlwave-shell-update-bp-overlays] 20 (#$ . 95749)])
#@11
(fn BP)
(defalias 'idlwave-shell-update-bp-command-only #[257 "\300\301\"\207" [idlwave-shell-update-bp t] 4 (#$ . 97356)])
#@140 Update BP data in breakpoint list.
If BP frame is in `idlwave-shell-bp-alist' updates the breakpoint data.
(fn BP &optional COMMAND-ONLY)
(defalias 'idlwave-shell-update-bp #[513 "\301@\"\211\205# \203 \211AAA\211AAA@\240\262\202# \211AAA\241\207" [idlwave-shell-bp-alist assoc] 6 (#$ . 97490)])
#@43 Set the data of BP to DATA.
(fn BP DATA)
(defalias 'idlwave-shell-set-bp-data #[514 "A\241\207" [] 4 (#$ . 97800)])
#@299 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'.
(fn FRAME &optional DATA MODULE)
(defalias 'idlwave-shell-bp #[769 "\300DBB\207" [nil] 6 (#$ . 97926)])
#@59 List of breakpoints previous to setting a new breakpoint.
(defvar idlwave-shell-old-bp nil (#$ . 98304))
#@183 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.
(fn BP)
(defalias 'idlwave-shell-sources-bp #[257 "\301\302\"\301\303\"\211\205 \304\"A\211\203\" @\232\203\" \211A@\202# \207" [idlwave-shell-sources-alist idlwave-shell-bp-get file module assoc] 6 (#$ . 98416)])
#@379 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.
(fn BP &optional NO-SHOW)
(defalias 'idlwave-shell-set-bp #[513 "\301\302\303\304DD\305BB\306#\210\307\310\311\"\310\312\"\"\210\310\313\"\310\314\"\310\315\"\205B \247\205B \316U\2038 \317\202B \316V\205B \320\321\"\205J \322\323Q\205Y ?\205Y ?\205Y \324Q\310\325\"\301\326\327 !\330\250\205q \331!\211\262\260\302\332\333\304\fDD\334\304
D\304
DEED\335\336!\337\340%\207" [idlwave-shell-bp-query 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 count condition disabled 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] 16 (#$ . 98819)])
#@87 Find the breakpoint in IDL's internal list of breakpoints.
(fn BP &optional NO-SHOW)
(defalias 'idlwave-shell-set-bp-adjust #[513 "\301\302\303\304\305DD\306\305D\307BBF\310\311$\207" [idlwave-shell-bp-query idlwave-shell-send-command progn (idlwave-shell-filter-bp 'no-show) idlwave-shell-new-bp quote unless ((idlwave-shell-update-bp-overlays)) hide preempt] 10 (#$ . 100063)])
#@104 Return breakpoint from `idlwave-shell-bp-alist' for frame.
Returns nil if frame not found.
(fn FRAME)
(defalias 'idlwave-shell-find-bp #[257 "\301\"\207" [idlwave-shell-bp-alist assoc] 4 (#$ . 100456)])
#@44 Find breakpoint here, or at halt location.
(defalias 'idlwave-shell-find-current-bp #[0 "\300\301 !\211\204! \212\302 \210\303 \210\300\301 !\262)\211\204! \304 \210\305\306!\210\211\207" [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 (#$ . 100668)])
#@320 Find the new breakpoint in IDL's list and update with DATA.
The actual line number for a breakpoint in IDL may be different from
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.
(fn BP)
(defalias 'idlwave-shell-new-bp #[257 "\302\303\" \303@!\235\203 \211A\211\262\204 \211\204) \304@ \"\211\262\203) \211C\262\211\203G \303@\211\262\305\"\303\305\"\232\203G \306\303\307\"\"\202M \310 \210\311\312!\207" [idlwave-shell-old-bp idlwave-shell-bp-alist mapcar idlwave-shell-bp-get assoc file idlwave-shell-set-bp-data data beep message "Failed to identify breakpoint in IDL"] 8 (#$ . 101046)])
#@40 Alist of overlays marking breakpoints.
(defvar idlwave-shell-bp-overlays nil (#$ . 101790))
(defvar idlwave-shell-debug-line-map (make-sparse-keymap))
(define-key idlwave-shell-debug-line-map [mouse-3] 'idlwave-shell-mouse-active-bp)
#@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 #[0 "\205\317\306 !\n\307>\205 \310\211\211\211\211\203O \211A\262 \242\211\262\203O \211A\211A\241\210\266\202\242\211\262\203 \311!\312\"\204G \211B\262\210\313!\210\202& \262 \203` \314\315\314\316 \"\"\202c \317CC\211A\262\242\211\262\203\223\212\320@!\210\321 \322\323!\210`\324\325\"\324\326\"\324\327\" \203\276 \203\230 \330\202\277 \203\272 \331X\203\246 \317\202\277 \332X\203\266 \333\334\335!P!\202\277 \336\202\277 \317\202\277 \317\337\310\205\313 \340\341!P\205\324 \342P\205\331 \343E\"\344\341\324\f!!\205\355 \345\346\347\350#P?\205\372 ?\205\372 \351R\203 \333\352!\353P!\202\n\211\236\211A\203\"\211\211A\211A\241\210\266\202\242\206'\354\"\310\f\2033\355\356#\210\357\f#\210 \236\211\262\203P\211\211AB\241\266\202W DC\244\210\266\f\203\217\211\203g\337p\"\262\360\361!\203w\361
p\362B\"\210\202
\362W\203\362\363p\331\"\211\203\216\364
5#\210\210)\202d \205\315\211A\262\242\211\262\205\315rq\210\360\361!\203\267\361
p\331B\"\210\202\271\331\363\331\"\211\203\310\364
5#\210\210)\202\227\266\210\207" [idlwave-shell-mark-breakpoints idlwave-shell-bp-overlays idlwave-shell-bp-alist idlwave-shell-bp-glyph idlwave-shell-breakpoint-popup-menu left-margin-width copy-alist (t glyph) nil overlay-buffer memql delete-overlay mapcar list car bp idlwave-shell-goto-frame point-at-eol beginning-of-line 1 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 right-margin-width] 24 (#$ . 102031)])
#@238 Make a new overlay for highlighting breakpoints.
This stuff is strongly dependent upon the version of Emacs. If TYPE
is passed, make an overlay of that type (`bp' or `bp-cond', currently
only for glyphs).
(fn &optional TYPE DISABLED)
(defalias 'idlwave-shell-make-new-bp-overlay #[512 "\306\307\211\"\310>\205 \206 \311\203 \n\202 \f\203) \312\313\314#\210\312\315
#\210\203c \203Z \236A\316\203D \317\320\321D\"\262\322\323\324\325\326DD#\262\312\327#\266\202m \312\330#\210\202m \203m \312\330#\210\207" [idlwave-shell-mark-breakpoints idlwave-shell-bp-glyph idlwave-shell-disabled-breakpoint-face idlwave-shell-breakpoint-face idlwave-shell-breakpoint-popup-menu idlwave-shell-debug-line-map make-overlay 1 (t glyph) bp overlay-put mouse-face highlight keymap nil append :conversion disabled propertize "@" display margin left-margin before-string face window-system] 13 (#$ . 104060)])
#@61 Does right-click mouse action on breakpoint lines.
(fn EV)
(defalias 'idlwave-shell-mouse-active-bp #[257 "\211\203 \300!\210\301\302 !\303\211\211\211\211\211\204 \304\305!\210\306\307!!\262\307\310\"\262\307\311\"\262\307\312\"\262\307\313\"\262\314\315\303\203L \316\202M \317\320\321 \203X \322\202Y \323\f\205_ \324\f\203h \325\202i \326
\205o \327\257\"\330 P#\262\205\342 \321\230\203\210 \331 \202\342 \320\230\203\223 \332 \202\342 \333\334\"\203\262 \335\203\252 \333\336\"\205\255 \337\340!$\202\342 \333\341\"\203\322 \335\203\305 \333\336\"\205\312 \342\337\343!!$\202\342 \333\344\"\203\336 \345 \202\342 \346\347\"\207" [mouse-set-point idlwave-shell-find-bp idlwave-shell-current-frame nil error "Breakpoint not found" int-to-string idlwave-shell-bp-get condition cmd count disabled 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"] 19 (#$ . 104991) "e"])
#@35 Edit the current execute command.
(defalias 'idlwave-shell-edit-default-command-line #[0 "\301\302\"\211\207" [idlwave-shell-command-line-to-execute read-string "IDL> "] 3 (#$ . 106338) nil])
#@204 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.
(fn ARG)
(defalias 'idlwave-shell-execute-default-command-line #[257 "\211\302\267\202 \303\202 \304\305\"\306\307!\210\310\206# r\311 q\210\312 \313\")\314\"\207" [idlwave-shell-command-line-to-execute comint-input-ring #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((16) 6 (4) 11)) nil read-string "IDL> " idlwave-shell-reset hidden idlwave-shell-send-command idlwave-shell-buffer ring-ref 0 (idlwave-shell-redisplay 'hide)] 5 (#$ . 106539) "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 #[0 "\300\301!\207" [idlwave-shell-save-and-action run] 2 (#$ . 107237) 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 #[0 "\300\301!\207" [idlwave-shell-save-and-action compile] 2 (#$ . 107577) 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 #[0 "\300\301!\207" [idlwave-shell-save-and-action batch] 2 (#$ . 107931) nil])
#@220 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.
(fn ACTION)
(defalias 'idlwave-shell-save-and-action #[257 "\203 \304!\210 \203 \305 \210\306\211\306\307\310!\203# \311 \210\312 \202? \203; \313 !\211\262\203? r\211q\210\311 \210)\202? \314\315!\210\316 !\203s \317\320\267\202Y \321\202] \322\202] \323\202] \324\325\"\326 \326R\327\306 E\330\331!\205l \332\306\333%\210\334 \207\335\336 \"\306\324!\207" [idlwave-shell-stop-line-overlay idlwave-shell-is-stopped overlay-arrow-string idlwave-shell-last-save-and-action-file delete-overlay idlwave-shell-electric-debug-all-off nil derived-mode-p idlwave-mode save-buffer buffer-file-name idlwave-get-buffer-visiting read-file-name "File: " file-regular-p idlwave-shell-send-command #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (run 77 compile 81 batch 85)) ".run " ".compile " "@" error "Unknown action %s" "\"" idlwave-shell-maybe-update-routine-info idlwave-shell-hide-p run mostly t idlwave-shell-bp-query format "No such file %s"] 8 (#$ . 108280)])
#@92 Update the routine info if the shell is not stopped at an error.
(fn &optional WAIT FILE)
(defalias 'idlwave-shell-maybe-update-routine-info #[512 "?\205 \304=\204 \305 >\205 \n\205 \205 \306\304\307$\207" [idlwave-shell-is-stopped idlwave-auto-routine-info-updates idlwave-query-shell-for-routine-info idlwave-routines t compile-buffer idlwave-shell-update-routine-info nil] 7 (#$ . 109502)])
#@61 IDL command to obtain source files for compiled procedures.
(defvar idlwave-shell-sources-query "help,/source,/full" (#$ . 109913))
#@162 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 (#$ . 110052))
#@134 Determine the source file for a given module.
Query as a function if TYPE set to something beside `pro'.
(fn MODULE &optional TYPE)
(defalias 'idlwave-shell-module-source-query #[513 "\205 \300\301\302\303=\203 \304\202 \305#\306D\307\310$\207" [idlwave-shell-send-command format "print,(routine_info('%s',/SOURCE%s)).PATH" pro "" ",/FUNCTIONS" idlwave-shell-module-source-filter hide wait] 8 (#$ . 110275)])
#@75 Get module source, and update `idlwave-shell-sources-alist'.
(fn MODULE)
(defalias 'idlwave-shell-module-source-filter #[257 "\302\226\"\303\304\305 \"\2052 \306 \307\224\307\225#\262\203$ \310!D\241\2022 \311\226\310!DBC\"\211\207" [idlwave-shell-sources-alist idlwave-shell-command-output assoc nil string-match ".PATH *[\n
]\\([^%][^
\n]+\\)[\n
]" substring 1 idlwave-shell-file-name append] 8 (#$ . 110698)])
#@120 Determine source files for all IDL compiled procedures.
Queries IDL using the string in `idlwave-shell-sources-query'.
(defalias 'idlwave-shell-sources-query #[0 "\301\302\303#\207" [idlwave-shell-sources-query idlwave-shell-send-command idlwave-shell-sources-filter hide] 4 (#$ . 111131) nil])
#@205 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 #[0 "r\303!q\210\304 \210 c\210eb\210\305\211\306\307\305\310#\203 \305y\210`\262\306\311\305\310#\205? `\262\312\313 }\210eb\210\314 ~\210b\210\314 \"\211\266\202)\207" [idlwave-shell-bp-buffer idlwave-shell-command-output idlwave-shell-sources-alist get-buffer-create erase-buffer nil re-search-forward "Compiled Procedures:" t "Compiled Functions:" append point-at-bol idlwave-shell-sources-grep] 6 (#$ . 111434)])
(defalias 'idlwave-shell-sources-grep #[0 "\212\300C\300y\210m\204+ \301\302\300\303#\203+ \211\304\224\304\225{\305\224\305\225{\306!D\262BC\244\210\202 \211A\262)\207" [nil re-search-forward "\\s-*\\(\\S-+\\)\\s-+\\(\\S-+\\)" t 1 2 idlwave-shell-file-name] 6])
#@32 Remove all breakpoints in IDL.
(defalias 'idlwave-shell-clear-all-bp #[0 "\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 (#$ . 112377) nil])
#@30 List all breakpoints in IDL.
(defalias 'idlwave-shell-list-all-bp #[0 "\301!\207" [idlwave-shell-bp-query idlwave-shell-send-command] 2 (#$ . 112697) nil])
#@64 Position of last syntax error in `idlwave-shell-error-buffer'.
(defvar idlwave-shell-error-last 0 (#$ . 112860))
#@38 Move point to next IDL syntax error.
(defalias 'idlwave-shell-goto-next-error #[0 "\304\211rq\210 b\210\305\n\304\306#\204 \305 \304\306#\203L \307 \310\311\312\313\314!\315\"\316$\216\317\320\224\320\225{!)\262\321\322\224\322\225{!D\262\212\323\324\304\306#\203H i\202I \311\262)`)\203[ \325\326#\202a \327 \210\330\331!\207" [idlwave-shell-error-buffer idlwave-shell-error-last idlwave-shell-syntax-error idlwave-shell-other-error nil re-search-forward t match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 idlwave-shell-file-name 1 string-to-number 2 re-search-backward "\\^" idlwave-shell-display-line disable beep message "No more errors."] 9 (#$ . 112979) nil])
#@126 If `idlwave-shell-use-truename' is non-nil, convert file name to true name.
Otherwise, just expand the file name.
(fn NAME)
(defalias 'idlwave-shell-file-name #[257 "\303\304!\203\n \202 \n\203 \305\"\202 \306\"\207" [default-directory idlwave-shell-default-directory idlwave-shell-use-truename derived-mode-p idlwave-shell-mode file-truename expand-file-name] 5 (#$ . 113706)])
#@28 Keymap for `idlwave-mode'.
(defvar idlwave-shell-mode-map (byte-code "\303 \304\"\210\305\306\307#\210\305\310\311#\210\305\312\311#\210\305\313\314#\210\305\315\316#\210\305\317\320#\210\305\321\322#\210\305\323\324#\210\305\325\326#\210\305\327\330#\210\305\331\332#\210\305\333\334#\210\305\335\336#\210\305\337\340#\210\305 \341#\210\305\342\343#\210\305\344\345#\210\305\n\346\347#\210\211\207" [comint-mode-map idlwave-shell-prefix-key idlwave-shell-mode-map make-sparse-keymap set-keymap-parent 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 [(shift mouse-3)] idlwave-mouse-context-help] 5) (#$ . 114101))
(defvar idlwave-shell-electric-debug-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\305#\210\301\307\310#\210\301\311\310#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\211\207" [make-sparse-keymap define-key " " idlwave-shell-step "+" idlwave-shell-stack-up "=" "-" idlwave-shell-stack-down "_" "e" #[0 "\300\301!\207" [idlwave-shell-print (16)] 2 nil nil] "q" idlwave-shell-retall "t" #[0 "\300\301!\207" [idlwave-shell-send-command "help,/TRACE"] 2 nil nil] [(control 63)] idlwave-shell-electric-debug-help "x" #[257 "\300\301\211\302$\207" [idlwave-shell-print nil t] 6 "\n\n(fn ARG)" "P"]] 5))
(defvar idlwave-shell-mode-prefix-map (make-sparse-keymap))
(fset 'idlwave-shell-mode-prefix-map idlwave-shell-mode-prefix-map)
(defvar idlwave-mode-prefix-map (make-sparse-keymap))
(fset 'idlwave-mode-prefix-map idlwave-mode-prefix-map)
#@69 Define a key in both the shell and buffer mode maps.
(fn KEY HOOK)
(defalias 'idlwave-shell-define-key-both #[514 "\302#\210\302 #\207" [idlwave-mode-map idlwave-shell-mode-map define-key] 6 (#$ . 116108)])
(byte-code "\306\307\310#\210\306\311\312#\210\313\314\315\"\210\313\316\317\"\210\313\320\321\"\210\313\322\323\"\210\313\324\323\"\210\313\325\323\"\210\326 <\2051 \327>\330\327\331!\"\332\211\211\211\211\211\211\211 \211A\262
\242\211\262 \203@\262A@\262\3338\262\3348\262\3358\262 \205| \336!\205| \211\226=\262\n\203\233 \203\233 \204\223 \306 #\210\306\f#\210\n\203\350
\203\350 \337!\203\304 \340\341\n\f\203\272 \226\202\274 C\"!\262\202\317 \340\341\fC\"!\262\211\204\350 \306#\210\204\350 \306%#\210\203B \337!\203B \306&\342!#\210\202B \266\f\343\fM\210\344 M\207" [idlwave-mode-map idlwave-shell-debug-modifiers idlwave-shell-activate-prefix-keybindings idlwave-shell-mode-prefix-map idlwave-mode-prefix-map window-system define-key "" idlwave-shell-char-mode-loop "" idlwave-shell-send-char 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-2)] ignore [(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)) shift delete copy-sequence nil 2 3 4 characterp char-or-string-p vector append char-to-string idlwave-debug-map idlwave-shell-debug-map idlwave-shell-mode-map idlwave-shell-electric-debug-mode-map] 16)
#@75 Toggle electric-debug-mode, suppressing re-entry into mode if turned off.
(defalias 'idlwave-shell-toggle-electric-debug-mode #[0 "\203\n \302\300\303!\207\304\300\302!\207" [idlwave-shell-electric-debug-mode idlwave-shell-suppress-electric-debug t 0 nil] 2 (#$ . 119221) nil])
(defvar idlwave-shell-electric-debug-buffers nil)
#@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 (#$ . 119559))
(make-variable-buffer-local 'idlwave-shell-electric-debug-mode)
#@452 Toggle Idlwave Shell Electric Debug mode.
If called interactively, enable Idlwave-Shell-Electric-Debug mode if
ARG is positive, and disable it if ARG is zero or negative. If called
from Lisp, also enable the mode if ARG is omitted or nil, and toggle
it if ARG is `toggle'; disable the mode otherwise.
When Idlwave Shell Electric Debug mode is enabled, the Idlwave
Shell debugging commands are available as single key sequences.
(fn &optional ARG)
(defalias 'idlwave-shell-electric-debug-mode #[256 "\306 \307=\203
?\202 \310!\311V\211\203O \312\302!\210 \313p\211 \235\203+ \210\202/ \211 B\210\f\203: \314\f\315
#\210\316\317!\203H \320\317#\321 #\210\322\323!\210\202w \324\302!\205V \n\325p \"\f\203j \314\f\315$#\210\202w \316\317!\203w \320\317\326\327!\"\210\330\331\203\201 \332\202\202 \333\"\210\334\335!\203\246 \306 \203\226 \211\306 \232\203\246 \336\322\337\203\241 \340\202\242 \341#\266\210\342 \210\207" [idlwave-shell-electric-debug-mode buffer-read-only idlwave-shell-electric-debug-read-only idlwave-shell-electric-debug-buffers idlwave-shell-stop-line-overlay idlwave-shell-electric-stop-line-face current-message toggle prefix-numeric-value 0 make-local-variable t overlay-put face facep fringe set-face-foreground selected-frame message "Electric Debugging mode entered. Press [C-?] for help, [q] to quit" boundp delq face-foreground default 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 any " in current buffer" "Idlwave-Shell-Electric-Debug mode %sabled%s" "en" "dis" force-mode-line-update idlwave-shell-electric-stop-color idlwave-shell-stop-line-face] 8 (#$ . 119825) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar idlwave-shell-electric-debug-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\207" [idlwave-shell-electric-debug-mode-map idlwave-shell-electric-debug-mode-hook variable-documentation put "Hook run after entering or leaving `idlwave-shell-electric-debug-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode idlwave-shell-electric-debug-mode " *Debugging*" boundp nil] 6)
(defvar idlwave-shell-electric-debug-buffers nil)
(defalias 'idlwave-shell-electric-debug-all-off #[0 "\304 \304\212\211A\262\242\211\262\203/ \305!\203 \211q\210\306\307!\203 \n\203 \203 \303\310!\210\202 )\266\304\211\207" [idlwave-shell-suppress-electric-debug idlwave-shell-electric-debug-buffers buffer-file-name idlwave-shell-electric-debug-mode nil buffer-live-p derived-mode-p idlwave-mode 0] 4])
(defalias 'idlwave-shell-electric-debug-help #[0 "r\306\307!q\210p\310 \210\311\211\312\211\312 \313 \210\314\315!\210+\211 \316!\210\317!\210)\266\320 \321\307!\322!\323!\210\324\325\326d\"ZT!\210\323!\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only get-buffer-create "*IDLWAVE Electric Debug Help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ internal-temp-output-buffer-show selected-window get-buffer-window window-height select-window enlarge-window count-lines 1 standard-output idlwave-shell-electric-debug-help] 8 nil nil])
(defvar idlwave-shell-menu-def (byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\"B\315\313\316\"B\257\317BBBBBBB\207" [idlwave-shell-examine-alist "Debug" ["Electric Debug Mode" idlwave-shell-electric-debug-mode :style toggle :selected idlwave-shell-electric-debug-mode :included (derived-mode-p 'idlwave-mode) :keys "C-c C-d C-v"] "--" ("Compile & Run" ["Save and .RUN" idlwave-shell-save-and-run (or (derived-mode-p 'idlwave-mode) idlwave-shell-last-save-and-action-file)] ["Save and .COMPILE" idlwave-shell-save-and-compile (or (derived-mode-p 'idlwave-mode) idlwave-shell-last-save-and-action-file)] ["Save and @Batch" idlwave-shell-save-and-batch (or (derived-mode-p '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 (derived-mode-p 'idlwave-mode)] ["Evaluate Region" idlwave-shell-evaluate-region (derived-mode-p '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 (derived-mode-p '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 (derived-mode-p 'idlwave-mode)] ["Set Condition Breakpoint" (idlwave-shell-break-here '(4)) :active (derived-mode-p 'idlwave-mode)]) ["Break in Module" idlwave-shell-break-in :keys "C-c C-d C-i" :active (derived-mode-p 'idlwave-mode)] ["Break in this Module" idlwave-shell-break-this-module :keys "C-c C-d C-j" :active (derived-mode-p '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 (derived-mode-p 'idlwave-mode)] ["Goto Next Breakpoint" idlwave-shell-goto-next-bp :keys "C-c C-d ]" :active (derived-mode-p '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 (derived-mode-p 'idlwave-mode)]) "Examine Expressions" ["Print expression" idlwave-shell-print t] ["Help on expression" idlwave-shell-help-expression t] "Examine nearby expression with" mapcar #[257 "\300\301@\302\303\304DE\305BB\"\207" [apply vector idlwave-shell-print nil quote (t)] 8 "\n\n(fn X)"] "Examine region with" #[257 "\300\301@\302\303\304DE\305BB\"\207" [apply vector idlwave-shell-print '(4) quote (t)] 8 "\n\n(fn X)"] (("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])] 14))
(byte-code "\304\305!\204
\306\307\310\"\203F \311\312!\210\313\303\314 $\210\315\312!\210\313\316\n\317 $\210r\320 \211\203D \211@\211q\210\321\322!\203= \323 !\210\324 !\210A\266\202\202& \210)\312\207" [idlwave-mode-map idlwave-shell-menu-def idlwave-shell-mode-map idlwave-mode-debug-menu featurep easymenu load "easymenu" t (lambda (#1=#:def-tmp-var) (defvar idlwave-mode-debug-menu #1# #2="IDL debugging menus")) nil easy-menu-do-define #2# (lambda (#1#) (defvar idlwave-shell-mode-menu #1# #3="IDL shell menus")) idlwave-shell-mode-menu #3# buffer-list derived-mode-p idlwave-mode easy-menu-remove easy-menu-add] 5)
#@57 The glyphs to mark breakpoint lines in the source code.
(defvar idlwave-shell-bp-glyph nil (#$ . 129093))
(byte-code "\301\302\211\211A\262\242\211\262\2039 \303\304!\203( \304\305!\203( \306\307\305\310A\311\312\257\202) \302\262\211\203 @BB\202 \266\313\314!\210\313\315!\207" [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] 10)
#@29 Toggle the IDLWAVE toolbar.
(autoload 'idlwave-toolbar-toggle "idlw-toolbar" '(#$ . 132515))
#@22 Add IDLWAVE toolbar.
(autoload 'idlwave-toolbar-add-everywhere "idlw-toolbar" '(#$ . 132614))
#@46 Toggle the display of the debugging toolbar.
(defalias 'idlwave-shell-toggle-toolbar #[0 "\300 \207" [idlwave-toolbar-toggle] 1 (#$ . 132714) 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)
Mini Shell