HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/cedet/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/cedet/cedet-idutils.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@39 Minimum version of ID Utils required.
(defvar cedet-idutils-min-version "4.0" (#$ . 408))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\314\315\304\305\306\307&\207" [custom-declare-variable cedet-idutils-file-command "fnid" "Command name for the ID Utils executable for searching file names." :type string :group cedet cedet-idutils-token-command "lid" "Command name for the ID Utils executable for searching for tokens." cedet-idutils-make-command "mkid" "Command name for the ID Utils executable for creating token databases."] 8)
#@464 Perform a search with ID Utils, return the created buffer.
SEARCHTEXT is text to find.
TEXTTYPE is the type of text, such as 'regexp, 'string, 'tagname,
'tagregexp, or 'tagcompletions.
TYPE is the type of search, meaning that SEARCHTEXT is compared to
filename, tagname (tags table), references (uses of a tag) , or
symbol (uses of something not in the tag table.)
SCOPE is the scope of the search, such as 'project or 'subdirs.
Note: Scope is not yet supported.
(defalias 'cedet-idutils-search #[(searchtext texttype type scope) "\306=\203\307	C!\207\n\310=\203\311C\202\312C\313\n\314=\204'\n\315=\203-\316\317D\202K\n\310=\203=\320	P\316\321D\202K\n\322=\203H\316C\202K\323\317D\324\325\f
	C$!+\207" [type searchtext texttype resultflg scopeflgs stflag file cedet-idutils-fnid-call tagcompletions "--key=token" "--result=grep" nil tagname tagregexp "-r" "-w" "^" "-s" regexp "-l" cedet-idutils-lid-call append] 6 (#$ . 1001)])
#@91 Call ID Utils fnid with the list of FLAGS.
Return the created buffer with program output.
(defalias 'cedet-idutils-fnid-call #[(flags) "\305\306!r\nq\210	\307 \210)\310\311\312\n\312\f&\210\n*\207" [default-directory cd b cedet-idutils-file-command flags get-buffer-create "*CEDET fnid*" erase-buffer apply call-process nil] 7 (#$ . 1956)])
#@90 Call ID Utils lid with the list of FLAGS.
Return the created buffer with program output.
(defalias 'cedet-idutils-lid-call #[(flags) "\305\306!r\nq\210	\307 \210)\310\311\312\n\312\f&\210\n*\207" [default-directory cd b cedet-idutils-token-command flags get-buffer-create "*CEDET lid*" erase-buffer apply call-process nil] 7 (#$ . 2309)])
#@91 Call ID Utils mkid with the list of FLAGS.
Return the created buffer with program output.
(defalias 'cedet-idutils-mkid-call #[(flags) "\305\306!r\nq\210	\307 \210)\310\311\312\n\312\f&\210\n*\207" [default-directory cd b cedet-idutils-make-command flags get-buffer-create "*CEDET mkid*" erase-buffer apply call-process nil] 7 (#$ . 2660)])
#@89 Expand the FILENAME with ID Utils.
Return a filename relative to the default directory.
(defalias 'cedet-idutils-expand-filename #[(filename) "r\302C!q\210eb\210\303\304!\203\305\306!\202\307\310 \311\312#)\313\314	\"\315\316!\203M	\203I	G\317U\203=\320\321	@\"\210\202M\320\322	@	AG#\210\202M\305\323!\210	)\207" [filename ans cedet-idutils-fnid-call looking-at "[^ \n]*fnid: " error "ID Utils not available" split-string buffer-string "\n" t mapcar expand-file-name called-interactively-p interactive 1 message "%s" "%s + %d others" "No file found"] 4 (#$ . 3013) "sFile: "])
#@192 Return non-nil if ID Utils has a support file for DIR.
If DIR is not supplied, use the current default directory.
This works by running lid on a bogus symbol, and looking for
the error code.
(defalias 'cedet-idutils-support-for-directory #[(&optional dir) "\212\206	\3021\303\304!q\210eb\210\305\306!?\205\3070\202!\210\310*\207" [dir default-directory (error) cedet-idutils-fnid-call ("moose") looking-at "[^ \n]*fnid: " t nil] 2 (#$ . 3610)])
#@181 Check the version of the installed ID Utils command.
If optional programmatic argument NOERROR is non-nil,
then instead of throwing an error if Global isn't available,
return nil.
(defalias 'cedet-idutils-version-check #[(&optional noerror) "\304\305!\210\3061\307\310C!0\202\210\311\311\211\204'\312\313!\203#\314\315!\210\311\202ar	q\210eb\210\316\317\311\320#\203=\321\322!\202?\323\324\311\n#\203T?\205`\325\326\n#\202`\312\313!\203_\314\327\"\210\320)*\207" [rev b cedet-idutils-min-version noerror require inversion (error) cedet-idutils-fnid-call "--version" nil called-interactively-p interactive message "ID Utils not found." re-search-forward "fnid - \\([0-9.]+\\)" t match-string 1 "0" inversion-check-version error "Version of ID Utils is %s.  Need at least %s" "ID Utils %s  - Good enough for CEDET."] 5 (#$ . 4071) nil])
#@94 Create an IDUtils database in DIR.
IDUtils must start from scratch when updating a database.
(defalias 'cedet-idutils-create/update-database #[(&optional dir) "\302\303!)\207" [dir default-directory cedet-idutils-mkid-call nil] 2 (#$ . 4933) "DDirectory: "])
(provide 'cedet-idutils)