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

Close #40

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-08-12 12:54:52 -06:00
parent e6f44c364a
commit 39c7202b4b
3 changed files with 21 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
kiss/src/kiss/Kiss.hx
View File

@@ -77,6 +77,7 @@ class Kiss {
"enumerate" => Symbol("Prelude.enumerate"), "enumerate" => Symbol("Prelude.enumerate"),
"assertProcess" => Symbol("Prelude.assertProcess"), "assertProcess" => Symbol("Prelude.assertProcess"),
"random" => Symbol("Std.random"), "random" => Symbol("Std.random"),
"walkDirectory" => Symbol("Prelude.walkDirectory"),
// These work with (apply) because they are added as "opAliases" in Macros.kiss: // These work with (apply) because they are added as "opAliases" in Macros.kiss:
"min" => Symbol("Prelude.min"), "min" => Symbol("Prelude.min"),
"max" => Symbol("Prelude.max"), "max" => Symbol("Prelude.max"),

20
kiss/src/kiss/Prelude.hx
View File

@@ -11,6 +11,9 @@ import js.node.Buffer;
#elseif sys #elseif sys
import sys.io.Process; import sys.io.Process;
#end #end
#if (sys || hxnodejs)
import sys.FileSystem;
#end
#if python #if python
import python.lib.subprocess.Popen; import python.lib.subprocess.Popen;
import python.Bytearray; import python.Bytearray;
@@ -373,6 +376,23 @@ class Prelude {
private static var kissProcess:Process = null; private static var kissProcess:Process = null;
#end #end
public static function walkDirectory(basePath, directory, processFile:(String) -> Void, processSubdirectory:(String) -> Void) {
#if (sys || hxnodejs)
for (fileOrFolder in FileSystem.readDirectory(joinPath(basePath, directory))) {
switch (fileOrFolder) {
case folder if (FileSystem.isDirectory(joinPath(basePath, directory, folder))):
var subdirectory = joinPath(directory, folder);
processSubdirectory(subdirectory);
walkDirectory(basePath, subdirectory, processFile, processSubdirectory);
case file:
processFile(joinPath(directory, file));
}
}
#else
throw "Can't walk a directory on this target.";
#end
}
/** /**
* On Sys targets and nodejs, Kiss can be converted to hscript at runtime * On Sys targets and nodejs, Kiss can be converted to hscript at runtime
* NOTE on non-nodejs targets, after the first time calling this function, * NOTE on non-nodejs targets, after the first time calling this function,

10
projects/kiss-vscode/src/Main.kiss
View File

@@ -9,16 +9,6 @@
(var &mut builtinConfigDir "") (var &mut builtinConfigDir "")
(var &mut :KissConfig config null) (var &mut :KissConfig config null)
(function walkDirectory [basePath directory :String->Void processFile :String->Void processSubdirectory]
(doFor fileOrFolder (FileSystem.readDirectory (joinPath basePath directory))
(case fileOrFolder
((when (FileSystem.isDirectory (joinPath basePath directory folder)) folder)
(let [subdirectory (joinPath directory folder)]
(processSubdirectory subdirectory)
(walkDirectory basePath subdirectory processFile processSubdirectory)))
(file
(processFile (joinPath directory file))))))
(function :Void tryLoadConfig [&opt :String text] (function :Void tryLoadConfig [&opt :String text]
// TODO if a config object is active and a shortcut panel is open, dispose the panel before we lose the handle in the current config object // TODO if a config object is active and a shortcut panel is open, dispose the panel before we lose the handle in the current config object