Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
ede	[ DIR ]	drwxr-xr-x
semantic	[ DIR ]	drwxr-xr-x
srecode	[ DIR ]	drwxr-xr-x
cedet-cscope.elc	4.4 KB	-rw-r--r--
cedet-files.elc	2.41 KB	-rw-r--r--
cedet-global.elc	5.34 KB	-rw-r--r--
cedet-idutils.elc	5.2 KB	-rw-r--r--
cedet.elc	3.59 KB	-rw-r--r--
data-debug.elc	28.3 KB	-rw-r--r--
ede.elc	45.1 KB	-rw-r--r--
inversion.elc	12.96 KB	-rw-r--r--
mode-local.elc	31.84 KB	-rw-r--r--
pulse.elc	6.62 KB	-rw-r--r--
semantic.elc	45.79 KB	-rw-r--r--
srecode.elc	776 B	-rw-r--r--

Code Editor : cedet-idutils.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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)
#@471 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\202E�\n\320\267\202B�\321	P\316\322D\202E�\316C\202E�\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(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (tagcompletions 51 regexp 61)) "^" "-s" "-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 (#$ . 2062)])
#@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 (#$ . 2415)])
#@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 (#$ . 2766)])
#@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 (#$ . 3119) "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 (#$ . 3716)])
#@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\202a�r	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 (#$ . 4177) 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 (#$ . 5039) "DDirectory: "])
(provide 'cedet-idutils)

${this.title}

Code Editor : cedet-idutils.elc