From 8d981ffc2d59691d9cccf635ef143979fb0f2b9a Mon Sep 17 00:00:00 2001
From: Shagun Agrawal <agrawalshagun07@gmail.com>
Date: Sat, 16 Nov 2024 15:23:17 +0530
Subject: Lexing and parsing stage for long type specifier

Add long and parser type specifiers

Add malli schema for parsing stage
---
 src/cljcc/lexer.clj | 17 +++++++----------
 1 file changed, 7 insertions(+), 10 deletions(-)

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

diff --git a/src/cljcc/lexer.clj b/src/cljcc/lexer.clj
index f1b0a2a..d092ea6 100644
--- a/src/cljcc/lexer.clj
+++ b/src/cljcc/lexer.clj
@@ -43,7 +43,7 @@
                              (-> ctx
                                  (update :col inc)))
      (digit? ch) (let [[chrs rst] (split-with letter-digit? source)
-                       number (read-number (apply str chrs))
+                       number (read-number (apply str chrs) line col)
                        cnt (count chrs)
                        npos (+ pos cnt)
                        token (t/create :number line col number)]
@@ -67,14 +67,11 @@
 
 (comment
 
-  (lex "int main(void) {return int a = 2; a <<= 2;}")
-
-
-  (lex "
- extern int a;
-
- int main(void) {
-                 return 42};")
-
+  (lex
+   "
+int main() {
+    long a = 110;
+}
+")
 
  ())
-- 
cgit v1.2.3