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

Refactor: Naming of class constants (#6529)

Browse Source
This commit is contained in:
Marc Bernard 2023-10-04 09:20:07 -04:00 committed by GitHub
parent 6a792ddc6a
commit caaa543b37
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
16 changed files with 89 additions and 82 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
abaplint.json
View File

@ -268,8 +268,9 @@
"ignoreInterfaces": false, "ignoreInterfaces": false,
"statics": "^G._.*$", "statics": "^G._.*$",
"ignoreLocal": false, "ignoreLocal": false,
"constants": "", "constants": "^C_.*$",
"instance": "^M._.*$" "instance": "^M._.*$",
"exclude": ["zif_abapgit_objects", "/json/"]
}, },
"cloud_types": true, "cloud_types": true,
"colon_missing_space": true, "colon_missing_space": true,

49
src/background/zcl_abapgit_background.clas.abap
View File

@ -25,7 +25,7 @@ CLASS zcl_abapgit_background DEFINITION
CLASS-METHODS dequeue. CLASS-METHODS dequeue.
PROTECTED SECTION. PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
CONSTANTS gc_enq_type TYPE c LENGTH 12 VALUE 'BACKGROUND'. CONSTANTS c_enq_type TYPE c LENGTH 12 VALUE 'BACKGROUND'.
ENDCLASS. ENDCLASS.
@ -33,6 +33,30 @@ ENDCLASS.
CLASS zcl_abapgit_background IMPLEMENTATION. CLASS zcl_abapgit_background IMPLEMENTATION.
METHOD dequeue.
CALL FUNCTION 'DEQUEUE_EZABAPGIT'
EXPORTING
type = c_enq_type.
ENDMETHOD.
METHOD enqueue.
CALL FUNCTION 'ENQUEUE_EZABAPGIT'
EXPORTING
mode_zabapgit = 'E'
type = c_enq_type
_scope = '3'
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD list_methods. METHOD list_methods.
DATA: ls_method LIKE LINE OF rt_methods, DATA: ls_method LIKE LINE OF rt_methods,
@ -136,27 +160,4 @@ CLASS zcl_abapgit_background IMPLEMENTATION.
dequeue( ). dequeue( ).
ENDMETHOD. ENDMETHOD.
METHOD enqueue.
CALL FUNCTION 'ENQUEUE_EZABAPGIT'
EXPORTING
mode_zabapgit = 'E'
type = gc_enq_type
_scope = '3'
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
METHOD dequeue.
CALL FUNCTION 'DEQUEUE_EZABAPGIT'
EXPORTING
type = gc_enq_type.
ENDMETHOD.
ENDCLASS. ENDCLASS.

14
src/objects/aff/zcl_abapgit_object_evtb.clas.abap
View File

@ -10,26 +10,28 @@ CLASS zcl_abapgit_object_evtb DEFINITION
PROTECTED SECTION. PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
CONSTANTS: CONSTANTS:
co_table_name TYPE tabname VALUE 'EVTB_HEADER'. c_table_name TYPE tabname VALUE 'EVTB_HEADER'.
ENDCLASS. ENDCLASS.
CLASS zcl_abapgit_object_evtb IMPLEMENTATION. CLASS zcl_abapgit_object_evtb IMPLEMENTATION.
METHOD zif_abapgit_object~changed_by. METHOD zif_abapgit_object~changed_by.
DATA: lv_user TYPE string, DATA: lv_user TYPE string,
lx_error TYPE REF TO cx_root. lx_error TYPE REF TO cx_root.
TRY. TRY.
SELECT SINGLE changed_by INTO lv_user SELECT SINGLE changed_by INTO lv_user
FROM (co_table_name) FROM (c_table_name)
WHERE evtb_name = ms_item-obj_name AND version = 'I'. WHERE evtb_name = ms_item-obj_name AND version = 'I'.
IF lv_user IS INITIAL. IF lv_user IS INITIAL.
SELECT SINGLE changed_by INTO lv_user SELECT SINGLE changed_by INTO lv_user
FROM (co_table_name) FROM (c_table_name)
WHERE evtb_name = ms_item-obj_name AND version = 'A'. WHERE evtb_name = ms_item-obj_name AND version = 'A'.
ENDIF. ENDIF.
@ -40,6 +42,4 @@ CLASS zcl_abapgit_object_evtb IMPLEMENTATION.
ENDTRY. ENDTRY.
ENDMETHOD. ENDMETHOD.
ENDCLASS. ENDCLASS.

