@nfdi4plants/arctrl 1.0.0-alpha6

package/ISA/ISA.Json/Assay.js

@@ -0,0 +1,123 @@
+import { toString, nil, object as object_22 } from "../../fable_modules/Thoth.Json.10.1.0/Encode.fs.js";
+import { ofArray, choose } from "../../fable_modules/fable-library.4.1.4/List.js";
+import { uncurry2, equals } from "../../fable_modules/fable-library.4.1.4/Util.js";
+import { tryInclude } from "./GEncode.js";
+import { Data_decoder, Data_encoder, Sample_decoder, Sample_encoder } from "./Data.js";
+import { MaterialAttribute_decoder, MaterialAttribute_encoder, Material_decoder, Material_encoder } from "./Material.js";
+import { string, list as list_1, object as object_23 } from "../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
+import { AssayMaterials } from "../ISA/JsonTypes/AssayMaterials.js";
+import { URIModule_toString } from "../ISA/JsonTypes/URI.js";
+import { empty, singleton, append, delay, toList } from "../../fable_modules/fable-library.4.1.4/Seq.js";
+import { ConverterOptions__set_IncludeType_Z1FBCCD16, ConverterOptions__set_SetID_Z1FBCCD16, ConverterOptions_$ctor, ConverterOptions__get_IncludeType, ConverterOptions__get_SetID } from "./ConverterOptions.js";
+import { OntologyAnnotation_decoder, OntologyAnnotation_encoder } from "./Ontology.js";
+import { Process_decoder, Process_encoder } from "./Process.js";
+import { decoder as decoder_5, encoder } from "./Comment.js";
+import { fromString, uri } from "./Decode.js";
+import { Assay } from "../ISA/JsonTypes/Assay.js";
+import { ArcAssay } from "../ISA/ArcTypes/ArcTypes.js";
+
+export function AssayMaterials_encoder(options, oa) {
+    return object_22(choose((tupledArg) => {
+        const v = tupledArg[1];
+        if (equals(v, nil)) {
+            return void 0;
+        }
+        else {
+            return [tupledArg[0], v];
+        }
+    }, ofArray([tryInclude("samples", (oa_1) => Sample_encoder(options, oa_1), oa["Samples"]), tryInclude("otherMaterials", (oa_2) => Material_encoder(options, oa_2), oa["OtherMaterials"])])));
+}
+
+export function AssayMaterials_decoder(options) {
+    return (path_2) => ((v) => object_23((get$) => {
+        let objectArg, objectArg_1;
+        return new AssayMaterials((objectArg = get$.Optional, objectArg.Field("samples", (path, value) => list_1((s, json) => Sample_decoder(options, s, json), path, value))), (objectArg_1 = get$.Optional, objectArg_1.Field("otherMaterials", (path_1, value_1) => list_1((s_1, json_1) => Material_decoder(options, s_1, json_1), path_1, value_1))));
+    }, path_2, v));
+}
+
+export function Assay_genID(a) {
+    const matchValue = a.ID;
+    if (matchValue == null) {
+        const matchValue_1 = a.FileName;
+        if (matchValue_1 == null) {
+            return "#EmptyAssay";
+        }
+        else {
+            return matchValue_1;
+        }
+    }
+    else {
+        return URIModule_toString(matchValue);
+    }
+}
+
+export function Assay_encoder(options, oa) {
+    return object_22(choose((tupledArg) => {
+        const v = tupledArg[1];
+        if (equals(v, nil)) {
+            return void 0;
+        }
+        else {
+            return [tupledArg[0], v];
+        }
+    }, toList(delay(() => {
+        let value, s;
+        return append(ConverterOptions__get_SetID(options) ? singleton(["@id", (value = Assay_genID(oa), (typeof value === "string") ? ((s = value, s)) : nil)]) : singleton(tryInclude("@id", (value_2) => {
+            let s_1;
+            const value_3 = value_2;
+            return (typeof value_3 === "string") ? ((s_1 = value_3, s_1)) : nil;
+        }, oa["ID"])), delay(() => {
+            let value_5, s_2;
+            return append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", (value_5 = "Assay", (typeof value_5 === "string") ? ((s_2 = value_5, s_2)) : nil)]) : empty(), delay(() => append(singleton(tryInclude("filename", (value_7) => {
+                let s_3;
+                const value_8 = value_7;
+                return (typeof value_8 === "string") ? ((s_3 = value_8, s_3)) : nil;
+            }, oa["FileName"])), delay(() => append(singleton(tryInclude("measurementType", (oa_1) => OntologyAnnotation_encoder(options, oa_1), oa["MeasurementType"])), delay(() => append(singleton(tryInclude("technologyType", (oa_2) => OntologyAnnotation_encoder(options, oa_2), oa["TechnologyType"])), delay(() => append(singleton(tryInclude("technologyPlatform", (value_10) => {
+                let s_4;
+                const value_11 = value_10;
+                return (typeof value_11 === "string") ? ((s_4 = value_11, s_4)) : nil;
+            }, oa["TechnologyPlatform"])), delay(() => append(singleton(tryInclude("dataFiles", (oa_3) => Data_encoder(options, oa_3), oa["DataFiles"])), delay(() => append(singleton(tryInclude("materials", (oa_4) => AssayMaterials_encoder(options, oa_4), oa["Materials"])), delay(() => append(singleton(tryInclude("characteristicCategories", (oa_5) => MaterialAttribute_encoder(options, oa_5), oa["CharacteristicCategories"])), delay(() => append(singleton(tryInclude("unitCategories", (oa_6) => OntologyAnnotation_encoder(options, oa_6), oa["UnitCategories"])), delay(() => append(singleton(tryInclude("processSequence", (oa_7) => Process_encoder(options, oa_7), oa["ProcessSequence"])), delay(() => singleton(tryInclude("comments", (comment) => encoder(options, comment), oa["Comments"]))))))))))))))))))))));
+        }));
+    }))));
+}
+
+export function Assay_decoder(options) {
+    return (path_7) => ((v) => object_23((get$) => {
+        let objectArg, objectArg_1, arg_5, objectArg_2, arg_7, objectArg_3, objectArg_4, objectArg_5, arg_13, objectArg_6, arg_15, decoder_1, objectArg_7, arg_17, decoder_2, objectArg_8, arg_19, decoder_3, objectArg_9, arg_21, decoder_4, objectArg_10;
+        return new Assay((objectArg = get$.Optional, objectArg.Field("@id", uri)), (objectArg_1 = get$.Optional, objectArg_1.Field("filename", string)), (arg_5 = OntologyAnnotation_decoder(options), (objectArg_2 = get$.Optional, objectArg_2.Field("measurementType", uncurry2(arg_5)))), (arg_7 = OntologyAnnotation_decoder(options), (objectArg_3 = get$.Optional, objectArg_3.Field("technologyType", uncurry2(arg_7)))), (objectArg_4 = get$.Optional, objectArg_4.Field("technologyPlatform", string)), (objectArg_5 = get$.Optional, objectArg_5.Field("dataFiles", (path_2, value_2) => list_1((s_1, json_1) => Data_decoder(options, s_1, json_1), path_2, value_2))), (arg_13 = AssayMaterials_decoder(options), (objectArg_6 = get$.Optional, objectArg_6.Field("materials", uncurry2(arg_13)))), (arg_15 = ((decoder_1 = MaterialAttribute_decoder(options), (path_3) => ((value_3) => list_1(uncurry2(decoder_1), path_3, value_3)))), (objectArg_7 = get$.Optional, objectArg_7.Field("characteristicCategories", uncurry2(arg_15)))), (arg_17 = ((decoder_2 = OntologyAnnotation_decoder(options), (path_4) => ((value_4) => list_1(uncurry2(decoder_2), path_4, value_4)))), (objectArg_8 = get$.Optional, objectArg_8.Field("unitCategories", uncurry2(arg_17)))), (arg_19 = ((decoder_3 = Process_decoder(options), (path_5) => ((value_5) => list_1(uncurry2(decoder_3), path_5, value_5)))), (objectArg_9 = get$.Optional, objectArg_9.Field("processSequence", uncurry2(arg_19)))), (arg_21 = ((decoder_4 = decoder_5(options), (path_6) => ((value_6) => list_1(uncurry2(decoder_4), path_6, value_6)))), (objectArg_10 = get$.Optional, objectArg_10.Field("comments", uncurry2(arg_21)))));
+    }, path_7, v));
+}
+
+export function Assay_fromString(s) {
+    return fromString(uncurry2(Assay_decoder(ConverterOptions_$ctor())), s);
+}
+
+export function Assay_toString(p) {
+    return toString(2, Assay_encoder(ConverterOptions_$ctor(), p));
+}
+
+/**
+ * exports in json-ld format
+ */
+export function Assay_toStringLD(a) {
+    let returnVal;
+    return toString(2, Assay_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), a));
+}
+
+export function ArcAssay_fromString(s) {
+    const arg = fromString(uncurry2(Assay_decoder(ConverterOptions_$ctor())), s);
+    return ArcAssay.fromAssay(arg);
+}
+
+export function ArcAssay_toString(a) {
+    return toString(2, Assay_encoder(ConverterOptions_$ctor(), a.ToAssay()));
+}
+
+/**
+ * exports in json-ld format
+ */
+export function ArcAssay_toStringLD(a) {
+    let returnVal;
+    return toString(2, Assay_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), a.ToAssay()));
+}
+

