|
|
|
@ -68,16 +68,23 @@
|
|
|
|
|
paths :- [s/Str]]
|
|
|
|
|
(loop [paths paths
|
|
|
|
|
result []]
|
|
|
|
|
(when (not (empty? paths))
|
|
|
|
|
(if (not (empty? paths))
|
|
|
|
|
(do
|
|
|
|
|
(let [path-to-work-with (first paths)
|
|
|
|
|
path-content (.list (io/file (file-from-cp-or-filesystem
|
|
|
|
|
file-to-work-with (io/file (file-from-cp-or-filesystem
|
|
|
|
|
fs-prefix
|
|
|
|
|
(str base-path "/" path-to-work-with))))
|
|
|
|
|
file-list (filter #(.isFile (io/file %)) path-content)
|
|
|
|
|
dir-list (filter #(not (.isFile %)) path-content)]
|
|
|
|
|
(println path-content)
|
|
|
|
|
;(println file-list)
|
|
|
|
|
(into result file-list)))))
|
|
|
|
|
(str base-path "/" path-to-work-with)))
|
|
|
|
|
result (into result [path-to-work-with])]
|
|
|
|
|
(cond
|
|
|
|
|
(nil? file-to-work-with) []
|
|
|
|
|
(.isFile file-to-work-with) (recur (drop 1 paths) result)
|
|
|
|
|
:else
|
|
|
|
|
(recur (into (drop 1 paths)
|
|
|
|
|
(map #(str path-to-work-with "/" %)
|
|
|
|
|
(.list file-to-work-with)))
|
|
|
|
|
result)
|
|
|
|
|
)))
|
|
|
|
|
result)))
|
|
|
|
|
|
|
|
|
|
(defn copy-file
|
|
|
|
|
[source-file
|
|
|
|
|