@nfdi4plants/arctrl 1.0.0-alpha6

package/ISA/ISA/JsonTypes/DataFile.js

@@ -0,0 +1,68 @@
+import { Union } from "../../../fable_modules/fable-library.4.1.4/Types.js";
+import { union_type } from "../../../fable_modules/fable-library.4.1.4/Reflection.js";
+
+export class DataFile extends Union {
+    constructor(tag, fields) {
+        super();
+        this.tag = tag;
+        this.fields = fields;
+    }
+    cases() {
+        return ["RawDataFile", "DerivedDataFile", "ImageFile"];
+    }
+}
+
+export function DataFile_$reflection() {
+    return union_type("ARCtrl.ISA.DataFile", [], DataFile, () => [[], [], []]);
+}
+
+export function DataFile_get_RawDataFileJson() {
+    return "Raw Data File";
+}
+
+export function DataFile_get_DerivedDataFileJson() {
+    return "Derived Data File";
+}
+
+export function DataFile_get_ImageFileJson() {
+    return "Image File";
+}
+
+export function DataFile__get_AsString(this$) {
+    switch (this$.tag) {
+        case 1:
+            return "DerivedDataFileJson";
+        case 2:
+            return "ImageFileJson";
+        default:
+            return "RawDataFileJson";
+    }
+}
+
+export function DataFile__get_IsDerivedData(this$) {
+    if (this$.tag === 1) {
+        return true;
+    }
+    else {
+        return false;
+    }
+}
+
+export function DataFile__get_IsRawData(this$) {
+    if (this$.tag === 0) {
+        return true;
+    }
+    else {
+        return false;
+    }
+}
+
+export function DataFile__get_IsImage(this$) {
+    if (this$.tag === 2) {
+        return true;
+    }
+    else {
+        return false;
+    }
+}
+

package/ISA/ISA/JsonTypes/Factor.js

