diff options
Diffstat (limited to 'src/cljcc/cljcc.clj')
| -rw-r--r-- | src/cljcc/cljcc.clj | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/cljcc/cljcc.clj b/src/cljcc/cljcc.clj index e36658e..c03301d 100644 --- a/src/cljcc/cljcc.clj +++ b/src/cljcc/cljcc.clj @@ -37,11 +37,15 @@ (defn -main "Main entrypoint for cljcc compiler." [& args] - (let [{:keys [file-path exit-message ok? options]} (validate-args args)] + (let [{:keys [file-path exit-message ok? options]} (validate-args args) + libs (filterv (fn [v] (and + (string? v) + (re-matches #"-l.+" v))) + args)] (if exit-message (exit (if ok? 0 1) exit-message) (try - (d/run file-path options) + (d/run file-path (assoc options :libs libs)) (exit 0 "Successfully executed.") (catch Exception e (exit 1 (ex-message e) e)))))) |