WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet/semantic
Viewing File: /usr/share/emacs/24.3/lisp/cedet/semantic/db-file.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-file.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 semantic/db cedet-files data-debug] 2)
#@58 Version of semanticdb we are writing files to disk with.
(defvar semanticdb-file-version semantic-version (#$ . 666))
#@59 Version of semanticdb we are not reverse compatible with.
(defvar semanticdb-file-incompatible-version "1.4" (#$ . 790))
(byte-code "\302\303\304\305\306\307\310\311&\210\302\312\313\314\306\307\310\315&\210\302\316\317\320\306\307\310\321&\210\322\323\324\321#\210\325\321\211\203M	@\323N\203F\324N\204F\326\324\323N#\210	A\211\204/*\327\323\324\330#\210\302\324\321\331\306\307\310\332&\207" [prop --dolist-tail-- custom-declare-variable semanticdb-default-file-name "semantic.cache" "File name of the semantic tag cache." :group semanticdb :type string semanticdb-default-save-directory (locate-user-emacs-file "semanticdb" ".semanticdb") "Directory name where semantic cache files are stored.\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 '(always) "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'." nil defvaralias semanticdb-save-database-hooks semanticdb-save-database-functions (saved-value saved-variable-comment) put make-obsolete-variable "24.3" "Abnormal hook run after a database is saved.\nEach function is called with one argument, the object representing\nthe database recently written." hook] 9)
#@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) (#$ . 2820))
#@144 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.
(defalias 'semanticdb-fix-pathname #[(dir) "\301!\207" [dir file-name-as-directory] 2 (#$ . 3099)])
(byte-code "\300\301\302\303\304$\210\305\306\307\306\310\"\"\210\311\306\312\301\313$\207" [eieio-defclass semanticdb-project-database-file (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.")) ("Database of file tables saved to disk.") eieio--defalias semanticdb-create-database eieio--defgeneric-init-form #1="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." eieio--defmethod :STATIC #[(dbc directory) "\306!\307	\"\310\n!\206\311\n!\205\312\n!\211\2041\313	\314\315!!\316P\317\n\320\321\322\f\323
&\n\324\325#\210*\207" [directory dbc fn db 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] 12 #1#]] 5)
#@29 Load the database FILENAME.
(defalias 'semanticdb-load-database #[(filename) "\300\301\302\217\207" [foo (byte-code "\306	\"\307\n!\310\n\311\"\310\n\312\"\203%\313@\314\n#\210A\211\204
\232\2033	\f\232\204c\315\316!\210\317\320
\"\204X\317\321\f\"\203c\322\n!\210\313\n\311	#\210\323\324\"\210\202c\323\325\"\210\326\n!\210\327\n,\207" [filename semanticdb-project-database-file r c tv fv eieio-persistent-read semanticdb-get-database-tables eieio-oref semantic-tag-version semanticdb-version eieio-oset parent-db require inversion inversion-test semanticdb-file semantic-tag semanticdb-flush-database-tables message "Semanticdb file is old.  Starting over for %s" "semanticdb file is old.  Starting over for %s" delete-instance nil semanticdb-file-version] 5) ((error (message "Cache Error: [%s] %s, Restart" filename foo) nil))] 3 (#$ . 5152)])
#@68 Return the project belonging to FILENAME if it was already loaded.
(defalias 'semanticdb-file-loaded-p #[(filename) "\301\302\303#\207" [filename eieio-instance-tracker-find file semanticdb-database-list] 4 (#$ . 6030)])
(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\315\316$\210\300\313\302\313\317\"\"\210\304\313\305\320\321$\207" [eieio--defalias semanticdb-file-directory-exists-p eieio--defgeneric-init-form #1="Does the directory the database DB needs to write to exist?\nIf SUPPRESS-QUESTIONS, then do not ask to create the directory." eieio--defmethod nil semanticdb-project-database-file #[(DB &optional suppress-questions) "\304\305\306\"!\211\204\307\202F\310	!\203\311\202F\n\204'\312\303!\203+\203+\307\202F\313\314\315	\"!\203=\316	\311\"\210\311\202F\312\303!\203E\311\307)\207" [DB dest suppress-questions 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] 5 #1#] semanticdb-save-db #2="Write out the database DB to its file.\nIf DB is not specified, then use the current database." #[(DB &optional suppress-questions) "\304\305\"\306!\205+\307!\205+\310\n\"\205+\311!\205+\312\313\314\217\210\315\316\206*\")\207" [DB objname suppress-questions semanticdb-current-database eieio-oref file semanticdb-dirty-p semanticdb-live-p semanticdb-file-directory-exists-p semanticdb-write-directory-p foo (byte-code "\302\206	!\207" [DB semanticdb-current-database eieio-persistent-save] 2) ((file-error (message "%S: %s" foo objname)) (error (byte-code "<\203A@;\203\303\304A@\"\203\305A@!\210\202]<\203<A@;\203<\303\306A@\"\203<\305A@!\210\202]	\204K\307\310\311A@\"!\203V\305\312A@\n#\210\202]\313\314A@\"\210\303\207" [foo suppress-questions objname string-match "write[- ]protected" message "no such directory" y-or-n-p format "Skip Error: %s ?" "Save Error: %S: %s" error "%S"] 4))) run-hook-with-args semanticdb-save-database-functions] 3 #2#] semanticdb-live-p #3="Return non-nil if the file associated with OBJ is live.\nLive databases are objects associated with existing directories." semanticdb-project-database #[(obj) "\301\302\"\205
\303\304\302\"!\207" [obj slot-boundp reference-directory file-exists-p eieio-oref] 4 #3#] #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." semanticdb-table #[(obj) "\302!\303	!\206
\304	!)\207" [obj full-filename semanticdb-full-filename find-buffer-visiting file-exists-p] 2 #4#]] 5)
#@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 (#$ . 8764))
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\300\310\302\310\311\"\"\210\304\310\305\312\313$\210\300\314\302\314\315\"\"\210\304\314\305\312\316$\210\300\317\302\317\320\"\"\210\304\317\321\312\322$\210\300\323\302\323\324\"\"\210\304\323\321\312\325$\210\300\326\302\326\327\"\"\210\304\326\321\312\330$\210\300\331\302\331\332\"\"\210\304\331\305\312\333$\207" [eieio--defalias object-write eieio--defgeneric-init-form #1="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." eieio--defmethod nil semanticdb-table #[(obj) "\303!\205N\304!\203-r\304!q\210\305 \210\306	!\203&	\203&\307\310\311 #\210\307\312d#\210)\313\314!!\307\315\316\n8#\210\307\317\320\n8#\210)\321\322\323\217\210\307\324\325#\207" [obj semantic-show-unmatched-syntax-mode fattr 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 tableerror (call-next-method) ((error (byte-code "\203\303\304!\210\305\306!\210\307	\310\311#\210\312\313\314\315	!\"\210\316\317\nA@\"\207" [semanticdb-data-debug-on-write-error obj tableerror require data-debug data-debug-new-buffer "*SEMANTICDB ERROR*" data-debug-insert-thing "*" "" nil message "Error Writing Table: %s" object-name error "%S"] 4))) dirty nil] 5 #1#] semanticdb-write-directory-p #2="Return non-nil if OBJ should be written to disk.\nUses `semanticdb-persistent-path' to determine the return value." semanticdb-project-database-file #[(obj) "\302\303\215)\207" [semanticdb-persistent-path path found (byte-code "\203s@;\203\304	\305\"@\230\203l\306\307\310\"\210\202l@\311=\203H\n\2039\312\302\304	\305\"\"\203l\306\307\310\"\210\202lG\313U\203l\306\307\310\"\210\202l@\314=\203W\306\307\315\"\210\202l@\316=\203f\306\307\310\"\210\202l\317\320@\"\210A\211\204\321 \207" [path obj semanticdb-project-predicate-functions semanticdb-persistent-path eieio-oref reference-directory throw found t project run-hook-with-args-until-success 1 never nil always error "Invalid path %S" call-next-method] 6)] 2 #2#] semanticdb-file-table #3="From OBJ, return FILENAME's associated table object." #[(obj filename) "\302\303!\304\305	\306\"#\207" [filename obj object-assoc file-name-nondirectory file eieio-oref tables] 6 #3#] semanticdb-file-name-non-directory #4="Return the file name DBCLASS will use.\nFile name excludes any directory part." :STATIC #[(dbclass) "\207" [semanticdb-default-file-name] 1 #4#] semanticdb-file-name-directory #5="Return the relative directory to where DBCLASS will save its cache file.\nThe returned path is related to DIRECTORY." #[(dbclass directory) "\203\303	!\304\n\305!\")\207	\207" [semanticdb-default-save-directory directory file cedet-directory-name-to-file-name expand-file-name file-name-as-directory] 4 #5#] semanticdb-cache-filename #6="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." #[(dbclass path) "\302	\"\303!P\207" [dbclass path semanticdb-file-name-directory semanticdb-file-name-non-directory] 3 #6#] semanticdb-full-filename #7="Fetch the full filename that OBJ refers to." #[(obj) "\301\302\"\207" [obj eieio-oref file] 3 #7#]] 5)
#@130 Cleanup any cache files associated with directories that no longer exist.
Optional NOERROR prevents errors from being displayed.
(defalias 'semanticdb-cleanup-cache-files #[(&optional noerror) "\204\f	\204\f\306\307!\210\205\264\310\n!\311\312#\313\211\"\f\313#\211$\203M$@#\314\315#!!\316\317
!!\204D#\"B\"$A\211$\204)*\"\203\253\320 %\321\216\322\323!&r&q\210\324 \210\325c\210\"\313#\211$\203\207$@\211#\326\261\210$A\211$\204t+\327&\312\211#\210\330\331&!\313\332#\210\333\334!\205\247\335\336\"\"\210\337\340!+\202\263	?\205\263\337\341!,\207" [semanticdb-default-save-directory noerror semanticdb-default-file-name regexp files orig 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 ((set-window-configuration #1=#:wconfig)) 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 #[(F) "\301\302\"\210\303!\207" [F message "Deleting to %s..." delete-file] 3] message "done." "No obsolete semanticdb.cache files." to-delete F --dolist-tail-- #1# buff] 5 (#$ . 12418) nil])
(provide 'semantic/db-file)
F1l3 Manager
