@nfdi4plants/arctrl 1.2.0 → 2.0.0-alpha.2

package/{ISA/ISA.Json/ArcTypes → Json/Table}/ArcTable.js

@@ -1,25 +1,26 @@
-import { toArray, collect, empty, map, singleton, append, delay, toList } from "../../../fable_modules/fable-library-js.4.13.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 { 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.13.0/Map.js";
-import { safeHash, int32ToString, equals, arrayHash, equalArrays, compareArrays } from "../../../fable_modules/fable-library-js.4.13.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 { defaultArg } from "../../../fable_modules/fable-library-js.4.13.0/Option.js";
-import { empty as empty_1 } from "../../../fable_modules/fable-library-js.4.13.0/List.js";
-import { Dictionary } from "../../../fable_modules/fable-library-js.4.13.0/MutableMap.js";
-import { ArcTable } from "../../ISA/ArcTypes/ArcTable.js";
-import { CellTable_arrayFromMap, CellTable_encoder, CellTable_decoder, CellTable_decodeCell, CellTable_encodeCell } from "./CellTable.js";
-import { addToDict, getItemFromDict } from "../../../fable_modules/fable-library-js.4.13.0/MapUtil.js";
-import { rangeDouble } from "../../../fable_modules/fable-library-js.4.13.0/Range.js";
-import { FSharpResult$2 } from "../../../fable_modules/fable-library-js.4.13.0/Result.js";
-import { fill, setItem, fold, iterateIndexed } from "../../../fable_modules/fable-library-js.4.13.0/Array.js";
-import { StringTable_arrayFromMap, StringTable_encoder, StringTable_decoder, StringTable_decodeString, StringTable_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.13.0/String.js";
-import { toString } from "../../../fable_modules/Thoth.Json.JavaScript.0.1.0/Encode.fs.js";
-import { OATable_arrayFromMap, OATable_encoder, OATable_decoder } from "./OATable.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) => {
@@ -44,9 +45,9 @@ export const ArcTable_decoder = object((get$) => {
     return ArcTable.create((objectArg_2 = get$.Required, objectArg_2.Field("name", string)), decodedHeader, decodedValues);
 });
 
-export function ArcTable_compressedColumnEncoder(columnIndex, rowCount, cellTable, table) {
+export function ArcTable_encoderCompressedColumn(columnIndex, rowCount, cellTable, table) {
     if (table.Headers[columnIndex].IsIOType ? true : (rowCount < 100)) {
-        return new Json(6, [toArray(delay(() => map((r) => CellTable_encodeCell(cellTable, getItemFromDict(table.Values, [columnIndex, r])), rangeDouble(0, 1, rowCount - 1))))]);
+        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]);
@@ -54,22 +55,22 @@ export function ArcTable_compressedColumnEncoder(columnIndex, rowCount, cellTabl
         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", CellTable_encodeCell(cellTable, current)]]])), delay(() => {
+            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", CellTable_encodeCell(cellTable, current)]]]));
+            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_compressedColumnDecoder(cellTable, table, columnIndex) {
+export function ArcTable_decoderCompressedColumn(cellTable, table, columnIndex) {
     return {
         Decode(helper, column) {
-            const matchValue = array_1(CellTable_decodeCell(cellTable)).Decode(helper, column);
+            const matchValue = array_1(decodeCell(cellTable)).Decode(helper, column);
             if (matchValue.tag === 1) {
                 const rangeDecoder = object((get$) => {
                     let from;
@@ -79,7 +80,7 @@ export function ArcTable_compressedColumnDecoder(cellTable, table, columnIndex)
                     const objectArg_1 = get$.Required;
                     to_ = objectArg_1.Field("t", int);
                     let value;
-                    const arg_5 = CellTable_decodeCell(cellTable);
+                    const arg_5 = decodeCell(cellTable);
                     const objectArg_2 = get$.Required;
                     value = objectArg_2.Field("v", arg_5);
                     for (let i = from; i <= to_; i++) {
@@ -131,11 +132,11 @@ export function ArcTable_arrayi(decoderi) {
     };
 }
 
-export function ArcTable_compressedEncoder(stringTable, oaTable, cellTable, table) {
-    return new Json(5, [toList(delay(() => append(singleton(["n", StringTable_encodeString(stringTable, table.Name)]), delay(() => append((table.Headers.length !== 0) ? singleton(["h", list(toList(delay(() => map(CompositeHeader_encoder, table.Headers))))]) : empty(), delay(() => {
+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_compressedColumnEncoder(c, rowCount, cellTable, table), rangeDouble(0, 1, table.ColumnCount - 1))))])]);
+            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();
@@ -143,23 +144,23 @@ export function ArcTable_compressedEncoder(stringTable, oaTable, cellTable, tabl
     }))))))]);
 }
 
-export function ArcTable_compressedDecoder(stringTable, oaTable, cellTable) {
+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 = StringTable_decodeString(stringTable), (objectArg_1 = get$.Required, objectArg_1.Field("n", arg_3))), decodedHeader, new Dictionary([], {
+        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_compressedColumnDecoder(cellTable, table, columnIndex)), (objectArg_2 = get$.Optional, objectArg_2.Field("c", arg_5)));
+        (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_ISA_ArcTable__ArcTable_fromJsonString_Static_Z721C83C5(jsonString) {
-    const matchValue = fromString(ArcTable_decoder, jsonString);
+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]));
     }
@@ -168,25 +169,28 @@ export function ARCtrl_ISA_ArcTable__ArcTable_fromJsonString_Static_Z721C83C5(js
     }
 }
 
-export function ARCtrl_ISA_ArcTable__ArcTable_ToJsonString_71136F3F(this$, spaces) {
-    return toString(defaultArg(spaces, 0), ArcTable_encoder(this$));
+export function ARCtrl_ArcTable__ArcTable_toJsonString_Static_71136F3F(spaces) {
+    return (obj) => {
+        const value = ArcTable_encoder(obj);
+        return toString(defaultSpaces(spaces), value);
+    };
 }
 
-export function ARCtrl_ISA_ArcTable__ArcTable_toJsonString_Static_1B2566EA(a) {
-    return ARCtrl_ISA_ArcTable__ArcTable_ToJsonString_71136F3F(a);
+export function ARCtrl_ArcTable__ArcTable_ToJsonString_71136F3F(this$, spaces) {
+    return ARCtrl_ArcTable__ArcTable_toJsonString_Static_71136F3F(unwrap(spaces))(this$);
 }
 
-export function ARCtrl_ISA_ArcTable__ArcTable_fromCompressedJsonString_Static_Z721C83C5(jsonString) {
+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", StringTable_decoder);
+        stringTable = objectArg.Field("stringTable", decoder_2);
         let oaTable;
-        const arg_3 = OATable_decoder(stringTable);
+        const arg_3 = decoder_3(stringTable);
         const objectArg_1 = get$.Required;
         oaTable = objectArg_1.Field("oaTable", arg_3);
-        const arg_7 = ArcTable_compressedDecoder(stringTable, oaTable, (arg_5 = CellTable_decoder(stringTable, oaTable), (objectArg_2 = get$.Required, objectArg_2.Field("cellTable", arg_5))));
+        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);
@@ -198,8 +202,8 @@ export function ARCtrl_ISA_ArcTable__ArcTable_fromCompressedJsonString_Static_Z7
     }
 }
 
-export function ARCtrl_ISA_ArcTable__ArcTable_ToCompressedJsonString_71136F3F(this$, spaces) {
-    const spaces_1 = defaultArg(spaces, 0) | 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,
@@ -209,11 +213,11 @@ export function ARCtrl_ISA_ArcTable__ArcTable_ToCompressedJsonString_71136F3F(th
         Equals: equals,
         GetHashCode: safeHash,
     });
-    const arcTable = ArcTable_compressedEncoder(stringTable, oaTable, cellTable, this$);
-    return toString(spaces_1, new Json(5, [[["cellTable", CellTable_encoder(stringTable, oaTable, CellTable_arrayFromMap(cellTable))], ["oaTable", OATable_encoder(stringTable, OATable_arrayFromMap(oaTable))], ["stringTable", StringTable_encoder(StringTable_arrayFromMap(stringTable))], ["table", arcTable]]]));
+    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_ISA_ArcTable__ArcTable_toCompressedJsonString_Static_1B2566EA(a) {
-    return ARCtrl_ISA_ArcTable__ArcTable_ToCompressedJsonString_71136F3F(a);
+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/{ISA/ISA.Json/ArcTypes → Json/Table}/CompositeHeader.js

@@ -1,18 +1,18 @@
-import { OntologyAnnotation_decoder, OntologyAnnotation_encoder } from "../Ontology.js";
-import { ConverterOptions_$ctor } from "../ConverterOptions.js";
-import { empty, singleton } from "../../../fable_modules/fable-library-js.4.13.0/List.js";
+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 "../../ISA/ArcTypes/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.13.0/String.js";
-import { toString } from "../../../fable_modules/Thoth.Json.JavaScript.0.1.0/Encode.fs.js";
-import { defaultArg } from "../../../fable_modules/fable-library-js.4.13.0/Option.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 = (oa) => OntologyAnnotation_encoder(ConverterOptions_$ctor(), oa);
+    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])]]]);
 }
