@nfdi4plants/arctrl 1.1.0 → 2.0.0-alpha.1

package/Json/Table/ArcTable.js

@@ -0,0 +1,223 @@
+import { toArray, collect, empty, map, singleton, append, delay, toList } from "../../fable_modules/fable-library-js.4.16.0/Seq.js";
+import { ErrorReason$1, Json } from "../../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
+import { tuple2, map as map_1, list } from "../../fable_modules/Thoth.Json.Core.0.2.1/Encode.fs.js";
+import { CompositeHeader_decoder, CompositeHeader_encoder } from "./CompositeHeader.js";
+import { CompositeCell_decoder, CompositeCell_encoder } from "./CompositeCell.js";
+import { empty as empty_2, ofSeq } from "../../fable_modules/fable-library-js.4.16.0/Map.js";
+import { safeHash, int32ToString, equals, arrayHash, equalArrays, compareArrays } from "../../fable_modules/fable-library-js.4.16.0/Util.js";
+import { Helpers_prependPath, array as array_1, string, int, tuple2 as tuple2_1, map$0027, list as list_1, object } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
+import { unwrap, defaultArg } from "../../fable_modules/fable-library-js.4.16.0/Option.js";
+import { empty as empty_1 } from "../../fable_modules/fable-library-js.4.16.0/List.js";
+import { Dictionary } from "../../fable_modules/fable-library-js.4.16.0/MutableMap.js";
+import { ArcTable } from "../../Core/Table/ArcTable.js";
+import { arrayFromMap, encoder, decoder as decoder_4, decodeCell, encodeCell } from "./CellTable.js";
+import { addToDict, getItemFromDict } from "../../fable_modules/fable-library-js.4.16.0/MapUtil.js";
+import { rangeDouble } from "../../fable_modules/fable-library-js.4.16.0/Range.js";
+import { FSharpResult$2 } from "../../fable_modules/fable-library-js.4.16.0/Result.js";
+import { fill, setItem, fold, iterateIndexed } from "../../fable_modules/fable-library-js.4.16.0/Array.js";
+import { arrayFromMap as arrayFromMap_2, encoder as encoder_2, decoder as decoder_2, decodeString, encodeString } from "../StringTable.js";
+import { fromString } from "../../fable_modules/Thoth.Json.JavaScript.0.1.0/Decode.fs.js";
+import { printf, toText } from "../../fable_modules/fable-library-js.4.16.0/String.js";
+import { toString } from "../../fable_modules/Thoth.Json.JavaScript.0.1.0/Encode.fs.js";
+import { defaultSpaces } from "../Encode.js";
+import { arrayFromMap as arrayFromMap_1, encoder as encoder_1, decoder as decoder_3 } from "./OATable.js";
+
+export function ArcTable_encoder(table) {
+    return new Json(5, [toList(delay(() => append(singleton(["name", new Json(0, [table.Name])]), delay(() => append((table.Headers.length !== 0) ? singleton(["header", list(toList(delay(() => map(CompositeHeader_encoder, table.Headers))))]) : empty(), delay(() => ((table.Values.size !== 0) ? singleton(["values", map_1((tupledArg) => tuple2((value) => (new Json(7, [value >>> 0])), (value_2) => (new Json(7, [value_2 >>> 0])), tupledArg[0], tupledArg[1]), CompositeCell_encoder, ofSeq(toList(delay(() => collect((matchValue) => {
+        const activePatternResult = matchValue;
+        return singleton([activePatternResult[0], activePatternResult[1]]);
+    }, table.Values))), {
+        Compare: compareArrays,
+    }))]) : empty())))))))]);
+}
+
+export const ArcTable_decoder = object((get$) => {
+    let arg_1, objectArg, arg_3, objectArg_1, objectArg_2;
+    let decodedHeader;
+    const collection = defaultArg((arg_1 = list_1(CompositeHeader_decoder), (objectArg = get$.Optional, objectArg.Field("header", arg_1))), empty_1());
+    decodedHeader = Array.from(collection);
+    const decodedValues = new Dictionary(defaultArg((arg_3 = map$0027(tuple2_1(int, int), CompositeCell_decoder), (objectArg_1 = get$.Optional, objectArg_1.Field("values", arg_3))), empty_2({
+        Compare: compareArrays,
+    })), {
+        Equals: equalArrays,
+        GetHashCode: arrayHash,
+    });
+    return ArcTable.create((objectArg_2 = get$.Required, objectArg_2.Field("name", string)), decodedHeader, decodedValues);
+});
+
+export function ArcTable_encoderCompressedColumn(columnIndex, rowCount, cellTable, table) {
+    if (table.Headers[columnIndex].IsIOType ? true : (rowCount < 100)) {
+        return new Json(6, [toArray(delay(() => map((r) => encodeCell(cellTable, getItemFromDict(table.Values, [columnIndex, r])), rangeDouble(0, 1, rowCount - 1))))]);
+    }
+    else {
+        let current = getItemFromDict(table.Values, [columnIndex, 0]);
+        let from = 0;
+        return new Json(6, [toArray(delay(() => append(collect((i) => {
+            let value, value_1;
+            const next = getItemFromDict(table.Values, [columnIndex, i]);
+            return !equals(next, current) ? append(singleton(new Json(5, [[["f", (value = (from | 0), new Json(7, [value >>> 0]))], ["t", (value_1 = ((i - 1) | 0), new Json(7, [value_1 >>> 0]))], ["v", encodeCell(cellTable, current)]]])), delay(() => {
+                current = next;
+                from = (i | 0);
+                return empty();
+            })) : empty();
+        }, rangeDouble(1, 1, rowCount - 1)), delay(() => {
+            let value_2, value_3;
+            return singleton(new Json(5, [[["f", (value_2 = (from | 0), new Json(7, [value_2 >>> 0]))], ["t", (value_3 = ((rowCount - 1) | 0), new Json(7, [value_3 >>> 0]))], ["v", encodeCell(cellTable, current)]]]));
+        }))))]);
+    }
+}
+
+export function ArcTable_decoderCompressedColumn(cellTable, table, columnIndex) {
+    return {
+        Decode(helper, column) {
+            const matchValue = array_1(decodeCell(cellTable)).Decode(helper, column);
+            if (matchValue.tag === 1) {
+                const rangeDecoder = object((get$) => {
+                    let from;
+                    const objectArg = get$.Required;
+                    from = objectArg.Field("f", int);
+                    let to_;
+                    const objectArg_1 = get$.Required;
+                    to_ = objectArg_1.Field("t", int);
+                    let value;
+                    const arg_5 = decodeCell(cellTable);
+                    const objectArg_2 = get$.Required;
+                    value = objectArg_2.Field("v", arg_5);
+                    for (let i = from; i <= to_; i++) {
+                        addToDict(table.Values, [columnIndex, i], value);
+                    }
+                });
+                const matchValue_1 = array_1(rangeDecoder).Decode(helper, column);
+                return (matchValue_1.tag === 1) ? (new FSharpResult$2(1, [matchValue_1.fields[0]])) : (new FSharpResult$2(0, [void 0]));
+            }
+            else {
+                iterateIndexed((r, cell) => {
+                    addToDict(table.Values, [columnIndex, r], cell);
+                }, matchValue.fields[0]);
+                return new FSharpResult$2(0, [void 0]);
+            }
+        },
+    };
+}
+
+export function ArcTable_arrayi(decoderi) {
+    return {
+        Decode(helpers, value) {
+            if (helpers.isArray(value)) {
+                let i = -1;
+                const tokens = helpers.asArray(value);
+                return fold((acc, value_1) => {
+                    let tupledArg;
+                    i = ((i + 1) | 0);
+                    if (acc.tag === 0) {
+                        const acc_1 = acc.fields[0];
+                        const matchValue = decoderi(i).Decode(helpers, value_1);
+                        if (matchValue.tag === 0) {
+                            setItem(acc_1, i, matchValue.fields[0]);
+                            return new FSharpResult$2(0, [acc_1]);
+                        }
+                        else {
+                            return new FSharpResult$2(1, [(tupledArg = matchValue.fields[0], Helpers_prependPath((".[" + int32ToString(i)) + "]", tupledArg[0], tupledArg[1]))]);
+                        }
+                    }
+                    else {
+                        return acc;
+                    }
+                }, new FSharpResult$2(0, [fill(new Array(tokens.length), 0, tokens.length, null)]), tokens);
+            }
+            else {
+                return new FSharpResult$2(1, [["", new ErrorReason$1(0, ["an array", value])]]);
+            }
+        },
+    };
+}
+
+export function ArcTable_encoderCompressed(stringTable, oaTable, cellTable, table) {
+    return new Json(5, [toList(delay(() => append(singleton(["n", encodeString(stringTable, table.Name)]), delay(() => append((table.Headers.length !== 0) ? singleton(["h", list(toList(delay(() => map(CompositeHeader_encoder, table.Headers))))]) : empty(), delay(() => {
+        if (table.Values.size !== 0) {
+            const rowCount = table.RowCount | 0;
+            return singleton(["c", new Json(6, [toArray(delay(() => map((c) => ArcTable_encoderCompressedColumn(c, rowCount, cellTable, table), rangeDouble(0, 1, table.ColumnCount - 1))))])]);
+        }
+        else {
+            return empty();
+        }
+    }))))))]);
+}
+
+export function ArcTable_decoderCompressed(stringTable, oaTable, cellTable) {
+    return object((get$) => {
+        let arg_1, objectArg, arg_3, objectArg_1, arg_5, objectArg_2;
+        let decodedHeader;
+        const collection = defaultArg((arg_1 = list_1(CompositeHeader_decoder), (objectArg = get$.Optional, objectArg.Field("h", arg_1))), empty_1());
+        decodedHeader = Array.from(collection);
+        const table = ArcTable.create((arg_3 = decodeString(stringTable), (objectArg_1 = get$.Required, objectArg_1.Field("n", arg_3))), decodedHeader, new Dictionary([], {
+            Equals: equalArrays,
+            GetHashCode: arrayHash,
+        }));
+        (arg_5 = ArcTable_arrayi((columnIndex) => ArcTable_decoderCompressedColumn(cellTable, table, columnIndex)), (objectArg_2 = get$.Optional, objectArg_2.Field("c", arg_5)));
+        return table;
+    });
+}
+
+export function ARCtrl_ArcTable__ArcTable_fromJsonString_Static_Z721C83C5(s) {
+    const matchValue = fromString(ArcTable_decoder, s);
+    if (matchValue.tag === 1) {
+        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+    }
+    else {
+        return matchValue.fields[0];
+    }
+}
+
+export function ARCtrl_ArcTable__ArcTable_toJsonString_Static_71136F3F(spaces) {
+    return (obj) => {
+        const value = ArcTable_encoder(obj);
+        return toString(defaultSpaces(spaces), value);
+    };
+}
+
+export function ARCtrl_ArcTable__ArcTable_ToJsonString_71136F3F(this$, spaces) {
+    return ARCtrl_ArcTable__ArcTable_toJsonString_Static_71136F3F(unwrap(spaces))(this$);
+}
+
+export function ARCtrl_ArcTable__ArcTable_fromCompressedJsonString_Static_Z721C83C5(jsonString) {
+    const matchValue = fromString(object((get$) => {
+        let arg_5, objectArg_2;
+        let stringTable;
+        const objectArg = get$.Required;
+        stringTable = objectArg.Field("stringTable", decoder_2);
+        let oaTable;
+        const arg_3 = decoder_3(stringTable);
+        const objectArg_1 = get$.Required;
+        oaTable = objectArg_1.Field("oaTable", arg_3);
+        const arg_7 = ArcTable_decoderCompressed(stringTable, oaTable, (arg_5 = decoder_4(stringTable, oaTable), (objectArg_2 = get$.Required, objectArg_2.Field("cellTable", arg_5))));
+        const objectArg_3 = get$.Required;
+        return objectArg_3.Field("table", arg_7);
+    }), jsonString);
+    if (matchValue.tag === 1) {
+        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+    }
+    else {
+        return matchValue.fields[0];
+    }
+}
+
+export function ARCtrl_ArcTable__ArcTable_ToCompressedJsonString_71136F3F(this$, spaces) {
+    const spaces_1 = defaultSpaces(spaces) | 0;
+    const stringTable = new Map([]);
+    const oaTable = new Dictionary([], {
+        Equals: equals,
+        GetHashCode: safeHash,
+    });
+    const cellTable = new Dictionary([], {
+        Equals: equals,
+        GetHashCode: safeHash,
+    });
+    const arcTable = ArcTable_encoderCompressed(stringTable, oaTable, cellTable, this$);
+    return toString(spaces_1, new Json(5, [[["cellTable", encoder(stringTable, oaTable, arrayFromMap(cellTable))], ["oaTable", encoder_1(stringTable, arrayFromMap_1(oaTable))], ["stringTable", encoder_2(arrayFromMap_2(stringTable))], ["table", arcTable]]]));
+}
+
+export function ARCtrl_ArcTable__ArcTable_toCompressedJsonString_Static_71136F3F(spaces) {
+    return (obj) => ARCtrl_ArcTable__ArcTable_ToCompressedJsonString_71136F3F(obj, unwrap(spaces));
+}
+