@@ -0,0 +1,128 @@
+import { OntologyAnnotation_$reflection, OntologyAnnotation } from "./OntologyAnnotation.js";
+import { map, defaultArg, unwrap } from "../../../fable_modules/fable-library.4.1.4/Option.js";
+import { Option_fromValueWithDefault } from "../Helper.js";
+import { filter, map as map_1, singleton, append, exists, tryFind } from "../../../fable_modules/fable-library.4.1.4/List.js";
+import { equals } from "../../../fable_modules/fable-library.4.1.4/Util.js";
+import { record_type, array_type, option_type, string_type, getRecordFields, makeRecord } from "../../../fable_modules/fable-library.4.1.4/Reflection.js";
+import { map as map_2, map2 } from "../../../fable_modules/fable-library.4.1.4/Array.js";
+import { Update_updateOnlyByExistingAppend, Update_updateOnlyByExisting, Update_updateAppend } from "../Helper.js";
+import { Record, toString } from "../../../fable_modules/fable-library.4.1.4/Types.js";
+import { Comment$_$reflection } from "./Comment.js";
+
+export class Factor extends Record {
+    constructor(ID, Name, FactorType, Comments) {
+        super();
+        this.ID = ID;
+        this.Name = Name;
+        this.FactorType = FactorType;
+        this.Comments = Comments;
+    }
+    static make(id, name, factorType, comments) {
+        return new Factor(id, name, factorType, comments);
+    }
+    static create(Id, Name, FactorType, Comments) {
+        return Factor.make(Id, Name, FactorType, Comments);
+    }
+    static get empty() {
+        return Factor.create();
+    }
+    static fromString(name, term, source, accession, comments) {
+        const oa = OntologyAnnotation.fromString(term, source, accession, unwrap(comments));
+        const arg_1 = Option_fromValueWithDefault("", name);
+        const arg_2 = Option_fromValueWithDefault(OntologyAnnotation.empty, oa);
+        return Factor.make(void 0, arg_1, arg_2, void 0);
+    }
+    static toString(factor) {
+        const value = {
+            TermAccessionNumber: "",
+            TermName: "",
+            TermSourceREF: "",
+        };
+        return defaultArg(map((arg) => OntologyAnnotation.toString(arg), factor.FactorType), value);
+    }
+    get NameText() {
+        const this$ = this;
+        return defaultArg(this$.Name, "");
+    }
+    MapCategory(f) {
+        const this$ = this;
+        return new Factor(this$.ID, this$.Name, map(f, this$.FactorType), this$.Comments);
+    }
+    SetCategory(c) {
+        const this$ = this;
+        return new Factor(this$.ID, this$.Name, c, this$.Comments);
+    }
+    static tryGetByName(name, factors) {
+        return tryFind((f) => equals(f.Name, name), factors);
+    }
+    static existsByName(name, factors) {
+        return exists((f) => equals(f.Name, name), factors);
+    }
+    static add(factors, factor) {
+        return append(factors, singleton(factor));
+    }
+    static updateBy(predicate, updateOption, factor, factors) {
+        return exists(predicate, factors) ? map_1((f) => {
+            if (predicate(f)) {
+                const this$ = updateOption;
+                const recordType_1 = f;
+                const recordType_2 = factor;
+                return (this$.tag === 2) ? makeRecord(Factor_$reflection(), map2(Update_updateAppend, getRecordFields(recordType_1), getRecordFields(recordType_2))) : ((this$.tag === 1) ? makeRecord(Factor_$reflection(), map2(Update_updateOnlyByExisting, getRecordFields(recordType_1), getRecordFields(recordType_2))) : ((this$.tag === 3) ? makeRecord(Factor_$reflection(), map2(Update_updateOnlyByExistingAppend, getRecordFields(recordType_1), getRecordFields(recordType_2))) : recordType_2));
+            }
+            else {
+                return f;
+            }
+        }, factors) : factors;
+    }
+    static updateByName(updateOption, factor, factors) {
+        return Factor.updateBy((f) => equals(f.Name, factor.Name), updateOption, factor, factors);
+    }
+    static removeByName(name, factors) {
+        return filter((f) => !equals(f.Name, name), factors);
+    }
+    static getComments(factor) {
+        return factor.Comments;
+    }
+    static mapComments(f, factor) {
+        return new Factor(factor.ID, factor.Name, factor.FactorType, map(f, factor.Comments));
+    }
+    static setComments(factor, comments) {
+        return new Factor(factor.ID, factor.Name, factor.FactorType, comments);
+    }
+    static getFactorType(factor) {
+        return factor.FactorType;
+    }
+    static mapFactorType(f, factor) {
+        return new Factor(factor.ID, factor.Name, map(f, factor.FactorType), factor.Comments);
+    }
+    static setFactorType(factor, factorType) {
+        return new Factor(factor.ID, factor.Name, factorType, factor.Comments);
+    }
+    static tryGetName(f) {
+        return f.Name;
+    }
+    static getNameAsString(f) {
+        return f.NameText;
+    }
+    static nameEqualsString(name, f) {
+        return f.NameText === name;
+    }
+    Copy() {
+        const this$ = this;
+        const arg_3 = map((array) => map_2((c) => c.Copy(), array), this$.Comments);
+        return Factor.make(this$.ID, this$.Name, this$.FactorType, arg_3);
+    }
+    Print() {
+        const this$ = this;
+        return toString(this$);
+    }
+    PrintCompact() {
+        const this$ = this;
+        return "OA " + this$.NameText;
+    }
+}
+
+export function Factor_$reflection() {
+    return record_type("ARCtrl.ISA.Factor", [], Factor, () => [["ID", option_type(string_type)], ["Name", option_type(string_type)], ["FactorType", option_type(OntologyAnnotation_$reflection())], ["Comments", option_type(array_type(Comment$_$reflection()))]]);
+}
+

package/ISA/ISA/JsonTypes/FactorValue.js