package/ISA/ISA.Json/Comment.js

@@ -0,0 +1,84 @@
+import { replace } from "../../fable_modules/fable-library.4.1.4/String.js";
+import { value as value_13 } from "../../fable_modules/fable-library.4.1.4/Option.js";
+import { URIModule_toString } from "../ISA/JsonTypes/URI.js";
+import { toString as toString_1, nil, object as object_6 } from "../../fable_modules/Thoth.Json.10.1.0/Encode.fs.js";
+import { choose } from "../../fable_modules/fable-library.4.1.4/List.js";
+import { uncurry2, equals } from "../../fable_modules/fable-library.4.1.4/Util.js";
+import { empty, singleton, append, delay, toList } from "../../fable_modules/fable-library.4.1.4/Seq.js";
+import { ConverterOptions__set_IncludeType_Z1FBCCD16, ConverterOptions__set_SetID_Z1FBCCD16, ConverterOptions_$ctor, ConverterOptions__get_IncludeType, ConverterOptions__get_SetID } from "./ConverterOptions.js";
+import { tryInclude } from "./GEncode.js";
+import { string, object as object_7 } from "../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
+import { fromString as fromString_1, uri } from "./Decode.js";
+import { Comment$ } from "../ISA/JsonTypes/Comment.js";
+
+export function genID(c) {
+    const matchValue = c.ID;
+    if (matchValue == null) {
+        const matchValue_1 = c.Name;
+        if (matchValue_1 == null) {
+            return "#EmptyComment";
+        }
+        else {
+            const n = matchValue_1;
+            const v = (c.Value != null) ? ("_" + replace(value_13(c.Value), " ", "_")) : "";
+            return ("#Comment_" + replace(n, " ", "_")) + v;
+        }
+    }
+    else {
+        return URIModule_toString(matchValue);
+    }
+}
+
+export function encoder(options, comment) {
+    return object_6(choose((tupledArg) => {
+        const v = tupledArg[1];
+        if (equals(v, nil)) {
+            return void 0;
+        }
+        else {
+            return [tupledArg[0], v];
+        }
+    }, toList(delay(() => {
+        let value, s;
+        return append(ConverterOptions__get_SetID(options) ? singleton(["@id", (value = genID(comment), (typeof value === "string") ? ((s = value, s)) : nil)]) : singleton(tryInclude("@id", (value_2) => {
+            let s_1;
+            const value_3 = value_2;
+            return (typeof value_3 === "string") ? ((s_1 = value_3, s_1)) : nil;
+        }, comment["ID"])), delay(() => {
+            let value_5, s_2;
+            return append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", (value_5 = "Comment", (typeof value_5 === "string") ? ((s_2 = value_5, s_2)) : nil)]) : empty(), delay(() => append(singleton(tryInclude("name", (value_7) => {
+                let s_3;
+                const value_8 = value_7;
+                return (typeof value_8 === "string") ? ((s_3 = value_8, s_3)) : nil;
+            }, comment["Name"])), delay(() => singleton(tryInclude("value", (value_10) => {
+                let s_4;
+                const value_11 = value_10;
+                return (typeof value_11 === "string") ? ((s_4 = value_11, s_4)) : nil;
+            }, comment["Value"]))))));
+        }));
+    }))));
+}
+
+export function decoder(options) {
+    return (path_2) => ((v) => object_7((get$) => {
+        let objectArg, objectArg_1, objectArg_2;
+        return new Comment$((objectArg = get$.Optional, objectArg.Field("@id", uri)), (objectArg_1 = get$.Optional, objectArg_1.Field("name", string)), (objectArg_2 = get$.Optional, objectArg_2.Field("value", string)));
+    }, path_2, v));
+}
+
+export function fromString(s) {
+    return fromString_1(uncurry2(decoder(ConverterOptions_$ctor())), s);
+}
+
+export function toString(c) {
+    return toString_1(2, encoder(ConverterOptions_$ctor(), c));
+}
+
+/**
+ * exports in json-ld format
+ */
+export function toStringLD(c) {
+    let returnVal;
+    return toString_1(2, encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), c));
+}
+

