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

removeFiles

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-07-05 00:14:55 +00:00
parent 29a010e110
commit 804bced6da
2 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
kiss/src/kiss/SpecialForms.hx
View File

@@ -457,6 +457,9 @@ class SpecialForms {
macro null; macro null;
}; };
// TODO these macro forms cause the compiler errors to give line numbers
// pointing back to SpecialForms.hx, which aren't helpful. withMacroPosOf should be used
// to wrap them
macro if ($condition) macro if ($condition)
$thenExp $thenExp
else else

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

@@ -105,6 +105,11 @@
file pathInArchive))) file pathInArchive)))
(e.files.push pathWithoutDir)))))) (e.files.push pathWithoutDir))))))
(function removeFiles [:nat.Archive archive :nat.Entry e :Array<String> files]
(withWritableEntry archive e
(doFor file files
(e.files.remove file))))
(function addTags [:nat.Archive archive :nat.Entry e :Array<String> tagsToAdd] (function addTags [:nat.Archive archive :nat.Entry e :Array<String> tagsToAdd]
(if (hasComponent e Tags) (if (hasComponent e Tags)
(withWritableComponents archive e [tags Tags] (withWritableComponents archive e [tags Tags]