Added support for _EnvironCount

boxgaming · Jan 20, 2024 · 1995561 · 1995561
1 parent 956a621
commit 1995561
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 1 deletion.
diff --git a/codemirror/qb-lang.js b/codemirror/qb-lang.js
@@ -40,7 +40,8 @@ CodeMirror.defineMode("qbjs", function(conf, parserConf) {
                              '_?backgroundcolor', '_?blue', '_?blue32', '_?capslock', '_?ceil', '_?commandcount', '_?continue', '_?copyimage',
                              '_?cosh', '_?cot', '_?coth', '_?csc', '_?csch', '_?cwd', 
                              '_?defaultcolor', '_?d2g', '_?d2r', '_?deflate', '_?desktopwidth', '_?desktopheight',
-                             '_?delay', '_?dest', '_?dir', '_?direxists', '_?display', '_?echo', '_?fileexists', '_?font', '_?fontwidth', '_?fontheight',
+                             '_?delay', '_?dest', '_?dir', '_?direxists', '_?display', 
+                             '_?echo', '_?environcount', '_?fileexists', '_?font', '_?fontwidth', '_?fontheight',
                              '_?freeimage', '_?fullscreen', '_?g2d', '_?g2r', '_?green', '_?green32', '_?height', '_?hypot', "_?inflate",
                              '_?instrrev', '_?limit', '_?keyclear', '_?keydown', '_?keyhit', '_?loadfont', '_?loadimage',
                              '_?mousebutton', '_?mousehide', '_?mouseinput', '_?mouseshow', '_?mousewheel', '_?mousex', '_?mousey',

diff --git a/qb.js b/qb.js
@@ -414,6 +414,11 @@ var QB = new function() {
         console.log(msg); 
     };
 
+    this.func__EnvironCount = function() {
+        /* no-op: included for compatibility */
+        return 0;
+    };
+
     this.func__FileExists = function(path) {
         var vfs = GX.vfs();
         var file = vfs.getNode(path, GX.vfsCwd());

diff --git a/qb2js.js b/qb2js.js
@@ -3420,6 +3420,7 @@ if (QB.halted()) { return; };
    await sub_AddQBMethod( "FUNCTION" ,   "_Display" ,    False);
    await sub_AddQBMethod( "SUB" ,   "_Display" ,    False);
    await sub_AddQBMethod( "SUB" ,   "_Echo" ,    False);
+   await sub_AddQBMethod( "FUNCTION" ,   "_EnvironCount" ,    False);
    await sub_AddQBMethod( "FUNCTION" ,   "_FileExists" ,    False);
    await sub_AddQBMethod( "FUNCTION" ,   "_Font" ,    False);
    await sub_AddQBMethod( "SUB" ,   "_Font" ,    False);

diff --git a/tools/qb2js.bas b/tools/qb2js.bas
@@ -3646,6 +3646,7 @@ Sub InitQBMethods
     AddQBMethod "FUNCTION", "_Display", False
     AddQBMethod "SUB", "_Display", False
     AddQBMethod "SUB", "_Echo", False
+    AddQBMethod "FUNCTION", "_EnvironCount", False
     AddQBMethod "FUNCTION", "_FileExists", False
     AddQBMethod "FUNCTION", "_Font", False
     AddQBMethod "SUB", "_Font", False