@nfdi4plants/arctrl 2.3.1 → 2.5.0

package/fable_modules/DynamicObj.7.0.1/DynamicObj.fs.js

@@ -0,0 +1,433 @@
+import { tryGetStaticPropertyInfo } from "./ReflectionUtils.fs.js";
+import { getPropertyHelpers, tryGetDynamicPropertyHelper } from "./FableJS.fs.js";
+import { defaultArg, value as value_4, map } from "../fable-library-js.4.24.0/Option.js";
+import { singleton, enumerateWhile, delay, toList, sortBy, iterate, map as map_1, choose, filter } from "../fable-library-js.4.24.0/Seq.js";
+import { isArrayLike, disposeSafe, structuralHash, equals, getEnumerator, isIterable, comparePrimitives, safeHash } from "../fable-library-js.4.24.0/Util.js";
+import { class_type } from "../fable-library-js.4.24.0/Reflection.js";
+import { mergeHashes, hash as hash_2, boxHashKeyValSeqBy } from "./HashCodes.fs.js";
+import { FSharpList, reduce, isEmpty } from "../fable-library-js.4.24.0/List.js";
+import { Dictionary } from "../fable-library-js.4.24.0/MutableMap.js";
+import { addToDict } from "../fable-library-js.4.24.0/MapUtil.js";
+import Decimal from "../fable-library-js.4.24.0/Decimal.js";
+
+export class DynamicObj {
+    constructor() {
+        this.properties = (new Map([]));
+    }
+    get Properties() {
+        const this$ = this;
+        return this$.properties;
+    }
+    set Properties(value) {
+        const this$ = this;
+        this$.properties = value;
+    }
+    static ofDict(dynamicProperties) {
+        const obj = new DynamicObj();
+        obj.Properties = dynamicProperties;
+        return obj;
+    }
+    TryGetStaticPropertyHelper(propertyName) {
+        const this$ = this;
+        return tryGetStaticPropertyInfo(this$, propertyName);
+    }
+    TryGetDynamicPropertyHelper(propertyName) {
+        const this$ = this;
+        return tryGetDynamicPropertyHelper(this$, propertyName);
+    }
+    TryGetPropertyHelper(propertyName) {
+        const this$ = this;
+        const matchValue = this$.TryGetStaticPropertyHelper(propertyName);
+        return (matchValue == null) ? this$.TryGetDynamicPropertyHelper(propertyName) : matchValue;
+    }
+    TryGetPropertyValue(propertyName) {
+        const this$ = this;
+        return map((pi) => pi.GetValue(this$), this$.TryGetPropertyHelper(propertyName));
+    }
+    GetPropertyValue(propertyName) {
+        const this$ = this;
+        const matchValue = this$.TryGetPropertyValue(propertyName);
+        if (matchValue == null) {
+            throw new Error(`No dynamic or static property "${propertyName}" does exist on object.`);
+        }
+        else {
+            return value_4(matchValue);
+        }
+    }
+    SetProperty(propertyName, propertyValue) {
+        const this$ = this;
+        const matchValue = this$.TryGetStaticPropertyHelper(propertyName);
+        if (matchValue == null) {
+            this$[propertyName] = propertyValue;
+        }
+        else {
+            const pi = matchValue;
+            if (pi.IsMutable) {
+                pi.SetValue(this$, propertyValue);
+            }
+            else {
+                throw new Error(`Cannot set value for static, immutable property "${propertyName}"`);
+            }
+        }
+    }
+    RemoveProperty(propertyName) {
+        const this$ = this;
+        const matchValue = this$.TryGetPropertyHelper(propertyName);
+        if (matchValue == null) {
+            return false;
+        }
+        else if (matchValue.IsMutable) {
+            const pi_1 = matchValue;
+            pi_1.RemoveValue(this$);
+            return true;
+        }
+        else {
+            throw new Error(`Cannot remove value for static, immutable property "${propertyName}"`);
+        }
+    }
+    GetPropertyHelpers(includeInstanceProperties) {
+        const this$ = this;
+        return filter((p) => (p.Name.toLocaleLowerCase() !== "properties"), filter((pd) => {
+            if (includeInstanceProperties) {
+                return true;
+            }
+            else {
+                return pd.IsDynamic;
+            }
+        }, getPropertyHelpers(this$)));
+    }
+    GetProperties(includeInstanceProperties) {
+        const this$ = this;
+        return choose((kv) => {
+            if (kv.Name !== "properties") {
+                return [kv.Name, kv.GetValue(this$)];
+            }
+            else {
+                return undefined;
+            }
+        }, this$.GetPropertyHelpers(includeInstanceProperties));
+    }
+    GetPropertyNames(includeInstanceProperties) {
+        const this$ = this;
+        return map_1((kv) => kv[0], this$.GetProperties(includeInstanceProperties));
+    }
+    ShallowCopyDynamicPropertiesTo(target, overWrite) {
+        const this$ = this;
+        const overWrite_1 = defaultArg(overWrite, false);
+        iterate((kv) => {
+            let pi;
+            const matchValue = target.TryGetPropertyHelper(kv[0]);
+            if (matchValue == null) {
+                target.SetProperty(kv[0], kv[1]);
+            }
+            else if ((pi = matchValue, overWrite_1)) {
+                const pi_1 = matchValue;
+                pi_1.SetValue(target, kv[1]);
+            }
+        }, this$.GetProperties(false));
+    }
+    ShallowCopyDynamicProperties() {
+        const this$ = this;
+        const target = new DynamicObj();
+        this$.ShallowCopyDynamicPropertiesTo(target, true);
+        return target;
+    }
+    DeepCopyPropertiesTo(target, overWrite, includeInstanceProperties) {
+        const this$ = this;
+        const overWrite_1 = defaultArg(overWrite, false);
+        const includeInstanceProperties_1 = defaultArg(includeInstanceProperties, true);
+        iterate((kv) => {
+            let pi;
+            const matchValue = target.TryGetPropertyHelper(kv[0]);
+            if (matchValue == null) {
+                target.SetProperty(kv[0], CopyUtils_tryDeepCopyObj_75B3D832(kv[1]));
+            }
+            else if ((pi = matchValue, overWrite_1)) {
+                const pi_1 = matchValue;
+                pi_1.SetValue(target, CopyUtils_tryDeepCopyObj_75B3D832(kv[1]));
+            }
+        }, this$.GetProperties(includeInstanceProperties_1));
+    }
+    DeepCopyProperties(includeInstanceProperties) {
+        const this$ = this;
+        return CopyUtils_tryDeepCopyObj_75B3D832(this$, defaultArg(includeInstanceProperties, true));
+    }
+    static op_Dynamic(lookup, name) {
+        const matchValue = lookup.TryGetPropertyValue(name);
+        if (matchValue == null) {
+            throw new Error();
+        }
+        else {
+            return value_4(matchValue);
+        }
+    }
+    static op_DynamicAssignment(lookup, name, value) {
+        lookup.SetProperty(name, value);
+    }
+    ReferenceEquals(other) {
+        const this$ = this;
+        return this$ === other;
+    }
+    StructurallyEquals(other) {
+        const this$ = this;
+        return safeHash(this$) === safeHash(other);
+    }
+    GetHashCode() {
+        const this$ = this;
+        return HashUtils_deepHash_4E60E31B(this$) | 0;
+    }
+    Equals(o) {
+        let other;
+        const this$ = this;
+        return (o instanceof DynamicObj) && ((other = o, this$.StructurallyEquals(other)));
+    }
+}
+
+export function DynamicObj_$reflection() {
+    return class_type("DynamicObj.DynamicObj", undefined, DynamicObj);
+}
+
+export function DynamicObj_$ctor() {
+    return new DynamicObj();
+}
+
+export class HashUtils {
+    constructor() {
+    }
+}
+
+export function HashUtils_$reflection() {
+    return class_type("DynamicObj.HashUtils", undefined, HashUtils);
+}
+
+export class CopyUtils {
+    constructor() {
+    }
+}
+
+export function CopyUtils_$reflection() {
+    return class_type("DynamicObj.CopyUtils", undefined, CopyUtils);
+}
+
+export function HashUtils_deepHash_4E60E31B(o) {
+    if (o instanceof DynamicObj) {
+        return boxHashKeyValSeqBy(HashUtils_deepHash_4E60E31B, sortBy((pair) => pair[0], o.GetProperties(true), {
+            Compare: comparePrimitives,
+        })) | 0;
+    }
+    else if (typeof o === "string") {
+        return hash_2(o) | 0;
+    }
+    else if (isIterable(o)) {
+        const e = o;
+        const en = getEnumerator(e);
+        const l = toList(delay(() => enumerateWhile(() => en["System.Collections.IEnumerator.MoveNext"](), delay(() => singleton(HashUtils_deepHash_4E60E31B(en["System.Collections.IEnumerator.get_Current"]()))))));
+        if (isEmpty(l)) {
+            return 0;
+        }
+        else {
+            return reduce(mergeHashes, l) | 0;
+        }
+    }
+    else {
+        return hash_2(o) | 0;
+    }
+}
+
+/**
+ * function to deep copy a boxed object (if possible)
+ * The following cases are handled (in this precedence):
+ * 
+ * - Basic F# types (`bool`, `byte`, `sbyte`, `int16`, `uint16`, `int`, `uint`, `int64`, `uint64`, `nativeint`, `unativeint`, `float`, `float32`, `char`, `string`, `unit`, `decimal`)
+ * 
+ * - `ResizeArrays` and `Dictionaries` containing any combination of basic F# types
+ * 
+ * - `Dictionaries` containing `DynamicObj` as keys or values in any combination with `DynamicObj` or basic F# types as keys or values
+ * 
+ * - `array<DynamicObj>`, `list<DynamicObj>`, `ResizeArray<DynamicObj>`: These collections of DynamicObj are copied as a new collection with recursively deep copied elements.
+ * 
+ * - `System.ICloneable`: If the property implements `ICloneable`, the `Clone()` method is called on the property.
+ * 
+ * - `DynamicObj` (and derived classes): properties that are themselves `DynamicObj` instances are deep copied recursively.
+ * if a derived class has static properties (e.g. instance properties), these can be copied as dynamic properties on the new instance or ignored.
+ * 
+ * Note on Classes that inherit from `DynamicObj`:
+ * 
+ * Classes that inherit from DynamicObj will match the `DynamicObj` typecheck if they do not implement `ICloneable`.
+ * The deep copied instances will be cast to `DynamicObj` with deep copied dynamic properties. Staic/instance properties can be copied as dynamic properties on the new instance or be ignored.
+ * It should be possible to 'recover' the original type by checking if the needed properties exist as dynamic properties,
+ * and then passing them to the class constructor if needed.
+ */
+export function CopyUtils_tryDeepCopyObj_75B3D832(o, includeInstanceProperties) {
+    const includeInstanceProperties_1 = defaultArg(includeInstanceProperties, true);
+    const tryDeepCopyObj = (o_1) => {
+        let matchResult, o_12, o_14, o_16;
+        if (typeof o_1 === "boolean") {
+            matchResult = 0;
+        }
+        else if (typeof o_1 === "number") {
+            matchResult = 0;
+        }
+        else if (typeof o_1 === "number") {
+            matchResult = 0;
+        }
+        else if (typeof o_1 === "number") {
+            matchResult = 0;
+        }
+        else if (typeof o_1 === "number") {
+            matchResult = 0;
+        }
+        else if (typeof o_1 === "number") {
+            matchResult = 0;
+        }
+        else if (typeof o_1 === "number") {
+            matchResult = 0;
+        }
+        else if (typeof o_1 === "bigint") {
+            matchResult = 0;
+        }
+        else if (typeof o_1 === "bigint") {
+            matchResult = 0;
+        }
+        else if (typeof o_1 === "number") {
+            matchResult = 0;
+        }
+        else if (typeof o_1 === "number") {
+            matchResult = 0;
+        }
+        else if (typeof o_1 === "string") {
+            matchResult = 0;
+        }
+        else if (typeof o_1 === "string") {
+            matchResult = 0;
+        }
+        else if (o_1 == null) {
+            matchResult = 0;
+        }
+        else if (o_1 instanceof Decimal) {
+            matchResult = 1;
+        }
+        else if (isArrayLike(o_1)) {
+            if (o_1 instanceof Map) {
+                matchResult = 2;
+                o_12 = o_1;
+            }
+            else if (o_1 instanceof Dictionary) {
+                matchResult = 3;
+                o_14 = o_1;
+            }
+            else {
+                matchResult = 4;
+            }
+        }
+        else if (o_1 instanceof FSharpList) {
+            if (o_1 instanceof Map) {
+                matchResult = 2;
+                o_12 = o_1;
+            }
+            else if (o_1 instanceof Dictionary) {
+                matchResult = 3;
+                o_14 = o_1;
+            }
+            else {
+                matchResult = 5;
+            }
+        }
+        else if (o_1 instanceof DynamicObj) {
+            if (o_1 instanceof Map) {
+                matchResult = 2;
+                o_12 = o_1;
+            }
+            else if (o_1 instanceof Dictionary) {
+                matchResult = 3;
+                o_14 = o_1;
+            }
+            else if (o_1["System.ICloneable.Clone"] != undefined && (typeof o_1["System.ICloneable.Clone"]) === 'function') {
+                matchResult = 6;
+                o_16 = o_1;
+            }
+            else {
+                matchResult = 7;
+            }
+        }
+        else if (o_1 instanceof Map) {
+            matchResult = 2;
+            o_12 = o_1;
+        }
+        else if (o_1 instanceof Dictionary) {
+            matchResult = 3;
+            o_14 = o_1;
+        }
+        else if (o_1["System.ICloneable.Clone"] != undefined && (typeof o_1["System.ICloneable.Clone"]) === 'function') {
+            matchResult = 6;
+            o_16 = o_1;
+        }
+        else {
+            matchResult = 8;
+        }
+        switch (matchResult) {
+            case 0:
+                return o_1;
+            case 1:
+                return o_1;
+            case 2: {
+                const newDict = new Dictionary([], {
+                    Equals: equals,
+                    GetHashCode: structuralHash,
+                });
+                let enumerator = getEnumerator(o_12);
+                try {
+                    while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
+                        const kv = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
+                        addToDict(newDict, tryDeepCopyObj(kv[0]), tryDeepCopyObj(kv[1]));
+                    }
+                }
+                finally {
+                    disposeSafe(enumerator);
+                }
+                return newDict;
+            }
+            case 3: {
+                const newDict_1 = new Dictionary([], {
+                    Equals: equals,
+                    GetHashCode: structuralHash,
+                });
+                let enumerator_1 = getEnumerator(o_14);
+                try {
+                    while (enumerator_1["System.Collections.IEnumerator.MoveNext"]()) {
+                        const kv_1 = enumerator_1["System.Collections.Generic.IEnumerator`1.get_Current"]();
+                        addToDict(newDict_1, tryDeepCopyObj(kv_1[0]), tryDeepCopyObj(kv_1[1]));
+                    }
+                }
+                finally {
+                    disposeSafe(enumerator_1);
+                }
+                return newDict_1;
+            }
+            case 4:
+                return Array.from(toList(delay(() => map_1(tryDeepCopyObj, o_1))));
+            case 5:
+                return toList(delay(() => map_1(tryDeepCopyObj, o_1)));
+            case 6:
+                return o_16["System.ICloneable.Clone"]();
+            case 7: {
+                const newDyn = new DynamicObj();
+                const enumerator_2 = getEnumerator(o_1.GetProperties(includeInstanceProperties_1));
+                try {
+                    while (enumerator_2["System.Collections.IEnumerator.MoveNext"]()) {
+                        const kv_2 = enumerator_2["System.Collections.Generic.IEnumerator`1.get_Current"]();
+                        newDyn.SetProperty(kv_2[0], tryDeepCopyObj(kv_2[1]));
+                    }
+                }
+                finally {
+                    disposeSafe(enumerator_2);
+                }
+                return newDyn;
+            }
+            default:
+                return o_1;
+        }
+    };
+    return tryDeepCopyObj(o);
+}
+

