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

debug/release label statements

Browse Source
This commit is contained in:
Trent Nelson
2023-08-02 12:29:40 -07:00
parent 63600c8d16
commit 3761609b5d
1 changed files with 17 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/kiss/AsyncEmbeddedScript2.hx
View File

@@ -258,13 +258,23 @@ class AsyncEmbeddedScript2 {
var labelNum = 0; var labelNum = 0;
k.macros["label"] = (wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState) -> { k.macros["label"] = (wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState) -> {
wholeExp.checkNumArgs(1, 1, '(label <labelSymbol for debug-only or "label string" for release>)');
switch (args[0].def) {
// Unless it's a debug build, ignore symbol labels
#if !debug
case Symbol(label):
wholeExp.expBuilder().callSymbol("cc", []);
#end
case Symbol(label) | StrExp(label):
k.stateChanged = true; k.stateChanged = true;
wholeExp.checkNumArgs(1, 1, '(label <label>)');
var label = Prelude.symbolNameValue(args[0]);
label = '${++labelNum}. '.lpad("0", 5) + label; label = '${++labelNum}. '.lpad("0", 5) + label;
labelsList.push(macro labels[$v{label}] = $v{commandList.length}); labelsList.push(macro labels[$v{label}] = $v{commandList.length});
wholeExp.expBuilder().callSymbol("cc", []); wholeExp.expBuilder().callSymbol("cc", []);
default:
throw KissError.fromExp(wholeExp, "bad (label) statement");
}
}; };
if (dslHaxelib.length > 0) { if (dslHaxelib.length > 0) {