package/Json/Table/CellTable.js

@@ -0,0 +1,40 @@
+import { sortBy, map, toArray } from "../../fable_modules/fable-library-js.4.16.0/Seq.js";
+import { comparePrimitives } from "../../fable_modules/fable-library-js.4.16.0/Util.js";
+import { item, map as map_1 } from "../../fable_modules/fable-library-js.4.16.0/Array.js";
+import { CompositeCell_decoderCompressed, CompositeCell_encoderCompressed } from "./CompositeCell.js";
+import { Json } from "../../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
+import { int, object, array as array_1 } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
+import { Dictionary_tryFind } from "../../Core/Helper/Collections.js";
+import { addToDict } from "../../fable_modules/fable-library-js.4.16.0/MapUtil.js";
+
+export function arrayFromMap(otm) {
+    return toArray(map((kv_1) => kv_1[0], sortBy((kv) => kv[1], otm, {
+        Compare: comparePrimitives,
+    })));
+}
+
+export function encoder(stringTable, oaTable, ot) {
+    return new Json(6, [map_1((cc) => CompositeCell_encoderCompressed(stringTable, oaTable, cc), ot)]);
+}
+
+export function decoder(stringTable, oaTable) {
+    return array_1(CompositeCell_decoderCompressed(stringTable, oaTable));
+}
+
+export function encodeCell(otm, cc) {
+    const matchValue = Dictionary_tryFind(cc, otm);
+    if (matchValue == null) {
+        const i_1 = otm.size | 0;
+        addToDict(otm, cc, i_1);
+        return new Json(7, [i_1 >>> 0]);
+    }
+    else {
+        const i = matchValue | 0;
+        return new Json(7, [i >>> 0]);
+    }
+}
+
+export function decodeCell(ot) {
+    return object((get$) => item(get$.Required.Raw(int), ot));
+}
+