package/ISA/ISA.Json/ConverterOptions.js

@@ -0,0 +1,33 @@
+import { class_type } from "../../fable_modules/fable-library.4.1.4/Reflection.js";
+
+export class ConverterOptions {
+    constructor() {
+        this.setID = false;
+        this.includeType = false;
+    }
+}
+
+export function ConverterOptions_$reflection() {
+    return class_type("ARCtrl.ISA.Json.ConverterOptions", void 0, ConverterOptions);
+}
+
+export function ConverterOptions_$ctor() {
+    return new ConverterOptions();
+}
+
+export function ConverterOptions__get_SetID(this$) {
+    return this$.setID;
+}
+
+export function ConverterOptions__set_SetID_Z1FBCCD16(this$, setId) {
+    this$.setID = setId;
+}
+
+export function ConverterOptions__get_IncludeType(this$) {
+    return this$.includeType;
+}
+
+export function ConverterOptions__set_IncludeType_Z1FBCCD16(this$, iT) {
+    this$.includeType = iT;
+}
+

package/ISA/ISA.Json/Data.js

@@ -0,0 +1,271 @@
+import { DataFile } from "../ISA/JsonTypes/DataFile.js";
+import { toString, object as object_10, nil } from "../../fable_modules/Thoth.Json.10.1.0/Encode.fs.js";
+import { list as list_1, object as object_11, string } from "../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
+import { FSharpResult$2 } from "../../fable_modules/fable-library.4.1.4/Choice.js";
+import { ErrorReason } from "../../fable_modules/Thoth.Json.10.1.0/Types.fs.js";
+import { URIModule_toString } from "../ISA/JsonTypes/URI.js";
+import { ofArray, choose } from "../../fable_modules/fable-library.4.1.4/List.js";
+import { uncurry2, equals } from "../../fable_modules/fable-library.4.1.4/Util.js";
+import { empty, singleton, append, delay, toList } from "../../fable_modules/fable-library.4.1.4/Seq.js";
+import { ConverterOptions__set_IncludeType_Z1FBCCD16, ConverterOptions__set_SetID_Z1FBCCD16, ConverterOptions_$ctor, ConverterOptions__get_IncludeType, ConverterOptions__get_SetID } from "./ConverterOptions.js";
+import { tryInclude } from "./GEncode.js";
+import { decoder as decoder_3, encoder } from "./Comment.js";
+import { fromString, uri, hasUnknownFields } from "./Decode.js";
+import { Data } from "../ISA/JsonTypes/Data.js";
+import { replace } from "../../fable_modules/fable-library.4.1.4/String.js";
+import { MaterialAttributeValue_decoder, MaterialAttributeValue_encoder } from "./Material.js";
+import { Source } from "../ISA/JsonTypes/Source.js";
+import { FactorValue_decoder, FactorValue_encoder } from "./Factor.js";
+import { Sample } from "../ISA/JsonTypes/Sample.js";
+
+export function DataFile_encoder(options, value) {
+    if (value instanceof DataFile) {
+        if (value.tag === 1) {
+            return "Derived Data File";
+        }
+        else if (value.tag === 2) {
+            return "Image File";
+        }
+        else {
+            return "Raw Data File";
+        }
+    }
+    else {
+        return nil;
+    }
+}
+
+export function DataFile_decoder(options, s, json) {
+    const matchValue = string(s, json);
+    if (matchValue.tag === 1) {
+        return new FSharpResult$2(1, [matchValue.fields[0]]);
+    }
+    else {
+        switch (matchValue.fields[0]) {
+            case "Raw Data File":
+                return new FSharpResult$2(0, [new DataFile(0, [])]);
+            case "Derived Data File":
+                return new FSharpResult$2(0, [new DataFile(1, [])]);
+            case "Image File":
+                return new FSharpResult$2(0, [new DataFile(2, [])]);
+            default: {
+                const s_1 = matchValue.fields[0];
+                return new FSharpResult$2(1, [[`Could not parse ${s_1}.`, new ErrorReason(0, [s_1, nil])]]);
+            }
+        }
+    }
+}
+
+export function Data_genID(d) {
+    const matchValue = d.ID;
+    if (matchValue == null) {
+        const matchValue_1 = d.Name;
+        if (matchValue_1 == null) {
+            return "#EmptyData";
+        }
+        else {
+            return matchValue_1;
+        }
+    }
+    else {
+        return URIModule_toString(matchValue);
+    }
+}
+
+export function Data_encoder(options, oa) {
+    return object_10(choose((tupledArg) => {
+        const v = tupledArg[1];
+        if (equals(v, nil)) {
+            return void 0;
+        }
+        else {
+            return [tupledArg[0], v];
+        }
+    }, toList(delay(() => {
+        let value, s;
+        return append(ConverterOptions__get_SetID(options) ? singleton(["@id", (value = Data_genID(oa), (typeof value === "string") ? ((s = value, s)) : nil)]) : singleton(tryInclude("@id", (value_2) => {
+            let s_1;
+            const value_3 = value_2;
+            return (typeof value_3 === "string") ? ((s_1 = value_3, s_1)) : nil;
+        }, oa["ID"])), delay(() => {
+            let value_5, s_2;
+            return append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", (value_5 = "Data", (typeof value_5 === "string") ? ((s_2 = value_5, s_2)) : nil)]) : empty(), delay(() => append(singleton(tryInclude("name", (value_7) => {
+                let s_3;
+                const value_8 = value_7;
+                return (typeof value_8 === "string") ? ((s_3 = value_8, s_3)) : nil;
+            }, oa["Name"])), delay(() => append(singleton(tryInclude("type", (value_10) => DataFile_encoder(options, value_10), oa["DataType"])), delay(() => singleton(tryInclude("comments", (comment) => encoder(options, comment), oa["Comments"]))))))));
+        }));
+    }))));
+}
+
+export function Data_decoder(options, s, json) {
+    if (hasUnknownFields(ofArray(["@id", "name", "type", "comments", "@type"]), json)) {
+        return new FSharpResult$2(1, [["Unknown fields in Data", new ErrorReason(0, [s, nil])]]);
+    }
+    else {
+        return object_11((get$) => {
+            let objectArg, objectArg_1, objectArg_2, arg_7, decoder, objectArg_3;
+            return new Data((objectArg = get$.Optional, objectArg.Field("@id", uri)), (objectArg_1 = get$.Optional, objectArg_1.Field("name", string)), (objectArg_2 = get$.Optional, objectArg_2.Field("type", (s_2, json_2) => DataFile_decoder(options, s_2, json_2))), (arg_7 = ((decoder = decoder_3(options), (path_1) => ((value_1) => list_1(uncurry2(decoder), path_1, value_1)))), (objectArg_3 = get$.Optional, objectArg_3.Field("comments", uncurry2(arg_7)))));
+        }, s, json);
+    }
+}
+
+export function Data_fromString(s) {
+    let options;
+    return fromString(uncurry2((options = ConverterOptions_$ctor(), (s_1) => ((json) => Data_decoder(options, s_1, json)))), s);
+}
+
+export function Data_toString(m) {
+    return toString(2, Data_encoder(ConverterOptions_$ctor(), m));
+}
+
+/**
+ * exports in json-ld format
+ */
+export function Data_toStringLD(d) {
+    let returnVal;
+    return toString(2, Data_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), d));
+}
+
+export function Source_genID(s) {
+    const matchValue = s.ID;
+    if (matchValue == null) {
+        const matchValue_1 = s.Name;
+        if (matchValue_1 == null) {
+            return "#EmptySource";
+        }
+        else {
+            return "#Source_" + replace(matchValue_1, " ", "_");
+        }
+    }
+    else {
+        return URIModule_toString(matchValue);
+    }
+}
+
+export function Source_encoder(options, oa) {
+    return object_10(choose((tupledArg) => {
+        const v = tupledArg[1];
+        if (equals(v, nil)) {
+            return void 0;
+        }
+        else {
+            return [tupledArg[0], v];
+        }
+    }, toList(delay(() => {
+        let value, s_1;
+        return append(ConverterOptions__get_SetID(options) ? singleton(["@id", (value = Source_genID(oa), (typeof value === "string") ? ((s_1 = value, s_1)) : nil)]) : singleton(tryInclude("@id", (value_2) => {
+            let s_2;
+            const value_3 = value_2;
+            return (typeof value_3 === "string") ? ((s_2 = value_3, s_2)) : nil;
+        }, oa["ID"])), delay(() => {
+            let value_5, s_3;
+            return append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", (value_5 = "Source", (typeof value_5 === "string") ? ((s_3 = value_5, s_3)) : nil)]) : empty(), delay(() => append(singleton(tryInclude("name", (value_7) => {
+                let s_4;
+                const value_8 = value_7;
+                return (typeof value_8 === "string") ? ((s_4 = value_8, s_4)) : nil;
+            }, oa["Name"])), delay(() => singleton(tryInclude("characteristics", (oa_1) => MaterialAttributeValue_encoder(options, oa_1), oa["Characteristics"]))))));
+        }));
+    }))));
+}
+
+export function Source_decoder(options, s, json) {
+    if (hasUnknownFields(ofArray(["@id", "name", "characteristics", "@type"]), json)) {
+        return new FSharpResult$2(1, [["Unknown fields in Source", new ErrorReason(0, [s, nil])]]);
+    }
+    else {
+        return object_11((get$) => {
+            let objectArg, objectArg_1, arg_5, decoder, objectArg_2;
+            return new Source((objectArg = get$.Optional, objectArg.Field("@id", uri)), (objectArg_1 = get$.Optional, objectArg_1.Field("name", string)), (arg_5 = ((decoder = MaterialAttributeValue_decoder(options), (path_1) => ((value_1) => list_1(uncurry2(decoder), path_1, value_1)))), (objectArg_2 = get$.Optional, objectArg_2.Field("characteristics", uncurry2(arg_5)))));
+        }, s, json);
+    }
+}
+
+export function Source_fromString(s) {
+    let options;
+    return fromString(uncurry2((options = ConverterOptions_$ctor(), (s_1) => ((json) => Source_decoder(options, s_1, json)))), s);
+}
+
+export function Source_toString(m) {
+    return toString(2, Source_encoder(ConverterOptions_$ctor(), m));
+}
+
+/**
+ * exports in json-ld format
+ */
+export function Source_toStringLD(s) {
+    let returnVal;
+    return toString(2, Source_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), s));
+}
+
+export function Sample_genID(s) {
+    const matchValue = s.ID;
+    if (matchValue == null) {
+        const matchValue_1 = s.Name;
+        if (matchValue_1 == null) {
+            return "#EmptySample";
+        }
+        else {
+            return "#Sample_" + replace(matchValue_1, " ", "_");
+        }
+    }
+    else {
+        return matchValue;
+    }
+}
+
+export function Sample_encoder(options, oa) {
+    return object_10(choose((tupledArg) => {
+        const v = tupledArg[1];
+        if (equals(v, nil)) {
+            return void 0;
+        }
+        else {
+            return [tupledArg[0], v];
+        }
+    }, toList(delay(() => {
+        let value, s_1;
+        return append(ConverterOptions__get_SetID(options) ? singleton(["@id", (value = Sample_genID(oa), (typeof value === "string") ? ((s_1 = value, s_1)) : nil)]) : singleton(tryInclude("@id", (value_2) => {
+            let s_2;
+            const value_3 = value_2;
+            return (typeof value_3 === "string") ? ((s_2 = value_3, s_2)) : nil;
+        }, oa["ID"])), delay(() => {
+            let value_5, s_3;
+            return append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", (value_5 = "Sample", (typeof value_5 === "string") ? ((s_3 = value_5, s_3)) : nil)]) : empty(), delay(() => append(singleton(tryInclude("name", (value_7) => {
+                let s_4;
+                const value_8 = value_7;
+                return (typeof value_8 === "string") ? ((s_4 = value_8, s_4)) : nil;
+            }, oa["Name"])), delay(() => append(singleton(tryInclude("characteristics", (oa_1) => MaterialAttributeValue_encoder(options, oa_1), oa["Characteristics"])), delay(() => append(singleton(tryInclude("factorValues", (oa_2) => FactorValue_encoder(options, oa_2), oa["FactorValues"])), delay(() => singleton(tryInclude("derivesFrom", (oa_3) => Source_encoder(options, oa_3), oa["DerivesFrom"]))))))))));
+        }));
+    }))));
+}
+
+export function Sample_decoder(options, s, json) {
+    if (hasUnknownFields(ofArray(["@id", "name", "characteristics", "factorValues", "derivesFrom", "@type"]), json)) {
+        return new FSharpResult$2(1, [["Unknown fields in Sample", new ErrorReason(0, [s, nil])]]);
+    }
+    else {
+        return object_11((get$) => {
+            let objectArg, objectArg_1, arg_5, decoder, objectArg_2, arg_7, decoder_1, objectArg_3, objectArg_4;
+            return new Sample((objectArg = get$.Optional, objectArg.Field("@id", uri)), (objectArg_1 = get$.Optional, objectArg_1.Field("name", string)), (arg_5 = ((decoder = MaterialAttributeValue_decoder(options), (path_1) => ((value_1) => list_1(uncurry2(decoder), path_1, value_1)))), (objectArg_2 = get$.Optional, objectArg_2.Field("characteristics", uncurry2(arg_5)))), (arg_7 = ((decoder_1 = FactorValue_decoder(options), (path_2) => ((value_2) => list_1(uncurry2(decoder_1), path_2, value_2)))), (objectArg_3 = get$.Optional, objectArg_3.Field("factorValues", uncurry2(arg_7)))), (objectArg_4 = get$.Optional, objectArg_4.Field("derivesFrom", (path_3, value_3) => list_1((s_2, json_2) => Source_decoder(options, s_2, json_2), path_3, value_3))));
+        }, s, json);
+    }
+}
+
+export function Sample_fromString(s) {
+    let options;
+    return fromString(uncurry2((options = ConverterOptions_$ctor(), (s_1) => ((json) => Sample_decoder(options, s_1, json)))), s);
+}
+
+export function Sample_toString(m) {
+    return toString(2, Sample_encoder(ConverterOptions_$ctor(), m));
+}
+
+/**
+ * exports in json-ld format
+ */
+export function Sample_toStringLD(s) {
+    let returnVal;
+    return toString(2, Sample_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), s));
+}
+

