@nfdi4plants/arctrl 1.0.6 → 1.1.0

package/ARC.js

@@ -1,5 +1,5 @@
 import { concat, fold, map, exactlyOne, choose } from "./fable_modules/fable-library.4.5.0/Array.js";
-import { ARCtrl_ISA_ArcStudy__ArcStudy_ToUpdateContract, ARCtrl_ISA_ArcInvestigation__ArcInvestigation_ToUpdateContract_6FCE9E49, ARCtrl_ISA_ArcAssay__ArcAssay_ToDeleteContract, ARCtrl_ISA_ArcInvestigation__ArcInvestigation_tryFromReadContract_Static_7570923F, ARCtrl_ISA_ArcStudy__ArcStudy_tryFromReadContract_Static_7570923F, ARCtrl_ISA_ArcAssay__ArcAssay_tryFromReadContract_Static_7570923F } from "./Contracts/Contracts.ArcTypes.js";
+import { ARCtrl_ISA_ArcAssay__ArcAssay_ToUpdateContract, ARCtrl_ISA_ArcAssay__ArcAssay_ToCreateContract_6FCE9E49, ARCtrl_ISA_ArcStudy__ArcStudy_ToCreateContract_6FCE9E49, ARCtrl_ISA_ArcStudy__ArcStudy_ToUpdateContract, ARCtrl_ISA_ArcInvestigation__ArcInvestigation_ToUpdateContract_6FCE9E49, ARCtrl_ISA_ArcAssay__ArcAssay_ToDeleteContract, ARCtrl_ISA_ArcInvestigation__ArcInvestigation_tryFromReadContract_Static_7570923F, ARCtrl_ISA_ArcStudy__ArcStudy_tryFromReadContract_Static_7570923F, ARCtrl_ISA_ArcAssay__ArcAssay_tryFromReadContract_Static_7570923F } from "./Contracts/Contracts.ArcTypes.js";
 import { collect, empty, iterate, find, tryFind, map as map_1, singleton, append, delay, toList, toArray } from "./fable_modules/fable-library.4.5.0/Seq.js";
 import { createRunsFolder, createWorkflowsFolder, createInvestigationFile, createStudyFolder, createStudiesFolder, createAssayFolder, createAssaysFolder } from "./FileSystemTree.js";
 import { FileSystemTree } from "./FileSystem/FileSystemTree.js";
@@ -10,16 +10,16 @@ import { Contract } from "./Contract/Contract.js";
 import { ofArray } from "./fable_modules/fable-library.4.5.0/List.js";
 import { tryISAReadContractFromPath } from "./Contracts/Contracts.ARCtrl.js";
 import { ArcTables } from "./ISA/ISA/ArcTypes/ArcTables.js";
+import { comparePrimitives, safeHash } from "./fable_modules/fable-library.4.5.0/Util.js";
 import { addToDict } from "./fable_modules/fable-library.4.5.0/MapUtil.js";
 import { toFsWorkbook, toLightFsWorkbook } from "./ISA/ISA.Spreadsheet/ArcInvestigation.js";
 import { ArcInvestigation } from "./ISA/ISA/ArcTypes/ArcTypes.js";
 import { Assay_fileNameFromIdentifier, Study_fileNameFromIdentifier } from "./ISA/ISA/Identifier.js";
 import { ARCtrl_ISA_ArcStudy__ArcStudy_toFsWorkbook_Static_Z2A9662E9 } from "./ISA/ISA.Spreadsheet/ArcStudy.js";
 import { toFsWorkbook as toFsWorkbook_1 } from "./ISA/ISA.Spreadsheet/ArcAssay.js";
-import { Dictionary_tryGet } from "./fable_modules/FsSpreadsheet.5.1.1/Cells/FsCellsCollection.fs.js";
+import { Dictionary_tryGet } from "./fable_modules/FsSpreadsheet.5.1.3/Cells/FsCellsCollection.fs.js";
 import { Clone_createCloneContract_5000466F, Init_createAddRemoteContract_Z721C83C5, gitignoreContract, Init_createInitContract_6DFDD678 } from "./Contracts/Contracts.Git.js";
 import { FSharpSet__Contains, ofSeq, unionMany } from "./fable_modules/fable-library.4.5.0/Set.js";
-import { comparePrimitives } from "./fable_modules/fable-library.4.5.0/Util.js";
 import { ofSeq as ofSeq_1 } from "./fable_modules/fable-library.4.5.0/Map.js";
 import { class_type } from "./fable_modules/fable-library.4.5.0/Reflection.js";
 
@@ -172,6 +172,7 @@ export class ARC {
                 const registeredStudy = registeredStudyOpt;
                 registeredStudy.UpdateReferenceByStudyFile(study, true);
             }
+            study.StaticHash = (study.GetLightHashCode() | 0);
         });
         assays.forEach((assay) => {
             const registeredAssayOpt = tryFind((a_1) => (a_1.Identifier === assay.Identifier), investigation.Assays);
@@ -188,6 +189,13 @@ export class ARC {
             updatedTables = fold((tables, study_1) => ArcTables.updateReferenceTablesBySheets(new ArcTables(study_1.Tables), tables, false), new ArcTables(assay_1.Tables), array_6);
             assay_1.Tables = updatedTables.Tables;
         });
+        iterate((a_3) => {
+            a_3.StaticHash = (safeHash(a_3) | 0);
+        }, investigation.Assays);
+        iterate((s_2) => {
+            s_2.StaticHash = (s_2.GetLightHashCode() | 0);
+        }, investigation.Studies);
+        investigation.StaticHash = (investigation.GetLightHashCode() | 0);
         this$.ISA = investigation;
     }
     UpdateFileSystem() {
@@ -208,10 +216,13 @@ export class ARC {
         else {
             const inv = matchValue;
             addToDict(workbooks, "isa.investigation.xlsx", ["ISA_Investigation", (isLight_1 ? (toLightFsWorkbook) : (toFsWorkbook))(inv)]);
+            inv.StaticHash = (inv.GetLightHashCode() | 0);
             iterate((s) => {
+                s.StaticHash = (s.GetLightHashCode() | 0);
                 addToDict(workbooks, Study_fileNameFromIdentifier(s.Identifier), ["ISA_Study", ARCtrl_ISA_ArcStudy__ArcStudy_toFsWorkbook_Static_Z2A9662E9(s)]);
             }, inv.Studies);
             iterate((a) => {
+                a.StaticHash = (safeHash(a) | 0);
                 addToDict(workbooks, Assay_fileNameFromIdentifier(a.Identifier), ["ISA_Assay", toFsWorkbook_1(a)]);
             }, inv.Assays);
         }
@@ -227,6 +238,31 @@ export class ARC {
             }
         }, this$._fs.Tree.ToFilePaths(true));
     }
