From 382c19861608e9ab9903c78f1e5c02bc061cc7c8 Mon Sep 17 00:00:00 2001
From: Shagun Agrawal <agrawalshagun07@gmail.com>
Date: Tue, 24 Dec 2024 00:05:11 +0530
Subject: Add driver changes and float regex

---
 src/cljcc/cljcc.clj | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'src/cljcc/cljcc.clj')

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))))))
-- 
cgit v1.2.3