@@ -0,0 +1,109 @@
+import { Record, toString } from "../../../fable_modules/fable-library.4.1.4/Types.js";
+import { defaultArg, map } from "../../../fable_modules/fable-library.4.1.4/Option.js";
+import { record_type, option_type, string_type } from "../../../fable_modules/fable-library.4.1.4/Reflection.js";
+import { Factor, Factor_$reflection } from "./Factor.js";
+import { Value_$reflection } from "./Value.js";
+import { OntologyAnnotation_$reflection } from "./OntologyAnnotation.js";
+import { int32ToString } from "../../../fable_modules/fable-library.4.1.4/Util.js";
+import { printf, toText } from "../../../fable_modules/fable-library.4.1.4/String.js";
+
+export class FactorValue extends Record {
+    constructor(ID, Category, Value, Unit) {
+        super();
+        this.ID = ID;
+        this.Category = Category;
+        this.Value = Value;
+        this.Unit = Unit;
+    }
+    Print() {
+        const this$ = this;
+        return toString(this$);
+    }
+    PrintCompact() {
+        let value_2, category_2, category_1, value_1;
+        const this$ = this;
+        const category = map((f) => f.NameText, this$.Category);
+        const unit = map((oa) => oa.NameText, this$.Unit);
+        const value = map((v) => {
+            const s = v.PrintCompact();
+            if (unit == null) {
+                return s;
+            }
+            else {
+                return (s + " ") + unit;
+            }
+        }, this$.Value);
+        return (category == null) ? ((value == null) ? "" : ((value_2 = value, value_2))) : ((value == null) ? ((category_2 = category, (category_2 + ":") + "No Value")) : ((category_1 = category, (value_1 = value, (category_1 + ":") + value_1))));
+    }
+}
+
+export function FactorValue_$reflection() {
+    return record_type("ARCtrl.ISA.FactorValue", [], FactorValue, () => [["ID", option_type(string_type)], ["Category", option_type(Factor_$reflection())], ["Value", option_type(Value_$reflection())], ["Unit", option_type(OntologyAnnotation_$reflection())]]);
+}
+
+export function FactorValue_make(id, category, value, unit) {
+    return new FactorValue(id, category, value, unit);
+}
+
+export function FactorValue_create_18335379(Id, Category, Value, Unit) {
+    return FactorValue_make(Id, Category, Value, Unit);
+}
+
+export function FactorValue_get_empty() {
+    return FactorValue_create_18335379();
+}
+
+export function FactorValue__get_ValueText(this$) {
+    return defaultArg(map((oa) => {
+        switch (oa.tag) {
+            case 2:
+                return oa.fields[0].toString();
+            case 1:
+                return int32ToString(oa.fields[0]);
+            case 3:
+                return oa.fields[0];
+            default:
+                return oa.fields[0].NameText;
+        }
+    }, this$.Value), "");
+}
+
+export function FactorValue__get_ValueWithUnitText(this$) {
+    const unit = map((oa) => oa.NameText, this$.Unit);
+    const v = FactorValue__get_ValueText(this$);
+    if (unit == null) {
+        return v;
+    }
+    else {
+        const u = unit;
+        return toText(printf("%s %s"))(v)(u);
+    }
+}
+
+export function FactorValue__get_NameText(this$) {
+    return defaultArg(map((factor) => factor.NameText, this$.Category), "");
+}
+
+export function FactorValue__MapCategory_Z69DD836A(this$, f) {
+    return new FactorValue(this$.ID, map((p) => p.MapCategory(f), this$.Category), this$.Value, this$.Unit);
+}
+
+export function FactorValue__SetCategory_Z4C0FE73C(this$, c) {
+    let matchValue, p;
+    return new FactorValue(this$.ID, (matchValue = this$.Category, (matchValue == null) ? Factor.create(void 0, void 0, c) : ((p = matchValue, p.SetCategory(c)))), this$.Value, this$.Unit);
+}
+
+/**
+ * Returns the name of the factor value as string
+ */
+export function FactorValue_getNameAsString_Z2623397E(fv) {
+    return FactorValue__get_NameText(fv);
+}
+
+/**
+ * Returns true if the given name matches the name of the factor value
+ */
+export function FactorValue_nameEqualsString(name, fv) {
+    return FactorValue__get_NameText(fv) === name;
+}
+

