diff --git a/src/git/zcl_abapgit_tag.clas.abap b/src/git/zcl_abapgit_tag.clas.abap new file mode 100644 index 000000000..1b00d7328 --- /dev/null +++ b/src/git/zcl_abapgit_tag.clas.abap @@ -0,0 +1,43 @@ +CLASS zcl_abapgit_tag DEFINITION + PUBLIC + CREATE PUBLIC . + + PUBLIC SECTION. + + CLASS-METHODS: + add_tag_prefix + IMPORTING + !iv_text TYPE csequence + RETURNING + VALUE(rv_text) TYPE string, + + remove_tag_prefix + IMPORTING + !iv_text TYPE string + RETURNING + VALUE(rv_text) TYPE string . + +ENDCLASS. + + + +CLASS zcl_abapgit_tag IMPLEMENTATION. + + METHOD add_tag_prefix. + + rv_text = zif_abapgit_definitions=>gc_tag_prefix && iv_text. + + ENDMETHOD. + + + METHOD remove_tag_prefix. + + rv_text = iv_text. + + REPLACE FIRST OCCURRENCE OF zif_abapgit_definitions=>gc_tag_prefix + IN rv_text + WITH ''. + + ENDMETHOD. + +ENDCLASS. diff --git a/src/git/zcl_abapgit_tag.clas.xml b/src/git/zcl_abapgit_tag.clas.xml new file mode 100644 index 000000000..c4c7fac74 --- /dev/null +++ b/src/git/zcl_abapgit_tag.clas.xml @@ -0,0 +1,31 @@ + + + + + + ZCL_ABAPGIT_TAG + 1 + E + 2 + 1 + X + X + X + + + + ZCL_ABAPGIT_TAG + ADD_TAG_PREFIX + E + ADD_TAG_PREFIX + + + ZCL_ABAPGIT_TAG + REMOVE_TAG_PREFIX + E + REMOVE_TAG_PREFIX + + + + + diff --git a/src/zabapgit_page_branch_overview.prog.abap b/src/zabapgit_page_branch_overview.prog.abap index da0d83ca9..391e8e149 100644 --- a/src/zabapgit_page_branch_overview.prog.abap +++ b/src/zabapgit_page_branch_overview.prog.abap @@ -323,7 +323,7 @@ CLASS lcl_branch_overview IMPLEMENTATION. ASSIGNING . CHECK sy-subrc = 0. - lv_tag = lcl_tag=>remove_tag_prefix( -name ). + lv_tag = zcl_abapgit_tag=>remove_tag_prefix( -name ). INSERT lv_tag INTO TABLE -tags. ENDLOOP. diff --git a/src/zabapgit_popups.prog.abap b/src/zabapgit_popups.prog.abap index 9d775fc6c..de2a654e9 100644 --- a/src/zabapgit_popups.prog.abap +++ b/src/zabapgit_popups.prog.abap @@ -341,7 +341,7 @@ CLASS lcl_popups IMPLEMENTATION. READ TABLE lt_fields WITH KEY fieldname = 'LINE' ASSIGNING . ASSERT sy-subrc = 0. - ev_name = lcl_tag=>add_tag_prefix( -value ). + ev_name = zcl_abapgit_tag=>add_tag_prefix( -value ). ENDIF. ENDMETHOD. @@ -598,7 +598,7 @@ CLASS lcl_popups IMPLEMENTATION. LOOP AT lt_tags ASSIGNING . INSERT INITIAL LINE INTO lt_selection INDEX 1 ASSIGNING . - -varoption = lcl_tag=>remove_tag_prefix( -name ). + -varoption = zcl_abapgit_tag=>remove_tag_prefix( -name ). ENDLOOP. @@ -628,7 +628,7 @@ CLASS lcl_popups IMPLEMENTATION. READ TABLE lt_selection ASSIGNING WITH KEY selflag = abap_true. ASSERT sy-subrc = 0. - lv_name_with_prefix = lcl_tag=>add_tag_prefix( -varoption ). + lv_name_with_prefix = zcl_abapgit_tag=>add_tag_prefix( -varoption ). READ TABLE lt_tags ASSIGNING WITH KEY name = lv_name_with_prefix. ASSERT sy-subrc = 0. @@ -639,7 +639,7 @@ CLASS lcl_popups IMPLEMENTATION. LOOP AT lt_tags ASSIGNING . - -name = lcl_tag=>remove_tag_prefix( -name ). + -name = zcl_abapgit_tag=>remove_tag_prefix( -name ). -sha1 = -sha1(7). ENDLOOP. diff --git a/src/zabapgit_services_git.prog.abap b/src/zabapgit_services_git.prog.abap index ed4e3be90..d0956346a 100644 --- a/src/zabapgit_services_git.prog.abap +++ b/src/zabapgit_services_git.prog.abap @@ -256,7 +256,7 @@ CLASS lcl_services_git IMPLEMENTATION. zcx_abapgit_exception=>raise( |Cannot create tag { lv_name }. Error: '{ lx_error->text }'| ). ENDTRY. - lv_text = |Tag { lcl_tag=>remove_tag_prefix( lv_name ) } created| ##NO_TEXT. + lv_text = |Tag { zcl_abapgit_tag=>remove_tag_prefix( lv_name ) } created| ##NO_TEXT. MESSAGE lv_text TYPE 'S'. @@ -279,7 +279,7 @@ CLASS lcl_services_git IMPLEMENTATION. io_repo = lo_repo is_tag = ls_tag ). - lv_text = |Tag { lcl_tag=>remove_tag_prefix( ls_tag-name ) } deleted| ##NO_TEXT. + lv_text = |Tag { zcl_abapgit_tag=>remove_tag_prefix( ls_tag-name ) } deleted| ##NO_TEXT. MESSAGE lv_text TYPE 'S'. diff --git a/src/zabapgit_tag.prog.abap b/src/zabapgit_tag.prog.abap index 20ced58bf..ad2bd946e 100644 --- a/src/zabapgit_tag.prog.abap +++ b/src/zabapgit_tag.prog.abap @@ -1,41 +1,3 @@ *&---------------------------------------------------------------------* *& Include zabapgit_tag *&---------------------------------------------------------------------* - -CLASS lcl_tag DEFINITION. - - PUBLIC SECTION. - CLASS-METHODS: - add_tag_prefix - IMPORTING - iv_text TYPE csequence - RETURNING - VALUE(rv_text) TYPE string, - - remove_tag_prefix - IMPORTING - iv_text TYPE string - RETURNING - VALUE(rv_text) TYPE string. - -ENDCLASS. - -CLASS lcl_tag IMPLEMENTATION. - - METHOD add_tag_prefix. - - rv_text = zif_abapgit_definitions=>gc_tag_prefix && iv_text. - - ENDMETHOD. - - METHOD remove_tag_prefix. - - rv_text = iv_text. - - REPLACE FIRST OCCURRENCE OF zif_abapgit_definitions=>gc_tag_prefix - IN rv_text - WITH ''. - - ENDMETHOD. - -ENDCLASS.