SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 12:20:51 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Merge pull request #613 from sbcgua/master

Browse Source 
display METHOD in diff beacons
This commit is contained in:
Lars Hvam 2017-02-11 13:37:45 +01:00 committed by GitHub
commit 54f4ddf3ca
1 changed files with 34 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
src/zabapgit_util.prog.abap
View File

@ -734,35 +734,51 @@ CLASS lcl_diff IMPLEMENTATION.
APPEND lo_regex TO lt_regex_set. APPEND lo_regex TO lt_regex_set.
END-OF-DEFINITION. END-OF-DEFINITION.
DATA: lv_beacon TYPE i, DATA: lv_beacon_idx TYPE i,
lv_offs TYPE i, lv_offs TYPE i,
lv_code_line TYPE string, lv_beacon_str TYPE string,
lo_regex TYPE REF TO cl_abap_regex, lv_beacon_2lev TYPE string,
lt_regex_set TYPE TABLE OF REF TO cl_abap_regex. lv_submatch TYPE string,
lo_regex TYPE REF TO cl_abap_regex,
lt_regex_set TYPE TABLE OF REF TO cl_abap_regex.
FIELD-SYMBOLS: <ls_diff> LIKE LINE OF mt_diff. FIELD-SYMBOLS: <ls_diff> LIKE LINE OF mt_diff.
_add_regex '^\s*(CLASS|FORM|MODULE|REPORT)\s'. _add_regex '^\s*(CLASS|FORM|MODULE|REPORT|METHOD)\s'.
_add_regex '^\s*START-OF-'. _add_regex '^\s*START-OF-'.
_add_regex '^\s*INITIALIZATION(\s|\.)'. _add_regex '^\s*INITIALIZATION(\s|\.)'.
LOOP AT mt_diff ASSIGNING <ls_diff>. LOOP AT mt_diff ASSIGNING <ls_diff>.
<ls_diff>-beacon = lv_beacon.
LOOP AT lt_regex_set INTO lo_regex.
FIND FIRST OCCURRENCE OF REGEX lo_regex IN <ls_diff>-new.
IF sy-subrc = 0. " Match
lv_code_line = <ls_diff>-new.
" Get rid of comments CLEAR lv_offs.
FIND FIRST OCCURRENCE OF '.' IN lv_code_line MATCH OFFSET lv_offs. <ls_diff>-beacon = lv_beacon_idx.
IF sy-subrc = 0.
lv_code_line = lv_code_line(lv_offs). LOOP AT lt_regex_set INTO lo_regex. "
FIND FIRST OCCURRENCE OF REGEX lo_regex IN <ls_diff>-new SUBMATCHES lv_submatch.
IF sy-subrc = 0. " Match
lv_beacon_str = <ls_diff>-new.
lv_submatch = to_upper( lv_submatch ).
" Get rid of comments and end of line
FIND FIRST OCCURRENCE OF '.' IN lv_beacon_str MATCH OFFSET lv_offs.
IF sy-subrc <> 0.
FIND FIRST OCCURRENCE OF '"' IN lv_beacon_str MATCH OFFSET lv_offs.
ENDIF. ENDIF.
APPEND lv_code_line TO mt_beacons. IF lv_offs > 0.
lv_beacon = sy-tabix. lv_beacon_str = lv_beacon_str(lv_offs).
<ls_diff>-beacon = lv_beacon. ENDIF.
IF lv_submatch = 'CLASS'.
lv_beacon_2lev = lv_beacon_str.
ELSEIF lv_submatch = 'METHOD'.
lv_beacon_str = lv_beacon_2lev && ` => ` && lv_beacon_str.
ENDIF.
APPEND lv_beacon_str TO mt_beacons.
lv_beacon_idx = sy-tabix.
<ls_diff>-beacon = lv_beacon_idx.
EXIT. "Loop EXIT. "Loop
ENDIF. ENDIF.
ENDLOOP. ENDLOOP.