From 3e67e244ad1f58a7bab0094967a86be72aae2482 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 1 Nov 2020 22:56:30 -0400
Subject: Improved the design of actors.

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

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

diff --git a/stdlib/source/program/aedifex/package.lux b/stdlib/source/program/aedifex/package.lux
new file mode 100644
index 000000000..757f116e6
--- /dev/null
+++ b/stdlib/source/program/aedifex/package.lux
@@ -0,0 +1,36 @@
+(.module:
+  [lux #*
+   [control
+    ["." try (#+ Try) ("#@." functor)]
+    [parser
+     ["<.>" xml]]]
+   [data
+    [binary (#+ Binary)]
+    [format
+     [xml (#+ XML)]]
+    [collection
+     [set (#+ Set)]]]]
+  ["." // #_
+   [dependency (#+ Dependency)]
+   ["/" profile]
+   ["#." hash (#+ Hash SHA-1 MD5)]
+   ["#." pom]])
+
+(type: #export Package
+  {#library Binary
+   #pom XML
+   #sha-1 (Hash SHA-1)
+   #md5 (Hash MD5)})
+
+(def: #export (local pom library)
+  (-> XML Binary Package)
+  {#library library
+   #pom pom
+   #sha-1 (//hash.sha-1 library)
+   #md5 (//hash.md5 library)})
+
+(def: #export dependencies
+  (-> Package (Try (Set Dependency)))
+  (|>> (get@ #pom)
+       (<xml>.run //pom.parser)
+       (try@map (get@ #/.dependencies))))
-- 
cgit v1.2.3