Refactor travis testing

2021-06-07 12:36:22 -06:00
parent 32698b2d5b
commit 610a977b7c
77 changed files with 76 additions and 116 deletions
--- a/projects/nat-archive-tool/src/nat/systems/TagSystem.hx
+++ b/projects/nat-archive-tool/src/nat/systems/TagSystem.hx
@@ -0,0 +1,6 @@
+package nat.systems;
+
+import kiss.Prelude;
+
+@:build(kiss.Kiss.build())
+class TagSystem extends System {}
--- a/projects/nat-archive-tool/src/nat/systems/TagSystem.kiss
+++ b/projects/nat-archive-tool/src/nat/systems/TagSystem.kiss
@@ -0,0 +1,9 @@
+(load "../Lib.kiss")
+
+// TODO make a &super annotation that passes an argument to the super constructor
+(defnew [&prop :String tagFilterString
+            &prop :EntryProcessor processor] 
+    []
+    (super
+        (lambda [:Archive archive :Entry e] (tagsMatch archive e tagFilterString))
+        processor))