add: add help messages to cobj and add comments to spring_batch_tasklet.sh

Author: yutaro-sakamoto

cobj/cobj.c

@@ -786,6 +786,9 @@ static void cobc_print_usage(void) {
       _("  -assign_external                  Set the file assign to external"));
   puts(_("  -java-package(=<package name>)    Specify the package name of the "
          "generated source code"));
+  puts(_("  -edit-code-command(=<command>)    Specify the command to edit java "
+         "source code. See script/spring_batch_tasklet.sh in opensource COBOL "
+         "4J for details."));
   putchar('\n');
 
 #undef CB_WARNDEF

script/spring_batch_tasklet.sh

@@ -1,5 +1,10 @@
 #!/bin/bash
 
+# This is an example of -edit-code-command.
+# If you run the following command, cobj generates java source code compatible for Spring Batch.
+# cobj -C -edit-code-command="bash spring_batch_tasklet.sh" <<<your COBOL source file>>>
+
+# parse command line options with getopts
 while getopts c:t-: opt; do
     optarg="$OPTARG"
     if [[ "$opt" = - ]]; then
@@ -27,11 +32,14 @@ while getopts c:t-: opt; do
 done
 shift $((OPTIND - 1))
 
+
 case "$target" in
+    # when `--target=main-class` is specified
     main-class-annotation)
         echo "@Component"
 	    exit 0
 	    ;;
+    # when `--target=file-header` is specified
     file-header)
         echo 'import org.slf4j.Logger;'
         echo 'import org.slf4j.LoggerFactory;'
@@ -42,10 +50,12 @@ case "$target" in
         echo 'import org.springframework.stereotype.Component;'
         exit 0
         ;;
+    # when `--target=main-class` is specified
     main-class-implements)
         echo -n 'Tasklet'
         exit 0
         ;;
+    # when `--target=main-class` is specified
     main-class-contents)
         echo '  @Override'
         echo '  public RepeatStatus execute(StepContribution conribution, ChunkContext chunkContext) throws Exception {'

tests/cobol85/report.pl

@@ -54,7 +54,7 @@
 $skip{SG203A} = 1;
 $skip{OBNC1M} = 1;
 $skip{OBNC2M} = 1;
-$skip{IX106A} = 1;
+#$skip{IX106A} = 1;
 $skip{NC127A} = 1;
 $skip{IC222A} = 1;
 $skip{IC223A} = 1;