package/Json/Table/CompositeCell.js

@@ -0,0 +1,65 @@
+import { OntologyAnnotation_decoder, OntologyAnnotation_encoder } from "../OntologyAnnotation.js";
+import { ofArray, singleton } from "../../fable_modules/fable-library-js.4.16.0/List.js";
+import { Json } from "../../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
+import { list } from "../../fable_modules/Thoth.Json.Core.0.2.1/Encode.fs.js";
+import { index, string, object } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
+import { CompositeCell } from "../../Core/Table/CompositeCell.js";
+import { toText, printf, toFail } from "../../fable_modules/fable-library-js.4.16.0/String.js";
+import { decodeOA, encodeOA } from "./OATable.js";
+import { decodeString, encodeString } from "../StringTable.js";
+import { fromString } from "../../fable_modules/Thoth.Json.JavaScript.0.1.0/Decode.fs.js";
+import { toString } from "../../fable_modules/Thoth.Json.JavaScript.0.1.0/Encode.fs.js";
+import { defaultSpaces } from "../Encode.js";
+import { unwrap } from "../../fable_modules/fable-library-js.4.16.0/Option.js";
+
+export function CompositeCell_encoder(cc) {
+    const oaToJsonString = OntologyAnnotation_encoder;
+    const patternInput = (cc.tag === 0) ? ["Term", singleton(oaToJsonString(cc.fields[0]))] : ((cc.tag === 2) ? ["Unitized", ofArray([new Json(0, [cc.fields[0]]), oaToJsonString(cc.fields[1])])] : ["FreeText", singleton(new Json(0, [cc.fields[0]]))]);
+    return new Json(5, [[["celltype", new Json(0, [patternInput[0]])], ["values", list(patternInput[1])]]]);
+}
+
+export const CompositeCell_decoder = object((get$) => {
+    let arg_3, objectArg_1, arg_5, objectArg_2, arg_7, objectArg_3, arg_9, objectArg_4;
+    let matchValue;
+    const objectArg = get$.Required;
+    matchValue = objectArg.Field("celltype", string);
+    return (matchValue === "FreeText") ? (new CompositeCell(1, [(arg_3 = index(0, string), (objectArg_1 = get$.Required, objectArg_1.Field("values", arg_3)))])) : ((matchValue === "Term") ? (new CompositeCell(0, [(arg_5 = index(0, OntologyAnnotation_decoder), (objectArg_2 = get$.Required, objectArg_2.Field("values", arg_5)))])) : ((matchValue === "Unitized") ? (new CompositeCell(2, [(arg_7 = index(0, string), (objectArg_3 = get$.Required, objectArg_3.Field("values", arg_7))), (arg_9 = index(1, OntologyAnnotation_decoder), (objectArg_4 = get$.Required, objectArg_4.Field("values", arg_9)))])) : toFail(printf("Error reading CompositeCell from json string: %A"))(matchValue)));
+});
+
+export function CompositeCell_encoderCompressed(stringTable, oaTable, cc) {
+    const patternInput = (cc.tag === 0) ? ["Term", singleton(encodeOA(oaTable, cc.fields[0]))] : ((cc.tag === 2) ? ["Unitized", ofArray([encodeString(stringTable, cc.fields[0]), encodeOA(oaTable, cc.fields[1])])] : ["FreeText", singleton(encodeString(stringTable, cc.fields[0]))]);
+    return new Json(5, [[["t", encodeString(stringTable, patternInput[0])], ["v", list(patternInput[1])]]]);
+}
+
+export function CompositeCell_decoderCompressed(stringTable, oaTable) {
+    return object((get$) => {
+        let arg_3, objectArg_1, arg_5, objectArg_2, arg_7, objectArg_3, arg_9, objectArg_4;
+        let matchValue;
+        const arg_1 = decodeString(stringTable);
+        const objectArg = get$.Required;
+        matchValue = objectArg.Field("t", arg_1);
+        return (matchValue === "FreeText") ? (new CompositeCell(1, [(arg_3 = index(0, decodeString(stringTable)), (objectArg_1 = get$.Required, objectArg_1.Field("v", arg_3)))])) : ((matchValue === "Term") ? (new CompositeCell(0, [(arg_5 = index(0, decodeOA(oaTable)), (objectArg_2 = get$.Required, objectArg_2.Field("v", arg_5)))])) : ((matchValue === "Unitized") ? (new CompositeCell(2, [(arg_7 = index(0, decodeString(stringTable)), (objectArg_3 = get$.Required, objectArg_3.Field("v", arg_7))), (arg_9 = index(1, decodeOA(oaTable)), (objectArg_4 = get$.Required, objectArg_4.Field("v", arg_9)))])) : toFail(printf("Error reading CompositeCell from json string: %A"))(matchValue)));
+    });
+}
+
+export function ARCtrl_CompositeCell__CompositeCell_fromJsonString_Static_Z721C83C5(s) {
+    const matchValue = fromString(CompositeCell_decoder, s);
+    if (matchValue.tag === 1) {
+        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+    }
+    else {
+        return matchValue.fields[0];
+    }
+}
+
+export function ARCtrl_CompositeCell__CompositeCell_toJsonString_Static_71136F3F(spaces) {
+    return (obj) => {
+        const value = CompositeCell_encoder(obj);
+        return toString(defaultSpaces(spaces), value);
+    };
+}
+
+export function ARCtrl_CompositeCell__CompositeCell_ToJsonString_71136F3F(this$, spaces) {
+    return ARCtrl_CompositeCell__CompositeCell_toJsonString_Static_71136F3F(unwrap(spaces))(this$);
+}
+

