SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 12:20:51 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

SSFO fixes for leading spaces #2640

Browse Source
This commit is contained in:
larshp 2019-04-22 09:37:03 +00:00 committed by Lars Hvam
parent 2b7bb5da38
commit 3084bb2c60
1 changed files with 29 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
src/objects/zcl_abapgit_object_ssfo.clas.abap
View File

@ -165,12 +165,15 @@ CLASS ZCL_ABAPGIT_OBJECT_SSFO IMPLEMENTATION.
IMPORTING ei_code_item_element = li_element
CHANGING cv_within_code_section = cv_within_code_section ).
* for downwards compatibility, this code can be removed sometime in the future
lv_leading_spaces = li_element->get_attribute_ns(
name = zcl_abapgit_object_ssfo=>attrib_abapgit_leadig_spaces ).
lv_coding_line = li_element->get_value( ).
SHIFT lv_coding_line RIGHT BY lv_leading_spaces PLACES.
li_element->set_value( lv_coding_line ).
IF strlen( lv_coding_line ) >= 1 AND lv_coding_line(1) <> | |.
SHIFT lv_coding_line RIGHT BY lv_leading_spaces PLACES.
li_element->set_value( lv_coding_line ).
ENDIF.
CATCH zcx_abapgit_exception ##no_handler.
ENDTRY.
@ -179,30 +182,30 @@ CLASS ZCL_ABAPGIT_OBJECT_SSFO IMPLEMENTATION.
METHOD set_attribute_leading_spaces.
DATA: li_element TYPE REF TO if_ixml_element.
DATA: lv_code_line TYPE string.
DATA: lv_offset TYPE i.
TRY.
code_item_section_handling( EXPORTING iv_name = iv_name
ii_node = ii_node
IMPORTING ei_code_item_element = li_element
CHANGING cv_within_code_section = cv_within_code_section ).
lv_code_line = ii_node->get_value( ).
"find 1st non space char
FIND FIRST OCCURRENCE OF REGEX '\S' IN lv_code_line MATCH OFFSET lv_offset.
IF sy-subrc = 0 AND lv_offset > 0.
TRY.
li_element ?= ii_node.
li_element->set_attribute( name = zcl_abapgit_object_ssfo=>attrib_abapgit_leadig_spaces
value = |{ lv_offset }| ).
CATCH cx_sy_move_cast_error ##no_handler.
ENDTRY.
ENDIF.
CATCH zcx_abapgit_exception ##no_handler.
ENDTRY.
* DATA: li_element TYPE REF TO if_ixml_element.
* DATA: lv_code_line TYPE string.
* DATA: lv_offset TYPE i.
*
* TRY.
* code_item_section_handling( EXPORTING iv_name = iv_name
* ii_node = ii_node
* IMPORTING ei_code_item_element = li_element
* CHANGING cv_within_code_section = cv_within_code_section ).
*
* lv_code_line = ii_node->get_value( ).
* "find 1st non space char
* FIND FIRST OCCURRENCE OF REGEX '\S' IN lv_code_line MATCH OFFSET lv_offset.
* IF sy-subrc = 0 AND lv_offset > 0.
* TRY.
* li_element ?= ii_node.
* li_element->set_attribute( name = zcl_abapgit_object_ssfo=>attrib_abapgit_leadig_spaces
* value = |{ lv_offset }| ).
*
* CATCH cx_sy_move_cast_error ##no_handler.
* ENDTRY.
* ENDIF.
* CATCH zcx_abapgit_exception ##no_handler.
* ENDTRY.
ENDMETHOD.