@nfdi4plants/arctrl 3.2.3 → 3.3.1

package/dist/ts/ts/fable_modules/YAMLicious.1.0.0/Persil.fs.js

@@ -1,414 +0,0 @@
-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: (x, y) => comparePrimitives(x, y) | 0
-    }) + 1 | 0;
-  }
-}
-function foldSingleQuoted(s) {
-  const lines = s.split("\n");
-  const sb = StringBuilder_$ctor();
-  for (let i = 0; i <= lines.length - 1; i++) {
-    let line = item(i, lines);
-    if (i > 0) {
-      line = trimStart(line);
-    }
-    if (i < lines.length - 1) {
-      line = trimEnd(line);
-    }
-    if (line.length === 0) {
-      StringBuilder__Append_244C7CD6(sb, "\n");
-    } else {
-      if (StringBuilder__get_Length(sb) > 0 && StringBuilder__get_Chars_Z524259A4(sb, StringBuilder__get_Length(sb) - 1) !== "\n") {
-        StringBuilder__Append_Z721C83C5(sb, " ");
-      }
-      StringBuilder__Append_Z721C83C5(sb, line);
-    }
-  }
-  return replace(toString(sb), "''", "'");
-}
-function parseSingleQuotedSegment(s, startIndex) {
-  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] === "'") {
-        StringBuilder__Append_Z721C83C5(content, "''");
-        i = i + 2 | 0;
-      } else {
-        closed = true;
-        i = i + 1 | 0;
-      }
-    } else {
-      StringBuilder__Append_244C7CD6(content, ch);
-      i = i + 1 | 0;
-    }
-  }
-  return [closed, toString(content), i];
-}
-function parseDoubleQuotedSegment(s, startIndex) {
-  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) {
-      StringBuilder__Append_244C7CD6(content, ch);
-      escaped = false;
-      i = i + 1 | 0;
-    } else {
-      switch (ch) {
-        case '"': {
-          closed = true;
-          i = i + 1 | 0;
-          break;
-        }
-        case "\\": {
-          StringBuilder__Append_244C7CD6(content, ch);
-          escaped = true;
-          i = i + 1 | 0;
-          break;
-        }
-        default: {
-          StringBuilder__Append_244C7CD6(content, ch);
-          i = i + 1 | 0;
-        }
-      }
-    }
-  }
-  return [closed, toString(content), i];
-}
-function isTokenBoundaryStart(s, quoteIndex) {
-  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;
-  }
-  if (i < 0) {
-    return true;
-  } else {
-    const matchValue = s[i];
-    switch (matchValue) {
-      case "\n":
-      case "\r":
-      case ",":
-      case "-":
-      case ":":
-      case "?":
-      case "[":
-      case "{":
-        return true;
-      default: {
-        let start = i;
-        while (start >= 0 && !(c_1 = s[start], ((((((((c_1 === " " ? true : c_1 === "	") ? true : c_1 === "\n") ? true : c_1 === "\r") ? true : c_1 === ":") ? true : c_1 === "-") ? true : c_1 === ",") ? true : c_1 === "[") ? true : c_1 === "{") ? true : c_1 === "?")) {
-          start = start - 1 | 0;
-        }
-        const token = substring(s, start + 1, i - start);
-        if (token.startsWith("!")) {
-          return true;
-        } else {
-          return token.startsWith("&");
-        }
-      }
-    }
-  }
-}
-function isTokenBoundaryEnd(s, nextIndex) {
-  let c = void 0;
-  let i = nextIndex;
-  while (i < s.length && (c = s[i], c === " " ? true : c === "	")) {
-    i = i + 1 | 0;
-  }
-  if (i >= s.length) {
-    return true;
-  } else {
-    const matchValue = s[i];
-    switch (matchValue) {
-      case "\n":
-      case "\r":
-      case "#":
-      case ",":
-      case ":":
-      case "]":
-      case "}":
-        return true;
-      default:
-        return false;
-    }
-  }
-}
-function replaceQuotedStrings(target, dict, protectedBlockScalarLines, s) {
-  const sb = StringBuilder_$ctor();
-  let i = 0;
-  let n = nextStringIndex(dict);
-  let inComment = false;
-  const length = s.length | 0;
-  let lineIndex = 0;
-  const appendPlaceholder = (entry) => {
-    const currentN = n | 0;
-    n = n + 1 | 0;
-    addToDict(dict, currentN, entry);
-    StringBuilder__Append_Z721C83C5(sb, toText(printf("<s f=%i/>"))(currentN));
-  };
-  const appendChar = (c) => {
-    StringBuilder__Append_244C7CD6(sb, c);
-    if (c === "\n") {
-      lineIndex = lineIndex + 1 | 0;
-    }
-  };
-  const appendText = (text) => {
-    const enumerator = getEnumerator(text.split(""));
-    try {
-      while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
-        appendChar(enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]());
-      }
-    } finally {
-      disposeSafe(enumerator);
-    }
-  };
-  const advanceLineIndex = (startIndex, endIndex) => {
-    for (let j = startIndex; j <= endIndex - 1; j++) {
-      if (s[j] === "\n") {
-        lineIndex = lineIndex + 1 | 0;
-      }
-    }
-  };
-  while (i < length) {
-    const c_2 = s[i];
-    if (FSharpSet__Contains(protectedBlockScalarLines, lineIndex)) {
-      appendChar(c_2);
-      i = i + 1 | 0;
-      if (c_2 === "\n") {
-        inComment = false;
-      }
-    } else if (inComment) {
-      appendChar(c_2);
-      i = i + 1 | 0;
-      if (c_2 === "\n") {
-        inComment = false;
-      }
-    } else {
-      switch (c_2) {
-        case '"': {
-          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));
-                advanceLineIndex(i, nextIndex_2);
-              } else {
-                appendText(substring(s, i, nextIndex_2 - i));
-              }
-              i = nextIndex_2 | 0;
-            } else {
-              appendChar(c_2);
-              i = i + 1 | 0;
-            }
-          } else {
-            const nextIndex_3 = parseDoubleQuotedSegment(s, i)[2] | 0;
-            appendText(substring(s, i, nextIndex_3 - i));
-            i = nextIndex_3 | 0;
-          }
-          break;
-        }
-        case "#": {
-          inComment = true;
-          appendChar(c_2);
-          i = i + 1 | 0;
-          break;
-        }
-        case "'": {
-          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));
-                advanceLineIndex(i, nextIndex);
-              } else {
-                appendText(substring(s, i, nextIndex - i));
-              }
-              i = nextIndex | 0;
-            } else {
-              appendChar(c_2);
-              i = i + 1 | 0;
-            }
-          } else {
-            const nextIndex_1 = parseSingleQuotedSegment(s, i)[2] | 0;
-            appendText(substring(s, i, nextIndex_1 - i));
-            i = nextIndex_1 | 0;
-          }
-          break;
-        }
-        default: {
-          appendChar(c_2);
-          i = i + 1 | 0;
-        }
-      }
-    }
-  }
-  return toString(sb);
-}
-function detectBlockScalarContentLines(yamlString) {
-  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 = BlockScalar_tryDetectHeaderIndent(item(i, lines));
-      if (matchValue == null) {
-        i = i + 1 | 0;
-      } else {
-        const indent = value(matchValue) | 0;
-        openBlockIndent = indent;
-        i = i + 1 | 0;
-      }
-    } else {
-      const headerIndent = value(openBlockIndent) | 0;
-      const line = item(i, lines);
-      if (line.trim() === "" ? true : Line_countLeadingSpaces(line) > headerIndent) {
-        void protectedLines.push(i);
-        i = i + 1 | 0;
-      } else {
-        openBlockIndent = void 0;
-      }
-    }
-  }
-  return ofList(toList(protectedLines), {
-    Compare: (x, y) => comparePrimitives(x, y) | 0
-  });
-}
-function stringCleanUpWithProtected(dict, protectedBlockScalarLines, s) {
-  return replaceQuotedStrings(QuotedStringKind.DoubleQuotedString, dict, protectedBlockScalarLines, s);
-}
-function singleQuotedStringCleanUpWithProtected(dict, protectedBlockScalarLines, s) {
-  return replaceQuotedStrings(QuotedStringKind.SingleQuotedString, dict, protectedBlockScalarLines, s);
-}
-function stringCleanUp(dict, s) {
-  return stringCleanUpWithProtected(dict, empty({
-    Compare: (x, y) => comparePrimitives(x, y) | 0
-  }), s);
-}
-function singleQuotedStringCleanUp(dict, s) {
-  return singleQuotedStringCleanUpWithProtected(dict, empty({
-    Compare: (x, y) => comparePrimitives(x, y) | 0
-  }), s);
-}
-function commentCleanUp(dict, s) {
-  let n = 0;
-  return replace$1(/#(?<comment>.*)/gu, s, (m) => {
-    const v = m.groups && m.groups.comment || "";
-    const currentN = n | 0;
-    n = n + 1 | 0;
-    addToDict(dict, currentN, v);
-    return toText(printf("<c f=%i/>"))(currentN);
-  });
-}
-function cut(yamlString) {
-  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));
-}
-function parseYAMLDirective(line) {
-  const m = match(/^%YAML\s+(\d+)\.(\d+)/gu, line.trim());
-  if (m != null) {
-    return new YAMLDirective(parse(m[1] || "", 511, false, 32), parse(m[2] || "", 511, false, 32));
-  } else {
-    return void 0;
-  }
-}
-function parseTagDirective(line) {
-  const m = match(/^%TAG\s+(\S+)\s+(\S+)/gu, line.trim());
-  if (m != null) {
-    return [m[1] || "", m[2] || ""];
-  } else {
-    return void 0;
-  }
-}
-function pipeline(yamlString) {
-  let option_1 = void 0, line = void 0, matchValue_2 = void 0;
-  const stringMap = /* @__PURE__ */ new Map([]);
-  const commentMap = /* @__PURE__ */ new Map([]);
-  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((option_1 = tryFind((l) => {
-    const t = l.trim();
-    if (t !== "") {
-      return !t.startsWith("#");
-    } else {
-      return false;
-    }
-  }, 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;
-      } else {
-        return t_1.trim() === "";
-      }
-    }, lines);
-    directivePreludeLength = array_2.length;
-  } else {
-    directivePreludeLength = 0;
-  }
-  const directiveLines = take(directivePreludeLength, lines);
-  const contentLines = lines.slice(directivePreludeLength, lines.length);
-  let yamlVersion = void 0;
-  let tagHandles = add("!!", "tag:yaml.org,2002:", add("!", "!", empty$1({
-    Compare: (x, y) => comparePrimitives(x, y) | 0
-  })));
-  for (let idx = 0; idx <= directiveLines.length - 1; idx++) {
-    const line_1 = item(idx, directiveLines);
-    const matchValue = parseYAMLDirective(line_1);
-    if (matchValue == null) {
-      const matchValue_1 = parseTagDirective(line_1);
-      if (matchValue_1 == null) {
-      } else {
-        const t_2 = value(matchValue_1)[1];
-        const h = value(matchValue_1)[0];
-        tagHandles = add(h, t_2, tagHandles);
-      }
-    } else {
-      const v = value(matchValue);
-      if (yamlVersion != null) {
-        throw new Exception("Duplicate YAML directive");
-      }
-      yamlVersion = v;
-    }
-  }
-  return {
-    CommentMap: commentMap,
-    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, parseTagDirective, parseYAMLDirective, pipeline, singleQuotedStringCleanUp, stringCleanUp };