Lines Matching defs:idlwave
54 ;; http://idlwave.org
61 ;; (add-hook 'idlwave-load-hook
78 ;; In the idlwave shell, idlwave sends a "print,tag_names()" for the
92 (require 'idlwave)
95 (defvar idlwave-current-tags-var nil)
96 (defvar idlwave-current-tags-buffer nil)
97 (defvar idlwave-current-tags-completion-pos nil)
100 (defvar idlwave-current-struct-tags nil)
101 (defvar idlwave-sint-structtags nil)
104 (idlwave-new-sintern-type 'structtag)
106 ;; Hook the plugin into idlwave
107 (add-to-list 'idlwave-complete-special 'idlwave-complete-structure-tag)
108 (add-hook 'idlwave-update-rinfo-hook 'idlwave-structtag-reset)
111 (defvar idlwave-completion-help-info)
112 (defun idlwave-complete-structure-tag ()
118 In the idlwave shell, the current content of the variable is used to get
145 (if (or (not (string= var (or idlwave-current-tags-var "@")))
146 (not (eq (current-buffer) idlwave-current-tags-buffer))
147 (not (equal start idlwave-current-tags-completion-pos)))
148 (idlwave-prepare-structure-tag-completion var))
149 (setq idlwave-current-tags-completion-pos start)
150 (setq idlwave-completion-help-info
151 (list 'idlwave-complete-structure-tag-help))
152 (idlwave-complete-in-buffer 'structtag 'structtag
153 idlwave-current-struct-tags nil
158 (defun idlwave-structtag-reset ()
160 (setq idlwave-current-tags-buffer nil))
162 (defvar idlwave-structtag-struct-location nil
165 (defun idlwave-prepare-structure-tag-completion (var)
168 (if (eq major-mode 'idlwave-shell-mode)
172 ;; The following call puts the tags into `idlwave-current-struct-tags'
173 (idlwave-complete-structure-tag-query-shell var)
175 (setq idlwave-sint-structtags nil
176 idlwave-current-tags-buffer (current-buffer)
177 idlwave-current-tags-var var
178 idlwave-structtag-struct-location (point)
179 idlwave-current-struct-tags
181 (list (idlwave-sintern-structtag x 'set)))
182 idlwave-current-struct-tags))
183 (if (not idlwave-current-struct-tags)
191 (while (idlwave-find-structure-definition var nil 'all)
192 (let ((tags (idlwave-struct-tags)))
195 (setq idlwave-sint-structtags nil
196 idlwave-current-tags-buffer (current-buffer)
197 idlwave-current-tags-var var
198 idlwave-structtag-struct-location (point)
199 idlwave-current-struct-tags
201 (list (idlwave-sintern-structtag x 'set)))
206 (defun idlwave-complete-structure-tag-query-shell (var)
208 (idlwave-shell-send-command
210 'idlwave-complete-structure-tag-get-tags-from-help
213 (defvar idlwave-shell-prompt-pattern)
214 (defvar idlwave-shell-command-output)
215 (defun idlwave-complete-structure-tag-get-tags-from-help ()
216 "Filter structure tag name output, result to `idlwave-current-struct-tags'."
217 (setq idlwave-current-struct-tags
220 "\\(" idlwave-shell-prompt-pattern "\\)")
221 idlwave-shell-command-output)
222 (split-string (match-string 1 idlwave-shell-command-output)))))
229 (defvar idlwave-help-do-struct-tag)
230 (defun idlwave-complete-structure-tag-help (mode word)
234 (not (equal idlwave-current-tags-buffer
235 (get-buffer (idlwave-shell-buffer)))))
238 idlwave-help-do-struct-tag idlwave-structtag-struct-location))