371fdd4f1b
Remove a few more redundant `:group` args. Make use of lexical scoping to replace `(lambda...) with proper closures. * lisp/cedet/ede/custom.el (ede-project-sort-targets-list): Use `dotimes` and replace `(lambda..) with closures. * lisp/cedet/ede/proj-comp.el (proj-comp-insert-variable-once): * lisp/cedet/ede/pmake.el (ede-pmake-insert-variable-once): Remove unused var `addcr`. * lisp/cedet/semantic/complete.el: Use lexical-binding. (semantic-displayer-show-request): Remove unused var `typing-count`. Use `equal` instead of `stringp+string=`. * lisp/cedet/semantic/db-ebrowse.el: Use lexical-binding. (semanticdb-create-ebrowse-database): Remove unused vars `mma` and `regexp`. (semanticdb-ebrowse-strip-trees): Remove unused var `class` and `filename`. (semanticdb-ebrowse-add-globals-to-table): Remove unused var `fname`. * lisp/cedet/semantic/db-find.el: Use lexical-binding. (semanticdb-find-adebug-insert-scanned-tag-cons): Remove always-nil var `tip`. * lisp/cedet/semantic/db-global.el: Use lexical-binding. (semanticdb-enable-gnu-global-databases): Access local var `semantic--ih` by sticking its value in the code passed to `eval` rather than by dynamic scoping. * lisp/cedet/semantic/db-typecache.el: Use lexical-binding. (semanticdb-db-typecache-dump): Remove unused var `junk`. * lisp/cedet/semantic/debug.el: Use lexical-binding. * lisp/cedet/semantic/dep.el: Use lexical-binding. (semantic-add-system-include): Avoid `add-to-list` on a local variable. Access local var `value` by sticking its value in the code passed to `eval` rather than by dynamic scoping. (semantic-remove-system-include): Don't use `delete` on a list received from elsewhere. Access local var `value` by sticking its value in the code passed to `eval` rather than by dynamic scoping. (semantic-reset-system-include): Simplify a bit. * lisp/cedet/semantic/ede-grammar.el: Use lexical-binding. (project-compile-target): Remove unused vars `csrc` and `cb`. Use `cl-incf`. Remove apparently unneeded `with-no-warnings`. * lisp/cedet/semantic/edit.el: Use lexical-binding. (semantic-edits-change-over-tags): Remove unused var `inner-start`. (semantic-edits-incremental-parser-1): Silence warnings about intentionally unused var `last-cond`. * lisp/cedet/semantic/fw.el: Use lexical-binding. (recentf-exclude, semantic-init-hook, ede-auto-add-method) (flymake-start-syntax-check-on-find-file, auto-insert): Declare vars. * lisp/cedet/semantic/ia-sb.el: Use lexical-binding. (semantic-ia-sb-key-map): Move initialization into declaration. (semantic-ia-sb-more-buttons): Remove unused var `idx`. (semantic-ia-sb-line-path): Simplify `if` -> `or`. * lisp/cedet/semantic/idle.el (semantic-idle-breadcrumbs--tag-function): Make it a function returning a closure. * lisp/cedet/semantic/senator.el: Use lexical-binding. (senator-search-set-tag-class-filter): Replace `(lambda..) with a closure. * lisp/cedet/semantic/sort.el: Use lexical-binding. (semanticdb-search-system-databases): Declare var. (semantic-tag-external-member-children-default): Replace `(lambda..) with a closure. * lisp/cedet/semantic/tag-ls.el: Use lexical-binding. (semantic-tag-protection-default, semantic-tag-abstract-p-default): Simplify with `member`. * lisp/cedet/semantic/util.el: Use lexical-binding. (semantic-something-to-tag-table): Declare function `semanticdb-abstract-table--eieio-childp` called via `cl-typep`. * lisp/cedet/semantic/bovine/scm.el (semantic-default-scheme-setup): Remove duplicate setting of `imenu-create-index-function`. * lisp/cedet/semantic/decorate/mode.el (semantic-decoration-build-style-menu): Replace `(lambda..) with a closure. * lisp/cedet/srecode/cpp.el (srecode-semantic-apply-tag-to-dict): Remove always-t variable `member`. * lisp/cedet/srecode/mode.el (srecode-minor-mode-templates-menu): Replace `(lambda..) with a closure. Use `push`. * lisp/cedet/semantic/chart.el: Use lexical-binding. * lisp/cedet/semantic/db-debug.el: Use lexical-binding. * lisp/cedet/semantic/db-el.el: Use lexical-binding. * lisp/cedet/semantic/db-file.el: Use lexical-binding. * lisp/cedet/semantic/db-javascript.el: Use lexical-binding. * lisp/cedet/semantic/db-mode.el: Use lexical-binding. * lisp/cedet/semantic/db-ref.el: Use lexical-binding. * lisp/cedet/semantic/decorate.el: Use lexical-binding. * lisp/cedet/semantic/doc.el: Use lexical-binding. * lisp/cedet/semantic/find.el: Use lexical-binding. * lisp/cedet/semantic/format.el: Use lexical-binding. * lisp/cedet/semantic/html.el: Use lexical-binding. * lisp/cedet/semantic/ia.el: Use lexical-binding. * lisp/cedet/semantic/imenu.el: Use lexical-binding. * lisp/cedet/semantic/java.el: Use lexical-binding. * lisp/cedet/semantic/mru-bookmark.el: Use lexical-binding. * lisp/cedet/semantic/symref.el: Use lexical-binding. * lisp/cedet/semantic/tag-file.el: Use lexical-binding. * lisp/cedet/semantic/tag-write.el: Use lexical-binding. * lisp/cedet/semantic/texi.el: Use lexical-binding. * lisp/cedet/semantic/util-modes.el: Use lexical-binding.
110 lines
3.4 KiB
EmacsLisp
110 lines
3.4 KiB
EmacsLisp
;;; semantic/db-debug.el --- Extra level debugging routines for Semantic -*- lexical-binding: t; -*-
|
||
|
||
;; Copyright (C) 2008-2021 Free Software Foundation, Inc.
|
||
|
||
;; Author: Eric M. Ludlam <zappo@gnu.org>
|
||
|
||
;; This file is part of GNU Emacs.
|
||
|
||
;; GNU Emacs is free software: you can redistribute it and/or modify
|
||
;; it under the terms of the GNU General Public License as published by
|
||
;; the Free Software Foundation, either version 3 of the License, or
|
||
;; (at your option) any later version.
|
||
|
||
;; GNU Emacs is distributed in the hope that it will be useful,
|
||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;; GNU General Public License for more details.
|
||
|
||
;; You should have received a copy of the GNU General Public License
|
||
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
||
|
||
;;; Commentary:
|
||
;;
|
||
;; Various routines for debugging SemanticDB issues, or viewing
|
||
;; semanticdb state.
|
||
|
||
(require 'data-debug)
|
||
(require 'semantic/db)
|
||
(require 'semantic/format)
|
||
|
||
;;; Code:
|
||
;;
|
||
(defun semanticdb-dump-all-table-summary ()
|
||
"Dump a list of all databases in Emacs memory."
|
||
(interactive)
|
||
(require 'data-debug)
|
||
(let ((db semanticdb-database-list))
|
||
(data-debug-new-buffer "*SEMANTICDB*")
|
||
(data-debug-insert-stuff-list db "*")))
|
||
|
||
(defalias 'semanticdb-adebug-database-list #'semanticdb-dump-all-table-summary)
|
||
|
||
(defun semanticdb-adebug-current-database ()
|
||
"Run ADEBUG on the current database."
|
||
(interactive)
|
||
(require 'data-debug)
|
||
(let ((p semanticdb-current-database)
|
||
)
|
||
(data-debug-new-buffer "*SEMANTICDB ADEBUG*")
|
||
(data-debug-insert-stuff-list p "*")))
|
||
|
||
(defun semanticdb-adebug-current-table ()
|
||
"Run ADEBUG on the current database."
|
||
(interactive)
|
||
(require 'data-debug)
|
||
(let ((p semanticdb-current-table))
|
||
(data-debug-new-buffer "*SEMANTICDB ADEBUG*")
|
||
(data-debug-insert-stuff-list p "*")))
|
||
|
||
|
||
(defun semanticdb-adebug-project-database-list ()
|
||
"Run ADEBUG on the current database."
|
||
(interactive)
|
||
(require 'data-debug)
|
||
(let ((p (semanticdb-current-database-list)))
|
||
(data-debug-new-buffer "*SEMANTICDB ADEBUG*")
|
||
(data-debug-insert-stuff-list p "*")))
|
||
|
||
|
||
|
||
;;; Sanity Checks
|
||
;;
|
||
|
||
(defun semanticdb-table-oob-sanity-check (cache)
|
||
"Validate that CACHE tags do not have any overlays in them."
|
||
(while cache
|
||
(when (overlayp (semantic-tag-overlay cache))
|
||
(message "Tag %s has an erroneous overlay!"
|
||
(semantic-format-tag-summarize (car cache))))
|
||
(semanticdb-table-oob-sanity-check
|
||
(semantic-tag-components-with-overlays (car cache)))
|
||
(setq cache (cdr cache))))
|
||
|
||
(defun semanticdb-table-sanity-check (&optional table)
|
||
"Validate the current semanticdb TABLE."
|
||
(interactive)
|
||
(if (not table) (setq table semanticdb-current-table))
|
||
(let* ((full-filename (semanticdb-full-filename table))
|
||
(buff (find-buffer-visiting full-filename)))
|
||
(if buff
|
||
(with-current-buffer buff
|
||
(semantic-sanity-check))
|
||
;; We can't use the usual semantic validity check, so hack our own.
|
||
(semanticdb-table-oob-sanity-check (semanticdb-get-tags table)))))
|
||
|
||
(defun semanticdb-database-sanity-check ()
|
||
"Validate the current semantic database."
|
||
(interactive)
|
||
(let ((tables (semanticdb-get-database-tables
|
||
semanticdb-current-database)))
|
||
(while tables
|
||
(semanticdb-table-sanity-check (car tables))
|
||
(setq tables (cdr tables)))
|
||
))
|
||
|
||
|
||
|
||
(provide 'semantic/db-debug)
|
||
|
||
;;; semantic/db-debug.el ends here
|