WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet/semantic
Viewing File: /usr/share/emacs/24.3/lisp/cedet/semantic/db-ebrowse.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:56:52 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/db-ebrowse.el
;;; in Emacs version 24.3.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\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" (#$ . 668))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314$\210\310\315\316\317\320$\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 eieio-defclass semanticdb-table-ebrowse (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.")) ("A table for returning search results from ebrowse.") semanticdb-project-database-ebrowse (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)) ("Semantic Database deriving tags using the EBROWSE tool.\nEBROWSE is a C/C++ parser for use with `ebrowse' Emacs program.")] 8)
#@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\310\311\312\217\210eb\210\313\314!*\207" [semanticdb-ebrowse-file-match file tmp string-match "/\\w+$" file-directory-p get-buffer-create "*semanticdb-ebrowse-tmp*" nil (insert-file-contents file nil 0 100 t) ((error (byte-code "\301\302\211\211\303%\207" [file insert-file-contents nil t] 6))) looking-at "\\s-*/\\(\\*\\|/\\)"] 3 (#$ . 2249)])
#@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 (#$ . 2739) "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 (#$ . 3889) 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	\"\207\310!\211\311P\n\312P\313 \314\216r\315\316!q\210p\317 \210\320\211 !\321\211\"\321#$\322 \210\323\324!\210+\211%&\325\326!\210\325\n!\210\325\327!\210\325!\210\325\327!\210\330\f!\203l\325\f!\210\325\327!\210\331%!\210+\332\333\334\"!\205\214\335\n!\210\335!\210\330\f!\205\214\335\f!-\207" [directory semanticdb-project-database-ebrowse BF BFL BFLB #1=#:wconfig file-directory-p semanticdb-create-database semanticdb-ebrowse-file-for-directory "-load.el" "-load.el~" current-window-configuration ((set-window-configuration #1#)) 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 default-directory #2=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #3=#:buf standard-output] 5 (#$ . 4202)])
(byte-code "\306\307\310BC\311\312#\210\313\314\312\"\210\210)\315\310\312\316\n!\306	\2046
\211\2046\2055\317\f\"	\203`\204`	\320N\203O\317\f	\320N\"\211\2046	\211\321N\206Z	\322N)\211\204:,\323\324#\210\325\326\327\326\330\"\"\210\331\326\306\332\333$\207" [#1=#:tmp0 mode symbol bind name mode-local-active-mode 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-symbol-table mode-local-parent derived-mode-parent variable-documentation "Search Ebrowse for symbols." eieio--defalias semanticdb-needs-refresh-p eieio--defgeneric-init-form #2="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." eieio--defmethod semanticdb-table-ebrowse #[(table) "\300\207" [nil] 1 #2#] major-mode] 5)
#@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 (#$ . 6595)])
#@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] ((byte-code "\301 \210\302M\207" [efcn erase-buffer ebrowse-show-fcn] 2)) ebrowse-read] 3 (#$ . 6989)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\300\310\302\310\311\"\"\210\304\310\312\306\313$\207" [eieio--defalias semanticdb-create-database eieio--defgeneric-init-form #1="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." eieio--defmethod :STATIC semanticdb-project-database-ebrowse #[(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 #1#] semanticdb-ebrowse-strip-trees #2="For the ebrowse database DBE, strip all tables from DATA." nil #[(dbe data) "A@	\205\225	@\211\306H>\204\307\310\311\312#\210\n\313H\211\306H
>\204+\307\310\314\315#\210\f\316H\206B\f\306H
>\204?\307\310\317\315#\210\f\320H\n\211\306H>\204T\307\310\311\312#\210\n\313H\306H>\204e\307\310\321\322#\210\n\306H>\204s\307\310\311\312#\210\n\313H\313H\230)\203\210\323\n\"\210\202\216\324\n\"\210	A+\202)\207" [data T tree cl-struct-ebrowse-ts-tags class cl-struct-ebrowse-cs-tags 0 error "%s accessing a non-%s" ebrowse-ts-class ebrowse-ts 1 ebrowse-cs-source-file ebrowse-cs 7 ebrowse-cs-file 4 ebrowse-bs-name ebrowse-bs semanticdb-ebrowse-add-globals-to-table semanticdb-ebrowse-add-tree-to-table filename cl-struct-ebrowse-bs-tags ebrowse-globals-name dbe] 5 #2#]] 5)
#@56 For database DBE, add the ebrowse TREE into the table.
(defalias 'semanticdb-ebrowse-add-globals-to-table #[(dbe tree) "\306!\203NG\307Y\203N\310H	>\203N\211\310H	>\204%\311\312\313\314#\210\315H\310H\n>\2045\311\312\316\317#\210\310H	>\204C\311\312\313\314#\210\315H\315H\230)\204U\320\321\322D\"\210\310H	>\204c\311\312\313\314#\210\315H\211\310H
>\204u\311\312\323\324#\210\f\325H\206\223\f\310H
>\204\211\311\312\326\324#\210\f\327H\206\223%\330P&\310H	>\204\243\311\312\331\314#\210\327H'\310H	>\204\266\311\312\332\314#\210\333H(\334)'\203.'@\310H*>\204\324\311\312\335\336#\210'@\315H\337\334+\211,\f\340+!\334\211\257+\f\310H\n>\204\371\311\312\341\317#\210\f\342H-.-\203.\343-\211\"/\21100\3270\233)/\240\210*.)B)*'A\211'\204\303(\205\237(@\310H*>\204D\311\312\335\336#\210(@\315H\344\334+\211,\f\340+!\334\211\257+\f\310H\n>\204i\311\312\341\317#\210\f\342H-.-\203\215.\343-\211\"/\21100\3270\233)/\240\210*.)B)*(A\211(\2043\334-\207" [tree cl-struct-ebrowse-ts-tags cl-struct-ebrowse-bs-tags ebrowse-globals-name class cl-struct-ebrowse-cs-tags vectorp 11 0 error "%s accessing a non-%s" ebrowse-ts-class ebrowse-ts 1 ebrowse-bs-name ebrowse-bs signal wrong-type-argument ebrowse-ts-p ebrowse-cs-source-file ebrowse-cs 7 ebrowse-cs-file 4 "/unknown-proxy.hh" ebrowse-ts-member-functions ebrowse-ts-member-variables 3 nil ebrowse-ms-name ebrowse-ms variable semantic-tag-make-plist ebrowse-bs-point 6 vector function default-directory fname vars fns toks cl-struct-ebrowse-ms-tags attributes name defpoint nt overlay tag] 6 (#$ . 9701)])
#@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\313D\"\210\n\204\214\310H	>\204.\314\315\316\317#\210\320H\310H>\204>\314\315\321\322#\210\310H	>\204L\314\315\316\317#\210\320H\323H\206\213\310H	>\204b\314\315\316\317#\210\320H\310H>\204r\314\315\324\322#\210\310H	>\204\200\314\315\316\317#\210\320H\325H\206\213\f\326P\327
\n\"\206\227\330
\n\"9\310H	>\204\247\314\315\316\317#\210\320H\211:\310H>\204\272\314\315\331\322#\210:\332H\211;\205\312\333;\334\335#<\336\211=><\203\3379\340\"\205\344\3419\340\"?\342<@?\"\211=\204<@\343\344\345D@:\211A:\346@!\336\211\257+=\3479\340=?B#\210):\310H>\204)\314\315\350\322#\210:\320H\343\344\351\352B\353\335\354\n\257@:\211A:\346@!\336\211\257+>:\310HC>\204]\314\315\355\356#\210:\357H\211D\203>\360D\211\"E\211FF\325F\233)E\240\210*)=\203\312=\361>=\361GF\362FF\332F8)G\"*BHG\211F\211FAA)\211I:\203\303I\346\363I@GH#!\240\210F\210,\202\340\3479\340>\3379\340\"\205\335\3419\340\"B#\210\310H	>\204\356\314\315\364\317#\210\332HJ:\310H>\204\314\315\350\322#\210:\320HK:\310H>\204\314\315\331\322#\210:\332H\203+\365\366<A\367#\367KQKJ\205\215J@\310H	>\204@\314\315\316\317#\210J@\320H\211L\310H>\204U\314\315\321\322#\210L\323H\206sL\310H>\204k\314\315\324\322#\210L\325H\206s\n\211\203\202\370
J@\nK$\210*JA\211J\2040\336.\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 error "%s accessing a non-%s" ebrowse-ts-class ebrowse-ts 1 ebrowse-cs-source-file ebrowse-cs 7 ebrowse-cs-file 4 "/unknown-proxy.hh" semanticdb-file-table semanticdb-create-table ebrowse-cs-scope 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 ebrowse-cs-name "class" :superclasses :faux :filename ebrowse-bs-point ebrowse-bs 6 vector :members plist-get plist-put ebrowse-ts-subclasses 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 (#$ . 11351)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\300\310\302\310\311\"\"\210\304\310\305\306\312$\210\300\313\302\313\314\"\"\210\304\313\305\306\315$\210\300\316\302\316\317\"\"\210\304\316\305\306\320$\210\300\321\302\321\322\"\"\210\304\321\305\306\323$\210\300\324\302\324\325\"\"\210\304\324\305\306\326$\210\300\327\302\327\330\"\"\210\304\327\305\306\331$\210\300\332\302\332\333\"\"\210\304\332\305\306\334$\210\300\335\302\335\336\"\"\210\304\335\305\306\337$\210\300\340\302\340\341\"\"\210\304\340\305\306\342$\210\343\344!\207" [eieio--defalias semanticdb-normalize-tags eieio--defgeneric-init-form #1="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." eieio--defmethod nil semanticdb-table-ebrowse #[(obj tags) "\306	\203\236	@\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\306\321\322\217)\203\221\fB\202\226\323\f\"*	A)\202)\207" [tagret tags tag obj ans o nil semanticdb-set-buffer semantic-tag-with-position-p 4 semantic-overlay-p semantic-overlay-start 0 semantic-current-tag semantic-something-to-tag-table semantic-flatten-tags-table semantic-fetch-tags (byte-code ":\205#@;\205#A@9\205#A@\205#\3018<\205#\3028<\207" [tag 2 3] 2) ((error)) append foundtag semantic-case-fold case-fold-search result] 4 #1#] semanticdb-normalize-one-tag #2="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." #[(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@BA\211\204g\237+\f\306\322\323\217)\203\234\f\202\237\f@*	*B\207" [objret tagret obj semanticdb-current-table ans tag nil semanticdb-set-buffer debug semantic-tag-with-position-p 4 semantic-overlay-p semantic-overlay-start 0 semantic-current-tag semantic-something-to-tag-table semantic-flatten-tags-table semantic-fetch-tags (byte-code ":\205#@;\205#A@9\205#A@\205#\3018<\205#\3028<\207" [tag 2 3] 2) ((error)) o foundtag semantic-case-fold case-fold-search result tags] 4 #2#] semanticdb-find-tags-by-name-method #3="Find all tags named NAME in TABLE.\nReturn a list of tags." #[(table name &optional tags) "\203\301 \207\301 \207" [tags call-next-method] 1 #3#] 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.\nReturn a list of tags." #[(table regex &optional tags) "\203\301 \207\301 \207" [tags call-next-method] 1 #4#] semanticdb-find-tags-for-completion-method #5="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." #[(table prefix &optional tags) "\203\301 \207\301 \207" [tags call-next-method] 1 #5#] semanticdb-find-tags-by-class-method #6="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." #[(table class &optional tags) "\203\301 \207\301 \207" [tags call-next-method] 1 #6#] semanticdb-deep-find-tags-by-name-method #7="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." #[(table name &optional tags) "\300 \207" [call-next-method] 1 #7#] semanticdb-deep-find-tags-by-name-regexp-method #8="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." #[(table regex &optional tags) "\300 \207" [call-next-method] 1 #8#] semanticdb-deep-find-tags-for-completion-method #9="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." #[(table prefix &optional tags) "\300 \207" [call-next-method] 1 #9#] semanticdb-find-tags-external-children-of-type-method #10="Find all nonterminals which are child elements of TYPE\nOptional argument TAGS is a list of tags to search.\nReturn a list of tags." #[(table type &optional tags) "\205\301 \207" [tags call-next-method] 1 #10#] provide semantic/db-ebrowse] 5)
F1l3 Manager