9
src/objects/aff/zcl_abapgit_object_nont.clas.abap
View File

@ -6,13 +6,16 @@ CLASS zcl_abapgit_object_nont DEFINITION
PUBLIC SECTION. PUBLIC SECTION.
METHODS zif_abapgit_object~changed_by REDEFINITION. METHODS zif_abapgit_object~changed_by REDEFINITION.
PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
CONSTANTS co_table_name TYPE tabname VALUE 'NONT_HEADER'. CONSTANTS c_table_name TYPE tabname VALUE 'NONT_HEADER'.
ENDCLASS. ENDCLASS.
CLASS zcl_abapgit_object_nont IMPLEMENTATION. CLASS zcl_abapgit_object_nont IMPLEMENTATION.
METHOD zif_abapgit_object~changed_by. METHOD zif_abapgit_object~changed_by.
DATA: lv_user TYPE string, DATA: lv_user TYPE string,
lx_error TYPE REF TO cx_root. lx_error TYPE REF TO cx_root.
@ -20,12 +23,12 @@ CLASS zcl_abapgit_object_nont IMPLEMENTATION.
TRY. TRY.
SELECT SINGLE changed_by INTO lv_user SELECT SINGLE changed_by INTO lv_user
FROM (co_table_name) FROM (c_table_name)
WHERE nont_name = ms_item-obj_name AND version = 'I'. WHERE nont_name = ms_item-obj_name AND version = 'I'.
IF lv_user IS INITIAL. IF lv_user IS INITIAL.
SELECT SINGLE changed_by INTO lv_user SELECT SINGLE changed_by INTO lv_user
FROM (co_table_name) FROM (c_table_name)
WHERE nont_name = ms_item-obj_name AND version = 'A'. WHERE nont_name = ms_item-obj_name AND version = 'A'.
ENDIF. ENDIF.

9
src/objects/aff/zcl_abapgit_object_ront.clas.abap
View File

@ -6,13 +6,16 @@ CLASS zcl_abapgit_object_ront DEFINITION
PUBLIC SECTION. PUBLIC SECTION.
METHODS zif_abapgit_object~changed_by REDEFINITION. METHODS zif_abapgit_object~changed_by REDEFINITION.
PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
CONSTANTS co_table_name TYPE tabname VALUE 'RONT_HEADER'. CONSTANTS c_table_name TYPE tabname VALUE 'RONT_HEADER'.
ENDCLASS. ENDCLASS.
CLASS zcl_abapgit_object_ront IMPLEMENTATION. CLASS zcl_abapgit_object_ront IMPLEMENTATION.
METHOD zif_abapgit_object~changed_by. METHOD zif_abapgit_object~changed_by.
DATA: lv_user TYPE string, DATA: lv_user TYPE string,
lx_error TYPE REF TO cx_root. lx_error TYPE REF TO cx_root.
@ -20,12 +23,12 @@ CLASS zcl_abapgit_object_ront IMPLEMENTATION.
TRY. TRY.
SELECT SINGLE changed_by INTO lv_user SELECT SINGLE changed_by INTO lv_user
FROM (co_table_name) FROM (c_table_name)
WHERE ront_name = ms_item-obj_name AND version = 'I'. WHERE ront_name = ms_item-obj_name AND version = 'I'.
IF lv_user IS INITIAL. IF lv_user IS INITIAL.
SELECT SINGLE changed_by INTO lv_user SELECT SINGLE changed_by INTO lv_user
FROM (co_table_name) FROM (c_table_name)
WHERE ront_name = ms_item-obj_name AND version = 'A'. WHERE ront_name = ms_item-obj_name AND version = 'A'.
ENDIF. ENDIF.

6
src/objects/ecatt/zcl_abapgit_ecatt_helper.clas.abap
View File

