@abaplint/runtime 2.7.88 → 2.7.90

package/LICENSE

@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2020 Lars Hvam Petersen
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

package/build/src/statements/read_table.js

@@ -146,9 +146,6 @@ function readTable(table, options) {
         foundIndex = searchResult.foundIndex;
     }
     else if (options === null || options === void 0 ? void 0 : options.from) {
-        if (table instanceof types_1.HashedTable) {
-            throw new Error("runtime, todo readTable Hashed FROM");
-        }
         if (options.from instanceof types_1.FieldSymbol) {
             options.from = options.from.getPointer();
         }
@@ -176,6 +173,10 @@ function readTable(table, options) {
                 }
             }
         }
+        else if (table instanceof types_1.HashedTable && options.from instanceof types_1.Structure) {
+            const key = table.buildHashFromData(options.from);
+            found = table.read(key);
+        }
         if (found === undefined) {
             foundIndex = 0;
         }

package/build/src/types/table.js

@@ -203,6 +203,12 @@ class HashedTable {
         this.secondaryIndexes = {};
     }
     set(tab) {
+        if (tab instanceof field_symbol_1.FieldSymbol) {
+            if (tab.getPointer() === undefined) {
+                throw new Error("GETWA_NOT_ASSIGNED");
+            }
+            return this.set(tab.getPointer());
+        }
         this.clear();
         if (tab instanceof Table || tab instanceof HashedTable) {
             for (const a of tab.array()) {

package/package.json

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

package/build/src/abap_regex.d.ts

@@ -1,4 +0,0 @@
-export declare class ABAPRegExp {
-    static convert(input: string): string;
-    static escapeRegExp(text: string): string;
-}

package/build/src/binary_search.d.ts

@@ -1,7 +0,0 @@
-import { ICharacter } from "./types/_character";
-import { INumeric } from "./types/_numeric";
-/** input indexes = javascript indexes,
-    output index = javascript index */
-export declare function binarySearchFromRow(array: readonly any[], left: number, right: number, keyField: (i: any) => any, keyValue: INumeric | ICharacter, usesTableLine: boolean | undefined): number;
-export declare function binarySearchFrom(array: readonly any[], left: number, right: number, keyField: string, keyValue: INumeric | ICharacter): number;
-export declare function binarySearchTo(array: readonly any[], left: number, right: number, keyField: string, keyValue: INumeric | ICharacter): number;

package/build/src/builtin/abs.d.ts

@@ -1,5 +0,0 @@
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function abs(input: {
-    val: number | string | ICharacter | INumeric;
-}): number;

package/build/src/builtin/boolc.d.ts

@@ -1,4 +0,0 @@
-import { Character, String } from "../types";
-export declare function boolc(input: boolean | undefined | {
-    val: Character | String;
-}): String;

package/build/src/builtin/ceil.d.ts

@@ -1,5 +0,0 @@
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function ceil(input: {
-    val: number | string | ICharacter | INumeric;
-}): number;

package/build/src/builtin/concat_lines_of.d.ts

@@ -1,7 +0,0 @@
-import { Table } from "../types";
-import { ICharacter } from "../types/_character";
-import { String } from "../types/string";
-export declare function concat_lines_of(input: {
-    table: Table;
-    sep: ICharacter | string | undefined;
-}): String;

package/build/src/builtin/condense.d.ts

@@ -1,9 +0,0 @@
-import { String } from "../types";
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function condense(input: {
-    val: ICharacter | INumeric | string;
-    from?: ICharacter | string;
-    to?: ICharacter | string;
-    del?: ICharacter | string;
-}): String;

package/build/src/builtin/contains.d.ts

@@ -1,15 +0,0 @@
-import { String } from "../types";
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export type ContainsInput = {
-    val: ICharacter;
-    regex?: ICharacter;
-    sub?: ICharacter;
-    start?: ICharacter;
-    end?: ICharacter;
-    case?: ICharacter;
-    off?: INumeric;
-    len?: INumeric;
-    occ?: INumeric;
-};
-export declare function contains(input: ContainsInput): String;

package/build/src/builtin/cos.d.ts

@@ -1,5 +0,0 @@
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function cos(input: {
-    val: number | string | ICharacter | INumeric;
-}): number;

package/build/src/builtin/count.d.ts

@@ -1,12 +0,0 @@
-import { Integer } from "../types";
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export type countInput = {
-    val: ICharacter;
-    sub: ICharacter;
-    regex?: ICharacter;
-    case?: ICharacter;
-    len?: INumeric;
-    off?: INumeric;
-};
-export declare function count(input: countInput): Integer;

package/build/src/builtin/count_any_of.d.ts

@@ -1,8 +0,0 @@
-import { Integer } from "../types";
-import { ICharacter } from "../types/_character";
-type countAnyOfInput = {
-    val: ICharacter;
-    sub: ICharacter;
-};
-export declare function count_any_of(input: countAnyOfInput): Integer;
-export {};

package/build/src/builtin/escape.d.ts

@@ -1,7 +0,0 @@
-import { String } from "../types";
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function escape(input: {
-    val: ICharacter | string;
-    format: INumeric | number;
-}): String;

package/build/src/builtin/find.d.ts

@@ -1,13 +0,0 @@
-import { Integer } from "../types";
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export interface IFindInput {
-    val: ICharacter | string;
-    sub?: ICharacter | string;
-    off?: INumeric | number;
-    occ?: INumeric | number;
-    len?: INumeric | number;
-    regex?: ICharacter | string;
-    case?: ICharacter | string;
-}
-export declare function find(input: IFindInput): Integer;

package/build/src/builtin/floor.d.ts

@@ -1,5 +0,0 @@
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function floor(input: {
-    val: number | string | ICharacter | INumeric;
-}): number;

package/build/src/builtin/frac.d.ts

@@ -1,6 +0,0 @@
-import { DecFloat34, Float } from "../types";
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function frac(input: {
-    val: number | string | ICharacter | INumeric;
-}): number | Float | DecFloat34;

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

@@ -1,54 +0,0 @@
-import { Character } from "../types";
-export * from "./abs";
-export * from "./boolc";
-export * from "./ceil";
-export * from "./concat_lines_of";
-export * from "./condense";
-export * from "./contains";
-export * from "./cos";
-export * from "./count_any_of";
-export * from "./count";
-export * from "./escape";
-export * from "./find";
-export * from "./floor";
-export * from "./frac";
-export * from "./insert";
-export * from "./ipow";
-export * from "./lines";
-export * from "./match";
-export * from "./matches";
-export * from "./nmax";
-export * from "./nmin";
-export * from "./numofchar";
-export * from "./repeat";
-export * from "./replace";
-export * from "./reverse";
-export * from "./round";
-export * from "./segment";
-export * from "./shift_right";
-export * from "./shift_left";
-export * from "./sign";
-export * from "./sin";
-export * from "./sqrt";
-export * from "./strlen";
-export * from "./substring_after";
-export * from "./substring_before";
-export * from "./substring";
-export * from "./sy";
-export * from "./tan";
-export * from "./to_lower";
-export * from "./to_mixed";
-export * from "./to_upper";
-export * from "./translate";
-export * from "./trunc";
-export * from "./xstrlen";
-export declare const abap_true: Character;
-export declare const abap_false: Character;
-export declare const abap_undefined: Character;
-export declare const space: Character;
-export declare const $_backspace: Character;
-export declare const $_cr_lf: Character;
-export declare const $_formfeed: Character;
-export declare const $_horizontal_tab: Character;
-export declare const $_newline: Character;
-export declare const $_vertical_tab: Character;

package/build/src/builtin/insert.d.ts

@@ -1,9 +0,0 @@
-import { String } from "../types";
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export interface IInsertInput {
-    val: ICharacter;
-    sub: ICharacter;
-    off?: INumeric;
-}
-export declare function insert(input: IInsertInput): String;

package/build/src/builtin/ipow.d.ts

@@ -1,6 +0,0 @@
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function ipow(input: {
-    base: number | string | ICharacter | INumeric;
-    exp: number | string | ICharacter | INumeric;
-}): string;

package/build/src/builtin/lines.d.ts

@@ -1,4 +0,0 @@
-import { Table, Integer, FieldSymbol } from "../types";
-export declare function lines(input: {
-    val: Table | FieldSymbol;
-}): Integer;

package/build/src/builtin/match.d.ts

@@ -1,5 +0,0 @@
-import { ICharacter } from "../types/_character";
-export declare function match(input: {
-    val: ICharacter | string;
-    regex: ICharacter | string;
-}): ICharacter;

package/build/src/builtin/matches.d.ts

@@ -1,6 +0,0 @@
-import { ICharacter } from "../types/_character";
-export declare function matches(input: {
-    val: ICharacter | string;
-    regex?: ICharacter | string;
-    pcre?: ICharacter | string;
-}): ICharacter;

package/build/src/builtin/nmax.d.ts

@@ -1,14 +0,0 @@
-import { INumeric } from "../types/_numeric";
-import { Float } from "../types";
-export interface INmaxInput {
-    val1: number | INumeric;
-    val2: number | INumeric;
-    val3?: number | INumeric;
-    val4?: number | INumeric;
-    val5?: number | INumeric;
-    val6?: number | INumeric;
-    val7?: number | INumeric;
-    val8?: number | INumeric;
-    val9?: number | INumeric;
-}
-export declare function nmax(input: INmaxInput): Float;

package/build/src/builtin/nmin.d.ts

@@ -1,14 +0,0 @@
-import { INumeric } from "../types/_numeric";
-import { Float } from "../types";
-export interface INminInput {
-    val1: number | INumeric;
-    val2: number | INumeric;
-    val3?: number | INumeric;
-    val4?: number | INumeric;
-    val5?: number | INumeric;
-    val6?: number | INumeric;
-    val7?: number | INumeric;
-    val8?: number | INumeric;
-    val9?: number | INumeric;
-}
-export declare function nmin(input: INminInput): Float;

package/build/src/builtin/numofchar.d.ts

@@ -1,5 +0,0 @@
-import { Integer } from "../types";
-import { ICharacter } from "../types/_character";
-export declare function numofchar(input: {
-    val: ICharacter | string;
-}): Integer;

package/build/src/builtin/repeat.d.ts

@@ -1,6 +0,0 @@
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function repeat(input: {
-    val: ICharacter | string;
-    occ: INumeric;
-}): ICharacter;

package/build/src/builtin/replace.d.ts

@@ -1,13 +0,0 @@
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-import { String } from "../types/string";
-export interface IReplaceInput {
-    val: string | ICharacter;
-    sub?: string | ICharacter;
-    with?: string | ICharacter;
-    regex?: string | ICharacter;
-    off?: INumeric;
-    len?: INumeric;
-    occ?: INumeric;
-}
-export declare function replace(input: IReplaceInput): String;

package/build/src/builtin/reverse.d.ts

@@ -1,5 +0,0 @@
-import { String } from "../types";
-import { ICharacter } from "../types/_character";
-export declare function reverse(input: {
-    val: ICharacter | string;
-}): String;

package/build/src/builtin/round.d.ts

@@ -1,8 +0,0 @@
-import { Float } from "../types";
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function round(input: {
-    val: ICharacter | string;
-    dec: INumeric | number;
-    mode?: INumeric | number;
-}): Float;

package/build/src/builtin/segment.d.ts

@@ -1,8 +0,0 @@
-import { String } from "../types";
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function segment(input: {
-    val: ICharacter | string;
-    index: INumeric | number;
-    sep: ICharacter | string;
-}): String;

package/build/src/builtin/shift_left.d.ts

@@ -1,9 +0,0 @@
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export interface IShiftLeftInput {
-    val: ICharacter | string;
-    sub?: ICharacter | string;
-    places?: ICharacter | INumeric | string;
-    circular?: INumeric;
-}
-export declare function shift_left(input: IShiftLeftInput): ICharacter;

package/build/src/builtin/shift_right.d.ts

@@ -1,9 +0,0 @@
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export interface IShiftRight {
-    val: ICharacter | string;
-    sub?: ICharacter | string;
-    places?: ICharacter | INumeric | string;
-    circular?: INumeric;
-}
-export declare function shift_right(input: IShiftRight): ICharacter;

package/build/src/builtin/sign.d.ts

@@ -1,5 +0,0 @@
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function sign(input: {
-    val: number | string | ICharacter | INumeric;
-}): number;

package/build/src/builtin/sin.d.ts

@@ -1,5 +0,0 @@
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function sin(input: {
-    val: number | string | ICharacter | INumeric;
-}): number;

package/build/src/builtin/sqrt.d.ts

@@ -1,5 +0,0 @@
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function sqrt(input: {
-    val: number | string | ICharacter | INumeric;
-}): number;

package/build/src/builtin/strlen.d.ts

@@ -1,5 +0,0 @@
-import { Integer } from "../types";
-import { ICharacter } from "../types/_character";
-export declare function strlen(input: {
-    val: ICharacter | string;
-}): Integer;

package/build/src/builtin/substring.d.ts

@@ -1,8 +0,0 @@
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export interface ISubstringInput {
-    val: ICharacter | string;
-    off?: INumeric;
-    len?: INumeric;
-}
-export declare function substring(input: ISubstringInput): ICharacter;

package/build/src/builtin/substring_after.d.ts

@@ -1,6 +0,0 @@
-import { ICharacter } from "../types/_character";
-export declare function substring_after(input: {
-    val: ICharacter | string;
-    sub?: ICharacter | string;
-    regex?: ICharacter | string;
-}): ICharacter;

package/build/src/builtin/substring_before.d.ts

@@ -1,6 +0,0 @@
-import { ICharacter } from "../types/_character";
-export declare function substring_before(input: {
-    val: ICharacter | string;
-    sub?: ICharacter | string;
-    regex?: ICharacter | string;
-}): ICharacter;

package/build/src/builtin/sy.d.ts

@@ -1,2 +0,0 @@
-import { Structure } from "../types";
-export declare const sy: Structure;

package/build/src/builtin/tan.d.ts

@@ -1,5 +0,0 @@
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function tan(input: {
-    val: number | string | ICharacter | INumeric;
-}): number;

package/build/src/builtin/to_lower.d.ts

@@ -1,4 +0,0 @@
-import { ICharacter } from "../types/_character";
-export declare function to_lower(input: {
-    val: ICharacter | string;
-}): ICharacter;

package/build/src/builtin/to_mixed.d.ts

@@ -1,9 +0,0 @@
-import { String } from "../types";
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function to_mixed(input: {
-    val: ICharacter | string;
-    sep?: ICharacter | string;
-    case?: ICharacter | string;
-    min?: INumeric | number;
-}): String;

package/build/src/builtin/to_upper.d.ts

@@ -1,4 +0,0 @@
-import { ICharacter } from "../types/_character";
-export declare function to_upper(input: {
-    val: ICharacter | string;
-}): ICharacter;

package/build/src/builtin/translate.d.ts

@@ -1,6 +0,0 @@
-import { ICharacter } from "../types/_character";
-export declare function translate(input: {
-    val: ICharacter | string;
-    from: ICharacter | string;
-    to: ICharacter | string;
-}): ICharacter;

package/build/src/builtin/trunc.d.ts

@@ -1,5 +0,0 @@
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function trunc(input: {
-    val: number | string | ICharacter | INumeric;
-}): number;

package/build/src/builtin/xstrlen.d.ts

@@ -1,5 +0,0 @@
-import { Hex, Integer, XString } from "../types";
-import { ICharacter } from "../types/_character";
-export declare function xstrlen(input: {
-    val: ICharacter | string | Hex | XString;
-}): Integer;

package/build/src/classic_error.d.ts

@@ -1,6 +0,0 @@
-export declare class ClassicError extends Error {
-    classic: string;
-    constructor(input: {
-        classic: string;
-    });
-}

package/build/src/clone.d.ts

@@ -1 +0,0 @@
-export declare function clone<T>(obj: T): T;

package/build/src/compare/assigned.d.ts

@@ -1,2 +0,0 @@
-import { FieldSymbol } from "../types";
-export declare function assigned(val: FieldSymbol): boolean;

package/build/src/compare/between.d.ts

@@ -1,2 +0,0 @@
-import { INumeric } from "../types/_numeric";
-export declare function between(left: number | INumeric, and1: number | INumeric, and2: number | INumeric): boolean;

package/build/src/compare/ca.d.ts

@@ -1,4 +0,0 @@
-import { Structure } from "../types";
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function ca(left: number | string | ICharacter | INumeric | Structure, right: string | ICharacter): boolean;

package/build/src/compare/cn.d.ts

@@ -1,3 +0,0 @@
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function cn(left: number | string | ICharacter | INumeric, right: string | ICharacter): boolean;

package/build/src/compare/co.d.ts

@@ -1,4 +0,0 @@
-import { Structure } from "../types";
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function co(left: number | string | ICharacter | INumeric, right: string | Structure | ICharacter): boolean;

package/build/src/compare/cp.d.ts

@@ -1,4 +0,0 @@
-import { Structure } from "../types";
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function cp(left: number | string | ICharacter | INumeric | Structure, right: string | ICharacter): boolean;

package/build/src/compare/cs.d.ts

@@ -1,3 +0,0 @@
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function cs(left: number | string | ICharacter | INumeric, right: string | ICharacter): boolean;

package/build/src/compare/eq.d.ts

@@ -1,4 +0,0 @@
-import { ABAPObject, FieldSymbol, Float, HashedTable, String, Hex, Structure, Table } from "../types";
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function eq(left: number | string | ICharacter | INumeric | Float | String | ABAPObject | Structure | Hex | HashedTable | Table | FieldSymbol, right: number | string | ICharacter | INumeric | Float | String | ABAPObject | Structure | Hex | HashedTable | Table | FieldSymbol): boolean;

package/build/src/compare/ge.d.ts

@@ -1,3 +0,0 @@
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function ge(left: number | string | ICharacter | INumeric, right: number | string | ICharacter | INumeric): boolean;

package/build/src/compare/gt.d.ts

@@ -1,4 +0,0 @@
-import { ABAPObject, HashedTable, Structure, Table } from "../types";
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function gt(left: number | string | ICharacter | INumeric | ABAPObject | Structure | Table | HashedTable, right: number | string | ICharacter | INumeric | ABAPObject | Structure | Table | HashedTable): boolean;

package/build/src/compare/in.d.ts

@@ -1,4 +0,0 @@
-import { Table } from "../types";
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function compareIn(left: number | string | ICharacter | INumeric, right: Table): boolean;

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

@@ -1,22 +0,0 @@
-export * from "./assigned";
-export * from "./between";
-export * from "./ca";
-export * from "./cn";
-export * from "./co";
-export * from "./cp";
-export * from "./cs";
-export * from "./eq";
-export * from "./ge";
-export * from "./gt";
-export * from "./initial";
-export * from "./instance_of";
-export * from "./le";
-export * from "./lt";
-export * from "./m";
-export * from "./na";
-export * from "./ne";
-export * from "./np";
-export * from "./ns";
-export * from "./o";
-export * from "./z";
-export { compareIn as in } from "./in";

package/build/src/compare/initial.d.ts

@@ -1,4 +0,0 @@
-import { ABAPObject, DataReference, FieldSymbol, Structure, Table } from "../types";
-import { ICharacter } from "../types/_character";
-import { INumeric } from "../types/_numeric";
-export declare function initial(val: ICharacter | INumeric | string | number | Structure | DataReference | FieldSymbol | Table | ABAPObject): boolean;

package/build/src/compare/instance_of.d.ts

@@ -1,2 +0,0 @@
-import { ABAPObject } from "../types";
-export declare function instance_of(val: ABAPObject, cname: any): boolean;