package/Json/Table/CompositeHeader.js

@@ -0,0 +1,57 @@
+import { OntologyAnnotation_decoder, OntologyAnnotation_encoder } from "../OntologyAnnotation.js";
+import { empty, singleton } from "../../fable_modules/fable-library-js.4.16.0/List.js";
+import { IOType_decoder, IOType_encoder } from "./IOType.js";
+import { Json } from "../../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
+import { list } from "../../fable_modules/Thoth.Json.Core.0.2.1/Encode.fs.js";
+import { index, string, object } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
+import { CompositeHeader } from "../../Core/Table/CompositeHeader.js";
+import { fromString } from "../../fable_modules/Thoth.Json.JavaScript.0.1.0/Decode.fs.js";
+import { printf, toText } from "../../fable_modules/fable-library-js.4.16.0/String.js";
+import { toString } from "../../fable_modules/Thoth.Json.JavaScript.0.1.0/Encode.fs.js";
+import { defaultSpaces } from "../Encode.js";
+import { unwrap } from "../../fable_modules/fable-library-js.4.16.0/Option.js";
+
+export function CompositeHeader_encoder(ch) {
+    const oaToJsonString = OntologyAnnotation_encoder;
+    const patternInput = (ch.tag === 3) ? ["Parameter", singleton(oaToJsonString(ch.fields[0]))] : ((ch.tag === 2) ? ["Factor", singleton(oaToJsonString(ch.fields[0]))] : ((ch.tag === 1) ? ["Characteristic", singleton(oaToJsonString(ch.fields[0]))] : ((ch.tag === 0) ? ["Component", singleton(oaToJsonString(ch.fields[0]))] : ((ch.tag === 4) ? ["ProtocolType", empty()] : ((ch.tag === 8) ? ["ProtocolREF", empty()] : ((ch.tag === 5) ? ["ProtocolDescription", empty()] : ((ch.tag === 6) ? ["ProtocolUri", empty()] : ((ch.tag === 7) ? ["ProtocolVersion", empty()] : ((ch.tag === 9) ? ["Performer", empty()] : ((ch.tag === 10) ? ["Date", empty()] : ((ch.tag === 11) ? ["Input", singleton(IOType_encoder(ch.fields[0]))] : ((ch.tag === 12) ? ["Output", singleton(IOType_encoder(ch.fields[0]))] : [ch.fields[0], empty()]))))))))))));
+    return new Json(5, [[["headertype", new Json(0, [patternInput[0]])], ["values", list(patternInput[1])]]]);
+}
+
+export const CompositeHeader_decoder = object((get$) => {
+    let headerType;
+    const objectArg = get$.Required;
+    headerType = objectArg.Field("headertype", string);
+    const oa = () => {
+        const arg_3 = index(0, OntologyAnnotation_decoder);
+        const objectArg_1 = get$.Required;
+        return objectArg_1.Field("values", arg_3);
+    };
+    const io = () => {
+        const arg_5 = index(0, IOType_decoder);
+        const objectArg_2 = get$.Required;
+        return objectArg_2.Field("values", arg_5);
+    };
+    return (headerType === "Characteristic") ? (new CompositeHeader(1, [oa()])) : ((headerType === "Parameter") ? (new CompositeHeader(3, [oa()])) : ((headerType === "Component") ? (new CompositeHeader(0, [oa()])) : ((headerType === "Factor") ? (new CompositeHeader(2, [oa()])) : ((headerType === "Input") ? (new CompositeHeader(11, [io()])) : ((headerType === "Output") ? (new CompositeHeader(12, [io()])) : ((headerType === "ProtocolType") ? (new CompositeHeader(4, [])) : ((headerType === "ProtocolREF") ? (new CompositeHeader(8, [])) : ((headerType === "ProtocolDescription") ? (new CompositeHeader(5, [])) : ((headerType === "ProtocolUri") ? (new CompositeHeader(6, [])) : ((headerType === "ProtocolVersion") ? (new CompositeHeader(7, [])) : ((headerType === "Performer") ? (new CompositeHeader(9, [])) : ((headerType === "Date") ? (new CompositeHeader(10, [])) : (new CompositeHeader(13, [headerType]))))))))))))));
+});
+
+export function ARCtrl_CompositeHeader__CompositeHeader_fromJsonString_Static_Z721C83C5(s) {
+    const matchValue = fromString(CompositeHeader_decoder, s);
+    if (matchValue.tag === 1) {
+        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+    }
+    else {
+        return matchValue.fields[0];
+    }
+}
+
+export function ARCtrl_CompositeHeader__CompositeHeader_toJsonString_Static_71136F3F(spaces) {
+    return (obj) => {
+        const value = CompositeHeader_encoder(obj);
+        return toString(defaultSpaces(spaces), value);
+    };
+}
+
+export function ARCtrl_CompositeHeader__CompositeHeader_ToJsonString_71136F3F(this$, spaces) {
+    return ARCtrl_CompositeHeader__CompositeHeader_toJsonString_Static_71136F3F(unwrap(spaces))(this$);
+}
+

