mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 12:20:51 +08:00
89 lines
2.9 KiB
ABAP
89 lines
2.9 KiB
ABAP
CLASS zcl_abapgit_transport_2_branch DEFINITION
|
|
PUBLIC
|
|
FINAL
|
|
CREATE PUBLIC .
|
|
|
|
PUBLIC SECTION.
|
|
|
|
METHODS create
|
|
IMPORTING
|
|
!io_repository TYPE REF TO zcl_abapgit_repo_online
|
|
!is_transport_to_branch TYPE zif_abapgit_definitions=>ty_transport_to_branch
|
|
!it_transport_objects TYPE zif_abapgit_definitions=>ty_tadir_tt
|
|
RAISING
|
|
zcx_abapgit_exception .
|
|
PROTECTED SECTION.
|
|
|
|
METHODS generate_commit_message
|
|
IMPORTING
|
|
!is_transport_to_branch TYPE zif_abapgit_definitions=>ty_transport_to_branch
|
|
RETURNING
|
|
VALUE(rs_comment) TYPE zif_abapgit_git_definitions=>ty_comment .
|
|
METHODS stage_transport_objects
|
|
IMPORTING
|
|
!it_transport_objects TYPE zif_abapgit_definitions=>ty_tadir_tt
|
|
!io_stage TYPE REF TO zcl_abapgit_stage
|
|
!is_stage_objects TYPE zif_abapgit_definitions=>ty_stage_files
|
|
!it_object_statuses TYPE zif_abapgit_definitions=>ty_results_tt
|
|
RAISING
|
|
zcx_abapgit_exception .
|
|
PRIVATE SECTION.
|
|
ENDCLASS.
|
|
|
|
|
|
|
|
CLASS zcl_abapgit_transport_2_branch IMPLEMENTATION.
|
|
|
|
|
|
METHOD create.
|
|
DATA:
|
|
lv_branch_name TYPE string,
|
|
ls_comment TYPE zif_abapgit_git_definitions=>ty_comment,
|
|
lo_stage TYPE REF TO zcl_abapgit_stage,
|
|
ls_stage_objects TYPE zif_abapgit_definitions=>ty_stage_files,
|
|
lt_object_statuses TYPE zif_abapgit_definitions=>ty_results_tt.
|
|
|
|
lv_branch_name = zcl_abapgit_git_branch_list=>complete_heads_branch_name(
|
|
zcl_abapgit_git_branch_list=>normalize_branch_name( is_transport_to_branch-branch_name ) ).
|
|
|
|
io_repository->create_branch( lv_branch_name ).
|
|
|
|
CREATE OBJECT lo_stage.
|
|
|
|
ls_stage_objects = zcl_abapgit_factory=>get_stage_logic( )->get( io_repository ).
|
|
|
|
lt_object_statuses = zcl_abapgit_repo_status=>calculate( io_repository ).
|
|
|
|
stage_transport_objects(
|
|
it_transport_objects = it_transport_objects
|
|
io_stage = lo_stage
|
|
is_stage_objects = ls_stage_objects
|
|
it_object_statuses = lt_object_statuses ).
|
|
|
|
ls_comment = generate_commit_message( is_transport_to_branch ).
|
|
|
|
io_repository->push( is_comment = ls_comment
|
|
io_stage = lo_stage ).
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD generate_commit_message.
|
|
rs_comment-committer-name = sy-uname.
|
|
rs_comment-committer-email = |{ rs_comment-committer-name }@localhost|.
|
|
rs_comment-comment = is_transport_to_branch-commit_text.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD stage_transport_objects.
|
|
DATA lo_transport_objects TYPE REF TO zcl_abapgit_transport_objects.
|
|
CREATE OBJECT lo_transport_objects
|
|
EXPORTING
|
|
it_transport_objects = it_transport_objects.
|
|
|
|
lo_transport_objects->to_stage(
|
|
io_stage = io_stage
|
|
is_stage_objects = is_stage_objects
|
|
it_object_statuses = it_object_statuses ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|