Lines Matching +defs:name +defs:pos
477 is a regular expression matching the file name (they normally will match
671 method, add an entry (\"INIT\" . t). The method name must be ALL-CAPS."
711 When IDLWAVE stores a class name as text property on an object arrow
859 ;; Capitalize procedure name
863 ;; Capitalize common block name
1003 (defcustom idlwave-shell-explicit-file-name "idl"
1009 I know the name of this variable is badly chosen, but I cannot change
1133 ;; Procedure declarations. Fontify keyword plus procedure name.
1159 (let* (;; Procedure declarations. Fontify keyword plus procedure name.
1160 ;; Function declarations. Fontify keyword plus function name.
1164 (2 font-lock-function-name-face nil t)))
1170 (2 font-lock-reference-face nil t) ; block name
1172 ;; Start with point after block name and comma
1175 (1 font-lock-variable-name-face) ; variable names
1206 (2 font-lock-function-name-face)))
1219 (1 font-lock-variable-name-face)))
1409 ;; the name of idlwave-check-abbrev to something like idlwave-modify-abbrev.
1641 (defun idlwave-define-abbrev (name expansion hook &optional noprefix table)
1648 (if noprefix name (concat idlwave-abbrev-start-char name))
1775 (defvar extract-index-name-function)
1777 (defvar imenu-extract-index-name-function)
1933 (setq mode-name "IDLWAVE")
1950 ;; Set tag table list to use IDLTAGS as file name.
1966 (set (make-local-variable 'imenu-extract-index-name-function)
1967 'idlwave-unit-name)
2010 idlwave-user-catalog-file (expand-file-name
2014 (expand-file-name
2017 idlwave-path-file (expand-file-name
2025 (let (pos)
2029 (when (setq pos (idlwave-is-continuation-line))
2030 (goto-char pos)
2162 (let* ((pos (point-marker))
2164 (eol-pos (save-excursion (end-of-line) (point)))
2165 begin-pos end-pos end end1 )
2174 (setq begin-pos (point))
2176 (setq end-pos (point))
2177 (if (> end-pos eol-pos)
2178 (setq end-pos pos))
2179 (goto-char end-pos)
2184 end-pos))
2185 (goto-char begin-pos)
2195 (goto-char pos)
2534 (let ((name (idlwave-current-routine)))
2535 (idlwave-make-full-name (nth 2 name) (car name))))
2546 (name (idlwave-sintern-routine-or-method (match-string 4) class)))
2547 (list name type class)))))
2865 . FUNC). REG is a regular expression. FUNC is either a function name
2931 (t (let* (beg-prev-pos
2939 (setq beg-prev-pos (point)))
2953 (goto-char beg-prev-pos)
3613 (let ((pos (point)))
3619 (goto-char pos)))
3624 (insert ", " (user-full-name))
3627 (insert " <" (user-login-name) "@" (system-name) ">"))
3637 `idlwave-doc-modifications-keyword' if non-nil. Inserts time and user name
3745 (let ((pos (point)))
3758 ;; expand.el (I think there was also something with a name similar to
3849 "Procedure name"))
3856 "Function name"))
3988 (setq efile (expand-file-name file dir)))
3991 (defun idlwave-expand-lib-file-name (file)
3996 ((file-name-absolute-p file) file)
4003 specified top directories are searched if the directory name is prefixed
4031 (setq dir (expand-file-name dir))
4189 (defun idlwave-sintern-routine-or-method (name &optional class set)
4191 (idlwave-sintern-method name set)
4192 (idlwave-sintern-routine name set)))
4195 (apply (intern (concat "idlwave-sintern-" (symbol-name stype))) args))
4198 ;; `(cond ((not (stringp name)) name)
4199 ;; ((gethash (downcase name) (cdr ,var)))
4200 ;; ((gethash (downcase name) (car ,var)))
4201 ;; (set (idlwave-sintern-set name ,type ,var set))
4202 ;; (name)))
4204 (defun idlwave-sintern-routine (name &optional set)
4205 (cond ((not (stringp name)) name)
4206 ((gethash (downcase name) (cdr idlwave-sint-routines)))
4207 ((gethash (downcase name) (car idlwave-sint-routines)))
4208 (set (idlwave-sintern-set name 'routine idlwave-sint-routines set))
4209 (name)))
4210 (defun idlwave-sintern-keyword (name &optional set)
4211 (cond ((not (stringp name)) name)
4212 ((gethash (downcase name) (cdr idlwave-sint-keywords)))
4213 ((gethash (downcase name) (car idlwave-sint-keywords)))
4214 (set (idlwave-sintern-set name 'keyword idlwave-sint-keywords set))
4215 (name)))
4216 (defun idlwave-sintern-method (name &optional set)
4217 (cond ((not (stringp name)) name)
4218 ((gethash (downcase name) (cdr idlwave-sint-methods)))
4219 ((gethash (downcase name) (car idlwave-sint-methods)))
4220 (set (idlwave-sintern-set name 'method idlwave-sint-methods set))
4221 (name)))
4222 (defun idlwave-sintern-class (name &optional set)
4223 (cond ((not (stringp name)) name)
4224 ((gethash (downcase name) (cdr idlwave-sint-classes)))
4225 ((gethash (downcase name) (car idlwave-sint-classes)))
4226 (set (idlwave-sintern-set name 'class idlwave-sint-classes set))
4227 (name)))
4232 (defun idlwave-sintern-libname (name &optional set)
4233 (car (or (member name idlwave-sint-libnames)
4234 (setq idlwave-sint-libnames (cons name idlwave-sint-libnames)))))
4236 (defun idlwave-sintern-set (name type tables set)
4239 (iname (funcall (if (eq func 'preserve) 'identity func) name))
4241 (puthash (downcase name) iname table)
4255 (let (entry name type class kwds res source call new)
4259 name (car entry)
4266 ;; The class and name
4269 (if (symbolp class) (setq class (symbol-name class)))
4271 (setq name (idlwave-sintern-method name set)))
4272 (setq name (idlwave-sintern-routine name set)))
4278 (file-name-as-directory default-dir)
4293 (setq new (nconc (list name type class source call) kwds)
4303 (let* ((name (symbol-name tag))
4304 (names (concat name "s"))
4306 (func (intern (concat "idlwave-sintern-" name))))
4309 `(lambda (name &optional set)
4310 (cond ((not (stringp name)) name)
4311 ((cdr (assoc (downcase name) ,var)))
4313 (setq ,var (cons (cons (downcase name) name) ,var))
4314 name)
4315 (name))))))
4319 (set (intern (concat "idlwave-sint-" (symbol-name tag) "s")) nil))
4421 (let* ((emacs (concat invocation-directory invocation-name))
4423 "-l" (expand-file-name "~/.emacs")
4609 (let* ((dir (file-name-as-directory
4610 (expand-file-name "help/online_help" (idlwave-sys-dir))))
4611 (catalog-file (expand-file-name "idl_catalog.xml" dir)))
4625 (defun idlwave-shorten-syntax (syntax name &optional class)
4630 (while (string-match name x)
4643 (class (cdr (assq 'name nameblock)))
4658 (let ((pname (cdr (assq 'name props)))
4665 (let ((pname (cdr (assq 'name props)))
4675 (setq method (cdr (assq 'name props)))
4711 (name (cdr (assq 'name nameblock)))
4717 (if class ;; strip out class name from class method name string
4718 (if (string-match (concat class "::") name)
4719 (setq name (substring name (match-end 0)))))
4727 (setq syntax (cdr (assq 'name props)))
4737 (setq kwd (cdr (assq 'name props))
4757 ; (insert (format "Missing SYNTAX entry for %s::%s\n" class name))
4758 ; (insert (message "Missing SYNTAX entry for %s\n" name)))))
4762 (cons (substring name 1) link)
4767 (push (append (list name (if (eq idx 0) 'pro 'fun)
4770 (aref syntax-vec idx) name class))
4849 (name (cdr (assq 'name nameblock)))
4850 (sysvar (substring name (progn (string-match "^ *!" name)
4863 (push (cons (cdr (assq 'name props))
4906 (let* ((dir (file-name-as-directory
4907 (expand-file-name "help/online_help" (idlwave-sys-dir))))
4908 (catalog-file (expand-file-name "idl_catalog.xml" dir))
4952 (push (cons (cdr (assq 'name props)) (cdr alias))
4968 (push (cons (cdr (assq 'name props))
4978 (push (cons (substring (cdr (assq 'name props)) 1)
5192 (buffer-file-name)
5231 buffer-file-name)
5263 start name args type keywords class)
5272 ;; Match the name and type.
5279 (setq name (match-string 4 string)))
5295 (list name
5299 (list 'buffer (buffer-file-name)))
5301 ; (file-name-sans-extension
5302 ; (file-name-nondirectory (buffer-file-name))))
5303 ; (downcase name))
5305 ; (t (cons 'lib (file-name-nondirectory (buffer-file-name))))
5306 (t (list 'user (file-name-nondirectory (buffer-file-name))
5349 ;; Make sure the file name makes sense
5353 (file-name-directory idlwave-user-catalog-file))
5354 (not (string= "" (file-name-nondirectory
5570 (file-name-nondirectory idlwave-user-catalog-file)))
5627 (not (file-name-absolute-p dir)))
5628 (setq dir (expand-file-name dir default-dir)))
5645 (push (file-name-as-directory file) path)))
5674 (setq catalog (expand-file-name ".idlwave_catalog" dir)))
5720 pro idlwave_print_info_entry,name,func=func,separator=sep
5722 if name eq '' then return
5724 methsep = strpos(name,'::')
5728 pars = routine_info(name,/parameters,functions=func)
5729 source = routine_info(name,/source,functions=func)
5735 ;; Trim the class, and make the name
5737 class = strmid(name,0,methsep)
5738 name = strmid(name,methsep+2,strlen(name)-1)
5772 print,ret + ': ' + name + sep + class + sep + source[0].path $
5885 "Complete a function, procedure or keyword name at point.
5892 - In the first arg of `OBJ_NEW', it completes a class name.
5900 name, the action depends upon `idlwave-query-class', which see. You
5901 can force IDLWAVE to ask you for a class name with a
5929 When we force a keyword, optional argument MODULE can contain the module name.
5975 ;; Complete a procedure name
5987 (format "Select a %s name%s"
5998 ;; Complete a function name
6010 (format "Select a %s name%s"
6027 (name (car where))
6028 (method-selector name)
6035 name 'pro class (idlwave-routines)))
6040 (idlwave-make-full-name class name)))
6041 (setq list (idlwave-fix-keywords name 'pro class list
6044 (idlwave-make-full-name class name)))
6046 (list 'keyword name type-selector class-selector entry super-classes))
6050 (idlwave-make-full-name class name)
6060 (name (car where))
6061 (method-selector name)
6068 name 'fun class (idlwave-routines)))
6071 msg-name)
6074 (idlwave-make-full-name class name)))
6075 (setq list (idlwave-fix-keywords name 'fun class list
6078 (setq msg-name (if (and (null class)
6079 (string= (upcase name) "OBJ_NEW"))
6082 (idlwave-make-full-name class name)))
6084 msg-name))
6086 (list 'keyword name type-selector class-selector nil super-classes))
6089 (format "Select keyword for function %s%s" msg-name
6120 ;; MODULE and CLASS can be used to specify the routine name and class.
6121 ;; The class name will also be found in MODULE if that is like "class::mod".
6138 (assoc (symbol-name what) what-list))
6222 "Use the comint stuff to complete a file name."
6224 (let* ((comint-file-name-chars "~/A-Za-z0-9+@:_.$#%={}\\-")
6234 (defun idlwave-make-full-name (class name)
6235 ;; Make a fully qualified module name including the class name
6236 (concat (if class (format "%s::" class) "") name))
6238 (defun idlwave-rinfo-assoc (name type class list)
6241 (idlwave-sintern-routine-or-method name class)
6244 (defun idlwave-rinfo-assq (name type class list)
6248 (while (setq match (assq name list))
6255 (defun idlwave-rinfo-assq-any-class (name type class list)
6260 (if (setq rtn (idlwave-rinfo-assq name type (pop classes) list))
6264 (defun idlwave-best-rinfo-assq (name type class list &optional with-file
6271 (idlwave-rinfo-assq-any-class name type class list)
6289 (defun idlwave-best-rinfo-assoc (name type class list &optional with-file
6293 (idlwave-sintern-routine-or-method name class)
6385 ;; current routine. otherwise prompt the user for a class name.
6499 PRO: Procedure name
6500 FUNC: Function name
6582 ;; The return value is ("function-name" class arrow-start (point) level).
6589 (let (pos
6601 (setq pos (point))
6609 pos func-point)
6620 (goto-char pos))
6625 ;; The return value is ("procedure-name" class arrow-pos (point)).
6629 (let ((pos (point)) pro-point
6634 (setq string (buffer-substring (point) pos))
6640 (setq string (buffer-substring (point) pos))
6648 pos)
6658 (let ((pos (point)))
6682 (throw 'exit (setq pos (match-beginning 0)))
6684 (goto-char pos)
7137 (let ((l alist) keys-alist name start char help
7141 (setq name (car (car l))
7145 (if (string-match "\\[\\(.\\)\\]" name)
7147 (setq char (string-to-char (downcase (match-string 1 name)))
7148 help (format "%c: %s" char name)
7149 keys-alist (cons (list char help name) keys-alist))
7153 (while (string-match "[A-Z]" name start)
7155 char (string-to-char (downcase (match-string 0 name))))
7160 (concat "[" (match-string 0 name) "]")
7161 t t name))
7162 keys-alist (cons (list char help name) keys-alist))
7166 (while (string-match "[a-z]" name start)
7168 char (string-to-char (match-string 0 name)))
7173 (concat "[" (match-string 0 name) "]")
7174 t t name))
7175 keys-alist (cons (list char help name) keys-alist))
7179 help (format "%c: %s" char name)
7180 keys-alist (cons (list char help name) keys-alist))))
7362 (defun idlwave-find-structure-definition (&optional var name bound)
7378 (if name
7379 (if (stringp name)
7380 (concat ws "\\(\\<" (downcase name) "\\)[^a-zA-Z0-9_$]")
7381 ;; Just a generic name
7440 (let ((case-fold-search t) end-lim list name)
7447 (while (setq name
7449 (funcall all-hook name)))
7487 (lambda (name)
7488 (let* ((this-class (idlwave-sintern-class name))
7610 (let ((pos (point))
7615 (and (< (point) (- pos 4))
7671 (let ((pos (point))
7688 (<= (match-end 0) pos)))
7751 (defvar name)
7768 (setq name (cons (concat found-in "__define") class-with))
7769 (setq name (concat class-with "__define")))))
7820 var tags type name class link old-entry)
7899 verify))) ; pos OK
7910 (defvar idlwave-last-context-help-pos nil)
7914 point is on a routine name or in the argument list of a routine, help
7933 point is on the name a function or procedure, or in the argument list
7973 "Call RESOLVE_ROUTINE on the module name at point.
7984 (name (idlwave-make-full-name (nth 2 module) (car module)))
7986 (resolve (read-string "Resolve: " (format "%s %s" type name)))
7995 name (match-string 4 resolve)))
8002 (format "resolve_routine,'%s'%s" (downcase name) kwd)
8010 (downcase class) (downcase name) kwd)
8021 function offers as default the module name `idlwave-routine-info'
8030 (concat (idlwave-make-full-name
8042 (concat (idlwave-make-full-name
8048 (name (idlwave-completing-read
8055 (if (string-match "\\`\\s-*\\'" name)
8057 (setq name default))
8058 (if (string-match "<[fp]>" name)
8059 (setq type (substring name -2 -1)
8060 name (substring name 0 -3)))
8061 (if (string-match "\\(.*\\)::\\(.*\\)" name)
8062 (setq class (match-string 1 name)
8063 name (match-string 2 name)))
8064 (setq name (idlwave-sintern-routine-or-method name class)
8069 (idlwave-do-find-module name type class nil this-buffer)))
8071 (defun idlwave-do-find-module (name type class
8073 (let ((name1 (idlwave-make-full-name class name))
8076 (pos (point))
8078 (setq entry (idlwave-best-rinfo-assq name type class (idlwave-routines)
8082 (idlwave-make-full-name (nth 2 entry) name)
8088 (idlwave-expand-lib-file-name
8091 (format "%s.pro" (downcase name))))))
8093 ((or (null name) (equal name ""))
8119 (goto-char pos)
8189 (defun idlwave-find-inherited-class (name type class)
8191 (let ((entry (idlwave-best-rinfo-assoc name type class (idlwave-routines))))
8200 (let* ((name (car module))
8201 (pos (point))
8204 (if (and (stringp name)
8205 (equal (downcase name) "obj_new")
8208 (setq string (buffer-substring (point) pos))
8211 (let ((name "Init")
8218 (defun idlwave-fix-keywords (name type class keywords
8228 (if (and (equal (upcase name) "OBJ_NEW")
8257 (idlwave-all-assq name (idlwave-routines)))
8270 ;; Check if one of the keyword-class regexps matches the name
8274 (if (string-match re name) (throw 'exit t))))))
8280 (eq (car entry) name) ; correct name
8299 (let* ((name (car module))
8303 (entry (idlwave-best-rinfo-assoc name type class (idlwave-routines)))
8354 (defun idlwave-display-calling-sequence (name type class
8358 (entry (or (idlwave-best-rinfo-assq name type class
8360 (idlwave-rinfo-assq name type class
8362 (name (or (car entry) name))
8381 (data (list name type class (current-buffer) nil initial-class))
8387 (setq keywords (idlwave-fix-keywords name type class keywords))
8390 (error "No %s %s known %s" type name
8392 ((or (null name) (equal name ""))
8395 (error "Calling sequence of %s %s not available" type name))
8420 (if (idlwave-rinfo-assq name type c (idlwave-routines))
8432 (format calling-seq class name class name class name)
8433 (format calling-seq name name name name))
8504 Start line with PREFIX. If a file name is inserted, add FILE-PROPS to
8538 (if (string-match "obsolete" (file-name-directory file))
8571 (insert (apply 'abbreviate-file-name
8578 Return the name of the special lib if there is a match."
8608 (let (data id name type class buf bufwin source link keyword
8615 name (nth 1 data) type (nth 2 data) class (nth 3 data)
8624 (idlwave-sintern-method name)
8628 (idlwave-online-help link name type class))
8635 (list (list name type class source ""))))
8636 (idlwave-help-get-special-help name type class nil))
8641 (idlwave-do-find-module name type class source)
8652 (idlwave-online-help link name type class keyword)
8717 command can be used to detect possible name clashes during this process."
8749 (string< (downcase (idlwave-make-full-name
8751 (downcase (idlwave-make-full-name
8788 (idlwave-make-full-name (nth 2 routine)
8824 Twin entries are those which have the same name, type, and class.
8826 (let* ((name (car entry))
8829 (candidates (idlwave-all-assq name (or list (idlwave-routines))))
8836 (if (setq candidate (idlwave-rinfo-assq name type class
8843 Dangerous twins are routines with same name, but in different files on
8849 (name (car entry)) ;
8903 are twins (same name, class, and type), calls another routine which
8905 (let ((name (car a)) (type (nth 1 a)) (class (nth 2 a)))
8913 ((not (equal (downcase name) (downcase (car b))))
8915 (string< (downcase name) (downcase (car b))))
8928 (let* ((name (car a)) (type (nth 1 a)) (class (nth 2 a)) ; needed outside
8970 (assoc (file-name-directory akey) tpath-alist)))
8972 (assoc (file-name-directory bkey) tpath-alist)))
8978 (aname (if (stringp afile) (downcase (file-name-nondirectory afile)) ""))
8979 (bname (if (stringp bfile) (downcase (file-name-nondirectory bfile)) ""))
8982 (regexp-quote (downcase name)))
8983 (format "\\`%s\\.pro" (regexp-quote (downcase name)))))
8984 ;; Is file name derived from the routine name?
9008 (expand-file-name (nth 1 source) (nth 2 source))
9027 (let* ((true-syslib (file-name-as-directory
9029 (expand-file-name "lib" (idlwave-sys-dir)))))
9035 (let ((true-dir (file-name-directory (file-truename file))))
9056 (file-name-as-directory
9058 (directory-file-name
9065 (let* ((true-syslib (file-name-as-directory
9067 (expand-file-name "lib" (idlwave-sys-dir))))))
9090 (defun idlwave-unit-name ()
9091 "Return the unit name.
9120 (or (assq 'idlwave-mode fume-function-name-regexp-alist)
9121 (not (boundp 'fume-function-name-regexp-idl)) ; avoid problems
9122 (setq fume-function-name-regexp-alist
9123 (cons '(idlwave-mode . fume-function-name-regexp-idl)
9124 fume-function-name-regexp-alist)))
9125 (or (assq 'idlwave-mode fume-find-function-name-method-alist)
9126 (not (fboundp 'fume-find-next-idl-function-name)) ; avoid problems
9127 (setq fume-find-function-name-method-alist
9128 (cons '(idlwave-mode . fume-find-next-idl-function-name)
9129 fume-find-function-name-method-alist))))))
9135 idlwave-shell-explicit-file-name "-c" "-e"
9136 (buffer-file-name)))
9335 (setq str (symbol-name sym)