@eagleoutice/flowr 2.1.12 → 2.2.1

package/r-bridge/shell-executor.d.ts

@@ -1,10 +1,46 @@
 import type { RShellExecutionOptions } from './shell';
 import type { SemVer } from 'semver';
-export declare class RShellExecutor {
+import type { SyncParser } from './parser';
+import { type RParseRequest } from './retriever';
+/**
+ * This is a synchronous alternative to the {@link RShell}.
+ * Please be aware that using this is expensive.
+ * Every request effectively causes a new initialization of the R interpreter.
+ *
+ * With this class you can {@link RShellExecutor#run|run(command)} commands,
+ * that are potentially decorated with {@link RShellExecutor#addPrerequisites|prerequisites}.
+ * For compatibility,
+ * we provide {@link RShellExecutor#parse|parse(request)} and {@link RShellExecutor#rVersion|rVersion()}.
+ */
+export declare class RShellExecutor implements SyncParser<string> {
+    readonly name = "r-shell";
     readonly options: Readonly<RShellExecutionOptions>;
     private readonly prerequisites;
     constructor(options?: Partial<RShellExecutionOptions>);
+    /**
+     * Adds commands that should be executed for every {@link RShellExecutor#run|run}.
+     */
     addPrerequisites(commands: string | string[]): this;
+    /**
+     * @returns the version of the R interpreter available to this executor.
+     *
+     * @see {@link RShellExecutor#usedRVersion}
+     * @see {@link RShell#rVersion}
+     * @see {@link RShell#usedRVersion}
+     */
+    rVersion(): Promise<string | 'unknown' | 'none'>;
+    /**
+     * Instead of returning a promise, this method returns the version of the R interpreter available to this executor,
+     * in the SemVer format.
+     */
     usedRVersion(): SemVer | null;
+    /**
+     * Runs the given command in the R interpreter.
+     */
     run(command: string, returnErr?: boolean): string;
+    /**
+     * Parses the given request and returns the result.
+     */
+    parse(request: RParseRequest): string;
+    close(): void;
 }

package/r-bridge/shell-executor.js

@@ -11,23 +11,55 @@ const preload_1 = __importDefault(require("semver/preload"));
 const log_1 = require("../util/log");
 const init_1 = require("./init");
 const convert_values_1 = require("./lang-4.x/convert-values");
+const retriever_1 = require("./retriever");
 const executorLog = log_1.log.getSubLogger({ name: 'RShellExecutor' });
+/**
+ * This is a synchronous alternative to the {@link RShell}.
+ * Please be aware that using this is expensive.
+ * Every request effectively causes a new initialization of the R interpreter.
+ *
+ * With this class you can {@link RShellExecutor#run|run(command)} commands,
+ * that are potentially decorated with {@link RShellExecutor#addPrerequisites|prerequisites}.
+ * For compatibility,
+ * we provide {@link RShellExecutor#parse|parse(request)} and {@link RShellExecutor#rVersion|rVersion()}.
+ */
 class RShellExecutor {
+    name = 'r-shell';
     options;
     prerequisites;
     constructor(options) {
         this.options = (0, objects_1.deepMergeObject)((0, shell_1.getDefaultRShellOptions)(), options);
         this.prerequisites = [(0, init_1.initCommand)(this.options.eol)];
     }
+    /**
+     * Adds commands that should be executed for every {@link RShellExecutor#run|run}.
+     */
     addPrerequisites(commands) {
         this.prerequisites.push(...(typeof commands == 'string' ? [commands] : commands));
         return this;
     }
+    /**
+     * @returns the version of the R interpreter available to this executor.
+     *
+     * @see {@link RShellExecutor#usedRVersion}
+     * @see {@link RShell#rVersion}
+     * @see {@link RShell#usedRVersion}
+     */
+    rVersion() {
+        return Promise.resolve(this.usedRVersion()?.format() ?? 'unknown');
+    }
+    /**
+     * Instead of returning a promise, this method returns the version of the R interpreter available to this executor,
+     * in the SemVer format.
+     */
     usedRVersion() {
         const version = this.run(`cat(paste0(R.version$major,".",R.version$minor), ${(0, convert_values_1.ts2r)(this.options.eol)})`);
         (0, log_1.expensiveTrace)(executorLog, () => `raw version: ${JSON.stringify(version)}`);
         return preload_1.default.coerce(version);
     }
+    /**
+     * Runs the given command in the R interpreter.
+     */
     run(command, returnErr = false) {
         command += ';base::quit()';
         (0, log_1.expensiveTrace)(executorLog, () => `> ${JSON.stringify(command)}`);
@@ -40,6 +72,13 @@ class RShellExecutor {
         });
         return (returnErr ? returns.stderr : returns.stdout).trim();
     }
+    /**
+     * Parses the given request and returns the result.
+     */
+    parse(request) {
+        return (0, retriever_1.retrieveParseDataFromRCode)(request, this);
+    }
+    close() { }
 }
 exports.RShellExecutor = RShellExecutor;
 //# sourceMappingURL=shell-executor.js.map

