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 fixes, #2053 (#2058)

Browse Source 
* fix more naming conventions

* more naming conventions fixes
This commit is contained in:
Lars Hvam 2018-11-07 12:05:27 +01:00 committed by GitHub
parent 788a7fedb9
commit 89e5010fd0
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
13 changed files with 261 additions and 254 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
src/objects/zcl_abapgit_object_dcls.clas.abap
View File

@ -8,7 +8,7 @@ ENDCLASS.
CLASS zcl_abapgit_object_dcls IMPLEMENTATION. CLASS ZCL_ABAPGIT_OBJECT_DCLS IMPLEMENTATION.
METHOD zif_abapgit_object~changed_by. METHOD zif_abapgit_object~changed_by.
@ -128,12 +128,25 @@ CLASS zcl_abapgit_object_dcls IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_object~is_active.
rv_active = is_active( ).
ENDMETHOD.
METHOD zif_abapgit_object~is_locked.
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'E_ACMDCLSRC'
iv_argument = |{ ms_item-obj_name }| ).
ENDMETHOD.
METHOD zif_abapgit_object~jump. METHOD zif_abapgit_object~jump.
TRY. TRY.
jump_adt( i_obj_name = ms_item-obj_name jump_adt( iv_obj_name = ms_item-obj_name
i_obj_type = ms_item-obj_type ). iv_obj_type = ms_item-obj_type ).
CATCH zcx_abapgit_exception. CATCH zcx_abapgit_exception.
zcx_abapgit_exception=>raise( 'DCLS Jump Error' ). zcx_abapgit_exception=>raise( 'DCLS Jump Error' ).
@ -202,16 +215,4 @@ CLASS zcl_abapgit_object_dcls IMPLEMENTATION.
ENDTRY. ENDTRY.
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_object~is_locked.
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'E_ACMDCLSRC'
iv_argument = |{ ms_item-obj_name }| ).
ENDMETHOD.
METHOD zif_abapgit_object~is_active.
rv_active = is_active( ).
ENDMETHOD.
ENDCLASS. ENDCLASS.

31
src/objects/zcl_abapgit_object_ddls.clas.abap
View File

@ -13,7 +13,7 @@ ENDCLASS.
CLASS zcl_abapgit_object_ddls IMPLEMENTATION. CLASS ZCL_ABAPGIT_OBJECT_DDLS IMPLEMENTATION.
METHOD open_adt_stob. METHOD open_adt_stob.
@ -62,8 +62,8 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
IF sy-subrc = 0. IF sy-subrc = 0.
ASSIGN COMPONENT 'DDLNAME' OF STRUCTURE <lg_entity_view> TO <lg_ddlname>. ASSIGN COMPONENT 'DDLNAME' OF STRUCTURE <lg_entity_view> TO <lg_ddlname>.
jump_adt( i_obj_name = <lg_ddlname> jump_adt( iv_obj_name = <lg_ddlname>
i_obj_type = 'DDLS' ). iv_obj_type = 'DDLS' ).
ENDIF. ENDIF.
@ -233,6 +233,19 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_object~is_active.
rv_active = is_active( ).
ENDMETHOD.
METHOD zif_abapgit_object~is_locked.
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'ESDICT'
iv_argument = |{ ms_item-obj_type }{ ms_item-obj_name }| ).
ENDMETHOD.
METHOD zif_abapgit_object~jump. METHOD zif_abapgit_object~jump.
DATA: lv_typename TYPE typename. DATA: lv_typename TYPE typename.
@ -312,16 +325,4 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
ig_data = <lg_data> ). ig_data = <lg_data> ).
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_object~is_locked.
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'ESDICT'
iv_argument = |{ ms_item-obj_type }{ ms_item-obj_name }| ).
ENDMETHOD.
METHOD zif_abapgit_object~is_active.
rv_active = is_active( ).
ENDMETHOD.
ENDCLASS. ENDCLASS.

16
src/objects/zcl_abapgit_object_ddlx.clas.abap
View File

@ -28,7 +28,7 @@ ENDCLASS.
CLASS zcl_abapgit_object_ddlx IMPLEMENTATION. CLASS ZCL_ABAPGIT_OBJECT_DDLX IMPLEMENTATION.
METHOD clear_field. METHOD clear_field.
@ -209,6 +209,11 @@ CLASS zcl_abapgit_object_ddlx IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_object~is_active.
rv_active = is_active( ).
ENDMETHOD.
METHOD zif_abapgit_object~is_locked. METHOD zif_abapgit_object~is_locked.
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'ESDICT' rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'ESDICT'
@ -220,8 +225,8 @@ CLASS zcl_abapgit_object_ddlx IMPLEMENTATION.
METHOD zif_abapgit_object~jump. METHOD zif_abapgit_object~jump.
TRY. TRY.
jump_adt( i_obj_name = ms_item-obj_name jump_adt( iv_obj_name = ms_item-obj_name
i_obj_type = ms_item-obj_type ). iv_obj_type = ms_item-obj_type ).
CATCH zcx_abapgit_exception. CATCH zcx_abapgit_exception.
zcx_abapgit_exception=>raise( 'DDLX Jump Error' ). zcx_abapgit_exception=>raise( 'DDLX Jump Error' ).
@ -282,9 +287,4 @@ CLASS zcl_abapgit_object_ddlx IMPLEMENTATION.
ENDTRY. ENDTRY.
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_object~is_active.
rv_active = is_active( ).
ENDMETHOD.
ENDCLASS. ENDCLASS.

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

