Refactor files to cljcc-compiler and cli tool.

1 files changed, 66 insertions, 0 deletions

diff --git a/cljcc-compiler/src/cljcc/cljcc.clj b/cljcc-compiler/src/cljcc/cljcc.clj
new file mode 100644
index 0000000..c067b75
--- /dev/null
+++ b/cljcc-compiler/src/cljcc/cljcc.clj
@@ -0,0 +1,66 @@
+(ns cljcc.cljcc
+  (:require
+   [clojure.tools.cli :refer [parse-opts]]
+   [clojure.string :as string]
+   [cljcc.util :refer [exit]]
+   [cljcc.driver :as d])
+  (:gen-class))
+
+(defn run
+  "Compiles source input using specified compiler options.
+
+  Parameters:
+    source - Source C file.
+    options - Map of compiler configuration options.
+
+  Returns generated AST for specified stage."
+  [source & {:keys [config] :or {config {}}}]
+  (let [default-config {:target {:os :linux}}]))
+
+(set! *warn-on-reflection* true)
+
+(defn usage [options-summary]
+  (->>
+   ["Usage: ./cljcc path/to/file.c [options]"
+    ""
+    "Options:"
+    options-summary]
+   (string/join \newline)))
+
+(def cli-options
+  [[nil "--lex" "Runs lexer. Does not emit any files."]
+   [nil "--parse" "Runs parser. Does not emit any files."]
+   [nil "--validate" "Runs semantic analyzer. Does not emit any files."]
+   [nil "--tacky" "Runs tacky generation. Does not emit any files."]
+   [nil "--codegen" "Runs compiler. Does not emit any files."]
+   ["-c" nil "Generate object file."
+    :id :generate-object-file]
+   ["-h" "--help"]])
+
+(defn validate-args [args]
+  (let [{:keys [options arguments summary]} (parse-opts args cli-options)]
+    (cond
+      (:help options) {:exit-message (usage summary) :ok? true}
+      (= 1 (count arguments)) {:file-path (first arguments)
+                               :options options}
+      :else {:exit-message (usage summary)})))
+
+(defn -main
+  "Main entrypoint for cljcc compiler."
+  [& 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 (assoc options :libs libs))
+        (exit 0 "Successfully executed.")
+        (catch Exception e
+          (exit 1 (ex-message e) e))))))
+
+(comment
+
+  ())