@eagleoutice/flowr 2.2.16 → 2.4.0

package/util/files.js

@@ -124,36 +124,54 @@ function writeTableAsCsv(table, file, sep = ',', newline = '\n') {
 /**
  * Reads a file line by line and calls the given function for each line.
  * The `lineNumber` starts at `0`.
+ * The `maxLines` option limits the maximum number of read lines and is `Infinity` by default.
+ *
+ * @returns Whether all lines have been successfully read (`false` if `maxLines` was reached)
  *
  * See {@link readLineByLineSync} for a synchronous version.
  */
-async function readLineByLine(filePath, onLine) {
+async function readLineByLine(filePath, onLine, maxLines = Infinity) {
+    if (!(await fs_1.default.promises.stat(filePath).catch(() => { }))?.isFile()) {
+        log_1.log.warn(`File ${filePath} does not exist`);
+        return false;
+    }
     const reader = new n_readlines_1.default(filePath);
     let line;
     let counter = 0;
     // eslint-disable-next-line no-cond-assign
     while (line = reader.next()) {
+        if (counter >= maxLines) {
+            return false;
+        }
         await onLine(line, counter++);
     }
+    return true;
 }
 /**
  * Reads a file line by line and calls the given function for each line.
  * The `lineNumber` starts at `0`.
+ * The `maxLines` option limits the maximum number of read lines and is `Infinity` by default.
+ *
+ * @returns Whether the file exists and all lines have been successfully read (`false` if `maxLines` was reached)
  *
  * See {@link readLineByLine} for an asynchronous version.
  */
-function readLineByLineSync(filePath, onLine) {
-    if (!fs_1.default.existsSync(filePath)) {
+function readLineByLineSync(filePath, onLine, maxLines = Infinity) {
+    if (!fs_1.default.statSync(filePath, { throwIfNoEntry: false })?.isFile()) {
         log_1.log.warn(`File ${filePath} does not exist`);
-        return;
+        return false;
     }
     const reader = new n_readlines_1.default(filePath);
     let line;
     let counter = 0;
     // eslint-disable-next-line no-cond-assign
     while (line = reader.next()) {
+        if (counter >= maxLines) {
+            return false;
+        }
         onLine(line, counter++);
     }
+    return true;
 }
 /**
  * Chops off the last part of the given directory path after a path separator, essentially returning the path's parent directory.

package/util/mermaid/dfg.js

@@ -6,7 +6,6 @@ exports.graphToMermaid = graphToMermaid;
 exports.graphToMermaidUrl = graphToMermaidUrl;
 exports.diffGraphsToMermaid = diffGraphsToMermaid;
 exports.diffGraphsToMermaidUrl = diffGraphsToMermaidUrl;
-const assert_1 = require("../assert");
 const mermaid_1 = require("./mermaid");
 const graph_1 = require("../../dataflow/graph/graph");
 const node_id_1 = require("../../r-bridge/lang-4.x/ast/model/processing/node-id");
@@ -176,7 +175,10 @@ function vertexToMermaid(info, mermaid, id, idPrefix, mark) {
         mermaid.nodeLines.push(`    style ${idPrefix}${id} stroke:red,stroke-width:5px; `);
     }
     const edges = mermaid.rootGraph.get((0, node_id_1.normalizeIdToNumberIfPossible)(id), true);
-    (0, assert_1.guard)(edges !== undefined, `node ${id} must be found`);
+    if (edges === undefined) {
+        mermaid.nodeLines.push('   %% No edges found for ' + id);
+        return;
+    }
     const artificialCdEdges = (info.cds ?? []).map(x => [x.id, { types: new Set([x.when ? 'CD-True' : 'CD-False']) }]);
     // eslint-disable-next-line prefer-const
     for (let [target, edge] of [...edges[1], ...artificialCdEdges]) {

package/util/r-value.d.ts

@@ -0,0 +1,23 @@
+import type { Value, ValueInterval, ValueLogical, ValueNumber, ValueString, ValueVector } from '../dataflow/eval/values/r-value';
+import type { RLogicalValue } from '../r-bridge/lang-4.x/ast/model/nodes/r-logical';
+import { type RNumberValue, type RStringValue } from '../r-bridge/lang-4.x/convert-values';
+export declare function isRStringValue(value: unknown): value is RStringValue;
+export declare function isRNumberValue(value: unknown): value is RNumberValue;
+export declare function isRLogicalValue(value: unknown): value is RLogicalValue;
+export declare function unwrapRValue(value: RStringValue | string): string;
+export declare function unwrapRValue(value: RNumberValue | number): number;
+export declare function unwrapRValue(value: RLogicalValue): boolean;
+export declare function unwrapRValue(value: RStringValue | RNumberValue | RLogicalValue | string | number): string | number | boolean;
+export declare function unwrapRValue(value: unknown): string | number | boolean | undefined;
+export declare function unwrapRVector(value: RStringValue[] | string[]): string[];
+export declare function unwrapRVector(value: RNumberValue[] | number[]): number[];
+export declare function unwrapRVector(value: RLogicalValue[]): boolean[];
+export declare function unwrapRVector(value: RStringValue[] | RNumberValue[] | RLogicalValue[] | string[] | number[]): string[] | number[] | boolean[];
+export declare function unwrapRVector(value: unknown): string[] | number[] | boolean[] | (string | number | boolean)[] | undefined;
+export declare function unwrapRValueToString(value: RStringValue | RNumberValue | RLogicalValue | string | number): string;
+export declare function unwrapRValueToString(value: unknown): string | undefined;
+export declare function unliftRValue(value: ValueString): RStringValue | undefined;
+export declare function unliftRValue(value: ValueNumber | ValueInterval): RNumberValue | undefined;
+export declare function unliftRValue(value: ValueLogical): RLogicalValue | undefined;
+export declare function unliftRValue(value: ValueVector): (RStringValue | RNumberValue | RLogicalValue)[] | undefined;
+export declare function unliftRValue(value: Value): RStringValue | RNumberValue | boolean | (RStringValue | RNumberValue | RLogicalValue)[] | undefined;

package/util/r-value.js

@@ -0,0 +1,113 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.isRStringValue = isRStringValue;
+exports.isRNumberValue = isRNumberValue;
+exports.isRLogicalValue = isRLogicalValue;
+exports.unwrapRValue = unwrapRValue;
+exports.unwrapRVector = unwrapRVector;
+exports.unwrapRValueToString = unwrapRValueToString;
+exports.unliftRValue = unliftRValue;
+const r_value_1 = require("../dataflow/eval/values/r-value");
+const convert_values_1 = require("../r-bridge/lang-4.x/convert-values");
+const assert_1 = require("./assert");
+function isRValue(value) {
+    return isRStringValue(value) || isRNumberValue(value) || isRLogicalValue(value) || typeof value === 'string' || typeof value === 'number';
+}
+function isRStringValue(value) {
+    return typeof value === 'object' && value !== null && 'str' in value && typeof value.str === 'string';
+}
+function isRNumberValue(value) {
+    return typeof value === 'object' && value !== null && 'num' in value && typeof value.num === 'number';
+}
+function isRLogicalValue(value) {
+    return typeof value === 'boolean';
+}
+function unwrapRValue(value) {
+    if (typeof value === 'string' || typeof value === 'number' || typeof value === 'boolean') {
+        return value;
+    }
+    else if (isRStringValue(value)) {
+        return value.str;
+    }
+    else if (isRNumberValue(value)) {
+        return value.num;
+    }
+    else {
+        return undefined;
+    }
+}
+function unwrapRVector(value) {
+    if (!Array.isArray(value)) {
+        return undefined;
+    }
+    else if (value.every(entry => typeof entry === 'string') || value.every(entry => typeof entry === 'number') || value.every(entry => typeof entry === 'boolean')) {
+        return value;
+    }
+    else if (value.every(isRStringValue)) {
+        return value.map(entry => unwrapRValue(entry));
+    }
+    else if (value.every(isRNumberValue)) {
+        return value.map(entry => unwrapRValue(entry));
+    }
+    else if (value.every(isRValue)) {
+        return value.map(entry => unwrapRValue(entry));
+    }
+    else {
+        return undefined;
+    }
+}
+function unwrapRValueToString(value) {
+    if (typeof value === 'string') {
+        return value;
+    }
+    else if (typeof value === 'number') {
+        return value.toString();
+    }
+    else if (typeof value === 'boolean') {
+        return value ? convert_values_1.RTrue : convert_values_1.RFalse;
+    }
+    else if (isRStringValue(value)) {
+        return value.str;
+    }
+    else if (isRNumberValue(value)) {
+        return value.num.toString();
+    }
+    else {
+        return undefined;
+    }
+}
+function unliftRValue(value) {
+    if (!(0, r_value_1.isValue)(value)) {
+        return undefined;
+    }
+    const type = value.type;
+    switch (type) {
+        case 'string': {
+            return (0, r_value_1.isValue)(value.value) ? value.value : undefined;
+        }
+        case 'number': {
+            return (0, r_value_1.isValue)(value.value) ? value.value : undefined;
+        }
+        case 'logical': {
+            return (0, r_value_1.isValue)(value.value) && typeof value.value === 'boolean' ? value.value : undefined;
+        }
+        case 'interval': {
+            const start = unliftRValue(value.start);
+            const end = unliftRValue(value.end);
+            return start !== undefined && end !== undefined && start.num === end.num ? start : undefined;
+        }
+        case 'vector': {
+            const values = (0, r_value_1.isValue)(value.elements) ? value.elements.map(unliftRValue) : undefined;
+            return values?.every(assert_1.isNotUndefined) ? values.flat() : undefined;
+        }
+        case 'set': {
+            return (0, r_value_1.isValue)(value.elements) && value.elements.length === 1 ? unliftRValue(value.elements[0]) : undefined;
+        }
+        case 'missing': {
+            return undefined;
+        }
+        default:
+            (0, assert_1.assertUnreachable)(type);
+    }
+}
+//# sourceMappingURL=r-value.js.map

package/util/range.d.ts

@@ -68,3 +68,4 @@ export declare function rangeCompare([r1sl, r1sc, ,]: SourceRange, [r2sl, r2sc,
  * Checks if the first range is a subset of the second range.
  */
 export declare function rangeIsSubsetOf([r1sl, r1sc, r1el, r1ec]: SourceRange, [r2sl, r2sc, r2el, r2ec]: SourceRange): boolean;
+export declare function combineRanges(...ranges: SourceRange[]): SourceRange[];

package/util/range.js

@@ -9,6 +9,7 @@ exports.rangesOverlap = rangesOverlap;
 exports.addRanges = addRanges;
 exports.rangeCompare = rangeCompare;
 exports.rangeIsSubsetOf = rangeIsSubsetOf;
+exports.combineRanges = combineRanges;
 const assert_1 = require("./assert");
 function getRangeStart(p) {
     return p === undefined ? undefined : [p[0], p[1]];
@@ -70,6 +71,9 @@ function rangeCompare([r1sl, r1sc, ,], [r2sl, r2sc, ,]) {
  * Checks if the first range is a subset of the second range.
  */
 function rangeIsSubsetOf([r1sl, r1sc, r1el, r1ec], [r2sl, r2sc, r2el, r2ec]) {
-    return r1sl >= r2sl && r1sc >= r2sc && r1el <= r2el && r1ec <= r2ec;
+    return (r1sl > r2sl || r1sl === r2sl && r1sc >= r2sc) && (r1el < r2el || r1sl === r2sl && r1ec <= r2ec);
+}
+function combineRanges(...ranges) {
+    return ranges.filter(range => !ranges.some(other => range !== other && rangeIsSubsetOf(range, other)));
 }
 //# sourceMappingURL=range.js.map

package/util/version.js

@@ -3,7 +3,7 @@ Object.defineProperty(exports, "__esModule", { value: true });
 exports.flowrVersion = flowrVersion;
 const semver_1 = require("semver");
 // this is automatically replaced with the current version by release-it
-const version = '2.2.16';
+const version = '2.4.0';
 function flowrVersion() {
     return new semver_1.SemVer(version);
 }

package/util/cfg/cfg.js

@@ -1,2 +0,0 @@
-"use strict";
-//# sourceMappingURL=cfg.js.map