From 285de1ae1925c2b030bd96032498ccbaa6fc90c9 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 18 Mar 2019 18:36:18 -0400
Subject: Cobbled together a simple packager.

---
 stdlib/source/program/compositor.lux | 62 ++++++++++++++++++++++++++++++------
 1 file changed, 53 insertions(+), 9 deletions(-)

(limited to 'stdlib/source/program/compositor.lux')

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index b2ab8208e..8262fe841 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -4,26 +4,38 @@
    [cli (#+ program:)]
    ["." io (#+ IO io)]
    [control
-    [monad (#+ do)]]
+    [monad (#+ do)]
+    [security
+     ["!" capability]]]
    [data
+    ["." product]
     ["." error (#+ Error)]
     ["." text
-     format]]
+     format]
+    [collection
+     ["." dictionary]
+     ["." row]
+     ["." list ("#@." functor fold)]]]
    [time
     ["." instant (#+ Instant)]]
+   [host
+    ["_" js]]
    [world
+    ["." file]
     ["." console]]
    [tool
     [compiler
      ["." statement]
-     [phase
+     ["." phase
       [macro (#+ Expander)]
       ["." generation]]
      [default
       ["." platform (#+ Platform)]
       ["." syntax]]
      [meta
-      ["." archive (#+ Archive)]]]
+      ["." archive (#+ Archive)]
+      [packager
+       ["." script]]]]
     ## ["." interpreter]
     ]]
   [/
@@ -44,6 +56,37 @@
       (#error.Success output)
       (wrap output))))
 
+(def: (save-artifacts! system state)
+  (All [anchor expression statement]
+    (-> (file.System IO)
+        (statement.State+ anchor expression statement)
+        (IO (Error Any))))
+  (let [?outcome (phase.run' state
+                             (:share [anchor expression statement]
+                                     {(statement.State+ anchor expression statement)
+                                      state}
+                                     {(statement.Operation anchor expression statement
+                                                           (generation.Output statement))
+                                      (statement.lift-generation generation.output)}))]
+    (case ?outcome
+      (#error.Success [state output])
+      (exec (log! "all buffers | output:")
+        (log! (|> output
+                  dictionary.entries
+                  (list@map (function (_ [module buffer])
+                              (|> buffer
+                                  row.to-list
+                                  (list@map (|>> product.left %name (format text.new-line text.tab)))
+                                  (text.join-with "")
+                                  (format module))))
+                  (text.join-with text.new-line)))
+        (do (error.with io.monad)
+          [file (!.use (:: system create-file) "program.js")]
+          (!.use (:: file over-write) (script.package output))))
+
+      (#error.Failure error)
+      (:: io.monad wrap (#error.Failure error)))))
+
 (def: #export (compiler expander platform bundle program service)
   (All [anchor expression statement]
     (-> Expander
@@ -64,11 +107,12 @@
                             platform}
                            {(IO (Error (statement.State+ anchor expression statement)))
                             (platform.initialize expander platform bundle program)})
-             _ (:share [anchor expression statement]
-                       {(Platform IO anchor expression statement)
-                        platform}
-                       {(IO (Error [Archive (statement.State+ anchor expression statement)]))
-                        (platform.compile expander platform configuration archive.empty state)})
+             [archive state] (:share [anchor expression statement]
+                                     {(Platform IO anchor expression statement)
+                                      platform}
+                                     {(IO (Error [Archive (statement.State+ anchor expression statement)]))
+                                      (platform.compile expander platform configuration archive.empty state)})
+             _ (save-artifacts! (get@ #platform.&file-system platform) state)
              ## _ (cache/io.clean target ...)
              ]
             (wrap (log! "Compilation complete!"))))
-- 
cgit v1.2.3