@nfdi4plants/arctrl 2.3.1 → 2.5.0

package/Core/Data.js

@@ -1,4 +1,4 @@
-import { printf, toText } from "../fable_modules/fable-library-js.4.24.0/String.js";
+import { trimStart, trim, printf, toText } from "../fable_modules/fable-library-js.4.24.0/String.js";
 import { item } from "../fable_modules/fable-library-js.4.24.0/Array.js";
 import { defaultArg, unwrap } from "../fable_modules/fable-library-js.4.24.0/Option.js";
 import { ResizeArray_map } from "./Helper/Collections.js";
@@ -12,12 +12,13 @@ export function DataAux_nameFromPathAndSelector(path, selector) {
 }
 
 export function DataAux_pathAndSelectorFromName(name) {
-    const parts = name.split("#");
+    const name_1 = trim(name, "#");
+    const parts = name_1.split("#");
     if (parts.length === 2) {
         return [item(0, parts), item(1, parts)];
     }
     else {
-        return [name, undefined];
+        return [name_1, undefined];
     }
 }
 
@@ -125,6 +126,30 @@ export class Data {
         const this$ = this;
         return defaultArg(this$.Name, "");
     }
+    GetAbsolutePathForAssay(assayIdentifier, checkExistenceFromRoot) {
+        const this$ = this;
+        const checkExistenceFromRoot_1 = defaultArg(checkExistenceFromRoot, (_arg) => false);
+        const matchValue = this$.FilePath;
+        if (matchValue == null) {
+            throw new Error("Data does not have a file path");
+        }
+        else {
+            const p = matchValue;
+            return ((((checkExistenceFromRoot_1(p) ? true : p.startsWith("assays/")) ? true : p.startsWith("studies/")) ? true : p.startsWith("http:")) ? true : p.startsWith("https:")) ? p : ((`assays/${assayIdentifier}/dataset/`) + trimStart(p, "/"));
+        }
+    }
+    GetAbsolutePathForStudy(studyIdentifier, checkExistenceFromRoot) {
+        const this$ = this;
+        const checkExistenceFromRoot_1 = defaultArg(checkExistenceFromRoot, (_arg) => false);
+        const matchValue = this$.FilePath;
+        if (matchValue == null) {
+            throw new Error("Data does not have a file path");
+        }
+        else {
+            const p = matchValue;
+            return ((((checkExistenceFromRoot_1(p) ? true : p.startsWith("assays/")) ? true : p.startsWith("studies/")) ? true : p.startsWith("http:")) ? true : p.startsWith("https:")) ? p : ((`studies/${studyIdentifier}/resources/`) + trimStart(p, "/"));
+        }
+    }
     Copy() {
         const this$ = this;
         const nextComments = ResizeArray_map((c) => c.Copy(), this$.Comments);

package/Core/DataFile.js

@@ -31,11 +31,27 @@ export function DataFile_get_ImageFileJson() {
 export function DataFile__get_AsString(this$) {
     switch (this$.tag) {
         case 1:
-            return "DerivedDataFileJson";
+            return "Derived Data File";
         case 2:
-            return "ImageFileJson";
+            return "Image File";
         default:
-            return "RawDataFileJson";
+            return "Raw Data File";
+    }
+}
+
+export function DataFile_fromString_Z721C83C5(dt) {
+    switch (dt) {
+        case "RawDataFileJson":
+        case "Raw Data File":
+            return new DataFile(0, []);
+        case "DerivedDataFileJson":
+        case "Derived Data File":
+            return new DataFile(1, []);
+        case "ImageFileJson":
+        case "Image File":
+            return new DataFile(2, []);
+        default:
+            throw new Error(`Invalid DataFile type: ${dt}`);
     }
 }
 

package/Core/Helper/Collections.js

@@ -1,11 +1,13 @@
 import { disposeSafe, getEnumerator, defaultOf, structuralHash, equals } from "../../fable_modules/fable-library-js.4.24.0/Util.js";
 import { value as value_1, some } from "../../fable_modules/fable-library-js.4.24.0/Option.js";
-import { empty, singleton, append, head, tail, isEmpty } from "../../fable_modules/fable-library-js.4.24.0/List.js";
-import { Dictionary } from "../../fable_modules/fable-library-js.4.24.0/MutableMap.js";
-import { iterate } from "../../fable_modules/fable-library-js.4.24.0/Seq.js";
+import { map, iterate, isEmpty } from "../../fable_modules/fable-library-js.4.24.0/Seq.js";
+import { empty, singleton, append, head, tail, isEmpty as isEmpty_1 } from "../../fable_modules/fable-library-js.4.24.0/List.js";
 import { tryGetValue, addToDict } from "../../fable_modules/fable-library-js.4.24.0/MapUtil.js";
+import { Dictionary } from "../../fable_modules/fable-library-js.4.24.0/MutableMap.js";
 import { FSharpRef } from "../../fable_modules/fable-library-js.4.24.0/Types.js";
 import { contains } from "../../fable_modules/fable-library-js.4.24.0/Array.js";
+import { groupBy } from "../../fable_modules/fable-library-js.4.24.0/Seq2.js";
+import { min } from "../../fable_modules/fable-library-js.4.24.0/Double.js";
 
 /**
  * If the value matches the default, a None is returned, else a Some is returned
@@ -38,12 +40,24 @@ export function Option_mapOrDefault(d, f, o) {
     }
 }
 
+/**
+ * If the value matches the default, a None is returned, else a Some is returned
+ */
+export function Option_fromSeq(v) {
+    if (isEmpty(v)) {
+        return undefined;
+    }
+    else {
+        return some(v);
+    }
+}
+
 export function List_tryPickAndRemove(f, lst) {
     const loop = (newList_mut, remainingList_mut) => {
         loop:
         while (true) {
             const newList = newList_mut, remainingList = remainingList_mut;
-            if (!isEmpty(remainingList)) {
+            if (!isEmpty_1(remainingList)) {
                 const t = tail(remainingList);
                 const h = head(remainingList);
                 const matchValue = f(h);
@@ -65,6 +79,15 @@ export function List_tryPickAndRemove(f, lst) {
     return loop(empty(), lst);
 }
 
+export function Dictionary_addOrUpdate(key, value, dict) {
+    if (dict.has(key)) {
+        dict.set(key, value);
+    }
+    else {
+        addToDict(dict, key, value);
+    }
+}
+
 export function Dictionary_ofSeq(s) {
     const dict = new Dictionary([], {
         Equals: equals,
@@ -111,6 +134,22 @@ export function Dictionary_ofSeqWithMerge(merge, s) {
     return dict;
 }
 
+export function ResizeArray_create(i, v) {
+    const a = [];
+    if (i > 0) {
+        for (let forLoopVar = 1; forLoopVar <= i; forLoopVar++) {
+            void (a.push(v));
+        }
+    }
+    return a;
+}
+
+export function ResizeArray_singleton(a) {
+    const b = [];
+    void (b.push(a));
+    return b;
+}
+
 export function ResizeArray_map(f, a) {
     const b = [];
     let enumerator = getEnumerator(a);
@@ -316,3 +355,67 @@ export function ResizeArray_appendSingleton(b, a) {
     return c;
 }
 
+export function ResizeArray_groupBy(f, a) {
+    const collection = map((tupledArg) => [tupledArg[0], Array.from(tupledArg[1])], groupBy(f, a, {
+        Equals: equals,
+        GetHashCode: structuralHash,
+    }));
+    return Array.from(collection);
+}
+
+export function ResizeArray_tryPick(f, a) {
+    const loop = (i_mut) => {
+        loop:
+        while (true) {
+            const i = i_mut;
+            if (i < a.length) {
+                const matchValue = f(a[i]);
+                if (matchValue == null) {
+                    i_mut = (i + 1);
+                    continue loop;
+                }
+                else {
+                    return some(value_1(matchValue));
+                }
+            }
+            else {
+                return undefined;
+            }
+            break;
+        }
+    };
+    return loop(0);
+}
+
+export function ResizeArray_zip(a, b) {
+    const c = [];
+    const n = min(a.length, b.length) | 0;
+    for (let i = 0; i <= (n - 1); i++) {
+        void (c.push([a[i], b[i]]));
+    }
+    return c;
+}
+
+export function ResizeArray_tryFind(f, a) {
+    const loop = (i_mut) => {
+        loop:
+        while (true) {
+            const i = i_mut;
+            if (i < a.length) {
+                if (f(a[i])) {
+                    return some(a[i]);
+                }
+                else {
+                    i_mut = (i + 1);
+                    continue loop;
+                }
+            }
+            else {
+                return undefined;
+            }
+            break;
+        }
+    };
+    return loop(0);
+}
+

package/Core/Helper/DateTime.js

@@ -0,0 +1,17 @@
+import { tryParse as tryParse_1, minValue } from "../../fable_modules/fable-library-js.4.24.0/Date.js";
+import { FSharpRef } from "../../fable_modules/fable-library-js.4.24.0/Types.js";
+
+export function tryParse(s) {
+    let matchValue;
+    let outArg = minValue();
+    matchValue = [tryParse_1(s, new FSharpRef(() => outArg, (v) => {
+        outArg = v;
+    })), outArg];
+    if (matchValue[0]) {
+        return matchValue[1];
+    }
+    else {
+        return undefined;
+    }
+}
+

package/Core/Helper/ORCID.js

@@ -0,0 +1,39 @@
+import { match } from "../../fable_modules/fable-library-js.4.24.0/RegExp.js";
+import { ActivePatterns_$007CRegex$007C_$007C } from "./Regex.js";
+
+export const orcidRegex = /[0-9]{4}-[0-9]{4}-[0-9]{4}-[0-9]{3}[0-9X]/gu;
+
+export function tryGetOrcidNumber(orcid) {
+    const m = match(orcidRegex, orcid);
+    if (m != null) {
+        return m[0];
+    }
+    else {
+        return undefined;
+    }
+}
+
+export const orcidPrefix = "http://orcid.org/";
+
+export function $007CORCID$007C_$007C(input) {
+    const activePatternResult = ActivePatterns_$007CRegex$007C_$007C("[0-9]{4}-[0-9]{4}-[0-9]{4}-[0-9]{3}[0-9X]", input);
+    if (activePatternResult != null) {
+        const r = activePatternResult;
+        return r[0];
+    }
+    else {
+        return undefined;
+    }
+}
+
+export function tryGetOrcidURL(orcid) {
+    const activePatternResult = $007CORCID$007C_$007C(orcid);
+    if (activePatternResult != null) {
+        const orcid_1 = activePatternResult;
+        return `${orcidPrefix}${orcid_1}`;
+    }
+    else {
+        return undefined;
+    }
+}
+

package/Core/Table/ArcTable.js

@@ -83,10 +83,16 @@ export class ArcTable {
         const this$ = this;
         return getColumnCount(this$.Headers) | 0;
     }
+    static columnCount(table) {
+        return table.ColumnCount;
+    }
     get RowCount() {
         const this$ = this;
         return getRowCount(this$.Values) | 0;
     }
+    static rowCount(table) {
+        return table.RowCount;
+    }
     get Columns() {
         const this$ = this;
         return toArray(delay(() => map((i) => this$.GetColumn(i), rangeDouble(0, 1, this$.ColumnCount - 1))));

package/Core/Table/CompositeHeader.js

@@ -490,6 +490,10 @@ export class CompositeHeader extends Union {
         const this$ = this;
         return (this$.tag === 3) ? (new CompositeHeader(3, [this$.fields[0].Copy()])) : ((this$.tag === 2) ? (new CompositeHeader(2, [this$.fields[0].Copy()])) : ((this$.tag === 1) ? (new CompositeHeader(1, [this$.fields[0].Copy()])) : ((this$.tag === 0) ? (new CompositeHeader(0, [this$.fields[0].Copy()])) : this$)));
     }
+    TryGetTerm() {
+        const this$ = this;
+        return (this$.tag === 3) ? this$.fields[0] : ((this$.tag === 2) ? this$.fields[0] : ((this$.tag === 1) ? this$.fields[0] : ((this$.tag === 0) ? this$.fields[0] : undefined)));
+    }
     static component(oa) {
         return new CompositeHeader(0, [oa]);
     }

package/Json/Assay.js

@@ -71,7 +71,7 @@ export function ROCrate_genID(a) {
         return "#EmptyAssay";
     }
     else {
-        return `#assay/${replace(matchValue, " ", "_")}`;
+        return `assays/${replace(matchValue, " ", "_")}/`;
     }
 }
 

package/Json/Decode.js

@@ -1,5 +1,5 @@
 import { Getters$2__get_Errors, Getters$2_$ctor_Z4BE6C149, string } from "../fable_modules/Thoth.Json.Core.0.4.0/Decode.fs.js";
-import { FSharpResult$2 } from "../fable_modules/fable-library-js.4.24.0/Result.js";
+import { Result_Map, FSharpResult$2 } from "../fable_modules/fable-library-js.4.24.0/Result.js";
 import { printf, toText } from "../fable_modules/fable-library-js.4.24.0/String.js";
 import { ErrorReason$1 } from "../fable_modules/Thoth.Json.Core.0.4.0/Types.fs.js";
 import { exists } from "../fable_modules/fable-library-js.4.24.0/Seq.js";
@@ -76,7 +76,7 @@ export function Decode_noAdditionalProperties(allowedProperties, decoder) {
     };
 }
 
-export function Decode_resizeArray(decoder) {
+export function Decode_resizeArrayOrSingleton(decoder) {
     return {
         Decode(helpers, value) {
             if (helpers.isArray(value)) {
@@ -101,7 +101,7 @@ export function Decode_resizeArray(decoder) {
                 }, new FSharpResult$2(0, [[]]), helpers.asArray(value));
             }
             else {
-                return new FSharpResult$2(1, [["", new ErrorReason$1(0, ["an array", value])]]);
+                return Result_Map((x) => [x], decoder.Decode(helpers, value));
             }
         },
     };

package/Json/Encode.js

@@ -63,3 +63,12 @@ export function addPropertyToObject(name, value, obj) {
     }
 }
 
+export function resizeArrayOrSingleton(encoder, values) {
+    if (values.length === 1) {
+        return encoder(values[0]);
+    }
+    else {
+        return seq(map_1(encoder, values));
+    }
+}
+

package/Json/Investigation.js

@@ -10,6 +10,7 @@ import { ISAJson_decoder as ISAJson_decoder_5, ISAJson_encoder as ISAJson_encode
 import { concat, map as map_1 } from "../fable_modules/fable-library-js.4.24.0/Seq.js";
 import { list as list_1, resizeArray, string, object } from "../fable_modules/Thoth.Json.Core.0.4.0/Decode.fs.js";
 import { ArcInvestigation } from "../Core/ArcTypes.js";
+import { toString, today } from "../fable_modules/fable-library-js.4.24.0/Date.js";
 import { context_jsonvalue } from "./context/rocrate/isa_investigation_context.js";
 import { createMissingIdentifier } from "../Core/Helper/Identifier.js";
 import { distinctBy } from "../fable_modules/fable-library-js.4.24.0/Seq2.js";
@@ -104,7 +105,7 @@ export function ROCrate_genID(i) {
 }
 
 export function ROCrate_encoder(oa) {
-    let value, value_3, value_4;
+    let value, value_3, value_4, value_12, copyOfStruct;
     const values = choose((tupledArg) => map((v_1) => [tupledArg[0], v_1], tupledArg[1]), ofArray([["@id", (value = ROCrate_genID(oa), {
         Encode(helpers) {
             return helpers.encodeString(value);
@@ -137,11 +138,11 @@ export function ROCrate_encoder(oa) {
         Encode(helpers_7) {
             return helpers_7.encodeString(value_9);
         },
-    }), oa.SubmissionDate), tryInclude("publicReleaseDate", (value_11) => ({
+    }), oa.SubmissionDate), ["publicReleaseDate", (value_12 = defaultArg(oa.PublicReleaseDate, (copyOfStruct = today(), toString(copyOfStruct, "yyyy-MM-dd"))), {
         Encode(helpers_8) {
-            return helpers_8.encodeString(value_11);
+            return helpers_8.encodeString(value_12);
         },
-    }), oa.PublicReleaseDate), tryIncludeSeq("ontologySourceReferences", ROCrate_encoder_1, oa.OntologySourceReferences), tryIncludeSeq("publications", ROCrate_encoder_2, oa.Publications), tryIncludeSeq("people", ROCrate_encoder_3, oa.Contacts), tryIncludeSeq("studies", (s) => ROCrate_encoder_4(undefined, s), oa.Studies), tryIncludeSeq("comments", ROCrate_encoder_5, oa.Comments), ["@context", context_jsonvalue]]));
+    })], tryIncludeSeq("ontologySourceReferences", ROCrate_encoder_1, oa.OntologySourceReferences), tryIncludeSeq("publications", ROCrate_encoder_2, oa.Publications), tryIncludeSeq("people", ROCrate_encoder_3, oa.Contacts), tryIncludeSeq("studies", (s) => ROCrate_encoder_4(undefined, s), oa.Studies), tryIncludeSeq("comments", ROCrate_encoder_5, oa.Comments), ["@context", context_jsonvalue]]));
     return {
         Encode(helpers_9) {
             const arg = map_1((tupledArg_1) => [tupledArg_1[0], tupledArg_1[1].Encode(helpers_9)], values);

package/Json/OntologySourceReference.js

@@ -3,9 +3,9 @@ import { unwrap, map } from "../fable_modules/fable-library-js.4.24.0/Option.js"
 import { tryIncludeSeq, tryInclude } from "./Encode.js";
 import { ISAJson_encoder as ISAJson_encoder_1, decoder as decoder_1, encoder as encoder_1 } from "./Comment.js";
 import { map as map_1 } from "../fable_modules/fable-library-js.4.24.0/Seq.js";
-import { string, object } from "../fable_modules/Thoth.Json.Core.0.4.0/Decode.fs.js";
+import { resizeArray, string, object } from "../fable_modules/Thoth.Json.Core.0.4.0/Decode.fs.js";
 import { OntologySourceReference } from "../Core/OntologySourceReference.js";
-import { Decode_resizeArray, Decode_uri } from "./Decode.js";
+import { Decode_uri } from "./Decode.js";
 import { replace } from "../fable_modules/fable-library-js.4.24.0/String.js";
 import { context_jsonvalue } from "./context/rocrate/isa_ontology_source_reference_context.js";
 
@@ -37,7 +37,7 @@ export function encoder(osr) {
 
 export const decoder = object((get$) => {
     let objectArg, objectArg_1, objectArg_2, objectArg_3, arg_9, objectArg_4;
-    return new OntologySourceReference(unwrap((objectArg = get$.Optional, objectArg.Field("description", Decode_uri))), unwrap((objectArg_1 = get$.Optional, objectArg_1.Field("file", string))), unwrap((objectArg_2 = get$.Optional, objectArg_2.Field("name", string))), unwrap((objectArg_3 = get$.Optional, objectArg_3.Field("version", string))), unwrap((arg_9 = Decode_resizeArray(decoder_1), (objectArg_4 = get$.Optional, objectArg_4.Field("comments", arg_9)))));
+    return new OntologySourceReference(unwrap((objectArg = get$.Optional, objectArg.Field("description", Decode_uri))), unwrap((objectArg_1 = get$.Optional, objectArg_1.Field("file", string))), unwrap((objectArg_2 = get$.Optional, objectArg_2.Field("name", string))), unwrap((objectArg_3 = get$.Optional, objectArg_3.Field("version", string))), unwrap((arg_9 = resizeArray(decoder_1), (objectArg_4 = get$.Optional, objectArg_4.Field("comments", arg_9)))));
 });
 
 export function ROCrate_genID(o) {
@@ -93,7 +93,7 @@ export function ROCrate_encoder(osr) {
 
 export const ROCrate_decoder = object((get$) => {
     let objectArg, objectArg_1, objectArg_2, objectArg_3, arg_9, objectArg_4;
-    return new OntologySourceReference(unwrap((objectArg = get$.Optional, objectArg.Field("description", Decode_uri))), unwrap((objectArg_1 = get$.Optional, objectArg_1.Field("file", string))), unwrap((objectArg_2 = get$.Optional, objectArg_2.Field("name", string))), unwrap((objectArg_3 = get$.Optional, objectArg_3.Field("version", string))), unwrap((arg_9 = Decode_resizeArray(decoder_1), (objectArg_4 = get$.Optional, objectArg_4.Field("comments", arg_9)))));
+    return new OntologySourceReference(unwrap((objectArg = get$.Optional, objectArg.Field("description", Decode_uri))), unwrap((objectArg_1 = get$.Optional, objectArg_1.Field("file", string))), unwrap((objectArg_2 = get$.Optional, objectArg_2.Field("name", string))), unwrap((objectArg_3 = get$.Optional, objectArg_3.Field("version", string))), unwrap((arg_9 = resizeArray(decoder_1), (objectArg_4 = get$.Optional, objectArg_4.Field("comments", arg_9)))));
 });
 
 export function ISAJson_encoder(idMap, osr) {

package/Json/ROCrate/LDContext.js

@@ -0,0 +1,121 @@
+import { resizeArray, Getters$2__get_Errors, string, Getters$2_$ctor_Z4BE6C149 } from "../../fable_modules/Thoth.Json.Core.0.4.0/Decode.fs.js";
+import { LDContext } from "../../ROCrate/LDContext.js";
+import { disposeSafe, getEnumerator } from "../../fable_modules/fable-library-js.4.24.0/Util.js";
+import { head, length, isEmpty } from "../../fable_modules/fable-library-js.4.24.0/List.js";
+import { ErrorReason$1 } from "../../fable_modules/Thoth.Json.Core.0.4.0/Types.fs.js";
+import { FSharpResult$2 } from "../../fable_modules/fable-library-js.4.24.0/Result.js";
+import { initV1_1, initV1_2DRAFT } from "../../ROCrate/ROCrateContext.js";
+import { empty, singleton, delay, toList, append, map } from "../../fable_modules/fable-library-js.4.24.0/Seq.js";
+import { seq } from "../../fable_modules/Thoth.Json.Core.0.4.0/Encode.fs.js";
+
+export const decoder = {
+    Decode(helpers, value) {
+        let objectArg;
+        const this$ = this;
+        if (helpers.isObject(value)) {
+            const getters = Getters$2_$ctor_Z4BE6C149(helpers, value);
+            const properties = helpers.getProperties(value);
+            let result;
+            const o = new LDContext();
+            const enumerator = getEnumerator(properties);
+            try {
+                while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
+                    const property = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
+                    if ((property !== "@id") && (property !== "@type")) {
+                        o.AddMapping(property, (objectArg = getters.Required, objectArg.Field(property, string)));
+                    }
+                }
+            }
+            finally {
+                disposeSafe(enumerator);
+            }
+            result = o;
+            const matchValue = Getters$2__get_Errors(getters);
+            if (!isEmpty(matchValue)) {
+                const errors = matchValue;
+                return (length(errors) > 1) ? (new FSharpResult$2(1, [["", new ErrorReason$1(7, [errors])]])) : (new FSharpResult$2(1, [head(matchValue)]));
+            }
+            else {
+                return new FSharpResult$2(0, [result]);
+            }
+        }
+        else if (helpers.isString(value)) {
+            const s = helpers.asString(value);
+            return (s === "https://w3id.org/ro/crate/1.2-DRAFT/context") ? (new FSharpResult$2(0, [initV1_2DRAFT()])) : ((s === "https://w3id.org/ro/crate/1.1/context") ? (new FSharpResult$2(0, [initV1_1()])) : (new FSharpResult$2(1, [["", new ErrorReason$1(0, ["an object", value])]])));
+        }
+        else if (helpers.isArray(value)) {
+            const matchValue_1 = resizeArray(this$).Decode(helpers, value);
+            return (matchValue_1.tag === 1) ? (new FSharpResult$2(1, [matchValue_1.fields[0]])) : (new FSharpResult$2(0, [new LDContext(undefined, matchValue_1.fields[0])]));
+        }
+        else {
+            return new FSharpResult$2(1, [["", new ErrorReason$1(0, ["an object", value])]]);
+        }
+    },
+};
+
+export function encoder(ctx_mut) {
+    let source_4;
+    encoder:
+    while (true) {
+        const ctx = ctx_mut;
+        const matchValue = ctx.Name;
+        let matchResult;
+        if (matchValue != null) {
+            switch (matchValue) {
+                case "https://w3id.org/ro/crate/1.2-DRAFT/context": {
+                    matchResult = 0;
+                    break;
+                }
+                case "https://w3id.org/ro/crate/1.1/context": {
+                    matchResult = 1;
+                    break;
+                }
+                default:
+                    matchResult = 2;
+            }
+        }
+        else {
+            matchResult = 2;
+        }
+        switch (matchResult) {
+            case 0:
+                return {
+                    Encode(helpers) {
+                        return helpers.encodeString("https://w3id.org/ro/crate/1.2-DRAFT/context");
+                    },
+                };
+            case 1:
+                return {
+                    Encode(helpers_1) {
+                        return helpers_1.encodeString("https://w3id.org/ro/crate/1.1/context");
+                    },
+                };
+            default: {
+                let mappings;
+                const values = map((kv) => [kv[0], {
+                    Encode(helpers_2) {
+                        return helpers_2.encodeString(kv[1]);
+                    },
+                }], ctx.Mappings);
+                mappings = {
+                    Encode(helpers_3) {
+                        const arg = map((tupledArg) => [tupledArg[0], tupledArg[1].Encode(helpers_3)], values);
+                        return helpers_3.encodeObject(arg);
+                    },
+                };
+                if (ctx.BaseContexts.length === 0) {
+                    return mappings;
+                }
+                else if ((ctx.BaseContexts.length === 1) && (ctx.Mappings.size === 0)) {
+                    ctx_mut = ctx.BaseContexts[0];
+                    continue encoder;
+                }
+                else {
+                    return seq((source_4 = map(encoder, ctx.BaseContexts), append(toList(delay(() => ((ctx.Mappings.size !== 0) ? singleton(mappings) : empty()))), source_4)));
+                }
+            }
+        }
+        break;
+    }
+}
+

package/Json/ROCrate/LDGraph.js

@@ -0,0 +1,87 @@
+import { head, length, isEmpty, choose } from "../../fable_modules/fable-library-js.4.24.0/List.js";
+import { unwrap, map } from "../../fable_modules/fable-library-js.4.24.0/Option.js";
+import { map as map_1, empty, collect, singleton, append, delay, toList } from "../../fable_modules/fable-library-js.4.24.0/Seq.js";
+import { tryInclude } from "../Encode.js";
+import { decoder as decoder_1, encoder as encoder_1 } from "./LDContext.js";
+import { genericDecoder, decoder as decoder_2, encoder as encoder_2, genericEncoder } from "./LDNode.js";
+import { seq } from "../../fable_modules/Thoth.Json.Core.0.4.0/Encode.fs.js";
+import { Getters$2__get_Errors, seq as seq_1, string, Getters$2_$ctor_Z4BE6C149 } from "../../fable_modules/Thoth.Json.Core.0.4.0/Decode.fs.js";
+import { LDGraph } from "../../ROCrate/LDObject.js";
+import { disposeSafe, getEnumerator } from "../../fable_modules/fable-library-js.4.24.0/Util.js";
+import { ErrorReason$1 } from "../../fable_modules/Thoth.Json.Core.0.4.0/Types.fs.js";
+import { FSharpResult$2 } from "../../fable_modules/fable-library-js.4.24.0/Result.js";
+
+export function encoder(obj) {
+    const values_1 = choose((tupledArg) => map((v_1) => [tupledArg[0], v_1], tupledArg[1]), toList(delay(() => append(singleton(tryInclude("@id", (value) => ({
+        Encode(helpers) {
+            return helpers.encodeString(value);
+        },
+    }), obj.Id)), delay(() => append(singleton(tryInclude("@context", encoder_1, obj.TryGetContext())), delay(() => append(collect((kv) => {
+        const l = kv[0].toLocaleLowerCase();
+        return ((((l !== "id") && (l !== "@context")) && (l !== "nodes")) && (l !== "mappings")) ? singleton([kv[0], genericEncoder(kv[1])]) : empty();
+    }, obj.GetProperties(true)), delay(() => singleton(["@graph", seq(map_1(encoder_2, obj.Nodes))]))))))))));
+    return {
+        Encode(helpers_1) {
+            const arg = map_1((tupledArg_1) => [tupledArg_1[0], tupledArg_1[1].Encode(helpers_1)], values_1);
+            return helpers_1.encodeObject(arg);
+        },
+    };
+}
+
+export const decoder = {
+    Decode(helpers, value) {
+        let objectArg_3;
+        if (helpers.isObject(value)) {
+            const getters = Getters$2_$ctor_Z4BE6C149(helpers, value);
+            const properties = helpers.getProperties(value);
+            let result;
+            const get$ = getters;
+            let id;
+            const objectArg = get$.Optional;
+            id = objectArg.Field("@id", string);
+            let context;
+            const objectArg_1 = get$.Optional;
+            context = objectArg_1.Field("@context", decoder_1);
+            let nodes;
+            const arg_5 = seq_1(decoder_2);
+            const objectArg_2 = get$.Required;
+            nodes = objectArg_2.Field("@graph", arg_5);
+            const o = new LDGraph(unwrap(id), undefined, unwrap(context));
+            const enumerator = getEnumerator(properties);
+            try {
+                while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
+                    const property = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
+                    if (((property !== "@id") && (property !== "@graph")) && (property !== "@context")) {
+                        o.SetProperty(property, (objectArg_3 = get$.Required, objectArg_3.Field(property, genericDecoder)));
+                    }
+                }
+            }
+            finally {
+                disposeSafe(enumerator);
+            }
+            const enumerator_1 = getEnumerator(nodes);
+            try {
+                while (enumerator_1["System.Collections.IEnumerator.MoveNext"]()) {
+                    const node = enumerator_1["System.Collections.Generic.IEnumerator`1.get_Current"]();
+                    o.AddNode(node);
+                }
+            }
+            finally {
+                disposeSafe(enumerator_1);
+            }
+            result = o;
+            const matchValue = Getters$2__get_Errors(getters);
+            if (!isEmpty(matchValue)) {
+                const errors = matchValue;
+                return (length(errors) > 1) ? (new FSharpResult$2(1, [["", new ErrorReason$1(7, [errors])]])) : (new FSharpResult$2(1, [head(matchValue)]));
+            }
+            else {
+                return new FSharpResult$2(0, [result]);
+            }
+        }
+        else {
+            return new FSharpResult$2(1, [["", new ErrorReason$1(0, ["an object", value])]]);
+        }
+    },
+};
+