@ -32,7 +32,7 @@ CLASS zcl_abapgit_ecatt_helper DEFINITION
PROTECTED SECTION. PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
CONSTANTS: CONSTANTS:
co_xml TYPE i VALUE 1. " downport of if_apl_ecatt_xml=>co_xml c_xml TYPE i VALUE 1. " downport of if_apl_ecatt_xml=>co_xml
ENDCLASS. ENDCLASS.
@ -85,7 +85,7 @@ CLASS zcl_abapgit_ecatt_helper IMPLEMENTATION.
TRY. TRY.
CALL METHOD cl_apl_ecatt_xml=>('CREATE') " doesn't exist in 702 CALL METHOD cl_apl_ecatt_xml=>('CREATE') " doesn't exist in 702
EXPORTING EXPORTING
im_type = co_xml im_type = c_xml
RECEIVING RECEIVING
re_xml = lo_xml. re_xml = lo_xml.
@ -114,7 +114,7 @@ CLASS zcl_abapgit_ecatt_helper IMPLEMENTATION.
CALL METHOD cl_apl_ecatt_xml=>('CREATE') " doesn't exist in 702 CALL METHOD cl_apl_ecatt_xml=>('CREATE') " doesn't exist in 702
EXPORTING EXPORTING
im_type = co_xml im_type = c_xml
RECEIVING RECEIVING
re_xml = lo_xml. re_xml = lo_xml.

10
src/objects/zcl_abapgit_object_apis.clas.abap
View File

@ -18,14 +18,14 @@ CLASS zcl_abapgit_object_apis DEFINITION
PROTECTED SECTION. PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
CONSTANTS gc_model TYPE string VALUE 'ARS_S_API_ABAPGIT'. CONSTANTS c_model TYPE string VALUE 'ARS_S_API_ABAPGIT'.
DATA mo_handler TYPE REF TO object. DATA mo_handler TYPE REF TO object.
METHODS initialize. METHODS initialize.
ENDCLASS. ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_APIS IMPLEMENTATION. CLASS zcl_abapgit_object_apis IMPLEMENTATION.
METHOD constructor. METHOD constructor.
@ -36,7 +36,7 @@ CLASS ZCL_ABAPGIT_OBJECT_APIS IMPLEMENTATION.
iv_language = iv_language ). iv_language = iv_language ).
TRY. TRY.
CREATE DATA lr_data TYPE (gc_model). CREATE DATA lr_data TYPE (c_model).
CATCH cx_sy_create_error. CATCH cx_sy_create_error.
zcx_abapgit_exception=>raise( |APIS not supported by your NW release| ). zcx_abapgit_exception=>raise( |APIS not supported by your NW release| ).
ENDTRY. ENDTRY.
@ -110,7 +110,7 @@ CLASS ZCL_ABAPGIT_OBJECT_APIS IMPLEMENTATION.
FIELD-SYMBOLS <lv_simple> TYPE simple. FIELD-SYMBOLS <lv_simple> TYPE simple.
CREATE DATA lr_data TYPE (gc_model). CREATE DATA lr_data TYPE (c_model).
ASSIGN lr_data->* TO <ls_data>. ASSIGN lr_data->* TO <ls_data>.
CREATE DATA lr_data TYPE ('IF_ARS_STATE_DB_ACCESS=>TY_S_HEADER'). CREATE DATA lr_data TYPE ('IF_ARS_STATE_DB_ACCESS=>TY_S_HEADER').
ASSIGN lr_data->* TO <ls_header>. ASSIGN lr_data->* TO <ls_header>.
@ -237,7 +237,7 @@ CLASS ZCL_ABAPGIT_OBJECT_APIS IMPLEMENTATION.
DATA lr_data TYPE REF TO data. DATA lr_data TYPE REF TO data.
FIELD-SYMBOLS <ls_data> TYPE any. FIELD-SYMBOLS <ls_data> TYPE any.
CREATE DATA lr_data TYPE (gc_model). CREATE DATA lr_data TYPE (c_model).
ASSIGN lr_data->* TO <ls_data>. ASSIGN lr_data->* TO <ls_data>.
initialize( ). initialize( ).

