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

Tail recursion works

Browse source
This commit is contained in:
Jan Krebs 2019-12-13 11:03:41 +01:00
parent 64a3b1d62c
commit b782c7feca
1 changed files with 19 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
src/cryogen_core/classpath_able_io.clj
View file

@ -47,27 +47,30 @@
(do (io/make-parents target-file)
(io/copy source-file target-file)))
(defn- build-f-for-subdirs
"builds the list for subdirs and returns it"
[f]; TODO: f is not what i would be expecting here
(let [xs (.list f)]
(println (str "** f: " f " xs: " (apply str xs)))
(map #(str f "/" %) xs)))
(defn copy-dir
[source-dir target-dir ignore-patterns]
(loop [l-source-list (.list source-dir)
l-source-dir source-dir
l-target-dir target-dir]
(println (str "source-dir: " source-dir " target-dir: " target-dir " f: ") (first l-source-list) " second: " (second l-source-list))
(let [f (first l-source-list)
second? (not (nil? (second l-source-list)))
target-file (io/file target-dir f)
source-file (io/file source-dir f)]
; TODO: .isFile is called on wrong path to the actual file, does not consider the path leading to the subdirectory of the file
(println "type of f: " (type f))
(loop [source-list (.list source-dir)
file-path-prefix [""]]
(let [f (first source-list)
second? (not (nil? (second source-list)))
target-file (io/file target-dir (str (first file-path-prefix) f))
source-file (io/file source-dir (str (first file-path-prefix) f))]
(if (.isFile source-file)
(do
(copy-file f target-file)
;; continue copying files
(copy-file source-file target-file)
(when second?
(recur (drop 1 l-source-list) source-dir target-dir)))
;; recur down to contained directory
(do (println (type (.list source-file)))
(when second? (recur (concat (.list source-file) (drop 1 l-source-list)) source-file target-file)))))))
(recur (drop 1 source-list) (drop 1 file-path-prefix))))
(when (> (count (.list source-file)) 0)
(recur (concat (.list source-file) (drop 1 source-list))
(concat (repeat (count (.list source-file)) (str (first file-path-prefix) f "/"))
(drop 1 file-path-prefix))))))))
(defn copy-resources
[fs-prefix source-path target-path ignore-patterns]