Implement NUMBER-OF-PARAMETERS (#270)

Author: yutaro-sakamoto

CHANGELOG.md

@@ -14,6 +14,7 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/).
 * Add intrinsic functions
   * `C$CALLEDBY` (#262)
   * `C$LIST-DIRECTORY` (#264)
+* Implement `NUMBER-OF-PARAMETERS` (#270)
 ### Fixed
 * Fix the message of COB_VERBOSE file sort (#260)
 * Fix the process that checks MOVE statements (#266, #267)

cobj/codegen.c

@@ -2902,6 +2902,7 @@ static void joutput_call(struct cb_call *p) {
     }
   }
   joutput(");\n");
+  joutput_line("CobolCallParams.callParams = %d;", (int)n);
 
   if (!dynamic_link) {
     if (CB_REFERENCE_P(p->name) && CB_FIELD_P(CB_REFERENCE(p->name)->value) &&
@@ -4677,12 +4678,13 @@ static void joutput_internal_function(struct cb_program *prog,
   //	output_newline ();
   // }
 
-  // if (cb_field (current_prog->cb_call_params)->count) {
-  //	output_line ("/* Initialize number of call params */");
-  //	output ("  ");
-  //	output_integer (current_prog->cb_call_params);
-  //	output_line (" = cob_call_params;");
-  // }
+  if (cb_field(current_prog->cb_call_params)->count) {
+    joutput_line("/* Initialize number of call params */");
+    joutput_prefix();
+    joutput_param(current_prog->cb_call_params, -1);
+    joutput(".setInt(CobolCallParams.callParams);");
+    joutput_newline();
+  }
   // output_line ("cob_save_call_params = cob_call_params;");
   // output_newline ();
   if (cb_flag_traceall) {

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

@@ -18,4 +18,6 @@
  */
 package jp.osscons.opensourcecobol.libcobj.common;
 
-public class CobolCallParams {}
+public class CobolCallParams {
+  public static int callParams = 0;
+}

tests/run.src/extensions.at

@@ -748,7 +748,6 @@ AT_CLEANUP
 # Number of call parameters
 
 AT_SETUP([NUMBER-OF-CALL-PARAMETERS])
-AT_CHECK([${SKIP_TEST}])
 
 AT_DATA([callee.cob], [
        IDENTIFICATION   DIVISION.