package/Json/Table/Compression.js

@@ -0,0 +1,38 @@
+import { Dictionary } from "../../fable_modules/fable-library-js.4.16.0/MutableMap.js";
+import { safeHash, equals } from "../../fable_modules/fable-library-js.4.16.0/Util.js";
+import { decoder as decoder_3, arrayFromMap, encoder as encoder_1 } from "./CellTable.js";
+import { decoder as decoder_2, arrayFromMap as arrayFromMap_1, encoder as encoder_2 } from "./OATable.js";
+import { decoder as decoder_1, arrayFromMap as arrayFromMap_2, encoder as encoder_3 } from "../StringTable.js";
+import { Json } from "../../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
+import { object } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
+
+export function encode(encoder, obj) {
+    const stringTable = new Map([]);
+    const oaTable = new Dictionary([], {
+        Equals: equals,
+        GetHashCode: safeHash,
+    });
+    const cellTable = new Dictionary([], {
+        Equals: equals,
+        GetHashCode: safeHash,
+    });
+    const arcStudy = encoder(stringTable, oaTable, cellTable, obj);
+    return new Json(5, [[["cellTable", encoder_1(stringTable, oaTable, arrayFromMap(cellTable))], ["oaTable", encoder_2(stringTable, arrayFromMap_1(oaTable))], ["stringTable", encoder_3(arrayFromMap_2(stringTable))], ["object", arcStudy]]]);
+}
+
+export function decode(decoder) {
+    return object((get$) => {
+        let arg_5, objectArg_2;
+        let stringTable;
+        const objectArg = get$.Required;
+        stringTable = objectArg.Field("stringTable", decoder_1);
+        let oaTable;
+        const arg_3 = decoder_2(stringTable);
+        const objectArg_1 = get$.Required;
+        oaTable = objectArg_1.Field("oaTable", arg_3);
+        const arg_7 = decoder(stringTable, oaTable, (arg_5 = decoder_3(stringTable, oaTable), (objectArg_2 = get$.Required, objectArg_2.Field("cellTable", arg_5))));
+        const objectArg_3 = get$.Required;
+        return objectArg_3.Field("object", arg_7);
+    });
+}
+

