70 lines
2.5 KiB
Clojure
Executable File
70 lines
2.5 KiB
Clojure
Executable File
#!/usr/bin/env bb
|
|
|
|
;;based on: https://github.com/sinsongdev/gradle-cash-to-maven-repo/blob/master/gradle_cache_to_repo.py
|
|
|
|
(require '[clojure.tools.cli :refer [parse-opts]])
|
|
|
|
(def cli-options
|
|
[["-s" "--src DIRECTORY" "Gradle cache directory"
|
|
:missing "Must provide a source directory"]
|
|
["-d" "--dest DIRECTORY" "Maven repository directory"
|
|
:missing "Must provide a destination directory"]
|
|
["-a" "--artifact ARTIFACT" "Artifact id"]])
|
|
|
|
(def parsed-args (parse-opts *command-line-args* cli-options))
|
|
(def options (:options parsed-args))
|
|
|
|
(def src (:src options))
|
|
(def dest (:dest options))
|
|
|
|
(def filter
|
|
(if-let [filter-option (:artifact options)]
|
|
(str/split filter-option #":")))
|
|
|
|
(def group-filter (nth filter 0 nil))
|
|
(def artifact-filter (nth filter 1 nil))
|
|
(def version-filter (nth filter 2 nil))
|
|
|
|
(defn- create-path-string [& segments]
|
|
(str/join fs/file-separator segments))
|
|
|
|
(defn- get-dest-dir-string [group artifact version]
|
|
(create-path-string
|
|
dest
|
|
(str/replace group #"\." fs/file-separator)
|
|
artifact
|
|
version))
|
|
|
|
(defn- process-version [group artifact version]
|
|
(if (or (nil? version-filter) (= version version-filter))
|
|
(let [version-dir-string (create-path-string src group artifact version)
|
|
version-dir (fs/file version-dir-string)
|
|
hash-dirs (fs/list-dir version-dir)
|
|
dest-dir-string (get-dest-dir-string group artifact version)]
|
|
(fs/create-dirs (fs/file dest-dir-string))
|
|
(doseq [hash-dir hash-dirs
|
|
file (fs/list-dir hash-dir)]
|
|
(fs/copy file (fs/file (create-path-string dest-dir-string (fs/file-name file))) {:replace-existing true})))))
|
|
|
|
(defn- process-artifact [group artifact]
|
|
(if (or (nil? artifact-filter) (= artifact artifact-filter))
|
|
(let [artifact-dir-string (create-path-string src group artifact)
|
|
artifact-dir (fs/file artifact-dir-string)]
|
|
(doseq [version-dir (fs/list-dir artifact-dir)]
|
|
(process-version group artifact (fs/file-name version-dir))))))
|
|
|
|
(defn- process-group [group]
|
|
(if (or (nil? group-filter) (= group group-filter))
|
|
(let [group-dir-string (create-path-string src group)
|
|
group-dir (fs/file group-dir-string)]
|
|
(doseq [artifact-dir (fs/list-dir group-dir)]
|
|
(process-artifact group (fs/file-name artifact-dir))))))
|
|
|
|
(defn- process-cache []
|
|
(doseq [group-dir (fs/list-dir (fs/file src))]
|
|
(process-group (fs/file-name group-dir))))
|
|
|
|
(if-let [errors (:errors parsed-args)]
|
|
(doseq [error errors] (println (str "Error: " error)))
|
|
(process-cache))
|