mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 11:46:38 +08:00
separate repo from CREATE_TAG
This commit is contained in:
larshp
Lars Hvam
parent
d431f2d9d0
commit
71b7f9d788
|
|
@ -34,7 +34,7 @@ CLASS zcl_abapgit_git_porcelain DEFINITION
|
|||
zcx_abapgit_exception .
|
||||
CLASS-METHODS create_tag
|
||||
IMPORTING
|
||||
!io_repo TYPE REF TO zcl_abapgit_repo_online
|
||||
!iv_url TYPE string
|
||||
!is_tag TYPE zif_abapgit_definitions=>ty_git_tag
|
||||
RAISING
|
||||
zcx_abapgit_exception .
|
||||
|
|
@ -59,75 +59,85 @@ CLASS zcl_abapgit_git_porcelain DEFINITION
|
|||
RAISING
|
||||
zcx_abapgit_exception .
|
||||
PRIVATE SECTION.
|
||||
TYPES: BEGIN OF ty_tree,
|
||||
|
||||
TYPES:
|
||||
BEGIN OF ty_tree,
|
||||
path TYPE string,
|
||||
data TYPE xstring,
|
||||
sha1 TYPE zif_abapgit_definitions=>ty_sha1,
|
||||
END OF ty_tree .
|
||||
|
||||
TYPES: ty_trees_tt TYPE STANDARD TABLE OF ty_tree WITH DEFAULT KEY.
|
||||
|
||||
TYPES: BEGIN OF ty_folder,
|
||||
TYPES:
|
||||
ty_trees_tt TYPE STANDARD TABLE OF ty_tree WITH DEFAULT KEY .
|
||||
TYPES:
|
||||
BEGIN OF ty_folder,
|
||||
path TYPE string,
|
||||
count TYPE i,
|
||||
sha1 TYPE zif_abapgit_definitions=>ty_sha1,
|
||||
END OF ty_folder .
|
||||
TYPES:
|
||||
ty_folders_tt TYPE STANDARD TABLE OF ty_folder WITH DEFAULT KEY .
|
||||
|
||||
TYPES: ty_folders_tt TYPE STANDARD TABLE OF ty_folder WITH DEFAULT KEY.
|
||||
|
||||
CONSTANTS: c_zero TYPE zif_abapgit_definitions=>ty_sha1 VALUE '0000000000000000000000000000000000000000'.
|
||||
CONSTANTS c_zero TYPE zif_abapgit_definitions=>ty_sha1 VALUE '0000000000000000000000000000000000000000' ##NO_TEXT.
|
||||
|
||||
CLASS-METHODS build_trees
|
||||
IMPORTING it_expanded TYPE zif_abapgit_definitions=>ty_expanded_tt
|
||||
RETURNING VALUE(rt_trees) TYPE ty_trees_tt
|
||||
RAISING zcx_abapgit_exception.
|
||||
|
||||
IMPORTING
|
||||
!it_expanded TYPE zif_abapgit_definitions=>ty_expanded_tt
|
||||
RETURNING
|
||||
VALUE(rt_trees) TYPE ty_trees_tt
|
||||
RAISING
|
||||
zcx_abapgit_exception .
|
||||
CLASS-METHODS find_folders
|
||||
IMPORTING it_expanded TYPE zif_abapgit_definitions=>ty_expanded_tt
|
||||
RETURNING VALUE(rt_folders) TYPE ty_folders_tt.
|
||||
|
||||
IMPORTING
|
||||
!it_expanded TYPE zif_abapgit_definitions=>ty_expanded_tt
|
||||
RETURNING
|
||||
VALUE(rt_folders) TYPE ty_folders_tt .
|
||||
CLASS-METHODS walk
|
||||
IMPORTING it_objects TYPE zif_abapgit_definitions=>ty_objects_tt
|
||||
iv_sha1 TYPE zif_abapgit_definitions=>ty_sha1
|
||||
iv_path TYPE string
|
||||
CHANGING ct_files TYPE zif_abapgit_definitions=>ty_files_tt
|
||||
RAISING zcx_abapgit_exception.
|
||||
|
||||
IMPORTING
|
||||
!it_objects TYPE zif_abapgit_definitions=>ty_objects_tt
|
||||
!iv_sha1 TYPE zif_abapgit_definitions=>ty_sha1
|
||||
!iv_path TYPE string
|
||||
CHANGING
|
||||
!ct_files TYPE zif_abapgit_definitions=>ty_files_tt
|
||||
RAISING
|
||||
zcx_abapgit_exception .
|
||||
CLASS-METHODS walk_tree
|
||||
IMPORTING it_objects TYPE zif_abapgit_definitions=>ty_objects_tt
|
||||
iv_tree TYPE zif_abapgit_definitions=>ty_sha1
|
||||
iv_base TYPE string
|
||||
RETURNING VALUE(rt_expanded) TYPE zif_abapgit_definitions=>ty_expanded_tt
|
||||
RAISING zcx_abapgit_exception.
|
||||
|
||||
IMPORTING
|
||||
!it_objects TYPE zif_abapgit_definitions=>ty_objects_tt
|
||||
!iv_tree TYPE zif_abapgit_definitions=>ty_sha1
|
||||
!iv_base TYPE string
|
||||
RETURNING
|
||||
VALUE(rt_expanded) TYPE zif_abapgit_definitions=>ty_expanded_tt
|
||||
RAISING
|
||||
zcx_abapgit_exception .
|
||||
CLASS-METHODS receive_pack_push
|
||||
IMPORTING is_comment TYPE zif_abapgit_definitions=>ty_comment
|
||||
io_repo TYPE REF TO zcl_abapgit_repo_online
|
||||
it_trees TYPE ty_trees_tt
|
||||
it_blobs TYPE zif_abapgit_definitions=>ty_files_tt
|
||||
io_stage TYPE REF TO zcl_abapgit_stage
|
||||
RETURNING VALUE(rv_branch) TYPE zif_abapgit_definitions=>ty_sha1
|
||||
RAISING zcx_abapgit_exception.
|
||||
|
||||
IMPORTING
|
||||
!is_comment TYPE zif_abapgit_definitions=>ty_comment
|
||||
!io_repo TYPE REF TO zcl_abapgit_repo_online
|
||||
!it_trees TYPE ty_trees_tt
|
||||
!it_blobs TYPE zif_abapgit_definitions=>ty_files_tt
|
||||
!io_stage TYPE REF TO zcl_abapgit_stage
|
||||
RETURNING
|
||||
VALUE(rv_branch) TYPE zif_abapgit_definitions=>ty_sha1
|
||||
RAISING
|
||||
zcx_abapgit_exception .
|
||||
CLASS-METHODS receive_pack_create_tag
|
||||
IMPORTING is_tag TYPE zif_abapgit_definitions=>ty_git_tag
|
||||
io_repo TYPE REF TO zcl_abapgit_repo_online
|
||||
RAISING zcx_abapgit_exception.
|
||||
|
||||
IMPORTING
|
||||
!is_tag TYPE zif_abapgit_definitions=>ty_git_tag
|
||||
!iv_url TYPE string
|
||||
RAISING
|
||||
zcx_abapgit_exception .
|
||||
CLASS-METHODS create_annotated_tag
|
||||
IMPORTING
|
||||
is_tag TYPE zif_abapgit_definitions=>ty_git_tag
|
||||
io_repo TYPE REF TO zcl_abapgit_repo_online
|
||||
!is_tag TYPE zif_abapgit_definitions=>ty_git_tag
|
||||
!iv_url TYPE string
|
||||
RAISING
|
||||
zcx_abapgit_exception .
|
||||
|
||||
CLASS-METHODS create_lightweight_tag
|
||||
IMPORTING
|
||||
is_tag TYPE zif_abapgit_definitions=>ty_git_tag
|
||||
io_repo TYPE REF TO zcl_abapgit_repo_online
|
||||
!is_tag TYPE zif_abapgit_definitions=>ty_git_tag
|
||||
!iv_url TYPE string
|
||||
RAISING
|
||||
zcx_abapgit_exception .
|
||||
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
|
|
@ -196,7 +206,7 @@ CLASS ZCL_ABAPGIT_GIT_PORCELAIN IMPLEMENTATION.
|
|||
|
||||
receive_pack_create_tag(
|
||||
is_tag = is_tag
|
||||
io_repo = io_repo ).
|
||||
iv_url = iv_url ).
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
|
@ -234,7 +244,7 @@ CLASS ZCL_ABAPGIT_GIT_PORCELAIN IMPLEMENTATION.
|
|||
lv_pack = zcl_abapgit_git_pack=>encode( lt_objects ).
|
||||
|
||||
zcl_abapgit_git_transport=>receive_pack(
|
||||
iv_url = io_repo->get_url( )
|
||||
iv_url = iv_url
|
||||
iv_old = c_zero
|
||||
iv_new = is_tag-sha1
|
||||
iv_branch_name = is_tag-name
|
||||
|
|
@ -254,13 +264,13 @@ CLASS ZCL_ABAPGIT_GIT_PORCELAIN IMPLEMENTATION.
|
|||
|
||||
create_annotated_tag(
|
||||
is_tag = is_tag
|
||||
io_repo = io_repo ).
|
||||
iv_url = iv_url ).
|
||||
|
||||
WHEN zif_abapgit_definitions=>c_git_branch_type-lightweight_tag.
|
||||
|
||||
create_lightweight_tag(
|
||||
is_tag = is_tag
|
||||
io_repo = io_repo ).
|
||||
iv_url = iv_url ).
|
||||
|
||||
WHEN OTHERS.
|
||||
|
||||
|
|
@ -532,7 +542,7 @@ CLASS ZCL_ABAPGIT_GIT_PORCELAIN IMPLEMENTATION.
|
|||
lv_pack = zcl_abapgit_git_pack=>encode( lt_objects ).
|
||||
|
||||
zcl_abapgit_git_transport=>receive_pack(
|
||||
iv_url = io_repo->get_url( )
|
||||
iv_url = iv_url
|
||||
iv_old = c_zero
|
||||
iv_new = lv_new_tag_sha1
|
||||
iv_branch_name = is_tag-name
|
||||
|
|
|
|||
|
|
@ -60,7 +60,7 @@ ENDCLASS.
|
|||
|
||||
|
||||
|
||||
CLASS zcl_abapgit_gui_page_tag IMPLEMENTATION.
|
||||
CLASS ZCL_ABAPGIT_GUI_PAGE_TAG IMPLEMENTATION.
|
||||
|
||||
|
||||
METHOD constructor.
|
||||
|
|
@ -74,6 +74,105 @@ CLASS zcl_abapgit_gui_page_tag IMPLEMENTATION.
|
|||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD create_tag.
|
||||
|
||||
DATA:
|
||||
ls_tag TYPE zif_abapgit_definitions=>ty_git_tag,
|
||||
lx_error TYPE REF TO zcx_abapgit_exception,
|
||||
lv_text TYPE string.
|
||||
|
||||
parse_tag_request(
|
||||
EXPORTING it_postdata = it_postdata
|
||||
IMPORTING es_fields = ls_tag ).
|
||||
|
||||
IF ls_tag-name IS INITIAL.
|
||||
zcx_abapgit_exception=>raise( |Please supply a tag name| ).
|
||||
ENDIF.
|
||||
|
||||
ls_tag-name = zcl_abapgit_tag=>add_tag_prefix( ls_tag-name ).
|
||||
ASSERT ls_tag-name CP 'refs/tags/+*'.
|
||||
|
||||
CASE mv_selected_type.
|
||||
WHEN co_tag_type-lightweight.
|
||||
|
||||
ls_tag-type = zif_abapgit_definitions=>c_git_branch_type-lightweight_tag.
|
||||
|
||||
WHEN co_tag_type-annotated.
|
||||
|
||||
ls_tag-type = zif_abapgit_definitions=>c_git_branch_type-annotated_tag.
|
||||
|
||||
WHEN OTHERS.
|
||||
|
||||
zcx_abapgit_exception=>raise( |Invalid tag type: { mv_selected_type }| ).
|
||||
|
||||
ENDCASE.
|
||||
|
||||
TRY.
|
||||
zcl_abapgit_git_porcelain=>create_tag( iv_url = mo_repo_online->get_url( )
|
||||
is_tag = ls_tag ).
|
||||
|
||||
CATCH zcx_abapgit_exception INTO lx_error.
|
||||
zcx_abapgit_exception=>raise( |Cannot create tag { ls_tag-name }. Error: '{ lx_error->get_text( ) }'| ).
|
||||
ENDTRY.
|
||||
|
||||
IF ls_tag-type = zif_abapgit_definitions=>c_git_branch_type-lightweight_tag.
|
||||
lv_text = |Lightweight tag { zcl_abapgit_tag=>remove_tag_prefix( ls_tag-name ) } created| ##NO_TEXT.
|
||||
ELSEIF ls_tag-type = zif_abapgit_definitions=>c_git_branch_type-annotated_tag.
|
||||
lv_text = |Annotated tag { zcl_abapgit_tag=>remove_tag_prefix( ls_tag-name ) } created| ##NO_TEXT.
|
||||
ENDIF.
|
||||
|
||||
MESSAGE lv_text TYPE 'S'.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD parse_change_tag_type_request.
|
||||
|
||||
FIELD-SYMBOLS: <ls_postdata> TYPE cnht_post_data_line.
|
||||
|
||||
READ TABLE it_postdata ASSIGNING <ls_postdata>
|
||||
INDEX 1.
|
||||
IF sy-subrc = 0.
|
||||
FIND FIRST OCCURRENCE OF REGEX `type=(.*)`
|
||||
IN <ls_postdata>
|
||||
SUBMATCHES mv_selected_type.
|
||||
ENDIF.
|
||||
|
||||
mv_selected_type = condense( mv_selected_type ).
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD parse_tag_request.
|
||||
|
||||
CONSTANTS: lc_replace TYPE string VALUE '<<new>>'.
|
||||
|
||||
DATA: lv_string TYPE string,
|
||||
lt_fields TYPE tihttpnvp.
|
||||
|
||||
FIELD-SYMBOLS <lv_body> TYPE string.
|
||||
|
||||
CLEAR es_fields.
|
||||
|
||||
CONCATENATE LINES OF it_postdata INTO lv_string.
|
||||
REPLACE ALL OCCURRENCES OF zif_abapgit_definitions=>gc_crlf IN lv_string WITH lc_replace.
|
||||
REPLACE ALL OCCURRENCES OF zif_abapgit_definitions=>gc_newline IN lv_string WITH lc_replace.
|
||||
lt_fields = zcl_abapgit_html_action_utils=>parse_fields_upper_case_name( lv_string ).
|
||||
|
||||
zcl_abapgit_html_action_utils=>get_field( EXPORTING name = 'SHA1' it = lt_fields CHANGING cv = es_fields ).
|
||||
zcl_abapgit_html_action_utils=>get_field( EXPORTING name = 'NAME' it = lt_fields CHANGING cv = es_fields ).
|
||||
zcl_abapgit_html_action_utils=>get_field( EXPORTING name = 'TAGGER_NAME' it = lt_fields CHANGING cv = es_fields ).
|
||||
zcl_abapgit_html_action_utils=>get_field( EXPORTING name = 'TAGGER_EMAIL' it = lt_fields CHANGING cv = es_fields ).
|
||||
zcl_abapgit_html_action_utils=>get_field( EXPORTING name = 'MESSAGE' it = lt_fields CHANGING cv = es_fields ).
|
||||
zcl_abapgit_html_action_utils=>get_field( EXPORTING name = 'BODY' it = lt_fields CHANGING cv = es_fields ).
|
||||
|
||||
ASSIGN COMPONENT 'BODY' OF STRUCTURE es_fields TO <lv_body>.
|
||||
ASSERT <lv_body> IS ASSIGNED.
|
||||
REPLACE ALL OCCURRENCES OF lc_replace IN <lv_body> WITH zif_abapgit_definitions=>gc_newline.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD render_content.
|
||||
|
||||
CREATE OBJECT ro_html.
|
||||
|
|
@ -275,103 +374,4 @@ CLASS zcl_abapgit_gui_page_tag IMPLEMENTATION.
|
|||
ENDCASE.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD create_tag.
|
||||
|
||||
DATA:
|
||||
ls_tag TYPE zif_abapgit_definitions=>ty_git_tag,
|
||||
lx_error TYPE REF TO zcx_abapgit_exception,
|
||||
lv_text TYPE string.
|
||||
|
||||
parse_tag_request(
|
||||
EXPORTING it_postdata = it_postdata
|
||||
IMPORTING es_fields = ls_tag ).
|
||||
|
||||
IF ls_tag-name IS INITIAL.
|
||||
zcx_abapgit_exception=>raise( |Please supply a tag name| ).
|
||||
ENDIF.
|
||||
|
||||
ls_tag-name = zcl_abapgit_tag=>add_tag_prefix( ls_tag-name ).
|
||||
ASSERT ls_tag-name CP 'refs/tags/+*'.
|
||||
|
||||
CASE mv_selected_type.
|
||||
WHEN co_tag_type-lightweight.
|
||||
|
||||
ls_tag-type = zif_abapgit_definitions=>c_git_branch_type-lightweight_tag.
|
||||
|
||||
WHEN co_tag_type-annotated.
|
||||
|
||||
ls_tag-type = zif_abapgit_definitions=>c_git_branch_type-annotated_tag.
|
||||
|
||||
WHEN OTHERS.
|
||||
|
||||
zcx_abapgit_exception=>raise( |Invalid tag type: { mv_selected_type }| ).
|
||||
|
||||
ENDCASE.
|
||||
|
||||
TRY.
|
||||
zcl_abapgit_git_porcelain=>create_tag( io_repo = mo_repo_online
|
||||
is_tag = ls_tag ).
|
||||
|
||||
CATCH zcx_abapgit_exception INTO lx_error.
|
||||
zcx_abapgit_exception=>raise( |Cannot create tag { ls_tag-name }. Error: '{ lx_error->get_text( ) }'| ).
|
||||
ENDTRY.
|
||||
|
||||
IF ls_tag-type = zif_abapgit_definitions=>c_git_branch_type-lightweight_tag.
|
||||
lv_text = |Lightweight tag { zcl_abapgit_tag=>remove_tag_prefix( ls_tag-name ) } created| ##NO_TEXT.
|
||||
ELSEIF ls_tag-type = zif_abapgit_definitions=>c_git_branch_type-annotated_tag.
|
||||
lv_text = |Annotated tag { zcl_abapgit_tag=>remove_tag_prefix( ls_tag-name ) } created| ##NO_TEXT.
|
||||
ENDIF.
|
||||
|
||||
MESSAGE lv_text TYPE 'S'.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD parse_tag_request.
|
||||
|
||||
CONSTANTS: lc_replace TYPE string VALUE '<<new>>'.
|
||||
|
||||
DATA: lv_string TYPE string,
|
||||
lt_fields TYPE tihttpnvp.
|
||||
|
||||
FIELD-SYMBOLS <lv_body> TYPE string.
|
||||
|
||||
CLEAR es_fields.
|
||||
|
||||
CONCATENATE LINES OF it_postdata INTO lv_string.
|
||||
REPLACE ALL OCCURRENCES OF zif_abapgit_definitions=>gc_crlf IN lv_string WITH lc_replace.
|
||||
REPLACE ALL OCCURRENCES OF zif_abapgit_definitions=>gc_newline IN lv_string WITH lc_replace.
|
||||
lt_fields = zcl_abapgit_html_action_utils=>parse_fields_upper_case_name( lv_string ).
|
||||
|
||||
zcl_abapgit_html_action_utils=>get_field( EXPORTING name = 'SHA1' it = lt_fields CHANGING cv = es_fields ).
|
||||
zcl_abapgit_html_action_utils=>get_field( EXPORTING name = 'NAME' it = lt_fields CHANGING cv = es_fields ).
|
||||
zcl_abapgit_html_action_utils=>get_field( EXPORTING name = 'TAGGER_NAME' it = lt_fields CHANGING cv = es_fields ).
|
||||
zcl_abapgit_html_action_utils=>get_field( EXPORTING name = 'TAGGER_EMAIL' it = lt_fields CHANGING cv = es_fields ).
|
||||
zcl_abapgit_html_action_utils=>get_field( EXPORTING name = 'MESSAGE' it = lt_fields CHANGING cv = es_fields ).
|
||||
zcl_abapgit_html_action_utils=>get_field( EXPORTING name = 'BODY' it = lt_fields CHANGING cv = es_fields ).
|
||||
|
||||
ASSIGN COMPONENT 'BODY' OF STRUCTURE es_fields TO <lv_body>.
|
||||
ASSERT <lv_body> IS ASSIGNED.
|
||||
REPLACE ALL OCCURRENCES OF lc_replace IN <lv_body> WITH zif_abapgit_definitions=>gc_newline.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD parse_change_tag_type_request.
|
||||
|
||||
FIELD-SYMBOLS: <ls_postdata> TYPE cnht_post_data_line.
|
||||
|
||||
READ TABLE it_postdata ASSIGNING <ls_postdata>
|
||||
INDEX 1.
|
||||
IF sy-subrc = 0.
|
||||
FIND FIRST OCCURRENCE OF REGEX `type=(.*)`
|
||||
IN <ls_postdata>
|
||||
SUBMATCHES mv_selected_type.
|
||||
ENDIF.
|
||||
|
||||
mv_selected_type = condense( mv_selected_type ).
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
ENDCLASS.
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user