9 lines
367 B
Plaintext
9 lines
367 B
Plaintext
(defun eval [:String expStr :Array<String> activeConditions]
|
|
(let [hscriptExp
|
|
(.parseString (new Parser)
|
|
(Prelude.convertToHScript expStr))
|
|
interp
|
|
(new BoolExpInterp)]
|
|
(doFor condition activeConditions
|
|
(interp.variables.set condition true))
|
|
?(interp.execute hscriptExp))) |