WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet/semantic
Viewing File: /usr/share/emacs/24.3/lisp/cedet/semantic/db.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:56:54 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/db.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!\207" [require eieio-base semantic] 2)
#@43 Refresh references to DBT in other files.
(autoload 'semanticdb-refresh-references "semantic/db-ref" '(#$ . 633))
(custom-declare-group 'semanticdb nil "Parser Generator Persistent Database interface." :group 'semantic)
#@31 List of all active databases.
(defvar semanticdb-database-list nil (#$ . 859))
#@198 The default type of database created for new files.
This can be changed on a per file basis, so that some directories
are saved using one mechanism, and some directories via a different
mechanism.
(defvar semanticdb-new-database-class 'semanticdb-project-database-file (#$ . 945))
(make-variable-buffer-local 'semanticdb-new-database-class)
#@128 The default type of search index to use for a `semanticdb-table's.
This can be changed to try out new types of search indices.
(defvar semanticdb-default-find-index-class 'semanticdb-find-search-index (#$ . 1293))
(make-variable-buffer-local 'semanticdb-default-find=index-class)
#@60 For a given buffer, this is the currently active database.
(defvar semanticdb-current-database nil (#$ . 1579))
(make-variable-buffer-local 'semanticdb-current-database)
#@66 For a given buffer, this is the currently active database table.
(defvar semanticdb-current-table nil (#$ . 1755))
(byte-code "\300\301!\210\302\303\304\305\306$\210\307\310\311\310\312\"\"\210\313\310\304\303\314$\210\307\315\311\315\316\"\"\210\313\315\304\303\317$\210\307\320\311\320\321\"\"\210\313\320\304\303\322$\210\307\323\311\323\324\"\"\210\313\323\304\303\325$\210\307\326\311\326\327\"\"\210\313\326\304\303\330$\210\307\331\311\331\332\"\"\210\313\331\304\303\333$\210\307\334\311\334\335\"\"\210\313\334\304\303\336$\210\307\337\311\337\340\"\"\210\313\337\304\303\341$\210\302\342\304\343\344$\210\307\345\311\345\346\"\"\210\313\345\304\303\347$\210\307\350\311\350\351\"\"\210\313\350\304\342\352$\210\307\353\311\353\354\"\"\210\313\353\304\342\355$\210\302\356\357\304\360$\210\307\361\311\361\362\"\"\210\313\361\304\356\363$\210\302\364\365\366\367$\210\307\310\311\310\370\"\"\210\313\310\304\364\371$\210\307\315\311\315\372\"\"\210\313\315\304\364\373$\210\307\374\311\374\375\"\"\210\313\374\304\364\376$\210\307\320\311\320\377\"\"\210\313\320\304\364\201@$\210\307\323\311\323\324\"\"\210\313\323\304\364\201A$\210\307\326\311\326\201B\"\"\210\313\326\304\364\201C$\210\307\337\311\337\201D\"\"\210\313\337\304\364\201E$\210\302\201F\201G\201H\201I$\210\307\320\311\320\321\"\"\210\313\320\304\201F\201J$\210\307\323\311\323\201K\"\"\210\313\323\304\201F\201L$\210\307\337\311\337\201M\"\"\210\313\337\304\201F\201N$\210\307\201O\311\201O\201P\"\"\210\313\201O\201Q\201F\201R$\210\307\201S\311\201S\201T\"\"\210\313\201S\304\201F\201U$\210\307\201V\311\201V\201W\"\"\210\313\201V\304\201F\201X$\210\307\201Y\311\201Y\201Z\"\"\210\313\201Y\304\201F\201[$\207" [make-variable-buffer-local semanticdb-current-table eieio-defclass semanticdb-abstract-table nil ((parent-db :documentation "Database Object containing this table.") (major-mode :initarg :major-mode :initform nil :documentation "Major mode this table belongs to.\nSometimes it is important for a program to know if a given table has the\nsame major mode as the current buffer.") (tags :initarg :tags :accessor semanticdb-get-tags :printer semantic-tag-write-list-slot-value :documentation "The tags belonging to this table.") (db-refs :initform nil :documentation "List of `semanticdb-table' objects refering to this one.\nThese aren't saved, but are instead recalculated after load.\nSee the file semanticdb-ref.el for how this slot is used.") (index :type semanticdb-abstract-search-index :documentation "The search index.\nUsed by semanticdb-find to store additional information about\nthis table for searching purposes.\n\nNote: This index will not be saved in a persistent file.") (cache :type list :initform nil :documentation "List of cache information for tools.\nAny particular tool can cache data to a database at runtime\nwith `semanticdb-cache-get'.\n\nUsing a semanticdb cache does not save any information to a file,\nso your cache will need to be recalculated at runtime.  Caches can be\nreferenced even when the file is not in a buffer.\n\nNote: This index will not be saved in a persistent file.")) ("A simple table for semantic tags.\nThis table is the root of tables, and contains the minimum needed\nfor a new table not associated with a buffer." :abstract t) eieio--defalias semanticdb-in-buffer-p eieio--defgeneric-init-form #1="Return a nil, meaning abstract table OBJ is not in a buffer." eieio--defmethod #[(obj) "\300\207" [nil] 1 #1#] semanticdb-get-buffer #2="Return a buffer associated with OBJ.\nIf the buffer is not in memory, load it with `find-file-noselect'." #[(obj) "\300\207" [nil] 1 #2#] semanticdb-full-filename #3="Fetch the full filename that OBJ refers to.\nAbstract tables do not have file names associated with them." #[(obj) "\300\207" [nil] 1 #3#] semanticdb-dirty-p #4="Return non-nil if OBJ is 'dirty'." #[(obj) "\300\207" [nil] 1 #4#] semanticdb-set-dirty #5="Mark the abstract table OBJ dirty.\nAbstract tables can not be marked dirty, as there is nothing\nfor them to synchronize against." #[(obj) "\300\207" [nil] 1 #5#] semanticdb-normalize-tags #6="For the table OBJ, convert a list of TAGS, into standardized form.\nThe default is to return TAGS.\nSome databases may default to searching and providing simplified tags\nbased on whichever technique used.  This method provides a hook for\nthem to convert TAG into a more complete form." #[(obj tags) "\207" [tags] 1 #6#] semanticdb-normalize-one-tag #7="For the table OBJ, convert a TAG, into standardized form.\nThis method returns a list of the form (DATABASE . NEWTAG).\n\nThe default is to just return (OBJ TAG).\n\nSome databases may default to searching and providing simplified tags\nbased on whichever technique used.  This method provides a hook for\nthem to convert TAG into a more complete form." #[(obj tag) "	B\207" [obj tag] 2 #7#] object-print #8="Pretty printer extension for `semanticdb-abstract-table'.\nAdds the number of tags in this file to the object print name." #[(obj &rest strings) "\203G\302U\203#@;\203#@\303\230\203#\304	\305\306\307	!G\"\"\207\310\304	#\207" [strings obj 1 #18="" call-next-method format " (%d tags)" semanticdb-get-tags apply] 6 #8#] semanticdb-abstract-search-index ((table :initarg :table :type semanticdb-abstract-table :documentation "XRef to the table this belongs to.")) ("A place where semanticdb-find can store search index information.\nThe search index will store data about which other tables might be\nneeded, or perhaps create hash or index tables for the current buffer." :abstract t) semanticdb-get-table-index #9="Return the search index for the table OBJ.\nIf one doesn't exist, create it." #[(obj) "\303\304\"\203\f\305\304\"\207\306\n\307!\310P\311#\312\304	#\210	)\207" [obj idx semanticdb-default-find-index-class slot-boundp index eieio-oref nil object-name " index" :table eieio-oset] 4 #9#] semanticdb-synchronize #10="Synchronize the search index IDX with some NEW-TAGS." #[(idx new-tags) "\300\207" [#10#] 1 #10#] semanticdb-partial-synchronize #11="Synchronize the search index IDX with some changed NEW-TAGS." #[(idx new-tags) "\300\207" [#11#] 1 #11#] semanticdb-search-results-table (semanticdb-abstract-table) ("Table used for search results when there is no file or table association.\nExamples include search results from external sources such as from\nEmacs's own symbol table, or from external libraries.") semanticdb-refresh-table #12="If the tag list associated with OBJ is loaded, refresh it.\nThis will call `semantic-fetch-tags' if that file is in memory." #[(obj &optional force) "\300\207" [nil] 1 #12#] semanticdb-table (semanticdb-abstract-table) ((file :initarg :file :documentation "File name relative to the parent database.\nThis is for the file whose tags are stored in this TABLE object.") (buffer :initform nil :documentation "The buffer associated with this table.\nIf nil, the table's buffer is no in Emacs.  If it has a value, then\nit is in Emacs.") (dirty :initform nil :documentation "Non nil if this table needs to be `Saved'.") (db-refs :initform nil :documentation "List of `semanticdb-table' objects referring to this one.\nThese aren't saved, but are instead recalculated after load.\nSee the file semantic/db-ref.el for how this slot is used.") (pointmax :initarg :pointmax :initform nil :documentation "Size of buffer when written to disk.\nChecked on retrieval to make sure the file is the same.") (fsize :initarg :fsize :initform nil :documentation "Size of the file when it was last referenced.\nChecked when deciding if a loaded table needs updating from changes\noutside of Semantic's control.") (lastmodtime :initarg :lastmodtime :initform nil :documentation "Last modification time of the file referenced.\nChecked when deciding if a loaded table needs updating from changes outside of\nSemantic's control.") (unmatched-syntax :initarg :unmatched-syntax :documentation "List of vectors specifying unmatched syntax.") (lexical-table :initarg :lexical-table :initform nil :printer semantic-lex-spp-table-write-slot-value :documentation "Table that might be needed by the lexical analyzer.\nFor C/C++, the C preprocessor macros can be saved here.")) ("A single table of tags derived from file.") #13="Return a buffer associated with OBJ.\nIf the buffer is in memory, return that buffer." #[(obj) "\302\303\"\304	!\203	\202\305\303\306#)\207" [obj buff eieio-oref buffer buffer-live-p eieio-oset nil] 4 #13#] #14="Return a buffer associated with OBJ.\nIf the buffer is in memory, return that buffer.\nIf the buffer is not in memory, load it with `find-file-noselect'." #[(obj) "\302!\206\303 \304\216\305\306!\307\"*\207" [obj save-match-data-internal semanticdb-in-buffer-p match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) find-file-noselect semanticdb-full-filename t] 3 #14#] semanticdb-set-buffer #15="Set the current buffer to be a buffer owned by OBJ.\nIf OBJ's file is not loaded, read it in first." #[(obj) "\301!q\207" [obj semanticdb-get-buffer] 2 #15#] #16="Fetch the full filename that OBJ refers to." #[(obj) "\301\302\303\"\302\211\304\"\305\"\"\207" [obj expand-file-name eieio-oref file parent-db reference-directory] 6 #16#] #[(obj) "\301\302\"\207" [obj eieio-oref dirty] 3 "Return non-nil if OBJ is 'dirty'."] #17="Mark the abstract table OBJ dirty." #[(obj) "\301\302\303#\207" [obj eieio-oset dirty t] 4 #17#] #19="Pretty printer extension for `semanticdb-table'.\nAdds the number of tags in this file to the object print name." #[(obj &rest strings) "\302\303\304\305\306!G\"\307\310\"\203\311\202\312	BB#\207" [obj strings apply call-next-method format " (%d tags)" semanticdb-get-tags eieio-oref dirty ", DIRTY" #18#] 7 #19#] semanticdb-project-database (eieio-instance-tracker) ((tracking-symbol :initform semanticdb-database-list) (reference-directory :type string :documentation "Directory this database refers to.\nWhen a cache directory is specified, then this refers to the directory\nthis database contains symbols for.") (new-table-class :initform semanticdb-table :type class :documentation "New tables created for this database are of this class.") (cache :type list :initform nil :documentation "List of cache information for tools.\nAny particular tool can cache data to a database at runtime\nwith `semanticdb-cache-get'.\n\nUsing a semanticdb cache does not save any information to a file,\nso your cache will need to be recalculated at runtime.\n\nNote: This index will not be saved in a persistent file.") (tables :initarg :tables :type semanticdb-abstract-table-list :accessor semanticdb-get-database-tables :protection :protected :documentation "List of `semantic-db-table' objects.")) ("Database of file tables.") #[(obj) "\300\207" [nil] 1 "Fetch the full filename that OBJ refers to.\nAbstract tables do not have file names associated with them."] #20="Return non-nil if DB is 'dirty'.\nA database is dirty if the state of the database changed in a way\nwhere it may need to resynchronize with some persistent storage." #[(DB) "\303\304\305\"\n\204	\203\306	@!	A\202\n*\207" [DB tabs dirty nil eieio-oref tables semanticdb-dirty-p] 4 #20#] #21="Pretty printer extension for `semanticdb-project-database'.\nAdds the number of tables in this file to the object print name." #[(obj &rest strings) "\302\303\304\305\306!G\307!\203\310\202\311#	B#\207" [obj strings apply call-next-method format " (%d tables%s)" semanticdb-get-database-tables semanticdb-dirty-p " DIRTY" #18#] 8 #21#] semanticdb-create-database #22="Create a new semantic database of class DBC for DIRECTORY and return it.\nIf a database for DIRECTORY has already been created, return it.\nIf DIRECTORY doesn't exist, create a new one." :STATIC #[(dbc directory) "\302!\211\204\303\304!\305\306#\307	\310\311!#\210	)\207" [directory db semanticdb-directory-loaded-p semanticdb-project-database file-name-nondirectory :tables nil eieio-oset reference-directory file-truename] 6 #22#] semanticdb-flush-database-tables #23="Reset the tables in DB to be empty." #[(db) "\301\302\303#\207" [db eieio-oset tables nil] 4 #23#] semanticdb-create-table #24="Create a new table in DB for FILE and return it.\nThe class of DB contains the class name for the type of table to create.\nIf the table for FILE exists, return it.\nIf the table for FILE does not exist, create one." #[(db file) "\303	\"\211\204#\304\305\"\306	!\307\306	!#\310\n\311#\210\312\313\n\314$\210\n)\207" [db file newtab semanticdb-file-table eieio-oref new-table-class file-name-nondirectory :file eieio-oset parent-db object-add-to-list tables t] 6 #24#] semanticdb-file-table #25="From OBJ, return FILENAME's associated table object." #[(obj filename) "\302\303\304!\305	\306\"\"\307\305	\310\"#\207" [filename obj object-assoc file-relative-name file-truename eieio-oref reference-directory file tables] 6 #25#]] 5)
#@62 Get a database for FILENAME.
If one isn't found, create one.
(defalias 'semanticdb-get-database #[(filename) "\302\303	!\"\207" [semanticdb-new-database-class filename semanticdb-create-database file-truename] 4 (#$ . 14726)])
#@64 Return the project belonging to PATH if it was already loaded.
(defalias 'semanticdb-directory-loaded-p #[(path) "\301\302\303#\207" [path eieio-instance-tracker-find reference-directory semanticdb-database-list] 4 (#$ . 14960)])
#@177 Initialize a database table for FILENAME, and return it.
If FILENAME exists in the database already, return that.
If there is no database for the table to live in, create one.
(defalias 'semanticdb-create-table-for-file #[(filename) "\305\211\306\307!!\310\f	\"\311\"\n+B\207" [filename dd tbl cdb semanticdb-new-database-class nil file-name-directory file-truename semanticdb-create-database semanticdb-create-table] 5 (#$ . 15198)])
(byte-code "\300\301\302\303\304$\210\305\306\307\306\310\"\"\210\311\306\302\312\313$\210\305\314\307\314\315\"\"\210\311\314\302\312\316$\210\305\317\307\317\320\"\"\210\311\317\302\301\321$\210\305\322\307\322\323\"\"\210\311\322\302\301\324$\210\300\325\302\326\327$\210\305\306\307\306\330\"\"\210\311\306\302\331\332$\210\305\314\307\314\315\"\"\210\311\314\302\331\333$\210\305\317\307\317\320\"\"\210\311\317\302\325\334$\210\305\322\307\322\323\"\"\210\311\322\302\325\335$\210\305\336\307\336\337\"\"\210\311\336\302\340\341$\210\305\342\307\342\343\"\"\210\311\342\302\340\344$\210\305\317\307\317\345\"\"\210\311\317\302\312\346$\210\305\322\307\322\347\"\"\210\311\322\302\312\350$\210\305\351\307\351\352\"\"\210\311\351\302\331\353$\207" [eieio-defclass semanticdb-abstract-cache nil ((table :initarg :table :type semanticdb-abstract-table :documentation "Cross reference to the table this belongs to.")) ("Abstract baseclass for tools to use to cache information in semanticdb.\nTools needing a per-file cache must subclass this, and then get one as\nneeded.  Cache objects are identified in semanticdb by subclass.\nIn order to keep your cache up to date, be sure to implement\n`semanticdb-synchronize', and `semanticdb-partial-synchronize'.\nSee the file semantic/scope.el for an example." :abstract t) eieio--defalias semanticdb-cache-get eieio--defgeneric-init-form #1="Get a cache object on TABLE of class DESIRED-CLASS.\nThis method will create one if none exists with no init arguments\nother than :table." eieio--defmethod semanticdb-abstract-table #[(table desired-class) "\305\306\"\204\307\310!\210\311	\303\"\312\n\204,\203,@\fH=\203&@A\202\n\2034\n\202A\313\314	#\315	\303\n#\210\n*\207" [desired-class table obj cache object-class child-of-class-p semanticdb-abstract-cache error "Invalid SemanticDB cache" eieio-oref nil "Cache" :table object-add-to-list] 4 #1#] semanticdb-cache-remove #2="Remove from TABLE the cache object CACHE." #[(table cache) "\302\301	#\207" [table cache object-remove-from-list] 4 #2#] semanticdb-synchronize #3="Synchronize a CACHE with some NEW-TAGS." #[(cache new-tags) "\300\207" [#3#] 1 #3#] semanticdb-partial-synchronize #4="Synchronize a CACHE with some changed NEW-TAGS." #[(cache new-tags) "\300\207" [#4#] 1 #4#] semanticdb-abstract-db-cache ((db :initarg :db :type semanticdb-project-database :documentation "Cross reference to the database this belongs to.")) ("Abstract baseclass for tools to use to cache information in semanticdb.\nTools needing a database cache must subclass this, and then get one as\nneeded.  Cache objects are identified in semanticdb by subclass.\nIn order to keep your cache up to date, be sure to implement\n`semanticdb-synchronize', and `semanticdb-partial-synchronize'.\nSee the file semantic/scope.el for an example." :abstract t) #5="Get a cache object on DB of class DESIRED-CLASS.\nThis method will create one if none exists with no init arguments\nother than :table." semanticdb-project-database #[(db desired-class) "\305\306\"\204\307\310!\210\311	\303\"\312\n\204,\203,@\fH=\203&@A\202\n\2034\n\202A\313\314	#\315	\303\n#\210\n*\207" [desired-class db obj cache object-class child-of-class-p semanticdb-abstract-cache error "Invalid SemanticDB cache" eieio-oref nil "Cache" :db object-add-to-list] 4 #5#] #[(db cache) "\302\301	#\207" [db cache object-remove-from-list] 4 "Remove from TABLE the cache object CACHE."] #[(cache new-tags) "\300\207" [#6="Synchronize a CACHE with some NEW-TAGS."] 1 #6#] #[(cache new-tags) "\300\207" [#7="Synchronize a CACHE with some changed NEW-TAGS."] 1 #7#] semanticdb-refresh-table #8="If the tag list associated with OBJ is loaded, refresh it.\nOptional argument FORCE will force a refresh even if the file in question\nis not in a buffer.  Avoid using FORCE for most uses, as an old cache\nmay be sufficient for the general case.  Forced updates can be slow.\nThis will call `semantic-fetch-tags' if that file is in memory." semanticdb-table #[(obj &optional force) "\303!\203
\304!\210\305 \207	\205#\212\306\307!\310\"\211q\210\305 \210\311\n!*\207" [obj force buff semanticdb-in-buffer-p semanticdb-set-buffer semantic-fetch-tags semantic-find-file-noselect semanticdb-full-filename t kill-buffer] 4 #8#] semanticdb-needs-refresh-p #9="Return non-nil of OBJ's tag list is out of date.\nThe file associated with OBJ does not need to be in a buffer." #[(obj) "\306!\307!\211\203r\nq\210)??\202C\310	!\311\f8\312\f8\313\314\"?\206B\315\316\"\2064\317
U?\206B\315\320\"\232?+*\207" [obj ff buff semantic-parse-tree-state stats actualsize semanticdb-full-filename semanticdb-in-buffer-p file-attributes 7 5 slot-boundp tags eieio-oref fsize 0 lastmodtime actualmod] 4 #9#] #10="Synchronize the table TABLE with some NEW-TAGS." #[(table new-tags) "\306\307	#\210\306\310d#\210\311\312!!\306\313\314\n8#\210\306\315\316\n8#\210)\306\317#\210\320\321!\2036\306\322\323 #\210\324!\210\325\326\"\203P\327\326\"\211\203O\330\f	\"\210)\327\331\"\332\211\203n@\330
	\"\210A\211\204\\*\333!\207" [table new-tags fattr semantic-unmatched-syntax-cache idx C eieio-oset tags pointmax file-attributes semanticdb-full-filename fsize 7 lastmodtime 5 unmatched-syntax featurep semantic/lex-spp lexical-table semantic-lex-spp-save-table semanticdb-set-dirty slot-boundp index eieio-oref semanticdb-synchronize cache nil semanticdb-refresh-references --dolist-tail--] 6 #10#] #11="Synchronize the table TABLE where some NEW-TAGS changed." #[(table new-tags) "\306!\210\307\310!\203\311\312\313 #\210\311\314	#\210\315\316\"\203-\317\316\"\211\203,\320\n\"\210)\317\321\"\322\211\203G
@\323\f\"\210
A\211\2048*\324!\322\211\203s@\211A@)\325=\203j@BA\211\204T\237*\205}\326!\207" [table semantic-unmatched-syntax-cache idx new-tags C --dolist-tail-- semanticdb-set-dirty featurep semantic/lex-spp eieio-oset lexical-table semantic-lex-spp-save-table unmatched-syntax slot-boundp index eieio-oref semanticdb-partial-synchronize cache nil semanticdb-synchronize semantic-something-to-tag-table include semanticdb-refresh-references result tags tag] 5 #11#] semanticdb-save-db #12="Cause a database to save itself.\nThe database base class does not save itself persistently.\nSubclasses could save themselves to a file, or to a database, or other\nform." #[(DB &optional suppress-questions) "\300\207" [nil] 1 #12#]] 5)
#@32 Save the current tag database.
(defalias 'semanticdb-save-current-db #[nil "\204\302\303!\210\304	!\210?\205\302\305!\207" [noninteractive semanticdb-current-database message "Saving current tag summaries..." semanticdb-save-db "Saving current tag summaries...done"] 2 (#$ . 22133) nil])
#@34 Save all semantic tag databases.
(defalias 'semanticdb-save-all-db #[nil "\204\303\304!\210\305\306\307\n\"\210)?\205\303\310!\207" [noninteractive semanticdb--inhibit-make-directory semanticdb-database-list message "Saving tag summaries..." nil mapc semanticdb-save-db "Saving tag summaries...done"] 3 (#$ . 22433) nil])
#@105 Save all semantic tag databases from idle time.
Exit the save between databases if there is user input.
(defalias 'semanticdb-save-all-db-idle #[nil "\203\302\211\303\215)\207\304\305\306\217\207" [debug-on-error semantic-current-input-throw-symbol semanticdb-idle-save (mapc #[#1=(db) "\203\302 \204\303 \203\304\305\"\210\306	\307\"\207" [semantic-current-input-throw-symbol db input-pending-p accept-process-output throw semanticdb-idle-save semanticdb-save-db t] 3] semanticdb-database-list) err (byte-code "\301\211\302\215)\207" [semantic-current-input-throw-symbol semanticdb-idle-save (mapc #[#1# "\203\302 \204\303 \203\304\305\"\210\306	\307\"\207" [semantic-current-input-throw-symbol db input-pending-p accept-process-output throw semanticdb-idle-save semanticdb-save-db t] 3] semanticdb-database-list)] 3) ((error (byte-code "\301\302\303\304p\305!#\"\210\306\207" [err message "Auto-DB Save: %S" format "%S - %s" error-message-string nil] 7)))] 4 (#$ . 22769)])
#@409 List of predicates to try that indicate a directory belongs to a project.
This list is used when `semanticdb-persistent-path' contains the value
'project.  If the predicate list is nil, then presume all paths are valid.

Project Management software (such as EDE and JDE) should add their own
predicates with `add-hook' to this variable, and semanticdb will save tag
caches in directories controlled by them.
(defvar semanticdb-project-predicate-functions nil (#$ . 23774))
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\207" [eieio--defalias semanticdb-write-directory-p eieio--defgeneric-init-form #1="Return non-nil if OBJ should be written to disk.\nUses `semanticdb-persistent-path' to determine the return value." eieio--defmethod nil semanticdb-project-database #[(obj) "\300\207" [nil] 1 #1#]] 5)
#@39 Return the currently active database.
(defalias 'semanticdb-current-database #[nil "\206\f	\205\f\303\n	\"\207" [semanticdb-current-database default-directory semanticdb-new-database-class semanticdb-create-database] 3 (#$ . 24599)])
#@238 Non-nil to temporarily search any major mode for a tag.
If a particular major mode wants to search any mode, put the
`semantic-match-any-mode' symbol onto the symbol of that major mode.
Do not set the value of this variable permanently.
(defvar semanticdb-match-any-mode nil (#$ . 24843))
#@147 A Semanticdb search occurring withing BODY will search tags in all modes.
This temporarily sets `semanticdb-match-any-mode' while executing BODY.
(defalias 'semanticdb-with-match-any-mode '(macro . #[(&rest body) "\301\302BB\207" [body let ((semanticdb-match-any-mode t))] 3 (#$ . 25139)]))
(byte-code "\300\301\302\303#\210\304\305\306\305\307\"\"\210\310\305\311\211\312$\210\304\313\306\313\314\"\"\210\310\313\311\315\316$\210\304\313\306\313\314\"\"\210\310\313\311\317\320$\210\321\322\311\323\324\325\326\327&\207" [put semanticdb-with-match-any-mode lisp-indent-function 0 eieio--defalias semanticdb-equivalent-mode-for-search eieio--defgeneric-init-form #1="Return non-nil if TABLE's mode is equivalent to BUFFER.\nSee `semanticdb-equivalent-mode' for details.\nThis version is used during searches.  Major-modes that opt\nto set the `semantic-match-any-mode' property will be able to search\nall files of any type." eieio--defmethod nil #[(table &optional buffer) "\304N\206	\206\305\n\"\207" [major-mode semanticdb-match-any-mode table buffer semantic-match-any-mode semanticdb-equivalent-mode] 3 #1#] semanticdb-equivalent-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-abstract-table #[(table &optional buffer) "\300\207" [nil] 1 #2#] semanticdb-table #[(table &optional buffer) "\212\203q\210\304	\303\"?\206(\n\204\305\304	\303\"\"\206(\n\205(\304	\303\"\n\235)\207" [buffer table semantic-equivalent-major-modes major-mode eieio-oref mode-local-use-bindings-p] 5 "Return non-nil if TABLE's mode is equivalent to BUFFER.\nEquivalent modes are specified by the `semantic-equivalent-major-modes'\nlocal variable."] custom-declare-variable semanticdb-project-roots "*List of directories, where each directory is the root of some project.\nAll subdirectories of a root project are considered a part of one project.\nValues in this string can be overridden by project management programs\nvia the `semanticdb-project-root-functions' variable." :group semanticdb :type (repeat string)] 8)
#@406 List of functions used to determine a given directories project root.
Functions in this variable can override `semanticdb-project-roots'.
Functions set in the variable are given one argument (a directory) and
must return a string, (the root directory) or a list of strings (multiple
root directories in a more complex system).  This variable should be used
by project management programs like EDE or JDE.
(defvar semanticdb-project-root-functions nil (#$ . 27282))
#@260 List of databases containing system library information.
Mode authors can create their own system databases which know
detailed information about the system libraries for querying purposes.
Put those into this variable as a buffer-local, or mode-local
value.
(defvar semanticdb-project-system-databases nil (#$ . 27754))
(make-variable-buffer-local 'semanticdb-project-system-databases)
#@62 Non nil if search routines are to include a system database.
(defvar semanticdb-search-system-databases t (#$ . 28147))
#@527 Return a list of databases associated with the current buffer.
If optional argument DIR is non-nil, then use DIR as the starting directory.
If this buffer has a database, but doesn't have a project associated
with it, return nil.
First, it checks `semanticdb-project-root-functions', and if that
has no results, it checks `semanticdb-project-roots'.  If that fails,
it returns the results of function `semanticdb-current-database'.
Always append `semanticdb-project-system-databases' if
`semanticdb-search-system' is non-nil.
(defalias 'semanticdb-current-database-list #[(&optional dir) "\306\211\307	\206	\n!\310\311	\"\211\203\307
!\202?\203?\307@!\312\313\314!P	\"\2037)A\211\204\"
\204E	
\203\313\314
!P\203~\315@\316\"\203u\312\317@\316\"\"\203u@\fBA\211\204Y*\203\211\f\244\f,\207" [semanticdb-project-roots dir default-directory roots dbs root nil file-truename run-hook-with-args-until-success semanticdb-project-root-functions string-match "^" regexp-quote slot-boundp reference-directory eieio-oref r semanticdb-database-list adb regexp semanticdb-search-system-databases semanticdb-project-system-databases] 6 (#$ . 28274)])
#@51 Hash table mapping file names to database tables.
(defvar semanticdb-file-table-hash (make-hash-table :test 'equal) (#$ . 29477))
#@75 Retrieve a DB table from the hash for FILE.
Does not use `file-truename'.
(defalias 'semanticdb-file-table-object-from-hash #[(file) "\302	\303#\207" [file semanticdb-file-table-hash gethash no-hit] 4 (#$ . 29613)])
#@48 For FILE, associate DBTABLE in the hash table.
(defalias 'semanticdb-file-table-object-put-hash #[(file dbtable) "\303	\n#\207" [file dbtable semanticdb-file-table-hash puthash] 4 (#$ . 29836)])
#@319 Return a semanticdb table belonging to FILE, make it up to date.
If file has database tags available in the database, return it.
If file does not have tags available, and DONTLOAD is nil,
then load the tags for FILE, and create a new table object for it.
DONTLOAD does not affect the creation of new database objects.
(defalias 'semanticdb-file-table-object #[(file &optional dontload) "\205\347\306!\205\347\307!\310!\311\n\312=\203B\313!\314	!\206'\315	!\316\f\"\211\203A\317\n\"\210\230\204A\317\n\"\210)\n\203Y\320\n!\203Y\212\321\n!\210\322 \210\n)\202\346\n\203e
\203e\n\202\346\n\203|\323\324\n\325\"!\203|\326\n!\204|\n\202\346\203\206\327!\204\214\327!\203\220\311\202\346
\204\304\n\204\240\204\240\313!\204\254\n\203\254\330\n!\331!\317\n\"\210\230\204\300\317\n\"\210\n\202\346\204\314\313!\332!\211A\317\n\"\210\230\204\344\317\n\"\210\n)+\207" [file default-directory tab fullfile db dontload file-exists-p file-name-directory semanticdb-file-table-object-from-hash nil no-hit file-truename semanticdb-directory-loaded-p semanticdb-get-database semanticdb-file-table semanticdb-file-table-object-put-hash semanticdb-in-buffer-p semanticdb-set-buffer semantic-fetch-tags number-or-marker-p eieio-oref pointmax semanticdb-needs-refresh-p get-file-buffer semanticdb-full-filename semanticdb-create-table-for-file-not-in-buffer semanticdb-create-table-for-file ans] 5 (#$ . 30039)])
#@101 When non-nil, a function for creating a semanticdb table.
This should take a filename to be parsed.
(defvar semanticdb-out-of-buffer-create-table-fcn nil (#$ . 31509))
(make-variable-buffer-local 'semanticdb-out-of-buffer-create-table-fcn)
#@159 Create a table for the file FILENAME.
If there are no language specific configurations, this
function will read in the buffer, parse it, and kill the buffer.
(defalias 'semanticdb-create-table-for-file-not-in-buffer #[(filename) "\203\305	!\204	!\207\212\306	!\211\206\307	\310\"\211q\210\f\203&\311 \210\f\n\204/\312!\210+\207" [semanticdb-out-of-buffer-create-table-fcn filename kill-buffer-flag buffer-to-kill semanticdb-current-table file-remote-p find-buffer-visiting semantic-find-file-noselect t semantic-fetch-tags kill-buffer] 4 (#$ . 31756)])
#@183 Return a list of tags belonging to FILE.
If file has database tags available in the database, return them.
If file does not have tags available, then load the file, and create them.
(defalias 'semanticdb-file-stream #[(file) "\302!\211\205\303	!)\207" [file table semanticdb-file-table-object semanticdb-get-tags] 3 (#$ . 32329)])
(provide 'semantic/db)
F1l3 Manager
