From 05611820413a6f691da269e631f4359185416155 Mon Sep 17 00:00:00 2001
From: Shagun Agrawal <agrawalshagun07@gmail.com>
Date: Fri, 16 Aug 2024 23:26:10 +0530
Subject: Switch to hand made parser, refactor asts to adjust change

Switch to hand made recursive descent parser.

Remove instaparse from dependencies.
---
 src/cljcc/util.clj | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

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

diff --git a/src/cljcc/util.clj b/src/cljcc/util.clj
index d3b2ea4..34b696c 100644
--- a/src/cljcc/util.clj
+++ b/src/cljcc/util.clj
@@ -25,11 +25,15 @@
     (apply sh "arch" "-x86_64" command args)
     (apply sh command args)))
 
-(defn exit [status msg]
-  (if (= status 0)
-    (log/info msg)
-    (log/error msg))
-  (System/exit status))
+(defn exit
+  ([status msg]
+   (if (= status 0)
+     (log/info msg)
+     (log/error msg))
+   (System/exit status))
+  ([status msg e]
+   (log/error (ex-data e))
+   (exit status msg)))
 
 (defn letter? [^Character ch]
   (or (= \_ ch)
@@ -50,6 +54,6 @@
 
 (defn read-number [str]
   (try
-    (Double/parseDouble str)
+    (Integer/parseInt str)
     (catch Exception e
       (throw (ex-info "Lexer error. Malformed number." {:message (.getMessage e)})))))
-- 
cgit v1.2.3