bugfix CALL TRANSFORMATION (#957)

Author: larshp

package.json

@@ -15,11 +15,11 @@
   },
   "license": "MIT",
   "dependencies": {
-    "@abaplint/cli": "^2.113.110",
+    "@abaplint/cli": "^2.113.119",
     "@abaplint/database-pg": "^2.10.24",
     "@abaplint/database-sqlite": "^2.10.24",
-    "@abaplint/runtime": "^2.10.49",
-    "@abaplint/transpiler-cli": "^2.10.49",
+    "@abaplint/runtime": "^2.10.55",
+    "@abaplint/transpiler-cli": "^2.10.55",
     "0x": "^5.8.0"
   }
 }

src/kernel/call_transformation/kernel_call_transformation.clas.abap

@@ -74,6 +74,9 @@ CLASS kernel_call_transformation IMPLEMENTATION.
       IF lv_source(1) = '<'
           OR ( strlen( lv_source ) > 1 AND ( lv_source(1) = lv_bom_big OR lv_source(1) = lv_bom_little ) AND lv_source+1(1) = '<' ).
         lv_type = 'XML'.
+        IF lv_source(1) = lv_bom_big OR lv_source(1) = lv_bom_little.
+          lv_source = lv_source+1.
+        ENDIF.
         parse_xml( lv_source ).
       ELSEIF lv_source(1) = '{' OR lv_source(1) = '['.
         lv_type = 'JSON'.

src/kernel/call_transformation/kernel_call_transformation.clas.testclasses.abap

@@ -131,6 +131,7 @@ CLASS ltcl_call_transformation DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATI
     METHODS xml_to_xml_rm_header_bom FOR TESTING RAISING cx_static_check.
     METHODS byte_order_mark_big FOR TESTING RAISING cx_static_check.
     METHODS byte_order_mark_little FOR TESTING RAISING cx_static_check.
+    METHODS dot_abapgit FOR TESTING RAISING cx_static_check.
 ENDCLASS.
 
 CLASS ltcl_call_transformation IMPLEMENTATION.
@@ -1196,4 +1197,45 @@ CLASS ltcl_call_transformation IMPLEMENTATION.
 
   ENDMETHOD.
 
+  METHOD dot_abapgit.
+
+    DATA lv_xml TYPE string.
+    DATA: BEGIN OF rs_data,
+            starting_folder TYPE string,
+          END OF rs_data.
+    DATA lv_str_bom TYPE string.
+    DATA lv_hex_bom TYPE xstring.
+
+    lv_hex_bom = cl_abap_char_utilities=>byte_order_mark_big.
+    lv_str_bom = cl_abap_codepage=>convert_from(
+      source   = lv_hex_bom
+      codepage = 'UTF-16' ).
+
+    lv_xml = |{ lv_str_bom }<?xml version="1.0" encoding="utf-8"?>| &&
+             |<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">| &&
+             | <asx:values>| &&
+             |  <DATA>| &&
+             |   <MASTER_LANGUAGE>E</MASTER_LANGUAGE>| &&
+             |   <STARTING_FOLDER>/src/</STARTING_FOLDER>| &&
+             |   <FOLDER_LOGIC>PREFIX</FOLDER_LOGIC>| &&
+             |   <IGNORE>| &&
+             |    <item>/LICENSE</item>| &&
+             |    <item>/README.md</item>| &&
+             |    <item>/abaplint.json</item>| &&
+             |   </IGNORE>| &&
+             |  </DATA>| &&
+             | </asx:values>| &&
+             |</asx:abap>|.
+
+    CALL TRANSFORMATION id
+      OPTIONS value_handling = 'accept_data_loss'
+      SOURCE XML lv_xml
+      RESULT data = rs_data.
+
+    cl_abap_unit_assert=>assert_equals(
+      act = rs_data-starting_folder
+      exp = '/src/' ).
+
+  ENDMETHOD.
+
 ENDCLASS.