|
Server IP : 111.118.215.189 / Your IP : 18.117.158.174 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/progmodes/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:26 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/idlw-shell.el
;;; in Emacs version 24.3.1
;;; 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\307\302\315\316&\210\311\317\320\321\307\302\315\322&\210\311\323\303\324\307\302\315\325&\210\311\326\303\327\307\302\315\325&\210\311\330\331\332\307\302\315\333&\210\311\334\335\336\307\302\315\325&\210\311\337\335\340\307\302\315\341&\210\311\342\335\343\307\302\315\325&\210\311\344\345\346\307\302\315\322&\210\311\347\350\351\307\302\315\322&\210\311\352\335\353\307\302\315\325&\210\311\354\355\356\307\302\315\357&\210\311\360\335\361\307\302\315\325&\210\311\362\303\363\307\302\315\325&\210\311\364\365\366\307\302\315\322&\210\311\367\370\371\307\302\315\372&\210\311\373\374\375\307\302\315\376&\210\301\377\303\201@ \305\306\307\310&\210\311\201A \201B \201C \307\377\315\322&\210\311\201D \335\201E \307\377\315\325&\210\311\201F \201G \201H \307\377\315\201I &\210\311\201J \201K \201L \307\377\315\201M &\210\311\201N \201O \201P \307\377\315\201Q &\210\311\201R \201S \201T \307\377\315\201U &\210\311\201V \335\201W \307\377\315\325&\210\311\201X \201Y \201Z \307\377\315\201[ &\210\311\201\\ \335\201] \307\377\315\325&\210\311\201^ \303\201_ \307\377\315\325&\210\311\201` \201a \201b \307\377\315\201c &\210\311\201d \335\201e \307\377\315\325&\210\311\201f \303\201g \307\377\315\325&\210\301\201h \303\201i \305\306\307\310&\210\311\201j \335\201k \307\201h \315\201l &\210\311\201m \201n \201o \307\201h \315\322&\210\311\201p \201q \201r \307\201h \315\201s &\210\311\201t \201u \201v \307\201h \315\322&\210\311\201w \201x \201y \307\201h \315\201s &\210\311\201z \335\201{ \307\201h \315\201| &\210\311\201} \201~ \201 \307\201h \315\201s &\210\204\\\201\200 \201\201 \201\202 \"\210\202n\201\203 \201\202 \201\204 \201\205 \307\201h %\210\311\201\206 \201\207 \201\210 \307\201h \315\201s &\210\204\225\201\200 \201\201 \201\211 \"\210\202\247\201\203 \201\211 \201\212 \201\205 \307\201h %\210\311\201\213 \201\214 \201\215 \307\201h \315\201s &\210\311\201\216 \201\217 \201\220 \307\201h \315\201s &\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 "^
? ?IDL> " "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 "idl" "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 "Non-nil means, never replace the shell frame with another buffer." boolean idlwave-shell-use-dedicated-frame "Non-nil means, IDLWAVE should use a special frame to display shell buffer." idlwave-shell-frame-parameters '((height . 30) (unsplittable)) "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 t "Non-nil means, `idlwave-shell' raises the frame showing the shell window." idlwave-shell-arrows-do-history "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 "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 "/tmp/idltemp" "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 "" "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 "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 'breakpoint "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 "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 "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 "~/A-Za-z0-9+:_.$#%={}\\- " "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 'nil "Hook for customizing `idlwave-shell-mode'." hook idlwave-shell-graphics-window-size '(500 400) "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 "!more=0 & defsysv,'!ERROR_STATE',EXISTS=__e & if __e then begin & !ERROR_STATE.MSG_PREFIX=\"% \" & delvar,__e & endif" "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 "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 "idlwhist" "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 '(run misc breakpoint) "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 200 "Maximum number of array elements to print when examining." integer idlwave-shell-examine-alist `(("Print" \, (concat "idlwave_print_safe,___," (number-to-string idlwave-shell-max-print-length))) ("Help" . "help,___") ("Structure Help" . "help,___,/STRUCTURE") ("Dimensions" . "print,size(___,/DIMENSIONS)") ("Type" . "print,size(___,/TNAME)") ("N_Elements" . "print,n_elements(___)") ("All Size Info" . "help,(__IWsz__=size(___,/STRUCTURE)),/STRUCTURE & print,__IWsz__.DIMENSIONS") ("Ptr Valid" . "print,ptr_valid(___)") ("Arg Present" . "print,arg_present(___)") ("Widget Valid" . "print,widget_info(___,/VALID)") ("Widget Geometry" . "help,widget_info(___,/GEOMETRY)")) "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 "Non-nil means, put output of examine commands in their own buffer." idlwave-shell-comint-settings '((comint-scroll-to-bottom-on-input . t) (comint-scroll-to-bottom-on-output . t) (comint-scroll-show-maximum-output) (comint-prompt-read-only . t)) "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 "Non-nil means query the shell for object class on object completions." idlwave-shell-use-input-mode-magic "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 '("^<onechar>$" "^<chars>$" "^</chars>$") "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 "If non-nil, provide a menu on mouse-3 on breakpoint lines, and\npopup help text on the line." idlwave-shell-reset-no-prompt "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 "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.\nIn Emacs 21, the overlay arrow is displayed in a special area and never\nhides any code, so setting this to 'arrow on Emacs 21 sounds like a good idea." (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 ">" "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 'highlight "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 "Violet" "The color for the default face or overlay arrow when stopped." idlwave-shell-electric-stop-line-face (prog1 (copy-face 'mode-line 'idlwave-shell-electric-stop-line) (set-face-background 'idlwave-shell-electric-stop-line idlwave-shell-electric-stop-color) (condition-case nil (set-face-foreground 'idlwave-shell-electric-stop-line nil) (error nil))) "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 "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 'idlwave-shell-bp "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 'idlwave-shell-disabled-bp "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 'secondary-selection "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 'secondary-selection "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 (#$ . 17654))
#@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 (#$ . 17778))
#@178 Return a temp file, creating it if necessary.
TYPE is either 'pro' or 'rinfo', and `idlwave-shell-temp-pro-file' or
`idlwave-shell-temp-rinfo-save-file' is set (respectively).
(defalias 'idlwave-shell-temp-file #[(type) "\304=\203 \206& \305\n!\211\207\306=\203 \206& \305\n!\211\207\307\310\311!\"\207" [type idlwave-shell-temp-rinfo-save-file idlwave-shell-temp-pro-prefix idlwave-shell-temp-pro-file rinfo idlwave-shell-make-temp-file pro error "Wrong argument (idlwave-shell-temp-file): %s" symbol-name] 4 (#$ . 18009)])
#@26 Create a temporary file.
(defalias 'idlwave-shell-make-temp-file #[(prefix) "\304\305!\203\n \305!\207\306\307\301!\203 \202 \310\306\311\312\217\204 *\207" [prefix temporary-file-directory temp-file-dir file fboundp make-temp-file nil boundp "/tmp" (byte-code "\303\304 \"!\305\306\307\n\307\310\307\311&\210\307\207" [prefix temp-file-dir file make-temp-name expand-file-name write-region "" nil silent excl] 8) ((file-already-exists t))] 3 (#$ . 18550)])
#@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" (#$ . 19025))
#@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+'>'" (#$ . 19199))
#@45 Additional info displayed in the mode line.
(defvar idlwave-shell-mode-line-info nil (#$ . 19397))
#@68 The default directory in the idlwave-shell buffer, of outside use.
(defvar idlwave-shell-default-directory nil (#$ . 19502))
#@69 The last file which was compiled with `idlwave-shell-save-and-...'.
(defvar idlwave-shell-last-save-and-action-file nil (#$ . 19633))
(byte-code "\300\301!\204 \302\303\304\217\210\302\207" [fboundp make-overlay nil (byte-code "\300\301!\207" [require overlay] 2) ((error))] 3)
#@49 The overlay for where IDL is currently stopped.
(defvar idlwave-shell-stop-line-overlay nil (#$ . 19918))
(defvar idlwave-shell-is-stopped nil)
#@42 The overlay for the examined expression.
(defvar idlwave-shell-expression-overlay nil (#$ . 20068))
#@38 The overlay for the last IDL output.
(defvar idlwave-shell-output-overlay nil (#$ . 20174))
(byte-code "\306!\203\n \307!\210\306 !\203 \307 !\210\306\n!\203 \307\n!\210\310\211\310 \203[ \311=\204[ \312=\203L \313\314!\204> \f\203[ \315\316\211\"\317\312
#\210\202[ \f\203[ \315\316\211\"\317\312
#\210\315\316\211\"\317 \312#\210\317 \320\316#\210\315\316\211\"\317\n\312#\210\321
\322\"\210\321\323\"\210\324\322\325\"\210\324\323\325\"\207" [idlwave-shell-stop-line-overlay idlwave-shell-expression-overlay idlwave-shell-output-overlay idlwave-shell-mark-stop-line window-system idlwave-shell-stop-line-face overlayp delete-overlay nil arrow face fboundp tty-defined-colors make-overlay 1 overlay-put priority copy-face idlwave-shell-pending-stop idlwave-shell-pending-electric-stop set-face-background "gray70" idlwave-shell-expression-face idlwave-shell-output-face idlwave-shell-electric-stop-line-face] 5)
#@40 Command to obtain list of breakpoints.
(defvar idlwave-shell-bp-query "help,/breakpoints" (#$ . 21115))
#@49 String for accumulating current command output.
(defvar idlwave-shell-command-output nil (#$ . 21225))
#@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 (#$ . 21335))
#@38 Hook run when the IDL process exits.
(defvar idlwave-shell-sentinel-hook nil (#$ . 21596))
#@71 If non-nil the process output is not inserted into the output buffer.
(defvar idlwave-shell-hide-output nil (#$ . 21693))
#@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 (#$ . 21822))
#@33 Accumulate last line of output.
(defvar idlwave-shell-accumulation nil (#$ . 22012))
(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 (#$ . 22154))
#@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 (#$ . 22268))
#@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 #[nil "\301\301Q\207" [idlwave-shell-process-name "*"] 3 (#$ . 22623)])
#@50 If non-nil can send next command to IDL process.
(defvar idlwave-shell-ready nil (#$ . 22864))
#@53 The frame associated with halt/breakpoint messages.
(defvar idlwave-shell-halt-frame nil (#$ . 22965))
#@42 The frame associated with step messages.
(defvar idlwave-shell-step-frame nil (#$ . 23074))
#@43 The frame associated with trace messages.
(defvar idlwave-shell-trace-frame nil (#$ . 23172))
#@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:") (#$ . 23273))
#@69 The regular expression computed from `idlwave-shell-halt-messages'.
(defconst idlwave-shell-halt-messages-re (mapconcat 'identity idlwave-shell-halt-messages "\\|") (#$ . 23557))
#@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 " (#$ . 23743))
#@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:") (#$ . 23949))
#@61 Regular expression matching an IDL breakpoint message line.
(defvar idlwave-shell-break-message "^% Breakpoint at:" (#$ . 24187))
(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)
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [idlwave-shell-mode-hook variable-documentation put purecopy "Hook run when 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] 5)
(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\300\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] 5)
(defvar idlwave-shell-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [idlwave-shell-mode-syntax-table variable-documentation put purecopy "Syntax table for `idlwave-shell-mode'." idlwave-shell-mode derived-mode-parent comint-mode] 5)
#@3217 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://idlwave.org'.
IDLWAVE has customize support - see the group `idlwave'.
8. Keybindings
-----------
\{idlwave-shell-mode-map}
(defalias 'idlwave-shell-mode #[nil "\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 \2036
\321 =\203< \322\f\323 \"\210)\324 !\210\325\f!\210@A\326 \210\327B!\204[ \330BC\"BDE\307F\331G\306\332!\210\307\306\333!\210\334\307H\331I\335J\331\211KL\331\211MN\336\331!\210\337O\340D\341\331O\342QPQ\203\250 \343\306\344!\345\"\210\307RS`\331\223\210\331\211TU\331V\346 \210\331\211WXYZ\331[\347\350\351\331\352$\210\347\350\353\331\352$\210\347\354\353\"\210\355\\ \"\210]\203]\331 ^ __\211A_@\211^\203\306^@!^AL\210\202\354 *\356\357\360!>\204 \347\360\361\362\352$\210\347\360\363\331\352$\210\364\360\365\"\210\306\366!\210\3676\307`\347\370\371\331\307$\210a\203PB;\203P\306\372!\210B:\373B!\203P\374 \210\306\375!\210\331=\376b\331\377#\210\376\201e \201f c\"\331\377#\210\376d\201g \377#\210)\201h \201i !\207" [delay-mode-hooks major-mode mode-name idlwave-shell-mode-map idlwave-shell-mode-syntax-table parent 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]*" 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 #[(string) "\303\304\"\205\" \305\306p!!\212\nb\210\307\304 \310#\205! `\311 |\210\202 *\207" [string pmark comint-last-output-start string-match "
" process-mark get-buffer-process search-forward t line-beginning-position] 4] append comint-strip-ctrl-m remove-hook py-pdbtrack-track-stack-file 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 hide idlwave-mode-abbrev-table 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 entry list abbrev-mode idlwave-shell-save-command-history idlwave-shell-initial-commands idlwave-mode-version idlwave-shell-path-query format "defsysv,'!idlwave_version','%s',1" idlwave-shell-get-path-info run-mode-hooks idlwave-shell-mode-hook] 6 (#$ . 27079) nil])
#@61 Get the path lists, writing to file unless NO-WRITE is set.
(defalias 'idlwave-shell-get-path-info #[(&optional no-write) "\306 \211@A
\307\211 \203+ \211\230?\211\203+ \310\305\311\312#\210\313\314\n\"\211\f\232?\211\203@ \310\303\311\312#\210 \203d ?\205g \205g \204Y \205g ?\205g \315 \202g \f\211.\207" [rpl sysdir dirs idlwave-path-alist old-path-alist idlwave-system-directory idlwave-shell-path-filter nil put from-shell t mapcar #[(x) "\303 \"\211\203 \nAB\202 C)\207" [x old-path-alist old-entry assoc] 4] idlwave-write-paths old-sys-dir path-changed sysdir-changed no-write idlwave-auto-write-paths idlwave-library-path] 5 (#$ . 33858)])
(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 (#$ . 34639))
#@44 Frame for displaying the IDL source files.
(defvar idlwave-shell-display-wframe nil (#$ . 34739))
(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 #[nil "\205) \305 !\203\f \207\306 \n=\203% \307 \306 \310\311\215*\206' \312 \202' \306 \211\207" [idlwave-shell-use-dedicated-frame idlwave-shell-display-wframe idlwave-shell-idl-wframe frame flist frame-live-p selected-frame visible-frame-list exit (byte-code "\205 @ =\204 \302\303@\"\210\202 A\211\204 \304\207" [flist idlwave-shell-idl-wframe throw exit nil] 4) make-frame] 2 (#$ . 34937)])
#@51 Return the frame to be used for the shell buffer.
(defalias 'idlwave-shell-shell-frame #[nil "\205 \304 !\203\f \207\304\n!\204 \305 \306 !\211\207" [idlwave-shell-use-dedicated-frame idlwave-shell-idl-wframe idlwave-shell-display-wframe idlwave-shell-frame-parameters frame-live-p selected-frame make-frame] 2 (#$ . 35440)])
#@774 Run an inferior IDL, with I/O through buffer `(idlwave-shell-buffer)'.
If buffer exists but shell process is not running, start new IDL.
If buffer exists and shell process is running, just switch to the buffer.
When called with a prefix ARG, or when `idlwave-shell-use-dedicated-frame'
is non-nil, the shell buffer and the source buffers will be in
separate frames.
The command to run comes from variable `idlwave-shell-explicit-file-name',
with options taken from `idlwave-shell-command-line-options'.
The buffer is put in `idlwave-shell-mode', providing commands for sending
input and controlling the IDL job. See help on `idlwave-shell-mode'.
See also the variable `idlwave-shell-prompt-pattern'.
(Type \[describe-mode] in the shell buffer for a list of commands.)
(defalias 'idlwave-shell #[(&optional arg quick) "\306=\203 \307\310\307!\210\311 \210) \203 \312 \313\314\315\316#\210\202\260 \203& \316\317\232\203. \307\320\321 !\204o \206: \322 \323\324
\f\307$;\203M \325$!\202O $% %\326%! &\307'\327&\330\"\210\331&\332\"\210%q\210\333 \210+\334\321 \307\335 #\336 ( )\337)!\210db\210*\203\217 \340)\316\"\210\337(!\210+\203\240 \341\342)!!\210\312 \342)!=\203\257 \337)!\210*\313\314\343\"\207" [arg idlwave-shell-use-dedicated-frame idlwave-shell-idl-wframe idlwave-shell-explicit-file-name prg idlwave-shell-process-name quick nil idlwave-shell delete-other-windows selected-frame add-hook idlwave-shell-sentinel-hook save-buffers-kill-emacs t (16) comint-check-proc idlwave-shell-buffer "idl" apply make-comint idlwave-split-string get-buffer-process set-process-filter idlwave-shell-filter set-process-sentinel idlwave-shell-sentinel idlwave-shell-mode idlwave-display-buffer idlwave-shell-shell-frame selected-window select-window set-window-dedicated-p raise-frame window-frame #[nil "\205 \205 \n?\205 \301\303N\205 \304 \207" [idlwave-auto-write-paths idlwave-path-alist idlwave-library-path from-shell idlwave-write-paths] 2] idlwave-shell-command-line-options buf process idlwave-idlwave_routine_info-compiled current-window window idlwave-shell-use-dedicated-window idlwave-shell-ready] 7 (#$ . 35779) "P"])
#@71 Run `idlwave-shell', but make sure the current window stays selected.
(defalias 'idlwave-shell-recenter-shell-window #[(&optional arg) "\302 \303 !\210\304!)\207" [window arg selected-window idlwave-shell select-window] 2 (#$ . 37951) "P"])
#@67 Whether to hide this type of command.
Return either nil or 'hide.
(defalias 'idlwave-shell-hide-p #[(type &optional list) "\206 \211<\205 \n>?\205 \303)\207" [list idlwave-shell-show-commands type hide] 3 (#$ . 38200)])
#@45 Add or remove a show command from the list.
(defalias 'idlwave-shell-add-or-remove-show #[(type) "<\203 >\203 \302 \"\202 \303\300 \"\211\207 C\211\207" [idlwave-shell-show-commands type delq add-to-list] 3 (#$ . 38433)])
#@1077 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.
(defalias 'idlwave-shell-send-command #[(&optional cmd pcmd hide preempt show-if-error) "9\203
\306=\203
\307p\307\211 \310\311 !\211\203$ \312 !\211\204O
\2042 \313\314\315\316!\"\210\202O \317 \210\310\311 !\310\311 !\211\203K \312 !\211\204O \313\320!\210 \204Y \205 q\210 \203\205 !\203v \321 \" #FC \"\202\203 \321 \" #FC\" \322 $\323\n!b\210%\203 \324y\210\325&!\323\n!b\210\203 @\211 '@ 'A@ \"\326'8\327'8 #\330 !\331=\203\310 \324(\") *#+ A ,`\307\223\210-`\307\223\210\332\n \"\210\307%!\333\232\203\n%\204\n\334\n\335\"\204\364 \307 \313\336!\210\202\364 -$b\210)\fq+\207" [idlwave-shell-show-commands hide proc buf save-buffer idlwave-shell-automatic-start everything nil get-buffer idlwave-shell-buffer get-buffer-process error "%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" cmd idlwave-shell-pending-commands preempt pcmd show-if-error save-point idlwave-shell-ready idlwave-shell-prompt-pattern lcmd idlwave-shell-calling-stack-index idlwave-shell-post-command-hook idlwave-shell-hide-output idlwave-shell-show-if-error comint-last-input-start comint-last-input-end] 7 (#$ . 38672)])
#@53 Send one character to the shell, without a newline.
(defalias 'idlwave-shell-send-char #[(c &optional error) "\203 \300\202 \305\306\211\307\310 !\211\203 \311\n!\211\204# \312!\210\f\313\232\203/ \314!\2025 \315 \316\f!\"+\207" [error proc buf errf c message nil get-buffer idlwave-shell-buffer get-buffer-process "Shell is not running" 7 "Abort" comint-send-string char-to-string] 4 (#$ . 41167) "cChar to send to IDL: \np"])
#@120 Check STRING for magic words and toggle character input mode.
See also the variable `idlwave-shell-input-mode-spells'.
(defalias 'idlwave-shell-input-mode-magic #[(string) "\303@ \"\203\f \304\305!\207\306\302!\203 \303\3078 \"\203 \310\211\207\303A@ \"\205? \311\312!\2039 \312\313\314\315\316\211\317\320&\207\321\322\316\314\320$\207" [idlwave-shell-input-mode-spells string idlwave-shell-char-mode-active string-match call-interactively idlwave-shell-send-char boundp 2 exit fboundp start-itimer "IDLWAVE Char Mode" idlwave-shell-char-mode-loop 0.5 nil t no-error run-at-time 0.5] 8 (#$ . 41613)])
#@400 Enter a loop which accepts single characters and sends them to IDL.
Characters are sent one by one, without newlines. The loop is blocking
and intercepts all input events to Emacs. You can use this command
to interact with the IDL command GET_KBRD.
The loop can be aborted by typing `C-g'. The loop also exits automatically
when the IDL prompt gets displayed again after the current IDL command.
(defalias 'idlwave-shell-char-mode-loop #[(&optional no-error) "\306\203 \307\202\n \310\311\211\211 \312\313 !\211\203# \314 !\211\204' \f\315!\210\2030 \f\316!\210\307\317!\210\307\320\321\215!-\207" [no-error c proc buf errf idlwave-shell-char-mode-active t message error nil get-buffer idlwave-shell-buffer get-buffer-process "Shell is not running" "No IDL program seems to be waiting for input" "Character mode on: Sending single chars (`C-g' to exit)" exit (byte-code "\306\307\310!\203 \203 \311\312\313\"\210\n\312=\203 \311\312\314\"\210\202 \315\316\317\217\210 \204. \320 \210\202H \321\232\203A \315\320 \210\311\312\322\"\210\202H \323
\324 !\"\210\n\312=\203S \311\312\325\"\210)\202 " [inhibit-quit idlwave-shell-ready idlwave-shell-char-mode-active c keyboard-quit proc t sit-for 0.3 throw exit "Character mode off (prompt displayed)" "Character mode off (closing spell incantation)" nil (byte-code "\301 \301\207" [c read-char] 1) ((error (byte-code "\300 \210\301\302\303\"\207" [ding throw exit "Character mode off"] 3))) ding 7 "Character mode off (keyboard quit)" comint-send-string char-to-string "Single char loop exited"] 4) idlwave-shell-ready] 5 (#$ . 42229) nil])
#@129 When in last line of process buffer, do `comint-previous-input'.
Otherwise just move the line. Move down unless UP is non-nil.
(defalias 'idlwave-shell-move-or-history #[(up &optional arg) "\304\305\306p!!! \206
\307\n\203 \202 [ \310=\203\" b\210 \2034 \311 TY\2034 \312 !\2027 [y+\207" [proc-pos arg up idlwave-shell-arrows-do-history marker-position process-mark get-buffer-process 1 t point-at-eol comint-previous-input] 4 (#$ . 43847)])
#@94 When in last line of process buffer, move to previous input.
Otherwise just go up one line.
(defalias 'idlwave-shell-up-or-history #[(&optional arg) "\301\302\"\207" [arg idlwave-shell-move-or-history t] 3 (#$ . 44307) "p"])
#@92 When in last line of process buffer, move to next input.
Otherwise just go down one line.
(defalias 'idlwave-shell-down-or-history #[(&optional arg) "\301\302\"\207" [arg idlwave-shell-move-or-history nil] 3 (#$ . 44540) "p"])
(defalias 'idlwave-shell-comint-filter #[(process string) "\300\207" [nil] 1])
(byte-code "\300\301!\203 \302\301KM\210\202 \302\303KM\210\300\207" [fboundp comint-output-filter idlwave-shell-comint-filter comint-filter] 2)
#@43 Return t if the shell process is running.
(defalias 'idlwave-shell-is-running #[nil "\301!\302=\207" [idlwave-shell-process-name process-status run] 2 (#$ . 45001)])
#@277 Filter hidden output, leaving the good stuff.
Remove everything to the first newline, and all lines with % in front
of them, with optional follow-on lines starting with two spaces. This
works well enough, since any print output typically arrives before
error messages, etc.
(defalias 'idlwave-shell-filter-hidden-output #[(output) "\302\303\"\304O\302\305\"\203 \306\307\304\310$\202 \302 \"?\205\" \207" [output idlwave-shell-only-prompt-pattern string-match "\n" nil "\\(\n\\|\\`\\)%.*\\(\n .*\\)*" replace-match "" t] 5 (#$ . 45175)])
#@52 Buffer containing hidden output from IDL commands.
(defvar idlwave-shell-hidden-output-buffer " *idlwave-shell-hidden-output*" (#$ . 45732))
(defvar idlwave-shell-current-state nil)
#@193 Watch for IDL prompt and filter incoming text.
When the IDL prompt is received executes `idlwave-shell-post-command-hook'
and then calls `idlwave-shell-send-command' for any pending commands.
(defalias 'idlwave-shell-filter #[(proc string) "\306!\307=\205!\310 \311\211\312\216\313\314\f\"\211\203% \315 \210\f\n\316I\210\202
\203K \212\313\317\f\"\211\203; \f\n\320I\210\202* \321#!q\210db\210\fc\210)\202Q \322$\f\"\210\313\323\f\"\203s %\203d \324&\fP!\210\f\313\325\f\"\210\326\225\311O&\202y &\fP&\313'&\"\211(\205
\203\255 r#q\210\327 db\210\330'\311\331#\210\326\225b\210\332e`\")e`|\210)\202\307 r\333$!q\210\332\212\334$!b\210\326y\210`)*\"))\311 (\335 \210
\203\375 +\203\346 ,\336=\203\346 \322$ \"\210\202\375
\337=\203\375 \340 !\211 -\203\374 \322$-\"\210).<\203 \341.!\210\202. \210\311\211&)\311\211.\311+)\342 ,\207" [idlwave-shell-process-name full-output p data string idlwave-shell-hide-output process-status run match-data nil ((store-match-data data)) string-match "" ding 10 "
" 32 get-buffer-create idlwave-shell-comint-filter "\n" idlwave-shell-input-mode-magic "\\(.*[\n
]+\\)*" 0 buffer-string re-search-backward t buffer-substring-no-properties process-buffer process-mark idlwave-shell-scan-for-state error mostly idlwave-shell-filter-hidden-output eval idlwave-shell-send-command idlwave-shell-hidden-output-buffer proc idlwave-shell-use-input-mode-magic idlwave-shell-accumulation idlwave-shell-prompt-pattern idlwave-shell-ready idlwave-shell-command-output comint-last-input-end idlwave-shell-show-if-error idlwave-shell-current-state filtered idlwave-shell-post-command-hook] 5 (#$ . 45921)])
#@54 The sentinel function for the IDLWAVE shell process.
(defalias 'idlwave-shell-sentinel #[(process event) "\306 \307!\310!\203+ r\306 q\210db\210\311\312\n #c\210\f\203*
;\203* \313\314\315\217\210)\316 G\317V\203E \320!\203E \321!\210\313\211\322 !\203U \323\324!\204U \325 !\210\326 \210\310!\203i rq\210\327\330!)\202l \327\330!*\207" [buf win process event idlwave-shell-save-command-history idlwave-shell-command-history-file idlwave-shell-buffer get-buffer-window get-buffer format "\n\n Process %s %s" nil (comint-write-input-ring) ((error)) frame-list 1 frame-live-p delete-frame window-live-p one-window-p nomini delete-window idlwave-shell-cleanup run-hooks idlwave-shell-sentinel-hook idlwave-shell-idl-wframe idlwave-shell-display-wframe] 5 (#$ . 47601)])
#@56 Buffer containing syntax errors from IDL compilations.
(defvar idlwave-shell-error-buffer " *idlwave-shell-errors*" (#$ . 48390))
#@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-*\\(.*\\)" (#$ . 48527))
#@46 A regular expression to match any IDL error.
(defvar idlwave-shell-other-error "^% .*\n\\s-*At:\\s-*\\(.*\\),\\s-*Line\\s-*\\(.*\\)" (#$ . 48782))
#@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" (#$ . 48935))
#@55 A regular expression to match errors stepping errors.
(defvar idlwave-shell-cant-continue-error "^% Can't continue from this point.\n" (#$ . 49133))
#@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]+\\)*\\)" (#$ . 49289))
#@491 Scan for state info.
Looks for messages in output from last IDL command indicating where
IDL has stopped. The types of messages we are interested in are
execution halted, stepped, breakpoint, interrupted at and trace
messages. For breakpoint messages process any attached count or
command parameters. Update the stop line if a message is found.
The variable `idlwave-shell-current-state' is set to 'error, 'halt,
or 'breakpoint, which describes the status, or nil for none of
the above.
(defalias 'idlwave-shell-scan-for-state #[nil "\306 ?\206\354 \307\n \"\204 \307 \"\203/ r\310\f!q\210\311 \210 c\210eb\210`)\312\313 \202\354 \307 \"\203M \314 \315 \316\224\306O! \312\317\320 !\202\354 \307 \"\211\204_ \307 \"\203\204 \314 \315 \314\225\306O! \321\317\320 \306\203z \322\202\200 \205\200 \323#\202\354 \307! \"\203\331 \314 \315 \314\225\306O! \324 @ A@D\"\"\211 #\203\313 \325#\326\"\211 \203\307 <\203\303 \327!\210\202\307 \210)\202\316 \330 \210)\331\317\320 !\202\354 \307$ \"\203\350 \331\211\202\354 \306\211)\207" [trace idlwave-shell-command-output idlwave-shell-syntax-error idlwave-shell-other-error idlwave-shell-error-buffer idlwave-shell-error-last nil string-match get-buffer-create erase-buffer error idlwave-shell-goto-next-error 0 idlwave-shell-parse-line 2 idlwave-shell-display-line idlwave-shell-pc-frame halt disable force assoc idlwave-shell-bp-get cmd eval idlwave-shell-bp-query breakpoint idlwave-shell-current-state idlwave-shell-halting-error idlwave-shell-calling-stack-index idlwave-shell-halt-frame idlwave-shell-trace-message-re idlwave-shell-halt-messages-re idlwave-shell-electric-debug-mode idlwave-shell-break-message idlwave-shell-bp-alist bp idlwave-shell-cant-continue-error] 5 (#$ . 49848)])
#@66 Parse IDL message for the subroutine, file name and line number.
(defalias 'idlwave-shell-parse-line #[(string &optional skip-main) "\306\211\211 \205 \307\310\f\"?\205@ \307
\f\"\205@ \311\312\f\"\311\313\f\"\311\314\f\"\315 !\315\n!\316!\211\205@ \317!\320\n! E+\207" [file procedure number skip-main string idlwave-shell-file-line-message nil string-match ":\\s-*\\$MAIN" match-string 1 3 5 idlwave-shell-repair-string idlwave-shell-repair-file-name idlwave-shell-file-name string-to-number] 4 (#$ . 51641)])
#@69 Repair a string by taking out all linebreaks. This is destructive!
(defalias 'idlwave-shell-repair-string #[(string) "\301\302\"\203 \303\304\305\211$\202 \207" [string string-match "[ ]*\n[ ]*" replace-match "" t] 5 (#$ . 52171)])
#@142 Repair a file name string by taking out all linebreaks.
The last line of STRING may be garbage - we check which one makes a valid
file name.
(defalias 'idlwave-shell-repair-file-name #[(file) "\304\211\305\306\307 \"\203 \305\211\224O\306\310 #\203) \n \305\224OP\305\225\202 \n \311OP\312 !\203: \202Y \312\n!\203D \n\202Y \n\304\230\204N \n\202Y \304\230\204X \202Y \311+\207" [start file2 file1 file "" 0 string-match "^%" "[ ]*\n[ ]*" nil file-regular-p] 4 (#$ . 52419)])
#@52 Do necessary cleanup for a terminated IDL process.
(defalias 'idlwave-shell-cleanup #[nil "\306\211\306\211\306\307\306\310 \210\311\306!\210\312 \210\313!\210\313!\210\313!\210\314\315 !\2036 \316\314\315 !!\210\317\320!\207" [idlwave-shell-step-frame idlwave-shell-halt-frame idlwave-shell-pending-commands idlwave-shell-command-line-to-execute idlwave-shell-bp-alist idlwave-shell-calling-stack-index nil 0 idlwave-shell-delete-temp-files idlwave-shell-display-line idlwave-shell-update-bp-overlays idlwave-shell-kill-buffer get-buffer idlwave-shell-buffer bury-buffer run-hooks idlwave-shell-cleanup-hook idlwave-idlwave_routine_info-compiled idlwave-shell-hidden-output-buffer idlwave-shell-bp-buffer idlwave-shell-error-buffer] 4 (#$ . 52919)])
#@31 Kill buffer BUF if it exists.
(defalias 'idlwave-shell-kill-buffer #[(buf) "\301!\211\205 \302!\207" [buf get-buffer kill-buffer] 2 (#$ . 53690)])
(defalias 'idlwave-shell-kill-shell-buffer-confirm #[nil "\300 \205 \301 \210\302\303!\204 \304\305!\210\306\307!\207" [idlwave-shell-is-running ding y-or-n-p "IDL shell is running. Are you sure you want to kill the buffer? " error "Abort" message "Killing buffer *idl* and the associated process"] 2])
#@121 Issue a `window,N' command to IDL, with special window size.
The size is given by `idlwave-shell-graphics-window-size'.
(defalias 'idlwave-shell-window #[(n) "\203\n \302!\202 \303\304\305\306\307 $\310\311\312!\310\313%)\207" [n idlwave-shell-graphics-window-size prefix-numeric-value 0 idlwave-shell-send-command apply format "window,%d,xs=%d,ys=%d" nil idlwave-shell-hide-p misc t] 6 (#$ . 54154) "P"])
#@175 Resync the buffer's idea of the current directory.
This command queries IDL with the command bound to
`idlwave-shell-dirstack-query', reads the output for the new
directory.
(defalias 'idlwave-shell-resync-dirs #[nil "\301\302\303\304$\207" [idlwave-shell-dirstack-query idlwave-shell-send-command idlwave-shell-filter-directory hide wait] 5 (#$ . 54572) nil])
#@83 Return from the entire calling stack.
Also get rid of widget events in the queue.
(defalias 'idlwave-shell-retall #[(&optional arg) "\301 r\302\216\303\304\305\306\307!\205 \310\305\311%\210\312\305!+\207" [save-selected-window--state internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) idlwave-shell-send-command "retall" nil idlwave-shell-hide-p misc mostly t idlwave-shell-display-line] 6 (#$ . 54940) "P"])
#@23 Close all open files.
(defalias 'idlwave-shell-closeall #[(&optional arg) "\300\301\302\303\304!\302\305%\207" [idlwave-shell-send-command "close,/all" nil idlwave-shell-hide-p misc t] 6 (#$ . 55414) "P"])
#@86 Exit the IDL process after confirmation.
With prefix ARG, exit without confirmation.
(defalias 'idlwave-shell-quit #[(&optional arg) "\301 \204 \302\303!\207\204 \304\305!\205 \306\307\310\217\207" [arg idlwave-shell-is-running error "Shell is not running" y-or-n-p "Exit the IDLWAVE Shell? " nil (idlwave-shell-send-command "exit") ((error))] 3 (#$ . 55626) "P"])
#@165 Reset IDL. Return to main level and destroy the leftover variables.
This issues the following commands:
RETALL
WIDGET_CONTROL,/RESET
CLOSE, /ALL
HEAP_GC, /VERBOSE
(defalias 'idlwave-shell-reset #[(&optional hidden) "\204\n \303\304!\205+ \305\306!\210\307\310\311\312\n#\210\310\313\312\n#\210\310\314\312\n#\210\310\315\312\n#\210\316\312!\207" [idlwave-shell-reset-no-prompt idlwave-shell-calling-stack-index hidden yes-or-no-p "Really Reset IDL and discard current session? " message "Resetting IDL" 0 idlwave-shell-send-command "retall" nil "widget_control,/reset" "close,/all" "heap_gc,/verbose" idlwave-shell-display-line] 4 (#$ . 56002) "P"])
(defalias 'idlwave-shell-path-filter #[nil "\306\307\310\211 \311\312
#\203 \313\314
\"\nB\307\225\202\n \315\316\n\"\311\317
\"\2032 \316\313\314
\"! \n\237-B\207" [idlwave-shell-command-output sysdir dirs start case-fold-search path-string t 0 nil string-match "^PATH:[ ]*<\\(.*\\)>[ ]*\n" match-string 1 mapcar file-name-as-directory "^SYSDIR:[ ]*<\\(.*\\)>[ ]*\n"] 5])
#@73 Function which parses the special output from idlwave_routine_info.pro.
(defalias 'idlwave-shell-routine-info-filter #[nil "\306\307\211\211\211\211\211\211\211\211\211\211\211 , - . / 0 1 2 3 4\307\21156\310\3114\"\203M \312\3134\"2\3142!\315P14\306\225\307O4\202` \3162\3171\32047\203` \321\322\"\210\310\3234\"\203s 4\306\211\224O4\202} 7\203} \321\324\"\210\310\32543#\203w\306\2253\312\3134\"/\312\3264\".\327.1\"\211-@,-A@\320\232?\205\263 -A@\326-80\330-8\331-8\211;\205\333 \310\332\f\"?\205\333 \333\334\335\320\327\f\336\"\"\"\337,\n\340#,\341\n\340\"0\320\232?\205\363 00\333\342 \",\343\230\204} /\344\230\203<,\345\n\3460\205 \3470!\350\3510!!DB
\307 B\2570\2033 5B5\202} 6B6\202} /\352\230\203} ,\353\n\3460\205X\3470!\350\3510!!DB
\307 B\2570\203n 5B5\202} 6B6\202} .5\23756\237\2116\207" [idlwave-shell-command-output entry class keys key cs 0 nil string-match "^>>>BEGIN OF IDLWAVE ROUTINE INFO (\"\\(.+\\)\" IS THE SEPARATOR.*" match-string 1 regexp-quote " *" "@" "@ *" "" message "Routine Info warning: No match for BEGIN line in \n>>>\n%s\n<<<\n" "^>>>END OF IDLWAVE ROUTINE INFO.*" "Routine Info warning: No match for END line in \n>>>\n%s\n<<<\n" "^IDLWAVE-\\(PRO\\|FUN\\): \\(.*\\)" 2 idlwave-split-string 3 4 "\\` *\\'" mapcar list delete " +" idlwave-sintern-routine-or-method t idlwave-sintern-class #[(x) "\301@\302\"C\207" [x idlwave-sintern-keyword t] 3] "$MAIN$" "PRO" pro compiled file-name-nondirectory idlwave-sintern-dir file-name-directory "FUN" fun name specs spec type file sep-re sep start text idlwave-compiled-routines idlwave-unresolved-routines idlwave-idlwave_routine_info-compiled] 15 (#$ . 57049)])
#@127 Get the current directory from `idlwave-shell-command-output'.
Change the default directory for the process buffer to concur.
(defalias 'idlwave-shell-filter-directory #[nil "r\304 q\210\305\306\"\205 \307\224\307\225O\211\310 !\211))\207" [idlwave-shell-command-output dir idlwave-shell-default-directory default-directory idlwave-shell-buffer string-match ",___cur[\n
]+\\([^\n
]+\\)[\n
]" 1 file-name-as-directory] 4 (#$ . 58793)])
(defvar idlwave-shell-get-object-class nil)
#@59 Query the shell for the class of the object before point.
(defalias 'idlwave-shell-get-object-class #[(apos) "\212\305\306!\210`)\212\307y\210`)\310\212 b\210\311\312\215 {)\313\230?\205C \310\314\315\316\317\260\320\321\322$\210\f\203B \323\f\324 \325#\204B \326 \210\f+\207" [expression bol bos apos idlwave-shell-get-object-class idlwave-start-of-substatement pre 0 nil exit (byte-code "\302\303\304#\204
\305\306\"\210\307 !\204 \305\306`T\"\210\202 " [bos bol re-search-backward "[^][.A-Za-z0-9_() ]" t throw exit idlwave-is-pointer-dereference] 4) "" idlwave-shell-send-command "if obj_valid(" ") then print,obj_class(" ")" idlwave-shell-parse-object-class hide wait assoc-string idlwave-class-alist t idlwave-shell-maybe-update-routine-info] 6 (#$ . 59285)])
#@44 Parse the output of the obj_class command.
(defalias 'idlwave-shell-parse-object-class #[nil "\304\305\306 \307R\n\"\205 \310\311\n\"\211)\207" [match idlwave-shell-prompt-pattern idlwave-shell-command-output idlwave-shell-get-object-class "obj_class([^\n
]+[\n
]" string-match "\\([A-Za-z_0-9]+\\) *[\n
]\\(" "\\)" match-string 1] 5 (#$ . 60071)])
(defvar idlwave-sint-sysvars nil)
(idlwave-new-sintern-type 'execcomm)
#@200 Do completion in the idlwave-shell buffer.
Calls `idlwave-shell-complete-filename' after some executive commands or
in strings. Otherwise, calls `idlwave-complete' to complete modules and
keywords.
(defalias 'idlwave-shell-complete #[(&optional arg) "\305\306 \211\203 A\203 A\226\307\235\203 \310 \202\\ \242\203. \311\312\313\211\n\305\314\315&\202\\ \316 \2038 \310 \202\\ \317 \203B \310 \202\\ \320 \203Y \212\321 \210\322\323\324!*\204Y \310 \202\\ \325\f!)\207" [exec-cmd idlwave-completion-help-info idlwave-executive-commands-alist case-fold-search arg nil idlwave-shell-executive-command (".R" ".RU" ".RUN" ".RN" ".RNE" ".RNEW" ".COM" ".COMP" ".COMPI" ".COMPIL" ".COMPILE") idlwave-shell-complete-filename (idlwave-shell-complete-execcomm-help) idlwave-complete-in-buffer execcomm "Select an executive command" "system variable" idlwave-shell-batch-command idlwave-shell-shell-command idlwave-shell-filename-string beginning-of-line t looking-at ".*obj_new" idlwave-complete] 7 (#$ . 60503) "P"])
(defalias 'idlwave-shell-complete-execcomm-help #[(mode word) "A@\206 \306 \n\307#\f\310=\203\" ;\2056 \2056 A\2026 \f\311=\2033 \2056 A\211\2026 \312\313!*\207" [idlwave-completion-help-info word idlwave-executive-commands-alist entry mode idlw-help-link assoc-string t test set error "This should not happen"] 5])
#@166 Complete a file name at point if after a file name.
We assume that we are after a file name when completing one of the
args of an executive .run, .rnew or .compile.
(defalias 'idlwave-shell-complete-filename #[(&optional arg) "\302 \210\303 )\207" [idlwave-shell-file-name-chars comint-file-name-chars idlwave-shell-resync-dirs comint-dynamic-complete-filename] 1 (#$ . 61856)])
#@59 Return the name of the current executive command, if any.
(defalias 'idlwave-shell-executive-command #[nil "\212\300 \210\301\302!\301\303!\205 \304\305!)B\207" [idlwave-beginning-of-statement looking-at "[ ]*\\." "[ ]*[.]\\([^ \n
]+\\)[ ]" match-string 1] 3 (#$ . 62243)])
#@62 Return t if in a string and after what could be a file name.
(defalias 'idlwave-shell-filename-string #[nil "\302 \212 x\210h\303>*\207" [limit idlwave-shell-file-name-chars point-at-bol (39 34)] 2 (#$ . 62528)])
#@58 Return t if we're in a batch command statement like @foo
(defalias 'idlwave-shell-batch-command #[nil "\302 \212 x\210\303x\210h\304=\205 \305 ?*\207" [limit idlwave-shell-file-name-chars point-at-bol " " 64 idlwave-in-quote] 2 (#$ . 62749)])
#@57 Return t if we're in a shell command statement like $ls
(defalias 'idlwave-shell-shell-command #[nil "\212\300 \210\301\302!)\207" [idlwave-beginning-of-statement looking-at "\\$"] 2 (#$ . 63003)])
#@183 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.
(defalias 'idlwave-shell-redisplay #[(&optional hide) "\302\303\304\305 #\210\306 \207" [idlwave-shell-calling-stack-index hide 0 idlwave-shell-send-command "help,/trace" (idlwave-shell-display-line (idlwave-shell-pc-frame)) idlwave-shell-bp-query] 4 (#$ . 63208) nil])
(defalias 'idlwave-shell-display-level-in-calling-stack #[(&optional hide) "\302\303\304\305\300E\306BB #\207" [idlwave-shell-calling-stack-index hide idlwave-shell-send-command "help,/trace" progn setq ((idlwave-shell-parse-stack-and-display))] 6])
(defalias 'idlwave-shell-parse-stack-and-display #[nil "\306\307\310\311\"\"\312\313\314\315 \"\"\211GS\316 \313 \fW\203+ \316\317 \210\305\320!\210\202T V\203A \317 \210 \321\322 [\"\202T \fW\203T \317 \210\f\321\323\f[\"\324\n88\325\n8\313\205h \326#\210\305\327
\206x \321\330[#\"-\207" [idlwave-shell-command-output lines stack nmax nmin message delete "" idlwave-split-string "^%" delq nil mapcar idlwave-shell-parse-line 0 ding "Problem with calling stack" format "%d is the highest calling stack level - can't go further up" "%d is the current calling stack level - can't go further down" 2 idlwave-shell-display-line force "%s" "In routine %s (stack level %d)" idlwave-shell-calling-stack-index idlwave-shell-calling-stack-routine idlwave-shell-electric-debug-mode] 7])
#@56 Display the source code one step up the calling stack.
(defalias 'idlwave-shell-stack-up #[nil "T\301\302!\207" [idlwave-shell-calling-stack-index idlwave-shell-display-level-in-calling-stack hide] 2 (#$ . 64726) nil])
#@58 Display the source code one step down the calling stack.
(defalias 'idlwave-shell-stack-down #[nil "S\301\302!\207" [idlwave-shell-calling-stack-index idlwave-shell-display-level-in-calling-stack hide] 2 (#$ . 64953) nil])
#@173 Set buffer to FRAME with point at the frame line.
If the optional argument FRAME is nil then `idlwave-shell-pc-frame'
is used. Does nothing if the resulting frame is nil.
(defalias 'idlwave-shell-goto-frame #[(&optional frame) "\204 \301 \205 \302@\303\"q\210~\210eb\210A@Sy\207" [frame idlwave-shell-pc-frame idlwave-find-file-noselect shell] 3 (#$ . 65185)])
#@37 Return the frame for IDL execution.
(defalias 'idlwave-shell-pc-frame #[nil "\205
@A@\3018E\207" [idlwave-shell-halt-frame 2] 4 (#$ . 65560)])
#@43 Check that frame is for an existing file.
(defalias 'idlwave-shell-valid-frame #[(frame) "\301@!\207" [frame file-readable-p] 2 (#$ . 65714)])
(defalias 'idlwave-shell-stop-line-pending #[nil "\205 \302\303 \203 \304\202 \305#\207" [idlwave-shell-stop-line-overlay idlwave-shell-electric-debug-mode overlay-put face idlwave-shell-pending-electric-stop idlwave-shell-pending-stop] 4])
(defvar idlwave-shell-suppress-electric-debug nil)
#@445 Display frame file in other window with overlay arrow.
FRAME is a list of file name, line number, and subroutine name. If
FRAME is nil then remove overlay. If COL is set, move point to that
column in the line. If DEBUG is non-nil, enable the electric debug
mode. If it is 'disable, do not enable no matter what the setting of
`idlwave-shell-automatic-electric-debug'. If it is 'force, enable no
matter what the settings of that variable.
(defalias 'idlwave-shell-display-line #[(frame &optional col debug) "\204 \306\211\306\f\203 \307\f!\210\310 \207\311!\204! \312\313@\"\207\3148\205/ \315\316
[\3148#\317@\320\" #\321 \322 \232 $\306\211 % &\306 '\323\322 \306\324 #\210\323#\306\325 #%r#q\210\214~\210eb\210A@Sy\210`&\326\f\203\216 \327\f\330 \203 (\202\201 )#\210\331\f`\332 p$\210\202\246 *\203\226 +,\204\237 \333 ,,`#\223\210)&eW\204\265 &dV\203\273 ~\210&b\210-\203\305 \334-!\210`& \204\371 .\335=\204\365 .\336=\204\371 /\326=\204\360 /\337=\203\371 0\312=\204\371 1\204\371 \340\326!\210 ')\341%&\"\2102\203'\204 \321 \322 \232\205!$?\205!\342%!-\207" [frame overlay-arrow-string idlwave-shell-mode-line-info idlwave-shell-is-stopped idlwave-shell-stop-line-overlay idlwave-shell-calling-stack-index nil delete-overlay idlwave-shell-electric-debug-all-off idlwave-shell-valid-frame error "invalid frame - unable to access file: %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 idlwave-shell-electric-debug-mode set-window-point select-window buffer select-shell window pos electric idlwave-shell-electric-stop-line-face idlwave-shell-stop-line-face idlwave-shell-mark-stop-line idlwave-shell-overlay-arrow overlay-arrow-position col debug idlwave-shell-automatic-electric-debug idlwave-shell-current-state idlwave-shell-suppress-electric-debug idlwave-shell-electric-zap-to-file] 6 (#$ . 66162)])
#@76 Step one source line.
If given prefix argument ARG, step ARG source lines.
(defalias 'idlwave-shell-step #[(arg) "\203\f \301W\204\f \301\302 \210\303\304\250\203 \305!\202 P\306\307\310!\205& \311\306\312%\207" [arg 1 idlwave-shell-stop-line-pending idlwave-shell-send-command ".s " int-to-string nil idlwave-shell-hide-p debug mostly t] 6 (#$ . 68252) "p"])
#@157 Stepover one source line.
If given prefix argument ARG, step ARG source lines.
Uses IDL's stepover executive command which does not enter called functions.
(defalias 'idlwave-shell-stepover #[(arg) "\203\f \301W\204\f \301\302 \210\303\304\250\203 \305!\202 P\306\307\310!\205& \311\306\312%\207" [arg 1 idlwave-shell-stop-line-pending idlwave-shell-send-command ".so " int-to-string nil idlwave-shell-hide-p debug mostly t] 6 (#$ . 68627) "p"])
#@440 Set breakpoint at current line.
If COUNT is nil then an ordinary breakpoint is set. We treat a COUNT
of 1 as a temporary breakpoint using the ONCE keyword. Counts greater
than 1 use the IDL AFTER=count keyword to break only after reaching
the statement COUNT times.
Optional argument CMD is a list or function to evaluate upon reaching
the breakpoint. CONDITION is a break condition, and DISABLED, if
non-nil disables the breakpoint.
(defalias 'idlwave-shell-break-here #[(&optional count cmd condition disabled no-show) "<\203 @\305\232\203 \306\307!\310\311\312\313 \n F\314 #\f\"\207" [count condition cmd disabled no-show 4 read-string "Break Condition: " nil idlwave-shell-set-bp idlwave-shell-bp idlwave-shell-current-frame idlwave-shell-current-module] 7 (#$ . 69088) "P"])
#@211 Check for failure to set breakpoint.
This is run on `idlwave-shell-post-command-hook'.
Offers to recompile the procedure if we failed. This usually fixes
the problem with not being able to set the breakpoint.
(defalias 'idlwave-shell-set-bp-check #[(bp) "\205U \302\303\"\203D \304 \210\305\306\307 \310\"\311Q!\2038 \312 \210\313\314\307 \310\"\315Q\316\317\320!\205- \321\316\322%\210\323 !\210\202B \304 \210\324\325!\210\312 \210\316\207\302\326\"\203T \324\327!\210\312 \210\316\207\330\207" [idlwave-shell-command-output bp string-match "% BREAKPOINT: *Unable to find code" beep y-or-n-p "Okay to recompile file " idlwave-shell-bp-get file "?" idlwave-shell-command-failure idlwave-shell-send-command ".run \"" "\"" nil idlwave-shell-hide-p run mostly t idlwave-shell-set-bp message "Unable to set breakpoint." "% Syntax error" "Syntax error in condition." okay] 6 (#$ . 69889)])
#@261 Do any necessary clean up when an IDL command fails.
Call this from a function attached to `idlwave-shell-post-command-hook'
that detects the failure of a command.
For example, this is called from `idlwave-shell-set-bp-check' when a
breakpoint can not be set.
(defalias 'idlwave-shell-command-failure #[nil "\301\211\207" [idlwave-shell-pending-commands nil] 2 (#$ . 70786)])
#@21 Continue executing.
(defalias 'idlwave-shell-cont #[(&optional no-show) "\301 \210\302\303?\205 \304\305\306!\205 \307\310\311%\207" [no-show idlwave-shell-stop-line-pending idlwave-shell-send-command ".c" (idlwave-shell-redisplay 'hide) idlwave-shell-hide-p debug mostly nil t] 6 (#$ . 71169) nil])
#@67 Run .GO. This starts the main program of the last compiled file.
(defalias 'idlwave-shell-go #[nil "\300 \210\301\302\303\304\305!\205
\306\307\310%\207" [idlwave-shell-stop-line-pending idlwave-shell-send-command ".go" (idlwave-shell-redisplay 'hide) idlwave-shell-hide-p debug mostly nil t] 6 (#$ . 71478) nil])
#@64 Run .RETURN (continue to next return, but stay in subprogram).
(defalias 'idlwave-shell-return #[nil "\300 \210\301\302\303\304\305!\205
\306\307\310%\207" [idlwave-shell-stop-line-pending idlwave-shell-send-command ".return" (idlwave-shell-redisplay 'hide) idlwave-shell-hide-p debug mostly nil t] 6 (#$ . 71800) nil])
#@39 Run .SKIP (skip one line, then step).
(defalias 'idlwave-shell-skip #[nil "\300 \210\301\302\303\304\305!\205
\306\307\310%\207" [idlwave-shell-stop-line-pending idlwave-shell-send-command ".skip" (idlwave-shell-redisplay 'hide) idlwave-shell-hide-p debug mostly nil t] 6 (#$ . 72127) nil])
#@69 Clear breakpoint BP.
Clears in IDL and in `idlwave-shell-bp-alist'.
(defalias 'idlwave-shell-clear-bp #[(bp &optional no-query) "\303!\211\205 \304\305\306 !P\307\310\311!\307\312%\210\n?\205 \313 )\207" [bp index no-query idlwave-shell-bp-get idlwave-shell-send-command "breakpoint,/clear," int-to-string nil idlwave-shell-hide-p breakpoint t idlwave-shell-bp-query] 7 (#$ . 72425)])
#@132 Return a list containing the current file name and line point is in.
If in the IDL shell buffer, returns `idlwave-shell-pc-frame'.
(defalias 'idlwave-shell-current-frame #[nil "p\300\301 !=\203\f \302 \207\303\304 !\214~\210\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 (#$ . 72821)])
#@100 Return the name of the module for the current file.
Returns nil if unable to obtain a module name.
(defalias 'idlwave-shell-current-module #[nil "p\304\305 !=\203
\3068\207\214~\210\212\307 \205* \310 \311\306 8 @\" A@\n\226 +D*\207" [idlwave-shell-halt-frame module name type get-buffer idlwave-shell-buffer 2 idlwave-prev-index-position idlwave-what-module idlwave-make-full-name] 3 (#$ . 73218)])
#@130 Remove breakpoint at current line.
This command can be called from the shell buffer if IDL is currently
stopped at a breakpoint.
(defalias 'idlwave-shell-clear-current-bp #[nil "\301 \211\205\n \302!)\207" [bp idlwave-shell-find-current-bp idlwave-shell-clear-bp] 3 (#$ . 73630) nil])
#@216 Disable or enable current breakpoint or a breakpoint passed in BP.
If FORCE is 'disable or 'enable, for that condition instead of
toggling. If NO-UPDATE is non-nil, don't update the breakpoint
list after toggling.
(defalias 'idlwave-shell-toggle-enable-current-bp #[(&optional bp force no-update) "\206 \305 \306\301\"\n\307=\203 \310\202 \n\311=\203 \312\205O \313AA\233\211 ?\240\210)\314\315 \2039 \316\202: \317\320\306!!Q\310\321\322!\310\312%\210\f?\205O \323 *\207" [bp disabled force #1=#:c no-update idlwave-shell-find-current-bp idlwave-shell-bp-get disable nil enable t 3 idlwave-shell-send-command "breakpoint," "/enable," "/disable," int-to-string idlwave-shell-hide-p breakpoint idlwave-shell-bp-query] 7 (#$ . 73924) nil])
#@104 Disable all breakpoints we know about which need disabling.
If ENABLE is non-nil, enable them instead.
(defalias 'idlwave-shell-enable-all-bp #[(&optional enable no-update bpl) "\206 \306\211\211\203E \307@\303\"\211\203 \f\304=\203> \204( \f\304=\204> \310@\f\304=\2035 \304\2026 \311
#\210@\nBA\211\204
\204L \312 \210\n+\207" [bpl idlwave-shell-bp-alist modified disabled enable no-update nil idlwave-shell-bp-get idlwave-shell-toggle-enable-current-bp disable idlwave-shell-bp-query] 5 (#$ . 74684)])
#@46 Set a breakpoint with count 1 then continue.
(defalias 'idlwave-shell-to-here #[nil "\301\302\303\"\304\305\306\211\211\307%\210\310\307!\210\301\311\303#\210)\312 \207" [disabled idlwave-shell-enable-all-bp disable no-update idlwave-shell-break-here 1 nil no-show idlwave-shell-cont enable idlwave-shell-redisplay] 6 (#$ . 75212) nil])
(defalias 'idlwave-shell-break-this-module #[(&optional arg) "\212\301 \210\302!)\207" [arg idlwave-beginning-of-subprogram idlwave-shell-break-here] 2 nil "P"])
#@229 Look for a module name near point and set a break point for it.
The command looks for an identifier near point and sets a breakpoint
for the first line of the corresponding module. If MODULE is `t', set
in the current routine.
(defalias 'idlwave-shell-break-in #[nil "\304\305 !\211A@@\3068\203& \307 \n\"\310 \"\210\311\n #\202) \312\313!,\207" [module type name class idlwave-fix-module-if-obj_new idlwave-what-module 2 idlwave-make-full-name idlwave-shell-module-source-query idlwave-shell-set-bp-in-module error "No identifier at point"] 5 (#$ . 75721) nil])
#@105 Set breakpoint in module.
Assumes that `idlwave-shell-sources-alist' contains an entry for that module.
(defalias 'idlwave-shell-set-bp-in-module #[(name type class) "\306 \"\307\n\226 \"\206 \310\311 \f\312 $8\243\242 \313
\2035 \314
!\2035 \315
!\206/ \316
!\211\204? \317\320\n\"\210\321 \202n rq\210\212eb\210\322 \323\324\n\227\325Q\313\322#\203e \326\224b\210\317\327\n\"\210\330 \202m \317\331\n
#\210\321 ++\207" [class name module idlwave-shell-sources-alist type source-file idlwave-make-full-name assoc 3 idlwave-best-rinfo-assoc idlwave-routines nil file-regular-p idlwave-get-buffer-visiting find-file-noselect message "The source file for module %s is probably not compiled" beep t re-search-forward "^[ ]*\\(pro\\|function\\)[ ]+" "[ \n,]" 1 "Setting breakpoint for module %s" idlwave-shell-break-here "Cannot find module %s in file %s" buf case-fold-search] 6 (#$ . 76302)])
#@94 Run to end of current block.
Sets a breakpoint with count 1 at end of block, then continues.
(defalias 'idlwave-shell-up #[nil "\301 \205, \212\302 \210\212\303 \210\304 \210`)\305\306!\210\307 \210\310 \210`W\204) b\210\311 \210\312 *\207" [eos idlwave-shell-pc-frame idlwave-shell-goto-frame idlwave-beginning-of-subprogram idlwave-forward-block idlwave-backward-up-block -1 idlwave-next-statement idlwave-end-of-statement idlwave-previous-statement idlwave-shell-to-here] 2 (#$ . 77213) nil])
#@122 Attempt to run until this procedure exits.
Runs to the last statement and then steps 1 statement. Use the .out command.
(defalias 'idlwave-shell-out #[nil "\300\301\302\303\304!\205\n \305\302\306%\207" [idlwave-shell-send-command ".o" nil idlwave-shell-hide-p debug mostly t] 6 (#$ . 77719) nil])
#@48 Move to the previous breakpoint in the buffer.
(defalias 'idlwave-shell-goto-previous-bp #[nil "\300\301!\207" [idlwave-shell-move-to-bp -1] 2 (#$ . 78024) nil])
#@44 Move to the next breakpoint in the buffer.
(defalias 'idlwave-shell-goto-next-bp #[nil "\300\301!\207" [idlwave-shell-move-to-bp 1] 2 (#$ . 78192) nil])
#@70 Move to the next or previous breakpoint, depending on direction DIR.
(defalias 'idlwave-shell-move-to-bp #[(dir) "\306 \211@A@
\307V\203 \310\202 \311
\307V\203# \311\202$ \310 \312\211 \312\211 \f\211A@\211\203o @@\230\2032 \313@A@\n\"\2032 \203h \"\2032 \2022 \204x \314\315!\210eb\210Sy.\n\207" [frame file orig-bp-line idlwave-shell-bp-alist bp-alist dir idlwave-shell-current-frame 0 > < nil 1 error "No further breakpoints" orig-func closer-func bp got-bp bp-line cur-line] 4 (#$ . 78351)])
#@63 Print help on current expression. See `idlwave-shell-print'.
(defalias 'idlwave-shell-help-expression #[(arg) "\301\302\"\207" [arg idlwave-shell-print help] 3 (#$ . 78903) "P"])
#@59 Create a function for generic examination of expressions.
(defalias 'idlwave-shell-mouse-examine '(macro . #[(help &optional ev) "\302\303\304\305\306\307\310\311\312 FF\257\207" [help ev lambda (event) "Expansion function for expression examination." (interactive "e") let* ((drag-track (fboundp 'mouse-drag-track)) (transient-mark-mode t) (zmacs-regions t) (tracker (if (featurep 'xemacs) (if (fboundp 'default-mouse-track-event-is-with-button) 'idlwave-xemacs-hack-mouse-track 'mouse-track) (if drag-track 'mouse-drag-track 'mouse-drag-region)))) (funcall tracker event) idlwave-shell-print (if (idlwave-region-active-p) '(4) nil)] 11 (#$ . 79090)]))
(defalias 'idlwave-default-mouse-track-event-is-with-button #[(event n) "\300\207" [t] 1])
(defalias 'idlwave-xemacs-hack-mouse-track #[(event) "\300\207" [nil] 1])
#@62 Print value of variable at the mouse position, with `print'.
(defalias 'idlwave-shell-mouse-print #[(event) "\305\306!\307\211 \203 \306\202 \310\211 !\210\311\312 \205 \313\314\211#-\207" [event drag-track transient-mark-mode zmacs-regions tracker fboundp mouse-drag-track t mouse-drag-region idlwave-shell-print idlwave-region-active-p (4) nil] 5 (#$ . 79917) "e"])
#@61 Print value of variable at the mouse position, with `help'.
(defalias 'idlwave-shell-mouse-help #[(event) "\305\306!\307\211 \203 \306\202 \310\211 !\210\311\312 \205 \313\314\315#-\207" [event drag-track transient-mark-mode zmacs-regions tracker fboundp mouse-drag-track t mouse-drag-region idlwave-shell-print idlwave-region-active-p (4) help nil] 5 (#$ . 80300) "e"])
#@60 Pop-up a list to select from for examining the expression.
(defalias 'idlwave-shell-examine-select #[(event) "\305\306!\307\211 \203 \306\202 \310\211 !\210\311\312 \205 \313\314#-\207" [event drag-track transient-mark-mode zmacs-regions tracker fboundp mouse-drag-track t mouse-drag-region idlwave-shell-print idlwave-region-active-p (4) nil] 5 (#$ . 80686) "e"])
#@58 Create a function for key-driven expression examination.
(defalias 'idlwave-shell-examine '(macro . #[(help) "\301\302\303\304\302EF\207" [help lambda nil (interactive) idlwave-shell-print] 6 (#$ . 81067)]))
#@61 Label to include with examine text if in a separate buffer.
(defvar idlwave-shell-examine-label nil (#$ . 81282))
(defvar idlwave-shell-examine-completion-list nil)
#@1152 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.
(defalias 'idlwave-shell-print #[(arg &optional help ev complete-help-type) "\204 \306 \210\212\307p!\211\205 \302 ! \250\205$ \310V\205$ \311\312 \f# \313\211 , -\313\211 . /0\314\232\203@ \315\316!,\202\236 0\204J \317 \203_ \320 \321 Z\322W\203_ \321 -\320 .\202\236 \323 1\324\216\3252!\210\326\327!\203| \326\330!\203 \331 \210\202 \331 \210\326\330!\203\210 \331 \210`-\332 \210\326\333!\203\232 \332 \210\202\216 `.*-\203\306 .\203\306 \n\203\277 \n-V\203\277 \n.W\203\277 \334\n!--.{,-\203\344 .\203\344 3\203\344 \3353-.p$\210\336\337\340\"\210\336\337\341\"\210\342\343,\"\203\375 \344\345\346\211,$,\202\351 \342\347,\"\203\344\350\346\211,$,\202\375 \342\351,\"\203\"\344\350\346\211,$,\352\353\215.\207" [idlwave-idlwave_routine_info-compiled process process-mark idlwave-shell-calling-stack-index idlwave-shell-calling-stack-routine stack-label idlwave-shell-compile-helper-routines get-buffer-process 0 format " [-%d:%s]" nil (16) read-string "Expression: " idlwave-region-active-p region-end region-beginning 2000 syntax-table ((set-syntax-table saved-syntax)) set-syntax-table looking-at "\\<\\|(" "\\>" backward-sexp forward-sexp "\\>[[(]\\|\\." marker-position move-overlay add-hook pre-command-hook idlwave-shell-delete-expression-overlay idlwave-shell-delete-output-overlay string-match "\n[ ]*\\(;.*\\)?
*\n" replace-match "\n" t "[ ]*\\$[ ]*\\(;.*\\)?\\(\n[ ]*\\|$\\)" "" "\n[
]*\\'" exit (byte-code "\204 \203\f \n\204 :\203S :\203 \2021 \306\203' \307\302\310\311#\202/ \312 \313\314\n\"\315#\n\"\211 A\211\204> \316\317\320\"\210
\203O \321\322\f@# \323Q )\202r \321\322 \204_ \324\202k ;\203h \202k \325 !# \323Q \203 \326 \"\327 \" \330 \331
\205\217 \332#\207" [complete-help-type ev idlwave-shell-examine-alist help help-cons idlwave-shell-separate-examine-output assoc idlwave-one-key-select "Examine with: " 1.5 idlwave-popup-select mapcar car "Examine with" throw exit nil format "==>%s<==\n%s:" "\n" "print" symbol-name idlwave-retrieve-expression-from-level idlwave-shell-help-statement idlwave-shell-send-command idlwave-shell-check-compiled-and-display hide expr stack-label idlwave-shell-examine-label idlwave-shell-calling-stack-index cmd] 7) expr beg end cmd arg saved-syntax idlwave-find-symbol-syntax-table idlwave-shell-expression-overlay] 6 (#$ . 81455) "P"])
#@66 Variable to hold the win/height pairs for all *Examine* windows.
(defvar idlwave-shell-examine-window-alist nil (#$ . 84999))
(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 #[nil "\302\303\"\203\n \304 \210 \203 \305 \207\306 \207" [idlwave-shell-command-output idlwave-shell-separate-examine-output string-match "% Attempt to call undefined" idlwave-shell-compile-helper-routines idlwave-shell-examine-display idlwave-shell-examine-highlight] 3 (#$ . 85358)])
#@55 View the examine command output in a separate buffer.
(defalias 'idlwave-shell-examine-display #[nil "\306\211\211r\307\310!q\210\311 !\210\306db\210\214``}\210\312\313
\"\203' \314c\210\202j
c\210\315+\306\316#\2064 d ,\315+\306\316#\203D \317\225\206E eb\210\320\321!\211 -,{ .ed|\210.c\210/\203i eb\210/c\210\306/+ed\316\3220 p$\210\323\310\306\324# 1\325\310\3061\306 2 3\326\327\215*#\330\ne\"\210\331 4r\332\216\333\n!\210\334\n'\" 5\335 \204\356 \n1>\203\273 \336 5A=\203\356 \337\340 \341\245\336 Z!\210\342 \210\343\306\344\345'\"\"'\334\n'\"\2115\203\346 5\336 \241\210\202\356 \346\347\n\336 B\"\210.\331 4r\350\216\333\n!\210db\210\321\306x\210\351\352!.\207" [cur-end cur-beg win idlwave-shell-examine-map buffer-read-only idlwave-shell-command-output nil get-buffer-create "*Examine*" use-local-map string-match "^% Syntax error." "% Syntax error.\n" re-search-backward t 0 re-search-forward "\n" move-overlay get-buffer-window-list visible idlwave-display-buffer exit (byte-code "\303 r\304\216 \211A@\211\205# \305\n!\210\306 \203 \307\310\311\n!\"\210\202 +\207" [save-selected-window--state list thiswin internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) select-window one-window-p throw exit window-frame] 4) set-window-start internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) select-window assoc one-window-p window-height enlarge-window frame-height 2 shrink-window-if-larger-than-buffer delq mapcar #[(x) "\301@!\205 \207" [x window-live-p] 2] add-to-list idlwave-shell-examine-window-alist ((internal--after-save-selected-window save-selected-window--state)) recenter -1 idlwave-shell-prompt-pattern end beg str idlwave-shell-examine-label idlwave-shell-output-overlay winlist thiswin list save-selected-window--state elt] 6 (#$ . 85775)])
(defalias 'idlwave-shell-examine-display-quit #[nil "\301 \302 \203 \303\304!!\202 \305!)\207" [win selected-window one-window-p delete-frame window-frame delete-window] 3 nil nil])
(defalias 'idlwave-shell-examine-display-clear #[nil "\302\303!\304!\205 rq\210\305\306 *)\207" [buf inhibit-read-only get-buffer "*Examine*" bufferp t erase-buffer] 2 nil nil])
#@452 Return IDL command to print the expression EXPR from stack level LEVEL.
It does not seem possible to evaluate an expression on a different
level than the current. Therefore, this function retrieves variables
by reference from other levels, and then includes that variable in
place of the chosen one.
Since this function depends upon the undocumented IDL routine
routine_names, there is no guarantee that this will work with future
versions of IDL.
(defalias 'idlwave-retrieve-expression-from-level #[(expr level) "[\306\307\211\211\211\211 \310\311 #\203\217 \312\313 \"\313\225 \306\313\224O \313\225\307O\310\314\n\"\204 \310\315\n\"\203H \310\316 \"\204 \310\317 \"\204 \310\320\n\"\204 \310\321\n\"\204 \310\322\n\"\203 \310\323\312\324\n\"\325\312\324\n\"R \"\203 \306\225\\ \202 \326 \211
GZ\327\330 %\210\202 \306 \331 \327 #\211\203\344 \332 \327 #\203\260 \f \202\267 \331\f\327 # \204\277 G\333\f \334 $\210 \306\fO\335\336 \f O# \307OQ \202\222 \332\306\327 #\203\366 \335\336 # .\207" [level post pre fetch-end fetch-start var 0 nil string-match "\\(\\`\\|[^a-zA-Z0-9$_][ ]*\\)\\([a-zA-Z][a-zA-Z0-9$_]*\\)\\([ ]*[^a-zA-Z0-9$_]\\|\\'\\)" match-string 2 ",[ $\n]*/\\'" "[,(][ \n]*\\'" "\\`[ ]*=" "\\`(" "->[ ]*\\'" "\\.\\'" "\\([\"']\\)[^]*$" "^[^" 1 "]*" put-text-property fetch t next-single-property-change get-text-property remove-text-properties (fetch) format "(routine_names('%s',fetch=%d))" start expr] 7 (#$ . 88066)])
#@218 Construct a help statement for printing expression EXPR.
HELP can be non-nil for `help,', nil for 'print,' or any string into which
to insert expression in place of the marker ___, e.g.: print,
size(___,/DIMENSIONS)
(defalias 'idlwave-shell-help-statement #[(help expr) "\204\f \303 \304\305\n!R\207;\203% \306\307\"\205( \310\311\224O \311\225\312OQ\207\313 P\207" [help expr idlwave-shell-max-print-length "idlwave_print_safe, " "," number-to-string string-match "\\(^\\|[^_]\\)\\(___\\)\\([^_]\\|$\\)" 0 2 nil "help, "] 5 (#$ . 89588)])
#@39 Highlight the most recent IDL output.
(defalias 'idlwave-shell-examine-highlight #[nil "\306\307 !\310!\211\205 \302 !\311\211 rq\210\nb\210\312 \210`\313
\311\314#\210\312\315!\210`)\316\307 \311\317 #\210\205F \n\205F \320 \f$-\207" [buffer process process-mark output-begin output-end idlwave-shell-prompt-pattern get-buffer idlwave-shell-buffer get-buffer-process nil beginning-of-line re-search-backward t 2 idlwave-display-buffer idlwave-shell-shell-frame move-overlay idlwave-shell-output-overlay] 6 (#$ . 90140)])
(defalias 'idlwave-shell-delete-output-overlay #[nil "\301=\206 \302=?\205 \303\304\305\217\210\306\307\310\"\207" [this-command idlwave-shell-mouse-nop handle-switch-frame nil (byte-code "\203 \301!\210\301\207" [idlwave-shell-output-overlay delete-overlay] 2) ((error)) remove-hook pre-command-hook idlwave-shell-delete-output-overlay] 3])
(defalias 'idlwave-shell-delete-expression-overlay #[nil "\301=\206 \302=?\205 \303\304\305\217\210\306\307\310\"\207" [this-command idlwave-shell-mouse-nop handle-switch-frame nil (byte-code "\203 \301!\210\301\207" [idlwave-shell-expression-overlay delete-overlay] 2) ((error)) remove-hook pre-command-hook idlwave-shell-delete-expression-overlay] 3])
#@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 (#$ . 91393))
#@477 Compile and run the region using the IDL process.
Copies the region to a temporary file `idlwave-shell-temp-pro-file'
and issues the IDL .run command for the file. Because the region
is compiled and run as a main program there is no problem with
begin-end blocks extending over multiple lines - which would be
a problem if `idlwave-shell-evaluate-region' was used.
An END statement is appended to the region if necessary.
If there is a prefix argument, display IDL process.
(defalias 'idlwave-shell-run-region #[(beg end &optional n) "pr\306\307\310!\311\"q\210\312\301!\210\313\312\302!\210\314\315 \210\316 \f#\210\212\317 \210\320\321!)\204. \322c\210\323\324!\210*\325\326
\327Q\330\331\332!\205@ \333\330\334%\210 \205P \335\336 \330\337 #\207" [oldbuf comment-start-skip comment-start beg end idlwave-shell-temp-pro-file idlwave-find-file-noselect idlwave-shell-temp-file pro tmp make-local-variable ";+[ ]*" ";" erase-buffer insert-buffer-substring idlwave-previous-statement idlwave-look-at "\\<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 n] 6 (#$ . 92341) "r\nP"])
#@177 Send region to the IDL process.
If there is a prefix argument, display IDL process.
Does not work for a region with multiline blocks - use
`idlwave-shell-run-region' for this.
(defalias 'idlwave-shell-evaluate-region #[(beg end &optional n) "\303 {!\210\n\205 \304\305 \306\307 #\207" [beg end n idlwave-shell-send-command idlwave-display-buffer idlwave-shell-buffer nil idlwave-shell-shell-frame] 4 (#$ . 93568) "r\nP"])
#@57 Delete the temporary files and kill associated buffers.
(defalias 'idlwave-shell-delete-temp-files #[nil ";\203\n \302\303\304\217\210 ;\205 \302\305\306\217\207" [idlwave-shell-temp-pro-file idlwave-shell-temp-rinfo-save-file nil (byte-code "\302!\303 !\203 \304 !\210\305!\210)\302\207" [idlwave-shell-temp-pro-file buf idlwave-get-buffer-visiting buffer-live-p kill-buffer delete-file] 2) ((error)) (delete-file idlwave-shell-temp-rinfo-save-file) ((error))] 3 (#$ . 93998)])
(defalias 'idlwave-display-buffer #[(buf not-this-window-p &optional frame) "\304 \212\305 !\203 \306 !\210\304 =\203 \307\n!\202- \310 \203) \311\n!\210\312 \202- \307\n \"*\207" [this-frame frame buf not-this-window-p selected-frame frame-live-p select-frame display-buffer one-window-p switch-to-buffer selected-window] 3])
#@66 Scratch buffer for parsing IDL breakpoint lists and other stuff.
(defvar idlwave-shell-bp-buffer " *idlwave-shell-bp*" (#$ . 94820))
#@113 Reconcile idlwave-shell's breakpoint list with IDL's.
Queries IDL using the string in `idlwave-shell-bp-query'.
(defalias 'idlwave-shell-bp-query #[(&optional no-show) "\302\303\304\305 DDD\306#\207" [idlwave-shell-bp-query no-show idlwave-shell-send-command progn idlwave-shell-filter-bp quote hide] 6 (#$ . 94960) nil])
#@322 Get a value for a breakpoint.
BP has the form of elements in `idlwave-shell-bp-alist'.
Optional second arg ITEM is the particular value to retrieve.
ITEM can be 'file, 'line, 'index, 'module, 'count, 'cmd,
'condition, 'disabled, 'type, or 'data. 'data returns a list
of 'count, 'cmd and 'condition. Defaults to 'index.
(defalias 'idlwave-shell-bp-get #[(bp &optional item) "\303=\203 @A@\207\304=\203 @@\207\305=\203 AA\207\306=\203* AA@\207\307=\2036 AAA@\207\310=\203B \311 AA8\207\312=\203N \313 AA8\207\302=\203g A@A@\211<\203d \n@\202e \n)\207\314=\203} A@A@\211<\205{ \nA@)\207 A@@\207" [item bp module line file data count cmd condition 2 disabled 3 type] 3 (#$ . 95290)])
#@222 Get the breakpoints from `idlwave-shell-command-output'.
Create `idlwave-shell-bp-alist' updating breakpoint count and command
data from previous breakpoint list. If NO-SHOW is set, don't update
the breakpoint overlays.
(defalias 'idlwave-shell-filter-bp #[(&optional no-show) "r\306!q\210\307 \210 c\210eb\210\n\310\311\312\211\211\211\211\211\211\211\211 ! \" # $ % & '\312C\313\314\312\315#\203D &\316\211\204U \313\317\312\315#\203\301 %\320\211\203\301 \313\f\312\315#\203\301 \321\322 @!!\"\322 A@!!\321\322\323 8!!#\324\322\325 8!!$\f%=\203\247 \322\326!\203\217 \327\202\232 \322\330!\205\232 \321\322\330!! \322\331! \322\332!??\n$#D\"!D \312
\257BC\244\210\202U \nA\f&=\203\324 \333\334'\"\210\202\332 \333\335'\"\210.
(\204\344 \336 \210\n\207" [idlwave-shell-bp-buffer idlwave-shell-command-output idlwave-shell-bp-alist indmap bp-re disabled get-buffer-create erase-buffer "^[ ]*\\([0-9]+\\)[ ]+\\(\\S-+\\)?[ ]+\\([0-9]+\\)[ ]+\\(\\S-+\\)" "^\\s-*\\([0-9]+\\)\\s-+\\([0-9]+\\)\\s-+\\(Uncompiled\\|\\(\\(Func=\\|Pro=\\)\\(\\$?[a-zA-Z][a-zA-Z0-9$_:]*\\$?\\)\\)\\)\\(\\s-*,\\s-*After=[0-9]+/\\([0-9]+\\)?\\)?\\(\\s-*,\\s-*\\(BreakOnce\\)\\)?\\(\\s-*,\\s-*\\(Condition='\\(.*\\)'\\)\n?\\)?\\(\\s-*,\\s-*\\(Disabled\\)\n?\\)?\\s-+\\(\\S-+\\)" nil re-search-forward "^\\s-*Index.*\n\\s-*-" t (1 2 3 4) "^\\s-*Index\\s-*Line\\s-*Attributes\\s-*File" (1 6 2 16) string-to-number match-string 2 idlwave-shell-file-name 3 10 1 8 13 15 mapc idlwave-shell-update-bp idlwave-shell-update-bp-command-only idlwave-shell-update-bp-overlays condition count module index line file bp-re55 bp-re54 old-bp-alist no-show] 12 (#$ . 96000)])
(defalias 'idlwave-shell-update-bp-command-only #[(bp) "\301\302\"\207" [bp idlwave-shell-update-bp t] 3])
#@108 Update BP data in breakpoint list.
If BP frame is in `idlwave-shell-bp-alist' updates the breakpoint data.
(defalias 'idlwave-shell-update-bp #[(bp &optional command-only) "\305@ \"\211\205$ \203 \nAAA\211 \nAAA@\240)\202$ \nAAA\241)\207" [bp idlwave-shell-bp-alist match command-only #1=#:c assoc] 4 (#$ . 97788)])
#@29 Set the data of BP to DATA.
(defalias 'idlwave-shell-set-bp-data #[(bp data) "A \241\207" [bp data] 2 (#$ . 98115)])
#@265 Create a breakpoint structure containing FRAME and DATA.
Second and third args, DATA and MODULE, are optional. Returns
a breakpoint of the format used in `idlwave-shell-bp-alist'.
Can be used in commands attempting match a breakpoint in
`idlwave-shell-bp-alist'.
(defalias 'idlwave-shell-bp #[(frame &optional data module) "\303 D\nBB\207" [frame module data nil] 3 (#$ . 98240)])
#@59 List of breakpoints previous to setting a new breakpoint.
(defvar idlwave-shell-old-bp nil (#$ . 98629))
#@174 Check `idlwave-shell-sources-alist' for source of breakpoint using BP.
If an equivalency is found, return the IDL internal source name.
Otherwise return the filename in BP.
(defalias 'idlwave-shell-sources-bp #[(bp) "\305\306\"\305\307\"\211\205 \310\n \"A\211 \203% \f@\232\203% \fA@\202& +\207" [bp bp-file bp-module idlwave-shell-sources-alist internal-file-list idlwave-shell-bp-get file module assoc] 4 (#$ . 98741)])
#@352 Try to set a breakpoint BP.
The breakpoint will be placed at the beginning of the statement on the
line specified by BP or at the next IDL statement if that line is not
a statement. Determines IDL's internal representation for the
breakpoint, which may have occurred at a different line than
specified. If NO-SHOW is non-nil, don't do any updating.
(defalias 'idlwave-shell-set-bp #[(bp &optional no-show) "\306\307\310\311 DD\312BB\313#\210\314\315\n\316\"\315\n\317\"\"\210\315\n\303\"\315\n\304\" \315\n\305\" \205E \247\205E \320U\203; \321\202E \320V\205E \322\323 \"\f\205M \324\f\325Q
\205\\ \f?\205\\ ?\205\\ \326Q #\315\n\327\" \306\330\331\n!\332\250\205x \333!\211#\260\307\334\335\311\nDD\336\311\nD\311 DEED\337\340!\341\342%-\207" [idlwave-shell-bp-query no-show bp count condition disabled idlwave-shell-send-command progn idlwave-shell-filter-bp quote ((setq idlwave-shell-old-bp idlwave-shell-bp-alist)) hide idlwave-shell-module-source-query idlwave-shell-bp-get module type 1 ",/once" format ",after=%d" ",CONDITION=\"" "\"" ",/DISABLE" line "breakpoint,'" idlwave-shell-sources-bp "'," int-to-string if idlwave-shell-set-bp-check idlwave-shell-set-bp-adjust idlwave-shell-hide-p breakpoint preempt t key] 9 (#$ . 99178)])
#@60 Find the breakpoint in IDL's internal list of breakpoints.
(defalias 'idlwave-shell-set-bp-adjust #[(bp &optional no-show) "\303\304\305\306\307 DD\310\307\nD\311BBF\312\313$\207" [idlwave-shell-bp-query bp no-show idlwave-shell-send-command progn (idlwave-shell-filter-bp 'no-show) idlwave-shell-new-bp quote unless ((idlwave-shell-update-bp-overlays)) hide preempt] 8 (#$ . 100444)])
#@92 Return breakpoint from `idlwave-shell-bp-alist' for frame.
Returns nil if frame not found.
(defalias 'idlwave-shell-find-bp #[(frame) "\302 \"\207" [frame idlwave-shell-bp-alist assoc] 3 (#$ . 100837)])
#@44 Find breakpoint here, or at halt location.
(defalias 'idlwave-shell-find-current-bp #[nil "\301\302 !\211\204! \212\303 \210\304 \210\301\302 !)\204! \305 \210\306\307!\210)\207" [bp idlwave-shell-find-bp idlwave-shell-current-frame idlwave-shell-goto-frame idlwave-beginning-of-statement beep message "Cannot identify breakpoint for this line"] 3 (#$ . 101047)])
#@311 Find the new breakpoint in IDL's list and update with DATA.
The actual line number for a breakpoint in IDL may be different than
the line number used with the IDL breakpoint command.
Looks for a new breakpoint index number in the list. This is
considered the new breakpoint if the file name of frame matches.
(defalias 'idlwave-shell-new-bp #[(bp) "\305\306\" \306\n@! \235\203 \nA\211\204 \n\204( \307\f@ \"\211\203( \nC\n\203E \306\n@\211\310\"\306\f\310\"\232\203E \311\n\306\f\312\"\"\202K \313 \210\314\315!*\207" [idlwave-shell-old-bp idlwave-shell-bp-alist bpl obp-index bp mapcar idlwave-shell-bp-get assoc file idlwave-shell-set-bp-data data beep message "Failed to identify breakpoint in IDL"] 5 (#$ . 101422)])
#@40 Alist of overlays marking breakpoints.
(defvar idlwave-shell-bp-overlays nil (#$ . 102160))
(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 #[nil "\205 \306 !\n\307>\205 \310\211\211\211\211\211 5 6 7 8 9\211 :\203[ :\211A:@\2116\203[ 6\211 ;A;\211AA\241\210)@\2117\203) \311\305\3127!\"\210\3137!\210\2026 : \203l \314\315\314\316 \"\"\202o \317CC9\211A9@\211\203\333\212\320@!\210\321 <\322\323!\210` =\324\325\" \324\326\" \324\327\" \203\333 \203\261 \330\202\334 \203\327 \331X\203\301 \317\202\334 \332X\203\323 \333\334\335!P!\202\334 \336\202\334 \317\202\334 \317 >\337\310\205\353 \340\341!P\205\364 \342P\205\372 \343E\" ?\344\341\324!!?\205\345\346\347?\350#P?\205 ?\205 \351R @\2032\333\352>!\353P!\2024>\211 A:\236\211 BA\203SB\211 CAC\211AA\241\210)@\206Y\354>\" 7\310 DE\203k\3557\356@#\210\3577=<#\210A \236\211D\203\217D\211 F7FAB\241\210)\202\230 A7DC\244\210.\f8\203\327
\203\250\337p
\"\360\361!\203\271\361Gp\362B\"\210\202\303G\362W\203\303\362G\363p\331\"\211 H\203\326\364HGI#\210))\202p 8\205
\211A@\2115\205 r5q\210\360\361!\203\361Gp\331B\"\210\202\331G\3635\331\"\211 H\203\364HGI#\210*\202\340. \207" [idlwave-shell-mark-breakpoints idlwave-shell-bp-overlays idlwave-shell-bp-alist idlwave-shell-bp-glyph win old-buffers copy-alist (t glyph) nil add-to-list overlay-buffer delete-overlay mapcar list car bp idlwave-shell-goto-frame 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 buf ov-list ov use-glyph bp-list ov-alist #1=#:v end beg type help-list help-text full-type ov-existing #2=#:v match idlwave-shell-breakpoint-popup-menu #3=#:v left-margin-width window right-margin-width] 10 (#$ . 102401)])
#@206 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).
(defalias 'idlwave-shell-make-new-bp-overlay #[(&optional type disabled) "\306\307\211\"\310>\205 \n\206 \311 \203 \f\202
\2034 \312\313\314#\210\312\315#\210 \203w \203l \n \236A\316 \203T \317 \320\303D\" \321\322\323\324\325D D# \312\326 #\210*\202\203 \312\327#\210\202\203 \203\203 \312\327#\210,\207" [idlwave-shell-mark-breakpoints idlwave-shell-bp-glyph type disabled idlwave-shell-disabled-breakpoint-face idlwave-shell-breakpoint-face make-overlay 1 (t glyph) bp overlay-put mouse-face highlight keymap nil append :conversion propertize "@" display margin left-margin before-string face use-glyph ov idlwave-shell-breakpoint-popup-menu idlwave-shell-debug-line-map window-system string image-props] 5 (#$ . 104569)])
#@52 Does right-click mouse action on breakpoint lines.
(defalias 'idlwave-shell-mouse-active-bp #[(ev) "\203 \306!\210\307\310 !\311\211\211\211\211\211 *\211 +\204# \312\313!\210\314\315+!!*\315+\305\"\315+\302\"\315+\304\"\315+\301\"\316\317\311 \203O \320\202P \321\322\323
\203Z \324\202[ \325
\205` \326\f\203h \327\202i \330\f\205n \331\257\"\332*P#\211\205\335 \323\230\203\206 \333 \202\335 \322\230\203\221 \334 \202\335 \335\336 \"\203\256 \337\f\n
\203\246 \335\340 \"\205\251 \341\342! $\202\335 \335\343 \"\203\315 \337\f\203\301 \335\340 \"\205\306 \344\341\345!!\n
$\202\335 \335\346 \"\203\331 \347 \202\335 \350\351 \".\207" [ev disabled cmd select count condition mouse-set-point idlwave-shell-find-bp idlwave-shell-current-frame nil error "Breakpoint not found" int-to-string idlwave-shell-bp-get idlwave-popup-select delq "Enable" "Disable" "Clear" "Clear All" "Remove Condition" "Add Condition" "Change Condition" "Remove Repeat Count" "Add Repeat Count" "Change Repeat Count" "BreakPoint " idlwave-shell-clear-all-bp idlwave-shell-clear-current-bp string-match "Condition" idlwave-shell-break-here "Change" read-string "Break Condition: " "Count" string-to-number "Break After Count: " "able$" idlwave-shell-toggle-enable-current-bp message "Unimplemented: %s" index bp] 12 (#$ . 105554) "e"])
#@35 Edit the current execute command.
(defalias 'idlwave-shell-edit-default-command-line #[(arg) "\301\302\"\211\207" [idlwave-shell-command-line-to-execute read-string "IDL> "] 3 (#$ . 106898) "P"])
#@194 Execute a command line. On first use, ask for the command.
Also with prefix arg, ask for the command. You can also use the command
`idlwave-shell-edit-default-command-line' to edit the line.
(defalias 'idlwave-shell-execute-default-command-line #[(arg) "\303\232\203 \304\202 \305\232\203 \306\307 \"\310\311!\210\312 \206) r\313 q\210\314\n\315\")\316\"\207" [arg idlwave-shell-command-line-to-execute comint-input-ring (16) nil (4) read-string "IDL> " idlwave-shell-reset hidden idlwave-shell-send-command idlwave-shell-buffer ring-ref 0 (idlwave-shell-redisplay 'hide)] 4 (#$ . 107103) "P"])
#@218 Save file and run it in IDL.
Runs `save-buffer' and sends a '.RUN' command for the associated file to IDL.
When called from the shell buffer, re-run the file which was last handled by
one of the save-and-.. commands.
(defalias 'idlwave-shell-save-and-run #[nil "\300\301!\207" [idlwave-shell-save-and-action run] 2 (#$ . 107714) nil])
#@224 Save file and run it in IDL.
Runs `save-buffer' and sends '.COMPILE' command for the associated file to IDL.
When called from the shell buffer, re-compile the file which was last handled by
one of the save-and-.. commands.
(defalias 'idlwave-shell-save-and-compile #[nil "\300\301!\207" [idlwave-shell-save-and-action compile] 2 (#$ . 108056) nil])
#@223 Save file and batch it in IDL.
Runs `save-buffer' and sends a '@file' command for the associated file to IDL.
When called from the shell buffer, re-batch the file which was last handled by
one of the save-and-.. commands.
(defalias 'idlwave-shell-save-and-batch #[nil "\300\301!\207" [idlwave-shell-save-and-action batch] 2 (#$ . 108412) nil])
#@207 Save file and compile it in IDL.
Runs `save-buffer' and sends a '.RUN' command for the associated file to IDL.
When called from the shell buffer, re-compile the file which was last
handled by this command.
(defalias 'idlwave-shell-save-and-action #[(action) "\203 \306!\210 \203 \307 \210\310\211\310\311\312!\203$ \313 \210\314 \202? \f\203; \315\f!\211\203? r q\210\313 \210)\202? \316\317!)\320\f!\203 \321
\322=\203Q \323\202i
\324=\203[ \325\202i
\326=\203e \327\202i \330\331
\"\332\f\332R\333\310\fE\334\322!\205x \335\310\336%\210\337 \207\340\341\f\" \"\310\330\"!)\207" [idlwave-shell-stop-line-overlay idlwave-shell-is-stopped overlay-arrow-string buf idlwave-shell-last-save-and-action-file action 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 run ".run " compile ".compile " batch "@" error "Unknown action %s" "\"" idlwave-shell-maybe-update-routine-info idlwave-shell-hide-p mostly t idlwave-shell-bp-query format "No such file %s" msg] 7 (#$ . 108763)])
#@66 Update the routine info if the shell is not stopped at an error.
(defalias 'idlwave-shell-maybe-update-routine-info #[(&optional wait file) "?\205 \306=\204 \307 >\205 \n\205 \205 \310\306\311\f
$\207" [idlwave-shell-is-stopped idlwave-auto-routine-info-updates idlwave-query-shell-for-routine-info idlwave-routines wait file t compile-buffer idlwave-shell-update-routine-info nil] 5 (#$ . 109915)])
#@61 IDL command to obtain source files for compiled procedures.
(defvar idlwave-shell-sources-query "help,/source,/full" (#$ . 110329))
#@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 (#$ . 110468))
#@105 Determine the source file for a given module.
Query as a function if TYPE set to something beside 'pro.
(defalias 'idlwave-shell-module-source-query #[(module &optional type) "\205 \302\303\304 \305=\203 \306\202 \307#\310D\311\312$\207" [module type idlwave-shell-send-command format "print,(routine_info('%s',/SOURCE%s)).PATH" pro "" ",/FUNCTIONS" idlwave-shell-module-source-filter hide wait] 6 (#$ . 110691)])
#@62 Get module source, and update `idlwave-shell-sources-alist'.
(defalias 'idlwave-shell-module-source-filter #[(module) "\305\226 \"\306\307\310\f\"\2052 \f\311\224\311\225O \203$ \312\n!\nD\241\2022 \313 \226\312\n!\nDBC\"\211*\207" [module idlwave-shell-sources-alist filename old idlwave-shell-command-output assoc nil string-match ".PATH *[\n
]\\([^%][^
\n]+\\)[\n
]" 1 idlwave-shell-file-name append] 5 (#$ . 111117)])
#@120 Determine source files for all IDL compiled procedures.
Queries IDL using the string in `idlwave-shell-sources-query'.
(defalias 'idlwave-shell-sources-query #[nil "\301\302\303#\207" [idlwave-shell-sources-query idlwave-shell-send-command idlwave-shell-sources-filter hide] 4 (#$ . 111553) 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 #[nil "r\305!q\210\306 \210 c\210eb\210\307\211\310\311\307\312#\203 \307y\210`\310\313\307\312#\205? `\314 \315 }\210eb\210\316 ~\210\nb\210\316 \"\211+\207" [idlwave-shell-bp-buffer idlwave-shell-command-output cfun cpro idlwave-shell-sources-alist get-buffer-create erase-buffer nil re-search-forward "Compiled Procedures:" t "Compiled Functions:" append point-at-bol idlwave-shell-sources-grep] 4 (#$ . 111858)])
(defalias 'idlwave-shell-sources-grep #[nil "\212\302C\302y\210m\204, \303\304\302\305#\203, \306\224\306\225{\307\224\307\225{\310 ! )DBC\244\210\202 A*\207" [al internal-filename nil re-search-forward "\\s-*\\(\\S-+\\)\\s-+\\(\\S-+\\)" t 1 2 idlwave-shell-file-name] 4])
#@32 Remove all breakpoints in IDL.
(defalias 'idlwave-shell-clear-all-bp #[nil "\301\302\303#\207" [idlwave-shell-bp-query idlwave-shell-send-command (progn (idlwave-shell-filter-bp) (mapcar (lambda (x) (idlwave-shell-clear-bp x 'no-query)) idlwave-shell-bp-alist) (idlwave-shell-bp-query)) hide] 4 (#$ . 112810) nil])
#@30 List all breakpoints in IDL.
(defalias 'idlwave-shell-list-all-bp #[nil "\301!\207" [idlwave-shell-bp-query idlwave-shell-send-command] 2 (#$ . 113132) nil])
#@64 Position of last syntax error in `idlwave-shell-error-buffer'.
(defvar idlwave-shell-error-last 0 (#$ . 113297))
#@38 Move point to next IDL syntax error.
(defalias 'idlwave-shell-goto-next-error #[nil "\306\211r\nq\210 b\210\307\f\306\310#\204 \307
\306\310#\203B \311 \312\216\313\314\224\314\225{!*\315\316\224\316\225{!D\212\317\320\306\310#\203? i\202@ \321)`) \203Q \322 \323#\202W \324 \210\325\326!*\207" [col frame idlwave-shell-error-buffer idlwave-shell-error-last idlwave-shell-syntax-error idlwave-shell-other-error nil re-search-forward t match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) idlwave-shell-file-name 1 string-to-number 2 re-search-backward "\\^" 0 idlwave-shell-display-line disable beep message "No more errors." save-match-data-internal] 4 (#$ . 113416) nil])
#@115 If `idlwave-shell-use-truename' is non-nil, convert file name to true name.
Otherwise, just expand the file name.
(defalias 'idlwave-shell-file-name #[(name) "\305\306!\203\n \202 \203 \307\f\n\"\202 \310\f\n\")\207" [default-directory idlwave-shell-default-directory def-dir idlwave-shell-use-truename name derived-mode-p idlwave-shell-mode file-truename expand-file-name] 3 (#$ . 114150)])
#@28 Keymap for `idlwave-mode'.
(defvar idlwave-shell-mode-map (copy-keymap comint-mode-map) (#$ . 114555))
(defvar idlwave-shell-electric-debug-mode-map (make-sparse-keymap))
(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)
#@54 Define a key in both the shell and buffer mode maps.
(defalias 'idlwave-shell-define-key-both #[(key hook) "\304 \n#\210\304 \n#\207" [idlwave-mode-map key hook idlwave-shell-mode-map define-key] 4 (#$ . 114970)])
(byte-code "\303\304\305#\210\303\306\307#\210\303\310\307#\210\303\311\312#\210\303\313\314#\210\303\315\316#\210\303\317\320#\210\303\321\322#\210\303\323\324#\210\303\325\326#\210\303\327\330#\210\303\331\332#\210\303\333\334#\210\303\335\336#\210\303 \337#\210\303\340\341#\210\303\342\343#\210\303\n\325\326#\210\303\n\327\330#\210\344\345\346\"\210\344\347\350\"\210\344\351\352\"\210\303\353\354#\207" [idlwave-shell-mode-map idlwave-shell-prefix-key idlwave-mode-map define-key "" comint-kill-region " " idlwave-shell-complete "\211" "" idlwave-shell "?" idlwave-routine-info "" idlwave-keyboard-quit "\277" idlwave-context-help [(control meta 63)] idlwave-help-assistant-help-with-topic " " idlwave-update-routine-info "" idlwave-shell-char-mode-loop "" idlwave-shell-send-char "=" idlwave-resolve "" idlwave-find-module " " idlwave-kill-autoloaded-buffers idlwave-shell-debug-map [(up)] idlwave-shell-up-or-history [(down)] idlwave-shell-down-or-history idlwave-shell-define-key-both [(shift down-mouse-2)] idlwave-shell-mouse-print [(control meta down-mouse-2)] idlwave-shell-mouse-help [(control shift down-mouse-2)] idlwave-shell-examine-select [(shift mouse-3)] idlwave-mouse-context-help] 4)
(defalias 'idlwave-shell-mouse-nop #[(event) "\300\207" [nil] 1 nil "e"])
(byte-code "\306\307\310\"\210\306\311\310\"\210\306\312\310\"\210\313 <\205 \303\n>\314\303\315\n!\" \316\211 ,\316\211 - .\316\211 / 0\316\211 1 2\211A@\211\203\366
@,
A@-\317
8/\320
80\321
81 \205l \322-!\205l -\211\226=23\203\217 ,\203\217 1\204\206 \3234,/#\210\3235,/#\210\n\203\334 6\203\334 \324-!\203\266 \325\326\f \203\254 -\226\202\256 -C\"!.\202\300 \325\326\n-C\"!.2\204\334 \3237./#\2101\204\334 \3238./#\2100\203: \324-!\203: \3239\327-!/#\210\202: .\f\3239\330\331#\210\3239\332\333#\210\3239\334\333#\210\3239\335\336#\210\3239\337\336#\210\3239\340\341#\210\3239\342\343#\210\3239\344\345#\210\3239\346\347#\210\3239\350\351#\210\3525M\210\3534M\207" [specs idlwave-shell-debug-modifiers mod shift mod-noshift s idlwave-shell-define-key-both [(shift mouse-2)] idlwave-shell-mouse-nop [(shift control mouse-2)] [(control meta mouse-2)] (([(control 98)] 98 idlwave-shell-break-here t t) ([(control 105)] 105 idlwave-shell-break-in t t) ([(control 106)] 106 idlwave-shell-break-this-module t t) ([(control 100)] 100 idlwave-shell-clear-current-bp t) ([(control 97)] 97 idlwave-shell-clear-all-bp t) ([(control 92)] 92 idlwave-shell-toggle-enable-current-bp t) ([(control 115)] 115 idlwave-shell-step t) ([(control 110)] 110 idlwave-shell-stepover t) ([(control 107)] 107 idlwave-shell-skip t) ([(control 117)] 117 idlwave-shell-up t) ([(control 111)] 111 idlwave-shell-out t) ([(control 109)] 109 idlwave-shell-return t) ([(control 104)] 104 idlwave-shell-to-here t t) ([(control 114)] 114 idlwave-shell-cont t) ([(control 121)] 121 idlwave-shell-execute-default-command-line) ([(control 122)] 122 idlwave-shell-reset t) ([(control 113)] 113 idlwave-shell-quit) ([(control 112)] 112 idlwave-shell-print t) ([(63)] 63 idlwave-shell-help-expression t) ([(control 118)] 118 idlwave-shell-toggle-electric-debug-mode t t) ([(control 120)] 120 idlwave-shell-goto-next-error) ([(control 99)] 99 idlwave-shell-save-and-run t) ([(64)] 64 idlwave-shell-save-and-batch) ([(control 101)] 101 idlwave-shell-run-region) ([(control 119)] 119 idlwave-shell-resync-dirs) ([(control 108)] 108 idlwave-shell-redisplay t) ([(control 116)] 116 idlwave-shell-toggle-toolbar) ([(control up)] up idlwave-shell-stack-up) ([(control down)] down idlwave-shell-stack-down) ([(91)] 91 idlwave-shell-goto-previous-bp t t) ([(93)] 93 idlwave-shell-goto-next-bp t t) ([(control 102)] 102 idlwave-shell-window)) delete copy-sequence nil 2 3 4 characterp define-key char-or-string-p vector append char-to-string " " idlwave-shell-step "+" idlwave-shell-stack-up "=" "-" idlwave-shell-stack-down "_" "e" #[nil "\300\301!\207" [idlwave-shell-print (16)] 2 nil nil] "q" idlwave-shell-retall "t" #[nil "\300\301!\207" [idlwave-shell-send-command "help,/TRACE"] 2 nil nil] [(control 63)] idlwave-shell-electric-debug-help "x" #[(arg) "\301\302\211\303$\207" [arg idlwave-shell-print nil t] 5 nil "P"] idlwave-debug-map idlwave-shell-debug-map k1 c2 k2 cmd electric only-buffer cannotshift idlwave-shell-activate-prefix-keybindings idlwave-shell-mode-prefix-map idlwave-mode-prefix-map window-system idlwave-mode-map idlwave-shell-mode-map idlwave-shell-electric-debug-mode-map] 5)
#@75 Toggle electric-debug-mode, suppressing re-entry into mode if turned off.
(defalias 'idlwave-shell-toggle-electric-debug-mode #[nil "\203\n \302\300\303!\207\304\300\302!\207" [idlwave-shell-electric-debug-mode idlwave-shell-suppress-electric-debug t 0 nil] 2 (#$ . 119723) 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 (#$ . 120063))
(make-variable-buffer-local 'idlwave-shell-electric-debug-mode)
#@325 Toggle Idlwave Shell Electric Debug mode.
With a prefix argument ARG, enable the mode if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil.
When Idlwave Shell Electric Debug mode is enabled, the Idlwave
Shell debugging commands are available as single key sequences.
(defalias 'idlwave-shell-electric-debug-mode #[(&optional arg) "\303 \304=\203 \n?\202 \305 !\306V\307\310\n\203 \311\202 \312\"\210\313\314!\203@ \303 \2033 \303 \232\203@ \315\316\n\203= \317\202> \320\"\210)\321 \210\n\207" [#1=#:last-message arg idlwave-shell-electric-debug-mode current-message toggle prefix-numeric-value 0 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 message "Idlwave-Shell-Electric-Debug mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 120329) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\211%\210\305\306\307\"\210\305\310\311\"\210\312\302\313\314\304$\210\315\302\304\"\207" [idlwave-shell-electric-debug-mode-map add-minor-mode idlwave-shell-electric-debug-mode " *Debugging*" nil add-hook idlwave-shell-electric-debug-mode-on-hook #[nil "\305\301!\210\306\307\310p\"\210\n\203 \311\n\312 #\210\313\314!\205# \315\314\f\316 #\207" [buffer-read-only idlwave-shell-electric-debug-read-only idlwave-shell-stop-line-overlay idlwave-shell-electric-stop-line-face idlwave-shell-electric-stop-color make-local-variable t add-to-list idlwave-shell-electric-debug-buffers overlay-put face facep fringe set-face-foreground selected-frame] 4] idlwave-shell-electric-debug-mode-off-hook #[nil "\305\300!\205 \306p\n\" \203 \307 \310\f#\207\311\312!\205# \313\312\314\315!\"\207" [idlwave-shell-electric-debug-read-only buffer-read-only idlwave-shell-electric-debug-buffers idlwave-shell-stop-line-overlay idlwave-shell-stop-line-face boundp delq overlay-put face facep fringe set-face-foreground face-foreground default] 4] ad-add-advice (print-enter nil t (advice lambda nil "Print out an entrance message." (when idlwave-shell-electric-debug-mode (message "Electric Debugging mode entered. Press [C-?] for help, [q] to quit")) (force-mode-line-update))) after ad-activate] 6)
(defvar idlwave-shell-electric-debug-buffers nil)
(defalias 'idlwave-shell-electric-debug-all-off #[nil "\306 \306\212 \211A@\211\203/ \307\n!\203 \nq\210\310\311!\203 \f\203
\203 \305\312!\210\202 +\306\211\207" [idlwave-shell-suppress-electric-debug idlwave-shell-electric-debug-buffers buf buffers buffer-file-name idlwave-shell-electric-debug-mode nil buffer-live-p derived-mode-p idlwave-mode 0] 2])
(defalias 'idlwave-shell-electric-debug-help #[nil "r\306\307!q\210p\310 \210 \311\211\312\211\312 \313 \210\314\315!\210+\211 \316!\210\317!\210+\320 \321\307! \322 ! \323 !\210\324\325\326d\" ZT!\210\323!+\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks 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 inhibit-read-only #2=#:buf standard-output idlwave-shell-electric-debug-help current-window window window-lines] 5 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 #[(x) "\301\302@\303\304\305DE\306BB\"\207" [x apply vector idlwave-shell-print nil quote (t)] 7] "Examine region with" #[(x) "\301\302@\303\304\305DE\306BB\"\207" [x apply vector idlwave-shell-print '(4) quote (t)] 7] (("Call Stack" ["Stack Up" idlwave-shell-stack-up t] ["Stack Down" idlwave-shell-stack-down t] "--" ["Redisplay and Sync" idlwave-shell-redisplay t]) ("Show Commands" ["Everything" (if (eq idlwave-shell-show-commands 'everything) (progn (setq idlwave-shell-show-commands (get 'idlwave-shell-show-commands 'last-val)) (put 'idlwave-shell-show-commands 'last-val nil)) (put 'idlwave-shell-show-commands 'last-val idlwave-shell-show-commands) (setq idlwave-shell-show-commands 'everything)) :style toggle :selected (and (not (listp idlwave-shell-show-commands)) (eq idlwave-shell-show-commands 'everything))] "--" ["Compiling Commands" (idlwave-shell-add-or-remove-show 'run) :style toggle :selected (not (idlwave-shell-hide-p 'run (get 'idlwave-shell-show-commands 'last-val))) :active (not (eq idlwave-shell-show-commands 'everything))] ["Breakpoint Commands" (idlwave-shell-add-or-remove-show 'breakpoint) :style toggle :selected (not (idlwave-shell-hide-p 'breakpoint (get 'idlwave-shell-show-commands 'last-val))) :active (not (eq idlwave-shell-show-commands 'everything))] ["Debug Commands" (idlwave-shell-add-or-remove-show 'debug) :style toggle :selected (not (idlwave-shell-hide-p 'debug (get 'idlwave-shell-show-commands 'last-val))) :active (not (eq idlwave-shell-show-commands 'everything))] ["Miscellaneous Commands" (idlwave-shell-add-or-remove-show 'misc) :style toggle :selected (not (idlwave-shell-hide-p 'misc (get 'idlwave-shell-show-commands 'last-val))) :active (not (eq idlwave-shell-show-commands 'everything))]) ("Input Mode" ["Send one char" idlwave-shell-send-char t] ["Temporary Character Mode" idlwave-shell-char-mode-loop t] "--" ["Use Input Mode Magic" (setq idlwave-shell-use-input-mode-magic (not idlwave-shell-use-input-mode-magic)) :style toggle :selected idlwave-shell-use-input-mode-magic]) "--" ["Update Working Dir" idlwave-shell-resync-dirs t] ["Save Path Info" (idlwave-shell-send-command idlwave-shell-path-query 'idlwave-shell-get-path-info 'hide) t] ["Reset IDL" idlwave-shell-reset t] "--" ["Toggle Toolbar" idlwave-shell-toggle-toolbar t] ["Exit IDL" idlwave-shell-quit t])] 14))
(byte-code "\306\307!\204
\310\311\312\"\203I \313\314!\210\315\305\316 $\210\317\314!\210\315\320\n\321 $\210r\322 \314\211 \203H \f@\211q\210\323\324!\203A \325
!\210\326
!\210\fA\211\204- +\314\207" [idlwave-mode-map idlwave-shell-menu-def idlwave-shell-mode-map buf --dolist-tail-- 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] 6)
#@57 The glyphs to mark breakpoint lines in the source code.
(defvar idlwave-shell-bp-glyph nil (#$ . 129627))
(byte-code "\304\305\211\n\211A@\211\2039 \306\307!\203) \307\310!\203) \311\312\310\313 A\314\315\257\202* \305\211\203 @B B\202 +\316\317!\210\316\320!\207" [im im-cons image-alist idlwave-shell-bp-glyph ((bp . "/* XPM */\nstatic char * file[] = {\n\"14 12 3 1\",\n\" c None s backgroundColor\",\n\". c #4B4B4B4B4B4B\",\n\"R c #FFFF00000000\",\n\" \",\n\" .... \",\n\" .RRRR. \",\n\" .RRRRRR. \",\n\" .RRRRRRRR. \",\n\" .RRRRRRRR. \",\n\" .RRRRRRRR. \",\n\" .RRRRRRRR. \",\n\" .RRRRRR. \",\n\" .RRRR. \",\n\" .... \",\n\" \"};") (bp-cond . "/* XPM */\nstatic char * file[] = {\n\"14 12 4 1\",\n\" c None s backgroundColor\",\n\". c #4B4B4B4B4B4B\",\n\"R c #FFFF00000000\",\n\"B c #000000000000\",\n\" \",\n\" .... \",\n\" .RRRR. \",\n\" .RRRRRR. \",\n\" .RRRRRRRR. \",\n\" .RRBBBBRR. \",\n\" .RRRRRRRR. \",\n\" .RRBBBBRR. \",\n\" .RRRRRR. \",\n\" .RRRR. \",\n\" .... \",\n\" \"};") (bp-1 . "/* XPM */\nstatic char * file[] = {\n\"14 12 4 1\",\n\" c None s backgroundColor\",\n\". c #4B4B4B4B4B4B\",\n\"X c #FFFF00000000\",\n\"o c #000000000000\",\n\" \",\n\" .... \",\n\" .XXXX. \",\n\" .XXooXX. \",\n\" .XXoooXXX. \",\n\" .XXXooXXX. \",\n\" .XXXooXXX. \",\n\" .XXooooXX. \",\n\" .XooooX. \",\n\" .XXXX. \",\n\" .... \",\n\" \"};") (bp-2 . "/* XPM */\nstatic char * file[] = {\n\"14 12 4 1\",\n\" c None s backgroundColor\",\n\". c #4B4B4B4B4B4B\",\n\"X c #FFFF00000000\",\n\"o c #000000000000\",\n\" \",\n\" .... \",\n\" .XXXX. \",\n\" .XoooXX. \",\n\" .XXoXooXX. \",\n\" .XXXXooXX. \",\n\" .XXXooXXX. \",\n\" .XXooXXXX. \",\n\" .XooooX. \",\n\" .XXXX. \",\n\" .... \",\n\" \"};") (bp-3 . "/* XPM */\nstatic char * file[] = {\n\"14 12 4 1\",\n\" c None s backgroundColor\",\n\". c #4B4B4B4B4B4B\",\n\"X c #FFFF00000000\",\n\"o c #000000000000\",\n\" \",\n\" .... \",\n\" .XXXX. \",\n\" .XoooXX. \",\n\" .XXXXooXX. \",\n\" .XXXooXXX. \",\n\" .XXXXooXX. \",\n\" .XXoXooXX. \",\n\" .XoooXX. \",\n\" .XXXX. \",\n\" .... \",\n\" \"};") (bp-4 . "/* XPM */\nstatic char * file[] = {\n\"14 12 4 1\",\n\" c None s backgroundColor\",\n\". c #4B4B4B4B4B4B\",\n\"X c #FFFF00000000\",\n\"o c #000000000000\",\n\" \",\n\" .... \",\n\" .XXXX. \",\n\" .XoXXoX. \",\n\" .XXoXXoXX. \",\n\" .XXooooXX. \",\n\" .XXXXooXX. \",\n\" .XXXXooXX. \",\n\" .XXXooX. \",\n\" .XXXX. \",\n\" .... \",\n\" \"};") (bp-n . "/* XPM */\nstatic char * file[] = {\n\"14 12 4 1\",\n\" c None s backgroundColor\",\n\". c #4B4B4B4B4B4B\",\n\"X c #FFFF00000000\",\n\"o c #000000000000\",\n\" \",\n\" .... \",\n\" .XXXX. \",\n\" .XXXXXX. \",\n\" .XXoXoXXX. \",\n\" .XXooXoXX. \",\n\" .XXoXXoXX. \",\n\" .XXoXXoXX. \",\n\" .XoXXoX. \",\n\" .XXXX. \",\n\" .... \",\n\" \"};")) nil fboundp image-type-available-p xpm image :type :data :ascent center provide idlw-shell idlwave-shell] 8)
#@29 Toggle the IDLWAVE toolbar.
(autoload 'idlwave-toolbar-toggle "idlw-toolbar" '(#$ . 133056))
#@22 Add IDLWAVE toolbar.
(autoload 'idlwave-toolbar-add-everywhere "idlw-toolbar" '(#$ . 133155))
#@46 Toggle the display of the debugging toolbar.
(defalias 'idlwave-shell-toggle-toolbar #[nil "\300 \207" [idlwave-toolbar-toggle] 1 (#$ . 133255) 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)