kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

make catsMatch dry

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-09-07 22:38:12 +00:00
parent eb51b430a4
commit d8edfd904d
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
projects/nat-archive-tool/src/nat/Lib.kiss
View File

@@ -83,14 +83,17 @@
(collect (t.keys))) (collect (t.keys)))
[])) []))
(function :Array<String> componentList [:nat.Entry e]
(for =>cType cId e.components cType))
(function tagsMatch [e tagsBoolExp] (function tagsMatch [e tagsBoolExp]
(BoolExpInterp.eval tagsBoolExp (tagList e))) (BoolExpInterp.eval tagsBoolExp (tagList e)))
(function componentsMatch [:nat.Entry e componentsBoolExp] (function componentsMatch [:nat.Entry e componentsBoolExp]
(BoolExpInterp.eval componentsBoolExp (for =>cType cId e.components cType))) (BoolExpInterp.eval componentsBoolExp (componentList e)))
(function componentsAndTagsMatch [:nat.Entry e componentsAndTagsBoolExp] (function componentsAndTagsMatch [:nat.Entry e componentsAndTagsBoolExp]
(BoolExpInterp.eval componentsAndTagsBoolExp (cast (concat (tagList e) (for =>cType cId e.components cType))))) (BoolExpInterp.eval componentsAndTagsBoolExp (cast (concat (tagList e) (componentList e)))))
(defAlias &call catsMatch componentsAndTagsMatch) (defAlias &call catsMatch componentsAndTagsMatch)