+    GetUpdateContracts(isLight) {
+        let inv, inv_1, inv_2;
+        const this$ = this;
+        const isLight_1 = defaultArg(isLight, true);
+        const matchValue = this$.ISA;
+        return (matchValue != null) ? (((inv = matchValue, inv.StaticHash === 0)) ? ((inv_1 = matchValue, this$.GetWriteContracts(isLight_1))) : ((inv_2 = matchValue, toArray(delay(() => {
+            const hash = inv_2.GetLightHashCode() | 0;
+            return append((inv_2.StaticHash !== hash) ? singleton(ARCtrl_ISA_ArcInvestigation__ArcInvestigation_ToUpdateContract_6FCE9E49(inv_2, isLight_1)) : empty(), delay(() => {
+                inv_2.StaticHash = (hash | 0);
+                return append(collect((s) => {
+                    const hash_1 = s.GetLightHashCode() | 0;
+                    return append((s.StaticHash === 0) ? ARCtrl_ISA_ArcStudy__ArcStudy_ToCreateContract_6FCE9E49(s, true) : ((s.StaticHash !== hash_1) ? singleton(ARCtrl_ISA_ArcStudy__ArcStudy_ToUpdateContract(s)) : empty()), delay(() => {
+                        s.StaticHash = (hash_1 | 0);
+                        return empty();
+                    }));
+                }, inv_2.Studies), delay(() => collect((a) => {
+                    const hash_2 = safeHash(a) | 0;
+                    return append((a.StaticHash === 0) ? ARCtrl_ISA_ArcAssay__ArcAssay_ToCreateContract_6FCE9E49(a, true) : ((a.StaticHash !== hash_2) ? singleton(ARCtrl_ISA_ArcAssay__ArcAssay_ToUpdateContract(a)) : empty()), delay(() => {
+                        a.StaticHash = (hash_2 | 0);
+                        return empty();
+                    }));
+                }, inv_2.Assays)));
+            }));
+        }))))) : this$.GetWriteContracts(isLight_1);
+    }
     GetGitInitContracts(branch, repositoryAddress, defaultGitignore) {
         const defaultGitignore_1 = defaultArg(defaultGitignore, false);
         return toArray(delay(() => append(singleton(Init_createInitContract_6DFDD678(unwrap(branch))), delay(() => append(defaultGitignore_1 ? singleton(gitignoreContract) : empty(), delay(() => ((repositoryAddress != null) ? singleton(Init_createAddRemoteContract_Z721C83C5(value_2(repositoryAddress))) : empty())))))));

package/Contracts/Contracts.ArcTypes.js

@@ -6,6 +6,8 @@ import { fromFsWorkbook, toFsWorkbook, toLightFsWorkbook } from "../ISA/ISA.Spre
 import { Contract } from "../Contract/Contract.js";
 import { Assay_fileNameFromIdentifier, Study_fileNameFromIdentifier } from "../ISA/ISA/Identifier.js";
 import { ARCtrl_ISA_ArcStudy__ArcStudy_fromFsWorkbook_Static_32154C9D, ARCtrl_ISA_ArcStudy__ArcStudy_toFsWorkbook_Static_Z2A9662E9 } from "../ISA/ISA.Spreadsheet/ArcStudy.js";
+import { empty, singleton, collect, append, delay, toArray } from "../fable_modules/fable-library.4.5.0/Seq.js";
+import { createAssayFolder, createStudyFolder, createStudiesFolder } from "../FileSystemTree.js";
 import { getAssayFolderPath, getStudyFolderPath } from "../Path.js";
 import { fromFsWorkbook as fromFsWorkbook_1, toFsWorkbook as toFsWorkbook_1 } from "../ISA/ISA.Spreadsheet/ArcAssay.js";
 
@@ -136,9 +138,14 @@ export function ARCtrl_ISA_ArcInvestigation__ArcInvestigation_tryFromReadContrac
     }
 }
 
