@nfdi4plants/arctrl 2.0.1 → 2.1.0-alpha.2

package/fable_modules/{Thoth.Json.Core.0.2.1 → Thoth.Json.Core.0.4.0}/Decode.fs.js

@@ -1,23 +1,23 @@
-import { join } from "../fable-library-js.4.16.0/String.js";
-import { length, tail as tail_1, head as head_1, isEmpty, cons, reverse as reverse_1, ofSeq, singleton, append, empty, fold, tryLast, map as map_1 } from "../fable-library-js.4.16.0/List.js";
-import { Result_Map, Result_MapError, FSharpResult$2 } from "../fable-library-js.4.16.0/Result.js";
+import { join } from "../fable-library-js.4.22.0/String.js";
+import { length, tail as tail_1, head as head_1, isEmpty, cons, reverse as reverse_1, ofSeq, singleton, append, empty, fold, tryLast, map as map_1 } from "../fable-library-js.4.22.0/List.js";
+import { Result_Map, Result_MapError, FSharpResult$2 } from "../fable-library-js.4.22.0/Result.js";
 import { ErrorReason$1 } from "./Types.fs.js";
-import { tryParse as tryParse_1 } from "../fable-library-js.4.16.0/Guid.js";
-import { FSharpRef } from "../fable-library-js.4.16.0/Types.js";
-import { tryParse as tryParse_2 } from "../fable-library-js.4.16.0/Int32.js";
-import { tryParse as tryParse_4, fromInt32, toUInt64, fromFloat64, toInt64, toFloat64 } from "../fable-library-js.4.16.0/BigInt.js";
-import { tryParse as tryParse_3 } from "../fable-library-js.4.16.0/Long.js";
-import { tryParse as tryParse_5 } from "../fable-library-js.4.16.0/Decimal.js";
-import Decimal from "../fable-library-js.4.16.0/Decimal.js";
-import { toUniversalTime, tryParse as tryParse_6, minValue } from "../fable-library-js.4.16.0/Date.js";
-import { tryParse as tryParse_7, minValue as minValue_1 } from "../fable-library-js.4.16.0/DateOffset.js";
-import { tryParse as tryParse_8 } from "../fable-library-js.4.16.0/TimeSpan.js";
-import { value as value_7, defaultArg, some } from "../fable-library-js.4.16.0/Option.js";
-import { compare, comparePrimitives, defaultOf, int32ToString } from "../fable-library-js.4.16.0/Util.js";
-import { fill, setItem, fold as fold_1, item } from "../fable-library-js.4.16.0/Array.js";
-import { toList, append as append_1, reverse } from "../fable-library-js.4.16.0/Seq.js";
-import { class_type } from "../fable-library-js.4.16.0/Reflection.js";
-import { ofSeq as ofSeq_1, ofList } from "../fable-library-js.4.16.0/Map.js";
+import { tryParse as tryParse_1 } from "../fable-library-js.4.22.0/Guid.js";
+import { FSharpRef } from "../fable-library-js.4.22.0/Types.js";
+import { tryParse as tryParse_2 } from "../fable-library-js.4.22.0/Int32.js";
+import { tryParse as tryParse_4, fromInt32, toUInt64, fromFloat64, toInt64, toFloat64 } from "../fable-library-js.4.22.0/BigInt.js";
+import { tryParse as tryParse_3 } from "../fable-library-js.4.22.0/Long.js";
+import { tryParse as tryParse_5 } from "../fable-library-js.4.22.0/Decimal.js";
+import Decimal from "../fable-library-js.4.22.0/Decimal.js";
+import { toUniversalTime, tryParse as tryParse_6, minValue } from "../fable-library-js.4.22.0/Date.js";
+import { tryParse as tryParse_7, minValue as minValue_1 } from "../fable-library-js.4.22.0/DateOffset.js";
+import { tryParse as tryParse_8 } from "../fable-library-js.4.22.0/TimeSpan.js";
+import { value as value_7, defaultArg, some } from "../fable-library-js.4.22.0/Option.js";
+import { compare, comparePrimitives, defaultOf, int32ToString } from "../fable-library-js.4.22.0/Util.js";
+import { fill, setItem, fold as fold_1, item } from "../fable-library-js.4.22.0/Array.js";
+import { toList, append as append_1, reverse } from "../fable-library-js.4.22.0/Seq.js";
+import { class_type } from "../fable-library-js.4.22.0/Reflection.js";
+import { ofSeq as ofSeq_1, ofList } from "../fable-library-js.4.22.0/Map.js";
 
 export function Helpers_prependPath(path, err_, err__1) {
     const err = [err_, err__1];
@@ -46,6 +46,22 @@ export function errorToString(helpers, path, error) {
     }
 }
 
