Press n or j to go to the next uncovered block, b, p or k for the previous block.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 | 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 1x 1x 1x 1x | CLASS lcl_find_changes DEFINITION.
PUBLIC SECTION.
METHODS constructor
IMPORTING
it_objects TYPE zif_abapgit_definitions=>ty_objects_tt.
METHODS find_changes
IMPORTING
iv_main TYPE zif_abapgit_git_definitions=>ty_sha1
iv_branch TYPE zif_abapgit_git_definitions=>ty_sha1
iv_starting_folder TYPE string
RETURNING
VALUE(rt_files) TYPE zif_abapgit_flow_logic=>ty_path_name_tt
RAISING
zcx_abapgit_exception.
PRIVATE SECTION.
TYPES: BEGIN OF ty_tree_cache,
sha1 TYPE string,
nodes TYPE zcl_abapgit_git_pack=>ty_nodes_tt,
END OF ty_tree_cache.
DATA mt_tree_cache TYPE HASHED TABLE OF ty_tree_cache WITH UNIQUE KEY sha1.
DATA mt_objects TYPE zif_abapgit_definitions=>ty_objects_tt.
METHODS walk
IMPORTING
iv_path TYPE string
iv_tree_main TYPE zif_abapgit_git_definitions=>ty_sha1 OPTIONAL
iv_tree_branch TYPE zif_abapgit_git_definitions=>ty_sha1 OPTIONAL
RETURNING
VALUE(rt_files) TYPE zif_abapgit_flow_logic=>ty_path_name_tt
RAISING
zcx_abapgit_exception.
METHODS decode_tree
IMPORTING
iv_tree TYPE zif_abapgit_git_definitions=>ty_sha1
RETURNING
VALUE(rt_nodes) TYPE zcl_abapgit_git_pack=>ty_nodes_tt
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS lcl_find_changes IMPLEMENTATION.
METHOD constructor.
mt_objects = it_objects.
ENDMETHOD.
METHOD find_changes.
* don't care if its added or removed or changed, just remove identical
* also list identical moved files
DATA ls_object LIKE LINE OF mt_objects.
DATA lv_tree_main TYPE zif_abapgit_git_definitions=>ty_sha1.
DATA lv_tree_branch TYPE zif_abapgit_git_definitions=>ty_sha1.
READ TABLE mt_objects WITH TABLE KEY type
COMPONENTS sha1 = iv_main type = zif_abapgit_git_definitions=>c_type-commit INTO ls_object.
ASSERT sy-subrc = 0.
lv_tree_main = zcl_abapgit_git_pack=>decode_commit( ls_object-data )-tree.
READ TABLE mt_objects WITH TABLE KEY type
COMPONENTS sha1 = iv_branch type = zif_abapgit_git_definitions=>c_type-commit INTO ls_object.
ASSERT sy-subrc = 0.
lv_tree_branch = zcl_abapgit_git_pack=>decode_commit( ls_object-data )-tree.
rt_files = walk(
iv_path = '/'
iv_tree_main = lv_tree_main
iv_tree_branch = lv_tree_branch ).
DELETE rt_files WHERE path NP iv_starting_folder.
ENDMETHOD.
METHOD walk.
DATA lt_main TYPE zcl_abapgit_git_pack=>ty_nodes_tt.
DATA lt_branch TYPE zcl_abapgit_git_pack=>ty_nodes_tt.
DATA ls_node_main LIKE LINE OF lt_main.
DATA ls_node_branch LIKE LINE OF lt_branch.
DATA ls_file LIKE LINE OF rt_files.
DATA lt_files LIKE rt_files.
IF iv_tree_main IS NOT INITIAL.
lt_main = decode_tree( iv_tree_main ).
ENDIF.
IF iv_tree_branch IS NOT INITIAL.
lt_branch = decode_tree( iv_tree_branch ).
ENDIF.
LOOP AT lt_main INTO ls_node_main.
READ TABLE lt_branch INTO ls_node_branch WITH KEY name = ls_node_main-name.
IF sy-subrc = 0.
DELETE lt_branch INDEX sy-tabix.
IF ls_node_branch-sha1 = ls_node_main-sha1.
CONTINUE.
ENDIF.
ENDIF.
CASE ls_node_main-chmod.
WHEN zif_abapgit_git_definitions=>c_chmod-dir.
lt_files = walk(
iv_path = iv_path && ls_node_main-name && '/'
iv_tree_main = ls_node_main-sha1
iv_tree_branch = ls_node_branch-sha1 ).
INSERT LINES OF lt_files INTO TABLE rt_files.
WHEN zif_abapgit_git_definitions=>c_chmod-file.
CLEAR ls_file.
ls_file-path = iv_path.
ls_file-filename = ls_node_main-name.
ls_file-remote_sha1 = ls_node_branch-sha1.
INSERT ls_file INTO TABLE rt_files.
WHEN OTHERS.
" ignore other types
ENDCASE.
ENDLOOP.
* new in branch, not in main
LOOP AT lt_branch INTO ls_node_branch.
CASE ls_node_branch-chmod.
WHEN zif_abapgit_git_definitions=>c_chmod-dir.
lt_files = walk(
iv_path = iv_path && ls_node_branch-name && '/'
iv_tree_branch = ls_node_branch-sha1 ).
INSERT LINES OF lt_files INTO TABLE rt_files.
WHEN zif_abapgit_git_definitions=>c_chmod-file.
CLEAR ls_file.
ls_file-path = iv_path.
ls_file-filename = ls_node_branch-name.
ls_file-remote_sha1 = ls_node_branch-sha1.
INSERT ls_file INTO TABLE rt_files.
WHEN OTHERS.
" ignore other types
ENDCASE.
ENDLOOP.
ENDMETHOD.
METHOD decode_tree.
DATA ls_cache LIKE LINE OF mt_tree_cache.
DATA ls_object LIKE LINE OF mt_objects.
FIELD-SYMBOLS <ls_cache> LIKE LINE OF mt_tree_cache.
READ TABLE mt_tree_cache ASSIGNING <ls_cache> WITH KEY sha1 = iv_tree.
IF sy-subrc = 0.
rt_nodes = <ls_cache>-nodes.
ELSE.
READ TABLE mt_objects INTO ls_object WITH TABLE KEY type
COMPONENTS sha1 = iv_tree type = zif_abapgit_git_definitions=>c_type-tree.
ASSERT sy-subrc = 0.
rt_nodes = zcl_abapgit_git_pack=>decode_tree( ls_object-data ).
ls_cache-sha1 = iv_tree.
ls_cache-nodes = rt_nodes.
INSERT ls_cache INTO TABLE mt_tree_cache.
ENDIF.
ENDMETHOD.
ENDCLASS.
|