diff options
| author | Shagun Agrawal <agrawalshagun07@gmail.com> | 2024-12-28 23:27:58 +0530 |
|---|---|---|
| committer | Shagun Agrawal <agrawalshagun07@gmail.com> | 2024-12-28 23:27:58 +0530 |
| commit | 6a94b6abab645269c596154ce6812cbeb3811ec5 (patch) | |
| tree | 1fc78a0a10221fa22b40739821f7aa3cfca58338 /src/cljcc/schema.clj | |
| parent | 8f0864f8d28a9c0693c1d89e24e6a69110d6625a (diff) | |
Add lexing stage for floating point numbers
Diffstat (limited to 'src/cljcc/schema.clj')
| -rw-r--r-- | src/cljcc/schema.clj | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/cljcc/schema.clj b/src/cljcc/schema.clj index 23d7967..663604c 100644 --- a/src/cljcc/schema.clj +++ b/src/cljcc/schema.clj @@ -21,6 +21,10 @@ [:map [:type [:= :ulong]]]) +(def DoubleType + [:map + [:type [:= :double]]]) + (def FunType [:map [:type [:= :function]] @@ -32,12 +36,14 @@ ::mtype-long #'LongType ::mtype-uint #'UIntType ::mtype-ulong #'ULongType + ::mtype-double #'DoubleType ::mtype-function #'FunType}} [:multi {:dispatch :type} [:int #'IntType] [:long #'LongType] [:uint #'UIntType] [:ulong #'ULongType] + [:double #'DoubleType] [:function #'FunType]]]) (def Const |