mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-02 04:36:49 +08:00
761bbe51af
* Implementation * Turn exporting to returning parameter Co-authored-by: Lars Hvam <larshp@hotmail.com>
263 lines
7.7 KiB
ABAP
263 lines
7.7 KiB
ABAP
"! <p class="shorttext synchronized" lang="en">Git Commit</p>
|
|
CLASS zcl_abapgit_git_commit DEFINITION
|
|
PUBLIC
|
|
CREATE PUBLIC .
|
|
|
|
PUBLIC SECTION.
|
|
TYPES:
|
|
BEGIN OF ty_pull_result,
|
|
commits TYPE zif_abapgit_definitions=>ty_commit_tt,
|
|
commit TYPE zif_abapgit_definitions=>ty_sha1,
|
|
END OF ty_pull_result .
|
|
|
|
CLASS-METHODS get_by_branch
|
|
IMPORTING
|
|
!iv_branch_name TYPE string
|
|
!iv_repo_url TYPE zif_abapgit_persistence=>ty_repo-url
|
|
!iv_deepen_level TYPE i
|
|
RETURNING
|
|
VALUE(rs_pull_result) TYPE ty_pull_result
|
|
RAISING
|
|
zcx_abapgit_exception .
|
|
CLASS-METHODS get_by_commit
|
|
IMPORTING
|
|
!iv_commit_hash TYPE zif_abapgit_definitions=>ty_sha1
|
|
!iv_repo_url TYPE zif_abapgit_persistence=>ty_repo-url
|
|
!iv_deepen_level TYPE i
|
|
RETURNING
|
|
VALUE(rt_commits) TYPE zif_abapgit_definitions=>ty_commit_tt
|
|
RAISING
|
|
zcx_abapgit_exception .
|
|
CLASS-METHODS parse_commits
|
|
IMPORTING
|
|
!it_objects TYPE zif_abapgit_definitions=>ty_objects_tt
|
|
RETURNING
|
|
VALUE(rt_commits) TYPE zif_abapgit_definitions=>ty_commit_tt
|
|
RAISING
|
|
zcx_abapgit_exception .
|
|
CLASS-METHODS sort_commits
|
|
CHANGING
|
|
!ct_commits TYPE zif_abapgit_definitions=>ty_commit_tt .
|
|
CLASS-METHODS reverse_sort_order
|
|
CHANGING
|
|
!ct_commits TYPE zif_abapgit_definitions=>ty_commit_tt .
|
|
|
|
PROTECTED SECTION.
|
|
PRIVATE SECTION.
|
|
TYPES: ty_sha1_range TYPE RANGE OF zif_abapgit_definitions=>ty_sha1 .
|
|
|
|
CLASS-METHODS get_1st_child_commit
|
|
IMPORTING
|
|
it_commit_sha1s TYPE ty_sha1_range
|
|
EXPORTING
|
|
et_commit_sha1s TYPE ty_sha1_range
|
|
es_1st_commit TYPE zif_abapgit_definitions=>ty_commit
|
|
CHANGING
|
|
ct_commits TYPE zif_abapgit_definitions=>ty_commit_tt .
|
|
|
|
|
|
ENDCLASS.
|
|
|
|
|
|
|
|
CLASS zcl_abapgit_git_commit IMPLEMENTATION.
|
|
|
|
|
|
METHOD get_by_branch.
|
|
|
|
DATA: li_progress TYPE REF TO zif_abapgit_progress,
|
|
lt_objects TYPE zif_abapgit_definitions=>ty_objects_tt.
|
|
|
|
li_progress = zcl_abapgit_progress=>get_instance( 1 ).
|
|
|
|
li_progress->show(
|
|
iv_current = 1
|
|
iv_text = |Get git commits { iv_repo_url }| ).
|
|
|
|
zcl_abapgit_git_transport=>upload_pack_by_branch(
|
|
EXPORTING
|
|
iv_url = iv_repo_url
|
|
iv_branch_name = iv_branch_name
|
|
iv_deepen_level = iv_deepen_level
|
|
IMPORTING
|
|
ev_branch = rs_pull_result-commit
|
|
et_objects = lt_objects ).
|
|
|
|
DELETE lt_objects WHERE type <> zif_abapgit_definitions=>c_type-commit.
|
|
|
|
rs_pull_result-commits = parse_commits( lt_objects ).
|
|
sort_commits( CHANGING ct_commits = rs_pull_result-commits ).
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD get_by_commit.
|
|
|
|
DATA: li_progress TYPE REF TO zif_abapgit_progress,
|
|
lt_objects TYPE zif_abapgit_definitions=>ty_objects_tt.
|
|
|
|
li_progress = zcl_abapgit_progress=>get_instance( 1 ).
|
|
|
|
li_progress->show(
|
|
iv_current = 1
|
|
iv_text = |Get git commits { iv_repo_url }| ).
|
|
|
|
zcl_abapgit_git_transport=>upload_pack_by_commit(
|
|
EXPORTING
|
|
iv_url = iv_repo_url
|
|
iv_deepen_level = iv_deepen_level
|
|
iv_hash = iv_commit_hash
|
|
IMPORTING
|
|
et_objects = lt_objects ).
|
|
|
|
DELETE lt_objects WHERE type <> zif_abapgit_definitions=>c_type-commit.
|
|
|
|
rt_commits = parse_commits( lt_objects ).
|
|
sort_commits( CHANGING ct_commits = rt_commits ).
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD get_1st_child_commit.
|
|
|
|
DATA: lt_1stchild_commits TYPE zif_abapgit_definitions=>ty_commit_tt,
|
|
ls_parent LIKE LINE OF it_commit_sha1s,
|
|
lt_commit_sha1s LIKE it_commit_sha1s.
|
|
|
|
FIELD-SYMBOLS: <ls_child_commit> TYPE zif_abapgit_definitions=>ty_commit.
|
|
|
|
CLEAR: es_1st_commit.
|
|
|
|
* get all reachable next commits
|
|
lt_commit_sha1s = it_commit_sha1s.
|
|
LOOP AT ct_commits ASSIGNING <ls_child_commit> WHERE parent1 IN lt_commit_sha1s
|
|
OR parent2 IN lt_commit_sha1s.
|
|
INSERT <ls_child_commit> INTO TABLE lt_1stchild_commits.
|
|
ENDLOOP.
|
|
|
|
* return oldest one
|
|
SORT lt_1stchild_commits BY time ASCENDING.
|
|
READ TABLE lt_1stchild_commits INTO es_1st_commit INDEX 1.
|
|
|
|
* remove from available commits
|
|
DELETE ct_commits WHERE sha1 = es_1st_commit-sha1.
|
|
|
|
* set relevant parent commit sha1s
|
|
IF lines( lt_1stchild_commits ) = 1.
|
|
CLEAR et_commit_sha1s.
|
|
ELSE.
|
|
et_commit_sha1s = it_commit_sha1s.
|
|
ENDIF.
|
|
|
|
ls_parent-sign = 'I'.
|
|
ls_parent-option = 'EQ'.
|
|
ls_parent-low = es_1st_commit-sha1.
|
|
INSERT ls_parent INTO TABLE et_commit_sha1s.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD parse_commits.
|
|
|
|
DATA: ls_commit TYPE zif_abapgit_definitions=>ty_commit,
|
|
lt_body TYPE STANDARD TABLE OF string WITH DEFAULT KEY,
|
|
ls_raw TYPE zcl_abapgit_git_pack=>ty_commit.
|
|
|
|
FIELD-SYMBOLS: <ls_object> LIKE LINE OF it_objects,
|
|
<lv_body> TYPE string.
|
|
|
|
|
|
LOOP AT it_objects ASSIGNING <ls_object> USING KEY type
|
|
WHERE type = zif_abapgit_definitions=>c_type-commit.
|
|
ls_raw = zcl_abapgit_git_pack=>decode_commit( <ls_object>-data ).
|
|
|
|
CLEAR ls_commit.
|
|
ls_commit-sha1 = <ls_object>-sha1.
|
|
ls_commit-parent1 = ls_raw-parent.
|
|
ls_commit-parent2 = ls_raw-parent2.
|
|
|
|
SPLIT ls_raw-body AT zif_abapgit_definitions=>c_newline INTO TABLE lt_body.
|
|
|
|
READ TABLE lt_body WITH KEY table_line = ' -----END PGP SIGNATURE-----' TRANSPORTING NO FIELDS.
|
|
IF sy-subrc = 0.
|
|
DELETE lt_body TO sy-tabix.
|
|
DELETE lt_body TO 2.
|
|
ENDIF.
|
|
|
|
READ TABLE lt_body INDEX 1 INTO ls_commit-message. "#EC CI_SUBRC
|
|
" The second line is always empty. Therefore we omit it.
|
|
LOOP AT lt_body ASSIGNING <lv_body>
|
|
FROM 3.
|
|
INSERT <lv_body> INTO TABLE ls_commit-body.
|
|
ENDLOOP.
|
|
|
|
zcl_abapgit_utils=>extract_author_data(
|
|
EXPORTING
|
|
iv_author = ls_raw-author
|
|
IMPORTING
|
|
ev_author = ls_commit-author
|
|
ev_email = ls_commit-email
|
|
ev_time = ls_commit-time ).
|
|
|
|
APPEND ls_commit TO rt_commits.
|
|
|
|
ENDLOOP.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD reverse_sort_order.
|
|
|
|
DATA: lt_commits TYPE zif_abapgit_definitions=>ty_commit_tt.
|
|
FIELD-SYMBOLS: <ls_commit> TYPE zif_abapgit_definitions=>ty_commit.
|
|
|
|
LOOP AT ct_commits ASSIGNING <ls_commit>.
|
|
INSERT <ls_commit> INTO lt_commits INDEX 1.
|
|
ENDLOOP.
|
|
ct_commits = lt_commits.
|
|
FREE lt_commits.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD sort_commits.
|
|
|
|
DATA: lt_sorted_commits TYPE zif_abapgit_definitions=>ty_commit_tt,
|
|
ls_next_commit TYPE zif_abapgit_definitions=>ty_commit,
|
|
lt_parents TYPE ty_sha1_range,
|
|
ls_parent LIKE LINE OF lt_parents.
|
|
|
|
FIELD-SYMBOLS: <ls_initial_commit> TYPE zif_abapgit_definitions=>ty_commit.
|
|
|
|
" find initial commit
|
|
READ TABLE ct_commits ASSIGNING <ls_initial_commit> WITH KEY parent1 = space.
|
|
IF sy-subrc = 0.
|
|
|
|
ls_parent-sign = 'I'.
|
|
ls_parent-option = 'EQ'.
|
|
ls_parent-low = <ls_initial_commit>-sha1.
|
|
INSERT ls_parent INTO TABLE lt_parents.
|
|
|
|
" first commit
|
|
INSERT <ls_initial_commit> INTO TABLE lt_sorted_commits.
|
|
|
|
" remove from available commits
|
|
DELETE ct_commits WHERE sha1 = <ls_initial_commit>-sha1.
|
|
|
|
DO.
|
|
get_1st_child_commit( EXPORTING it_commit_sha1s = lt_parents
|
|
IMPORTING et_commit_sha1s = lt_parents
|
|
es_1st_commit = ls_next_commit
|
|
CHANGING ct_commits = ct_commits ).
|
|
IF ls_next_commit IS INITIAL.
|
|
EXIT. "DO
|
|
ENDIF.
|
|
INSERT ls_next_commit INTO TABLE lt_sorted_commits.
|
|
ENDDO.
|
|
|
|
ct_commits = lt_sorted_commits.
|
|
ENDIF.
|
|
|
|
ENDMETHOD.
|
|
ENDCLASS.
|