package/Json/Table/IOType.js

@@ -0,0 +1,37 @@
+import { toString } from "../../fable_modules/fable-library-js.4.16.0/Types.js";
+import { Json } from "../../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
+import { string, succeed, andThen } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
+import { IOType } from "../../Core/Table/CompositeHeader.js";
+import { fromString } from "../../fable_modules/Thoth.Json.JavaScript.0.1.0/Decode.fs.js";
+import { printf, toText } from "../../fable_modules/fable-library-js.4.16.0/String.js";
+import { toString as toString_1 } from "../../fable_modules/Thoth.Json.JavaScript.0.1.0/Encode.fs.js";
+import { defaultSpaces } from "../Encode.js";
+import { unwrap } from "../../fable_modules/fable-library-js.4.16.0/Option.js";
+
+export function IOType_encoder(io) {
+    return new Json(0, [toString(io)]);
+}
+
+export const IOType_decoder = andThen((s) => succeed(IOType.ofString(s)), string);
+
+export function ARCtrl_IOType__IOType_fromJsonString_Static_Z721C83C5(s) {
+    const matchValue = fromString(IOType_decoder, s);
+    if (matchValue.tag === 1) {
+        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+    }
+    else {
+        return matchValue.fields[0];
+    }
+}
+
+export function ARCtrl_IOType__IOType_toJsonString_Static_71136F3F(spaces) {
+    return (obj) => {
+        const value = IOType_encoder(obj);
+        return toString_1(defaultSpaces(spaces), value);
+    };
+}
+
+export function ARCtrl_IOType__IOType_ToJsonString_71136F3F(this$, spaces) {
+    return ARCtrl_IOType__IOType_toJsonString_Static_71136F3F(unwrap(spaces))(this$);
+}
+

package/Json/Table/OATable.js

@@ -0,0 +1,40 @@
+import { sortBy, map, toArray } from "../../fable_modules/fable-library-js.4.16.0/Seq.js";
+import { comparePrimitives } from "../../fable_modules/fable-library-js.4.16.0/Util.js";
+import { item, map as map_1 } from "../../fable_modules/fable-library-js.4.16.0/Array.js";
+import { OntologyAnnotation_compressedDecoder, OntologyAnnotation_compressedEncoder } from "../OntologyAnnotation.js";
+import { Json } from "../../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
+import { int, object, array as array_1 } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
+import { Dictionary_tryFind } from "../../Core/Helper/Collections.js";
+import { addToDict } from "../../fable_modules/fable-library-js.4.16.0/MapUtil.js";
+
+export function arrayFromMap(otm) {
+    return toArray(map((kv_1) => kv_1[0], sortBy((kv) => kv[1], otm, {
+        Compare: comparePrimitives,
+    })));
+}
+
+export function encoder(stringTable, ot) {
+    return new Json(6, [map_1((oa) => OntologyAnnotation_compressedEncoder(stringTable, oa), ot)]);
+}
+
+export function decoder(stringTable) {
+    return array_1(OntologyAnnotation_compressedDecoder(stringTable));
+}
+
+export function encodeOA(otm, oa) {
+    const matchValue = Dictionary_tryFind(oa, otm);
+    if (matchValue == null) {
+        const i_1 = otm.size | 0;
+        addToDict(otm, oa, i_1);
+        return new Json(7, [i_1 >>> 0]);
+    }
+    else {
+        const i = matchValue | 0;
+        return new Json(7, [i >>> 0]);
+    }
+}
+
+export function decodeOA(ot) {
+    return object((get$) => item(get$.Required.Raw(int), ot));
+}
+

package/Json/Table/Templates.js

