@nfdi4plants/arctrl 1.2.0 → 2.0.0-alpha.2

package/ISA/ISA.Json/Process.js

@@ -1,305 +0,0 @@
-import { printf, toText, replace } from "../../fable_modules/fable-library-js.4.13.0/String.js";
-import { ProtocolParameter } from "../ISA/JsonTypes/ProtocolParameter.js";
-import { Value } from "../ISA/JsonTypes/Value.js";
-import { map, ofArray, choose } from "../../fable_modules/fable-library-js.4.13.0/List.js";
-import { equals } from "../../fable_modules/fable-library-js.4.13.0/Util.js";
-import { Json } from "../../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
-import { empty, singleton, append, delay, toList } from "../../fable_modules/fable-library-js.4.13.0/Seq.js";
-import { ConverterOptions__set_IncludeContext_Z1FBCCD16, ConverterOptions__set_IncludeType_Z1FBCCD16, ConverterOptions__set_SetID_Z1FBCCD16, ConverterOptions_$ctor, ConverterOptions__get_IncludeContext, ConverterOptions__get_IncludeType, ConverterOptions__get_SetID } from "./ConverterOptions.js";
-import { list as list_1 } from "../../fable_modules/Thoth.Json.Core.0.2.1/Encode.fs.js";
-import { tryIncludeList, tryInclude } from "./GEncode.js";
-import { Protocol_decoder, Protocol_encoder, ProtocolParameter_decoder, ProtocolParameter_encoder } from "./Protocol.js";
-import { Value_decoder, Value_encoder } from "./Factor.js";
-import { OntologyAnnotation_decoder, OntologyAnnotation_encoder } from "./Ontology.js";
-import { context_jsonvalue } from "./context/rocrate/isa_process_parameter_value_context.js";
-import { list as list_2, string, object } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
-import { ProcessParameterValue } from "../ISA/JsonTypes/ProcessParameterValue.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 { Data_decoder, Sample_decoder, Source_decoder, Source_encoder, Data_encoder, Sample_encoder } from "./Data.js";
-import { Material_decoder, Material_encoder } from "./Material.js";
-import { FSharpResult$2 } from "../../fable_modules/fable-library-js.4.13.0/Result.js";
-import { ProcessInput } from "../ISA/JsonTypes/ProcessInput.js";
-import { ProcessOutput } from "../ISA/JsonTypes/ProcessOutput.js";
-import { URIModule_toString } from "../ISA/JsonTypes/URI.js";
-import { decoder as decoder_1, encoder } from "./Comment.js";
-import { context_jsonvalue as context_jsonvalue_1 } from "./context/rocrate/isa_process_context.js";
-import { uri } from "./Decode.js";
-import { Process } from "../ISA/JsonTypes/Process.js";
-
-export function ProcessParameterValue_genID(p) {
-    const matchValue = p.Value;
-    const matchValue_1 = p.Category;
-    let matchResult, c, v;
-    if (matchValue != null) {
-        if (matchValue_1 != null) {
-            matchResult = 0;
-            c = matchValue_1;
-            v = matchValue;
-        }
-        else {
-            matchResult = 1;
-        }
-    }
-    else {
-        matchResult = 1;
-    }
-    switch (matchResult) {
-        case 0:
-            return (("#Param_" + replace(ProtocolParameter.getNameText(c), " ", "_")) + "_") + replace(Value.getText(v), " ", "_");
-        default:
-            return "#EmptyParameterValue";
-    }
-}
-
-export function ProcessParameterValue_encoder(options, oa) {
-    return new Json(5, [choose((tupledArg) => {
-        const v = tupledArg[1];
-        if (equals(v, new Json(3, []))) {
-            return void 0;
-        }
-        else {
-            return [tupledArg[0], v];
-        }
-    }, toList(delay(() => append(ConverterOptions__get_SetID(options) ? singleton(["@id", new Json(0, [ProcessParameterValue_genID(oa)])]) : empty(), delay(() => append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", list_1(ofArray([new Json(0, ["ProcessParameterValue"]), new Json(0, ["ArcProcessParameterValue"])]))]) : empty(), delay(() => append(singleton(tryInclude("category", (oa_1) => ProtocolParameter_encoder(options, oa_1), oa.Category)), delay(() => append(singleton(tryInclude("value", (value_3) => Value_encoder(options, value_3), oa.Value)), delay(() => append(singleton(tryInclude("unit", (oa_2) => OntologyAnnotation_encoder(options, oa_2), oa.Unit)), delay(() => (ConverterOptions__get_IncludeContext(options) ? singleton(["@context", context_jsonvalue]) : empty()))))))))))))))]);
-}
-
-export function ProcessParameterValue_decoder(options) {
-    return object((get$) => {
-        let arg_1, objectArg, arg_3, objectArg_1, arg_5, objectArg_2;
-        return new ProcessParameterValue((arg_1 = ProtocolParameter_decoder(options), (objectArg = get$.Optional, objectArg.Field("category", arg_1))), (arg_3 = Value_decoder(options), (objectArg_1 = get$.Optional, objectArg_1.Field("value", arg_3))), (arg_5 = OntologyAnnotation_decoder(options), (objectArg_2 = get$.Optional, objectArg_2.Field("unit", arg_5))));
-    });
-}
-
-export function ProcessParameterValue_fromJsonString(s) {
-    const matchValue = fromString(ProcessParameterValue_decoder(ConverterOptions_$ctor()), s);
-    if (matchValue.tag === 1) {
-        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
-    }
-    else {
-        return matchValue.fields[0];
-    }
-}
-
-export function ProcessParameterValue_toJsonString(p) {
-    return toString(2, ProcessParameterValue_encoder(ConverterOptions_$ctor(), p));
-}
-
-/**
- * exports in json-ld format
- */
-export function ProcessParameterValue_toJsonldString(p) {
-    let returnVal;
-    return toString(2, ProcessParameterValue_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), p));
-}
-
-export function ProcessParameterValue_toJsonldStringWithContext(a) {
-    let returnVal;
-    return toString(2, ProcessParameterValue_encoder((returnVal = ConverterOptions_$ctor(), (((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), ConverterOptions__set_IncludeContext_Z1FBCCD16(returnVal, true)), returnVal)), a));
-}
-
-export function ProcessInput_encoder(options, value) {
-    switch (value.tag) {
-        case 1:
-            return Sample_encoder(options, value.fields[0]);
-        case 2:
-            return Data_encoder(options, value.fields[0]);
-        case 3:
-            return Material_encoder(options, value.fields[0]);
-        default:
-            return Source_encoder(options, value.fields[0]);
-    }
-}
-
-export function ProcessInput_decoder(options) {
-    return {
-        Decode(s, json) {
-            const matchValue = Source_decoder(options).Decode(s, json);
-            if (matchValue.tag === 1) {
-                const matchValue_1 = Sample_decoder(options).Decode(s, json);
-                if (matchValue_1.tag === 1) {
-                    const matchValue_2 = Data_decoder(options).Decode(s, json);
-                    if (matchValue_2.tag === 1) {
-                        const matchValue_3 = Material_decoder(options).Decode(s, json);
-                        return (matchValue_3.tag === 1) ? (new FSharpResult$2(1, [matchValue_3.fields[0]])) : (new FSharpResult$2(0, [new ProcessInput(3, [matchValue_3.fields[0]])]));
-                    }
-                    else {
-                        return new FSharpResult$2(0, [new ProcessInput(2, [matchValue_2.fields[0]])]);
-                    }
-                }
-                else {
-                    return new FSharpResult$2(0, [new ProcessInput(1, [matchValue_1.fields[0]])]);
-                }
-            }
-            else {
-                return new FSharpResult$2(0, [new ProcessInput(0, [matchValue.fields[0]])]);
-            }
-        },
-    };
-}
-
-export function ProcessInput_fromJsonString(s) {
-    const matchValue = fromString(ProcessInput_decoder(ConverterOptions_$ctor()), s);
-    if (matchValue.tag === 1) {
-        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
-    }
-    else {
-        return matchValue.fields[0];
-    }
-}
-
-export function ProcessInput_toJsonString(m) {
-    return toString(2, ProcessInput_encoder(ConverterOptions_$ctor(), m));
-}
-
-export function ProcessInput_toJsonldString(m) {
-    let returnVal;
-    return toString(2, ProcessInput_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), m));
-}
-
-export function ProcessInput_toJsonldStringWithContext(a) {
-    let returnVal;
-    return toString(2, ProcessInput_encoder((returnVal = ConverterOptions_$ctor(), (((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), ConverterOptions__set_IncludeContext_Z1FBCCD16(returnVal, true)), returnVal)), a));
-}
-
-export function ProcessOutput_encoder(options, value) {
-    switch (value.tag) {
-        case 1:
-            return Data_encoder(options, value.fields[0]);
-        case 2:
-            return Material_encoder(options, value.fields[0]);
-        default:
-            return Sample_encoder(options, value.fields[0]);
-    }
-}
-
-export function ProcessOutput_decoder(options) {
-    return {
-        Decode(s, json) {
-            const matchValue = Sample_decoder(options).Decode(s, json);
-            if (matchValue.tag === 1) {
-                const matchValue_1 = Data_decoder(options).Decode(s, json);
-                if (matchValue_1.tag === 1) {
-                    const matchValue_2 = Material_decoder(options).Decode(s, json);
-                    return (matchValue_2.tag === 1) ? (new FSharpResult$2(1, [matchValue_2.fields[0]])) : (new FSharpResult$2(0, [new ProcessOutput(2, [matchValue_2.fields[0]])]));
-                }
-                else {
-                    return new FSharpResult$2(0, [new ProcessOutput(1, [matchValue_1.fields[0]])]);
-                }
-            }
-            else {
-                return new FSharpResult$2(0, [new ProcessOutput(0, [matchValue.fields[0]])]);
-            }
-        },
-    };
-}
-
-export function ProcessOutput_fromJsonString(s) {
-    const matchValue = fromString(ProcessOutput_decoder(ConverterOptions_$ctor()), s);
-    if (matchValue.tag === 1) {
-        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
-    }
-    else {
-        return matchValue.fields[0];
-    }
-}
-
-export function ProcessOutput_toJsonString(m) {
-    return toString(2, ProcessOutput_encoder(ConverterOptions_$ctor(), m));
-}
-
-export function ProcessOutput_toJsonldStringWithContext(a) {
-    let returnVal;
-    return toString(2, ProcessOutput_encoder((returnVal = ConverterOptions_$ctor(), (((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), ConverterOptions__set_IncludeContext_Z1FBCCD16(returnVal, true)), returnVal)), a));
-}
-
-export function Process_genID(p) {
-    const matchValue = p.ID;
-    if (matchValue == null) {
-        const matchValue_1 = p.Name;
-        if (matchValue_1 == null) {
-            return "#EmptyProcess";
-        }
-        else {
-            return "#Process_" + replace(matchValue_1, " ", "_");
-        }
-    }
-    else {
-        return URIModule_toString(matchValue);
-    }
-}
-
-export function Process_encoder(options, studyName, assayName, oa) {
-    return new Json(5, [choose((tupledArg) => {
-        const v = tupledArg[1];
-        if (equals(v, new Json(3, []))) {
-            return void 0;
-        }
-        else {
-            return [tupledArg[0], v];
-        }
-    }, toList(delay(() => append(ConverterOptions__get_SetID(options) ? singleton(["@id", new Json(0, [Process_genID(oa)])]) : singleton(tryInclude("@id", (value_1) => (new Json(0, [value_1])), oa.ID)), delay(() => append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", list_1(ofArray([new Json(0, ["Process"]), new Json(0, ["ArcProcess"])]))]) : empty(), delay(() => append(singleton(tryInclude("name", (value_5) => (new Json(0, [value_5])), oa.Name)), delay(() => append(singleton(tryInclude("executesProtocol", (oa_1) => Protocol_encoder(options, studyName, assayName, oa.Name, oa_1), oa.ExecutesProtocol)), delay(() => append(singleton(tryIncludeList("parameterValues", (oa_2) => ProcessParameterValue_encoder(options, oa_2), oa.ParameterValues)), delay(() => append(singleton(tryInclude("performer", (value_7) => (new Json(0, [value_7])), oa.Performer)), delay(() => append(singleton(tryInclude("date", (value_9) => (new Json(0, [value_9])), oa.Date)), delay(() => append(singleton(tryInclude("previousProcess", (oa_3) => Process_encoder(options, studyName, assayName, oa_3), oa.PreviousProcess)), delay(() => append(singleton(tryInclude("nextProcess", (oa_4) => Process_encoder(options, studyName, assayName, oa_4), oa.NextProcess)), delay(() => append(singleton(tryIncludeList("inputs", (value_11) => ProcessInput_encoder(options, value_11), oa.Inputs)), delay(() => append(singleton(tryIncludeList("outputs", (value_12) => ProcessOutput_encoder(options, value_12), oa.Outputs)), delay(() => append(singleton(tryIncludeList("comments", (comment) => encoder(options, comment), oa.Comments)), delay(() => (ConverterOptions__get_IncludeContext(options) ? singleton(["@context", context_jsonvalue_1]) : empty()))))))))))))))))))))))))))))]);
-}
-
-export function Process_decoder(options) {
-    return object((get$) => {
-        let objectArg, objectArg_1, arg_5, objectArg_2, arg_7, objectArg_3, objectArg_4, objectArg_5, arg_13, objectArg_6, arg_15, objectArg_7, arg_17, objectArg_8, arg_19, objectArg_9, arg_21, objectArg_10;
-        return new Process((objectArg = get$.Optional, objectArg.Field("@id", uri)), (objectArg_1 = get$.Optional, objectArg_1.Field("name", string)), (arg_5 = Protocol_decoder(options), (objectArg_2 = get$.Optional, objectArg_2.Field("executesProtocol", arg_5))), (arg_7 = list_2(ProcessParameterValue_decoder(options)), (objectArg_3 = get$.Optional, objectArg_3.Field("parameterValues", arg_7))), (objectArg_4 = get$.Optional, objectArg_4.Field("performer", string)), (objectArg_5 = get$.Optional, objectArg_5.Field("date", string)), (arg_13 = Process_decoder(options), (objectArg_6 = get$.Optional, objectArg_6.Field("previousProcess", arg_13))), (arg_15 = Process_decoder(options), (objectArg_7 = get$.Optional, objectArg_7.Field("nextProcess", arg_15))), (arg_17 = list_2(ProcessInput_decoder(options)), (objectArg_8 = get$.Optional, objectArg_8.Field("inputs", arg_17))), (arg_19 = list_2(ProcessOutput_decoder(options)), (objectArg_9 = get$.Optional, objectArg_9.Field("outputs", arg_19))), (arg_21 = list_2(decoder_1(options)), (objectArg_10 = get$.Optional, objectArg_10.Field("comments", arg_21))));
-    });
-}
-
-export function Process_fromJsonString(s) {
-    const matchValue = fromString(Process_decoder(ConverterOptions_$ctor()), s);
-    if (matchValue.tag === 1) {
-        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
-    }
-    else {
-        return matchValue.fields[0];
-    }
-}
-
-export function Process_toJsonString(p) {
-    return toString(2, Process_encoder(ConverterOptions_$ctor(), void 0, void 0, p));
-}
-
-/**
- * exports in json-ld format
- */
-export function Process_toJsonldString(p) {
-    let returnVal;
-    return toString(2, Process_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), void 0, void 0, p));
-}
-
-export function Process_toJsonldStringWithContext(a) {
-    let returnVal;
-    return toString(2, Process_encoder((returnVal = ConverterOptions_$ctor(), (((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), ConverterOptions__set_IncludeContext_Z1FBCCD16(returnVal, true)), returnVal)), void 0, void 0, a));
-}
-
-export function ProcessSequence_fromJsonString(s) {
-    const matchValue = fromString(list_2(Process_decoder(ConverterOptions_$ctor())), s);
-    if (matchValue.tag === 1) {
-        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
-    }
-    else {
-        return matchValue.fields[0];
-    }
-}
-
-export function ProcessSequence_toJsonString(p) {
-    let options;
-    return toString(2, list_1(map((options = ConverterOptions_$ctor(), (oa) => Process_encoder(options, void 0, void 0, oa)), p)));
-}
-
-/**
- * exports in json-ld format
- */
-export function ProcessSequence_toJsonldString(p) {
-    let options, returnVal;
-    return toString(2, list_1(map((options = ((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal))), (oa) => Process_encoder(options, void 0, void 0, oa)), p)));
-}
-
-export function ProcessSequence_toJsonldStringWithContext(p) {
-    let options, returnVal;
-    return toString(2, list_1(map((options = ((returnVal = ConverterOptions_$ctor(), (((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), ConverterOptions__set_IncludeContext_Z1FBCCD16(returnVal, true)), returnVal))), (oa) => Process_encoder(options, void 0, void 0, oa)), p)));
-}
-

package/ISA/ISA.Json/Protocol.js

@@ -1,281 +0,0 @@
-import { value as value_13 } from "../../fable_modules/fable-library-js.4.13.0/Option.js";
-import { URIModule_toString } from "../ISA/JsonTypes/URI.js";
-import { ofArray, choose } from "../../fable_modules/fable-library-js.4.13.0/List.js";
-import { equals } from "../../fable_modules/fable-library-js.4.13.0/Util.js";
-import { Json } from "../../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
-import { empty, singleton, append, delay, toList } from "../../fable_modules/fable-library-js.4.13.0/Seq.js";
-import { ConverterOptions__set_IncludeContext_Z1FBCCD16, ConverterOptions__set_IncludeType_Z1FBCCD16, ConverterOptions__set_SetID_Z1FBCCD16, ConverterOptions_$ctor, ConverterOptions__get_IncludeContext, ConverterOptions__get_IncludeType, ConverterOptions__get_SetID } from "./ConverterOptions.js";
-import { tryIncludeList, tryInclude } from "./GEncode.js";
-import { list as list_1 } from "../../fable_modules/Thoth.Json.Core.0.2.1/Encode.fs.js";
-import { OntologyAnnotation_decoder, OntologyAnnotation_encoder } from "./Ontology.js";
-import { context_jsonvalue } from "./context/rocrate/isa_protocol_parameter_context.js";
-import { list as list_2, string, object } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
-import { uri } from "./Decode.js";
-import { ProtocolParameter } from "../ISA/JsonTypes/ProtocolParameter.js";
-import { fromString } from "../../fable_modules/Thoth.Json.JavaScript.0.1.0/Decode.fs.js";
-import { replace, 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 { context_jsonvalue as context_jsonvalue_1 } from "./context/rocrate/isa_component_context.js";
-import { Result_Map } from "../../fable_modules/fable-library-js.4.13.0/Result.js";
-import { Component, Component_decomposeName_Z721C83C5 } from "../ISA/JsonTypes/Component.js";
-import { decoder as decoder_1, encoder } from "./Comment.js";
-import { context_jsonvalue as context_jsonvalue_2 } from "./context/rocrate/isa_protocol_context.js";
-import { Protocol } from "../ISA/JsonTypes/Protocol.js";
-
-export function ProtocolParameter_genID(pp) {
-    const matchValue = pp.ID;
-    if (matchValue == null) {
-        const matchValue_1 = pp.ParameterName;
-        let matchResult, n_1;
-        if (matchValue_1 != null) {
-            if (!(matchValue_1.ID == null)) {
-                matchResult = 0;
-                n_1 = matchValue_1;
-            }
-            else {
-                matchResult = 1;
-            }
-        }
-        else {
-            matchResult = 1;
-        }
-        switch (matchResult) {
-            case 0:
-                return "#Param_" + value_13(n_1.ID);
-            default:
-                return "#EmptyProtocolParameter";
-        }
-    }
-    else {
-        return URIModule_toString(matchValue);
-    }
-}
-
-export function ProtocolParameter_encoder(options, oa) {
-    return new Json(5, [choose((tupledArg) => {
-        const v = tupledArg[1];
-        if (equals(v, new Json(3, []))) {
-            return void 0;
-        }
-        else {
-            return [tupledArg[0], v];
-        }
-    }, toList(delay(() => append(ConverterOptions__get_SetID(options) ? singleton(["@id", new Json(0, [ProtocolParameter_genID(oa)])]) : singleton(tryInclude("@id", (value_1) => (new Json(0, [value_1])), oa.ID)), delay(() => append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", list_1(ofArray([new Json(0, ["ProtocolParameter"]), new Json(0, ["ArcProtocolParameter"])]))]) : empty(), delay(() => append(singleton(tryInclude("parameterName", (oa_1) => OntologyAnnotation_encoder(options, oa_1), oa.ParameterName)), delay(() => (ConverterOptions__get_IncludeContext(options) ? singleton(["@context", context_jsonvalue]) : empty()))))))))))]);
-}
-
-export function ProtocolParameter_decoder(options) {
-    return object((get$) => {
-        let objectArg, arg_3, objectArg_1;
-        return new ProtocolParameter((objectArg = get$.Optional, objectArg.Field("@id", uri)), (arg_3 = OntologyAnnotation_decoder(options), (objectArg_1 = get$.Optional, objectArg_1.Field("parameterName", arg_3))));
-    });
-}
-
-export function ProtocolParameter_fromJsonString(s) {
-    const matchValue = fromString(ProtocolParameter_decoder(ConverterOptions_$ctor()), s);
-    if (matchValue.tag === 1) {
-        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
-    }
-    else {
-        return matchValue.fields[0];
-    }
-}
-
-export function ProtocolParameter_toString(p) {
-    return toString(2, ProtocolParameter_encoder(ConverterOptions_$ctor(), p));
-}
-
-/**
- * exports in json-ld format
- */
-export function ProtocolParameter_toJsonldString(p) {
-    let returnVal;
-    return toString(2, ProtocolParameter_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), p));
-}
-
-export function ProtocolParameter_toJsonldStringWithContext(a) {
-    let returnVal;
-    return toString(2, ProtocolParameter_encoder((returnVal = ConverterOptions_$ctor(), (((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), ConverterOptions__set_IncludeContext_Z1FBCCD16(returnVal, true)), returnVal)), a));
-}
-
-export function Component_genID(c) {
-    const matchValue = c.ComponentName;
-    if (matchValue == null) {
-        return "#EmptyComponent";
-    }
-    else {
-        return "#Component_" + replace(matchValue, " ", "_");
-    }
-}
-
-export function Component_encoder(options, oa) {
-    return new Json(5, [choose((tupledArg) => {
-        const v = tupledArg[1];
-        if (equals(v, new Json(3, []))) {
-            return void 0;
-        }
-        else {
-            return [tupledArg[0], v];
-        }
-    }, toList(delay(() => append(ConverterOptions__get_SetID(options) ? singleton(["@id", new Json(0, [Component_genID(oa)])]) : empty(), delay(() => append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", list_1(ofArray([new Json(0, ["Component"]), new Json(0, ["ArcComponent"])]))]) : empty(), delay(() => append(singleton(tryInclude("componentName", (value_3) => (new Json(0, [value_3])), oa.ComponentName)), delay(() => append(singleton(tryInclude("componentType", (oa_1) => OntologyAnnotation_encoder(options, oa_1), oa.ComponentType)), delay(() => (ConverterOptions__get_IncludeContext(options) ? singleton(["@context", context_jsonvalue_1]) : empty()))))))))))))]);
-}
-
-export function Component_decoder(options) {
-    return {
-        Decode(s, json) {
-            return Result_Map((c) => {
-                let patternInput;
-                const matchValue = c.ComponentName;
-                if (matchValue == null) {
-                    patternInput = [void 0, void 0];
-                }
-                else {
-                    const tupledArg = Component_decomposeName_Z721C83C5(matchValue);
-                    patternInput = [tupledArg[0], tupledArg[1]];
-                }
-                return new Component(c.ComponentName, patternInput[0], patternInput[1], c.ComponentType);
-            }, object((get$) => {
-                let objectArg, arg_3, objectArg_1;
-                return new Component((objectArg = get$.Optional, objectArg.Field("componentName", uri)), void 0, void 0, (arg_3 = OntologyAnnotation_decoder(options), (objectArg_1 = get$.Optional, objectArg_1.Field("componentType", arg_3))));
-            }).Decode(s, json));
-        },
-    };
-}
-
-export function Component_fromJsonString(s) {
-    const matchValue = fromString(Component_decoder(ConverterOptions_$ctor()), s);
-    if (matchValue.tag === 1) {
-        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
-    }
-    else {
-        return matchValue.fields[0];
-    }
-}
-
-export function Component_toJsonString(p) {
-    return toString(2, Component_encoder(ConverterOptions_$ctor(), p));
-}
-
-/**
- * exports in json-ld format
- */
-export function Component_toJsonldString(p) {
-    let returnVal;
-    return toString(2, Component_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), p));
-}
-
-export function Component_toJsonldStringWithContext(a) {
-    let returnVal;
-    return toString(2, Component_encoder((returnVal = ConverterOptions_$ctor(), (((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), ConverterOptions__set_IncludeContext_Z1FBCCD16(returnVal, true)), returnVal)), a));
-}
-
-export function Protocol_genID(studyName, assayName, processName, p) {
-    const matchValue = p.ID;
-    if (matchValue == null) {
-        const matchValue_1 = p.Uri;
-        if (matchValue_1 == null) {
-            const matchValue_2 = p.Name;
-            if (matchValue_2 == null) {
-                let matchResult, an, pn, sn, pn_1, sn_1, pn_2;
-                if (studyName == null) {
-                    if (assayName == null) {
-                        if (processName != null) {
-                            matchResult = 2;
-                            pn_2 = processName;
-                        }
-                        else {
-                            matchResult = 3;
-                        }
-                    }
-                    else {
-                        matchResult = 3;
-                    }
-                }
-                else if (assayName == null) {
-                    if (processName != null) {
-                        matchResult = 1;
-                        pn_1 = processName;
-                        sn_1 = studyName;
-                    }
-                    else {
-                        matchResult = 3;
-                    }
-                }
-                else if (processName != null) {
-                    matchResult = 0;
-                    an = assayName;
-                    pn = processName;
-                    sn = studyName;
-                }
-                else {
-                    matchResult = 3;
-                }
-                switch (matchResult) {
-                    case 0:
-                        return (((("#Protocol_" + replace(sn, " ", "_")) + "_") + replace(an, " ", "_")) + "_") + replace(pn, " ", "_");
-                    case 1:
-                        return (("#Protocol_" + replace(sn_1, " ", "_")) + "_") + replace(pn_1, " ", "_");
-                    case 2:
-                        return "#Protocol_" + replace(pn_2, " ", "_");
-                    default:
-                        return "#EmptyProtocol";
-                }
-            }
-            else {
-                return "#Protocol_" + replace(matchValue_2, " ", "_");
-            }
-        }
-        else {
-            return matchValue_1;
-        }
-    }
-    else {
-        return URIModule_toString(matchValue);
-    }
-}
-
-export function Protocol_encoder(options, studyName, assayName, processName, oa) {
-    return new Json(5, [choose((tupledArg) => {
-        const v = tupledArg[1];
-        if (equals(v, new Json(3, []))) {
-            return void 0;
-        }
-        else {
-            return [tupledArg[0], v];
-        }
-    }, toList(delay(() => append(ConverterOptions__get_SetID(options) ? singleton(["@id", new Json(0, [Protocol_genID(studyName, assayName, processName, oa)])]) : singleton(tryInclude("@id", (value_1) => (new Json(0, [value_1])), oa.ID)), delay(() => append(ConverterOptions__get_IncludeType(options) ? singleton(["@type", list_1(ofArray([new Json(0, ["Protocol"]), new Json(0, ["ArcProtocol"])]))]) : empty(), delay(() => append(singleton(tryInclude("name", (value_5) => (new Json(0, [value_5])), oa.Name)), delay(() => append(singleton(tryInclude("protocolType", (oa_1) => OntologyAnnotation_encoder(options, oa_1), oa.ProtocolType)), delay(() => append(singleton(tryInclude("description", (value_7) => (new Json(0, [value_7])), oa.Description)), delay(() => append(singleton(tryInclude("uri", (value_9) => (new Json(0, [value_9])), oa.Uri)), delay(() => append(singleton(tryInclude("version", (value_11) => (new Json(0, [value_11])), oa.Version)), delay(() => append(singleton(tryIncludeList("parameters", (oa_2) => ProtocolParameter_encoder(options, oa_2), oa.Parameters)), delay(() => append(singleton(tryIncludeList("components", (oa_3) => Component_encoder(options, oa_3), oa.Components)), delay(() => append(singleton(tryIncludeList("comments", (comment) => encoder(options, comment), oa.Comments)), delay(() => (ConverterOptions__get_IncludeContext(options) ? singleton(["@context", context_jsonvalue_2]) : empty()))))))))))))))))))))))))]);
-}
-
-export function Protocol_decoder(options) {
-    return object((get$) => {
-        let objectArg, objectArg_1, arg_5, objectArg_2, objectArg_3, objectArg_4, objectArg_5, arg_13, objectArg_6, arg_15, objectArg_7, arg_17, objectArg_8;
-        return new Protocol((objectArg = get$.Optional, objectArg.Field("@id", uri)), (objectArg_1 = get$.Optional, objectArg_1.Field("name", string)), (arg_5 = OntologyAnnotation_decoder(options), (objectArg_2 = get$.Optional, objectArg_2.Field("protocolType", arg_5))), (objectArg_3 = get$.Optional, objectArg_3.Field("description", string)), (objectArg_4 = get$.Optional, objectArg_4.Field("uri", uri)), (objectArg_5 = get$.Optional, objectArg_5.Field("version", string)), (arg_13 = list_2(ProtocolParameter_decoder(options)), (objectArg_6 = get$.Optional, objectArg_6.Field("parameters", arg_13))), (arg_15 = list_2(Component_decoder(options)), (objectArg_7 = get$.Optional, objectArg_7.Field("components", arg_15))), (arg_17 = list_2(decoder_1(options)), (objectArg_8 = get$.Optional, objectArg_8.Field("comments", arg_17))));
-    });
-}
-
-export function Protocol_fromJsonString(s) {
-    const matchValue = fromString(Protocol_decoder(ConverterOptions_$ctor()), s);
-    if (matchValue.tag === 1) {
-        throw new Error(toText(printf("Error decoding string: %O"))(matchValue.fields[0]));
-    }
-    else {
-        return matchValue.fields[0];
-    }
-}
-
-export function Protocol_toJsonString(p) {
-    return toString(2, Protocol_encoder(ConverterOptions_$ctor(), void 0, void 0, void 0, p));
-}
-
-/**
- * exports in json-ld format
- */
-export function Protocol_toJsonldString(p) {
-    let returnVal;
-    return toString(2, Protocol_encoder((returnVal = ConverterOptions_$ctor(), ((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), returnVal)), void 0, void 0, void 0, p));
-}
-
-export function Protocol_toJsonldStringWithContext(a) {
-    let returnVal;
-    return toString(2, Protocol_encoder((returnVal = ConverterOptions_$ctor(), (((ConverterOptions__set_SetID_Z1FBCCD16(returnVal, true), ConverterOptions__set_IncludeType_Z1FBCCD16(returnVal, true)), ConverterOptions__set_IncludeContext_Z1FBCCD16(returnVal, true)), returnVal)), void 0, void 0, void 0, a));
-}
-