QB64/qbjs
QB64/qbjs
1
1
Fork 0
mirror of https://github.com/boxgaming/qbjs.git synced 2024-09-19 20:14:58 +00:00
Code Issues Releases Wiki Activity

updated to fix auto-limit functionality for "limitless" long running loops

Browse source
This commit is contained in:
boxgaming 2022-07-06 10:14:06 -05:00
parent 33eac4d9c3
commit 73bf11f3c0
4 changed files with 73 additions and 65 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
index.html
View file

@ -218,7 +218,7 @@
<div id="game-container">
<div id="gx-container">
<a href="javascript:runProgram()" id="gx-load-screen">&nbsp;</a>
<img id="logo" src="logo.png" onclick="window.open('https://github.com/boxgaming/qbjs/wiki', '_blank')">
<img id="logo" src="logo.png" title="Version 0.5.0" onclick="window.open('https://github.com/boxgaming/qbjs/wiki', '_blank')">
</div>
<div id="output-container">
<div id="tabs">

8
qb.js
View file

@ -360,6 +360,14 @@ var QB = new function() {
_lastLimitTime = new Date();
};
this.autoLimit = async function() {
var timeElapsed = new Date() - _lastLimitTime;
if (timeElapsed > 100) {
await GX.sleep(1);
_lastLimitTime = new Date();
}
};
this.func__LoadImage = async function(url) {
var img = new Image();

122
qb2js.js
View file

@ -155,14 +155,14 @@ if (QB.halted()) { return; }
ds = "[" + (await func_Join( dataArray , 1, - 1, ",")) + "]";
await sub_AddJSLine( 0, "QB.setData(" + ds + ");");
var i = 0; /* INTEGER */
var ___v7055475 = 0; for ( i= 1; i <= (QB.func_UBound( dataLabels)); i= i + 1) { if (QB.halted()) { return; } ___v7055475++; if (___v7055475 % 1000 == 0) { await GX.sleep(1); }
var ___v7055475 = 0; for ( i= 1; i <= (QB.func_UBound( dataLabels)); i= i + 1) { if (QB.halted()) { return; } ___v7055475++; if (___v7055475 % 100 == 0) { await QB.autoLimit(); }
await sub_AddJSLine( 0, "QB.setDataLabel('" + QB.arrayValue(dataLabels, [ i]).value .text + "', " + (QB.func_Str( QB.arrayValue(dataLabels, [ i]).value .index)) + ");");
}
}
async function sub_PrintJS() {
if (QB.halted()) { return; }
var i = 0; /* INTEGER */
var ___v5334240 = 0; for ( i= 1; i <= (QB.func_UBound( jsLines)); i= i + 1) { if (QB.halted()) { return; } ___v5334240++; if (___v5334240 % 1000 == 0) { await GX.sleep(1); }
var ___v5334240 = 0; for ( i= 1; i <= (QB.func_UBound( jsLines)); i= i + 1) { if (QB.halted()) { return; } ___v5334240++; if (___v5334240 % 100 == 0) { await QB.autoLimit(); }
await QB.sub_Print([QB.arrayValue(jsLines, [ i]).value .text]);
}
}
@ -184,7 +184,7 @@ if (QB.halted()) { return; }
var caseVar = ''; /* STRING */
var currType = 0; /* INTEGER */
var loopIndex = ''; /* STRING */
var ___v5795186 = 0; for ( i= firstLine; i <= lastLine; i= i + 1) { if (QB.halted()) { return; } ___v5795186++; if (___v5795186 % 1000 == 0) { await GX.sleep(1); }
var ___v5795186 = 0; for ( i= firstLine; i <= lastLine; i= i + 1) { if (QB.halted()) { return; } ___v5795186++; if (___v5795186 % 100 == 0) { await QB.autoLimit(); }
indent = 0;
tempIndent = 0;
var l = ''; /* STRING */
@ -232,7 +232,7 @@ if (QB.halted()) { return; }
var constCount = 0; /* INTEGER */
constCount = (await func_ListSplit( (await func_Join( parts , 2, - 1, " ")) , constParts));
var constIdx = 0; /* INTEGER */
var ___v2895625 = 0; for ( constIdx= 1; constIdx <= constCount; constIdx= constIdx + 1) { if (QB.halted()) { return; } ___v2895625++; if (___v2895625 % 1000 == 0) { await GX.sleep(1); }
var ___v2895625 = 0; for ( constIdx= 1; constIdx <= constCount; constIdx= constIdx + 1) { if (QB.halted()) { return; } ___v2895625++; if (___v2895625 % 100 == 0) { await QB.autoLimit(); }
var eqi = 0; /* INTEGER */
eqi = (QB.func_InStr( QB.arrayValue(constParts, [ constIdx]).value , "="));
if ( eqi < 1) {
@ -266,7 +266,7 @@ if (QB.halted()) { return; }
var cscount = 0; /* INTEGER */
cscount = (await func_ListSplit( (await func_Join( parts , 2, - 1, " ")) , caseParts));
var ci = 0; /* INTEGER */
var ___v3019480 = 0; for ( ci= 1; ci <= cscount; ci= ci + 1) { if (QB.halted()) { return; } ___v3019480++; if (___v3019480 % 1000 == 0) { await GX.sleep(1); }
var ___v3019480 = 0; for ( ci= 1; ci <= cscount; ci= ci + 1) { if (QB.halted()) { return; } ___v3019480++; if (___v3019480 % 100 == 0) { await QB.autoLimit(); }
js = js + "case " + (await func_ConvertExpression( QB.arrayValue(caseParts, [ ci]).value , i)) + ": ";
}
}
@ -281,7 +281,7 @@ if (QB.halted()) { return; }
fcond = " <= ";
stepIdx = 0;
var fi = 0; /* INTEGER */
var ___v7747401 = 0; for ( fi= 2; fi <= (QB.func_UBound( parts)); fi= fi + 1) { if (QB.halted()) { return; } ___v7747401++; if (___v7747401 % 1000 == 0) { await GX.sleep(1); }
var ___v7747401 = 0; for ( fi= 2; fi <= (QB.func_UBound( parts)); fi= fi + 1) { if (QB.halted()) { return; } ___v7747401++; if (___v7747401 % 100 == 0) { await QB.autoLimit(); }
var fword = ''; /* STRING */
fword = (QB.func_UCase( QB.arrayValue(parts, [ fi]).value));
if ( fword == "=" ) {
@ -307,11 +307,11 @@ if (QB.halted()) { return; }
js = js + " for (" + fvar + "=" + sval + "; " + fvar + fcond + uval + "; " + fvar + "=" + fvar + " + " + fstep + ") {";
js = js + " if (QB.halted()) { return; } ";
js = js + loopIndex + "++; ";
js = js + " if (" + loopIndex + " % 1000 == 0) { await GX.sleep(1); }";
js = js + " if (" + loopIndex + " % 100 == 0) { await QB.autoLimit(); }";
indent = 1;
} else if ( first == "IF" ) {
var thenIndex = 0; /* INTEGER */
var ___v140176 = 0; for ( thenIndex= 2; thenIndex <= (QB.func_UBound( parts)); thenIndex= thenIndex + 1) { if (QB.halted()) { return; } ___v140176++; if (___v140176 % 1000 == 0) { await GX.sleep(1); }
var ___v140176 = 0; for ( thenIndex= 2; thenIndex <= (QB.func_UBound( parts)); thenIndex= thenIndex + 1) { if (QB.halted()) { return; } ___v140176++; if (___v140176 % 100 == 0) { await QB.autoLimit(); }
if ((QB.func_UCase( QB.arrayValue(parts, [ thenIndex]).value)) == "THEN" ) {
break;
}
@ -330,7 +330,7 @@ if (QB.halted()) { return; }
var npcount = 0; /* INTEGER */
var npi = 0; /* INTEGER */
npcount = (await func_ListSplit( (await func_Join( parts , 2, - 1, " ")) , nparts));
var ___v7607236 = 0; for ( npi= 1; npi <= npcount; npi= npi + 1) { if (QB.halted()) { return; } ___v7607236++; if (___v7607236 % 1000 == 0) { await GX.sleep(1); }
var ___v7607236 = 0; for ( npi= 1; npi <= npcount; npi= npi + 1) { if (QB.halted()) { return; } ___v7607236++; if (___v7607236 % 100 == 0) { await QB.autoLimit(); }
js = js + "} ";
indent = indent - 1;
}
@ -375,7 +375,7 @@ if (QB.halted()) { return; }
indent = 1;
js = js + " if (QB.halted()) { return; }";
js = js + loopIndex + "++; ";
js = js + " if (" + loopIndex + " % 1000 == 0) { await GX.sleep(1); }";
js = js + " if (" + loopIndex + " % 100 == 0) { await QB.autoLimit(); }";
} else if ( first == "WHILE" ) {
loopLevel = loopLevel + 1;
loopIndex = await func_GenJSVar();
@ -383,7 +383,7 @@ if (QB.halted()) { return; }
js = js + " while (" + (await func_ConvertExpression( (await func_Join( parts , 2, - 1, " ")) , i)) + ") {";
js = js + " if (QB.halted()) { return; }";
js = js + loopIndex + "++; ";
js = js + " if (" + loopIndex + " % 1000 == 0) { await GX.sleep(1); }";
js = js + " if (" + loopIndex + " % 100 == 0) { await GX.autoLimit(); }";
indent = 1;
} else if ( first == "WEND" ) {
js = "}";
@ -426,7 +426,7 @@ if (QB.halted()) { return; }
var excount = 0; /* INTEGER */
excount = (await func_ListSplit( (await func_Join( parts , 2, - 1, " ")) , exparts));
var exi = 0; /* INTEGER */
var ___v8144900 = 0; for ( exi= 1; exi <= excount; exi= exi + 1) { if (QB.halted()) { return; } ___v8144900++; if (___v8144900 % 1000 == 0) { await GX.sleep(1); }
var ___v8144900 = 0; for ( exi= 1; exi <= excount; exi= exi + 1) { if (QB.halted()) { return; } ___v8144900++; if (___v8144900 % 100 == 0) { await QB.autoLimit(); }
await sub_ParseExport( QB.arrayValue(exparts, [ exi]).value , i);
}
continue;
@ -458,7 +458,7 @@ if (QB.halted()) { return; }
var assignment = 0; /* INTEGER */
assignment = 0;
var j = 0; /* INTEGER */
var ___v7090379 = 0; for ( j= 1; j <= (QB.func_UBound( parts)); j= j + 1) { if (QB.halted()) { return; } ___v7090379++; if (___v7090379 % 1000 == 0) { await GX.sleep(1); }
var ___v7090379 = 0; for ( j= 1; j <= (QB.func_UBound( parts)); j= j + 1) { if (QB.halted()) { return; } ___v7090379++; if (___v7090379 % 100 == 0) { await QB.autoLimit(); }
if (QB.arrayValue(parts, [ j]).value == "=" ) {
assignment = j;
break;
@ -813,7 +813,7 @@ var ConvertRead = null;
var p = ''; /* STRING */
pcount = (await func_ListSplit( args, parts));
var i = 0; /* INTEGER */
var ___v453528 = 0; for ( i= 1; i <= pcount; i= i + 1) { if (QB.halted()) { return; } ___v453528++; if (___v453528 % 1000 == 0) { await GX.sleep(1); }
var ___v453528 = 0; for ( i= 1; i <= pcount; i= i + 1) { if (QB.halted()) { return; } ___v453528++; if (___v453528 % 100 == 0) { await QB.autoLimit(); }
p = (QB.func__Trim( QB.arrayValue(parts, [ i]).value));
vcount = (QB.func_UBound( vars)) + 1;
QB.resizeArray(vars, [{l:1,u:vcount}], '', true); /* STRING */
@ -822,7 +822,7 @@ var ConvertRead = null;
vname = await func_GenJSVar();
js = "var " + vname + " = new Array(" + (QB.func_Str( (QB.func_UBound( vars)))) + "); ";
js = js + (await func_CallMethod( m)) + "(" + vname + "); ";
var ___v4140327 = 0; for ( i= 1; i <= (QB.func_UBound( vars)); i= i + 1) { if (QB.halted()) { return; } ___v4140327++; if (___v4140327 % 1000 == 0) { await GX.sleep(1); }
var ___v4140327 = 0; for ( i= 1; i <= (QB.func_UBound( vars)); i= i + 1) { if (QB.halted()) { return; } ___v4140327++; if (___v4140327 % 100 == 0) { await QB.autoLimit(); }
js = js + (await func_ConvertExpression( QB.arrayValue(vars, [ i]).value , lineNumber)) + " = " + vname + "[" + (QB.func_Str( i - 1)) + "]; ";
}
ConvertRead = js;
@ -920,7 +920,7 @@ var ConvertPrint = null;
var js = ''; /* STRING */
js = "[";
var i = 0; /* INTEGER */
var ___v8626193 = 0; for ( i= 1; i <= pcount; i= i + 1) { if (QB.halted()) { return; } ___v8626193++; if (___v8626193 % 1000 == 0) { await GX.sleep(1); }
var ___v8626193 = 0; for ( i= 1; i <= pcount; i= i + 1) { if (QB.halted()) { return; } ___v8626193++; if (___v8626193 % 100 == 0) { await QB.autoLimit(); }
if ( i > 1) {
js = js + ",";
}
@ -976,7 +976,7 @@ var ConvertInput = null;
var p = ''; /* STRING */
pcount = (await func_PrintSplit( args, parts));
var i = 0; /* INTEGER */
var ___v7904800 = 0; for ( i= 1; i <= pcount; i= i + 1) { if (QB.halted()) { return; } ___v7904800++; if (___v7904800 % 1000 == 0) { await GX.sleep(1); }
var ___v7904800 = 0; for ( i= 1; i <= pcount; i= i + 1) { if (QB.halted()) { return; } ___v7904800++; if (___v7904800 % 100 == 0) { await QB.autoLimit(); }
p = (QB.func__Trim( QB.arrayValue(parts, [ i]).value));
if ( p == ";" ) {
if ( i == 1) {
@ -995,7 +995,7 @@ var ConvertInput = null;
vname = await func_GenJSVar();
js = "var " + vname + " = new Array(" + (QB.func_Str( (QB.func_UBound( vars)))) + "); ";
js = js + (await func_CallMethod( m)) + "(" + vname + ", " + preventNewline + ", " + addQuestionPrompt + ", " + prompt + "); ";
var ___v3735362 = 0; for ( i= 1; i <= (QB.func_UBound( vars)); i= i + 1) { if (QB.halted()) { return; } ___v3735362++; if (___v3735362 % 1000 == 0) { await GX.sleep(1); }
var ___v3735362 = 0; for ( i= 1; i <= (QB.func_UBound( vars)); i= i + 1) { if (QB.halted()) { return; } ___v3735362++; if (___v3735362 % 100 == 0) { await QB.autoLimit(); }
if (!(await func_StartsWith( (QB.func__Trim( QB.arrayValue(vars, [ i]).value)) , "#")) ) {
js = js + (await func_ConvertExpression( QB.arrayValue(vars, [ i]).value , lineNumber)) + " = " + vname + "[" + (QB.func_Str( i - 1)) + "]; ";
}
@ -1038,7 +1038,7 @@ var FindParamChar = null;
var quote = 0; /* INTEGER */
var paren = 0; /* INTEGER */
var i = 0; /* INTEGER */
var ___v9619532 = 0; for ( i= 1; i <= (QB.func_Len( s)); i= i + 1) { if (QB.halted()) { return; } ___v9619532++; if (___v9619532 % 1000 == 0) { await GX.sleep(1); }
var ___v9619532 = 0; for ( i= 1; i <= (QB.func_Len( s)); i= i + 1) { if (QB.halted()) { return; } ___v9619532++; if (___v9619532 % 100 == 0) { await QB.autoLimit(); }
c = (QB.func_Mid( s, i, 1));
if ( c == (QB.func_Chr( 34)) ) {
quote = ! quote;
@ -1079,7 +1079,7 @@ var DeclareVar = null;
var preserve = ''; /* STRING */
preserve = "false";
var i = 0; /* INTEGER */
var ___v8714458 = 0; for ( i= 1; i <= (QB.func_UBound( parts)); i= i + 1) { if (QB.halted()) { return; } ___v8714458++; if (___v8714458 % 1000 == 0) { await GX.sleep(1); }
var ___v8714458 = 0; for ( i= 1; i <= (QB.func_UBound( parts)); i= i + 1) { if (QB.halted()) { return; } ___v8714458++; if (___v8714458 % 100 == 0) { await QB.autoLimit(); }
if ((QB.func_UCase( QB.arrayValue(parts, [ i]).value)) == "AS" ) {
asIdx = i;
}
@ -1100,7 +1100,7 @@ var DeclareVar = null;
}
bvar.typeId = (await func_FindTypeId( bvar.type));
vnamecount = (await func_ListSplit( (await func_Join( parts , nextIdx, - 1, " ")) , varnames));
var ___v562369 = 0; for ( i= 1; i <= vnamecount; i= i + 1) { if (QB.halted()) { return; } ___v562369++; if (___v562369 % 1000 == 0) { await GX.sleep(1); }
var ___v562369 = 0; for ( i= 1; i <= vnamecount; i= i + 1) { if (QB.halted()) { return; } ___v562369++; if (___v562369 % 100 == 0) { await QB.autoLimit(); }
vname = (QB.func__Trim( QB.arrayValue(varnames, [ i]).value));
pstart = (QB.func_InStr( vname, "("));
if ( pstart > 0) {
@ -1135,7 +1135,7 @@ var DeclareVar = null;
var vpartcount = 0; /* INTEGER */
var vparts = QB.initArray([{l:1,u:0}], ''); /* STRING */
nextIdx = 0;
var ___v9495566 = 0; for ( i= 1; i <= (QB.func_UBound( parts)); i= i + 1) { if (QB.halted()) { return; } ___v9495566++; if (___v9495566 % 1000 == 0) { await GX.sleep(1); }
var ___v9495566 = 0; for ( i= 1; i <= (QB.func_UBound( parts)); i= i + 1) { if (QB.halted()) { return; } ___v9495566++; if (___v9495566 % 100 == 0) { await QB.autoLimit(); }
var p = ''; /* STRING */
p = (QB.func_UCase( QB.arrayValue(parts, [ i]).value));
if ( p == "DIM" || p == "REDIM" || p == "SHARED" || p == "_PRESERVE" ) {
@ -1143,7 +1143,7 @@ var DeclareVar = null;
}
}
vnamecount = (await func_ListSplit( (await func_Join( parts , nextIdx, - 1, " ")) , varnames));
var ___v3640187 = 0; for ( i= 1; i <= vnamecount; i= i + 1) { if (QB.halted()) { return; } ___v3640187++; if (___v3640187 % 1000 == 0) { await GX.sleep(1); }
var ___v3640187 = 0; for ( i= 1; i <= vnamecount; i= i + 1) { if (QB.halted()) { return; } ___v3640187++; if (___v3640187 % 100 == 0) { await QB.autoLimit(); }
vpartcount = (await func_SLSplit2( QB.arrayValue(varnames, [ i]).value , vparts));
bvar.name = (await func_RemoveSuffix( QB.arrayValue(vparts, [ 1]).value));
if ( vpartcount == 1) {
@ -1196,7 +1196,7 @@ var FormatArraySize = null;
var pcount = 0; /* INTEGER */
pcount = (await func_ListSplit( sizeString, parts));
var i = 0; /* INTEGER */
var ___v5248684 = 0; for ( i= 1; i <= pcount; i= i + 1) { if (QB.halted()) { return; } ___v5248684++; if (___v5248684 % 1000 == 0) { await GX.sleep(1); }
var ___v5248684 = 0; for ( i= 1; i <= pcount; i= i + 1) { if (QB.halted()) { return; } ___v5248684++; if (___v5248684 % 100 == 0) { await QB.autoLimit(); }
var subparts = QB.initArray([{l:1,u:0}], ''); /* STRING */
var scount = 0; /* INTEGER */
scount = (await func_SLSplit2( QB.arrayValue(parts, [ i]).value , subparts));
@ -1227,7 +1227,7 @@ var InitTypeValue = null;
var typeId = 0; /* INTEGER */
typeId = (await func_FindTypeId( vtype));
var i = 0; /* INTEGER */
var ___v7671116 = 0; for ( i= 1; i <= (QB.func_UBound( typeVars)); i= i + 1) { if (QB.halted()) { return; } ___v7671116++; if (___v7671116 % 1000 == 0) { await GX.sleep(1); }
var ___v7671116 = 0; for ( i= 1; i <= (QB.func_UBound( typeVars)); i= i + 1) { if (QB.halted()) { return; } ___v7671116++; if (___v7671116 % 100 == 0) { await QB.autoLimit(); }
if ( typeId == QB.arrayValue(typeVars, [ i]).value .typeId) {
value = value + QB.arrayValue(typeVars, [ i]).value .name + ":" + (await func_InitTypeValue( QB.arrayValue(typeVars, [ i]).value .type)) + ",";
}
@ -1243,7 +1243,7 @@ var FindTypeId = null;
var id = 0; /* INTEGER */
id = - 1;
var i = 0; /* INTEGER */
var ___v535045 = 0; for ( i= 1; i <= (QB.func_UBound( types)); i= i + 1) { if (QB.halted()) { return; } ___v535045++; if (___v535045 % 1000 == 0) { await GX.sleep(1); }
var ___v535045 = 0; for ( i= 1; i <= (QB.func_UBound( types)); i= i + 1) { if (QB.halted()) { return; } ___v535045++; if (___v535045 % 100 == 0) { await QB.autoLimit(); }
if (QB.arrayValue(types, [ i]).value .name == typeName) {
id = i;
break;
@ -1265,7 +1265,7 @@ var ConvertExpression = null;
var stringLiteral = 0; /* INTEGER */
var i = 0; /* INTEGER */
i = 1;
var ___v5924582 = 0; while ( i <= (QB.func_Len( ex))) { if (QB.halted()) { return; }___v5924582++; if (___v5924582 % 1000 == 0) { await GX.sleep(1); }
var ___v5924582 = 0; while ( i <= (QB.func_Len( ex))) { if (QB.halted()) { return; }___v5924582++; if (___v5924582 % 100 == 0) { await GX.autoLimit(); }
c = (QB.func_Mid( ex, i, 1));
if ( c == (QB.func_Chr( 34)) ) {
js = js + c;
@ -1327,7 +1327,7 @@ var ConvertExpression = null;
var stringLiteral2 = 0; /* INTEGER */
stringLiteral2 = False;
i = i + 1;
var ___v4687001 = 0; while (! done && i <= (QB.func_Len( ex))) { if (QB.halted()) { return; }___v4687001++; if (___v4687001 % 1000 == 0) { await GX.sleep(1); }
var ___v4687001 = 0; while (! done && i <= (QB.func_Len( ex))) { if (QB.halted()) { return; }___v4687001++; if (___v4687001 % 100 == 0) { await GX.autoLimit(); }
c2 = (QB.func_Mid( ex, i, 1));
if ( c2 == (QB.func_Chr( 34)) ) {
stringLiteral2 = ! stringLiteral2;
@ -1385,7 +1385,7 @@ var ConvertMethodParams = null;
var argc = 0; /* INTEGER */
argc = (await func_ListSplit( args, params));
var i = 0; /* INTEGER */
var ___v2981654 = 0; for ( i= 1; i <= argc; i= i + 1) { if (QB.halted()) { return; } ___v2981654++; if (___v2981654 % 1000 == 0) { await GX.sleep(1); }
var ___v2981654 = 0; for ( i= 1; i <= argc; i= i + 1) { if (QB.halted()) { return; } ___v2981654++; if (___v2981654 % 100 == 0) { await QB.autoLimit(); }
if ( i > 1) {
js = js + ",";
}
@ -1417,7 +1417,7 @@ var FindVariable = null;
var i = 0; /* INTEGER */
var fvarname = ''; /* STRING */
fvarname = (QB.func__Trim( (QB.func_UCase( (await func_RemoveSuffix( varname))))));
var ___v6226967 = 0; for ( i= 1; i <= (QB.func_UBound( localVars)); i= i + 1) { if (QB.halted()) { return; } ___v6226967++; if (___v6226967 % 1000 == 0) { await GX.sleep(1); }
var ___v6226967 = 0; for ( i= 1; i <= (QB.func_UBound( localVars)); i= i + 1) { if (QB.halted()) { return; } ___v6226967++; if (___v6226967 % 100 == 0) { await QB.autoLimit(); }
if (QB.arrayValue(localVars, [ i]).value .isArray == isArray && (QB.func_UCase( QB.arrayValue(localVars, [ i]).value .name)) == fvarname) {
found = True;
bvar.type = QB.arrayValue(localVars, [ i]).value .type;
@ -1431,7 +1431,7 @@ var FindVariable = null;
}
}
if (! found) {
var ___v6478212 = 0; for ( i= 1; i <= (QB.func_UBound( globalVars)); i= i + 1) { if (QB.halted()) { return; } ___v6478212++; if (___v6478212 % 1000 == 0) { await GX.sleep(1); }
var ___v6478212 = 0; for ( i= 1; i <= (QB.func_UBound( globalVars)); i= i + 1) { if (QB.halted()) { return; } ___v6478212++; if (___v6478212 % 100 == 0) { await QB.autoLimit(); }
if (QB.arrayValue(globalVars, [ i]).value .isArray == isArray && (QB.func_UCase( QB.arrayValue(globalVars, [ i]).value .name)) == fvarname) {
found = True;
bvar.type = QB.arrayValue(globalVars, [ i]).value .type;
@ -1454,7 +1454,7 @@ var FindMethod = null;
var found = 0; /* INTEGER */
found = False;
var i = 0; /* INTEGER */
var ___v2637929 = 0; for ( i= 1; i <= (QB.func_UBound( methods)); i= i + 1) { if (QB.halted()) { return; } ___v2637929++; if (___v2637929 % 1000 == 0) { await GX.sleep(1); }
var ___v2637929 = 0; for ( i= 1; i <= (QB.func_UBound( methods)); i= i + 1) { if (QB.halted()) { return; } ___v2637929++; if (___v2637929 % 100 == 0) { await QB.autoLimit(); }
if (QB.arrayValue(methods, [ i]).value .uname == (QB.func__Trim( (QB.func_UCase( (await func_RemoveSuffix( mname)))))) && QB.arrayValue(methods, [ i]).value .type == t) {
found = True;
m.line = QB.arrayValue(methods, [ i]).value .line;
@ -1470,7 +1470,7 @@ var FindMethod = null;
}
}
if (! found) {
var ___v2793420 = 0; for ( i= 1; i <= (QB.func_UBound( exportMethods)); i= i + 1) { if (QB.halted()) { return; } ___v2793420++; if (___v2793420 % 1000 == 0) { await GX.sleep(1); }
var ___v2793420 = 0; for ( i= 1; i <= (QB.func_UBound( exportMethods)); i= i + 1) { if (QB.halted()) { return; } ___v2793420++; if (___v2793420 % 100 == 0) { await QB.autoLimit(); }
if (QB.arrayValue(exportMethods, [ i]).value .uname == (QB.func__Trim( (QB.func_UCase( (await func_RemoveSuffix( mname)))))) && QB.arrayValue(exportMethods, [ i]).value .type == t) {
found = True;
m.line = QB.arrayValue(exportMethods, [ i]).value .line;
@ -1493,7 +1493,7 @@ async function sub_ConvertMethods() {
if (QB.halted()) { return; }
await sub_AddJSLine( 0, "");
var i = 0; /* INTEGER */
var ___v8298016 = 0; for ( i= 1; i <= (QB.func_UBound( methods)); i= i + 1) { if (QB.halted()) { return; } ___v8298016++; if (___v8298016 % 1000 == 0) { await GX.sleep(1); }
var ___v8298016 = 0; for ( i= 1; i <= (QB.func_UBound( methods)); i= i + 1) { if (QB.halted()) { return; } ___v8298016++; if (___v8298016 % 100 == 0) { await QB.autoLimit(); }
if ((QB.arrayValue(methods, [ i]).value .line != 0) ) {
var lastLine = 0; /* INTEGER */
lastLine = QB.arrayValue(methods, [ i + 1]).value .line - 1;
@ -1508,7 +1508,7 @@ if (QB.halted()) { return; }
var c = 0; /* INTEGER */
c = (await func_Split( QB.arrayValue(methods, [ i]).value .args, "," , args));
var a = 0; /* INTEGER */
var ___v8246022 = 0; for ( a= 1; a <= c; a= a + 1) { if (QB.halted()) { return; } ___v8246022++; if (___v8246022 % 1000 == 0) { await GX.sleep(1); }
var ___v8246022 = 0; for ( a= 1; a <= c; a= a + 1) { if (QB.halted()) { return; } ___v8246022++; if (___v8246022 % 100 == 0) { await QB.autoLimit(); }
var v = 0; /* INTEGER */
var parts = QB.initArray([{l:1,u:0}], ''); /* STRING */
v = (await func_Split( QB.arrayValue(args, [ a]).value , ":" , parts));
@ -1541,7 +1541,7 @@ if (QB.halted()) { return; }
await sub_AddJSLine( lastLine, "}");
}
}
var ___v5891630 = 0; for ( i= 1; i <= (QB.func_UBound( exportLines)); i= i + 1) { if (QB.halted()) { return; } ___v5891630++; if (___v5891630 % 1000 == 0) { await GX.sleep(1); }
var ___v5891630 = 0; for ( i= 1; i <= (QB.func_UBound( exportLines)); i= i + 1) { if (QB.halted()) { return; } ___v5891630++; if (___v5891630 % 100 == 0) { await QB.autoLimit(); }
await sub_AddJSLine( i, QB.arrayValue(exportLines, [ i]).value);
}
QB.resizeArray(exportLines, [{l:1,u:0}], '', false); /* STRING */
@ -1552,11 +1552,11 @@ if (QB.halted()) { return; }
var lineIndex = 0; /* INTEGER */
var rawJS = 0; /* SINGLE */
// Open filename For Input As #1
var ___v9860932 = 0; while (!(( 1))) { if (QB.halted()) { return; }___v9860932++; if (___v9860932 % 1000 == 0) { await GX.sleep(1); }
var ___v9860932 = 0; while (!(( 1))) { if (QB.halted()) { return; }___v9860932++; if (___v9860932 % 100 == 0) { await QB.autoLimit(); }
var ___v9109643 = new Array( 2); QB.sub_LineInput(___v9109643, false, false, undefined); fline = ___v9109643[ 1];
lineIndex = lineIndex + 1;
if ((QB.func__Trim( fline)) != "" ) {
var ___v2268660 = 0; while ((await func_EndsWith( fline, " _"))) { if (QB.halted()) { return; }___v2268660++; if (___v2268660 % 1000 == 0) { await GX.sleep(1); }
var ___v2268660 = 0; while ((await func_EndsWith( fline, " _"))) { if (QB.halted()) { return; }___v2268660++; if (___v2268660 % 100 == 0) { await GX.autoLimit(); }
var nextLine = ''; /* STRING */
var ___v6951155 = new Array( 2); QB.sub_LineInput(___v6951155, false, false, undefined); nextLine = ___v6951155[ 1];
fline = (QB.func_Left( fline, (QB.func_Len( fline)) - 1)) + nextLine;
@ -1573,7 +1573,7 @@ if (QB.halted()) { return; }
var lcount = 0; /* INTEGER */
var i = 0; /* INTEGER */
lcount = (await func_Split( sourceText, await func_LF(), sourceLines));
var ___v9800032 = 0; for ( i= 1; i <= lcount; i= i + 1) { if (QB.halted()) { return; } ___v9800032++; if (___v9800032 % 1000 == 0) { await GX.sleep(1); }
var ___v9800032 = 0; for ( i= 1; i <= lcount; i= i + 1) { if (QB.halted()) { return; } ___v9800032++; if (___v9800032 % 100 == 0) { await QB.autoLimit(); }
var fline = ''; /* STRING */
fline = QB.arrayValue(sourceLines, [ i]).value;
if ((QB.func__Trim( fline)) != "" ) {
@ -1597,7 +1597,7 @@ if (QB.halted()) { return; }
continue;
}
}
var ___v2439314 = 0; while ((await func_EndsWith( fline, "_"))) { if (QB.halted()) { return; }___v2439314++; if (___v2439314 % 1000 == 0) { await GX.sleep(1); }
var ___v2439314 = 0; while ((await func_EndsWith( fline, "_"))) { if (QB.halted()) { return; }___v2439314++; if (___v2439314 % 100 == 0) { await GX.autoLimit(); }
i = i + 1;
var nextLine = ''; /* STRING */
nextLine = QB.arrayValue(sourceLines, [ i]).value;
@ -1613,7 +1613,7 @@ var ReadLine = null;
var quoteDepth = 0; /* INTEGER */
quoteDepth = 0;
var i = 0; /* INTEGER */
var ___v5338731 = 0; for ( i= 1; i <= (QB.func_Len( fline)); i= i + 1) { if (QB.halted()) { return; } ___v5338731++; if (___v5338731 % 1000 == 0) { await GX.sleep(1); }
var ___v5338731 = 0; for ( i= 1; i <= (QB.func_Len( fline)); i= i + 1) { if (QB.halted()) { return; } ___v5338731++; if (___v5338731 % 100 == 0) { await QB.autoLimit(); }
var c = ''; /* STRING */ var c4 = ''; /* STRING */
c = (QB.func_Mid( fline, i, 1));
c4 = (QB.func_UCase( (QB.func_Mid( fline, i, 4))));
@ -1673,7 +1673,7 @@ var ReadLine = null;
var dcount = 0; /* INTEGER */
var de = QB.initArray([{l:1,u:0}], ''); /* STRING */
dcount = (await func_ListSplit( dstr, de));
var ___v1063697 = 0; for ( i= 1; i <= dcount; i= i + 1) { if (QB.halted()) { return; } ___v1063697++; if (___v1063697 % 1000 == 0) { await GX.sleep(1); }
var ___v1063697 = 0; for ( i= 1; i <= dcount; i= i + 1) { if (QB.halted()) { return; } ___v1063697++; if (___v1063697 % 100 == 0) { await QB.autoLimit(); }
index = (QB.func_UBound( dataArray)) + 1;
QB.resizeArray(dataArray, [{l:1,u:index}], '', true); /* STRING */
QB.arrayValue(dataArray, [ index]).value = QB.arrayValue(de, [ i]).value;
@ -1681,7 +1681,7 @@ var ReadLine = null;
return ReadLine;
}
var ifIdx = 0; /* INTEGER */ var thenIdx = 0; /* INTEGER */ var elseIdx = 0; /* INTEGER */
var ___v9994146 = 0; for ( i= 1; i <= wcount; i= i + 1) { if (QB.halted()) { return; } ___v9994146++; if (___v9994146 % 1000 == 0) { await GX.sleep(1); }
var ___v9994146 = 0; for ( i= 1; i <= wcount; i= i + 1) { if (QB.halted()) { return; } ___v9994146++; if (___v9994146 % 100 == 0) { await QB.autoLimit(); }
word = (QB.func_UCase( QB.arrayValue(words, [ i]).value));
if ( word == "IF" ) {
ifIdx = i;
@ -1711,7 +1711,7 @@ if (QB.halted()) { return; }
var quoteDepth = 0; /* INTEGER */
quoteDepth = 0;
var i = 0; /* INTEGER */
var ___v6761759 = 0; for ( i= 1; i <= (QB.func_Len( fline)); i= i + 1) { if (QB.halted()) { return; } ___v6761759++; if (___v6761759 % 1000 == 0) { await GX.sleep(1); }
var ___v6761759 = 0; for ( i= 1; i <= (QB.func_Len( fline)); i= i + 1) { if (QB.halted()) { return; } ___v6761759++; if (___v6761759 % 100 == 0) { await QB.autoLimit(); }
var c = ''; /* STRING */
c = (QB.func_Mid( fline, i, 1));
if ( c == (QB.func_Chr( 34)) ) {
@ -1735,7 +1735,7 @@ if (QB.halted()) { return; }
var pcount = 0; /* INTEGER */
var rawJS = 0; /* INTEGER */
var parts = QB.initArray([{l:1,u:0}], ''); /* STRING */
var ___v157039 = 0; for ( i= 1; i <= (QB.func_UBound( lines)); i= i + 1) { if (QB.halted()) { return; } ___v157039++; if (___v157039 % 1000 == 0) { await GX.sleep(1); }
var ___v157039 = 0; for ( i= 1; i <= (QB.func_UBound( lines)); i= i + 1) { if (QB.halted()) { return; } ___v157039++; if (___v157039 % 100 == 0) { await QB.autoLimit(); }
pcount = (await func_Split( QB.arrayValue(lines, [ i]).value .text, " " , parts));
var word = ''; /* STRING */
word = (QB.func_UCase( QB.arrayValue(parts, [ 1]).value));
@ -1779,7 +1779,7 @@ if (QB.halted()) { return; }
var a = 0; /* INTEGER */
var args = ''; /* STRING */
args = "";
var ___v5751838 = 0; for ( a= 1; a <= m.argc; a= a + 1) { if (QB.halted()) { return; } ___v5751838++; if (___v5751838 % 1000 == 0) { await GX.sleep(1); }
var ___v5751838 = 0; for ( a= 1; a <= m.argc; a= a + 1) { if (QB.halted()) { return; } ___v5751838++; if (___v5751838 % 100 == 0) { await QB.autoLimit(); }
var aparts = QB.initArray([{l:1,u:0}], ''); /* STRING */
var apcount = 0; /* INTEGER */
var argname = ''; /* STRING */
@ -1815,7 +1815,7 @@ var Split = null;
if ( delimiter == " " ) {
cstr = (QB.func_RTrim( (QB.func_LTrim( cstr))));
p = (QB.func_InStr( cstr, " "));
var ___v1000522 = 0; while ( p > 0) { if (QB.halted()) { return; }___v1000522++; if (___v1000522 % 1000 == 0) { await GX.sleep(1); }
var ___v1000522 = 0; while ( p > 0) { if (QB.halted()) { return; }___v1000522++; if (___v1000522 % 100 == 0) { await GX.autoLimit(); }
cstr = (QB.func_Mid( cstr, 1, p - 1)) + (QB.func_Mid( cstr, p + 1));
p = (QB.func_InStr( cstr, " "));
}
@ -1823,7 +1823,7 @@ var Split = null;
curpos = 1;
arrpos = 0;
dpos = (QB.func_InStr( curpos, cstr, delimiter));
var ___v1030226 = 0; while (!( dpos == 0)) { if (QB.halted()) { return; }___v1030226++; if (___v1030226 % 1000 == 0) { await GX.sleep(1); }
var ___v1030226 = 0; while (!( dpos == 0)) { if (QB.halted()) { return; }___v1030226++; if (___v1030226 % 100 == 0) { await QB.autoLimit(); }
arrpos = arrpos + 1;
QB.resizeArray(results, [{l:1,u:arrpos}], '', true); /* STRING */
QB.arrayValue(results, [ arrpos]).value = (QB.func_Mid( cstr, curpos, dpos - curpos));
@ -1848,7 +1848,7 @@ var SLSplit = null;
var result = ''; /* STRING */
var count = 0; /* INTEGER */
var i = 0; /* INTEGER */
var ___v7988844 = 0; for ( i= 1; i <= (QB.func_Len( cstr)); i= i + 1) { if (QB.halted()) { return; } ___v7988844++; if (___v7988844 % 1000 == 0) { await GX.sleep(1); }
var ___v7988844 = 0; for ( i= 1; i <= (QB.func_Len( cstr)); i= i + 1) { if (QB.halted()) { return; } ___v7988844++; if (___v7988844 % 100 == 0) { await QB.autoLimit(); }
var c = ''; /* STRING */ var c2 = ''; /* STRING */
c = (QB.func_Mid( cstr, i, 1));
c2 = (QB.func_Mid( cstr, i, 2));
@ -1950,7 +1950,7 @@ var SLSplit2 = null;
var paren = 0; /* INTEGER */
var count = 0; /* INTEGER */
var i = 0; /* INTEGER */
var ___v2844803 = 0; for ( i= 1; i <= (QB.func_Len( cstr)); i= i + 1) { if (QB.halted()) { return; } ___v2844803++; if (___v2844803 % 1000 == 0) { await GX.sleep(1); }
var ___v2844803 = 0; for ( i= 1; i <= (QB.func_Len( cstr)); i= i + 1) { if (QB.halted()) { return; } ___v2844803++; if (___v2844803 % 100 == 0) { await QB.autoLimit(); }
var c = ''; /* STRING */
c = (QB.func_Mid( cstr, i, 1));
if ( c == (QB.func_Chr( 34)) ) {
@ -1999,7 +1999,7 @@ var ListSplit = null;
var count = 0; /* INTEGER */
var paren = 0; /* INTEGER */
var i = 0; /* INTEGER */
var ___v456492 = 0; for ( i= 1; i <= (QB.func_Len( cstr)); i= i + 1) { if (QB.halted()) { return; } ___v456492++; if (___v456492 % 1000 == 0) { await GX.sleep(1); }
var ___v456492 = 0; for ( i= 1; i <= (QB.func_Len( cstr)); i= i + 1) { if (QB.halted()) { return; } ___v456492++; if (___v456492 % 100 == 0) { await QB.autoLimit(); }
var c = ''; /* STRING */
c = (QB.func_Mid( cstr, i, 1));
if ( c == (QB.func_Chr( 34)) ) {
@ -2044,7 +2044,7 @@ var PrintSplit = null;
var count = 0; /* INTEGER */
var paren = 0; /* INTEGER */
var i = 0; /* INTEGER */
var ___v2957728 = 0; for ( i= 1; i <= (QB.func_Len( cstr)); i= i + 1) { if (QB.halted()) { return; } ___v2957728++; if (___v2957728 % 1000 == 0) { await GX.sleep(1); }
var ___v2957728 = 0; for ( i= 1; i <= (QB.func_Len( cstr)); i= i + 1) { if (QB.halted()) { return; } ___v2957728++; if (___v2957728 % 100 == 0) { await QB.autoLimit(); }
var c = ''; /* STRING */
c = (QB.func_Mid( cstr, i, 1));
if ( c == (QB.func_Chr( 34)) ) {
@ -2088,7 +2088,7 @@ if (QB.halted()) { return; }
await QB.sub_Print(["Methods"]);
await QB.sub_Print(["------------------------------------------------------------"]);
var i = 0; /* INTEGER */
var ___v3820107 = 0; for ( i= 1; i <= (QB.func_UBound( methods)); i= i + 1) { if (QB.halted()) { return; } ___v3820107++; if (___v3820107 % 1000 == 0) { await GX.sleep(1); }
var ___v3820107 = 0; for ( i= 1; i <= (QB.func_UBound( methods)); i= i + 1) { if (QB.halted()) { return; } ___v3820107++; if (___v3820107 % 100 == 0) { await QB.autoLimit(); }
var m = {line:0,type:'',returnType:'',name:'',uname:'',argc:0,args:'',jsname:'',sync:0}; /* METHOD */
m = QB.arrayValue(methods, [ i]).value;
await QB.sub_Print([(QB.func_Str( m.line)) + ": " + m.type + " - " + m.name + " [" + m.jsname + "] - " + m.returnType + " - " + m.args]);
@ -2100,12 +2100,12 @@ if (QB.halted()) { return; }
await QB.sub_Print(["Types"]);
await QB.sub_Print(["------------------------------------------------------------"]);
var i = 0; /* INTEGER */
var ___v3009705 = 0; for ( i= 1; i <= (QB.func_UBound( types)); i= i + 1) { if (QB.halted()) { return; } ___v3009705++; if (___v3009705 % 1000 == 0) { await GX.sleep(1); }
var ___v3009705 = 0; for ( i= 1; i <= (QB.func_UBound( types)); i= i + 1) { if (QB.halted()) { return; } ___v3009705++; if (___v3009705 % 100 == 0) { await QB.autoLimit(); }
var t = {line:0,name:'',argc:0,args:''}; /* QBTYPE */
t = QB.arrayValue(types, [ i]).value;
await QB.sub_Print([(QB.func_Str( t.line)) + ": " + t.name]);
var v = 0; /* INTEGER */
var ___v9485711 = 0; for ( v= 1; v <= (QB.func_UBound( typeVars)); v= v + 1) { if (QB.halted()) { return; } ___v9485711++; if (___v9485711 % 1000 == 0) { await GX.sleep(1); }
var ___v9485711 = 0; for ( v= 1; v <= (QB.func_UBound( typeVars)); v= v + 1) { if (QB.halted()) { return; } ___v9485711++; if (___v9485711 % 100 == 0) { await QB.autoLimit(); }
if (QB.arrayValue(typeVars, [ i]).value .typeId == i) {
await QB.sub_Print([" -> " + QB.arrayValue(typeVars, [ v]).value .name + ": " + QB.arrayValue(typeVars, [ v]).value .type]);
}
@ -2301,7 +2301,7 @@ if (QB.halted()) { return; }
var pairs = QB.initArray([{l:1,u:0}], ''); /* STRING */
count = (await func_Split( args, "," , pairs));
var i = 0; /* INTEGER */
var ___v9798294 = 0; for ( i= 1; i <= (QB.func_UBound( pairs)); i= i + 1) { if (QB.halted()) { return; } ___v9798294++; if (___v9798294 % 1000 == 0) { await GX.sleep(1); }
var ___v9798294 = 0; for ( i= 1; i <= (QB.func_UBound( pairs)); i= i + 1) { if (QB.halted()) { return; } ___v9798294++; if (___v9798294 % 100 == 0) { await QB.autoLimit(); }
var nv = QB.initArray([{l:1,u:0}], ''); /* STRING */
count = (await func_Split( QB.arrayValue(pairs, [ i]).value , ":" , nv));
var tvar = {type:'',name:'',jsname:'',isConst:0,isArray:0,arraySize:0,typeId:0}; /* VARIABLE */
@ -2329,7 +2329,7 @@ var RemoveSuffix = null;
var c = ''; /* STRING */
vname = (QB.func__Trim( vname));
i = (QB.func_Len( vname));
var ___v4013744 = 0; while (! done) { if (QB.halted()) { return; }___v4013744++; if (___v4013744 % 1000 == 0) { await GX.sleep(1); }
var ___v4013744 = 0; while (! done) { if (QB.halted()) { return; }___v4013744++; if (___v4013744 % 100 == 0) { await GX.autoLimit(); }
c = (QB.func_Mid( vname, i, 1));
if ( c == "`" || c == "%" || c == "&" || c == "$" || c == "~" || c == "!" || c == "#" ) {
i = i - 1;
@ -2414,7 +2414,7 @@ var Join = null;
}
var s = ''; /* STRING */
var i = 0; /* INTEGER */
var ___v2782800 = 0; for ( i= startIndex; i <= endIndex; i= i + 1) { if (QB.halted()) { return; } ___v2782800++; if (___v2782800 % 1000 == 0) { await GX.sleep(1); }
var ___v2782800 = 0; for ( i= startIndex; i <= endIndex; i= i + 1) { if (QB.halted()) { return; } ___v2782800++; if (___v2782800 % 100 == 0) { await QB.autoLimit(); }
s = s + QB.arrayValue(parts, [ i]).value;
if ( i != (QB.func_UBound( parts)) ) {
s = s + delimiter;
@ -2438,7 +2438,7 @@ var Replace = null;
var i = 0; /* INTEGER */
var slen = 0; /* INTEGER */
slen = (QB.func_Len( searchString));
var ___v1604415 = 0; for ( i= 1; i <= (QB.func_Len( s)); i= i + 1) { if (QB.halted()) { return; } ___v1604415++; if (___v1604415 % 1000 == 0) { await GX.sleep(1); }
var ___v1604415 = 0; for ( i= 1; i <= (QB.func_Len( s)); i= i + 1) { if (QB.halted()) { return; } ___v1604415++; if (___v1604415 % 100 == 0) { await QB.autoLimit(); }
if ((QB.func_Mid( s, i, slen)) == searchString) {
ns = ns + newString;
i = i + slen - 1;
@ -2480,7 +2480,7 @@ var MethodJS = null;
var i = 0; /* INTEGER */
var c = ''; /* STRING */
var a = 0; /* INTEGER */
var ___v1628216 = 0; for ( i= 1; i <= (QB.func_Len( m.name)); i= i + 1) { if (QB.halted()) { return; } ___v1628216++; if (___v1628216 % 1000 == 0) { await GX.sleep(1); }
var ___v1628216 = 0; for ( i= 1; i <= (QB.func_Len( m.name)); i= i + 1) { if (QB.halted()) { return; } ___v1628216++; if (___v1628216 % 100 == 0) { await QB.autoLimit(); }
c = (QB.func_Mid( m.name, i, 1));
a = (QB.func_Asc( c));
if (( a >= 65 && a <= 90) || ( a >= 97 && a <= 122) || ( a >= 48 && a <= 57) || a == 95 || a == 46) {
@ -2506,7 +2506,7 @@ var GXMethodJS = null;
var i = 0; /* INTEGER */
var c = ''; /* STRING */
var a = 0; /* INTEGER */
var ___v6465872 = 0; for ( i= startIdx + 1; i <= (QB.func_Len( mname)); i= i + 1) { if (QB.halted()) { return; } ___v6465872++; if (___v6465872 % 1000 == 0) { await GX.sleep(1); }
var ___v6465872 = 0; for ( i= startIdx + 1; i <= (QB.func_Len( mname)); i= i + 1) { if (QB.halted()) { return; } ___v6465872++; if (___v6465872 % 100 == 0) { await QB.autoLimit(); }
c = (QB.func_Mid( mname, i, 1));
a = (QB.func_Asc( c));
if (( a >= 65 && a <= 90) || ( a >= 97 && a <= 122) || ( a >= 48 && a <= 57) || a == 95 || a == 46) {

6
tools/qb2js.bas
View file

@ -368,7 +368,7 @@ Sub ConvertLines (firstLine As Integer, lastLine As Integer, functionName As Str
js = js + " for (" + fvar + "=" + sval + "; " + fvar + fcond + uval + "; " + fvar + "=" + fvar + " + " + fstep + ") {"
js = js + " if (QB.halted()) { return; } "
js = js + loopIndex + "++; "
js = js + " if (" + loopIndex + " % 1000 == 0) { await GX.sleep(1); }"
js = js + " if (" + loopIndex + " % 100 == 0) { await QB.autoLimit(); }"
indent = 1
@ -444,7 +444,7 @@ Sub ConvertLines (firstLine As Integer, lastLine As Integer, functionName As Str
indent = 1
js = js + " if (QB.halted()) { return; }"
js = js + loopIndex + "++; "
js = js + " if (" + loopIndex + " % 1000 == 0) { await GX.sleep(1); }"
js = js + " if (" + loopIndex + " % 100 == 0) { await QB.autoLimit(); }"
ElseIf first = "WHILE" Then
@ -455,7 +455,7 @@ Sub ConvertLines (firstLine As Integer, lastLine As Integer, functionName As Str
js = js + " while (" + ConvertExpression(Join(parts(), 2, -1, " "), i) + ") {"
js = js + " if (QB.halted()) { return; }"
js = js + loopIndex + "++; "
js = js + " if (" + loopIndex + " % 1000 == 0) { await GX.sleep(1); }"
js = js + " if (" + loopIndex + " % 100 == 0) { await GX.autoLimit(); }"
indent = 1