package/fable_modules/{DynamicObj.4.0.3 → DynamicObj.7.0.1}/FableJS.fs

@@ -158,5 +158,21 @@ module FableJS =
         getPropertyHelpers o 
         |> Array.map (fun h -> h.Name)
 
+    module Interfaces = 
+        
+        [<Emit("""$0["System.ICloneable.Clone"] != undefined && (typeof $0["System.ICloneable.Clone"]) === 'function'""")>]
+        let implementsICloneable (o:obj) : bool =
+            jsNative
+
+        [<Emit("""$0["System.ICloneable.Clone"]()""")>]
+        let cloneICloneable (o:obj) : obj =
+            jsNative
 
+    module Dictionaries =
+        [<Emit("""$0 instanceof Map""")>]
+        let isMap (o:obj) : bool =
+            jsNative
+        [<Emit("""$0 instanceof Dictionary""")>]
+        let isDict (o:obj) : bool =
+            jsNative
 #endif

package/fable_modules/{DynamicObj.4.0.3 → DynamicObj.7.0.1}/FablePy.fs

@@ -211,5 +211,19 @@ module FablePy =
         getPropertyHelpers o 
         |> Array.map (fun h -> h.Name)
 
+    module Interfaces = 
+        
+        [<Emit("""hasattr($0, 'System_ICloneable_Clone') and callable($0.System_ICloneable_Clone)""")>]
+        let implementsICloneable (o:obj) : bool =
+            nativeOnly
+
+        [<Emit("""$0.System_ICloneable_Clone()""")>]
+        let cloneICloneable (o:obj) : obj =
+            nativeOnly
+
+    module Dictionaries =
+        [<Emit("""isinstance($0, dict)""")>]
+        let isDict (o:obj) : bool =
+            nativeOnly
 
 #endif