+/**
+ * Runs the decoder against the given JSON value.
+ * 
+ * If the decoder fails, it reports the error prefixed with the given path.
+ */
+export function Advanced_fromValue(helpers, decoder, value_1) {
+    const matchValue = decoder.Decode(helpers, value_1);
+    if (matchValue.tag === 1) {
+        const error = matchValue.fields[0];
+        return new FSharpResult$2(1, [errorToString(helpers, error[0], error[1])]);
+    }
+    else {
+        return new FSharpResult$2(0, [matchValue.fields[0]]);
+    }
+}
+
 export const string = {
     Decode(helpers, value_1) {
         return helpers.isString(value_1) ? (new FSharpResult$2(0, [helpers.asString(value_1)])) : (new FSharpResult$2(1, [["", new ErrorReason$1(0, ["a string", value_1])]]));
@@ -82,7 +98,7 @@ export const guid = {
 
 export const unit = {
     Decode(helpers, value_1) {
-        return helpers.isNullValue(value_1) ? (new FSharpResult$2(0, [void 0])) : (new FSharpResult$2(1, [["", new ErrorReason$1(0, ["null", value_1])]]));
+        return helpers.isNullValue(value_1) ? (new FSharpResult$2(0, [undefined])) : (new FSharpResult$2(1, [["", new ErrorReason$1(0, ["null", value_1])]]));
     },
 };
 
@@ -409,7 +425,7 @@ export const timespan = {
 function decodeMaybeNull(helpers, path, decoder, value_1) {
     let tupledArg;
     if (helpers.isNullValue(value_1)) {
-        return new FSharpResult$2(0, [void 0]);
+        return new FSharpResult$2(0, [undefined]);
     }
     else {
         const matchValue = decoder.Decode(helpers, value_1);
@@ -425,7 +441,7 @@ function decodeMaybeNull(helpers, path, decoder, value_1) {
 export function optional(fieldName, decoder) {
     return {
         Decode(helpers, value_1) {
-            return helpers.isObject(value_1) ? (helpers.hasProperty(fieldName, value_1) ? decodeMaybeNull(helpers, "." + fieldName, decoder, helpers.getProperty(fieldName, value_1)) : (new FSharpResult$2(0, [void 0]))) : (new FSharpResult$2(1, [["", new ErrorReason$1(2, ["an object", value_1])]]));
+            return helpers.isObject(value_1) ? (helpers.hasProperty(fieldName, value_1) ? decodeMaybeNull(helpers, "." + fieldName, decoder, helpers.getProperty(fieldName, value_1)) : (new FSharpResult$2(0, [undefined]))) : (new FSharpResult$2(1, [["", new ErrorReason$1(2, ["an object", value_1])]]));
         },
     };
 }
@@ -460,14 +476,14 @@ export function optionalAt(fieldNames, decoder) {
                 const res = tupledArg[2];
                 if (res == null) {
                     if (helpers.isNullValue(curValue)) {
-                        return [curPath, curValue, new FSharpResult$2(0, [void 0])];
+                        return [curPath, curValue, new FSharpResult$2(0, [undefined])];
                     }
                     else if (helpers.isObject(curValue)) {
                         if (helpers.hasProperty(field_1, curValue)) {
-                            return [(curPath + ".") + field_1, helpers.getProperty(field_1, curValue), void 0];
+                            return [(curPath + ".") + field_1, helpers.getProperty(field_1, curValue), undefined];
                         }
                         else {
-                            return [curPath, curValue, new FSharpResult$2(0, [void 0])];
+                            return [curPath, curValue, new FSharpResult$2(0, [undefined])];
                         }
                     }
                     else {
@@ -477,10 +493,10 @@ export function optionalAt(fieldNames, decoder) {
                 else {
                     return [curPath, curValue, res];
                 }
-            }, ["", firstValue, void 0], fieldNames);
+            }, ["", firstValue, undefined], fieldNames);
             if (_arg[2] == null) {
                 const lastValue = _arg[1];
-                return helpers.isNullValue(lastValue) ? (new FSharpResult$2(0, [void 0])) : decodeMaybeNull(helpers, _arg[0], decoder, lastValue);
+                return helpers.isNullValue(lastValue) ? (new FSharpResult$2(0, [undefined])) : decodeMaybeNull(helpers, _arg[0], decoder, lastValue);
             }
             else {
                 return _arg[2];
@@ -522,10 +538,10 @@ export function at(fieldNames, decoder) {
                     }
                     else if (helpers.isObject(curValue)) {
                         if (helpers.hasProperty(field_1, curValue)) {
-                            return [(curPath + ".") + field_1, helpers.getProperty(field_1, curValue), void 0];
+                            return [(curPath + ".") + field_1, helpers.getProperty(field_1, curValue), undefined];
                         }
                         else {
-                            return [curPath, curValue, badPathError(fieldNames, void 0, firstValue)];
+                            return [curPath, curValue, badPathError(fieldNames, undefined, firstValue)];
                         }
                     }
                     else {
@@ -535,7 +551,7 @@ export function at(fieldNames, decoder) {
                 else {
                     return [curPath, curValue, res];
                 }
-            }, ["", firstValue, void 0], fieldNames);
+            }, ["", firstValue, undefined], fieldNames);
             return (_arg[2] == null) ? Result_MapError((tupledArg_1) => Helpers_prependPath(_arg[0], tupledArg_1[0], tupledArg_1[1]), decoder.Decode(helpers, _arg[1])) : _arg[2];
         },
     };
@@ -559,27 +575,11 @@ export function index(requestedIndex, decoder) {
 export function option(decoder) {
     return {
         Decode(helpers, value_1) {
-            return helpers.isNullValue(value_1) ? (new FSharpResult$2(0, [void 0])) : Result_Map(some, decoder.Decode(helpers, value_1));
+            return helpers.isNullValue(value_1) ? (new FSharpResult$2(0, [undefined])) : Result_Map(some, decoder.Decode(helpers, value_1));
         },
     };
 }
 
-/**
- * Runs the decoder against the given JSON value.
- * 
- * If the decoder fails, it reports the error prefixed with the given path.
- */
-export function fromValue(helpers, decoder, value_1) {
-    const matchValue = decoder.Decode(helpers, value_1);
-    if (matchValue.tag === 1) {
-        const error = matchValue.fields[0];
-        return new FSharpResult$2(1, [errorToString(helpers, error[0], error[1])]);
-    }
-    else {
-        return new FSharpResult$2(0, [matchValue.fields[0]]);
-    }
-}
-
 export function list(decoder) {
     return {
         Decode(helpers, value_1) {
@@ -588,7 +588,7 @@ export function list(decoder) {
                 const tokens = helpers.asArray(value_1);
                 let i = 0;
                 let result = empty();
-                let error = void 0;
+                let error = undefined;
                 while ((i < tokens.length) && (error == null)) {
                     const value_2 = item(i, tokens);
                     const matchValue = decoder.Decode(helpers, value_2);
@@ -610,6 +610,35 @@ export function list(decoder) {
     };
 }
 
+export function resizeArray(decoder) {
+    return {
+        Decode(helpers, value_1) {
+            let tupledArg;
+            if (helpers.isArray(value_1)) {
+                const tokens = helpers.asArray(value_1);
+                let i = 0;
+                const result = [];
+                let error = undefined;
+                while ((i < tokens.length) && (error == null)) {
+                    const value_2 = item(i, tokens);
+                    const matchValue = decoder.Decode(helpers, value_2);
+                    if (matchValue.tag === 1) {
+                        error = ((tupledArg = matchValue.fields[0], Helpers_prependPath((".[" + int32ToString(i)) + "]", tupledArg[0], tupledArg[1])));
+                    }
+                    else {
+                        void (result.push(matchValue.fields[0]));
+                    }
+                    i = ((i + 1) | 0);
+                }
+                return (error == null) ? (new FSharpResult$2(0, [Array.from(result)])) : (new FSharpResult$2(1, [value_7(error)]));
+            }
+            else {
+                return new FSharpResult$2(1, [["", new ErrorReason$1(0, ["a ResizeArray", value_1])]]);
+            }
+        },
+    };
+}
+
 export function seq(decoder) {
     return {
         Decode(helpers, value_1) {
@@ -1129,14 +1158,14 @@ export class Getters$2 {
                     switch (matchResult) {
                         case 0:
                             if (helpers.isNullValue(v_1)) {
-                                return void 0;
+                                return undefined;
                             }
                             else {
                                 void (_this_1.errors.push(error));
                                 return defaultOf();
                             }
                         case 1:
-                            return void 0;
+                            return undefined;
                         default: {
                             void (_this_1.errors.push(error));
                             return defaultOf();

package/fable_modules/{Thoth.Json.Core.0.2.1 → Thoth.Json.Core.0.4.0}/Encode.fs

@@ -7,24 +7,83 @@ open System
 [<RequireQualifiedAccess>]
 module Encode =
 
-    let inline string value = Json.String value
-    let inline char value = Json.Char value
+    let inline string value =
+        { new IEncodable with
+            member _.Encode(helpers) = helpers.encodeString value
+        }
+
+    let inline char value =
+        { new IEncodable with
+            member _.Encode(helpers) = helpers.encodeChar value
+        }
+
     let inline guid value = value.ToString() |> string
-    let inline float value = Json.DecimalNumber value
 
-    let float32 (value: float32) =
-        Json.DecimalNumber(Operators.float value)
+    let inline float value =
+        { new IEncodable with
+            member _.Encode(helpers) = helpers.encodeDecimalNumber value
+        }
+
+    let float32 (value: float32) = float (Operators.float value)
 
     let inline decimal (value: decimal) =
         value.ToString(CultureInfo.InvariantCulture) |> string
 
-    let inline nil<'T> = Json.Null
-    let inline bool value = Json.Boolean value
-    let inline object values = Json.Object values
-    let inline array values = Json.Array values
-    let list values = Json.Array(values |> List.toArray)
-    let seq values = Json.Array(values |> Seq.toArray)
-    let dict (values: Map<string, Json>) : Json = values |> Map.toList |> object
+    let inline nil<'T> =
+        { new IEncodable with
+            member _.Encode(helpers) = helpers.encodeNull ()
+        }
+
+    let inline bool value =
+        { new IEncodable with
+            member _.Encode(helpers) = helpers.encodeBool value
+        }
+
+    let inline object (values: seq<string * IEncodable>) =
+        { new IEncodable with
+            member _.Encode(helpers) =
+                values
+                |> Seq.map (fun (k, v) -> (k, v.Encode(helpers)))
+                |> helpers.encodeObject
+        }
+
+    let inline array (values: IEncodable array) =
+        { new IEncodable with
+            member _.Encode(helpers) =
+                values
+                |> Array.map (fun v -> v.Encode(helpers))
+                |> helpers.encodeArray
+        }
+
+    let list (values: IEncodable list) =
+        { new IEncodable with
+            member _.Encode(helpers) =
+                values
+                |> List.map (fun v -> v.Encode(helpers))
+                |> helpers.encodeList
+        }
+
+    let seq (values: IEncodable seq) =
+        { new IEncodable with
+            member _.Encode(helpers) =
+                values
+                |> Seq.map (fun v -> v.Encode(helpers))
+                |> helpers.encodeSeq
+        }
+
+    let resizeArray (values: IEncodable ResizeArray) =
+        { new IEncodable with
+            member _.Encode(helpers) =
+                let result = ResizeArray(values.Count)
+
+                for v in values do
+                    result.Add(v.Encode(helpers))
+
+                helpers.encodeResizeArray result
+        }
+
+    let dict (values: Map<string, IEncodable>) : IEncodable =
+        values |> Map.toSeq |> object
 
     let inline bigint (value: bigint) = value.ToString() |> string
 
@@ -36,12 +95,41 @@ module Encode =
     let inline datetime (value: DateTime) =
         value.ToString("O", CultureInfo.InvariantCulture) |> string
 
-    let inline sbyte (value: sbyte) = Json.IntegralNumber(uint32 value)
-    let inline byte (value: byte) = Json.IntegralNumber(uint32 value)
-    let inline int16 (value: int16) = Json.IntegralNumber(uint32 value)
-    let inline uint16 (value: uint16) = Json.IntegralNumber(uint32 value)
-    let inline int (value: int) = Json.IntegralNumber(uint32 value)
-    let inline uint32 (value: uint32) = Json.IntegralNumber value
+    let inline sbyte (value: sbyte) =
+        { new IEncodable with
+            member _.Encode(helpers) =
+                helpers.encodeSignedIntegralNumber (int32 value)
+        }
+
+    let inline byte (value: byte) =
+        { new IEncodable with
+            member _.Encode(helpers) =
+                helpers.encodeUnsignedIntegralNumber (uint32 value)
+        }
+
+    let inline int16 (value: int16) =
+        { new IEncodable with
+            member _.Encode(helpers) =
+                helpers.encodeSignedIntegralNumber (int32 value)
+        }
+
+    let inline uint16 (value: uint16) =
+        { new IEncodable with
+            member _.Encode(helpers) =
+                helpers.encodeUnsignedIntegralNumber (uint32 value)
+        }
+
+    let inline int (value: int) =
+        { new IEncodable with
+            member _.Encode(helpers) =
+                helpers.encodeSignedIntegralNumber value
+        }
+
+    let inline uint32 (value: uint32) =
+        { new IEncodable with
+            member _.Encode(helpers) =
+                helpers.encodeUnsignedIntegralNumber value
+        }
 
     let inline int64 (value: int64) =
         value.ToString(CultureInfo.InvariantCulture) |> string
@@ -49,9 +137,9 @@ module Encode =
     let inline uint64 (value: uint64) =
         value.ToString(CultureInfo.InvariantCulture) |> string
 
-    let inline unit () = Json.Unit
+    let inline unit () = nil
 
-    let tuple2 (enc1: Encoder<'T1>) (enc2: Encoder<'T2>) (v1, v2) : Json =
+    let tuple2 (enc1: Encoder<'T1>) (enc2: Encoder<'T2>) (v1, v2) : IEncodable =
         array
             [|
                 enc1 v1
@@ -63,7 +151,7 @@ module Encode =
         (enc2: Encoder<'T2>)
         (enc3: Encoder<'T3>)
         (v1, v2, v3)
-        : Json
+        : IEncodable
         =
         array
             [|
@@ -78,7 +166,7 @@ module Encode =
         (enc3: Encoder<'T3>)
         (enc4: Encoder<'T4>)
         (v1, v2, v3, v4)
-        : Json
+        : IEncodable
         =
         array
             [|
@@ -95,7 +183,7 @@ module Encode =
         (enc4: Encoder<'T4>)
         (enc5: Encoder<'T5>)
         (v1, v2, v3, v4, v5)
-        : Json
+        : IEncodable
         =
         array
             [|
@@ -114,7 +202,7 @@ module Encode =
         (enc5: Encoder<'T5>)
         (enc6: Encoder<'T6>)
         (v1, v2, v3, v4, v5, v6)
-        : Json
+        : IEncodable
         =
         array
             [|
@@ -135,7 +223,7 @@ module Encode =
         (enc6: Encoder<'T6>)
         (enc7: Encoder<'T7>)
         (v1, v2, v3, v4, v5, v6, v7)
-        : Json
+        : IEncodable
         =
         array
             [|
@@ -158,7 +246,7 @@ module Encode =
         (enc7: Encoder<'T7>)
         (enc8: Encoder<'T8>)
         (v1, v2, v3, v4, v5, v6, v7, v8)
-        : Json
+        : IEncodable
         =
         array
             [|
@@ -177,7 +265,7 @@ module Encode =
         (keyEncoder: Encoder<'key>)
         (valueEncoder: Encoder<'value>)
         (values: Map<'key, 'value>)
-        : Json
+        : IEncodable
         =
         values
         |> Map.toList
@@ -190,44 +278,41 @@ module Encode =
 
     module Enum =
 
-        let byte<'TEnum when 'TEnum: enum<byte>> (value: 'TEnum) : Json =
+        let byte<'TEnum when 'TEnum: enum<byte>> (value: 'TEnum) : IEncodable =
             LanguagePrimitives.EnumToValue value |> byte
 
-        let sbyte<'TEnum when 'TEnum: enum<sbyte>> (value: 'TEnum) : Json =
+        let sbyte<'TEnum when 'TEnum: enum<sbyte>>
+            (value: 'TEnum)
+            : IEncodable
+            =
             LanguagePrimitives.EnumToValue value |> sbyte
 
-        let int16<'TEnum when 'TEnum: enum<int16>> (value: 'TEnum) : Json =
+        let int16<'TEnum when 'TEnum: enum<int16>>
+            (value: 'TEnum)
+            : IEncodable
+            =
             LanguagePrimitives.EnumToValue value |> int16
 
-        let uint16<'TEnum when 'TEnum: enum<uint16>> (value: 'TEnum) : Json =
+        let uint16<'TEnum when 'TEnum: enum<uint16>>
+            (value: 'TEnum)
+            : IEncodable
+            =
             LanguagePrimitives.EnumToValue value |> uint16
 
-        let int<'TEnum when 'TEnum: enum<int>> (value: 'TEnum) : Json =
+        let int<'TEnum when 'TEnum: enum<int>> (value: 'TEnum) : IEncodable =
             LanguagePrimitives.EnumToValue value |> int
 
-        let uint32<'TEnum when 'TEnum: enum<uint32>> (value: 'TEnum) : Json =
+        let uint32<'TEnum when 'TEnum: enum<uint32>>
+            (value: 'TEnum)
+            : IEncodable
+            =
             LanguagePrimitives.EnumToValue value |> uint32
 
-    let option (encoder: 'a -> Json) =
+    let option (encoder: Encoder<'a>) =
         Option.map encoder >> Option.defaultWith (fun _ -> nil)
 
-    let rec toJsonValue (helpers: IEncoderHelpers<'JsonValue>) (json: Json) =
-        match json with
-        | Json.String value -> helpers.encodeString value
-        | Json.IntegralNumber value -> helpers.encodeIntegralNumber value
-        | Json.Object values ->
-            let o = helpers.createEmptyObject ()
-
-            values
-            |> Seq.iter (fun (k, v) ->
-                helpers.setPropertyOnObject (o, k, toJsonValue helpers v)
-            )
-
-            o
-        | Json.Char value -> helpers.encodeChar value
-        | Json.DecimalNumber value -> helpers.encodeDecimalNumber value
-        | Json.Null -> helpers.encodeNull ()
-        | Json.Boolean value -> helpers.encodeBool value
-        | Json.Array value ->
-            value |> Array.map (toJsonValue helpers) |> helpers.encodeArray
-        | Json.Unit -> helpers.encodeNull ()
+    let inline toJsonValue
+        (helpers: IEncoderHelpers<'JsonValue>)
+        (json: IEncodable)
+        =
+        json.Encode(helpers)