@abaplint/transpiler 2.13.66 → 2.13.68

package/build/src/expressions/sql_cond.d.ts

@@ -7,6 +7,9 @@ export declare class SQLCondTranspiler implements IExpressionTranspiler {
     transpile(node: Nodes.ExpressionNode, traversal: Traversal, table?: abaplint.Objects.Table | undefined): Chunk;
     private sqlIn;
     private basicCondition;
+    private subselectCondition;
+    private findSubselect;
+    private sqlSubselect;
     private sqlSource;
     private basicConditionNew;
     private sourceWithComponents;

package/build/src/expressions/sql_cond.js

@@ -42,6 +42,8 @@ const field_chain_1 = require("./field_chain");
 const sql_field_name_1 = require("./sql_field_name");
 const transpile_types_1 = require("../transpile_types");
 const source_1 = require("./source");
+const sql_field_list_1 = require("./sql_field_list");
+const sql_from_1 = require("./sql_from");
 class SQLCondTranspiler {
     transpile(node, traversal, table) {
         let ret = "";
@@ -71,6 +73,9 @@ class SQLCondTranspiler {
                 else if (c.findDirectExpression(abaplint.Expressions.SQLIn)) {
                     ret += this.sqlIn(c, traversal, traversal.getFilename(), table);
                 }
+                else if (this.findSubselect(c)) {
+                    ret += this.subselectCondition(c, traversal, table);
+                }
                 else {
                     ret += this.basicCondition(c, traversal, traversal.getFilename(), table);
                 }
@@ -89,14 +94,22 @@ class SQLCondTranspiler {
         const fieldName = c.findDirectExpression(abaplint.Expressions.SQLFieldName)
             || c.findDirectExpression(abaplint.Expressions.SQLAliasField);
         const sqlin = c.findDirectExpression(abaplint.Expressions.SQLIn);
-        const source = c.findFirstExpression(abaplint.Expressions.SimpleSource3);
-        if (fieldName === undefined || sqlin === undefined || source === undefined) {
+        const subselect = sqlin === undefined ? undefined : this.findSubselect(sqlin);
+        if (fieldName === undefined || sqlin === undefined) {
             throw new Error("SQL Condition, transpiler todo, " + c.concatTokens());
         }
         let pre = "";
         if (c.concatTokens().toUpperCase().includes(" NOT IN ")) {
             pre = "NOT ";
         }
+        if (subselect) {
+            const field = new sql_field_name_1.SQLFieldNameTranspiler().transpile(fieldName, traversal).getCode();
+            return `${field} ${pre}IN ${this.sqlSubselect(subselect, traversal, table)}`;
+        }
+        const source = c.findFirstExpression(abaplint.Expressions.SimpleSource3);
+        if (source === undefined) {
+            throw new Error("SQL Condition, transpiler todo, " + c.concatTokens());
+        }
         if (sqlin.getChildren().length === 2) {
             const s = new source_1.SourceTranspiler().transpile(source, traversal).getCode();
             return `${pre}" + abap.expandIN("${fieldName.concatTokens()}", ${s}) + "`;
@@ -114,6 +127,10 @@ class SQLCondTranspiler {
     }
     basicCondition(c, traversal, filename, table) {
         let ret = "";
+        const subselect = this.findSubselect(c);
+        if (subselect) {
+            return this.subselectCondition(c, traversal, table);
+        }
         if (c.getChildren().length !== 3) {
             return this.basicConditionNew(c, traversal, filename, table);
         }
@@ -142,6 +159,59 @@ class SQLCondTranspiler {
         ret += this.sqlSource(source, traversal, filename, table);
         return ret;
     }
+    subselectCondition(c, traversal, table) {
+        const subselect = this.findSubselect(c);
+        if (subselect === undefined) {
+            throw new Error("SQL Condition, subselect not found, " + c.concatTokens());
+        }
+        const fieldNameExpression = c.findDirectExpression(abaplint.Expressions.SQLFieldName)
+            || c.findDirectExpression(abaplint.Expressions.SQLAliasField);
+        const operator = c.findDirectExpression(abaplint.Expressions.SQLCompareOperator);
+        if (fieldNameExpression && operator) {
+            const fieldName = new sql_field_name_1.SQLFieldNameTranspiler().transpile(fieldNameExpression, traversal).getCode();
+            const quantifier = c.getChildren().find(child => child instanceof abaplint.Nodes.TokenNode
+                && ["ALL", "ANY", "SOME"].includes(child.getFirstToken().getStr().toUpperCase()));
+            const suffix = quantifier ? " " + quantifier.concatTokens() : "";
+            return `${fieldName} ${this.sqlOperator(operator.concatTokens())}${suffix} ${this.sqlSubselect(subselect, traversal, table)}`;
+        }
+        if (c.findDirectTokenByText("EXISTS")) {
+            const not = c.findDirectTokenByText("NOT") ? "NOT " : "";
+            return `${not}EXISTS ${this.sqlSubselect(subselect, traversal, table)}`;
+        }
+        throw new Error("SQL Condition, unsupported subselect, " + c.concatTokens());
+    }
+    findSubselect(node) {
+        const grouped = node.findDirectExpression(abaplint.Expressions.SQLSetOpGroup);
+        if (grouped) {
+            return grouped;
+        }
+        // Older parser releases represent the scalar form as an inline sequence
+        // instead of wrapping it in SQLSetOpGroup.
+        if (node.getTokens().some(token => token.getStr().toUpperCase() === "SELECT")) {
+            return node;
+        }
+        return undefined;
+    }
+    sqlSubselect(node, traversal, table) {
+        const fieldList = node.findFirstExpression(abaplint.Expressions.SQLFieldList);
+        const from = node.findFirstExpression(abaplint.Expressions.SQLFrom);
+        if (fieldList === undefined || from === undefined) {
+            throw new Error("SQL Condition, malformed subselect, " + node.concatTokens());
+        }
+        const tokens = node.getTokens();
+        const selectIndex = tokens.findIndex(token => token.getStr().toUpperCase() === "SELECT");
+        const distinct = selectIndex >= 0 && tokens[selectIndex + 1]?.getStr().toUpperCase() === "DISTINCT";
+        let ret = `(SELECT${distinct ? " DISTINCT" : ""} `;
+        ret += new sql_field_list_1.SQLFieldListTranspiler().transpile(fieldList, traversal).getCode();
+        ret += " " + new sql_from_1.SQLFromTranspiler().transpile(from, traversal).getCode().trim();
+        const where = node.findFirstExpression(abaplint.Expressions.SQLCond);
+        if (where) {
+            const subTable = from.findFirstExpression(abaplint.Expressions.DatabaseTable);
+            const conditionTable = subTable ? traversal.findTable(subTable.concatTokens()) : table;
+            ret += " WHERE " + new SQLCondTranspiler().transpile(where, traversal, conditionTable).getCode();
+        }
+        return ret + ")";
+    }
     sqlSource(source, traversal, filename, table) {
         let ret = "";
         const simple = source.findDirectExpression(abaplint.Expressions.SimpleSource3);

package/build/src/structures/catch_system_exceptions.d.ts

@@ -0,0 +1,7 @@
+import * as abaplint from "@abaplint/core";
+import { IStructureTranspiler } from "./_structure_transpiler";
+import { Traversal } from "../traversal";
+import { Chunk } from "../chunk";
+export declare class CatchSystemExceptionsTranspiler implements IStructureTranspiler {
+    transpile(node: abaplint.Nodes.StructureNode, traversal: Traversal): Chunk;
+}

package/build/src/structures/catch_system_exceptions.js

@@ -0,0 +1,11 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.CatchSystemExceptionsTranspiler = void 0;
+const chunk_1 = require("../chunk");
+class CatchSystemExceptionsTranspiler {
+    transpile(node, traversal) {
+        return new chunk_1.Chunk().append(`throw new Error("CATCH SYSTEM-EXCEPTIONS, not supported, transpiler");`, node, traversal);
+    }
+}
+exports.CatchSystemExceptionsTranspiler = CatchSystemExceptionsTranspiler;
+//# sourceMappingURL=catch_system_exceptions.js.map

package/build/src/structures/index.d.ts

@@ -2,6 +2,7 @@ export * from "./at_first";
 export * from "./at_last";
 export * from "./case_type";
 export * from "./case";
+export * from "./catch_system_exceptions";
 export * from "./class_definition";
 export * from "./class_implementation";
 export * from "./constants";

package/build/src/structures/index.js

@@ -18,6 +18,7 @@ __exportStar(require("./at_first"), exports);
 __exportStar(require("./at_last"), exports);
 __exportStar(require("./case_type"), exports);
 __exportStar(require("./case"), exports);
+__exportStar(require("./catch_system_exceptions"), exports);
 __exportStar(require("./class_definition"), exports);
 __exportStar(require("./class_implementation"), exports);
 __exportStar(require("./constants"), exports);

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@abaplint/transpiler",
-  "version": "2.13.66",
+  "version": "2.13.68",
   "description": "Transpiler",
   "main": "build/src/index.js",
   "typings": "build/src/index.d.ts",