diff options
| author | Shagun Agrawal <agrawalshagun07@gmail.com> | 2024-07-28 22:02:14 +0530 |
|---|---|---|
| committer | Shagun Agrawal <agrawalshagun07@gmail.com> | 2024-07-28 22:02:14 +0530 |
| commit | 30f2e3d8008d52cdccd6dcc5ba5c602079469f49 (patch) | |
| tree | 18aaa5282dcfa0c7a4ce8ec8d584206615f4aaff /src/cljcc/util.clj | |
| parent | b6de8db464151fa1300c5a47e508e9e792d034d0 (diff) | |
Refactor compiler driver, add running individual stages from cli
Diffstat (limited to 'src/cljcc/util.clj')
| -rw-r--r-- | src/cljcc/util.clj | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/cljcc/util.clj b/src/cljcc/util.clj index 81419e4..6c6c88e 100644 --- a/src/cljcc/util.clj +++ b/src/cljcc/util.clj @@ -2,6 +2,12 @@ (:require [clojure.java.shell :refer [sh]] [cljcc.log :as log])) +(defn make-file-name + ([^String filename ^String ext] + (str filename "." ext)) + ([directory filename ext] + (str directory "/" filename "." ext))) + (defn get-os [] (let [os-name (.toLowerCase (System/getProperty "os.name"))] (cond @@ -10,7 +16,7 @@ :else :unsupported))) (defn mac-aarch64? [] - (and (= :mac (get-os)) (= (System/getProperty "os.arch" "aarch64")))) + (and (= :mac (get-os)) (= (System/getProperty "os.arch") "aarch64"))) (defn handle-sh "Preprends arch -x86_64 if running under Mac M chips." |