@nfdi4plants/arctrl 2.5.1 → 3.0.0-alpha.2

package/Core/Helper/Collections.js

@@ -1,421 +0,0 @@
-import { disposeSafe, getEnumerator, defaultOf, structuralHash, equals } from "../../fable_modules/fable-library-js.4.24.0/Util.js";
-import { value as value_1, some } from "../../fable_modules/fable-library-js.4.24.0/Option.js";
-import { map, iterate, isEmpty } from "../../fable_modules/fable-library-js.4.24.0/Seq.js";
-import { empty, singleton, append, head, tail, isEmpty as isEmpty_1 } from "../../fable_modules/fable-library-js.4.24.0/List.js";
-import { tryGetValue, addToDict } from "../../fable_modules/fable-library-js.4.24.0/MapUtil.js";
-import { Dictionary } from "../../fable_modules/fable-library-js.4.24.0/MutableMap.js";
-import { FSharpRef } from "../../fable_modules/fable-library-js.4.24.0/Types.js";
-import { contains } from "../../fable_modules/fable-library-js.4.24.0/Array.js";
-import { groupBy } from "../../fable_modules/fable-library-js.4.24.0/Seq2.js";
-import { min } from "../../fable_modules/fable-library-js.4.24.0/Double.js";
-
-/**
- * If the value matches the default, a None is returned, else a Some is returned
- */
-export function Option_fromValueWithDefault(d, v) {
-    if (equals(d, v)) {
-        return undefined;
-    }
-    else {
-        return some(v);
-    }
-}
-
-/**
- * Applies the function f on the value of the option if it exists, else applies it on the default value. If the result value matches the default, a None is returned
- */
-export function Option_mapDefault(d, f, o) {
-    return Option_fromValueWithDefault(d, (o == null) ? f(d) : f(value_1(o)));
-}
-
-/**
- * Applies the function f on the value of the option if it exists, else returns the default value.
- */
-export function Option_mapOrDefault(d, f, o) {
-    if (o == null) {
-        return d;
-    }
-    else {
-        return some(f(value_1(o)));
-    }
-}
-
-/**
- * If the value matches the default, a None is returned, else a Some is returned
- */
-export function Option_fromSeq(v) {
-    if (isEmpty(v)) {
-        return undefined;
-    }
-    else {
-        return some(v);
-    }
-}
-
-export function List_tryPickAndRemove(f, lst) {
-    const loop = (newList_mut, remainingList_mut) => {
-        loop:
-        while (true) {
-            const newList = newList_mut, remainingList = remainingList_mut;
-            if (!isEmpty_1(remainingList)) {
-                const t = tail(remainingList);
-                const h = head(remainingList);
-                const matchValue = f(h);
-                if (matchValue == null) {
-                    newList_mut = append(newList, singleton(h));
-                    remainingList_mut = t;
-                    continue loop;
-                }
-                else {
-                    return [some(value_1(matchValue)), append(newList, t)];
-                }
-            }
-            else {
-                return [undefined, newList];
-            }
-            break;
-        }
-    };
-    return loop(empty(), lst);
-}
-
-export function Dictionary_addOrUpdate(key, value, dict) {
-    if (dict.has(key)) {
-        dict.set(key, value);
-    }
-    else {
-        addToDict(dict, key, value);
-    }
-}
-
-export function Dictionary_ofSeq(s) {
-    const dict = new Dictionary([], {
-        Equals: equals,
-        GetHashCode: structuralHash,
-    });
-    iterate((tupledArg) => {
-        addToDict(dict, tupledArg[0], tupledArg[1]);
-    }, s);
-    return dict;
-}
-
-export function Dictionary_tryFind(key, dict) {
-    let patternInput;
-    let outArg = defaultOf();
-    patternInput = [tryGetValue(dict, key, new FSharpRef(() => outArg, (v) => {
-        outArg = v;
-    })), outArg];
-    if (patternInput[0]) {
-        return some(patternInput[1]);
-    }
-    else {
-        return undefined;
-    }
-}
-
-export function Dictionary_ofSeqWithMerge(merge, s) {
-    const dict = new Dictionary([], {
-        Equals: equals,
-        GetHashCode: structuralHash,
-    });
-    iterate((tupledArg) => {
-        const k = tupledArg[0];
-        const v = tupledArg[1];
-        const matchValue = Dictionary_tryFind(k, dict);
-        if (matchValue == null) {
-            addToDict(dict, k, v);
-        }
-        else {
-            const v$0027 = value_1(matchValue);
-            dict.delete(k);
-            addToDict(dict, k, merge(v$0027, v));
-        }
-    }, s);
-    return dict;
-}
-
-export function ResizeArray_create(i, v) {
-    const a = [];
-    if (i > 0) {
-        for (let forLoopVar = 1; forLoopVar <= i; forLoopVar++) {
-            void (a.push(v));
-        }
-    }
-    return a;
-}
-
-export function ResizeArray_singleton(a) {
-    const b = [];
-    void (b.push(a));
-    return b;
-}
-
-export function ResizeArray_map(f, a) {
-    const b = [];
-    let enumerator = getEnumerator(a);
-    try {
-        while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
-            const i = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
-            void (b.push(f(i)));
-        }
-    }
-    finally {
-        disposeSafe(enumerator);
-    }
-    return b;
-}
-
-export function ResizeArray_choose(f, a) {
-    const b = [];
-    let enumerator = getEnumerator(a);
-    try {
-        while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
-            const matchValue = f(enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]());
-            if (matchValue == null) {
-            }
-            else {
-                const x = value_1(matchValue);
-                void (b.push(x));
-            }
-        }
-    }
-    finally {
-        disposeSafe(enumerator);
-    }
-    return b;
-}
-
-export function ResizeArray_filter(f, a) {
-    const b = [];
-    let enumerator = getEnumerator(a);
-    try {
-        while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
-            const i = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
-            if (f(i)) {
-                void (b.push(i));
-            }
-        }
-    }
-    finally {
-        disposeSafe(enumerator);
-    }
-    return b;
-}
-
-export function ResizeArray_fold(f, s, a) {
-    let state = s;
-    let enumerator = getEnumerator(a);
-    try {
-        while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
-            const i = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
-            state = f(state, i);
-        }
-    }
-    finally {
-        disposeSafe(enumerator);
-    }
-    return state;
-}
-
-export function ResizeArray_foldBack(f, a, s) {
-    let state = s;
-    let enumerator = getEnumerator(a);
-    try {
-        while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
-            const i = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
-            state = f(i, state);
-        }
-    }
-    finally {
-        disposeSafe(enumerator);
-    }
-    return state;
-}
-
-export function ResizeArray_iter(f, a) {
-    let enumerator = getEnumerator(a);
-    try {
-        while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
-            f(enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]());
-        }
-    }
-    finally {
-        disposeSafe(enumerator);
-    }
-}
-
-export function ResizeArray_reduce(f, a) {
-    switch (a.length) {
-        case 0:
-            throw new Error("ResizeArray.reduce: empty array");
-        case 1:
-            return a[0];
-        default: {
-            const a_5 = a;
-            let state = a_5[0];
-            for (let i = 1; i <= (a_5.length - 1); i++) {
-                state = f(state, a_5[i]);
-            }
-            return state;
-        }
-    }
-}
-
-export function ResizeArray_collect(f, a) {
-    const b = [];
-    let enumerator = getEnumerator(a);
-    try {
-        while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
-            const enumerator_1 = getEnumerator(f(enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]()));
-            try {
-                while (enumerator_1["System.Collections.IEnumerator.MoveNext"]()) {
-                    const j = enumerator_1["System.Collections.Generic.IEnumerator`1.get_Current"]();
-                    void (b.push(j));
-                }
-            }
-            finally {
-                disposeSafe(enumerator_1);
-            }
-        }
-    }
-    finally {
-        disposeSafe(enumerator);
-    }
-    return b;
-}
-
-export function ResizeArray_distinct(a) {
-    const b = [];
-    let enumerator = getEnumerator(a);
-    try {
-        while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
-            const i = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
-            if (!contains(i, b, {
-                Equals: equals,
-                GetHashCode: structuralHash,
-            })) {
-                void (b.push(i));
-            }
-        }
-    }
-    finally {
-        disposeSafe(enumerator);
-    }
-    return b;
-}
-
-export function ResizeArray_isEmpty(a) {
-    return a.length === 0;
-}
-
-/**
- * Immutable append
- */
-export function ResizeArray_append(a, b) {
-    const c = [];
-    let enumerator = getEnumerator(a);
-    try {
-        while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
-            const i = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
-            void (c.push(i));
-        }
-    }
-    finally {
-        disposeSafe(enumerator);
-    }
-    let enumerator_1 = getEnumerator(b);
-    try {
-        while (enumerator_1["System.Collections.IEnumerator.MoveNext"]()) {
-            const i_1 = enumerator_1["System.Collections.Generic.IEnumerator`1.get_Current"]();
-            void (c.push(i_1));
-        }
-    }
-    finally {
-        disposeSafe(enumerator_1);
-    }
-    return c;
-}
-
-/**
- * append a single element
- */
-export function ResizeArray_appendSingleton(b, a) {
-    const c = [];
-    let enumerator = getEnumerator(a);
-    try {
-        while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
-            const i = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
-            void (c.push(i));
-        }
-    }
-    finally {
-        disposeSafe(enumerator);
-    }
-    void (c.push(b));
-    return c;
-}
-
-export function ResizeArray_groupBy(f, a) {
-    const collection = map((tupledArg) => [tupledArg[0], Array.from(tupledArg[1])], groupBy(f, a, {
-        Equals: equals,
-        GetHashCode: structuralHash,
-    }));
-    return Array.from(collection);
-}
-
-export function ResizeArray_tryPick(f, a) {
-    const loop = (i_mut) => {
-        loop:
-        while (true) {
-            const i = i_mut;
-            if (i < a.length) {
-                const matchValue = f(a[i]);
-                if (matchValue == null) {
-                    i_mut = (i + 1);
-                    continue loop;
-                }
-                else {
-                    return some(value_1(matchValue));
-                }
-            }
-            else {
-                return undefined;
-            }
-            break;
-        }
-    };
-    return loop(0);
-}
-
-export function ResizeArray_zip(a, b) {
-    const c = [];
-    const n = min(a.length, b.length) | 0;
-    for (let i = 0; i <= (n - 1); i++) {
-        void (c.push([a[i], b[i]]));
-    }
-    return c;
-}
-
-export function ResizeArray_tryFind(f, a) {
-    const loop = (i_mut) => {
-        loop:
-        while (true) {
-            const i = i_mut;
-            if (i < a.length) {
-                if (f(a[i])) {
-                    return some(a[i]);
-                }
-                else {
-                    i_mut = (i + 1);
-                    continue loop;
-                }
-            }
-            else {
-                return undefined;
-            }
-            break;
-        }
-    };
-    return loop(0);
-}
-

