multi-target convertToHScript function in Prelude
This commit is contained in:
@@ -6,8 +6,6 @@ import kiss.Operand;
|
||||
import kiss.Stream;
|
||||
import vscode.*;
|
||||
import js.lib.Promise;
|
||||
import js.node.ChildProcess;
|
||||
import js.node.buffer.Buffer;
|
||||
import hscript.Parser;
|
||||
import hscript.Interp;
|
||||
import hscript.Expr;
|
||||
|
@@ -58,17 +58,11 @@
|
||||
* Functionality
|
||||
*/
|
||||
|
||||
(defun :String convertToHScript [kissStr]
|
||||
(let [kissProcess (ChildProcess.spawnSync "haxelib" ["run" "kiss" "--all"] (object input "${kissStr}\n"))]
|
||||
(if !(= kissProcess.status 0)
|
||||
{(errorMessage "failed to compile ${kissStr}: $(.toString (the Buffer .stderr kissProcess))") ""}
|
||||
(.toString (the Buffer .stdout kissProcess)))))
|
||||
|
||||
(defun :Dynamic evalString [:String kissStr]
|
||||
(try
|
||||
(interp.execute
|
||||
(parser.parseString
|
||||
(convertToHScript kissStr)))
|
||||
(Prelude.convertToHScript kissStr)))
|
||||
(catch [e]
|
||||
(errorMessage "Error `${e}` from $kissStr")
|
||||
null)))
|
||||
|
Reference in New Issue
Block a user