@nfdi4plants/arctrl 1.0.0-alpha6

package/fable_modules/FsSpreadsheet.4.1.0/DSL/RowBuilder.fs.js

@@ -0,0 +1,137 @@
+import { class_type } from "../../fable-library.4.1.4/Reflection.js";
+import { SheetEntity$1__get_Messages, SheetEntity$1, Message__MapText_11D407F6, SheetEntity$1_some_2B595 } from "./Types.fs.js";
+import { append, map, empty } from "../../fable-library.4.1.4/List.js";
+import { printf, toText } from "../../fable-library.4.1.4/String.js";
+import { OptionalSource$1__get_Source, RequiredSource$1__get_Source, OptionalSource$1_$ctor_2B595, RequiredSource$1_$ctor_2B595 } from "./Expression.fs.js";
+
+export class RowBuilder {
+    constructor() {
+    }
+}
+
+export function RowBuilder_$reflection() {
+    return class_type("FsSpreadsheet.DSL.RowBuilder", void 0, RowBuilder);
+}
+
+export function RowBuilder_$ctor() {
+    return new RowBuilder();
+}
+
+export function RowBuilder_get_Empty() {
+    return SheetEntity$1_some_2B595(empty());
+}
+
+export function RowBuilder__SignMessages_3F89FFFC(this$, messages) {
+    return map((m) => {
+        let clo;
+        return Message__MapText_11D407F6(m, (clo = toText(printf("In Row: %s")), clo));
+    }, messages);
+}
+
+export function RowBuilder__Combine_19F30600(this$, wx1, wx2) {
+    let matchResult, l1, l2, messages1, messages2, messages2_1, messages1_1, f1, messages1_2, messages2_2, f2, messages1_3, messages2_3, messages1_4, messages2_4;
+    switch (wx1.tag) {
+        case 2: {
+            if (wx2.tag === 2) {
+                matchResult = 1;
+                messages2_1 = wx2.fields[0];
+            }
+            else {
+                matchResult = 2;
+                messages1_1 = wx1.fields[0];
+            }
+            break;
+        }
+        case 1: {
+            switch (wx2.tag) {
+                case 0: {
+                    matchResult = 4;
+                    f2 = wx2.fields[0];
+                    messages1_3 = wx1.fields[0];
+                    messages2_3 = wx2.fields[1];
+                    break;
+                }
+                case 1: {
+                    matchResult = 5;
+                    messages1_4 = wx1.fields[0];
+                    messages2_4 = wx2.fields[0];
+                    break;
+                }
+                default: {
+                    matchResult = 1;
+                    messages2_1 = wx2.fields[0];
+                }
+            }
+            break;
+        }
+        default:
+            switch (wx2.tag) {
+                case 2: {
+                    matchResult = 1;
+                    messages2_1 = wx2.fields[0];
+                    break;
+                }
+                case 1: {
+                    matchResult = 3;
+                    f1 = wx1.fields[0];
+                    messages1_2 = wx1.fields[1];
+                    messages2_2 = wx2.fields[0];
+                    break;
+                }
+                default: {
+                    matchResult = 0;
+                    l1 = wx1.fields[0];
+                    l2 = wx2.fields[0];
+                    messages1 = wx1.fields[1];
+                    messages2 = wx2.fields[1];
+                }
+            }
+    }
+    switch (matchResult) {
+        case 0:
+            return new SheetEntity$1(0, [append(l1, l2), append(messages1, messages2)]);
+        case 1:
+            return new SheetEntity$1(2, [append(SheetEntity$1__get_Messages(wx1), messages2_1)]);
+        case 2:
+            return new SheetEntity$1(2, [append(messages1_1, SheetEntity$1__get_Messages(wx2))]);
+        case 3:
+            return new SheetEntity$1(0, [f1, append(messages1_2, messages2_2)]);
+        case 4:
+            return new SheetEntity$1(0, [f2, append(messages1_3, messages2_3)]);
+        default:
+            return new SheetEntity$1(1, [append(messages1_4, messages2_4)]);
+    }
+}
+
+export function RowBuilder__Combine_ZC028CBD(this$, wx1, wx2) {
+    return RequiredSource$1_$ctor_2B595(wx2);
+}
+
+export function RowBuilder__Combine_7DC18FE3(this$, wx1, wx2) {
+    return RequiredSource$1_$ctor_2B595(wx1);
+}
+
+export function RowBuilder__Combine_Z1FF3C0DC(this$, wx1, wx2) {
+    return OptionalSource$1_$ctor_2B595(wx2);
+}
+
+export function RowBuilder__Combine_Z47B5345C(this$, wx1, wx2) {
+    return OptionalSource$1_$ctor_2B595(wx1);
+}
+
+export function RowBuilder__Combine_385AF66F(this$, wx1, wx2) {
+    return RequiredSource$1_$ctor_2B595(RowBuilder__Combine_19F30600(this$, RequiredSource$1__get_Source(wx1), wx2));
+}
+
+export function RowBuilder__Combine_16FE340F(this$, wx1, wx2) {
+    return RequiredSource$1_$ctor_2B595(RowBuilder__Combine_19F30600(this$, wx1, RequiredSource$1__get_Source(wx2)));
+}
+
+export function RowBuilder__Combine_Z4C077C38(this$, wx1, wx2) {
+    return OptionalSource$1_$ctor_2B595(RowBuilder__Combine_19F30600(this$, OptionalSource$1__get_Source(wx1), wx2));
+}
+
+export function RowBuilder__Combine_Z23359F38(this$, wx1, wx2) {
+    return OptionalSource$1_$ctor_2B595(RowBuilder__Combine_19F30600(this$, wx1, OptionalSource$1__get_Source(wx2)));
+}
+

