KissInterp evalKiss

This commit is contained in:
2021-10-07 21:31:38 -06:00
parent eb76f76f88
commit b1b3fd27de
3 changed files with 9 additions and 7 deletions

View File

@@ -1,7 +1,6 @@
package nat;
import kiss.KissInterp;
import hscript.Parser;
import kiss.Prelude;
@:build(kiss.Kiss.build())

View File

@@ -1,9 +1,5 @@
(function eval [:String expStr :Array<String> activeConditions]
(let [hscript (Prelude.convertToHScript expStr)
parser (new Parser)
hscriptExp (parser.parseString hscript)
interp (new BoolExpInterp)]
(let [interp (new BoolExpInterp)]
(doFor condition activeConditions
(interp.variables.set condition true))
?(interp.execute hscriptExp)))
?(interp.evalKiss expStr)))