@@ -22,7 +22,7 @@ export const CompositeHeader_decoder = object((get$) => {
     const objectArg = get$.Required;
     headerType = objectArg.Field("headertype", string);
     const oa = () => {
-        const arg_3 = index(0, OntologyAnnotation_decoder(ConverterOptions_$ctor()));
+        const arg_3 = index(0, OntologyAnnotation_decoder);
         const objectArg_1 = get$.Required;
         return objectArg_1.Field("values", arg_3);
     };
@@ -34,8 +34,8 @@ export const CompositeHeader_decoder = object((get$) => {
     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_ISA_CompositeHeader__CompositeHeader_fromJsonString_Static_Z721C83C5(jsonString) {
-    const matchValue = fromString(CompositeHeader_decoder, jsonString);
+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]));
     }
@@ -44,11 +44,14 @@ export function ARCtrl_ISA_CompositeHeader__CompositeHeader_fromJsonString_Stati
     }
 }
 
-export function ARCtrl_ISA_CompositeHeader__CompositeHeader_ToJsonString_71136F3F(this$, spaces) {
-    return toString(defaultArg(spaces, 0), CompositeHeader_encoder(this$));
+export function ARCtrl_CompositeHeader__CompositeHeader_toJsonString_Static_71136F3F(spaces) {
+    return (obj) => {
+        const value = CompositeHeader_encoder(obj);
+        return toString(defaultSpaces(spaces), value);
+    };
 }
 
-export function ARCtrl_ISA_CompositeHeader__CompositeHeader_toJsonString_Static_Z331CE692(a) {
-    return ARCtrl_ISA_CompositeHeader__CompositeHeader_ToJsonString_71136F3F(a);
+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));
+}
+