package/fable_modules/FsSpreadsheet.4.1.0/DSL/SheetBuilder.fs

@@ -0,0 +1,139 @@
+namespace FsSpreadsheet.DSL
+
+open FsSpreadsheet
+open FsSpreadsheet.DSL
+
+open Microsoft.FSharp.Quotations
+open Expression
+
+type SheetBuilder(name : string) =
+
+    static member Empty : SheetEntity<SheetElement list> = SheetEntity.some []
+
+    // -- Computation Expression methods --> 
+
+    member inline this.Zero() : SheetEntity<SheetElement list> = SheetEntity.some []
+
+    member this.SignMessages (messages : Message list) : Message list =
+        messages
+        |> List.map (fun m -> m.MapText (sprintf "In Sheet %s: %s" name))
+
+    member inline _.Yield(se: SheetElement) =
+        SheetEntity.some [se]
+
+    member inline _.Yield(cs: SheetElement list) =
+        SheetEntity.some cs
+   
+    member inline _.Yield(cs: SheetEntity<SheetElement list>) =
+        cs
+
+    member inline _.Yield(se: SheetEntity<SheetElement>) =
+        match se with 
+        | Some (s,messages) -> 
+            SheetEntity.Some ([s], messages)
+        | NoneOptional messages -> 
+            NoneOptional messages
+        | NoneRequired messages -> 
+            NoneRequired messages
+
+    member inline _.Yield(c: SheetEntity<RowElement list>) =
+        match c with 
+        | Some ((re),messages) -> 
+            SheetEntity.Some ([SheetElement.UnindexedRow re], messages)
+        | NoneOptional messages -> 
+            NoneOptional messages
+        | NoneRequired messages -> 
+            NoneRequired messages
+
+    member inline this.Yield(c : seq<SheetEntity<RowElement list>>) =
+        c
+        |> Seq.map this.Yield
+        |> Seq.reduce (fun a b -> this.Combine(a,b))
+
+    member inline _.Yield(cs: RowElement list) =
+        SheetEntity.some [SheetElement.UnindexedRow cs]
+
+    member inline _.Yield(cs: RowBuilder) =
+        SheetEntity.some [SheetElement.UnindexedRow []]
+
+    member inline _.Yield(t: SheetEntity<string * (TableElement list)>) =
+        match t with 
+        | Some (te,messages) -> 
+            SheetEntity.Some ([SheetElement.Table te], messages)
+        | NoneOptional messages -> 
+            NoneOptional messages
+        | NoneRequired messages -> 
+            NoneRequired messages
+
+    member inline _.Yield(te: string * (TableElement list)) =
+        SheetEntity.some [SheetElement.Table te]
+
+    member inline _.Yield(tb: TableBuilder) =
+        SheetEntity.some [SheetElement.Table (tb.Name,[])]
+
+    member inline _.Yield(c: SheetEntity<ColumnElement list>) =
+        match c with 
+        | Some ((re),messages) -> 
+            SheetEntity.Some ([SheetElement.UnindexedColumn re], messages)
+        | NoneOptional messages -> 
+            NoneOptional messages
+        | NoneRequired messages -> 
+            NoneRequired messages
+
+    member inline _.Yield(cs: ColumnElement list) =
+        SheetEntity.some [SheetElement.UnindexedColumn cs]
+
+    member inline _.Yield(cs: ColumnBuilder) =
+        SheetEntity.some [SheetElement.UnindexedColumn []]
+
+
+    member inline this.YieldFrom(ns: SheetEntity<SheetElement list> seq) =   
+        ns
+        |> Seq.fold (fun state we ->
+            this.Combine(state,we)
+
+        ) SheetBuilder.Empty
+
+    member inline this.For(vs : seq<'T>, f : 'T -> SheetEntity<SheetElement list>) =
+        vs
+        |> Seq.map f
+        |> this.YieldFrom
+
+    member this.Run(children: SheetEntity<SheetElement list>) =
+        match children with 
+        | Some (se,messages) -> 
+            SheetEntity.Some ((name,se), messages)
+        | NoneOptional messages -> 
+            NoneOptional messages
+        | NoneRequired messages -> 
+            NoneRequired messages
+
+
+    member this.Combine(wx1: SheetEntity<SheetElement list>, wx2: SheetEntity<SheetElement list>) : SheetEntity<SheetElement list>=
+        match wx1,wx2 with
+        // If both contain content, combine the content
+        | Some (l1,messages1), Some (l2,messages2) ->
+            Some (List.append l1 l2
+            ,List.append messages1 messages2)
+
+        // If any of the two is missing and was required, return a missing required
+        | _, NoneRequired messages2 ->
+            NoneRequired (List.append wx1.Messages messages2)
+
+        | NoneRequired messages1, _ ->
+            NoneRequired (List.append messages1 wx2.Messages)
+
+        // If only one of the two is missing and was optional, take the content of the functioning one
+        | Some (f1,messages1), NoneOptional messages2 ->
+            Some (f1
+            ,List.append messages1 messages2)
+
+        | NoneOptional messages1, Some (f2,messages2) ->
+            Some (f2
+            ,List.append messages1 messages2)
+
+        // If both are missing and were optional, return a missing optional
+        | NoneOptional messages1, NoneOptional messages2 ->
+            NoneOptional (List.append messages1 messages2)
+        
+    member inline _.Delay(n: unit -> SheetEntity<SheetElement list>) = n()

