@nfdi4plants/arctrl 3.0.0-beta.3 → 3.0.0-beta.4

package/dist/ts/ts/Json/Process/Protocol.js

@@ -0,0 +1,166 @@
+import { defaultArg, map, value } from '../../../node_modules/@fable-org/fable-library-js/Option.js';
+import { replace } from '../../../node_modules/@fable-org/fable-library-js/String.js';
+import { Protocol } from '../../Core/Process/Protocol.js';
+import { append, empty, choose, ofArray, singleton } from '../../../node_modules/@fable-org/fable-library-js/List.js';
+import { list as list$1 } from '../../fable_modules/Thoth.Json.Core.0.7.0/Encode.fs.js';
+import { tryInclude, tryIncludeListOpt } from '../Encode.js';
+import { OntologyAnnotation_ISAJson_decoder, OntologyAnnotation_ROCrate_decoderDefinedTerm, OntologyAnnotation_ROCrate_encoderDefinedTerm, OntologyAnnotation_ISAJson_encoder } from '../OntologyAnnotation.js';
+import { ISAJson_decoder as ISAJson_decoder$1, ROCrate_decoder as ROCrate_decoder$1, ROCrate_encoder as ROCrate_encoder$1, ISAJson_encoder as ISAJson_encoder$1 } from './Component.js';
+import { ISAJson_decoder as ISAJson_decoder$2, ROCrate_decoder as ROCrate_decoder$2, ROCrate_encoder as ROCrate_encoder$2, ISAJson_encoder as ISAJson_encoder$2 } from '../Comment.js';
+import { context_jsonvalue } from '../context/rocrate/isa_protocol_context.js';
+import { map as map$1 } from '../../../node_modules/@fable-org/fable-library-js/Seq.js';
+import { object, string, list } from '../../fable_modules/Thoth.Json.Core.0.7.0/Decode.fs.js';
+import { Option_fromValueWithDefault } from '../../Core/Helper/Collections.js';
+import { Decode_uri } from '../Decode.js';
+import { decoder, encoder } from './ProtocolParameter.js';
+import { encode } from '../IDTable.js';
+
+function ROCrate_genID(studyName, assayName, processName, p) {
+  const matchValue = p.ID;
+  let matchResult, id_1;
+  if (matchValue != null) {
+    if (value(matchValue) !== "") {
+      matchResult = 0;
+      id_1 = value(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 = value(processName);
+              } else {
+                matchResult_1 = 3;
+              }
+            } else {
+              matchResult_1 = 3;
+            }
+          } else if (assayName == null) {
+            if (processName != null) {
+              matchResult_1 = 1;
+              pn_1 = value(processName);
+              sn_1 = value(studyName);
+            } else {
+              matchResult_1 = 3;
+            }
+          } else if (processName != null) {
+            matchResult_1 = 0;
+            an = value(assayName);
+            pn = value(processName);
+            sn = value(studyName);
+          } else {
+            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 {
+          return "#Protocol_" + replace(value(matchValue_2), " ", "_");
+        }
+      } else {
+        return value(matchValue_1);
+      }
+    }
+  }
+}
+function ROCrate_encoder(studyName, assayName, processName, oa) {
+  let value;
+  const values_1 = choose((tupledArg) => map((v_1) => [tupledArg[0], v_1], tupledArg[1]), ofArray([["@id", (value = ROCrate_genID(studyName, assayName, processName, oa), {
+    Encode(helpers) {
+      return helpers.encodeString(value);
+    }
+  })], ["@type", list$1(singleton({
+    Encode(helpers_1) {
+      return helpers_1.encodeString("Protocol");
+    }
+  }))], tryInclude("name", (value_2) => ({
+    Encode(helpers_2) {
+      return helpers_2.encodeString(value_2);
+    }
+  }), oa.Name), tryInclude("protocolType", OntologyAnnotation_ROCrate_encoderDefinedTerm, oa.ProtocolType), tryInclude("description", (value_4) => ({
+    Encode(helpers_3) {
+      return helpers_3.encodeString(value_4);
+    }
+  }), oa.Description), tryInclude("uri", (value_6) => ({
+    Encode(helpers_4) {
+      return helpers_4.encodeString(value_6);
+    }
+  }), oa.Uri), tryInclude("version", (value_8) => ({
+    Encode(helpers_5) {
+      return helpers_5.encodeString(value_8);
+    }
+  }), oa.Version), tryIncludeListOpt("components", ROCrate_encoder$1, oa.Components), tryIncludeListOpt("comments", ROCrate_encoder$2, oa.Comments), ["@context", context_jsonvalue]]));
+  return {
+    Encode(helpers_6) {
+      const arg = map$1((tupledArg_1) => [tupledArg_1[0], tupledArg_1[1].Encode(helpers_6)], values_1);
+      return helpers_6.encodeObject(arg);
+    }
+  };
+}
+const ROCrate_decoder = object((get$) => {
+  let list_3, list_1, arg_1, objectArg, arg_3, objectArg_1, arg_5, objectArg_2, objectArg_3, objectArg_4, objectArg_5, objectArg_6, objectArg_7, objectArg_8, arg_19, objectArg_9;
+  const components = Option_fromValueWithDefault(empty(), (list_3 = (list_1 = defaultArg((arg_1 = list(ROCrate_decoder$1), objectArg = get$.Optional, objectArg.Field("components", arg_1)), empty()), append(defaultArg((arg_3 = list(ROCrate_decoder$1), objectArg_1 = get$.Optional, objectArg_1.Field("reagents", arg_3)), empty()), list_1)), append(defaultArg((arg_5 = list(ROCrate_decoder$1), objectArg_2 = get$.Optional, objectArg_2.Field("computationalTools", arg_5)), empty()), list_3)));
+  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(ROCrate_decoder$2), objectArg_9 = get$.Optional, objectArg_9.Field("comments", arg_19)));
+});
+function ISAJson_encoder(studyName, assayName, processName, idMap, oa) {
+  const f = (oa_1) => {
+    const values_1 = choose((tupledArg) => map((v_1) => [tupledArg[0], v_1], tupledArg[1]), ofArray([tryInclude("@id", (value) => ({
+      Encode(helpers) {
+        return helpers.encodeString(value);
+      }
+    }), ROCrate_genID(studyName, assayName, processName, oa_1)), tryInclude("name", (value_2) => ({
+      Encode(helpers_1) {
+        return helpers_1.encodeString(value_2);
+      }
+    }), oa_1.Name), tryInclude("protocolType", (oa_2) => OntologyAnnotation_ISAJson_encoder(idMap, oa_2), oa_1.ProtocolType), tryInclude("description", (value_4) => ({
+      Encode(helpers_2) {
+        return helpers_2.encodeString(value_4);
+      }
+    }), oa_1.Description), tryInclude("uri", (value_6) => ({
+      Encode(helpers_3) {
+        return helpers_3.encodeString(value_6);
+      }
+    }), oa_1.Uri), tryInclude("version", (value_8) => ({
+      Encode(helpers_4) {
+        return helpers_4.encodeString(value_8);
+      }
+    }), oa_1.Version), tryIncludeListOpt("parameters", (value_10) => encoder(idMap, value_10), oa_1.Parameters), tryIncludeListOpt("components", (c) => ISAJson_encoder$1(idMap, c), oa_1.Components), tryIncludeListOpt("comments", (comment) => ISAJson_encoder$2(idMap, comment), oa_1.Comments)]));
+    return {
+      Encode(helpers_5) {
+        const arg = map$1((tupledArg_1) => [tupledArg_1[0], tupledArg_1[1].Encode(helpers_5)], values_1);
+        return helpers_5.encodeObject(arg);
+      }
+    };
+  };
+  if (idMap != null) {
+    return encode((p_1) => ROCrate_genID(studyName, assayName, processName, p_1), f, oa, value(idMap));
+  } else {
+    return f(oa);
+  }
+}
+const ISAJson_decoder = object((get$) => {
+  let objectArg, objectArg_1, objectArg_2, objectArg_3, objectArg_4, objectArg_5, arg_13, objectArg_6, arg_15, objectArg_7, arg_17, objectArg_8;
+  return new Protocol((objectArg = get$.Optional, objectArg.Field("@id", Decode_uri)), (objectArg_1 = get$.Optional, objectArg_1.Field("name", string)), (objectArg_2 = get$.Optional, objectArg_2.Field("protocolType", OntologyAnnotation_ISAJson_decoder)), (objectArg_3 = get$.Optional, objectArg_3.Field("description", string)), (objectArg_4 = get$.Optional, objectArg_4.Field("uri", Decode_uri)), (objectArg_5 = get$.Optional, objectArg_5.Field("version", string)), (arg_13 = list(decoder), objectArg_6 = get$.Optional, objectArg_6.Field("parameters", arg_13)), (arg_15 = list(ISAJson_decoder$1), objectArg_7 = get$.Optional, objectArg_7.Field("components", arg_15)), (arg_17 = list(ISAJson_decoder$2), objectArg_8 = get$.Optional, objectArg_8.Field("comments", arg_17)));
+});
+
+export { ISAJson_decoder, ISAJson_encoder, ROCrate_decoder, ROCrate_encoder, ROCrate_genID };