package/ISA/ISA/JsonTypes/Investigation.js

@@ -0,0 +1,204 @@
+import { Record } from "../../../fable_modules/fable-library.4.1.4/Types.js";
+import { getRecordFields, makeRecord, record_type, list_type, option_type, string_type } from "../../../fable_modules/fable-library.4.1.4/Reflection.js";
+import { OntologySourceReference_$reflection } from "./OntologySourceReference.js";
+import { Publication_$reflection } from "./Publication.js";
+import { Person_$reflection } from "./Person.js";
+import { Study_update_7312BC8B, Study_$reflection } from "./Study.js";
+import { Remark_$reflection, Comment$_$reflection } from "./Comment.js";
+import { map, defaultArg } from "../../../fable_modules/fable-library.4.1.4/Option.js";
+import { map as map_1, empty } from "../../../fable_modules/fable-library.4.1.4/List.js";
+import { Option_mapDefault } from "../Helper.js";
+import { map2 } from "../../../fable_modules/fable-library.4.1.4/Array.js";
+import { Update_updateOnlyByExistingAppend, Update_updateOnlyByExisting, Update_updateAppend } from "../Helper.js";
+import { toFail } from "../../../fable_modules/fable-library.4.1.4/String.js";
+
+export class Investigation extends Record {
+    constructor(ID, FileName, Identifier, Title, Description, SubmissionDate, PublicReleaseDate, OntologySourceReferences, Publications, Contacts, Studies, Comments, Remarks) {
+        super();
+        this.ID = ID;
+        this.FileName = FileName;
+        this.Identifier = Identifier;
+        this.Title = Title;
+        this.Description = Description;
+        this.SubmissionDate = SubmissionDate;
+        this.PublicReleaseDate = PublicReleaseDate;
+        this.OntologySourceReferences = OntologySourceReferences;
+        this.Publications = Publications;
+        this.Contacts = Contacts;
+        this.Studies = Studies;
+        this.Comments = Comments;
+        this.Remarks = Remarks;
+    }
+}
+
+export function Investigation_$reflection() {
+    return record_type("ARCtrl.ISA.Investigation", [], Investigation, () => [["ID", option_type(string_type)], ["FileName", option_type(string_type)], ["Identifier", option_type(string_type)], ["Title", option_type(string_type)], ["Description", option_type(string_type)], ["SubmissionDate", option_type(string_type)], ["PublicReleaseDate", option_type(string_type)], ["OntologySourceReferences", option_type(list_type(OntologySourceReference_$reflection()))], ["Publications", option_type(list_type(Publication_$reflection()))], ["Contacts", option_type(list_type(Person_$reflection()))], ["Studies", option_type(list_type(Study_$reflection()))], ["Comments", option_type(list_type(Comment$_$reflection()))], ["Remarks", list_type(Remark_$reflection())]]);
+}
+
+export function Investigation_make(id, filename, identifier, title, description, submissionDate, publicReleaseDate, ontologySourceReference, publications, contacts, studies, comments, remarks) {
+    return new Investigation(id, filename, identifier, title, description, submissionDate, publicReleaseDate, ontologySourceReference, publications, contacts, studies, comments, remarks);
+}
+
+export function Investigation_create_4AD66BBE(Id, FileName, Identifier, Title, Description, SubmissionDate, PublicReleaseDate, OntologySourceReferences, Publications, Contacts, Studies, Comments, Remarks) {
+    return Investigation_make(Id, FileName, Identifier, Title, Description, SubmissionDate, PublicReleaseDate, OntologySourceReferences, Publications, Contacts, Studies, Comments, defaultArg(Remarks, empty()));
+}
+
+export function Investigation_get_empty() {
+    return Investigation_create_4AD66BBE();
+}
+
+/**
+ * Returns contacts of an investigation
+ */
+export function Investigation_getContacts_33B81164(investigation) {
+    return investigation.Contacts;
+}
+
+/**
+ * Applies function f on person of an investigation
+ */
+export function Investigation_mapContacts(f, investigation) {
+    return new Investigation(investigation.ID, investigation.FileName, investigation.Identifier, investigation.Title, investigation.Description, investigation.SubmissionDate, investigation.PublicReleaseDate, investigation.OntologySourceReferences, investigation.Publications, Option_mapDefault(empty(), f, investigation.Contacts), investigation.Studies, investigation.Comments, investigation.Remarks);
+}
+
+/**
+ * Replaces persons of an investigation with the given person list
+ */
+export function Investigation_setContacts(investigation, persons) {
+    return new Investigation(investigation.ID, investigation.FileName, investigation.Identifier, investigation.Title, investigation.Description, investigation.SubmissionDate, investigation.PublicReleaseDate, investigation.OntologySourceReferences, investigation.Publications, persons, investigation.Studies, investigation.Comments, investigation.Remarks);
+}
+
+/**
+ * Returns publications of an investigation
+ */
+export function Investigation_getPublications_33B81164(investigation) {
+    return investigation.Publications;
+}
+
+/**
+ * Applies function f on publications of an investigation
+ */
+export function Investigation_mapPublications(f, investigation) {
+    return new Investigation(investigation.ID, investigation.FileName, investigation.Identifier, investigation.Title, investigation.Description, investigation.SubmissionDate, investigation.PublicReleaseDate, investigation.OntologySourceReferences, Option_mapDefault(empty(), f, investigation.Publications), investigation.Contacts, investigation.Studies, investigation.Comments, investigation.Remarks);
+}
+
+/**
+ * Replaces publications of an investigation with the given publication list
+ */
+export function Investigation_setPublications(investigation, publications) {
+    return new Investigation(investigation.ID, investigation.FileName, investigation.Identifier, investigation.Title, investigation.Description, investigation.SubmissionDate, investigation.PublicReleaseDate, investigation.OntologySourceReferences, publications, investigation.Contacts, investigation.Studies, investigation.Comments, investigation.Remarks);
+}
+
+/**
+ * Returns ontology source ref of an investigation
+ */
+export function Investigation_getOntologies_33B81164(investigation) {
+    return investigation.OntologySourceReferences;
+}
+
+/**
+ * Applies function f on ontology source ref of an investigation
+ */
+export function Investigation_mapOntologies(f, investigation) {
+    return new Investigation(investigation.ID, investigation.FileName, investigation.Identifier, investigation.Title, investigation.Description, investigation.SubmissionDate, investigation.PublicReleaseDate, Option_mapDefault(empty(), f, investigation.OntologySourceReferences), investigation.Publications, investigation.Contacts, investigation.Studies, investigation.Comments, investigation.Remarks);
+}
+
+/**
+ * Replaces ontology source ref of an investigation with the given ontology source ref list
+ */
+export function Investigation_setOntologies(investigation, ontologies) {
+    return new Investigation(investigation.ID, investigation.FileName, investigation.Identifier, investigation.Title, investigation.Description, investigation.SubmissionDate, investigation.PublicReleaseDate, ontologies, investigation.Publications, investigation.Contacts, investigation.Studies, investigation.Comments, investigation.Remarks);
+}
+
+/**
+ * Returns studies of an investigation
+ */
+export function Investigation_getStudies_33B81164(investigation) {
+    return defaultArg(investigation.Studies, empty());
+}
+
+/**
+ * Applies function f on studies of an investigation
+ */
+export function Investigation_mapStudies(f, investigation) {
+    return new Investigation(investigation.ID, investigation.FileName, investigation.Identifier, investigation.Title, investigation.Description, investigation.SubmissionDate, investigation.PublicReleaseDate, investigation.OntologySourceReferences, investigation.Publications, investigation.Contacts, Option_mapDefault(empty(), f, investigation.Studies), investigation.Comments, investigation.Remarks);
+}
+
+/**
+ * Replaces studies of an investigation with the given study list
+ */
+export function Investigation_setStudies(investigation, studies) {
+    return new Investigation(investigation.ID, investigation.FileName, investigation.Identifier, investigation.Title, investigation.Description, investigation.SubmissionDate, investigation.PublicReleaseDate, investigation.OntologySourceReferences, investigation.Publications, investigation.Contacts, studies, investigation.Comments, investigation.Remarks);
+}
+
+/**
+ * Returns comments of an investigation
+ */
+export function Investigation_getComments_33B81164(investigation) {
+    return investigation.Comments;
+}
+
+/**
+ * Applies function f on comments of an investigation
+ */
+export function Investigation_mapComments(f, investigation) {
+    return new Investigation(investigation.ID, investigation.FileName, investigation.Identifier, investigation.Title, investigation.Description, investigation.SubmissionDate, investigation.PublicReleaseDate, investigation.OntologySourceReferences, investigation.Publications, investigation.Contacts, investigation.Studies, Option_mapDefault(empty(), f, investigation.Comments), investigation.Remarks);
+}
+
+/**
+ * Replaces comments of an investigation with the given comment list
+ */
+export function Investigation_setComments(investigation, comments) {
+    return new Investigation(investigation.ID, investigation.FileName, investigation.Identifier, investigation.Title, investigation.Description, investigation.SubmissionDate, investigation.PublicReleaseDate, investigation.OntologySourceReferences, investigation.Publications, investigation.Contacts, investigation.Studies, comments, investigation.Remarks);
+}
+
+/**
+ * Returns remarks of an investigation
+ */
+export function Investigation_getRemarks_33B81164(investigation) {
+    return investigation.Remarks;
+}
+
+/**
+ * Applies function f on remarks of an investigation
+ */
+export function Investigation_mapRemarks(f, investigation) {
+    return new Investigation(investigation.ID, investigation.FileName, investigation.Identifier, investigation.Title, investigation.Description, investigation.SubmissionDate, investigation.PublicReleaseDate, investigation.OntologySourceReferences, investigation.Publications, investigation.Contacts, investigation.Studies, investigation.Comments, f(investigation.Remarks));
+}
+
+/**
+ * Replaces remarks of an investigation with the given remark list
+ */
+export function Investigation_setRemarks(investigation, remarks) {
+    return new Investigation(investigation.ID, investigation.FileName, investigation.Identifier, investigation.Title, investigation.Description, investigation.SubmissionDate, investigation.PublicReleaseDate, investigation.OntologySourceReferences, investigation.Publications, investigation.Contacts, investigation.Studies, investigation.Comments, remarks);
+}
+
+/**
+ * Update the investigation with the values of the given newInvestigation
+ */
+export function Investigation_updateBy(updateOption, investigation, newInvestigation) {
+    const this$ = updateOption;
+    const recordType_1 = investigation;
+    const recordType_2 = newInvestigation;
+    switch (this$.tag) {
+        case 2:
+            return makeRecord(Investigation_$reflection(), map2(Update_updateAppend, getRecordFields(recordType_1), getRecordFields(recordType_2)));
+        case 1:
+            return makeRecord(Investigation_$reflection(), map2(Update_updateOnlyByExisting, getRecordFields(recordType_1), getRecordFields(recordType_2)));
+        case 3:
+            return makeRecord(Investigation_$reflection(), map2(Update_updateOnlyByExistingAppend, getRecordFields(recordType_1), getRecordFields(recordType_2)));
+        default:
+            return recordType_2;
+    }
+}
+
+export function Investigation_update_33B81164(investigation) {
+    try {
+        return new Investigation(investigation.ID, investigation.FileName, investigation.Identifier, investigation.Title, investigation.Description, investigation.SubmissionDate, investigation.PublicReleaseDate, investigation.OntologySourceReferences, investigation.Publications, investigation.Contacts, map((list) => map_1(Study_update_7312BC8B, list), investigation.Studies), investigation.Comments, investigation.Remarks);
+    }
+    catch (err) {
+        return toFail(`Could not update investigation ${investigation.Identifier}: 
+${err.message}`);
+    }
+}
+

