@nfdi4plants/arctrl 1.0.0-alpha6

package/ISA/ISA/JsonTypes/MaterialAttributeValue.js

@@ -0,0 +1,126 @@
+import { Record, toString } from "../../../fable_modules/fable-library.4.1.4/Types.js";
+import { bind, defaultArg, map } from "../../../fable_modules/fable-library.4.1.4/Option.js";
+import { MaterialAttribute__SetCategory_Z4C0FE73C, MaterialAttribute_create_Z6C54B221, MaterialAttribute__MapCategory_Z69DD836A, MaterialAttribute__get_TryNameText, MaterialAttribute_$reflection, MaterialAttribute__get_NameText } from "./MaterialAttribute.js";
+import { record_type, option_type, string_type } from "../../../fable_modules/fable-library.4.1.4/Reflection.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 MaterialAttributeValue 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(MaterialAttribute__get_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 MaterialAttributeValue_$reflection() {
+    return record_type("ARCtrl.ISA.MaterialAttributeValue", [], MaterialAttributeValue, () => [["ID", option_type(string_type)], ["Category", option_type(MaterialAttribute_$reflection())], ["Value", option_type(Value_$reflection())], ["Unit", option_type(OntologyAnnotation_$reflection())]]);
+}
+
+export function MaterialAttributeValue_make(id, category, value, unit) {
+    return new MaterialAttributeValue(id, category, value, unit);
+}
+
+export function MaterialAttributeValue_create_7F714043(Id, Category, Value, Unit) {
+    return MaterialAttributeValue_make(Id, Category, Value, Unit);
+}
+
+export function MaterialAttributeValue_get_empty() {
+    return MaterialAttributeValue_create_7F714043();
+}
+
+/**
+ * Returns the name of the category as string
+ */
+export function MaterialAttributeValue__get_NameText(this$) {
+    return defaultArg(map(MaterialAttribute__get_NameText, this$.Category), "");
+}
+
+/**
+ * Returns the name of the category as string
+ */
+export function MaterialAttributeValue__get_TryNameText(this$) {
+    return bind(MaterialAttribute__get_TryNameText, this$.Category);
+}
+
+export function MaterialAttributeValue__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 MaterialAttributeValue__get_ValueWithUnitText(this$) {
+    const unit = map((oa) => oa.NameText, this$.Unit);
+    const v = MaterialAttributeValue__get_ValueText(this$);
+    if (unit == null) {
+        return v;
+    }
+    else {
+        const u = unit;
+        return toText(printf("%s %s"))(v)(u);
+    }
+}
+
+export function MaterialAttributeValue__MapCategory_Z69DD836A(this$, f) {
+    return new MaterialAttributeValue(this$.ID, map((p) => MaterialAttribute__MapCategory_Z69DD836A(p, f), this$.Category), this$.Value, this$.Unit);
+}
+
+export function MaterialAttributeValue__SetCategory_Z4C0FE73C(this$, c) {
+    let matchValue;
+    return new MaterialAttributeValue(this$.ID, (matchValue = this$.Category, (matchValue == null) ? MaterialAttribute_create_Z6C54B221(void 0, c) : MaterialAttribute__SetCategory_Z4C0FE73C(matchValue, c)), this$.Value, this$.Unit);
+}
+
+/**
+ * Returns the name of the characteristic value as string if it exists
+ */
+export function MaterialAttributeValue_tryGetNameText_43A5B238(mv) {
+    return MaterialAttributeValue__get_TryNameText(mv);
+}
+
+/**
+ * Returns the name of the characteristic value as string
+ */
+export function MaterialAttributeValue_getNameAsString_43A5B238(mv) {
+    return MaterialAttributeValue__get_TryNameText(mv);
+}
+
+/**
+ * Returns true if the given name matches the name of the characteristic value
+ */
+export function MaterialAttributeValue_nameEqualsString(name, mv) {
+    return MaterialAttributeValue__get_NameText(mv) === name;
+}
+

package/ISA/ISA/JsonTypes/MaterialType.js

