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

conditionally compile aoc solutions

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-07-12 19:15:51 -06:00
parent 1134b50caf
commit adf2b952f2
3 changed files with 12 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/kiss/Kiss.hx
View File

@@ -59,6 +59,7 @@ class Kiss {
"reversed" => Symbol("Prelude.reversed"), // TODO test reversed
"memoize" => Symbol("Prelude.memoize"), // TODO test memoize
"symbolName" => Symbol("Prelude.symbolName"),
"symbolNameValue" => Symbol("Prelude.symbolNameValue"),
"symbol" => Symbol("Prelude.symbol"),
"expList" => Symbol("Prelude.expList"),
"map" => Symbol("Lambda.map"),

1
src/kiss/KissInterp.hx
View File

@@ -26,7 +26,6 @@ class KissInterp extends Interp {
toDynamic: Operand.toDynamic
}
});
trace(variables["kiss"]);
variables.set("Lambda", Lambda);
variables.set("Std", Std);
variables.set("Keep", ExtraElementHandling.Keep);

15
src/kiss/Macros.hx
View File

@@ -189,15 +189,17 @@ class Macros {
var conditionInterp = new KissInterp(true);
var conditionStr = Reader.toString(conditionExp.def);
for (flag => value in Context.getDefines()) {
conditionInterp.variables.set(flag, value);
if (flag != "kiss")
conditionInterp.variables.set(flag, value);
}
try {
var hscriptStr = Prelude.convertToHScript(conditionStr);
#if test
Prelude.print(hscriptStr);
Prelude.print("#if condition hscript: " + hscriptStr);
#end
var conditionHScript = parser.parseString(hscriptStr);
return if (Prelude.truthy(conditionInterp.execute(conditionHScript))) {
trace("using thenExp");
thenExp;
} else {
elseExp;
@@ -239,10 +241,15 @@ class Macros {
caseInterp.variables.set(Prelude.symbolNameValue(matchBodySymbol), matchBodies.shift());
}
for (flag => value in Context.getDefines()) {
caseInterp.variables.set(flag, value);
if (flag != "kiss")
caseInterp.variables.set(flag, value);
}
try {
var caseHScript = parser.parseString(Prelude.convertToHScript(caseStr));
var hscriptStr = Prelude.convertToHScript(caseStr);
#if test
Prelude.print("#case hscript: " + hscriptStr);
#end
var caseHScript = parser.parseString(hscriptStr);
return caseInterp.execute(caseHScript);
} catch (e) {
throw CompileError.fromExp(caseExp, '#case evaluation threw error $e');