Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/db-ebrowse.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\300\303!\207" [require ebrowse semantic semantic/db-file] 2)
#@47 The EBROWSE file name used for system caches.
(defvar semanticdb-ebrowse-default-file-name "BROWSE" (#$ . 508))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313!\"\210\310\314\315\313!\"\210\310\316\314\"\210\317\316\320\321#\210\322\313\323\314#\324\313\325\326\327$\207" [custom-declare-variable semanticdb-ebrowse-file-match "\\.\\(hh?\\|HH?\\|hpp\\)" "Regular expression matching file names for ebrowse to parse.\nThis expression should exclude C++ headers that have no extension.\nBy default, include only headers since the semantic use of EBrowse\nis only for searching via semanticdb, and thus only headers would\nbe searched." :group semanticdb :type string defalias semanticdb-table-ebrowse-p eieio-make-class-predicate semanticdb-table-ebrowse semanticdb-table-ebrowse--eieio-childp eieio-make-child-predicate semanticdb-table-ebrowse-child-p make-obsolete "use (cl-typep ... \\='semanticdb-table-ebrowse) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semanticdb-table) ((major-mode :initform c++-mode) (ebrowse-tree :initform nil :initarg :ebrowse-tree :documentation "The raw ebrowse tree for this file.") (global-extract :initform nil :initarg :global-extract :documentation "Table of ebrowse tags specific to this file.\nThis table is composited from the ebrowse *Globals* section.")) (:documentation "A table for returning search results from ebrowse.")] 8)
#@63 Create a new object of class type `semanticdb-table-ebrowse'.
(defalias 'semanticdb-table-ebrowse #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semanticdb-table-ebrowse] 4 (#$ . 1940)])
(byte-code "\300\301\302\303#\300\207" [function-put semanticdb-table-ebrowse compiler-macro semanticdb-table-ebrowse--anon-cmacro] 4)
(defalias 'semanticdb-table-ebrowse--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!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias semanticdb-project-database-ebrowse-p eieio-make-class-predicate semanticdb-project-database-ebrowse semanticdb-project-database-ebrowse--eieio-childp eieio-make-child-predicate semanticdb-project-database-ebrowse-child-p make-obsolete "use (cl-typep ... \\='semanticdb-project-database-ebrowse) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semanticdb-project-database) ((new-table-class :initform semanticdb-table-ebrowse :type class :documentation "New tables created for this database are of this class.") (system-include-p :initform nil :initarg :system-include :documentation "Flag indicating this database represents a system include directory.") (ebrowse-struct :initform nil :initarg :ebrowse-struct)) (:documentation "Semantic Database deriving tags using the EBROWSE tool.\nEBROWSE is a C/C++ parser for use with `ebrowse' Emacs program.")] 6)
#@74 Create a new object of class type `semanticdb-project-database-ebrowse'.
(defalias 'semanticdb-project-database-ebrowse #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semanticdb-project-database-ebrowse] 4 (#$ . 3551)])
(byte-code "\300\301\302\303#\300\207" [function-put semanticdb-project-database-ebrowse compiler-macro semanticdb-project-database-ebrowse--anon-cmacro] 4)
(defalias 'semanticdb-project-database-ebrowse--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])
#@26 Is FILE a C or C++ file?
(defalias 'semanticdb-ebrowse-C-file-p #[(file) "\303 \"\206< \303\304 \"\205< \305 !?\205< \306\307!r\nq\210\3101, \311 \312\313\314\315%0\2024 \210\311 \312\211\211\315%\210eb\210\316\317!*\207" [semanticdb-ebrowse-file-match file tmp string-match "/\\w+$" file-directory-p get-buffer-create "*semanticdb-ebrowse-tmp*" (error) insert-file-contents nil 0 100 t looking-at "\\s-*/\\(\\*\\|/\\)"] 6 (#$ . 4187)])
#@169 Create an EBROWSE database for directory DIR.
The database file is stored in ~/.semanticdb, or whichever directory
is specified by `semanticdb-default-save-directory'.
(defalias 'semanticdb-create-ebrowse-database #[(dir) "\306!\307!\310\311!\312\313!\314\"\f \315 !r\nq\210\316\n!\210\313!\"\317\320 \"\210r\310\321!q\210\322 \210)\323\324 \"\210\325ed\326\315\321\315\327 P\330&\210) \331P #\332#! $r$q\210\322 \210\333\313!\334\261\210\335 \210\336p!\210)\323\337 \"\210\340#\315\314#.\207" [dir savein filebuff files auto-mode-alist mma file-name-as-directory semanticdb-ebrowse-file-for-directory get-buffer-create "*SEMANTICDB EBROWSE TMP*" directory-files expand-file-name t nil buffer-disable-undo mapc #[(f) "\301!\205 c\210\302c\207" [f semanticdb-ebrowse-C-file-p "\n"] 2] "*EBROWSE OUTPUT*" erase-buffer message "Creating ebrowse file: %s ..." call-process-region "ebrowse" "--output-file=" "--very-verbose" "-load.el" find-file-noselect "(semanticdb-ebrowse-load-helper \"" "\")\n" save-buffer kill-buffer "Creating ebrowse file: %s ... done" load regexp default-directory lfn lf] 9 (#$ . 4633) "DDirectory: "])
#@48 Load all semanticdb controlled EBROWSE caches.
(defalias 'semanticdb-load-ebrowse-caches #[nil "\303\304 \305P\304$\211\205 \306\n@\307\304#\210\nA\211\204
\307)\207" [semanticdb-default-save-directory semanticdb-ebrowse-default-file-name f directory-files t "-load\\.el\\'" load nil] 6 (#$ . 5783) nil])
#@141 Create the semanticdb database via ebrowse for directory.
If DIRECTORY is found to be defunct, it won't load the DB, and will
warn instead.
(defalias 'semanticdb-ebrowse-load-helper #[(directory) "\306!\203 \307\310\"\207\311!\211\312P \313P\314 \315\216
r\316\317!q\210p\320 \210 \321\211 !\322\211\"\322 # $\323 \210\324\325!\210+\211 % &\326\327!\210\326 !\210\326\330!\210\326\n!\210\326\330!\210\331 !\203j \326 !\210\326\330!\210\332%!\210+\333\334\335\"!\205\212 \336 !\210\336\n!\210\331 !\205\212 \336 !-\207" [directory BF BFL BFLB #1=#:wconfig default-directory file-directory-p semanticdb-create-database semanticdb-project-database-ebrowse semanticdb-ebrowse-file-for-directory "-load.el" "-load.el~" current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] get-buffer-create "*FILES TO DELETE*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ "The following BROWSE files are obsolete.\n\n" "\n" file-exists-p internal-temp-output-buffer-show y-or-n-p format "Warning: Obsolete BROWSE file for: %s\nDelete? " delete-file #2=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #3=#:buf standard-output] 5 (#$ . 6100)])
(byte-code "\304\305\306BC\307\310#\210\311\312\310\"\210)\313\306\310\314!\304\2040 \211\262\2040 \n\262 \205. \315 \"\262\203[ \211\204[ \303N\203J \315\303N\"\211\262\2040 \211\316N\206T \211\317N\262\262\2020 \266\203\320\321#\210\322\323\304\324\304\325%\207" [#1=#:tmp0 mode-local-active-mode major-mode mode-local-symbol-table nil mode-local-bind semanticdb-project-system-databases (mode-variable-flag t) c++-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-parent derived-mode-parent variable-documentation "Search Ebrowse for symbols." cl-generic-define-method semanticdb-needs-refresh-p ((table semanticdb-table-ebrowse)) #[(table) "\300\207" [nil] 1 "EBROWSE database do not need to be refreshed.\n\nJAVE: stub for needs-refresh, because, how do we know if BROWSE files\n are out of date?\n\nEML: Our database should probably remember the timestamp/checksum of\n the most recently read EBROWSE file, and use that."]] 9)
#@128 Return the file name for DIR where the ebrowse BROWSE file is.
This file should reside in `semanticdb-default-save-directory'.
(defalias 'semanticdb-ebrowse-file-for-directory #[(dir) "\303\304\305 !\nP\")\207" [semanticdb-default-save-directory dir semanticdb-ebrowse-default-file-name semanticdb-file-name-directory semanticdb-project-database-file expand-file-name] 5 (#$ . 8447)])
#@250 Return the ebrowse structure for directory DIR.
This assumes semantic manages the BROWSE files, so they are assumed to live
where semantic cache files live, depending on your settings.
For instance: /home/<username>/.semanticdb/!usr!include!BROWSE
(defalias 'semanticdb-ebrowse-get-ebrowse-structure #[(dir) "\305!\306\307!\310\311 \"\210\312 !\2054 \nq\210\313\n!\210\314 \210\315 !\210\316\317K \317\320M\210\321\216 \322 D)\f**\207" [dir B buf efcn ans semanticdb-ebrowse-file-for-directory get-buffer-create "*semanticdb ebrowse*" message "semanticdb-ebrowse %s" file-exists-p buffer-disable-undo erase-buffer insert-file-contents nil ebrowse-show-progress #[(&rest junk) "\300\207" [nil] 1] #[nil "\301 \210\302M\207" [efcn erase-buffer ebrowse-show-fcn] 2] ebrowse-read] 3 (#$ . 8841)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\207" [cl-generic-define-method semanticdb-create-database nil ((dbeC (subclass semanticdb-project-database-ebrowse)) directory) #[(dbeC directory) "\306\307!\210\310 \204* \n\203* \311\n@!\203$ \312\n@\313\" \230\203$ \n@\nA\202 \314 !\211 A@\211 @ \310 \203F \202W \315 \316$\317\313 #\210\317\320\310#\210\321
\"\210\322 \323\"\210\322 \324\"\210.\207" [semanticdb-database-list found dbs directory ebrowse-data dat require semantic/dep nil semanticdb-project-database-ebrowse-p eieio-oref reference-directory semanticdb-ebrowse-get-ebrowse-structure make-instance :ebrowse-struct eieio-oset tables semanticdb-ebrowse-strip-trees semantic-add-system-include c++-mode c-mode ebd db default-directory dbeC] 6 "Create a new semantic database for DIRECTORY based on ebrowse.\nIf there is no database for DIRECTORY available, then\n{not implemented yet} create one. Return nil if that is not possible."] semanticdb-ebrowse-strip-trees ((dbe semanticdb-project-database-ebrowse) data) #[(dbe data) "A@ \205\255 @\211\306H >\204 \307\310\311\nD\"\210\n\312H\211 \306H
>\204- \307\310\313\fD\"\210\f\314H\206E \f\306H
>\204B \307\310\313\fD\"\210\f\315H \n\211\306H >\204W \307\310\311D\"\210\211\312H\306H>\204{ \307\310\316\306H >\204u \307\310\311D\"\210\312HD\"\210\211\306H >\204\212 \307\310\311D\"\210\211\312H\312H\230\262\203\240 \317\n\"\210\202\246 \320\n\"\210 A+\202 )\207" [data T tree cl-struct-ebrowse-ts-tags class cl-struct-ebrowse-cs-tags 0 signal wrong-type-argument ebrowse-ts 1 ebrowse-cs 7 4 ebrowse-bs semanticdb-ebrowse-add-globals-to-table semanticdb-ebrowse-add-tree-to-table filename cl-struct-ebrowse-bs-tags ebrowse-globals-name dbe] 9 "For the ebrowse database DBE, strip all tables from DATA."]] 6)
#@56 For database DBE, add the ebrowse TREE into the table.
(defalias 'semanticdb-ebrowse-add-globals-to-table #[(dbe tree) "\306!\203c G\307Y\203c \310H >\203c \211\310H >\204% \311\312\313D\"\210\211\314H\310H\n>\204H \311\312\315\310H >\204B \311\312\313D\"\210\314HD\"\210\211\310H >\204W \311\312\313D\"\210\211\314H\314H \230\262\204j \311\312\316D\"\210\310H >\204y \311\312\313D\"\210\314H\211 \310H
>\204\214 \311\312\317\fD\"\210\f\320H\206\253 \f\310H
>\204\241 \311\312\317\fD\"\210\f\321H\206\253 \322P \310H >\204\274 \311\312\313D\"\210\321H \310H >\204\320 \311\312\313D\"\210\323H \324 \203L @\310H >\204\361 \311\312\325 @D\"\210 @\314H\326\324 ! \211 \"\f\327!!\324\211\257+\f\310H\n>\204\311\312\315\fD\"\210\f\330H # $#\203;$\331#\211\" %\211 & &\321&\233)%\240\210*$ B * A\211 \204\335 \205\301 @\310H >\204e\311\312\325 @D\"\210 @\314H\332\324 ! \211 \"\f\327!!\324\211\257+\f\310H\n>\204\213\311\312\315\fD\"\210\f\330H # $#\203\257$\331#\211\" %\211 & &\321&\233)%\240\210*$ B * A\211 \204Q\324-\207" [tree cl-struct-ebrowse-ts-tags cl-struct-ebrowse-bs-tags ebrowse-globals-name class cl-struct-ebrowse-cs-tags vectorp 11 0 signal wrong-type-argument ebrowse-ts 1 ebrowse-bs ebrowse-ts-p ebrowse-cs 7 4 "/unknown-proxy.hh" 3 nil ebrowse-ms variable semantic-tag-make-plist 6 vector function default-directory fname vars fns toks cl-struct-ebrowse-ms-tags attributes name defpoint nt overlay tag] 9 (#$ . 11493)])
#@146 For database DBE, add the ebrowse TREE into the table for FNAME.
Optional argument BASECLASSES specifies a baseclass to the tree being provided.
(defalias 'semanticdb-ebrowse-add-tree-to-table #[(dbe tree &optional fname baseclasses) "\306!\203 G\307Y\203 \310H >\204 \311\312\313D\"\210\n\204\264 \310H >\204/ \311\312\314D\"\210\315H\310H >\204Q \311\312\316\310H >\204K \311\312\314D\"\210\315HD\"\210\310H >\204` \311\312\314D\"\210\315H\317H\206\263 \310H >\204w \311\312\314D\"\210\315H\310H >\204\231 \311\312\316\310H >\204\223 \311\312\314D\"\210\315HD\"\210\310H >\204\250 \311\312\314D\"\210\315H\320H\206\263 \f\321P\322
\n\"\206\277 \323
\n\" 0\310H >\204\320 \311\312\314D\"\210\315H\211 1\310H >\204\345 \311\312\3161D\"\2101\324H\211 2\205\365 \3252\326\327# 3\330\211 4 53\203E\3310\332\"\205\3330\332\" 6\3343@6\"\2114\204D3@\335\336\337D 7 1\211 81\3407!\330\211\257+4\3410\33246B#\210)1\310H >\204V\311\312\3161D\"\2101\315H\335\336\342\3439\344\327\345\n\257 7 1\211 81\3407!\330\211\257+51\310H:>\204\214\311\312\3461D\"\2101\347H\211 ;\203\2565\350;\211\" <\211 = =\320=\233)<\240\210*)4\203\3664\35154\351 > =\352= =\324=8)>\"*B ? >\211 =\211 =AA)\211 @:\203\362@\340\353@@>?#!\240\210,\202\f\3410\3325\3310\332\"\205 \3330\332\"B#\210\310H >\204\311\312\314D\"\210\324H A1\310H >\2041\311\312\3161D\"\2101\315H B1\310H >\204H\311\312\3161D\"\2101\324H\203\\\354\3553A\356#\356BQBA\205\305A@\310H >\204t\311\312\314A@D\"\210A@\315H\211 C\310H >\204\213\311\312\316CD\"\210C\317H\206\253C\310H >\204\243\311\312\316CD\"\210C\320H\206\253\n\211\203\272\357
A@\nB$\210*AA\211A\204a\330.\207" [tree cl-struct-ebrowse-ts-tags fname cl-struct-ebrowse-cs-tags default-directory dbe vectorp 11 0 signal wrong-type-argument ebrowse-ts-p ebrowse-ts 1 ebrowse-cs 7 4 "/unknown-proxy.hh" semanticdb-file-table semanticdb-create-table 2 split-string ":" t nil slot-boundp tags eieio-oref semantic-find-first-tag-by-name type :type "namespace" semantic-tag-make-plist eieio-oset "class" :superclasses :faux :filename ebrowse-bs 6 vector :members plist-get plist-put mapconcat #[(a) "\207" [a] 1] "::" semanticdb-ebrowse-add-tree-to-table tab class scope ns nst cls taglst attributes name baseclasses cl-struct-ebrowse-bs-tags defpoint overlay tag attribute value plist-cdr subclass pname scc] 11 (#$ . 13006)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\312\313%\210\300\314\302\315\312\316%\210\300\317\302\320\312\321%\210\300\322\302\323\312\324%\210\300\325\302\326\312\327%\210\300\330\302\331\312\332%\210\300\333\302\334\312\335%\210\300\336\302\337\312\340%\210\341\342!\207" [cl-generic-define-method semanticdb-normalize-tags nil ((obj semanticdb-table-ebrowse) tags) #[(obj tags) "\306 \203\307 @\212\307 !\210\306 \310\n!\203H \n\211\311\n8) \312
!\203+ \313
!\202.
\314H*b\210\315 \n\211@)\211@)\230\203G )\f\204\200 \316\317\320 !!\306 \211\203{ \n\211@) @\211@)\230\203t @B A\211\204^ \237+\f\3211\255 \n:\205\251 \n@;\205\251 \nA@9\205\251 \nA@\205\251 \322\n8<\205\251 \323\n8<0\202\257 \210\306)\203\272 \fB\202\277 \324\f\"* A)\202 )\207" [tagret tags tag obj ans o nil semanticdb-set-buffer semantic-tag-with-position-p 4 overlayp overlay-start 0 semantic-current-tag semantic-something-to-tag-table semantic-flatten-tags-table semantic-fetch-tags (error) 2 3 append foundtag semantic-case-fold case-fold-search result] 4 "Convert in Ebrowse database OBJ a list of TAGS into a complete tag.\nThe default tag provided by searches exclude many features of a\nsemantic parsed tag. Look up the file for OBJ, and match TAGS\nagainst a semantic parsed tag that has all the info needed, and\nreturn that."] semanticdb-normalize-one-tag ((obj semanticdb-table-ebrowse) tag) #[(obj tag) "\306\211\212\307\n!\210 \211\204 \310 \210\306 \311
!\203P
\211 \312
8) \313!\2032 \314!\2026 \315H*b\210\316
\211 @)\211 @)\230\203O )\f\204\215 \317\320\321 !!\306 \211 \203\210
\211 @)@\211 @)\230\203 @BA\211\204g \237+\f \3221\272
:\205\266
@;\205\266
A@9\205\266
A@\205\266 \323
8<\205\266 \324
8<0\202\274 \210\306)\203\305 \f\202\310 \f@* *B\207" [objret tagret obj semanticdb-current-table ans tag nil semanticdb-set-buffer debug semantic-tag-with-position-p 4 overlayp overlay-start 0 semantic-current-tag semantic-something-to-tag-table semantic-flatten-tags-table semantic-fetch-tags (error) 2 3 o foundtag semantic-case-fold case-fold-search result tags] 4 "Convert in Ebrowse database OBJ one TAG into a complete tag.\nThe default tag provided by searches exclude many features of a\nsemantic parsed tag. Look up the file for OBJ, and match TAG\nagainst a semantic parsed tag that has all the info needed, and\nreturn that."] semanticdb-find-tags-by-name-method ((table semanticdb-table-ebrowse) name &optional tags) t #[(#1=#:cl--cnm table name &optional tags) "\203 \207 \207" [tags #1#] 1 "Find all tags named NAME in TABLE.\nReturn a list of tags."] semanticdb-find-tags-by-name-regexp-method ((table semanticdb-table-ebrowse) regex &optional tags) #[(#2=#:cl--cnm table regex &optional tags) "\203 \207 \207" [tags #2#] 1 "Find all tags with name matching REGEX in TABLE.\nOptional argument TAGS is a list of tags to search.\nReturn a list of tags."] semanticdb-find-tags-for-completion-method ((table semanticdb-table-ebrowse) prefix &optional tags) #[(#3=#:cl--cnm table prefix &optional tags) "\203 \207 \207" [tags #3#] 1 "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-ebrowse) class &optional tags) #[(#4=#:cl--cnm table class &optional tags) "\203 \207 \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-ebrowse) name &optional tags) #[(#5=#:cl--cnm table name &optional tags) " \207" [#5#] 1 "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 ebrowse."] semanticdb-deep-find-tags-by-name-regexp-method ((table semanticdb-table-ebrowse) regex &optional tags) #[(#6=#:cl--cnm table regex &optional tags) " \207" [#6#] 1 "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 ebrowse."] semanticdb-deep-find-tags-for-completion-method ((table semanticdb-table-ebrowse) prefix &optional tags) #[(#7=#:cl--cnm table prefix &optional tags) " \207" [#7#] 1 "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 ebrowse."] semanticdb-find-tags-external-children-of-type-method ((table semanticdb-table-ebrowse) type &optional tags) #[(#8=#:cl--cnm table type &optional tags) "\205 \207" [tags #8#] 1 "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-ebrowse] 6)
Mini Shell