;;; ede/detect.el --- EDE project detection and file associations
-;; Copyright (C) 2014 Free Software Foundation, Inc.
+;; Copyright (C) 2014-2015 Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <eric@siege-engine.com>
;; `ede-detect-scan-directory-for-project' -
;; Scan for a project via the file system.
;; `ede-detect-directory-for-project' -
-;; Check our file cache for a project. If that failes, use
+;; Check our file cache for a project. If that fails, use
;; the scan fcn above.
;;; Code:
;;stop))
(defvar ede--detect-found-project nil
- "When searching for a project, temporarilly save that file.")
+ "When searching for a project, temporarily save that file.")
(defun ede--detect-ldf-predicate (dir)
"Non-nil if DIR contain any known EDE project types."
Return a cons cell:
( ROOTDIR . PROJECT-AUTOLOAD)"
(let* ((ede--detect-found-project nil)
- (root
+ (root
(catch 'stopscan
(locate-dominating-file directory
'ede--detect-ldf-predicate))))
;;; Root Only project detect
;;
-;; For projects that only have a detectible ROOT file, but may in fact
+;; For projects that only have a detectable ROOT file, but may in fact
;; contain a generic file such as a Makefile, we need to do a second scan
;; to make sure we don't miss-match.
(defun ede--detect-ldf-rootonly-predicate (dir)
Return a cons cell:
( ROOTDIR . PROJECT-AUTOLOAD)"
(let* ((ede--detect-found-project nil)
- (root
+ (root
(catch 'stopscan
(locate-dominating-file directory
'ede--detect-ldf-rootonly-predicate))))
"If DIRECTORY has already been detected with AUTO, find the root.
Some projects have their dominating file in all their directories, such
as Project.ede. In that case we will detect quickly, but then need
-to scan upward to find the topmost occurance of that file."
+to scan upward to find the topmost occurrence of that file."
(let* ((ede--detect-nomatch-auto auto)
(root (locate-dominating-file directory
'ede--detect-ldf-root-predicate)))
(if moreroot
moreroot
- ;; If we didn't find a root from the generic project, then
+ ;; If we didn't find a root from the generic project, then
;; we need to rescan upward.
(cons (ede--detect-scan-directory-for-project-root root auto) auto)))
(car ans)
(eieio-object-name-string (cdr ans)))
(message "No Project found.") )))
-
+
(provide 'ede/detect)