mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-04-27 16:51:06 -07:00
cb85c0d8be
* cedet-idutils.el (cedet-idutils-make-command): New option. (cedet-idutils-mkid-call): (cedet-idutils-create/update-database): New functions. * cedet-cscope.el (cedet-cscope-create): (cedet-cscope-create/update-database): New functions. (cedet-cscope-support-for-directory): Make interactive. * cedet-global.el (cedet-global-gtags-command): New option. (cedet-gnu-global-gtags-call) (cedet-gnu-global-create/update-database): New functions. * ede.el (ede-save-cache): Fix recentf-exclude expression. (ede-make-dist): Always use toplevel project. (ede-buffer-object): If we fail to find an object in the current project, loop upward looking for a match. If no target is found, use most local project. (ede-buffer-belongs-to-target-p) (ede-buffer-belongs-to-project-p): New functions. (ede-initialize-state-current-buffer): New function. (ede-target-forms-menu, ede-project-buffers): Use them. (ede-minor-mode, ede-reset-all-buffers): Use it. (project-interactive-select-target, project-add-file): Don't use ede-project-force-load. (ede-buffer-object): New arg PROJSYM. (ede-minor-mode): Remove ede-directory-project-p test. (ede-initialize-state-current-buffer): Don't test for ede-directory-project-p if there is a matching open project. (ede-customize-forms-menu): Prevent error if there is no project. (ede-load-project-file): Set ede-constructing to the thing being constructed, instead of t. (ede-project-force-load): Deleted. * ede/base.el: * ede/auto.el: * ede/custom.el: New files. * ede/autoconf-edit.el (autoconf-find-last-macro) (autoconf-parameters-for-macro): Parse multiline parameters of macros. Optionally ignore case and at bol for macro. (autoconf-parameter-strip): Use greedy match for newlines. (autoconf-new-automake-string): Deleted. (autoconf-new-program): Use SRecode to fill an empty file. * ede/cpp-root.el (ede-create-lots-of-projects-under-dir): New function. * ede/files.el (ede-flush-project-hash): New command. (ede-convert-path): Add optional PROJECT arg. (ede-directory-project-p): Obey ".ede-ignore". (ede-expand-filename-local) (ede-expand-filename-impl-via-subproj): New methods. (ede-expand-filename-impl): Use them. (ede-project-root, ede-project-root-directory): Move to ede/auto.el. * ede/locate.el (ede-locate-flush-hash): (ede-locate-create/update-root-database): New methods. (initialize-instance): Use ede-locate-flush-hash. * ede/pmake.el (ede-proj-makefile-insert-variables): If this is the top project and not a metasubproject, set TOP to CURDIR. (ede-proj-makefile-insert-variables): Output a target's object list whether or not the vars are already in the Makefile. (ede-pmake-insert-variable-once): New macro. * ede/project-am.el (project-am-with-makefile-current): Add recentf-exclude. (project-am-load-makefile): Obey an optional suggested name. (project-am-expand-subdirlist): New function. (project-am-makefile::project-rescan): Use it. Combine SUBDIRS and DIST_SUBDIRS. (project-am-meta-type-alist): A list to scan better Makefile.am (project-am-scan-for-targets): Scan also over project-am-meta-type-alist. (ede-system-include-path): Simple implementation. (ede-find-target): Deleted. EDE core takes care of this. (ede-buffer-mine): Create the searched filename as relative. (project-am-load): Simplify, using autoconf-edit. (project-am-extract-package-info): Fix separators. * ede/proj.el (project-run-target): New method. (project-make-dist, project-compile-project): Use ede-proj-automake-p to determine which kind of compile to use. (project-rescan): Call ede-load-project-file. (ede-buffer-mine): Add more file names that belong to the project. (ede-proj-compilers): Improve error message. * ede/proj-obj.el (ede-ld-linker): Use the LDDEPS variable. (ede-source-c++): Add more C++ extensions. (ede-proj-target-makefile-objectcode): Quote initforms. Support lex and yacc. * ede/proj-prog.el (ede-proj-makefile-insert-rules): Removed. (ede-proj-makefile-insert-variables): New, add LDDEPS. (ede-proj-makefile-insert-automake-post-variables): Add LDADD variable. Use ldlibs-local slot. Add a -l to ldlibs strings. (ede-proj-target-makefile-program): Swap order of two slots so they show up in the same order as in the command line. (ede-proj-target-makefile-program): Add ldlibs-local slot. * ede/proj-shared.el (ede-g++-libtool-shared-compiler): Fix inference rule to use cpp files. (ede-proj-target-makefile-shared-object): Quote initforms. * ede/proj-misc.el (ede-proj-target-makefile-miscelaneous): * ede/proj-info.el (ede-proj-target-makefile-info): * ede/proj-aux.el (ede-proj-target-aux): * ede/proj-archive.el (ede-proj-target-makefile-archive): * ede/proj-elisp.el (ede-proj-target-elisp) (ede-proj-target-elisp-autoloads): Quote initforms. * ede/srecode.el (ede-srecode-setup): Load autoconf templates. * ede/shell.el (ede-shell-buffer): Fix buffer name. * ede/pconf.el (ede-proj-configure-synchronize): If user events occur while waiting for the compile process to finish, pull them in and discard those events.
128 lines
4.3 KiB
EmacsLisp
128 lines
4.3 KiB
EmacsLisp
;;; ede/auto.el --- Autoload features for EDE
|
|
|
|
;; Copyright (C) 2010 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 <http://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
;;
|
|
;; EDE Autoloads are a way to refer to different project types without
|
|
;; loading those projects into Emacs.
|
|
;;
|
|
;; These routines are used to detect a project in a filesystem before
|
|
;; handing over control to the usual EDE project system.
|
|
|
|
;;; Code:
|
|
|
|
(require 'eieio)
|
|
|
|
(defclass ede-project-autoload ()
|
|
((name :initarg :name
|
|
:documentation "Name of this project type")
|
|
(file :initarg :file
|
|
:documentation "The lisp file belonging to this class.")
|
|
(proj-file :initarg :proj-file
|
|
:documentation "Name of a project file of this type.")
|
|
(proj-root :initarg :proj-root
|
|
:type function
|
|
:documentation "A function symbol to call for the project root.
|
|
This function takes no arguments, and returns the current directories
|
|
root, if available. Leave blank to use the EDE directory walking
|
|
routine instead.")
|
|
(initializers :initarg :initializers
|
|
:initform nil
|
|
:documentation
|
|
"Initializers passed to the project object.
|
|
These are used so there can be multiple types of projects
|
|
associated with a single object class, based on the initilizeres used.")
|
|
(load-type :initarg :load-type
|
|
:documentation "Fn symbol used to load this project file.")
|
|
(class-sym :initarg :class-sym
|
|
:documentation "Symbol representing the project class to use.")
|
|
(new-p :initarg :new-p
|
|
:initform t
|
|
:documentation
|
|
"Non-nil if this is an option when a user creates a project.")
|
|
)
|
|
"Class representing minimal knowledge set to run preliminary EDE functions.
|
|
When more advanced functionality is needed from a project type, that projects
|
|
type is required and the load function used.")
|
|
|
|
(defvar ede-project-class-files
|
|
(list
|
|
(ede-project-autoload "edeproject-makefile"
|
|
:name "Make" :file 'ede/proj
|
|
:proj-file "Project.ede"
|
|
:load-type 'ede-proj-load
|
|
:class-sym 'ede-proj-project)
|
|
(ede-project-autoload "edeproject-automake"
|
|
:name "Automake" :file 'ede/proj
|
|
:proj-file "Project.ede"
|
|
:initializers '(:makefile-type Makefile.am)
|
|
:load-type 'ede-proj-load
|
|
:class-sym 'ede-proj-project)
|
|
(ede-project-autoload "automake"
|
|
:name "automake" :file 'ede/project-am
|
|
:proj-file "Makefile.am"
|
|
:load-type 'project-am-load
|
|
:class-sym 'project-am-makefile
|
|
:new-p nil))
|
|
"List of vectors defining how to determine what type of projects exist.")
|
|
|
|
;;; EDE project-autoload methods
|
|
;;
|
|
(defmethod ede-project-root ((this ede-project-autoload))
|
|
"If a project knows its root, return it here.
|
|
Allows for one-project-object-for-a-tree type systems."
|
|
nil)
|
|
|
|
(defmethod ede-project-root-directory ((this ede-project-autoload)
|
|
&optional file)
|
|
"If a project knows its root, return it here.
|
|
Allows for one-project-object-for-a-tree type systems.
|
|
Optional FILE is the file to test. If there is no FILE, use
|
|
the current buffer."
|
|
(when (not file)
|
|
(setq file default-directory))
|
|
(when (slot-boundp this :proj-root)
|
|
(let ((rootfcn (oref this proj-root)))
|
|
(when rootfcn
|
|
(condition-case nil
|
|
(funcall rootfcn file)
|
|
(error
|
|
(funcall rootfcn)))
|
|
))))
|
|
|
|
(defmethod ede-dir-to-projectfile ((this ede-project-autoload) dir)
|
|
"Return a full file name of project THIS found in DIR.
|
|
Return nil if the project file does not exist."
|
|
(let* ((d (file-name-as-directory dir))
|
|
(root (ede-project-root-directory this d))
|
|
(pf (oref this proj-file))
|
|
(f (cond ((stringp pf)
|
|
(expand-file-name pf (or root d)))
|
|
((and (symbolp pf) (fboundp pf))
|
|
(funcall pf (or root d)))))
|
|
)
|
|
(when (and f (file-exists-p f))
|
|
f)))
|
|
|
|
|
|
(provide 'ede/auto)
|
|
|
|
;;; ede/auto.el ends here
|