kiss-lang/nat-archive-tool
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases Wiki Activity

KissInterp evalKiss

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-10-07 21:31:38 -06:00
parent 9b2d69526d
commit b5ecc52fa6
2 changed files with 2 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/nat/BoolExpInterp.hx
View File

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

8
src/nat/BoolExpInterp.kiss
View File

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