package/dist/ts/ts/Json/Process/ProtocolParameter.d.ts

@@ -1,6 +1,6 @@
 import { Option } from '@fable-org/fable-library-js/Option.js';
 import { ProtocolParameter } from '../../Core/Process/ProtocolParameter.js';
-import { Decoder$1, IEncodable } from '../../fable_modules/Thoth.Json.Core.0.4.0/Types.fs.js';
+import { Decoder$1, IEncodable } from '../../fable_modules/Thoth.Json.Core.0.7.0/Types.fs.js';
 import { IMap } from '@fable-org/fable-library-js/Util.js';
 export declare function genID(p: ProtocolParameter): string;
 export declare function encoder(idMap: Option<IMap<string, IEncodable>>, value: ProtocolParameter): IEncodable;

package/dist/ts/ts/Json/Process/ProtocolParameter.js

@@ -0,0 +1,43 @@
+import { value, map } from '../../../node_modules/@fable-org/fable-library-js/Option.js';
+import { OntologyAnnotation_ISAJson_decoder, OntologyAnnotation_ISAJson_encoder, OntologyAnnotation_ROCrate_genID } from '../OntologyAnnotation.js';
+import { ProtocolParameter } from '../../Core/Process/ProtocolParameter.js';
+import { choose, ofArray } from '../../../node_modules/@fable-org/fable-library-js/List.js';
+import { tryInclude } from '../Encode.js';
+import { map as map$1 } from '../../../node_modules/@fable-org/fable-library-js/Seq.js';
+import { encode } from '../IDTable.js';
+import { object } from '../../fable_modules/Thoth.Json.Core.0.7.0/Decode.fs.js';
+
+function genID(p) {
+  const matchValue = p.ParameterName;
+  if (matchValue == null) {
+    return "#EmptyProtocolParameter";
+  } else {
+    return `#ProtocolParameter/${OntologyAnnotation_ROCrate_genID(value(matchValue))}`;
+  }
+}
+function encoder(idMap, value$1) {
+  const f = (value_1) => {
+    const values_1 = choose((tupledArg) => map((v_1) => [tupledArg[0], v_1], tupledArg[1]), ofArray([tryInclude("@id", (value_2) => ({
+      Encode(helpers) {
+        return helpers.encodeString(value_2);
+      }
+    }), genID(value_1)), tryInclude("parameterName", (oa) => OntologyAnnotation_ISAJson_encoder(idMap, oa), value_1.ParameterName)]));
+    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);
+      }
+    };
+  };
+  if (idMap != null) {
+    return encode(genID, f, value$1, value(idMap));
+  } else {
+    return f(value$1);
+  }
+}
+const decoder = object((get$) => {
+  let objectArg;
+  return new ProtocolParameter(void 0, (objectArg = get$.Optional, objectArg.Field("parameterName", OntologyAnnotation_ISAJson_decoder)));
+});
+
+export { decoder, encoder, genID };

