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

savedVarFile

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-11-02 21:55:19 +00:00
parent 611959a538
commit 5436f617fc
1 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/kiss/Macros.hx
View File

@@ -1314,6 +1314,13 @@ class Macros {
k.doc("printLocalNulls", 0, 0, "(printLocalNulls)");
macros["printLocalNulls"] = printAllNulls.bind(true);
var savedVarFilename = null;
k.doc("savedVarFile", 1, 1, '(savedVarFilename "<path>")');
macros["savedVarFile"] = (wholeExp:ReaderExp, exps:Array<ReaderExp>, k:KissState) -> {
savedVarFilename = compileTimeResolveToString("The only argument to (savedVarFile...)", "a json filename", exps[0], k);
null;
};
k.doc("savedVar", 2, 2, "(savedVar <:Type> <name> <initial value>)");
macros["savedVar"] = (wholeExp:ReaderExp, exps:Array<ReaderExp>, k:KissState) -> {
var b = wholeExp.expBuilder();
@@ -1321,7 +1328,13 @@ class Macros {
var nameString = Prelude.symbolNameValue(name, true, false);
var type = Helpers.explicitTypeString(name);
var initialValue = exps[1];
var filename = b.str("." + k.className + ".json");
var filename = if (savedVarFilename != null) {
if (!savedVarFilename.endsWith(".json"))
savedVarFilename = '${savedVarFilename}.json';
b.str(savedVarFilename);
} else {
b.str("." + k.className + ".json");
};
function ifLetFileJson(thenBlock:Array<ReaderExp>, elseBlock:Array<ReaderExp>) {
return b.callSymbol("if", [