package/Core/Helper/DateTime.js

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

package/Core/Helper/HashCodes.js

@@ -1,39 +0,0 @@
-import { second, minute, hour, day, month, year } from "../../fable_modules/fable-library-js.4.24.0/Date.js";
-import { numberHash, identityHash } from "../../fable_modules/fable-library-js.4.24.0/Util.js";
-import { value as value_1 } from "../../fable_modules/fable-library-js.4.24.0/Option.js";
-import { fold } from "../../fable_modules/fable-library-js.4.24.0/Array.js";
-import { fold as fold_1 } from "../../fable_modules/fable-library-js.4.24.0/Seq.js";
-
-export function mergeHashes(hash1, hash2) {
-    return ((-1640531527 + hash2) + (hash1 << 6)) + (hash1 >> 2);
-}
-
-export function hashDateTime(dt) {
-    let acc = 0;
-    acc = (mergeHashes(acc, year(dt)) | 0);
-    acc = (mergeHashes(acc, month(dt)) | 0);
-    acc = (mergeHashes(acc, day(dt)) | 0);
-    acc = (mergeHashes(acc, hour(dt)) | 0);
-    acc = (mergeHashes(acc, minute(dt)) | 0);
-    acc = (mergeHashes(acc, second(dt)) | 0);
-    return acc | 0;
-}
-
-export function hash(obj) {
-    let copyOfStruct = obj;
-    return identityHash(copyOfStruct) | 0;
-}
-
-export function boxHashOption(a) {
-    let copyOfStruct, copyOfStruct_1;
-    return (a != null) ? ((copyOfStruct = value_1(a), identityHash(copyOfStruct))) : ((copyOfStruct_1 = 0, numberHash(copyOfStruct_1)));
-}
-
-export function boxHashArray(a) {
-    return fold((acc, o) => mergeHashes(acc, hash(o)), 0, a);
-}
-
-export function boxHashSeq(a) {
-    return fold_1((acc, o) => mergeHashes(acc, hash(o)), 0, a);
-}
-

