@nfdi4plants/arctrl 2.0.0-alpha.6 → 2.0.0-alpha.8

package/Json/Process/ProcessParameterValue.js

@@ -10,13 +10,18 @@ import { OntologyAnnotation_ISAJson_decoder, OntologyAnnotation_ISAJson_encoder
 import { object } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.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 { unwrap, defaultArg } from "../../fable_modules/fable-library-js.4.16.0/Option.js";
 import { toString } from "../../fable_modules/Thoth.Json.JavaScript.0.1.0/Encode.fs.js";
 
 export const ProcessParameterValue_ROCrate_encoder = encoder;
 
 export const ProcessParameterValue_ROCrate_decoder = decoder_1((category, value, unit) => ProcessParameterValue.createAsPV(category, value, unit));
 
-export function ProcessParameterValue_ISAJson_encoder(oa) {
+export function ProcessParameterValue_ISAJson_genID(oa) {
+    throw new Error("Not implemented");
+}
+
+export function ProcessParameterValue_ISAJson_encoder(idMap, oa) {
     return new Json(5, [choose((tupledArg) => {
         const v = tupledArg[1];
         if (equals(v, new Json(3, []))) {
@@ -25,7 +30,7 @@ export function ProcessParameterValue_ISAJson_encoder(oa) {
         else {
             return [tupledArg[0], v];
         }
-    }, ofArray([tryInclude("category", ProtocolParameter_ISAJson_encoder, oa.Category), tryInclude("value", Value_ISAJson_encoder, oa.Value), tryInclude("unit", OntologyAnnotation_ISAJson_encoder, oa.Unit)]))]);
+    }, ofArray([tryInclude("category", (value) => ProtocolParameter_ISAJson_encoder(idMap, value), oa.Category), tryInclude("value", (value_1) => Value_ISAJson_encoder(idMap, value_1), oa.Value), tryInclude("unit", (oa_1) => OntologyAnnotation_ISAJson_encoder(idMap, oa_1), oa.Unit)]))]);
 }
 
 export const ProcessParameterValue_ISAJson_decoder = object((get$) => {
@@ -43,13 +48,18 @@ export function ARCtrl_Process_ProcessParameterValue__ProcessParameterValue_from
     }
 }
 
-export function ARCtrl_Process_ProcessParameterValue__ProcessParameterValue_toISAJsonString_Static_71136F3F(spaces) {
+export function ARCtrl_Process_ProcessParameterValue__ProcessParameterValue_toISAJsonString_Static_Z3B036AA(spaces, useIDReferencing) {
+    const idMap = defaultArg(useIDReferencing, false) ? (new Map([])) : void 0;
     return (f) => {
-        const value = ProcessParameterValue_ISAJson_encoder(f);
+        const value = ProcessParameterValue_ISAJson_encoder(idMap, f);
         return toString(defaultSpaces(spaces), value);
     };
 }
 
+export function ARCtrl_Process_ProcessParameterValue__ProcessParameterValue_ToISAJsonString_Z3B036AA(this$, spaces, useIDReferencing) {
+    return ARCtrl_Process_ProcessParameterValue__ProcessParameterValue_toISAJsonString_Static_Z3B036AA(unwrap(spaces), unwrap(useIDReferencing))(this$);
+}
+
 export function ARCtrl_Process_ProcessParameterValue__ProcessParameterValue_fromROCrateJsonString_Static_Z721C83C5(s) {
     const matchValue = fromString(ProcessParameterValue_ROCrate_decoder, s);
     if (matchValue.tag === 1) {
@@ -67,3 +77,7 @@ export function ARCtrl_Process_ProcessParameterValue__ProcessParameterValue_toRO
     };
 }
 
+export function ARCtrl_Process_ProcessParameterValue__ProcessParameterValue_ToROCrateJsonString_71136F3F(this$, spaces) {
+    return ARCtrl_Process_ProcessParameterValue__ProcessParameterValue_toROCrateJsonString_Static_71136F3F(unwrap(spaces))(this$);
+}
+

package/Json/Process/ProcessSequence.js

@@ -3,6 +3,7 @@ import { fromString } from "../../fable_modules/Thoth.Json.JavaScript.0.1.0/Deco
 import { list as list_1 } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
 import { Process_ROCrate_encoder, Process_ROCrate_decoder, Process_ISAJson_encoder, Process_ISAJson_decoder } from "./Process.js";
 import { printf, toText } from "../../fable_modules/fable-library-js.4.16.0/String.js";
+import { defaultArg } from "../../fable_modules/fable-library-js.4.16.0/Option.js";
 import { list as list_2 } from "../../fable_modules/Thoth.Json.Core.0.2.1/Encode.fs.js";
 import { map } from "../../fable_modules/fable-library-js.4.16.0/List.js";
 import { toString } from "../../fable_modules/Thoth.Json.JavaScript.0.1.0/Encode.fs.js";
@@ -27,9 +28,10 @@ export function ProcessSequence_fromISAJsonString_Z721C83C5(s) {
     }
 }
 