package/ISA/ISA/JsonTypes/Material.js

@@ -0,0 +1,66 @@
+import { Record, toString } from "../../../fable_modules/fable-library.4.1.4/Types.js";
+import { choose, empty, length } from "../../../fable_modules/fable-library.4.1.4/List.js";
+import { defaultArg } from "../../../fable_modules/fable-library.4.1.4/Option.js";
+import { printf, toText } from "../../../fable_modules/fable-library.4.1.4/String.js";
+import { MaterialType_$reflection, MaterialType__get_AsString } from "./MaterialType.js";
+import { record_type, list_type, option_type, string_type } from "../../../fable_modules/fable-library.4.1.4/Reflection.js";
+import { MaterialAttributeValue_$reflection } from "./MaterialAttributeValue.js";
+
+export class Material extends Record {
+    constructor(ID, Name, MaterialType, Characteristics, DerivesFrom) {
+        super();
+        this.ID = ID;
+        this.Name = Name;
+        this.MaterialType = MaterialType;
+        this.Characteristics = Characteristics;
+        this.DerivesFrom = DerivesFrom;
+    }
+    Print() {
+        const this$ = this;
+        return toString(this$);
+    }
+    PrintCompact() {
+        const this$ = this;
+        const chars = length(defaultArg(this$.Characteristics, empty())) | 0;
+        const matchValue = this$.MaterialType;
+        if (matchValue == null) {
+            const arg_3 = Material__get_NameText(this$);
+            return toText(printf("%s [%i characteristics]"))(arg_3)(chars);
+        }
+        else {
+            const t = matchValue;
+            const arg = Material__get_NameText(this$);
+            const arg_1 = MaterialType__get_AsString(t);
+            return toText(printf("%s [%s; %i characteristics]"))(arg)(arg_1)(chars);
+        }
+    }
+}
+
+export function Material_$reflection() {
+    return record_type("ARCtrl.ISA.Material", [], Material, () => [["ID", option_type(string_type)], ["Name", option_type(string_type)], ["MaterialType", option_type(MaterialType_$reflection())], ["Characteristics", option_type(list_type(MaterialAttributeValue_$reflection()))], ["DerivesFrom", option_type(list_type(Material_$reflection()))]]);
+}
+
+export function Material_make(id, name, materialType, characteristics, derivesFrom) {
+    return new Material(id, name, materialType, characteristics, derivesFrom);
+}
+
+export function Material_create_Z31BE6CDD(Id, Name, MaterialType, Characteristics, DerivesFrom) {
+    return Material_make(Id, Name, MaterialType, Characteristics, DerivesFrom);
+}
+
+export function Material_get_empty() {
+    return Material_create_Z31BE6CDD();
+}
+
+export function Material__get_NameText(this$) {
+    return defaultArg(this$.Name, "");
+}
+
+export function Material_getUnits_Z42815C11(m) {
+    return choose((c) => c.Unit, defaultArg(m.Characteristics, empty()));
+}
+
+export function Material_setCharacteristicValues(values, m) {
+    return new Material(m.ID, m.Name, m.MaterialType, values, m.DerivesFrom);
+}
+