package/Core/Helper/Identifier.js

@@ -1,183 +0,0 @@
-import { ActivePatterns_$007CRegex$007C_$007C } from "./Regex.js";
-import { newGuid } from "../../fable_modules/fable-library-js.4.24.0/Guid.js";
-import { combineMany } from "../../FileSystem/Path.js";
-
-export function tryCheckValidCharacters(identifier) {
-    if (ActivePatterns_$007CRegex$007C_$007C("^[a-zA-Z0-9_\\- ]+$", identifier) != null) {
-        return true;
-    }
-    else {
-        return false;
-    }
-}
-
-export function checkValidCharacters(identifier) {
-    if (tryCheckValidCharacters(identifier)) {
-    }
-    else {
-        throw new Error(`New identifier "${identifier}"contains forbidden characters! Allowed characters are: letters, digits, underscore (_), dash (-) and whitespace ( ).`);
-    }
-}
-
-export function createMissingIdentifier() {
-    let copyOfStruct;
-    return "MISSING_IDENTIFIER_" + ((copyOfStruct = newGuid(), copyOfStruct));
-}
-
-export function isMissingIdentifier(str) {
-    return str.startsWith("MISSING_IDENTIFIER_");
-}
-
-export function removeMissingIdentifier(str) {
-    if (str.startsWith("MISSING_IDENTIFIER_")) {
-        return "";
-    }
-    else {
-        return str;
-    }
-}
-
-/**
- * On read-in the FileName can be any combination of "assays" (assay folder name), assayIdentifier and "isa.assay.xlsx" (the actual file name).
- * 
- * This functions extracts assayIdentifier from any of these combinations and returns it.
- */
-export function Assay_identifierFromFileName(fileName) {
-    const activePatternResult = ActivePatterns_$007CRegex$007C_$007C("^(assays(\\/|\\\\))?(?<identifier>[a-zA-Z0-9_\\- ]+)((\\/|\\\\)isa.assay.xlsx)?$", fileName);
-    if (activePatternResult != null) {
-        const m = activePatternResult;
-        return (m.groups && m.groups.identifier) || "";
-    }
-    else {
-        throw new Error(`Cannot parse assay identifier from FileName \`${fileName}\``);
-    }
-}
-
-/**
- * On read-in the FileName can be any combination of "assays" (assay folder name), assayIdentifier and "isa.assay.xlsx" (the actual file name).
- * 
- * This functions extracts assayIdentifier from any of these combinations and returns it.
- */
-export function Assay_tryIdentifierFromFileName(fileName) {
-    const activePatternResult = ActivePatterns_$007CRegex$007C_$007C("^(assays(\\/|\\\\))?(?<identifier>[a-zA-Z0-9_\\- ]+)((\\/|\\\\)isa.assay.xlsx)?$", fileName);
-    if (activePatternResult != null) {
-        const m = activePatternResult;
-        return (m.groups && m.groups.identifier) || "";
-    }
-    else {
-        return undefined;
-    }
-}
-
-/**
- * On writing a xlsx file we unify our output to a relative path to ARC root. So: `assays/assayIdentifier/isa.assay.xlsx`.
- */
-export function Assay_fileNameFromIdentifier(identifier) {
-    checkValidCharacters(identifier);
-    return combineMany(["assays", identifier, "isa.assay.xlsx"]);
-}
-
-/**
- * On writing a xlsx file we unify our output to a relative path to ARC root. So: `assays/assayIdentifier/isa.assay.xlsx`.
- */
-export function Assay_tryFileNameFromIdentifier(identifier) {
-    if (tryCheckValidCharacters(identifier)) {
-        return combineMany(["assays", identifier, "isa.assay.xlsx"]);
-    }
-    else {
-        return undefined;
-    }
-}
-
-/**
- * On writing a xlsx file we unify our output to a relative path to ARC root. So: `assays/assayIdentifier/isa.datamap.xlsx`.
- */
-export function Assay_datamapFileNameFromIdentifier(identifier) {
-    checkValidCharacters(identifier);
-    return combineMany(["assays", identifier, "isa.datamap.xlsx"]);
-}
-
-/**
- * On writing a xlsx file we unify our output to a relative path to ARC root. So: `assays/assayIdentifier/isa.datamap.xlsx`.
- */
-export function Assay_tryDatamapFileNameFromIdentifier(identifier) {
-    if (tryCheckValidCharacters(identifier)) {
-        return combineMany(["assays", identifier, "isa.datamap.xlsx"]);
-    }
-    else {
-        return undefined;
-    }
-}
-
-/**
- * On read-in the FileName can be any combination of "studies" (study folder name), studyIdentifier and "isa.study.xlsx" (the actual file name).
- * 
- * This functions extracts studyIdentifier from any of these combinations and returns it.
- */
-export function Study_identifierFromFileName(fileName) {
-    const activePatternResult = ActivePatterns_$007CRegex$007C_$007C("^(studies(\\/|\\\\))?(?<identifier>[a-zA-Z0-9_\\- ]+)((\\/|\\\\)isa.study.xlsx)?$", fileName);
-    if (activePatternResult != null) {
-        const m = activePatternResult;
-        return (m.groups && m.groups.identifier) || "";
-    }
-    else {
-        throw new Error(`Cannot parse study identifier from FileName \`${fileName}\``);
-    }
-}
-
-/**
- * On read-in the FileName can be any combination of "studies" (study folder name), studyIdentifier and "isa.study.xlsx" (the actual file name).
- * 
- * This functions extracts studyIdentifier from any of these combinations and returns it.
- */
-export function Study_tryIdentifierFromFileName(fileName) {
-    const activePatternResult = ActivePatterns_$007CRegex$007C_$007C("^(studies(\\/|\\\\))?(?<identifier>[a-zA-Z0-9_\\- ]+)((\\/|\\\\)isa.study.xlsx)?$", fileName);
-    if (activePatternResult != null) {
-        const m = activePatternResult;
-        return (m.groups && m.groups.identifier) || "";
-    }
-    else {
-        return undefined;
-    }
-}
-
-/**
- * On writing a xlsx file we unify our output to a relative path to ARC root. So: `studies/studyIdentifier/isa.study.xlsx`.
- */
-export function Study_fileNameFromIdentifier(identifier) {
-    checkValidCharacters(identifier);
-    return combineMany(["studies", identifier, "isa.study.xlsx"]);
-}
-
-/**
- * On writing a xlsx file we unify our output to a relative path to ARC root. So: `studies/studyIdentifier/isa.study.xlsx`.
- */
-export function Study_tryFileNameFromIdentifier(identifier) {
-    if (tryCheckValidCharacters(identifier)) {
-        return combineMany(["studies", identifier, "isa.study.xlsx"]);
-    }
-    else {
-        return undefined;
-    }
-}
-
-/**
- * On writing a xlsx file we unify our output to a relative path to ARC root. So: `studies/studyIdentifier/isa.investigation.xlsx`.
- */
-export function Study_datamapFileNameFromIdentifier(identifier) {
-    checkValidCharacters(identifier);
-    return combineMany(["studies", identifier, "isa.datamap.xlsx"]);
-}
-
-/**
- * On writing a xlsx file we unify our output to a relative path to ARC root. So: `studies/studyIdentifier/isa.investigation.xlsx`.
- */
-export function Study_tryDatamapFileNameFromIdentifier(identifier) {
-    if (tryCheckValidCharacters(identifier)) {
-        return combineMany(["studies", identifier, "isa.datamap.xlsx"]);
-    }
-    else {
-        return undefined;
-    }
-}
-

package/Core/Helper/ORCID.js

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