mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-24 07:20:37 +00:00
131 lines
4.8 KiB
EmacsLisp
131 lines
4.8 KiB
EmacsLisp
;;; cedet.el --- Setup CEDET environment -*- lexical-binding: t; -*-
|
|
|
|
;; Copyright (C) 2002-2024 Free Software Foundation, Inc.
|
|
|
|
;; Author: David Ponce <david@dponce.com>
|
|
;; Maintainer: Eric M. Ludlam <zappo@gnu.org>
|
|
;; Version: 2.0
|
|
;; Keywords: OO, lisp
|
|
|
|
;; 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:
|
|
|
|
;;; Code:
|
|
|
|
(declare-function inversion-find-version "inversion")
|
|
|
|
(defconst cedet-version "2.0"
|
|
"Current version of CEDET.")
|
|
(make-obsolete-variable 'cedet-version 'emacs-version "29.1")
|
|
|
|
(defconst cedet-packages
|
|
`(
|
|
;;PACKAGE MIN-VERSION INSTALLDIR DOCDIR
|
|
(cedet ,cedet-version "common" "common" )
|
|
(eieio "1.4" nil "eieio" )
|
|
(semantic "2.2" nil "semantic/doc")
|
|
(srecode "1.2" nil "srecode" )
|
|
(ede "1.2" nil "ede" )
|
|
)
|
|
"Table of CEDET packages to install.")
|
|
(make-obsolete-variable 'cedet-packages 'package-built-in-p "29.1")
|
|
|
|
(defvar cedet-menu-map ;(make-sparse-keymap "CEDET menu")
|
|
(let ((map (make-sparse-keymap "CEDET menu")))
|
|
(define-key map [semantic-force-refresh] #'undefined)
|
|
(define-key map [semantic-edit-menu] #'undefined)
|
|
(define-key map [navigate-menu] #'undefined)
|
|
(define-key map [semantic-options-separator] #'undefined)
|
|
(define-key map [global-semantic-highlight-func-mode] #'undefined)
|
|
(define-key map [global-semantic-stickyfunc-mode] #'undefined)
|
|
(define-key map [global-semantic-decoration-mode] #'undefined)
|
|
(define-key map [global-semantic-idle-completions-mode] #'undefined)
|
|
(define-key map [global-semantic-idle-summary-mode] #'undefined)
|
|
(define-key map [global-semantic-idle-scheduler-mode] #'undefined)
|
|
(define-key map [global-semanticdb-minor-mode] #'undefined)
|
|
(define-key map [cedet-menu-separator] #'undefined)
|
|
(define-key map [ede-find-file] #'undefined)
|
|
(define-key map [ede-speedbar] #'undefined)
|
|
(define-key map [ede] #'undefined)
|
|
(define-key map [ede-new] #'undefined)
|
|
(define-key map [ede-target-options] #'undefined)
|
|
(define-key map [ede-project-options] #'undefined)
|
|
(define-key map [ede-build-forms-menu] #'undefined)
|
|
map)
|
|
"Menu keymap for the CEDET package.
|
|
This is used by `semantic-mode' and `global-ede-mode'.")
|
|
|
|
(defun cedet-version ()
|
|
"Display all active versions of CEDET and dependent packages.
|
|
|
|
The PACKAGE column is the name of a given package from CEDET.
|
|
|
|
REQUESTED VERSION is the version requested by the CEDET load script.
|
|
See `cedet-packages' for details.
|
|
|
|
FILE VERSION is the version number found in the source file
|
|
for the specified PACKAGE.
|
|
|
|
LOADED VERSION is the version of PACKAGE currently loaded in Emacs
|
|
memory and (presumably) running in this Emacs instance. Value is X
|
|
if the package has not been loaded."
|
|
(declare (obsolete emacs-version "28.1"))
|
|
(interactive)
|
|
(require 'inversion)
|
|
(with-output-to-temp-buffer "*CEDET*"
|
|
(princ "CEDET Version:\t") (princ cedet-version)
|
|
(princ "\n \t\t\tRequested\tFile\t\tLoaded")
|
|
(princ "\n Package\t\tVersion\t\tVersion\t\tVersion")
|
|
(princ "\n ----------------------------------------------------------")
|
|
(let ((p cedet-packages))
|
|
(while p
|
|
(let ((sym (symbol-name (car (car p)))))
|
|
(princ "\n ")
|
|
(princ sym)
|
|
(princ ":\t")
|
|
(if (< (length sym) 5)
|
|
(princ "\t"))
|
|
(if (< (length sym) 13)
|
|
(princ "\t"))
|
|
(let ((reqver (nth 1 (car p)))
|
|
(filever (car (inversion-find-version sym)))
|
|
(loadver (when (featurep (car (car p)))
|
|
(symbol-value (intern-soft (concat sym "-version"))))))
|
|
(princ reqver)
|
|
(if (< (length reqver) 8) (princ "\t"))
|
|
(princ "\t")
|
|
(if (string= filever reqver)
|
|
;; I tried the words "check" and "match", but that
|
|
;; just looked lame.
|
|
(princ "ok\t")
|
|
(princ filever)
|
|
(if (< (length filever) 8) (princ "\t")))
|
|
(princ "\t")
|
|
(if loadver
|
|
(if (string= loadver reqver)
|
|
(princ "ok")
|
|
(princ loadver))
|
|
(princ "Not Loaded"))
|
|
))
|
|
(setq p (cdr p))))
|
|
(princ "\n\n\nC-h f cedet-version RET\n for details on output format.")
|
|
))
|
|
|
|
(provide 'cedet)
|
|
|
|
;;; cedet.el ends here
|