lisp/progmodes/idlwave.el

178 (defgroup idlwave nil  unknown
195   :group 'idlwave)
343   :group 'idlwave)
454   :type 'file)
485   :group 'idlwave)
496 (defcustom idlwave-completion-case '((routine . upcase)
735   :group 'idlwave)
879   :group 'idlwave)
986   :group 'idlwave)
1048   :group 'idlwave)
3835 (defun idlwave-get-buffer-visiting (file)
3840       (get-file-buffer file)))
3842     (find-buffer-visiting file))
3849 (defun idlwave-find-file-noselect (file &optional why)
3851   (or (idlwave-get-buffer-visiting file)
3852       (let ((buf (find-file-noselect file)))
3922 (defun idlwave-locate-lib-file (file)
3929 	     (setq efile (expand-file-name file dir)))
3932 (defun idlwave-expand-lib-file-name (file)
3936    ((null file) nil)
3937    ((file-name-absolute-p file) file)
3938    (t (idlwave-locate-lib-file file))))
4148 	(set (idlwave-sintern-set name 'routine idlwave-sint-routines set))
4196   (let (entry name type class kwds res source call new)
4203 	    source (nth 3 entry)
4216       (let ((source-type (car source))
4217 	    (source-file  (nth 1 source))
4220 			   (nth 2 source)))
4221 	    (source-lib (nth 3 source)))
4226 	(setq source (list source-type source-file source-dir source-lib)))
4234       (setq new (nconc (list name type class source call) kwds)
5145 (defun idlwave-replace-buffer-routine-info (file new)
5153       (if (eq (idlwave-routine-source-file (nth 3 (car list))) file)
5461 	 dirs-alist dir files file)
5475 	    (while (setq file (pop files))
5476 	      (when (file-regular-p file)
5477 		(if (not (file-readable-p file))
5478 		    (message "Skipping %s (no read permission)" file)
5479 		  (message "Scanning %s..." file)
5481 		  (insert-file-contents file 'visit)
5560   (let ((path (list dir)) path1 file files)
5564 	(while (setq file (pop files))
5565 	  (if (file-directory-p file)
5566 	      (push (file-name-as-directory file) path)))
5776 (defun idlwave-shell-update-routine-info (&optional quiet run-hooks wait file)
5788    (format "idlwave_routine_info%s" (if file (concat ",'" file "'") ""))
5906 	      (list 'routine nil type-selector class-selector nil super-classes))
5908 	 'procedure (if class-selector 'method 'routine)
5929 	      (list 'routine nil type-selector class-selector nil super-classes))
5931 	 'function (if class-selector 'method 'routine)
6222   (let (file (cnt 0))
6226 	(setq file (idlwave-routine-source-file (nth 3 (car entries))))
6227 	(if (and file (idlwave-syslib-p file))
6399   (let ((sel (idlwave-selector a)) file)
6400     (if (and sel (setq file (idlwave-entry-has-help a)))
6401 	(push (cons (car a) file) idlwave-completion-help-links))
7370 	 (file (idlwave-routine-source-file
7373     (cons file (if file (idlwave-get-buffer-visiting file)))))
7380 	 (file (car filebuf))
7384 	 (not file)
7387 	  (not (file-regular-p file))))
7396 	  (insert-file-contents file))
7471        (let ((file (car key-list)))
7475 		     (when (and record-link file)
7481 			   file
7496        (let ((file (car key-list))
7500 			   (if (and file (cdr kwd))
7501 			       (concat file
7992 	source buf1 entry
7995 	file name2)
7998 	  source (or force-source (nth 3 entry))
8002     (if source
8003 	(setq file (idlwave-routine-source-file source)))
8004     (unless file  ; Try to find it on the path.
8005       (setq file
8013      ((eq (car source) 'system)
8016      ((or (not file) (not (file-regular-p file)))
8022 	      (idlwave-find-file-noselect file 'find))
8389 			    'source (list (car (car (nth 2 entry))) ;type
8393 			    'data (cons 'source data)))
8428 	 (file (nth 1 entry))
8452      ((and (not file) shell-flag)
8455      ((null file)
8458      ((idlwave-syslib-p file)
8459       (if (string-match "obsolete" (file-name-directory file))
8469      ((setq special (idlwave-special-lib-test file))
8473      ((idlwave-lib-p file)      (insert "Library   "))
8490     (when (and file (not (equal file "")))
8493 		     (if (featurep 'xemacs) (list file t) (list file))))
8497 (defun idlwave-special-lib-test (file)
8503      ((stringp file)
8505 	(if (string-match (car entry) file)
8529   (let (data id name type class buf bufwin source link keyword
8532 	  source (get-text-property (point) 'source)
8550 	  ((eq id 'source) ; Source in help or buffer
8556 		      (list (list name type class source ""))))
8562 		     (idlwave-do-find-module name type class source)
8663 	 routine twins dtwins twin done props1 lroutines)
8694       (while (setq routine (pop routines))
8699 	(setq twins (idlwave-routine-twins routine (or lroutines routines)))
8700 	(if (memq routine done)
8711 			  (idlwave-make-full-name (nth 2 routine)
8712 						  (car routine))
8713 			  (if (eq (nth 1 routine) 'fun) "()" "")))
8716 				       (list (nth 0 routine)
8717 					     (nth 1 routine)
8718 					     (nth 2 routine)))
8731 (defun idlwave-print-source (routine)
8732   (let* ((source (nth 3 routine))
8733 	 (stype (car source))
8734 	 (sfile (idlwave-routine-source-file source)))
8776 	 source type type-cons file alist syslibp key)
8779       (setq source (nth 3 entry)
8780 	    type (car source)
8781 	    type-cons (cons type (nth 3 source))
8782 	    file (idlwave-routine-source-file source))
8786 		      (file (file-truename file))
8790       (if (and file
8792 	       (idlwave-syslib-p file))
8799 	(push (list key file (list type-cons)) alist)))
8933 (defun idlwave-routine-source-file (source)
8934   (if (nth 2 source)
8935       (expand-file-name (nth 1 source) (nth 2 source))
8936     (nth 1 source)))
8952 (defun idlwave-syslib-p (file)
8957 	 (true-file (file-truename file)))
8960 (defun idlwave-lib-p (file)
8962   (let ((true-dir (file-name-directory (file-truename file))))
9199   (customize-browse 'idlwave))
9214 	   ,(customize-menu-create 'idlwave)
9310 (provide 'idlwave)