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

AsyncEmbeddedScript2 auto-spaced labels

Browse Source
This commit is contained in:
Nat Quayle Nelson
2024-10-13 15:20:51 -05:00
parent 36234925a5
commit 562c26c857
1 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/kiss/AsyncEmbeddedScript2.hx
View File

@@ -373,7 +373,7 @@ class AsyncEmbeddedScript2 {
public var onError:(Any,Continuation2,Continuation2)->Void;
#if macro
public static function build(dslHaxelib:String, dslFile:String, scriptFile:String):Array<Field> {
public static function build(dslHaxelib:String, dslFile:String, scriptFile:String, autoLabelInterval:Int=10):Array<Field> {
// trace('AsyncEmbeddedScript.build $dslHaxelib $dslFile $scriptFile');
var k = Kiss.defaultKissState();
@@ -469,11 +469,13 @@ class AsyncEmbeddedScript2 {
Context.registerModuleDependency(Context.getLocalModule(), scriptFile);
k.fieldList = [];
var lastLabelIp = 0;
Kiss._try(() -> {
#if profileKiss
Kiss.measure('Compiling kiss: $scriptFile', () -> {
#end
function process(nextExp) {
function process(nextExp:ReaderExp) {
#if (kissCache && !lua)
var cacheKey = Reader.toString(nextExp.def);
if (cache.exists(cacheKey)) {
@@ -483,6 +485,13 @@ class AsyncEmbeddedScript2 {
}
#end
// Automatic evenly spaced labels!
if (autoLabelInterval > 0 && commandList.length > lastLabelIp + autoLabelInterval){
var b = nextExp.expBuilder();
lastLabelIp = commandList.length;
process(b.callSymbol("label", [b.symbol("auto")]));
}
nextExp = Kiss._try(()->Kiss.macroExpand(nextExp, k));
if (nextExp == null) return;
var stateChanged = k.stateChanged;