package/dist/ts/ts/Json/Process/Sample.d.ts

@@ -1,7 +1,7 @@
 import { Option } from '@fable-org/fable-library-js/Option.js';
 import { Sample } from '../../Core/Process/Sample.js';
 import { FSharpList } from '@fable-org/fable-library-js/List.js';
-import { Decoder$1, IEncodable } from '../../fable_modules/Thoth.Json.Core.0.4.0/Types.fs.js';
+import { Decoder$1, IEncodable } from '../../fable_modules/Thoth.Json.Core.0.7.0/Types.fs.js';
 import { MaterialAttributeValue } from '../../Core/Process/MaterialAttributeValue.js';
 import { FactorValue } from '../../Core/Process/FactorValue.js';
 import { IMap } from '@fable-org/fable-library-js/Util.js';

package/dist/ts/ts/Json/Process/Sample.js

@@ -0,0 +1,165 @@
+import { value, defaultArg, map as map$1 } from '../../../node_modules/@fable-org/fable-library-js/Option.js';
+import { replace } from '../../../node_modules/@fable-org/fable-library-js/String.js';
+import { Sample } from '../../Core/Process/Sample.js';
+import { ofArray, isEmpty, head, tail, choose, empty, map, append, singleton } from '../../../node_modules/@fable-org/fable-library-js/List.js';
+import { ISAJson_decoder as ISAJson_decoder$1, ROCrate_decoder as ROCrate_decoder$3, ROCrate_encoder as ROCrate_encoder$1, ISAJson_encoder as ISAJson_encoder$1 } from './MaterialAttributeValue.js';
+import { ISAJson_decoder as ISAJson_decoder$2, ROCrate_decoder as ROCrate_decoder$2, ROCrate_encoder as ROCrate_encoder$2, ISAJson_encoder as ISAJson_encoder$2 } from './FactorValue.js';
+import { list as list$1 } from '../../fable_modules/Thoth.Json.Core.0.7.0/Encode.fs.js';
+import { tryInclude, tryIncludeList, tryIncludeListOpt } from '../Encode.js';
+import { context_jsonvalue } from '../context/rocrate/isa_sample_context.js';
+import { map as map$2 } from '../../../node_modules/@fable-org/fable-library-js/Seq.js';
+import { string, list, object, unit } from '../../fable_modules/Thoth.Json.Core.0.7.0/Decode.fs.js';
+import { FSharpResult$2_Error, FSharpResult$2_Ok } from '../../../node_modules/@fable-org/fable-library-js/Result.js';
+import { Decode_objectNoAdditionalProperties, Decode_uri } from '../Decode.js';
+import { Option_fromValueWithDefault } from '../../Core/Helper/Collections.js';
+import { ISAJson_decoder as ISAJson_decoder$3, ROCrate_decoder as ROCrate_decoder$1, ISAJson_encoder as ISAJson_encoder$3 } from './Source.js';
+import { encode } from '../IDTable.js';
+
+function ROCrate_genID(s) {
+  const matchValue = s.ID;
+  if (matchValue == null) {
+    const matchValue_1 = s.Name;
+    if (matchValue_1 == null) {
+      return "#EmptySample";
+    } else {
+      return "#Sample_" + replace(value(matchValue_1), " ", "_");
+    }
+  } else {
+    return value(matchValue);
+  }
+}
+function ROCrate_encoder(oa) {
+  let value_2;
+  let additionalProperties;
+  const list_3 = map(ROCrate_encoder$1, defaultArg(oa.Characteristics, empty()));
+  additionalProperties = append(map(ROCrate_encoder$2, defaultArg(oa.FactorValues, empty())), list_3);
+  const values_1 = choose((tupledArg) => map$1((v_1) => [tupledArg[0], v_1], tupledArg[1]), ofArray([["@id", (value_2 = ROCrate_genID(oa), {
+    Encode(helpers) {
+      return helpers.encodeString(value_2);
+    }
+  })], ["@type", list$1(singleton({
+    Encode(helpers_1) {
+      return helpers_1.encodeString("Sample");
+    }
+  }))], ["additionalType", {
+    Encode(helpers_2) {
+      return helpers_2.encodeString("Sample");
+    }
+  }], tryInclude("name", (value_5) => ({
+    Encode(helpers_3) {
+      return helpers_3.encodeString(value_5);
+    }
+  }), oa.Name), tryIncludeList("additionalProperties", (x) => x, additionalProperties), ["@context", context_jsonvalue]]));
+  return {
+    Encode(helpers_4) {
+      const arg = map$2((tupledArg_1) => [tupledArg_1[0], tupledArg_1[1].Encode(helpers_4)], values_1);
+      return helpers_4.encodeObject(arg);
+    }
+  };
+}
+const ROCrate_additionalPropertyDecoder = {
+  Decode(s, json) {
+    let matchValue;
+    if ((s.hasProperty("additionalType", json) ? (matchValue = string.Decode(s, s.getProperty("additionalType", json)), matchValue.tag === /* Ok */
+    0 ? matchValue.fields[0] : "") : "") === "FactorValue") {
+      const matchValue_1 = ROCrate_decoder$2.Decode(s, json);
+      return matchValue_1.tag === /* Error */
+      1 ? FSharpResult$2_Error(matchValue_1.fields[0]) : FSharpResult$2_Ok([void 0, matchValue_1.fields[0]]);
+    } else {
+      const matchValue_2 = ROCrate_decoder$3.Decode(s, json);
+      return matchValue_2.tag === /* Error */
+      1 ? FSharpResult$2_Error(matchValue_2.fields[0]) : FSharpResult$2_Ok([matchValue_2.fields[0], void 0]);
+    }
+  }
+};
+const ROCrate_decoder = object((get$) => {
+  let objectArg_5, objectArg_6, arg_15, objectArg_7;
+  let matchValue;
+  const objectArg = get$.Optional;
+  matchValue = objectArg.Field("additionalType", Decode_uri);
+  let matchResult;
+  if (matchValue == null) {
+    matchResult = 0;
+  } else if (value(matchValue) === "Sample") {
+    matchResult = 0;
+  } else {
+    matchResult = 1;
+  }
+  switch (matchResult) {
+    case 1: {
+      const objectArg_1 = get$.Required;
+      objectArg_1.Field("FailBecauseNotSample", unit);
+      break;
+    }
+  }
+  let matchValue_1;
+  const arg_5 = list(string);
+  const objectArg_2 = get$.Optional;
+  matchValue_1 = objectArg_2.Field("@type", arg_5);
+  let matchResult_1;
+  if (matchValue_1 == null) {
+    matchResult_1 = 0;
+  } else if (!isEmpty(value(matchValue_1))) {
+    if (head(value(matchValue_1)) === "Sample") {
+      if (isEmpty(tail(value(matchValue_1)))) {
+        matchResult_1 = 0;
+      } else {
+        matchResult_1 = 1;
+      }
+    } else {
+      matchResult_1 = 1;
+    }
+  } else {
+    matchResult_1 = 1;
+  }
+  switch (matchResult_1) {
+    case 1: {
+      const objectArg_3 = get$.Required;
+      objectArg_3.Field("FailBecauseNotSample", unit);
+      break;
+    }
+  }
+  let additionalProperties;
+  const arg_9 = list(ROCrate_additionalPropertyDecoder);
+  const objectArg_4 = get$.Optional;
+  additionalProperties = objectArg_4.Field("additionalProperties", arg_9);
+  let patternInput;
+  if (additionalProperties != null) {
+    const additionalProperties_1 = value(additionalProperties);
+    patternInput = [Option_fromValueWithDefault(empty(), choose((tuple) => tuple[0], additionalProperties_1)), Option_fromValueWithDefault(empty(), choose((tuple_1) => tuple_1[1], additionalProperties_1))];
+  } else {
+    patternInput = [void 0, void 0];
+  }
+  return new Sample((objectArg_5 = get$.Optional, objectArg_5.Field("@id", Decode_uri)), (objectArg_6 = get$.Optional, objectArg_6.Field("name", string)), patternInput[0], patternInput[1], (arg_15 = list(ROCrate_decoder$1), objectArg_7 = get$.Optional, objectArg_7.Field("derivesFrom", arg_15)));
+});
+function ISAJson_encoder(idMap, oa) {
+  const f = (oa_1) => {
+    const values_1 = choose((tupledArg) => map$1((v_1) => [tupledArg[0], v_1], tupledArg[1]), ofArray([tryInclude("@id", (value) => ({
+      Encode(helpers) {
+        return helpers.encodeString(value);
+      }
+    }), ROCrate_genID(oa_1)), tryInclude("name", (value_2) => ({
+      Encode(helpers_1) {
+        return helpers_1.encodeString(value_2);
+      }
+    }), oa_1.Name), tryIncludeListOpt("characteristics", (oa_2) => ISAJson_encoder$1(idMap, oa_2), oa_1.Characteristics), tryIncludeListOpt("factorValues", (fv) => ISAJson_encoder$2(idMap, fv), oa_1.FactorValues), tryIncludeListOpt("derivesFrom", (oa_3) => ISAJson_encoder$3(idMap, oa_3), oa_1.DerivesFrom)]));
+    return {
+      Encode(helpers_2) {
+        const arg = map$2((tupledArg_1) => [tupledArg_1[0], tupledArg_1[1].Encode(helpers_2)], values_1);
+        return helpers_2.encodeObject(arg);
+      }
+    };
+  };
+  if (idMap != null) {
+    return encode(ROCrate_genID, f, oa, value(idMap));
+  } else {
+    return f(oa);
+  }
+}
+const ISAJson_allowedFields = ofArray(["@id", "name", "characteristics", "factorValues", "derivesFrom", "@type", "@context"]);
+const ISAJson_decoder = Decode_objectNoAdditionalProperties(ISAJson_allowedFields, (get$) => {
+  let objectArg, objectArg_1, arg_5, objectArg_2, arg_7, objectArg_3, arg_9, objectArg_4;
+  return new Sample((objectArg = get$.Optional, objectArg.Field("@id", Decode_uri)), (objectArg_1 = get$.Optional, objectArg_1.Field("name", string)), (arg_5 = list(ISAJson_decoder$1), objectArg_2 = get$.Optional, objectArg_2.Field("characteristics", arg_5)), (arg_7 = list(ISAJson_decoder$2), objectArg_3 = get$.Optional, objectArg_3.Field("factorValues", arg_7)), (arg_9 = list(ISAJson_decoder$3), objectArg_4 = get$.Optional, objectArg_4.Field("derivesFrom", arg_9)));
+});
+
+export { ISAJson_allowedFields, ISAJson_decoder, ISAJson_encoder, ROCrate_additionalPropertyDecoder, ROCrate_decoder, ROCrate_encoder, ROCrate_genID };

