Function: ede-generic-load

ede-generic-load is a byte-compiled function defined in generic.el.gz.

Signature

(ede-generic-load DIR &optional ROOTPROJ)

Documentation

Return a Generic Project object if there is a match.

Return nil if there isn't one. Argument DIR is the directory it is created for. ROOTPROJ is nil, since there is only one project.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/ede/generic.el.gz
(defun ede-generic-load (dir &optional _rootproj)
  "Return a Generic Project object if there is a match.
Return nil if there isn't one.
Argument DIR is the directory it is created for.
ROOTPROJ is nil, since there is only one project."
  ;; Doesn't already exist, so let's make one.
  (let* ((alobj ede-constructing))
    (when (not alobj) (error "Cannot load generic project without the autoload instance"))
    ;;;
    ;; TODO - find the root dir.
    (let ((rootdir dir))
      (funcall (oref alobj class-sym)
	       (symbol-name (oref alobj class-sym))
	       :name (file-name-nondirectory (directory-file-name dir))
	       :version "1.0"
	       :directory (file-name-as-directory rootdir)
	       :file (expand-file-name (oref alobj proj-file)
				       rootdir)))
    ))