@@ -0,0 +1,107 @@
+import { toString } from "../../fable_modules/fable-library-js.4.16.0/Types.js";
+import { Json } from "../../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
+import { dict, datetimeUtc, guid, object, string, succeed, andThen } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
+import { Template, Organisation } from "../../Core/Template.js";
+import { ArcTable_decoderCompressed, ArcTable_encoderCompressed, ArcTable_decoder, ArcTable_encoder } from "./ArcTable.js";
+import { defaultSpaces, dateTime, tryIncludeSeq } from "../Encode.js";
+import { Person_decoder, Person_encoder } from "../Person.js";
+import { OntologyAnnotation_decoder, OntologyAnnotation_encoder } from "../OntologyAnnotation.js";
+import { defaultArg, unwrap } from "../../fable_modules/fable-library-js.4.16.0/Option.js";
+import { Decode_datetime, Decode_resizeArray } from "../Decode.js";
+import { toString as toString_1 } from "../../fable_modules/fable-library-js.4.16.0/Date.js";
+import { map } from "../../fable_modules/fable-library-js.4.16.0/Array.js";
+import { toText, printf, toFail } from "../../fable_modules/fable-library-js.4.16.0/String.js";
+import { fromString } from "../../fable_modules/Thoth.Json.JavaScript.0.1.0/Decode.fs.js";
+import { toString as toString_2 } from "../../fable_modules/Thoth.Json.JavaScript.0.1.0/Encode.fs.js";
+import { encode, decode } from "./Compression.js";
+
+export const Template_Organisation_encoder = (arg) => (new Json(0, [toString(arg)]));
+
+export const Template_Organisation_decoder = andThen((textValue) => succeed(Organisation.ofString(textValue)), string);
+
+export function Template_encoder(template) {
+    let copyOfStruct;
+    return new Json(5, [[["id", new Json(0, [(copyOfStruct = template.Id, copyOfStruct)])], ["table", ArcTable_encoder(template.Table)], ["name", new Json(0, [template.Name])], ["description", new Json(0, [template.Description])], ["organisation", Template_Organisation_encoder(template.Organisation)], ["version", new Json(0, [template.Version])], tryIncludeSeq("authors", Person_encoder, template.Authors), tryIncludeSeq("endpoint_repositories", OntologyAnnotation_encoder, template.EndpointRepositories), tryIncludeSeq("tags", OntologyAnnotation_encoder, template.Tags), ["last_updated", dateTime(template.LastUpdated)]]]);
+}
+
+export const Template_decoder = object((get$) => {
+    let objectArg, objectArg_1, objectArg_2, objectArg_3, objectArg_4, objectArg_5, arg_13, objectArg_6, arg_15, objectArg_7, arg_17, objectArg_8, objectArg_9;
+    return Template.create((objectArg = get$.Required, objectArg.Field("id", guid)), (objectArg_1 = get$.Required, objectArg_1.Field("table", ArcTable_decoder)), (objectArg_2 = get$.Required, objectArg_2.Field("name", string)), (objectArg_3 = get$.Required, objectArg_3.Field("description", string)), (objectArg_4 = get$.Required, objectArg_4.Field("organisation", Template_Organisation_decoder)), (objectArg_5 = get$.Required, objectArg_5.Field("version", string)), unwrap((arg_13 = Decode_resizeArray(Person_decoder), (objectArg_6 = get$.Optional, objectArg_6.Field("authors", arg_13)))), unwrap((arg_15 = Decode_resizeArray(OntologyAnnotation_decoder), (objectArg_7 = get$.Optional, objectArg_7.Field("endpoint_repositories", arg_15)))), unwrap((arg_17 = Decode_resizeArray(OntologyAnnotation_decoder), (objectArg_8 = get$.Optional, objectArg_8.Field("tags", arg_17)))), (objectArg_9 = get$.Required, objectArg_9.Field("last_updated", Decode_datetime)));
+});
+
+export function Template_encoderCompressed(stringTable, oaTable, cellTable, template) {
+    let copyOfStruct;
+    return new Json(5, [[["id", new Json(0, [(copyOfStruct = template.Id, copyOfStruct)])], ["table", ArcTable_encoderCompressed(stringTable, oaTable, cellTable, template.Table)], ["name", new Json(0, [template.Name])], ["description", new Json(0, [template.Description])], ["organisation", Template_Organisation_encoder(template.Organisation)], ["version", new Json(0, [template.Version])], tryIncludeSeq("authors", Person_encoder, template.Authors), tryIncludeSeq("endpoint_repositories", OntologyAnnotation_encoder, template.EndpointRepositories), tryIncludeSeq("tags", OntologyAnnotation_encoder, template.Tags), ["last_updated", new Json(0, [toString_1(template.LastUpdated, "O", {})])]]]);
+}
+
+export function Template_decoderCompressed(stringTable, oaTable, cellTable) {
+    return object((get$) => {
+        let objectArg, arg_3, objectArg_1, objectArg_2, objectArg_3, objectArg_4, objectArg_5, arg_13, objectArg_6, arg_15, objectArg_7, arg_17, objectArg_8, objectArg_9;
+        return Template.create((objectArg = get$.Required, objectArg.Field("id", guid)), (arg_3 = ArcTable_decoderCompressed(stringTable, oaTable, cellTable), (objectArg_1 = get$.Required, objectArg_1.Field("table", arg_3))), (objectArg_2 = get$.Required, objectArg_2.Field("name", string)), (objectArg_3 = get$.Required, objectArg_3.Field("description", string)), (objectArg_4 = get$.Required, objectArg_4.Field("organisation", Template_Organisation_decoder)), (objectArg_5 = get$.Required, objectArg_5.Field("version", string)), unwrap((arg_13 = Decode_resizeArray(Person_decoder), (objectArg_6 = get$.Optional, objectArg_6.Field("authors", arg_13)))), unwrap((arg_15 = Decode_resizeArray(OntologyAnnotation_decoder), (objectArg_7 = get$.Optional, objectArg_7.Field("endpoint_repositories", arg_15)))), unwrap((arg_17 = Decode_resizeArray(OntologyAnnotation_decoder), (objectArg_8 = get$.Optional, objectArg_8.Field("tags", arg_17)))), (objectArg_9 = get$.Required, objectArg_9.Field("last_updated", datetimeUtc)));
+    });
+}
+
+export function Templates_encoder(templates) {
+    return new Json(6, [map(Template_encoder, templates)]);
+}
+
+export const Templates_decoder = dict(Template_decoder);
+
+export function Templates_fromJsonString(jsonString) {
+    try {
+        const matchValue = fromString(Templates_decoder, jsonString);
+        if (matchValue.tag === 1) {
+            throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+        }
+        else {
+            return matchValue.fields[0];
+        }
+    }
+    catch (exn) {
+        return toFail(printf("Error. Given json string cannot be parsed to Templates map: %A"))(exn);
+    }
+}
+
+export function Templates_toJsonString(spaces, templates) {
+    return toString_2(spaces, Templates_encoder(templates));
+}
+
+export function ARCtrl_Template__Template_fromJsonString_Static_Z721C83C5(jsonString) {
+    try {
+        const matchValue = fromString(Template_decoder, jsonString);
+        if (matchValue.tag === 1) {
+            throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+        }
+        else {
+            return matchValue.fields[0];
+        }
+    }
+    catch (exn) {
+        return toFail(printf("Error. Given json string cannot be parsed to Template: %A"))(exn);
+    }
+}
+
+export function ARCtrl_Template__Template_toJsonString_Static_71136F3F(spaces) {
+    return (template) => toString_2(defaultSpaces(spaces), Template_encoder(template));
+}
+
+export function ARCtrl_Template__Template_fromCompressedJsonString_Static_Z721C83C5(s) {
+    try {
+        const matchValue = fromString(decode(Template_decoderCompressed), s);
+        if (matchValue.tag === 1) {
+            throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
+        }
+        else {
+            return matchValue.fields[0];
+        }
+    }
+    catch (e_1) {
+        const arg_1 = e_1.message;
+        return toFail(printf("Error. Unable to parse json string to ArcStudy: %s"))(arg_1);
+    }
+}
+
+export function ARCtrl_Template__Template_toCompressedJsonString_Static_71136F3F(spaces) {
+    return (obj) => toString_2(defaultArg(spaces, 0), encode(Template_encoderCompressed, obj));
+}
+