@@ -0,0 +1,41 @@
+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 MaterialType extends Union {
+    constructor(tag, fields) {
+        super();
+        this.tag = tag;
+        this.fields = fields;
+    }
+    cases() {
+        return ["ExtractName", "LabeledExtractName"];
+    }
+}
+
+export function MaterialType_$reflection() {
+    return union_type("ARCtrl.ISA.MaterialType", [], MaterialType, () => [[], []]);
+}
+
+export function MaterialType_create_Z721C83C5(t) {
+    switch (t) {
+        case "Extract Name":
+            return new MaterialType(0, []);
+        case "Labeled Extract Name":
+            return new MaterialType(1, []);
+        default:
+            throw new Error("No other value than \"Extract Name\" or \"Labeled Extract Name\" allowed for materialtype");
+    }
+}
+
+/**
+ * Returns the type of the MaterialType
+ */
+export function MaterialType__get_AsString(this$) {
+    if (this$.tag === 1) {
+        return "Labeled Extract";
+    }
+    else {
+        return "Extract";
+    }
+}
+

package/ISA/ISA/JsonTypes/OntologyAnnotation.js

@@ -0,0 +1,219 @@
+import { value as value_4, map, defaultArg, bind, unwrap } from "../../../fable_modules/fable-library.4.1.4/Option.js";
+import { Pattern_TermAnnotationShortPattern, ActivePatterns_$007CRegex$007C_$007C, tryParseTermAnnotation } from "../Regex.js";
+import { equals, stringHash, int32ToString } from "../../../fable_modules/fable-library.4.1.4/Util.js";
+import { AnnotationValue_$reflection, AnnotationValue_toString_Z6FAD7738, AnnotationValue_fromString_Z721C83C5 } from "./AnnotationValue.js";
+import { filter, map as map_1, singleton, append, exists, tryFind } from "../../../fable_modules/fable-library.4.1.4/List.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 { Option_mapDefault } from "../Helper.js";
+import { Record, toString } from "../../../fable_modules/fable-library.4.1.4/Types.js";
+import { Comment$_$reflection } from "./Comment.js";
+
+export class OntologyAnnotation extends Record {
+    constructor(ID, Name, TermSourceREF, TermAccessionNumber, Comments) {
+        super();
+        this.ID = ID;
+        this.Name = Name;
+        this.TermSourceREF = TermSourceREF;
+        this.TermAccessionNumber = TermAccessionNumber;
+        this.Comments = Comments;
+    }
+    static make(id, name, termSourceREF, termAccessionNumber, comments) {
+        return new OntologyAnnotation(id, name, termSourceREF, termAccessionNumber, comments);
+    }
+    static create(Id, Name, TermSourceREF, TermAccessionNumber, Comments) {
+        return OntologyAnnotation.make(Id, Name, TermSourceREF, TermAccessionNumber, Comments);
+    }
+    static get empty() {
+        return OntologyAnnotation.create();
+    }
+    get TANInfo() {
+        const this$ = this;
+        return unwrap(bind(tryParseTermAnnotation, this$.TermAccessionNumber));
+    }
+    get NameText() {
+        const this$ = this;
+        return defaultArg(map((av) => {
+            switch (av.tag) {
+                case 1:
+                    return av.fields[0].toString();
+                case 2:
+                    return int32ToString(av.fields[0]);
+                default:
+                    return av.fields[0];
+            }
+        }, this$.Name), "");
+    }
+    get TryNameText() {
+        const this$ = this;
+        return unwrap(map((av) => {
+            switch (av.tag) {
+                case 1:
+                    return av.fields[0].toString();
+                case 2:
+                    return int32ToString(av.fields[0]);
+                default:
+                    return av.fields[0];
+            }
+        }, this$.Name));
+    }
+    get TermSourceREFString() {
+        const this$ = this;
+        return defaultArg(this$.TermSourceREF, "");
+    }
+    get TermAccessionString() {
+        const this$ = this;
+        return defaultArg(this$.TermAccessionNumber, "");
+    }
+    static createUriAnnotation(termSourceRef, localTAN) {
+        return `${"http://purl.obolibrary.org/obo/"}${termSourceRef}_${localTAN}`;
+    }
+    static fromString(termName, tsr, tan, comments) {
+        const arg_1 = map(AnnotationValue_fromString_Z721C83C5, termName);
+        return OntologyAnnotation.make(void 0, arg_1, tsr, tan, comments);
+    }
+    static fromTermAnnotation(termAnnotation) {
+        const r = value_4(tryParseTermAnnotation(termAnnotation));
+        const accession = (r.IDSpace + ":") + r.LocalID;
+        return OntologyAnnotation.fromString("", r.IDSpace, accession);
+    }
+    get TermAccessionShort() {
+        const this$ = this;
+        const matchValue = this$.TANInfo;
+        if (matchValue != null) {
+            const id = matchValue;
+            return `${id.IDSpace}:${id.LocalID}`;
+        }
+        else {
+            return "";
+        }
+    }
+    get TermAccessionOntobeeUrl() {
+        const this$ = this;
+        const matchValue = this$.TANInfo;
+        if (matchValue != null) {
+            const id = matchValue;
+            return OntologyAnnotation.createUriAnnotation(id.IDSpace, id.LocalID);
+        }
+        else {
+            return "";
+        }
+    }
+    get TermAccessionAndOntobeeUrlIfShort() {
+        const this$ = this;
+        const matchValue = this$.TermAccessionNumber;
+        if (matchValue != null) {
+            const tan = matchValue;
+            return (ActivePatterns_$007CRegex$007C_$007C(Pattern_TermAnnotationShortPattern, tan) != null) ? this$.TermAccessionOntobeeUrl : tan;
+        }
+        else {
+            return "";
+        }
+    }
+    static toString(oa, asOntobeePurlUrlIfShort) {
+        let url;
+        const asOntobeePurlUrlIfShort_1 = defaultArg(asOntobeePurlUrlIfShort, false);
+        const TermName = defaultArg(map(AnnotationValue_toString_Z6FAD7738, oa.Name), "");
+        const TermSourceREF = defaultArg(oa.TermSourceREF, "");
+        return {
+            TermAccessionNumber: asOntobeePurlUrlIfShort_1 ? ((url = oa.TermAccessionAndOntobeeUrlIfShort, (url === "") ? defaultArg(oa.TermAccessionNumber, "") : url)) : defaultArg(oa.TermAccessionNumber, ""),
+            TermName: TermName,
+            TermSourceREF: TermSourceREF,
+        };
+    }
+    Equals(other) {
+        const this$ = this;
+        if (other instanceof OntologyAnnotation) {
+            return this$["System.IEquatable`1.Equals2B595"](other);
+        }
+        else if (typeof other === "string") {
+            const s = other;
+            return ((this$.NameText === s) ? true : (this$.TermAccessionShort === s)) ? true : (this$.TermAccessionOntobeeUrl === s);
+        }
+        else {
+            return false;
+        }
+    }
+    GetHashCode() {
+        const this$ = this;
+        return stringHash(this$.NameText + this$.TermAccessionShort) | 0;
+    }
+    static tryGetNameText(oa) {
+        return oa.TryNameText;
+    }
+    static getNameText(oa) {
+        return oa.NameText;
+    }
+    static nameEqualsString(name, oa) {
+        return oa.NameText === name;
+    }
+    static tryGetByName(name, annotations) {
+        return tryFind((d) => equals(d.Name, name), annotations);
+    }
+    static existsByName(name, annotations) {
+        return exists((d) => equals(d.Name, name), annotations);
+    }
+    static add(onotolgyAnnotations, onotolgyAnnotation) {
+        return append(onotolgyAnnotations, singleton(onotolgyAnnotation));
+    }
+    static updateBy(predicate, updateOption, design, annotations) {
+        return exists(predicate, annotations) ? map_1((d) => {
+            if (predicate(d)) {
+                const this$ = updateOption;
+                const recordType_1 = d;
+                const recordType_2 = design;
+                switch (this$.tag) {
+                    case 2:
+                        return makeRecord(OntologyAnnotation_$reflection(), map2(Update_updateAppend, getRecordFields(recordType_1), getRecordFields(recordType_2)));
+                    case 1:
+                        return makeRecord(OntologyAnnotation_$reflection(), map2(Update_updateOnlyByExisting, getRecordFields(recordType_1), getRecordFields(recordType_2)));
+                    case 3:
+                        return makeRecord(OntologyAnnotation_$reflection(), map2(Update_updateOnlyByExistingAppend, getRecordFields(recordType_1), getRecordFields(recordType_2)));
+                    default:
+                        return recordType_2;
+                }
+            }
+            else {
+                return d;
+            }
+        }, annotations) : annotations;
+    }
+    static updateByName(updateOption, design, annotations) {
+        return OntologyAnnotation.updateBy((f) => equals(f.Name, design.Name), updateOption, design, annotations);
+    }
+    static removeByName(name, annotations) {
+        return filter((d) => !equals(d.Name, name), annotations);
+    }
+    static getComments(annotation) {
+        return annotation.Comments;
+    }
+    static mapComments(f, annotation) {
+        return new OntologyAnnotation(annotation.ID, annotation.Name, annotation.TermSourceREF, annotation.TermAccessionNumber, Option_mapDefault([], f, annotation.Comments));
+    }
+    static setComments(annotation, comments) {
+        return new OntologyAnnotation(annotation.ID, annotation.Name, annotation.TermSourceREF, annotation.TermAccessionNumber, comments);
+    }
+    Copy() {
+        const this$ = this;
+        const arg_4 = map((array) => map_2((c) => c.Copy(), array), this$.Comments);
+        return OntologyAnnotation.make(this$.ID, this$.Name, this$.TermSourceREF, this$.TermAccessionNumber, arg_4);
+    }
+    Print() {
+        const this$ = this;
+        return toString(this$);
+    }
+    PrintCompact() {
+        const this$ = this;
+        return "OA " + this$.NameText;
+    }
+    "System.IEquatable`1.Equals2B595"(other) {
+        const this$ = this;
+        return ((this$.TermAccessionNumber != null) && (other.TermAccessionNumber != null)) ? ((other.TermAccessionShort === this$.TermAccessionShort) ? true : (other.TermAccessionOntobeeUrl === this$.TermAccessionOntobeeUrl)) : (((this$.Name != null) && (other.Name != null)) ? (other.NameText === this$.NameText) : ((((this$.TermAccessionNumber == null) && (other.TermAccessionNumber == null)) && (this$.Name == null)) && (other.Name == null)));
+    }
+}
+
+export function OntologyAnnotation_$reflection() {
+    return record_type("ARCtrl.ISA.OntologyAnnotation", [], OntologyAnnotation, () => [["ID", option_type(string_type)], ["Name", option_type(AnnotationValue_$reflection())], ["TermSourceREF", option_type(string_type)], ["TermAccessionNumber", option_type(string_type)], ["Comments", option_type(array_type(Comment$_$reflection()))]]);
+}
+