18
src/objects/zcl_abapgit_object_ecatt_super.clas.abap
View File

@ -39,11 +39,11 @@ CLASS zcl_abapgit_object_ecatt_super DEFINITION
END OF ty_last_changed. END OF ty_last_changed.
CONSTANTS: CONSTANTS:
BEGIN OF co_name, BEGIN OF c_name,
version TYPE string VALUE 'VERSION' ##NO_TEXT, version TYPE string VALUE 'VERSION' ##NO_TEXT,
versions TYPE string VALUE 'VERSIONS' ##NO_TEXT, versions TYPE string VALUE 'VERSIONS' ##NO_TEXT,
END OF co_name, END OF c_name,
co_default_version TYPE etobj_ver VALUE '1' ##NO_TEXT. c_default_version TYPE etobj_ver VALUE '1' ##NO_TEXT.
CLASS-METHODS: CLASS-METHODS:
is_change_more_recent_than is_change_more_recent_than
@ -392,7 +392,7 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
clear_elements( CHANGING ci_document = li_document ). clear_elements( CHANGING ci_document = li_document ).
li_node = li_document->create_element( co_name-version ). li_node = li_document->create_element( c_name-version ).
li_node->append_child( li_document->get_root_element( ) ). li_node->append_child( li_document->get_root_element( ) ).
ci_node->append_child( li_node ). ci_node->append_child( li_node ).
@ -405,7 +405,7 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
DATA: li_versions_node TYPE REF TO if_ixml_element. DATA: li_versions_node TYPE REF TO if_ixml_element.
FIELD-SYMBOLS: <ls_version_info> LIKE LINE OF it_version_info. FIELD-SYMBOLS: <ls_version_info> LIKE LINE OF it_version_info.
li_versions_node = ci_document->create_element( co_name-versions ). li_versions_node = ci_document->create_element( c_name-versions ).
IF lines( it_version_info ) > 0. IF lines( it_version_info ) > 0.
@ -423,7 +423,7 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
serialize_version( serialize_version(
EXPORTING EXPORTING
iv_version = co_default_version iv_version = c_default_version
CHANGING CHANGING
ci_node = li_versions_node ). ci_node = li_versions_node ).
@ -493,7 +493,7 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
im_name = mv_object_name im_name = mv_object_name
" we have to supply a version, so let's use the default version " we have to supply a version, so let's use the default version
" and delete them all " and delete them all
im_version = co_default_version im_version = c_default_version
im_delete_all_versions = abap_true ). im_delete_all_versions = abap_true ).
CATCH cx_ecatt_apl INTO lx_error. CATCH cx_ecatt_apl INTO lx_error.
@ -514,7 +514,7 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
li_document = io_xml->get_raw( ). li_document = io_xml->get_raw( ).
li_versions = li_document->get_elements_by_tag_name( depth = 0 li_versions = li_document->get_elements_by_tag_name( depth = 0
name = co_name-version ). name = c_name-version ).
li_version_iterator = li_versions->create_iterator( ). li_version_iterator = li_versions->create_iterator( ).
@ -541,7 +541,7 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
TRY. TRY.
rv_bool = cl_apl_ecatt_object=>existence_check_object( im_name = mv_object_name rv_bool = cl_apl_ecatt_object=>existence_check_object( im_name = mv_object_name
im_version = co_default_version im_version = c_default_version
im_obj_type = lv_object_type im_obj_type = lv_object_type
im_exists_any_version = abap_true ). im_exists_any_version = abap_true ).

14
src/objects/zcl_abapgit_object_srvd.clas.abap
View File