package/dist/ts/ts/Json/Process/Source.d.ts

@@ -1,7 +1,7 @@
 import { Option } from '@fable-org/fable-library-js/Option.js';
 import { Source } from '../../Core/Process/Source.js';
 import { FSharpList } from '@fable-org/fable-library-js/List.js';
-import { Decoder$1, IEncodable } from '../../fable_modules/Thoth.Json.Core.0.4.0/Types.fs.js';
+import { Decoder$1, IEncodable } from '../../fable_modules/Thoth.Json.Core.0.7.0/Types.fs.js';
 import { IMap } from '@fable-org/fable-library-js/Util.js';
 export declare function ROCrate_genID(s: Source): string;
 export declare function ROCrate_encoder(oa: Source): IEncodable;

package/dist/ts/ts/Json/Process/Source.js

@@ -0,0 +1,133 @@
+import { value, map } from '../../../node_modules/@fable-org/fable-library-js/Option.js';
+import { replace } from '../../../node_modules/@fable-org/fable-library-js/String.js';
+import { URIModule_toString } from '../../Core/URI.js';
+import { Source } from '../../Core/Process/Source.js';
+import { ofArray, isEmpty, head, tail, choose, singleton } from '../../../node_modules/@fable-org/fable-library-js/List.js';
+import { list as list$1 } from '../../fable_modules/Thoth.Json.Core.0.7.0/Encode.fs.js';
+import { tryInclude, tryIncludeListOpt } from '../Encode.js';
+import { ISAJson_decoder as ISAJson_decoder$1, ROCrate_decoder as ROCrate_decoder$1, ROCrate_encoder as ROCrate_encoder$1, ISAJson_encoder as ISAJson_encoder$1 } from './MaterialAttributeValue.js';
+import { context_jsonvalue } from '../context/rocrate/isa_source_context.js';
+import { map as map$1 } from '../../../node_modules/@fable-org/fable-library-js/Seq.js';
+import { string, list, object, unit } from '../../fable_modules/Thoth.Json.Core.0.7.0/Decode.fs.js';
+import { Decode_objectNoAdditionalProperties, Decode_uri } from '../Decode.js';
+import { encode } from '../IDTable.js';
+
+function ROCrate_genID(s) {
+  const matchValue = s.ID;
+  if (matchValue == null) {
+    const matchValue_1 = s.Name;
+    if (matchValue_1 == null) {
+      return "#EmptySource";
+    } else {
+      return "#Source_" + replace(value(matchValue_1), " ", "_");
+    }
+  } else {
+    return URIModule_toString(value(matchValue));
+  }
+}
+function ROCrate_encoder(oa) {
+  let value;
+  const values_1 = choose((tupledArg) => map((v_1) => [tupledArg[0], v_1], tupledArg[1]), ofArray([["@id", (value = ROCrate_genID(oa), {
+    Encode(helpers) {
+      return helpers.encodeString(value);
+    }
+  })], ["@type", list$1(singleton({
+    Encode(helpers_1) {
+      return helpers_1.encodeString("Source");
+    }
+  }))], ["additionalType", {
+    Encode(helpers_2) {
+      return helpers_2.encodeString("Source");
+    }
+  }], tryInclude("name", (value_3) => ({
+    Encode(helpers_3) {
+      return helpers_3.encodeString(value_3);
+    }
+  }), oa.Name), tryIncludeListOpt("characteristics", ROCrate_encoder$1, oa.Characteristics), ["@context", context_jsonvalue]]));
+  return {
+    Encode(helpers_4) {
+      const arg = map$1((tupledArg_1) => [tupledArg_1[0], tupledArg_1[1].Encode(helpers_4)], values_1);
+      return helpers_4.encodeObject(arg);
+    }
+  };
+}
+const ROCrate_decoder = object((get$) => {
+  let objectArg_4, objectArg_5, arg_13, objectArg_6;
+  let matchValue;
+  const objectArg = get$.Optional;
+  matchValue = objectArg.Field("additionalType", Decode_uri);
+  let matchResult;
+  if (matchValue == null) {
+    matchResult = 0;
+  } else if (value(matchValue) === "Source") {
+    matchResult = 0;
+  } else {
+    matchResult = 1;
+  }
+  switch (matchResult) {
+    case 1: {
+      const objectArg_1 = get$.Required;
+      objectArg_1.Field("FailBecauseNotSample", unit);
+      break;
+    }
+  }
+  let matchValue_1;
+  const arg_5 = list(string);
+  const objectArg_2 = get$.Optional;
+  matchValue_1 = objectArg_2.Field("@type", arg_5);
+  let matchResult_1;
+  if (matchValue_1 == null) {
+    matchResult_1 = 0;
+  } else if (!isEmpty(value(matchValue_1))) {
+    if (head(value(matchValue_1)) === "Source") {
+      if (isEmpty(tail(value(matchValue_1)))) {
+        matchResult_1 = 0;
+      } else {
+        matchResult_1 = 1;
+      }
+    } else {
+      matchResult_1 = 1;
+    }
+  } else {
+    matchResult_1 = 1;
+  }
+  switch (matchResult_1) {
+    case 1: {
+      const objectArg_3 = get$.Required;
+      objectArg_3.Field("FailBecauseNotSample", unit);
+      break;
+    }
+  }
+  return new Source((objectArg_4 = get$.Optional, objectArg_4.Field("@id", Decode_uri)), (objectArg_5 = get$.Optional, objectArg_5.Field("name", string)), (arg_13 = list(ROCrate_decoder$1), objectArg_6 = get$.Optional, objectArg_6.Field("characteristics", arg_13)));
+});
+function ISAJson_encoder(idMap, oa) {
+  const f = (oa_1) => {
+    const values_1 = choose((tupledArg) => map((v_1) => [tupledArg[0], v_1], tupledArg[1]), ofArray([tryInclude("@id", (value) => ({
+      Encode(helpers) {
+        return helpers.encodeString(value);
+      }
+    }), ROCrate_genID(oa_1)), tryInclude("name", (value_2) => ({
+      Encode(helpers_1) {
+        return helpers_1.encodeString(value_2);
+      }
+    }), oa_1.Name), tryIncludeListOpt("characteristics", (oa_2) => ISAJson_encoder$1(idMap, oa_2), oa_1.Characteristics)]));
+    return {
+      Encode(helpers_2) {
+        const arg = map$1((tupledArg_1) => [tupledArg_1[0], tupledArg_1[1].Encode(helpers_2)], values_1);
+        return helpers_2.encodeObject(arg);
+      }
+    };
+  };
+  if (idMap != null) {
+    return encode(ROCrate_genID, f, oa, value(idMap));
+  } else {
+    return f(oa);
+  }
+}
+const ISAJson_allowedFields = ofArray(["@id", "name", "characteristics", "@type", "@context"]);
+const ISAJson_decoder = Decode_objectNoAdditionalProperties(ISAJson_allowedFields, (get$) => {
+  let objectArg, objectArg_1, arg_5, objectArg_2;
+  return new Source((objectArg = get$.Optional, objectArg.Field("@id", Decode_uri)), (objectArg_1 = get$.Optional, objectArg_1.Field("name", string)), (arg_5 = list(ISAJson_decoder$1), objectArg_2 = get$.Optional, objectArg_2.Field("characteristics", arg_5)));
+});
+
+export { ISAJson_allowedFields, ISAJson_decoder, ISAJson_encoder, ROCrate_decoder, ROCrate_encoder, ROCrate_genID };