@ -32,10 +32,10 @@ CLASS zcl_abapgit_object_msag DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
IMPORTING it_t100 TYPE zcl_abapgit_object_msag=>tty_t100 IMPORTING it_t100 TYPE zcl_abapgit_object_msag=>tty_t100
io_xml TYPE REF TO zcl_abapgit_xml_output io_xml TYPE REF TO zcl_abapgit_xml_output
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
delete_msgid IMPORTING iv_message_id TYPE arbgb, delete_msgid IMPORTING iv_message_id TYPE arbgb,
free_access_permission free_access_permission
IMPORTING IMPORTING
i_message_id TYPE arbgb, iv_message_id TYPE arbgb,
delete_documentation delete_documentation
IMPORTING IMPORTING
iv_message_id TYPE arbgb. iv_message_id TYPE arbgb.
@ -44,7 +44,7 @@ ENDCLASS.
CLASS zcl_abapgit_object_msag IMPLEMENTATION. CLASS ZCL_ABAPGIT_OBJECT_MSAG IMPLEMENTATION.
METHOD delete_documentation. METHOD delete_documentation.
@ -149,7 +149,7 @@ CLASS zcl_abapgit_object_msag IMPLEMENTATION.
CALL FUNCTION 'RS_ACCESS_PERMISSION' CALL FUNCTION 'RS_ACCESS_PERMISSION'
EXPORTING EXPORTING
mode = 'FREE' mode = 'FREE'
object = i_message_id object = iv_message_id
object_class = 'T100'. object_class = 'T100'.
ENDMETHOD. ENDMETHOD.
@ -421,6 +421,11 @@ CLASS zcl_abapgit_object_msag IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_object~is_active.
rv_active = is_active( ).
ENDMETHOD.
METHOD zif_abapgit_object~is_locked. METHOD zif_abapgit_object~is_locked.
DATA: lv_argument TYPE seqg3-garg. DATA: lv_argument TYPE seqg3-garg.
@ -483,9 +488,4 @@ CLASS zcl_abapgit_object_msag IMPLEMENTATION.
serialize_texts( io_xml ). serialize_texts( io_xml ).
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_object~is_active.
rv_active = is_active( ).
ENDMETHOD.
ENDCLASS. ENDCLASS.

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

@ -8,24 +8,28 @@ CLASS zcl_abapgit_object_samc DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
ENDCLASS. ENDCLASS.
CLASS zcl_abapgit_object_samc IMPLEMENTATION.
CLASS ZCL_ABAPGIT_OBJECT_SAMC IMPLEMENTATION.
METHOD get_data_class_name. METHOD get_data_class_name.
r_data_class_name = 'CL_AMC_APPLICATION_OBJ_DATA'. rv_data_class_name = 'CL_AMC_APPLICATION_OBJ_DATA'.
ENDMETHOD. ENDMETHOD.
METHOD get_data_structure_name. METHOD get_data_structure_name.
r_data_structure_name = 'AMC_APPLICATION_COMPLETE'. rv_data_structure_name = 'AMC_APPLICATION_COMPLETE'.
ENDMETHOD. ENDMETHOD.
METHOD get_persistence_class_name. METHOD get_persistence_class_name.
r_persistence_class_name = 'CL_AMC_APPLICATION_OBJ_PERS'. rv_persistence_class_name = 'CL_AMC_APPLICATION_OBJ_PERS'.
ENDMETHOD. ENDMETHOD.
ENDCLASS. ENDCLASS.

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

@ -8,24 +8,28 @@ CLASS zcl_abapgit_object_sapc DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
ENDCLASS. ENDCLASS.
CLASS zcl_abapgit_object_sapc IMPLEMENTATION.
CLASS ZCL_ABAPGIT_OBJECT_SAPC IMPLEMENTATION.
METHOD get_data_class_name. METHOD get_data_class_name.
r_data_class_name = 'CL_APC_APPLICATION_OBJ_DATA'. rv_data_class_name = 'CL_APC_APPLICATION_OBJ_DATA'.
ENDMETHOD. ENDMETHOD.
METHOD get_data_structure_name. METHOD get_data_structure_name.
r_data_structure_name = 'APC_APPLICATION_COMPLETE'. rv_data_structure_name = 'APC_APPLICATION_COMPLETE'.
ENDMETHOD. ENDMETHOD.
METHOD get_persistence_class_name. METHOD get_persistence_class_name.
r_persistence_class_name = 'CL_APC_APPLICATION_OBJ_PERS'. rv_persistence_class_name = 'CL_APC_APPLICATION_OBJ_PERS'.
ENDMETHOD. ENDMETHOD.
ENDCLASS. ENDCLASS.