@ -16,8 +16,8 @@ CLASS zcl_abapgit_object_srvd DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
DATA mv_service_definition_key TYPE seu_objkey . DATA mv_service_definition_key TYPE seu_objkey .
DATA mr_service_definition TYPE REF TO data . DATA mr_service_definition TYPE REF TO data .
CONSTANTS mc_source_file TYPE string VALUE 'srvdsrv' ##NO_TEXT. CONSTANTS c_source_file TYPE string VALUE 'srvdsrv' ##NO_TEXT.
CONSTANTS mc_xml_parent_name TYPE string VALUE 'SRVD' ##NO_TEXT. CONSTANTS c_xml_parent_name TYPE string VALUE 'SRVD' ##NO_TEXT.
DATA mo_object_operator TYPE REF TO object . DATA mo_object_operator TYPE REF TO object .
METHODS clear_fields METHODS clear_fields
@ -183,7 +183,7 @@ CLASS zcl_abapgit_object_srvd IMPLEMENTATION.
io_xml->read( io_xml->read(
EXPORTING EXPORTING
iv_name = mc_xml_parent_name iv_name = c_xml_parent_name
CHANGING CHANGING
cg_data = <ls_metadata> ). cg_data = <ls_metadata> ).
@ -192,13 +192,13 @@ CLASS zcl_abapgit_object_srvd IMPLEMENTATION.
ASSIGN COMPONENT 'CONTENT-SOURCE' OF STRUCTURE <lg_data> TO <lv_source>. ASSIGN COMPONENT 'CONTENT-SOURCE' OF STRUCTURE <lg_data> TO <lv_source>.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
<lv_source> = zif_abapgit_object~mo_files->read_string( mc_source_file ). <lv_source> = zif_abapgit_object~mo_files->read_string( c_source_file ).
IF <lv_source> IS INITIAL. IF <lv_source> IS INITIAL.
<lv_source> = zif_abapgit_object~mo_files->read_string( 'assrvd' ). <lv_source> = zif_abapgit_object~mo_files->read_string( 'assrvd' ).
ENDIF. ENDIF.
CREATE OBJECT ro_object_data TYPE ('CL_SRVD_WB_OBJECT_DATA'). CREATE OBJECT ro_object_data TYPE ('CL_SRVD_WB_OBJECT_DATA').
ro_object_data->set_data( p_data = <lg_data> ). ro_object_data->set_data( p_data = <lg_data> ).
ENDMETHOD. ENDMETHOD.
@ -557,11 +557,11 @@ CLASS zcl_abapgit_object_srvd IMPLEMENTATION.
lv_source = <lv_source>. lv_source = <lv_source>.
io_xml->add( io_xml->add(
iv_name = mc_xml_parent_name iv_name = c_xml_parent_name
ig_data = <lv_metadata> ). ig_data = <lv_metadata> ).
zif_abapgit_object~mo_files->add_string( zif_abapgit_object~mo_files->add_string(
iv_ext = mc_source_file iv_ext = c_source_file
iv_string = lv_source ). iv_string = lv_source ).
CATCH cx_root INTO lx_error. CATCH cx_root INTO lx_error.

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

@ -9,7 +9,7 @@ CLASS zcl_abapgit_object_ssfo DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
ty_string_range TYPE RANGE OF string . ty_string_range TYPE RANGE OF string .
CLASS-DATA gt_range_node_codes TYPE ty_string_range . CLASS-DATA gt_range_node_codes TYPE ty_string_range .
CONSTANTS attrib_abapgit_leadig_spaces TYPE string VALUE 'abapgit-leadig-spaces' ##NO_TEXT. CONSTANTS c_attrib_abapgit_leadig_spaces TYPE string VALUE 'abapgit-leadig-spaces' ##NO_TEXT.
METHODS fix_ids METHODS fix_ids
IMPORTING IMPORTING
@ -175,7 +175,7 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION.
CHANGING cv_within_code_section = cv_within_code_section ). CHANGING cv_within_code_section = cv_within_code_section ).
* for downwards compatibility, this code can be removed sometime in the future * for downwards compatibility, this code can be removed sometime in the future
lv_leading_spaces = li_element->get_attribute_ns( name = attrib_abapgit_leadig_spaces ). lv_leading_spaces = li_element->get_attribute_ns( c_attrib_abapgit_leadig_spaces ).
lv_coding_line = li_element->get_value( ). lv_coding_line = li_element->get_value( ).
IF strlen( lv_coding_line ) >= 1 AND lv_coding_line(1) <> | |. IF strlen( lv_coding_line ) >= 1 AND lv_coding_line(1) <> | |.

