@nfdi4plants/arctrl 3.2.2 → 3.3.0

package/dist/ts/node_modules/@fable-org/fable-library-ts/Decimal.js

@@ -1,11 +1,20 @@
 import { Big } from './lib/big.js';
 import { symbol } from './Numeric.js';
-import { FSharpRef } from './Types.js';
 import { combineHashCodes, Exception } from './Util.js';
+import { splitNumber, NumberStyles } from './NumberStyles.js';
+import { OverflowException_$ctor_Z721C83C5, ArgumentNullException_$ctor_Z721C83C5, FormatException_$ctor_Z721C83C5 } from './System.js';
 import { toInt8 as toInt8$1, fromDecimal, toUInt8 as toUInt8$1, toInt16 as toInt16$1, toUInt16 as toUInt16$1, toInt32 as toInt32$1, toUInt32 as toUInt32$1, toInt64 as toInt64$1, toUInt64 as toUInt64$1, toInt128 as toInt128$1, toUInt128 as toUInt128$1, toNativeInt as toNativeInt$1, toUNativeInt as toUNativeInt$1 } from './BigInt.js';
 
 Big.prototype.GetHashCode = function() {
-  return combineHashCodes([this.s, this.e].concat(this.c));
+  const digits = this.c;
+  if (digits[0] === 0) {
+    return combineHashCodes([1, 0, 0]);
+  }
+  let end = digits.length;
+  while (digits[end - 1] === 0) {
+    end--;
+  }
+  return combineHashCodes([this.s, this.e].concat(digits.slice(0, end)));
 };
 Big.prototype.Equals = function(x) {
   return !this.cmp(x);
@@ -41,7 +50,7 @@ function sign(x) {
   return x.lt(get_Zero) ? -1 : x.gt(get_Zero) ? 1 : 0;
 }
 function max(x, y) {
-  return x.gt(y) ? x : y;
+  return x.lt(y) ? y : x;
 }
 function min(x, y) {
   return x.lt(y) ? x : y;
@@ -121,21 +130,43 @@ const negate = op_UnaryNegation;
 function toString(x) {
   return x.toString();
 }
-function tryParse(str, defValue) {
+function parseWithStyle(str, style) {
+  const parts = splitNumber(str, style);
+  if (parts === void 0) {
+    return void 0;
+  }
+  let d;
+  try {
+    d = new Big(parts.digits);
+  } catch {
+    throw OverflowException_$ctor_Z721C83C5(OVERFLOW);
+  }
+  if (parts.negative) {
+    d.s = -1;
+  }
+  return d;
+}
+function tryParse(str, style, defValue) {
   try {
-    defValue.contents = new Big(str.trim());
+    const d = parseWithStyle(str, style);
+    if (d === void 0) {
+      return false;
+    }
+    defValue.contents = d;
     return true;
   } catch {
     return false;
   }
 }
-function parse(str) {
-  const defValue = new FSharpRef(get_Zero);
-  if (tryParse(str, defValue)) {
-    return defValue.contents;
-  } else {
-    throw new Exception(`The input string ${str} was not in a correct format.`);
+function parse(str, style = NumberStyles.Number) {
+  if (str == null) {
+    throw ArgumentNullException_$ctor_Z721C83C5("s");
   }
+  const d = parseWithStyle(str, style);
+  if (d === void 0) {
+    throw FormatException_$ctor_Z721C83C5(`The input string '${str}' was not in a correct format.`);
+  }
+  return d;
 }
 function toNumber(x) {
   return +x;
@@ -237,6 +268,31 @@ function getInt32Bits(hexDigits, offset) {
   }
   return bits;
 }
+const OVERFLOW = "Value was either too large or too small for a Decimal.";
+const MAX_DOUBLE = 2 ** 96;
+function fromFloat(n, significantDigits) {
+  if (!isFinite(n) || Math.abs(n) >= MAX_DOUBLE) {
+    throw new Exception(OVERFLOW);
+  }
+  const exact = Math.abs(n) >= 1e21 ? BigInt(n).toString() : n.toFixed(100);
+  const d = new Big(exact).prec(significantDigits, 2);
+  const digits = d.c;
+  let end = digits.length;
+  while (end > 1 && digits[end - 1] === 0) {
+    end--;
+  }
+  d.c = digits.slice(0, end);
+  if (d.c[0] === 0) {
+    d.e = 0;
+  }
+  return d;
+}
+function fromFloat64(n) {
+  return fromFloat(n, 15);
+}
+function fromFloat32(n) {
+  return fromFloat(n, 7);
+}
 function fromIntArray(bits) {
   return fromInts(bits[0], bits[1], bits[2], bits[3]);
 }
@@ -276,4 +332,4 @@ function getBits(d) {
   return [low, mid, high, signExp];
 }
 
-export { abs, add, ceiling, clamp, compare, Big as default, divide, equals, floor, fromIntArray, fromInts, fromParts, getBits, get_MaxValue, get_MinValue, get_MinusOne, get_One, get_Zero, max, maxMagnitude, min, minMagnitude, multiply, negate, op_Addition, op_Division, op_Modulus, op_Multiply, op_Subtraction, op_UnaryNegation, op_UnaryPlus, parse, pow, remainder, round, sign, sqrt, subtract, toChar, toFloat16, toFloat32, toFloat64, toInt128, toInt16, toInt32, toInt64, toInt8, toNativeInt, toNumber, toString, toUInt128, toUInt16, toUInt32, toUInt64, toUInt8, toUNativeInt, truncate, tryParse };
+export { abs, add, ceiling, clamp, compare, Big as default, divide, equals, floor, fromFloat32, fromFloat64, fromIntArray, fromInts, fromParts, getBits, get_MaxValue, get_MinValue, get_MinusOne, get_One, get_Zero, max, maxMagnitude, min, minMagnitude, multiply, negate, op_Addition, op_Division, op_Modulus, op_Multiply, op_Subtraction, op_UnaryNegation, op_UnaryPlus, parse, pow, remainder, round, sign, sqrt, subtract, toChar, toFloat16, toFloat32, toFloat64, toInt128, toInt16, toInt32, toInt64, toInt8, toNativeInt, toNumber, toString, toUInt128, toUInt16, toUInt32, toUInt64, toUInt8, toUNativeInt, truncate, tryParse };

package/dist/ts/node_modules/@fable-org/fable-library-ts/Double.js

@@ -1,24 +1,38 @@
 import { FSharpRef } from './Types.js';
-import { Exception } from './Util.js';
+import { ArgumentNullException_$ctor_Z721C83C5, FormatException_$ctor_Z721C83C5 } from './System.js';
+import { NumberStyles, splitNumber } from './NumberStyles.js';
 
-function tryParse(str, defValue) {
-  if (str != null && /\S/.test(str)) {
-    const v = +str.replace("_", "");
-    if (!Number.isNaN(v)) {
-      defValue.contents = v;
+const symbolRegex = /^[\t-\r \u0085\u00a0\u1680\u2000-\u200a\u2028\u2029\u202f\u205f\u3000]*(?:[+-]?nan|([+-]?)infinity)[\t-\r \u0085\u00a0\u1680\u2000-\u200a\u2028\u2029\u202f\u205f\u3000]*$/i;
+const defaultStyle = NumberStyles.Float | NumberStyles.AllowThousands;
+function tryParse(str, style, defValue) {
+  if (str != null) {
+    const parts = splitNumber(str, style);
+    if (parts !== void 0) {
+      const value = Number.parseFloat(parts.digits);
+      defValue.contents = parts.negative ? -value : value;
+      return true;
+    }
+    const symbol = symbolRegex.exec(str);
+    if (symbol != null) {
+      defValue.contents = symbol[1] == null ? NaN : symbol[1] === "-" ? -Infinity : Infinity;
       return true;
     }
   }
   return false;
 }
-function parse(str) {
+function parse(str, style = defaultStyle) {
   const defValue = new FSharpRef(0);
-  if (tryParse(str, defValue)) {
+  if (tryParse(str, style, defValue)) {
     return defValue.contents;
+  } else if (str == null) {
+    throw ArgumentNullException_$ctor_Z721C83C5("s");
   } else {
-    throw new Exception(`The input string ${str} was not in a correct format.`);
+    throw FormatException_$ctor_Z721C83C5(`The input string '${str}' was not in a correct format.`);
   }
 }
+function parseIgnoringUnderscores(str) {
+  return parse(str == null ? str : str.replace(/_/g, ""), NumberStyles.Float);
+}
 function isPositiveInfinity(x) {
   return x === Number.POSITIVE_INFINITY;
 }
@@ -50,4 +64,4 @@ function clamp(x, min2, max2) {
   return x < min2 ? min2 : x > max2 ? max2 : x;
 }
 
-export { clamp, isInfinity, isNegativeInfinity, isPositiveInfinity, max, maxMagnitude, min, minMagnitude, parse, tryParse };
+export { clamp, isInfinity, isNegativeInfinity, isPositiveInfinity, max, maxMagnitude, min, minMagnitude, parse, parseIgnoringUnderscores, tryParse };

package/dist/ts/node_modules/@fable-org/fable-library-ts/FSharp.Core.js

@@ -1,7 +1,7 @@
 import { structuralHash, equals, Exception, defaultOf, disposeSafe } from './Util.js';
 import { ComparisonIdentity_Structural, HashIdentity_Structural } from './FSharp.Collections.js';
 import { nonNullValue } from './Option.js';
-import { ArgumentNullException_$ctor_Z721C83C5, NullReferenceException_$ctor } from './System.js';
+import { ArgumentNullException_$ctor_Z721C83C5, ArgumentException_$ctor_Z384F8060, InvalidOperationException_$ctor_Z721C83C5, NullReferenceException_$ctor } from './System.js';
 import { FSharpChoice$2_Choice1Of2, FSharpChoice$2_Choice2Of2 } from './Choice.js';
 import { StringBuilder__Append_Z721C83C5 } from './System.Text.js';
 
@@ -42,6 +42,12 @@ function Operators_FailurePattern(exn) {
 function Operators_NullArg(argumentName) {
   throw ArgumentNullException_$ctor_Z721C83C5(argumentName);
 }
+function Operators_InvalidArg(argumentName, message) {
+  throw ArgumentException_$ctor_Z384F8060(message, argumentName);
+}
+function Operators_InvalidOp(message) {
+  throw InvalidOperationException_$ctor_Z721C83C5(message);
+}
 function Operators_Using(resource, action) {
   try {
     return action(resource);
@@ -145,4 +151,4 @@ function PrintfModule_PrintFormatToStringBuilder(builder, format) {
   }, builder, format);
 }
 
-export { ExtraTopLevelOperators_LazyPattern, LanguagePrimitives_FastGenericComparer, LanguagePrimitives_FastGenericComparerFromTable, LanguagePrimitives_FastGenericEqualityComparer, LanguagePrimitives_FastGenericEqualityComparerFromTable, LanguagePrimitives_GenericEqualityComparer, LanguagePrimitives_GenericEqualityERComparer, Operators_Failure, Operators_FailurePattern, Operators_IsNotNull, Operators_IsNull, Operators_IsNullV, Operators_Lock, Operators_NonNull, Operators_NonNullQuickPattern, Operators_NonNullQuickValuePattern, Operators_NonNullV, Operators_NullArg, Operators_NullArgCheck, Operators_NullMatchPattern, Operators_NullV, Operators_NullValueMatchPattern, Operators_Using, Operators_WithNull, Operators_WithNullV, PrintfModule_PrintFormatToStringBuilder, PrintfModule_PrintFormatToStringBuilderThen };
+export { ExtraTopLevelOperators_LazyPattern, LanguagePrimitives_FastGenericComparer, LanguagePrimitives_FastGenericComparerFromTable, LanguagePrimitives_FastGenericEqualityComparer, LanguagePrimitives_FastGenericEqualityComparerFromTable, LanguagePrimitives_GenericEqualityComparer, LanguagePrimitives_GenericEqualityERComparer, Operators_Failure, Operators_FailurePattern, Operators_InvalidArg, Operators_InvalidOp, Operators_IsNotNull, Operators_IsNull, Operators_IsNullV, Operators_Lock, Operators_NonNull, Operators_NonNullQuickPattern, Operators_NonNullQuickValuePattern, Operators_NonNullV, Operators_NullArg, Operators_NullArgCheck, Operators_NullMatchPattern, Operators_NullV, Operators_NullValueMatchPattern, Operators_Using, Operators_WithNull, Operators_WithNullV, PrintfModule_PrintFormatToStringBuilder, PrintfModule_PrintFormatToStringBuilderThen };

package/dist/ts/node_modules/@fable-org/fable-library-ts/Global.js

@@ -1,5 +1,5 @@
 const SR_indexOutOfBounds = "The index was outside the range of elements in the collection.";
-const SR_inputWasEmpty = "Collection was empty.";
+const SR_inputWasEmpty = "The input list was empty.";
 const SR_inputMustBeNonNegative = "The input must be non-negative.";
 const SR_inputSequenceEmpty = "The input sequence was empty.";
 const SR_inputSequenceTooLong = "The input sequence contains more than one element.";

package/dist/ts/node_modules/@fable-org/fable-library-ts/Int32.js

@@ -1,4 +1,5 @@
 import { Exception } from './Util.js';
+import { OverflowException_$ctor_Z721C83C5, ArgumentNullException_$ctor_Z721C83C5, FormatException_$ctor_Z721C83C5 } from './System.js';
 
 const NumberStyles = {
   // None: 0x00000000,
@@ -117,7 +118,14 @@ function isValid(str, style, radix) {
   }
   return null;
 }
+function parseOverflow(unsigned, bitsize) {
+  const type = bitsize === 8 ? unsigned ? "an unsigned byte" : "a signed byte" : (unsigned ? "a UInt" : "an Int") + bitsize;
+  return OverflowException_$ctor_Z721C83C5(`Value was either too large or too small for ${type}.`);
+}
 function parse(str, style, unsigned, bitsize, radix) {
+  if (str == null) {
+    throw ArgumentNullException_$ctor_Z721C83C5("s");
+  }
   const res = isValid(str, style, radix);
   if (res != null) {
     let v = Number.parseInt(res.sign + res.digits, res.radix);
@@ -130,9 +138,10 @@ function parse(str, style, unsigned, bitsize, radix) {
       if (v >= min && v <= max) {
         return v;
       }
+      throw parseOverflow(unsigned, bitsize);
     }
   }
-  throw new Exception(`The input string ${str} was not in a correct format.`);
+  throw FormatException_$ctor_Z721C83C5(`The input string '${str}' was not in a correct format.`);
 }
 function tryParse(str, style, unsigned, bitsize, defValue) {
   try {
@@ -162,4 +171,4 @@ function divRem(x, y, out) {
   }
 }
 
-export { NumberStyles, divRem, getPrefix, getRadix, isValid, op_UnaryNegation_Int16, op_UnaryNegation_Int32, op_UnaryNegation_Int8, parse, tryParse };
+export { NumberStyles, divRem, getPrefix, getRadix, isValid, op_UnaryNegation_Int16, op_UnaryNegation_Int32, op_UnaryNegation_Int8, parse, parseOverflow, tryParse };