package/dist/ts/ts/Json/Process/StudyMaterials.d.ts

@@ -1,6 +1,6 @@
 import { FSharpList } from '@fable-org/fable-library-js/List.js';
 import { Option } from '@fable-org/fable-library-js/Option.js';
-import { IEncodable } from '../../fable_modules/Thoth.Json.Core.0.4.0/Types.fs.js';
+import { IEncodable } from '../../fable_modules/Thoth.Json.Core.0.7.0/Types.fs.js';
 import { IMap } from '@fable-org/fable-library-js/Util.js';
 import { Process } from '../../Core/Process/Process.js';
 export declare function encoder(idMap: Option<IMap<string, IEncodable>>, ps: FSharpList<Process>): IEncodable;

package/dist/ts/ts/Json/Process/StudyMaterials.js

@@ -0,0 +1,23 @@
+import { getSources, getSamples, getMaterials } from '../../Core/Process/ProcessSequence.js';
+import { choose, ofArray } from '../../../node_modules/@fable-org/fable-library-js/List.js';
+import { map } from '../../../node_modules/@fable-org/fable-library-js/Option.js';
+import { tryIncludeList } from '../Encode.js';
+import { ISAJson_encoder } from './Source.js';
+import { ISAJson_encoder as ISAJson_encoder$1 } from './Sample.js';
+import { ISAJson_encoder as ISAJson_encoder$2 } from './Material.js';
+import { map as map$1 } from '../../../node_modules/@fable-org/fable-library-js/Seq.js';
+
+function encoder(idMap, ps) {
+  const source = getSources(ps);
+  const samples = getSamples(ps);
+  const materials = getMaterials(ps);
+  const values_1 = choose((tupledArg) => map((v_1) => [tupledArg[0], v_1], tupledArg[1]), ofArray([tryIncludeList("sources", (oa) => ISAJson_encoder(idMap, oa), source), tryIncludeList("samples", (oa_1) => ISAJson_encoder$1(idMap, oa_1), samples), tryIncludeList("otherMaterials", (c) => ISAJson_encoder$2(idMap, c), materials)]));
+  return {
+    Encode(helpers) {
+      const arg = map$1((tupledArg_1) => [tupledArg_1[0], tupledArg_1[1].Encode(helpers)], values_1);
+      return helpers.encodeObject(arg);
+    }
+  };
+}
+
+export { encoder };

