;ELC ;;; Compiled ;;; in Emacs version 27.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 data-debug semantic/db semantic/format] 2) #@47 Dump a list of all databases in Emacs memory. (defalias 'semanticdb-dump-all-table-summary #[nil "\302\303!\210\304\305!\210\306 \307\")\207" [semanticdb-database-list db require data-debug data-debug-new-buffer "*SEMANTICDB*" data-debug-insert-stuff-list "*"] 3 (#$ . 513) nil]) (defalias 'semanticdb-adebug-database-list 'semanticdb-dump-all-table-summary) #@37 Run ADEBUG on the current database. (defalias 'semanticdb-adebug-current-database #[nil "\302\303!\210\304\305!\210\306 \307\")\207" [semanticdb-current-database p require data-debug data-debug-new-buffer "*SEMANTICDB ADEBUG*" data-debug-insert-stuff-list "*"] 3 (#$ . 880) nil]) #@37 Run ADEBUG on the current database. (defalias 'semanticdb-adebug-current-table #[nil "\302\303!\210\304\305!\210\306 \307\")\207" [semanticdb-current-table p require data-debug data-debug-new-buffer "*SEMANTICDB ADEBUG*" data-debug-insert-stuff-list "*"] 3 (#$ . 1168) nil]) #@37 Run ADEBUG on the current database. (defalias 'semanticdb-adebug-project-database-list #[nil "\301\302!\210\303 \304\305!\210\306\307\")\207" [p require data-debug semanticdb-current-database-list data-debug-new-buffer "*SEMANTICDB ADEBUG*" data-debug-insert-stuff-list "*"] 3 (#$ . 1451) nil]) #@60 Validate that CACHE tags do not have any overlays in them. (defalias 'semanticdb-table-oob-sanity-check #[(cache) "\205&\302\303 8)!\203\304\305\306@!\"\210\307\310@!!\210A\211\204\311\207" [cache tag overlayp 4 message "Tag %s has an erroneous overlay!" semantic-format-tag-summarize semanticdb-table-oob-sanity-check semantic-tag-components-with-overlays nil] 5 (#$ . 1754)]) #@40 Validate the current semanticdb TABLE. (defalias 'semanticdb-table-sanity-check #[(&optional table) "\204 \304!\305\n!\211\203r q\210\306 )\202!\307\310!!*\207" [table semanticdb-current-table full-filename buff semanticdb-full-filename find-buffer-visiting semantic-sanity-check semanticdb-table-oob-sanity-check semanticdb-get-tags] 4 (#$ . 2150) nil]) #@41 Validate the current semantic database. (defalias 'semanticdb-database-sanity-check #[nil "\302!\211\205\303 @!\210 A\211\204\304)\207" [semanticdb-current-database tables semanticdb-get-database-tables semanticdb-table-sanity-check nil] 3 (#$ . 2522) nil]) (provide 'semantic/db-debug)