1 files changed, 0 insertions, 93 deletions
diff --git a/luxc/src/lux/compiler/core.clj b/luxc/src/lux/compiler/core.clj
deleted file mode 100644
index 88da626bd..000000000
--- a/luxc/src/lux/compiler/core.clj
+++ /dev/null
@@ -1,93 +0,0 @@
-(ns lux.compiler.core
-  (:require (clojure [template :refer [do-template]]
-                     [string :as string])
-            [clojure.java.io :as io]
-            [clojure.core.match :as M :refer [matchv]]
-            clojure.core.match.array
-            (lux [base :as & :refer [|case |let |do return* return fail*]])
-            (lux.analyser [base :as &a]
-                          [module :as &a-module])
-            (lux.compiler.cache [type :as &&&type]
-                                [ann :as &&&ann]))
-  (:import (java.io File
-                    BufferedOutputStream
-                    FileOutputStream)))
-
-;; [Constants]
-(def !output-dir (atom nil))
-
-(def ^:const section-separator (->> 29 char str))
-(def ^:const datum-separator (->> 31 char str))
-(def ^:const entry-separator (->> 30 char str))
-
-;; [Utils]
-(defn write-file [^String file-name ^bytes data]
-  (do (assert (not (.exists (File. file-name))) (str "Cannot overwrite file: " file-name))
-    (with-open [stream (BufferedOutputStream. (FileOutputStream. file-name))]
-      (.write stream data)
-      (.flush stream))))
-
-;; [Exports]
-(def ^String lux-module-descriptor-name "lux_module_descriptor")
-
-(defn write-module-descriptor! [^String name ^String descriptor]
-  (|do [_ (return nil)
-        :let [lmd-dir (str @!output-dir java.io.File/separator (.replace name "/" java.io.File/separator))
-              _ (.mkdirs (File. lmd-dir))
-              _ (write-file (str lmd-dir java.io.File/separator lux-module-descriptor-name) (.getBytes descriptor java.nio.charset.StandardCharsets/UTF_8))]]
-    (return nil)))
-
-(defn read-module-descriptor! [^String name]
-  (|do [_ (return nil)]
-    (return (slurp (str @!output-dir java.io.File/separator (.replace name "/" java.io.File/separator) java.io.File/separator lux-module-descriptor-name)
-                   :encoding "UTF-8"))))
-
-(defn generate-module-descriptor [file-hash]
-  (|do [module-name &/get-module-name
-        ?module-anns (&a-module/get-anns module-name)
-        defs &a-module/defs
-        imports &a-module/imports
-        tag-groups &a-module/tag-groups
-        :let [def-entries (->> defs
-                               (&/|map (fn [_def]
-                                         (|let [[?name _definition] _def]
-                                           (|case _definition
-                                             (&/$Left [_dmodule _dname])
-                                             (str ?name datum-separator _dmodule &/+name-separator+ _dname)
-                                             
-                                             (&/$Right [exported? ?def-type ?def-anns ?def-value])
-                                             (str ?name
-                                                  datum-separator (if exported? "1" "0")
-                                                  datum-separator (&&&type/serialize-type ?def-type)
-                                                  datum-separator (&&&ann/serialize ?def-anns))))))
-                               (&/|interpose entry-separator)
-                               (&/fold str ""))
-              import-entries (->> imports
-                                  (&/|map (fn [import]
-                                            (|let [[_module _hash] import]
-                                              (str _module datum-separator _hash))))
-                                  (&/|interpose entry-separator)
-                                  (&/fold str ""))
-              tag-entries (->> tag-groups
-                               (&/|map (fn [group]
-                                         (|let [[type tags] group]
-                                           (->> tags
-                                                (&/|interpose datum-separator)
-                                                (&/fold str "")
-                                                (str type datum-separator)))))
-                               (&/|interpose entry-separator)
-                               (&/fold str ""))
-              module-descriptor (->> (&/|list &/version
-                                              (Long/toUnsignedString file-hash)
-                                              import-entries
-                                              tag-entries
-                                              (|case ?module-anns
-                                                (&/$Some module-anns)
-                                                (&&&ann/serialize module-anns)
-
-                                                (&/$None _)
-                                                "...")
-                                              def-entries)
-                                     (&/|interpose section-separator)
-                                     (&/fold str ""))]]
-    (return module-descriptor)))