package/ISA/ISA.Json/Decode.js

@@ -0,0 +1,46 @@
+import { fromString as fromString_1, string } from "../../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
+import { FSharpResult$2 } from "../../fable_modules/fable-library.4.1.4/Choice.js";
+import { printf, toText } from "../../fable_modules/fable-library.4.1.4/String.js";
+import { ErrorReason } from "../../fable_modules/Thoth.Json.10.1.0/Types.fs.js";
+import { contains, exists } from "../../fable_modules/fable-library.4.1.4/Seq.js";
+import { stringHash } from "../../fable_modules/fable-library.4.1.4/Util.js";
+
+export function isURI(s) {
+    return true;
+}
+
+export function uri(s, json) {
+    const matchValue = string(s, json);
+    if (matchValue.tag === 1) {
+        return new FSharpResult$2(1, [matchValue.fields[0]]);
+    }
+    else if (isURI(matchValue.fields[0])) {
+        return new FSharpResult$2(0, [matchValue.fields[0]]);
+    }
+    else {
+        const s_3 = matchValue.fields[0];
+        return new FSharpResult$2(1, [[s_3, new ErrorReason(6, [toText(printf("Expected URI, got %s"))(s_3)])]]);
+    }
+}
+
+export function fromString(decoder, s) {
+    const matchValue = fromString_1(decoder, s);
+    if (matchValue.tag === 1) {
+        throw new Error(toText(printf("Error decoding string: %s"))(matchValue.fields[0]));
+    }
+    else {
+        return matchValue.fields[0];
+    }
+}
+
+export function getFieldNames(json) {
+    return Object.getOwnPropertyNames(json);
+}
+
+export function hasUnknownFields(knownFields, json) {
+    return exists((x) => !contains(x, knownFields, {
+        Equals: (x_1, y) => (x_1 === y),
+        GetHashCode: stringHash,
+    }), getFieldNames(json));
+}
+