124
src/objects/zcl_abapgit_object_scp1.clas.abap
View File

@ -37,14 +37,14 @@ CLASS zcl_abapgit_object_scp1 DEFINITION
CHANGING CHANGING
!cs_scp1 TYPE ty_scp1 . !cs_scp1 TYPE ty_scp1 .
METHODS call_delete_fms METHODS call_delete_fms
IMPORTING i_profile_id TYPE scpr_id IMPORTING iv_profile_id TYPE scpr_id
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
PRIVATE SECTION. PRIVATE SECTION.
ENDCLASS. ENDCLASS.
CLASS zcl_abapgit_object_scp1 IMPLEMENTATION. CLASS ZCL_ABAPGIT_OBJECT_SCP1 IMPLEMENTATION.
METHOD adjust_inbound. METHOD adjust_inbound.
@ -79,6 +79,62 @@ CLASS zcl_abapgit_object_scp1 IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD call_delete_fms.
CONSTANTS version_new TYPE c VALUE 'N' ##NO_TEXT. "Include SCPRINTCONST version_new
CONSTANTS operation_delete TYPE c VALUE 'D' ##NO_TEXT.
DATA profile_type TYPE scprattr-type.
DATA fatherprofiles TYPE standard table of scproprof WITH DEFAULT KEY.
DATA fatherprofile TYPE scproprof.
CALL FUNCTION 'SCPR_DB_ATTR_GET_DETAIL'
EXPORTING
profid = iv_profile_id
version = version_new
IMPORTING
proftype = profile_type
EXCEPTIONS
OTHERS = 0.
CALL FUNCTION 'SCPR_PRSET_DB_USED_IN'
EXPORTING
profid = iv_profile_id
version = version_new
TABLES
profiles = fatherprofiles.
fatherprofile-id = iv_profile_id.
APPEND fatherprofile TO fatherprofiles.
CALL FUNCTION 'SCPR_CT_TRANSPORT_ENTRIES'
TABLES
profids = fatherprofiles
EXCEPTIONS
error_in_transport_layer = 1
user_abort = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |error while deleting SCP1 - TRANSPORT, { sy-subrc }| ).
ENDIF.
CALL FUNCTION 'SCPR_PRSET_DB_DELETE_ALL'
EXPORTING
profid = iv_profile_id
proftype = profile_type
TABLES
fatherprofs = fatherprofiles
EXCEPTIONS
user_abort = 1.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |error while deleting SCP1 - DB_DELETE, { sy-subrc }| ).
ENDIF.
CALL FUNCTION 'SCPR_MEM_SCPR_ACTIONS_ADD'
EXPORTING
bcset_id = iv_profile_id
operation = operation_delete.
ENDMETHOD.
METHOD dequeue. METHOD dequeue.
DATA: lv_id TYPE scpr_id. DATA: lv_id TYPE scpr_id.
@ -223,60 +279,6 @@ CLASS zcl_abapgit_object_scp1 IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD call_delete_fms.
CONSTANTS version_new TYPE c VALUE 'N' ##NO_TEXT. "Include SCPRINTCONST version_new
CONSTANTS operation_delete TYPE c VALUE 'D' ##NO_TEXT.
DATA profile_type TYPE scprattr-type.
DATA fatherprofiles TYPE standard table of scproprof WITH DEFAULT KEY.
DATA fatherprofile TYPE scproprof.
CALL FUNCTION 'SCPR_DB_ATTR_GET_DETAIL'
EXPORTING
profid = i_profile_id
version = version_new
IMPORTING
proftype = profile_type
EXCEPTIONS
OTHERS = 0.
CALL FUNCTION 'SCPR_PRSET_DB_USED_IN'
EXPORTING
profid = i_profile_id
version = version_new
TABLES
profiles = fatherprofiles.
fatherprofile-id = i_profile_id.
APPEND fatherprofile TO fatherprofiles.
CALL FUNCTION 'SCPR_CT_TRANSPORT_ENTRIES'
TABLES
profids = fatherprofiles
EXCEPTIONS
error_in_transport_layer = 1
user_abort = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |error while deleting SCP1 - TRANSPORT, { sy-subrc }| ).
ENDIF.
CALL FUNCTION 'SCPR_PRSET_DB_DELETE_ALL'
EXPORTING
profid = i_profile_id
proftype = profile_type
TABLES
fatherprofs = fatherprofiles
EXCEPTIONS
user_abort = 1.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |error while deleting SCP1 - DB_DELETE, { sy-subrc }| ).
ENDIF.
CALL FUNCTION 'SCPR_MEM_SCPR_ACTIONS_ADD'
EXPORTING
bcset_id = i_profile_id
operation = operation_delete.
ENDMETHOD.
METHOD zif_abapgit_object~deserialize. METHOD zif_abapgit_object~deserialize.
@ -335,6 +337,11 @@ CLASS zcl_abapgit_object_scp1 IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_object~is_active.
rv_active = is_active( ).
ENDMETHOD.
METHOD zif_abapgit_object~is_locked. METHOD zif_abapgit_object~is_locked.
rv_is_locked = abap_false. rv_is_locked = abap_false.
@ -395,9 +402,4 @@ CLASS zcl_abapgit_object_scp1 IMPLEMENTATION.
ig_data = ls_scp1 ). ig_data = ls_scp1 ).
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_object~is_active.
rv_active = is_active( ).
ENDMETHOD.
ENDCLASS. ENDCLASS.

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

