QB64/qbjs
QB64/qbjs
1
1
Fork 0
mirror of https://github.com/boxgaming/qbjs.git synced 2024-05-12 08:00:12 +00:00
Code Issues Releases Wiki Activity

Update to allow QB64 constants to be referenced with or without leaading underscore

Browse source
This commit is contained in:
boxgaming 2024-01-19 09:26:59 -06:00
parent 0172877bc2
commit 956a621a95
2 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
qb2js.js
View file

@ -2763,6 +2763,14 @@ if (QB.halted()) { return; };
v.jsname = "QB." + vname;
v.isConst = True;
await sub_AddVariable( v, globalVars);
if ((QB.func_InStr( vname, "_")) == 1) {
var v2 = {type:'',name:'',jsname:'',isConst:0,isArray:0,arraySize:0,typeId:0}; /* VARIABLE */
v2.type = v.type;
v2.name = (QB.func_Mid( v.name, 2));
v2.jsname = v.jsname;
v2.isConst = v.isConst;
await sub_AddVariable( v2, globalVars);
}
}
async function sub_AddGlobal(vname/*STRING*/,vtype/*STRING*/,arraySize/*INTEGER*/) {
if (QB.halted()) { return; };

8
tools/qb2js.bas
View file

@ -2994,6 +2994,14 @@ Sub AddQBConst (vname As String)
v.jsname = "QB." + vname
v.isConst = True
AddVariable v, globalVars()
If Instr(vname, "_") = 1 Then
Dim v2 As Variable
v2.type = v.type
v2.name = Mid$(v.name, 2)
v2.jsname = v.jsname
v2.isConst = v.isConst
AddVariable v2, globalVars()
End If
End Sub
Sub AddGlobal (vname As String, vtype As String, arraySize As Integer)