@abaplint/transpiler 2.13.25 → 2.13.27

package/build/src/db/index.js

@@ -63,17 +63,21 @@ class DatabaseSetup {
                 insert.push(...populateTables.insertWWWPARAMS(obj));
             }
             else if (obj instanceof abaplint.Objects.Class
-                || obj instanceof abaplint.Objects.Interface) {
+                || obj instanceof abaplint.Objects.Interface
+                || obj instanceof abaplint.Objects.Program) {
                 if (options?.populateTables?.reposrc !== false) {
                     insert.push(populateTables.insertREPOSRC(obj));
                 }
-                if (options?.populateTables?.seosubco !== false) {
+                if ((obj instanceof abaplint.Objects.Class || obj instanceof abaplint.Objects.Interface)
+                    && options?.populateTables?.seosubco !== false) {
                     insert.push(...populateTables.insertSEOSUBCO(obj));
                 }
-                if (options?.populateTables?.seosubcodf !== false) {
+                if ((obj instanceof abaplint.Objects.Class || obj instanceof abaplint.Objects.Interface)
+                    && options?.populateTables?.seosubcodf !== false) {
                     insert.push(...populateTables.insertSEOSUBCODF(obj));
                 }
-                if (options?.populateTables?.seosubcotx !== false) {
+                if ((obj instanceof abaplint.Objects.Class || obj instanceof abaplint.Objects.Interface)
+                    && options?.populateTables?.seosubcotx !== false) {
                     insert.push(...populateTables.insertSEOSUBCOTX(obj));
                 }
             }

package/build/src/db/populate_tables.d.ts

@@ -9,7 +9,7 @@ export declare class PopulateTables {
     private readonly hasTADIR;
     private readonly hasWWWPARAMS;
     constructor(reg: abaplint.IRegistry);
-    insertREPOSRC(obj: abaplint.Objects.Class | abaplint.Objects.Interface): string;
+    insertREPOSRC(obj: abaplint.Objects.Class | abaplint.Objects.Interface | abaplint.Objects.Program): string;
     insertT100(msag: abaplint.Objects.MessageClass): string[];
     insertSEOSUBCO(obj: abaplint.Objects.Class | abaplint.Objects.Interface): string[];
     insertSEOSUBCODF(obj: abaplint.Objects.Class | abaplint.Objects.Interface): string[];

package/build/src/statements/read_report.js

@@ -16,7 +16,7 @@ class ReadReportTranspiler {
         if (stateNode) {
             options.push("state: " + new expressions_1.SourceTranspiler().transpile(stateNode, traversal).getCode());
         }
-        return new chunk_1.Chunk().appendString(`abap.statements.readReport(`)
+        return new chunk_1.Chunk().appendString(`await abap.statements.readReport(`)
             .appendChunk(reportChunk)
             .appendString(", {" + options.join(",") + "}")
             .appendString(");");

package/build/src/statements/select.d.ts

@@ -5,5 +5,6 @@ import { Chunk } from "../chunk";
 export declare class SelectTranspiler implements IStatementTranspiler {
     transpile(node: abaplint.Nodes.StatementNode, traversal: Traversal, targetOverride?: string): Chunk;
     private findTable;
+    private dynamicSelectList;
     private isWhereExpression;
 }

package/build/src/statements/select.js

@@ -75,12 +75,19 @@ class SelectTranspiler {
         if (orderBy) {
             select += new expressions_1.SQLOrderByTranspiler().transpile(orderBy, traversal).getCode();
         }
+        const fieldListDynamics = new Set(fieldList.findAllExpressionsRecursive(abaplint.Expressions.Dynamic));
         for (const d of node.findAllExpressionsRecursive(abaplint.Expressions.Dynamic)) {
             const chain = d.findFirstExpression(abaplint.Expressions.FieldChain);
             if (chain) {
-                const code = new expressions_1.FieldChainTranspiler(true).transpile(chain, traversal).getCode();
                 const search = d.concatTokens();
-                select = select.replace(search, `" + ${code} + "`);
+                if (fieldListDynamics.has(d)) {
+                    const code = new expressions_1.FieldChainTranspiler(false).transpile(chain, traversal).getCode();
+                    select = select.replace(search, `" + ${this.dynamicSelectList(code)} + "`);
+                }
+                else {
+                    const code = new expressions_1.FieldChainTranspiler(true).transpile(chain, traversal).getCode();
+                    select = select.replace(search, `" + ${code} + "`);
+                }
             }
         }
         const concat = node.concatTokens().toUpperCase();
@@ -142,6 +149,11 @@ class SelectTranspiler {
         }
         return { table: tabl, keys };
     }
+    dynamicSelectList(code) {
+        return `(${code} instanceof abap.types.Table || ${code} instanceof abap.types.HashedTable`
+            + ` ? (${code}.array().length === 0 ? "*" : ${code}.array().map(row => row.get()).join(", "))`
+            + ` : ${code}.get())`;
+    }
     isWhereExpression(node, expression) {
         // check if previous token before sqlCond is "WHERE". It could also be "ON" in case of join condition
         let prevToken;

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@abaplint/transpiler",
-  "version": "2.13.25",
+  "version": "2.13.27",
   "description": "Transpiler",
   "main": "build/src/index.js",
   "typings": "build/src/index.d.ts",
@@ -29,7 +29,7 @@
   "author": "abaplint",
   "license": "MIT",
   "dependencies": {
-    "@abaplint/core": "^2.119.19",
+    "@abaplint/core": "^2.119.24",
     "source-map": "^0.7.6"
   },
   "devDependencies": {