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

naming conventions

Browse Source
This commit is contained in:
larshp 2018-11-07 14:07:39 +00:00 committed by Lars Hvam
parent 06616580eb
commit 28ae85e270
1 changed files with 56 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,13 +17,12 @@ CLASS zcl_abapgit_object_ssfo DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
METHODS handle_attrib_leading_spaces IMPORTING iv_name TYPE string METHODS handle_attrib_leading_spaces IMPORTING iv_name TYPE string
ii_node TYPE REF TO if_ixml_node ii_node TYPE REF TO if_ixml_node
CHANGING cv_within_code_section TYPE abap_bool. CHANGING cv_within_code_section TYPE abap_bool.
METHODS get_range_node_codes RETURNING VALUE(e_range_node_codes) TYPE ty_string_range. METHODS get_range_node_codes RETURNING VALUE(rt_range_node_codes) TYPE ty_string_range.
METHODS code_item_section_handling IMPORTING iv_name TYPE string METHODS code_item_section_handling IMPORTING iv_name TYPE string
ii_node TYPE REF TO if_ixml_node ii_node TYPE REF TO if_ixml_node
EXPORTING ei_code_item_element TYPE REF TO if_ixml_element EXPORTING ei_code_item_element TYPE REF TO if_ixml_element
CHANGING cv_within_code_section TYPE abap_bool CHANGING cv_within_code_section TYPE abap_bool
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
ENDCLASS. ENDCLASS.
@ -133,43 +132,43 @@ CLASS ZCL_ABAPGIT_OBJECT_SSFO IMPLEMENTATION.
METHOD get_range_node_codes. METHOD get_range_node_codes.
DATA: range_node_code TYPE LINE OF ty_string_range. DATA: ls_range_node_code TYPE LINE OF ty_string_range.
IF me->range_node_codes IS INITIAL. IF me->range_node_codes IS INITIAL.
range_node_code-sign = 'I'. ls_range_node_code-sign = 'I'.
range_node_code-option = 'EQ'. ls_range_node_code-option = 'EQ'.
range_node_code-low = 'CODE'. ls_range_node_code-low = 'CODE'.
INSERT range_node_code INTO TABLE me->range_node_codes. INSERT ls_range_node_code INTO TABLE me->range_node_codes.
range_node_code-low = 'GTYPES'. ls_range_node_code-low = 'GTYPES'.
INSERT range_node_code INTO TABLE me->range_node_codes. INSERT ls_range_node_code INTO TABLE me->range_node_codes.
range_node_code-low = 'GCODING'. ls_range_node_code-low = 'GCODING'.
INSERT range_node_code INTO TABLE me->range_node_codes. INSERT ls_range_node_code INTO TABLE me->range_node_codes.
range_node_code-low = 'FCODING'. ls_range_node_code-low = 'FCODING'.
INSERT range_node_code INTO TABLE me->range_node_codes. INSERT ls_range_node_code INTO TABLE me->range_node_codes.
ENDIF. ENDIF.
e_range_node_codes = me->range_node_codes. rt_range_node_codes = me->range_node_codes.
ENDMETHOD. ENDMETHOD.
METHOD handle_attrib_leading_spaces. METHOD handle_attrib_leading_spaces.
DATA element TYPE REF TO if_ixml_element. DATA li_element TYPE REF TO if_ixml_element.
DATA leading_spaces TYPE string. DATA lv_leading_spaces TYPE string.
DATA coding_line TYPE string. DATA lv_coding_line TYPE string.
TRY. TRY.
code_item_section_handling( EXPORTING iv_name = iv_name code_item_section_handling( EXPORTING iv_name = iv_name
ii_node = ii_node ii_node = ii_node
IMPORTING ei_code_item_element = element IMPORTING ei_code_item_element = li_element
CHANGING cv_within_code_section = cv_within_code_section ). CHANGING cv_within_code_section = cv_within_code_section ).
leading_spaces = element->get_attribute_ns( name = zcl_abapgit_object_ssfo=>attrib_abapgit_leadig_spaces ). lv_leading_spaces = li_element->get_attribute_ns( name = zcl_abapgit_object_ssfo=>attrib_abapgit_leadig_spaces ).
coding_line = element->get_value( ). lv_coding_line = li_element->get_value( ).
SHIFT coding_line RIGHT BY leading_spaces PLACES. SHIFT lv_coding_line RIGHT BY lv_leading_spaces PLACES.
element->set_value( coding_line ). li_element->set_value( lv_coding_line ).
CATCH zcx_abapgit_exception ##no_handler. CATCH zcx_abapgit_exception ##no_handler.
ENDTRY. ENDTRY.
@ -178,24 +177,24 @@ CLASS ZCL_ABAPGIT_OBJECT_SSFO IMPLEMENTATION.
METHOD set_attribute_leading_spaces. METHOD set_attribute_leading_spaces.
DATA: element TYPE REF TO if_ixml_element. DATA: li_element TYPE REF TO if_ixml_element.
DATA: code_line TYPE string. DATA: lv_code_line TYPE string.
DATA: offset TYPE i. DATA: lv_offset TYPE i.
TRY. TRY.
code_item_section_handling( EXPORTING iv_name = iv_name code_item_section_handling( EXPORTING iv_name = iv_name
ii_node = ii_node ii_node = ii_node
IMPORTING ei_code_item_element = element IMPORTING ei_code_item_element = li_element
CHANGING cv_within_code_section = cv_within_code_section ). CHANGING cv_within_code_section = cv_within_code_section ).
code_line = ii_node->get_value( ). lv_code_line = ii_node->get_value( ).
"find 1st non space char "find 1st non space char
FIND FIRST OCCURRENCE OF REGEX '\S' IN code_line MATCH OFFSET offset. FIND FIRST OCCURRENCE OF REGEX '\S' IN lv_code_line MATCH OFFSET lv_offset.
IF sy-subrc = 0 AND offset > 0. IF sy-subrc = 0 AND lv_offset > 0.
TRY. TRY.
element ?= ii_node. li_element ?= ii_node.
element->set_attribute( name = zcl_abapgit_object_ssfo=>attrib_abapgit_leadig_spaces li_element->set_attribute( name = zcl_abapgit_object_ssfo=>attrib_abapgit_leadig_spaces
value = |{ offset }| ). value = |{ lv_offset }| ).
CATCH cx_sy_move_cast_error ##no_handler. CATCH cx_sy_move_cast_error ##no_handler.
ENDTRY. ENDTRY.
@ -253,8 +252,8 @@ CLASS ZCL_ABAPGIT_OBJECT_SSFO IMPLEMENTATION.
lo_sf TYPE REF TO cl_ssf_fb_smart_form, lo_sf TYPE REF TO cl_ssf_fb_smart_form,
lo_res TYPE REF TO cl_ssf_fb_smart_form, lo_res TYPE REF TO cl_ssf_fb_smart_form,
lx_error TYPE REF TO cx_ssf_fb, lx_error TYPE REF TO cx_ssf_fb,
lv_text TYPE string. lv_text TYPE string,
DATA: within_code_section TYPE abap_bool. lv_within_code_section TYPE abap_bool.
CREATE OBJECT lo_sf. CREATE OBJECT lo_sf.
@ -277,7 +276,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SSFO IMPLEMENTATION.
handle_attrib_leading_spaces( EXPORTING iv_name = lv_name handle_attrib_leading_spaces( EXPORTING iv_name = lv_name
ii_node = li_node ii_node = li_node
CHANGING cv_within_code_section = within_code_section ). CHANGING cv_within_code_section = lv_within_code_section ).
li_node = li_iterator->get_next( ). li_node = li_iterator->get_next( ).
ENDWHILE. ENDWHILE.
@ -335,16 +334,18 @@ CLASS ZCL_ABAPGIT_OBJECT_SSFO IMPLEMENTATION.
METHOD zif_abapgit_object~is_active. METHOD zif_abapgit_object~is_active.
DATA: ssfo_formname TYPE tdsfname. DATA: lv_ssfo_formname TYPE tdsfname.
lv_ssfo_formname = ms_item-obj_name.
ssfo_formname = ms_item-obj_name.
CALL FUNCTION 'SSF_STATUS_INFO' CALL FUNCTION 'SSF_STATUS_INFO'
EXPORTING EXPORTING
i_formname = ssfo_formname i_formname = lv_ssfo_formname
IMPORTING IMPORTING
o_inactive = ms_item-inactive. o_inactive = ms_item-inactive.
rv_active = boolc( ms_item-inactive = abap_false ). rv_active = boolc( ms_item-inactive = abap_false ).
ENDMETHOD. ENDMETHOD.
@ -426,8 +427,8 @@ CLASS ZCL_ABAPGIT_OBJECT_SSFO IMPLEMENTATION.
li_iterator TYPE REF TO if_ixml_node_iterator, li_iterator TYPE REF TO if_ixml_node_iterator,
lv_formname TYPE tdsfname, lv_formname TYPE tdsfname,
li_ixml TYPE REF TO if_ixml, li_ixml TYPE REF TO if_ixml,
li_xml_doc TYPE REF TO if_ixml_document. li_xml_doc TYPE REF TO if_ixml_document,
DATA: within_code_section TYPE abap_bool. lv_within_code_section TYPE abap_bool.
li_ixml = cl_ixml=>create( ). li_ixml = cl_ixml=>create( ).
li_xml_doc = li_ixml->create_document( ). li_xml_doc = li_ixml->create_document( ).
@ -461,7 +462,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SSFO IMPLEMENTATION.
ENDIF. ENDIF.
set_attribute_leading_spaces( EXPORTING iv_name = lv_name set_attribute_leading_spaces( EXPORTING iv_name = lv_name
ii_node = li_node ii_node = li_node
CHANGING cv_within_code_section = within_code_section ). CHANGING cv_within_code_section = lv_within_code_section ).
li_node = li_iterator->get_next( ). li_node = li_iterator->get_next( ).
ENDWHILE. ENDWHILE.