ikan Uploader :
Directory : /proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/
Upload File : |
| Current File : //proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/db.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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" '(#$ . 483))
(custom-declare-group 'semanticdb nil "Parser Generator Persistent Database interface." :group 'semantic)
#@31 List of all active databases.
(defvar semanticdb-database-list nil (#$ . 709))
#@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 (#$ . 795))
(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 (#$ . 1143))
(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 (#$ . 1429))
(make-variable-buffer-local 'semanticdb-current-database)
#@66 For a given buffer, this is the currently active database table.
(defvar semanticdb-current-table nil (#$ . 1605))
(byte-code "\300\301!\210\302\303\304\305!\"\210\302\306\307\305!\"\210\302\310\306\"\210\311\310\312\313#\210\314\305\315\306#\210\316\305\317\320\321$\210\322\323\317\324\317\325%\210\322\326\317\327\317\330%\207" [make-variable-buffer-local semanticdb-current-table defalias semanticdb-abstract-table-p eieio-make-class-predicate semanticdb-abstract-table semanticdb-abstract-table--eieio-childp eieio-make-child-predicate semanticdb-abstract-table-child-p make-obsolete "use (cl-typep ... 'semanticdb-abstract-table) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal 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.")) (:documentation "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) cl-generic-define-method semanticdb-get-tags ((this semanticdb-abstract-table)) #[(this) "\301\302\"\205 \303\302\"\207" [this slot-boundp tags eieio-oref] 3 "Retrieve the slot `tags' from an object of class `semanticdb-abstract-table'."] \(setf\ semanticdb-get-tags\) (value (this semanticdb-abstract-table)) #[(value this) "\302\303 #\207" [this value eieio-oset tags] 4]] 6)
#@69 You cannot create a new object of type `semanticdb-abstract-table'.
(defalias 'semanticdb-abstract-table #[(&rest _) "\300\301!\207" [error "Class semanticdb-abstract-table is abstract"] 2 (#$ . 4196)])
(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%\210\300\315\302\316\302\317%\210\300\320\302\321\302\322%\210\300\323\302\324\302\325%\210\300\326\302\327\302\330%\210\300\331\302\332\333\334%\210\335\336\337\340!\"\210\335\341\342\340!\"\210\335\343\341\"\210\344\343\345\346#\210\347\340\350\341#\210\351\340\302\352\353$\207" [cl-generic-define-method semanticdb-in-buffer-p nil ((obj semanticdb-abstract-table)) #[(obj) "\300\207" [nil] 1 "Return a nil, meaning abstract table OBJ is not in a buffer."] semanticdb-get-buffer ((obj semanticdb-abstract-table)) #[(obj) "\300\207" [nil] 1 "Return a buffer associated with OBJ.\nIf the buffer is not in memory, load it with `find-file-noselect'."] semanticdb-full-filename (buffer-or-string) #[(buffer-or-string) "\302!\203 rq\210\303 !)\207;\205 \304!\205 \305!\207" [buffer-or-string semanticdb-current-table bufferp semanticdb-full-filename file-exists-p expand-file-name] 2 "Fetch the full filename that BUFFER-OR-STRING refers to.\nThis uses semanticdb to get a better file name."] ((obj semanticdb-abstract-table)) #[(obj) "\300\207" [nil] 1 "Fetch the full filename that OBJ refers to.\nAbstract tables do not have file names associated with them."] semanticdb-dirty-p ((obj semanticdb-abstract-table)) #[(obj) "\300\207" [nil] 1 "Return non-nil if OBJ is dirty."] semanticdb-set-dirty ((obj semanticdb-abstract-table)) #[(obj) "\300\207" [nil] 1 "Mark the abstract table OBJ dirty.\nAbstract tables can not be marked dirty, as there is nothing\nfor them to synchronize against."] semanticdb-normalize-tags ((obj semanticdb-abstract-table) tags) #[(obj tags) "\207" [tags] 1 "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."] semanticdb-normalize-one-tag ((obj semanticdb-abstract-table) tag) #[(obj tag) " B\207" [obj tag] 2 "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."] object-print ((obj semanticdb-abstract-table) &rest strings) t #[(#1=#:cl--cnm obj &rest strings) "\203 G\303U\203# @;\203# @\304\230\203# \n\305\306\307\n!G\"\"\207\310\311\n#\207" [strings #1# obj 1 "" format " (%d tags)" semanticdb-get-tags apply call-next-method] 6 "Pretty printer extension for `semanticdb-abstract-table'.\nAdds the number of tags in this file to the object print name.\n\n(fn OBJ &rest STRINGS)"] defalias semanticdb-abstract-search-index-p eieio-make-class-predicate semanticdb-abstract-search-index semanticdb-abstract-search-index--eieio-childp eieio-make-child-predicate semanticdb-abstract-search-index-child-p make-obsolete "use (cl-typep ... 'semanticdb-abstract-search-index) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal ((table :initarg :table :type semanticdb-abstract-table :documentation "XRef to the table this belongs to.")) (:documentation "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)] 6)
#@76 You cannot create a new object of type `semanticdb-abstract-search-index'.
(defalias 'semanticdb-abstract-search-index #[(&rest _) "\300\301!\207" [error "Class semanticdb-abstract-search-index is abstract"] 2 (#$ . 8001)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\313\314\315\316!\"\210\313\317\320\316!\"\210\313\321\317\"\210\322\321\323\324#\210\325\316\326\317#\210\327\316\330\302\331$\207" [cl-generic-define-method semanticdb-get-table-index nil ((obj semanticdb-abstract-table)) #[(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 eieio-object-name " index" :table eieio-oset] 4 "Return the search index for the table OBJ.\nIf one doesn't exist, create it."] semanticdb-synchronize ((idx semanticdb-abstract-search-index) new-tags) #[(idx new-tags) "\300\207" ["Synchronize the search index IDX with some NEW-TAGS."] 1] semanticdb-partial-synchronize ((idx semanticdb-abstract-search-index) new-tags) #[(idx new-tags) "\300\207" ["Synchronize the search index IDX with some changed NEW-TAGS."] 1] defalias semanticdb-search-results-table-p eieio-make-class-predicate semanticdb-search-results-table semanticdb-search-results-table--eieio-childp eieio-make-child-predicate semanticdb-search-results-table-child-p make-obsolete "use (cl-typep ... 'semanticdb-search-results-table) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (semanticdb-abstract-table) (:documentation "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.")] 6)
#@70 Create a new object of class type `semanticdb-search-results-table'.
(defalias 'semanticdb-search-results-table #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semanticdb-search-results-table] 4 (#$ . 9783)])
(function-put 'semanticdb-search-results-table 'compiler-macro 'semanticdb-search-results-table--anon-cmacro)
(defalias 'semanticdb-search-results-table--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\302\304%\210\305\306\307\310!\"\210\305\311\312\310!\"\210\305\313\311\"\210\314\313\315\316#\210\317\310\320\311#\210\321\310\322\323\324$\207" [cl-generic-define-method semanticdb-refresh-table nil ((obj semanticdb-search-results-table) &optional force) #[(obj &optional force) "\300\207" [nil] 1 "If the tag list associated with OBJ is loaded, refresh it.\nThis will call `semantic-fetch-tags' if that file is in memory."] defalias semanticdb-table-p eieio-make-class-predicate semanticdb-table semanticdb-table--eieio-childp eieio-make-child-predicate semanticdb-table-child-p make-obsolete "use (cl-typep ... 'semanticdb-table) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal (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.")) (:documentation "A single table of tags derived from file.")] 6)
#@55 Create a new object of class type `semanticdb-table'.
(defalias 'semanticdb-table #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semanticdb-table] 4 (#$ . 12703)])
(function-put 'semanticdb-table 'compiler-macro 'semanticdb-table--anon-cmacro)
(defalias 'semanticdb-table--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\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\210\300\316\302\317\302\320%\210\300\321\302\322\302\323%\210\300\324\302\325\302\326%\210\327\330!\204D \331\332\333\334#\210\335\336\337\340!\"\210\335\341\342\340!\"\210\335\343\341\"\210\344\343\345\346#\210\331\340\347\341#\210\350\340\351\352\353$\210\300\354\302\355\302\356%\210\300\357\302\360\302\361%\207" [cl-generic-define-method semanticdb-in-buffer-p nil ((obj semanticdb-table)) #[(obj) "\302\303\"\304 !\203 \202 \305\303\306#)\207" [obj buff eieio-oref buffer buffer-live-p eieio-oset nil] 4 "Return a buffer associated with OBJ.\nIf the buffer is in memory, return that buffer."] semanticdb-get-buffer ((obj semanticdb-table)) #[(obj) "\302!\206 \303 \304\216\305\306!\307\"*\207" [obj save-match-data-internal semanticdb-in-buffer-p match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] find-file-noselect semanticdb-full-filename t] 3 "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'."] semanticdb-set-buffer ((obj semanticdb-table)) #[(obj) "\301!q\207" [obj semanticdb-get-buffer] 2 "Set the current buffer to be a buffer owned by OBJ.\nIf OBJ's file is not loaded, read it in first."] semanticdb-full-filename ((obj semanticdb-table)) #[(obj) "\301\302\303\"\302\211\304\"\305\"\"\207" [obj expand-file-name eieio-oref file parent-db reference-directory] 6 "Fetch the full filename that OBJ refers to."] semanticdb-dirty-p ((obj semanticdb-table)) #[(obj) "\301\302\"\207" [obj eieio-oref dirty] 3 "Return non-nil if OBJ is dirty."] semanticdb-set-dirty ((obj semanticdb-table)) #[(obj) "\301\302\303#\207" [obj eieio-oset dirty t] 4 "Mark the abstract table OBJ dirty."] object-print ((obj semanticdb-table) &rest strings) #[(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" ""] 7 "Pretty printer extension for `semanticdb-table'.\nAdds the number of tags in this file to the object print name.\n\n(fn OBJ &rest STRINGS)"] fboundp semanticdb-abstract-table-list-p put semanticdb-abstract-table-list cl-deftype-handler #[nil "\300\207" [(list-of semanticdb-abstract-table)] 1] defalias semanticdb-project-database-p eieio-make-class-predicate semanticdb-project-database semanticdb-project-database--eieio-childp eieio-make-child-predicate semanticdb-project-database-child-p make-obsolete "use (cl-typep ... 'semanticdb-project-database) instead" "25.1" cl-deftype-satisfies eieio-defclass-internal (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.")) (:documentation "Database of file tables.") semanticdb-get-database-tables ((this semanticdb-project-database)) #[(this) "\301\302\"\205 \303\302\"\207" [this slot-boundp tables eieio-oref] 3 "Retrieve the slot `tables' from an object of class `semanticdb-project-database'."] \(setf\ semanticdb-get-database-tables\) (value (this semanticdb-project-database)) #[(value this) "\302\303 #\207" [this value eieio-oset tables] 4]] 6)
#@66 Create a new object of class type `semanticdb-project-database'.
(defalias 'semanticdb-project-database #[(&rest slots) "\301\302\303#\207" [slots apply make-instance semanticdb-project-database] 4 (#$ . 17318)])
(function-put 'semanticdb-project-database 'compiler-macro 'semanticdb-project-database--anon-cmacro)
(defalias 'semanticdb-project-database--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\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\210\300\316\302\317\302\320%\210\300\321\302\322\302\323%\210\300\324\302\325\302\326%\207" [cl-generic-define-method semanticdb-full-filename nil ((obj semanticdb-project-database)) #[(obj) "\300\207" [nil] 1 "Fetch the full filename that OBJ refers to.\nAbstract tables do not have file names associated with them."] semanticdb-dirty-p ((DB semanticdb-project-database)) #[(DB) "\303\304\305\"\n\204 \203 \306 @! A\202 \n*\207" [DB tabs dirty nil eieio-oref tables semanticdb-dirty-p] 4 "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."] object-print ((obj semanticdb-project-database) &rest strings) #[(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" ""] 8 "Pretty printer extension for `semanticdb-project-database'.\nAdds the number of tables in this file to the object print name.\n\n(fn OBJ &rest STRINGS)"] semanticdb-create-database ((dbc (subclass semanticdb-project-database)) directory) #[(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 "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."] semanticdb-flush-database-tables ((db semanticdb-project-database)) #[(db) "\301\302\303#\207" [db eieio-oset tables nil] 4 "Reset the tables in DB to be empty."] semanticdb-create-table ((db semanticdb-project-database) file) #[(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 "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."] semanticdb-file-table ((obj semanticdb-project-database) filename) #[(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 "From OBJ, return FILENAME's associated table object."]] 6)
#@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 (#$ . 20595)])
#@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 (#$ . 20829)])
#@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 (#$ . 21067)])
(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#\210\314\303\315\316\317$\207" [defalias semanticdb-abstract-cache-p eieio-make-class-predicate semanticdb-abstract-cache semanticdb-abstract-cache--eieio-childp eieio-make-child-predicate semanticdb-abstract-cache-child-p make-obsolete "use (cl-typep ... 'semanticdb-abstract-cache) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal nil ((table :initarg :table :type semanticdb-abstract-table :documentation "Cross reference to the table this belongs to.")) (:documentation "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)] 5)
#@69 You cannot create a new object of type `semanticdb-abstract-cache'.
(defalias 'semanticdb-abstract-cache #[(&rest _) "\300\301!\207" [error "Class semanticdb-abstract-cache is abstract"] 2 (#$ . 22525)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\210\316\317\320\321!\"\210\316\322\323\321!\"\210\316\324\322\"\210\325\324\326\327#\210\330\321\331\322#\210\332\321\302\333\334$\207" [cl-generic-define-method semanticdb-cache-get nil ((table semanticdb-abstract-table) desired-class) #[(table desired-class) "\304\305\"\204 \306\307!\210\310 \303\"\311\n\204, \203, \312 @!=\203& @ A\202 \n\2034 \n\202A \313\314 #\315 \303\n#\210\n*\207" [desired-class table obj cache child-of-class-p semanticdb-abstract-cache error "Invalid SemanticDB cache" eieio-oref nil eieio-object-class "Cache" :table object-add-to-list] 4 "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."] semanticdb-cache-remove ((table semanticdb-abstract-table) cache) #[(table cache) "\302\301 #\207" [table cache object-remove-from-list] 4 "Remove from TABLE the cache object CACHE."] semanticdb-synchronize ((cache semanticdb-abstract-cache) new-tags) #[(cache new-tags) "\300\207" ["Synchronize a CACHE with some NEW-TAGS."] 1] semanticdb-partial-synchronize ((cache semanticdb-abstract-cache) new-tags) #[(cache new-tags) "\300\207" ["Synchronize a CACHE with some changed NEW-TAGS."] 1] defalias semanticdb-abstract-db-cache-p eieio-make-class-predicate semanticdb-abstract-db-cache semanticdb-abstract-db-cache--eieio-childp eieio-make-child-predicate semanticdb-abstract-db-cache-child-p make-obsolete "use (cl-typep ... 'semanticdb-abstract-db-cache) instead" "25.1" put cl-deftype-satisfies eieio-defclass-internal ((db :initarg :db :type semanticdb-project-database :documentation "Cross reference to the database this belongs to.")) (:documentation "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)] 6)
#@72 You cannot create a new object of type `semanticdb-abstract-db-cache'.
(defalias 'semanticdb-abstract-db-cache #[(&rest _) "\300\301!\207" [error "Class semanticdb-abstract-db-cache is abstract"] 2 (#$ . 24947)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\210\300\316\302\317\302\320%\210\300\321\302\322\302\323%\210\300\310\302\324\302\325%\210\300\313\302\326\302\327%\210\300\330\302\331\302\332%\207" [cl-generic-define-method semanticdb-cache-get nil ((db semanticdb-project-database) desired-class) #[(db desired-class) "\304\305\"\204 \306\307!\210\310 \303\"\311\n\204, \203, \312 @!=\203& @ A\202 \n\2034 \n\202A \313\314 #\315 \303\n#\210\n*\207" [desired-class db obj cache child-of-class-p semanticdb-abstract-cache error "Invalid SemanticDB cache" eieio-oref nil eieio-object-class "Cache" :db object-add-to-list] 4 "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-cache-remove ((db semanticdb-project-database) cache) #[(db cache) "\302\301 #\207" [db cache object-remove-from-list] 4 "Remove from TABLE the cache object CACHE."] semanticdb-synchronize ((cache semanticdb-abstract-db-cache) new-tags) #[(cache new-tags) "\300\207" ["Synchronize a CACHE with some NEW-TAGS."] 1] semanticdb-partial-synchronize ((cache semanticdb-abstract-db-cache) new-tags) #[(cache new-tags) "\300\207" ["Synchronize a CACHE with some changed NEW-TAGS."] 1] semanticdb-refresh-table ((obj semanticdb-table) &optional force) #[(obj &optional force) "\303!\203 \212\304!\210\305 )\207 \205% \212\306\307!\310\"\211q\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 "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-needs-refresh-p ((obj semanticdb-table)) #[(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 "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."] ((table semanticdb-abstract-table) 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 "Synchronize the table TABLE with some NEW-TAGS."] ((table semanticdb-abstract-table) new-tags) #[(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 @BA\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 "Synchronize the table TABLE where some NEW-TAGS changed."] semanticdb-save-db ((DB semanticdb-project-database) &optional suppress-questions) #[(DB &optional suppress-questions) "\300\207" [nil] 1 "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."]] 6)
#@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 (#$ . 29514) nil])
#@34 Save all semantic tag databases.
(defalias 'semanticdb-save-all-db #[nil "\204 \303\304!\210\305\306\n\"\210)?\205 \303\307!\207" [noninteractive semanticdb--inhibit-make-directory semanticdb-database-list message "Saving tag summaries..." mapc semanticdb-save-db "Saving tag summaries...done"] 3 (#$ . 29814) 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 \305\306 \3052 \307\310 \"0*\207\3111) \305\306 \3052& \307\312 \"0*0\207 \313\314\315\316p\317\f!#\"\210)\320\207" [debug-on-error semantic--on-input-start-marker semantic-current-input-throw-symbol semanticdb-database-list err semanticdb-idle-save point-marker mapc #[#1=(db) "\203 \303 \204 r\304 !q\210\212 b\210\305 *\203 \306\307\"\210\310\n\311\"\207" [semantic-current-input-throw-symbol semantic--on-input-start-marker db input-pending-p marker-buffer accept-process-output throw semanticdb-idle-save semanticdb-save-db t] 3] (error) #[#1# "\203 \303 \204 r\304 !q\210\212 b\210\305 *\203 \306\307\"\210\310\n\311\"\207" [semantic-current-input-throw-symbol semantic--on-input-start-marker db input-pending-p marker-buffer accept-process-output throw semanticdb-idle-save semanticdb-save-db t] 3] message "Auto-DB Save: %S" format "%S - %s" error-message-string nil] 7 (#$ . 30143)])
#@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 (#$ . 31215))
(cl-generic-define-method 'semanticdb-write-directory-p nil '((obj semanticdb-project-database)) nil #[(obj) "\300\207" [nil] 1 "Return non-nil if OBJ should be written to disk.\nUses `semanticdb-persistent-path' to determine the return value."])
#@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 (#$ . 31941)])
#@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 (#$ . 32185))
#@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\302BB\207" [body let ((semanticdb-match-any-mode t))] 3 (#$ . 32481)]))
(byte-code "\300\301\302\303#\210\304\305\306\307\306\310%\210\304\311\306\312\306\313%\210\304\311\306\314\306\315%\210\316\317\306\320\321\322\323\324&\207" [put semanticdb-with-match-any-mode lisp-indent-function 0 cl-generic-define-method semanticdb-equivalent-mode-for-search nil (table &optional buffer) #[(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 "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."] semanticdb-equivalent-mode ((table semanticdb-abstract-table) &optional buffer) #[(table &optional buffer) "\300\207" [nil] 1 "Return non-nil if TABLE's mode is equivalent to BUFFER.\nEquivalent modes are specified by the `semantic-equivalent-major-modes'\nlocal variable."] ((table semanticdb-table) &optional buffer) #[(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 (#$ . 34581))
#@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 (#$ . 35053))
(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 (#$ . 35446))
#@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 @\fBA\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 (#$ . 35573)])
#@51 Hash table mapping file names to database tables.
(defvar semanticdb-file-table-hash (make-hash-table :test 'equal) (#$ . 36776))
#@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 (#$ . 36912)])
#@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 (#$ . 37135)])
#@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\355 \306!\205\355 \307!\205\355 \310!\311!\312\n\313=\203H \314!\315 !\206- \316 ! \317\f \"\211\203G \320\n\"\210 \230\204G \320 \n\"\210)\n\203_ \321\n!\203_ \212\322\n!\210\323 \210\n)\202\354 \n\203k
\203k \n\202\354 \n\203\202 \324\325\n\326\"!\203\202 \327\n!\204\202 \n\202\354 \203\214 \330 !\204\222 \330!\203\226 \312\202\354
\204\312 \n\204\246 \204\246 \314! \204\262 \n\203\262 \331\n!\332 !\320\n\"\210 \230\204\306 \320 \n\"\210\n\202\354 \204\322 \314!\333!\211 A\320\n\"\210 \230\204\352 \320 \n\"\210\n)+\207" [file default-directory tab fullfile db dontload file-exists-p file-regular-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 (#$ . 37338)])
#@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 (#$ . 38847))
(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\"\211q\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 (#$ . 39094)])
#@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 (#$ . 39667)])
(provide 'semantic/db)
Kontol Shell Bypass