package/r-bridge/shell.d.ts

@@ -1,6 +1,8 @@
 import { type MergeableRecord } from '../util/objects';
 import type { SemVer } from 'semver';
 import type { AsyncOrSync } from 'ts-essentials';
+import type { AsyncParser } from './parser';
+import type { RParseRequest } from './retriever';
 export type OutputStreamSelector = 'stdout' | 'stderr' | 'both';
 export interface CollectorTimeout extends MergeableRecord {
     /**
@@ -72,22 +74,26 @@ export declare function getDefaultRShellOptions(): RShellOptions;
  * You can configure it by {@link RShellOptions}.
  *
  * At the moment we are using a live R session (and not networking etc.) to communicate with R easily,
- * which allows us to install packages etc. However, this might and probably will change in the future (leaving this
- * as a legacy mode :D)
+ * which allows us to install packages etc. However, this might and probably will change in the future
+ * (leaving this as a legacy mode :D)
  */
-export declare class RShell {
+export declare class RShell implements AsyncParser<string> {
+    readonly name = "r-shell";
+    readonly async = true;
     readonly options: Readonly<RShellOptions>;
     private session;
     private readonly log;
     private versionCache;
     private tempDirs;
     constructor(options?: Partial<RShellOptions>);
+    parse(request: RParseRequest): Promise<string>;
     private revive;
     /**
-   * sends the given command directly to the current R session
-   * will not do anything to alter input markers!
-   */
+     * sends the given command directly to the current R session
+     * will not do anything to alter input markers!
+     */
     sendCommand(command: string): void;
+    rVersion(): Promise<string | 'unknown' | 'none'>;
     usedRVersion(): Promise<SemVer | null>;
     injectLibPaths(...paths: readonly string[]): void;
     tryToInjectHomeLibPath(): void;

package/r-bridge/shell.js

@@ -38,6 +38,7 @@ const fs_1 = __importDefault(require("fs"));
 const init_1 = require("./init");
 const config_1 = require("../config");
 const convert_values_1 = require("./lang-4.x/convert-values");
+const retriever_1 = require("./retriever");
 exports.DEFAULT_OUTPUT_COLLECTOR_CONFIGURATION = {
     from: 'stdout',
     postamble: `🐧${'-'.repeat(5)}🐧`,
@@ -54,7 +55,7 @@ let DEFAULT_R_SHELL_OPTIONS = undefined;
 function getDefaultRShellOptions() {
     if (!DEFAULT_R_SHELL_OPTIONS) {
         DEFAULT_R_SHELL_OPTIONS = {
-            pathToRExecutable: (0, config_1.getConfig)().rPath ?? exports.DEFAULT_R_PATH,
+            pathToRExecutable: (0, config_1.getEngineConfig)('r-shell')?.rPath ?? exports.DEFAULT_R_PATH,
             // -s is a short form of --no-echo (and the old version --slave), but this one works in R 3 and 4
             // (see https://github.com/wch/r-source/commit/f1ff49e74593341c74c20de9517f31a22c8bcb04)
             commandLineOptions: ['--vanilla', '--quiet', '--no-save', '-s'],
@@ -74,10 +75,12 @@ function getDefaultRShellOptions() {
  * You can configure it by {@link RShellOptions}.
  *
  * At the moment we are using a live R session (and not networking etc.) to communicate with R easily,
- * which allows us to install packages etc. However, this might and probably will change in the future (leaving this
- * as a legacy mode :D)
+ * which allows us to install packages etc. However, this might and probably will change in the future
+ * (leaving this as a legacy mode :D)
  */
 class RShell {
+    name = 'r-shell';
+    async = true;
     options;
     session;
     log;
@@ -90,6 +93,9 @@ class RShell {
         this.session = new RShellSession(this.options, this.log);
         this.revive();
     }
+    parse(request) {
+        return (0, retriever_1.retrieveParseDataFromRCode)(request, this);
+    }
     revive() {
         if (this.options.revive === 0 /* RShellReviveOptions.Never */) {
             return;
@@ -104,15 +110,18 @@ class RShell {
         });
     }
     /**
-   * sends the given command directly to the current R session
-   * will not do anything to alter input markers!
-   */
+     * sends the given command directly to the current R session
+     * will not do anything to alter input markers!
+     */
     sendCommand(command) {
         if (this.log.settings.minLevel <= 1 /* LogLevel.Trace */) {
             this.log.trace(`> ${JSON.stringify(command)}`);
         }
         this._sendCommand(command);
     }
+    async rVersion() {
+        return (await this.usedRVersion())?.format() ?? 'unknown';
+    }
     async usedRVersion() {
         if (this.versionCache !== null) {
             return this.versionCache;

package/search/search-optimizer/search-optimizer.js

@@ -71,7 +71,7 @@ function dropAnyNameRegex(generator) {
     if (generator.name !== 'get' || !generator.args.filter.nameIsRegex) {
         return generator;
     }
-    if (generator.args.filter.name === '.') {
+    if (generator.args.filter.name === '.*') {
         return {
             ...generator,
             args: {

package/statistics/statistics.js

@@ -82,7 +82,7 @@ function processMetaOnSuccessful(meta, request) {
 const parser = new xmldom_1.DOMParser();
 async function extractSingle(result, shell, request, features, suffixFilePath) {
     const slicerOutput = await new pipeline_executor_1.PipelineExecutor(default_pipelines_1.DEFAULT_DATAFLOW_PIPELINE, {
-        request, shell
+        request, parser: shell
     }).allRemainingSteps();
     // retrieve parsed xml through (legacy) xmlparsedata
     const suffix = request.request === 'file' ? ', encoding="utf-8"' : '';

package/util/cfg/cfg.d.ts

@@ -25,6 +25,8 @@ interface CfgFlowDependencyEdge extends MergeableRecord {
 }
 interface CfgControlDependencyEdge extends MergeableRecord {
     label: 'CD';
+    /** the id which caused the control dependency */
+    caused: NodeId;
     when: typeof RTrue | typeof RFalse;
 }
 export type CfgEdge = CfgFlowDependencyEdge | CfgControlDependencyEdge;

package/util/cfg/cfg.js

@@ -134,10 +134,10 @@ function cfgIfThenElse(ifNode, condition, then, otherwise) {
     }
     for (const exitPoint of condition.exitPoints) {
         for (const entryPoint of then.entryPoints) {
-            graph.addEdge(entryPoint, exitPoint, { label: 'CD', when: convert_values_1.RTrue });
+            graph.addEdge(entryPoint, exitPoint, { label: 'CD', when: convert_values_1.RTrue, caused: ifNode.info.id });
         }
         for (const entryPoint of otherwise?.entryPoints ?? []) {
-            graph.addEdge(entryPoint, exitPoint, { label: 'CD', when: convert_values_1.RFalse });
+            graph.addEdge(entryPoint, exitPoint, { label: 'CD', when: convert_values_1.RFalse, caused: ifNode.info.id });
         }
     }
     for (const entryPoint of condition.entryPoints) {
@@ -148,7 +148,7 @@ function cfgIfThenElse(ifNode, condition, then, otherwise) {
     }
     if (!otherwise) {
         for (const exitPoint of condition.exitPoints) {
-            graph.addEdge(ifNode.info.id + '-exit', exitPoint, { label: 'CD', when: convert_values_1.RFalse });
+            graph.addEdge(ifNode.info.id + '-exit', exitPoint, { label: 'CD', when: convert_values_1.RFalse, caused: ifNode.info.id });
         }
     }
     return {
@@ -165,7 +165,7 @@ function cfgRepeat(repeat, body) {
     graph.addVertex({ id: repeat.info.id, name: repeat.type, type: identifyMayStatementType(repeat) });
     graph.addVertex({ id: repeat.info.id + '-exit', name: 'repeat-exit', type: "end-marker" /* CfgVertexType.EndMarker */ });
     for (const entryPoint of body.entryPoints) {
-        graph.addEdge(repeat.info.id, entryPoint, { label: 'FD' });
+        graph.addEdge(entryPoint, repeat.info.id, { label: 'FD' });
     }
     // loops automatically
     for (const next of [...body.nexts, ...body.exitPoints]) {
@@ -186,7 +186,7 @@ function cfgWhile(whileLoop, condition, body) {
     }
     for (const exit of condition.exitPoints) {
         for (const entry of body.entryPoints) {
-            graph.addEdge(entry, exit, { label: 'CD', when: convert_values_1.RTrue });
+            graph.addEdge(entry, exit, { label: 'CD', when: convert_values_1.RTrue, caused: whileLoop.info.id });
         }
     }
     for (const entryPoint of body.entryPoints) {
@@ -200,7 +200,7 @@ function cfgWhile(whileLoop, condition, body) {
     }
     // while can break on the condition as well
     for (const exit of condition.exitPoints) {
-        graph.addEdge(whileLoop.info.id + '-exit', exit, { label: 'CD', when: convert_values_1.RFalse });
+        graph.addEdge(whileLoop.info.id + '-exit', exit, { label: 'CD', when: convert_values_1.RFalse, caused: whileLoop.info.id });
     }
     return { graph, breaks: [], nexts: [], returns: body.returns, exitPoints: [whileLoop.info.id + '-exit'], entryPoints: [whileLoop.info.id] };
 }
@@ -220,7 +220,7 @@ function cfgFor(forLoop, variable, vector, body) {
     }
     for (const exit of variable.exitPoints) {
         for (const entry of body.entryPoints) {
-            graph.addEdge(entry, exit, { label: 'CD', when: convert_values_1.RTrue });
+            graph.addEdge(entry, exit, { label: 'CD', when: convert_values_1.RTrue, caused: forLoop.info.id });
         }
     }
     for (const next of [...body.nexts, ...body.exitPoints]) {
@@ -231,7 +231,7 @@ function cfgFor(forLoop, variable, vector, body) {
     }
     // while can break on the condition as well
     for (const exit of variable.exitPoints) {
-        graph.addEdge(forLoop.info.id + '-exit', exit, { label: 'CD', when: convert_values_1.RFalse });
+        graph.addEdge(forLoop.info.id + '-exit', exit, { label: 'CD', when: convert_values_1.RFalse, caused: forLoop.info.id });
     }
     return { graph, breaks: [], nexts: [], returns: body.returns, exitPoints: [forLoop.info.id + '-exit'], entryPoints: [forLoop.info.id] };
 }

package/util/cfg/happens-before.d.ts

@@ -0,0 +1,7 @@
+import type { ControlFlowGraph } from './cfg';
+import type { NodeId } from '../../r-bridge/lang-4.x/ast/model/processing/node-id';
+import { Ternary } from '../logic';
+/**
+ * Determines if node `a` happens before node `b` in the control flow graph.
+ */
+export declare function happensBefore(cfg: ControlFlowGraph, a: NodeId, b: NodeId): Ternary;

package/util/cfg/happens-before.js

@@ -0,0 +1,32 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.happensBefore = happensBefore;
+const logic_1 = require("../logic");
+/**
+ * Determines if node `a` happens before node `b` in the control flow graph.
+ */
+function happensBefore(cfg, a, b) {
+    const visited = new Set();
+    /* the first is the id we are currently at, the second one the exit marker of the current largest cd scope */
+    const stack = [[b, undefined]];
+    while (stack.length > 0) {
+        const [current, cd] = stack.pop();
+        let useCd = cd;
+        if (current === a) {
+            return cd ? logic_1.Ternary.Maybe : logic_1.Ternary.Always;
+        }
+        else if (visited.has(current)) {
+            continue;
+        }
+        else if (cd && (current === cd || visited.has(cd))) {
+            useCd = undefined;
+        }
+        visited.add(current);
+        for (const [id, t] of cfg.outgoing(current) ?? []) {
+            const marker = t.label === 'CD' ? `${t.caused}-exit` : useCd;
+            stack.push([id, useCd ?? marker]);
+        }
+    }
+    return logic_1.Ternary.Never;
+}
+//# sourceMappingURL=happens-before.js.map

package/util/logic.d.ts

@@ -1,5 +1,5 @@
-export declare const enum Ternary {
-    Always = 0,
-    Maybe = 1,
-    Never = 2
+export declare enum Ternary {
+    Always = "always",
+    Maybe = "maybe",
+    Never = "never"
 }

package/util/logic.js

@@ -1,3 +1,11 @@
 "use strict";
 Object.defineProperty(exports, "__esModule", { value: true });
+exports.Ternary = void 0;
+// diverging from boolean | maybe requires explicit handling
+var Ternary;
+(function (Ternary) {
+    Ternary["Always"] = "always";
+    Ternary["Maybe"] = "maybe";
+    Ternary["Never"] = "never";
+})(Ternary || (exports.Ternary = Ternary = {}));
 //# sourceMappingURL=logic.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.1.12';
+const version = '2.2.1';
 function flowrVersion() {
     return new semver_1.SemVer(version);
 }