-export function ARCtrl_ISA_ArcStudy__ArcStudy_ToCreateContract(this$) {
+export function ARCtrl_ISA_ArcStudy__ArcStudy_ToCreateContract_6FCE9E49(this$, WithFolder) {
+    const withFolder = defaultArg(WithFolder, false);
     const path = Study_fileNameFromIdentifier(this$.Identifier);
-    return Contract.createCreate(path, "ISA_Study", ARCtrl_ISA_ArcStudy__ArcStudy_toFsWorkbook_Static_Z2A9662E9(this$));
+    const c = Contract.createCreate(path, "ISA_Study", ARCtrl_ISA_ArcStudy__ArcStudy_toFsWorkbook_Static_Z2A9662E9(this$));
+    return toArray(delay(() => {
+        let folderFS;
+        return append(withFolder ? ((folderFS = createStudiesFolder([createStudyFolder(this$.Identifier)]), collect((p) => ((p !== path) ? singleton(Contract.createCreate(p, "PlainText")) : empty()), folderFS.ToFilePaths(false)))) : empty(), delay(() => singleton(c)));
+    }));
 }
 
 export function ARCtrl_ISA_ArcStudy__ArcStudy_ToUpdateContract(this$) {
@@ -155,8 +162,8 @@ export function ARCtrl_ISA_ArcStudy__ArcStudy_toDeleteContract_Static_1B3D5E9B(s
     return ARCtrl_ISA_ArcStudy__ArcStudy_ToDeleteContract(study);
 }
 
-export function ARCtrl_ISA_ArcStudy__ArcStudy_toCreateContract_Static_1B3D5E9B(study) {
-    return ARCtrl_ISA_ArcStudy__ArcStudy_ToCreateContract(study);
+export function ARCtrl_ISA_ArcStudy__ArcStudy_toCreateContract_Static_Z12D8504E(study, WithFolder) {
+    return ARCtrl_ISA_ArcStudy__ArcStudy_ToCreateContract_6FCE9E49(study, unwrap(WithFolder));
 }
 
 export function ARCtrl_ISA_ArcStudy__ArcStudy_toUpdateContract_Static_1B3D5E9B(study) {
@@ -195,9 +202,14 @@ export function ARCtrl_ISA_ArcStudy__ArcStudy_tryFromReadContract_Static_7570923
     }
 }
 
-export function ARCtrl_ISA_ArcAssay__ArcAssay_ToCreateContract(this$) {
+export function ARCtrl_ISA_ArcAssay__ArcAssay_ToCreateContract_6FCE9E49(this$, WithFolder) {
+    const withFolder = defaultArg(WithFolder, false);
     const path = Assay_fileNameFromIdentifier(this$.Identifier);
-    return Contract.createCreate(path, "ISA_Assay", toFsWorkbook_1(this$));
+    const c = Contract.createCreate(path, "ISA_Assay", toFsWorkbook_1(this$));
+    return toArray(delay(() => {
+        let folderFS;
+        return append(withFolder ? ((folderFS = createAssayFolder(this$.Identifier), collect((p) => ((p !== path) ? singleton(Contract.createCreate(p, "PlainText")) : empty()), folderFS.ToFilePaths(false)))) : empty(), delay(() => singleton(c)));
+    }));
 }
 
 export function ARCtrl_ISA_ArcAssay__ArcAssay_ToUpdateContract(this$) {
@@ -214,8 +226,8 @@ export function ARCtrl_ISA_ArcAssay__ArcAssay_toDeleteContract_Static_1C75D08D(a
     return ARCtrl_ISA_ArcAssay__ArcAssay_ToDeleteContract(assay);
 }
 
-export function ARCtrl_ISA_ArcAssay__ArcAssay_toCreateContract_Static_1C75D08D(assay) {
-    return ARCtrl_ISA_ArcAssay__ArcAssay_ToCreateContract(assay);
+export function ARCtrl_ISA_ArcAssay__ArcAssay_toCreateContract_Static_Z3B1E839C(assay, WithFolder) {
+    return ARCtrl_ISA_ArcAssay__ArcAssay_ToCreateContract_6FCE9E49(assay, unwrap(WithFolder));
 }
 
 export function ARCtrl_ISA_ArcAssay__ArcAssay_toUpdateContract_Static_1C75D08D(assay) {

package/ISA/ISA/ArcTypes/ArcTable.js

@@ -1,7 +1,7 @@
 import { Dictionary } from "../../../fable_modules/fable-library.4.5.0/MutableMap.js";
 import { compareArrays, safeHash, disposeSafe, getEnumerator, comparePrimitives, equals, arrayHash, equalArrays } from "../../../fable_modules/fable-library.4.5.0/Util.js";
 import { value as value_9, map as map_2, defaultArg, unwrap } from "../../../fable_modules/fable-library.4.5.0/Option.js";
-import { Unchecked_extendToRowCount, ProcessParsing_processToRows, ProcessParsing_alignByHeaders, ProcessParsing_mergeIdenticalProcesses, ProcessParsing_getProcessGetter, Unchecked_removeRowCells_withIndexChange, Unchecked_addRow, Unchecked_getEmptyCellForHeader, Unchecked_removeColumnCells_withIndexChange, tryFindDuplicateUniqueInArray, Unchecked_removeColumnCells, Unchecked_removeHeader, Unchecked_fillMissingCells, Unchecked_addColumn, tryFindDuplicateUnique, Unchecked_setCellAt, SanityChecks_validateColumn, SanityChecks_validateRowIndex, SanityChecks_validateColumnIndex, Unchecked_tryGetCellAt, getRowCount, getColumnCount } from "./ArcTableAux.js";
+import { boxHashValues, Unchecked_extendToRowCount, ProcessParsing_processToRows, ProcessParsing_alignByHeaders, ProcessParsing_mergeIdenticalProcesses, ProcessParsing_getProcessGetter, Unchecked_removeRowCells_withIndexChange, Unchecked_addRows, Unchecked_addRow, Unchecked_getEmptyCellForHeader, Unchecked_removeColumnCells_withIndexChange, tryFindDuplicateUniqueInArray, Unchecked_removeColumnCells, Unchecked_removeHeader, Unchecked_fillMissingCells, Unchecked_addColumn, tryFindDuplicateUnique, Unchecked_setCellAt, SanityChecks_validateColumn, SanityChecks_validateRowIndex, SanityChecks_validateColumnIndex, Unchecked_tryGetCellAt, getRowCount, getColumnCount } from "./ArcTableAux.js";
 import { item, append as append_1, indexed as indexed_1, choose, toList, zip, fold, filter, length, tryFindIndex, empty, singleton, collect, removeAt, map, delay, toArray } from "../../../fable_modules/fable-library.4.5.0/Seq.js";
 import { rangeDouble } from "../../../fable_modules/fable-library.4.5.0/Range.js";
 import { CompositeColumn } from "./CompositeColumn.js";
@@ -22,7 +22,7 @@ import { Array_groupBy, List_distinct } from "../../../fable_modules/fable-libra
 import { toProtocol } from "./CompositeRow.js";
 import { Process_create_Z42860F3E } from "../JsonTypes/Process.js";
 import { getItemFromDict } from "../../../fable_modules/fable-library.4.5.0/MapUtil.js";
-import { HashCodes_boxHashArray } from "../Helper.js";
+import { HashCodes_boxHashSeq, HashCodes_boxHashArray } from "../Helper.js";
 import { class_type } from "../../../fable_modules/fable-library.4.5.0/Reflection.js";
 
 export class ArcTable {
@@ -502,10 +502,7 @@ export class ArcTable {
                 SanityChecks_validateColumn(CompositeColumn.create(h, [row_1[columnIndex]]));
             }
         }
-        rows.forEach((row_2) => {
-            Unchecked_addRow(index_1, row_2, this$.Headers, this$.Values);
-            index_1 = ((index_1 + 1) | 0);
-        });
+        Unchecked_addRows(index_1, rows, this$.Headers, this$.Values);
     }
     static addRows(rows, index) {
         return (table) => {
@@ -864,16 +861,8 @@ export class ArcTable {
     }
     GetHashCode() {
         const this$ = this;
-        const v_2 = map_1((tupledArg) => {
-            const _arg = tupledArg[0];
-            return HashCodes_boxHashArray([_arg[0], _arg[1], tupledArg[1]]);
-        }, sortBy((tuple) => tuple[0], toArray(delay(() => collect((matchValue) => {
-            const activePatternResult = matchValue;
-            return singleton([activePatternResult[0], activePatternResult[1]]);
-        }, this$.Values))), {
-            Compare: compareArrays,
-        }));
-        return HashCodes_boxHashArray([this$.Name, HashCodes_boxHashArray(Array.from(this$.Headers)), HashCodes_boxHashArray(Array.from(v_2))]) | 0;
+        const vHash = boxHashValues(this$.ColumnCount, this$.Values);
+        return HashCodes_boxHashArray([this$.Name, HashCodes_boxHashSeq(this$.Headers), vHash]) | 0;
     }
 }
 

package/ISA/ISA/ArcTypes/ArcTableAux.js

@@ -1,12 +1,14 @@
-import { getItemFromDict, addToDict } from "../../../fable_modules/fable-library.4.5.0/MapUtil.js";
-import { map as map_1, defaultArg, unwrap, value as value_9, some } from "../../../fable_modules/fable-library.4.5.0/Option.js";
-import { empty as empty_2, singleton as singleton_1, append, delay, map, tryPick, toList, indexed, initialize, filter, tryFindIndex, maxBy } from "../../../fable_modules/fable-library.4.5.0/Seq.js";
-import { arrayHash, equalArrays, stringHash, int32ToString, compareArrays, disposeSafe, getEnumerator, compare, equals, comparePrimitives } from "../../../fable_modules/fable-library.4.5.0/Util.js";
-import { pick, exists, zip, append as append_1, sortBy, tryPick as tryPick_1, collect, mapIndexed, item, length, map as map_2, ofArray, singleton, choose, ofSeq, empty as empty_1, head, tail as tail_1, isEmpty, cons } from "../../../fable_modules/fable-library.4.5.0/List.js";
+import { addToDict, getItemFromDict } from "../../../fable_modules/fable-library.4.5.0/MapUtil.js";
+import { map as map_2, defaultArg, unwrap, value as value_9, some } from "../../../fable_modules/fable-library.4.5.0/Option.js";
+import { empty as empty_1, singleton as singleton_1, append, delay, map as map_1, tryPick, toList, indexed, head as head_1, toArray, filter, tryFindIndex, maxBy } from "../../../fable_modules/fable-library.4.5.0/Seq.js";
+import { arrayHash, equalArrays, stringHash, int32ToString, numberHash, disposeSafe, getEnumerator, compare, equals, safeHash, comparePrimitives } from "../../../fable_modules/fable-library.4.5.0/Util.js";
+import { pick, exists, zip, append as append_1, sortBy, tryPick as tryPick_1, collect, mapIndexed, item, length, map as map_3, ofArray as ofArray_2, singleton, choose, ofSeq, empty, head, tail as tail_1, isEmpty, cons } from "../../../fable_modules/fable-library.4.5.0/List.js";
 import { CompositeCell } from "./CompositeCell.js";
 import { max } from "../../../fable_modules/fable-library.4.5.0/Double.js";
-import { iterateIndexed } from "../../../fable_modules/fable-library.4.5.0/Array.js";
-import { FSharpSet__get_MinimumElement, FSharpSet__get_IsEmpty, difference, ofSeq as ofSeq_1 } from "../../../fable_modules/fable-library.4.5.0/Set.js";
+import { map, iterateIndexed } from "../../../fable_modules/fable-library.4.5.0/Array.js";
+import { tryFind, ofArray } from "../../../fable_modules/fable-library.4.5.0/Map.js";
+import { List_groupBy, Array_groupBy } from "../../../fable_modules/fable-library.4.5.0/Seq2.js";
+import { FSharpSet__Contains, ofArray as ofArray_1 } from "../../../fable_modules/fable-library.4.5.0/Set.js";
 import { Value as Value_1 } from "../JsonTypes/Value.js";
 import { Component_fromOptions } from "../JsonTypes/Component.js";
 import { ProtocolParameter } from "../JsonTypes/ProtocolParameter.js";
@@ -26,24 +28,9 @@ import { Sample_create_E50ED22 } from "../JsonTypes/Sample.js";
 import { Process_create_Z42860F3E, Process_decomposeName_Z721C83C5, Process_make, Process_composeName } from "../JsonTypes/Process.js";
 import { List_tryPickAndRemove, HashCodes_boxHashSeq, Option_fromValueWithDefault } from "../Helper.js";
 import { Protocol_make } from "../JsonTypes/Protocol.js";
-import { List_groupBy } from "../../../fable_modules/fable-library.4.5.0/Seq2.js";
 import { createMissingIdentifier } from "../Identifier.js";
 import { Dictionary } from "../../../fable_modules/fable-library.4.5.0/MutableMap.js";
 
-/**
- * Returns the dictionary with the binding added to the given dictionary.
- * If a binding with the given key already exists in the input dictionary, the existing binding is replaced by the new binding in the result dictionary.
- */
-export function Dictionary_addOrUpdateInPlace(key, value, table) {
-    if (table.has(key)) {
-        table.set(key, value);
-    }
-    else {
-        addToDict(table, key, value);
-    }
-    return table;
-}
-
 /**
  * Lookup an element in the dictionary, returning a <c>Some</c> value if the element is in the domain
  * of the dictionary and <c>None</c> if not.
@@ -72,6 +59,17 @@ export function getRowCount(values) {
     }
 }
 
+export function boxHashValues(colCount, values) {
+    let hash = 0;
+    const rowCount = getRowCount(values) | 0;
+    for (let col = 0; col <= (colCount - 1); col++) {
+        for (let row = 0; row <= (rowCount - 1); row++) {
+            hash = ((((-1640531527 + safeHash(getItemFromDict(values, [col, row]))) + (hash << 6)) + (hash >> 2)) | 0);
+        }
+    }
+    return hash;
+}
+
 export function $007CIsUniqueExistingHeader$007C_$007C(existingHeaders, input) {
     switch (input.tag) {
         case 3:
@@ -141,7 +139,7 @@ export function tryFindDuplicateUniqueInArray(existingHeaders) {
             break;
         }
     };
-    return loop(0, empty_1(), ofSeq(filter((x) => !x.IsTermColumn, existingHeaders)));
+    return loop(0, empty(), ofSeq(filter((x) => !x.IsTermColumn, existingHeaders)));
 }
 
 /**
@@ -186,8 +184,18 @@ export function Unchecked_tryGetCellAt(column, row, cells) {
     return Dictionary_tryFind([column, row], cells);
 }
 
+/**
+ * Add or update a cell in the dictionary.
+ */
 export function Unchecked_setCellAt(columnIndex, rowIndex, c, cells) {
-    Dictionary_addOrUpdateInPlace([columnIndex, rowIndex], c, cells);
+    cells.set([columnIndex, rowIndex], c);
+}
+
+/**
+ * Add a cell to the dictionary. If a cell already exists at the given position, it fails.
+ */
+export function Unchecked_addCellAt(columnIndex, rowIndex, c, cells) {
+    addToDict(cells, [columnIndex, rowIndex], c);
 }
 
 export function Unchecked_moveCellTo(fromCol, fromRow, toCol, toRow, cells) {
@@ -357,27 +365,37 @@ export function Unchecked_addColumn(newHeader, newCells, index, forceReplace, on
 }
 
 export function Unchecked_fillMissingCells(headers, values) {
+    let col;
     const rowCount = getRowCount(values) | 0;
-    const lastColumnIndex = (getColumnCount(headers) - 1) | 0;
-    const keys = values.keys();
-    for (let columnIndex = 0; columnIndex <= lastColumnIndex; columnIndex++) {
-        const colKeys = ofSeq_1(filter((tupledArg) => (tupledArg[0] === columnIndex), keys), {
-            Compare: compareArrays,
-        });
-        const missingKeys = difference(ofSeq_1(initialize(rowCount, (i) => [columnIndex, i]), {
-            Compare: compareArrays,
-        }), colKeys);
-        if (!FSharpSet__get_IsEmpty(missingKeys)) {
-            const empty = Unchecked_getEmptyCellForHeader(headers[columnIndex], FSharpSet__get_IsEmpty(colKeys) ? void 0 : getItemFromDict(values, FSharpSet__get_MinimumElement(colKeys)));
-            const enumerator = getEnumerator(missingKeys);
-            try {
-                while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
-                    const forLoopVar = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
-                    Unchecked_setCellAt(forLoopVar[0], forLoopVar[1], empty, values);
-                }
+    const columnCount = getColumnCount(headers) | 0;
+    const columnKeyGroups = ofArray(Array_groupBy((tuple) => tuple[0], toArray(values.keys()), {
+        Equals: (x, y) => (x === y),
+        GetHashCode: numberHash,
+    }), {
+        Compare: comparePrimitives,
+    });
+    for (let columnIndex = 0; columnIndex <= (columnCount - 1); columnIndex++) {
+        const header = headers[columnIndex];
+        const matchValue = tryFind(columnIndex, columnKeyGroups);
+        if (matchValue == null) {
+            const defaultCell_1 = Unchecked_getEmptyCellForHeader(header, void 0);
+            for (let rowIndex_1 = 0; rowIndex_1 <= (rowCount - 1); rowIndex_1++) {
+                Unchecked_addCellAt(columnIndex, rowIndex_1, defaultCell_1, values);
             }
-            finally {
-                disposeSafe(enumerator);
+        }
+        else if ((col = matchValue, col.length === rowCount)) {
+            const col_1 = matchValue;
+        }
+        else {
+            const col_2 = matchValue;
+            const defaultCell = Unchecked_getEmptyCellForHeader(header, getItemFromDict(values, head_1(col_2)));
+            const rowKeys = ofArray_1(map((tuple_1) => tuple_1[1], col_2, Int32Array), {
+                Compare: comparePrimitives,
+            });
+            for (let rowIndex = 0; rowIndex <= (rowCount - 1); rowIndex++) {
+                if (!FSharpSet__Contains(rowKeys, rowIndex)) {
+                    Unchecked_addCellAt(columnIndex, rowIndex, defaultCell, values);
+                }
             }
         }
     }
@@ -417,6 +435,31 @@ export function Unchecked_addRow(index, newCells, headers, values) {
     }, newCells);
 }
 
+export function Unchecked_addRows(index, newRows, headers, values) {
+    const rowCount = getRowCount(values) | 0;
+    const columnCount = getColumnCount(headers) | 0;
+    const numNewRows = newRows.length | 0;
+    let increaseRowIndices;
+    if (index < rowCount) {
+        const lastRowIndex = max(rowCount - 1, 0) | 0;
+        for (let rowIndex = lastRowIndex; rowIndex >= index; rowIndex--) {
+            for (let columnIndex = 0; columnIndex <= (columnCount - 1); columnIndex++) {
+                Unchecked_moveCellTo(columnIndex, rowIndex, columnIndex, rowIndex + numNewRows, values);
+            }
+        }
+    }
+    else {
+        increaseRowIndices = void 0;
+    }
+    let currentRowIndex = index;
+    for (let idx = 0; idx <= (newRows.length - 1); idx++) {
+        const setNewCells = iterateIndexed((columnIndex_1, cell) => {
+            Unchecked_setCellAt(columnIndex_1, currentRowIndex, cell, values);
+        }, newRows[idx]);
+        currentRowIndex = ((currentRowIndex + 1) | 0);
+    }
+}
+
 /**
  * Convert a CompositeCell to a ISA Value and Unit tuple.
  */
@@ -830,35 +873,35 @@ export function ProcessParsing_getProcessGetter(processNameRoot, headers) {
     let inputGetter_1;
     const matchValue = tryPick((tupledArg_9) => ProcessParsing_tryGetInputGetter(tupledArg_9[0], tupledArg_9[1]), headers_1);
     if (matchValue == null) {
-        inputGetter_1 = ((matrix_1) => ((i_1) => singleton(new ProcessInput(0, [Source_create_7A281ED9(void 0, `${processNameRoot}_Input_${i_1}`, toList(map((f_1) => f_1(matrix_1)(i_1), charGetters)))]))));
+        inputGetter_1 = ((matrix_1) => ((i_1) => singleton(new ProcessInput(0, [Source_create_7A281ED9(void 0, `${processNameRoot}_Input_${i_1}`, toList(map_1((f_1) => f_1(matrix_1)(i_1), charGetters)))]))));
     }
     else {
         const inputGetter = matchValue;
         inputGetter_1 = ((matrix) => ((i) => {
-            const chars = toList(map((f) => f(matrix)(i), charGetters));
+            const chars = toList(map_1((f) => f(matrix)(i), charGetters));
             const input = inputGetter(matrix)(i);
-            return (!(ProcessInput__isSample(input) ? true : ProcessInput__isSource(input)) && !isEmpty(chars)) ? ofArray([input, ProcessInput_createSample_Z6DF16D07(ProcessInput__get_Name(input), chars)]) : singleton(ProcessInput_setCharacteristicValues(chars, input));
+            return (!(ProcessInput__isSample(input) ? true : ProcessInput__isSource(input)) && !isEmpty(chars)) ? ofArray_2([input, ProcessInput_createSample_Z6DF16D07(ProcessInput__get_Name(input), chars)]) : singleton(ProcessInput_setCharacteristicValues(chars, input));
         }));
     }
     let outputGetter_1;
     const matchValue_1 = tryPick((tupledArg_10) => ProcessParsing_tryGetOutputGetter(tupledArg_10[0], tupledArg_10[1]), headers_1);
     if (matchValue_1 == null) {
-        outputGetter_1 = ((matrix_3) => ((i_3) => singleton(new ProcessOutput(0, [Sample_create_E50ED22(void 0, `${processNameRoot}_Output_${i_3}`, void 0, toList(map((f_3) => f_3(matrix_3)(i_3), factorValueGetters)))]))));
+        outputGetter_1 = ((matrix_3) => ((i_3) => singleton(new ProcessOutput(0, [Sample_create_E50ED22(void 0, `${processNameRoot}_Output_${i_3}`, void 0, toList(map_1((f_3) => f_3(matrix_3)(i_3), factorValueGetters)))]))));
     }
     else {
         const outputGetter = matchValue_1;
         outputGetter_1 = ((matrix_2) => ((i_2) => {
-            const factors = toList(map((f_2) => f_2(matrix_2)(i_2), factorValueGetters));
+            const factors = toList(map_1((f_2) => f_2(matrix_2)(i_2), factorValueGetters));
             const output = outputGetter(matrix_2)(i_2);
-            return (!ProcessOutput__isSample(output) && !isEmpty(factors)) ? ofArray([output, ProcessOutput_createSample_Z6DF16D07(ProcessOutput__get_Name(output), void 0, factors)]) : singleton(ProcessOutput_setFactorValues(factors, output));
+            return (!ProcessOutput__isSample(output) && !isEmpty(factors)) ? ofArray_2([output, ProcessOutput_createSample_Z6DF16D07(ProcessOutput__get_Name(output), void 0, factors)]) : singleton(ProcessOutput_setFactorValues(factors, output));
         }));
     }
     return (matrix_4) => ((i_4) => {
-        const pn = map_1((p) => Process_composeName(p, i_4), Option_fromValueWithDefault("", processNameRoot));
-        const paramvalues = Option_fromValueWithDefault(empty_1(), map_2((f_4) => f_4(matrix_4)(i_4), parameterValueGetters));
-        const parameters = map_1((list_5) => map_2((pv) => value_9(pv.Category), list_5), paramvalues);
+        const pn = map_2((p) => Process_composeName(p, i_4), Option_fromValueWithDefault("", processNameRoot));
+        const paramvalues = Option_fromValueWithDefault(empty(), map_3((f_4) => f_4(matrix_4)(i_4), parameterValueGetters));
+        const parameters = map_2((list_5) => map_3((pv) => value_9(pv.Category), list_5), paramvalues);
         let protocol;
-        const p_1 = Protocol_make(void 0, map_1((f_5) => f_5(matrix_4)(i_4), protocolREFGetter), map_1((f_6) => f_6(matrix_4)(i_4), protocolTypeGetter), map_1((f_7) => f_7(matrix_4)(i_4), protocolDescriptionGetter), map_1((f_8) => f_8(matrix_4)(i_4), protocolURIGetter), map_1((f_9) => f_9(matrix_4)(i_4), protocolVersionGetter), parameters, Option_fromValueWithDefault(empty_1(), map_2((f_10) => f_10(matrix_4)(i_4), componentGetters)), void 0);
+        const p_1 = Protocol_make(void 0, map_2((f_5) => f_5(matrix_4)(i_4), protocolREFGetter), map_2((f_6) => f_6(matrix_4)(i_4), protocolTypeGetter), map_2((f_7) => f_7(matrix_4)(i_4), protocolDescriptionGetter), map_2((f_8) => f_8(matrix_4)(i_4), protocolURIGetter), map_2((f_9) => f_9(matrix_4)(i_4), protocolVersionGetter), parameters, Option_fromValueWithDefault(empty(), map_3((f_10) => f_10(matrix_4)(i_4), componentGetters)), void 0);
         let matchResult;
         if (p_1.Name == null) {
             if (p_1.ProtocolType == null) {
@@ -902,7 +945,7 @@ export function ProcessParsing_getProcessGetter(processNameRoot, headers) {
         let patternInput;
         const inputs = inputGetter_1(matrix_4)(i_4);
         const outputs = outputGetter_1(matrix_4)(i_4);
-        patternInput = (((length(inputs) === 1) && (length(outputs) === 2)) ? [ofArray([item(0, inputs), item(0, inputs)]), outputs] : (((length(inputs) === 2) && (length(outputs) === 1)) ? [inputs, ofArray([item(0, outputs), item(0, outputs)])] : [inputs, outputs]));
+        patternInput = (((length(inputs) === 1) && (length(outputs) === 2)) ? [ofArray_2([item(0, inputs), item(0, inputs)]), outputs] : (((length(inputs) === 2) && (length(outputs) === 1)) ? [inputs, ofArray_2([item(0, outputs), item(0, outputs)])] : [inputs, outputs]));
         return Process_make(void 0, pn, protocol, paramvalues, void 0, void 0, void 0, void 0, patternInput[0], patternInput[1], void 0);
     });
 }
@@ -947,13 +990,13 @@ export function ProcessParsing_groupProcesses(ps) {
 export function ProcessParsing_mergeIdenticalProcesses(processes) {
     const l = List_groupBy((x) => {
         if ((x.Name != null) && (Process_decomposeName_Z721C83C5(value_9(x.Name))[1] != null)) {
-            return [Process_decomposeName_Z721C83C5(value_9(x.Name))[0], x.ExecutesProtocol, map_1(HashCodes_boxHashSeq, x.ParameterValues)];
+            return [Process_decomposeName_Z721C83C5(value_9(x.Name))[0], x.ExecutesProtocol, map_2(HashCodes_boxHashSeq, x.ParameterValues)];
         }
         else if ((x.ExecutesProtocol != null) && (value_9(x.ExecutesProtocol).Name != null)) {
-            return [value_9(value_9(x.ExecutesProtocol).Name), x.ExecutesProtocol, map_1(HashCodes_boxHashSeq, x.ParameterValues)];
+            return [value_9(value_9(x.ExecutesProtocol).Name), x.ExecutesProtocol, map_2(HashCodes_boxHashSeq, x.ParameterValues)];
         }
         else {
-            return [createMissingIdentifier(), x.ExecutesProtocol, map_1(HashCodes_boxHashSeq, x.ParameterValues)];
+            return [createMissingIdentifier(), x.ExecutesProtocol, map_2(HashCodes_boxHashSeq, x.ParameterValues)];
         }
     }, processes, {
         Equals: equalArrays,
@@ -964,28 +1007,28 @@ export function ProcessParsing_mergeIdenticalProcesses(processes) {
         const processes_1 = tupledArg[1];
         const n = _arg[0];
         const pVs = item(0, processes_1).ParameterValues;
-        const inputs = Option_fromValueWithDefault(empty_1(), collect((p) => defaultArg(p.Inputs, empty_1()), processes_1));
-        const outputs = Option_fromValueWithDefault(empty_1(), collect((p_1) => defaultArg(p_1.Outputs, empty_1()), processes_1));
+        const inputs = Option_fromValueWithDefault(empty(), collect((p) => defaultArg(p.Inputs, empty()), processes_1));
+        const outputs = Option_fromValueWithDefault(empty(), collect((p_1) => defaultArg(p_1.Outputs, empty()), processes_1));
         return Process_create_Z42860F3E(void 0, (length(l) > 1) ? Process_composeName(n, i) : n, _arg[1], pVs, void 0, void 0, void 0, void 0, inputs, outputs);
     }, l);
 }
 
 export function ProcessParsing_processToRows(p) {
     let list_3;
-    const pvs = map_2((ppv) => [JsonTypes_decomposeParameterValue(ppv), tryGetParameterColumnIndex(ppv)], defaultArg(p.ParameterValues, empty_1()));
+    const pvs = map_3((ppv) => [JsonTypes_decomposeParameterValue(ppv), tryGetParameterColumnIndex(ppv)], defaultArg(p.ParameterValues, empty()));
     let components;
     const matchValue = p.ExecutesProtocol;
-    components = ((matchValue == null) ? empty_1() : map_2((ppv_1) => [JsonTypes_decomposeComponent(ppv_1), tryGetComponentIndex(ppv_1)], defaultArg(matchValue.Components, empty_1())));
+    components = ((matchValue == null) ? empty() : map_3((ppv_1) => [JsonTypes_decomposeComponent(ppv_1), tryGetComponentIndex(ppv_1)], defaultArg(matchValue.Components, empty())));
     let protVals;
     const matchValue_1 = p.ExecutesProtocol;
     if (matchValue_1 == null) {
-        protVals = empty_1();
+        protVals = empty();
     }
     else {
         const prot_1 = matchValue_1;
-        protVals = toList(delay(() => append((prot_1.Name != null) ? singleton_1([new CompositeHeader(8, []), new CompositeCell(1, [value_9(prot_1.Name)])]) : empty_2(), delay(() => append((prot_1.ProtocolType != null) ? singleton_1([new CompositeHeader(4, []), new CompositeCell(0, [value_9(prot_1.ProtocolType)])]) : empty_2(), delay(() => append((prot_1.Description != null) ? singleton_1([new CompositeHeader(5, []), new CompositeCell(1, [value_9(prot_1.Description)])]) : empty_2(), delay(() => append((prot_1.Uri != null) ? singleton_1([new CompositeHeader(6, []), new CompositeCell(1, [value_9(prot_1.Uri)])]) : empty_2(), delay(() => ((prot_1.Version != null) ? singleton_1([new CompositeHeader(7, []), new CompositeCell(1, [value_9(prot_1.Version)])]) : empty_2())))))))))));
+        protVals = toList(delay(() => append((prot_1.Name != null) ? singleton_1([new CompositeHeader(8, []), new CompositeCell(1, [value_9(prot_1.Name)])]) : empty_1(), delay(() => append((prot_1.ProtocolType != null) ? singleton_1([new CompositeHeader(4, []), new CompositeCell(0, [value_9(prot_1.ProtocolType)])]) : empty_1(), delay(() => append((prot_1.Description != null) ? singleton_1([new CompositeHeader(5, []), new CompositeCell(1, [value_9(prot_1.Description)])]) : empty_1(), delay(() => append((prot_1.Uri != null) ? singleton_1([new CompositeHeader(6, []), new CompositeCell(1, [value_9(prot_1.Uri)])]) : empty_1(), delay(() => ((prot_1.Version != null) ? singleton_1([new CompositeHeader(7, []), new CompositeCell(1, [value_9(prot_1.Version)])]) : empty_1())))))))))));
     }
-    return map_2((tupledArg_1) => {
+    return map_3((tupledArg_1) => {
         const ios = tupledArg_1[1];
         const inputForCharas = defaultArg(tryPick_1((tupledArg_2) => {
             const i_2 = tupledArg_2[0];
@@ -1005,7 +1048,7 @@ export function ProcessParsing_processToRows(p) {
                 return void 0;
             }
         }, ios), head(ios)[0]);
-        const chars = map_2((cv) => [JsonTypes_decomposeCharacteristicValue(cv), tryGetCharacteristicColumnIndex(cv)], ProcessInput_getCharacteristicValues_102B6859(inputForCharas));
+        const chars = map_3((cv) => [JsonTypes_decomposeCharacteristicValue(cv), tryGetCharacteristicColumnIndex(cv)], ProcessInput_getCharacteristicValues_102B6859(inputForCharas));
         const outputForFactors = defaultArg(tryPick_1((tupledArg_4) => {
             const o_4 = tupledArg_4[1];
             if (ProcessOutput__isSample(o_4)) {
@@ -1024,11 +1067,11 @@ export function ProcessParsing_processToRows(p) {
                 return void 0;
             }
         }, ios), head(ios)[1]);
-        const vals = map_2((tuple_5) => tuple_5[0], sortBy((arg) => defaultArg(arg[1], 10000), append_1(chars, append_1(components, append_1(pvs, map_2((fv) => [JsonTypes_decomposeFactorValue(fv), tryGetFactorColumnIndex(fv)], ProcessOutput_getFactorValues_11830B70(outputForFactors))))), {
+        const vals = map_3((tuple_5) => tuple_5[0], sortBy((arg) => defaultArg(arg[1], 10000), append_1(chars, append_1(components, append_1(pvs, map_3((fv) => [JsonTypes_decomposeFactorValue(fv), tryGetFactorColumnIndex(fv)], ProcessOutput_getFactorValues_11830B70(outputForFactors))))), {
             Compare: comparePrimitives,
         }));
         return toList(delay(() => append(singleton_1(JsonTypes_decomposeProcessInput(inputForType)), delay(() => append(protVals, delay(() => append(vals, delay(() => singleton_1(JsonTypes_decomposeProcessOutput(outputForType))))))))));
-    }, List_groupBy((tupledArg) => [ProcessInput__get_Name(tupledArg[0]), ProcessOutput__get_Name(tupledArg[1])], (list_3 = defaultArg(p.Outputs, empty_1()), zip(defaultArg(p.Inputs, empty_1()), list_3)), {
+    }, List_groupBy((tupledArg) => [ProcessInput__get_Name(tupledArg[0]), ProcessOutput__get_Name(tupledArg[1])], (list_3 = defaultArg(p.Outputs, empty()), zip(defaultArg(p.Inputs, empty()), list_3)), {
         Equals: equalArrays,
         GetHashCode: arrayHash,
     }));
@@ -1079,7 +1122,7 @@ export function ProcessParsing_alignByHeaders(keepOrder, rows) {
                             }
                         }
                         else {
-                            return empty_1();
+                            return empty();
                         }
                     }
                     else {