@nfdi4plants/arctrl 2.5.1 → 3.0.0-alpha.2

package/fable_modules/DynamicObj.7.0.1/DynObj.fs

@@ -1,249 +0,0 @@
-namespace DynamicObj
-
-open System.Collections.Generic
-
-/// <summary>
-/// This module contains lots of API functions for DynamicObj. 
-///
-/// These functions are not static methods on the DynamicObj type itself because that type is designed to be inherited from, 
-/// and a lot of these functions might not make sense as static methods on inheriting types.
-/// </summary>
-module DynObj =
-
-    /// <summary>
-    /// Creates a new DynamicObj from a Dictionary containing dynamic properties.
-    /// </summary>
-    /// <param name="dynamicProperties">The dictionary with the dynamic properties</param>
-    let ofDict (dynamicProperties: Dictionary<string, obj>) = DynamicObj.ofDict dynamicProperties
-
-    /// <summary>
-    /// Creates a new DynamicObj from a sequence of key value pairs containing dynamic properties.
-    /// </summary>
-    /// <param name="dynamicProperties"></param>
-    let ofSeq (dynamicProperties: seq<string * obj>) = 
-        dynamicProperties
-        |> dict
-        |> Dictionary
-        |> DynamicObj.ofDict
-
-    /// <summary>
-    /// Creates a new DynamicObj from a list of key value pairs containing dynamic properties.
-    /// </summary>
-    /// <param name="dynamicProperties"></param>
-    let ofList (dynamicProperties: (string * obj) list) = 
-        dynamicProperties
-        |> ofSeq
-
-    /// <summary>
-    /// Creates a new DynamicObj from an array of key value pairs containing dynamic properties.
-    /// </summary>
-    /// <param name="dynamicProperties"></param>
-    let ofArray (dynamicProperties: (string * obj) array) = 
-        dynamicProperties
-        |> ofSeq
-
-    /// <summary>
-    /// Combines the dynamic properties of the second DynamicObj onto the first. 
-    ///
-    /// In case of duplicate property names the members of the second object override those of the first.
-    /// </summary>
-    /// <param name="first"></param>
-    /// <param name="second"></param>
-    /// <remarks>This function mutates the first input DynamicObj</remarks>
-    let rec combine (first:DynamicObj) (second:DynamicObj) =
-        //printfn "Type %A" (first.GetType())
-        /// Consider deep-copy of first
-        for kv in (second.GetProperties true) do 
-            match kv.Value with
-            | :? DynamicObj as valueS -> 
-                // is dynObj in second
-                match first.TryGetPropertyValue (kv.Key) with
-                | Some valueF -> 
-                    let tmp = combine (unbox valueF) (unbox valueS)
-                    first.SetProperty(kv.Key,tmp)
-                | None -> first.SetProperty(kv.Key,valueS)
-            | _ -> first.SetProperty(kv.Key,kv.Value)
-        first
-
-    /// <summary>
-    /// Returns Some('TPropertyValue) when a dynamic (or static) property with the given name and type exists on the input, otherwise None.
-    /// </summary>
-    /// <param name="propertyName">the name of the property to get</param>
-    /// <param name="dynObj">the input DynamicObj</param>
-    let inline tryGetTypedPropertyValue<'TPropertyValue> (propertyName:string) (dynObj : DynamicObj) : 'TPropertyValue option =
-        match (dynObj.TryGetPropertyValue propertyName) with
-        | None -> None
-        | Some o -> 
-            match o with
-            | :? 'TPropertyValue as o -> o |> Some
-            | _ -> None
-
-    /// <summary>
-    /// Sets the dynamic (or static) property value with the given name on the given DynamicObj, creating a new dynamic property if none exists.
-    /// </summary>
-    /// <param name="propertyName">The name of the dynamic property to set</param>
-    /// <param name="propertyValue">The value of the dynamic property to set</param>
-    /// <param name="dynObj">The DynamicObj to set the property on</param>
-    /// <remarks>This function mutates the input DynamicObj</remarks>
-    let setProperty (propertyName:string) (propertyValue:'TPropertyValue) (dynObj : DynamicObj) =
-        dynObj.SetProperty(propertyName,propertyValue)
-
-    /// <summary>
-    /// Sets the dynamic (or static) property value with the given name, creating a new dynamic property if none exists on the given DynamicObj and returns it.
-    /// </summary>
-    /// <param name="propertyName">The name of the property to set</param>
-    /// <param name="propertyValue">The value of the property to set</param>
-    /// <param name="dynObj">The DynamicObj to set the property on</param>
-    /// <remarks>This function mutates the input DynamicObj</remarks>
-    let inline withProperty (propertyName:string) (propertyValue:'TPropertyValue) (dynObj: #DynamicObj) =
-        setProperty propertyName propertyValue dynObj
-        dynObj
-
-    /// <summary>
-    /// Sets the dynamic (or static) property value with the given name on the given DynamicObj if the value is Some('TPropertyValue), creating a new dynamic property if none exists.
-    /// If the given propertyValue is None, does nothing to the input DynamicObj.
-    /// </summary>
-    /// <param name="propertyName">The name of the property to set</param>
-    /// <param name="propertyValue">The value of the property to set</param>
-    /// <param name="dynObj">The DynamicObj to set the property on</param>
-    /// <remarks>This function mutates the input DynamicObj</remarks>
-    let setOptionalProperty (propertyName: string) (propertyValue: 'TPropertyValue option) (dynObj: DynamicObj) = 
-        match propertyValue with
-        | Some pv -> dynObj |> setProperty propertyName pv
-        | None -> ()
-
-    /// <summary>
-    /// Sets the dynamic (or static) property value with the given name on the given DynamicObj if the value is Some('TPropertyValue), creating a new dynamic property if none exists, and returns it.
-    /// If the given propertyValue is None, does nothing to the input DynamicObj.
-    /// </summary>
-    /// <param name="propertyName">The name of the property to set</param>
-    /// <param name="propertyValue">The value of the property to set</param>
-    /// <param name="dynObj">The DynamicObj to set the property on</param>
-    /// <remarks>This function mutates the input DynamicObj</remarks>
-    let inline withOptionalProperty (propertyName: string) (propertyValue: 'TPropertyValue option) (dynObj: #DynamicObj) = 
-        match propertyValue with
-        | Some pv -> dynObj |> withProperty propertyName pv
-        | None -> dynObj
-
-    /// <summary>
-    /// Sets the given dynamic (or static) property with the result of a mapping function applied to the given property value on the given DynamicObj if the value is Some('TPropertyValue).
-    /// If the given propertyValue is None, does nothing to the input DynamicObj.
-    /// </summary>
-    /// <param name="propertyName">The name of the property to set</param>
-    /// <param name="propertyValue">The value of the property to set</param>
-    /// <param name="mapping">A function to apply to the property value before setting it on the DynamicObj</param>
-    /// <param name="dynObj">The DynamicObj to set the property on</param>
-    /// <remarks>This function mutates the input DynamicObj</remarks>
-    let setOptionalPropertyBy (propertyName: string) (propertyValue: 'TPropertyValue option) (mapping: 'TPropertyValue -> 'UPropertyValue) (dynObj: DynamicObj) = 
-        match propertyValue with
-        | Some pv -> dynObj |> setProperty propertyName (mapping pv)
-        | None -> ()
-
-    /// <summary>
-    /// Sets the given dynamic (or static) property with the result of a mapping function applied to the given property value on the given DynamicObj if the value is Some('TPropertyValue) and returns it.
-    /// If the given propertyValue is None, returns the unchanged DynamicObj.
-    /// </summary>
-    /// <param name="propertyName">The name of the property to set</param>
-    /// <param name="propertyValue">The value of the property to set</param>
-    /// <param name="mapping">A function to apply to the property value before setting it on the DynamicObj</param>
-    /// <param name="dynObj">The DynamicObj to set the property on</param>
-    /// <remarks>This function mutates the input DynamicObj</remarks>
-    let inline withOptionalPropertyBy (propertyName: string) (propertyValue: 'TPropertyValue option) (mapping: 'TPropertyValue -> 'UPropertyValue) (dynObj: #DynamicObj) = 
-        match propertyValue with
-        | Some pv -> dynObj |> withProperty propertyName (mapping pv)
-        | None -> dynObj
-
-    /// <summary>
-    /// Returns Some(boxed property value) if a dynamic (or static) property with the given name exists on the input, otherwise None.
-    /// </summary>
-    /// <param name="propertyName">The name of the property to get</param>
-    /// <param name="dynObj">The DynamicObj to get the property from</param>
-    let tryGetPropertyValue (propertyName: string) (dynObj: DynamicObj) = 
-        dynObj.TryGetPropertyValue propertyName
-
-    /// <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>
-    /// <param name="dynObj">The DynamicObj to remove the property from</param>
-    /// <remarks>This function mutates the input DynamicObj</remarks>
-    /// <exception cref="System.MemberAccessException">Thrown if the dynamic property does not exist</exception>
-    let removeProperty (propertyName: string) (dynObj: DynamicObj) = 
-        dynObj.RemoveProperty(propertyName) |> ignore
-
-    /// <summary>
-    /// Removes any dynamic property with the given name from the input DynamicObj and returns it.
-    /// 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>
-    /// <param name="dynObj">The DynamicObj to remove the property from</param>
-    /// <remarks>This function mutates the input DynamicObj</remarks>
-    /// <exception cref="System.MemberAccessException">Thrown if the dynamic property does not exist</exception>
-    let inline withoutProperty(propertyName: string) (dynObj: #DynamicObj) = 
-        dynObj |> removeProperty propertyName
-        dynObj
-
-    /// <summary>
-    /// Returns a formatted string containing all static and dynamic properties of the given DynamicObj
-    /// </summary>
-    /// <param name="dynObj">The DynamicObj for which to generate a formatted string for</param>
-    let format (dynObj:DynamicObj) =
-    
-        let members = dynObj.GetPropertyHelpers(true) |> List.ofSeq
-
-        let rec loop (object:DynamicObj) (indentationLevel:int) (membersLeft:PropertyHelper list) (acc:string list) =
-            let indent = [for i in 0 .. indentationLevel-1 do yield "    "] |> String.concat ""
-            match membersLeft with
-            | [] -> acc |> List.rev |> String.concat System.Environment.NewLine
-            | m::rest ->
-                let item = m.GetValue object
-                let dynamicIndicator = if m.IsDynamic then "?" else ""
-                let name = m.Name
-                match item with
-                | :? DynamicObj as item -> 
-                    let innerMembers = item.GetPropertyHelpers(true) |> List.ofSeq
-                    let innerPrint = (loop item (indentationLevel + 1) innerMembers [])              
-                    loop object indentationLevel rest ($"{indent}{dynamicIndicator}{name}:{System.Environment.NewLine}{innerPrint}" :: acc)
-                | item -> 
-                    loop object indentationLevel rest ($"{indent}{dynamicIndicator}{name}: {item}"::acc)
-    
-        loop dynObj 0 members []
-
-    /// <summary>
-    /// Prints a formatted string containing all static and dynamic properties of the given DynamicObj
-    /// </summary>
-    /// <param name="dynObj">The DynamicObj for which to print a formatted string for</param>
-    let print (dynObj:DynamicObj) = printfn "%s" (dynObj |> format)
-
-    /// <summary>
-    /// 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&lt;DynamicObj&gt;`, `list&lt;DynamicObj&gt;`, `ResizeArray&lt;DynamicObj&gt;`: 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.
-    /// </summary>
-    /// <param name="o">The object that should be deep copied</param>
-    /// <param name="includeInstanceProperties">Whether to include instance properties (= 'static' properties on the class) as dynamic properties on the new instance for matched DynamicObj.</param>
-    let tryDeepCopyObj (includeInstanceProperties:bool) (o:DynamicObj) =
-        CopyUtils.tryDeepCopyObj(o, includeInstanceProperties)

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

@@ -1,194 +0,0 @@
-import { CopyUtils_tryDeepCopyObj_75B3D832, DynamicObj } from "./DynamicObj.fs.js";
-import { disposeSafe, getEnumerator } from "../fable-library-js.4.24.0/Util.js";
-import { value as value_1 } from "../fable-library-js.4.24.0/Option.js";
-import { printf, toConsole, join } from "../fable-library-js.4.24.0/String.js";
-import { map, delay, toList } from "../fable-library-js.4.24.0/Seq.js";
-import { rangeDouble } from "../fable-library-js.4.24.0/Range.js";
-import { reverse, cons, empty, ofSeq as ofSeq_1, head, tail, isEmpty } from "../fable-library-js.4.24.0/List.js";
-
-/**
- * Creates a new DynamicObj from a Dictionary containing dynamic properties.
- */
-export function ofDict(dynamicProperties) {
-    return DynamicObj.ofDict(dynamicProperties);
-}
-
-/**
- * Creates a new DynamicObj from a sequence of key value pairs containing dynamic properties.
- */
-export function ofSeq(dynamicProperties) {
-    const dynamicProperties_1 = new Map(new Map(dynamicProperties));
-    return DynamicObj.ofDict(dynamicProperties_1);
-}
-
-/**
- * Creates a new DynamicObj from a list of key value pairs containing dynamic properties.
- */
-export function ofList(dynamicProperties) {
-    return ofSeq(dynamicProperties);
-}
-
-/**
- * Creates a new DynamicObj from an array of key value pairs containing dynamic properties.
- */
-export function ofArray(dynamicProperties) {
-    return ofSeq(dynamicProperties);
-}
-
-/**
- * Combines the dynamic properties of the second DynamicObj onto the first.
- * 
- * In case of duplicate property names the members of the second object override those of the first.
- */
-export function combine(first, second) {
-    const enumerator = getEnumerator(second.GetProperties(true));
-    try {
-        while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
-            const kv = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
-            const matchValue = kv[1];
-            if (matchValue instanceof DynamicObj) {
-                const valueS = matchValue;
-                const matchValue_1 = first.TryGetPropertyValue(kv[0]);
-                if (matchValue_1 == null) {
-                    first.SetProperty(kv[0], valueS);
-                }
-                else {
-                    const tmp = combine(value_1(matchValue_1), valueS);
-                    first.SetProperty(kv[0], tmp);
-                }
-            }
-            else {
-                first.SetProperty(kv[0], kv[1]);
-            }
-        }
-    }
-    finally {
-        disposeSafe(enumerator);
-    }
-    return first;
-}
-
-/**
- * Sets the dynamic (or static) property value with the given name on the given DynamicObj, creating a new dynamic property if none exists.
- */
-export function setProperty(propertyName, propertyValue, dynObj) {
-    dynObj.SetProperty(propertyName, propertyValue);
-}
-
-/**
- * Sets the dynamic (or static) property value with the given name on the given DynamicObj if the value is Some('TPropertyValue), creating a new dynamic property if none exists.
- * If the given propertyValue is None, does nothing to the input DynamicObj.
- */
-export function setOptionalProperty(propertyName, propertyValue, dynObj) {
-    if (propertyValue == null) {
-    }
-    else {
-        setProperty(propertyName, value_1(propertyValue), dynObj);
-    }
-}
-
-/**
- * Sets the given dynamic (or static) property with the result of a mapping function applied to the given property value on the given DynamicObj if the value is Some('TPropertyValue).
- * If the given propertyValue is None, does nothing to the input DynamicObj.
- */
-export function setOptionalPropertyBy(propertyName, propertyValue, mapping, dynObj) {
-    if (propertyValue == null) {
-    }
-    else {
-        setProperty(propertyName, mapping(value_1(propertyValue)), dynObj);
-    }
-}
-
-/**
- * Returns Some(boxed property value) if a dynamic (or static) property with the given name exists on the input, otherwise None.
- */
-export function tryGetPropertyValue(propertyName, dynObj) {
-    return dynObj.TryGetPropertyValue(propertyName);
-}
-
-/**
- * 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.
- */
-export function removeProperty(propertyName, dynObj) {
-    dynObj.RemoveProperty(propertyName);
-}
-
-/**
- * Returns a formatted string containing all static and dynamic properties of the given DynamicObj
- */
-export function format(dynObj) {
-    const loop = (object_mut, indentationLevel_mut, membersLeft_mut, acc_mut) => {
-        loop:
-        while (true) {
-            const object = object_mut, indentationLevel = indentationLevel_mut, membersLeft = membersLeft_mut, acc = acc_mut;
-            const indent = join("", toList(delay(() => map((i) => "    ", rangeDouble(0, 1, indentationLevel - 1)))));
-            if (!isEmpty(membersLeft)) {
-                const rest = tail(membersLeft);
-                const m = head(membersLeft);
-                const item = m.GetValue(object);
-                const dynamicIndicator = m.IsDynamic ? "?" : "";
-                const name = m.Name;
-                if (item instanceof DynamicObj) {
-                    const item_1 = item;
-                    object_mut = object;
-                    indentationLevel_mut = indentationLevel;
-                    membersLeft_mut = rest;
-                    acc_mut = cons(`${indent}${dynamicIndicator}${name}:${"\n"}${loop(item_1, indentationLevel + 1, ofSeq_1(item_1.GetPropertyHelpers(true)), empty())}`, acc);
-                    continue loop;
-                }
-                else {
-                    object_mut = object;
-                    indentationLevel_mut = indentationLevel;
-                    membersLeft_mut = rest;
-                    acc_mut = cons(`${indent}${dynamicIndicator}${name}: ${item}`, acc);
-                    continue loop;
-                }
-            }
-            else {
-                return join("\n", reverse(acc));
-            }
-            break;
-        }
-    };
-    return loop(dynObj, 0, ofSeq_1(dynObj.GetPropertyHelpers(true)), empty());
-}
-
-/**
- * Prints a formatted string containing all static and dynamic properties of the given DynamicObj
- */
-export function print(dynObj) {
-    const arg = format(dynObj);
-    toConsole(printf("%s"))(arg);
-}
-
-/**
- * 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 tryDeepCopyObj(includeInstanceProperties, o) {
-    return CopyUtils_tryDeepCopyObj_75B3D832(o, includeInstanceProperties);
-}
-

package/fable_modules/DynamicObj.7.0.1/DynamicObj.fableproj

@@ -1,47 +0,0 @@
-<Project Sdk="Microsoft.NET.Sdk">
-
-  <PropertyGroup>
-    <TargetFrameworks>netstandard2.0</TargetFrameworks>
-    <PublishRepositoryUrl>true</PublishRepositoryUrl>
-    <EmbedUntrackedSources>true</EmbedUntrackedSources>
-    <IncludeSymbols>true</IncludeSymbols>
-    <GenerateDocumentationFile>true</GenerateDocumentationFile>
-    <SymbolPackageFormat>snupkg</SymbolPackageFormat>
-    <SignAssembly>true</SignAssembly>
-    <AssemblyOriginatorKeyFile>../../key.snk</AssemblyOriginatorKeyFile>
-  </PropertyGroup>
-
-  <PropertyGroup>
-    <Authors>Timo Mühlhaus, Kevin Schneider, Heinrich Lukas Weil, F# open source contributors</Authors>
-    <Description>F# library supporting Dynamic Objects including inheritance in functional style. Compatible with Fable javascript and python transpilation.</Description>
-    <PackageLicenseExpression>MIT</PackageLicenseExpression>
-    <PackageProjectUrl>https://csbiology.github.io/DynamicObj/</PackageProjectUrl>
-    <PackageTags>F# FSharp dotnet dynamic object</PackageTags>
-    <RepositoryUrl>https://github.com/CSBiology/DynamicObj</RepositoryUrl>
-    <RepositoryType>git</RepositoryType>
-    <FsDocsLicenseLink>https://github.com/CSBiology/DynamicObj/blob/main/LICENSE</FsDocsLicenseLink>
-    <FsDocsReleaseNotesLink>https://github.com/CSBiology/DynamicObj/blob/main/RELEASE_NOTES.md</FsDocsReleaseNotesLink>
-    <PackageReadmeFile>README.md</PackageReadmeFile>
-  </PropertyGroup>
-
-  <ItemGroup>
-    <Compile Include="HashCodes.fs" />
-    <Compile Include="PropertyHelper.fs" />
-    <Compile Include="FablePy.fs" />
-    <Compile Include="FableJS.fs" />
-    <Compile Include="ReflectionUtils.fs" />
-    <Compile Include="DynamicObj.fs" />
-    <Compile Include="DynObj.fs" />
-    <None Include="Playground.fsx" />
-    <None Include="..\..\README.md" Pack="true" PackagePath="\"/>
-  </ItemGroup>
-  
-  <ItemGroup>
-    <PackageReference Include="Fable.Core" Version="4.3.0" />
-  </ItemGroup>
-
-  <ItemGroup>
-    <Content Include="*.fsproj; **\*.fs; **\*.fsi" PackagePath="fable\" />
-  </ItemGroup>
-  
-</Project>