New feature PROCEDURE DIVISION CHAINING (#796)

* feat: add new feature PROCEDURE DIVISION CHAINING

* fix: CobolChainSetup -> chainSetup

* test: add test for PROCEDURE DIVISION CHAINING

Author: tsh-hashimoto

cobj/codegen.c

@@ -2313,7 +2313,7 @@ static void joutput_initialize_one(struct cb_initialize *p, cb_tree x) {
   /* CHAINING */
   if (f->flag_chained) {
     joutput_prefix();
-    joutput("cob_chain_setup (");
+    joutput("CobolUtil.chainSetUp (");
     joutput_data(x);
     joutput(", %d, %d);\n", f->param_num, f->size);
     return;
@@ -5863,9 +5863,19 @@ static void joutput_declare_member_variables(struct cb_program *prog,
         joutput_line("private AbstractCobolField %s;", field_name);
         free(field_name);
       }
-      char *base_name = get_java_identifier_base(cp->field);
-      joutput_line("private CobolDataStorage %s;", base_name);
-      free(base_name);
+      int in_base = 0;
+      struct base_list *bl;
+      for (bl = base_cache; bl; bl = bl->next) {
+        if (bl->f == cp->field) {
+          in_base = 1;
+          break;
+        }
+      }
+      if (!in_base) {
+        char *base_name = get_java_identifier_base(cp->field);
+        joutput_line("private CobolDataStorage %s;", base_name);
+        free(base_name);
+      }
     }
   }
 

libcobj/app/src/main/java/jp/osscons/opensourcecobol/libcobj/common/CobolUtil.java

@@ -702,4 +702,32 @@ public static int getSourceLine() {
     public static String getSourceStatement() {
         return sourceStatement;
     }
+
+    /**
+     * コマンドライン引数からCHAININGパラメータを設定する。
+     *
+     * @param data CHAININGパラメータのデータストレージ
+     * @param parm パラメータのインデックス (1始まり)
+     * @param size データストレージのサイズ
+     */
+    public static void chainSetUp(CobolDataStorage data, int parm, int size) {
+        data.memset((byte) ' ', size);
+        // C版ではcob_argvのインデックス0にプログラム名が含まれるため、cob_argv[parm]で引数を取得する。
+        // Javaではcommand_lineArgsにプログラム名が含まれないため、parm - 1を使用する。
+        int index = parm - 1;
+        if (CobolUtil.commandLineArgs != null && index < CobolUtil.commandLineArgs.length) {
+            byte[] argBytes =
+                    CobolUtil.commandLineArgs[index].getBytes(AbstractCobolField.charSetSJIS);
+            int len = argBytes.length;
+            if (len <= size) {
+                data.memcpy(argBytes, len);
+            } else {
+                data.memcpy(argBytes, size);
+            }
+        }
+        // C版ではcob_call_params = cob_argc - 1 (プログラム名を除外)。
+        // JavaではcommandLineArgs.lengthが既にプログラム名を除外した値になっている。
+        CobolCallParams.callParams =
+                (CobolUtil.commandLineArgs != null) ? CobolUtil.commandLineArgs.length : 0;
+    }
 }

tests/run.src/extensions.at

@@ -868,7 +868,6 @@ X = X Y = 56 Z = 34
 AT_CLEANUP
 
 AT_SETUP([PROCEDURE DIVISION CHAINING ...])
-AT_CHECK([${SKIP_TEST}])
 
 AT_DATA([prog.cob], [
        IDENTIFICATION   DIVISION.
@@ -888,11 +887,31 @@ AT_DATA([prog.cob], [
 
 AT_CHECK([${COMPILE} prog.cob])
 
+AT_CHECK([java prog], [0],
+[ @&t@
+    @&t@
+])
+
 AT_CHECK([java prog X ABCD], [0],
 [X
 ABCD
 ])
 
+AT_CHECK([java prog XY ABCDE], [0],
+[X
+ABCD
+])
+
+AT_CHECK([java prog XY ABC], [0],
+[X
+ABC @&t@
+])
+
+AT_CHECK([java prog 'XY' 'ABCD!!'], [0],
+[X
+ABCD
+])
+
 AT_CLEANUP