1 files changed, 0 insertions, 61 deletions
diff --git a/src/lux/compiler/package.clj b/src/lux/compiler/package.clj
deleted file mode 100644
index 40639e85a..000000000
--- a/src/lux/compiler/package.clj
+++ /dev/null
@@ -1,61 +0,0 @@
-;;   Copyright (c) Eduardo Julian. All rights reserved.
-;;   The use and distribution terms for this software are covered by the
-;;   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
-;;   which can be found in the file epl-v10.html at the root of this distribution.
-;;   By using this software in any fashion, you are agreeing to be bound by
-;;   the terms of this license.
-;;   You must not remove this notice, or any other, from this software.
-
-(ns lux.compiler.package
-  (:require [clojure.core.match :as M :refer [matchv]]
-            clojure.core.match.array
-            (lux [base :as & :refer [|let |do return* return fail fail*]]
-                 [host :as &host])
-            (lux.compiler [base :as &&]))
-  (:import (java.io File
-                    FileInputStream
-                    FileOutputStream
-                    BufferedInputStream)
-           (java.util.jar Manifest
-                          Attributes$Name
-                          JarEntry
-                          JarOutputStream
-                          )))
-
-;; [Utils]
-(def ^:private kilobyte 1024)
-
-(defn ^:private manifest [^String module]
-  "(-> Text Manifest)"
-  (doto (new Manifest)
-    (-> .getMainAttributes (doto (.put Attributes$Name/MAIN_CLASS (str (&host/->module-class module) "._"))
-                             (.put Attributes$Name/MANIFEST_VERSION "1.0")))))
-
-(defn ^:private write-class! [^String path ^File file ^JarOutputStream out]
-  "(-> Text File JarOutputStream Unit)"
-  (with-open [in (new BufferedInputStream (new FileInputStream file))]
-    (let [buffer (byte-array (* 10 kilobyte))]
-      (doto out
-        (.putNextEntry (new JarEntry (str path "/" (.getName file))))
-        (-> (.write buffer 0 bytes-read)
-            (->> (when (not= -1 bytes-read))
-                 (loop [bytes-read (.read in buffer)])))
-        (.flush)
-        (.closeEntry)
-        ))
-    ))
-
-(defn ^:private write-module! [^File file ^JarOutputStream out]
-  "(-> File JarOutputStream Unit)"
-  (let [module-name (.getName file)]
-    (doseq [$class (.listFiles file)]
-      (write-class! module-name $class out))))
-
-;; [Resources]
-(defn package [module]
-  "(-> Text (,))"
-  ;; (prn 'package module)
-  (with-open [out (new JarOutputStream (->> &&/output-package (new File) (new FileOutputStream)) (manifest module))]
-    (doseq [$group (.listFiles (new File &&/output-dir))]
-      (write-module! $group out))
-    ))