package/fable_modules/{DynamicObj.4.0.3 → DynamicObj.7.0.1}/HashCodes.fs

@@ -1,5 +1,12 @@
 module DynamicObj.HashCodes
 
+// Taken from
+//https://softwareengineering.stackexchange.com/a/402543
+// Which points to a no-longer existing source in FSharp Core Compiler
+// But can be found in 
+// https://github.com/dotnet/fsharp/blob/2edab1216843f20a00a7d8f171aca52cbc35d7fd/src/Compiler/Checking/AugmentWithHashCompare.fs#L171
+// Or Fables mirror
+// https://github.com/fable-compiler/Fable/blob/b0e640763fd90bd084f72531cb119d49a91ec077/src/fcs-fable/src/Compiler/Checking/AugmentWithHashCompare.fs#L171
 let mergeHashes (hash1 : int) (hash2 : int) : int =
     0x9e3779b9 + hash2 + (hash1 <<< 6) + (hash1 >>> 2)
 
@@ -46,4 +53,12 @@ let boxHashKeyValSeq (a: seq<System.Collections.Generic.KeyValuePair<'a,'b>>) :
     |> Seq.fold (fun acc o -> 
         mergeHashes (hash o.Key) (hash o.Value)
         |> mergeHashes acc) 0
+    |> box
+
+let boxHashKeyValSeqBy (f : 'b -> int) (a: seq<System.Collections.Generic.KeyValuePair<'a,'b>>) : obj =
+    a 
+    // from https://stackoverflow.com/a/53507559
+    |> Seq.fold (fun acc o -> 
+        mergeHashes (hash o.Key) (f o.Value)
+        |> mergeHashes acc) 0
     |> box

package/fable_modules/{DynamicObj.4.0.3 → DynamicObj.7.0.1}/HashCodes.fs.js

@@ -46,3 +46,7 @@ export function boxHashKeyValSeq(a) {
     return fold_1((acc, o) => mergeHashes(acc, mergeHashes(hash(o[0]), hash(o[1]))), 0, a);
 }
 
+export function boxHashKeyValSeqBy(f, a) {
+    return fold_1((acc, o) => mergeHashes(acc, mergeHashes(hash(o[0]), f(o[1]))), 0, a);
+}
+

package/fable_modules/{DynamicObj.4.0.3 → DynamicObj.7.0.1}/obj/Debug/netstandard2.0/DynamicObj.AssemblyInfo.fs

@@ -11,7 +11,7 @@ open System.Reflection
 [<assembly: System.Reflection.AssemblyConfigurationAttribute("Debug")>]
 [<assembly: System.Reflection.AssemblyDescriptionAttribute("F# library supporting Dynamic Objects including inheritance in functional style. Compatible with Fable javascript and python transpilation.")>]
 [<assembly: System.Reflection.AssemblyFileVersionAttribute("1.0.0.0")>]
-[<assembly: System.Reflection.AssemblyInformationalVersionAttribute("1.0.0+36c543f1c23ec27364ae79a3905daa1ac18c8887")>]
+[<assembly: System.Reflection.AssemblyInformationalVersionAttribute("1.0.0")>]
 [<assembly: System.Reflection.AssemblyProductAttribute("DynamicObj")>]
 [<assembly: System.Reflection.AssemblyTitleAttribute("DynamicObj")>]
 [<assembly: System.Reflection.AssemblyVersionAttribute("1.0.0.0")>]

package/fable_modules/{DynamicObj.4.0.3 → DynamicObj.7.0.1}/obj/Release/netstandard2.0/DynamicObj.AssemblyInfo.fs

@@ -10,10 +10,10 @@ open System.Reflection
 [<assembly: System.Reflection.AssemblyCompanyAttribute("Timo Mühlhaus, Kevin Schneider, Heinrich Lukas Weil, F# open source contributors")>]
 [<assembly: System.Reflection.AssemblyConfigurationAttribute("Release")>]
 [<assembly: System.Reflection.AssemblyDescriptionAttribute("F# library supporting Dynamic Objects including inheritance in functional style. Compatible with Fable javascript and python transpilation.")>]
-[<assembly: System.Reflection.AssemblyFileVersionAttribute("4.0.3.0")>]
-[<assembly: System.Reflection.AssemblyInformationalVersionAttribute("4.0.3+36c543f1c23ec27364ae79a3905daa1ac18c8887")>]
+[<assembly: System.Reflection.AssemblyFileVersionAttribute("7.0.1.0")>]
+[<assembly: System.Reflection.AssemblyInformationalVersionAttribute("7.0.1+98fb467c65858b8420433025a50459d8897f9028")>]
 [<assembly: System.Reflection.AssemblyProductAttribute("DynamicObj")>]
 [<assembly: System.Reflection.AssemblyTitleAttribute("DynamicObj")>]
-[<assembly: System.Reflection.AssemblyVersionAttribute("4.0.3.0")>]
+[<assembly: System.Reflection.AssemblyVersionAttribute("7.0.1.0")>]
 [<assembly: System.Reflection.AssemblyMetadataAttribute("RepositoryUrl", "https://github.com/CSBiology/DynamicObj")>]
 do()