No passing the archive as a parameter to all phases.

2 files changed, 53 insertions, 2 deletions

diff --git a/stdlib/source/lux/tool/compiler/meta/archive/artifact.lux b/stdlib/source/lux/tool/compiler/meta/archive/artifact.lux
new file mode 100644
index 000000000..222bb2479
--- /dev/null
+++ b/stdlib/source/lux/tool/compiler/meta/archive/artifact.lux
@@ -0,0 +1,48 @@
+(.module:
+  [lux #*
+   [data
+    ["." text]
+    [collection
+     ["." row (#+ Row)]
+     ["." dictionary (#+ Dictionary)]]]
+   [type
+    abstract]])
+
+(type: #export ID Nat)
+
+(type: Artifact
+  (#Resource ID)
+  (#Definition [ID Text]))
+
+(abstract: #export Registry
+  {}
+  {#next ID
+   #artifacts (Row Artifact)
+   #resolver (Dictionary Text ID)}
+
+  (def: #export empty
+    Registry
+    (:abstraction {#next 0
+                   #artifacts row.empty
+                   #resolver (dictionary.new text.hash)}))
+
+  (def: #export (resource registry)
+    (-> Registry [ID Registry])
+    (let [id (get@ #next (:representation registry))]
+      [id
+       (|> registry
+           :representation
+           (update@ #next inc)
+           (update@ #artifacts (row.add (#Resource id)))
+           :abstraction)]))
+
+  (def: #export (definition name registry)
+    (-> Text Registry [ID Registry])
+    (let [id (get@ #next (:representation registry))]
+      [id
+       (|> registry
+           :representation
+           (update@ #next inc)
+           (update@ #artifacts (row.add (#Definition id name)))
+           :abstraction)]))
+  )
diff --git a/stdlib/source/lux/tool/compiler/meta/archive/descriptor.lux b/stdlib/source/lux/tool/compiler/meta/archive/descriptor.lux
index 5daf10016..4582ab702 100644
--- a/stdlib/source/lux/tool/compiler/meta/archive/descriptor.lux
+++ b/stdlib/source/lux/tool/compiler/meta/archive/descriptor.lux
@@ -4,7 +4,9 @@
     [collection
      [set (#+ Set)]]]
    [world
-    [file (#+ Path)]]])
+    [file (#+ Path)]]]
+  [//
+   [artifact (#+ Registry)]])
 
 (type: #export Module Text)
 
@@ -13,4 +15,5 @@
    #name Module
    #file Path
    #references (Set Module)
-   #state Module-State})
+   #state Module-State
+   #registry Registry})