@abaplint/core 2.119.0 → 2.119.2

package/build/src/abap/2_statements/expressions/sql_field_name.js

@@ -4,7 +4,7 @@ exports.SQLFieldName = void 0;
 const combi_1 = require("../combi");
 class SQLFieldName extends combi_1.Expression {
     getRunnable() {
-        return (0, combi_1.regex)(/^(?!(?:SINGLE|INTO|DISTINCT|AS|WHERE|FOR|HAVING|APPENDING|UP|FROM)$)(\/\w+\/)?(\w+~(\/\w+\/)?(\w+|\*)|\w+)$/i);
+        return (0, combi_1.regex)(/^(?!(?:SINGLE|INTO|DISTINCT|AS|WHERE|FOR|HAVING|APPENDING|UP|FROM)$)(\/\w+\/)?(\*?\w+~(\/\w+\/)?(\w+|\*)|\w+)$/i);
     }
 }
 exports.SQLFieldName = SQLFieldName;

package/build/src/abap/2_statements/expressions/sql_function.js

@@ -36,7 +36,9 @@ class SQLFunction extends combi_1.Expression {
         const dats_add_months = (0, combi_1.ver)(version_1.Version.v754, (0, combi_1.seq)((0, combi_1.regex)(/^dats_add_months$/i), (0, combi_1.tok)(tokens_1.ParenLeftW), sql_function_input_1.SQLFunctionInput, commaParam, (0, combi_1.tok)(tokens_1.WParenRightW)));
         const ltrim = (0, combi_1.ver)(version_1.Version.v750, (0, combi_1.seq)((0, combi_1.regex)(/^ltrim$/i), (0, combi_1.tok)(tokens_1.ParenLeftW), sql_function_input_1.SQLFunctionInput, commaParam, (0, combi_1.tok)(tokens_1.WParenRightW)));
         const rtrim = (0, combi_1.ver)(version_1.Version.v750, (0, combi_1.seq)((0, combi_1.regex)(/^rtrim$/i), (0, combi_1.tok)(tokens_1.ParenLeftW), sql_function_input_1.SQLFunctionInput, commaParam, (0, combi_1.tok)(tokens_1.WParenRightW)));
-        return (0, combi_1.altPrio)(uuid, abs, ceil, floor, cast, div, mod, coalesce, concat, replace, length, lower, upper, round, concat_with_space, ltrim, rtrim, substring, dats_is_valid, dats_days_between, dats_add_days, dats_add_months);
+        const right = (0, combi_1.ver)(version_1.Version.v750, (0, combi_1.seq)((0, combi_1.regex)(/^right$/i), (0, combi_1.tok)(tokens_1.ParenLeftW), sql_function_input_1.SQLFunctionInput, commaParam, (0, combi_1.tok)(tokens_1.WParenRightW)));
+        const left = (0, combi_1.ver)(version_1.Version.v751, (0, combi_1.seq)((0, combi_1.regex)(/^left$/i), (0, combi_1.tok)(tokens_1.ParenLeftW), sql_function_input_1.SQLFunctionInput, commaParam, (0, combi_1.tok)(tokens_1.WParenRightW)));
+        return (0, combi_1.altPrio)(uuid, abs, ceil, floor, cast, div, mod, coalesce, concat, replace, length, lower, upper, round, concat_with_space, ltrim, rtrim, right, left, substring, dats_is_valid, dats_days_between, dats_add_days, dats_add_months);
     }
 }
 exports.SQLFunction = SQLFunction;

package/build/src/abap/2_statements/statements/at_selection_screen.js

@@ -12,7 +12,7 @@ class AtSelectionScreen {
         const field = (0, combi_1.seq)("ON", expressions_1.FieldSub);
         const end = (0, combi_1.seq)("ON END OF", expressions_1.Field);
         const radio = (0, combi_1.seq)("ON RADIOBUTTON GROUP", expressions_1.Field);
-        const block = (0, combi_1.seq)("ON BLOCK", (0, combi_1.regex)(/^\w+$/));
+        const block = (0, combi_1.seq)("ON BLOCK", expressions_1.BlockName);
         const help = (0, combi_1.seq)("ON HELP-REQUEST FOR", expressions_1.FieldSub);
         const ret = (0, combi_1.seq)("AT SELECTION-SCREEN", (0, combi_1.opt)((0, combi_1.alt)(output, value, radio, exit, field, end, help, block)));
         return (0, combi_1.verNot)(version_1.Version.Cloud, ret);

package/build/src/abap/5_syntax/_type_utils.js

@@ -431,7 +431,11 @@ class TypeUtils {
             }
         }
         else if (source instanceof basic_1.TableType) {
-            if (target instanceof basic_1.TableType) {
+            if (source.getRowType() instanceof basic_1.AnyType) {
+                // then its a generic table, todo: add top level generic table type?
+                return true;
+            }
+            else if (target instanceof basic_1.TableType) {
                 const sourceKeyType = source.getOptions().keyType;
                 const targetKeyType = target.getOptions().keyType;
                 if (sourceKeyType !== targetKeyType

package/build/src/abap/5_syntax/expressions/form_param.js

@@ -9,7 +9,7 @@ const assert_error_1 = require("../assert_error");
 const tokens_1 = require("../../1_lexer/tokens");
 class FormParam {
     static runSyntax(node, input) {
-        var _a, _b;
+        var _a, _b, _c;
         const formParamName = node.findFirstExpression(expressions_1.FormParamName);
         if (formParamName === undefined) {
             throw new assert_error_1.AssertError("FormParam, could not find FormParamName");
@@ -37,7 +37,13 @@ class FormParam {
             // untyped FORM parameter
             return new _typed_identifier_1.TypedIdentifier(nameToken, input.filename, basic_1.AnyType.get(), ["form_parameter" /* IdentifierMeta.FormParameter */]);
         }
-        const bfound = new basic_types_1.BasicTypes(input).parseType(node);
+        let bfound = new basic_types_1.BasicTypes(input).parseType(node);
+        const isTypeC = ((_c = node.findFirstExpression(expressions_1.TypeName)) === null || _c === void 0 ? void 0 : _c.concatTokens().toUpperCase()) === "C";
+        const hasExplicitLength = node.findFirstExpression(expressions_1.Length) !== undefined
+            || node.findFirstExpression(expressions_1.ConstantFieldLength) !== undefined;
+        if (isTypeC && hasExplicitLength === false && bfound instanceof basic_1.CharacterType) {
+            bfound = basic_1.CGenericType.get();
+        }
         if (nameToken && bfound) {
             return new _typed_identifier_1.TypedIdentifier(nameToken, input.filename, bfound, ["form_parameter" /* IdentifierMeta.FormParameter */]);
         }

package/build/src/registry.js

@@ -74,7 +74,7 @@ class Registry {
     }
     static abaplintVersion() {
         // magic, see build script "version.sh"
-        return "2.119.0";
+        return "2.119.2";
     }
     getDDICReferences() {
         return this.ddicReferences;

package/package.json

@@ -1,6 +1,6 @@
 {
     "name": "@abaplint/core",
-    "version": "2.119.0",
+    "version": "2.119.2",
     "description": "abaplint - Core API",
     "main": "build/src/index.js",
     "typings": "build/abaplint.d.ts",