temp: CANCEL ALL

tsh-hashimoto · tsh-hashimoto · commit 5d4952ffce08 · 2025-11-20T06:48:36.000Z
diff --git a/cobj/codegen.c b/cobj/codegen.c
@@ -6121,6 +6121,7 @@ void codegen(struct cb_program *prog, const int nested, char **program_id_list,
 
   joutput_line("@Override");
   joutput_line("public int run(CobolDataStorage... argStorages) {");
+  joutput_line("  CobolResolve.pushCallStackList(\"%s\");", prog->program_id);
   joutput_line("  return %s_(0, argStorages);", prog->program_id);
   joutput_line("}\n");
 
diff --git a/libcobj/app/src/main/java/jp/osscons/opensourcecobol/libcobj/call/CobolCallStackList.java b/libcobj/app/src/main/java/jp/osscons/opensourcecobol/libcobj/call/CobolCallStackList.java
@@ -0,0 +1,56 @@
+package jp.osscons.opensourcecobol.libcobj.call;
+
+public class CobolCallStackList {
+    private CobolCallStackList parent;
+    private CobolCallStackList children;
+    private CobolCallStackList sister;
+    private String name;
+
+    /** コンストラクタ */
+    public CobolCallStackList() {
+        this.parent = null;
+        this.children = null;
+        this.sister = null;
+        this.name = null;
+    }
+
+    /** コンストラクタ */
+    public CobolCallStackList(String name) {
+        this.parent = null;
+        this.children = null;
+        this.sister = null;
+        this.name = name;
+    }
+
+    public CobolCallStackList getParent() {
+        return parent;
+    }
+
+    public void setParent(CobolCallStackList parent) {
+        this.parent = parent;
+    }
+
+    public CobolCallStackList getChildren() {
+        return children;
+    }
+
+    public void setChildren(CobolCallStackList children) {
+        this.children = children;
+    }
+
+    public CobolCallStackList getSister() {
+        return sister;
+    }
+
+    public void setSister(CobolCallStackList sister) {
+        this.sister = sister;
+    }
+
+    public String getName() {
+        return name;
+    }
+
+    public void setName(String name) {
+        this.name = name;
+    }
+}
diff --git a/libcobj/app/src/main/java/jp/osscons/opensourcecobol/libcobj/call/CobolResolve.java b/libcobj/app/src/main/java/jp/osscons/opensourcecobol/libcobj/call/CobolResolve.java
@@ -205,6 +205,12 @@ public class CobolResolve {
         cobException.put(0x1609, "EC-XML-RANGE");
     }
 
+    /** コールスタックリストのヘッド */
+    private static CobolCallStackList callStackListHead = null;
+
+    /** 現在のコールスタックリスト */
+    private static CobolCallStackList currentCallStackList = null;
+
     /**
      * 下記の環境変数を読み込み、CobolResolve内で定義されたメソッドの動作が変わる。<br>
      * 環境変数COB_LOAD_CASEにLOWERが指定されているときは、resolveメソッドに渡された引数を小文字に変換してから処理を開始する。<br>
@@ -484,13 +490,13 @@ public static void cancel(String name) {
     /**
      * callTableに保存されているすべてのCallRunnableのインスタンスのcancelメソッドを呼び出す
      */
-    public static void cancelAll() {
-        for (CobolRunnable runnable : callTable.values()) {
-            if (runnable.isActive() == false) {
-                runnable.cancel();
-            }
-        }
-    }
+    // public static void cancelAll() {
+    //     for (CobolRunnable runnable : callTable.values()) {
+    //         if (runnable.isActive() == false) {
+    //             runnable.cancel();
+    //         }
+    //     }
+    // }
 
     /**
      * 指定のプログラムのcancelメソッドを呼び出す
@@ -520,4 +526,126 @@ public static void cobCancel(String name) throws CobolStopRunException {
             runner.cancel();
         }
     }
+
+    /**
+     * コールスタックリストを初期化する
+     */
+    private static void initCallStackList() {
+        if (callStackListHead == null) {
+            callStackListHead = new CobolCallStackList();
+        }
+        currentCallStackList = callStackListHead;
+    }
+
+    /**
+     * 新しいコールスタックリストを作成する
+     *
+     * @param name プログラム名
+     * @return 作成したコールスタックリスト
+     */
+    private static CobolCallStackList createCallStackList(String name) {
+        CobolCallStackList newList = new CobolCallStackList(name);
+        newList.setParent(currentCallStackList);
+        currentCallStackList = newList;
+        return newList;
+    }
+
+    /**
+     * 指定されたコールスタックリストとその子孫すべてをキャンセルする（再帰的）
+     *
+     * @param p キャンセル対象のコールスタックリスト
+     */
+    private static void cancelCallStackList(CobolCallStackList p) {
+        if (p == null) {
+            // プログラムがない場合は何もしない
+            return;
+        }
+
+        // このプログラムをキャンセル
+        String programName = p.getName();
+        if (programName != null) {
+            CobolRunnable runnable = callTable.get(programName);
+            if (runnable != null && !runnable.isActive()) {
+                runnable.cancel();
+            }
+        }
+
+        // 子要素を再帰的にキャンセル
+        if (p.getChildren() != null) {
+            cancelCallStackList(p.getChildren());
+        }
+
+        // 兄弟要素を再帰的にキャンセル
+        CobolCallStackList s = p.getSister();
+        while (s != null) {
+            cancelCallStackList(s);
+            s = s.getSister();
+        }
+    }
+
+    /**
+     * コールスタックにプログラムをプッシュする
+     *
+     * @param name プログラム名
+     */
+    public static void pushCallStackList(String name) {
+        if (currentCallStackList == null) {
+            initCallStackList();
+        }
+
+        CobolCallStackList p = currentCallStackList.getChildren();
+        if (p == null) {
+            currentCallStackList.setChildren(createCallStackList(name));
+            return;
+        }
+
+        if (p.getName().equals(name)) {
+            currentCallStackList = p;
+            return;
+        }
+
+        if (p.getSister() == null) {
+            p.setSister(createCallStackList(name));
+            return;
+        }
+
+        p = p.getSister();
+        while (true) {
+            if (p.getName().equals(name)) {
+                currentCallStackList = p;
+                return;
+            }
+            if (p.getSister() == null) {
+                break;
+            }
+            p = p.getSister();
+        }
+
+        currentCallStackList.setSister(createCallStackList(name));
+    }
+
+    /**
+     * コールスタックから一つ戻る（ポップ）
+     */
+    public static void popCallStackList() {
+        if (currentCallStackList != null) {
+            currentCallStackList = currentCallStackList.getParent();
+        }
+    }
+
+    /**
+     * 現在のコールスタックの子要素すべてをキャンセルする
+     *
+     * @throws CobolRuntimeException 現在のスタックがnullの場合
+     */
+    public static void cancelAll() throws CobolRuntimeException {
+        if (currentCallStackList == null) {
+            throw new CobolRuntimeException(
+                    CobolRuntimeException.COBOL_FATAL_ERROR,
+                    "Call to 'cancelAll' current stack is NULL");
+            // initCallStackList();
+            // return;
+        }
+        cancelCallStackList(currentCallStackList.getChildren());
+    }
 }
