From c8f9f42a258f1f2f961c7f8c5571cce843e97a0a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 26 Aug 2020 23:04:27 -0400
Subject: Download and catch dependencies in Aedifex.

---
 stdlib/source/program/aedifex/artifact.lux | 68 ++++++++++++++++++++++++++++++
 1 file changed, 68 insertions(+)
 create mode 100644 stdlib/source/program/aedifex/artifact.lux

(limited to 'stdlib/source/program/aedifex/artifact.lux')

diff --git a/stdlib/source/program/aedifex/artifact.lux b/stdlib/source/program/aedifex/artifact.lux
new file mode 100644
index 000000000..a6865f688
--- /dev/null
+++ b/stdlib/source/program/aedifex/artifact.lux
@@ -0,0 +1,68 @@
+(.module:
+  [lux (#- Name)
+   [abstract
+    ["." hash (#+ Hash)]]
+   [data
+    ["." text
+     ["%" format (#+ format)]]
+    [collection
+     ["." list ("#@." monoid)]]]
+   [world
+    [net
+     ["." uri]]]])
+
+(type: #export Group
+  Text)
+
+(type: #export Name
+  Text)
+
+(type: #export Version
+  Text)
+
+(type: #export Artifact
+  {#group Group
+   #name Name
+   #version Version})
+
+(def: #export hash
+  (Hash Artifact)
+  ($_ hash.product
+      text.hash
+      text.hash
+      text.hash
+      ))
+
+(def: group-separator
+  ".")
+
+(def: version-separator
+  "-")
+
+(def: #export (identity artifact)
+  (-> Artifact Text)
+  (format (get@ #name artifact)
+          ..version-separator
+          (get@ #version artifact)))
+
+(def: #export (path artifact)
+  (-> Artifact Text)
+  (let [directory (format (|> artifact
+                              (get@ #group)
+                              (text.split-all-with ..group-separator)
+                              (text.join-with uri.separator))
+                          uri.separator
+                          (get@ #name artifact)
+                          uri.separator
+                          (get@ #version artifact))]
+    (format directory
+            uri.separator
+            (..identity artifact))))
+
+(def: #export (local artifact)
+  (-> Artifact (List Text))
+  (list@compose (|> artifact
+                    (get@ #group)
+                    (text.split-all-with ..group-separator))
+                (list (get@ #name artifact)
+                      (get@ #version artifact))))
-- 
cgit v1.2.3