package/dist/ts/ts/Json/Process/Value.d.ts

@@ -1,4 +1,4 @@
-import { Decoder$1, IEncodable } from '../../fable_modules/Thoth.Json.Core.0.4.0/Types.fs.js';
+import { Decoder$1, IEncodable } from '../../fable_modules/Thoth.Json.Core.0.7.0/Types.fs.js';
 import { Option } from '@fable-org/fable-library-js/Option.js';
 import { IMap } from '@fable-org/fable-library-js/Util.js';
 import { Value_$union } from '../../Core/Value.js';

package/dist/ts/ts/Json/Process/Value.js

@@ -0,0 +1,41 @@
+import { OntologyAnnotation_ISAJson_decoder, OntologyAnnotation_ISAJson_encoder } from '../OntologyAnnotation.js';
+import { Value_Int, Value_Float, Value_Ontology, Value_Name } from '../../Core/Value.js';
+import { oneOf, map, int, float, string } from '../../fable_modules/Thoth.Json.Core.0.7.0/Decode.fs.js';
+import { ofArray } from '../../../node_modules/@fable-org/fable-library-js/List.js';
+
+function encoder(idMap, value) {
+  switch (value.tag) {
+    case /* Int */
+    1: {
+      const i = value.fields[0] | 0;
+      return {
+        Encode(helpers_1) {
+          return helpers_1.encodeSignedIntegralNumber(i);
+        }
+      };
+    }
+    case /* Name */
+    3: {
+      const s = value.fields[0];
+      return {
+        Encode(helpers_2) {
+          return helpers_2.encodeString(s);
+        }
+      };
+    }
+    case /* Ontology */
+    0:
+      return OntologyAnnotation_ISAJson_encoder(idMap, value.fields[0]);
+    default: {
+      const f = value.fields[0];
+      return {
+        Encode(helpers) {
+          return helpers.encodeDecimalNumber(f);
+        }
+      };
+    }
+  }
+}
+const decoder = oneOf(ofArray([map(Value_Int, int), map(Value_Float, float), map(Value_Ontology, OntologyAnnotation_ISAJson_decoder), map(Value_Name, string)]));
+
+export { decoder, encoder };

package/dist/ts/ts/Json/PropertyValue.d.ts

@@ -2,7 +2,7 @@ import { Option } from '@fable-org/fable-library-js/Option.js';
 import { OntologyAnnotation } from '../Core/OntologyAnnotation.js';
 import { Value_$union } from '../Core/Value.js';
 import { IPropertyValue } from '../Core/IPropertyValue.js';
-import { Decoder$1, IEncodable } from '../fable_modules/Thoth.Json.Core.0.4.0/Types.fs.js';
+import { Decoder$1, IEncodable } from '../fable_modules/Thoth.Json.Core.0.7.0/Types.fs.js';
 export declare function genID(p: IPropertyValue): string;
 export declare function encoder(pv: IPropertyValue): IEncodable;
 export declare function decoder<T>(create: ((arg0: Option<string>, arg1: Option<string>, arg2: Option<string>, arg3: Option<OntologyAnnotation>, arg4: Option<Value_$union>, arg5: Option<OntologyAnnotation>) => T)): Decoder$1<T>;