meissa/cryogen-core
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

"mob next [ci-skip]"

Browse source
This commit is contained in:
Jan Krebs 2019-12-11 17:36:39 +01:00
parent ed46ed1e0e
commit 91c6812243
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/cryogen_core/classpath_able_io.clj
View file

@ -59,6 +59,20 @@
(recur (concat (drop 1 source-list) (.list source-file))))) (recur (concat (drop 1 source-list) (.list source-file)))))
)))) ))))
(defn copy-dir-3
[source-dir target-dir ignore-patterns]
(loop [source-list (.list source-dir)
f (first source-list)
source-file (io/file source-dir f)
target-file (io/file target-dir f)]
(if (.isFile source-file)
(do
(println source-file)
(io/make-parents target-file)
(io/copy f target-file)
(recur (drop 1 source-list) (second source-list) (io/file source-dir f)))
(copy-dir source-file target-file ignore-patterns))))
(defn copy-dir (defn copy-dir
[source-dir target-dir ignore-patterns] [source-dir target-dir ignore-patterns]
(let [source-list (.list source-dir)] (let [source-list (.list source-dir)]