@abaplint/runtime 2.13.89 → 2.13.91

package/build/src/operators/_parse.js

@@ -26,6 +26,10 @@ function parse(val) {
     else if (val instanceof types_1.Float) {
         return val.getRaw();
     }
+    else if (val instanceof types_1.Character) {
+        // constants remember what they parse to, the value cannot change
+        return val.getNumeric();
+    }
     else if (val instanceof xstring_1.XString) {
         if (val.get() === "") {
             return 0;

package/build/src/types/character.d.ts

@@ -8,6 +8,10 @@ import { Integer } from "./integer";
 export declare class Character implements ICharacter {
     private value;
     private constant;
+    /** the value as a number, filled by getNumeric() only when this is a constant.
+     * set() cannot invalidate it because set() throws on a constant; clear() can,
+     * and does, because it is not covered by that check. */
+    private numeric;
     private readonly length;
     private readonly extra;
     constructor(length?: number, extra?: AbstractTypeData);
@@ -19,6 +23,11 @@ export declare class Character implements ICharacter {
     getDDICName(): string | undefined;
     getLength(): number;
     clear(): void;
+    /** The value as a number. A constant cannot change, so it is parsed once and
+     * remembered: a character literal is how ABAP writes a non integer constant,
+     * ie. "lv_x = lv_y * '0.5'", and every arithmetic operation on one used to
+     * trim the string and parse it again. */
+    getNumeric(): number;
     get(): string;
     getTrimEnd(): string;
     getOffset(input: {

package/build/src/types/character.js

@@ -11,6 +11,10 @@ const initialValues = {};
 class Character {
     value;
     constant = false;
+    /** the value as a number, filled by getNumeric() only when this is a constant.
+     * set() cannot invalidate it because set() throws on a constant; clear() can,
+     * and does, because it is not covered by that check. */
+    numeric = undefined;
     length;
     extra;
     constructor(length, extra) {
@@ -87,6 +91,21 @@ class Character {
             initialValues[this.length] = " ".repeat(this.length);
         }
         this.value = initialValues[this.length];
+        this.numeric = undefined;
+    }
+    /** The value as a number. A constant cannot change, so it is parsed once and
+     * remembered: a character literal is how ABAP writes a non integer constant,
+     * ie. "lv_x = lv_y * '0.5'", and every arithmetic operation on one used to
+     * trim the string and parse it again. */
+    getNumeric() {
+        let numeric = this.numeric;
+        if (numeric === undefined) {
+            numeric = (0, _parse_1.parse)(this.value);
+            if (this.constant === true) {
+                this.numeric = numeric;
+            }
+        }
+        return numeric;
     }
     get() {
         return this.value;

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@abaplint/runtime",
-  "version": "2.13.89",
+  "version": "2.13.91",
   "description": "Transpiler - Runtime",
   "main": "build/src/index.js",
   "typings": "build/src/index.d.ts",