ikan Uploader :
Directory : /proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/symref/
Upload File : |
| Current File : //proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/symref/idutils.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\303\304\305\306!\"\210\303\307\310\306!\"\210\303\311\307\"\210\312\311\313\314#\210\315\306\316\307#\210\317\306\320\321\322$\207" [require cedet-idutils semantic/symref defalias semantic-symref-tool-idutils-p eieio-make-class-predicate semantic-symref-tool-idutils semantic-symref-tool-idutils--eieio-childp eieio-make-child-predicate semantic-symref-tool-idutils-child-p make-obsolete "use (cl-typep ... 'semantic-symref-tool-idutils) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (semantic-symref-tool-baseclass) nil (:documentation "A symref tool implementation using ID Utils.\nThe udutils command set can be used to generate lists of tags in a way\nsimilar to that of `grep'. This tool will parse the output to generate\nthe hit list.\n\nSee the function `cedet-idutils-search' for more details.")] 5)
#@67 Create a new object of class type `semantic-symref-tool-idutils'.
(defalias 'semantic-symref-tool-idutils #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semantic-symref-tool-idutils] 4 (#$ . 1278)])
(function-put 'semantic-symref-tool-idutils 'compiler-macro 'semantic-symref-tool-idutils--anon-cmacro)
(defalias 'semantic-symref-tool-idutils--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(cl-generic-define-method 'semantic-symref-perform-search nil '((tool semantic-symref-tool-idutils)) nil #[(tool) "\302\303\304\"\303\305\"\303\306\"\303\307\"$\310 \")\207" [tool b cedet-idutils-search eieio-oref :searchfor :searchtype :resulttype :searchscope semantic-symref-parse-tool-output] 7 "Perform a search with IDUtils."])
(defconst semantic-symref-idutils--line-re "^\\(\\(?:[a-zA-Z]:\\)?[^:\n]+\\):\\([0-9]+\\):")
(byte-code "\300\301\302\303\302\304%\210\305\306!\207" [cl-generic-define-method semantic-symref-parse-tool-output-one-line nil ((tool semantic-symref-tool-idutils)) #[(tool) "\303\304\"\305=\203 \306\307\310\311#\205a \312\313!\207\303\314\"\315=\203* \306\316\310\311#\205a \312\313!\207\303\304\"\317=\203M \306 \310\311#\205a \320\312\321!!\322\312\313!\n\"\323`\324 \"E\207\306 \310\311#\205a \320\312\321!!\322\312\313!\n\"B\207" [tool semantic-symref-idutils--line-re default-directory eieio-oref :resulttype file re-search-forward "^\\([^\n]+\\)$" nil t match-string 1 :searchtype tagcompletions "^\\([^ ]+\\) " line-and-text string-to-number 2 expand-file-name buffer-substring-no-properties line-end-position] 5 "Parse one line of grep output, and return it as a match list.\nMoves cursor to end of the match."] provide semantic/symref/idutils] 6)
Kontol Shell Bypass