Lines Matching +defs:idlwave +defs:shell +defs:bp +defs:glyph
1 ;; idlw-shell.el --- run IDL as an inferior process of Emacs.
36 ;; `shell' or `telnet' commands. Provides command history and
42 ;; Documentation should be available online with `M-x idlwave-info'.
46 ;; http://idlwave.org
55 ;; (autoload 'idlwave-shell "idlw-shell" "IDLWAVE Shell" t)
64 ;; http://idlwave.org
77 ;; Under XEmacs the Debug menu in the shell does not display the
88 ;; `M-x idlwave-customize'.
97 (require 'idlwave)
101 (defvar idlwave-shell-have-new-custom nil)
109 (setq idlwave-shell-have-new-custom t)
115 ;;; Customizations: idlwave-shell group
118 (defgroup idlwave-shell-general-setup nil
120 :prefix "idlwave-shell"
121 :group 'idlwave)
123 (defcustom idlwave-shell-prompt-pattern "^\r? ?IDL> "
132 :group 'idlwave-shell-general-setup
135 (defcustom idlwave-shell-process-name "idl"
138 :group 'idlwave-shell-general-setup
141 ;; (defcustom idlwave-shell-automatic-start...) See idlwave.el
143 (defcustom idlwave-shell-use-dedicated-window nil
144 "*Non-nil means, never replace the shell frame with another buffer."
145 :group 'idlwave-shell-general-setup
148 (defcustom idlwave-shell-use-dedicated-frame nil
149 "*Non-nil means, IDLWAVE should use a special frame to display shell buffer."
150 :group 'idlwave-shell-general-setup
153 (defcustom idlwave-shell-frame-parameters
155 "The frame parameters for a dedicated idlwave-shell frame.
156 See also `idlwave-shell-use-dedicated-frame'.
158 :group 'idlwave-shell-general-setup
162 (defcustom idlwave-shell-raise-frame t
163 "*Non-nil means, `idlwave-shell' raises the frame showing the shell window."
164 :group 'idlwave-shell-general-setup
167 (defcustom idlwave-shell-arrows-do-history t
175 :group 'idlwave-shell-general-setup
183 (defcustom idlwave-shell-use-toolbar t
185 Starting the shell will then add the toolbar to all idlwave-mode buffers.
186 Exiting the shell will removed everywhere.
189 `C-c C-d C-t' (`idlwave-shell-toggle-toolbar')."
190 :group 'idlwave-shell-general-setup
193 (defcustom idlwave-shell-temp-pro-prefix "/tmp/idltemp"
198 :group 'idlwave-shell-general-setup
201 (defvar idlwave-shell-fix-inserted-breaks nil
205 If non-nil then run `idlwave-shell-remove-breaks' to clean up IDL messages.")
207 (defcustom idlwave-shell-prefix-key "\C-c\C-d"
208 "*The prefix key for the debugging map `idlwave-shell-mode-prefix-map'.
209 This variable must already be set when idlwave-shell.el is loaded.
211 :group 'idlwave-shell-general-setup
214 (defcustom idlwave-shell-activate-prefix-keybindings t
216 The prefix key itself is given in the option `idlwave-shell-prefix-key'.
218 :group 'idlwave-shell-general-setup
221 (defcustom idlwave-shell-automatic-electric-debug 'breakpoint
226 :group 'idlwave-shell-general-setup
232 (defcustom idlwave-shell-electric-zap-to-file t
234 file at which point is stopped. This takes point away from the shell
236 :group 'idlwave-shell-general-setup
239 ;; (defcustom idlwave-shell-debug-modifiers... See idlwave.el
241 (defvar idlwave-shell-activate-alt-keybindings nil
242 "Obsolete variable. See `idlwave-shell-debug-modifiers'.")
244 (defcustom idlwave-shell-use-truename nil
254 :group 'idlwave-shell-general-setup
257 (defcustom idlwave-shell-file-name-chars "~/A-Za-z0-9+:_.$#%={}\\- "
261 :group 'idlwave-shell-general-setup
264 (defcustom idlwave-shell-mode-hook '()
265 "*Hook for customising `idlwave-shell-mode'."
266 :group 'idlwave-shell-general-setup
269 (defcustom idlwave-shell-graphics-window-size '(500 400)
273 :group 'idlwave-shell-general-setup
280 (defgroup idlwave-shell-command-setup nil
282 :prefix "idlwave-shell"
283 :group 'idlwave)
285 (defcustom idlwave-shell-initial-commands "!more=0 & defsysv,'!ERROR_STATE',EXISTS=__e & if __e then begin & !ERROR_STATE.MSG_PREFIX=\"% \" & delvar,__e & endif"
287 This string is sent to the IDL process by `idlwave-shell-mode' which is
288 invoked by `idlwave-shell'."
289 :group 'idlwave-shell-command-setup
292 (defcustom idlwave-shell-save-command-history t
294 The file `idlwave-shell-command-history-file' is used to save and restore
296 :group 'idlwave-shell-command-setup
299 (defcustom idlwave-shell-command-history-file "idlwhist"
300 "The file in which the command history of the idlwave shell is saved.
303 The history is only saved if the variable `idlwave-shell-save-command-history'
305 :group 'idlwave-shell-command-setup
308 (defcustom idlwave-shell-show-commands
310 "*A list of command types to show output from in the shell.
312 types are not displayed in the shell. The type 'everything causes all
313 the copious shell traffic to be displayed."
314 :group 'idlwave-shell-command-setup
323 (defcustom idlwave-shell-max-print-length 200
325 :group 'idlwave-shell-command-setup
328 (defcustom idlwave-shell-examine-alist
331 idlwave-shell-max-print-length)))
344 `idlwave-shell-examine-select', and the corresponding value is sent as
345 a command to the shell, with special sequence `___' replaced by the
347 :group 'idlwave-shell-command-setup
353 (defvar idlwave-shell-print-expression-function nil
356 (defcustom idlwave-shell-separate-examine-output t
358 :group 'idlwave-shell-command-setup
361 (defcustom idlwave-shell-comint-settings
369 The function `idlwave-shell-mode' will make local variables out of each entry.
370 Changes to this variable will only be active when the shell buffer is
372 :group 'idlwave-shell-command-setup
376 (defcustom idlwave-shell-query-for-class t
377 "*Non-nil means query the shell for object class on object completions."
378 :group 'idlwave-shell-command-setup
381 (defcustom idlwave-shell-use-input-mode-magic nil
384 by the regular expressions in `idlwave-shell-input-mode-spells'.
386 back, respectively. See `idlwave-shell-input-mode-spells' for details."
387 :group 'idlwave-shell-command-setup
390 (defcustom idlwave-shell-input-mode-spells
396 to the command \\[idlwave-shell-send-char].
400 manually with \\[idlwave-shell-char-mode-loop].
404 The variable `idlwave-shell-use-input-mode-magic' must be non-nil to enable
406 output, shell operation may be slowed down.
423 Since the IDLWAVE shell defines the system variable `!IDLWAVE_VERSION',
443 :group 'idlwave-shell-command-setup
449 (defcustom idlwave-shell-breakpoint-popup-menu t
452 :group 'idlwave-shell-command-setup
455 (defcustom idlwave-shell-reset-no-prompt nil
457 :group 'idlwave-shell-command-setup
461 (defgroup idlwave-shell-highlighting-and-faces nil
463 :prefix "idlwave-shell"
464 :group 'idlwave)
466 (defcustom idlwave-shell-mark-stop-line t
473 'face Use `idlwave-shell-stop-line-face' to highlight the line.
481 :group 'idlwave-shell-highlighting-and-faces
488 (defcustom idlwave-shell-overlay-arrow ">"
493 See also `idlwave-shell-use-overlay-arrow'."
494 :group 'idlwave-shell-highlighting-and-faces
497 (defcustom idlwave-shell-stop-line-face 'highlight
498 "*The face for `idlwave-shell-stop-line-overlay'.
500 line where IDL is stopped. See also `idlwave-shell-mark-stop-line'."
501 :group 'idlwave-shell-highlighting-and-faces
504 (defcustom idlwave-shell-electric-stop-color "Violet"
506 :group 'idlwave-shell-highlighting-and-faces
509 (defcustom idlwave-shell-electric-stop-line-face
511 (copy-face 'modeline 'idlwave-shell-electric-stop-line)
512 (set-face-background 'idlwave-shell-electric-stop-line
513 idlwave-shell-electric-stop-color)
515 (set-face-foreground 'idlwave-shell-electric-stop-line nil)
517 "*The face for `idlwave-shell-stop-line-overlay' when in electric debug mode.
520 :group 'idlwave-shell-highlighting-and-faces
523 (defcustom idlwave-shell-mark-breakpoints t
527 'face Highlight line with `idlwave-shell-breakpoint-face'.
528 'glyph Red dot at the beginning of line. If the display does not
530 t Glyph when possible, otherwise face (same effect as 'glyph)."
531 :group 'idlwave-shell-highlighting-and-faces
535 (const :tag "Display glyph (red dot)" glyph)
538 (defvar idlwave-shell-use-breakpoint-glyph t
539 "Obsolete variable. See `idlwave-shell-mark-breakpoints.")
541 (defcustom idlwave-shell-breakpoint-face 'idlwave-shell-bp
544 lines which have a breakpoint. See also `idlwave-shell-mark-breakpoints'."
545 :group 'idlwave-shell-highlighting-and-faces
548 (if (not idlwave-shell-have-new-custom)
550 (copy-face 'underline 'idlwave-shell-bp)
552 (defface idlwave-shell-bp
556 :group 'idlwave-shell-highlighting-and-faces))
558 (defcustom idlwave-shell-disabled-breakpoint-face
559 'idlwave-shell-disabled-bp
562 lines which have a breakpoint. See also `idlwave-shell-mark-breakpoints'."
563 :group 'idlwave-shell-highlighting-and-faces
566 (if (not idlwave-shell-have-new-custom)
568 (copy-face 'underline 'idlwave-shell-disabled-bp)
570 (defface idlwave-shell-disabled-bp
574 :group 'idlwave-shell-highlighting-and-faces))
577 (defcustom idlwave-shell-expression-face 'secondary-selection
578 "*The face for `idlwave-shell-expression-overlay'.
581 :group 'idlwave-shell-highlighting-and-faces
584 (defcustom idlwave-shell-output-face 'secondary-selection
585 "*The face for `idlwave-shell-output-overlay'.
588 :group 'idlwave-shell-highlighting-and-faces
598 (defvar idlwave-shell-temp-pro-file nil
601 (defvar idlwave-shell-temp-rinfo-save-file nil
604 before use by the shell.")
606 (defun idlwave-shell-temp-file (type)
609 TYPE is either 'pro' or 'rinfo', and `idlwave-shell-temp-pro-file' or
610 `idlwave-shell-temp-rinfo-save-file' is set (respectively)."
613 (or idlwave-shell-temp-rinfo-save-file
614 (setq idlwave-shell-temp-rinfo-save-file
615 (idlwave-shell-make-temp-file idlwave-shell-temp-pro-prefix))))
617 (or idlwave-shell-temp-pro-file
618 (setq idlwave-shell-temp-pro-file
619 (idlwave-shell-make-temp-file idlwave-shell-temp-pro-prefix))))
620 (t (error "Wrong argument (idlwave-shell-temp-file): %s"
624 (defun idlwave-shell-make-temp-file (prefix)
649 (defvar idlwave-shell-dirstack-query "cd,current=___cur & print,___cur"
650 "Command used by `idlwave-shell-resync-dirs' to query IDL for
653 (defvar idlwave-shell-path-query "print,'PATH:<'+transpose(expand_path(!PATH,/ARRAY))+'>' & print,'SYSDIR:<'+!dir+'>'"
655 "The command which gets !PATH and !DIR info from the shell.")
657 (defvar idlwave-shell-mode-line-info nil
660 (defvar idlwave-shell-default-directory nil
661 "The default directory in the idlwave-shell buffer, of outside use.")
663 (defvar idlwave-shell-last-save-and-action-file nil
664 "The last file which was compiled with `idlwave-shell-save-and-...'.")
672 (defvar idlwave-shell-stop-line-overlay nil
674 (defvar idlwave-shell-is-stopped nil)
675 (defvar idlwave-shell-expression-overlay nil
677 (defvar idlwave-shell-output-overlay nil
682 (if (overlayp idlwave-shell-stop-line-overlay)
683 (delete-overlay idlwave-shell-stop-line-overlay))
684 (if (overlayp idlwave-shell-expression-overlay)
685 (delete-overlay idlwave-shell-expression-overlay))
686 (if (overlayp idlwave-shell-output-overlay)
687 (delete-overlay idlwave-shell-output-overlay))
690 (setq idlwave-shell-stop-line-overlay nil
691 idlwave-shell-expression-overlay nil
692 idlwave-shell-output-overlay nil)
694 ;; Define the shell stop overlay. When left nil, the arrow will be used.
696 ((or (null idlwave-shell-mark-stop-line)
697 (eq idlwave-shell-mark-stop-line 'arrow))
701 ((eq idlwave-shell-mark-stop-line 'face)
708 (setq idlwave-shell-stop-line-overlay (make-overlay 1 1))
709 (overlay-put idlwave-shell-stop-line-overlay
710 'face idlwave-shell-stop-line-face))))
716 (setq idlwave-shell-stop-line-overlay (make-overlay 1 1))
717 (overlay-put idlwave-shell-stop-line-overlay
718 'face idlwave-shell-stop-line-face)))))
721 (setq idlwave-shell-expression-overlay (make-overlay 1 1))
722 (overlay-put idlwave-shell-expression-overlay
723 'face idlwave-shell-expression-face)
724 (overlay-put idlwave-shell-expression-overlay
726 (setq idlwave-shell-output-overlay (make-overlay 1 1))
727 (overlay-put idlwave-shell-output-overlay
728 'face idlwave-shell-output-face)
730 (copy-face idlwave-shell-stop-line-face
731 'idlwave-shell-pending-stop)
732 (copy-face idlwave-shell-electric-stop-line-face
733 'idlwave-shell-pending-electric-stop)
734 (set-face-background 'idlwave-shell-pending-stop "gray70")
735 (set-face-background 'idlwave-shell-pending-electric-stop "gray70")
739 (defvar idlwave-shell-bp-query "help,/breakpoints"
742 (defvar idlwave-shell-command-output nil
745 (defvar idlwave-shell-post-command-hook nil
750 (defvar idlwave-shell-sentinel-hook nil
753 (defvar idlwave-shell-hide-output nil
757 (defvar idlwave-shell-show-if-error nil
761 (defvar idlwave-shell-accumulation nil
764 (defvar idlwave-shell-command-line-to-execute nil)
765 (defvar idlwave-shell-cleanup-hook nil
766 "List of functions to do cleanup when the shell exits.")
768 (defvar idlwave-shell-pending-commands nil
772 `idlwave-shell-post-command-hook'. If HIDE is non-nil, hide the output
775 (defun idlwave-shell-buffer ()
777 The name of the buffer is made by surrounding `idlwave-shell-process-name
779 (concat "*" idlwave-shell-process-name "*"))
781 (defvar idlwave-shell-ready nil
788 (defvar idlwave-shell-halt-frame nil
791 (defvar idlwave-shell-step-frame nil
794 (defvar idlwave-shell-trace-frame nil
797 (defconst idlwave-shell-halt-messages
808 (defconst idlwave-shell-halt-messages-re
809 (mapconcat 'identity idlwave-shell-halt-messages "\\|")
810 "The regular expression computed from idlwave-shell-halt-messages")
812 (defconst idlwave-shell-trace-message-re
818 (defconst idlwave-shell-step-messages
825 (defvar idlwave-shell-break-message "^% Breakpoint at:"
828 (defconst idlwave-shell-electric-debug-help
863 t Print a calling-level traceback in the shell.
867 (defvar idlwave-shell-bp-alist)
868 ;(defvar idlwave-shell-post-command-output)
869 (defvar idlwave-shell-sources-alist)
870 (defvar idlwave-shell-menu-def)
871 (defvar idlwave-shell-mode-menu)
872 (defvar idlwave-shell-initial-commands)
873 (defvar idlwave-shell-syntax-error)
874 (defvar idlwave-shell-other-error)
875 (defvar idlwave-shell-error-buffer)
876 (defvar idlwave-shell-error-last)
877 (defvar idlwave-shell-bp-buffer)
878 (defvar idlwave-shell-sources-query)
879 (defvar idlwave-shell-mode-map)
880 (defvar idlwave-shell-calling-stack-index)
881 (defvar idlwave-shell-only-prompt-pattern nil)
884 (defun idlwave-shell-mode ()
902 similar to M-TAB in `idlwave-mode'. In executive commands and
904 like in `idlwave-mode'.
908 `\\[idlwave-routine-info]' displays information about an IDL routine near point,
909 just like in `idlwave-mode'. The module used is the one at point or
912 \\[idlwave-update-routine-info].
913 \\[idlwave-find-module] find the source of a module.
914 \\[idlwave-resolve] tells IDL to compile an unresolved module.
915 \\[idlwave-context-help] shows the online help on the item at
934 \\[idlwave-shell-resync-dirs] queries IDL in order to change Emacs current directory
941 \\[idlwave-shell-print] or \\[idlwave-shell-mouse-print] with the
942 mouse, help, \\[idlwave-shell-help-expression] or
943 \\[idlwave-shell-mouse-help] with the mouse, or with a
945 \\[idlwave-shell-examine-select]. The mouse examine commands can
951 Turning on `idlwave-shell-mode' runs `comint-mode-hook' and
952 `idlwave-shell-mode-hook' (in that order).
956 Info documentation for this package is available. Use \\[idlwave-info]
959 homepage at `http://idlwave.org'.
960 IDLWAVE has customize support - see the group `idlwave'.
964 \\{idlwave-shell-mode-map}"
967 (idlwave-setup) ; Make sure config files and paths, etc. are available.
968 (unless (file-name-absolute-p idlwave-shell-command-history-file)
969 (setq idlwave-shell-command-history-file
970 (expand-file-name idlwave-shell-command-history-file
971 idlwave-config-directory)))
975 (setq comint-prompt-regexp idlwave-shell-prompt-pattern)
985 (setq major-mode 'idlwave-shell-mode)
987 (setq idlwave-shell-mode-line-info nil)
1000 idlwave-shell-mode-line-info
1006 ;; (make-local-variable 'idlwave-shell-bp-alist)
1007 (setq idlwave-shell-halt-frame nil
1008 idlwave-shell-trace-frame nil
1009 idlwave-shell-command-output nil
1010 idlwave-shell-step-frame nil)
1011 (idlwave-shell-display-line nil)
1012 (setq idlwave-shell-calling-stack-index 0)
1013 (setq idlwave-shell-only-prompt-pattern
1015 (substring idlwave-shell-prompt-pattern 1)
1018 (when idlwave-shell-query-for-class
1019 (add-to-list (make-local-variable 'idlwave-determine-class-special)
1020 'idlwave-shell-get-object-class)
1021 (setq idlwave-store-inquired-class t))
1026 (setq idlwave-idlwave_routine_info-compiled nil)
1027 (setq idlwave-shell-ready nil)
1028 (setq idlwave-shell-bp-alist nil)
1029 (idlwave-shell-update-bp-overlays) ; Throw away old overlays
1030 (setq idlwave-shell-post-command-hook nil ;clean up any old stuff
1031 idlwave-shell-sources-alist nil)
1032 (setq idlwave-shell-default-directory default-directory)
1033 (setq idlwave-shell-hide-output nil)
1037 (add-hook 'kill-buffer-hook 'idlwave-shell-kill-shell-buffer-confirm
1039 (add-hook 'kill-buffer-hook 'idlwave-shell-delete-temp-files nil 'local)
1040 (add-hook 'kill-emacs-hook 'idlwave-shell-delete-temp-files)
1041 (use-local-map idlwave-shell-mode-map)
1042 (easy-menu-add idlwave-shell-mode-menu idlwave-shell-mode-map)
1045 (when idlwave-shell-comint-settings
1046 (let ((list idlwave-shell-comint-settings) entry)
1074 (setq local-abbrev-table idlwave-mode-abbrev-table)
1075 (set-syntax-table idlwave-mode-syntax-table)
1081 (add-hook 'post-command-hook 'idlwave-command-hook nil t)
1084 (when (and idlwave-shell-save-command-history
1085 (stringp idlwave-shell-command-history-file))
1087 idlwave-shell-command-history-file)
1088 (if (file-regular-p idlwave-shell-command-history-file)
1095 (run-mode-hooks 'idlwave-shell-mode-hook)
1096 (idlwave-shell-send-command idlwave-shell-initial-commands nil 'hide)
1099 (idlwave-shell-send-command
1100 (format "defsysv,'!idlwave_version','%s',1" idlwave-mode-version)
1103 (idlwave-shell-send-command idlwave-shell-path-query
1104 'idlwave-shell-get-path-info
1107 (defvar idlwave-system-directory)
1108 (defun idlwave-shell-get-path-info (&optional no-write)
1110 (let* ((rpl (idlwave-shell-path-filter))
1113 (old-path-alist idlwave-path-alist)
1114 (old-sys-dir idlwave-system-directory)
1117 (setq idlwave-system-directory sysdir)
1119 (not (string= idlwave-system-directory old-sys-dir)))
1120 (put 'idlwave-system-directory 'from-shell t)))
1122 (setq idlwave-path-alist
1129 (if (setq path-changed (not (equal idlwave-path-alist old-path-alist)))
1130 (put 'idlwave-path-alist 'from-shell t))
1131 (if idlwave-path-alist
1133 idlwave-auto-write-paths
1135 (not idlwave-library-path))
1136 (idlwave-write-paths))
1138 (setq idlwave-path-alist old-path-alist))))
1140 (if (not (fboundp 'idl-shell))
1141 (fset 'idl-shell 'idlwave-shell))
1143 (defvar idlwave-shell-idl-wframe nil
1144 "Frame for displaying the idl shell window.")
1145 (defvar idlwave-shell-display-wframe nil
1148 (defvar idlwave-shell-calling-stack-index 0)
1149 (defvar idlwave-shell-calling-stack-routine nil)
1151 (defun idlwave-shell-source-frame ()
1153 (if idlwave-shell-use-dedicated-frame
1154 ;; We want separate frames for source and shell
1155 (if (frame-live-p idlwave-shell-display-wframe)
1157 idlwave-shell-display-wframe
1159 ;; However, if the current is the shell frame, we make a new frame,
1161 (setq idlwave-shell-display-wframe
1162 (if (eq (selected-frame) idlwave-shell-idl-wframe)
1169 idlwave-shell-idl-wframe))
1175 (defun idlwave-shell-shell-frame ()
1176 "Return the frame to be used for the shell buffer."
1177 (if idlwave-shell-use-dedicated-frame
1179 (if (frame-live-p idlwave-shell-idl-wframe)
1181 idlwave-shell-idl-wframe
1183 (if (not (frame-live-p idlwave-shell-display-wframe))
1185 (setq idlwave-shell-display-wframe (selected-frame)))
1187 (setq idlwave-shell-idl-wframe
1188 (make-frame idlwave-shell-frame-parameters)))))
1191 (defun idlwave-shell (&optional arg quick)
1192 "Run an inferior IDL, with I/O through buffer `(idlwave-shell-buffer)'.
1193 If buffer exists but shell process is not running, start new IDL.
1194 If buffer exists and shell process is running, just switch to the buffer.
1196 When called with a prefix ARG, or when `idlwave-shell-use-dedicated-frame'
1197 is non-nil, the shell buffer and the source buffers will be in
1200 The command to run comes from variable `idlwave-shell-explicit-file-name',
1201 with options taken from `idlwave-shell-command-line-options'.
1203 The buffer is put in `idlwave-shell-mode', providing commands for sending
1204 input and controlling the IDL job. See help on `idlwave-shell-mode'.
1205 See also the variable `idlwave-shell-prompt-pattern'.
1207 \(Type \\[describe-mode] in the shell buffer for a list of commands.)"
1211 (let ((idlwave-shell-use-dedicated-frame nil))
1212 (idlwave-shell nil)
1214 (and idlwave-shell-use-dedicated-frame
1215 (setq idlwave-shell-idl-wframe (selected-frame)))
1216 (add-hook 'idlwave-shell-sentinel-hook
1221 (if arg (setq idlwave-shell-use-dedicated-frame t))
1222 (if (equal arg '(16)) (setq idlwave-shell-use-dedicated-frame nil))
1225 (unless (comint-check-proc (idlwave-shell-buffer))
1226 (let* ((prg (or idlwave-shell-explicit-file-name "idl"))
1228 idlwave-shell-process-name prg nil
1229 (if (stringp idlwave-shell-command-line-options)
1230 (idlwave-split-string
1231 idlwave-shell-command-line-options)
1232 idlwave-shell-command-line-options)))
1234 (setq idlwave-idlwave_routine_info-compiled nil)
1235 (set-process-filter process 'idlwave-shell-filter)
1236 (set-process-sentinel process 'idlwave-shell-sentinel)
1238 (idlwave-shell-mode)))
1239 (let ((window (idlwave-display-buffer (idlwave-shell-buffer) nil
1240 (idlwave-shell-shell-frame)))
1244 (if idlwave-shell-use-dedicated-window
1247 (if idlwave-shell-ready
1252 (add-hook 'idlwave-shell-sentinel-hook
1255 idlwave-auto-write-paths
1256 idlwave-path-alist
1257 (not idlwave-library-path)
1258 (get 'idlwave-path-alist 'from-shell))
1259 (idlwave-write-paths)))))
1261 (defun idlwave-shell-recenter-shell-window (&optional arg)
1262 "Run `idlwave-shell', but make sure the current window stays selected."
1265 (idlwave-shell arg)
1268 (defun idlwave-shell-hide-p (type &optional list)
1271 (let ((list (or list idlwave-shell-show-commands)))
1275 (defun idlwave-shell-add-or-remove-show (type)
1277 (if (listp idlwave-shell-show-commands)
1278 (setq idlwave-shell-show-commands
1279 (if (memq type idlwave-shell-show-commands)
1280 (delq type idlwave-shell-show-commands)
1281 (add-to-list'idlwave-shell-show-commands type)))
1282 (setq idlwave-shell-show-commands (list type))))
1285 (defun idlwave-shell-send-command (&optional cmd pcmd hide preempt
1290 idlwave-shell-pending-commands'. If IDL is ready the first command,
1291 CMD, in `idlwave-shell-pending-commands' is sent to the IDL process.
1294 `idlwave-shell-post-command-hook' when CMD is executed.
1303 `idlwave-shell-pending-commands'. If PREEMPT is 'wait, wait for all
1306 prompt is present and if `idlwave-shell-ready' is non-nil.
1315 ; (prin1-to-string idlwave-shell-pending-commands)))
1317 (if (and (symbolp idlwave-shell-show-commands)
1318 (eq idlwave-shell-show-commands 'everything))
1323 (if (or (not (setq buf (get-buffer (idlwave-shell-buffer))))
1325 (if (not idlwave-shell-automatic-start)
1328 "You need to first start an IDL shell with \\[idlwave-shell]"))
1329 (idlwave-shell-recenter-shell-window)
1330 (setq buf (get-buffer (idlwave-shell-buffer)))
1331 (if (or (not (setq buf (get-buffer (idlwave-shell-buffer))))
1334 (error "Problem with autostarting IDL shell"))))
1335 (when (or cmd idlwave-shell-pending-commands)
1339 (setq idlwave-shell-pending-commands
1343 idlwave-shell-pending-commands)
1345 (append idlwave-shell-pending-commands
1350 (if (and idlwave-shell-ready
1355 (looking-at idlwave-shell-prompt-pattern)
1358 (let* ((lcmd (car idlwave-shell-pending-commands))
1365 (setq idlwave-shell-calling-stack-index 0))
1367 (setq idlwave-shell-post-command-hook pcmd)
1369 (setq idlwave-shell-hide-output hide)
1371 (setq idlwave-shell-show-if-error show-if-error)
1373 (setq idlwave-shell-pending-commands
1374 (cdr idlwave-shell-pending-commands))
1379 (setq idlwave-shell-ready nil)
1381 (while (not idlwave-shell-ready)
1383 (setq idlwave-shell-pending-commands nil)
1388 (defun idlwave-shell-send-char (c &optional error)
1389 "Send one character to the shell, without a newline."
1393 (if (or (not (setq buf (get-buffer (idlwave-shell-buffer))))
1400 (defvar idlwave-shell-char-mode-active)
1401 (defun idlwave-shell-input-mode-magic (string)
1403 See also the variable `idlwave-shell-input-mode-spells'."
1405 ((string-match (car idlwave-shell-input-mode-spells) string)
1406 (call-interactively 'idlwave-shell-send-char))
1407 ((and (boundp 'idlwave-shell-char-mode-active)
1408 (string-match (nth 2 idlwave-shell-input-mode-spells) string))
1409 (setq idlwave-shell-char-mode-active 'exit))
1410 ((string-match (nth 1 idlwave-shell-input-mode-spells) string)
1413 (start-itimer "IDLWAVE Char Mode" 'idlwave-shell-char-mode-loop 0.5
1415 (run-at-time 0.5 nil 'idlwave-shell-char-mode-loop 'no-error)))))
1418 (defun idlwave-shell-char-mode-loop (&optional no-error)
1427 ;; First check if there is a shell waiting for input
1428 (let ((idlwave-shell-char-mode-active t)
1431 (if (or (not (setq buf (get-buffer (idlwave-shell-buffer))))
1434 (if idlwave-shell-ready
1447 (and idlwave-shell-ready
1449 (and (eq idlwave-shell-char-mode-active 'exit)
1464 (and (eq idlwave-shell-char-mode-active 'exit)
1467 (defun idlwave-shell-move-or-history (up &optional arg)
1474 (if (eq t idlwave-shell-arrows-do-history) (goto-char proc-pos))
1475 (if (and idlwave-shell-arrows-do-history
1480 (defun idlwave-shell-up-or-history (&optional arg)
1484 (idlwave-shell-move-or-history t arg))
1486 (defun idlwave-shell-down-or-history (&optional arg)
1490 (idlwave-shell-move-or-history nil arg))
1494 (defun idlwave-shell-comint-filter (process string) nil)
1496 (fset 'idlwave-shell-comint-filter (symbol-function 'comint-output-filter))
1497 (fset 'idlwave-shell-comint-filter (symbol-function 'comint-filter)))
1499 (defun idlwave-shell-is-running ()
1500 "Return t if the shell process is running."
1501 (eq (process-status idlwave-shell-process-name) 'run))
1503 (defun idlwave-shell-filter-hidden-output (output)
1514 (string-match idlwave-shell-only-prompt-pattern output)
1517 (defvar idlwave-shell-hidden-output-buffer " *idlwave-shell-hidden-output*"
1519 (defvar idlwave-shell-current-state nil)
1521 (defun idlwave-shell-filter (proc string)
1523 When the IDL prompt is received executes `idlwave-shell-post-command-hook'
1524 and then calls `idlwave-shell-send-command' for any pending commands."
1526 (if (eq (process-status idlwave-shell-process-name) 'run)
1535 (if idlwave-shell-hide-output
1540 (get-buffer-create idlwave-shell-hidden-output-buffer))
1543 (idlwave-shell-comint-filter proc string))
1548 (if idlwave-shell-use-input-mode-magic
1549 (idlwave-shell-input-mode-magic
1550 (concat idlwave-shell-accumulation string)))
1551 (setq idlwave-shell-accumulation
1556 (setq idlwave-shell-accumulation
1557 (concat idlwave-shell-accumulation string)))
1562 ; (get-buffer-create "*idlwave-shell-output*")
1567 (when (setq idlwave-shell-ready
1568 (string-match idlwave-shell-prompt-pattern
1569 idlwave-shell-accumulation))
1571 (if idlwave-shell-hide-output
1573 (set-buffer idlwave-shell-hidden-output-buffer)
1576 (re-search-backward idlwave-shell-prompt-pattern nil t)
1578 (setq idlwave-shell-command-output
1582 (setq idlwave-shell-command-output
1592 ;; them with idlwave-shell-ready=nil since they may
1593 ;; call idlwave-shell-send-command themselves.
1594 (let ((idlwave-shell-ready nil))
1595 (idlwave-shell-scan-for-state)
1596 ;; Show the output in the shell if it contains an error
1597 (if idlwave-shell-hide-output
1598 (if (and idlwave-shell-show-if-error
1599 (eq idlwave-shell-current-state 'error))
1600 (idlwave-shell-comint-filter proc full-output)
1603 (if (eq idlwave-shell-hide-output 'mostly)
1605 (idlwave-shell-filter-hidden-output
1608 (idlwave-shell-comint-filter
1612 (if (listp idlwave-shell-post-command-hook)
1615 ;;(prin1 idlwave-shell-post-command-hook)
1616 (eval idlwave-shell-post-command-hook))
1618 (funcall idlwave-shell-post-command-hook))
1622 (setq idlwave-shell-accumulation nil
1623 idlwave-shell-command-output nil
1624 idlwave-shell-post-command-hook nil
1625 idlwave-shell-hide-output nil
1626 idlwave-shell-show-if-error nil))
1629 (idlwave-shell-send-command)))
1632 (defun idlwave-shell-sentinel (process event)
1633 "The sentinel function for the IDLWAVE shell process."
1634 (let* ((buf (idlwave-shell-buffer))
1638 (set-buffer (idlwave-shell-buffer))
1641 (if (and idlwave-shell-save-command-history
1642 (stringp idlwave-shell-command-history-file))
1648 (frame-live-p idlwave-shell-idl-wframe))
1649 (delete-frame idlwave-shell-idl-wframe)
1650 (setq idlwave-shell-idl-wframe nil
1651 idlwave-shell-display-wframe nil))
1655 (idlwave-shell-cleanup)
1656 ;; Run the hook, if possible in the shell buffer.
1660 (run-hooks 'idlwave-shell-sentinel-hook))
1661 (run-hooks 'idlwave-shell-sentinel-hook))))
1663 (defvar idlwave-shell-error-buffer " *idlwave-shell-errors*"
1669 (defvar idlwave-shell-syntax-error
1675 (defvar idlwave-shell-other-error
1679 (defvar idlwave-shell-halting-error
1683 (defvar idlwave-shell-cant-continue-error
1687 (defvar idlwave-shell-file-line-message
1712 (defvar idlwave-shell-electric-debug-mode) ; defined by easy-mmode
1714 (defun idlwave-shell-scan-for-state ()
1720 found. The variable `idlwave-shell-current-state' is set to 'error,
1726 ((not idlwave-shell-command-output))
1730 (string-match idlwave-shell-syntax-error
1731 idlwave-shell-command-output)
1732 (string-match idlwave-shell-other-error
1733 idlwave-shell-command-output))
1735 (get-buffer-create idlwave-shell-error-buffer)
1737 (insert idlwave-shell-command-output)
1739 (setq idlwave-shell-error-last (point)))
1740 (setq idlwave-shell-current-state 'error)
1741 (idlwave-shell-goto-next-error))
1744 ((string-match idlwave-shell-halting-error
1745 idlwave-shell-command-output)
1747 (setq idlwave-shell-calling-stack-index 0)
1748 (setq idlwave-shell-halt-frame
1749 (idlwave-shell-parse-line
1750 (substring idlwave-shell-command-output
1752 idlwave-shell-current-state 'error)
1753 (idlwave-shell-display-line (idlwave-shell-pc-frame)))
1757 ((or (setq trace (string-match idlwave-shell-trace-message-re
1758 idlwave-shell-command-output))
1759 (string-match idlwave-shell-halt-messages-re
1760 idlwave-shell-command-output))
1762 (setq idlwave-shell-calling-stack-index 0)
1763 (setq idlwave-shell-halt-frame
1764 (idlwave-shell-parse-line
1765 (substring idlwave-shell-command-output (match-end 0))))
1766 (setq idlwave-shell-current-state 'halt)
1768 (idlwave-shell-display-line
1769 (idlwave-shell-pc-frame) nil
1771 (if idlwave-shell-electric-debug-mode 'force))))
1774 ((string-match idlwave-shell-break-message
1775 idlwave-shell-command-output)
1776 (setq idlwave-shell-calling-stack-index 0)
1777 (setq idlwave-shell-halt-frame
1778 (idlwave-shell-parse-line
1779 (substring idlwave-shell-command-output (match-end 0))))
1784 (let ((bp (assoc
1786 (nth 0 idlwave-shell-halt-frame)
1787 (nth 1 idlwave-shell-halt-frame))
1788 idlwave-shell-bp-alist)))
1789 ;(message "Scanning with %s" bp)
1790 (if bp
1791 (let ((cmd (idlwave-shell-bp-get bp 'cmd)))
1796 (idlwave-shell-bp-query)))
1797 (setq idlwave-shell-current-state 'breakpoint)
1798 (idlwave-shell-display-line (idlwave-shell-pc-frame)))
1801 ((string-match idlwave-shell-cant-continue-error
1802 idlwave-shell-command-output)
1803 (setq idlwave-shell-current-state 'breakpoint))
1806 (t (setq idlwave-shell-current-state nil)))))
1809 (defun idlwave-shell-parse-line (string &optional skip-main)
1836 (string-match idlwave-shell-file-line-message string))
1842 (setq procedure (idlwave-shell-repair-string procedure))
1843 (setq number (idlwave-shell-repair-string number))
1844 (setq file (idlwave-shell-repair-file-name file))
1848 (list (idlwave-shell-file-name file)
1854 (defun idlwave-shell-repair-string (string)
1860 (defun idlwave-shell-repair-file-name (file)
1884 (defun idlwave-shell-cleanup ()
1886 (setq idlwave-shell-step-frame nil
1887 idlwave-shell-halt-frame nil
1888 idlwave-shell-pending-commands nil
1889 idlwave-shell-command-line-to-execute nil
1890 idlwave-shell-bp-alist nil
1891 idlwave-shell-calling-stack-index 0
1892 idlwave-idlwave_routine_info-compiled nil)
1893 (idlwave-shell-delete-temp-files)
1894 (idlwave-shell-display-line nil)
1895 (idlwave-shell-update-bp-overlays) ; kill old overlays
1896 (idlwave-shell-kill-buffer idlwave-shell-hidden-output-buffer)
1897 (idlwave-shell-kill-buffer idlwave-shell-bp-buffer)
1898 (idlwave-shell-kill-buffer idlwave-shell-error-buffer)
1899 ;; (idlwave-shell-kill-buffer (idlwave-shell-buffer))
1900 (and (get-buffer (idlwave-shell-buffer))
1901 (bury-buffer (get-buffer (idlwave-shell-buffer))))
1902 (run-hooks 'idlwave-shell-cleanup-hook))
1904 (defun idlwave-shell-kill-buffer (buf)
1909 (defun idlwave-shell-kill-shell-buffer-confirm ()
1910 (when (idlwave-shell-is-running)
1912 (unless (y-or-n-p "IDL shell is running. Are you sure you want to kill the buffer? ")
1916 (defun idlwave-shell-window (n)
1918 The size is given by `idlwave-shell-graphics-window-size'."
1921 (idlwave-shell-send-command
1923 n idlwave-shell-graphics-window-size)
1924 nil (idlwave-shell-hide-p 'misc) nil t)))
1926 (defun idlwave-shell-resync-dirs ()
1929 `idlwave-shell-dirstack-query', reads the output for the new
1932 (idlwave-shell-send-command idlwave-shell-dirstack-query
1933 'idlwave-shell-filter-directory
1936 (defun idlwave-shell-retall (&optional arg)
1942 (idlwave-shell-send-command "retall" nil
1943 (if (idlwave-shell-hide-p 'misc) 'mostly)
1945 (idlwave-shell-display-line nil)))
1947 (defun idlwave-shell-closeall (&optional arg)
1950 (idlwave-shell-send-command "close,/all" nil
1951 (idlwave-shell-hide-p 'misc) nil t))
1953 (defun idlwave-shell-quit (&optional arg)
1957 (if (not (idlwave-shell-is-running))
1961 (idlwave-shell-send-command "exit")
1964 (defun idlwave-shell-reset (&optional hidden)
1973 (when (or idlwave-shell-reset-no-prompt
1976 (setq idlwave-shell-calling-stack-index 0)
1978 (idlwave-shell-send-command "retall" nil hidden)
1979 (idlwave-shell-send-command "widget_control,/reset" nil hidden)
1980 (idlwave-shell-send-command "close,/all" nil hidden)
1981 ;; (idlwave-shell-send-command "obj_destroy, obj_valid()" nil hidden)
1982 (idlwave-shell-send-command "heap_gc,/verbose" nil hidden)
1983 (idlwave-shell-display-line nil)))
1985 (defun idlwave-shell-path-filter ()
1987 (let ((path-string idlwave-shell-command-output)
2000 (defun idlwave-shell-routine-info-filter ()
2002 (let ((text idlwave-shell-command-output)
2007 (setq idlwave-compiled-routines nil
2008 idlwave-unresolved-routines nil)
2018 (if idlwave-idlwave_routine_info-compiled
2021 idlwave-shell-command-output)))
2024 (if idlwave-idlwave_routine_info-compiled
2027 idlwave-shell-command-output)))
2033 specs (idlwave-split-string spec sep-re)
2042 (delete "" (idlwave-split-string key " +")))))
2043 (setq name (idlwave-sintern-routine-or-method name class t)
2044 class (idlwave-sintern-class class t)
2047 (list (idlwave-sintern-keyword (car x) t))) keys))
2061 (not (idlwave-rinfo-assq name 'pro class
2062 idlwave-buffer-routines)))
2064 ;;(not (idlwave-rinfo-assq name 'pro class
2065 ;; idlwave-library-routines))
2072 (idlwave-sintern-dir
2076 (push entry idlwave-compiled-routines)
2077 (push entry idlwave-unresolved-routines)))
2082 (not (idlwave-rinfo-assq name 'fun class
2083 idlwave-buffer-routines)))
2085 ;; (not (idlwave-rinfo-assq name 'fun class
2086 ;; idlwave-library-routines))
2093 (idlwave-sintern-dir
2097 (push entry idlwave-compiled-routines)
2098 (push entry idlwave-unresolved-routines))))))
2100 (setq idlwave-compiled-routines (nreverse idlwave-compiled-routines)
2101 idlwave-unresolved-routines (nreverse idlwave-unresolved-routines)))
2103 (defun idlwave-shell-filter-directory ()
2104 "Get the current directory from `idlwave-shell-command-output'.
2107 (set-buffer (idlwave-shell-buffer))
2109 idlwave-shell-command-output)
2110 (let ((dir (substring idlwave-shell-command-output
2113 (setq idlwave-shell-default-directory dir)
2116 (defvar idlwave-shell-get-object-class nil)
2117 (defun idlwave-shell-get-object-class (apos)
2118 "Query the shell for the class of the object before point."
2119 (let ((bos (save-excursion (idlwave-start-of-substatement 'pre) (point)))
2130 (if (not (idlwave-is-pointer-dereference bol))
2134 (setq idlwave-shell-get-object-class nil)
2135 (idlwave-shell-send-command
2138 'idlwave-shell-parse-object-class
2140 ;; If we don't know anything about the class, update shell routines
2141 (if (and idlwave-shell-get-object-class
2142 (not (assoc-string idlwave-shell-get-object-class
2143 (idlwave-class-alist) t)))
2144 (idlwave-shell-maybe-update-routine-info))
2145 idlwave-shell-get-object-class)))
2147 (defun idlwave-shell-parse-object-class ()
2151 idlwave-shell-prompt-pattern "\\)")
2152 idlwave-shell-command-output)
2153 (setq idlwave-shell-get-object-class
2154 (match-string 1 idlwave-shell-command-output)))))
2156 (defvar idlwave-sint-sysvars nil)
2157 (idlwave-new-sintern-type 'execcomm)
2159 (defun idlwave-shell-complete (&optional arg)
2160 "Do completion in the idlwave-shell buffer.
2161 Calls `idlwave-shell-complete-filename' after some executive commands or
2162 in strings. Otherwise, calls `idlwave-complete' to complete modules and
2168 (setq exec-cmd (idlwave-shell-executive-command))
2174 (idlwave-shell-complete-filename))
2177 (setq idlwave-completion-help-info
2178 '(idlwave-shell-complete-execcomm-help))
2179 (idlwave-complete-in-buffer 'execcomm 'execcomm
2180 idlwave-executive-commands-alist nil
2184 ((idlwave-shell-batch-command)
2185 (idlwave-shell-complete-filename))
2187 ((idlwave-shell-shell-command)
2188 (idlwave-shell-complete-filename))
2190 ((and (idlwave-shell-filename-string)
2195 (idlwave-shell-complete-filename))
2199 (idlwave-complete arg)))))
2203 (defun idlwave-shell-complete-execcomm-help (mode word)
2204 (let ((word (or (nth 1 idlwave-completion-help-info) word))
2205 (entry (assoc-string word idlwave-executive-commands-alist t)))
2213 (defun idlwave-shell-complete-filename (&optional arg)
2218 (idlwave-shell-resync-dirs)
2219 (let ((comint-file-name-chars idlwave-shell-file-name-chars))
2222 (defun idlwave-shell-executive-command ()
2225 (idlwave-beginning-of-statement)
2230 (defun idlwave-shell-filename-string ()
2235 (skip-chars-backward idlwave-shell-file-name-chars limit)
2239 (defun idlwave-shell-batch-command ()
2244 (skip-chars-backward idlwave-shell-file-name-chars limit)
2246 (and (eq (preceding-char) ?@) (not (idlwave-in-quote))))))
2248 (defun idlwave-shell-shell-command ()
2249 "Returns t if we're in a shell command statement like $ls"
2251 (idlwave-beginning-of-statement)
2256 (defun idlwave-shell-redisplay (&optional hide)
2259 `idlwave-shell-display-line'. Also updates the breakpoint
2262 (setq idlwave-shell-calling-stack-index 0)
2263 (idlwave-shell-send-command
2265 '(idlwave-shell-display-line
2266 (idlwave-shell-pc-frame))
2268 (idlwave-shell-bp-query))
2270 (defun idlwave-shell-display-level-in-calling-stack (&optional hide)
2271 (idlwave-shell-send-command
2275 (setq idlwave-shell-calling-stack-index
2276 ,idlwave-shell-calling-stack-index)
2278 (idlwave-shell-parse-stack-and-display))
2281 (defun idlwave-shell-parse-stack-and-display ()
2282 (let* ((lines (delete "" (idlwave-split-string
2283 idlwave-shell-command-output "^%")))
2284 (stack (delq nil (mapcar 'idlwave-shell-parse-line lines)))
2289 (setq idlwave-shell-calling-stack-index 0)
2292 ((> idlwave-shell-calling-stack-index nmax)
2294 (setq idlwave-shell-calling-stack-index nmax
2297 ((< idlwave-shell-calling-stack-index nmin)
2299 (setq idlwave-shell-calling-stack-index nmin
2302 (setq idlwave-shell-calling-stack-routine
2303 (nth 2 (nth idlwave-shell-calling-stack-index stack)))
2306 (idlwave-shell-display-line
2307 (nth idlwave-shell-calling-stack-index stack) nil
2308 (if idlwave-shell-electric-debug-mode 'force))
2311 idlwave-shell-calling-stack-routine
2312 (- idlwave-shell-calling-stack-index))))))
2314 (defun idlwave-shell-stack-up ()
2317 (incf idlwave-shell-calling-stack-index)
2318 (idlwave-shell-display-level-in-calling-stack 'hide))
2319 (defun idlwave-shell-stack-down ()
2322 (decf idlwave-shell-calling-stack-index)
2323 (idlwave-shell-display-level-in-calling-stack 'hide))
2325 (defun idlwave-shell-goto-frame (&optional frame)
2327 If the optional argument FRAME is nil then idlwave-shell-pc-frame is
2330 (setq frame (idlwave-shell-pc-frame)))
2333 (set-buffer (idlwave-find-file-noselect (car frame) 'shell))
2337 (defun idlwave-shell-pc-frame ()
2339 (and idlwave-shell-halt-frame
2340 (list (nth 0 idlwave-shell-halt-frame)
2341 (nth 1 idlwave-shell-halt-frame)
2342 (nth 2 idlwave-shell-halt-frame))))
2344 (defun idlwave-shell-valid-frame (frame)
2348 (defun idlwave-shell-stop-line-pending ()
2350 (if idlwave-shell-stop-line-overlay
2351 (overlay-put idlwave-shell-stop-line-overlay 'face
2352 (if idlwave-shell-electric-debug-mode
2353 'idlwave-shell-pending-electric-stop
2354 'idlwave-shell-pending-stop))))
2356 (defvar idlwave-shell-suppress-electric-debug nil)
2357 (defun idlwave-shell-display-line (frame &optional col debug)
2364 'idlwave-shell-automatic-electric-debug'. if it is 'force, enable no
2370 (setq idlwave-shell-mode-line-info nil)
2371 (setq idlwave-shell-is-stopped nil)
2372 (if idlwave-shell-stop-line-overlay
2373 (delete-overlay idlwave-shell-stop-line-overlay))
2375 (idlwave-shell-electric-debug-all-off))
2376 (if (not (idlwave-shell-valid-frame frame))
2377 ;; fixme: errors are dangerous in shell filters. but i think i
2382 ;;; select-shell: current buffer is the shell.
2384 (setq idlwave-shell-mode-line-info
2387 (- idlwave-shell-calling-stack-index)
2389 (let* ((buffer (idlwave-find-file-noselect (car frame) 'shell))
2390 (select-shell (equal (buffer-name) (idlwave-shell-buffer)))
2393 ;; first make sure the shell window is visible
2394 (idlwave-display-buffer (idlwave-shell-buffer)
2395 nil (idlwave-shell-shell-frame))
2398 (setq window (idlwave-display-buffer buffer
2399 nil (idlwave-shell-source-frame)))
2409 (setq idlwave-shell-is-stopped t)
2411 (if idlwave-shell-stop-line-overlay
2414 (overlay-put idlwave-shell-stop-line-overlay 'face
2415 (if idlwave-shell-electric-debug-mode
2416 idlwave-shell-electric-stop-line-face
2417 idlwave-shell-stop-line-face))
2418 (move-overlay idlwave-shell-stop-line-overlay
2422 (if idlwave-shell-mark-stop-line
2423 (setq overlay-arrow-string idlwave-shell-overlay-arrow))
2440 (when (and (not idlwave-shell-electric-debug-mode)
2445 (eq idlwave-shell-automatic-electric-debug t)
2447 (eq idlwave-shell-automatic-electric-debug
2449 (not (eq idlwave-shell-current-state 'error))))
2450 (not idlwave-shell-suppress-electric-debug))))
2451 (idlwave-shell-electric-debug-mode t))
2452 (setq electric idlwave-shell-electric-debug-mode))
2457 ;; If we came from the shell, go back there. Otherwise select
2459 (if (or (and idlwave-shell-electric-zap-to-file electric)
2460 (and (equal (buffer-name) (idlwave-shell-buffer))
2461 (not select-shell)))
2465 (defun idlwave-shell-step (arg)
2470 (idlwave-shell-stop-line-pending)
2471 (idlwave-shell-send-command
2473 nil (if (idlwave-shell-hide-p 'debug) 'mostly) nil t))
2475 (defun idlwave-shell-stepover (arg)
2482 (idlwave-shell-stop-line-pending)
2483 (idlwave-shell-send-command
2485 nil (if (idlwave-shell-hide-p 'debug) 'mostly) nil t))
2487 (defun idlwave-shell-break-here (&optional count cmd condition disabled
2504 (idlwave-shell-set-bp
2506 (idlwave-shell-bp (idlwave-shell-current-frame)
2508 (idlwave-shell-current-module))
2511 (defun idlwave-shell-set-bp-check (bp)
2513 This is run on `idlwave-shell-post-command-hook'.
2517 (if idlwave-shell-command-output
2520 idlwave-shell-command-output)
2526 (idlwave-shell-bp-get bp 'file) "?")))
2530 (idlwave-shell-command-failure)
2531 (idlwave-shell-send-command
2532 (concat ".run \"" (idlwave-shell-bp-get bp 'file) "\"") nil
2533 (if (idlwave-shell-hide-p 'run) 'mostly) nil t)
2535 (idlwave-shell-set-bp bp))
2538 (idlwave-shell-command-failure))
2541 ((string-match "% Syntax error" idlwave-shell-command-output)
2543 (idlwave-shell-command-failure)
2548 (defun idlwave-shell-command-failure ()
2550 Call this from a function attached to `idlwave-shell-post-command-hook'
2552 For example, this is called from `idlwave-shell-set-bp-check' when a
2555 (setq idlwave-shell-pending-commands nil))
2557 (defun idlwave-shell-cont (&optional no-show)
2560 (idlwave-shell-stop-line-pending)
2561 (idlwave-shell-send-command ".c" (unless no-show
2562 '(idlwave-shell-redisplay 'hide))
2563 (if (idlwave-shell-hide-p 'debug) 'mostly)
2566 (defun idlwave-shell-go ()
2569 (idlwave-shell-stop-line-pending)
2570 (idlwave-shell-send-command ".go" '(idlwave-shell-redisplay 'hide)
2571 (if (idlwave-shell-hide-p 'debug) 'mostly)
2574 (defun idlwave-shell-return ()
2577 (idlwave-shell-stop-line-pending)
2578 (idlwave-shell-send-command ".return" '(idlwave-shell-redisplay 'hide)
2579 (if (idlwave-shell-hide-p 'debug) 'mostly)
2582 (defun idlwave-shell-skip ()
2585 (idlwave-shell-stop-line-pending)
2586 (idlwave-shell-send-command ".skip" '(idlwave-shell-redisplay 'hide)
2587 (if (idlwave-shell-hide-p 'debug) 'mostly)
2590 (defun idlwave-shell-clear-bp (bp &optional no-query)
2592 Clears in IDL and in `idlwave-shell-bp-alist'."
2593 (let ((index (idlwave-shell-bp-get bp)))
2596 (idlwave-shell-send-command
2598 nil (idlwave-shell-hide-p 'breakpoint) nil t)
2599 (unless no-query (idlwave-shell-bp-query))))))
2601 (defun idlwave-shell-current-frame ()
2603 If in the IDL shell buffer, returns `idlwave-shell-pc-frame'."
2604 (if (eq (current-buffer) (get-buffer (idlwave-shell-buffer)))
2605 ;; In IDL shell
2606 (idlwave-shell-pc-frame)
2608 (list (idlwave-shell-file-name (buffer-file-name))
2615 (defun idlwave-shell-current-module ()
2618 (if (eq (current-buffer) (get-buffer (idlwave-shell-buffer)))
2619 ;; In IDL shell
2620 (nth 2 idlwave-shell-halt-frame)
2625 (if (idlwave-prev-index-position)
2626 (let* ((module (idlwave-what-module))
2627 (name (idlwave-make-full-name (nth 2 module) (car module)))
2631 (defun idlwave-shell-clear-current-bp ()
2633 This command can be called from the shell buffer if IDL is currently stopped
2636 (let ((bp (idlwave-shell-find-current-bp)))
2637 (if bp (idlwave-shell-clear-bp bp))))
2640 (defun idlwave-shell-toggle-enable-current-bp (&optional bp force
2647 (let* ((bp (or bp (idlwave-shell-find-current-bp)))
2648 (disabled (idlwave-shell-bp-get bp 'disabled)))
2651 (when bp
2652 (setf (nth 3 (cdr (cdr bp))) (not disabled))
2653 (idlwave-shell-send-command
2656 (int-to-string (idlwave-shell-bp-get bp)))
2657 nil (idlwave-shell-hide-p 'breakpoint) nil t)
2658 (unless no-update (idlwave-shell-bp-query)))))
2660 (defun idlwave-shell-enable-all-bp (&optional enable no-update bpl)
2663 (let ((bpl (or bpl idlwave-shell-bp-alist)) disabled modified)
2665 (setq disabled (idlwave-shell-bp-get (car bpl) 'disabled))
2666 (when (idlwave-xor (not disabled) (eq enable 'enable))
2667 (idlwave-shell-toggle-enable-current-bp
2671 (unless no-update (idlwave-shell-bp-query))
2674 (defun idlwave-shell-to-here ()
2678 (let ((disabled (idlwave-shell-enable-all-bp 'disable 'no-update)))
2679 (idlwave-shell-break-here 1 nil nil nil 'no-show)
2680 (idlwave-shell-cont 'no-show)
2681 (idlwave-shell-enable-all-bp 'enable 'no-update disabled))
2682 (idlwave-shell-redisplay)) ; sync up everything at the end
2684 (defun idlwave-shell-break-this-module (&optional arg)
2687 (idlwave-beginning-of-subprogram)
2688 (idlwave-shell-break-here arg)))
2690 (defun idlwave-shell-break-in ()
2696 (let* ((module (idlwave-fix-module-if-obj_new (idlwave-what-module)))
2702 (setq module (idlwave-make-full-name class name))
2703 (idlwave-shell-module-source-query module type)
2704 (idlwave-shell-set-bp-in-module name type class))
2708 (defun idlwave-shell-set-bp-in-module (name type class)
2709 "Set breakpoint in module. Assumes that `idlwave-shell-sources-alist'
2711 (let* ((module (idlwave-make-full-name class name))
2716 idlwave-shell-sources-alist)
2717 (nth 3 (idlwave-best-rinfo-assoc name type class
2718 (idlwave-routines)))))))
2723 (or (idlwave-get-buffer-visiting source-file)
2741 (idlwave-shell-break-here))
2745 (defun idlwave-shell-up ()
2749 (if (idlwave-shell-pc-frame)
2751 (idlwave-shell-goto-frame)
2754 (idlwave-beginning-of-subprogram)
2755 (idlwave-forward-block)
2757 (idlwave-backward-up-block -1)
2761 (idlwave-next-statement)
2762 (idlwave-end-of-statement)
2769 (idlwave-previous-statement))
2770 (idlwave-shell-to-here)))))
2772 (defun idlwave-shell-out ()
2776 (idlwave-shell-send-command ".o" nil
2777 (if (idlwave-shell-hide-p 'debug) 'mostly)
2780 (defun idlwave-shell-goto-previous-bp ()
2783 (idlwave-shell-move-to-bp -1))
2784 (defun idlwave-shell-goto-next-bp ()
2787 (idlwave-shell-move-to-bp 1))
2789 (defun idlwave-shell-move-to-bp (dir)
2791 (let* ((frame (idlwave-shell-current-frame))
2793 (orig-bp-line (nth 1 frame))
2794 (bp-alist idlwave-shell-bp-alist)
2797 bp got-bp bp-line cur-line)
2798 (while (setq bp (pop bp-alist))
2799 (when (string= file (car (car bp)))
2800 (setq got-bp 1)
2801 (setq cur-line (nth 1 (car bp)))
2803 (funcall orig-func cur-line orig-bp-line)
2804 (or (not bp-line) (funcall closer-func cur-line bp-line)))
2805 (setq bp-line cur-line))))
2806 (unless bp-line (error "No further breakpoints"))
2807 (goto-line bp-line)))
2811 (defun idlwave-shell-help-expression (arg)
2812 "Print help on current expression. See `idlwave-shell-print'."
2814 (idlwave-shell-print arg 'help))
2816 (defmacro idlwave-shell-mouse-examine (help &optional ev)
2827 'idlwave-xemacs-hack-mouse-track
2834 (idlwave-shell-print (if (idlwave-region-active-p) '(4) nil)
2839 (defun idlwave-default-mouse-track-event-is-with-button (event n)
2842 (defun idlwave-xemacs-hack-mouse-track (event)
2849 'idlwave-default-mouse-track-event-is-with-button)
2854 (defun idlwave-shell-mouse-print (event)
2857 (funcall (idlwave-shell-mouse-examine nil) event))
2859 (defun idlwave-shell-mouse-help (event)
2862 (funcall (idlwave-shell-mouse-examine 'help) event))
2864 (defun idlwave-shell-examine-select (event)
2867 (funcall (idlwave-shell-mouse-examine nil event) event))
2869 (defmacro idlwave-shell-examine (help)
2873 (idlwave-shell-print nil ,help)))
2875 (defvar idlwave-shell-examine-label nil
2877 (defvar idlwave-shell-examine-completion-list nil)
2879 (defun idlwave-shell-print (arg &optional help ev complete-help-type)
2906 idlw-shell-examine-alist from which to select the help command text.
2908 idlw-shell-examine-alist via mini-buffer shortcut key."
2913 (unless idlwave-idlwave_routine_info-compiled
2914 (idlwave-shell-compile-helper-routines))
2919 (if (and (integerp idlwave-shell-calling-stack-index)
2920 (> idlwave-shell-calling-stack-index 0))
2922 idlwave-shell-calling-stack-index
2923 idlwave-shell-calling-stack-routine)))
2928 ((and (or arg (idlwave-region-active-p))
2933 (idlwave-with-special-syntax
2962 (when (and beg end idlwave-shell-expression-overlay)
2963 (move-overlay idlwave-shell-expression-overlay beg end
2966 'idlwave-shell-delete-expression-overlay))
2968 'idlwave-shell-delete-output-overlay)
2984 (and ev idlwave-shell-examine-alist)
2991 (idlwave-one-key-select 'idlwave-shell-examine-alist
2993 ;; (idlwave-completing-read
2995 ;; idlwave-shell-examine-alist nil nil nil
2996 ;; 'idlwave-shell-examine-completion-list
2998 (idlwave-popup-select
3000 (mapcar 'car idlwave-shell-examine-alist)
3002 idlwave-shell-examine-alist))))
3005 (if idlwave-shell-separate-examine-output
3006 (setq idlwave-shell-examine-label
3011 (setq idlwave-shell-examine-label
3021 (setq expr (idlwave-retrieve-expression-from-level
3023 idlwave-shell-calling-stack-index)))
3024 (setq cmd (idlwave-shell-help-statement help expr))
3025 ;;(idlwave-shell-recenter-shell-window)
3026 (idlwave-shell-send-command
3028 'idlwave-shell-check-compiled-and-display
3029 (if idlwave-shell-separate-examine-output 'hide))))))
3031 (defvar idlwave-shell-examine-window-alist nil
3034 (defvar idlwave-shell-examine-map (make-sparse-keymap))
3035 (define-key idlwave-shell-examine-map "q" 'idlwave-shell-examine-display-quit)
3036 (define-key idlwave-shell-examine-map "c" 'idlwave-shell-examine-display-clear)
3039 (defun idlwave-shell-check-compiled-and-display ()
3041 (if (string-match "% Attempt to call undefined" idlwave-shell-command-output)
3042 (idlwave-shell-compile-helper-routines))
3043 (if idlwave-shell-separate-examine-output
3044 (idlwave-shell-examine-display)
3045 (idlwave-shell-examine-highlight)))
3047 (defun idlwave-shell-examine-display ()
3052 (use-local-map idlwave-shell-examine-map)
3057 (if (string-match "^% Syntax error." idlwave-shell-command-output)
3059 (insert idlwave-shell-command-output)
3062 (re-search-backward idlwave-shell-prompt-pattern nil t)
3067 idlwave-shell-prompt-pattern nil t)
3074 (if idlwave-shell-examine-label
3076 (insert idlwave-shell-examine-label)
3077 (setq idlwave-shell-examine-label nil)))))
3081 (move-overlay idlwave-shell-output-overlay cur-beg cur-end
3089 (setq win (idlwave-display-buffer
3102 (let ((elt (assoc win idlwave-shell-examine-window-alist)))
3111 (setq idlwave-shell-examine-window-alist
3114 idlwave-shell-examine-window-alist)))
3116 (if (setq elt (assoc win idlwave-shell-examine-window-alist))
3118 (add-to-list 'idlwave-shell-examine-window-alist
3127 (defun idlwave-shell-examine-display-quit ()
3134 (defun idlwave-shell-examine-display-clear ()
3144 (defun idlwave-retrieve-expression-from-level (expr level)
3212 (defun idlwave-shell-help-statement (help expr)
3221 (number-to-string idlwave-shell-max-print-length)))
3231 (defun idlwave-shell-examine-highlight ()
3233 (let* ((buffer (get-buffer (idlwave-shell-buffer)))
3242 (re-search-backward idlwave-shell-prompt-pattern nil t)
3246 ;; First make sure the shell window is visible
3247 (idlwave-display-buffer (idlwave-shell-buffer)
3248 nil (idlwave-shell-shell-frame))
3249 (if (and idlwave-shell-output-overlay process-mark)
3250 (move-overlay idlwave-shell-output-overlay
3253 (defun idlwave-shell-delete-output-overlay ()
3254 (unless (or (eq this-command 'idlwave-shell-mouse-nop)
3257 (if idlwave-shell-output-overlay
3258 (delete-overlay idlwave-shell-output-overlay))
3260 (remove-hook 'pre-command-hook 'idlwave-shell-delete-output-overlay)))
3262 (defun idlwave-shell-delete-expression-overlay ()
3263 (unless (or (eq this-command 'idlwave-shell-mouse-nop)
3266 (if idlwave-shell-expression-overlay
3267 (delete-overlay idlwave-shell-expression-overlay))
3269 (remove-hook 'pre-command-hook 'idlwave-shell-delete-expression-overlay)))
3271 (defvar idlwave-shell-bp-alist nil
3284 data - Data associated with the breakpoint by idlwave-shell currently
3296 disabled - whether the bp is disabled")
3298 (defun idlwave-shell-run-region (beg end &optional n)
3300 Copies the region to a temporary file `idlwave-shell-temp-pro-file'
3304 lines - which would be a problem if `idlwave-shell-evaluate-region'
3311 (set-buffer (idlwave-find-file-noselect
3312 (idlwave-shell-temp-file 'pro) 'tmp))
3318 (idlwave-previous-statement)
3319 (idlwave-look-at "\\<end\\>")))
3322 (idlwave-shell-send-command (concat ".run \""
3323 idlwave-shell-temp-pro-file "\"")
3325 (if (idlwave-shell-hide-p 'run) 'mostly)
3328 (idlwave-display-buffer (idlwave-shell-buffer)
3329 nil (idlwave-shell-shell-frame))))
3331 (defun idlwave-shell-evaluate-region (beg end &optional n)
3335 `idlwave-shell-run-region' for this."
3337 (idlwave-shell-send-command (buffer-substring beg end))
3339 (idlwave-display-buffer (idlwave-shell-buffer)
3340 nil (idlwave-shell-shell-frame))))
3342 (defun idlwave-shell-delete-temp-files ()
3344 (if (stringp idlwave-shell-temp-pro-file)
3346 (let ((buf (idlwave-get-buffer-visiting
3347 idlwave-shell-temp-pro-file)))
3350 (delete-file idlwave-shell-temp-pro-file))
3352 (if (stringp idlwave-shell-temp-rinfo-save-file)
3354 (delete-file idlwave-shell-temp-rinfo-save-file)
3357 (defun idlwave-display-buffer (buf not-this-window-p &optional frame)
3381 (defvar idlwave-shell-bp-buffer " *idlwave-shell-bp*"
3384 (defun idlwave-shell-bp-query (&optional no-show)
3385 "Reconcile idlwave-shell's breakpoint list with IDL's.
3386 Queries IDL using the string in `idlwave-shell-bp-query'."
3388 (idlwave-shell-send-command idlwave-shell-bp-query
3390 (idlwave-shell-filter-bp (quote ,no-show)))
3393 (defun idlwave-shell-bp-get (bp &optional item)
3395 idlwave-shell-bp-alist. Optional second arg ITEM is the
3402 ((eq item 'line) (nth 1 (car bp)))
3403 ((eq item 'file) (nth 0 (car bp)))
3404 ;; idlwave-shell breakpoint data
3405 ((eq item 'data) (cdr (cdr bp)))
3406 ((eq item 'count) (nth 0 (cdr (cdr bp))))
3407 ((eq item 'cmd) (nth 1 (cdr (cdr bp))))
3408 ((eq item 'condition) (nth 2 (cdr (cdr bp))))
3409 ((eq item 'disabled) (nth 3 (cdr (cdr bp))))
3412 (let ((module (nth 1 (car (cdr bp)))))
3415 (let ((module (nth 1 (car (cdr bp)))))
3418 (t (nth 0 (car (cdr bp))))))
3420 (defun idlwave-shell-filter-bp (&optional no-show)
3421 "Get the breakpoints from `idlwave-shell-command-output'. Create
3422 `idlwave-shell-bp-alist' updating breakpoint count and command data
3426 (set-buffer (get-buffer-create idlwave-shell-bp-buffer))
3428 (insert idlwave-shell-command-output)
3430 (let ((old-bp-alist idlwave-shell-bp-alist)
3433 (bp-re54 "^[ \t]*\\([0-9]+\\)[ \t]+\\(\\S-+\\)?[ \t]+\\([0-9]+\\)[ \t]+\\(\\S-+\\)")
3434 (bp-re55
3447 bp-re indmap)
3448 (setq idlwave-shell-bp-alist (list nil))
3452 (setq bp-re bp-re54 ; versions <= 5.4
3456 (setq bp-re bp-re55 ; versions >= 5.5
3459 (while (re-search-forward bp-re nil t)
3463 file (idlwave-shell-file-name (match-string (nth 3 indmap))))
3464 (if (eq bp-re bp-re55)
3472 (nconc idlwave-shell-bp-alist
3476 ;; bp data: count, command, condition, disabled
3478 (setq idlwave-shell-bp-alist (cdr idlwave-shell-bp-alist))
3480 (if (eq bp-re bp-re54)
3481 (mapcar 'idlwave-shell-update-bp old-bp-alist)
3482 (mapcar 'idlwave-shell-update-bp-command-only old-bp-alist))))
3484 (unless no-show (idlwave-shell-update-bp-overlays))
3486 idlwave-shell-bp-alist)
3488 (defun idlwave-shell-update-bp-command-only (bp)
3489 (idlwave-shell-update-bp bp t))
3491 (defun idlwave-shell-update-bp (bp &optional command-only)
3493 If BP frame is in `idlwave-shell-bp-alist' updates the breakpoint data."
3494 (let ((match (assoc (car bp) idlwave-shell-bp-alist)))
3498 (setcdr (cdr match) (cdr (cdr bp)))))))
3500 (defun idlwave-shell-set-bp-data (bp data)
3502 (setcdr (cdr bp) data))
3504 (defun idlwave-shell-bp (frame &optional data module)
3507 of the format used in `idlwave-shell-bp-alist'. Can be used in commands
3508 attempting match a breakpoint in `idlwave-shell-bp-alist'."
3513 (defvar idlwave-shell-old-bp nil
3516 (defun idlwave-shell-sources-bp (bp)
3517 "Check `idlwave-shell-sources-alist' for source of breakpoint using BP.
3519 Otherwise return the filename in bp."
3521 ((bp-file (idlwave-shell-bp-get bp 'file))
3522 (bp-module (idlwave-shell-bp-get bp 'module))
3524 (if bp-module
3525 (cdr (assoc bp-module idlwave-shell-sources-alist)))))
3527 (equal bp-file (nth 0 internal-file-list)))
3529 bp-file)))
3531 (defun idlwave-shell-set-bp (bp &optional no-show)
3539 (idlwave-shell-send-command
3540 idlwave-shell-bp-query
3542 (idlwave-shell-filter-bp (quote ,no-show))
3543 (setq idlwave-shell-old-bp idlwave-shell-bp-alist))
3547 (idlwave-shell-module-source-query (idlwave-shell-bp-get bp 'module)
3548 (idlwave-shell-bp-get bp 'type))
3550 ((count (idlwave-shell-bp-get bp 'count))
3551 (condition (idlwave-shell-bp-get bp 'condition))
3552 (disabled (idlwave-shell-bp-get bp 'disabled))
3565 (line (idlwave-shell-bp-get bp 'line)))
3566 (idlwave-shell-send-command
3568 (idlwave-shell-sources-bp bp) "',"
3573 (if (idlwave-shell-set-bp-check (quote ,bp))
3574 (idlwave-shell-set-bp-adjust (quote ,bp) (quote ,no-show))))
3576 (idlwave-shell-hide-p 'breakpoint)
3579 (defun idlwave-shell-set-bp-adjust (bp &optional no-show)
3581 (idlwave-shell-send-command
3582 idlwave-shell-bp-query
3584 (idlwave-shell-filter-bp 'no-show)
3585 (idlwave-shell-new-bp (quote ,bp))
3587 (idlwave-shell-update-bp-overlays)))
3591 (defun idlwave-shell-find-bp (frame)
3592 "Return breakpoint from `idlwave-shell-bp-alist' for frame.
3594 (assoc frame idlwave-shell-bp-alist))
3596 (defun idlwave-shell-find-current-bp ()
3598 (let ((bp (idlwave-shell-find-bp (idlwave-shell-current-frame))))
3599 (when (not bp)
3602 (idlwave-shell-goto-frame)
3603 (idlwave-beginning-of-statement)
3604 (setq bp (idlwave-shell-find-bp (idlwave-shell-current-frame))))
3605 (unless bp
3608 bp))
3610 (defun idlwave-shell-new-bp (bp)
3616 (let ((obp-index (mapcar 'idlwave-shell-bp-get idlwave-shell-old-bp))
3617 (bpl idlwave-shell-bp-alist))
3618 (while (and (member (idlwave-shell-bp-get (car bpl)) obp-index)
3624 (setq bpl (assoc (car bp) idlwave-shell-bp-alist)))
3627 (equal (idlwave-shell-bp-get (setq bpl (car bpl)) 'file)
3628 (idlwave-shell-bp-get bp 'file)))
3630 ;; This updates `idlwave-shell-bp-alist' because a deep copy was
3632 (idlwave-shell-set-bp-data bpl (idlwave-shell-bp-get bp 'data))
3636 (defvar idlwave-shell-bp-overlays nil
3638 (defvar idlwave-shell-bp-glyph)
3640 (defvar idlwave-shell-debug-line-map (make-sparse-keymap))
3641 (define-key idlwave-shell-debug-line-map
3643 'idlwave-shell-mouse-active-bp)
3645 (defun idlwave-shell-update-bp-overlays ()
3648 (when idlwave-shell-mark-breakpoints
3649 (let ((ov-alist (copy-alist idlwave-shell-bp-overlays))
3650 (bp-list idlwave-shell-bp-alist)
3651 (use-glyph (and (memq idlwave-shell-mark-breakpoints '(t glyph))
3652 idlwave-shell-bp-glyph))
3653 ov ov-list bp buf old-buffers win)
3662 (setq ov-alist idlwave-shell-bp-overlays
3663 idlwave-shell-bp-overlays
3664 (if idlwave-shell-bp-glyph
3665 (mapcar 'list (mapcar 'car idlwave-shell-bp-glyph))
3666 (list (list 'bp))))
3667 (while (setq bp (pop bp-list))
3669 (idlwave-shell-goto-frame (car bp))
3672 (condition (idlwave-shell-bp-get bp 'condition))
3673 (count (idlwave-shell-bp-get bp 'count))
3674 (disabled (idlwave-shell-bp-get bp 'disabled))
3675 (type (if idlwave-shell-bp-glyph
3677 (condition 'bp-cond )
3680 ((<= count 0) 'bp)
3683 (concat "bp-" (number-to-string count))))
3684 (t 'bp-n)))
3685 (t 'bp))
3686 'bp))
3697 (int-to-string (idlwave-shell-bp-get bp))
3711 (idlwave-shell-make-new-bp-overlay type disabled)))
3713 (if idlwave-shell-breakpoint-popup-menu
3716 (if (setq match (assq full-type idlwave-shell-bp-overlays))
3718 (nconc idlwave-shell-bp-overlays
3720 ;; Take care of margins if using a glyph
3721 (when use-glyph
3732 (if use-glyph
3743 (defun idlwave-shell-make-new-bp-overlay (&optional type disabled)
3747 is passed, make an overlay of that type ('bp or 'bp-cond, currently
3750 (use-glyph (and (memq idlwave-shell-mark-breakpoints '(t glyph))
3751 idlwave-shell-bp-glyph))
3752 (type (or type 'bp))
3754 idlwave-shell-disabled-breakpoint-face
3755 idlwave-shell-breakpoint-face)))
3759 (when idlwave-shell-breakpoint-popup-menu
3761 (set-extent-property ov 'keymap idlwave-shell-debug-line-map))
3768 ;; use the glyph
3769 (use-glyph
3770 (let ((glyph (cdr (assq type idlwave-shell-bp-glyph))))
3771 (if disabled (setq glyph (car glyph)) (setq glyph (nth 1 glyph)))
3772 (set-extent-property ov 'begin-glyph glyph)
3773 (set-extent-property ov 'begin-glyph-layout 'outside-margin)))
3776 (idlwave-shell-mark-breakpoints
3783 (when idlwave-shell-breakpoint-popup-menu
3785 (overlay-put ov 'keymap idlwave-shell-debug-line-map))
3788 (if use-glyph
3789 (let ((image-props (cdr (assq type idlwave-shell-bp-glyph)))
3805 (idlwave-shell-mark-breakpoints
3812 (defun idlwave-shell-mouse-active-bp (ev)
3816 (let ((bp (idlwave-shell-find-bp (idlwave-shell-current-frame)))
3818 (unless bp
3820 (setq index (int-to-string (idlwave-shell-bp-get bp))
3821 condition (idlwave-shell-bp-get bp 'condition)
3822 cmd (idlwave-shell-bp-get bp 'cmd)
3823 count (idlwave-shell-bp-get bp 'count)
3824 disabled (idlwave-shell-bp-get bp 'disabled))
3825 (setq select (idlwave-popup-select
3840 (idlwave-shell-clear-all-bp))
3842 (idlwave-shell-clear-current-bp))
3844 (idlwave-shell-break-here count cmd
3850 (idlwave-shell-break-here (if (or (not count)
3856 (idlwave-shell-toggle-enable-current-bp))
3860 (defun idlwave-shell-edit-default-command-line (arg)
3863 (setq idlwave-shell-command-line-to-execute
3864 (read-string "IDL> " idlwave-shell-command-line-to-execute)))
3866 (defun idlwave-shell-execute-default-command-line (arg)
3869 `idlwave-shell-edit-default-command-line' to edit the line."
3873 (setq idlwave-shell-command-line-to-execute nil))
3875 (setq idlwave-shell-command-line-to-execute
3876 (read-string "IDL> " idlwave-shell-command-line-to-execute))))
3877 (idlwave-shell-reset 'hidden)
3878 (idlwave-shell-send-command
3879 (or idlwave-shell-command-line-to-execute
3880 (with-current-buffer (idlwave-shell-buffer)
3882 '(idlwave-shell-redisplay 'hide)))
3884 (defun idlwave-shell-save-and-run ()
3887 When called from the shell buffer, re-run the file which was last handled by
3890 (idlwave-shell-save-and-action 'run))
3892 (defun idlwave-shell-save-and-compile ()
3895 When called from the shell buffer, re-compile the file which was last handled by
3898 (idlwave-shell-save-and-action 'compile))
3900 (defun idlwave-shell-save-and-batch ()
3903 When called from the shell buffer, re-batch the file which was last handled by
3906 (idlwave-shell-save-and-action 'batch))
3908 (defun idlwave-shell-save-and-action (action)
3911 When called from the shell buffer, re-compile the file which was last
3914 (if idlwave-shell-stop-line-overlay
3915 (delete-overlay idlwave-shell-stop-line-overlay))
3916 (if idlwave-shell-is-stopped
3917 (idlwave-shell-electric-debug-all-off))
3918 (setq idlwave-shell-is-stopped nil)
3922 ((eq major-mode 'idlwave-mode)
3924 (setq idlwave-shell-last-save-and-action-file (buffer-file-name)))
3925 (idlwave-shell-last-save-and-action-file
3926 (if (setq buf (idlwave-get-buffer-visiting
3927 idlwave-shell-last-save-and-action-file))
3931 (t (setq idlwave-shell-last-save-and-action-file
3933 (if (file-regular-p idlwave-shell-last-save-and-action-file)
3935 (idlwave-shell-send-command
3941 idlwave-shell-last-save-and-action-file
3943 `(idlwave-shell-maybe-update-routine-info nil
3944 ,idlwave-shell-last-save-and-action-file)
3945 (if (idlwave-shell-hide-p 'run) 'mostly) nil t)
3946 (idlwave-shell-bp-query))
3948 idlwave-shell-last-save-and-action-file)))
3949 (setq idlwave-shell-last-save-and-action-file nil)
3952 (defun idlwave-shell-maybe-update-routine-info (&optional wait file)
3953 "Update the routine info if the shell is not stopped at an error."
3954 (if (and (not idlwave-shell-is-stopped)
3955 (or (eq t idlwave-auto-routine-info-updates)
3956 (memq 'compile-buffer idlwave-auto-routine-info-updates))
3957 idlwave-query-shell-for-routine-info
3958 idlwave-routines)
3959 (idlwave-shell-update-routine-info t nil wait file)))
3961 (defvar idlwave-shell-sources-query "help,/source,/full"
3964 (defvar idlwave-shell-sources-alist nil
3968 (module name . (source-file-truename idlwave-internal-filename)).")
3970 (defun idlwave-shell-module-source-query (module &optional type)
3974 (idlwave-shell-send-command
3977 `(idlwave-shell-module-source-filter ,module)
3980 (defun idlwave-shell-module-source-filter (module)
3981 "Get module source, and update idlwave-shell-sources-alist."
3982 (let ((old (assoc (upcase module) idlwave-shell-sources-alist))
3985 idlwave-shell-command-output)
3986 (setq filename (substring idlwave-shell-command-output
3989 (setcdr old (list (idlwave-shell-file-name filename) filename))
3990 (setq idlwave-shell-sources-alist
3991 (append idlwave-shell-sources-alist
3993 (list (idlwave-shell-file-name filename)
3996 (defun idlwave-shell-sources-query ()
3998 Queries IDL using the string in `idlwave-shell-sources-query'."
4000 (idlwave-shell-send-command idlwave-shell-sources-query
4001 'idlwave-shell-sources-filter
4004 (defun idlwave-shell-sources-filter ()
4005 "Get source files from `idlwave-shell-sources-query' output.
4006 Create `idlwave-shell-sources-alist' consisting of
4008 (module name . (source-file-truename idlwave-internal-filename))."
4010 (set-buffer (get-buffer-create idlwave-shell-bp-buffer))
4012 (insert idlwave-shell-command-output)
4022 (setq idlwave-shell-sources-alist
4029 (idlwave-shell-sources-grep))
4034 (idlwave-shell-sources-grep)))))))))
4036 (defun idlwave-shell-sources-grep ()
4052 (idlwave-shell-file-name internal-filename)
4057 (defun idlwave-shell-clear-all-bp ()
4060 (idlwave-shell-send-command
4061 idlwave-shell-bp-query
4063 (idlwave-shell-filter-bp)
4064 (mapcar (lambda (x) (idlwave-shell-clear-bp x 'no-query))
4065 idlwave-shell-bp-alist)
4066 (idlwave-shell-bp-query))
4069 (defun idlwave-shell-list-all-bp ()
4072 (idlwave-shell-send-command
4073 idlwave-shell-bp-query))
4075 (defvar idlwave-shell-error-last 0
4076 "Position of last syntax error in `idlwave-shell-error-buffer'.")
4078 (defun idlwave-shell-goto-next-error ()
4083 (set-buffer idlwave-shell-error-buffer)
4084 (goto-char idlwave-shell-error-last)
4086 (re-search-forward idlwave-shell-syntax-error nil t)
4087 (re-search-forward idlwave-shell-other-error nil t))
4092 (idlwave-shell-file-name
4104 (setq idlwave-shell-error-last (point)))
4107 (idlwave-shell-display-line frame col 'disable))
4111 (defun idlwave-shell-file-name (name)
4112 "If `idlwave-shell-use-truename' is non-nil, convert file name to true name.
4114 (let ((def-dir (if (eq major-mode 'idlwave-shell-mode)
4116 idlwave-shell-default-directory)))
4117 (if idlwave-shell-use-truename
4123 (defvar idlwave-shell-mode-map (copy-keymap comint-mode-map)
4124 "Keymap for idlwave-mode.")
4125 (defvar idlwave-shell-electric-debug-mode-map (make-sparse-keymap))
4126 (defvar idlwave-shell-mode-prefix-map (make-sparse-keymap))
4127 (fset 'idlwave-shell-mode-prefix-map idlwave-shell-mode-prefix-map)
4128 (defvar idlwave-mode-prefix-map (make-sparse-keymap))
4129 (fset 'idlwave-mode-prefix-map idlwave-mode-prefix-map)
4131 (defun idlwave-shell-define-key-both (key hook)
4132 "Define a key in both the shell and buffer mode maps."
4133 (define-key idlwave-mode-map key hook)
4134 (define-key idlwave-shell-mode-map key hook))
4136 ;(define-key idlwave-shell-mode-map "\M-?" 'comint-dynamic-list-completions)
4137 ;(define-key idlwave-shell-mode-map "\t" 'comint-dynamic-complete)
4139 (define-key idlwave-shell-mode-map "\C-w" 'comint-kill-region)
4140 (define-key idlwave-shell-mode-map "\t" 'idlwave-shell-complete)
4141 (define-key idlwave-shell-mode-map "\M-\t" 'idlwave-shell-complete)
4142 (define-key idlwave-shell-mode-map "\C-c\C-s" 'idlwave-shell)
4143 (define-key idlwave-shell-mode-map "\C-c?" 'idlwave-routine-info)
4144 (define-key idlwave-shell-mode-map "\C-g" 'idlwave-keyboard-quit)
4145 (define-key idlwave-shell-mode-map "\M-?" 'idlwave-context-help)
4146 (define-key idlwave-shell-mode-map [(control meta ?\?)]
4147 'idlwave-help-assistant-help-with-topic)
4148 (define-key idlwave-shell-mode-map "\C-c\C-i" 'idlwave-update-routine-info)
4149 (define-key idlwave-shell-mode-map "\C-c\C-y" 'idlwave-shell-char-mode-loop)
4150 (define-key idlwave-shell-mode-map "\C-c\C-x" 'idlwave-shell-send-char)
4151 (define-key idlwave-shell-mode-map "\C-c=" 'idlwave-resolve)
4152 (define-key idlwave-shell-mode-map "\C-c\C-v" 'idlwave-find-module)
4153 (define-key idlwave-shell-mode-map "\C-c\C-k" 'idlwave-kill-autoloaded-buffers)
4154 (define-key idlwave-shell-mode-map idlwave-shell-prefix-key
4155 'idlwave-shell-debug-map)
4156 (define-key idlwave-shell-mode-map [(up)] 'idlwave-shell-up-or-history)
4157 (define-key idlwave-shell-mode-map [(down)] 'idlwave-shell-down-or-history)
4158 (define-key idlwave-mode-map "\C-c\C-y" 'idlwave-shell-char-mode-loop)
4159 (define-key idlwave-mode-map "\C-c\C-x" 'idlwave-shell-send-char)
4162 (idlwave-shell-define-key-both
4166 'idlwave-shell-mouse-print)
4167 (idlwave-shell-define-key-both
4171 'idlwave-shell-mouse-help)
4172 (idlwave-shell-define-key-both
4176 'idlwave-shell-examine-select)
4177 ;; Add this one from the idlwave-mode-map
4178 (define-key idlwave-shell-mode-map
4182 'idlwave-mouse-context-help)
4185 (defun idlwave-shell-mouse-nop (event)
4188 (idlwave-shell-define-key-both
4189 [(shift mouse-2)] 'idlwave-shell-mouse-nop)
4190 (idlwave-shell-define-key-both
4191 [(shift control mouse-2)] 'idlwave-shell-mouse-nop)
4192 (idlwave-shell-define-key-both
4193 [(control meta mouse-2)] 'idlwave-shell-mouse-nop))
4197 ;; If `idlwave-shell-activate-prefix-keybindings' is non-nil, the
4199 ;; `idlwave-shell-debug-modifiers' is non-nil, the second key in the
4201 ;; `idlwave-mode-map' and `idlwave-shell-mode-map'. The next list
4209 '(([(control ?b)] ?b idlwave-shell-break-here t t)
4210 ([(control ?i)] ?i idlwave-shell-break-in t t)
4211 ([(control ?j)] ?j idlwave-shell-break-this-module t t)
4212 ([(control ?d)] ?d idlwave-shell-clear-current-bp t)
4213 ([(control ?a)] ?a idlwave-shell-clear-all-bp t)
4214 ([(control ?\\)] ?\\ idlwave-shell-toggle-enable-current-bp t)
4215 ([(control ?s)] ?s idlwave-shell-step t)
4216 ([(control ?n)] ?n idlwave-shell-stepover t)
4217 ([(control ?k)] ?k idlwave-shell-skip t)
4218 ([(control ?u)] ?u idlwave-shell-up t)
4219 ([(control ?o)] ?o idlwave-shell-out t)
4220 ([(control ?m)] ?m idlwave-shell-return t)
4221 ([(control ?h)] ?h idlwave-shell-to-here t t)
4222 ([(control ?r)] ?r idlwave-shell-cont t)
4223 ([(control ?y)] ?y idlwave-shell-execute-default-command-line)
4224 ([(control ?z)] ?z idlwave-shell-reset t)
4225 ([(control ?q)] ?q idlwave-shell-quit)
4226 ([(control ?p)] ?p idlwave-shell-print t)
4227 ([( ??)] ?? idlwave-shell-help-expression t)
4228 ([(control ?v)] ?v idlwave-shell-toggle-electric-debug-mode t t)
4229 ([(control ?x)] ?x idlwave-shell-goto-next-error)
4230 ([(control ?c)] ?c idlwave-shell-save-and-run t)
4231 ([( ?@)] ?@ idlwave-shell-save-and-batch)
4232 ([(control ?e)] ?e idlwave-shell-run-region)
4233 ([(control ?w)] ?w idlwave-shell-resync-dirs)
4234 ([(control ?l)] ?l idlwave-shell-redisplay t)
4235 ([(control ?t)] ?t idlwave-shell-toggle-toolbar)
4236 ([(control up)] up idlwave-shell-stack-up)
4237 ([(control down)] down idlwave-shell-stack-down)
4238 ([( ?[)] ?[ idlwave-shell-goto-previous-bp t t)
4239 ([( ?])] ?] idlwave-shell-goto-next-bp t t)
4240 ([(control ?f)] ?f idlwave-shell-window)))
4241 (mod (cond ((and idlwave-shell-debug-modifiers
4242 (listp idlwave-shell-debug-modifiers)
4243 (not (equal '() idlwave-shell-debug-modifiers)))
4244 idlwave-shell-debug-modifiers)
4245 (idlwave-shell-activate-alt-keybindings
4259 (when (and idlwave-shell-activate-prefix-keybindings k1)
4261 (define-key idlwave-shell-mode-prefix-map k1 cmd))
4262 (define-key idlwave-mode-prefix-map k1 cmd))
4270 (define-key idlwave-mode-map k2 cmd)
4271 (unless only-buffer (define-key idlwave-shell-mode-map k2 cmd))))
4274 (define-key idlwave-shell-electric-debug-mode-map (char-to-string c2)
4278 (define-key idlwave-shell-electric-debug-mode-map " " 'idlwave-shell-step)
4279 (define-key idlwave-shell-electric-debug-mode-map "+" 'idlwave-shell-stack-up)
4280 (define-key idlwave-shell-electric-debug-mode-map "=" 'idlwave-shell-stack-up)
4281 (define-key idlwave-shell-electric-debug-mode-map "-"
4282 'idlwave-shell-stack-down)
4283 (define-key idlwave-shell-electric-debug-mode-map "_"
4284 'idlwave-shell-stack-down)
4285 (define-key idlwave-shell-electric-debug-mode-map "e"
4286 '(lambda () (interactive) (idlwave-shell-print '(16))))
4287 (define-key idlwave-shell-electric-debug-mode-map "q" 'idlwave-shell-retall)
4288 (define-key idlwave-shell-electric-debug-mode-map "t"
4289 '(lambda () (interactive) (idlwave-shell-send-command "help,/TRACE")))
4290 (define-key idlwave-shell-electric-debug-mode-map [(control ??)]
4291 'idlwave-shell-electric-debug-help)
4292 (define-key idlwave-shell-electric-debug-mode-map "x"
4294 (idlwave-shell-print arg nil nil t)))
4298 (fset 'idlwave-debug-map idlwave-mode-prefix-map)
4299 (fset 'idlwave-shell-debug-map idlwave-shell-mode-prefix-map)
4303 (defun idlwave-shell-toggle-electric-debug-mode ()
4309 (if idlwave-shell-electric-debug-mode
4311 (setq idlwave-shell-suppress-electric-debug t)
4312 (idlwave-shell-electric-debug-mode 0))
4313 (setq idlwave-shell-suppress-electric-debug nil)
4314 (idlwave-shell-electric-debug-mode t)))
4316 (defvar idlwave-shell-electric-debug-read-only)
4317 (defvar idlwave-shell-electric-debug-buffers nil)
4319 (define-minor-mode idlwave-shell-electric-debug-mode
4329 idlwave-shell-electric-debug-mode-map)
4332 'idlwave-shell-electric-debug-mode-on-hook
4334 (set (make-local-variable 'idlwave-shell-electric-debug-read-only)
4337 (add-to-list 'idlwave-shell-electric-debug-buffers (current-buffer))
4338 (if idlwave-shell-stop-line-overlay
4339 (overlay-put idlwave-shell-stop-line-overlay 'face
4340 idlwave-shell-electric-stop-line-face))
4342 (set-face-foreground 'fringe idlwave-shell-electric-stop-color
4346 'idlwave-shell-electric-debug-mode-off-hook
4349 (setq buffer-read-only (if (boundp 'idlwave-shell-electric-debug-read-only)
4350 idlwave-shell-electric-debug-read-only))
4351 (setq idlwave-shell-electric-debug-buffers
4352 (delq (current-buffer) idlwave-shell-electric-debug-buffers))
4353 (if idlwave-shell-stop-line-overlay
4354 (overlay-put idlwave-shell-stop-line-overlay 'face
4355 idlwave-shell-stop-line-face)
4360 (defadvice idlwave-shell-electric-debug-mode (after print-enter activate)
4362 (when idlwave-shell-electric-debug-mode
4368 (defvar idlwave-shell-electric-debug-buffers nil)
4369 (defun idlwave-shell-electric-debug-all-off ()
4370 (setq idlwave-shell-suppress-electric-debug nil)
4371 (let ((buffers idlwave-shell-electric-debug-buffers)
4377 (when (and (eq major-mode 'idlwave-mode)
4379 idlwave-shell-electric-debug-mode)
4380 (idlwave-shell-electric-debug-mode 0))))))
4381 (setq idlwave-shell-electric-debug-buffers nil))
4384 (defun idlwave-shell-electric-debug-help ()
4387 (princ idlwave-shell-electric-debug-help))
4397 (defvar idlwave-shell-menu-def
4400 idlwave-shell-electric-debug-mode
4401 :style toggle :selected idlwave-shell-electric-debug-mode
4402 :included (eq major-mode 'idlwave-mode) :keys "C-c C-d C-v"]
4405 ["Save and .RUN" idlwave-shell-save-and-run
4406 (or (eq major-mode 'idlwave-mode)
4407 idlwave-shell-last-save-and-action-file)]
4408 ["Save and .COMPILE" idlwave-shell-save-and-compile
4409 (or (eq major-mode 'idlwave-mode)
4410 idlwave-shell-last-save-and-action-file)]
4411 ["Save and @Batch" idlwave-shell-save-and-batch
4412 (or (eq major-mode 'idlwave-mode)
4413 idlwave-shell-last-save-and-action-file)]
4415 ["Goto Next Error" idlwave-shell-goto-next-error t]
4417 ["Compile and Run Region" idlwave-shell-run-region
4418 (eq major-mode 'idlwave-mode)]
4419 ["Evaluate Region" idlwave-shell-evaluate-region
4420 (eq major-mode 'idlwave-mode)]
4422 ["Execute Default Cmd" idlwave-shell-execute-default-command-line t]
4423 ["Edit Default Cmd" idlwave-shell-edit-default-command-line t])
4425 ["Set Breakpoint" idlwave-shell-break-here
4426 :keys "C-c C-d C-b" :active (eq major-mode 'idlwave-mode)]
4431 (if (integerp count) (idlwave-shell-break-here count))))
4432 :active (eq major-mode 'idlwave-mode)]
4434 (idlwave-shell-break-here '(4))
4435 :active (eq major-mode 'idlwave-mode)])
4436 ["Break in Module" idlwave-shell-break-in
4437 :keys "C-c C-d C-i" :active (eq major-mode 'idlwave-mode)]
4438 ["Break in this Module" idlwave-shell-break-this-module
4439 :keys "C-c C-d C-j" :active (eq major-mode 'idlwave-mode)]
4440 ["Clear Breakpoint" idlwave-shell-clear-current-bp t]
4441 ["Clear All Breakpoints" idlwave-shell-clear-all-bp t]
4442 ["Disable/Enable Breakpoint" idlwave-shell-toggle-enable-current-bp t]
4443 ["Goto Previous Breakpoint" idlwave-shell-goto-previous-bp
4444 :keys "C-c C-d [" :active (eq major-mode 'idlwave-mode)]
4445 ["Goto Next Breakpoint" idlwave-shell-goto-next-bp
4446 :keys "C-c C-d ]" :active (eq major-mode 'idlwave-mode)]
4447 ["List All Breakpoints" idlwave-shell-list-all-bp t]
4448 ["Resync Breakpoints" idlwave-shell-bp-query t])
4450 ["Step (into)" idlwave-shell-step t]
4451 ["Step (over)" idlwave-shell-stepover t]
4452 ["Skip One Statement" idlwave-shell-skip t]
4453 ["Continue" idlwave-shell-cont t]
4454 ["... to End of Block" idlwave-shell-up t]
4455 ["... to End of Subprog" idlwave-shell-return t]
4456 ["... to End of Subprog+1" idlwave-shell-out t]
4457 ["... to Here (Cursor Line)" idlwave-shell-to-here
4458 :keys "C-c C-d C-h" :active (eq major-mode 'idlwave-mode)])
4460 ["Print expression" idlwave-shell-print t]
4461 ["Help on expression" idlwave-shell-help-expression t]
4464 `[ ,(car x) (idlwave-shell-print nil ',x) t ])
4465 idlwave-shell-examine-alist))
4468 `[ ,(car x) (idlwave-shell-print '(4) ',x) t ])
4469 idlwave-shell-examine-alist)))
4471 ["Stack Up" idlwave-shell-stack-up t]
4472 ["Stack Down" idlwave-shell-stack-down t]
4474 ["Redisplay and Sync" idlwave-shell-redisplay t])
4476 ["Everything" (if (eq idlwave-shell-show-commands 'everything)
4478 (setq idlwave-shell-show-commands
4479 (get 'idlwave-shell-show-commands 'last-val))
4480 (put 'idlwave-shell-show-commands 'last-val nil))
4481 (put 'idlwave-shell-show-commands 'last-val
4482 idlwave-shell-show-commands)
4483 (setq idlwave-shell-show-commands 'everything))
4484 :style toggle :selected (and (not (listp idlwave-shell-show-commands))
4485 (eq idlwave-shell-show-commands
4488 ["Compiling Commands" (idlwave-shell-add-or-remove-show 'run)
4490 :selected (not (idlwave-shell-hide-p
4492 (get 'idlwave-shell-show-commands 'last-val)))
4493 :active (not (eq idlwave-shell-show-commands 'everything))]
4494 ["Breakpoint Commands" (idlwave-shell-add-or-remove-show 'breakpoint)
4496 :selected (not (idlwave-shell-hide-p
4498 (get 'idlwave-shell-show-commands 'last-val)))
4499 :active (not (eq idlwave-shell-show-commands 'everything))]
4500 ["Debug Commands" (idlwave-shell-add-or-remove-show 'debug)
4502 :selected (not (idlwave-shell-hide-p
4504 (get 'idlwave-shell-show-commands 'last-val)))
4505 :active (not (eq idlwave-shell-show-commands 'everything))]
4506 ["Miscellaneous Commands" (idlwave-shell-add-or-remove-show 'misc)
4508 :selected (not (idlwave-shell-hide-p
4510 (get 'idlwave-shell-show-commands 'last-val)))
4511 :active (not (eq idlwave-shell-show-commands 'everything))])
4513 ["Send one char" idlwave-shell-send-char t]
4514 ["Temporary Character Mode" idlwave-shell-char-mode-loop t]
4517 (setq idlwave-shell-use-input-mode-magic
4518 (not idlwave-shell-use-input-mode-magic))
4519 :style toggle :selected idlwave-shell-use-input-mode-magic])
4521 ["Update Working Dir" idlwave-shell-resync-dirs t]
4523 (idlwave-shell-send-command idlwave-shell-path-query
4524 'idlwave-shell-get-path-info
4527 ["Reset IDL" idlwave-shell-reset t]
4529 ["Toggle Toolbar" idlwave-shell-toggle-toolbar t]
4530 ["Exit IDL" idlwave-shell-quit t]))
4535 idlwave-mode-debug-menu idlwave-mode-map "IDL debugging menus"
4536 idlwave-shell-menu-def)
4538 idlwave-shell-mode-menu idlwave-shell-mode-map "IDL shell menus"
4539 idlwave-shell-menu-def)
4543 (if (eq major-mode 'idlwave-mode)
4545 (easy-menu-remove idlwave-mode-debug-menu)
4546 (easy-menu-add idlwave-mode-debug-menu))))
4551 (defvar idlwave-shell-bp-glyph nil
4555 '((bp . "/* XPM */
4573 (bp-cond . "/* XPM */
4592 (bp-1 . "/* XPM */
4611 (bp-2 . "/* XPM */
4630 (bp-3 . "/* XPM */
4649 (bp-4 . "/* XPM */
4668 (bp-n . "/* XPM */
4695 (make-glyph data))
4696 (make-glyph (cdr im-cons))))
4703 (if im (push (cons (car im-cons) im) idlwave-shell-bp-glyph))))
4705 (provide 'idlw-shell)
4706 (provide 'idlwave-shell)
4710 (autoload 'idlwave-toolbar-toggle "idlw-toolbar"
4712 (autoload 'idlwave-toolbar-add-everywhere "idlw-toolbar"
4714 (defun idlwave-shell-toggle-toolbar ()
4717 (idlwave-toolbar-toggle))
4719 (if idlwave-shell-use-toolbar
4720 (add-hook 'idlwave-shell-mode-hook 'idlwave-toolbar-add-everywhere))
4723 ;;; idlw-shell.el ends here