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

Turns out has-source-package is not a good enough keep-class? heuristic.

Browse source 
Fixes #139.
This commit is contained in:
Phil Hagelberg 2010-11-23 20:24:48 -08:00
parent 3c5fecfe98
commit 619262621a
1 changed files with 12 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/leiningen/compile.clj
View file

@ -205,16 +205,23 @@
(defn- has-source-package?
"Test if the class file's package exists as a directory in :source-path."
[project f]
(.isDirectory (file (.replace (.getParent f)
(:compile-path project)
(:source-path project)))))
[project f source-path]
(and source-path (.isDirectory (file (.replace (.getParent f)
(:compile-path project)
source-path)))))
(defn- keep-class? [project f]
(or (has-source-package? project f (:source-path project))
(has-source-package? project f (:java-source-path project))
(.exists (file (str (.replace (.getParent f)
(:compile-path project)
(:source-path project)) ".clj")))))
(defn delete-non-project-classes [project]
(when (and (not= :all (:aot project))
(not (:keep-non-project-classes project)))
(doseq [f (file-seq (file (:compile-path project)))
:when (and (.isFile f) (not (has-source-package? project f)))]
:when (and (.isFile f) (not (keep-class? project f)))]
(.delete f))))
(defn- status [code msg]