ikan Uploader :
Directory : /proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/
Upload File : |
| Current File : //proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/db-el.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 semantic/db eieio-opt defalias semanticdb-table-emacs-lisp-p eieio-make-class-predicate semanticdb-table-emacs-lisp semanticdb-table-emacs-lisp--eieio-childp eieio-make-child-predicate semanticdb-table-emacs-lisp-child-p make-obsolete "use (cl-typep ... 'semanticdb-table-emacs-lisp) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (semanticdb-abstract-table) ((major-mode :initform emacs-lisp-mode)) (:documentation "A table for returning search results from Emacs.")] 5)
#@66 Create a new object of class type `semanticdb-table-emacs-lisp'.
(defalias 'semanticdb-table-emacs-lisp #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semanticdb-table-emacs-lisp] 4 (#$ . 1080)])
(function-put 'semanticdb-table-emacs-lisp 'compiler-macro 'semanticdb-table-emacs-lisp--anon-cmacro)
(defalias 'semanticdb-table-emacs-lisp--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])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\313\314\315\316!\"\210\313\317\320\316!\"\210\313\321\317\"\210\322\321\323\324#\210\325\316\326\317#\210\327\316\330\331\332$\207" [cl-generic-define-method semanticdb-refresh-table nil ((obj semanticdb-table-emacs-lisp) &optional force) #[(obj &optional force) "\300\207" [nil] 1 "Do not refresh Emacs Lisp table.\nIt does not need refreshing."] semanticdb-needs-refresh-p ((obj semanticdb-table-emacs-lisp)) #[(obj) "\300\207" [nil] 1 "Return nil, we never need a refresh."] object-print ((obj semanticdb-table-emacs-lisp) &rest strings) #[(obj &rest strings) "\302\303\304 B#\207" [obj strings apply call-next-method " (proxy)"] 5 "Pretty printer extension for `semanticdb-table-emacs-lisp'.\nAdds the number of tags in this file to the object print name.\n\n(fn OBJ &rest STRINGS)"] defalias semanticdb-project-database-emacs-lisp-p eieio-make-class-predicate semanticdb-project-database-emacs-lisp semanticdb-project-database-emacs-lisp--eieio-childp eieio-make-child-predicate semanticdb-project-database-emacs-lisp-child-p make-obsolete "use (cl-typep ... 'semanticdb-project-database-emacs-lisp) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (semanticdb-project-database eieio-singleton) ((new-table-class :initform semanticdb-table-emacs-lisp :type class :documentation "New tables created for this database are of this class.")) (:documentation "Database representing Emacs core.")] 6)
#@77 Create a new object of class type `semanticdb-project-database-emacs-lisp'.
(defalias 'semanticdb-project-database-emacs-lisp #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semanticdb-project-database-emacs-lisp] 4 (#$ . 3146)])
(function-put 'semanticdb-project-database-emacs-lisp 'compiler-macro 'semanticdb-project-database-emacs-lisp--anon-cmacro)
(defalias 'semanticdb-project-database-emacs-lisp--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])
(byte-code "\306\307\310\311\310\312%\210\313\314!C\315\316BC\317\320#\210\321\322\320\"\210)\323\316\320\324\n!\310 \204?
\211\204? <\205> \325\f\" \203i \204i \326N\203X \325\f \326N\"\211\204? \211\327N\206c \330N)\211\204C ,\331\332#\210\333 =\315\334=BC\317\320#\210\321\335\320\"\210)\323\334\320\324\n!\310 \204\245
\211\204\245 <\205\244 \325\f\" \203\317 \204\317 \326N\203\276 \325\f \326N\"\211\204\245 \211\327N\206\311 \330N)\211\204\251 ,\331\336#\210\306\337\310\340\341\342%\210\306\343\310\344\310\345%\210\306\346\310\347\310\350%\210\306\351\310\352\310\353%\210\306\354\310\355\310\356%\210\306\357\310\360\310\361%\210\306\362\310\363\310\364%\210\365\366\367\"\210\370\371\366\"\210\372\371\366\373#\207" [#1=#:tmp0 mode symbol bind name mode-local-active-mode cl-generic-define-method object-print nil ((obj semanticdb-project-database-emacs-lisp) &rest strings) #[(obj &rest strings) "\303\304\305!\210\306\307 \310\311\"\nB#)\207" [count obj strings 0 mapatoms #[(sym) "T\211\207" [count] 2] apply call-next-method format " (%d known syms)"] 6 "Pretty printer extension for `semanticdb-table-emacs-lisp'.\nAdds the number of tags in this file to the object print name.\n\n(fn OBJ &rest STRINGS)"] semanticdb-project-database-emacs-lisp "Emacs" mode-local-bind semanticdb-project-system-databases (mode-variable-flag t) emacs-lisp-mode mode-local-map-mode-buffers #[nil "\302\301!\210\211\207" [#1# semanticdb-project-system-databases make-local-variable] 2] put symbol-name intern-soft mode-local-symbol-table mode-local-parent derived-mode-parent variable-documentation "Search Emacs core for symbols." (project omniscience) semanticdb-find-default-throttle #[nil "\302\301!\210\211\207" [#3=#:tmp0 semanticdb-find-default-throttle make-local-variable] 2] "Search project files, then search this omniscience database.\nIt is not necessary to do system or recursive searching because of\nthe omniscience database." semanticdb-get-database-tables ((obj semanticdb-project-database-emacs-lisp)) t #[(#2=#:cl--cnm obj) "\303\304\"\204 \305\306!\307\304 C#\210\307 \310#\210\307 \311\312#\210)\n \207" [obj newtable #2# slot-boundp tables semanticdb-table-emacs-lisp "Emacs System Table" eieio-oset parent-db tags nil] 4 "For an Emacs Lisp database, there are no explicit tables.\nCreate one of our special tables that can act as an intermediary."] semanticdb-file-table ((obj semanticdb-project-database-emacs-lisp) filename) #[(obj filename) "\301!@\207" [obj semanticdb-get-database-tables] 2 "From OBJ, return FILENAME's associated table object.\nFor Emacs Lisp, creates a specialized table."] semanticdb-get-tags ((table semanticdb-table-emacs-lisp)) #[(table) "\300\207" [nil] 1 "Return the list of tags belonging to TABLE."] semanticdb-equivalent-mode ((table semanticdb-table-emacs-lisp) &optional buffer) #[(table &optional buffer) "rq\210 \206 \n)\303=\207" [buffer mode-local-active-mode major-mode emacs-lisp-mode] 2 "Return non-nil if TABLE's mode is equivalent to BUFFER.\nEquivalent modes are specified by the `semantic-equivalent-major-modes'\nlocal variable."] semanticdb-full-filename ((obj semanticdb-table-emacs-lisp)) #[(obj) "\300\207" [nil] 1 "Fetch the full filename that OBJ refers to.\nFor Emacs Lisp system DB, there isn't one."] semanticdb-normalize-tags ((obj semanticdb-table-emacs-lisp) tags) #[(obj tags) "\306 \306\211\203\" @\307\f\n\"\211 A\211 B* A\211\204\n *\237)\207" [newtags tags T --dolist-tail-- obj ot nil semanticdb-normalize-one-tag tag] 4 "Convert tags, originating from Emacs OBJ, into standardized form."] semanticdb-normalize-one-tag ((obj semanticdb-table-emacs-lisp) tag) #[(obj tag) "\306\211\211A@) *=\203 \307\202% \310\211\211A@) *=\205% \311\312\211@)!\3131: \314 \n\"0\202? \314 !)\211 \203J \315
!\204Q B\202\330 \316\317
\"\203p \320
!\321P\315
!\204p \315
\322P!\203p
\322P\323
!\211 \205} \324! \205\215 \325\211@)\" \326 \204\235 \202\315 \326 \211 \203\302 @ \327 \"\203\271 A\211 \204\250 * \204\315 @ \205\327 B,+\207" [tag class type sym err file function defun variable defvar intern (error) symbol-file file-exists-p string-match "\\.elc" file-name-sans-extension ".el" ".gz" semanticdb-file-table-object semanticdb-get-tags semanticdb-find-tags-by-name-method nil semantic-tag-similar-p obj tab alltags newtags match T --dolist-tail--] 4 "Convert one TAG, originating from Emacs OBJ, into standardized form.\nIf Emacs cannot resolve this symbol to a particular file, then return nil."] autoload help-function-arglist "help-fns" defalias semanticdb-elisp-sym-function-arglist make-obsolete "CEDET 1.1" major-mode #3#] 6)
#@80 Convert SYM into a semantic tag.
TOKTYPE is a hint to the type of tag desired.
(defalias 'semanticdb-elisp-sym->tag #[(sym &optional toktype) ";\203 \306!\205\361 \307=\203Q \310!\203Q \311\312!\210\313!\211<\204( \314\315!\314\316\n!\317\3201; \321!0\202= \210\314D %\322\323%\307\324
\325\f &-\207 \326=\203x \327!\203x \315!\314\211\211 & %\322\323%\326\324
\330& &,\207 \305=\203\311 \331!\203\311 \315!\332\316\333! '\310\334!\203\233 \334'!\202\242 \335\336\337'!\")!\316\340!!\314 ( ) %\322\323%\305\324
\341)\342(@\343(A &\f-\207 \204\360 \331!\203\330 \344\305\"\207\310!\203\343 \344\307\"\207\327!\203\356 \344\326\"\207\314\207\314\207" [sym toktype arglist attributes arg-list type intern-soft function fboundp require semantic/bovine/el help-function-arglist nil symbol-name semantic-elisp-desymbolify :user-visible-flag (error) interactive-form apply semantic-tag :type :arguments variable boundp :default-value class-p "class" find-class eieio--class-public-a mapcar eieio-slot-descriptor-name eieio-class-slots eieio-class-parents :members :superclasses :interfaces semanticdb-elisp-sym->tag name default-value class parents members] 14 (#$ . 8506)])
#@45 Variable used to collect `mapatoms' output.
(defvar semanticdb-elisp-mapatom-collector nil (#$ . 9722))
(byte-code "\300\301\302\303\304\305%\210\300\306\302\307\304\310%\210\300\311\302\312\304\313%\210\300\314\302\315\304\316%\210\300\317\302\320\302\321%\210\300\322\302\323\302\324%\210\300\325\302\326\302\327%\210\300\330\302\331\304\332%\210\333\334!\207" [cl-generic-define-method semanticdb-find-tags-by-name-method nil ((table semanticdb-table-emacs-lisp) name &optional tags) t #[(#1=#:cl--cnm table name &optional tags) "\203 \207\306\n!\307 \310\" \307 \311\" \307 \312\" \f\313
\f\204+
\204+ \f\205M
\2035
B
\f\203A \f
B
\f\203K \f
B
-\207" [tags #1# name sym fun var intern-soft semanticdb-elisp-sym->tag function variable type nil typ taglst] 3 "Find all tags named NAME in TABLE.\nUses `intern-soft' to match NAME to Emacs symbols.\nReturn a list of tags."] semanticdb-find-tags-by-name-regexp-method ((table semanticdb-table-emacs-lisp) regex &optional tags) #[(#2=#:cl--cnm table regex &optional tags) "\203 \207\303\304\305\306\307\n!\"\"\207" [tags #2# regex delq nil mapcar semanticdb-elisp-sym->tag apropos-internal] 6 "Find all tags with name matching REGEX in TABLE.\nOptional argument TAGS is a list of tags to search.\nUses `apropos-internal' to find matches.\nReturn a list of tags."] semanticdb-find-tags-for-completion-method ((table semanticdb-table-emacs-lisp) prefix &optional tags) #[(#3=#:cl--cnm table prefix &optional tags) "\203 \207\304\305\306\307\310\n \"\"\"\207" [tags #3# prefix obarray delq nil mapcar semanticdb-elisp-sym->tag all-completions] 7 "In TABLE, find all occurrences of tags matching PREFIX.\nOptional argument TAGS is a list of tags to search.\nReturns a table of all matching tags."] semanticdb-find-tags-by-class-method ((table semanticdb-table-emacs-lisp) class &optional tags) #[(#4=#:cl--cnm table class &optional tags) "\205 \207" [tags #4#] 1 "In TABLE, find all occurrences of tags of CLASS.\nOptional argument TAGS is a list of tags to search.\nReturns a table of all matching tags."] semanticdb-deep-find-tags-by-name-method ((table semanticdb-table-emacs-lisp) name &optional tags) #[(table name &optional tags) "\303 \n#\207" [table name tags semanticdb-find-tags-by-name-method] 4 "Find all tags name NAME in TABLE.\nOptional argument TAGS is a list of tags to search.\nLike `semanticdb-find-tags-by-name-method' for Emacs Lisp."] semanticdb-deep-find-tags-by-name-regexp-method ((table semanticdb-table-emacs-lisp) regex &optional tags) #[(table regex &optional tags) "\303 \n#\207" [table regex tags semanticdb-find-tags-by-name-regexp-method] 4 "Find all tags with name matching REGEX in TABLE.\nOptional argument TAGS is a list of tags to search.\nLike `semanticdb-find-tags-by-name-method' for Emacs Lisp."] semanticdb-deep-find-tags-for-completion-method ((table semanticdb-table-emacs-lisp) prefix &optional tags) #[(table prefix &optional tags) "\303 \n#\207" [table prefix tags semanticdb-find-tags-for-completion-method] 4 "In TABLE, find all occurrences of tags matching PREFIX.\nOptional argument TAGS is a list of tags to search.\nLike `semanticdb-find-tags-for-completion-method' for Emacs Lisp."] semanticdb-find-tags-external-children-of-type-method ((table semanticdb-table-emacs-lisp) type &optional tags) #[(#5=#:cl--cnm table type &optional tags) "\203 \207\304\305!\205 \306\n!\211\205 \307\310\311\312\313 !\"\")\207" [tags #5# type class featurep eieio intern-soft delq nil mapcar semanticdb-elisp-sym->tag cl-generic-all-functions] 7 "Find all nonterminals which are child elements of TYPE\nOptional argument TAGS is a list of tags to search.\nReturn a list of tags."] provide semantic/db-el] 6)
Kontol Shell Bypass