@abaplint/transpiler 2.5.47 → 2.5.48

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

@@ -40,6 +40,7 @@ export * from "./source_field_symbol";
 export * from "./source_field";
 export * from "./source";
 export * from "./sql_cond";
+export * from "./sql_field";
 export * from "./sql_from";
 export * from "./sql_join";
 export * from "./sql_source_simple";

package/build/src/expressions/index.js

@@ -56,6 +56,7 @@ __exportStar(require("./source_field_symbol"), exports);
 __exportStar(require("./source_field"), exports);
 __exportStar(require("./source"), exports);
 __exportStar(require("./sql_cond"), exports);
+__exportStar(require("./sql_field"), exports);
 __exportStar(require("./sql_from"), exports);
 __exportStar(require("./sql_join"), exports);
 __exportStar(require("./sql_source_simple"), exports);

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

@@ -0,0 +1,7 @@
+import { Nodes } from "@abaplint/core";
+import { IExpressionTranspiler } from "./_expression_transpiler";
+import { Traversal } from "../traversal";
+import { Chunk } from "../chunk";
+export declare class SQLField implements IExpressionTranspiler {
+    transpile(node: Nodes.ExpressionNode, _traversal: Traversal): Chunk;
+}

package/build/src/expressions/sql_field.js

@@ -0,0 +1,17 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.SQLField = void 0;
+const chunk_1 = require("../chunk");
+class SQLField {
+    transpile(node, _traversal) {
+        const chunk = new chunk_1.Chunk();
+        let concat = node.concatTokens();
+        if (concat.includes("~") && concat.split("~")[0].includes("/")) {
+            concat = "'" + concat.replace("~", "'~");
+        }
+        chunk.appendString(concat);
+        return chunk;
+    }
+}
+exports.SQLField = SQLField;
+//# sourceMappingURL=sql_field.js.map

package/build/src/expressions/sql_from.js

@@ -9,6 +9,7 @@ class SQLFromTranspiler {
         const chunk = new chunk_1.Chunk();
         for (const c of node.getChildren()) {
             if (c instanceof abaplint.Nodes.TokenNode) {
+                // keywords
                 chunk.appendString(c.concatTokens() + " ");
             }
             else if (c.get() instanceof abaplint.Expressions.SQLJoin) {
@@ -16,7 +17,15 @@ class SQLFromTranspiler {
                 chunk.appendString(" ");
             }
             else {
-                chunk.appendString(c.concatTokens() + " ");
+                if (c.findFirstExpression(abaplint.Expressions.Dynamic)) {
+                    chunk.appendString(c.concatTokens() + " ");
+                }
+                else if (c.concatTokens().includes("/")) {
+                    chunk.appendString("'" + c.concatTokens() + "' ");
+                }
+                else {
+                    chunk.appendString(c.concatTokens() + " ");
+                }
             }
         }
         return chunk;

package/build/src/statements/select.js

@@ -22,14 +22,17 @@ class SelectTranspiler {
         let select = "SELECT ";
         const fieldList = node.findFirstExpression(abaplint.Expressions.SQLFieldList)
             || node.findFirstExpression(abaplint.Expressions.SQLFieldListLoop);
-        if ((fieldList === null || fieldList === void 0 ? void 0 : fieldList.getChildren().length) === 1) {
-            select += fieldList.concatTokens();
-        }
-        else {
-            // add commas between field names, this is required for SQLite, and easy to remove in other clients?
-            select += fieldList === null || fieldList === void 0 ? void 0 : fieldList.findAllExpressions(abaplint.Expressions.SQLField).map(e => e.concatTokens()).join(", ");
+        const fields = [];
+        for (const f of (fieldList === null || fieldList === void 0 ? void 0 : fieldList.getChildren()) || []) {
+            if (f instanceof abaplint.Nodes.ExpressionNode && f.get() instanceof abaplint.Expressions.SQLField) {
+                const code = new expressions_1.SQLField().transpile(f, traversal).getCode();
+                fields.push(code);
+            }
+            else {
+                fields.push(f.concatTokens());
+            }
         }
-        select += " ";
+        select += fields.join(", ") + " ";
         const from = node.findFirstExpression(abaplint.Expressions.SQLFrom);
         if (from) {
             select += new sql_from_1.SQLFromTranspiler().transpile(from, traversal).getCode();
@@ -83,6 +86,10 @@ class SelectTranspiler {
             const faeTranspiled = new expressions_1.SQLSourceTranspiler().transpile(fn, traversal).getCode();
             select = select.replace(new RegExp(" " + escapeRegExp(faeTranspiled), "g"), " " + unique);
             select = select.replace(unique + ".get().table_line.get()", unique + ".get()"); // there can be only one?
+            let by = `Object.keys(${target}.getRowType().get())`;
+            if (keys.length > 0) {
+                by = JSON.stringify(keys);
+            }
             const code = `if (${faeTranspiled}.array().length === 0) {
   throw "FAE, todo, empty table";
 } else {
@@ -90,8 +97,8 @@ class SelectTranspiler {
   for await (const ${unique} of abap.statements.loop(${faeTranspiled})) {
     await abap.statements.select(${target}, {select: "${select.trim()}"${extra}}, {appending: true});
   }
-  abap.statements.sort(${target}, {by: Object.keys(${target}.getRowType().get()).map(k => { return {component: k}; })});
-  await abap.statements.deleteInternal(${target}, {adjacent: true});
+  abap.statements.sort(${target}, {by: ${by}.map(k => { return {component: k}; })});
+  await abap.statements.deleteInternal(${target}, {adjacent: true, by: ${by}});
   abap.builtin.sy.get().dbcnt.set(${target}.array().length);
 }`;
             return new chunk_1.Chunk().append(code, node, traversal);

package/package.json

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