Refactor into cli and cljcc-compiler folders

Pass all tests.

Fix babashka tasks and build setup.

Repl is behaving in unexpected ways, otherwise working
as expected.

1 files changed, 248 insertions, 0 deletions

diff --git a/cljcc-compiler/src/cljcc/token.clj b/cljcc-compiler/src/cljcc/token.clj
new file mode 100644
index 0000000..213588c
--- /dev/null
+++ b/cljcc-compiler/src/cljcc/token.clj
@@ -0,0 +1,248 @@
+(ns cljcc.token)
+
+(def token-kind
+  #{:eof
+    :semicolon
+    :comma
+
+    ;; brackets
+    :left-curly
+    :right-curly
+    :left-paren
+    :right-paren
+
+    ;; operators
+    :multiply
+    :divide
+    :remainder
+    :plus
+    :minus
+    :logical-not
+    :logical-and
+    :logical-or
+    :equal-to
+    :not-equal-to
+    :less-than
+    :greater-than
+    :less-than-equal-to
+    :greater-than-equal-to
+    :bitwise-left-shift
+    :bitwise-right-shift
+    :ampersand
+    :bitwise-xor
+    :bitwise-or
+    :negate
+    :assignemnt
+    :assignment-plus
+    :assignment-multiply
+    :assignment-minus
+    :assignment-divide
+    :assignment-mod
+    :assignment-bitwise-and
+    :assignment-bitwise-or
+    :assignment-bitwise-xor
+    :assignment-bitwise-left-shift
+    :assignment-bitwise-right-shift
+    :increment
+    :decrement
+
+    :number
+    :identifier
+
+    ;; keywords
+    :kw-return
+    :kw-int
+    :kw-long
+    :kw-double
+    :kw-void
+    :kw-signed
+    :kw-unsigned})
+
+(def unary-ops
+  #{:logical-not
+    :complement
+    :hyphen})
+
+(def assignment-ops
+  #{:assignment
+    :assignment-plus
+    :assignment-multiply
+    :assignment-minus
+    :assignment-divide
+    :assignment-mod
+    :assignment-bitwise-and
+    :assignment-bitwise-or
+    :assignment-bitwise-xor
+    :assignment-bitwise-left-shift
+    :assignment-bitwise-right-shift})
+
+(defn assignment-op? [op]
+  (contains? assignment-ops op))
+
+(defn unary-op? [op]
+  (contains? unary-ops op))
+
+(def bin-ops
+  "Binary operands and their precedence."
+  {:multiply 100
+   :divide 100
+   :remainder 100
+
+   :plus 90
+   :hyphen 90
+
+   :bitwise-left-shift 80
+   :bitwise-right-shift 80
+
+   :less-than 70
+   :less-than-equal-to 70
+   :greater-than 70
+   :greater-than-equal-to 70
+
+   :equal-to 60
+   :not-equal-to 60
+
+   :ampersand 50
+
+   :bitwise-xor 40
+
+   :bitwise-or 30
+
+   :logical-and 20
+
+   :logical-or 10
+
+   :question 5
+
+   :assignment 1
+   :assignment-plus 1
+   :assignment-multiply 1
+   :assignment-minus 1
+   :assignment-divide 1
+   :assignment-mod 1
+   :assignment-bitwise-and 1
+   :assignment-bitwise-or 1
+   :assignment-bitwise-xor 1
+   :assignment-bitwise-left-shift 1
+   :assignment-bitwise-right-shift 1})
+
+(defn binary-op? [op]
+  (contains? bin-ops op))
+
+(defn logical? [v]
+  (contains? #{:logical-and
+               :logical-not
+               :logical-or} v))
+
+(defn arithmetic? [v]
+  (contains?
+   #{:multiply
+     :divide
+     :remainder
+     :plus
+     :hyphen}
+   v))
+
+(defn precedence [op]
+  (op bin-ops))
+
+(def chrs-kind-map
+  {\( :left-paren
+   \) :right-paren
+   \? :question
+   \: :colon
+   \, :comma
+   \{ :left-curly
+   \} :right-curly
+   \= :assignment
+   "--" :decrement
+   "++" :increment
+   "<<" :bitwise-left-shift
+   ">>" :bitwise-right-shift
+   \! :logical-not
+   "&&" :logical-and
+   "||" :logical-or
+   "==" :equal-to
+   "!=" :not-equal-to
+   \< :less-than
+   \> :greater-than
+   "<=" :less-than-equal-to
+   ">=" :greater-than-equal-to
+   "+=" :assignment-plus
+   "*=" :assignment-multiply
+   "-=" :assignment-minus
+   "/=" :assignment-divide
+   "%=" :assignment-mod
+   "&=" :assignment-bitwise-and
+   "|=" :assignment-bitwise-or
+   "^=" :assignment-bitwise-xor
+   "<<=" :assignment-bitwise-left-shift
+   ">>=" :assignment-bitwise-right-shift
+   \^ :bitwise-xor
+   \| :bitwise-or
+   \& :ampersand
+   \; :semicolon
+   \+ :plus
+   \- :hyphen
+   \~ :complement
+   \* :multiply
+   \% :remainder
+   \/ :divide})
+
+(defn identifier->kind [identifier]
+  (case identifier
+    "return" :kw-return
+    "void" :kw-void
+    "int" :kw-int
+    "long" :kw-long
+    "double" :kw-double
+    "if" :kw-if
+    "else" :kw-else
+    "do" :kw-do
+    "while" :kw-while
+    "for" :kw-for
+    "break" :kw-break
+    "continue" :kw-continue
+    "static" :kw-static
+    "extern" :kw-extern
+    "signed" :kw-signed
+    "unsigned" :kw-unsigned
+    :identifier))
+
+(def type-specifier-keywords
+  #{:kw-int :kw-long :kw-double :kw-signed :kw-unsigned})
+
+(def storage-specifier-keywords
+  #{:kw-static :kw-extern})
+
+(defn create
+  ([kind line col]
+   {:kind kind
+    :line line
+    :col col})
+  ([kind line col literal]
+   {:kind kind
+    :line line
+    :col col
+    :literal literal}))
+
+(def tacky-unary-ops
+  #{:bit-not :negate :logical-not})
+
+(def tacky-binary-ops
+  #{:add
+    :sub
+    :mul
+    :div
+    :mod
+    :equal
+    :not-equal
+    :less-than
+    :greater-than
+    :less-or-equal
+    :greater-or-equal
+    :bit-and
+    :bit-or
+    :bit-xor
+    :bit-right-shift
+    :bit-left-shift})