@abaplint/transpiler 2.3.27 → 2.3.28

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

@@ -3,5 +3,7 @@ import { IStatementTranspiler } from "./_statement_transpiler";
 import { Traversal } from "../traversal";
 import { Chunk } from "../chunk";
 export declare class DoTranspiler implements IStatementTranspiler {
+    private readonly syIndexBackup;
+    constructor(syIndexBackup: string);
     transpile(node: abaplint.Nodes.StatementNode, traversal: Traversal): Chunk;
 }

package/build/src/statements/do.js

@@ -6,19 +6,24 @@ const expressions_1 = require("../expressions");
 const unique_identifier_1 = require("../unique_identifier");
 const chunk_1 = require("../chunk");
 class DoTranspiler {
+    constructor(syIndexBackup) {
+        this.syIndexBackup = syIndexBackup;
+    }
     transpile(node, traversal) {
         const found = node.findFirstExpression(abaplint.Expressions.Source);
         if (found) {
             const source = new expressions_1.SourceTranspiler(true).transpile(found, traversal).getCode();
             const idSource = unique_identifier_1.UniqueIdentifier.get();
             const id = unique_identifier_1.UniqueIdentifier.get();
-            return new chunk_1.Chunk(`const ${idSource} = ${source};
+            return new chunk_1.Chunk(`const ${this.syIndexBackup} = abap.builtin.sy.get().index.get();
+const ${idSource} = ${source};
 for (let ${id} = 0; ${id} < ${idSource}; ${id}++) {
 abap.builtin.sy.get().index.set(${id} + 1);`);
         }
         else {
             const unique = unique_identifier_1.UniqueIdentifier.get();
-            return new chunk_1.Chunk(`let ${unique} = 1;
+            return new chunk_1.Chunk(`const ${this.syIndexBackup} = abap.builtin.sy.get().index.get();
+let ${unique} = 1;
 while (true) {
 abap.builtin.sy.get().index.set(${unique}++);`);
         }

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

@@ -3,5 +3,7 @@ import { Chunk } from "../chunk";
 import { Traversal } from "../traversal";
 import { IStatementTranspiler } from "./_statement_transpiler";
 export declare class EndDoTranspiler implements IStatementTranspiler {
+    private readonly syIndexBackup;
+    constructor(syIndexBackup: string);
     transpile(node: abaplint.Nodes.StatementNode, traversal: Traversal): Chunk;
 }

package/build/src/statements/end_do.js

@@ -3,8 +3,12 @@ Object.defineProperty(exports, "__esModule", { value: true });
 exports.EndDoTranspiler = void 0;
 const chunk_1 = require("../chunk");
 class EndDoTranspiler {
+    constructor(syIndexBackup) {
+        this.syIndexBackup = syIndexBackup;
+    }
     transpile(node, traversal) {
-        return new chunk_1.Chunk().append("}", node, traversal);
+        return new chunk_1.Chunk().append(`}
+abap.builtin.sy.get().index.set(${this.syIndexBackup});`, node, traversal);
     }
 }
 exports.EndDoTranspiler = EndDoTranspiler;

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

@@ -3,5 +3,7 @@ import { Chunk } from "../chunk";
 import { Traversal } from "../traversal";
 import { IStatementTranspiler } from "./_statement_transpiler";
 export declare class EndWhileTranspiler implements IStatementTranspiler {
+    private readonly syIndexBackup;
+    constructor(syIndexBackup: string);
     transpile(node: abaplint.Nodes.StatementNode, traversal: Traversal): Chunk;
 }

package/build/src/statements/end_while.js

@@ -3,8 +3,12 @@ Object.defineProperty(exports, "__esModule", { value: true });
 exports.EndWhileTranspiler = void 0;
 const chunk_1 = require("../chunk");
 class EndWhileTranspiler {
+    constructor(syIndexBackup) {
+        this.syIndexBackup = syIndexBackup;
+    }
     transpile(node, traversal) {
-        return new chunk_1.Chunk().append("}", node, traversal);
+        return new chunk_1.Chunk().append(`}
+abap.builtin.sy.get().index.set(${this.syIndexBackup});`, node, traversal);
     }
 }
 exports.EndWhileTranspiler = EndWhileTranspiler;

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

@@ -3,5 +3,7 @@ import { IStatementTranspiler } from "./_statement_transpiler";
 import { Traversal } from "../traversal";
 import { Chunk } from "../chunk";
 export declare class WhileTranspiler implements IStatementTranspiler {
+    private readonly syIndexBackup;
+    constructor(syIndexBackup: string);
     transpile(node: abaplint.Nodes.StatementNode, traversal: Traversal): Chunk;
 }

package/build/src/statements/while.js

@@ -6,11 +6,15 @@ const expressions_1 = require("../expressions");
 const chunk_1 = require("../chunk");
 const unique_identifier_1 = require("../unique_identifier");
 class WhileTranspiler {
+    constructor(syIndexBackup) {
+        this.syIndexBackup = syIndexBackup;
+    }
     transpile(node, traversal) {
         const cond = new expressions_1.CondTranspiler().transpile(node.findFirstExpression(abaplint.Expressions.Cond), traversal);
         const unique = unique_identifier_1.UniqueIdentifier.get();
         return new chunk_1.Chunk()
-            .append(`let ${unique} = 1;
+            .append(`const ${this.syIndexBackup} = abap.builtin.sy.get().index.get();
+let ${unique} = 1;
 while (`, node, traversal)
             .appendChunk(cond)
             .appendString(`) {

package/build/src/structures/do.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 DoTranspiler implements IStructureTranspiler {
+    transpile(node: abaplint.Nodes.StructureNode, traversal: Traversal): Chunk;
+}

package/build/src/structures/do.js

@@ -0,0 +1,28 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.DoTranspiler = void 0;
+const abaplint = require("@abaplint/core");
+const chunk_1 = require("../chunk");
+const statements_1 = require("../statements");
+const unique_identifier_1 = require("../unique_identifier");
+class DoTranspiler {
+    transpile(node, traversal) {
+        const ret = new chunk_1.Chunk();
+        const syIndexBackup = unique_identifier_1.UniqueIdentifier.get();
+        for (const c of node.getChildren()) {
+            if (c instanceof abaplint.Nodes.StatementNode && c.get() instanceof abaplint.Statements.Do) {
+                ret.appendChunk(new statements_1.DoTranspiler(syIndexBackup).transpile(c, traversal));
+                ret.appendString("\n");
+            }
+            else if (c instanceof abaplint.Nodes.StatementNode && c.get() instanceof abaplint.Statements.EndDo) {
+                ret.appendChunk(new statements_1.EndDoTranspiler(syIndexBackup).transpile(c, traversal));
+            }
+            else {
+                ret.appendChunk(traversal.traverse(c));
+            }
+        }
+        return ret;
+    }
+}
+exports.DoTranspiler = DoTranspiler;
+//# sourceMappingURL=do.js.map

package/build/src/structures/function_module.js

@@ -4,6 +4,7 @@ exports.FunctionModuleTranspiler = void 0;
 const abaplint = require("@abaplint/core");
 const traversal_1 = require("../traversal");
 const chunk_1 = require("../chunk");
+const transpile_types_1 = require("../transpile_types");
 class FunctionModuleTranspiler {
     transpile(node, traversal) {
         var _a;
@@ -16,7 +17,7 @@ class FunctionModuleTranspiler {
                     name = "FunctionModuleTranspilerNameNotFound";
                 }
                 r += `async function ${traversal_1.Traversal.escapeClassName(name)}(INPUT) {\n`;
-                r += this.findSignature(traversal, name);
+                r += this.findSignature(traversal, name, c);
             }
             else if (c.get() instanceof abaplint.Statements.EndFunction) {
                 r += "}\n";
@@ -29,7 +30,8 @@ class FunctionModuleTranspiler {
         return new chunk_1.Chunk(r);
     }
     //////////////////////
-    findSignature(traversal, name) {
+    findSignature(traversal, name, node) {
+        var _a;
         const group = traversal.getCurrentObject();
         if (group === undefined) {
             throw "FunctionModuleTranspilerGroupNotFound";
@@ -38,6 +40,7 @@ class FunctionModuleTranspiler {
         if (module === undefined) {
             throw "FunctionModuleTranspilerModuleNotFound";
         }
+        const scope = traversal.findCurrentScopeByToken(node.getLastToken());
         let ret = "";
         for (const p of module.getParameters()) {
             ret += `// ${p.direction} ${p.name} ${p.type}\n`;
@@ -49,7 +52,18 @@ class FunctionModuleTranspiler {
                 direction = "importing";
             }
             // note: all directions are optional
-            ret += `let ${p.name.toLowerCase()} = INPUT.${direction}?.${p.name.toLowerCase()};\n`;
+            const name = p.name.toLowerCase();
+            ret += `let ${name} = INPUT.${direction}?.${name};\n`;
+            if (direction === "exporting" || direction === "importing" || direction === "changing") {
+                const type = (_a = scope === null || scope === void 0 ? void 0 : scope.findVariable(name)) === null || _a === void 0 ? void 0 : _a.getType();
+                if (type !== undefined) {
+                    // todo, set DEFAULT value
+                    // todo, check for OPTIONALness and raise exceptions and stuff
+                    ret += `if (${name} === undefined) {
+            ${name} = ${new transpile_types_1.TranspileTypes().toType(type)};
+          }\n`;
+                }
+            }
         }
         return ret;
     }

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

@@ -3,10 +3,12 @@ export * from "./class_definition";
 export * from "./class_implementation";
 export * from "./constants";
 export * from "./data";
+export * from "./define";
+export * from "./do";
 export * from "./function_module";
 export * from "./interface";
+export * from "./while";
 export * from "./select";
 export * from "./try";
-export * from "./define";
 export * from "./types";
 export * from "./when";

package/build/src/structures/index.js

@@ -19,11 +19,13 @@ __exportStar(require("./class_definition"), exports);
 __exportStar(require("./class_implementation"), exports);
 __exportStar(require("./constants"), exports);
 __exportStar(require("./data"), exports);
+__exportStar(require("./define"), exports);
+__exportStar(require("./do"), exports);
 __exportStar(require("./function_module"), exports);
 __exportStar(require("./interface"), exports);
+__exportStar(require("./while"), exports);
 __exportStar(require("./select"), exports);
 __exportStar(require("./try"), exports);
-__exportStar(require("./define"), exports);
 __exportStar(require("./types"), exports);
 __exportStar(require("./when"), exports);
 //# sourceMappingURL=index.js.map

package/build/src/structures/while.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 WhileTranspiler implements IStructureTranspiler {
+    transpile(node: abaplint.Nodes.StructureNode, traversal: Traversal): Chunk;
+}

package/build/src/structures/while.js

@@ -0,0 +1,28 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.WhileTranspiler = void 0;
+const abaplint = require("@abaplint/core");
+const chunk_1 = require("../chunk");
+const statements_1 = require("../statements");
+const unique_identifier_1 = require("../unique_identifier");
+class WhileTranspiler {
+    transpile(node, traversal) {
+        const ret = new chunk_1.Chunk();
+        const syIndexBackup = unique_identifier_1.UniqueIdentifier.get();
+        for (const c of node.getChildren()) {
+            if (c instanceof abaplint.Nodes.StatementNode && c.get() instanceof abaplint.Statements.While) {
+                ret.appendChunk(new statements_1.WhileTranspiler(syIndexBackup).transpile(c, traversal));
+                ret.appendString("\n");
+            }
+            else if (c instanceof abaplint.Nodes.StatementNode && c.get() instanceof abaplint.Statements.EndWhile) {
+                ret.appendChunk(new statements_1.EndWhileTranspiler(syIndexBackup).transpile(c, traversal));
+            }
+            else {
+                ret.appendChunk(traversal.traverse(c));
+            }
+        }
+        return ret;
+    }
+}
+exports.WhileTranspiler = WhileTranspiler;
+//# sourceMappingURL=while.js.map

package/package.json

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