@nfdi4plants/arctrl 3.1.0 → 3.2.0

package/dist/ts/ts/fable_modules/{YAMLicious.1.0.0-alpha.7 → YAMLicious.1.0.0}/Persil.fs.js

@@ -1,31 +1,31 @@
-import { max, length, takeWhile, toList } from '../../../node_modules/@fable-org/fable-library-js/Seq.js';
-import { comparePrimitives, getEnumerator, disposeSafe, equals } from '../../../node_modules/@fable-org/fable-library-js/Util.js';
-import { parse } from '../../../node_modules/@fable-org/fable-library-js/Int32.js';
-import { QuotedStringKind_SingleQuotedString, StringMapEntry, QuotedStringKind_DoubleQuotedString, YAMLDirective } from './YAMLiciousTypes.fs.js';
-import { StringBuffer_$ctor, StringBuffer__Append_244C7CD6, StringBuffer__get_Length, StringBuffer__get_Item_Z524259A4, StringBuffer__Append_Z721C83C5 } from './StringBuffer.fs.js';
-import { item, tryHead, tryFind, takeWhile as takeWhile$1, take, append } from '../../../node_modules/@fable-org/fable-library-js/Array.js';
-import { trimStart, trimEnd, replace, substring, toText, printf, isNullOrWhiteSpace, split } from '../../../node_modules/@fable-org/fable-library-js/String.js';
-import { toString } from '../../../node_modules/@fable-org/fable-library-js/Types.js';
-import { addToDict } from '../../../node_modules/@fable-org/fable-library-js/MapUtil.js';
-import { FSharpSet__Contains, ofList, empty } from '../../../node_modules/@fable-org/fable-library-js/Set.js';
-import { value, defaultArg, map, unwrap } from '../../../node_modules/@fable-org/fable-library-js/Option.js';
-import { replace as replace$1, match } from '../../../node_modules/@fable-org/fable-library-js/RegExp.js';
-import { ofArray, isEmpty, head, tail, toArray, reverse } from '../../../node_modules/@fable-org/fable-library-js/List.js';
-import { isWhiteSpace } from '../../../node_modules/@fable-org/fable-library-js/Char.js';
-import { add, empty as empty$1 } from '../../../node_modules/@fable-org/fable-library-js/Map.js';
+import { max, toList } from '../../../node_modules/@fable-org/fable-library-ts/Seq.js';
+import { comparePrimitives, getEnumerator, disposeSafe, equals, Exception } from '../../../node_modules/@fable-org/fable-library-ts/Util.js';
+import { parse } from '../../../node_modules/@fable-org/fable-library-ts/Int32.js';
+import { QuotedStringKind, StringMapEntry, YAMLDirective } from './YAMLiciousTypes.fs.js';
+import { StringBuilder_$ctor, StringBuilder__Append_244C7CD6, StringBuilder__get_Length, StringBuilder__get_Chars_Z524259A4, StringBuilder__Append_Z721C83C5 } from '../../../node_modules/@fable-org/fable-library-ts/System.Text.js';
+import { item, tryFind, takeWhile, take, append } from '../../../node_modules/@fable-org/fable-library-ts/Array.js';
+import { trimStart, trimEnd, replace, substring, toText, printf, split } from '../../../node_modules/@fable-org/fable-library-ts/String.js';
+import { toString } from '../../../node_modules/@fable-org/fable-library-ts/Types.js';
+import { addToDict } from '../../../node_modules/@fable-org/fable-library-ts/MapUtil.js';
+import { FSharpSet__Contains, ofList, empty } from '../../../node_modules/@fable-org/fable-library-ts/Set.js';
+import { Line_normalizeNewlines, BlockScalar_tryDetectHeaderIndent, Line_countLeadingSpaces, Document_isStart, Document_tryInlineContentAfterStartMarker } from './Syntax.fs.js';
+import { value, defaultArg, unwrap } from '../../../node_modules/@fable-org/fable-library-ts/Option.js';
+import { replace as replace$1, match } from '../../../node_modules/@fable-org/fable-library-ts/RegExp.js';
+import { ofArray, isEmpty, head, tail, toArray, reverse } from '../../../node_modules/@fable-org/fable-library-ts/List.js';
+import { add, empty as empty$1 } from '../../../node_modules/@fable-org/fable-library-ts/Map.js';
 
 function nextStringIndex(dict) {
   if (dict.size === 0) {
     return 0;
   } else {
     return max(dict.keys(), {
-      Compare: comparePrimitives
+      Compare: (x, y) => comparePrimitives(x, y) | 0
     }) + 1 | 0;
   }
 }
 function foldSingleQuoted(s) {
   const lines = s.split("\n");
-  const sb = StringBuffer_$ctor();
+  const sb = StringBuilder_$ctor();
   for (let i = 0; i <= lines.length - 1; i++) {
     let line = item(i, lines);
     if (i > 0) {
@@ -35,46 +35,46 @@ function foldSingleQuoted(s) {
       line = trimEnd(line);
     }
     if (line.length === 0) {
-      StringBuffer__Append_244C7CD6(sb, "\n");
+      StringBuilder__Append_244C7CD6(sb, "\n");
     } else {
-      if (StringBuffer__get_Length(sb) > 0 && StringBuffer__get_Item_Z524259A4(sb, StringBuffer__get_Length(sb) - 1) !== "\n") {
-        StringBuffer__Append_Z721C83C5(sb, " ");
+      if (StringBuilder__get_Length(sb) > 0 && StringBuilder__get_Chars_Z524259A4(sb, StringBuilder__get_Length(sb) - 1) !== "\n") {
+        StringBuilder__Append_Z721C83C5(sb, " ");
       }
-      StringBuffer__Append_Z721C83C5(sb, line);
+      StringBuilder__Append_Z721C83C5(sb, line);
     }
   }
   return replace(toString(sb), "''", "'");
 }
 function parseSingleQuotedSegment(s, startIndex) {
-  const content = StringBuffer_$ctor();
+  const content = StringBuilder_$ctor();
   let i = startIndex + 1;
   let closed = false;
   while (i < s.length && !closed) {
     const ch = s[i];
     if (ch === "'") {
       if (i + 1 < s.length && s[i + 1] === "'") {
-        StringBuffer__Append_Z721C83C5(content, "''");
+        StringBuilder__Append_Z721C83C5(content, "''");
         i = i + 2 | 0;
       } else {
         closed = true;
         i = i + 1 | 0;
       }
     } else {
-      StringBuffer__Append_244C7CD6(content, ch);
+      StringBuilder__Append_244C7CD6(content, ch);
       i = i + 1 | 0;
     }
   }
   return [closed, toString(content), i];
 }
 function parseDoubleQuotedSegment(s, startIndex) {
-  const content = StringBuffer_$ctor();
+  const content = StringBuilder_$ctor();
   let i = startIndex + 1;
   let closed = false;
   let escaped = false;
   while (i < s.length && !closed) {
     const ch = s[i];
     if (escaped) {
-      StringBuffer__Append_244C7CD6(content, ch);
+      StringBuilder__Append_244C7CD6(content, ch);
       escaped = false;
       i = i + 1 | 0;
     } else {
@@ -85,13 +85,13 @@ function parseDoubleQuotedSegment(s, startIndex) {
           break;
         }
         case "\\": {
-          StringBuffer__Append_244C7CD6(content, ch);
+          StringBuilder__Append_244C7CD6(content, ch);
           escaped = true;
           i = i + 1 | 0;
           break;
         }
         default: {
-          StringBuffer__Append_244C7CD6(content, ch);
+          StringBuilder__Append_244C7CD6(content, ch);
           i = i + 1 | 0;
         }
       }
@@ -100,7 +100,7 @@ function parseDoubleQuotedSegment(s, startIndex) {
   return [closed, toString(content), i];
 }
 function isTokenBoundaryStart(s, quoteIndex) {
-  let c, c_1;
+  let c = void 0, c_1 = void 0;
   let i = quoteIndex - 1;
   while (i >= 0 && (c = s[i], c === " " ? true : c === "	")) {
     i = i - 1 | 0;
@@ -135,7 +135,7 @@ function isTokenBoundaryStart(s, quoteIndex) {
   }
 }
 function isTokenBoundaryEnd(s, nextIndex) {
-  let c;
+  let c = void 0;
   let i = nextIndex;
   while (i < s.length && (c = s[i], c === " " ? true : c === "	")) {
     i = i + 1 | 0;
@@ -159,7 +159,7 @@ function isTokenBoundaryEnd(s, nextIndex) {
   }
 }
 function replaceQuotedStrings(target, dict, protectedBlockScalarLines, s) {
-  const sb = StringBuffer_$ctor();
+  const sb = StringBuilder_$ctor();
   let i = 0;
   let n = nextStringIndex(dict);
   let inComment = false;
@@ -169,10 +169,10 @@ function replaceQuotedStrings(target, dict, protectedBlockScalarLines, s) {
     const currentN = n | 0;
     n = n + 1 | 0;
     addToDict(dict, currentN, entry);
-    StringBuffer__Append_Z721C83C5(sb, toText(printf("<s f=%i/>"))(currentN));
+    StringBuilder__Append_Z721C83C5(sb, toText(printf("<s f=%i/>"))(currentN));
   };
   const appendChar = (c) => {
-    StringBuffer__Append_244C7CD6(sb, c);
+    StringBuilder__Append_244C7CD6(sb, c);
     if (c === "\n") {
       lineIndex = lineIndex + 1 | 0;
     }
@@ -211,12 +211,12 @@ function replaceQuotedStrings(target, dict, protectedBlockScalarLines, s) {
     } else {
       switch (c_2) {
         case '"': {
-          if (equals(target, QuotedStringKind_DoubleQuotedString())) {
+          if (equals(target, QuotedStringKind.DoubleQuotedString)) {
             if (isTokenBoundaryStart(s, i)) {
               const patternInput_2 = parseDoubleQuotedSegment(s, i);
               const nextIndex_2 = patternInput_2[2] | 0;
               if (patternInput_2[0] && isTokenBoundaryEnd(s, nextIndex_2)) {
-                appendPlaceholder(new StringMapEntry(patternInput_2[1], QuotedStringKind_DoubleQuotedString()));
+                appendPlaceholder(new StringMapEntry(patternInput_2[1], QuotedStringKind.DoubleQuotedString));
                 advanceLineIndex(i, nextIndex_2);
               } else {
                 appendText(substring(s, i, nextIndex_2 - i));
@@ -240,12 +240,12 @@ function replaceQuotedStrings(target, dict, protectedBlockScalarLines, s) {
           break;
         }
         case "'": {
-          if (equals(target, QuotedStringKind_SingleQuotedString())) {
+          if (equals(target, QuotedStringKind.SingleQuotedString)) {
             if (isTokenBoundaryStart(s, i)) {
               const patternInput = parseSingleQuotedSegment(s, i);
               const nextIndex = patternInput[2] | 0;
               if (patternInput[0] && isTokenBoundaryEnd(s, nextIndex)) {
-                appendPlaceholder(new StringMapEntry(foldSingleQuoted(patternInput[1]), QuotedStringKind_SingleQuotedString()));
+                appendPlaceholder(new StringMapEntry(foldSingleQuoted(patternInput[1]), QuotedStringKind.SingleQuotedString));
                 advanceLineIndex(i, nextIndex);
               } else {
                 appendText(substring(s, i, nextIndex - i));
@@ -271,139 +271,14 @@ function replaceQuotedStrings(target, dict, protectedBlockScalarLines, s) {
   }
   return toString(sb);
 }
-function encodingCleanUp(s) {
-  return replace(s, "\r\n", "\n");
-}
-function countLeadingSpaces(line) {
-  return length(takeWhile((c) => c === " ", line.split("")));
-}
-function parseBlockScalarHeaderToken(token) {
-  let c;
-  if (isNullOrWhiteSpace(token)) {
-    return false;
-  } else {
-    const t = token.trim();
-    if (t.length === 0) {
-      return false;
-    } else {
-      const first = t[0];
-      if (first !== "|" && first !== ">") {
-        return false;
-      } else {
-        let valid = true;
-        let seenIndent = false;
-        let seenChomp = false;
-        let idx = 1;
-        while (idx < t.length && valid) {
-          const matchValue = t[idx];
-          let matchResult;
-          if (c = matchValue, c >= "1" && c <= "9") {
-            matchResult = 0;
-          } else {
-            switch (matchValue) {
-              case "+":
-              case "-": {
-                matchResult = 1;
-                break;
-              }
-              default:
-                matchResult = 2;
-            }
-          }
-          switch (matchResult) {
-            case 0: {
-              if (seenIndent) {
-                valid = false;
-              } else {
-                seenIndent = true;
-              }
-              break;
-            }
-            case 1: {
-              if (seenChomp) {
-                valid = false;
-              } else {
-                seenChomp = true;
-              }
-              break;
-            }
-            case 2: {
-              valid = false;
-              break;
-            }
-          }
-          idx = idx + 1 | 0;
-        }
-        return valid;
-      }
-    }
-  }
-}
-function tryDetectBlockScalarHeaderIndent(line) {
-  let loop, idx_3;
-  const trimmed = trimStart(line);
-  const afterDash = trimmed.startsWith("- ") ? trimStart(substring(trimmed, 2)) : trimmed;
-  const token = tryHead(split((loop = (current_mut) => {
-    loop:
-      while (true) {
-        const current = current_mut;
-        const c = trimStart(current);
-        if (c.startsWith("&")) {
-          const idx = c.indexOf(" ") | 0;
-          if (idx < 0) {
-            return "";
-          } else {
-            current_mut = substring(c, idx + 1);
-            continue loop;
-          }
-        } else if (c.startsWith("!<")) {
-          const idx_1 = c.indexOf(">") | 0;
-          if (idx_1 < 0) {
-            return c;
-          } else {
-            current_mut = substring(c, idx_1 + 1);
-            continue loop;
-          }
-        } else if (c.startsWith("!") && !c.startsWith("|") && !c.startsWith(">")) {
-          const idx_2 = c.indexOf(" ") | 0;
-          if (idx_2 < 0) {
-            return "";
-          } else {
-            current_mut = substring(c, idx_2 + 1);
-            continue loop;
-          }
-        } else {
-          return c;
-        }
-        break;
-      }
-  }, loop((idx_3 = afterDash.indexOf(":") | 0, idx_3 >= 0 ? trimStart(substring(afterDash, idx_3 + 1)) : afterDash))), [" ", "	"], void 0, 1));
-  let matchResult, t_1;
-  if (token != null) {
-    if (parseBlockScalarHeaderToken(value(token))) {
-      matchResult = 0;
-      t_1 = value(token);
-    } else {
-      matchResult = 1;
-    }
-  } else {
-    matchResult = 1;
-  }
-  switch (matchResult) {
-    case 0:
-      return countLeadingSpaces(line);
-    default:
-      return void 0;
-  }
-}
 function detectBlockScalarContentLines(yamlString) {
-  const lines = split(replace(replace(yamlString, "\r\n", "\n"), "\r", "\n"), ["\n"], void 0, 0);
+  const lines = split(Line_normalizeNewlines(yamlString), ["\n"], void 0, 0);
   const protectedLines = [];
   let i = 0;
   let openBlockIndent = void 0;
   while (i < lines.length) {
     if (openBlockIndent == null) {
-      const matchValue = tryDetectBlockScalarHeaderIndent(item(i, lines));
+      const matchValue = BlockScalar_tryDetectHeaderIndent(item(i, lines));
       if (matchValue == null) {
         i = i + 1 | 0;
       } else {
@@ -414,8 +289,8 @@ function detectBlockScalarContentLines(yamlString) {
     } else {
       const headerIndent = value(openBlockIndent) | 0;
       const line = item(i, lines);
-      if (line.trim() === "" ? true : countLeadingSpaces(line) > headerIndent) {
-        const value = void protectedLines.push(i);
+      if (line.trim() === "" ? true : Line_countLeadingSpaces(line) > headerIndent) {
+        void protectedLines.push(i);
         i = i + 1 | 0;
       } else {
         openBlockIndent = void 0;
@@ -423,23 +298,23 @@ function detectBlockScalarContentLines(yamlString) {
     }
   }
   return ofList(toList(protectedLines), {
-    Compare: comparePrimitives
+    Compare: (x, y) => comparePrimitives(x, y) | 0
   });
 }
 function stringCleanUpWithProtected(dict, protectedBlockScalarLines, s) {
-  return replaceQuotedStrings(QuotedStringKind_DoubleQuotedString(), dict, protectedBlockScalarLines, s);
+  return replaceQuotedStrings(QuotedStringKind.DoubleQuotedString, dict, protectedBlockScalarLines, s);
 }
 function singleQuotedStringCleanUpWithProtected(dict, protectedBlockScalarLines, s) {
-  return replaceQuotedStrings(QuotedStringKind_SingleQuotedString(), dict, protectedBlockScalarLines, s);
+  return replaceQuotedStrings(QuotedStringKind.SingleQuotedString, dict, protectedBlockScalarLines, s);
 }
 function stringCleanUp(dict, s) {
   return stringCleanUpWithProtected(dict, empty({
-    Compare: comparePrimitives
+    Compare: (x, y) => comparePrimitives(x, y) | 0
   }), s);
 }
 function singleQuotedStringCleanUp(dict, s) {
   return singleQuotedStringCleanUpWithProtected(dict, empty({
-    Compare: comparePrimitives
+    Compare: (x, y) => comparePrimitives(x, y) | 0
   }), s);
 }
 function commentCleanUp(dict, s) {
@@ -453,7 +328,7 @@ function commentCleanUp(dict, s) {
   });
 }
 function cut(yamlString) {
-  let matchValue;
+  let matchValue = void 0;
   const lines = ofArray(split(yamlString, ["\n"], void 0, 0));
   const withoutLeading = !isEmpty(lines) ? head(lines) === "" ? tail(lines) : lines : lines;
   return toArray((matchValue = reverse(withoutLeading), !isEmpty(matchValue) ? head(matchValue) === "" ? reverse(tail(matchValue)) : withoutLeading : withoutLeading));
@@ -474,46 +349,23 @@ function parseTagDirective(line) {
     return void 0;
   }
 }
-function isDocumentMarker(marker, line) {
-  const trimmed = trimStart(line);
-  if (!trimmed.startsWith(marker)) {
-    return false;
-  } else if (trimmed.length === marker.length) {
-    return true;
-  } else {
-    return isWhiteSpace(trimmed[marker.length]);
-  }
-}
-function tryInlineContentAfterStartMarker(line) {
-  const trimmed = trimStart(line);
-  if (!trimmed.startsWith("---")) {
-    return void 0;
-  } else {
-    const rest = trimStart(substring(trimmed, 3));
-    if (isNullOrWhiteSpace(rest) ? true : rest.startsWith("#")) {
-      return void 0;
-    } else {
-      return rest;
-    }
-  }
-}
 function pipeline(yamlString) {
-  let matchValue_2;
+  let option_1 = void 0, line = void 0, matchValue_2 = void 0;
   const stringMap = /* @__PURE__ */ new Map([]);
   const commentMap = /* @__PURE__ */ new Map([]);
-  const normalizedContent = encodingCleanUp(yamlString);
+  const normalizedContent = Line_normalizeNewlines(yamlString);
   const protectedBlockScalarLines = detectBlockScalarContentLines(normalizedContent);
   const lines = cut(commentCleanUp(commentMap, stringCleanUpWithProtected(stringMap, protectedBlockScalarLines, singleQuotedStringCleanUpWithProtected(stringMap, protectedBlockScalarLines, normalizedContent))));
   let directivePreludeLength;
-  if (defaultArg(map((line) => trimStart(line).startsWith("%"), tryFind((l) => {
+  if (defaultArg((option_1 = tryFind((l) => {
     const t = l.trim();
     if (t !== "") {
       return !t.startsWith("#");
     } else {
       return false;
     }
-  }, lines)), false)) {
-    const array_2 = takeWhile$1((l_1) => {
+  }, lines), option_1 != null ? (line = value(option_1), trimStart(line).startsWith("%")) : void 0), false)) {
+    const array_2 = takeWhile((l_1) => {
       const t_1 = trimStart(l_1);
       if (t_1.startsWith("%") ? true : t_1.startsWith("#")) {
         return true;
@@ -529,7 +381,7 @@ function pipeline(yamlString) {
   const contentLines = lines.slice(directivePreludeLength, lines.length);
   let yamlVersion = void 0;
   let tagHandles = add("!!", "tag:yaml.org,2002:", add("!", "!", empty$1({
-    Compare: comparePrimitives
+    Compare: (x, y) => comparePrimitives(x, y) | 0
   })));
   for (let idx = 0; idx <= directiveLines.length - 1; idx++) {
     const line_1 = item(idx, directiveLines);
@@ -545,18 +397,18 @@ function pipeline(yamlString) {
     } else {
       const v = value(matchValue);
       if (yamlVersion != null) {
-        throw new Error("Duplicate YAML directive");
+        throw new Exception("Duplicate YAML directive");
       }
       yamlVersion = v;
     }
   }
   return {
     CommentMap: commentMap,
-    Lines: contentLines.length > 0 && isDocumentMarker("---", item(0, contentLines)) ? (matchValue_2 = tryInlineContentAfterStartMarker(item(0, contentLines)), matchValue_2 == null ? contentLines.slice(1, contentLines.length) : append([value(matchValue_2)], contentLines.slice(1, contentLines.length))) : contentLines,
+    Lines: contentLines.length > 0 && Document_isStart(item(0, contentLines)) ? (matchValue_2 = Document_tryInlineContentAfterStartMarker(item(0, contentLines)), matchValue_2 == null ? contentLines.slice(1, contentLines.length) : append([value(matchValue_2)], contentLines.slice(1, contentLines.length))) : contentLines,
     StringMap: stringMap,
     TagHandles: tagHandles,
     YAMLVersion: unwrap(yamlVersion)
   };
 }
 
-export { commentCleanUp, cut, encodingCleanUp, parseTagDirective, parseYAMLDirective, pipeline, singleQuotedStringCleanUp, stringCleanUp };
+export { commentCleanUp, cut, parseTagDirective, parseYAMLDirective, pipeline, singleQuotedStringCleanUp, stringCleanUp };