;;; project-am.el --- A project management scheme based on automake files.
-;; Copyright (C) 1998-2000, 2003, 2005, 2007-2011
-;; Free Software Foundation, Inc.
+;; Copyright (C) 1998-2000, 2003, 2005, 2007-2014 Free Software
+;; Foundation, Inc.
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Version: 0.0.3
(defcustom project-am-compile-project-command nil
"*Default command used to compile a project."
:group 'project-am
- :type 'string)
+ :type '(choice (const nil) string))
(defcustom project-am-compile-target-command (concat ede-make-command " -k %s")
"*Default command used to compile a project."
(oref amf targets))
nil t))))
;; The input target might be new. See if we can find it.
- (amf (ede-load-project-file (oref ot path)))
+ (amf (ede-target-parent ot))
(ot (object-assoc target 'name (oref amf targets)))
(ofn (file-name-nondirectory (buffer-file-name))))
(if (not ot)
target (project-am-preferred-target-type (buffer-file-name)))))
(ede-with-projectfile ot
(makefile-move-to-macro (project-am-macro ot))
- (ede-maybe-checkout)
(makefile-end-of-command)
(insert " " ofn)
(makefile-fill-paragraph nil)
"Remove the current buffer from any project targets."
(ede-with-projectfile ot
(makefile-move-to-macro (project-am-macro ot))
- (if (and buffer-read-only vc-mode
- (y-or-n-p "Checkout Makefile.am from VC? "))
- (vc-toggle-read-only t))
- (ede-maybe-checkout)
(makefile-navigate-macro (concat " *" (regexp-quote (ede-name fnnd))))
(replace-match "" t t nil 0)
(makefile-fill-paragraph nil)
(if (not ot) (error "Error creating target object %S" ntype))
(ede-with-projectfile ot
(goto-char (point-min))
- (ede-maybe-checkout)
(makefile-next-dependency)
(if (= (point) (point-min))
(goto-char (point-max))
(progn (forward-line -1)
(end-of-line)
(insert "\n"))
- ;; If the above search fails, thats ok. We'd just want to be at
+ ;; If the above search fails, that's ok. We'd just want to be at
;; point-min anyway.
)
(makefile-insert-macro (car (cdr (cdr ntype))))))
If a given set of projects has already been loaded, then do nothing
but return the project for the directory given.
Optional ROOTPROJ is the root EDE project."
- (let* ((ede-constructiong t)
+ (let* ((ede-constructing t)
(amo (object-assoc (expand-file-name "Makefile.am" directory)
'file ede-projects)))
(when (not amo)
;; their object still exists!
;; FIGURE THIS OUT
(project-am-expand-subdirlist 'csubprojexpanded csubproj)
- ;; Ok, now lets look at all our sub-projects.
+ ;; Ok, now let's look at all our sub-projects.
(mapc (lambda (sp)
(let* ((subdir (file-name-as-directory
(expand-file-name
(oref this :name))
(defmethod project-compile-target-command ((this project-am-texinfo))
- "Default target t- use when compling a texinfo file."
+ "Default target t- use when compiling a texinfo file."
(let ((n (oref this :name)))
(if (string-match "\\.texi?\\(nfo\\)?" n)
(setq n (replace-match ".info" t t n)))
out))
-;;; Configure.in queries.
+;;; Configure.ac queries.
;;
(defvar project-am-autoconf-file-options
- '("configure.in" "configure.ac")
+ '("configure.ac" "configure.in")
"List of possible configure files to look in for project info.")
(defun project-am-autoconf-file (dir)
(configfiles nil)
)
(cond
- ;; Try configure.in or configure.ac
+ ;; Try configure.ac or configure.in
(conf-in
(project-am-with-config-current conf-in
(let ((aci (autoconf-parameters-for-macro "AC_INIT"))
(provide 'ede/project-am)
+;; Local variables:
+;; generated-autoload-load-name: "ede/project-am"
+;; End:
+
;;; ede/project-am.el ends here