package/fable_modules/FsSpreadsheet.4.1.0/DSL/SheetBuilder.fs.js

@@ -0,0 +1,116 @@
+import { class_type } from "../../fable-library.4.1.4/Reflection.js";
+import { SheetEntity$1__get_Messages, SheetEntity$1, Message__MapText_11D407F6, SheetEntity$1_some_2B595 } from "./Types.fs.js";
+import { append, map, empty } from "../../fable-library.4.1.4/List.js";
+import { printf, toText } from "../../fable-library.4.1.4/String.js";
+
+export class SheetBuilder {
+    constructor(name) {
+        this.name = name;
+    }
+}
+
+export function SheetBuilder_$reflection() {
+    return class_type("FsSpreadsheet.DSL.SheetBuilder", void 0, SheetBuilder);
+}
+
+export function SheetBuilder_$ctor_Z721C83C5(name) {
+    return new SheetBuilder(name);
+}
+
+export function SheetBuilder_get_Empty() {
+    return SheetEntity$1_some_2B595(empty());
+}
+
+export function SheetBuilder__SignMessages_3F89FFFC(this$, messages) {
+    return map((m) => {
+        let clo_1;
+        return Message__MapText_11D407F6(m, (clo_1 = toText(printf("In Sheet %s: %s"))(this$.name), clo_1));
+    }, messages);
+}
+
+export function SheetBuilder__Run_5EFE5A35(this$, children) {
+    switch (children.tag) {
+        case 1:
+            return new SheetEntity$1(1, [children.fields[0]]);
+        case 2:
+            return new SheetEntity$1(2, [children.fields[0]]);
+        default:
+            return new SheetEntity$1(0, [[this$.name, children.fields[0]], children.fields[1]]);
+    }
+}
+
+export function SheetBuilder__Combine_6037FAE0(this$, wx1, wx2) {
+    let matchResult, l1, l2, messages1, messages2, messages2_1, messages1_1, f1, messages1_2, messages2_2, f2, messages1_3, messages2_3, messages1_4, messages2_4;
+    switch (wx1.tag) {
+        case 2: {
+            if (wx2.tag === 2) {
+                matchResult = 1;
+                messages2_1 = wx2.fields[0];
+            }
+            else {
+                matchResult = 2;
+                messages1_1 = wx1.fields[0];
+            }
+            break;
+        }
+        case 1: {
+            switch (wx2.tag) {
+                case 0: {
+                    matchResult = 4;
+                    f2 = wx2.fields[0];
+                    messages1_3 = wx1.fields[0];
+                    messages2_3 = wx2.fields[1];
+                    break;
+                }
+                case 1: {
+                    matchResult = 5;
+                    messages1_4 = wx1.fields[0];
+                    messages2_4 = wx2.fields[0];
+                    break;
+                }
+                default: {
+                    matchResult = 1;
+                    messages2_1 = wx2.fields[0];
+                }
+            }
+            break;
+        }
+        default:
+            switch (wx2.tag) {
+                case 2: {
+                    matchResult = 1;
+                    messages2_1 = wx2.fields[0];
+                    break;
+                }
+                case 1: {
+                    matchResult = 3;
+                    f1 = wx1.fields[0];
+                    messages1_2 = wx1.fields[1];
+                    messages2_2 = wx2.fields[0];
+                    break;
+                }
+                default: {
+                    matchResult = 0;
+                    l1 = wx1.fields[0];
+                    l2 = wx2.fields[0];
+                    messages1 = wx1.fields[1];
+                    messages2 = wx2.fields[1];
+                }
+            }
+    }
+    switch (matchResult) {
+        case 0:
+            return new SheetEntity$1(0, [append(l1, l2), append(messages1, messages2)]);
+        case 1:
+            return new SheetEntity$1(2, [append(SheetEntity$1__get_Messages(wx1), messages2_1)]);
+        case 2:
+            return new SheetEntity$1(2, [append(messages1_1, SheetEntity$1__get_Messages(wx2))]);
+        case 3:
+            return new SheetEntity$1(0, [f1, append(messages1_2, messages2_2)]);
+        case 4:
+            return new SheetEntity$1(0, [f2, append(messages1_3, messages2_3)]);
+        default:
+            return new SheetEntity$1(1, [append(messages1_4, messages2_4)]);
+    }
+}
+

