@nfdi4plants/arctrl 1.0.0-alpha6

package/ISA/ISA/JsonTypes/Protocol.js

@@ -0,0 +1,277 @@
+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 { OntologyAnnotation_$reflection } from "./OntologyAnnotation.js";
+import { ProtocolParameter_$reflection } from "./ProtocolParameter.js";
+import { Component_$reflection } from "./Component.js";
+import { Comment$_$reflection } from "./Comment.js";
+import { empty, 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 { map2 } from "../../../fable_modules/fable-library.4.1.4/Array.js";
+import { Update_updateOnlyByExistingAppend, Update_updateOnlyByExisting, Update_updateAppend } from "../Helper.js";
+import { defaultArg, map as map_1 } from "../../../fable_modules/fable-library.4.1.4/Option.js";
+
+export class Protocol extends Record {
+    constructor(ID, Name, ProtocolType, Description, Uri, Version, Parameters, Components, Comments) {
+        super();
+        this.ID = ID;
+        this.Name = Name;
+        this.ProtocolType = ProtocolType;
+        this.Description = Description;
+        this.Uri = Uri;
+        this.Version = Version;
+        this.Parameters = Parameters;
+        this.Components = Components;
+        this.Comments = Comments;
+    }
+}
+
+export function Protocol_$reflection() {
+    return record_type("ARCtrl.ISA.Protocol", [], Protocol, () => [["ID", option_type(string_type)], ["Name", option_type(string_type)], ["ProtocolType", option_type(OntologyAnnotation_$reflection())], ["Description", option_type(string_type)], ["Uri", option_type(string_type)], ["Version", option_type(string_type)], ["Parameters", option_type(list_type(ProtocolParameter_$reflection()))], ["Components", option_type(list_type(Component_$reflection()))], ["Comments", option_type(list_type(Comment$_$reflection()))]]);
+}
+
+export function Protocol_make(id, name, protocolType, description, uri, version, parameters, components, comments) {
+    return new Protocol(id, name, protocolType, description, uri, version, parameters, components, comments);
+}
+
+export function Protocol_create_Z7DFD6E67(Id, Name, ProtocolType, Description, Uri, Version, Parameters, Components, Comments) {
+    return Protocol_make(Id, Name, ProtocolType, Description, Uri, Version, Parameters, Components, Comments);
+}
+
+export function Protocol_get_empty() {
+    return Protocol_create_Z7DFD6E67();
+}
+
+/**
+ * If a protocol with the given identfier exists in the list, returns it
+ */
+export function Protocol_tryGetByName(name, protocols) {
+    return tryFind((p) => equals(p.Name, name), protocols);
+}
+
+/**
+ * If a protocol with the given name exists in the list exists, returns true
+ */
+export function Protocol_existsByName(name, protocols) {
+    return exists((p) => equals(p.Name, name), protocols);
+}
+
+/**
+ * Adds the given protocol to the protocols
+ */
+export function Protocol_add(protocols, protocol) {
+    return append(protocols, singleton(protocol));
+}
+
+/**
+ * Updates all protocols for which the predicate returns true with the given protocol values
+ */
+export function Protocol_updateBy(predicate, updateOption, protocol, protocols) {
+    if (exists(predicate, protocols)) {
+        return map((p) => {
+            if (predicate(p)) {
+                const this$ = updateOption;
+                const recordType_1 = p;
+                const recordType_2 = protocol;
+                return (this$.tag === 2) ? makeRecord(Protocol_$reflection(), map2(Update_updateAppend, getRecordFields(recordType_1), getRecordFields(recordType_2))) : ((this$.tag === 1) ? makeRecord(Protocol_$reflection(), map2(Update_updateOnlyByExisting, getRecordFields(recordType_1), getRecordFields(recordType_2))) : ((this$.tag === 3) ? makeRecord(Protocol_$reflection(), map2(Update_updateOnlyByExistingAppend, getRecordFields(recordType_1), getRecordFields(recordType_2))) : recordType_2));
+            }
+            else {
+                return p;
+            }
+        }, protocols);
+    }
+    else {
+        return protocols;
+    }
+}
+
+/**
+ * Updates all protocols with the same name as the given protocol with its values
+ */
+export function Protocol_updateByName(updateOption, protocol, protocols) {
+    return Protocol_updateBy((p) => equals(p.Name, protocol.Name), updateOption, protocol, protocols);
+}
+
+/**
+ * If a protocol with the given name exists in the list, removes it
+ */
+export function Protocol_removeByName(name, protocols) {
+    return filter((p) => !equals(p.Name, name), protocols);
+}
+
+/**
+ * Returns comments of a protocol
+ */
+export function Protocol_getComments_Z5F51792E(protocol) {
+    return protocol.Comments;
+}
+
+/**
+ * Applies function f on comments of a protocol
+ */
+export function Protocol_mapComments(f, protocol) {
+    return new Protocol(protocol.ID, protocol.Name, protocol.ProtocolType, protocol.Description, protocol.Uri, protocol.Version, protocol.Parameters, protocol.Components, map_1(f, protocol.Comments));
+}
+
+/**
+ * Replaces comments of a protocol by given comment list
+ */
+export function Protocol_setComments(protocol, comments) {
+    return new Protocol(protocol.ID, protocol.Name, protocol.ProtocolType, protocol.Description, protocol.Uri, protocol.Version, protocol.Parameters, protocol.Components, comments);
+}
+
+/**
+ * Returns protocol type of a protocol
+ */
+export function Protocol_getProtocolType_Z5F51792E(protocol) {
+    return protocol.ProtocolType;
+}
+
+/**
+ * Applies function f on protocol type of a protocol
+ */
+export function Protocol_mapProtocolType(f, protocol) {
+    return new Protocol(protocol.ID, protocol.Name, map_1(f, protocol.ProtocolType), protocol.Description, protocol.Uri, protocol.Version, protocol.Parameters, protocol.Components, protocol.Comments);
+}
+
+/**
+ * Replaces protocol type of a protocol by given protocol type
+ */
+export function Protocol_setProtocolType(protocol, protocolType) {
+    return new Protocol(protocol.ID, protocol.Name, protocolType, protocol.Description, protocol.Uri, protocol.Version, protocol.Parameters, protocol.Components, protocol.Comments);
+}
+
+/**
+ * Returns protocol version of a protocol
+ */
+export function Protocol_getVersion_Z5F51792E(protocol) {
+    return protocol.Version;
+}
+
+/**
+ * Applies function f on protocol version of a protocol
+ */
+export function Protocol_mapVersion(f, protocol) {
+    return new Protocol(protocol.ID, protocol.Name, protocol.ProtocolType, protocol.Description, protocol.Uri, map_1(f, protocol.Version), protocol.Parameters, protocol.Components, protocol.Comments);
+}
+
+/**
+ * Replaces protocol version of a protocol by given protocol version
+ */
+export function Protocol_setVersion(protocol, version) {
+    return new Protocol(protocol.ID, protocol.Name, protocol.ProtocolType, protocol.Description, protocol.Uri, version, protocol.Parameters, protocol.Components, protocol.Comments);
+}
+
+/**
+ * Protocol Name
+ * Returns protocol name of a protocol
+ */
+export function Protocol_getName_Z5F51792E(protocol) {
+    return protocol.Name;
+}
+
+/**
+ * Applies function f on protocol name of a protocol
+ */
+export function Protocol_mapName(f, protocol) {
+    return new Protocol(protocol.ID, map_1(f, protocol.Name), protocol.ProtocolType, protocol.Description, protocol.Uri, protocol.Version, protocol.Parameters, protocol.Components, protocol.Comments);
+}
+
+/**
+ * Replaces protocol name of a protocol by given protocol name
+ */
+export function Protocol_setName(protocol, name) {
+    return new Protocol(protocol.ID, name, protocol.ProtocolType, protocol.Description, protocol.Uri, protocol.Version, protocol.Parameters, protocol.Components, protocol.Comments);
+}
+
+/**
+ * Returns protocol description of a protocol
+ */
+export function Protocol_getDescription_Z5F51792E(protocol) {
+    return protocol.Description;
+}
+
+/**
+ * Applies function f on protocol description of a protocol
+ */
+export function Protocol_mapDescription(f, protocol) {
+    return new Protocol(protocol.ID, protocol.Name, protocol.ProtocolType, map_1(f, protocol.Description), protocol.Uri, protocol.Version, protocol.Parameters, protocol.Components, protocol.Comments);
+}
+
+/**
+ * Replaces protocol description of a protocol by given protocol description
+ */
+export function Protocol_setDescription(protocol, description) {
+    return new Protocol(protocol.ID, protocol.Name, protocol.ProtocolType, description, protocol.Uri, protocol.Version, protocol.Parameters, protocol.Components, protocol.Comments);
+}
+
+/**
+ * Returns protocol URI of a protocol
+ */
+export function Protocol_getUri_Z5F51792E(protocol) {
+    return protocol.Uri;
+}
+
+/**
+ * Applies function f on protocol URI of a protocol
+ */
+export function Protocol_mapUri(f, protocol) {
+    return new Protocol(protocol.ID, protocol.Name, protocol.ProtocolType, protocol.Description, map_1(f, protocol.Uri), protocol.Version, protocol.Parameters, protocol.Components, protocol.Comments);
+}
+
+/**
+ * Replaces protocol URI of a protocol by given protocol URI
+ */
+export function Protocol_setUri(protocol, uri) {
+    return new Protocol(protocol.ID, protocol.Name, protocol.ProtocolType, protocol.Description, uri, protocol.Version, protocol.Parameters, protocol.Components, protocol.Comments);
+}
+
+/**
+ * Returns components of a protocol
+ */
+export function Protocol_getComponents_Z5F51792E(protocol) {
+    return protocol.Components;
+}
+
+/**
+ * Applies function f on components of a protocol
+ */
+export function Protocol_mapComponents(f, protocol) {
+    return new Protocol(protocol.ID, protocol.Name, protocol.ProtocolType, protocol.Description, protocol.Uri, protocol.Version, protocol.Parameters, map_1(f, protocol.Components), protocol.Comments);
+}
+
+/**
+ * Replaces components of a protocol by given component list
+ */
+export function Protocol_setComponents(protocol, components) {
+    return new Protocol(protocol.ID, protocol.Name, protocol.ProtocolType, protocol.Description, protocol.Uri, protocol.Version, protocol.Parameters, components, protocol.Comments);
+}
+
+export function Protocol_addComponent(comp, protocol) {
+    return Protocol_setComponents(protocol, append(defaultArg(protocol.Components, empty()), singleton(comp)));
+}
+
+/**
+ * Returns protocol parameters of a protocol
+ */
+export function Protocol_getParameters_Z5F51792E(protocol) {
+    return protocol.Parameters;
+}
+
+/**
+ * Applies function f on protocol parameters of a protocol
+ */
+export function Protocol_mapParameters(f, protocol) {
+    return new Protocol(protocol.ID, protocol.Name, protocol.ProtocolType, protocol.Description, protocol.Uri, protocol.Version, map_1(f, protocol.Parameters), protocol.Components, protocol.Comments);
+}
+
+/**
+ * Replaces protocol parameters of a protocol by given protocol parameter list
+ */
+export function Protocol_setParameters(protocol, parameters) {
+    return new Protocol(protocol.ID, protocol.Name, protocol.ProtocolType, protocol.Description, protocol.Uri, protocol.Version, parameters, protocol.Components, protocol.Comments);
+}
+
+export function Protocol_addParameter(parameter, protocol) {
+    return Protocol_setParameters(protocol, append(defaultArg(protocol.Parameters, empty()), singleton(parameter)));
+}
+

package/ISA/ISA/JsonTypes/ProtocolParameter.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 ProtocolParameter extends Record {
+    constructor(ID, ParameterName) {
+        super();
+        this.ID = ID;
+        this.ParameterName = ParameterName;
+    }
+    Print() {
+        const this$ = this;
+        return toString(this$);
+    }
+    PrintCompact() {
+        const this$ = this;
+        return "OA " + ProtocolParameter__get_NameText(this$);
+    }
+}
+
+export function ProtocolParameter_$reflection() {
+    return record_type("ARCtrl.ISA.ProtocolParameter", [], ProtocolParameter, () => [["ID", option_type(string_type)], ["ParameterName", option_type(OntologyAnnotation_$reflection())]]);
+}
+
+export function ProtocolParameter_make(id, parameterName) {
+    return new ProtocolParameter(id, parameterName);
+}
+
+export function ProtocolParameter_create_Z6C54B221(Id, ParameterName) {
+    return ProtocolParameter_make(Id, ParameterName);
+}
+
+export function ProtocolParameter_get_empty() {
+    return ProtocolParameter_create_Z6C54B221();
+}
+
+/**
+ * Create a ISAJson Protocol Parameter from ISATab string entries
+ */
+export function ProtocolParameter_fromString_Z2304A83C(term, source, accession, comments) {
+    const oa = OntologyAnnotation.fromString(term, source, accession, unwrap(comments));
+    return ProtocolParameter_make(void 0, Option_fromValueWithDefault(OntologyAnnotation.empty, oa));
+}
+
+/**
+ * Get ISATab string entries from an ISAJson ProtocolParameter object (name,source,accession)
+ */
+export function ProtocolParameter_toString_Z3A4310A5(pp) {
+    const value = {
+        TermAccessionNumber: "",
+        TermName: "",
+        TermSourceREF: "",
+    };
+    return defaultArg(map((arg) => OntologyAnnotation.toString(arg), pp.ParameterName), value);
+}
+
+/**
+ * Returns the name of the parameter as string
+ */
+export function ProtocolParameter__get_NameText(this$) {
+    return defaultArg(map((oa) => oa.NameText, this$.ParameterName), "");
+}
+
+/**
+ * Returns the name of the parameter as string
+ */
+export function ProtocolParameter__get_TryNameText(this$) {
+    return bind((oa) => oa.TryNameText, this$.ParameterName);
+}
+
+export function ProtocolParameter__MapCategory_Z69DD836A(this$, f) {
+    return new ProtocolParameter(this$.ID, map(f, this$.ParameterName));
+}
+
+export function ProtocolParameter__SetCategory_Z4C0FE73C(this$, c) {
+    return new ProtocolParameter(this$.ID, c);
+}
+
+/**
+ * Returns the name of the paramater as string if it exists
+ */
+export function ProtocolParameter_tryGetNameText_Z3A4310A5(pp) {
+    return ProtocolParameter__get_TryNameText(pp);
+}
+
+/**
+ * Returns the name of the paramater as string
+ */
+export function ProtocolParameter_getNameText_Z3A4310A5(pp) {
+    return defaultArg(ProtocolParameter_tryGetNameText_Z3A4310A5(pp), "");
+}
+
+/**
+ * Returns true if the given name matches the name of the parameter
+ */
+export function ProtocolParameter_nameEqualsString(name, pp) {
+    return ProtocolParameter__get_NameText(pp) === name;
+}
+

package/ISA/ISA/JsonTypes/Publication.js

@@ -0,0 +1,105 @@
+import { filter, map, tryFind, exists, singleton, append } 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 { map as map_1 } from "../../../fable_modules/fable-library.4.1.4/Option.js";
+import { Option_mapDefault } from "../Helper.js";
+import { Record } from "../../../fable_modules/fable-library.4.1.4/Types.js";
+import { OntologyAnnotation_$reflection } from "./OntologyAnnotation.js";
+import { Comment$_$reflection } from "./Comment.js";
+
+export class Publication extends Record {
+    constructor(PubMedID, DOI, Authors, Title, Status, Comments) {
+        super();
+        this.PubMedID = PubMedID;
+        this.DOI = DOI;
+        this.Authors = Authors;
+        this.Title = Title;
+        this.Status = Status;
+        this.Comments = Comments;
+    }
+    static make(pubMedID, doi, authors, title, status, comments) {
+        return new Publication(pubMedID, doi, authors, title, status, comments);
+    }
+    static create(PubMedID, Doi, Authors, Title, Status, Comments) {
+        return Publication.make(PubMedID, Doi, Authors, Title, Status, Comments);
+    }
+    static get empty() {
+        return Publication.create();
+    }
+    static add(publications, publication) {
+        return append(publications, singleton(publication));
+    }
+    static existsByDoi(doi, publications) {
+        return exists((p) => equals(p.DOI, doi), publications);
+    }
+    static existsByPubMedID(pubMedID, publications) {
+        return exists((p) => equals(p.PubMedID, pubMedID), publications);
+    }
+    static tryGetByDoi(doi, publications) {
+        return tryFind((publication) => equals(publication.DOI, doi), publications);
+    }
+    static updateBy(predicate, updateOption, publication, publications) {
+        return exists(predicate, publications) ? map((p) => {
+            if (predicate(p)) {
+                const this$ = updateOption;
+                const recordType_1 = p;
+                const recordType_2 = publication;
+                switch (this$.tag) {
+                    case 2:
+                        return makeRecord(Publication_$reflection(), map2(Update_updateAppend, getRecordFields(recordType_1), getRecordFields(recordType_2)));
+                    case 1:
+                        return makeRecord(Publication_$reflection(), map2(Update_updateOnlyByExisting, getRecordFields(recordType_1), getRecordFields(recordType_2)));
+                    case 3:
+                        return makeRecord(Publication_$reflection(), map2(Update_updateOnlyByExistingAppend, getRecordFields(recordType_1), getRecordFields(recordType_2)));
+                    default:
+                        return recordType_2;
+                }
+            }
+            else {
+                return p;
+            }
+        }, publications) : publications;
+    }
+    static updateByDOI(updateOption, publication, publications) {
+        return Publication.updateBy((p) => equals(p.DOI, publication.DOI), updateOption, publication, publications);
+    }
+    static updateByPubMedID(updateOption, publication, publications) {
+        return Publication.updateBy((p) => equals(p.PubMedID, publication.PubMedID), updateOption, publication, publications);
+    }
+    static removeByDoi(doi, publications) {
+        return filter((p) => !equals(p.DOI, doi), publications);
+    }
+    static removeByPubMedID(pubMedID, publications) {
+        return filter((p) => !equals(p.PubMedID, pubMedID), publications);
+    }
+    static getStatus(publication) {
+        return publication.Status;
+    }
+    static mapStatus(f, publication) {
+        return new Publication(publication.PubMedID, publication.DOI, publication.Authors, publication.Title, map_1(f, publication.Status), publication.Comments);
+    }
+    static setStatus(publication, status) {
+        return new Publication(publication.PubMedID, publication.DOI, publication.Authors, publication.Title, status, publication.Comments);
+    }
+    static getComments(publication) {
+        return publication.Comments;
+    }
+    static mapComments(f, publication) {
+        return new Publication(publication.PubMedID, publication.DOI, publication.Authors, publication.Title, publication.Status, Option_mapDefault([], f, publication.Comments));
+    }
+    static setComments(publication, comments) {
+        return new Publication(publication.PubMedID, publication.DOI, publication.Authors, publication.Title, publication.Status, comments);
+    }
+    Copy() {
+        const this$ = this;
+        const arg_5 = map_1((array) => map_2((c) => c.Copy(), array), this$.Comments);
+        return Publication.make(this$.PubMedID, this$.DOI, this$.Authors, this$.Title, this$.Status, arg_5);
+    }
+}
+
+export function Publication_$reflection() {
+    return record_type("ARCtrl.ISA.Publication", [], Publication, () => [["PubMedID", option_type(string_type)], ["DOI", option_type(string_type)], ["Authors", option_type(string_type)], ["Title", option_type(string_type)], ["Status", option_type(OntologyAnnotation_$reflection())], ["Comments", option_type(array_type(Comment$_$reflection()))]]);
+}
+

package/ISA/ISA/JsonTypes/Sample.js

@@ -0,0 +1,71 @@
+import { Record, toString } from "../../../fable_modules/fable-library.4.1.4/Types.js";
+import { append, 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 { record_type, list_type, option_type, string_type } from "../../../fable_modules/fable-library.4.1.4/Reflection.js";
+import { MaterialAttributeValue_$reflection } from "./MaterialAttributeValue.js";
+import { FactorValue_$reflection } from "./FactorValue.js";
+import { Source_$reflection } from "./Source.js";
+
+export class Sample extends Record {
+    constructor(ID, Name, Characteristics, FactorValues, DerivesFrom) {
+        super();
+        this.ID = ID;
+        this.Name = Name;
+        this.Characteristics = Characteristics;
+        this.FactorValues = FactorValues;
+        this.DerivesFrom = DerivesFrom;
+    }
+    Print() {
+        const this$ = this;
+        return toString(this$);
+    }
+    PrintCompact() {
+        const this$ = this;
+        const chars = length(defaultArg(this$.Characteristics, empty())) | 0;
+        const facts = length(defaultArg(this$.FactorValues, empty())) | 0;
+        const arg = Sample__get_NameAsString(this$);
+        return toText(printf("%s [%i characteristics; %i factors]"))(arg)(chars)(facts);
+    }
+}
+
+export function Sample_$reflection() {
+    return record_type("ARCtrl.ISA.Sample", [], Sample, () => [["ID", option_type(string_type)], ["Name", option_type(string_type)], ["Characteristics", option_type(list_type(MaterialAttributeValue_$reflection()))], ["FactorValues", option_type(list_type(FactorValue_$reflection()))], ["DerivesFrom", option_type(list_type(Source_$reflection()))]]);
+}
+
+export function Sample_make(id, name, characteristics, factorValues, derivesFrom) {
+    return new Sample(id, name, characteristics, factorValues, derivesFrom);
+}
+
+export function Sample_create_E50ED22(Id, Name, Characteristics, FactorValues, DerivesFrom) {
+    return Sample_make(Id, Name, Characteristics, FactorValues, DerivesFrom);
+}
+
+export function Sample_get_empty() {
+    return Sample_create_E50ED22();
+}
+
+export function Sample__get_NameAsString(this$) {
+    return defaultArg(this$.Name, "");
+}
+
+export function Sample_getCharacteristicUnits_Z29207F1E(s) {
+    return choose((c) => c.Unit, defaultArg(s.Characteristics, empty()));
+}
+
+export function Sample_getFactorUnits_Z29207F1E(s) {
+    return choose((c) => c.Unit, defaultArg(s.FactorValues, empty()));
+}
+
+export function Sample_getUnits_Z29207F1E(s) {
+    return append(Sample_getCharacteristicUnits_Z29207F1E(s), Sample_getFactorUnits_Z29207F1E(s));
+}
+
+export function Sample_setCharacteristicValues(values, s) {
+    return new Sample(s.ID, s.Name, values, s.FactorValues, s.DerivesFrom);
+}
+
+export function Sample_setFactorValues(values, s) {
+    return new Sample(s.ID, s.Name, s.Characteristics, values, s.DerivesFrom);
+}
+

package/ISA/ISA/JsonTypes/Source.js

@@ -0,0 +1,54 @@
+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 { 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 Source extends Record {
+    constructor(ID, Name, Characteristics) {
+        super();
+        this.ID = ID;
+        this.Name = Name;
+        this.Characteristics = Characteristics;
+    }
+    Print() {
+        const this$ = this;
+        return toString(this$);
+    }
+    PrintCompact() {
+        const this$ = this;
+        const l = length(defaultArg(this$.Characteristics, empty())) | 0;
+        const arg = Source__get_NameAsString(this$);
+        return toText(printf("%s [%i characteristics]"))(arg)(l);
+    }
+}
+
+export function Source_$reflection() {
+    return record_type("ARCtrl.ISA.Source", [], Source, () => [["ID", option_type(string_type)], ["Name", option_type(string_type)], ["Characteristics", option_type(list_type(MaterialAttributeValue_$reflection()))]]);
+}
+
+export function Source_make(id, name, characteristics) {
+    return new Source(id, name, characteristics);
+}
+
+export function Source_create_7A281ED9(Id, Name, Characteristics) {
+    return Source_make(Id, Name, Characteristics);
+}
+
+export function Source_get_empty() {
+    return Source_create_7A281ED9();
+}
+
+export function Source__get_NameAsString(this$) {
+    return defaultArg(this$.Name, "");
+}
+
+export function Source_getUnits_Z28BE5327(m) {
+    return choose((c) => c.Unit, defaultArg(m.Characteristics, empty()));
+}
+
+export function Source_setCharacteristicValues(values, m) {
+    return new Source(m.ID, m.Name, values);
+}
+