package/Json/context/rocrate/isa_assay_context.js

@@ -0,0 +1,32 @@
+import { Record } from "../../../fable_modules/fable-library-js.4.16.0/Types.js";
+import { record_type, string_type } from "../../../fable_modules/fable-library-js.4.16.0/Reflection.js";
+import { Json } from "../../../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
+
+export class IContext extends Record {
+    constructor(sdo, arc, Assay, ArcAssay, measurementType, technologyType, technologyPlatform, dataFiles, materials, otherMaterials, samples, characteristicCategories, processSequences, unitCategories, comments, filename) {
+        super();
+        this.sdo = sdo;
+        this.arc = arc;
+        this.Assay = Assay;
+        this.ArcAssay = ArcAssay;
+        this.measurementType = measurementType;
+        this.technologyType = technologyType;
+        this.technologyPlatform = technologyPlatform;
+        this.dataFiles = dataFiles;
+        this.materials = materials;
+        this.otherMaterials = otherMaterials;
+        this.samples = samples;
+        this.characteristicCategories = characteristicCategories;
+        this.processSequences = processSequences;
+        this.unitCategories = unitCategories;
+        this.comments = comments;
+        this.filename = filename;
+    }
+}
+
+export function IContext_$reflection() {
+    return record_type("ARCtrl.Json.ROCrateContext.Assay.IContext", [], IContext, () => [["sdo", string_type], ["arc", string_type], ["Assay", string_type], ["ArcAssay", string_type], ["measurementType", string_type], ["technologyType", string_type], ["technologyPlatform", string_type], ["dataFiles", string_type], ["materials", string_type], ["otherMaterials", string_type], ["samples", string_type], ["characteristicCategories", string_type], ["processSequences", string_type], ["unitCategories", string_type], ["comments", string_type], ["filename", string_type]]);
+}
+
+export const context_jsonvalue = new Json(5, [[["sdo", new Json(0, ["http://schema.org/"])], ["Assay", new Json(0, ["sdo:Dataset"])], ["identifier", new Json(0, ["sdo:identifier"])], ["additionalType", new Json(0, ["sdo:additionalType"])], ["measurementType", new Json(0, ["sdo:variableMeasured"])], ["technologyType", new Json(0, ["sdo:measurementTechnique"])], ["technologyPlatform", new Json(0, ["sdo:measurementMethod"])], ["dataFiles", new Json(0, ["sdo:hasPart"])], ["performers", new Json(0, ["sdo:creator"])], ["processSequences", new Json(0, ["sdo:about"])], ["comments", new Json(0, ["sdo:comment"])], ["filename", new Json(0, ["sdo:url"])]]]);
+