package/fable_modules/FsSpreadsheet.4.1.0/DSL/TableBuilder.fs

@@ -0,0 +1,120 @@
+namespace FsSpreadsheet.DSL
+
+open FsSpreadsheet
+open FsSpreadsheet.DSL
+
+open Microsoft.FSharp.Quotations
+open Expression
+
+type TableBuilder(name : string) =
+
+    static member Empty : SheetEntity<TableElement list> = SheetEntity.some []
+
+    // -- Computation Expression methods --> 
+
+    member inline this.Zero() : SheetEntity<TableElement list> = SheetEntity.some []
+
+    member this.Name = name
+
+    member this.SignMessages (messages : Message list) : Message list =
+        messages
+        |> List.map (fun m -> m.MapText (sprintf "In Sheet %s: %s" name))
+
+    member inline _.Yield(se: TableElement) =
+        SheetEntity.some [se]
+
+    member inline _.Yield(cs: TableElement list) =
+        SheetEntity.some cs
+   
+    member inline _.Yield(cs: SheetEntity<TableElement list>) =
+        cs
+
+    member inline _.Yield(se: SheetEntity<TableElement>) =
+        match se with 
+        | Some (s,messages) -> 
+            SheetEntity.Some ([s], messages)
+        | NoneOptional messages -> 
+            NoneOptional messages
+        | NoneRequired messages -> 
+            NoneRequired messages
+
+    member inline _.Yield(c: SheetEntity<RowElement list>) =
+        match c with 
+        | Some ((re),messages) -> 
+            SheetEntity.Some ([TableElement.UnindexedRow re], messages)
+        | NoneOptional messages -> 
+            NoneOptional messages
+        | NoneRequired messages -> 
+            NoneRequired messages
+
+    member inline _.Yield(cs: RowElement list) =
+        SheetEntity.some [TableElement.UnindexedRow cs]
+
+    member inline _.Yield(cs: RowBuilder) =
+        SheetEntity.some [TableElement.UnindexedRow []]
+
+    member inline _.Yield(c: SheetEntity<ColumnElement list>) =
+        match c with 
+        | Some ((re),messages) -> 
+            SheetEntity.Some ([TableElement.UnindexedColumn re], messages)
+        | NoneOptional messages -> 
+            NoneOptional messages
+        | NoneRequired messages -> 
+            NoneRequired messages
+
+    member inline _.Yield(cs: ColumnElement list) =
+        SheetEntity.some [TableElement.UnindexedColumn cs]
+
+    member inline _.Yield(cs: ColumnBuilder) =
+        SheetEntity.some [TableElement.UnindexedColumn []]
+
+    member inline this.YieldFrom(ns: SheetEntity<TableElement list> seq) =   
+        ns
+        |> Seq.fold (fun state we ->
+            this.Combine(state,we)
+
+        ) TableBuilder.Empty
+
+    member inline this.For(vs : seq<'T>, f : 'T -> SheetEntity<TableElement list>) =
+        vs
+        |> Seq.map f
+        |> this.YieldFrom
+
+    member this.Run(children: SheetEntity<TableElement list>) =
+        match children with 
+        | Some (se,messages) -> 
+            SheetEntity.Some ((name,se), messages)
+        | NoneOptional messages -> 
+            NoneOptional messages
+        | NoneRequired messages -> 
+            NoneRequired messages
+
+
+    member this.Combine(wx1: SheetEntity<TableElement list>, wx2: SheetEntity<TableElement list>) : SheetEntity<TableElement list>=
+        match wx1,wx2 with
+        // If both contain content, combine the content
+        | Some (l1,messages1), Some (l2,messages2) ->
+            Some (List.append l1 l2
+            ,List.append messages1 messages2)
+
+        // If any of the two is missing and was required, return a missing required
+        | _, NoneRequired messages2 ->
+            NoneRequired (List.append wx1.Messages messages2)
+
+        | NoneRequired messages1, _ ->
+            NoneRequired (List.append messages1 wx2.Messages)
+
+        // If only one of the two is missing and was optional, take the content of the functioning one
+        | Some (f1,messages1), NoneOptional messages2 ->
+            Some (f1
+            ,List.append messages1 messages2)
+
+        | NoneOptional messages1, Some (f2,messages2) ->
+            Some (f2
+            ,List.append messages1 messages2)
+
+        // If both are missing and were optional, return a missing optional
+        | NoneOptional messages1, NoneOptional messages2 ->
+            NoneOptional (List.append messages1 messages2)
+        
+    member inline _.Delay(n: unit -> SheetEntity<TableElement list>) = n()