@ -11,45 +11,45 @@ CLASS zcl_abapgit_object_ssfo DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
CONSTANTS: attrib_abapgit_leadig_spaces TYPE string VALUE 'abapgit-leadig-spaces' ##NO_TEXT. CONSTANTS: attrib_abapgit_leadig_spaces TYPE string VALUE 'abapgit-leadig-spaces' ##NO_TEXT.
METHODS fix_ids IMPORTING ii_xml_doc TYPE REF TO if_ixml_document. METHODS fix_ids IMPORTING ii_xml_doc TYPE REF TO if_ixml_document.
METHODS set_attribute_leading_spaces IMPORTING i_name TYPE string METHODS set_attribute_leading_spaces IMPORTING iv_name TYPE string
i_node TYPE REF TO if_ixml_node ii_node TYPE REF TO if_ixml_node
CHANGING c_within_code_section TYPE abap_bool. CHANGING cv_within_code_section TYPE abap_bool.
METHODS handle_attrib_leading_spaces IMPORTING i_name TYPE string METHODS handle_attrib_leading_spaces IMPORTING iv_name TYPE string
i_node TYPE REF TO if_ixml_node ii_node TYPE REF TO if_ixml_node
CHANGING c_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(e_range_node_codes) TYPE ty_string_range.
METHODS code_item_section_handling IMPORTING i_name TYPE string METHODS code_item_section_handling IMPORTING iv_name TYPE string
i_node TYPE REF TO if_ixml_node ii_node TYPE REF TO if_ixml_node
EXPORTING e_code_item_element TYPE REF TO if_ixml_element EXPORTING ei_code_item_element TYPE REF TO if_ixml_element
CHANGING c_within_code_section TYPE abap_bool CHANGING cv_within_code_section TYPE abap_bool
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
ENDCLASS. ENDCLASS.
CLASS zcl_abapgit_object_ssfo IMPLEMENTATION. CLASS ZCL_ABAPGIT_OBJECT_SSFO IMPLEMENTATION.
METHOD code_item_section_handling. METHOD code_item_section_handling.
CONSTANTS: node_item TYPE string VALUE 'item' ##NO_TEXT. CONSTANTS: node_item TYPE string VALUE 'item' ##NO_TEXT.
CONSTANTS: node_text TYPE string VALUE '#text' ##NO_TEXT. CONSTANTS: node_text TYPE string VALUE '#text' ##NO_TEXT.
IF i_name IN get_range_node_codes( ). IF iv_name IN get_range_node_codes( ).
c_within_code_section = abap_true. cv_within_code_section = abap_true.
ENDIF. ENDIF.
IF c_within_code_section = abap_true. IF cv_within_code_section = abap_true.
IF i_name = node_item. IF iv_name = node_item.
TRY. TRY.
e_code_item_element ?= i_node. ei_code_item_element ?= ii_node.
RETURN. RETURN.
CATCH cx_sy_move_cast_error ##no_handler. CATCH cx_sy_move_cast_error ##no_handler.
ENDTRY. ENDTRY.
ELSEIF i_name NOT IN get_range_node_codes( ) AND ELSEIF iv_name NOT IN get_range_node_codes( ) AND
i_name <> node_text. iv_name <> node_text.
c_within_code_section = abap_false. cv_within_code_section = abap_false.
ENDIF. ENDIF.
ENDIF. ENDIF.
@ -160,10 +160,10 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION.
DATA coding_line TYPE string. DATA coding_line TYPE string.
TRY. TRY.
code_item_section_handling( EXPORTING i_name = i_name code_item_section_handling( EXPORTING iv_name = iv_name
i_node = i_node ii_node = ii_node
IMPORTING e_code_item_element = element IMPORTING ei_code_item_element = element
CHANGING c_within_code_section = c_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 ). leading_spaces = element->get_attribute_ns( name = zcl_abapgit_object_ssfo=>attrib_abapgit_leadig_spaces ).
@ -183,17 +183,17 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION.
DATA: offset TYPE i. DATA: offset TYPE i.
TRY. TRY.
code_item_section_handling( EXPORTING i_name = i_name code_item_section_handling( EXPORTING iv_name = iv_name
i_node = i_node ii_node = ii_node
IMPORTING e_code_item_element = element IMPORTING ei_code_item_element = element
CHANGING c_within_code_section = c_within_code_section ). CHANGING cv_within_code_section = cv_within_code_section ).
code_line = i_node->get_value( ). 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 code_line MATCH OFFSET offset.
IF sy-subrc = 0 AND offset > 0. IF sy-subrc = 0 AND offset > 0.
TRY. TRY.
element ?= i_node. element ?= ii_node.
element->set_attribute( name = zcl_abapgit_object_ssfo=>attrib_abapgit_leadig_spaces element->set_attribute( name = zcl_abapgit_object_ssfo=>attrib_abapgit_leadig_spaces
value = |{ offset }| ). value = |{ offset }| ).
@ -275,9 +275,9 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION.
ENDCASE. ENDCASE.
handle_attrib_leading_spaces( EXPORTING i_name = lv_name handle_attrib_leading_spaces( EXPORTING iv_name = lv_name
i_node = li_node ii_node = li_node
CHANGING c_within_code_section = within_code_section ). CHANGING cv_within_code_section = within_code_section ).
li_node = li_iterator->get_next( ). li_node = li_iterator->get_next( ).
ENDWHILE. ENDWHILE.
@ -459,9 +459,9 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION.
OR lv_name = 'LASTUSER'. OR lv_name = 'LASTUSER'.
li_node->set_value( 'DUMMY' ). li_node->set_value( 'DUMMY' ).
ENDIF. ENDIF.
set_attribute_leading_spaces( EXPORTING i_name = lv_name set_attribute_leading_spaces( EXPORTING iv_name = lv_name
i_node = li_node ii_node = li_node
CHANGING c_within_code_section = within_code_section ). CHANGING cv_within_code_section = within_code_section ).
li_node = li_iterator->get_next( ). li_node = li_iterator->get_next( ).
ENDWHILE. ENDWHILE.

75
src/objects/zcl_abapgit_objects_saxx_super.clas.abap
View File

@ -9,47 +9,42 @@ CLASS zcl_abapgit_objects_saxx_super DEFINITION
INTERFACES zif_abapgit_object . INTERFACES zif_abapgit_object .
PROTECTED SECTION. PROTECTED SECTION.
METHODS:
get_persistence_class_name ABSTRACT
RETURNING
VALUE(r_persistence_class_name) TYPE seoclsname,
get_data_class_name ABSTRACT
RETURNING
VALUE(r_data_class_name) TYPE seoclsname,
get_data_structure_name ABSTRACT
RETURNING
VALUE(r_data_structure_name) TYPE string.
METHODS get_persistence_class_name
ABSTRACT
RETURNING
VALUE(rv_persistence_class_name) TYPE seoclsname .
METHODS get_data_class_name
ABSTRACT
RETURNING
VALUE(rv_data_class_name) TYPE seoclsname .
METHODS get_data_structure_name
ABSTRACT
RETURNING
VALUE(rv_data_structure_name) TYPE string .
PRIVATE SECTION. PRIVATE SECTION.
DATA: mo_persistence TYPE REF TO if_wb_object_persist,
mo_appl_obj_data TYPE REF TO if_wb_object_data_model,
mv_data_structure_name TYPE string,
mv_appl_obj_cls_name TYPE seoclsname,
mv_persistence_cls_name TYPE seoclsname.
METHODS: DATA mo_persistence TYPE REF TO if_wb_object_persist .
create_channel_objects DATA mo_appl_obj_data TYPE REF TO if_wb_object_data_model .
RAISING DATA mv_data_structure_name TYPE string .
zcx_abapgit_exception, DATA mv_appl_obj_cls_name TYPE seoclsname .
DATA mv_persistence_cls_name TYPE seoclsname .
get_data
EXPORTING
p_data TYPE any
RAISING
zcx_abapgit_exception,
lock
RAISING
zcx_abapgit_exception,
unlock
RAISING
zcx_abapgit_exception,
get_names.
METHODS create_channel_objects
RAISING
zcx_abapgit_exception .
METHODS get_data
EXPORTING
!eg_data TYPE any
RAISING
zcx_abapgit_exception .
METHODS lock
RAISING
zcx_abapgit_exception .
METHODS unlock
RAISING
zcx_abapgit_exception .
METHODS get_names .
ENDCLASS. ENDCLASS.
@ -97,7 +92,7 @@ CLASS ZCL_ABAPGIT_OBJECTS_SAXX_SUPER IMPLEMENTATION.
mo_appl_obj_data->get_data( mo_appl_obj_data->get_data(
IMPORTING IMPORTING
p_data = p_data ). p_data = eg_data ).
ENDMETHOD. ENDMETHOD.
@ -184,7 +179,7 @@ CLASS ZCL_ABAPGIT_OBJECTS_SAXX_SUPER IMPLEMENTATION.
get_data( get_data(
IMPORTING IMPORTING
p_data = <lg_data> ). eg_data = <lg_data> ).
ASSIGN COMPONENT 'HEADER' OF STRUCTURE <lg_data> TO <lg_header>. ASSIGN COMPONENT 'HEADER' OF STRUCTURE <lg_data> TO <lg_header>.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
@ -364,7 +359,7 @@ CLASS ZCL_ABAPGIT_OBJECTS_SAXX_SUPER IMPLEMENTATION.
get_data( get_data(
IMPORTING IMPORTING
p_data = <lg_data> ). eg_data = <lg_data> ).
ASSIGN COMPONENT 'HEADER' OF STRUCTURE <lg_data> TO <lg_header>. ASSIGN COMPONENT 'HEADER' OF STRUCTURE <lg_data> TO <lg_header>.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.

48
src/objects/zcl_abapgit_objects_super.clas.abap
View File

@ -10,11 +10,11 @@ CLASS zcl_abapgit_objects_super DEFINITION PUBLIC ABSTRACT.
CLASS-METHODS: CLASS-METHODS:
jump_adt jump_adt
IMPORTING i_obj_name TYPE zif_abapgit_definitions=>ty_item-obj_name IMPORTING iv_obj_name TYPE zif_abapgit_definitions=>ty_item-obj_name
i_obj_type TYPE zif_abapgit_definitions=>ty_item-obj_type iv_obj_type TYPE zif_abapgit_definitions=>ty_item-obj_type
i_sub_obj_name TYPE zif_abapgit_definitions=>ty_item-obj_name OPTIONAL iv_sub_obj_name TYPE zif_abapgit_definitions=>ty_item-obj_name OPTIONAL
i_sub_obj_type TYPE zif_abapgit_definitions=>ty_item-obj_type OPTIONAL iv_sub_obj_type TYPE zif_abapgit_definitions=>ty_item-obj_type OPTIONAL
i_line_number TYPE i OPTIONAL iv_line_number TYPE i OPTIONAL
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CONSTANTS: c_user_unknown TYPE xubname VALUE 'UNKNOWN'. CONSTANTS: c_user_unknown TYPE xubname VALUE 'UNKNOWN'.
@ -77,13 +77,13 @@ CLASS zcl_abapgit_objects_super DEFINITION PUBLIC ABSTRACT.
CLASS-METHODS: CLASS-METHODS:
get_adt_objects_and_names get_adt_objects_and_names
IMPORTING IMPORTING
i_obj_name TYPE zif_abapgit_definitions=>ty_item-obj_name iv_obj_name TYPE zif_abapgit_definitions=>ty_item-obj_name
i_obj_type TYPE zif_abapgit_definitions=>ty_item-obj_type iv_obj_type TYPE zif_abapgit_definitions=>ty_item-obj_type
EXPORTING EXPORTING
eo_adt_uri_mapper TYPE REF TO object eo_adt_uri_mapper TYPE REF TO object
eo_adt_objectref TYPE REF TO object eo_adt_objectref TYPE REF TO object
e_program TYPE progname ev_program TYPE progname
e_include TYPE progname ev_include TYPE progname
RAISING RAISING
zcx_abapgit_exception. zcx_abapgit_exception.
@ -91,7 +91,7 @@ ENDCLASS.
CLASS zcl_abapgit_objects_super IMPLEMENTATION. CLASS ZCL_ABAPGIT_OBJECTS_SUPER IMPLEMENTATION.
METHOD check_timestamp. METHOD check_timestamp.
@ -204,8 +204,8 @@ CLASS zcl_abapgit_objects_super IMPLEMENTATION.
DATA lo_adt TYPE REF TO object. DATA lo_adt TYPE REF TO object.
FIELD-SYMBOLS <lv_uri> TYPE string. FIELD-SYMBOLS <lv_uri> TYPE string.
lv_obj_name = i_obj_name. lv_obj_name = iv_obj_name.
lv_obj_type = i_obj_type. lv_obj_type = iv_obj_type.
TRY. TRY.
cl_wb_object=>create_from_transport_key( cl_wb_object=>create_from_transport_key(
@ -246,8 +246,8 @@ CLASS zcl_abapgit_objects_super IMPLEMENTATION.
EXPORTING EXPORTING
uri = <lv_uri> uri = <lv_uri>
IMPORTING IMPORTING
program = e_program program = ev_program
include = e_include. include = ev_include.
CATCH cx_root. CATCH cx_root.
zcx_abapgit_exception=>raise( 'ADT Jump Error' ). zcx_abapgit_exception=>raise( 'ADT Jump Error' ).
@ -357,29 +357,29 @@ CLASS zcl_abapgit_objects_super IMPLEMENTATION.
get_adt_objects_and_names( get_adt_objects_and_names(
EXPORTING EXPORTING
i_obj_name = i_obj_name iv_obj_name = iv_obj_name
i_obj_type = i_obj_type iv_obj_type = iv_obj_type
IMPORTING IMPORTING
eo_adt_uri_mapper = lo_adt_uri_mapper eo_adt_uri_mapper = lo_adt_uri_mapper
eo_adt_objectref = lo_adt_objref eo_adt_objectref = lo_adt_objref
e_program = lv_program ev_program = lv_program
e_include = lv_include ). ev_include = lv_include ).
TRY. TRY.
IF i_sub_obj_name IS NOT INITIAL. IF iv_sub_obj_name IS NOT INITIAL.
IF ( lv_program <> i_obj_name AND lv_include IS INITIAL ) OR IF ( lv_program <> iv_obj_name AND lv_include IS INITIAL ) OR
( lv_program = lv_include AND i_sub_obj_name IS NOT INITIAL ). ( lv_program = lv_include AND iv_sub_obj_name IS NOT INITIAL ).
lv_include = i_sub_obj_name. lv_include = iv_sub_obj_name.
ENDIF. ENDIF.
CALL METHOD lo_adt_uri_mapper->('IF_ADT_URI_MAPPER~MAP_INCLUDE_TO_OBJREF') CALL METHOD lo_adt_uri_mapper->('IF_ADT_URI_MAPPER~MAP_INCLUDE_TO_OBJREF')
EXPORTING EXPORTING
program = lv_program program = lv_program
include = lv_include include = lv_include
line = i_line_number line = iv_line_number
line_offset = 0 line_offset = 0
end_line = i_line_number end_line = iv_line_number
end_offset = 1 end_offset = 1
RECEIVING RECEIVING
result = lo_adt_sub_objref. result = lo_adt_sub_objref.

28
src/ui/zcl_abapgit_gui_page_codi_base.clas.abap
View File

@ -1,7 +1,7 @@
CLASS zcl_abapgit_gui_page_codi_base DEFINITION PUBLIC ABSTRACT INHERITING FROM zcl_abapgit_gui_page. CLASS zcl_abapgit_gui_page_codi_base DEFINITION PUBLIC ABSTRACT INHERITING FROM zcl_abapgit_gui_page.
PUBLIC SECTION. PUBLIC SECTION.
METHODS: METHODS:
zif_abapgit_gui_page~on_event zif_abapgit_gui_page~on_event
REDEFINITION. REDEFINITION.
PROTECTED SECTION. PROTECTED SECTION.
@ -14,9 +14,9 @@ CLASS zcl_abapgit_gui_page_codi_base DEFINITION PUBLIC ABSTRACT INHERITING FROM
iv_result TYPE scir_alvlist, iv_result TYPE scir_alvlist,
jump jump
IMPORTING IMPORTING
is_item TYPE zif_abapgit_definitions=>ty_item is_item TYPE zif_abapgit_definitions=>ty_item
is_sub_item TYPE zif_abapgit_definitions=>ty_item is_sub_item TYPE zif_abapgit_definitions=>ty_item
i_line_number TYPE i iv_line_number TYPE i
RAISING RAISING
zcx_abapgit_exception. zcx_abapgit_exception.
PRIVATE SECTION. PRIVATE SECTION.
@ -48,12 +48,12 @@ CLASS ZCL_ABAPGIT_GUI_PAGE_CODI_BASE IMPLEMENTATION.
objname = is_item-obj_name objname = is_item-obj_name
sobjtype = is_sub_item-obj_type sobjtype = is_sub_item-obj_type
sobjname = is_sub_item-obj_name sobjname = is_sub_item-obj_name
line = i_line_number line = iv_line_number
ASSIGNING <ls_result>. ASSIGNING <ls_result>.
ELSE. ELSE.
READ TABLE mt_result WITH KEY objtype = is_item-obj_type READ TABLE mt_result WITH KEY objtype = is_item-obj_type
objname = is_item-obj_name objname = is_item-obj_name
line = i_line_number line = iv_line_number
ASSIGNING <ls_result>. ASSIGNING <ls_result>.
ENDIF. ENDIF.
ASSERT <ls_result> IS ASSIGNED. ASSERT <ls_result> IS ASSIGNED.
@ -79,11 +79,11 @@ CLASS ZCL_ABAPGIT_GUI_PAGE_CODI_BASE IMPLEMENTATION.
lv_line_number = <ls_result>-line. lv_line_number = <ls_result>-line.
zcl_abapgit_objects_super=>jump_adt( i_obj_name = ls_item-obj_name zcl_abapgit_objects_super=>jump_adt( iv_obj_name = ls_item-obj_name
i_obj_type = ls_item-obj_type iv_obj_type = ls_item-obj_type
i_sub_obj_name = ls_sub_item-obj_name iv_sub_obj_name = ls_sub_item-obj_name
i_sub_obj_type = ls_sub_item-obj_type iv_sub_obj_type = ls_sub_item-obj_type
i_line_number = lv_line_number ). iv_line_number = lv_line_number ).
RETURN. RETURN.
ENDIF. ENDIF.
@ -178,9 +178,9 @@ CLASS ZCL_ABAPGIT_GUI_PAGE_CODI_BASE IMPLEMENTATION.
lv_line_number = lv_line_number_s. lv_line_number = lv_line_number_s.
jump( is_item = ls_item jump( is_item = ls_item
is_sub_item = ls_sub_item is_sub_item = ls_sub_item
i_line_number = lv_line_number ). iv_line_number = lv_line_number ).
ev_state = zif_abapgit_definitions=>c_event_state-no_more_act. ev_state = zif_abapgit_definitions=>c_event_state-no_more_act.

40
src/ui/zcl_abapgit_gui_view_repo.clas.abap
View File

@ -79,13 +79,13 @@ CLASS zcl_abapgit_gui_view_repo DEFINITION
IMPORTING iv_path TYPE string IMPORTING iv_path TYPE string
RETURNING VALUE(rv_html) TYPE string, RETURNING VALUE(rv_html) TYPE string,
build_inactive_object_code build_inactive_object_code
IMPORTING is_item TYPE zif_abapgit_definitions=>ty_repo_item IMPORTING is_item TYPE zif_abapgit_definitions=>ty_repo_item
RETURNING value(r_inactive_html_code) TYPE string. RETURNING VALUE(rv_inactive_html_code) TYPE string.
ENDCLASS. ENDCLASS.
CLASS zcl_abapgit_gui_view_repo IMPLEMENTATION. CLASS ZCL_ABAPGIT_GUI_VIEW_REPO IMPLEMENTATION.
METHOD build_dir_jump_link. METHOD build_dir_jump_link.
@ -273,6 +273,18 @@ CLASS zcl_abapgit_gui_view_repo IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD build_inactive_object_code.
IF is_item-inactive = abap_true.
rv_inactive_html_code = zcl_abapgit_html=>icon(
iv_name = 'zap/orange'
iv_hint = 'Object or object part is inactive'
iv_class = 'inactive' ).
ENDIF.
ENDMETHOD.
METHOD build_obj_jump_link. METHOD build_obj_jump_link.
DATA: lv_encode TYPE string. DATA: lv_encode TYPE string.
@ -429,17 +441,6 @@ CLASS zcl_abapgit_gui_view_repo IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD build_inactive_object_code.
IF is_item-inactive = abap_true.
r_inactive_html_code = zcl_abapgit_html=>icon(
iv_name = 'zap/orange'
iv_hint = 'Object or object part is inactive'
iv_class = 'inactive' ).
ENDIF.
ENDMETHOD.
METHOD render_item_command. METHOD render_item_command.
@ -528,6 +529,11 @@ CLASS zcl_abapgit_gui_view_repo IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_gui_page_hotkey~get_hotkey_actions.
ENDMETHOD.
METHOD zif_abapgit_gui_page~on_event. METHOD zif_abapgit_gui_page~on_event.
DATA: lv_path TYPE string. DATA: lv_path TYPE string.
@ -648,10 +654,4 @@ CLASS zcl_abapgit_gui_view_repo IMPLEMENTATION.
ENDTRY. ENDTRY.
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_gui_page_hotkey~get_hotkey_actions.
ENDMETHOD.
ENDCLASS. ENDCLASS.

6
src/zcl_abapgit_objects.clas.abap
View File

@ -749,9 +749,9 @@ CLASS ZCL_ABAPGIT_OBJECTS IMPLEMENTATION.
IF lv_adt_jump_enabled = abap_true. IF lv_adt_jump_enabled = abap_true.
TRY. TRY.
zcl_abapgit_objects_super=>jump_adt( zcl_abapgit_objects_super=>jump_adt(
i_obj_name = is_item-obj_name iv_obj_name = is_item-obj_name
i_obj_type = is_item-obj_type iv_obj_type = is_item-obj_type
i_line_number = iv_line_number ). iv_line_number = iv_line_number ).
CATCH zcx_abapgit_exception. CATCH zcx_abapgit_exception.
li_obj->jump( ). li_obj->jump( ).
ENDTRY. ENDTRY.