-export function ProcessSequence_toISAJsonString_71136F3F(spaces) {
+export function ProcessSequence_toISAJsonString_Z3B036AA(spaces, useIDReferencing) {
+    const idMap = defaultArg(useIDReferencing, false) ? (new Map([])) : void 0;
     return (f) => {
-        const value = list_2(map(Process_ISAJson_encoder, f));
+        const value = list_2(map((oa) => Process_ISAJson_encoder(void 0, void 0, idMap, oa), f));
         return toString(defaultSpaces(spaces), value);
     };
 }

package/Json/Process/PropertyValue.js

@@ -11,12 +11,37 @@ import { Value } from "../../Core/Process/Value.js";
 
 export function genID(p) {
     const matchValue = p.GetCategory();
-    if (matchValue == null) {
-        return `#Empty${p.GetAdditionalType()}`;
+    const matchValue_1 = p.GetValue();
+    const matchValue_2 = p.GetUnit();
+    let matchResult, t, u, v, t_1, v_1;
+    if (matchValue != null) {
+        if (matchValue_1 != null) {
+            if (matchValue_2 == null) {
+                matchResult = 1;
+                t_1 = matchValue;
+                v_1 = matchValue_1;
+            }
+            else {
+                matchResult = 0;
+                t = matchValue;
+                u = matchValue_2;
+                v = matchValue_1;
+            }
+        }
+        else {
+            matchResult = 2;
+        }
     }
     else {
-        const t = matchValue;
-        return `${p.GetAdditionalType()}/${t}${p.GetValue()}${p.GetUnit()}`;
+        matchResult = 2;
+    }
+    switch (matchResult) {
+        case 0:
+            return `#${p.GetAdditionalType()}/${t.NameText}=${v.Text}${u.NameText}`;
+        case 1:
+            return `#${p.GetAdditionalType()}/${t_1.NameText}=${v_1.Text}`;
+        default:
+            return `#Empty${p.GetAdditionalType()}`;
     }
 }
 

package/Json/Process/Protocol.js

@@ -10,70 +10,91 @@ import { Comment_ISAJson_decoder, Comment_ISAJson_encoder, Comment_ROCrate_decod
 import { context_jsonvalue } from "../context/rocrate/isa_protocol_context.js";
 import { string, list as list_5, object } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
 import { Option_fromValueWithDefault } from "../../Core/Helper/Collections.js";
-import { defaultArg } from "../../fable_modules/fable-library-js.4.16.0/Option.js";
+import { unwrap, defaultArg } from "../../fable_modules/fable-library-js.4.16.0/Option.js";
 import { Decode_uri } from "../Decode.js";
 import { Protocol } from "../../Core/Process/Protocol.js";
 import { ProtocolParameter_ISAJson_decoder, ProtocolParameter_ISAJson_encoder } from "./ProtocolParameter.js";
+import { encode } from "../IDTable.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";
 
 export function Protocol_ROCrate_genID(studyName, assayName, processName, p) {
-    const matchValue = p.Uri;
-    if (matchValue == null) {
-        const matchValue_1 = p.Name;
-        if (matchValue_1 == 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;
+    const matchValue = p.ID;
+    let matchResult, id_1;
+    if (matchValue != null) {
+        if (matchValue !== "") {
+            matchResult = 0;
+            id_1 = matchValue;
+        }
+        else {
+            matchResult = 1;
+        }
+    }
+    else {
+        matchResult = 1;
+    }
+    switch (matchResult) {
+        case 0:
+            return id_1;
+        default: {
+            const matchValue_1 = p.Uri;
+            if (matchValue_1 == null) {
+                const matchValue_2 = p.Name;
+                if (matchValue_2 == null) {
+                    let matchResult_1, an, pn, sn, pn_1, sn_1, pn_2;
+                    if (studyName == null) {
+                        if (assayName == null) {
+                            if (processName != null) {
+                                matchResult_1 = 2;
+                                pn_2 = processName;
+                            }
+                            else {
+                                matchResult_1 = 3;
+                            }
+                        }
+                        else {
+                            matchResult_1 = 3;
+                        }
+                    }
+                    else if (assayName == null) {
+                        if (processName != null) {
+                            matchResult_1 = 1;
+                            pn_1 = processName;
+                            sn_1 = studyName;
+                        }
+                        else {
+                            matchResult_1 = 3;
+                        }
+                    }
+                    else if (processName != null) {
+                        matchResult_1 = 0;
+                        an = assayName;
+                        pn = processName;
+                        sn = studyName;
                     }
                     else {
-                        matchResult = 3;
+                        matchResult_1 = 3;
+                    }
+                    switch (matchResult_1) {
+                        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 {
-                    matchResult = 3;
-                }
-            }
-            else if (assayName == null) {
-                if (processName != null) {
-                    matchResult = 1;
-                    pn_1 = processName;
-                    sn_1 = studyName;
-                }
-                else {
-                    matchResult = 3;
+                    return "#Protocol_" + replace(matchValue_2, " ", "_");
                 }
             }
-            else if (processName != null) {
-                matchResult = 0;
-                an = assayName;
-                pn = processName;
-                sn = studyName;
-            }
             else {
-                matchResult = 3;
+                return matchValue_1;
             }
-            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_1, " ", "_");
         }
     }
-    else {
-        return matchValue;
-    }
 }
 
 export function Protocol_ROCrate_encoder(studyName, assayName, processName, oa) {
@@ -94,8 +115,8 @@ export const Protocol_ROCrate_decoder = object((get$) => {
     return new Protocol((objectArg_3 = get$.Optional, objectArg_3.Field("@id", Decode_uri)), (objectArg_4 = get$.Optional, objectArg_4.Field("name", string)), (objectArg_5 = get$.Optional, objectArg_5.Field("protocolType", OntologyAnnotation_ROCrate_decoderDefinedTerm)), (objectArg_6 = get$.Optional, objectArg_6.Field("description", string)), (objectArg_7 = get$.Optional, objectArg_7.Field("uri", Decode_uri)), (objectArg_8 = get$.Optional, objectArg_8.Field("version", string)), void 0, components, (arg_19 = list_5(Comment_ROCrate_decoder), (objectArg_9 = get$.Optional, objectArg_9.Field("comments", arg_19))));
 });
 
-export function Protocol_ISAJson_encoder(oa) {
-    return new Json(5, [choose((tupledArg) => {
+export function Protocol_ISAJson_encoder(studyName, assayName, processName, idMap, oa) {
+    const f = (oa_1) => (new Json(5, [choose((tupledArg) => {
         const v = tupledArg[1];
         if (equals(v, new Json(3, []))) {
             return void 0;
@@ -103,7 +124,13 @@ export function Protocol_ISAJson_encoder(oa) {
         else {
             return [tupledArg[0], v];
         }
-    }, ofArray([tryInclude("@id", (value) => (new Json(0, [value])), oa.ID), tryInclude("name", (value_2) => (new Json(0, [value_2])), oa.Name), tryInclude("protocolType", OntologyAnnotation_ISAJson_encoder, oa.ProtocolType), tryInclude("description", (value_4) => (new Json(0, [value_4])), oa.Description), tryInclude("uri", (value_6) => (new Json(0, [value_6])), oa.Uri), tryInclude("version", (value_8) => (new Json(0, [value_8])), oa.Version), tryIncludeListOpt("parameters", ProtocolParameter_ISAJson_encoder, oa.Parameters), tryIncludeListOpt("components", Component_ISAJson_encoder, oa.Components), tryIncludeListOpt("comments", Comment_ISAJson_encoder, oa.Comments)]))]);
+    }, ofArray([tryInclude("@id", (value) => (new Json(0, [value])), Protocol_ROCrate_genID(studyName, assayName, processName, oa_1)), tryInclude("name", (value_2) => (new Json(0, [value_2])), oa_1.Name), tryInclude("protocolType", (oa_2) => OntologyAnnotation_ISAJson_encoder(idMap, oa_2), oa_1.ProtocolType), tryInclude("description", (value_4) => (new Json(0, [value_4])), oa_1.Description), tryInclude("uri", (value_6) => (new Json(0, [value_6])), oa_1.Uri), tryInclude("version", (value_8) => (new Json(0, [value_8])), oa_1.Version), tryIncludeListOpt("parameters", (value_10) => ProtocolParameter_ISAJson_encoder(idMap, value_10), oa_1.Parameters), tryIncludeListOpt("components", (c) => Component_ISAJson_encoder(idMap, c), oa_1.Components), tryIncludeListOpt("comments", (comment) => Comment_ISAJson_encoder(idMap, comment), oa_1.Comments)]))]));
+    if (idMap != null) {
+        return encode((p_1) => Protocol_ROCrate_genID(studyName, assayName, processName, p_1), f, oa, idMap);
+    }
+    else {
+        return f(oa);
+    }
 }
 
 export const Protocol_ISAJson_decoder = object((get$) => {
@@ -121,13 +148,18 @@ export function ARCtrl_Process_Protocol__Protocol_fromISAJsonString_Static_Z721C
     }
 }
 
-export function ARCtrl_Process_Protocol__Protocol_toISAJsonString_Static_71136F3F(spaces) {
+export function ARCtrl_Process_Protocol__Protocol_toISAJsonString_Static_Z3B036AA(spaces, useIDReferencing) {
+    const idMap = defaultArg(useIDReferencing, false) ? (new Map([])) : void 0;
     return (f) => {
-        const value = Protocol_ISAJson_encoder(f);
+        const value = Protocol_ISAJson_encoder(void 0, void 0, void 0, idMap, f);
         return toString(defaultSpaces(spaces), value);
     };
 }
 
+export function ARCtrl_Process_Protocol__Protocol_ToISAJsonString_71136F3F(this$, spaces) {
+    return ARCtrl_Process_Protocol__Protocol_toISAJsonString_Static_Z3B036AA(spaces)(this$);
+}
+
 export function ARCtrl_Process_Protocol__Protocol_fromROCrateString_Static_Z721C83C5(s) {
     const matchValue = fromString(Protocol_ROCrate_decoder, s);
     if (matchValue.tag === 1) {
@@ -138,10 +170,14 @@ export function ARCtrl_Process_Protocol__Protocol_fromROCrateString_Static_Z721C
     }
 }
 
-export function ARCtrl_Process_Protocol__Protocol_toROCrateString_Static(studyName, assayName, processName, spaces) {
+export function ARCtrl_Process_Protocol__Protocol_toROCrateString_Static_Z482224B9(studyName, assayName, processName, spaces) {
     return (f) => {
         const value = Protocol_ROCrate_encoder(studyName, assayName, processName, f);
         return toString(defaultSpaces(spaces), value);
     };
 }
 
+export function ARCtrl_Process_Protocol__Protocol_ToROCrateString_Z482224B9(this$, studyName, assayName, processName, spaces) {
+    return ARCtrl_Process_Protocol__Protocol_toROCrateString_Static_Z482224B9(unwrap(studyName), unwrap(assayName), unwrap(processName), unwrap(spaces))(this$);
+}
+

package/Json/Process/ProtocolParameter.js

@@ -1,16 +1,28 @@
-import { singleton, choose } from "../../fable_modules/fable-library-js.4.16.0/List.js";
+import { OntologyAnnotation_ISAJson_decoder, OntologyAnnotation_ISAJson_encoder, OntologyAnnotation_ROCrate_genID } from "../OntologyAnnotation.js";
+import { ofArray, choose } from "../../fable_modules/fable-library-js.4.16.0/List.js";
 import { equals } from "../../fable_modules/fable-library-js.4.16.0/Util.js";
 import { Json } from "../../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
 import { defaultSpaces, tryInclude } from "../Encode.js";
-import { OntologyAnnotation_ISAJson_decoder, OntologyAnnotation_ISAJson_encoder } from "../OntologyAnnotation.js";
+import { encode } from "../IDTable.js";
 import { object } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
 import { ProtocolParameter } from "../../Core/Process/ProtocolParameter.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 { unwrap } from "../../fable_modules/fable-library-js.4.16.0/Option.js";
 
-export function ProtocolParameter_ISAJson_encoder(value) {
-    return new Json(5, [choose((tupledArg) => {
+export function ProtocolParameter_ISAJson_genID(p) {
+    const matchValue = p.ParameterName;
+    if (matchValue == null) {
+        return "#EmptyProtocolParameter";
+    }
+    else {
+        return `#ProtocolParameter/${OntologyAnnotation_ROCrate_genID(matchValue)}`;
+    }
+}
+
+export function ProtocolParameter_ISAJson_encoder(idMap, value) {
+    const f = (value_1) => (new Json(5, [choose((tupledArg) => {
         const v = tupledArg[1];
         if (equals(v, new Json(3, []))) {
             return void 0;
@@ -18,7 +30,13 @@ export function ProtocolParameter_ISAJson_encoder(value) {
         else {
             return [tupledArg[0], v];
         }
-    }, singleton(tryInclude("parameterName", OntologyAnnotation_ISAJson_encoder, value.ParameterName)))]);
+    }, ofArray([tryInclude("@id", (value_2) => (new Json(0, [value_2])), ProtocolParameter_ISAJson_genID(value_1)), tryInclude("parameterName", (oa) => OntologyAnnotation_ISAJson_encoder(idMap, oa), value_1.ParameterName)]))]));
+    if (idMap != null) {
+        return encode(ProtocolParameter_ISAJson_genID, f, value, idMap);
+    }
+    else {
+        return f(value);
+    }
 }
 
 export const ProtocolParameter_ISAJson_decoder = object((get$) => {
@@ -38,8 +56,12 @@ export function ARCtrl_Process_ProtocolParameter__ProtocolParameter_fromISAJsonS
 
 export function ARCtrl_Process_ProtocolParameter__ProtocolParameter_toISAJsonString_Static_71136F3F(spaces) {
     return (v) => {
-        const value = ProtocolParameter_ISAJson_encoder(v);
+        const value = ProtocolParameter_ISAJson_encoder(void 0, v);
         return toString(defaultSpaces(spaces), value);
     };
 }
 
+export function ARCtrl_Process_ProtocolParameter__ProtocolParameter_ToISAJsonString_71136F3F(this$, spaces) {
+    return ARCtrl_Process_ProtocolParameter__ProtocolParameter_toISAJsonString_Static_71136F3F(unwrap(spaces))(this$);
+}
+

package/Json/Process/Sample.js

@@ -1,7 +1,7 @@
 import { printf, toText, replace } from "../../fable_modules/fable-library-js.4.16.0/String.js";
 import { ofArray, singleton, choose, append, empty, map } from "../../fable_modules/fable-library-js.4.16.0/List.js";
 import { MaterialAttributeValue_ISAJson_decoder, MaterialAttributeValue_ISAJson_encoder, MaterialAttributeValue_ROCrate_decoder, MaterialAttributeValue_ROCrate_encoder } from "./MaterialAttributeValue.js";
-import { defaultArg } from "../../fable_modules/fable-library-js.4.16.0/Option.js";
+import { unwrap, defaultArg } from "../../fable_modules/fable-library-js.4.16.0/Option.js";
 import { FactorValue_ISAJson_decoder, FactorValue_ISAJson_encoder, FactorValue_ROCrate_decoder, FactorValue_ROCrate_encoder } from "./FactorValue.js";
 import { equals } from "../../fable_modules/fable-library-js.4.16.0/Util.js";
 import { Json } from "../../fable_modules/Thoth.Json.Core.0.2.1/Types.fs.js";
@@ -14,6 +14,7 @@ import { Option_fromValueWithDefault } from "../../Core/Helper/Collections.js";
 import { Decode_objectNoAdditionalProperties, Decode_uri } from "../Decode.js";
 import { Source_ISAJson_decoder, Source_ISAJson_encoder, Source_ROCrate_decoder } from "./Source.js";
 import { Sample } from "../../Core/Process/Sample.js";
+import { encode } from "../IDTable.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";
 
@@ -79,8 +80,8 @@ export const Sample_ROCrate_decoder = object((get$) => {
     return new Sample((objectArg_1 = get$.Optional, objectArg_1.Field("@id", Decode_uri)), (objectArg_2 = get$.Optional, objectArg_2.Field("name", string)), patternInput[0], patternInput[1], (arg_7 = list_6(Source_ROCrate_decoder), (objectArg_3 = get$.Optional, objectArg_3.Field("derivesFrom", arg_7))));
 });
 
-export function Sample_ISAJson_encoder(oa) {
-    return new Json(5, [choose((tupledArg) => {
+export function Sample_ISAJson_encoder(idMap, oa) {
+    const f = (oa_1) => (new Json(5, [choose((tupledArg) => {
         const v = tupledArg[1];
         if (equals(v, new Json(3, []))) {
             return void 0;
@@ -88,7 +89,13 @@ export function Sample_ISAJson_encoder(oa) {
         else {
             return [tupledArg[0], v];
         }
-    }, ofArray([tryInclude("@id", (value) => (new Json(0, [value])), oa.ID), tryInclude("name", (value_2) => (new Json(0, [value_2])), oa.Name), tryIncludeListOpt("characteristics", MaterialAttributeValue_ISAJson_encoder, oa.Characteristics), tryIncludeListOpt("factorValues", FactorValue_ISAJson_encoder, oa.FactorValues), tryIncludeListOpt("derivesFrom", Source_ISAJson_encoder, oa.DerivesFrom)]))]);
+    }, ofArray([tryInclude("@id", (value) => (new Json(0, [value])), Sample_ROCrate_genID(oa_1)), tryInclude("name", (value_2) => (new Json(0, [value_2])), oa_1.Name), tryIncludeListOpt("characteristics", (oa_2) => MaterialAttributeValue_ISAJson_encoder(idMap, oa_2), oa_1.Characteristics), tryIncludeListOpt("factorValues", (fv) => FactorValue_ISAJson_encoder(idMap, fv), oa_1.FactorValues), tryIncludeListOpt("derivesFrom", (oa_3) => Source_ISAJson_encoder(idMap, oa_3), oa_1.DerivesFrom)]))]));
+    if (idMap != null) {
+        return encode(Sample_ROCrate_genID, f, oa, idMap);
+    }
+    else {
+        return f(oa);
+    }
 }
 
 export const Sample_ISAJson_allowedFields = ofArray(["@id", "name", "characteristics", "factorValues", "derivesFrom", "@type", "@context"]);
@@ -108,13 +115,18 @@ export function ARCtrl_Process_Sample__Sample_fromISAJsonString_Static_Z721C83C5
     }
 }
 
-export function ARCtrl_Process_Sample__Sample_toISAJsonString_Static_71136F3F(spaces) {
+export function ARCtrl_Process_Sample__Sample_toISAJsonString_Static_Z3B036AA(spaces, useIDReferencing) {
+    const idMap = defaultArg(useIDReferencing, false) ? (new Map([])) : void 0;
     return (f) => {
-        const value = Sample_ISAJson_encoder(f);
-        return toString(defaultSpaces(spaces), value);
+        const value_1 = Sample_ISAJson_encoder(idMap, f);
+        return toString(defaultSpaces(spaces), value_1);
     };
 }
 
+export function ARCtrl_Process_Sample__Sample_ToISAJsonString_Z3B036AA(this$, spaces, useIDReferencing) {
+    return ARCtrl_Process_Sample__Sample_toISAJsonString_Static_Z3B036AA(unwrap(spaces), unwrap(useIDReferencing))(this$);
+}
+
 export function ARCtrl_Process_Sample__Sample_fromROCrateString_Static_Z721C83C5(s) {
     const matchValue = fromString(Sample_ROCrate_decoder, s);
     if (matchValue.tag === 1) {
@@ -132,3 +144,7 @@ export function ARCtrl_Process_Sample__Sample_toROCrateString_Static_71136F3F(sp
     };
 }
 
+export function ARCtrl_Process_Sample__Sample_ToROCrateString_71136F3F(this$, spaces) {
+    return ARCtrl_Process_Sample__Sample_toROCrateString_Static_71136F3F(unwrap(spaces))(this$);
+}
+

package/Json/Process/Source.js

@@ -10,7 +10,9 @@ import { context_jsonvalue } from "../context/rocrate/isa_source_context.js";
 import { list as list_2, string, object } from "../../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
 import { Decode_objectNoAdditionalProperties, Decode_uri } from "../Decode.js";
 import { Source } from "../../Core/Process/Source.js";
+import { encode } from "../IDTable.js";
 import { fromString } from "../../fable_modules/Thoth.Json.JavaScript.0.1.0/Decode.fs.js";
+import { unwrap, defaultArg } from "../../fable_modules/fable-library-js.4.16.0/Option.js";
 import { toString } from "../../fable_modules/Thoth.Json.JavaScript.0.1.0/Encode.fs.js";
 
 export function Source_ROCrate_genID(s) {
@@ -46,8 +48,8 @@ export const Source_ROCrate_decoder = object((get$) => {
     return new Source((objectArg = get$.Optional, objectArg.Field("@id", Decode_uri)), (objectArg_1 = get$.Optional, objectArg_1.Field("name", string)), (arg_5 = list_2(MaterialAttributeValue_ROCrate_decoder), (objectArg_2 = get$.Optional, objectArg_2.Field("characteristics", arg_5))));
 });
 
-export function Source_ISAJson_encoder(oa) {
-    return new Json(5, [choose((tupledArg) => {
+export function Source_ISAJson_encoder(idMap, oa) {
+    const f = (oa_1) => (new Json(5, [choose((tupledArg) => {
         const v = tupledArg[1];
         if (equals(v, new Json(3, []))) {
             return void 0;
@@ -55,7 +57,13 @@ export function Source_ISAJson_encoder(oa) {
         else {
             return [tupledArg[0], v];
         }
-    }, ofArray([tryInclude("@id", (value) => (new Json(0, [value])), oa.ID), tryInclude("name", (value_2) => (new Json(0, [value_2])), oa.Name), tryIncludeListOpt("characteristics", MaterialAttributeValue_ISAJson_encoder, oa.Characteristics)]))]);
+    }, ofArray([tryInclude("@id", (value) => (new Json(0, [value])), Source_ROCrate_genID(oa_1)), tryInclude("name", (value_2) => (new Json(0, [value_2])), oa_1.Name), tryIncludeListOpt("characteristics", (oa_2) => MaterialAttributeValue_ISAJson_encoder(idMap, oa_2), oa_1.Characteristics)]))]));
+    if (idMap != null) {
+        return encode(Source_ROCrate_genID, f, oa, idMap);
+    }
+    else {
+        return f(oa);
+    }
 }
 
 export const Source_ISAJson_allowedFields = ofArray(["@id", "name", "characteristics", "@type", "@context"]);
@@ -75,13 +83,18 @@ export function ARCtrl_Process_Source__Source_fromISAJsonString_Static_Z721C83C5
     }
 }
 
-export function ARCtrl_Process_Source__Source_toISAJsonString_Static_71136F3F(spaces) {
+export function ARCtrl_Process_Source__Source_toISAJsonString_Static_Z3B036AA(spaces, useIDReferencing) {
+    const idMap = defaultArg(useIDReferencing, false) ? (new Map([])) : void 0;
     return (f) => {
-        const value = Source_ISAJson_encoder(f);
-        return toString(defaultSpaces(spaces), value);
+        const value_1 = Source_ISAJson_encoder(idMap, f);
+        return toString(defaultSpaces(spaces), value_1);
     };
 }
 
+export function ARCtrl_Process_Source__Source_ToISAJsonString_Z3B036AA(this$, spaces, useIDReferencing) {
+    return ARCtrl_Process_Source__Source_toISAJsonString_Static_Z3B036AA(unwrap(spaces), unwrap(useIDReferencing))(this$);
+}
+
 export function ARCtrl_Process_Source__Source_fromROCrateString_Static_Z721C83C5(s) {
     const matchValue = fromString(Source_ROCrate_decoder, s);
     if (matchValue.tag === 1) {
@@ -99,3 +112,7 @@ export function ARCtrl_Process_Source__Source_toROCrateString_Static_71136F3F(sp
     };
 }
 
+export function ARCtrl_Process_Source__Source_ToROCrateString_71136F3F(this$, spaces) {
+    return ARCtrl_Process_Source__Source_toROCrateString_Static_71136F3F(unwrap(spaces))(this$);
+}
+

package/Json/Process/StudyMaterials.js

@@ -7,7 +7,7 @@ import { Source_ISAJson_encoder } from "./Source.js";
 import { Sample_ISAJson_encoder } from "./Sample.js";
 import { Material_ISAJson_encoder } from "./Material.js";
 
-export function encoder(ps) {
+export function encoder(idMap, ps) {
     const source = getSources(ps);
     const samples = getSamples(ps);
     const materials = getMaterials(ps);
@@ -19,6 +19,6 @@ export function encoder(ps) {
         else {
             return [tupledArg[0], v];
         }
-    }, ofArray([tryIncludeList("sources", Source_ISAJson_encoder, source), tryIncludeList("samples", Sample_ISAJson_encoder, samples), tryIncludeList("otherMaterials", Material_ISAJson_encoder, materials)]))]);
+    }, ofArray([tryIncludeList("sources", (oa) => Source_ISAJson_encoder(idMap, oa), source), tryIncludeList("samples", (oa_1) => Sample_ISAJson_encoder(idMap, oa_1), samples), tryIncludeList("otherMaterials", (c) => Material_ISAJson_encoder(idMap, c), materials)]))]);
 }
 

package/Json/Process/Value.js

@@ -8,14 +8,14 @@ import { printf, toText } from "../../fable_modules/fable-library-js.4.16.0/Stri
 import { toString } from "../../fable_modules/Thoth.Json.JavaScript.0.1.0/Encode.fs.js";
 import { defaultSpaces } from "../Encode.js";
 
-export function Value_ISAJson_encoder(value) {
+export function Value_ISAJson_encoder(idMap, value) {
     switch (value.tag) {
         case 1:
             return new Json(7, [value.fields[0] >>> 0]);
         case 3:
             return new Json(0, [value.fields[0]]);
         case 0:
-            return OntologyAnnotation_ISAJson_encoder(value.fields[0]);
+            return OntologyAnnotation_ISAJson_encoder(idMap, value.fields[0]);
         default:
             return new Json(2, [value.fields[0]]);
     }
@@ -35,7 +35,7 @@ export function ARCtrl_Process_Value__Value_fromISAJsonString_Static_Z721C83C5(s
 
 export function ARCtrl_Process_Value__Value_toISAJsonString_Static_71136F3F(spaces) {
     return (v) => {
-        const value = Value_ISAJson_encoder(v);
+        const value = Value_ISAJson_encoder(void 0, v);
         return toString(defaultSpaces(spaces), value);
     };
 }

package/Json/Publication.js

@@ -6,7 +6,7 @@ import { OntologyAnnotation_ROCrate_decoderDefinedTerm, OntologyAnnotation_ROCra
 import { Comment_ISAJson_encoder, Comment_ROCrate_decoderDisambiguatingDescription, Comment_ROCrate_encoderDisambiguatingDescription, Comment_decoder, Comment_encoder } from "./Comment.js";
 import { string, object } from "../fable_modules/Thoth.Json.Core.0.2.1/Decode.fs.js";
 import { Publication } from "../Core/Publication.js";
-import { unwrap } from "../fable_modules/fable-library-js.4.16.0/Option.js";
+import { defaultArg, unwrap } from "../fable_modules/fable-library-js.4.16.0/Option.js";
 import { Decode_noAdditionalProperties, Decode_resizeArray, Decode_uri } from "./Decode.js";
 import { printf, toText, replace } from "../fable_modules/fable-library-js.4.16.0/String.js";
 import { Person_ROCrate_decodeAuthorListString, Person_ROCrate_encodeAuthorListString } from "./Person.js";
@@ -70,7 +70,7 @@ export const Publication_ROCrate_decoder = object((get$) => {
     return new Publication(unwrap((objectArg = get$.Optional, objectArg.Field("pubMedID", Decode_uri))), unwrap((objectArg_1 = get$.Optional, objectArg_1.Field("doi", string))), unwrap((objectArg_2 = get$.Optional, objectArg_2.Field("authorList", Person_ROCrate_decodeAuthorListString))), unwrap((objectArg_3 = get$.Optional, objectArg_3.Field("title", string))), unwrap((objectArg_4 = get$.Optional, objectArg_4.Field("status", OntologyAnnotation_ROCrate_decoderDefinedTerm))), unwrap((arg_11 = Decode_resizeArray(Comment_ROCrate_decoderDisambiguatingDescription), (objectArg_5 = get$.Optional, objectArg_5.Field("comments", arg_11)))));
 });
 
-export function Publication_ISAJson_encoder(oa) {
+export function Publication_ISAJson_encoder(idMap, oa) {
     return new Json(5, [choose((tupledArg) => {
         const v = tupledArg[1];
         if (equals(v, new Json(3, []))) {
@@ -79,7 +79,7 @@ export function Publication_ISAJson_encoder(oa) {
         else {
             return [tupledArg[0], v];
         }
-    }, ofArray([tryInclude("pubMedID", (value) => (new Json(0, [value])), oa.PubMedID), tryInclude("doi", (value_2) => (new Json(0, [value_2])), oa.DOI), tryInclude("authorList", (value_4) => (new Json(0, [value_4])), oa.Authors), tryInclude("title", (value_6) => (new Json(0, [value_6])), oa.Title), tryInclude("status", OntologyAnnotation_encoder, oa.Status), tryIncludeSeq("comments", Comment_ISAJson_encoder, oa.Comments)]))]);
+    }, ofArray([tryInclude("pubMedID", (value) => (new Json(0, [value])), oa.PubMedID), tryInclude("doi", (value_2) => (new Json(0, [value_2])), oa.DOI), tryInclude("authorList", (value_4) => (new Json(0, [value_4])), oa.Authors), tryInclude("title", (value_6) => (new Json(0, [value_6])), oa.Title), tryInclude("status", OntologyAnnotation_encoder, oa.Status), tryIncludeSeq("comments", (comment) => Comment_ISAJson_encoder(idMap, comment), oa.Comments)]))]);
 }
 
 export const Publication_ISAJson_allowedFields = ofArray(["pubMedID", "doi", "authorList", "title", "status", "comments"]);
@@ -103,6 +103,10 @@ export function ARCtrl_Publication__Publication_toJsonString_Static_71136F3F(spa
     };
 }
 
+export function ARCtrl_Publication__Publication_ToJsonString_71136F3F(this$, spaces) {
+    return ARCtrl_Publication__Publication_toJsonString_Static_71136F3F(unwrap(spaces))(this$);
+}
+
 export function ARCtrl_Publication__Publication_fromROCrateJsonString_Static_Z721C83C5(s) {
     const matchValue = fromString(Publication_ROCrate_decoder, s);
     if (matchValue.tag === 1) {
@@ -123,11 +127,8 @@ export function ARCtrl_Publication__Publication_toROCrateJsonString_Static_71136
     };
 }
 
-export function ARCtrl_Publication__Publication_toISAJsonString_Static_71136F3F(spaces) {
-    return (obj) => {
-        const value = Publication_ISAJson_encoder(obj);
-        return toString(defaultSpaces(spaces), value);
-    };
+export function ARCtrl_Publication__Publication_ToROCrateJsonString_71136F3F(this$, spaces) {
+    return ARCtrl_Publication__Publication_toROCrateJsonString_Static_71136F3F(unwrap(spaces))(this$);
 }
 
 export function ARCtrl_Publication__Publication_fromISAJsonString_Static_Z721C83C5(s) {
@@ -140,3 +141,15 @@ export function ARCtrl_Publication__Publication_fromISAJsonString_Static_Z721C83
     }
 }
 
+export function ARCtrl_Publication__Publication_toISAJsonString_Static_Z3B036AA(spaces, useIDReferencing) {
+    const idMap = defaultArg(useIDReferencing, false) ? (new Map([])) : void 0;
+    return (obj) => {
+        const value = Publication_ISAJson_encoder(idMap, obj);
+        return toString(defaultSpaces(spaces), value);
+    };
+}
+
+export function ARCtrl_Publication__Publication_ToISAJsonString_Z3B036AA(this$, spaces, useIDReferencing) {
+    return ARCtrl_Publication__Publication_toISAJsonString_Static_Z3B036AA(unwrap(spaces), unwrap(useIDReferencing))(this$);
+}
+