vba-runner 0.1.1-alpha.3 → 0.1.1-alpha.4

package/dist/bin/vba-analyzer.cjs

@@ -2885,7 +2885,18 @@ var fs = __toESM(require("fs"), 1);
 var path = __toESM(require("path"), 1);
 
 // ../../test-libs/version.ts
-var VERSION = "0.1.1-alpha.1";
+var import_fs = require("fs");
+var import_path = require("path");
+function readVersion() {
+  for (const rel of ["../build/runner/package.json", "../../package.json"]) {
+    try {
+      return JSON.parse((0, import_fs.readFileSync)((0, import_path.join)(__dirname, rel), "utf8")).version;
+    } catch {
+    }
+  }
+  return "unknown";
+}
+var VERSION = readVersion();
 
 // ../../test-libs/vba-analyzer.ts
 function isStatementArray(v) {

package/dist/bin/vba-formatter.cjs

@@ -943,7 +943,18 @@ function applyEdits(source, edits) {
 }
 
 // ../../test-libs/version.ts
-var VERSION = "0.1.1-alpha.1";
+var import_fs = require("fs");
+var import_path = require("path");
+function readVersion() {
+  for (const rel of ["../build/runner/package.json", "../../package.json"]) {
+    try {
+      return JSON.parse((0, import_fs.readFileSync)((0, import_path.join)(__dirname, rel), "utf8")).version;
+    } catch {
+    }
+  }
+  return "unknown";
+}
+var VERSION = readVersion();
 
 // ../../test-libs/vba-formatter.ts
 var VBA_EXTENSIONS = /\.(bas|cls|frm)$/i;

package/dist/bin/vba-parse-check.cjs

@@ -2626,7 +2626,18 @@ var fs = __toESM(require("fs"), 1);
 var path = __toESM(require("path"), 1);
 
 // ../../test-libs/version.ts
-var VERSION = "0.1.1-alpha.1";
+var import_fs = require("fs");
+var import_path = require("path");
+function readVersion() {
+  for (const rel of ["../build/runner/package.json", "../../package.json"]) {
+    try {
+      return JSON.parse((0, import_fs.readFileSync)((0, import_path.join)(__dirname, rel), "utf8")).version;
+    } catch {
+    }
+  }
+  return "unknown";
+}
+var VERSION = readVersion();
 
 // ../../test-libs/vba-parse-check.ts
 function checkFile(filePath) {

package/dist/bin/vba-run.cjs

@@ -4294,6 +4294,16 @@ var Evaluator = class _Evaluator {
   inConstEval = false;
   vbaCallStack = [];
   debugHook = null;
+  /**
+   * resolveIdentifiers 完了後に true になる。
+   * evaluateModule はこのフラグを見て、バッチロード中（false）はモジュールレベル
+   * 実行文を pendingTopLevel に退避し、インタラクティブ呼び出し（true）では即時実行する。
+   */
+  resolveIdentifiersDone = false;
+  /** Pass 1 で配列境界を評価できなかった VariableDeclaration。Pass 2 で再評価。 */
+  pendingArrayDecls = [];
+  /** Pass 1 でシンボルテーブルに退避したモジュールレベル実行文。Pass 2 後に実行。 */
+  pendingTopLevel = [];
   constructor(onPrint, config = {}) {
     this.builtinEnv = new Environment();
     this.env = this.builtinEnv;
@@ -5715,22 +5725,70 @@ var Evaluator = class _Evaluator {
     }
   }
   /**
-   * Pass 1: 1モジュール分の AST を登録する。
-   * 手続き・変数を env に登録する。
-   * モジュールレベル ConstDeclaration はスキップし、Pass 2（resolveIdentifiers）で評価する。
+   * モジュールレベルでシンボルテーブルに登録すべき宣言文かどうかを返す。
+   * false の場合はモジュールレベル実行文として pendingTopLevel に退避する。
+   */
+  isModuleLevelDeclaration(stmt) {
+    switch (stmt.type) {
+      case "ProcedureDeclaration":
+      case "VariableDeclaration":
+      case "ConstDeclaration":
+      case "TypeDeclaration":
+      case "ClassDeclaration":
+      case "EnumDeclaration":
+      case "OptionExplicitStatement":
+      case "OptionBaseStatement":
+      case "OptionCompareStatement":
+      case "OptionPrivateModuleStatement":
+      case "DefDirective":
+      case "AttributeStatement":
+      case "DeclareStatement":
+      case "EventDeclaration":
+      case "ImplementsDirective":
+      case "LabelStatement":
+        return true;
+      default:
+        return false;
+    }
+  }
+  /**
+   * Pass 1: 1モジュール分の AST を登録する（シンボルテーブル構築）。
    *
-   * Option Explicit チェックは Pass 2（resolveIdentifiers）に一本化している。
-   * Pass 2 は全モジュール名を知った精密モードで実行され、Pass 1 の保守的チェックの
-   * 厳密な上位集合なので、ここでは行わない。
+   * - ConstDeclaration      → スキップ。Pass 2（resolveIdentifiers）で依存順に評価。
+   * - VariableDeclaration   → 配列境界なしは即時登録。配列境界ありは pendingArrayDecls
+   *                           に退避し Pass 2 で Const 解決後に評価。
+   * - モジュールレベル実行文 → resolveIdentifiers 完了前（バッチロード中）は
+   *                           pendingTopLevel に退避。Pass 2 後に実行。
+   *                           resolveIdentifiers 完了後（インタラクティブ呼び出し）は
+   *                           即時実行（evalExpression や追加モジュールロード等）。
    */
   evaluateModule(program) {
     if (this.currentSourceModule && !this.env.hasVariable(this.currentSourceModule.toLowerCase())) {
       this.env.set(this.currentSourceModule.toLowerCase(), new VbaNamespaceRef(this.currentSourceModule, "module"));
     }
+    const batchMode = !this.resolveIdentifiersDone;
+    const topLevelStmts = [];
     for (const stmt of program.body) {
-      if (stmt.type === "ConstDeclaration") continue;
+      if (stmt.type === "ConstDeclaration") {
+        if (!batchMode) this.evaluateConstDeclaration(stmt);
+        continue;
+      }
+      if (batchMode && stmt.type === "VariableDeclaration") {
+        const varDecl = stmt;
+        if (varDecl.declarations.some((d) => d.isArray && d.arrayBounds && d.arrayBounds.length > 0)) {
+          this.pendingArrayDecls.push({ stmt: varDecl, moduleName: this.currentSourceModule || "" });
+          continue;
+        }
+      }
+      if (batchMode && !this.isModuleLevelDeclaration(stmt)) {
+        topLevelStmts.push(stmt);
+        continue;
+      }
       this.evaluateStatement(stmt);
     }
+    if (batchMode && topLevelStmts.length > 0) {
+      this.pendingTopLevel.push({ moduleName: this.currentSourceModule || "", stmts: topLevelStmts });
+    }
   }
   /** @deprecated Use {@link evaluateModule} instead. */
   evaluate(program) {
@@ -7001,6 +7059,13 @@ var Evaluator = class _Evaluator {
       this.evaluateConstDeclaration(stmt);
       this.currentSourceModule = prev;
     }
+    for (const { stmt, moduleName } of this.pendingArrayDecls) {
+      const prev = this.currentSourceModule;
+      this.currentSourceModule = moduleName;
+      this.evaluateVariableDeclaration(stmt);
+      this.currentSourceModule = prev;
+    }
+    this.pendingArrayDecls = [];
     for (const { ast, moduleName } of modules) {
       const seen = /* @__PURE__ */ new Set();
       for (const stmt of ast.body) {
@@ -7026,6 +7091,16 @@ var Evaluator = class _Evaluator {
         }
       }
     }
+    this.resolveIdentifiersDone = true;
+    for (const { moduleName, stmts } of this.pendingTopLevel) {
+      const prev = this.currentSourceModule;
+      this.currentSourceModule = moduleName;
+      for (const stmt of stmts) {
+        this.evaluateStatement(stmt);
+      }
+      this.currentSourceModule = prev;
+    }
+    this.pendingTopLevel = [];
   }
   /** @deprecated Use {@link resolveIdentifiers} instead. */
   reEvaluateModuleConstsAll(modules) {
@@ -9724,7 +9799,18 @@ function stripVBAFileHeader(source) {
 }
 
 // ../../test-libs/version.ts
-var VERSION = "0.1.1-alpha.1";
+var import_fs = require("fs");
+var import_path2 = require("path");
+function readVersion() {
+  for (const rel of ["../build/runner/package.json", "../../package.json"]) {
+    try {
+      return JSON.parse((0, import_fs.readFileSync)((0, import_path2.join)(__dirname, rel), "utf8")).version;
+    } catch {
+    }
+  }
+  return "unknown";
+}
+var VERSION = readVersion();
 
 // ../../test-libs/vba-run.ts
 var VBA_EXTENSIONS = /* @__PURE__ */ new Set([".bas", ".cls", ".frm"]);

package/dist/bin/vba-runner.cjs

@@ -4284,6 +4284,16 @@ var Evaluator = class _Evaluator {
   inConstEval = false;
   vbaCallStack = [];
   debugHook = null;
+  /**
+   * resolveIdentifiers 完了後に true になる。
+   * evaluateModule はこのフラグを見て、バッチロード中（false）はモジュールレベル
+   * 実行文を pendingTopLevel に退避し、インタラクティブ呼び出し（true）では即時実行する。
+   */
+  resolveIdentifiersDone = false;
+  /** Pass 1 で配列境界を評価できなかった VariableDeclaration。Pass 2 で再評価。 */
+  pendingArrayDecls = [];
+  /** Pass 1 でシンボルテーブルに退避したモジュールレベル実行文。Pass 2 後に実行。 */
+  pendingTopLevel = [];
   constructor(onPrint, config = {}) {
     this.builtinEnv = new Environment();
     this.env = this.builtinEnv;
@@ -5705,22 +5715,70 @@ var Evaluator = class _Evaluator {
     }
   }
   /**
-   * Pass 1: 1モジュール分の AST を登録する。
-   * 手続き・変数を env に登録する。
-   * モジュールレベル ConstDeclaration はスキップし、Pass 2（resolveIdentifiers）で評価する。
+   * モジュールレベルでシンボルテーブルに登録すべき宣言文かどうかを返す。
+   * false の場合はモジュールレベル実行文として pendingTopLevel に退避する。
+   */
+  isModuleLevelDeclaration(stmt) {
+    switch (stmt.type) {
+      case "ProcedureDeclaration":
+      case "VariableDeclaration":
+      case "ConstDeclaration":
+      case "TypeDeclaration":
+      case "ClassDeclaration":
+      case "EnumDeclaration":
+      case "OptionExplicitStatement":
+      case "OptionBaseStatement":
+      case "OptionCompareStatement":
+      case "OptionPrivateModuleStatement":
+      case "DefDirective":
+      case "AttributeStatement":
+      case "DeclareStatement":
+      case "EventDeclaration":
+      case "ImplementsDirective":
+      case "LabelStatement":
+        return true;
+      default:
+        return false;
+    }
+  }
+  /**
+   * Pass 1: 1モジュール分の AST を登録する（シンボルテーブル構築）。
    *
-   * Option Explicit チェックは Pass 2（resolveIdentifiers）に一本化している。
-   * Pass 2 は全モジュール名を知った精密モードで実行され、Pass 1 の保守的チェックの
-   * 厳密な上位集合なので、ここでは行わない。
+   * - ConstDeclaration      → スキップ。Pass 2（resolveIdentifiers）で依存順に評価。
+   * - VariableDeclaration   → 配列境界なしは即時登録。配列境界ありは pendingArrayDecls
+   *                           に退避し Pass 2 で Const 解決後に評価。
+   * - モジュールレベル実行文 → resolveIdentifiers 完了前（バッチロード中）は
+   *                           pendingTopLevel に退避。Pass 2 後に実行。
+   *                           resolveIdentifiers 完了後（インタラクティブ呼び出し）は
+   *                           即時実行（evalExpression や追加モジュールロード等）。
    */
   evaluateModule(program) {
     if (this.currentSourceModule && !this.env.hasVariable(this.currentSourceModule.toLowerCase())) {
       this.env.set(this.currentSourceModule.toLowerCase(), new VbaNamespaceRef(this.currentSourceModule, "module"));
     }
+    const batchMode = !this.resolveIdentifiersDone;
+    const topLevelStmts = [];
     for (const stmt of program.body) {
-      if (stmt.type === "ConstDeclaration") continue;
+      if (stmt.type === "ConstDeclaration") {
+        if (!batchMode) this.evaluateConstDeclaration(stmt);
+        continue;
+      }
+      if (batchMode && stmt.type === "VariableDeclaration") {
+        const varDecl = stmt;
+        if (varDecl.declarations.some((d) => d.isArray && d.arrayBounds && d.arrayBounds.length > 0)) {
+          this.pendingArrayDecls.push({ stmt: varDecl, moduleName: this.currentSourceModule || "" });
+          continue;
+        }
+      }
+      if (batchMode && !this.isModuleLevelDeclaration(stmt)) {
+        topLevelStmts.push(stmt);
+        continue;
+      }
       this.evaluateStatement(stmt);
     }
+    if (batchMode && topLevelStmts.length > 0) {
+      this.pendingTopLevel.push({ moduleName: this.currentSourceModule || "", stmts: topLevelStmts });
+    }
   }
   /** @deprecated Use {@link evaluateModule} instead. */
   evaluate(program) {
@@ -6991,6 +7049,13 @@ var Evaluator = class _Evaluator {
       this.evaluateConstDeclaration(stmt);
       this.currentSourceModule = prev;
     }
+    for (const { stmt, moduleName } of this.pendingArrayDecls) {
+      const prev = this.currentSourceModule;
+      this.currentSourceModule = moduleName;
+      this.evaluateVariableDeclaration(stmt);
+      this.currentSourceModule = prev;
+    }
+    this.pendingArrayDecls = [];
     for (const { ast, moduleName } of modules) {
       const seen = /* @__PURE__ */ new Set();
       for (const stmt of ast.body) {
@@ -7016,6 +7081,16 @@ var Evaluator = class _Evaluator {
         }
       }
     }
+    this.resolveIdentifiersDone = true;
+    for (const { moduleName, stmts } of this.pendingTopLevel) {
+      const prev = this.currentSourceModule;
+      this.currentSourceModule = moduleName;
+      for (const stmt of stmts) {
+        this.evaluateStatement(stmt);
+      }
+      this.currentSourceModule = prev;
+    }
+    this.pendingTopLevel = [];
   }
   /** @deprecated Use {@link resolveIdentifiers} instead. */
   reEvaluateModuleConstsAll(modules) {
@@ -9714,7 +9789,18 @@ function stripVBAFileHeader(source) {
 }
 
 // ../../test-libs/version.ts
-var VERSION = "0.1.1-alpha.1";
+var import_fs = require("fs");
+var import_path2 = require("path");
+function readVersion() {
+  for (const rel of ["../build/runner/package.json", "../../package.json"]) {
+    try {
+      return JSON.parse((0, import_fs.readFileSync)((0, import_path2.join)(__dirname, rel), "utf8")).version;
+    } catch {
+    }
+  }
+  return "unknown";
+}
+var VERSION = readVersion();
 
 // ../../test-libs/vba-run.ts
 var VBA_EXTENSIONS = /* @__PURE__ */ new Set([".bas", ".cls", ".frm"]);

package/dist/lib.cjs

@@ -4306,6 +4306,16 @@ var Evaluator = class _Evaluator {
   inConstEval = false;
   vbaCallStack = [];
   debugHook = null;
+  /**
+   * resolveIdentifiers 完了後に true になる。
+   * evaluateModule はこのフラグを見て、バッチロード中（false）はモジュールレベル
+   * 実行文を pendingTopLevel に退避し、インタラクティブ呼び出し（true）では即時実行する。
+   */
+  resolveIdentifiersDone = false;
+  /** Pass 1 で配列境界を評価できなかった VariableDeclaration。Pass 2 で再評価。 */
+  pendingArrayDecls = [];
+  /** Pass 1 でシンボルテーブルに退避したモジュールレベル実行文。Pass 2 後に実行。 */
+  pendingTopLevel = [];
   constructor(onPrint, config = {}) {
     this.builtinEnv = new Environment();
     this.env = this.builtinEnv;
@@ -5727,22 +5737,70 @@ var Evaluator = class _Evaluator {
     }
   }
   /**
-   * Pass 1: 1モジュール分の AST を登録する。
-   * 手続き・変数を env に登録する。
-   * モジュールレベル ConstDeclaration はスキップし、Pass 2（resolveIdentifiers）で評価する。
+   * モジュールレベルでシンボルテーブルに登録すべき宣言文かどうかを返す。
+   * false の場合はモジュールレベル実行文として pendingTopLevel に退避する。
+   */
+  isModuleLevelDeclaration(stmt) {
+    switch (stmt.type) {
+      case "ProcedureDeclaration":
+      case "VariableDeclaration":
+      case "ConstDeclaration":
+      case "TypeDeclaration":
+      case "ClassDeclaration":
+      case "EnumDeclaration":
+      case "OptionExplicitStatement":
+      case "OptionBaseStatement":
+      case "OptionCompareStatement":
+      case "OptionPrivateModuleStatement":
+      case "DefDirective":
+      case "AttributeStatement":
+      case "DeclareStatement":
+      case "EventDeclaration":
+      case "ImplementsDirective":
+      case "LabelStatement":
+        return true;
+      default:
+        return false;
+    }
+  }
+  /**
+   * Pass 1: 1モジュール分の AST を登録する（シンボルテーブル構築）。
    *
-   * Option Explicit チェックは Pass 2（resolveIdentifiers）に一本化している。
-   * Pass 2 は全モジュール名を知った精密モードで実行され、Pass 1 の保守的チェックの
-   * 厳密な上位集合なので、ここでは行わない。
+   * - ConstDeclaration      → スキップ。Pass 2（resolveIdentifiers）で依存順に評価。
+   * - VariableDeclaration   → 配列境界なしは即時登録。配列境界ありは pendingArrayDecls
+   *                           に退避し Pass 2 で Const 解決後に評価。
+   * - モジュールレベル実行文 → resolveIdentifiers 完了前（バッチロード中）は
+   *                           pendingTopLevel に退避。Pass 2 後に実行。
+   *                           resolveIdentifiers 完了後（インタラクティブ呼び出し）は
+   *                           即時実行（evalExpression や追加モジュールロード等）。
    */
   evaluateModule(program) {
     if (this.currentSourceModule && !this.env.hasVariable(this.currentSourceModule.toLowerCase())) {
       this.env.set(this.currentSourceModule.toLowerCase(), new VbaNamespaceRef(this.currentSourceModule, "module"));
     }
+    const batchMode = !this.resolveIdentifiersDone;
+    const topLevelStmts = [];
     for (const stmt of program.body) {
-      if (stmt.type === "ConstDeclaration") continue;
+      if (stmt.type === "ConstDeclaration") {
+        if (!batchMode) this.evaluateConstDeclaration(stmt);
+        continue;
+      }
+      if (batchMode && stmt.type === "VariableDeclaration") {
+        const varDecl = stmt;
+        if (varDecl.declarations.some((d) => d.isArray && d.arrayBounds && d.arrayBounds.length > 0)) {
+          this.pendingArrayDecls.push({ stmt: varDecl, moduleName: this.currentSourceModule || "" });
+          continue;
+        }
+      }
+      if (batchMode && !this.isModuleLevelDeclaration(stmt)) {
+        topLevelStmts.push(stmt);
+        continue;
+      }
       this.evaluateStatement(stmt);
     }
+    if (batchMode && topLevelStmts.length > 0) {
+      this.pendingTopLevel.push({ moduleName: this.currentSourceModule || "", stmts: topLevelStmts });
+    }
   }
   /** @deprecated Use {@link evaluateModule} instead. */
   evaluate(program) {
@@ -7013,6 +7071,13 @@ var Evaluator = class _Evaluator {
       this.evaluateConstDeclaration(stmt);
       this.currentSourceModule = prev;
     }
+    for (const { stmt, moduleName } of this.pendingArrayDecls) {
+      const prev = this.currentSourceModule;
+      this.currentSourceModule = moduleName;
+      this.evaluateVariableDeclaration(stmt);
+      this.currentSourceModule = prev;
+    }
+    this.pendingArrayDecls = [];
     for (const { ast, moduleName } of modules) {
       const seen = /* @__PURE__ */ new Set();
       for (const stmt of ast.body) {
@@ -7038,6 +7103,16 @@ var Evaluator = class _Evaluator {
         }
       }
     }
+    this.resolveIdentifiersDone = true;
+    for (const { moduleName, stmts } of this.pendingTopLevel) {
+      const prev = this.currentSourceModule;
+      this.currentSourceModule = moduleName;
+      for (const stmt of stmts) {
+        this.evaluateStatement(stmt);
+      }
+      this.currentSourceModule = prev;
+    }
+    this.pendingTopLevel = [];
   }
   /** @deprecated Use {@link resolveIdentifiers} instead. */
   reEvaluateModuleConstsAll(modules) {

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "vba-runner",
-  "version": "0.1.1-alpha.3",
+  "version": "0.1.1-alpha.4",
   "description": "VBA execution engine with test runner and CLI tools (analyzer, formatter, parse-check)",
   "type": "module",
   "license": "MIT",