yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Differentiate between no compilable namespaces and no stale namespaces.

Browse source
This commit is contained in:
Mark McGranaghan 2010-02-04 10:36:43 -05:00 committed by Phil Hagelberg
parent bf2f63c942
commit 7d57e70e3f
1 changed files with 31 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

53
src/leiningen/compile.clj
View file

@ -9,22 +9,31 @@
java.lang.management.ManagementFactory
(org.apache.tools.ant.types Environment$Variable Path)))
(defn namespaces-to-compile
"Returns a seq of the namespaces which need compiling."
(defn compilable-namespaces
"Retrns a seq of the namespaces that are compilable, regardless of whether
their class files are present and up-to-date."
[project]
;; TODO: Compile :main ns if needed
(for [n (cond (coll? (:namespaces project))
(:namespaces project)
(= :all (:namespaces project))
(find-namespaces-in-dir (file (:source-path project))))
:let [ns-file (str (-> (name n)
(.replaceAll "\\." "/")
(.replaceAll "-" "_")))]
:when (> (.lastModified (file (:source-path project)
(str ns-file ".clj")))
(.lastModified (file (:compile-path project)
(str ns-file "__init.class"))))]
n))
(cond
(coll? (:namespaces project))
(:namespaces project)
(= :all (:namespaces project))
(find-namespaces-in-dir (file (:source-path project)))))
(defn stale-namespaces
"Given a seq of namespaces that are both compilable and that hav missing or
out-of-date class files."
[project]
(filter
(fn [n]
(let [ns-file (str (-> (name n)
(.replaceAll "\\." "/")
(.replaceAll "-" "_")))]
(> (.lastModified (file (:source-path project)
(str ns-file ".clj")))
(.lastModified (file (:compile-path project)
(str ns-file "__init.class"))))))
(compilable-namespaces project)))
(defn find-lib-jars
"Returns a seq of Files for all the jars in the project's library directory."
@ -130,18 +139,18 @@
(defn compile
"Ahead-of-time compile the project. Looks for all namespaces under src/
unless a list of :namespaces is provided in project.clj."
unless a list of :namespaces is provided in project.clj."
[project]
;; dependencies should be resolved by explicit "lein deps",
;; otherwise it will be done only if :library-path is empty
(when (empty? (find-lib-jars project))
(deps project :skip-dev))
(.mkdir (file (:compile-path project)))
(let [namespaces (namespaces-to-compile project)]
(if (seq namespaces)
(if (compilable-namespaces project)
(if-let [namespaces (seq (stale-namespaces project))]
(eval-in-project project
`(doseq [namespace# '~namespaces]
(println "Compiling" namespace#)
(clojure.core/compile namespace#)))
(println "No :namespaces listed for compilation in project.clj."))))
`(doseq [namespace# '~namespaces]
(println "Compiling" namespace#)
(clojure.core/compile namespace#)))
(println "All :namespaces already compiled."))
(println "No :namespaces listed for compilation in project.clj.")))