;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require semantic/db cedet-files data-debug] 2)
#@58 Version of semanticdb we are writing files to disk with.
(defvar semanticdb-file-version semantic-version (#$ . 185))
#@59 Version of semanticdb we are not reverse compatible with.
(defvar semanticdb-file-incompatible-version "1.4" (#$ . 309))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\210\300\316\302\303\317DD\320\306\307\310\321&\210\322\323\324\325#\210\326\211\203U\211@\323
N\203N\324
N\204N\327\324\323N#\210
A\266\202\2024\210\330\323\324\331#\210\300\324\302\303\332DD\333\306\307\310\334&\207" [custom-declare-variable semanticdb-default-file-name funcall function #[0 "\300\207" ["semantic.cache"] 1 #1=""] "File name of the semantic tag cache." :group semanticdb :type string semanticdb-default-save-directory #[0 "\300\301\302\"\207" [locate-user-emacs-file "semanticdb" ".semanticdb"] 3 #1#] "Directory name where semantic cache files are stored.\nBy default, it is either ~/.emacs.d/semanticdb, or ~/.semanticdb depending\non which exists.\nIf this value is nil, files are saved in the current directory.  If the value\nis a valid directory, then it overrides `semanticdb-default-file-name' and\nstores caches in a coded file name in this directory." (choice :tag "Default-Directory" :menu-tag "Default-Directory" (const :tag "Use current directory" :value nil) (directory)) semanticdb-persistent-path #[0 "\300\207" [(always)] 1 #1#] "List of valid paths that semanticdb will cache tags to.\nWhen `global-semanticdb-minor-mode' is active, tag lists will\nbe saved to disk when Emacs exits.  Not all directories will have\ntags that should be saved.\nThe value should be a list of valid paths.  A path can be a string,\nindicating a directory in which to save a variable.  An element in the\nlist can also be a symbol.  Valid symbols are `never', which will\ndisable any saving anywhere, `always', which enables saving\neverywhere, or `project', which enables saving in any directory that\npasses a list of predicates in `semanticdb-project-predicate-functions'." (repeat (choice (string :tag "Directory") (const never) (const always) (const project))) defvaralias semanticdb-save-database-hooks semanticdb-save-database-functions nil (saved-value saved-variable-comment) put make-obsolete-variable "24.3" #[0 "\300\207" [nil] 1 #1#] "Abnormal hook run after a database is saved.\nEach function is called with one argument, the object representing\nthe database recently written." hook] 8)
#@148 Character used for directory separation.
Obsoleted in some versions of Emacs.  Needed in others.
NOTE: This should get deleted from semantic soon.
(defvar semanticdb-dir-sep-char (byte-code "\300\301!\203	\301J\207\302\207" [boundp directory-sep-char 47] 2) (#$ . 2669))
#@154 If DIR is broken, fix it.
Force DIR to end with a /.
Note: Same as `file-name-as-directory'.
NOTE: This should get deleted from semantic soon.

(fn DIR)
(defalias 'semanticdb-fix-pathname #[257 "\300
!\207" [file-name-as-directory] 3 (#$ . 2948)])
(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-file-p eieio-make-class-predicate semanticdb-project-database-file semanticdb-project-database-file--eieio-childp eieio-make-child-predicate semanticdb-project-database-file-child-p make-obsolete "use (cl-typep ... \\='semanticdb-project-database-file) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (semanticdb-project-database eieio-persistent) ((file-header-line :initform ";; SEMANTICDB Tags save file") (do-backups :initform nil) (semantic-tag-version :initarg :semantic-tag-version :initform "1.4" :documentation "The version of the tags saved.\nThe default value is 1.4.  In semantic 1.4 there was no versioning, so\nwhen those files are loaded, this becomes the version number.\nTo save the version number, we must hand-set this version string.") (semanticdb-version :initarg :semanticdb-version :initform "1.4" :documentation "The version of the object system saved.\nThe default value is 1.4.  In semantic 1.4, there was no versioning,\nso when those files are loaded, this becomes the version number.\nTo save the version number, we must hand-set this version string.")) (:documentation "Database of file tables saved to disk.")] 6)
#@89 Create a new object of class type `semanticdb-project-database-file'.

(fn &rest SLOTS)
(defalias 'semanticdb-project-database-file #[128 "\300\301\302#\207" [apply make-instance semanticdb-project-database-file] 5 (#$ . 4558)])
(byte-code "\300\301\302\303#\300\207" [function-put semanticdb-project-database-file compiler-macro semanticdb-project-database-file--anon-cmacro] 4)
#@26 

(fn WHOLE &rest SLOTS)
(defalias 'semanticdb-project-database-file--anon-cmacro #[385 "\211@;\204
\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 4945)])
(cl-generic-define-method 'semanticdb-create-database nil '((dbc (subclass semanticdb-project-database-file)) directory) nil #[514 "\302
!\262
\303\"\304
!\206\305
!\205\306
!\211\2042\307\310\311!!\312P\313\314\315\316\317	&\n\262
\320
\321#\210\207" [semantic-tag-version semanticdb-file-version file-truename semanticdb-cache-filename semanticdb-file-loaded-p file-exists-p semanticdb-load-database make-instance file-name-nondirectory directory-file-name "/" :file :tables nil :semantic-tag-version :semanticdb-version eieio-oset reference-directory] 15 "Create a new semantic database for DIRECTORY and return it.\nIf a database for DIRECTORY has already been loaded, return it.\nIf a database for DIRECTORY exists, then load that database, and return it.\nIf DIRECTORY doesn't exist, create a new one.\n\n(fn DBC DIRECTORY)"])
#@44 Load the database FILENAME.

(fn FILENAME)
(defalias 'semanticdb-load-database #[257 "\3021D\303
\304\"\305
!\306\301\"\306\307\"\203&\310@\311#\210A\262\202
\232\2032	\232\204?\312\313\"\210\314!\210\315\262\266\2040\207\312\316#\210\315\207" [semanticdb-file-version semantic-tag-version (error) eieio-persistent-read semanticdb-project-database-file semanticdb-get-database-tables eieio-oref semanticdb-version eieio-oset parent-db message "semanticdb file is old.  Starting over for %s" delete-instance nil "Cache Error: [%s] %s, Restart"] 9 (#$ . 6041)])
#@83 Return the project belonging to FILENAME if it was already loaded.

(fn FILENAME)
(defalias 'semanticdb-file-loaded-p #[257 "\300
\301\302#\207" [eieio-instance-tracker-find file semanticdb-database-list] 5 (#$ . 6630)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\310\302\313\302\314%\207" [cl-generic-define-method semanticdb-file-directory-exists-p nil ((DB semanticdb-project-database-file) &optional suppress-questions) #[513 "\301\302\303\"!\211\204\f\304\207\305
!\203\306\207
\204\"\307\300!\203$\203$\304\207\310\311\312\"!\2034\313
\306\"\210\306\207\307\300!\203<\306\304\207" [semanticdb--inhibit-make-directory file-name-directory eieio-oref file nil file-exists-p t boundp y-or-n-p format "Create directory %s for SemanticDB? " make-directory] 7 "Does the directory the database DB needs to write to exist?\nIf SUPPRESS-QUESTIONS, then do not ask to create the directory.\n\n(fn DB &optional SUPPRESS-QUESTIONS)"] semanticdb-save-db ((DB semanticdb-project-database-file) &optional suppress-questions) #[513 "\301\302\"\303!\205\240\304!\205\240\305\"\205\240\306!\205\240\3071=\31012\311\206+!00\210\202\2300\312\313#\266\202\230\211<\203Z\211A@;\203Z\314\315A@\"\203Z\312
A@!\202\226\211<\203w\211A@;\203w\314\316A@\"\203w\312
A@!\202\226\204\206\317\320\321A@\"!\203\220\312\322A@#\202\226\323\324A@\"\266\325\326\206\237\"\207" [semanticdb-current-database eieio-oref file semanticdb-dirty-p semanticdb-live-p semanticdb-file-directory-exists-p semanticdb-write-directory-p (error) (file-error) eieio-persistent-save message "%S: %s" string-match "write[- ]protected" "no such directory" y-or-n-p format "Skip Error: %s ?" "Save Error: %S: %s" error "%S" run-hook-with-args semanticdb-save-database-functions] 8 "Write out the database DB to its file.\nIf DB is not specified, then use the current database.\n\n(fn DB &optional SUPPRESS-QUESTIONS)"] semanticdb-live-p ((obj semanticdb-project-database)) #[257 "\300
\301\"\205
\302\303\301\"!\207" [slot-boundp reference-directory file-exists-p eieio-oref] 5 "Return non-nil if the file associated with OBJ is live.\nLive databases are objects associated with existing directories.\n\n(fn OBJ)"] ((obj semanticdb-table)) #[257 "\300
!\301
!\206\f\302
!\207" [semanticdb-full-filename find-buffer-visiting file-exists-p] 4 "Return non-nil if the file associated with OBJ is live.\nLive files are either buffers in Emacs, or files existing on the filesystem.\n\n(fn OBJ)"]] 6)
#@138 Run the data debugger on tables that issue errors.
This variable is set to nil after the first error is encountered
to prevent overload.
(defvar semanticdb-data-debug-on-write-error nil (#$ . 9197))
(byte-code "\300\301\302\303\304\305%\210\300\306\302\307\304\310%\210\300\311\302\312\302\313%\210\300\314\302\315\302\316%\210\300\317\302\320\302\321%\210\300\322\302\323\302\324%\210\300\325\302\326\302\327%\207" [cl-generic-define-method object-write nil ((obj semanticdb-table)) t #[514 "\302
!\205}\303
!\203.r\303
!q\210\212\304 \210\305!\203'\203'\306
\307\310 #\210\306
\311d#\210*\312\313!!\306\314\315
8\262
#\210\306\316\317
8\262
#\266\3201U
 0\210\202x	\203i\321\322!\210\323\324!\210\325\326\327#\210\330\331\332\333!\"\210\334\335A@\"\266\306
\336\330#\207" [semantic-show-unmatched-syntax-mode semanticdb-data-debug-on-write-error semanticdb-live-p semanticdb-in-buffer-p semantic-fetch-tags boundp eieio-oset unmatched-syntax semantic-show-unmatched-lex-tokens-fetch pointmax file-attributes semanticdb-full-filename fsize 7 lastmodtime 5 (error) require data-debug data-debug-new-buffer "*SEMANTICDB ERROR*" data-debug-insert-thing "*" "" nil message "Error Writing Table: %s" eieio-object-name error "%S" dirty] 9 "When writing a table, we have to make sure we deoverlay it first.\nRestore the overlays after writing.\nArgument OBJ is the object to write.\n\n(fn CL--CNM OBJ)"] semanticdb-write-directory-p ((obj semanticdb-project-database-file)) #[514 "\3022{\211\203x\211@;\203!\303\304\"
@\230\203q\305\302\306\"\210\202q\211@\307=\203M	\203>\310\301\303\304\"\"\203q\305\302\306\"\210\202qG\311U\203q\305\302\306\"\210\202q\211@\312=\203\\\305\302\313\"\210\202q\211@\314=\203k\305\302\306\"\210\202q\315\316@\"\210\211A\262
\202 0\207" [semanticdb-persistent-path semanticdb-project-predicate-functions found eieio-oref reference-directory throw t project run-hook-with-args-until-success 1 never nil always error "Invalid path %S"] 8 "Return non-nil if OBJ should be written to disk.\nUses `semanticdb-persistent-path' to determine the return value.\n\n(fn CL--CNM OBJ)"] semanticdb-file-table ((obj semanticdb-project-database-file) filename) #[514 "\300\301!\302\303\304\"#\207" [object-assoc file-name-nondirectory file eieio-oref tables] 8 "From OBJ, return FILENAME's associated table object.\n\n(fn OBJ FILENAME)"] semanticdb-file-name-non-directory ((_dbclass (subclass semanticdb-project-database-file))) #[257 "\207" [semanticdb-default-file-name] 2 "Return the file name DBCLASS will use.\nFile name excludes any directory part.\n\n(fn DBCLASS)"] semanticdb-file-name-directory ((_dbclass (subclass semanticdb-project-database-file)) directory) #[514 "\203\301
!\302
\303!\"\207\207" [semanticdb-default-save-directory cedet-directory-name-to-file-name expand-file-name file-name-as-directory] 7 "Return the relative directory to where DBCLASS will save its cache file.\nThe returned path is related to DIRECTORY.\n\n(fn DBCLASS DIRECTORY)"] semanticdb-cache-filename ((dbclass (subclass semanticdb-project-database-file)) path) #[514 "\300\"\301!P\207" [semanticdb-file-name-directory semanticdb-file-name-non-directory] 5 "For DBCLASS, return a file to a cache file belonging to PATH.\nThis could be a cache file in the current directory, or an encoded file\nname in a secondary directory.\n\n(fn DBCLASS PATH)"] semanticdb-full-filename ((obj semanticdb-project-database-file)) #[257 "\300
\301\"\207" [eieio-oref file] 4 "Fetch the full filename that OBJ refers to.\n\n(fn OBJ)"]] 6)
#@154 Cleanup any cache files associated with directories that no longer exist.
Optional NOERROR prevents errors from being displayed.

(fn &optional NOERROR)
(defalias 'semanticdb-cleanup-cache-files #[256 "\204\f\211\204\f\302\303!\210\205\224\304	!\305\306#\307\211\211\203<\211@\310\311!!\262\312\313!!\2045\211B\262
A\266\202\202\210\211\203\212\314 \315\316\"\216\317\320!r\211q\210\321 \210\322c\210\211\203h\211@\211\323\261\210
A\266\202\202V\210)\324
\306\211#\210\325\326!\307\327#\210\330\331!\205\206\332\333\"\210\334\335!\262
)\207?\205\222\334\336!\266\204\207" [semanticdb-default-save-directory semanticdb-default-file-name error "No default save directory for semantic-save files" regexp-quote directory-files t nil cedet-file-name-to-directory-name file-name-nondirectory file-exists-p file-name-directory current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] get-buffer-create "*Semanticdb Delete*" erase-buffer "The following Cache files appear to be obsolete.\n\n" "\n" pop-to-buffer fit-window-to-buffer get-buffer-window 1 y-or-n-p "Delete Old Cache Files? " mapc #[257 "\300\301\"\210\302
!\207" [message "Deleting to %s..." delete-file] 4 "\n\n(fn F)"] message "done." "No obsolete semanticdb.cache files."] 11 (#$ . 12782) nil])
(provide 'semantic/db-file)