From ec29b735396a656862ab9dcdde3627e234c938b0 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 28 Jun 2020 19:58:12 -0400
Subject: Re-added & u[dated packaging machinery.

---
 .../source/luxc/lang/translation/jvm/program.lux   | 24 ++++++++++++++--------
 1 file changed, 16 insertions(+), 8 deletions(-)

(limited to 'lux-jvm/source/luxc/lang/translation')

diff --git a/lux-jvm/source/luxc/lang/translation/jvm/program.lux b/lux-jvm/source/luxc/lang/translation/jvm/program.lux
index 7ac897009..2c4f1d3f2 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/program.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/program.lux
@@ -1,8 +1,17 @@
 (.module:
   [lux #*
+   [data
+    [text
+     ["%" format (#+ format)]]]
    [target
     [jvm
-     ["$t" type]]]]
+     ["$t" type]]]
+   [tool
+    [compiler
+     [language
+      [lux
+       [generation (#+ Context)]
+       [program (#+ Program)]]]]]]
   [luxc
    [lang
     [host
@@ -13,12 +22,10 @@
      ["." jvm
       ["." runtime]]]]])
 
-(def: #export class "LuxProgram")
-
 (def: ^Object ($t.class "java.lang.Object" (list)))
 
-(def: #export (program programI)
-  (-> _.Inst _.Definition)
+(def: #export (program artifact-name context programI)
+  (-> (-> Context Text) (Program _.Inst _.Definition))
   (let [nilI runtime.noneI
         num-inputsI (|>> ($i.ALOAD 0) $i.ARRAYLENGTH)
         decI (|>> ($i.int +1) $i.ISUB)
@@ -67,11 +74,12 @@
                      ($i.INVOKEVIRTUAL jvm.$Function runtime.apply-method (runtime.apply-signature 1)))
         main-type ($t.method [(list ($t.array ($t.class "java.lang.String" (list))))
                               $t.void
-                              (list)])]
-    [..class
+                              (list)])
+        class (artifact-name context)]
+    [class
      ($d.class #_.V1_6
                #_.Public _.finalC
-               ..class
+               class
                (list) ..^Object
                (list)
                (|>> ($d.method #_.Public _.staticM "main" main-type
-- 
cgit v1.2.3