package/ISA/ISA/JsonTypes/MaterialAttribute.js

@@ -0,0 +1,101 @@
+import { Record, toString } from "../../../fable_modules/fable-library.4.1.4/Types.js";
+import { record_type, option_type, string_type } from "../../../fable_modules/fable-library.4.1.4/Reflection.js";
+import { OntologyAnnotation, OntologyAnnotation_$reflection } from "./OntologyAnnotation.js";
+import { bind, map, defaultArg, unwrap } from "../../../fable_modules/fable-library.4.1.4/Option.js";
+import { Option_fromValueWithDefault } from "../Helper.js";
+
+export class MaterialAttribute extends Record {
+    constructor(ID, CharacteristicType) {
+        super();
+        this.ID = ID;
+        this.CharacteristicType = CharacteristicType;
+    }
+    Print() {
+        const this$ = this;
+        return toString(this$);
+    }
+    PrintCompact() {
+        const this$ = this;
+        return "OA " + MaterialAttribute__get_NameText(this$);
+    }
+}
+
+export function MaterialAttribute_$reflection() {
+    return record_type("ARCtrl.ISA.MaterialAttribute", [], MaterialAttribute, () => [["ID", option_type(string_type)], ["CharacteristicType", option_type(OntologyAnnotation_$reflection())]]);
+}
+
+export function MaterialAttribute_make(id, characteristicType) {
+    return new MaterialAttribute(id, characteristicType);
+}
+
+export function MaterialAttribute_create_Z6C54B221(Id, CharacteristicType) {
+    return MaterialAttribute_make(Id, CharacteristicType);
+}
+
+export function MaterialAttribute_get_empty() {
+    return MaterialAttribute_create_Z6C54B221();
+}
+
+/**
+ * Create a ISAJson MaterialAttribute from ISATab string entries
+ */
+export function MaterialAttribute_fromString_Z2304A83C(term, source, accession, comments) {
+    const oa = OntologyAnnotation.fromString(term, source, accession, unwrap(comments));
+    return MaterialAttribute_make(void 0, Option_fromValueWithDefault(OntologyAnnotation.empty, oa));
+}
+
+/**
+ * Get ISATab string entries from an ISAJson MaterialAttribute object
+ */
+export function MaterialAttribute_toString_Z5F39696D(ma) {
+    const value = {
+        TermAccessionNumber: "",
+        TermName: "",
+        TermSourceREF: "",
+    };
+    return defaultArg(map((arg) => OntologyAnnotation.toString(arg), ma.CharacteristicType), value);
+}
+
+/**
+ * Returns the name of the characteristic as string
+ */
+export function MaterialAttribute__get_NameText(this$) {
+    return defaultArg(map((oa) => oa.NameText, this$.CharacteristicType), "");
+}
+
+/**
+ * Returns the name of the characteristic as string
+ */
+export function MaterialAttribute__get_TryNameText(this$) {
+    return bind((oa) => oa.TryNameText, this$.CharacteristicType);
+}
+
+export function MaterialAttribute__MapCategory_Z69DD836A(this$, f) {
+    return new MaterialAttribute(this$.ID, map(f, this$.CharacteristicType));
+}
+
+export function MaterialAttribute__SetCategory_Z4C0FE73C(this$, c) {
+    return new MaterialAttribute(this$.ID, c);
+}
+
+/**
+ * Returns the name of the characteristic as string if it exists
+ */
+export function MaterialAttribute_tryGetNameText_Z5F39696D(ma) {
+    return MaterialAttribute__get_NameText(ma);
+}
+
+/**
+ * Returns the name of the characteristic as string
+ */
+export function MaterialAttribute_getNameText_Z5F39696D(ma) {
+    return MaterialAttribute__get_TryNameText(ma);
+}
+
+/**
+ * Returns true if the given name matches the name of the characteristic
+ */
+export function MaterialAttribute_nameEqualsString(name, ma) {
+    return MaterialAttribute__get_NameText(ma) === name;
+}
+