[ISSUE-0090]: bigdecimal absv function

src/bigdecimal128.c

@@ -433,6 +433,11 @@ BigDecimal128 bigdecimal128_mulv(const BigDecimal128 a, const BigDecimal128 b) {
 BigDecimal128 bigdecimal128_divv(const BigDecimal128 a, const BigDecimal128 b, UInt prec) {
  return bigdecimal128_div(&a, &b, prec);
 }
+
+BigDecimal128 bigdecimal128_absv(const BigDecimal128 a, buint_bool *result_inv) {
+ return (BigDecimal128){bigint128_absv(a.val, result_inv), a.prec};
+}
+
 buint_bool bigdecimal128_ltv(const BigDecimal128 a, const BigDecimal128 b) {
  return bigdecimal128_lt(&a, &b);
 }

src/bigdecimal128.h

@@ -130,6 +130,7 @@ BigDecimal128 bigdecimal128_addv(const BigDecimal128 a, const BigDecimal128 b);
 BigDecimal128 bigdecimal128_subv(const BigDecimal128 a, const BigDecimal128 b);
 BigDecimal128 bigdecimal128_mulv(const BigDecimal128 a, const BigDecimal128 b);
 BigDecimal128 bigdecimal128_divv(const BigDecimal128 a, const BigDecimal128 b, UInt prec);
+BigDecimal128 bigdecimal128_absv(const BigDecimal128 a, buint_bool *result_inv);
 buint_bool bigdecimal128_ltv(const BigDecimal128 a, const BigDecimal128 b);
 buint_bool bigdecimal128_eqv(const BigDecimal128 a, const BigDecimal128 b);
 buint_size_t bigdecimal128_printv(const BigDecimal128 a, char *buf, buint_size_t buf_len);

src/biguint128.c

@@ -1057,6 +1057,10 @@ BigUIntPair128 bigint128_divv(const BigUInt128 a, const BigUInt128 b) {
  return bigint128_div(&a, &b);
 }
 
+BigUInt128 bigint128_absv(const BigUInt128 a, buint_bool *b) {
+ return bigint128_abs(&a, b);
+}
+
 BigUInt128 biguint128_andv(const BigUInt128 a, const BigUInt128 b) {
  return biguint128_and(&a, &b);
 }

src/biguint128.h

@@ -376,6 +376,7 @@ BigUInt128 biguint128_subv(const BigUInt128 a, const BigUInt128 b);
 BigUInt128 biguint128_mulv(const BigUInt128 a, const BigUInt128 b);
 BigUIntPair128 biguint128_divv(const BigUInt128 a, const BigUInt128 b);
 BigUIntPair128 bigint128_divv(const BigUInt128 a, const BigUInt128 b);
+BigUInt128 bigint128_absv(const BigUInt128 a, buint_bool *b);
 
 BigUInt128 biguint128_andv(const BigUInt128 a, const BigUInt128 b);
 BigUInt128 biguint128_orv(const BigUInt128 a, const BigUInt128 b);

tests/bigdecimal128_pval_test.c

@@ -109,6 +109,21 @@ static bool compare_all() {
     pass = false;
    }
   }
+  { // bigint abs
+   buint_bool expected_inv, actual_inv[2];
+   BigDecimal128 expected = {bigint128_abs(&a.val, &expected_inv),a.prec};
+   BigDecimal128 actual[] = {
+    {bigint128_absv(a.val, &actual_inv[0]),a.prec},
+    bigdecimal128_absv(a, &actual_inv[1])
+   };
+   for (unsigned int j=0; j<2; ++j) {
+    pass &= compare_result_(stderr, "biguint abs function", &expected, &actual[j], i, j);
+    if (!!expected_inv != !!actual_inv[j]) {
+     fprintf(stderr, "pass-by-value result error at sample #%u, abs#%u result_inv\n", i, j);
+     pass = false;
+    }
+   }
+  }
  }
  return pass;
 }