6
src/objects/zcl_abapgit_object_susc.clas.abap
View File

@ -4,7 +4,7 @@ CLASS zcl_abapgit_object_susc DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
INTERFACES zif_abapgit_object. INTERFACES zif_abapgit_object.
PROTECTED SECTION. PROTECTED SECTION.
CONSTANTS transobjecttype_class TYPE c LENGTH 1 VALUE 'C' ##NO_TEXT. CONSTANTS c_transobjecttype_class TYPE c LENGTH 1 VALUE 'C' ##NO_TEXT.
METHODS has_authorization METHODS has_authorization
IMPORTING IMPORTING
@ -88,7 +88,7 @@ CLASS zcl_abapgit_object_susc IMPLEMENTATION.
CALL FUNCTION 'SUSR_COMMEDITCHECK' CALL FUNCTION 'SUSR_COMMEDITCHECK'
EXPORTING EXPORTING
objectname = lv_tr_object_name objectname = lv_tr_object_name
transobjecttype = transobjecttype_class transobjecttype = c_transobjecttype_class
IMPORTING IMPORTING
return_from_korr = lv_tr_return. return_from_korr = lv_tr_return.
@ -173,7 +173,7 @@ CLASS zcl_abapgit_object_susc IMPLEMENTATION.
CALL FUNCTION 'SUSR_COMMEDITCHECK' CALL FUNCTION 'SUSR_COMMEDITCHECK'
EXPORTING EXPORTING
objectname = lv_objectname objectname = lv_objectname
transobjecttype = transobjecttype_class. transobjecttype = c_transobjecttype_class.
INSERT tobc FROM ls_tobc. "#EC CI_SUBRC INSERT tobc FROM ls_tobc. "#EC CI_SUBRC
* ignore sy-subrc as all fields are key fields * ignore sy-subrc as all fields are key fields

11
src/ui/core/zcl_abapgit_gui.clas.abap
View File

