@nfdi4plants/arctrl 2.4.0 → 2.5.1

package/fable_modules/DynamicObj.4.0.3/DynamicObj.fs

@@ -1,310 +0,0 @@
-namespace DynamicObj
-
-#if !FABLE_COMPILER
-open System.Dynamic
-#endif
-
-open System.Collections.Generic
-open Fable.Core
-
-[<AttachMembers>]
-type DynamicObj() =
-    
-    #if !FABLE_COMPILER
-    inherit DynamicObject()
-    #endif
-    
-    let mutable properties = new Dictionary<string, obj>()
-
-    /// <summary>
-    /// A dictionary of dynamic boxed properties
-    /// </summary>
-    member this.Properties
-        with get() = properties
-        and internal set(value) = properties <- value           
-
-    /// <summary>
-    /// Creates a new DynamicObj from a Dictionary containing dynamic properties.
-    /// </summary>
-    /// <param name="dynamicProperties">The dictionary with the dynamic properties</param>
-    static member ofDict (dynamicProperties: Dictionary<string,obj>) = 
-        let obj = DynamicObj()
-        obj.Properties <- dynamicProperties
-        obj
-
-    /// <summary>
-    /// Returns Some(PropertyHelper) if a static property with the given name exists, otherwise None.
-    /// </summary>
-    /// <param name="propertyName">The name of the property to get the PropertyHelper for</param>
-    member this.TryGetStaticPropertyHelper (propertyName: string) : PropertyHelper option  = 
-        ReflectionUtils.tryGetStaticPropertyInfo this propertyName
-
-    /// <summary>
-    /// Returns Some(PropertyHelper) if a dynamic property with the given name exists, otherwise None.
-    /// </summary>
-    /// <param name="propertyName">The name of the property to get the PropertyHelper for</param>
-    member this.TryGetDynamicPropertyHelper (propertyName: string) : PropertyHelper option =
-        #if FABLE_COMPILER_JAVASCRIPT  || FABLE_COMPILER_TYPESCRIPT
-        FableJS.tryGetDynamicPropertyHelper this propertyName
-        #endif
-        #if FABLE_COMPILER_PYTHON
-        FablePy.tryGetDynamicPropertyHelper this propertyName
-        #endif
-        #if !FABLE_COMPILER
-        match properties.TryGetValue propertyName with            
-        | true,_ -> 
-            Some {
-                Name = propertyName
-                IsStatic = false
-                IsDynamic = true
-                IsMutable = true
-                IsImmutable = false
-                GetValue = fun o -> properties.[propertyName]
-                SetValue = fun o v -> properties.[propertyName] <- v
-                RemoveValue = fun o -> properties.Remove(propertyName) |> ignore
-            }
-        | _      -> None
-        #endif
-        
-    /// <summary>
-    /// Returns Some(PropertyHelper) if a property (static or dynamic) with the given name exists, otherwise None.
-    /// </summary>
-    /// <param name="propertyName">The name of the property to get the PropertyHelper for</param>
-    member this.TryGetPropertyHelper (propertyName: string) : PropertyHelper option =
-        match this.TryGetStaticPropertyHelper propertyName with
-        | Some pi -> Some pi
-        | None -> this.TryGetDynamicPropertyHelper propertyName
-
-    /// <summary>
-    /// Returns Some(boxed property value) if a dynamic (or static) property with the given name exists, otherwise None.
-    /// </summary>
-    /// <param name="name">the name of the property to get</param>
-    member this.TryGetPropertyValue (propertyName: string) = 
-        // first check the Properties collection for member
-        this.TryGetPropertyHelper(propertyName)
-        |> Option.map (fun pi -> pi.GetValue(this))
-    
-    /// <summary>
-    /// Returns the boxed property value of the dynamic (or static) property with the given name.
-    /// </summary>
-    /// <param name="propertyName">the name of the property to get</param>
-    /// <exception cref="System.MissingMemberException">Thrown if no dynamic or static property with the given name exists</exception>
-    member this.GetPropertyValue (propertyName: string) =
-        match this.TryGetPropertyValue(propertyName) with
-        | Some value -> value
-        | None -> raise <| System.MissingMemberException($"No dynamic or static property \"{propertyName}\" does exist on object.")
-        
-    #if !FABLE_COMPILER
-    
-    /// <summary>
-    /// Returns Some('TPropertyValue) when a dynamic (or static) property with the given name and type exists, otherwise None.
-    ///
-    /// This method is not Fable-compatible and can therefore not be used in code that will be transpiled.
-    /// </summary>
-    /// <param name="propertyName">the name of the property to get</param>
-    /// <remarks>This method is not Fable-compatible and can therefore not be used in code that will be transpiled.</remarks>
-    member this.TryGetTypedPropertyValue<'TPropertyValue> (propertyName: string) = 
-        
-        match (this.TryGetPropertyValue propertyName) with
-        | None -> None
-        | Some o ->      
-            match o with
-            | :? 'TPropertyValue as o -> o |> Some
-            | _ -> None
-    #endif    
-
-
-    /// <summary>
-    /// Sets the dynamic (or static) property value with the given name, creating a new dynamic property if none exists.
-    /// </summary>
-    /// <param name="propertyName">the name of the property to set</param>
-    /// <param name="propertyValue">the value of the property to set</param>
-    member this.SetProperty (
-        propertyName: string,
-        propertyValue: obj
-    ) =
-        // first check to see if there's a native property to set
-        match this.TryGetStaticPropertyHelper propertyName with
-        | Some pi ->
-            if pi.IsMutable then
-                pi.SetValue this propertyValue
-            else
-                failwith $"Cannot set value for static, immutable property \"{propertyName}\""
-        | None -> 
-            #if FABLE_COMPILER_JAVASCRIPT  || FABLE_COMPILER_TYPESCRIPT
-            FableJS.setPropertyValue this propertyName propertyValue
-            #endif
-            #if FABLE_COMPILER_PYTHON
-            FablePy.setPropertyValue this propertyName propertyValue
-            #endif
-            #if !FABLE_COMPILER
-            // Next check the Properties collection for member
-            match properties.TryGetValue propertyName with            
-            | true,_ -> properties.[propertyName] <- propertyValue
-            | _      -> properties.Add(propertyName,propertyValue)
-            #endif
-
-    /// <summary>
-    /// Removes any dynamic property with the given name from the input DynamicObj.
-    /// If the property is static and mutable, it will be set to null.
-    /// Static immutable properties cannot be removed.
-    /// </summary>
-    /// <param name="propertyName">the name of the property to remove</param>
-    /// <exception cref="System.MemberAccessException">Thrown if the dynamic property does not exist</exception>
-    member this.RemoveProperty (propertyName: string) =
-        match this.TryGetPropertyHelper propertyName with
-        | Some pi when pi.IsMutable -> 
-            pi.RemoveValue this
-            true
-        | Some _ -> 
-            raise <| System.MemberAccessException($"Cannot remove value for static, immutable property \"{propertyName}\"")
-        | None -> false
-
-    /// <summary>
-    /// Returns PropertyHelpers for all dynamic properties of the DynamicObj.
-    ///
-    /// When includeInstanceProperties is set to true, instance properties (= 'static' properties on the class) are included in the result.
-    /// </summary>
-    /// <param name="includeInstanceProperties">whether to include instance properties (= 'static' properties on the class)</param>
-    member this.GetPropertyHelpers (includeInstanceProperties: bool) =
-        #if FABLE_COMPILER_JAVASCRIPT || FABLE_COMPILER_TYPESCRIPT           
-        FableJS.getPropertyHelpers this
-        |> Seq.filter (fun pd ->  
-            includeInstanceProperties || pd.IsDynamic
-        )
-        #endif
-        #if FABLE_COMPILER_PYTHON
-        FablePy.getPropertyHelpers this
-        |> Seq.filter (fun pd ->  
-            includeInstanceProperties || pd.IsDynamic
-        )
-        #endif
-        #if !FABLE_COMPILER
-        seq [
-            if includeInstanceProperties then                
-                yield! ReflectionUtils.getStaticProperties (this)
-            for key in properties.Keys ->
-                {
-                    Name = key
-                    IsStatic = false
-                    IsDynamic = true
-                    IsMutable = true
-                    IsImmutable = false
-                    GetValue = fun o -> properties.[key]
-                    SetValue = fun o v -> properties.[key] <- v
-                    RemoveValue = fun o -> properties.Remove(key) |> ignore
-                }
-        ]
-        #endif
-        |> Seq.filter (fun p -> p.Name.ToLower() <> "properties")
-
-    /// <summary>
-    /// Returns a sequence of all dynamic properties as a key value pair of the property names and the boxed property values.
-    ///
-    /// When includeInstanceProperties is set to true, instance properties (= 'static' properties on the class) are included in the result.
-    /// </summary>
-    /// <param name="includeInstanceProperties">whether to include instance properties (= 'static' properties on the class)</param>
-    member this.GetProperties includeInstanceProperties : seq<KeyValuePair<string,obj>> =    
-        this.GetPropertyHelpers(includeInstanceProperties)
-        |> Seq.choose (fun kv -> 
-            if kv.Name <> "properties" then
-                Some (KeyValuePair(kv.Name, kv.GetValue this))
-            else
-                None
-        )
-
-    /// <summary>
-    /// Returns a sequence of all dynamic property names.
-    ///
-    /// When includeInstanceProperties is set to true, instance properties (= 'static' properties on the class) are included in the result.
-    /// </summary>
-    /// <param name="includeInstanceProperties"></param>
-    member this.GetPropertyNames(includeInstanceProperties) =
-        this.GetProperties(includeInstanceProperties)
-        |> Seq.map (fun kv -> kv.Key)
-
-    /// <summary>
-    /// Copies all dynamic members of the DynamicObj to the target DynamicObj.
-    ///
-    /// If overWrite is set to true, existing properties on the target object will be overwritten.
-    ///
-    /// Note that this method will not perform nested checks, e.g. if a property is a DynamicObj itself, it will not be copied recursively.
-    /// </summary>
-    /// <param name="target">The target object to copy dynamic members to</param>
-    /// <param name="overWrite">Whether existing properties on the target object will be overwritten</param>
-    member this.CopyDynamicPropertiesTo(target:#DynamicObj, ?overWrite) =
-        let overWrite = defaultArg overWrite false 
-        this.GetProperties(false)
-        |> Seq.iter (fun kv ->
-            match target.TryGetPropertyHelper kv.Key with
-            | Some pi when overWrite -> pi.SetValue target kv.Value
-            | Some _ -> failwith $"Property \"{kv.Key}\" already exists on target object and overWrite was not set to true."
-            | None -> target.SetProperty(kv.Key,kv.Value)
-        )
-
-    /// <summary>
-    /// Returns a new DynamicObj with only the dynamic properties of the original DynamicObj (sans instance properties).
-    /// </summary>
-    member this.CopyDynamicProperties() =
-        let target = DynamicObj()
-        this.CopyDynamicPropertiesTo(target)
-        target
-
-    #if !FABLE_COMPILER
-    // Some necessary overrides for methods inherited from System.Dynamic.DynamicObject()
-    // 
-    // Needed mainly for making Newtonsoft.Json Serialization work
-    override this.TryGetMember(binder:GetMemberBinder,result:obj byref ) =     
-        match this.TryGetPropertyValue binder.Name with
-        | Some value -> result <- value; true
-        | None -> false
-
-    override this.TrySetMember(binder:SetMemberBinder, value:obj) =        
-        this.SetProperty(binder.Name,value)
-        true
-
-    /// Returns both instance and dynamic member names.
-    /// Important to return both so JSON serialization with Json.NET works.
-    override this.GetDynamicMemberNames() = this.GetPropertyNames(true)
-
-    //// potential deserialization support
-    //[<JsonExtensionData>]
-    //member private this._additionalData : IDictionary<string, JToken> = new Dictionary<string, JToken>()
-
-    //[<OnDeserialized>]
-    //member private this.OnDeserialized(context:StreamingContext) = ()
-    //    map over key value pairs in additional data, box the token values and set dynamic properties via SetProperty.
-
-    #endif
-
-    /// <summary>
-    /// Operator to access a property by name
-    ///
-    /// This method is not Fable-compatible and can therefore not be used in code that will be transpiled.
-    /// </summary>
-    /// <remarks>This method is not Fable-compatible and can therefore not be used in code that will be transpiled.</remarks>
-    static member (?) (lookup:#DynamicObj,name:string) =
-        match lookup.TryGetPropertyValue name with
-        | Some(value) -> value
-        | None -> raise <| System.MemberAccessException()        
-
-    /// <summary>
-    /// Operator to set a property value
-    ///
-    /// This method is not Fable-compatible and can therefore not be used in code that will be transpiled.
-    /// </summary>
-    /// <remarks>This method is not Fable-compatible and can therefore not be used in code that will be transpiled.</remarks>
-    static member (?<-) (lookup:#DynamicObj,name:string,value:'v) =
-        lookup.SetProperty (name,value)
-
-    override this.GetHashCode () =
-        this.GetProperties(true)
-        |> Seq.sortBy (fun pair -> pair.Key)
-        |> HashCodes.boxHashKeyValSeq
-        |> fun x -> x :?> int
-
-    override this.Equals o =
-        match o with
-        | :? DynamicObj as other ->
-            this.GetHashCode() = other.GetHashCode()
-        | _ -> false

package/fable_modules/DynamicObj.4.0.3/DynamicObj.fs.js

@@ -1,166 +0,0 @@
-import { tryGetStaticPropertyInfo } from "./ReflectionUtils.fs.js";
-import { getPropertyHelpers, tryGetDynamicPropertyHelper } from "./FableJS.fs.js";
-import { defaultArg, value as value_1, map } from "../fable-library-js.4.24.0/Option.js";
-import { sortBy, iterate, map as map_1, choose, filter } from "../fable-library-js.4.24.0/Seq.js";
-import { boxHashKeyValSeq } from "./HashCodes.fs.js";
-import { safeHash, comparePrimitives } from "../fable-library-js.4.24.0/Util.js";
-import { class_type } from "../fable-library-js.4.24.0/Reflection.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_1(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));
-    }
-    CopyDynamicPropertiesTo(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]);
-            }
-            else {
-                throw new Error(`Property "${kv[0]}" already exists on target object and overWrite was not set to true.`);
-            }
-        }, this$.GetProperties(false));
-    }
-    CopyDynamicProperties() {
-        const this$ = this;
-        const target = new DynamicObj();
-        this$.CopyDynamicPropertiesTo(target);
-        return target;
-    }
-    static op_Dynamic(lookup, name) {
-        const matchValue = lookup.TryGetPropertyValue(name);
-        if (matchValue == null) {
-            throw new Error();
-        }
-        else {
-            return value_1(matchValue);
-        }
-    }
-    static op_DynamicAssignment(lookup, name, value) {
-        lookup.SetProperty(name, value);
-    }
-    GetHashCode() {
-        const this$ = this;
-        return boxHashKeyValSeq(sortBy((pair) => pair[0], this$.GetProperties(true), {
-            Compare: comparePrimitives,
-        })) | 0;
-    }
-    Equals(o) {
-        let other;
-        const this$ = this;
-        return (o instanceof DynamicObj) && ((other = o, safeHash(this$) === safeHash(other)));
-    }
-}
-
-export function DynamicObj_$reflection() {
-    return class_type("DynamicObj.DynamicObj", undefined, DynamicObj);
-}
-
-export function DynamicObj_$ctor() {
-    return new DynamicObj();
-}
-