package/fable_modules/FsSpreadsheet.4.1.0/DSL/TableBuilder.fs.js

@@ -0,0 +1,120 @@
+import { class_type } from "../../fable-library.4.1.4/Reflection.js";
+import { SheetEntity$1__get_Messages, SheetEntity$1, Message__MapText_11D407F6, SheetEntity$1_some_2B595 } from "./Types.fs.js";
+import { append, map, empty } from "../../fable-library.4.1.4/List.js";
+import { printf, toText } from "../../fable-library.4.1.4/String.js";
+
+export class TableBuilder {
+    constructor(name) {
+        this.name = name;
+    }
+}
+
+export function TableBuilder_$reflection() {
+    return class_type("FsSpreadsheet.DSL.TableBuilder", void 0, TableBuilder);
+}
+
+export function TableBuilder_$ctor_Z721C83C5(name) {
+    return new TableBuilder(name);
+}
+
+export function TableBuilder_get_Empty() {
+    return SheetEntity$1_some_2B595(empty());
+}
+
+export function TableBuilder__get_Name(this$) {
+    return this$.name;
+}
+
+export function TableBuilder__SignMessages_3F89FFFC(this$, messages) {
+    return map((m) => {
+        let clo_1;
+        return Message__MapText_11D407F6(m, (clo_1 = toText(printf("In Sheet %s: %s"))(this$.name), clo_1));
+    }, messages);
+}
+
+export function TableBuilder__Run_15698F84(this$, children) {
+    switch (children.tag) {
+        case 1:
+            return new SheetEntity$1(1, [children.fields[0]]);
+        case 2:
+            return new SheetEntity$1(2, [children.fields[0]]);
+        default:
+            return new SheetEntity$1(0, [[this$.name, children.fields[0]], children.fields[1]]);
+    }
+}
+
+export function TableBuilder__Combine_Z280DF080(this$, wx1, wx2) {
+    let matchResult, l1, l2, messages1, messages2, messages2_1, messages1_1, f1, messages1_2, messages2_2, f2, messages1_3, messages2_3, messages1_4, messages2_4;
+    switch (wx1.tag) {
+        case 2: {
+            if (wx2.tag === 2) {
+                matchResult = 1;
+                messages2_1 = wx2.fields[0];
+            }
+            else {
+                matchResult = 2;
+                messages1_1 = wx1.fields[0];
+            }
+            break;
+        }
+        case 1: {
+            switch (wx2.tag) {
+                case 0: {
+                    matchResult = 4;
+                    f2 = wx2.fields[0];
+                    messages1_3 = wx1.fields[0];
+                    messages2_3 = wx2.fields[1];
+                    break;
+                }
+                case 1: {
+                    matchResult = 5;
+                    messages1_4 = wx1.fields[0];
+                    messages2_4 = wx2.fields[0];
+                    break;
+                }
+                default: {
+                    matchResult = 1;
+                    messages2_1 = wx2.fields[0];
+                }
+            }
+            break;
+        }
+        default:
+            switch (wx2.tag) {
+                case 2: {
+                    matchResult = 1;
+                    messages2_1 = wx2.fields[0];
+                    break;
+                }
+                case 1: {
+                    matchResult = 3;
+                    f1 = wx1.fields[0];
+                    messages1_2 = wx1.fields[1];
+                    messages2_2 = wx2.fields[0];
+                    break;
+                }
+                default: {
+                    matchResult = 0;
+                    l1 = wx1.fields[0];
+                    l2 = wx2.fields[0];
+                    messages1 = wx1.fields[1];
+                    messages2 = wx2.fields[1];
+                }
+            }
+    }
+    switch (matchResult) {
+        case 0:
+            return new SheetEntity$1(0, [append(l1, l2), append(messages1, messages2)]);
+        case 1:
+            return new SheetEntity$1(2, [append(SheetEntity$1__get_Messages(wx1), messages2_1)]);
+        case 2:
+            return new SheetEntity$1(2, [append(messages1_1, SheetEntity$1__get_Messages(wx2))]);
+        case 3:
+            return new SheetEntity$1(0, [f1, append(messages1_2, messages2_2)]);
+        case 4:
+            return new SheetEntity$1(0, [f2, append(messages1_3, messages2_3)]);
+        default:
+            return new SheetEntity$1(1, [append(messages1_4, messages2_4)]);
+    }
+}
+