Implement an intrinsic function TRIM (#244)

Author: yutaro-sakamoto

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

@@ -2184,4 +2184,44 @@ public static AbstractCobolField funcStoredCharLength(AbstractCobolField srcfiel
     currField.setInt(count);
     return currField;
   }
+
+  /** Equivalent to cob_intr_trim */
+  public static AbstractCobolField funcTrim(
+      int offset, int length, AbstractCobolField srcField, int direction) {
+    makeFieldEntry(srcField);
+    int i;
+    int srcFieldSize = srcField.getSize();
+    CobolDataStorage srcStorage = srcField.getDataStorage();
+    for (i = 0; i < srcFieldSize; ++i) {
+      if (srcStorage.getByte(i) != ' ') {
+        break;
+      }
+    }
+    if (i == srcFieldSize) {
+      currField.setSize(1);
+      currField.getDataStorage().setByte(0, (byte) ' ');
+      return currField;
+    }
+    int beginIndex = 0;
+    if (direction != 2) {
+      while (srcStorage.getByte(beginIndex) == ' ') {
+        ++beginIndex;
+      }
+    }
+    int endIndex = srcFieldSize - 1;
+    if (direction != 1) {
+      while (srcStorage.getByte(endIndex) == ' ') {
+        --endIndex;
+      }
+    }
+    CobolDataStorage currStorage = currField.getDataStorage();
+    currField.setSize(endIndex - beginIndex + 1);
+    for (i = 0; i <= endIndex - beginIndex; ++i) {
+      currStorage.setByte(i, srcStorage.getByte(beginIndex + i));
+    }
+    if (offset > 0) {
+      calcRefMod(currField, offset, length);
+    }
+    return currField;
+  }
 }

tests/run.src/functions.at

@@ -1748,7 +1748,6 @@ AT_CHECK([java prog], [0],
 AT_CLEANUP
 
 AT_SETUP([FUNCTION TRIM])
-AT_CHECK([${SKIP_TEST}])
 
 AT_DATA([prog.cob], [
        IDENTIFICATION   DIVISION.
@@ -1773,7 +1772,6 @@ AT_CHECK([java prog], [0],
 AT_CLEANUP
 
 AT_SETUP([FUNCTION TRIM with reference modding])
-AT_CHECK([${SKIP_TEST}])
 
 AT_DATA([prog.cob], [
        IDENTIFICATION   DIVISION.