mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/cedet: Use cl-generic instead of EIEIO's defgeneric/defmethod

Browse source 
* lisp/cedet/**/*.el: Mechanically replace all calls to defmethod/defgeneric
by calls to cl-defmethod/cl-defgeneric.
* lisp/cedet/srecode/table.el:
* lisp/cedet/srecode/fields.el:
* lisp/cedet/srecode/dictionary.el:
* lisp/cedet/srecode/compile.el:
* lisp/cedet/semantic/debug.el:
* lisp/cedet/semantic/db-ref.el:
* lisp/cedet/ede/base.el:
* lisp/cedet/ede/auto.el:
* lisp/cedet/ede.el: Require `cl-generic'.
This commit is contained in:
Stefan Monnier 2015-02-04 13:49:49 -05:00
parent 102a21d689
commit 73b17f7c2b
64 changed files with 836 additions and 812 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/cedet/ede/generic.el
View file

@ -148,19 +148,19 @@ The class allocated value is replace by different sub classes.")
"The baseclass for all generic EDE project types."
:abstract t)
(defmethod initialize-instance ((this ede-generic-project)
(cl-defmethod initialize-instance ((this ede-generic-project)
&rest fields)
"Make sure the targets slot is bound."
(call-next-method)
(cl-call-next-method)
(unless (slot-boundp this 'targets)
(oset this :targets nil))
)
(defmethod ede-project-root ((this ede-generic-project))
(cl-defmethod ede-project-root ((this ede-generic-project))
"Return my root."
this)
(defmethod ede-find-subproject-for-directory ((proj ede-generic-project)
(cl-defmethod ede-find-subproject-for-directory ((proj ede-generic-project)
dir)
"Return PROJ, for handling all subdirs below DIR."
proj)
@ -216,7 +216,7 @@ All directories need at least one target.")
))
match))
(defmethod ede-find-target ((proj ede-generic-project) buffer)
(cl-defmethod ede-find-target ((proj ede-generic-project) buffer)
"Find an EDE target in PROJ for BUFFER.
If one doesn't exist, create a new one for this directory."
(let* ((ext (file-name-extension (buffer-file-name buffer)))
@ -322,7 +322,7 @@ the class `ede-generic-project' project."
)
"Generic Project for makefiles.")
(defmethod ede-generic-setup-configuration ((proj ede-generic-makefile-project) config)
(cl-defmethod ede-generic-setup-configuration ((proj ede-generic-makefile-project) config)
"Setup a configuration for Make."
(oset config build-command "make -k")
(oset config debug-command "gdb ")
@ -335,7 +335,7 @@ the class `ede-generic-project' project."
)
"Generic Project for scons.")
(defmethod ede-generic-setup-configuration ((proj ede-generic-scons-project) config)
(cl-defmethod ede-generic-setup-configuration ((proj ede-generic-scons-project) config)
"Setup a configuration for SCONS."
(oset config build-command "scons")
(oset config debug-command "gdb ")
@ -348,7 +348,7 @@ the class `ede-generic-project' project."
)
"Generic Project for cmake.")
(defmethod ede-generic-setup-configuration ((proj ede-generic-cmake-project) config)
(cl-defmethod ede-generic-setup-configuration ((proj ede-generic-cmake-project) config)
"Setup a configuration for CMake."
(oset config build-command "cmake")
(oset config debug-command "gdb ")
@ -359,7 +359,7 @@ the class `ede-generic-project' project."
()
"Generic project found via Version Control files.")
(defmethod ede-generic-setup-configuration ((proj ede-generic-vc-project) config)
(cl-defmethod ede-generic-setup-configuration ((proj ede-generic-vc-project) config)
"Setup a configuration for projects identified by revision control."
)