@ -115,7 +115,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_GUI IMPLEMENTATION. CLASS zcl_abapgit_gui IMPLEMENTATION.
METHOD back. METHOD back.
@ -247,8 +247,7 @@ CLASS ZCL_ABAPGIT_GUI IMPLEMENTATION.
METHOD go_home. METHOD go_home.
DATA: ls_stack LIKE LINE OF mt_stack, DATA ls_stack LIKE LINE OF mt_stack.
lv_mode TYPE tabname.
IF mi_router IS BOUND. IF mi_router IS BOUND.
CLEAR: mt_stack, mt_event_handlers. CLEAR: mt_stack, mt_event_handlers.
@ -325,7 +324,7 @@ CLASS ZCL_ABAPGIT_GUI IMPLEMENTATION.
ENDCASE. ENDCASE.
CATCH zcx_abapgit_cancel ##NO_HANDLER. CATCH zcx_abapgit_cancel ##NO_HANDLER.
" Do nothing = gc_event_state-no_more_act " Do nothing = c_event_state-no_more_act
CATCH zcx_abapgit_exception INTO lx_exception. CATCH zcx_abapgit_exception INTO lx_exception.
handle_error( lx_exception ). handle_error( lx_exception ).
ENDTRY. ENDTRY.
@ -413,7 +412,7 @@ CLASS ZCL_ABAPGIT_GUI IMPLEMENTATION.
ENDIF. ENDIF.
li_html = mi_cur_page->render( ). li_html = mi_cur_page->render( ).
lv_html = li_html->render( iv_no_indent_jscss = abap_true ). lv_html = li_html->render( abap_true ).
IF mi_html_processor IS BOUND. IF mi_html_processor IS BOUND.
lv_html = mi_html_processor->process( lv_html = mi_html_processor->process(
@ -454,7 +453,7 @@ CLASS ZCL_ABAPGIT_GUI IMPLEMENTATION.
ENDLOOP. ENDLOOP.
ENDIF. ENDIF.
ls_event-eventid = mi_html_viewer->m_id_sapevent. ls_event-eventid = mi_html_viewer->c_id_sapevent.
ls_event-appl_event = abap_true. ls_event-appl_event = abap_true.
APPEND ls_event TO lt_events. APPEND ls_event TO lt_events.

2
src/ui/core/zcl_abapgit_html_viewer_gui.clas.abap
View File

@ -42,7 +42,7 @@ CLASS zcl_abapgit_html_viewer_gui IMPLEMENTATION.
query_table_disabled = iv_disable_query_table query_table_disabled = iv_disable_query_table
parent = io_container. parent = io_container.
ls_event-eventid = zif_abapgit_html_viewer=>m_id_sapevent. ls_event-eventid = zif_abapgit_html_viewer=>c_id_sapevent.
ls_event-appl_event = abap_true. ls_event-appl_event = abap_true.
APPEND ls_event TO lt_events. APPEND ls_event TO lt_events.

2
src/ui/core/zif_abapgit_html_viewer.intf.abap
View File

@ -14,7 +14,7 @@ INTERFACE zif_abapgit_html_viewer
TYPES: TYPES:
ty_query_table TYPE STANDARD TABLE OF ty_name_value WITH DEFAULT KEY . ty_query_table TYPE STANDARD TABLE OF ty_name_value WITH DEFAULT KEY .
CONSTANTS m_id_sapevent TYPE i VALUE 1 ##NO_TEXT. CONSTANTS c_id_sapevent TYPE i VALUE 1 ##NO_TEXT.
EVENTS sapevent EVENTS sapevent
EXPORTING EXPORTING

10
src/utils/zcl_abapgit_diff.clas.abap
View File

@ -3,7 +3,7 @@ CLASS zcl_abapgit_diff DEFINITION
CREATE PUBLIC. CREATE PUBLIC.
PUBLIC SECTION. PUBLIC SECTION.
CONSTANTS co_starting_beacon TYPE i VALUE 1. CONSTANTS c_starting_beacon TYPE i VALUE 1.
* assumes data is UTF8 based with newlines * assumes data is UTF8 based with newlines
METHODS constructor METHODS constructor
@ -352,7 +352,7 @@ CLASS zcl_abapgit_diff IMPLEMENTATION.
METHOD map_beacons. METHOD map_beacons.
DATA: lv_beacon_idx TYPE i VALUE co_starting_beacon, DATA: lv_beacon_idx TYPE i VALUE c_starting_beacon,
lv_offs TYPE i, lv_offs TYPE i,
lv_beacon_str TYPE string, lv_beacon_str TYPE string,
lv_beacon_2lev TYPE string, lv_beacon_2lev TYPE string,
@ -415,9 +415,9 @@ CLASS zcl_abapgit_diff IMPLEMENTATION.
LOOP AT mt_diff ASSIGNING <ls_diff> LOOP AT mt_diff ASSIGNING <ls_diff>
USING KEY new_num USING KEY new_num
WHERE old = is_diff_old-old WHERE old = is_diff_old-old
AND new = is_diff_old-new AND new = is_diff_old-new
AND new_num = is_diff_old-new_num AND new_num = is_diff_old-new_num
AND old_num = is_diff_old-old_num. AND old_num = is_diff_old-old_num.
<ls_diff>-patch_flag = iv_patch_flag. <ls_diff>-patch_flag = iv_patch_flag.
EXIT. EXIT.

2
src/utils/zcl_abapgit_diff.clas.testclasses.abap
View File

@ -18,7 +18,7 @@ CLASS ltcl_diff DEFINITION FOR TESTING
iv_old_num TYPE zif_abapgit_definitions=>ty_diff-old_num iv_old_num TYPE zif_abapgit_definitions=>ty_diff-old_num
iv_old TYPE zif_abapgit_definitions=>ty_diff-old iv_old TYPE zif_abapgit_definitions=>ty_diff-old
iv_beacon TYPE zif_abapgit_definitions=>ty_diff-beacon iv_beacon TYPE zif_abapgit_definitions=>ty_diff-beacon
DEFAULT zcl_abapgit_diff=>co_starting_beacon. DEFAULT zcl_abapgit_diff=>c_starting_beacon.
METHODS: setup. METHODS: setup.