package/ISA/ISA/JsonTypes/OntologySourceReference.js

@@ -0,0 +1,85 @@
+import { filter, map, 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 { Option_mapDefault } from "../Helper.js";
+import { map as map_1 } from "../../../fable_modules/fable-library.4.1.4/Option.js";
+import { Record } from "../../../fable_modules/fable-library.4.1.4/Types.js";
+import { Comment$_$reflection } from "./Comment.js";
+
+export class OntologySourceReference extends Record {
+    constructor(Description, File, Name, Version, Comments) {
+        super();
+        this.Description = Description;
+        this.File = File;
+        this.Name = Name;
+        this.Version = Version;
+        this.Comments = Comments;
+    }
+    static make(description, file, name, version, comments) {
+        return new OntologySourceReference(description, file, name, version, comments);
+    }
+    static create(Description, File, Name, Version, Comments) {
+        return OntologySourceReference.make(Description, File, Name, Version, Comments);
+    }
+    static get empty() {
+        return OntologySourceReference.create();
+    }
+    static tryGetByName(name, ontologies) {
+        return tryFind((t) => equals(t.Name, name), ontologies);
+    }
+    static existsByName(name, ontologies) {
+        return exists((t) => equals(t.Name, name), ontologies);
+    }
+    static add(ontologySourceReference, ontologies) {
+        return append(ontologies, singleton(ontologySourceReference));
+    }
+    static updateBy(predicate, updateOption, ontologySourceReference, ontologies) {
+        return exists(predicate, ontologies) ? map((t) => {
+            if (predicate(t)) {
+                const this$ = updateOption;
+                const recordType_1 = t;
+                const recordType_2 = ontologySourceReference;
+                switch (this$.tag) {
+                    case 2:
+                        return makeRecord(OntologySourceReference_$reflection(), map2(Update_updateAppend, getRecordFields(recordType_1), getRecordFields(recordType_2)));
+                    case 1:
+                        return makeRecord(OntologySourceReference_$reflection(), map2(Update_updateOnlyByExisting, getRecordFields(recordType_1), getRecordFields(recordType_2)));
+                    case 3:
+                        return makeRecord(OntologySourceReference_$reflection(), map2(Update_updateOnlyByExistingAppend, getRecordFields(recordType_1), getRecordFields(recordType_2)));
+                    default:
+                        return recordType_2;
+                }
+            }
+            else {
+                return t;
+            }
+        }, ontologies) : ontologies;
+    }
+    static updateByName(updateOption, ontologySourceReference, ontologies) {
+        return OntologySourceReference.updateBy((t) => equals(t.Name, ontologySourceReference.Name), updateOption, ontologySourceReference, ontologies);
+    }
+    static removeByName(name, ontologies) {
+        return filter((t) => !equals(t.Name, name), ontologies);
+    }
+    static getComments(ontology) {
+        return ontology.Comments;
+    }
+    static mapComments(f, ontology) {
+        return new OntologySourceReference(ontology.Description, ontology.File, ontology.Name, ontology.Version, Option_mapDefault([], f, ontology.Comments));
+    }
+    static setComments(ontology, comments) {
+        return new OntologySourceReference(ontology.Description, ontology.File, ontology.Name, ontology.Version, comments);
+    }
+    Copy() {
+        const this$ = this;
+        const arg_4 = map_1((array) => map_2((c) => c.Copy(), array), this$.Comments);
+        return OntologySourceReference.make(this$.Description, this$.File, this$.Name, this$.Version, arg_4);
+    }
+}
+
+export function OntologySourceReference_$reflection() {
+    return record_type("ARCtrl.ISA.OntologySourceReference", [], OntologySourceReference, () => [["Description", option_type(string_type)], ["File", option_type(string_type)], ["Name", option_type(string_type)], ["Version", option_type(string_type)], ["Comments", option_type(array_type(Comment$_$reflection()))]]);
+}
+

package/ISA/ISA/JsonTypes/Person.js

@@ -0,0 +1,137 @@
+import { append as append_1, tryPick, map2, map, tryFind } from "../../../fable_modules/fable-library.4.1.4/Array.js";
+import { equals } from "../../../fable_modules/fable-library.4.1.4/Util.js";
+import { singleton, append } from "../../../fable_modules/fable-library.4.1.4/List.js";
+import { record_type, array_type, option_type, string_type, getRecordFields, makeRecord } from "../../../fable_modules/fable-library.4.1.4/Reflection.js";
+import { Update_updateOnlyByExistingAppend, Update_updateOnlyByExisting, Update_updateAppend } from "../Helper.js";
+import { Option_fromValueWithDefault, Option_mapDefault } from "../Helper.js";
+import { endsWith } from "../../../fable_modules/fable-library.4.1.4/String.js";
+import { map as map_1, defaultArg, value as value_2 } from "../../../fable_modules/fable-library.4.1.4/Option.js";
+import { Comment$_$reflection, Comment$ } from "./Comment.js";
+import { Record } from "../../../fable_modules/fable-library.4.1.4/Types.js";
+import { OntologyAnnotation_$reflection } from "./OntologyAnnotation.js";
+
+export class Person extends Record {
+    constructor(ID, ORCID, LastName, FirstName, MidInitials, EMail, Phone, Fax, Address, Affiliation, Roles, Comments) {
+        super();
+        this.ID = ID;
+        this.ORCID = ORCID;
+        this.LastName = LastName;
+        this.FirstName = FirstName;
+        this.MidInitials = MidInitials;
+        this.EMail = EMail;
+        this.Phone = Phone;
+        this.Fax = Fax;
+        this.Address = Address;
+        this.Affiliation = Affiliation;
+        this.Roles = Roles;
+        this.Comments = Comments;
+    }
+    static make(id, orcid, lastName, firstName, midInitials, email, phone, fax, address, affiliation, roles, comments) {
+        return new Person(id, orcid, lastName, firstName, midInitials, email, phone, fax, address, affiliation, roles, comments);
+    }
+    static create(Id, ORCID, LastName, FirstName, MidInitials, Email, Phone, Fax, Address, Affiliation, Roles, Comments) {
+        return Person.make(Id, ORCID, LastName, FirstName, MidInitials, Email, Phone, Fax, Address, Affiliation, Roles, Comments);
+    }
+    static get empty() {
+        return Person.create();
+    }
+    static tryGetByFullName(firstName, midInitials, lastName, persons) {
+        return tryFind((p) => ((midInitials === "") ? (equals(p.FirstName, firstName) && equals(p.LastName, lastName)) : ((equals(p.FirstName, firstName) && equals(p.MidInitials, midInitials)) && equals(p.LastName, lastName))), persons);
+    }
+    static existsByFullName(firstName, midInitials, lastName, persons) {
+        return persons.some((p) => ((midInitials === "") ? (equals(p.FirstName, firstName) && equals(p.LastName, lastName)) : ((equals(p.FirstName, firstName) && equals(p.MidInitials, midInitials)) && equals(p.LastName, lastName))));
+    }
+    static add(persons, person) {
+        return append(persons, singleton(person));
+    }
+    static updateBy(predicate, updateOption, person, persons) {
+        return persons.some(predicate) ? map((p) => {
+            if (predicate(p)) {
+                const this$ = updateOption;
+                const recordType_1 = p;
+                const recordType_2 = person;
+                switch (this$.tag) {
+                    case 2:
+                        return makeRecord(Person_$reflection(), map2(Update_updateAppend, getRecordFields(recordType_1), getRecordFields(recordType_2)));
+                    case 1:
+                        return makeRecord(Person_$reflection(), map2(Update_updateOnlyByExisting, getRecordFields(recordType_1), getRecordFields(recordType_2)));
+                    case 3:
+                        return makeRecord(Person_$reflection(), map2(Update_updateOnlyByExistingAppend, getRecordFields(recordType_1), getRecordFields(recordType_2)));
+                    default:
+                        return recordType_2;
+                }
+            }
+            else {
+                return p;
+            }
+        }, persons) : persons;
+    }
+    static updateByFullName(updateOption, person, persons) {
+        return Person.updateBy((p) => {
+            if (equals(p.FirstName, person.FirstName) && equals(p.MidInitials, person.MidInitials)) {
+                return equals(p.LastName, person.LastName);
+            }
+            else {
+                return false;
+            }
+        }, updateOption, person, persons);
+    }
+    static removeByFullName(firstName, midInitials, lastName, persons) {
+        return persons.filter((p) => ((midInitials === "") ? !(equals(p.FirstName, firstName) && equals(p.LastName, lastName)) : !((equals(p.FirstName, firstName) && equals(p.MidInitials, midInitials)) && equals(p.LastName, lastName))));
+    }
+    static getRoles(person) {
+        return person.Roles;
+    }
+    static mapRoles(f, person) {
+        return new Person(person.ID, person.ORCID, person.LastName, person.FirstName, person.MidInitials, person.EMail, person.Phone, person.Fax, person.Address, person.Affiliation, Option_mapDefault([], f, person.Roles), person.Comments);
+    }
+    static setRoles(person, roles) {
+        return new Person(person.ID, person.ORCID, person.LastName, person.FirstName, person.MidInitials, person.EMail, person.Phone, person.Fax, person.Address, person.Affiliation, roles, person.Comments);
+    }
+    static getComments(person) {
+        return person.Comments;
+    }
+    static mapComments(f, person) {
+        return new Person(person.ID, person.ORCID, person.LastName, person.FirstName, person.MidInitials, person.EMail, person.Phone, person.Fax, person.Address, person.Affiliation, person.Roles, Option_mapDefault([], f, person.Comments));
+    }
+    static setComments(person, comments) {
+        return new Person(person.ID, person.ORCID, person.LastName, person.FirstName, person.MidInitials, person.EMail, person.Phone, person.Fax, person.Address, person.Affiliation, person.Roles, comments);
+    }
+    static get orcidKey() {
+        return "ORCID";
+    }
+    static setOrcidFromComments(person) {
+        const isOrcidComment = (c) => {
+            if (c.Name != null) {
+                return endsWith(value_2(c.Name).toLocaleUpperCase(), Person.orcidKey);
+            }
+            else {
+                return false;
+            }
+        };
+        const patternInput = defaultArg(map_1((comments) => [tryPick((c_1) => {
+            if (isOrcidComment(c_1)) {
+                return c_1.Value;
+            }
+            else {
+                return void 0;
+            }
+        }, comments), Option_fromValueWithDefault([], comments.filter((arg) => !isOrcidComment(arg)))], person.Comments), [void 0, person.Comments]);
+        return new Person(person.ID, patternInput[0], person.LastName, person.FirstName, person.MidInitials, person.EMail, person.Phone, person.Fax, person.Address, person.Affiliation, person.Roles, patternInput[1]);
+    }
+    static setCommentFromORCID(person) {
+        let matchValue, matchValue_1, orcid_1, comments, orcid;
+        return new Person(person.ID, person.ORCID, person.LastName, person.FirstName, person.MidInitials, person.EMail, person.Phone, person.Fax, person.Address, person.Affiliation, person.Roles, (matchValue = person.ORCID, (matchValue_1 = person.Comments, (matchValue == null) ? matchValue_1 : ((matchValue_1 == null) ? ((orcid_1 = matchValue, [Comment$.create(void 0, Person.orcidKey, orcid_1)])) : ((comments = matchValue_1, (orcid = matchValue, append_1(comments, [Comment$.create(void 0, Person.orcidKey, orcid)]))))))));
+    }
+    Copy() {
+        const this$ = this;
+        const nextComments = map_1((array) => map((c) => c.Copy(), array), this$.Comments);
+        const arg_10 = map_1((array_1) => map((c_1) => c_1.Copy(), array_1), this$.Roles);
+        return Person.make(this$.ID, this$.ORCID, this$.LastName, this$.FirstName, this$.MidInitials, this$.EMail, this$.Phone, this$.Fax, this$.Address, this$.Affiliation, arg_10, nextComments);
+    }
+}
+
+export function Person_$reflection() {
+    return record_type("ARCtrl.ISA.Person", [], Person, () => [["ID", option_type(string_type)], ["ORCID", option_type(string_type)], ["LastName", option_type(string_type)], ["FirstName", option_type(string_type)], ["MidInitials", option_type(string_type)], ["EMail", option_type(string_type)], ["Phone", option_type(string_type)], ["Fax", option_type(string_type)], ["Address", option_type(string_type)], ["Affiliation", option_type(string_type)], ["Roles", option_type(array_type(OntologyAnnotation_$reflection()))], ["Comments", option_type(array_type(Comment$_$reflection()))]]);
+}
+