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 #1 from larshp/master

Browse Source 
Sync with original source
This commit is contained in:
thomas-erdoesi 2017-10-10 09:16:44 +02:00 committed by GitHub
commit 9ec2bd4895
69 changed files with 1436 additions and 1107 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
package.json
View File

@ -8,7 +8,7 @@
"url": "git+https://github.com/larshp/abapGit.git" "url": "git+https://github.com/larshp/abapGit.git"
}, },
"devDependencies": { "devDependencies": {
"abapmerge": "^0.7.1", "abapmerge": "^0.8.0",
"abaplint": ">=0.26.7" "abaplint": ">=0.26.7"
} }
} }

1
src/zabapgit.prog.abap
View File

@ -32,7 +32,6 @@ SELECTION-SCREEN END OF SCREEN 1001.
INCLUDE zabapgit_password_dialog. " !!! Contains SELECTION SCREEN INCLUDE zabapgit_password_dialog. " !!! Contains SELECTION SCREEN
INCLUDE zabapgit_definitions.
INCLUDE zabapgit_macros. INCLUDE zabapgit_macros.
INCLUDE zabapgit_exceptions. INCLUDE zabapgit_exceptions.
INCLUDE zabapgit_zlib. INCLUDE zabapgit_zlib.

12
src/zabapgit_background.prog.abap
View File

@ -12,7 +12,7 @@ CLASS lcl_background DEFINITION FINAL.
PRIVATE SECTION. PRIVATE SECTION.
CLASS-METHODS: CLASS-METHODS:
build_comment build_comment
IMPORTING is_files TYPE lif_defs=>ty_stage_files IMPORTING is_files TYPE zif_abapgit_definitions=>ty_stage_files
RETURNING VALUE(rv_comment) TYPE string, RETURNING VALUE(rv_comment) TYPE string,
push push
IMPORTING io_repo TYPE REF TO lcl_repo_online IMPORTING io_repo TYPE REF TO lcl_repo_online
@ -51,8 +51,8 @@ CLASS lcl_background IMPLEMENTATION.
METHOD push_fixed. METHOD push_fixed.
DATA: ls_comment TYPE lif_defs=>ty_comment, DATA: ls_comment TYPE zif_abapgit_definitions=>ty_comment,
ls_files TYPE lif_defs=>ty_stage_files, ls_files TYPE zif_abapgit_definitions=>ty_stage_files,
lo_stage TYPE REF TO lcl_stage. lo_stage TYPE REF TO lcl_stage.
FIELD-SYMBOLS: <ls_local> LIKE LINE OF ls_files-local. FIELD-SYMBOLS: <ls_local> LIKE LINE OF ls_files-local.
@ -105,7 +105,7 @@ CLASS lcl_background IMPLEMENTATION.
ELSE. ELSE.
rv_comment = 'BG: Multiple objects'. rv_comment = 'BG: Multiple objects'.
LOOP AT lt_objects INTO lv_str. LOOP AT lt_objects INTO lv_str.
CONCATENATE rv_comment lif_defs=>gc_newline lv_str INTO rv_comment. CONCATENATE rv_comment zif_abapgit_definitions=>gc_newline lv_str INTO rv_comment.
ENDLOOP. ENDLOOP.
ENDIF. ENDIF.
@ -119,8 +119,8 @@ CLASS lcl_background IMPLEMENTATION.
changed_by TYPE xubname, changed_by TYPE xubname,
END OF ty_changed. END OF ty_changed.
DATA: ls_comment TYPE lif_defs=>ty_comment, DATA: ls_comment TYPE zif_abapgit_definitions=>ty_comment,
ls_files TYPE lif_defs=>ty_stage_files, ls_files TYPE zif_abapgit_definitions=>ty_stage_files,
lt_changed TYPE STANDARD TABLE OF ty_changed WITH DEFAULT KEY, lt_changed TYPE STANDARD TABLE OF ty_changed WITH DEFAULT KEY,
lt_users TYPE STANDARD TABLE OF xubname WITH DEFAULT KEY, lt_users TYPE STANDARD TABLE OF xubname WITH DEFAULT KEY,
ls_user_files LIKE ls_files, ls_user_files LIKE ls_files,

261
src/zabapgit_definitions.prog.abap
View File

@ -1,261 +0,0 @@
*&---------------------------------------------------------------------*
*& Include ZABAPGIT_DEFINITIONS
*&---------------------------------------------------------------------*
TYPE-POOLS seop.
INTERFACE lif_defs.
CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v1.43.1'. "#EC NOTEXT
TYPES: ty_type TYPE c LENGTH 6,
ty_bitbyte TYPE c LENGTH 8,
ty_sha1 TYPE c LENGTH 40.
TYPES: BEGIN OF ty_file_signature,
path TYPE string,
filename TYPE string,
sha1 TYPE lif_defs=>ty_sha1,
END OF ty_file_signature.
TYPES: ty_file_signatures_tt TYPE STANDARD TABLE OF
ty_file_signature WITH DEFAULT KEY.
TYPES: ty_file_signatures_ts TYPE SORTED TABLE OF
ty_file_signature WITH UNIQUE KEY path filename.
TYPES: BEGIN OF ty_file.
INCLUDE TYPE ty_file_signature.
TYPES: data TYPE xstring,
END OF ty_file.
TYPES: ty_files_tt TYPE STANDARD TABLE OF ty_file WITH DEFAULT KEY.
TYPES: ty_string_tt TYPE STANDARD TABLE OF string WITH DEFAULT KEY.
TYPES: ty_icm_sinfo2_tt TYPE STANDARD TABLE OF icm_sinfo2 WITH DEFAULT KEY.
TYPES:
BEGIN OF ty_git_user,
name TYPE string,
email TYPE string,
END OF ty_git_user.
TYPES:
BEGIN OF ty_comment,
committer TYPE ty_git_user,
author TYPE ty_git_user,
comment TYPE string,
END OF ty_comment.
TYPES: BEGIN OF ty_item,
obj_type TYPE tadir-object,
obj_name TYPE tadir-obj_name,
devclass TYPE devclass,
END OF ty_item,
ty_items_tt TYPE STANDARD TABLE OF ty_item WITH DEFAULT KEY,
ty_items_ts TYPE SORTED TABLE OF ty_item WITH UNIQUE KEY obj_type obj_name.
TYPES: BEGIN OF ty_file_item,
file TYPE lif_defs=>ty_file,
item TYPE ty_item,
END OF ty_file_item.
TYPES: ty_files_item_tt TYPE STANDARD TABLE OF ty_file_item WITH DEFAULT KEY.
TYPES: BEGIN OF ty_metadata,
class TYPE string,
version TYPE string,
late_deser TYPE abap_bool,
delete_tadir TYPE abap_bool,
ddic TYPE abap_bool,
END OF ty_metadata.
TYPES: BEGIN OF ty_web_asset,
url TYPE w3url,
base64 TYPE string,
content TYPE xstring,
END OF ty_web_asset.
TYPES tt_web_assets TYPE STANDARD TABLE OF ty_web_asset WITH DEFAULT KEY.
TYPES: BEGIN OF ty_repo_file,
path TYPE string,
filename TYPE string,
is_changed TYPE abap_bool,
rstate TYPE char1,
lstate TYPE char1,
END OF ty_repo_file.
TYPES tt_repo_files TYPE STANDARD TABLE OF ty_repo_file WITH DEFAULT KEY.
TYPES: BEGIN OF ty_stage_files,
local TYPE lif_defs=>ty_files_item_tt,
remote TYPE lif_defs=>ty_files_tt,
END OF ty_stage_files.
CONSTANTS: BEGIN OF gc_type,
commit TYPE lif_defs=>ty_type VALUE 'commit', "#EC NOTEXT
tree TYPE lif_defs=>ty_type VALUE 'tree', "#EC NOTEXT
ref_d TYPE lif_defs=>ty_type VALUE 'ref_d', "#EC NOTEXT
blob TYPE lif_defs=>ty_type VALUE 'blob', "#EC NOTEXT
END OF gc_type.
TYPES: ty_chmod TYPE c LENGTH 6.
TYPES: BEGIN OF ty_object,
sha1 TYPE lif_defs=>ty_sha1,
type TYPE lif_defs=>ty_type,
data TYPE xstring,
END OF ty_object.
TYPES: ty_objects_tt TYPE STANDARD TABLE OF ty_object WITH DEFAULT KEY.
TYPES: BEGIN OF ty_tadir,
pgmid TYPE tadir-pgmid,
object TYPE tadir-object,
obj_name TYPE tadir-obj_name,
devclass TYPE tadir-devclass,
korrnum TYPE tadir-korrnum,
path TYPE string,
END OF ty_tadir.
TYPES: ty_tadir_tt TYPE STANDARD TABLE OF ty_tadir WITH DEFAULT KEY.
TYPES: BEGIN OF ty_result,
obj_type TYPE tadir-object,
obj_name TYPE tadir-obj_name,
path TYPE string,
filename TYPE string,
package TYPE devclass,
match TYPE sap_bool,
lstate TYPE char1,
rstate TYPE char1,
END OF ty_result.
TYPES: ty_results_tt TYPE STANDARD TABLE OF ty_result WITH DEFAULT KEY.
TYPES: ty_sval_tt TYPE STANDARD TABLE OF sval WITH DEFAULT KEY.
TYPES: ty_seocompotx_tt TYPE STANDARD TABLE OF seocompotx WITH DEFAULT KEY.
TYPES: BEGIN OF ty_tpool.
INCLUDE TYPE textpool.
TYPES: split TYPE c LENGTH 8.
TYPES: END OF ty_tpool.
TYPES: ty_tpool_tt TYPE STANDARD TABLE OF ty_tpool WITH DEFAULT KEY.
TYPES: BEGIN OF ty_sotr,
header TYPE sotr_head,
entries TYPE sotr_text_tt,
END OF ty_sotr.
TYPES: ty_sotr_tt TYPE STANDARD TABLE OF ty_sotr WITH DEFAULT KEY.
TYPES:
BEGIN OF ty_transport_to_branch,
branch_name TYPE string,
commit_text TYPE string,
END OF ty_transport_to_branch.
CONSTANTS: BEGIN OF gc_state, " https://git-scm.com/docs/git-status
unchanged TYPE char1 VALUE '',
added TYPE char1 VALUE 'A',
modified TYPE char1 VALUE 'M',
deleted TYPE char1 VALUE 'D', "For future use
mixed TYPE char1 VALUE '*',
END OF gc_state.
CONSTANTS: BEGIN OF gc_chmod,
file TYPE ty_chmod VALUE '100644',
executable TYPE ty_chmod VALUE '100755',
dir TYPE ty_chmod VALUE '40000 ',
END OF gc_chmod.
CONSTANTS: BEGIN OF gc_event_state,
not_handled VALUE 0,
re_render VALUE 1,
new_page VALUE 2,
go_back VALUE 3,
no_more_act VALUE 4,
new_page_w_bookmark VALUE 5,
go_back_to_bookmark VALUE 6,
new_page_replacing VALUE 7,
END OF gc_event_state.
CONSTANTS: BEGIN OF gc_html_opt,
strong TYPE c VALUE 'E',
cancel TYPE c VALUE 'C',
crossout TYPE c VALUE 'X',
END OF gc_html_opt.
CONSTANTS: BEGIN OF gc_action_type,
sapevent TYPE c VALUE 'E',
url TYPE c VALUE 'U',
onclick TYPE c VALUE 'C',
separator TYPE c VALUE 'S',
dummy TYPE c VALUE '_',
END OF gc_action_type.
CONSTANTS: gc_crlf TYPE abap_cr_lf VALUE cl_abap_char_utilities=>cr_lf.
CONSTANTS: gc_newline TYPE abap_char1 VALUE cl_abap_char_utilities=>newline.
CONSTANTS: gc_english TYPE spras VALUE 'E'.
CONSTANTS: gc_root_dir TYPE string VALUE '/',
gc_dot_abapgit TYPE string VALUE '.abapgit.xml' ##NO_TEXT,
gc_author_regex TYPE string VALUE '^([\\\w\s\.@\-_1-9\(\) ]+) <(.*)> (\d{10})\s?.\d{4}$' ##NO_TEXT.
CONSTANTS: BEGIN OF gc_action,
repo_clone TYPE string VALUE 'repo_clone',
repo_refresh TYPE string VALUE 'repo_refresh',
repo_remove TYPE string VALUE 'repo_remove',
repo_settings TYPE string VALUE 'repo_settings',
repo_purge TYPE string VALUE 'repo_purge',
repo_newoffline TYPE string VALUE 'repo_newoffline',
repo_remote_attach TYPE string VALUE 'repo_remote_attach',
repo_remote_detach TYPE string VALUE 'repo_remote_detach',
repo_remote_change TYPE string VALUE 'repo_remote_change',
repo_refresh_checksums TYPE string VALUE 'repo_refresh_checksums',
repo_toggle_fav TYPE string VALUE 'repo_toggle_fav',
repo_transport_to_branch TYPE string VALUE 'repo_transport_to_branch',
repo_syntax_check TYPE string VALUE 'repo_syntax_check',
abapgit_home TYPE string VALUE 'abapgit_home',
abapgit_wiki TYPE string VALUE 'abapgit_wiki',
abapgit_install TYPE string VALUE 'abapgit_install',
abapgit_install_pi TYPE string VALUE 'abapgit_install_pi',
zip_import TYPE string VALUE 'zip_import',
zip_export TYPE string VALUE 'zip_export',
zip_package TYPE string VALUE 'zip_package',
zip_transport TYPE string VALUE 'zip_transport',
zip_object TYPE string VALUE 'zip_object',
git_pull TYPE string VALUE 'git_pull',
git_reset TYPE string VALUE 'git_reset',
git_branch_create TYPE string VALUE 'git_branch_create',
git_branch_switch TYPE string VALUE 'git_branch_switch',
git_branch_delete TYPE string VALUE 'git_branch_delete',
git_commit TYPE string VALUE 'git_commit',
db_delete TYPE string VALUE 'db_delete',
db_update TYPE string VALUE 'db_update',
db_display TYPE string VALUE 'db_display',
db_edit TYPE string VALUE 'db_edit',
bg_update TYPE string VALUE 'bg_update',
go_main TYPE string VALUE 'go_main',
go_explore TYPE string VALUE 'go_explore',
go_db TYPE string VALUE 'go_db',
go_background TYPE string VALUE 'go_background',
go_background_run TYPE string VALUE 'go_background_run',
go_diff TYPE string VALUE 'go_diff',
go_stage TYPE string VALUE 'go_stage',
go_commit TYPE string VALUE 'go_commit',
go_branch_overview TYPE string VALUE 'go_branch_overview',
go_playground TYPE string VALUE 'go_playground',
go_debuginfo TYPE string VALUE 'go_debuginfo',
go_settings TYPE string VALUE 'go_settings',
go_tutorial TYPE string VALUE 'go_tutorial',
jump TYPE string VALUE 'jump',
jump_pkg TYPE string VALUE 'jump_pkg',
END OF gc_action.
ENDINTERFACE.

22
src/zabapgit_definitions.prog.xml
View File

@ -1,22 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>ZABAPGIT_DEFINITIONS</NAME>
<STATE>A</STATE>
<VARCL>X</VARCL>
<SUBC>I</SUBC>
<RLOAD>E</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Include ZABAPGIT_DEFINITIONS</ENTRY>
<LENGTH>28</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>

10
src/zabapgit_dot_abapgit.prog.abap
View File

@ -65,7 +65,7 @@ CLASS lcl_dot_abapgit DEFINITION FINAL FRIENDS ltcl_dot_abapgit.
* set_master_language * set_master_language
* IMPORTING iv_language TYPE spras, * IMPORTING iv_language TYPE spras,
get_signature get_signature
RETURNING VALUE(rs_signature) TYPE lif_defs=>ty_file_signature RETURNING VALUE(rs_signature) TYPE zif_abapgit_definitions=>ty_file_signature
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
PRIVATE SECTION. PRIVATE SECTION.
@ -209,7 +209,7 @@ CLASS lcl_dot_abapgit IMPLEMENTATION.
lv_name = iv_path && iv_filename. lv_name = iv_path && iv_filename.
CONCATENATE ms_data-starting_folder '*' INTO lv_starting. CONCATENATE ms_data-starting_folder '*' INTO lv_starting.
CONCATENATE '/' lif_defs=>gc_dot_abapgit INTO lv_dot. CONCATENATE '/' zif_abapgit_definitions=>gc_dot_abapgit INTO lv_dot.
LOOP AT ms_data-ignore INTO lv_ignore. LOOP AT ms_data-ignore INTO lv_ignore.
FIND ALL OCCURRENCES OF '/' IN lv_name MATCH COUNT lv_count. FIND ALL OCCURRENCES OF '/' IN lv_name MATCH COUNT lv_count.
@ -259,9 +259,9 @@ CLASS lcl_dot_abapgit IMPLEMENTATION.
METHOD get_signature. METHOD get_signature.
rs_signature-path = lif_defs=>gc_root_dir. rs_signature-path = zif_abapgit_definitions=>gc_root_dir.
rs_signature-filename = lif_defs=>gc_dot_abapgit. rs_signature-filename = zif_abapgit_definitions=>gc_dot_abapgit.
rs_signature-sha1 = lcl_hash=>sha1( iv_type = lif_defs=>gc_type-blob rs_signature-sha1 = lcl_hash=>sha1( iv_type = zif_abapgit_definitions=>gc_type-blob
iv_data = serialize( ) ). iv_data = serialize( ) ).
ENDMETHOD. "get_signature ENDMETHOD. "get_signature

2
src/zabapgit_exit.prog.abap
View File

@ -6,7 +6,7 @@ INTERFACE lif_exit.
METHODS: METHODS:
change_local_host change_local_host
CHANGING ct_hosts TYPE lif_defs=>ty_icm_sinfo2_tt, CHANGING ct_hosts TYPE zif_abapgit_definitions=>ty_icm_sinfo2_tt,
allow_sap_objects allow_sap_objects
RETURNING VALUE(rv_allowed) TYPE abap_bool. RETURNING VALUE(rv_allowed) TYPE abap_bool.

60
src/zabapgit_file_status.prog.abap
View File

@ -16,7 +16,7 @@ CLASS lcl_file_status DEFINITION FINAL
CLASS-METHODS status CLASS-METHODS status
IMPORTING io_repo TYPE REF TO lcl_repo IMPORTING io_repo TYPE REF TO lcl_repo
io_log TYPE REF TO lcl_log OPTIONAL io_log TYPE REF TO lcl_log OPTIONAL
RETURNING VALUE(rt_results) TYPE lif_defs=>ty_results_tt RETURNING VALUE(rt_results) TYPE zif_abapgit_definitions=>ty_results_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
PRIVATE SECTION. PRIVATE SECTION.
@ -25,39 +25,39 @@ CLASS lcl_file_status DEFINITION FINAL
calculate_status calculate_status
IMPORTING iv_devclass TYPE devclass IMPORTING iv_devclass TYPE devclass
io_dot TYPE REF TO lcl_dot_abapgit io_dot TYPE REF TO lcl_dot_abapgit
it_local TYPE lif_defs=>ty_files_item_tt it_local TYPE zif_abapgit_definitions=>ty_files_item_tt
it_remote TYPE lif_defs=>ty_files_tt it_remote TYPE zif_abapgit_definitions=>ty_files_tt
it_cur_state TYPE lif_defs=>ty_file_signatures_tt it_cur_state TYPE zif_abapgit_definitions=>ty_file_signatures_tt
RETURNING VALUE(rt_results) TYPE lif_defs=>ty_results_tt RETURNING VALUE(rt_results) TYPE zif_abapgit_definitions=>ty_results_tt
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
run_checks run_checks
IMPORTING io_log TYPE REF TO lcl_log IMPORTING io_log TYPE REF TO lcl_log
it_results TYPE lif_defs=>ty_results_tt it_results TYPE zif_abapgit_definitions=>ty_results_tt
io_dot TYPE REF TO lcl_dot_abapgit io_dot TYPE REF TO lcl_dot_abapgit
iv_top TYPE devclass iv_top TYPE devclass
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
build_existing build_existing
IMPORTING is_local TYPE lif_defs=>ty_file_item IMPORTING is_local TYPE zif_abapgit_definitions=>ty_file_item
is_remote TYPE lif_defs=>ty_file is_remote TYPE zif_abapgit_definitions=>ty_file
it_state TYPE lif_defs=>ty_file_signatures_ts it_state TYPE zif_abapgit_definitions=>ty_file_signatures_ts
RETURNING VALUE(rs_result) TYPE lif_defs=>ty_result, RETURNING VALUE(rs_result) TYPE zif_abapgit_definitions=>ty_result,
build_new_local build_new_local
IMPORTING is_local TYPE lif_defs=>ty_file_item IMPORTING is_local TYPE zif_abapgit_definitions=>ty_file_item
RETURNING VALUE(rs_result) TYPE lif_defs=>ty_result, RETURNING VALUE(rs_result) TYPE zif_abapgit_definitions=>ty_result,
build_new_remote build_new_remote
IMPORTING iv_devclass TYPE devclass IMPORTING iv_devclass TYPE devclass
io_dot TYPE REF TO lcl_dot_abapgit io_dot TYPE REF TO lcl_dot_abapgit
is_remote TYPE lif_defs=>ty_file is_remote TYPE zif_abapgit_definitions=>ty_file
it_items TYPE lif_defs=>ty_items_ts it_items TYPE zif_abapgit_definitions=>ty_items_ts
it_state TYPE lif_defs=>ty_file_signatures_ts it_state TYPE zif_abapgit_definitions=>ty_file_signatures_ts
RETURNING VALUE(rs_result) TYPE lif_defs=>ty_result RETURNING VALUE(rs_result) TYPE zif_abapgit_definitions=>ty_result
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
identify_object identify_object
IMPORTING iv_filename TYPE string IMPORTING iv_filename TYPE string
iv_path TYPE string iv_path TYPE string
iv_devclass TYPE devclass iv_devclass TYPE devclass
io_dot TYPE REF TO lcl_dot_abapgit io_dot TYPE REF TO lcl_dot_abapgit
EXPORTING es_item TYPE lif_defs=>ty_item EXPORTING es_item TYPE zif_abapgit_definitions=>ty_item
ev_is_xml TYPE abap_bool ev_is_xml TYPE abap_bool
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
@ -71,8 +71,8 @@ CLASS lcl_file_status IMPLEMENTATION.
METHOD run_checks. METHOD run_checks.
DATA: lv_path TYPE string, DATA: lv_path TYPE string,
ls_item TYPE lif_defs=>ty_item, ls_item TYPE zif_abapgit_definitions=>ty_item,
ls_file TYPE lif_defs=>ty_file_signature, ls_file TYPE zif_abapgit_definitions=>ty_file_signature,
lt_res_sort LIKE it_results, lt_res_sort LIKE it_results,
lt_item_idx LIKE it_results. lt_item_idx LIKE it_results.
@ -189,11 +189,11 @@ CLASS lcl_file_status IMPLEMENTATION.
METHOD calculate_status. METHOD calculate_status.
DATA: lt_remote LIKE it_remote, DATA: lt_remote LIKE it_remote,
lt_items TYPE lif_defs=>ty_items_tt, lt_items TYPE zif_abapgit_definitions=>ty_items_tt,
ls_item LIKE LINE OF lt_items, ls_item LIKE LINE OF lt_items,
lv_is_xml TYPE abap_bool, lv_is_xml TYPE abap_bool,
lt_items_idx TYPE lif_defs=>ty_items_ts, lt_items_idx TYPE zif_abapgit_definitions=>ty_items_ts,
lt_state_idx TYPE lif_defs=>ty_file_signatures_ts. " Sorted by path+filename lt_state_idx TYPE zif_abapgit_definitions=>ty_file_signatures_ts. " Sorted by path+filename
FIELD-SYMBOLS: <ls_remote> LIKE LINE OF it_remote, FIELD-SYMBOLS: <ls_remote> LIKE LINE OF it_remote,
<ls_result> LIKE LINE OF rt_results, <ls_result> LIKE LINE OF rt_results,
@ -314,10 +314,10 @@ CLASS lcl_file_status IMPLEMENTATION.
IF sy-subrc = 0. IF sy-subrc = 0.
IF ls_file_sig-sha1 <> is_local-file-sha1. IF ls_file_sig-sha1 <> is_local-file-sha1.
rs_result-lstate = lif_defs=>gc_state-modified. rs_result-lstate = zif_abapgit_definitions=>gc_state-modified.
ENDIF. ENDIF.
IF ls_file_sig-sha1 <> is_remote-sha1. IF ls_file_sig-sha1 <> is_remote-sha1.
rs_result-rstate = lif_defs=>gc_state-modified. rs_result-rstate = zif_abapgit_definitions=>gc_state-modified.
ENDIF. ENDIF.
rs_result-match = boolc( rs_result-lstate IS INITIAL rs_result-match = boolc( rs_result-lstate IS INITIAL
AND rs_result-rstate IS INITIAL ). AND rs_result-rstate IS INITIAL ).
@ -328,8 +328,8 @@ CLASS lcl_file_status IMPLEMENTATION.
" the user will presumably decide what to do after checking the actual diff " the user will presumably decide what to do after checking the actual diff
rs_result-match = boolc( is_local-file-sha1 = is_remote-sha1 ). rs_result-match = boolc( is_local-file-sha1 = is_remote-sha1 ).
IF rs_result-match = abap_false. IF rs_result-match = abap_false.
rs_result-lstate = lif_defs=>gc_state-modified. rs_result-lstate = zif_abapgit_definitions=>gc_state-modified.
rs_result-rstate = lif_defs=>gc_state-modified. rs_result-rstate = zif_abapgit_definitions=>gc_state-modified.
ENDIF. ENDIF.
ENDIF. ENDIF.
@ -348,7 +348,7 @@ CLASS lcl_file_status IMPLEMENTATION.
" Match " Match
rs_result-match = abap_false. rs_result-match = abap_false.
rs_result-lstate = lif_defs=>gc_state-added. rs_result-lstate = zif_abapgit_definitions=>gc_state-added.
ENDMETHOD. "build_new_local ENDMETHOD. "build_new_local
@ -361,7 +361,7 @@ CLASS lcl_file_status IMPLEMENTATION.
rs_result-path = is_remote-path. rs_result-path = is_remote-path.
rs_result-filename = is_remote-filename. rs_result-filename = is_remote-filename.
rs_result-match = abap_false. rs_result-match = abap_false.
rs_result-rstate = lif_defs=>gc_state-added. rs_result-rstate = zif_abapgit_definitions=>gc_state-added.
identify_object( EXPORTING iv_filename = is_remote-filename identify_object( EXPORTING iv_filename = is_remote-filename
iv_path = is_remote-path iv_path = is_remote-path
@ -392,14 +392,14 @@ CLASS lcl_file_status IMPLEMENTATION.
rs_result-match = abap_true. rs_result-match = abap_true.
CLEAR rs_result-rstate. CLEAR rs_result-rstate.
ELSE. ELSE.
rs_result-rstate = lif_defs=>gc_state-modified. rs_result-rstate = zif_abapgit_definitions=>gc_state-modified.
ENDIF. ENDIF.
" Item is in state and in cache but with no package - it was deleted " Item is in state and in cache but with no package - it was deleted
" OR devclass is the same as repo package (see #532) " OR devclass is the same as repo package (see #532)
IF ls_item-devclass IS INITIAL OR ls_item-devclass = iv_devclass. IF ls_item-devclass IS INITIAL OR ls_item-devclass = iv_devclass.
rs_result-match = abap_false. rs_result-match = abap_false.
rs_result-lstate = lif_defs=>gc_state-deleted. rs_result-lstate = zif_abapgit_definitions=>gc_state-deleted.
ENDIF. ENDIF.
ENDIF. ENDIF.

4
src/zabapgit_forms.prog.abap
View File

@ -54,7 +54,7 @@ ENDFORM.
* -->##CALLED text * -->##CALLED text
* -->##NEEDED text * -->##NEEDED text
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
FORM branch_popup TABLES tt_fields TYPE lif_defs=>ty_sval_tt FORM branch_popup TABLES tt_fields TYPE zif_abapgit_definitions=>ty_sval_tt
USING pv_code TYPE clike USING pv_code TYPE clike
CHANGING cs_error TYPE svale CHANGING cs_error TYPE svale
cv_show_popup TYPE c cv_show_popup TYPE c
@ -116,7 +116,7 @@ FORM branch_popup TABLES tt_fields TYPE lif_defs=>ty_sval_tt
ENDFORM. "branch_popup ENDFORM. "branch_popup
FORM package_popup TABLES tt_fields TYPE lif_defs=>ty_sval_tt FORM package_popup TABLES tt_fields TYPE zif_abapgit_definitions=>ty_sval_tt
USING pv_code TYPE clike USING pv_code TYPE clike
CHANGING cs_error TYPE svale CHANGING cs_error TYPE svale
cv_show_popup TYPE c cv_show_popup TYPE c

204
src/zabapgit_git.prog.abap
View File

@ -16,15 +16,15 @@ CLASS lcl_git_transport DEFINITION FINAL.
IMPORTING io_repo TYPE REF TO lcl_repo_online IMPORTING io_repo TYPE REF TO lcl_repo_online
iv_deepen TYPE abap_bool DEFAULT abap_true iv_deepen TYPE abap_bool DEFAULT abap_true
it_branches TYPE lcl_git_branch_list=>ty_git_branch_list_tt OPTIONAL it_branches TYPE lcl_git_branch_list=>ty_git_branch_list_tt OPTIONAL
EXPORTING et_objects TYPE lif_defs=>ty_objects_tt EXPORTING et_objects TYPE zif_abapgit_definitions=>ty_objects_tt
ev_branch TYPE lif_defs=>ty_sha1 ev_branch TYPE zif_abapgit_definitions=>ty_sha1
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
* local to remote * local to remote
CLASS-METHODS receive_pack CLASS-METHODS receive_pack
IMPORTING iv_url TYPE string IMPORTING iv_url TYPE string
iv_old TYPE lif_defs=>ty_sha1 iv_old TYPE zif_abapgit_definitions=>ty_sha1
iv_new TYPE lif_defs=>ty_sha1 iv_new TYPE zif_abapgit_definitions=>ty_sha1
iv_branch_name TYPE string iv_branch_name TYPE string
iv_pack TYPE xstring iv_pack TYPE xstring
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
@ -52,7 +52,7 @@ CLASS lcl_git_transport DEFINITION FINAL.
iv_service TYPE string iv_service TYPE string
iv_branch_name TYPE string iv_branch_name TYPE string
EXPORTING eo_client TYPE REF TO lcl_http_client EXPORTING eo_client TYPE REF TO lcl_http_client
ev_branch TYPE lif_defs=>ty_sha1 ev_branch TYPE zif_abapgit_definitions=>ty_sha1
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS parse CLASS-METHODS parse
@ -71,16 +71,16 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack.
PUBLIC SECTION. PUBLIC SECTION.
TYPES: BEGIN OF ty_node, TYPES: BEGIN OF ty_node,
chmod TYPE lif_defs=>ty_chmod, chmod TYPE zif_abapgit_definitions=>ty_chmod,
name TYPE string, name TYPE string,
sha1 TYPE lif_defs=>ty_sha1, sha1 TYPE zif_abapgit_definitions=>ty_sha1,
END OF ty_node. END OF ty_node.
TYPES: ty_nodes_tt TYPE STANDARD TABLE OF ty_node WITH DEFAULT KEY. TYPES: ty_nodes_tt TYPE STANDARD TABLE OF ty_node WITH DEFAULT KEY.
TYPES: BEGIN OF ty_commit, TYPES: BEGIN OF ty_commit,
tree TYPE lif_defs=>ty_sha1, tree TYPE zif_abapgit_definitions=>ty_sha1,
parent TYPE lif_defs=>ty_sha1, parent TYPE zif_abapgit_definitions=>ty_sha1,
parent2 TYPE lif_defs=>ty_sha1, parent2 TYPE zif_abapgit_definitions=>ty_sha1,
author TYPE string, author TYPE string,
committer TYPE string, committer TYPE string,
body TYPE string, body TYPE string,
@ -88,7 +88,7 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack.
CLASS-METHODS decode CLASS-METHODS decode
IMPORTING iv_data TYPE xstring IMPORTING iv_data TYPE xstring
RETURNING VALUE(rt_objects) TYPE lif_defs=>ty_objects_tt RETURNING VALUE(rt_objects) TYPE zif_abapgit_definitions=>ty_objects_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS decode_tree CLASS-METHODS decode_tree
@ -102,7 +102,7 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack.
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS encode CLASS-METHODS encode
IMPORTING it_objects TYPE lif_defs=>ty_objects_tt IMPORTING it_objects TYPE zif_abapgit_definitions=>ty_objects_tt
RETURNING VALUE(rv_data) TYPE xstring RETURNING VALUE(rv_data) TYPE xstring
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
@ -115,7 +115,7 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack.
RETURNING VALUE(rv_data) TYPE xstring. RETURNING VALUE(rv_data) TYPE xstring.
CLASS-METHODS type_and_length CLASS-METHODS type_and_length
IMPORTING iv_type TYPE lif_defs=>ty_type IMPORTING iv_type TYPE zif_abapgit_definitions=>ty_type
iv_length TYPE i iv_length TYPE i
RETURNING VALUE(rv_xstring) TYPE xstring RETURNING VALUE(rv_xstring) TYPE xstring
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
@ -127,12 +127,12 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack.
c_version TYPE x LENGTH 4 VALUE '00000002'. c_version TYPE x LENGTH 4 VALUE '00000002'.
CLASS-METHODS decode_deltas CLASS-METHODS decode_deltas
CHANGING ct_objects TYPE lif_defs=>ty_objects_tt CHANGING ct_objects TYPE zif_abapgit_definitions=>ty_objects_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS delta CLASS-METHODS delta
IMPORTING is_object TYPE lif_defs=>ty_object IMPORTING is_object TYPE zif_abapgit_definitions=>ty_object
CHANGING ct_objects TYPE lif_defs=>ty_objects_tt CHANGING ct_objects TYPE zif_abapgit_definitions=>ty_objects_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS delta_header CLASS-METHODS delta_header
@ -145,7 +145,7 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack.
CLASS-METHODS get_type CLASS-METHODS get_type
IMPORTING iv_x TYPE x IMPORTING iv_x TYPE x
RETURNING VALUE(rv_type) TYPE lif_defs=>ty_type RETURNING VALUE(rv_type) TYPE zif_abapgit_definitions=>ty_type
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS get_length CLASS-METHODS get_length
@ -252,7 +252,7 @@ CLASS lcl_git_transport IMPLEMENTATION.
lcl_git_utils=>get_null( ) && lcl_git_utils=>get_null( ) &&
` ` && ` ` &&
lv_cap_list && lv_cap_list &&
lif_defs=>gc_newline. "#EC NOTEXT zif_abapgit_definitions=>gc_newline. "#EC NOTEXT
lv_cmd_pkt = lcl_git_utils=>pkt_string( lv_line ). lv_cmd_pkt = lcl_git_utils=>pkt_string( lv_line ).
lv_buffer = lv_cmd_pkt && '0000'. lv_buffer = lv_cmd_pkt && '0000'.
@ -348,22 +348,22 @@ CLASS lcl_git_transport IMPLEMENTATION.
lv_capa = 'side-band-64k no-progress multi_ack agent=' lv_capa = 'side-band-64k no-progress multi_ack agent='
&& lcl_http=>get_agent( ) ##NO_TEXT. && lcl_http=>get_agent( ) ##NO_TEXT.
lv_line = 'want' && ` ` && <ls_branch>-sha1 lv_line = 'want' && ` ` && <ls_branch>-sha1
&& ` ` && lv_capa && lif_defs=>gc_newline. "#EC NOTEXT && ` ` && lv_capa && zif_abapgit_definitions=>gc_newline. "#EC NOTEXT
ELSE. ELSE.
lv_line = 'want' && ` ` && <ls_branch>-sha1 lv_line = 'want' && ` ` && <ls_branch>-sha1
&& lif_defs=>gc_newline. "#EC NOTEXT && zif_abapgit_definitions=>gc_newline. "#EC NOTEXT
ENDIF. ENDIF.
lv_buffer = lv_buffer && lcl_git_utils=>pkt_string( lv_line ). lv_buffer = lv_buffer && lcl_git_utils=>pkt_string( lv_line ).
ENDLOOP. ENDLOOP.
IF iv_deepen = abap_true. IF iv_deepen = abap_true.
lv_buffer = lv_buffer && lcl_git_utils=>pkt_string( 'deepen 1' lv_buffer = lv_buffer && lcl_git_utils=>pkt_string( 'deepen 1'
&& lif_defs=>gc_newline ). "#EC NOTEXT && zif_abapgit_definitions=>gc_newline ). "#EC NOTEXT
ENDIF. ENDIF.
lv_buffer = lv_buffer lv_buffer = lv_buffer
&& '0000' && '0000'
&& '0009done' && lif_defs=>gc_newline. && '0009done' && zif_abapgit_definitions=>gc_newline.
lv_xstring = lo_client->send_receive_close( lv_xstring = lo_client->send_receive_close(
lcl_convert=>string_to_xstring_utf8( lv_buffer ) ). lcl_convert=>string_to_xstring_utf8( lv_buffer ) ).
@ -403,7 +403,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
LOOP AT it_nodes ASSIGNING <ls_node>. LOOP AT it_nodes ASSIGNING <ls_node>.
APPEND INITIAL LINE TO lt_sort ASSIGNING <ls_sort>. APPEND INITIAL LINE TO lt_sort ASSIGNING <ls_sort>.
IF <ls_node>-chmod = lif_defs=>gc_chmod-dir. IF <ls_node>-chmod = zif_abapgit_definitions=>gc_chmod-dir.
CONCATENATE <ls_node>-name '/' INTO <ls_sort>-sort. CONCATENATE <ls_node>-name '/' INTO <ls_sort>-sort.
ELSE. ELSE.
<ls_sort>-sort = <ls_node>-name. <ls_sort>-sort = <ls_node>-name.
@ -432,13 +432,13 @@ CLASS lcl_git_pack IMPLEMENTATION.
CASE iv_type. CASE iv_type.
WHEN lif_defs=>gc_type-commit. WHEN zif_abapgit_definitions=>gc_type-commit.
lv_type = '001'. lv_type = '001'.
WHEN lif_defs=>gc_type-tree. WHEN zif_abapgit_definitions=>gc_type-tree.
lv_type = '010'. lv_type = '010'.
WHEN lif_defs=>gc_type-blob. WHEN zif_abapgit_definitions=>gc_type-blob.
lv_type = '011'. lv_type = '011'.
WHEN lif_defs=>gc_type-ref_d. WHEN zif_abapgit_definitions=>gc_type-ref_d.
lv_type = '111'. lv_type = '111'.
WHEN OTHERS. WHEN OTHERS.
zcx_abapgit_exception=>raise( 'Unexpected object type while encoding pack' ). zcx_abapgit_exception=>raise( 'Unexpected object type while encoding pack' ).
@ -488,7 +488,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
DATA: lv_x TYPE x, DATA: lv_x TYPE x,
lv_length_bits TYPE string, lv_length_bits TYPE string,
lv_bitbyte TYPE lif_defs=>ty_bitbyte. lv_bitbyte TYPE zif_abapgit_definitions=>ty_bitbyte.
lv_x = cv_data(1). lv_x = cv_data(1).
@ -550,7 +550,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
lv_string = ''. lv_string = ''.
CONCATENATE 'tree' lv_tree_lower INTO lv_tmp SEPARATED BY space. "#EC NOTEXT CONCATENATE 'tree' lv_tree_lower INTO lv_tmp SEPARATED BY space. "#EC NOTEXT
CONCATENATE lv_string lv_tmp lif_defs=>gc_newline INTO lv_string. CONCATENATE lv_string lv_tmp zif_abapgit_definitions=>gc_newline INTO lv_string.
IF NOT is_commit-parent IS INITIAL. IF NOT is_commit-parent IS INITIAL.
lv_parent_lower = is_commit-parent. lv_parent_lower = is_commit-parent.
@ -558,7 +558,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
CONCATENATE 'parent' lv_parent_lower CONCATENATE 'parent' lv_parent_lower
INTO lv_tmp SEPARATED BY space. "#EC NOTEXT INTO lv_tmp SEPARATED BY space. "#EC NOTEXT
CONCATENATE lv_string lv_tmp lif_defs=>gc_newline INTO lv_string. CONCATENATE lv_string lv_tmp zif_abapgit_definitions=>gc_newline INTO lv_string.
ENDIF. ENDIF.
IF NOT is_commit-parent2 IS INITIAL. IF NOT is_commit-parent2 IS INITIAL.
@ -567,18 +567,18 @@ CLASS lcl_git_pack IMPLEMENTATION.
CONCATENATE 'parent' lv_parent_lower CONCATENATE 'parent' lv_parent_lower
INTO lv_tmp SEPARATED BY space. "#EC NOTEXT INTO lv_tmp SEPARATED BY space. "#EC NOTEXT
CONCATENATE lv_string lv_tmp lif_defs=>gc_newline INTO lv_string. CONCATENATE lv_string lv_tmp zif_abapgit_definitions=>gc_newline INTO lv_string.
ENDIF. ENDIF.
CONCATENATE 'author' is_commit-author CONCATENATE 'author' is_commit-author
INTO lv_tmp SEPARATED BY space. "#EC NOTEXT INTO lv_tmp SEPARATED BY space. "#EC NOTEXT
CONCATENATE lv_string lv_tmp lif_defs=>gc_newline INTO lv_string. CONCATENATE lv_string lv_tmp zif_abapgit_definitions=>gc_newline INTO lv_string.
CONCATENATE 'committer' is_commit-committer CONCATENATE 'committer' is_commit-committer
INTO lv_tmp SEPARATED BY space. "#EC NOTEXT INTO lv_tmp SEPARATED BY space. "#EC NOTEXT
CONCATENATE lv_string lv_tmp lif_defs=>gc_newline INTO lv_string. CONCATENATE lv_string lv_tmp zif_abapgit_definitions=>gc_newline INTO lv_string.
CONCATENATE lv_string lif_defs=>gc_newline is_commit-body INTO lv_string. CONCATENATE lv_string zif_abapgit_definitions=>gc_newline is_commit-body INTO lv_string.
rv_data = lcl_convert=>string_to_xstring_utf8( lv_string ). rv_data = lcl_convert=>string_to_xstring_utf8( lv_string ).
@ -587,7 +587,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
METHOD get_type. METHOD get_type.
DATA: lv_char3 TYPE c LENGTH 3, DATA: lv_char3 TYPE c LENGTH 3,
lv_bitbyte TYPE lif_defs=>ty_bitbyte. lv_bitbyte TYPE zif_abapgit_definitions=>ty_bitbyte.
lv_bitbyte = lcl_convert=>x_to_bitbyte( iv_x ). lv_bitbyte = lcl_convert=>x_to_bitbyte( iv_x ).
@ -595,13 +595,13 @@ CLASS lcl_git_pack IMPLEMENTATION.
CASE lv_char3. CASE lv_char3.
WHEN '001'. WHEN '001'.
rv_type = lif_defs=>gc_type-commit. rv_type = zif_abapgit_definitions=>gc_type-commit.
WHEN '010'. WHEN '010'.
rv_type = lif_defs=>gc_type-tree. rv_type = zif_abapgit_definitions=>gc_type-tree.
WHEN '011'. WHEN '011'.
rv_type = lif_defs=>gc_type-blob. rv_type = zif_abapgit_definitions=>gc_type-blob.
WHEN '111'. WHEN '111'.
rv_type = lif_defs=>gc_type-ref_d. rv_type = zif_abapgit_definitions=>gc_type-ref_d.
WHEN OTHERS. WHEN OTHERS.
zcx_abapgit_exception=>raise( 'Todo, unknown type' ). zcx_abapgit_exception=>raise( 'Todo, unknown type' ).
ENDCASE. ENDCASE.
@ -621,12 +621,12 @@ CLASS lcl_git_pack IMPLEMENTATION.
lv_string = lcl_convert=>xstring_to_string_utf8( iv_data ). lv_string = lcl_convert=>xstring_to_string_utf8( iv_data ).
SPLIT lv_string AT lif_defs=>gc_newline INTO TABLE lt_string. SPLIT lv_string AT zif_abapgit_definitions=>gc_newline INTO TABLE lt_string.
LOOP AT lt_string ASSIGNING <lv_string>. LOOP AT lt_string ASSIGNING <lv_string>.
* IF NOT rs_commit-committer IS INITIAL. * IF NOT rs_commit-committer IS INITIAL.
* CONCATENATE rs_commit-body <lv_string> INTO rs_commit-body * CONCATENATE rs_commit-body <lv_string> INTO rs_commit-body
* SEPARATED BY lif_defs=>gc_newline. * SEPARATED BY zif_abapgit_definitions=>gc_newline.
* ELSE. * ELSE.
lv_length = strlen( <lv_string> ) + 1. lv_length = strlen( <lv_string> ) + 1.
lv_string = lv_string+lv_length. lv_string = lv_string+lv_length.
@ -670,7 +670,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
METHOD delta_header. METHOD delta_header.
DATA: lv_bitbyte TYPE lif_defs=>ty_bitbyte, DATA: lv_bitbyte TYPE zif_abapgit_definitions=>ty_bitbyte,
lv_bits TYPE string, lv_bits TYPE string,
lv_x TYPE x. lv_x TYPE x.
@ -700,7 +700,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
lv_base TYPE xstring, lv_base TYPE xstring,
lv_result TYPE xstring, lv_result TYPE xstring,
lv_offset TYPE i, lv_offset TYPE i,
lv_sha1 TYPE lif_defs=>ty_sha1, lv_sha1 TYPE zif_abapgit_definitions=>ty_sha1,
ls_object LIKE LINE OF ct_objects, ls_object LIKE LINE OF ct_objects,
lv_len TYPE i, lv_len TYPE i,
lv_org TYPE x, lv_org TYPE x,
@ -715,7 +715,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
READ TABLE ct_objects ASSIGNING <ls_object> WITH KEY sha1 = is_object-sha1. READ TABLE ct_objects ASSIGNING <ls_object> WITH KEY sha1 = is_object-sha1.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Base not found, { is_object-sha1 }| ). zcx_abapgit_exception=>raise( |Base not found, { is_object-sha1 }| ).
ELSEIF <ls_object>-type = lif_defs=>gc_type-ref_d. ELSEIF <ls_object>-type = zif_abapgit_definitions=>gc_type-ref_d.
* sanity check * sanity check
zcx_abapgit_exception=>raise( 'Delta, base eq delta' ). zcx_abapgit_exception=>raise( 'Delta, base eq delta' ).
ENDIF. ENDIF.
@ -810,7 +810,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
iv_total = 1 iv_total = 1
iv_text = 'Deltas' ) ##NO_TEXT. iv_text = 'Deltas' ) ##NO_TEXT.
LOOP AT ct_objects INTO ls_object WHERE type = lif_defs=>gc_type-ref_d. LOOP AT ct_objects INTO ls_object WHERE type = zif_abapgit_definitions=>gc_type-ref_d.
DELETE ct_objects INDEX sy-tabix. DELETE ct_objects INDEX sy-tabix.
APPEND ls_object TO lt_deltas. APPEND ls_object TO lt_deltas.
ENDLOOP. ENDLOOP.
@ -828,7 +828,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
lc_null TYPE x VALUE '00'. lc_null TYPE x VALUE '00'.
DATA: lv_xstring TYPE xstring, DATA: lv_xstring TYPE xstring,
lv_chmod TYPE lif_defs=>ty_chmod, lv_chmod TYPE zif_abapgit_definitions=>ty_chmod,
lv_name TYPE string, lv_name TYPE string,
lv_string TYPE string, lv_string TYPE string,
lv_len TYPE i, lv_len TYPE i,
@ -854,9 +854,9 @@ CLASS lcl_git_pack IMPLEMENTATION.
CLEAR ls_node. CLEAR ls_node.
ls_node-chmod = lv_chmod. ls_node-chmod = lv_chmod.
IF ls_node-chmod <> lif_defs=>gc_chmod-dir IF ls_node-chmod <> zif_abapgit_definitions=>gc_chmod-dir
AND ls_node-chmod <> lif_defs=>gc_chmod-file AND ls_node-chmod <> zif_abapgit_definitions=>gc_chmod-file
AND ls_node-chmod <> lif_defs=>gc_chmod-executable. AND ls_node-chmod <> zif_abapgit_definitions=>gc_chmod-executable.
zcx_abapgit_exception=>raise( 'Unknown chmod' ). zcx_abapgit_exception=>raise( 'Unknown chmod' ).
ENDIF. ENDIF.
@ -911,8 +911,8 @@ CLASS lcl_git_pack IMPLEMENTATION.
lv_zlib TYPE x LENGTH 2, lv_zlib TYPE x LENGTH 2,
lv_objects TYPE i, lv_objects TYPE i,
lv_len TYPE i, lv_len TYPE i,
lv_sha1 TYPE lif_defs=>ty_sha1, lv_sha1 TYPE zif_abapgit_definitions=>ty_sha1,
lv_ref_delta TYPE lif_defs=>ty_sha1, lv_ref_delta TYPE zif_abapgit_definitions=>ty_sha1,
lv_compressed_len TYPE i, lv_compressed_len TYPE i,
lv_compressed TYPE xstring, lv_compressed TYPE xstring,
lv_decompressed TYPE xstring, lv_decompressed TYPE xstring,
@ -950,7 +950,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
get_length( IMPORTING ev_length = lv_expected get_length( IMPORTING ev_length = lv_expected
CHANGING cv_data = lv_data ). CHANGING cv_data = lv_data ).
IF lv_type = lif_defs=>gc_type-ref_d. IF lv_type = zif_abapgit_definitions=>gc_type-ref_d.
lv_ref_delta = lv_data(20). lv_ref_delta = lv_data(20).
lv_data = lv_data+20. lv_data = lv_data+20.
ENDIF. ENDIF.
@ -1006,7 +1006,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
************************* *************************
CLEAR ls_object. CLEAR ls_object.
IF lv_type = lif_defs=>gc_type-ref_d. IF lv_type = zif_abapgit_definitions=>gc_type-ref_d.
ls_object-sha1 = lv_ref_delta. ls_object-sha1 = lv_ref_delta.
TRANSLATE ls_object-sha1 TO LOWER CASE. TRANSLATE ls_object-sha1 TO LOWER CASE.
ELSE. ELSE.
@ -1098,31 +1098,31 @@ CLASS lcl_git_porcelain DEFINITION FINAL FRIENDS ltcl_git_porcelain.
TYPES: BEGIN OF ty_expanded, TYPES: BEGIN OF ty_expanded,
path TYPE string, path TYPE string,
name TYPE string, name TYPE string,
sha1 TYPE lif_defs=>ty_sha1, sha1 TYPE zif_abapgit_definitions=>ty_sha1,
chmod TYPE lif_defs=>ty_chmod, chmod TYPE zif_abapgit_definitions=>ty_chmod,
END OF ty_expanded. END OF ty_expanded.
TYPES: ty_expanded_tt TYPE STANDARD TABLE OF ty_expanded WITH DEFAULT KEY. TYPES: ty_expanded_tt TYPE STANDARD TABLE OF ty_expanded WITH DEFAULT KEY.
CLASS-METHODS pull CLASS-METHODS pull
IMPORTING io_repo TYPE REF TO lcl_repo_online IMPORTING io_repo TYPE REF TO lcl_repo_online
EXPORTING et_files TYPE lif_defs=>ty_files_tt EXPORTING et_files TYPE zif_abapgit_definitions=>ty_files_tt
et_objects TYPE lif_defs=>ty_objects_tt et_objects TYPE zif_abapgit_definitions=>ty_objects_tt
ev_branch TYPE lif_defs=>ty_sha1 ev_branch TYPE zif_abapgit_definitions=>ty_sha1
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS push CLASS-METHODS push
IMPORTING io_repo TYPE REF TO lcl_repo_online IMPORTING io_repo TYPE REF TO lcl_repo_online
is_comment TYPE lif_defs=>ty_comment is_comment TYPE zif_abapgit_definitions=>ty_comment
io_stage TYPE REF TO lcl_stage io_stage TYPE REF TO lcl_stage
EXPORTING ev_branch TYPE lif_defs=>ty_sha1 EXPORTING ev_branch TYPE zif_abapgit_definitions=>ty_sha1
et_updated_files TYPE lif_defs=>ty_file_signatures_tt et_updated_files TYPE zif_abapgit_definitions=>ty_file_signatures_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS create_branch CLASS-METHODS create_branch
IMPORTING io_repo TYPE REF TO lcl_repo_online IMPORTING io_repo TYPE REF TO lcl_repo_online
iv_name TYPE string iv_name TYPE string
iv_from TYPE lif_defs=>ty_sha1 iv_from TYPE zif_abapgit_definitions=>ty_sha1
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS delete_branch CLASS-METHODS delete_branch
@ -1131,8 +1131,8 @@ CLASS lcl_git_porcelain DEFINITION FINAL FRIENDS ltcl_git_porcelain.
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS full_tree CLASS-METHODS full_tree
IMPORTING it_objects TYPE lif_defs=>ty_objects_tt IMPORTING it_objects TYPE zif_abapgit_definitions=>ty_objects_tt
iv_branch TYPE lif_defs=>ty_sha1 iv_branch TYPE zif_abapgit_definitions=>ty_sha1
RETURNING VALUE(rt_expanded) TYPE ty_expanded_tt RETURNING VALUE(rt_expanded) TYPE ty_expanded_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
@ -1141,7 +1141,7 @@ CLASS lcl_git_porcelain DEFINITION FINAL FRIENDS ltcl_git_porcelain.
TYPES: BEGIN OF ty_tree, TYPES: BEGIN OF ty_tree,
path TYPE string, path TYPE string,
data TYPE xstring, data TYPE xstring,
sha1 TYPE lif_defs=>ty_sha1, sha1 TYPE zif_abapgit_definitions=>ty_sha1,
END OF ty_tree. END OF ty_tree.
TYPES: ty_trees_tt TYPE STANDARD TABLE OF ty_tree WITH DEFAULT KEY. TYPES: ty_trees_tt TYPE STANDARD TABLE OF ty_tree WITH DEFAULT KEY.
@ -1149,12 +1149,12 @@ CLASS lcl_git_porcelain DEFINITION FINAL FRIENDS ltcl_git_porcelain.
TYPES: BEGIN OF ty_folder, TYPES: BEGIN OF ty_folder,
path TYPE string, path TYPE string,
count TYPE i, count TYPE i,
sha1 TYPE lif_defs=>ty_sha1, sha1 TYPE zif_abapgit_definitions=>ty_sha1,
END OF ty_folder. 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 lif_defs=>ty_sha1 VALUE '0000000000000000000000000000000000000000'. CONSTANTS: c_zero TYPE zif_abapgit_definitions=>ty_sha1 VALUE '0000000000000000000000000000000000000000'.
CLASS-METHODS build_trees CLASS-METHODS build_trees
IMPORTING it_expanded TYPE ty_expanded_tt IMPORTING it_expanded TYPE ty_expanded_tt
@ -1166,26 +1166,26 @@ CLASS lcl_git_porcelain DEFINITION FINAL FRIENDS ltcl_git_porcelain.
RETURNING VALUE(rt_folders) TYPE ty_folders_tt. RETURNING VALUE(rt_folders) TYPE ty_folders_tt.
CLASS-METHODS walk CLASS-METHODS walk
IMPORTING it_objects TYPE lif_defs=>ty_objects_tt IMPORTING it_objects TYPE zif_abapgit_definitions=>ty_objects_tt
iv_sha1 TYPE lif_defs=>ty_sha1 iv_sha1 TYPE zif_abapgit_definitions=>ty_sha1
iv_path TYPE string iv_path TYPE string
CHANGING ct_files TYPE lif_defs=>ty_files_tt CHANGING ct_files TYPE zif_abapgit_definitions=>ty_files_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS walk_tree CLASS-METHODS walk_tree
IMPORTING it_objects TYPE lif_defs=>ty_objects_tt IMPORTING it_objects TYPE zif_abapgit_definitions=>ty_objects_tt
iv_tree TYPE lif_defs=>ty_sha1 iv_tree TYPE zif_abapgit_definitions=>ty_sha1
iv_base TYPE string iv_base TYPE string
RETURNING VALUE(rt_expanded) TYPE ty_expanded_tt RETURNING VALUE(rt_expanded) TYPE ty_expanded_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS receive_pack CLASS-METHODS receive_pack
IMPORTING is_comment TYPE lif_defs=>ty_comment IMPORTING is_comment TYPE zif_abapgit_definitions=>ty_comment
io_repo TYPE REF TO lcl_repo_online io_repo TYPE REF TO lcl_repo_online
it_trees TYPE ty_trees_tt it_trees TYPE ty_trees_tt
it_blobs TYPE lif_defs=>ty_files_tt it_blobs TYPE zif_abapgit_definitions=>ty_files_tt
io_stage TYPE REF TO lcl_stage io_stage TYPE REF TO lcl_stage
RETURNING VALUE(rv_branch) TYPE lif_defs=>ty_sha1 RETURNING VALUE(rv_branch) TYPE zif_abapgit_definitions=>ty_sha1
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_porcelain DEFINITION ENDCLASS. "lcl_porcelain DEFINITION
@ -1201,7 +1201,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
DATA: lv_time TYPE zcl_abapgit_time=>ty_unixtime, DATA: lv_time TYPE zcl_abapgit_time=>ty_unixtime,
lv_commit TYPE xstring, lv_commit TYPE xstring,
lt_objects TYPE lif_defs=>ty_objects_tt, lt_objects TYPE zif_abapgit_definitions=>ty_objects_tt,
lv_pack TYPE xstring, lv_pack TYPE xstring,
ls_object LIKE LINE OF lt_objects, ls_object LIKE LINE OF lt_objects,
ls_commit TYPE lcl_git_pack=>ty_commit. ls_commit TYPE lcl_git_pack=>ty_commit.
@ -1232,31 +1232,31 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
lv_commit = lcl_git_pack=>encode_commit( ls_commit ). lv_commit = lcl_git_pack=>encode_commit( ls_commit ).
CLEAR ls_object. CLEAR ls_object.
ls_object-sha1 = lcl_hash=>sha1( iv_type = lif_defs=>gc_type-commit iv_data = lv_commit ). ls_object-sha1 = lcl_hash=>sha1( iv_type = zif_abapgit_definitions=>gc_type-commit iv_data = lv_commit ).
ls_object-type = lif_defs=>gc_type-commit. ls_object-type = zif_abapgit_definitions=>gc_type-commit.
ls_object-data = lv_commit. ls_object-data = lv_commit.
APPEND ls_object TO lt_objects. APPEND ls_object TO lt_objects.
LOOP AT it_trees ASSIGNING <ls_tree>. LOOP AT it_trees ASSIGNING <ls_tree>.
CLEAR ls_object. CLEAR ls_object.
ls_object-sha1 = <ls_tree>-sha1. ls_object-sha1 = <ls_tree>-sha1.
ls_object-type = lif_defs=>gc_type-tree. ls_object-type = zif_abapgit_definitions=>gc_type-tree.
ls_object-data = <ls_tree>-data. ls_object-data = <ls_tree>-data.
APPEND ls_object TO lt_objects. APPEND ls_object TO lt_objects.
ENDLOOP. ENDLOOP.
LOOP AT it_blobs ASSIGNING <ls_blob>. LOOP AT it_blobs ASSIGNING <ls_blob>.
CLEAR ls_object. CLEAR ls_object.
ls_object-sha1 = lcl_hash=>sha1( iv_type = lif_defs=>gc_type-blob iv_data = <ls_blob>-data ). ls_object-sha1 = lcl_hash=>sha1( iv_type = zif_abapgit_definitions=>gc_type-blob iv_data = <ls_blob>-data ).
READ TABLE lt_objects WITH KEY type = lif_defs=>gc_type-blob sha1 = ls_object-sha1 READ TABLE lt_objects WITH KEY type = zif_abapgit_definitions=>gc_type-blob sha1 = ls_object-sha1
TRANSPORTING NO FIELDS. TRANSPORTING NO FIELDS.
IF sy-subrc = 0. IF sy-subrc = 0.
* two identical files added at the same time, only add one blob to the pack * two identical files added at the same time, only add one blob to the pack
CONTINUE. CONTINUE.
ENDIF. ENDIF.
ls_object-type = lif_defs=>gc_type-blob. ls_object-type = zif_abapgit_definitions=>gc_type-blob.
ASSERT NOT <ls_blob>-data IS INITIAL. ASSERT NOT <ls_blob>-data IS INITIAL.
ls_object-data = <ls_blob>-data. ls_object-data = <ls_blob>-data.
APPEND ls_object TO lt_objects. APPEND ls_object TO lt_objects.
@ -1265,7 +1265,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
lv_pack = lcl_git_pack=>encode( lt_objects ). lv_pack = lcl_git_pack=>encode( lt_objects ).
rv_branch = lcl_hash=>sha1( rv_branch = lcl_hash=>sha1(
iv_type = lif_defs=>gc_type-commit iv_type = zif_abapgit_definitions=>gc_type-commit
iv_data = lv_commit ). iv_data = lv_commit ).
lcl_git_transport=>receive_pack( lcl_git_transport=>receive_pack(
@ -1279,7 +1279,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
METHOD delete_branch. METHOD delete_branch.
DATA: lt_objects TYPE lif_defs=>ty_objects_tt, DATA: lt_objects TYPE zif_abapgit_definitions=>ty_objects_tt,
lv_pack TYPE xstring. lv_pack TYPE xstring.
@ -1298,7 +1298,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
METHOD create_branch. METHOD create_branch.
DATA: lt_objects TYPE lif_defs=>ty_objects_tt, DATA: lt_objects TYPE zif_abapgit_definitions=>ty_objects_tt,
lv_pack TYPE xstring. lv_pack TYPE xstring.
IF iv_name CS ` `. IF iv_name CS ` `.
@ -1321,10 +1321,10 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
METHOD push. METHOD push.
DATA: lt_expanded TYPE ty_expanded_tt, DATA: lt_expanded TYPE ty_expanded_tt,
lt_blobs TYPE lif_defs=>ty_files_tt, lt_blobs TYPE zif_abapgit_definitions=>ty_files_tt,
lv_sha1 TYPE lif_defs=>ty_sha1, lv_sha1 TYPE zif_abapgit_definitions=>ty_sha1,
lt_trees TYPE ty_trees_tt, lt_trees TYPE ty_trees_tt,
lt_objects TYPE lif_defs=>ty_objects_tt, lt_objects TYPE zif_abapgit_definitions=>ty_objects_tt,
lt_branches TYPE lcl_git_branch_list=>ty_git_branch_list_tt, lt_branches TYPE lcl_git_branch_list=>ty_git_branch_list_tt,
lt_stage TYPE lcl_stage=>ty_stage_tt. lt_stage TYPE lcl_stage=>ty_stage_tt.
@ -1371,10 +1371,10 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
APPEND INITIAL LINE TO lt_expanded ASSIGNING <ls_exp>. APPEND INITIAL LINE TO lt_expanded ASSIGNING <ls_exp>.
<ls_exp>-name = <ls_stage>-file-filename. <ls_exp>-name = <ls_stage>-file-filename.
<ls_exp>-path = <ls_stage>-file-path. <ls_exp>-path = <ls_stage>-file-path.
<ls_exp>-chmod = lif_defs=>gc_chmod-file. <ls_exp>-chmod = zif_abapgit_definitions=>gc_chmod-file.
ENDIF. ENDIF.
lv_sha1 = lcl_hash=>sha1( iv_type = lif_defs=>gc_type-blob lv_sha1 = lcl_hash=>sha1( iv_type = zif_abapgit_definitions=>gc_type-blob
iv_data = <ls_stage>-file-data ). iv_data = <ls_stage>-file-data ).
IF <ls_exp>-sha1 <> lv_sha1. IF <ls_exp>-sha1 <> lv_sha1.
<ls_exp>-sha1 = lv_sha1. <ls_exp>-sha1 = lv_sha1.
@ -1417,7 +1417,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
READ TABLE it_objects INTO ls_object READ TABLE it_objects INTO ls_object
WITH KEY sha1 = iv_tree WITH KEY sha1 = iv_tree
type = lif_defs=>gc_type-tree. type = zif_abapgit_definitions=>gc_type-tree.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'tree not found' ). zcx_abapgit_exception=>raise( 'tree not found' ).
ENDIF. ENDIF.
@ -1425,14 +1425,14 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
LOOP AT lt_nodes ASSIGNING <ls_node>. LOOP AT lt_nodes ASSIGNING <ls_node>.
CASE <ls_node>-chmod. CASE <ls_node>-chmod.
WHEN lif_defs=>gc_chmod-file WHEN zif_abapgit_definitions=>gc_chmod-file
OR lif_defs=>gc_chmod-executable. OR zif_abapgit_definitions=>gc_chmod-executable.
APPEND INITIAL LINE TO rt_expanded ASSIGNING <ls_exp>. APPEND INITIAL LINE TO rt_expanded ASSIGNING <ls_exp>.
<ls_exp>-path = iv_base. <ls_exp>-path = iv_base.
<ls_exp>-name = <ls_node>-name. <ls_exp>-name = <ls_node>-name.
<ls_exp>-sha1 = <ls_node>-sha1. <ls_exp>-sha1 = <ls_node>-sha1.
<ls_exp>-chmod = <ls_node>-chmod. <ls_exp>-chmod = <ls_node>-chmod.
WHEN lif_defs=>gc_chmod-dir. WHEN zif_abapgit_definitions=>gc_chmod-dir.
lt_expanded = walk_tree( lt_expanded = walk_tree(
it_objects = it_objects it_objects = it_objects
iv_tree = <ls_node>-sha1 iv_tree = <ls_node>-sha1
@ -1451,7 +1451,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
ls_commit TYPE lcl_git_pack=>ty_commit. ls_commit TYPE lcl_git_pack=>ty_commit.
READ TABLE it_objects INTO ls_object WITH KEY sha1 = iv_branch type = lif_defs=>gc_type-commit. READ TABLE it_objects INTO ls_object WITH KEY sha1 = iv_branch type = zif_abapgit_definitions=>gc_type-commit.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'commit not found' ). zcx_abapgit_exception=>raise( 'commit not found' ).
ENDIF. ENDIF.
@ -1477,7 +1477,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
IMPORTING et_objects = et_objects IMPORTING et_objects = et_objects
ev_branch = ev_branch ). ev_branch = ev_branch ).
READ TABLE et_objects INTO ls_object WITH KEY sha1 = ev_branch type = lif_defs=>gc_type-commit. READ TABLE et_objects INTO ls_object WITH KEY sha1 = ev_branch type = zif_abapgit_definitions=>gc_type-commit.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Commit/branch not found' ). zcx_abapgit_exception=>raise( 'Commit/branch not found' ).
ENDIF. ENDIF.
@ -1564,7 +1564,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
lv_len = strlen( <ls_folder>-path ). lv_len = strlen( <ls_folder>-path ).
IF strlen( <ls_sub>-path ) > lv_len AND <ls_sub>-path(lv_len) = <ls_folder>-path. IF strlen( <ls_sub>-path ) > lv_len AND <ls_sub>-path(lv_len) = <ls_folder>-path.
APPEND INITIAL LINE TO lt_nodes ASSIGNING <ls_node>. APPEND INITIAL LINE TO lt_nodes ASSIGNING <ls_node>.
<ls_node>-chmod = lif_defs=>gc_chmod-dir. <ls_node>-chmod = zif_abapgit_definitions=>gc_chmod-dir.
* extract folder name, this can probably be done easier using regular expressions * extract folder name, this can probably be done easier using regular expressions
<ls_node>-name = <ls_sub>-path+lv_len. <ls_node>-name = <ls_sub>-path+lv_len.
@ -1578,7 +1578,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
CLEAR ls_tree. CLEAR ls_tree.
ls_tree-path = <ls_folder>-path. ls_tree-path = <ls_folder>-path.
ls_tree-data = lcl_git_pack=>encode_tree( lt_nodes ). ls_tree-data = lcl_git_pack=>encode_tree( lt_nodes ).
ls_tree-sha1 = lcl_hash=>sha1( iv_type = lif_defs=>gc_type-tree iv_data = ls_tree-data ). ls_tree-sha1 = lcl_hash=>sha1( iv_type = zif_abapgit_definitions=>gc_type-tree iv_data = ls_tree-data ).
APPEND ls_tree TO rt_trees. APPEND ls_tree TO rt_trees.
<ls_folder>-sha1 = ls_tree-sha1. <ls_folder>-sha1 = ls_tree-sha1.
@ -1597,7 +1597,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
<ls_node> LIKE LINE OF lt_nodes. <ls_node> LIKE LINE OF lt_nodes.
READ TABLE it_objects ASSIGNING <ls_tree> WITH KEY sha1 = iv_sha1 type = lif_defs=>gc_type-tree. READ TABLE it_objects ASSIGNING <ls_tree> WITH KEY sha1 = iv_sha1 type = zif_abapgit_definitions=>gc_type-tree.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Walk, tree not found' ). zcx_abapgit_exception=>raise( 'Walk, tree not found' ).
ENDIF. ENDIF.
@ -1605,9 +1605,9 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
lt_nodes = lcl_git_pack=>decode_tree( <ls_tree>-data ). lt_nodes = lcl_git_pack=>decode_tree( <ls_tree>-data ).
LOOP AT lt_nodes ASSIGNING <ls_node>. LOOP AT lt_nodes ASSIGNING <ls_node>.
IF <ls_node>-chmod = lif_defs=>gc_chmod-file. IF <ls_node>-chmod = zif_abapgit_definitions=>gc_chmod-file.
READ TABLE it_objects ASSIGNING <ls_blob> READ TABLE it_objects ASSIGNING <ls_blob>
WITH KEY sha1 = <ls_node>-sha1 type = lif_defs=>gc_type-blob. WITH KEY sha1 = <ls_node>-sha1 type = zif_abapgit_definitions=>gc_type-blob.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Walk, blob not found' ). zcx_abapgit_exception=>raise( 'Walk, blob not found' ).
ENDIF. ENDIF.
@ -1621,7 +1621,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
ENDIF. ENDIF.
ENDLOOP. ENDLOOP.
LOOP AT lt_nodes ASSIGNING <ls_node> WHERE chmod = lif_defs=>gc_chmod-dir. LOOP AT lt_nodes ASSIGNING <ls_node> WHERE chmod = zif_abapgit_definitions=>gc_chmod-dir.
CONCATENATE iv_path <ls_node>-name '/' INTO lv_path. CONCATENATE iv_path <ls_node>-name '/' INTO lv_path.
walk( EXPORTING it_objects = it_objects walk( EXPORTING it_objects = it_objects
iv_sha1 = <ls_node>-sha1 iv_sha1 = <ls_node>-sha1

6
src/zabapgit_git_helpers.prog.abap
View File

@ -98,7 +98,7 @@ CLASS lcl_git_branch_list DEFINITION FINAL.
PUBLIC SECTION. PUBLIC SECTION.
TYPES: ty_git_branch_type TYPE char2. TYPES: ty_git_branch_type TYPE char2.
TYPES: BEGIN OF ty_git_branch, TYPES: BEGIN OF ty_git_branch,
sha1 TYPE lif_defs=>ty_sha1, sha1 TYPE zif_abapgit_definitions=>ty_sha1,
name TYPE string, name TYPE string,
type TYPE ty_git_branch_type, type TYPE ty_git_branch_type,
is_head TYPE abap_bool, is_head TYPE abap_bool,
@ -216,7 +216,7 @@ CLASS lcl_git_branch_list IMPLEMENTATION.
METHOD parse_branch_list. METHOD parse_branch_list.
DATA: lt_result TYPE TABLE OF string, DATA: lt_result TYPE TABLE OF string,
lv_hash TYPE lif_defs=>ty_sha1, lv_hash TYPE zif_abapgit_definitions=>ty_sha1,
lv_name TYPE string, lv_name TYPE string,
lv_head_params TYPE string, lv_head_params TYPE string,
lv_char TYPE c, lv_char TYPE c,
@ -226,7 +226,7 @@ CLASS lcl_git_branch_list IMPLEMENTATION.
CLEAR: et_list, ev_head_symref. CLEAR: et_list, ev_head_symref.
SPLIT iv_data AT lif_defs=>gc_newline INTO TABLE lt_result. SPLIT iv_data AT zif_abapgit_definitions=>gc_newline INTO TABLE lt_result.
LOOP AT lt_result INTO lv_data. LOOP AT lt_result INTO lv_data.
IF sy-tabix = 1. IF sy-tabix = 1.

18
src/zabapgit_gui.prog.abap
View File

@ -115,19 +115,19 @@ CLASS lcl_gui IMPLEMENTATION.
ENDIF. ENDIF.
CASE lv_state. CASE lv_state.
WHEN lif_defs=>gc_event_state-re_render. WHEN zif_abapgit_definitions=>gc_event_state-re_render.
render( ). render( ).
WHEN lif_defs=>gc_event_state-new_page. WHEN zif_abapgit_definitions=>gc_event_state-new_page.
call_page( li_page ). call_page( li_page ).
WHEN lif_defs=>gc_event_state-new_page_w_bookmark. WHEN zif_abapgit_definitions=>gc_event_state-new_page_w_bookmark.
call_page( ii_page = li_page iv_with_bookmark = abap_true ). call_page( ii_page = li_page iv_with_bookmark = abap_true ).
WHEN lif_defs=>gc_event_state-new_page_replacing. WHEN zif_abapgit_definitions=>gc_event_state-new_page_replacing.
call_page( ii_page = li_page iv_replacing = abap_true ). call_page( ii_page = li_page iv_replacing = abap_true ).
WHEN lif_defs=>gc_event_state-go_back. WHEN zif_abapgit_definitions=>gc_event_state-go_back.
back( ). back( ).
WHEN lif_defs=>gc_event_state-go_back_to_bookmark. WHEN zif_abapgit_definitions=>gc_event_state-go_back_to_bookmark.
back( iv_to_bookmark = abap_true ). back( iv_to_bookmark = abap_true ).
WHEN lif_defs=>gc_event_state-no_more_act. WHEN zif_abapgit_definitions=>gc_event_state-no_more_act.
" Do nothing, handling completed " Do nothing, handling completed
WHEN OTHERS. WHEN OTHERS.
zcx_abapgit_exception=>raise( |Unknown action: { action }| ). zcx_abapgit_exception=>raise( |Unknown action: { action }| ).
@ -201,7 +201,7 @@ CLASS lcl_gui IMPLEMENTATION.
METHOD go_home. METHOD go_home.
on_event( action = |{ lif_defs=>gc_action-go_main }| ). " doesn't accept strings directly on_event( action = |{ zif_abapgit_definitions=>gc_action-go_main }| ). " doesn't accept strings directly
ENDMETHOD. "go_home ENDMETHOD. "go_home
@ -209,7 +209,7 @@ CLASS lcl_gui IMPLEMENTATION.
DATA: lt_events TYPE cntl_simple_events, DATA: lt_events TYPE cntl_simple_events,
ls_event LIKE LINE OF lt_events, ls_event LIKE LINE OF lt_events,
lt_assets TYPE lif_defs=>tt_web_assets. lt_assets TYPE zif_abapgit_definitions=>tt_web_assets.
FIELD-SYMBOLS <ls_asset> LIKE LINE OF lt_assets. FIELD-SYMBOLS <ls_asset> LIKE LINE OF lt_assets.

10
src/zabapgit_gui_asset_manager.prog.abap
View File

@ -11,7 +11,7 @@ CLASS lcl_gui_asset_manager DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_gui.
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
METHODS get_images METHODS get_images
RETURNING VALUE(rt_images) TYPE lif_defs=>tt_web_assets. RETURNING VALUE(rt_images) TYPE zif_abapgit_definitions=>tt_web_assets.
CLASS-METHODS get_webfont_link CLASS-METHODS get_webfont_link
RETURNING VALUE(rv_link) TYPE string. RETURNING VALUE(rv_link) TYPE string.
@ -29,7 +29,7 @@ CLASS lcl_gui_asset_manager DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_gui.
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
METHODS get_inline_images METHODS get_inline_images
RETURNING VALUE(rt_images) TYPE lif_defs=>tt_web_assets. RETURNING VALUE(rt_images) TYPE zif_abapgit_definitions=>tt_web_assets.
ENDCLASS. "lcl_gui_asset_manager ENDCLASS. "lcl_gui_asset_manager
@ -143,7 +143,7 @@ CLASS lcl_gui_asset_manager IMPLEMENTATION.
APPEND &1 TO lt_data. APPEND &1 TO lt_data.
END-OF-DEFINITION. END-OF-DEFINITION.
DATA: lt_data TYPE lif_defs=>ty_string_tt, DATA: lt_data TYPE zif_abapgit_definitions=>ty_string_tt,
lv_str TYPE string. lv_str TYPE string.
CASE iv_asset_name. CASE iv_asset_name.
@ -155,7 +155,7 @@ CLASS lcl_gui_asset_manager IMPLEMENTATION.
zcx_abapgit_exception=>raise( |No inline resource: { iv_asset_name }| ). zcx_abapgit_exception=>raise( |No inline resource: { iv_asset_name }| ).
ENDCASE. ENDCASE.
CONCATENATE LINES OF lt_data INTO lv_str SEPARATED BY lif_defs=>gc_newline. CONCATENATE LINES OF lt_data INTO lv_str SEPARATED BY zif_abapgit_definitions=>gc_newline.
CALL FUNCTION 'SCMS_STRING_TO_XSTRING' CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
EXPORTING EXPORTING
@ -170,7 +170,7 @@ CLASS lcl_gui_asset_manager IMPLEMENTATION.
METHOD get_inline_images. METHOD get_inline_images.
DATA ls_image TYPE lif_defs=>ty_web_asset. DATA ls_image TYPE zif_abapgit_definitions=>ty_web_asset.
* see https://github.com/larshp/abapGit/issues/201 for source SVG * see https://github.com/larshp/abapGit/issues/201 for source SVG
ls_image-url = 'img/logo' ##NO_TEXT. ls_image-url = 'img/logo' ##NO_TEXT.

184
src/zabapgit_gui_router.prog.abap
View File

@ -67,179 +67,179 @@ CLASS lcl_gui_router IMPLEMENTATION.
DATA: lv_url TYPE string, DATA: lv_url TYPE string,
lv_key TYPE lcl_persistence_repo=>ty_repo-key, lv_key TYPE lcl_persistence_repo=>ty_repo-key,
ls_db TYPE lcl_persistence_db=>ty_content, ls_db TYPE lcl_persistence_db=>ty_content,
ls_item TYPE lif_defs=>ty_item. ls_item TYPE zif_abapgit_definitions=>ty_item.
lv_key = iv_getdata. " TODO refactor lv_key = iv_getdata. " TODO refactor
lv_url = iv_getdata. " TODO refactor lv_url = iv_getdata. " TODO refactor
CASE iv_action. CASE iv_action.
" General PAGE routing " General PAGE routing
WHEN lif_defs=>gc_action-go_main " Go Main page WHEN zif_abapgit_definitions=>gc_action-go_main " Go Main page
OR lif_defs=>gc_action-go_explore " Go Explore page OR zif_abapgit_definitions=>gc_action-go_explore " Go Explore page
OR lif_defs=>gc_action-go_db " Go DB util page OR zif_abapgit_definitions=>gc_action-go_db " Go DB util page
OR lif_defs=>gc_action-go_debuginfo " Go debug info page OR zif_abapgit_definitions=>gc_action-go_debuginfo " Go debug info page
OR lif_defs=>gc_action-go_settings. " Go settings page OR zif_abapgit_definitions=>gc_action-go_settings. " Go settings page
ei_page = get_page_by_name( iv_action ). ei_page = get_page_by_name( iv_action ).
ev_state = lif_defs=>gc_event_state-new_page. ev_state = zif_abapgit_definitions=>gc_event_state-new_page.
WHEN lif_defs=>gc_action-go_background_run. " Go background run page WHEN zif_abapgit_definitions=>gc_action-go_background_run. " Go background run page
CREATE OBJECT ei_page TYPE lcl_gui_page_bkg_run. CREATE OBJECT ei_page TYPE lcl_gui_page_bkg_run.
ev_state = lif_defs=>gc_event_state-new_page. ev_state = zif_abapgit_definitions=>gc_event_state-new_page.
WHEN lif_defs=>gc_action-go_background. " Go Background page WHEN zif_abapgit_definitions=>gc_action-go_background. " Go Background page
ei_page = get_page_background( lv_key ). ei_page = get_page_background( lv_key ).
ev_state = lif_defs=>gc_event_state-new_page. ev_state = zif_abapgit_definitions=>gc_event_state-new_page.
WHEN lif_defs=>gc_action-go_diff. " Go Diff page WHEN zif_abapgit_definitions=>gc_action-go_diff. " Go Diff page
ei_page = get_page_diff( ei_page = get_page_diff(
iv_getdata = iv_getdata iv_getdata = iv_getdata
iv_prev_page = iv_prev_page ). iv_prev_page = iv_prev_page ).
ev_state = lif_defs=>gc_event_state-new_page_w_bookmark. ev_state = zif_abapgit_definitions=>gc_event_state-new_page_w_bookmark.
WHEN lif_defs=>gc_action-go_stage. " Go Staging page WHEN zif_abapgit_definitions=>gc_action-go_stage. " Go Staging page
ei_page = get_page_stage( iv_getdata ). ei_page = get_page_stage( iv_getdata ).
IF iv_prev_page = 'PAGE_DIFF'. IF iv_prev_page = 'PAGE_DIFF'.
ev_state = lif_defs=>gc_event_state-new_page. ev_state = zif_abapgit_definitions=>gc_event_state-new_page.
ELSE. ELSE.
ev_state = lif_defs=>gc_event_state-new_page_w_bookmark. ev_state = zif_abapgit_definitions=>gc_event_state-new_page_w_bookmark.
ENDIF. ENDIF.
WHEN lif_defs=>gc_action-go_branch_overview. " Go repo branch overview WHEN zif_abapgit_definitions=>gc_action-go_branch_overview. " Go repo branch overview
ei_page = get_page_branch_overview( iv_getdata ). ei_page = get_page_branch_overview( iv_getdata ).
ev_state = lif_defs=>gc_event_state-new_page. ev_state = zif_abapgit_definitions=>gc_event_state-new_page.
WHEN lif_defs=>gc_action-go_playground. " Create playground page WHEN zif_abapgit_definitions=>gc_action-go_playground. " Create playground page
ei_page = get_page_playground( ). ei_page = get_page_playground( ).
ev_state = lif_defs=>gc_event_state-new_page. ev_state = zif_abapgit_definitions=>gc_event_state-new_page.
WHEN lif_defs=>gc_action-go_tutorial. " Go to tutorial WHEN zif_abapgit_definitions=>gc_action-go_tutorial. " Go to tutorial
lcl_app=>user( )->set_repo_show( '' ). " Clear show_id lcl_app=>user( )->set_repo_show( '' ). " Clear show_id
ev_state = lif_defs=>gc_event_state-re_render. " Assume we are on main page ev_state = zif_abapgit_definitions=>gc_event_state-re_render. " Assume we are on main page
" SAP GUI actions " SAP GUI actions
WHEN lif_defs=>gc_action-jump. " Open object editor WHEN zif_abapgit_definitions=>gc_action-jump. " Open object editor
lcl_html_action_utils=>jump_decode( lcl_html_action_utils=>jump_decode(
EXPORTING iv_string = iv_getdata EXPORTING iv_string = iv_getdata
IMPORTING ev_obj_type = ls_item-obj_type IMPORTING ev_obj_type = ls_item-obj_type
ev_obj_name = ls_item-obj_name ). ev_obj_name = ls_item-obj_name ).
lcl_objects=>jump( ls_item ). lcl_objects=>jump( ls_item ).
ev_state = lif_defs=>gc_event_state-no_more_act. ev_state = zif_abapgit_definitions=>gc_event_state-no_more_act.
WHEN lif_defs=>gc_action-jump_pkg. " Open SE80 WHEN zif_abapgit_definitions=>gc_action-jump_pkg. " Open SE80
lcl_services_repo=>open_se80( |{ iv_getdata }| ). lcl_services_repo=>open_se80( |{ iv_getdata }| ).
ev_state = lif_defs=>gc_event_state-no_more_act. ev_state = zif_abapgit_definitions=>gc_event_state-no_more_act.
" DB actions " DB actions
WHEN lif_defs=>gc_action-db_edit. WHEN zif_abapgit_definitions=>gc_action-db_edit.
ei_page = get_page_db_by_name( iv_name = iv_action ei_page = get_page_db_by_name( iv_name = iv_action
iv_getdata = iv_getdata ). iv_getdata = iv_getdata ).
ev_state = lif_defs=>gc_event_state-new_page. ev_state = zif_abapgit_definitions=>gc_event_state-new_page.
IF iv_prev_page = 'PAGE_DB_DIS'. IF iv_prev_page = 'PAGE_DB_DIS'.
ev_state = lif_defs=>gc_event_state-new_page_replacing. ev_state = zif_abapgit_definitions=>gc_event_state-new_page_replacing.
ENDIF. ENDIF.
WHEN lif_defs=>gc_action-db_display. WHEN zif_abapgit_definitions=>gc_action-db_display.
ei_page = get_page_db_by_name( iv_name = 'DB_DIS' ei_page = get_page_db_by_name( iv_name = 'DB_DIS'
iv_getdata = iv_getdata ). iv_getdata = iv_getdata ).
ev_state = lif_defs=>gc_event_state-new_page. ev_state = zif_abapgit_definitions=>gc_event_state-new_page.
WHEN lif_defs=>gc_action-db_delete. " DB Delete WHEN zif_abapgit_definitions=>gc_action-db_delete. " DB Delete
ls_db = lcl_html_action_utils=>dbkey_decode( iv_getdata ). ls_db = lcl_html_action_utils=>dbkey_decode( iv_getdata ).
lcl_services_db=>delete( ls_db ). lcl_services_db=>delete( ls_db ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-db_update. " DB Update WHEN zif_abapgit_definitions=>gc_action-db_update. " DB Update
ls_db = lcl_html_action_utils=>dbcontent_decode( it_postdata ). ls_db = lcl_html_action_utils=>dbcontent_decode( it_postdata ).
lcl_services_db=>update( ls_db ). lcl_services_db=>update( ls_db ).
ev_state = lif_defs=>gc_event_state-go_back. ev_state = zif_abapgit_definitions=>gc_event_state-go_back.
" ABAPGIT services actions " ABAPGIT services actions
WHEN lif_defs=>gc_action-abapgit_home. " Go abapGit homepage WHEN zif_abapgit_definitions=>gc_action-abapgit_home. " Go abapGit homepage
lcl_services_abapgit=>open_abapgit_homepage( ). lcl_services_abapgit=>open_abapgit_homepage( ).
ev_state = lif_defs=>gc_event_state-no_more_act. ev_state = zif_abapgit_definitions=>gc_event_state-no_more_act.
WHEN lif_defs=>gc_action-abapgit_wiki. " Go abapGit wikipage WHEN zif_abapgit_definitions=>gc_action-abapgit_wiki. " Go abapGit wikipage
lcl_services_abapgit=>open_abapgit_wikipage( ). lcl_services_abapgit=>open_abapgit_wikipage( ).
ev_state = lif_defs=>gc_event_state-no_more_act. ev_state = zif_abapgit_definitions=>gc_event_state-no_more_act.
WHEN lif_defs=>gc_action-abapgit_install. " Install abapGit WHEN zif_abapgit_definitions=>gc_action-abapgit_install. " Install abapGit
lcl_services_abapgit=>install_abapgit( ). lcl_services_abapgit=>install_abapgit( ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-abapgit_install_pi. " Install abapGit plugins WHEN zif_abapgit_definitions=>gc_action-abapgit_install_pi. " Install abapGit plugins
lcl_services_abapgit=>install_abapgit_pi( ). lcl_services_abapgit=>install_abapgit_pi( ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
" REPOSITORY services actions " REPOSITORY services actions
WHEN lif_defs=>gc_action-repo_newoffline. " New offline repo WHEN zif_abapgit_definitions=>gc_action-repo_newoffline. " New offline repo
lcl_services_repo=>new_offline( ). lcl_services_repo=>new_offline( ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-repo_refresh. " Repo refresh WHEN zif_abapgit_definitions=>gc_action-repo_refresh. " Repo refresh
lcl_services_repo=>refresh( lv_key ). lcl_services_repo=>refresh( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-repo_syntax_check. WHEN zif_abapgit_definitions=>gc_action-repo_syntax_check.
CREATE OBJECT ei_page TYPE lcl_gui_page_syntax_check CREATE OBJECT ei_page TYPE lcl_gui_page_syntax_check
EXPORTING EXPORTING
io_repo = lcl_app=>repo_srv( )->get( lv_key ). io_repo = lcl_app=>repo_srv( )->get( lv_key ).
ev_state = lif_defs=>gc_event_state-new_page. ev_state = zif_abapgit_definitions=>gc_event_state-new_page.
WHEN lif_defs=>gc_action-repo_purge. " Repo remove & purge all objects WHEN zif_abapgit_definitions=>gc_action-repo_purge. " Repo remove & purge all objects
lcl_services_repo=>purge( lv_key ). lcl_services_repo=>purge( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-repo_remove. " Repo remove WHEN zif_abapgit_definitions=>gc_action-repo_remove. " Repo remove
lcl_services_repo=>remove( lv_key ). lcl_services_repo=>remove( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-repo_clone OR 'install'. " Repo clone, 'install' is for explore page WHEN zif_abapgit_definitions=>gc_action-repo_clone OR 'install'. " Repo clone, 'install' is for explore page
lcl_services_repo=>clone( lv_url ). lcl_services_repo=>clone( lv_url ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-repo_refresh_checksums. " Rebuil local checksums WHEN zif_abapgit_definitions=>gc_action-repo_refresh_checksums. " Rebuil local checksums
lcl_services_repo=>refresh_local_checksums( lv_key ). lcl_services_repo=>refresh_local_checksums( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-repo_toggle_fav. " Toggle repo as favorite WHEN zif_abapgit_definitions=>gc_action-repo_toggle_fav. " Toggle repo as favorite
lcl_services_repo=>toggle_favorite( lv_key ). lcl_services_repo=>toggle_favorite( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-repo_transport_to_branch. WHEN zif_abapgit_definitions=>gc_action-repo_transport_to_branch.
lcl_services_repo=>transport_to_branch( iv_repository_key = lv_key ). lcl_services_repo=>transport_to_branch( iv_repository_key = lv_key ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-repo_settings. WHEN zif_abapgit_definitions=>gc_action-repo_settings.
CREATE OBJECT ei_page TYPE lcl_gui_page_repo_sett CREATE OBJECT ei_page TYPE lcl_gui_page_repo_sett
EXPORTING EXPORTING
io_repo = lcl_app=>repo_srv( )->get( lv_key ). io_repo = lcl_app=>repo_srv( )->get( lv_key ).
ev_state = lif_defs=>gc_event_state-new_page. ev_state = zif_abapgit_definitions=>gc_event_state-new_page.
" ZIP services actions " ZIP services actions
WHEN lif_defs=>gc_action-zip_import. " Import repo from ZIP WHEN zif_abapgit_definitions=>gc_action-zip_import. " Import repo from ZIP
lcl_zip=>import( lv_key ). lcl_zip=>import( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-zip_export. " Export repo as ZIP WHEN zif_abapgit_definitions=>gc_action-zip_export. " Export repo as ZIP
lcl_zip=>export( lcl_app=>repo_srv( )->get( lv_key ) ). lcl_zip=>export( lcl_app=>repo_srv( )->get( lv_key ) ).
ev_state = lif_defs=>gc_event_state-no_more_act. ev_state = zif_abapgit_definitions=>gc_event_state-no_more_act.
WHEN lif_defs=>gc_action-zip_package. " Export package as ZIP WHEN zif_abapgit_definitions=>gc_action-zip_package. " Export package as ZIP
lcl_zip=>export_package( ). lcl_zip=>export_package( ).
ev_state = lif_defs=>gc_event_state-no_more_act. ev_state = zif_abapgit_definitions=>gc_event_state-no_more_act.
WHEN lif_defs=>gc_action-zip_transport. " Export transport as ZIP WHEN zif_abapgit_definitions=>gc_action-zip_transport. " Export transport as ZIP
lcl_transport=>zip( ). lcl_transport=>zip( ).
ev_state = lif_defs=>gc_event_state-no_more_act. ev_state = zif_abapgit_definitions=>gc_event_state-no_more_act.
WHEN lif_defs=>gc_action-zip_object. " Export object as ZIP WHEN zif_abapgit_definitions=>gc_action-zip_object. " Export object as ZIP
lcl_zip=>export_object( ). lcl_zip=>export_object( ).
ev_state = lif_defs=>gc_event_state-no_more_act. ev_state = zif_abapgit_definitions=>gc_event_state-no_more_act.
" Remote ORIGIN manipulations " Remote ORIGIN manipulations
WHEN lif_defs=>gc_action-repo_remote_attach. " Remote attach WHEN zif_abapgit_definitions=>gc_action-repo_remote_attach. " Remote attach
lcl_services_repo=>remote_attach( lv_key ). lcl_services_repo=>remote_attach( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-repo_remote_detach. " Remote detach WHEN zif_abapgit_definitions=>gc_action-repo_remote_detach. " Remote detach
lcl_services_repo=>remote_detach( lv_key ). lcl_services_repo=>remote_detach( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-repo_remote_change. " Remote change WHEN zif_abapgit_definitions=>gc_action-repo_remote_change. " Remote change
lcl_services_repo=>remote_change( lv_key ). lcl_services_repo=>remote_change( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
" GIT actions " GIT actions
WHEN lif_defs=>gc_action-git_pull. " GIT Pull WHEN zif_abapgit_definitions=>gc_action-git_pull. " GIT Pull
lcl_services_git=>pull( lv_key ). lcl_services_git=>pull( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-git_reset. " GIT Reset WHEN zif_abapgit_definitions=>gc_action-git_reset. " GIT Reset
lcl_services_git=>reset( lv_key ). lcl_services_git=>reset( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-git_branch_create. " GIT Create new branch WHEN zif_abapgit_definitions=>gc_action-git_branch_create. " GIT Create new branch
lcl_services_git=>create_branch( lv_key ). lcl_services_git=>create_branch( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-git_branch_delete. " GIT Delete remote branch WHEN zif_abapgit_definitions=>gc_action-git_branch_delete. " GIT Delete remote branch
lcl_services_git=>delete_branch( lv_key ). lcl_services_git=>delete_branch( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-git_branch_switch. " GIT Switch branch WHEN zif_abapgit_definitions=>gc_action-git_branch_switch. " GIT Switch branch
lcl_services_git=>switch_branch( lv_key ). lcl_services_git=>switch_branch( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
"Others "Others
WHEN OTHERS. WHEN OTHERS.
ev_state = lif_defs=>gc_event_state-not_handled. ev_state = zif_abapgit_definitions=>gc_event_state-not_handled.
ENDCASE. ENDCASE.
ENDMETHOD. " on_event ENDMETHOD. " on_event
@ -303,8 +303,8 @@ CLASS lcl_gui_router IMPLEMENTATION.
METHOD get_page_diff. METHOD get_page_diff.
DATA: ls_file TYPE lif_defs=>ty_file, DATA: ls_file TYPE zif_abapgit_definitions=>ty_file,
ls_object TYPE lif_defs=>ty_item, ls_object TYPE zif_abapgit_definitions=>ty_item,
lo_page TYPE REF TO lcl_gui_page_diff, lo_page TYPE REF TO lcl_gui_page_diff,
lv_key TYPE lcl_persistence_repo=>ty_repo-key. lv_key TYPE lcl_persistence_repo=>ty_repo-key.

36
src/zabapgit_html.prog.abap
View File

@ -24,7 +24,7 @@ CLASS lcl_html DEFINITION FINAL.
IMPORTING IMPORTING
iv_txt TYPE string iv_txt TYPE string
iv_act TYPE string iv_act TYPE string
iv_typ TYPE char1 DEFAULT lif_defs=>gc_action_type-sapevent iv_typ TYPE char1 DEFAULT zif_abapgit_definitions=>gc_action_type-sapevent
iv_opt TYPE clike OPTIONAL iv_opt TYPE clike OPTIONAL
iv_class TYPE string OPTIONAL iv_class TYPE string OPTIONAL
iv_id TYPE string OPTIONAL iv_id TYPE string OPTIONAL
@ -40,7 +40,7 @@ CLASS lcl_html DEFINITION FINAL.
IMPORTING IMPORTING
iv_txt TYPE string iv_txt TYPE string
iv_act TYPE string iv_act TYPE string
iv_typ TYPE char1 DEFAULT lif_defs=>gc_action_type-sapevent iv_typ TYPE char1 DEFAULT zif_abapgit_definitions=>gc_action_type-sapevent
iv_opt TYPE clike OPTIONAL iv_opt TYPE clike OPTIONAL
iv_class TYPE string OPTIONAL iv_class TYPE string OPTIONAL
iv_id TYPE string OPTIONAL iv_id TYPE string OPTIONAL
@ -261,7 +261,7 @@ CLASS lcl_html IMPLEMENTATION.
indent_line( CHANGING cs_context = ls_context cv_line = <line_c> ). indent_line( CHANGING cs_context = ls_context cv_line = <line_c> ).
ENDLOOP. ENDLOOP.
CONCATENATE LINES OF lt_temp INTO rv_html SEPARATED BY lif_defs=>gc_newline. CONCATENATE LINES OF lt_temp INTO rv_html SEPARATED BY zif_abapgit_definitions=>gc_newline.
ENDMETHOD. "render ENDMETHOD. "render
@ -287,13 +287,13 @@ CLASS lcl_html IMPLEMENTATION.
lv_class = iv_class. lv_class = iv_class.
IF iv_opt CA lif_defs=>gc_html_opt-strong. IF iv_opt CA zif_abapgit_definitions=>gc_html_opt-strong.
lv_class = lv_class && ' emphasis' ##NO_TEXT. lv_class = lv_class && ' emphasis' ##NO_TEXT.
ENDIF. ENDIF.
IF iv_opt CA lif_defs=>gc_html_opt-cancel. IF iv_opt CA zif_abapgit_definitions=>gc_html_opt-cancel.
lv_class = lv_class && ' attention' ##NO_TEXT. lv_class = lv_class && ' attention' ##NO_TEXT.
ENDIF. ENDIF.
IF iv_opt CA lif_defs=>gc_html_opt-crossout. IF iv_opt CA zif_abapgit_definitions=>gc_html_opt-crossout.
lv_class = lv_class && ' crossout grey' ##NO_TEXT. lv_class = lv_class && ' crossout grey' ##NO_TEXT.
ENDIF. ENDIF.
IF lv_class IS NOT INITIAL. IF lv_class IS NOT INITIAL.
@ -302,16 +302,16 @@ CLASS lcl_html IMPLEMENTATION.
ENDIF. ENDIF.
lv_href = ' href="#"'. " Default, dummy lv_href = ' href="#"'. " Default, dummy
IF iv_act IS NOT INITIAL OR iv_typ = lif_defs=>gc_action_type-dummy. IF iv_act IS NOT INITIAL OR iv_typ = zif_abapgit_definitions=>gc_action_type-dummy.
CASE iv_typ. CASE iv_typ.
WHEN lif_defs=>gc_action_type-url. WHEN zif_abapgit_definitions=>gc_action_type-url.
lv_href = | href="{ iv_act }"|. lv_href = | href="{ iv_act }"|.
WHEN lif_defs=>gc_action_type-sapevent. WHEN zif_abapgit_definitions=>gc_action_type-sapevent.
lv_href = | href="sapevent:{ iv_act }"|. lv_href = | href="sapevent:{ iv_act }"|.
WHEN lif_defs=>gc_action_type-onclick. WHEN zif_abapgit_definitions=>gc_action_type-onclick.
lv_href = ' href="#"'. lv_href = ' href="#"'.
lv_click = | onclick="{ iv_act }"|. lv_click = | onclick="{ iv_act }"|.
WHEN lif_defs=>gc_action_type-dummy. WHEN zif_abapgit_definitions=>gc_action_type-dummy.
lv_href = ' href="#"'. lv_href = ' href="#"'.
ENDCASE. ENDCASE.
ENDIF. ENDIF.
@ -375,7 +375,7 @@ CLASS lcl_html_toolbar DEFINITION FINAL.
IMPORTING IMPORTING
iv_txt TYPE string iv_txt TYPE string
io_sub TYPE REF TO lcl_html_toolbar OPTIONAL io_sub TYPE REF TO lcl_html_toolbar OPTIONAL
iv_typ TYPE c DEFAULT lif_defs=>gc_action_type-sapevent iv_typ TYPE c DEFAULT zif_abapgit_definitions=>gc_action_type-sapevent
iv_act TYPE string OPTIONAL iv_act TYPE string OPTIONAL
iv_ico TYPE string OPTIONAL iv_ico TYPE string OPTIONAL
iv_cur TYPE abap_bool OPTIONAL iv_cur TYPE abap_bool OPTIONAL
@ -445,9 +445,9 @@ CLASS lcl_html_toolbar IMPLEMENTATION.
METHOD add. METHOD add.
DATA ls_item TYPE ty_item. DATA ls_item TYPE ty_item.
ASSERT iv_typ = lif_defs=>gc_action_type-separator " sep doesn't have action ASSERT iv_typ = zif_abapgit_definitions=>gc_action_type-separator " sep doesn't have action
OR iv_typ = lif_defs=>gc_action_type-onclick " click may have no action (assigned in JS) OR iv_typ = zif_abapgit_definitions=>gc_action_type-onclick " click may have no action (assigned in JS)
OR iv_typ = lif_defs=>gc_action_type-dummy " dummy may have no action OR iv_typ = zif_abapgit_definitions=>gc_action_type-dummy " dummy may have no action
OR iv_act IS INITIAL AND io_sub IS NOT INITIAL OR iv_act IS INITIAL AND io_sub IS NOT INITIAL
OR iv_act IS NOT INITIAL AND io_sub IS INITIAL. " Only one supplied OR iv_act IS NOT INITIAL AND io_sub IS INITIAL. " Only one supplied
@ -502,7 +502,7 @@ CLASS lcl_html_toolbar IMPLEMENTATION.
ro_html->add( |<div class="{ lv_class }">| ). ro_html->add( |<div class="{ lv_class }">| ).
ro_html->add( '<ul><li>' ). ro_html->add( '<ul><li>' ).
ro_html->add_a( iv_txt = iv_label ro_html->add_a( iv_txt = iv_label
iv_typ = lif_defs=>gc_action_type-dummy iv_typ = zif_abapgit_definitions=>gc_action_type-dummy
iv_act = '' ). iv_act = '' ).
ro_html->add( '<div class="minizone"></div>' ). ro_html->add( '<div class="minizone"></div>' ).
ro_html->add( render_items( iv_sort = iv_sort ) ). ro_html->add( render_items( iv_sort = iv_sort ) ).
@ -545,7 +545,7 @@ CLASS lcl_html_toolbar IMPLEMENTATION.
LOOP AT mt_items ASSIGNING <item>. LOOP AT mt_items ASSIGNING <item>.
CLEAR: lv_class, lv_icon. CLEAR: lv_class, lv_icon.
IF <item>-typ = lif_defs=>gc_action_type-separator. IF <item>-typ = zif_abapgit_definitions=>gc_action_type-separator.
ro_html->add( |<li class="separator">{ <item>-txt }</li>| ). ro_html->add( |<li class="separator">{ <item>-txt }</li>| ).
CONTINUE. CONTINUE.
ENDIF. ENDIF.
@ -579,7 +579,7 @@ CLASS lcl_html_toolbar IMPLEMENTATION.
iv_opt = <item>-opt ). iv_opt = <item>-opt ).
ELSE. ELSE.
ro_html->add_a( iv_txt = lv_icon && <item>-txt ro_html->add_a( iv_txt = lv_icon && <item>-txt
iv_typ = lif_defs=>gc_action_type-dummy iv_typ = zif_abapgit_definitions=>gc_action_type-dummy
iv_act = '' iv_act = ''
iv_id = <item>-id iv_id = <item>-id
iv_opt = <item>-opt ). iv_opt = <item>-opt ).

6
src/zabapgit_html_action_utils.prog.abap
View File

@ -350,8 +350,8 @@ CLASS lcl_html_action_utils IMPLEMENTATION.
CLEAR es_fields. CLEAR es_fields.
CONCATENATE LINES OF it_postdata INTO lv_string. CONCATENATE LINES OF it_postdata INTO lv_string.
REPLACE ALL OCCURRENCES OF lif_defs=>gc_crlf IN lv_string WITH lc_replace. REPLACE ALL OCCURRENCES OF zif_abapgit_definitions=>gc_crlf IN lv_string WITH lc_replace.
REPLACE ALL OCCURRENCES OF lif_defs=>gc_newline IN lv_string WITH lc_replace. REPLACE ALL OCCURRENCES OF zif_abapgit_definitions=>gc_newline IN lv_string WITH lc_replace.
lt_fields = parse_fields_upper_case_name( lv_string ). lt_fields = parse_fields_upper_case_name( lv_string ).
get_field( EXPORTING name = 'COMMITTER_NAME' it = lt_fields CHANGING cv = es_fields ). get_field( EXPORTING name = 'COMMITTER_NAME' it = lt_fields CHANGING cv = es_fields ).
@ -363,7 +363,7 @@ CLASS lcl_html_action_utils IMPLEMENTATION.
ASSIGN COMPONENT 'BODY' OF STRUCTURE es_fields TO <body>. ASSIGN COMPONENT 'BODY' OF STRUCTURE es_fields TO <body>.
ASSERT <body> IS ASSIGNED. ASSERT <body> IS ASSIGNED.
REPLACE ALL OCCURRENCES OF lc_replace IN <body> WITH lif_defs=>gc_newline. REPLACE ALL OCCURRENCES OF lc_replace IN <body> WITH zif_abapgit_definitions=>gc_newline.
ENDMETHOD. "parse_commit_request ENDMETHOD. "parse_commit_request

22
src/zabapgit_html_chunks.prog.abap
View File

@ -86,7 +86,7 @@ CLASS lcl_gui_chunk_lib IMPLEMENTATION.
lv_icon = 'arrow-up/grey80'. lv_icon = 'arrow-up/grey80'.
ENDIF. ENDIF.
ro_html->add_a( iv_act = 'displayNews()' ro_html->add_a( iv_act = 'displayNews()'
iv_typ = lif_defs=>gc_action_type-onclick iv_typ = zif_abapgit_definitions=>gc_action_type-onclick
iv_txt = lcl_html=>icon( iv_name = lv_icon iv_txt = lcl_html=>icon( iv_name = lv_icon
iv_class = 'pad-sides' iv_class = 'pad-sides'
iv_hint = 'Display changelog' ) ). iv_hint = 'Display changelog' ) ).
@ -101,7 +101,7 @@ CLASS lcl_gui_chunk_lib IMPLEMENTATION.
ELSE. ELSE.
lv_icon = 'star/grey' ##NO_TEXT. lv_icon = 'star/grey' ##NO_TEXT.
ENDIF. ENDIF.
ro_html->add_a( iv_act = |{ lif_defs=>gc_action-repo_toggle_fav }?{ io_repo->get_key( ) }| ro_html->add_a( iv_act = |{ zif_abapgit_definitions=>gc_action-repo_toggle_fav }?{ io_repo->get_key( ) }|
iv_txt = lcl_html=>icon( iv_name = lv_icon iv_txt = lcl_html=>icon( iv_name = lv_icon
iv_class = 'pad-sides' iv_class = 'pad-sides'
iv_hint = 'Click to toggle favorite' ) ). iv_hint = 'Click to toggle favorite' ) ).
@ -137,7 +137,7 @@ CLASS lcl_gui_chunk_lib IMPLEMENTATION.
ro_html->add_icon( iv_name = 'package/darkgrey' iv_hint = 'SAP package' ). ro_html->add_icon( iv_name = 'package/darkgrey' iv_hint = 'SAP package' ).
ro_html->add( '<span>' ). ro_html->add( '<span>' ).
ro_html->add_a( iv_txt = io_repo->get_package( ) ro_html->add_a( iv_txt = io_repo->get_package( )
iv_act = |{ lif_defs=>gc_action-jump_pkg }?{ io_repo->get_package( ) }| ). iv_act = |{ zif_abapgit_definitions=>gc_action-jump_pkg }?{ io_repo->get_package( ) }| ).
ro_html->add( '</span>' ). ro_html->add( '</span>' ).
ENDIF. ENDIF.
@ -166,19 +166,19 @@ CLASS lcl_gui_chunk_lib IMPLEMENTATION.
ENDCASE. ENDCASE.
CASE <state>. CASE <state>.
WHEN lif_defs=>gc_state-unchanged. "None or unchanged WHEN zif_abapgit_definitions=>gc_state-unchanged. "None or unchanged
IF iv1 = lif_defs=>gc_state-added OR iv2 = lif_defs=>gc_state-added. IF iv1 = zif_abapgit_definitions=>gc_state-added OR iv2 = zif_abapgit_definitions=>gc_state-added.
rv_html = rv_html && |<span class="none" title="{ lv_system } Not exists">X</span>|. rv_html = rv_html && |<span class="none" title="{ lv_system } Not exists">X</span>|.
ELSE. ELSE.
rv_html = rv_html && |<span class="none" title="{ lv_system } No changes">&nbsp;</span>|. rv_html = rv_html && |<span class="none" title="{ lv_system } No changes">&nbsp;</span>|.
ENDIF. ENDIF.
WHEN lif_defs=>gc_state-modified. "Changed WHEN zif_abapgit_definitions=>gc_state-modified. "Changed
rv_html = rv_html && |<span class="changed" title="{ lv_system } Modified">M</span>|. rv_html = rv_html && |<span class="changed" title="{ lv_system } Modified">M</span>|.
WHEN lif_defs=>gc_state-added. "Added new WHEN zif_abapgit_definitions=>gc_state-added. "Added new
rv_html = rv_html && |<span class="added" title="{ lv_system } Added new">A</span>|. rv_html = rv_html && |<span class="added" title="{ lv_system } Added new">A</span>|.
WHEN lif_defs=>gc_state-mixed. "Multiple changes (multifile) WHEN zif_abapgit_definitions=>gc_state-mixed. "Multiple changes (multifile)
rv_html = rv_html && |<span class="mixed" title="{ lv_system } Multiple changes">&#x25A0;</span>|. rv_html = rv_html && |<span class="mixed" title="{ lv_system } Multiple changes">&#x25A0;</span>|.
WHEN lif_defs=>gc_state-deleted. "Deleted WHEN zif_abapgit_definitions=>gc_state-deleted. "Deleted
rv_html = rv_html && |<span class="deleted" title="{ lv_system } Deleted">D</span>|. rv_html = rv_html && |<span class="deleted" title="{ lv_system } Deleted">D</span>|.
ENDCASE. ENDCASE.
ENDDO. ENDDO.
@ -207,7 +207,7 @@ CLASS lcl_gui_chunk_lib IMPLEMENTATION.
ro_html->add( |<span class="{ lv_class }">| ). ro_html->add( |<span class="{ lv_class }">| ).
ro_html->add_icon( iv_name = 'git-branch/darkgrey' iv_hint = 'Current branch' ). ro_html->add_icon( iv_name = 'git-branch/darkgrey' iv_hint = 'Current branch' ).
IF iv_interactive = abap_true. IF iv_interactive = abap_true.
ro_html->add_a( iv_act = |{ lif_defs=>gc_action-git_branch_switch }?{ io_repo->get_key( ) }| ro_html->add_a( iv_act = |{ zif_abapgit_definitions=>gc_action-git_branch_switch }?{ io_repo->get_key( ) }|
iv_txt = lv_text ). iv_txt = lv_text ).
ELSE. ELSE.
ro_html->add( lv_text ). ro_html->add( lv_text ).
@ -269,7 +269,7 @@ CLASS lcl_gui_chunk_lib IMPLEMENTATION.
&& '<div class="float-right">' && '<div class="float-right">'
&& lcl_html=>a( && lcl_html=>a(
iv_txt = '&#x274c;' iv_txt = '&#x274c;'
iv_typ = lif_defs=>gc_action_type-onclick iv_typ = zif_abapgit_definitions=>gc_action_type-onclick
iv_act = 'displayNews()' iv_act = 'displayNews()'
iv_class = 'close-btn' ) iv_class = 'close-btn' )
&& '</div></div>' ). && '</div></div>' ).

4
src/zabapgit_http.prog.abap
View File

@ -408,7 +408,7 @@ CLASS lcl_http IMPLEMENTATION.
METHOD get_agent. METHOD get_agent.
* bitbucket require agent prefix = "git/" * bitbucket require agent prefix = "git/"
rv_agent = 'git/abapGit-' && lif_defs=>gc_abap_version. rv_agent = 'git/abapGit-' && zif_abapgit_definitions=>gc_abap_version.
ENDMETHOD. ENDMETHOD.
@ -501,7 +501,7 @@ CLASS lcl_http IMPLEMENTATION.
METHOD is_local_system. METHOD is_local_system.
DATA: lv_host TYPE string, DATA: lv_host TYPE string,
lt_list TYPE lif_defs=>ty_icm_sinfo2_tt, lt_list TYPE zif_abapgit_definitions=>ty_icm_sinfo2_tt,
li_exit TYPE ref to lif_exit. li_exit TYPE ref to lif_exit.
CALL FUNCTION 'ICM_GET_INFO2' CALL FUNCTION 'ICM_GET_INFO2'

4
src/zabapgit_news.prog.abap
View File

@ -91,7 +91,7 @@ CLASS lcl_news IMPLEMENTATION.
lc_log_path TYPE string VALUE '/', lc_log_path TYPE string VALUE '/',
lc_log_filename TYPE string VALUE 'changelog.txt'. lc_log_filename TYPE string VALUE 'changelog.txt'.
DATA: lt_remote TYPE lif_defs=>ty_files_tt, DATA: lt_remote TYPE zif_abapgit_definitions=>ty_files_tt,
lv_last_seen TYPE string, lv_last_seen TYPE string,
lv_url TYPE string, lv_url TYPE string,
lo_repo_online TYPE REF TO lcl_repo_online. lo_repo_online TYPE REF TO lcl_repo_online.
@ -126,7 +126,7 @@ CLASS lcl_news IMPLEMENTATION.
CREATE OBJECT ro_instance CREATE OBJECT ro_instance
EXPORTING EXPORTING
iv_rawdata = <file>-data iv_rawdata = <file>-data
iv_current_version = lif_defs=>gc_abap_version " TODO refactor iv_current_version = zif_abapgit_definitions=>gc_abap_version " TODO refactor
iv_lastseen_version = normalize_version( lv_last_seen ). iv_lastseen_version = normalize_version( lv_last_seen ).
ENDIF. ENDIF.

14
src/zabapgit_object_clas.prog.abap
View File

@ -14,7 +14,7 @@ CLASS lcl_object_clas DEFINITION INHERITING FROM lcl_objects_program.
ALIASES mo_files FOR lif_object~mo_files. ALIASES mo_files FOR lif_object~mo_files.
METHODS constructor METHODS constructor
IMPORTING IMPORTING
is_item TYPE lif_defs=>ty_item is_item TYPE zif_abapgit_definitions=>ty_item
iv_language TYPE spras. iv_language TYPE spras.
PROTECTED SECTION. PROTECTED SECTION.
@ -197,9 +197,9 @@ CLASS lcl_object_clas IMPLEMENTATION.
DATA: ls_vseoclass TYPE vseoclass, DATA: ls_vseoclass TYPE vseoclass,
lt_tpool TYPE textpool_table, lt_tpool TYPE textpool_table,
lt_descriptions TYPE lif_defs=>ty_seocompotx_tt, lt_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt,
ls_clskey TYPE seoclskey, ls_clskey TYPE seoclskey,
lt_sotr TYPE lif_defs=>ty_sotr_tt, lt_sotr TYPE zif_abapgit_definitions=>ty_sotr_tt,
lt_lines TYPE tlinetab. lt_lines TYPE tlinetab.
ls_clskey-clsname = ms_item-obj_name. ls_clskey-clsname = ms_item-obj_name.
@ -279,7 +279,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
METHOD deserialize_sotr. METHOD deserialize_sotr.
"OTR stands for Online Text Repository "OTR stands for Online Text Repository
DATA: lt_sotr TYPE lif_defs=>ty_sotr_tt. DATA: lt_sotr TYPE zif_abapgit_definitions=>ty_sotr_tt.
io_xml->read( EXPORTING iv_name = 'SOTR' io_xml->read( EXPORTING iv_name = 'SOTR'
CHANGING cg_data = lt_sotr ). CHANGING cg_data = lt_sotr ).
@ -316,7 +316,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
METHOD deserialize_tpool. METHOD deserialize_tpool.
DATA: lv_clsname TYPE seoclsname, DATA: lv_clsname TYPE seoclsname,
lt_tpool_ext TYPE lif_defs=>ty_tpool_tt, lt_tpool_ext TYPE zif_abapgit_definitions=>ty_tpool_tt,
lt_tpool TYPE textpool_table. lt_tpool TYPE textpool_table.
@ -345,7 +345,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
lt_local_implementations TYPE seop_source_string, lt_local_implementations TYPE seop_source_string,
lt_local_macros TYPE seop_source_string, lt_local_macros TYPE seop_source_string,
lt_test_classes TYPE seop_source_string, lt_test_classes TYPE seop_source_string,
lt_descriptions TYPE lif_defs=>ty_seocompotx_tt, lt_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt,
ls_class_key TYPE seoclskey. ls_class_key TYPE seoclskey.
@ -484,7 +484,7 @@ CLASS lcl_oo_class IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD lif_oo_object_fnc~create_sotr. METHOD lif_oo_object_fnc~create_sotr.
DATA: lt_sotr TYPE lif_defs=>ty_sotr_tt, DATA: lt_sotr TYPE zif_abapgit_definitions=>ty_sotr_tt,
lt_objects TYPE sotr_objects, lt_objects TYPE sotr_objects,
ls_paket TYPE sotr_pack, ls_paket TYPE sotr_pack,
lv_object LIKE LINE OF lt_objects. lv_object LIKE LINE OF lt_objects.

6
src/zabapgit_object_clas_new.prog.abap
View File

@ -43,7 +43,7 @@ CLASS lcl_oo_class_new DEFINITION INHERITING FROM lcl_oo_class.
zcx_abapgit_exception, zcx_abapgit_exception,
init_scanner init_scanner
IMPORTING IMPORTING
it_source TYPE lif_defs=>ty_string_tt it_source TYPE zif_abapgit_definitions=>ty_string_tt
iv_name TYPE seoclsname iv_name TYPE seoclsname
RETURNING RETURNING
VALUE(ro_scanner) TYPE REF TO cl_oo_source_scanner_class. VALUE(ro_scanner) TYPE REF TO cl_oo_source_scanner_class.
@ -333,7 +333,7 @@ CLASS lcl_object_clas_new DEFINITION INHERITING FROM lcl_object_clas.
PUBLIC SECTION. PUBLIC SECTION.
METHODS: constructor METHODS: constructor
IMPORTING IMPORTING
is_item TYPE lif_defs=>ty_item is_item TYPE zif_abapgit_definitions=>ty_item
iv_language TYPE spras. iv_language TYPE spras.
PROTECTED SECTION. PROTECTED SECTION.
@ -360,7 +360,7 @@ CLASS lcl_object_clas_new IMPLEMENTATION.
lt_local_implementations TYPE seop_source_string, lt_local_implementations TYPE seop_source_string,
lt_local_macros TYPE seop_source_string, lt_local_macros TYPE seop_source_string,
lt_test_classes TYPE seop_source_string, lt_test_classes TYPE seop_source_string,
lt_descriptions TYPE lif_defs=>ty_seocompotx_tt, lt_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt,
ls_class_key TYPE seoclskey. ls_class_key TYPE seoclskey.

2
src/zabapgit_object_cmpt.prog.abap
View File

@ -8,7 +8,7 @@ CLASS lcl_object_cmpt DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS: METHODS:
constructor constructor
IMPORTING IMPORTING
is_item TYPE lif_defs=>ty_item is_item TYPE zif_abapgit_definitions=>ty_item
iv_language TYPE spras. iv_language TYPE spras.
INTERFACES lif_object. INTERFACES lif_object.

23
src/zabapgit_object_devc.prog.abap
View File

@ -12,7 +12,7 @@ CLASS lcl_object_devc DEFINITION
ALIASES: ALIASES:
mo_files FOR lif_object~mo_files. mo_files FOR lif_object~mo_files.
METHODS: METHODS:
constructor IMPORTING is_item TYPE lif_defs=>ty_item constructor IMPORTING is_item TYPE zif_abapgit_definitions=>ty_item
iv_language TYPE spras. iv_language TYPE spras.
PROTECTED SECTION. PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
@ -85,6 +85,7 @@ CLASS lcl_object_devc IMPLEMENTATION.
li_usage TYPE REF TO if_package_permission_to_use, li_usage TYPE REF TO if_package_permission_to_use,
ls_usage_data_sign TYPE scomppsign, ls_usage_data_sign TYPE scomppsign,
ls_save_sign TYPE paksavsign. ls_save_sign TYPE paksavsign.
FIELD-SYMBOLS: <ls_usage_data> TYPE scomppdtln. FIELD-SYMBOLS: <ls_usage_data> TYPE scomppdtln.
mv_local_devclass = iv_package. mv_local_devclass = iv_package.
@ -294,6 +295,8 @@ CLASS lcl_object_devc IMPLEMENTATION.
ls_usage_data TYPE scomppdtln, ls_usage_data TYPE scomppdtln,
li_usage TYPE REF TO if_package_permission_to_use. li_usage TYPE REF TO if_package_permission_to_use.
FIELD-SYMBOLS: <field> TYPE any.
li_package = get_package( ). li_package = get_package( ).
IF li_package IS NOT BOUND. IF li_package IS NOT BOUND.
zcx_abapgit_exception=>raise( |Could not find package to serialize.| ). zcx_abapgit_exception=>raise( |Could not find package to serialize.| ).
@ -325,17 +328,29 @@ CLASS lcl_object_devc IMPLEMENTATION.
CLEAR: ls_package_data-comp_text, CLEAR: ls_package_data-comp_text,
ls_package_data-dlvu_text, ls_package_data-dlvu_text,
ls_package_data-translation_depth_text, ls_package_data-translation_depth_text,
ls_package_data-translation_graph_depth_text,
ls_package_data-layer_text. ls_package_data-layer_text.
ASSIGN COMPONENT 'TRANSLATION_GRAPH_DEPTH_TEXT'
OF STRUCTURE ls_package_data
TO <field>.
IF sy-subrc = 0.
CLEAR: <field>.
ENDIF.
" Clear things related to local installation package " Clear things related to local installation package
CLEAR: ls_package_data-namespace, CLEAR: ls_package_data-namespace,
ls_package_data-dlvunit, ls_package_data-dlvunit,
ls_package_data-pdevclass. ls_package_data-pdevclass.
" Not usable on customer systems " Not usable on customer systems
CLEAR: ls_package_data-translation_depth, CLEAR: ls_package_data-translation_depth.
ls_package_data-translation_graph_depth.
ASSIGN COMPONENT 'TRANSLATION_GRAPH_DEPTH'
OF STRUCTURE ls_package_data
TO <field>.
IF sy-subrc = 0.
CLEAR: <field>.
ENDIF.
CLEAR: ls_package_data-korrflag. CLEAR: ls_package_data-korrflag.

28
src/zabapgit_object_enho.prog.abap
View File

@ -28,12 +28,12 @@ CLASS lcl_object_enho_wdyc DEFINITION.
PUBLIC SECTION. PUBLIC SECTION.
METHODS: constructor METHODS: constructor
IMPORTING IMPORTING
is_item TYPE lif_defs=>ty_item is_item TYPE zif_abapgit_definitions=>ty_item
io_files TYPE REF TO lcl_objects_files. io_files TYPE REF TO lcl_objects_files.
INTERFACES: lif_object_enho. INTERFACES: lif_object_enho.
PRIVATE SECTION. PRIVATE SECTION.
DATA: ms_item TYPE lif_defs=>ty_item, DATA: ms_item TYPE zif_abapgit_definitions=>ty_item,
mo_files TYPE REF TO lcl_objects_files. mo_files TYPE REF TO lcl_objects_files.
ENDCLASS. "lcl_object_enho_wdyconf DEFINITION ENDCLASS. "lcl_object_enho_wdyconf DEFINITION
@ -141,12 +141,12 @@ CLASS lcl_object_enho_wdyn DEFINITION.
PUBLIC SECTION. PUBLIC SECTION.
METHODS: constructor METHODS: constructor
IMPORTING IMPORTING
is_item TYPE lif_defs=>ty_item is_item TYPE zif_abapgit_definitions=>ty_item
io_files TYPE REF TO lcl_objects_files. io_files TYPE REF TO lcl_objects_files.
INTERFACES: lif_object_enho. INTERFACES: lif_object_enho.
PRIVATE SECTION. PRIVATE SECTION.
DATA: ms_item TYPE lif_defs=>ty_item, DATA: ms_item TYPE zif_abapgit_definitions=>ty_item,
mo_files TYPE REF TO lcl_objects_files. mo_files TYPE REF TO lcl_objects_files.
ENDCLASS. "lcl_object_enho_wdyconf DEFINITION ENDCLASS. "lcl_object_enho_wdyconf DEFINITION
@ -434,12 +434,12 @@ CLASS lcl_object_enho_badi DEFINITION.
PUBLIC SECTION. PUBLIC SECTION.
METHODS: constructor METHODS: constructor
IMPORTING IMPORTING
is_item TYPE lif_defs=>ty_item is_item TYPE zif_abapgit_definitions=>ty_item
io_files TYPE REF TO lcl_objects_files. io_files TYPE REF TO lcl_objects_files.
INTERFACES: lif_object_enho. INTERFACES: lif_object_enho.
PRIVATE SECTION. PRIVATE SECTION.
DATA: ms_item TYPE lif_defs=>ty_item, DATA: ms_item TYPE zif_abapgit_definitions=>ty_item,
mo_files TYPE REF TO lcl_objects_files. mo_files TYPE REF TO lcl_objects_files.
ENDCLASS. "lcl_object_enho_badi DEFINITION ENDCLASS. "lcl_object_enho_badi DEFINITION
@ -557,7 +557,7 @@ CLASS lcl_object_enho_hook DEFINITION.
PUBLIC SECTION. PUBLIC SECTION.
METHODS: constructor METHODS: constructor
IMPORTING IMPORTING
is_item TYPE lif_defs=>ty_item is_item TYPE zif_abapgit_definitions=>ty_item
io_files TYPE REF TO lcl_objects_files. io_files TYPE REF TO lcl_objects_files.
INTERFACES: lif_object_enho. INTERFACES: lif_object_enho.
@ -570,7 +570,7 @@ CLASS lcl_object_enho_hook DEFINITION.
TYPES: ty_spaces_tt TYPE STANDARD TABLE OF ty_spaces WITH DEFAULT KEY. TYPES: ty_spaces_tt TYPE STANDARD TABLE OF ty_spaces WITH DEFAULT KEY.
DATA: ms_item TYPE lif_defs=>ty_item. DATA: ms_item TYPE zif_abapgit_definitions=>ty_item.
DATA: mo_files TYPE REF TO lcl_objects_files. DATA: mo_files TYPE REF TO lcl_objects_files.
METHODS hook_impl_deserialize METHODS hook_impl_deserialize
@ -765,12 +765,12 @@ CLASS lcl_object_enho_intf DEFINITION.
METHODS: METHODS:
constructor constructor
IMPORTING IMPORTING
is_item TYPE lif_defs=>ty_item is_item TYPE zif_abapgit_definitions=>ty_item
io_files TYPE REF TO lcl_objects_files. io_files TYPE REF TO lcl_objects_files.
INTERFACES: lif_object_enho. INTERFACES: lif_object_enho.
PRIVATE SECTION. PRIVATE SECTION.
DATA: ms_item TYPE lif_defs=>ty_item, DATA: ms_item TYPE zif_abapgit_definitions=>ty_item,
mo_files TYPE REF TO lcl_objects_files. mo_files TYPE REF TO lcl_objects_files.
ENDCLASS. "lcl_object_enho_interface DEFINITION ENDCLASS. "lcl_object_enho_interface DEFINITION
@ -870,12 +870,12 @@ CLASS lcl_object_enho_class DEFINITION.
METHODS: METHODS:
constructor constructor
IMPORTING IMPORTING
is_item TYPE lif_defs=>ty_item is_item TYPE zif_abapgit_definitions=>ty_item
io_files TYPE REF TO lcl_objects_files. io_files TYPE REF TO lcl_objects_files.
INTERFACES: lif_object_enho. INTERFACES: lif_object_enho.
PRIVATE SECTION. PRIVATE SECTION.
DATA: ms_item TYPE lif_defs=>ty_item. DATA: ms_item TYPE zif_abapgit_definitions=>ty_item.
DATA: mo_files TYPE REF TO lcl_objects_files. DATA: mo_files TYPE REF TO lcl_objects_files.
ENDCLASS. "lcl_object_enho_class DEFINITION ENDCLASS. "lcl_object_enho_class DEFINITION
@ -1010,12 +1010,12 @@ CLASS lcl_object_enho_fugr DEFINITION.
PUBLIC SECTION. PUBLIC SECTION.
METHODS: constructor METHODS: constructor
IMPORTING IMPORTING
is_item TYPE lif_defs=>ty_item is_item TYPE zif_abapgit_definitions=>ty_item
io_files TYPE REF TO lcl_objects_files. io_files TYPE REF TO lcl_objects_files.
INTERFACES: lif_object_enho. INTERFACES: lif_object_enho.
PRIVATE SECTION. PRIVATE SECTION.
DATA: ms_item TYPE lif_defs=>ty_item, DATA: ms_item TYPE zif_abapgit_definitions=>ty_item,
mo_files TYPE REF TO lcl_objects_files. mo_files TYPE REF TO lcl_objects_files.
ENDCLASS. "lcl_object_enho_wdyconf DEFINITION ENDCLASS. "lcl_object_enho_wdyconf DEFINITION

4
src/zabapgit_object_form.prog.abap
View File

@ -35,7 +35,7 @@ CLASS lcl_object_form DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS _get_last_changes METHODS _get_last_changes
IMPORTING IMPORTING
iv_form_name TYPE lif_defs=>ty_item-obj_name iv_form_name TYPE zif_abapgit_definitions=>ty_item-obj_name
RETURNING RETURNING
VALUE(es_last_changed) TYPE tys_form_header. VALUE(es_last_changed) TYPE tys_form_header.
@ -72,7 +72,7 @@ CLASS lcl_object_form DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS _find_form METHODS _find_form
IMPORTING IMPORTING
iv_object_name TYPE lif_defs=>ty_item-obj_name iv_object_name TYPE zif_abapgit_definitions=>ty_item-obj_name
RETURNING RETURNING
VALUE(et_text_header) TYPE lcl_object_form=>tyt_text_header. VALUE(et_text_header) TYPE lcl_object_form=>tyt_text_header.

2
src/zabapgit_object_fugr.prog.abap
View File

@ -304,7 +304,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
ls_progdir TYPE ty_progdir, ls_progdir TYPE ty_progdir,
lt_includes TYPE rso_t_objnm, lt_includes TYPE rso_t_objnm,
lt_tpool TYPE textpool_table, lt_tpool TYPE textpool_table,
lt_tpool_ext TYPE lif_defs=>ty_tpool_tt, lt_tpool_ext TYPE zif_abapgit_definitions=>ty_tpool_tt,
lt_source TYPE TABLE OF abaptxt255. lt_source TYPE TABLE OF abaptxt255.
FIELD-SYMBOLS: <lv_include> LIKE LINE OF lt_includes. FIELD-SYMBOLS: <lv_include> LIKE LINE OF lt_includes.

6
src/zabapgit_object_intf.prog.abap
View File

@ -13,7 +13,7 @@ CLASS lcl_object_intf DEFINITION FINAL INHERITING FROM lcl_objects_program.
ALIASES mo_files FOR lif_object~mo_files. ALIASES mo_files FOR lif_object~mo_files.
METHODS constructor METHODS constructor
IMPORTING IMPORTING
is_item TYPE lif_defs=>ty_item is_item TYPE zif_abapgit_definitions=>ty_item
iv_language TYPE spras. iv_language TYPE spras.
PROTECTED SECTION. PROTECTED SECTION.
METHODS deserialize_abap METHODS deserialize_abap
@ -53,7 +53,7 @@ CLASS lcl_object_intf IMPLEMENTATION.
METHOD deserialize_abap. METHOD deserialize_abap.
DATA: ls_vseointerf TYPE vseointerf, DATA: ls_vseointerf TYPE vseointerf,
lt_source TYPE seop_source_string, lt_source TYPE seop_source_string,
lt_descriptions TYPE lif_defs=>ty_seocompotx_tt, lt_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt,
ls_clskey TYPE seoclskey. ls_clskey TYPE seoclskey.
@ -145,7 +145,7 @@ CLASS lcl_object_intf IMPLEMENTATION.
METHOD serialize_xml. METHOD serialize_xml.
DATA: DATA:
lt_descriptions TYPE lif_defs=>ty_seocompotx_tt, lt_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt,
ls_vseointerf TYPE vseointerf, ls_vseointerf TYPE vseointerf,
ls_clskey TYPE seoclskey, ls_clskey TYPE seoclskey,
lt_lines TYPE tlinetab. lt_lines TYPE tlinetab.

36
src/zabapgit_object_oo_functions.prog.abap
View File

@ -28,7 +28,7 @@ INTERFACE lif_oo_object_fnc.
deserialize_source deserialize_source
IMPORTING IMPORTING
is_key TYPE seoclskey is_key TYPE seoclskey
it_source TYPE lif_defs=>ty_string_tt it_source TYPE zif_abapgit_definitions=>ty_string_tt
RAISING RAISING
zcx_abapgit_exception zcx_abapgit_exception
cx_sy_dyn_call_error, cx_sy_dyn_call_error,
@ -42,16 +42,16 @@ INTERFACE lif_oo_object_fnc.
update_descriptions update_descriptions
IMPORTING IMPORTING
is_key TYPE seoclskey is_key TYPE seoclskey
it_descriptions TYPE lif_defs=>ty_seocompotx_tt, it_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt,
add_to_activation_list add_to_activation_list
IMPORTING IMPORTING
is_item TYPE lif_defs=>ty_item is_item TYPE zif_abapgit_definitions=>ty_item
RAISING RAISING
zcx_abapgit_exception, zcx_abapgit_exception,
create_sotr create_sotr
IMPORTING IMPORTING
iv_package TYPE devclass iv_package TYPE devclass
it_sotr TYPE lif_defs=>ty_sotr_tt it_sotr TYPE zif_abapgit_definitions=>ty_sotr_tt
RAISING RAISING
zcx_abapgit_exception, zcx_abapgit_exception,
create_documentation create_documentation
@ -78,7 +78,7 @@ INTERFACE lif_oo_object_fnc.
is_class_key TYPE seoclskey is_class_key TYPE seoclskey
iv_type TYPE seop_include_ext_app OPTIONAL iv_type TYPE seop_include_ext_app OPTIONAL
RETURNING RETURNING
VALUE(rt_source) TYPE lif_defs=>ty_string_tt VALUE(rt_source) TYPE zif_abapgit_definitions=>ty_string_tt
RAISING RAISING
zcx_abapgit_exception zcx_abapgit_exception
cx_sy_dyn_call_error, cx_sy_dyn_call_error,
@ -115,14 +115,14 @@ INTERFACE lif_oo_object_fnc.
IMPORTING IMPORTING
iv_object_name TYPE sobj_name iv_object_name TYPE sobj_name
RETURNING RETURNING
VALUE(rt_sotr) TYPE lif_defs=>ty_sotr_tt VALUE(rt_sotr) TYPE zif_abapgit_definitions=>ty_sotr_tt
RAISING RAISING
zcx_abapgit_exception, zcx_abapgit_exception,
read_descriptions read_descriptions
IMPORTING IMPORTING
iv_obejct_name TYPE seoclsname iv_obejct_name TYPE seoclsname
RETURNING RETURNING
VALUE(rt_descriptions) TYPE lif_defs=>ty_seocompotx_tt, VALUE(rt_descriptions) TYPE zif_abapgit_definitions=>ty_seocompotx_tt,
delete delete
IMPORTING IMPORTING
is_deletion_key TYPE seoclskey is_deletion_key TYPE seoclskey
@ -143,7 +143,7 @@ CLASS lcl_oo_serializer DEFINITION.
IMPORTING IMPORTING
is_class_key TYPE seoclskey is_class_key TYPE seoclskey
RETURNING RETURNING
VALUE(rt_source) TYPE lif_defs=>ty_string_tt VALUE(rt_source) TYPE zif_abapgit_definitions=>ty_string_tt
RAISING RAISING
zcx_abapgit_exception zcx_abapgit_exception
cx_sy_dyn_call_error, cx_sy_dyn_call_error,
@ -152,37 +152,37 @@ CLASS lcl_oo_serializer DEFINITION.
VALUE(rv_return) TYPE abap_bool. VALUE(rv_return) TYPE abap_bool.
METHODS serialize_locals_imp METHODS serialize_locals_imp
IMPORTING is_clskey TYPE seoclskey IMPORTING is_clskey TYPE seoclskey
RETURNING VALUE(rt_source) TYPE lif_defs=>ty_string_tt RETURNING VALUE(rt_source) TYPE zif_abapgit_definitions=>ty_string_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
METHODS serialize_locals_def METHODS serialize_locals_def
IMPORTING is_clskey TYPE seoclskey IMPORTING is_clskey TYPE seoclskey
RETURNING VALUE(rt_source) TYPE lif_defs=>ty_string_tt RETURNING VALUE(rt_source) TYPE zif_abapgit_definitions=>ty_string_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
METHODS serialize_testclasses METHODS serialize_testclasses
IMPORTING IMPORTING
is_clskey TYPE seoclskey is_clskey TYPE seoclskey
RETURNING VALUE(rt_source) TYPE lif_defs=>ty_string_tt RETURNING VALUE(rt_source) TYPE zif_abapgit_definitions=>ty_string_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
METHODS serialize_macros METHODS serialize_macros
IMPORTING is_clskey TYPE seoclskey IMPORTING is_clskey TYPE seoclskey
RETURNING VALUE(rt_source) TYPE lif_defs=>ty_string_tt RETURNING VALUE(rt_source) TYPE zif_abapgit_definitions=>ty_string_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
PRIVATE SECTION. PRIVATE SECTION.
DATA mv_skip_testclass TYPE abap_bool. DATA mv_skip_testclass TYPE abap_bool.
METHODS serialize_abap_old METHODS serialize_abap_old
IMPORTING is_clskey TYPE seoclskey IMPORTING is_clskey TYPE seoclskey
RETURNING VALUE(rt_source) TYPE lif_defs=>ty_string_tt RETURNING VALUE(rt_source) TYPE zif_abapgit_definitions=>ty_string_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
METHODS serialize_abap_new METHODS serialize_abap_new
IMPORTING is_clskey TYPE seoclskey IMPORTING is_clskey TYPE seoclskey
RETURNING VALUE(rt_source) TYPE lif_defs=>ty_string_tt RETURNING VALUE(rt_source) TYPE zif_abapgit_definitions=>ty_string_tt
RAISING zcx_abapgit_exception RAISING zcx_abapgit_exception
cx_sy_dyn_call_error. cx_sy_dyn_call_error.
METHODS remove_signatures METHODS remove_signatures
CHANGING ct_source TYPE lif_defs=>ty_string_tt. CHANGING ct_source TYPE zif_abapgit_definitions=>ty_string_tt.
METHODS read_include METHODS read_include
IMPORTING is_clskey TYPE seoclskey IMPORTING is_clskey TYPE seoclskey
@ -191,7 +191,7 @@ CLASS lcl_oo_serializer DEFINITION.
METHODS reduce METHODS reduce
CHANGING ct_source TYPE lif_defs=>ty_string_tt. CHANGING ct_source TYPE zif_abapgit_definitions=>ty_string_tt.
ENDCLASS. ENDCLASS.
CLASS lcl_oo_serializer IMPLEMENTATION. CLASS lcl_oo_serializer IMPLEMENTATION.
@ -400,12 +400,12 @@ CLASS lcl_oo_base DEFINITION ABSTRACT.
METHODS deserialize_abap_source_old METHODS deserialize_abap_source_old
IMPORTING is_clskey TYPE seoclskey IMPORTING is_clskey TYPE seoclskey
it_source TYPE lif_defs=>ty_string_tt it_source TYPE zif_abapgit_definitions=>ty_string_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
METHODS deserialize_abap_source_new METHODS deserialize_abap_source_new
IMPORTING is_clskey TYPE seoclskey IMPORTING is_clskey TYPE seoclskey
it_source TYPE lif_defs=>ty_string_tt it_source TYPE zif_abapgit_definitions=>ty_string_tt
RAISING zcx_abapgit_exception RAISING zcx_abapgit_exception
cx_sy_dyn_call_error. cx_sy_dyn_call_error.
ENDCLASS. ENDCLASS.

4
src/zabapgit_object_prog.prog.abap
View File

@ -16,7 +16,7 @@ CLASS lcl_object_prog DEFINITION INHERITING FROM lcl_objects_program FINAL.
PRIVATE SECTION. PRIVATE SECTION.
TYPES: BEGIN OF ty_tpool_i18n, TYPES: BEGIN OF ty_tpool_i18n,
language TYPE langu, language TYPE langu,
textpool TYPE lif_defs=>ty_tpool_tt, textpool TYPE zif_abapgit_definitions=>ty_tpool_tt,
END OF ty_tpool_i18n, END OF ty_tpool_i18n,
tt_tpool_i18n TYPE STANDARD TABLE OF ty_tpool_i18n. tt_tpool_i18n TYPE STANDARD TABLE OF ty_tpool_i18n.
@ -120,7 +120,7 @@ CLASS lcl_object_prog IMPLEMENTATION.
ls_progdir TYPE ty_progdir, ls_progdir TYPE ty_progdir,
lt_tpool TYPE textpool_table, lt_tpool TYPE textpool_table,
lt_dynpros TYPE ty_dynpro_tt, lt_dynpros TYPE ty_dynpro_tt,
lt_tpool_ext TYPE lif_defs=>ty_tpool_tt, lt_tpool_ext TYPE zif_abapgit_definitions=>ty_tpool_tt,
ls_cua TYPE ty_cua, ls_cua TYPE ty_cua,
lt_source TYPE abaptxt255_tab. lt_source TYPE abaptxt255_tab.

2
src/zabapgit_object_shi3.prog.abap
View File

@ -13,7 +13,7 @@ CLASS lcl_object_shi3 DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS constructor METHODS constructor
IMPORTING IMPORTING
is_item TYPE lif_defs=>ty_item is_item TYPE zif_abapgit_definitions=>ty_item
iv_language TYPE spras. iv_language TYPE spras.

4
src/zabapgit_object_smim.prog.abap
View File

@ -127,7 +127,7 @@ CLASS lcl_object_smim IMPLEMENTATION.
METHOD find_content. METHOD find_content.
DATA: lv_filename TYPE string, DATA: lv_filename TYPE string,
lt_files TYPE lif_defs=>ty_files_tt. lt_files TYPE zif_abapgit_definitions=>ty_files_tt.
FIELD-SYMBOLS: <ls_file> LIKE LINE OF lt_files. FIELD-SYMBOLS: <ls_file> LIKE LINE OF lt_files.
@ -167,7 +167,7 @@ CLASS lcl_object_smim IMPLEMENTATION.
lv_folder TYPE abap_bool, lv_folder TYPE abap_bool,
lv_filename TYPE string, lv_filename TYPE string,
lv_class TYPE smimloio-lo_class, lv_class TYPE smimloio-lo_class,
ls_file TYPE lif_defs=>ty_file, ls_file TYPE zif_abapgit_definitions=>ty_file,
lv_content TYPE xstring, lv_content TYPE xstring,
li_api TYPE REF TO if_mr_api, li_api TYPE REF TO if_mr_api,
lv_loio TYPE sdok_docid. lv_loio TYPE sdok_docid.

2
src/zabapgit_object_w3xx.prog.abap
View File

@ -24,7 +24,7 @@ CLASS lcl_object_w3super DEFINITION INHERITING FROM lcl_objects_super ABSTRACT.
METHODS constructor METHODS constructor
IMPORTING IMPORTING
is_item TYPE lif_defs=>ty_item is_item TYPE zif_abapgit_definitions=>ty_item
iv_language TYPE spras. iv_language TYPE spras.
PROTECTED SECTION. PROTECTED SECTION.

4
src/zabapgit_object_wapa.prog.abap
View File

@ -402,7 +402,7 @@ CLASS lcl_object_wapa IMPLEMENTATION.
lv_string = lcl_convert=>xstring_to_string_utf8( iv_content ). lv_string = lcl_convert=>xstring_to_string_utf8( iv_content ).
SPLIT lv_string AT lif_defs=>gc_newline INTO TABLE rt_content. SPLIT lv_string AT zif_abapgit_definitions=>gc_newline INTO TABLE rt_content.
ENDMETHOD. ENDMETHOD.
@ -415,7 +415,7 @@ CLASS lcl_object_wapa IMPLEMENTATION.
IMPORTING IMPORTING
p_content = lt_content ). p_content = lt_content ).
CONCATENATE LINES OF lt_content INTO lv_string SEPARATED BY lif_defs=>gc_newline RESPECTING BLANKS. CONCATENATE LINES OF lt_content INTO lv_string SEPARATED BY zif_abapgit_definitions=>gc_newline RESPECTING BLANKS.
rv_content = lcl_convert=>string_to_xstring_utf8( lv_string ). rv_content = lcl_convert=>string_to_xstring_utf8( lv_string ).

106
src/zabapgit_objects.prog.abap
View File

@ -16,7 +16,7 @@ CLASS lcl_objects_activation DEFINITION FINAL.
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS add_item CLASS-METHODS add_item
IMPORTING is_item TYPE lif_defs=>ty_item IMPORTING is_item TYPE zif_abapgit_definitions=>ty_item
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS activate CLASS-METHODS activate
@ -161,7 +161,7 @@ CLASS lcl_objects_files DEFINITION.
PUBLIC SECTION. PUBLIC SECTION.
METHODS: METHODS:
constructor constructor
IMPORTING is_item TYPE lif_defs=>ty_item IMPORTING is_item TYPE zif_abapgit_definitions=>ty_item
iv_path TYPE string OPTIONAL, iv_path TYPE string OPTIONAL,
add_string add_string
IMPORTING iv_extra TYPE clike OPTIONAL IMPORTING iv_extra TYPE clike OPTIONAL
@ -177,7 +177,7 @@ CLASS lcl_objects_files DEFINITION.
IMPORTING iv_extra TYPE clike OPTIONAL IMPORTING iv_extra TYPE clike OPTIONAL
io_xml TYPE REF TO lcl_xml_output io_xml TYPE REF TO lcl_xml_output
iv_normalize TYPE sap_bool DEFAULT abap_true iv_normalize TYPE sap_bool DEFAULT abap_true
is_metadata TYPE lif_defs=>ty_metadata OPTIONAL is_metadata TYPE zif_abapgit_definitions=>ty_metadata OPTIONAL
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
* needed since type-check during dynamic call fails even if the object is compatible * needed since type-check during dynamic call fails even if the object is compatible
add_xml_from_plugin add_xml_from_plugin
@ -199,7 +199,7 @@ CLASS lcl_objects_files DEFINITION.
it_abap TYPE STANDARD TABLE it_abap TYPE STANDARD TABLE
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
add add
IMPORTING is_file TYPE lif_defs=>ty_file, IMPORTING is_file TYPE zif_abapgit_definitions=>ty_file,
add_raw add_raw
IMPORTING iv_extra TYPE clike OPTIONAL IMPORTING iv_extra TYPE clike OPTIONAL
iv_ext TYPE string iv_ext TYPE string
@ -211,16 +211,16 @@ CLASS lcl_objects_files DEFINITION.
RETURNING VALUE(rv_data) TYPE xstring RETURNING VALUE(rv_data) TYPE xstring
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
get_files get_files
RETURNING VALUE(rt_files) TYPE lif_defs=>ty_files_tt, RETURNING VALUE(rt_files) TYPE zif_abapgit_definitions=>ty_files_tt,
set_files set_files
IMPORTING it_files TYPE lif_defs=>ty_files_tt, IMPORTING it_files TYPE zif_abapgit_definitions=>ty_files_tt,
get_accessed_files get_accessed_files
RETURNING VALUE(rt_files) TYPE lif_defs=>ty_file_signatures_tt. RETURNING VALUE(rt_files) TYPE zif_abapgit_definitions=>ty_file_signatures_tt.
PRIVATE SECTION. PRIVATE SECTION.
DATA: ms_item TYPE lif_defs=>ty_item, DATA: ms_item TYPE zif_abapgit_definitions=>ty_item,
mt_accessed_files TYPE lif_defs=>ty_file_signatures_tt, mt_accessed_files TYPE zif_abapgit_definitions=>ty_file_signatures_tt,
mt_files TYPE lif_defs=>ty_files_tt, mt_files TYPE zif_abapgit_definitions=>ty_files_tt,
mv_path TYPE string. mv_path TYPE string.
METHODS: METHODS:
@ -287,7 +287,7 @@ INTERFACE lif_object.
jump jump
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
get_metadata get_metadata
RETURNING VALUE(rs_metadata) TYPE lif_defs=>ty_metadata, RETURNING VALUE(rs_metadata) TYPE zif_abapgit_definitions=>ty_metadata,
has_changed_since has_changed_since
IMPORTING iv_timestamp TYPE timestamp IMPORTING iv_timestamp TYPE timestamp
RETURNING VALUE(rv_changed) TYPE abap_bool RETURNING VALUE(rv_changed) TYPE abap_bool
@ -365,19 +365,19 @@ CLASS lcl_objects_files IMPLEMENTATION.
lv_abap = lcl_convert=>xstring_to_string_utf8( lv_data ). lv_abap = lcl_convert=>xstring_to_string_utf8( lv_data ).
SPLIT lv_abap AT lif_defs=>gc_newline INTO TABLE rt_abap. SPLIT lv_abap AT zif_abapgit_definitions=>gc_newline INTO TABLE rt_abap.
ENDMETHOD. "read_abap ENDMETHOD. "read_abap
METHOD add_abap. METHOD add_abap.
DATA: lv_source TYPE string, DATA: lv_source TYPE string,
ls_file TYPE lif_defs=>ty_file. ls_file TYPE zif_abapgit_definitions=>ty_file.
CONCATENATE LINES OF it_abap INTO lv_source SEPARATED BY lif_defs=>gc_newline. CONCATENATE LINES OF it_abap INTO lv_source SEPARATED BY zif_abapgit_definitions=>gc_newline.
* when editing files via eg. GitHub web interface it adds a newline at end of file * when editing files via eg. GitHub web interface it adds a newline at end of file
lv_source = lv_source && lif_defs=>gc_newline. lv_source = lv_source && zif_abapgit_definitions=>gc_newline.
ls_file-path = '/'. ls_file-path = '/'.
ls_file-filename = filename( iv_extra = iv_extra ls_file-filename = filename( iv_extra = iv_extra
@ -390,7 +390,7 @@ CLASS lcl_objects_files IMPLEMENTATION.
METHOD add_string. METHOD add_string.
DATA: ls_file TYPE lif_defs=>ty_file. DATA: ls_file TYPE zif_abapgit_definitions=>ty_file.
ls_file-path = '/'. ls_file-path = '/'.
@ -405,7 +405,7 @@ CLASS lcl_objects_files IMPLEMENTATION.
METHOD add_xml. METHOD add_xml.
DATA: lv_xml TYPE string, DATA: lv_xml TYPE string,
ls_file TYPE lif_defs=>ty_file. ls_file TYPE zif_abapgit_definitions=>ty_file.
lv_xml = io_xml->render( iv_normalize = iv_normalize lv_xml = io_xml->render( iv_normalize = iv_normalize
@ -526,7 +526,7 @@ CLASS lcl_objects_files IMPLEMENTATION.
METHOD add_raw. METHOD add_raw.
DATA: ls_file TYPE lif_defs=>ty_file. DATA: ls_file TYPE zif_abapgit_definitions=>ty_file.
ls_file-path = '/'. ls_file-path = '/'.
ls_file-data = iv_data. ls_file-data = iv_data.
@ -563,20 +563,20 @@ CLASS lcl_objects_super DEFINITION ABSTRACT.
METHODS: METHODS:
constructor constructor
IMPORTING IMPORTING
is_item TYPE lif_defs=>ty_item is_item TYPE zif_abapgit_definitions=>ty_item
iv_language TYPE spras. iv_language TYPE spras.
CLASS-METHODS: CLASS-METHODS:
jump_adt jump_adt
IMPORTING i_obj_name TYPE lif_defs=>ty_item-obj_name IMPORTING i_obj_name TYPE zif_abapgit_definitions=>ty_item-obj_name
i_obj_type TYPE lif_defs=>ty_item-obj_type i_obj_type TYPE zif_abapgit_definitions=>ty_item-obj_type
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CONSTANTS: c_user_unknown TYPE xubname VALUE 'UNKNOWN'. CONSTANTS: c_user_unknown TYPE xubname VALUE 'UNKNOWN'.
PROTECTED SECTION. PROTECTED SECTION.
DATA: ms_item TYPE lif_defs=>ty_item, DATA: ms_item TYPE zif_abapgit_definitions=>ty_item,
mv_language TYPE spras. mv_language TYPE spras.
METHODS: METHODS:
@ -588,7 +588,7 @@ CLASS lcl_objects_super DEFINITION ABSTRACT.
RETURNING RETURNING
VALUE(rv_changed) TYPE abap_bool, VALUE(rv_changed) TYPE abap_bool,
get_metadata get_metadata
RETURNING VALUE(rs_metadata) TYPE lif_defs=>ty_metadata, RETURNING VALUE(rs_metadata) TYPE zif_abapgit_definitions=>ty_metadata,
corr_insert corr_insert
IMPORTING iv_package TYPE devclass IMPORTING iv_package TYPE devclass
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
@ -621,7 +621,7 @@ CLASS lcl_objects_bridge DEFINITION INHERITING FROM lcl_objects_super FINAL.
CLASS-METHODS class_constructor. CLASS-METHODS class_constructor.
METHODS constructor METHODS constructor
IMPORTING is_item TYPE lif_defs=>ty_item IMPORTING is_item TYPE zif_abapgit_definitions=>ty_item
RAISING cx_sy_create_object_error. RAISING cx_sy_create_object_error.
INTERFACES lif_object. INTERFACES lif_object.
@ -668,7 +668,7 @@ CLASS lcl_objects_bridge IMPLEMENTATION.
DATA ls_objtype_map LIKE LINE OF gt_objtype_map. DATA ls_objtype_map LIKE LINE OF gt_objtype_map.
super->constructor( is_item = is_item super->constructor( is_item = is_item
iv_language = lif_defs=>gc_english ). iv_language = zif_abapgit_definitions=>gc_english ).
* determine the responsible plugin * determine the responsible plugin
READ TABLE gt_objtype_map INTO ls_objtype_map READ TABLE gt_objtype_map INTO ls_objtype_map
@ -840,7 +840,7 @@ CLASS lcl_objects_program DEFINITION INHERITING FROM lcl_objects_super.
METHODS serialize_program METHODS serialize_program
IMPORTING io_xml TYPE REF TO lcl_xml_output OPTIONAL IMPORTING io_xml TYPE REF TO lcl_xml_output OPTIONAL
is_item TYPE lif_defs=>ty_item is_item TYPE zif_abapgit_definitions=>ty_item
io_files TYPE REF TO lcl_objects_files io_files TYPE REF TO lcl_objects_files
iv_program TYPE programm OPTIONAL iv_program TYPE programm OPTIONAL
iv_extra TYPE clike OPTIONAL iv_extra TYPE clike OPTIONAL
@ -920,10 +920,10 @@ CLASS lcl_objects_program DEFINITION INHERITING FROM lcl_objects_super.
CLASS-METHODS: CLASS-METHODS:
add_tpool add_tpool
IMPORTING it_tpool TYPE textpool_table IMPORTING it_tpool TYPE textpool_table
RETURNING VALUE(rt_tpool) TYPE lif_defs=>ty_tpool_tt, RETURNING VALUE(rt_tpool) TYPE zif_abapgit_definitions=>ty_tpool_tt,
read_tpool read_tpool
IMPORTING it_tpool TYPE lif_defs=>ty_tpool_tt IMPORTING it_tpool TYPE zif_abapgit_definitions=>ty_tpool_tt
RETURNING VALUE(rt_tpool) TYPE lif_defs=>ty_tpool_tt. RETURNING VALUE(rt_tpool) TYPE zif_abapgit_definitions=>ty_tpool_tt.
PRIVATE SECTION. PRIVATE SECTION.
METHODS: METHODS:
@ -2245,49 +2245,49 @@ CLASS lcl_objects DEFINITION FINAL.
obj TYPE REF TO lif_object, obj TYPE REF TO lif_object,
xml TYPE REF TO lcl_xml_input, xml TYPE REF TO lcl_xml_input,
package TYPE devclass, package TYPE devclass,
item TYPE lif_defs=>ty_item, item TYPE zif_abapgit_definitions=>ty_item,
END OF ty_deserialization. END OF ty_deserialization.
TYPES: ty_deserialization_tt TYPE STANDARD TABLE OF ty_deserialization WITH DEFAULT KEY. TYPES: ty_deserialization_tt TYPE STANDARD TABLE OF ty_deserialization WITH DEFAULT KEY.
CLASS-METHODS serialize CLASS-METHODS serialize
IMPORTING is_item TYPE lif_defs=>ty_item IMPORTING is_item TYPE zif_abapgit_definitions=>ty_item
iv_language TYPE spras iv_language TYPE spras
io_log TYPE REF TO lcl_log OPTIONAL io_log TYPE REF TO lcl_log OPTIONAL
RETURNING VALUE(rt_files) TYPE lif_defs=>ty_files_tt RETURNING VALUE(rt_files) TYPE zif_abapgit_definitions=>ty_files_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS deserialize CLASS-METHODS deserialize
IMPORTING io_repo TYPE REF TO lcl_repo IMPORTING io_repo TYPE REF TO lcl_repo
RETURNING VALUE(rt_accessed_files) TYPE lif_defs=>ty_file_signatures_tt RETURNING VALUE(rt_accessed_files) TYPE zif_abapgit_definitions=>ty_file_signatures_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS delete CLASS-METHODS delete
IMPORTING it_tadir TYPE lif_defs=>ty_tadir_tt IMPORTING it_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS jump CLASS-METHODS jump
IMPORTING is_item TYPE lif_defs=>ty_item IMPORTING is_item TYPE zif_abapgit_definitions=>ty_item
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS changed_by CLASS-METHODS changed_by
IMPORTING is_item TYPE lif_defs=>ty_item IMPORTING is_item TYPE zif_abapgit_definitions=>ty_item
RETURNING VALUE(rv_user) TYPE xubname RETURNING VALUE(rv_user) TYPE xubname
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS has_changed_since CLASS-METHODS has_changed_since
IMPORTING is_item TYPE lif_defs=>ty_item IMPORTING is_item TYPE zif_abapgit_definitions=>ty_item
iv_timestamp TYPE timestamp iv_timestamp TYPE timestamp
RETURNING VALUE(rv_changed) TYPE abap_bool RETURNING VALUE(rv_changed) TYPE abap_bool
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS is_supported CLASS-METHODS is_supported
IMPORTING is_item TYPE lif_defs=>ty_item IMPORTING is_item TYPE zif_abapgit_definitions=>ty_item
iv_native_only TYPE abap_bool DEFAULT abap_false iv_native_only TYPE abap_bool DEFAULT abap_false
RETURNING VALUE(rv_bool) TYPE abap_bool. RETURNING VALUE(rv_bool) TYPE abap_bool.
CLASS-METHODS exists CLASS-METHODS exists
IMPORTING is_item TYPE lif_defs=>ty_item IMPORTING is_item TYPE zif_abapgit_definitions=>ty_item
RETURNING VALUE(rv_bool) TYPE abap_bool. RETURNING VALUE(rv_bool) TYPE abap_bool.
CLASS-METHODS supported_list CLASS-METHODS supported_list
@ -2296,36 +2296,36 @@ CLASS lcl_objects DEFINITION FINAL.
PRIVATE SECTION. PRIVATE SECTION.
CLASS-METHODS check_duplicates CLASS-METHODS check_duplicates
IMPORTING it_files TYPE lif_defs=>ty_files_tt IMPORTING it_files TYPE zif_abapgit_definitions=>ty_files_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS create_object CLASS-METHODS create_object
IMPORTING is_item TYPE lif_defs=>ty_item IMPORTING is_item TYPE zif_abapgit_definitions=>ty_item
iv_language TYPE spras iv_language TYPE spras
is_metadata TYPE lif_defs=>ty_metadata OPTIONAL is_metadata TYPE zif_abapgit_definitions=>ty_metadata OPTIONAL
iv_native_only TYPE abap_bool DEFAULT abap_false iv_native_only TYPE abap_bool DEFAULT abap_false
RETURNING VALUE(ri_obj) TYPE REF TO lif_object RETURNING VALUE(ri_obj) TYPE REF TO lif_object
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS CLASS-METHODS
prioritize_deser prioritize_deser
IMPORTING it_results TYPE lif_defs=>ty_results_tt IMPORTING it_results TYPE zif_abapgit_definitions=>ty_results_tt
RETURNING VALUE(rt_results) TYPE lif_defs=>ty_results_tt. RETURNING VALUE(rt_results) TYPE zif_abapgit_definitions=>ty_results_tt.
CLASS-METHODS class_name CLASS-METHODS class_name
IMPORTING is_item TYPE lif_defs=>ty_item IMPORTING is_item TYPE zif_abapgit_definitions=>ty_item
RETURNING VALUE(rv_class_name) TYPE string. RETURNING VALUE(rv_class_name) TYPE string.
CLASS-METHODS resolve_ddic CLASS-METHODS resolve_ddic
CHANGING ct_tadir TYPE lif_defs=>ty_tadir_tt CHANGING ct_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS warning_overwrite CLASS-METHODS warning_overwrite
CHANGING ct_results TYPE lif_defs=>ty_results_tt CHANGING ct_results TYPE zif_abapgit_definitions=>ty_results_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS warning_package CLASS-METHODS warning_package
IMPORTING is_item TYPE lif_defs=>ty_item IMPORTING is_item TYPE zif_abapgit_definitions=>ty_item
iv_package TYPE devclass iv_package TYPE devclass
RETURNING VALUE(rv_cancel) TYPE abap_bool RETURNING VALUE(rv_cancel) TYPE abap_bool
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
@ -2334,14 +2334,14 @@ CLASS lcl_objects DEFINITION FINAL.
IMPORTING iv_package TYPE devclass. IMPORTING iv_package TYPE devclass.
CLASS-METHODS delete_obj CLASS-METHODS delete_obj
IMPORTING is_item TYPE lif_defs=>ty_item IMPORTING is_item TYPE zif_abapgit_definitions=>ty_item
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS compare_remote_to_local CLASS-METHODS compare_remote_to_local
IMPORTING IMPORTING
io_object TYPE REF TO lif_object io_object TYPE REF TO lif_object
it_remote TYPE lif_defs=>ty_files_tt it_remote TYPE zif_abapgit_definitions=>ty_files_tt
is_result TYPE lif_defs=>ty_result is_result TYPE zif_abapgit_definitions=>ty_result
RAISING RAISING
zcx_abapgit_exception. zcx_abapgit_exception.
@ -2349,10 +2349,10 @@ CLASS lcl_objects DEFINITION FINAL.
IMPORTING it_objects TYPE ty_deserialization_tt IMPORTING it_objects TYPE ty_deserialization_tt
iv_ddic TYPE abap_bool DEFAULT abap_false iv_ddic TYPE abap_bool DEFAULT abap_false
iv_descr TYPE string iv_descr TYPE string
CHANGING ct_files TYPE lif_defs=>ty_file_signatures_tt CHANGING ct_files TYPE zif_abapgit_definitions=>ty_file_signatures_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS resolve_ddls CLASS-METHODS resolve_ddls
CHANGING CHANGING
ct_tadir TYPE lif_defs=>ty_tadir_tt. ct_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt.
ENDCLASS. "lcl_object DEFINITION ENDCLASS. "lcl_object DEFINITION

42
src/zabapgit_objects_impl.prog.abap
View File

@ -20,8 +20,8 @@ CLASS lcl_objects IMPLEMENTATION.
WHERE NOT obj_type IS INITIAL. WHERE NOT obj_type IS INITIAL.
IF <ls_result>-lstate IS NOT INITIAL IF <ls_result>-lstate IS NOT INITIAL
AND <ls_result>-lstate <> lif_defs=>gc_state-deleted AND <ls_result>-lstate <> zif_abapgit_definitions=>gc_state-deleted
AND NOT ( <ls_result>-lstate = lif_defs=>gc_state-added AND NOT ( <ls_result>-lstate = zif_abapgit_definitions=>gc_state-added
AND <ls_result>-rstate IS INITIAL ). AND <ls_result>-rstate IS INITIAL ).
"current object has been modified locally, add to table for popup "current object has been modified locally, add to table for popup
@ -169,7 +169,7 @@ CLASS lcl_objects IMPLEMENTATION.
rv_changed = create_object( rv_changed = create_object(
is_item = is_item is_item = is_item
iv_language = lif_defs=>gc_english )->has_changed_since( iv_timestamp ). iv_language = zif_abapgit_definitions=>gc_english )->has_changed_since( iv_timestamp ).
ENDMETHOD. "has_changed_since ENDMETHOD. "has_changed_since
@ -177,7 +177,7 @@ CLASS lcl_objects IMPLEMENTATION.
TRY. TRY.
create_object( is_item = is_item create_object( is_item = is_item
iv_language = lif_defs=>gc_english iv_language = zif_abapgit_definitions=>gc_english
iv_native_only = iv_native_only ). iv_native_only = iv_native_only ).
rv_bool = abap_true. rv_bool = abap_true.
CATCH zcx_abapgit_exception. CATCH zcx_abapgit_exception.
@ -219,7 +219,7 @@ CLASS lcl_objects IMPLEMENTATION.
TRY. TRY.
li_obj = create_object( is_item = is_item li_obj = create_object( is_item = is_item
iv_language = lif_defs=>gc_english ). iv_language = zif_abapgit_definitions=>gc_english ).
rv_bool = li_obj->exists( ). rv_bool = li_obj->exists( ).
CATCH zcx_abapgit_exception. CATCH zcx_abapgit_exception.
* ignore all errors and assume the object exists * ignore all errors and assume the object exists
@ -240,7 +240,7 @@ CLASS lcl_objects IMPLEMENTATION.
lv_adt_jump_enabled TYPE abap_bool. lv_adt_jump_enabled TYPE abap_bool.
li_obj = create_object( is_item = is_item li_obj = create_object( is_item = is_item
iv_language = lif_defs=>gc_english ). iv_language = zif_abapgit_definitions=>gc_english ).
lv_adt_jump_enabled = lcl_app=>settings( )->read( )->get_adt_jump_enabled( ). lv_adt_jump_enabled = lcl_app=>settings( )->read( )->get_adt_jump_enabled( ).
@ -267,7 +267,7 @@ CLASS lcl_objects IMPLEMENTATION.
rv_user = lcl_objects_super=>c_user_unknown. rv_user = lcl_objects_super=>c_user_unknown.
ELSE. ELSE.
li_obj = create_object( is_item = is_item li_obj = create_object( is_item = is_item
iv_language = lif_defs=>gc_english ). iv_language = zif_abapgit_definitions=>gc_english ).
rv_user = li_obj->changed_by( ). rv_user = li_obj->changed_by( ).
ENDIF. ENDIF.
@ -279,7 +279,7 @@ CLASS lcl_objects IMPLEMENTATION.
METHOD delete. METHOD delete.
DATA: ls_item TYPE lif_defs=>ty_item, DATA: ls_item TYPE zif_abapgit_definitions=>ty_item,
lv_tabclass TYPE dd02l-tabclass, lv_tabclass TYPE dd02l-tabclass,
lt_tadir LIKE it_tadir. lt_tadir LIKE it_tadir.
@ -357,11 +357,11 @@ CLASS lcl_objects IMPLEMENTATION.
* in case they have dependencies with .INCLUDE * in case they have dependencies with .INCLUDE
TYPES: BEGIN OF ty_edge, TYPES: BEGIN OF ty_edge,
from TYPE lif_defs=>ty_item, from TYPE zif_abapgit_definitions=>ty_item,
to TYPE lif_defs=>ty_item, to TYPE zif_abapgit_definitions=>ty_item,
END OF ty_edge. END OF ty_edge.
DATA: lt_nodes TYPE TABLE OF lif_defs=>ty_item, DATA: lt_nodes TYPE TABLE OF zif_abapgit_definitions=>ty_item,
lt_edges TYPE TABLE OF ty_edge, lt_edges TYPE TABLE OF ty_edge,
lt_findstrings TYPE TABLE OF rsfind, lt_findstrings TYPE TABLE OF rsfind,
lv_plus TYPE i VALUE 1, lv_plus TYPE i VALUE 1,
@ -473,7 +473,7 @@ CLASS lcl_objects IMPLEMENTATION.
IF is_supported( is_item ) = abap_true. IF is_supported( is_item ) = abap_true.
li_obj = create_object( is_item = is_item li_obj = create_object( is_item = is_item
iv_language = lif_defs=>gc_english ). iv_language = zif_abapgit_definitions=>gc_english ).
li_obj->delete( ). li_obj->delete( ).
@ -526,7 +526,7 @@ CLASS lcl_objects IMPLEMENTATION.
METHOD check_duplicates. METHOD check_duplicates.
DATA: lt_files TYPE lif_defs=>ty_files_tt. DATA: lt_files TYPE zif_abapgit_definitions=>ty_files_tt.
lt_files[] = it_files[]. lt_files[] = it_files[].
@ -574,20 +574,20 @@ CLASS lcl_objects IMPLEMENTATION.
METHOD deserialize. METHOD deserialize.
DATA: ls_item TYPE lif_defs=>ty_item, DATA: ls_item TYPE zif_abapgit_definitions=>ty_item,
lv_cancel TYPE abap_bool, lv_cancel TYPE abap_bool,
li_obj TYPE REF TO lif_object, li_obj TYPE REF TO lif_object,
lt_remote TYPE lif_defs=>ty_files_tt, lt_remote TYPE zif_abapgit_definitions=>ty_files_tt,
lv_package TYPE devclass, lv_package TYPE devclass,
lo_files TYPE REF TO lcl_objects_files, lo_files TYPE REF TO lcl_objects_files,
lo_xml TYPE REF TO lcl_xml_input, lo_xml TYPE REF TO lcl_xml_input,
lt_results TYPE lif_defs=>ty_results_tt, lt_results TYPE zif_abapgit_definitions=>ty_results_tt,
lt_ddic TYPE TABLE OF ty_deserialization, lt_ddic TYPE TABLE OF ty_deserialization,
lt_rest TYPE TABLE OF ty_deserialization, lt_rest TYPE TABLE OF ty_deserialization,
lt_late TYPE TABLE OF ty_deserialization, lt_late TYPE TABLE OF ty_deserialization,
lv_path TYPE string. lv_path TYPE string.
FIELD-SYMBOLS: <ls_result> TYPE lif_defs=>ty_result, FIELD-SYMBOLS: <ls_result> TYPE zif_abapgit_definitions=>ty_result,
<ls_deser> LIKE LINE OF lt_late. <ls_deser> LIKE LINE OF lt_late.
@ -605,7 +605,7 @@ CLASS lcl_objects IMPLEMENTATION.
warning_overwrite( CHANGING ct_results = lt_results ). warning_overwrite( CHANGING ct_results = lt_results ).
LOOP AT lt_results ASSIGNING <ls_result> WHERE obj_type IS NOT INITIAL LOOP AT lt_results ASSIGNING <ls_result> WHERE obj_type IS NOT INITIAL
AND NOT ( lstate = lif_defs=>gc_state-added AND rstate IS INITIAL ). AND NOT ( lstate = zif_abapgit_definitions=>gc_state-added AND rstate IS INITIAL ).
lcl_progress=>show( iv_key = 'Deserialize' lcl_progress=>show( iv_key = 'Deserialize'
iv_current = sy-tabix iv_current = sy-tabix
iv_total = lines( lt_results ) iv_total = lines( lt_results )
@ -716,7 +716,7 @@ CLASS lcl_objects IMPLEMENTATION.
* before pull, this is useful eg. when overwriting a TABL object. * before pull, this is useful eg. when overwriting a TABL object.
* only the main XML file is used for comparison * only the main XML file is used for comparison
DATA: ls_remote_file TYPE lif_defs=>ty_file, DATA: ls_remote_file TYPE zif_abapgit_definitions=>ty_file,
lo_remote_version TYPE REF TO lcl_xml_input, lo_remote_version TYPE REF TO lcl_xml_input,
lv_count TYPE i, lv_count TYPE i,
lo_comparison_result TYPE REF TO lif_comparison_result. lo_comparison_result TYPE REF TO lif_comparison_result.
@ -774,9 +774,9 @@ CLASS lcl_objects IMPLEMENTATION.
lt_ddls_name TYPE tty_ddls_names, lt_ddls_name TYPE tty_ddls_names,
ls_ddls_name LIKE LINE OF lt_ddls_name. ls_ddls_name LIKE LINE OF lt_ddls_name.
FIELD-SYMBOLS: <tadir_ddls> TYPE lif_defs=>ty_tadir, FIELD-SYMBOLS: <tadir_ddls> TYPE zif_abapgit_definitions=>ty_tadir,
<dependency> TYPE ty_dependency, <dependency> TYPE ty_dependency,
<tadir_dependent> TYPE lif_defs=>ty_tadir. <tadir_dependent> TYPE zif_abapgit_definitions=>ty_tadir.
LOOP AT ct_tadir ASSIGNING <tadir_ddls> LOOP AT ct_tadir ASSIGNING <tadir_ddls>
WHERE object = 'DDLS'. WHERE object = 'DDLS'.

6
src/zabapgit_page.prog.abap
View File

@ -91,7 +91,7 @@ CLASS lcl_gui_page IMPLEMENTATION.
ro_html->add( |<td class="logo">{ ro_html->add( |<td class="logo">{
lcl_html=>a( iv_txt = '<img src="img/logo" alt="logo">' lcl_html=>a( iv_txt = '<img src="img/logo" alt="logo">'
iv_act = lif_defs=>gc_action-abapgit_home ) iv_act = zif_abapgit_definitions=>gc_action-abapgit_home )
}</td>| ). "#EC NOTEXT }</td>| ). "#EC NOTEXT
ro_html->add( |<td><span class="page_title"> &#x25BA; { ro_html->add( |<td><span class="page_title"> &#x25BA; {
@ -119,7 +119,7 @@ CLASS lcl_gui_page IMPLEMENTATION.
ro_html->add( '<table class="w100"><tr>' ). "#EC NOTEXT ro_html->add( '<table class="w100"><tr>' ). "#EC NOTEXT
ro_html->add( '<td class="w40"></td>' ). "#EC NOTEXT ro_html->add( '<td class="w40"></td>' ). "#EC NOTEXT
ro_html->add( |<td><span class="version">{ lif_defs=>gc_abap_version }</span></td>| ). "#EC NOTEXT ro_html->add( |<td><span class="version">{ zif_abapgit_definitions=>gc_abap_version }</span></td>| ). "#EC NOTEXT
ro_html->add( '<td id="debug-output" class="w40"></td>' ). "#EC NOTEXT ro_html->add( '<td id="debug-output" class="w40"></td>' ). "#EC NOTEXT
ro_html->add( '</tr></table>' ). "#EC NOTEXT ro_html->add( '</tr></table>' ). "#EC NOTEXT
@ -146,7 +146,7 @@ CLASS lcl_gui_page IMPLEMENTATION.
ENDMETHOD. "scripts ENDMETHOD. "scripts
METHOD lif_gui_page~on_event. METHOD lif_gui_page~on_event.
ev_state = lif_defs=>gc_event_state-not_handled. ev_state = zif_abapgit_definitions=>gc_event_state-not_handled.
ENDMETHOD. "lif_gui_page~on_event ENDMETHOD. "lif_gui_page~on_event
METHOD lif_gui_page~render. METHOD lif_gui_page~render.

8
src/zabapgit_page_background.prog.abap
View File

@ -111,7 +111,7 @@ CLASS lcl_gui_page_bkg IMPLEMENTATION.
METHOD build_menu. METHOD build_menu.
CREATE OBJECT ro_menu. CREATE OBJECT ro_menu.
ro_menu->add( iv_txt = 'Run background logic' ro_menu->add( iv_txt = 'Run background logic'
iv_act = lif_defs=>gc_action-go_background_run ) ##NO_TEXT. iv_act = zif_abapgit_definitions=>gc_action-go_background_run ) ##NO_TEXT.
ENDMETHOD. "build_menu ENDMETHOD. "build_menu
METHOD lif_gui_page~on_event. METHOD lif_gui_page~on_event.
@ -119,11 +119,11 @@ CLASS lcl_gui_page_bkg IMPLEMENTATION.
DATA ls_bg_task TYPE lcl_persist_background=>ty_background. DATA ls_bg_task TYPE lcl_persist_background=>ty_background.
CASE iv_action. CASE iv_action.
WHEN lif_defs=>gc_action-bg_update. WHEN zif_abapgit_definitions=>gc_action-bg_update.
ls_bg_task = lcl_html_action_utils=>decode_bg_update( iv_getdata ). ls_bg_task = lcl_html_action_utils=>decode_bg_update( iv_getdata ).
ls_bg_task-key = mv_key. ls_bg_task-key = mv_key.
lcl_services_bkg=>update_task( ls_bg_task ). lcl_services_bkg=>update_task( ls_bg_task ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
ENDCASE. ENDCASE.
ENDMETHOD. ENDMETHOD.
@ -182,7 +182,7 @@ CLASS lcl_gui_page_bkg IMPLEMENTATION.
ro_html->add( '<br>' ). ro_html->add( '<br>' ).
ro_html->add( '<u>Method</u><br>' ) ##NO_TEXT. ro_html->add( '<u>Method</u><br>' ) ##NO_TEXT.
ro_html->add( |<form method="get" action="sapevent:{ lif_defs=>gc_action-bg_update }">| ). ro_html->add( |<form method="get" action="sapevent:{ zif_abapgit_definitions=>gc_action-bg_update }">| ).
ro_html->add( '<input type="radio" name="method" value="nothing"' && ro_html->add( '<input type="radio" name="method" value="nothing"' &&
lv_nothing && '>Do nothing<br>' ) ##NO_TEXT. lv_nothing && '>Do nothing<br>' ) ##NO_TEXT.
ro_html->add( '<input type="radio" name="method" value="push"' && ro_html->add( '<input type="radio" name="method" value="push"' &&

28
src/zabapgit_page_branch_overview.prog.abap
View File

@ -11,9 +11,9 @@ CLASS lcl_branch_overview DEFINITION FINAL.
END OF ty_create. END OF ty_create.
TYPES: BEGIN OF ty_commit, TYPES: BEGIN OF ty_commit,
sha1 TYPE lif_defs=>ty_sha1, sha1 TYPE zif_abapgit_definitions=>ty_sha1,
parent1 TYPE lif_defs=>ty_sha1, parent1 TYPE zif_abapgit_definitions=>ty_sha1,
parent2 TYPE lif_defs=>ty_sha1, parent2 TYPE zif_abapgit_definitions=>ty_sha1,
author TYPE string, author TYPE string,
email TYPE string, email TYPE string,
time TYPE string, time TYPE string,
@ -43,7 +43,7 @@ CLASS lcl_branch_overview DEFINITION FINAL.
CLASS-METHODS: CLASS-METHODS:
parse_commits parse_commits
IMPORTING it_objects TYPE lif_defs=>ty_objects_tt IMPORTING it_objects TYPE zif_abapgit_definitions=>ty_objects_tt
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
determine_branch determine_branch
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
@ -53,7 +53,7 @@ CLASS lcl_branch_overview DEFINITION FINAL.
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
get_git_objects get_git_objects
IMPORTING io_repo TYPE REF TO lcl_repo_online IMPORTING io_repo TYPE REF TO lcl_repo_online
RETURNING VALUE(rt_objects) TYPE lif_defs=>ty_objects_tt RETURNING VALUE(rt_objects) TYPE zif_abapgit_definitions=>ty_objects_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-DATA: CLASS-DATA:
@ -131,7 +131,7 @@ CLASS lcl_branch_overview IMPLEMENTATION.
METHOD run. METHOD run.
DATA: lt_objects TYPE lif_defs=>ty_objects_tt. DATA: lt_objects TYPE zif_abapgit_definitions=>ty_objects_tt.
CLEAR gt_branches. CLEAR gt_branches.
@ -169,7 +169,7 @@ CLASS lcl_branch_overview IMPLEMENTATION.
it_branches = gt_branches it_branches = gt_branches
IMPORTING et_objects = rt_objects ). IMPORTING et_objects = rt_objects ).
DELETE rt_objects WHERE type = lif_defs=>gc_type-blob. DELETE rt_objects WHERE type = zif_abapgit_definitions=>gc_type-blob.
ENDMETHOD. ENDMETHOD.
@ -182,7 +182,7 @@ CLASS lcl_branch_overview IMPLEMENTATION.
FIELD-SYMBOLS: <ls_object> LIKE LINE OF it_objects. FIELD-SYMBOLS: <ls_object> LIKE LINE OF it_objects.
LOOP AT it_objects ASSIGNING <ls_object> WHERE type = lif_defs=>gc_type-commit. LOOP AT it_objects ASSIGNING <ls_object> WHERE type = zif_abapgit_definitions=>gc_type-commit.
ls_raw = lcl_git_pack=>decode_commit( <ls_object>-data ). ls_raw = lcl_git_pack=>decode_commit( <ls_object>-data ).
CLEAR ls_commit. CLEAR ls_commit.
@ -190,10 +190,10 @@ CLASS lcl_branch_overview IMPLEMENTATION.
ls_commit-parent1 = ls_raw-parent. ls_commit-parent1 = ls_raw-parent.
ls_commit-parent2 = ls_raw-parent2. ls_commit-parent2 = ls_raw-parent2.
SPLIT ls_raw-body AT lif_defs=>gc_newline INTO ls_commit-message lv_trash. SPLIT ls_raw-body AT zif_abapgit_definitions=>gc_newline INTO ls_commit-message lv_trash.
* unix time stamps are in same time zone, so ignore the zone, * unix time stamps are in same time zone, so ignore the zone,
FIND REGEX lif_defs=>gc_author_regex IN ls_raw-author FIND REGEX zif_abapgit_definitions=>gc_author_regex IN ls_raw-author
SUBMATCHES SUBMATCHES
ls_commit-author ls_commit-author
ls_commit-email ls_commit-email
@ -561,15 +561,15 @@ CLASS lcl_gui_page_boverview IMPLEMENTATION.
CASE iv_action. CASE iv_action.
WHEN c_actions-refresh. WHEN c_actions-refresh.
refresh( ). refresh( ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN c_actions-uncompress. WHEN c_actions-uncompress.
mv_compress = abap_false. mv_compress = abap_false.
refresh( ). refresh( ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN c_actions-compress. WHEN c_actions-compress.
mv_compress = abap_true. mv_compress = abap_true.
refresh( ). refresh( ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN c_actions-merge. WHEN c_actions-merge.
ls_merge = decode_merge( it_postdata ). ls_merge = decode_merge( it_postdata ).
CREATE OBJECT lo_merge CREATE OBJECT lo_merge
@ -578,7 +578,7 @@ CLASS lcl_gui_page_boverview IMPLEMENTATION.
iv_source = ls_merge-source iv_source = ls_merge-source
iv_target = ls_merge-target. iv_target = ls_merge-target.
ei_page = lo_merge. ei_page = lo_merge.
ev_state = lif_defs=>gc_event_state-new_page. ev_state = zif_abapgit_definitions=>gc_event_state-new_page.
ENDCASE. ENDCASE.
ENDMETHOD. ENDMETHOD.

10
src/zabapgit_page_commit.prog.abap
View File

@ -72,10 +72,10 @@ CLASS lcl_gui_page_commit IMPLEMENTATION.
io_repo = mo_repo io_repo = mo_repo
io_stage = mo_stage ). io_stage = mo_stage ).
ev_state = lif_defs=>gc_event_state-go_back_to_bookmark. ev_state = zif_abapgit_definitions=>gc_event_state-go_back_to_bookmark.
WHEN c_action-commit_cancel. WHEN c_action-commit_cancel.
ev_state = lif_defs=>gc_event_state-go_back. ev_state = zif_abapgit_definitions=>gc_event_state-go_back.
ENDCASE. ENDCASE.
ENDMETHOD. ENDMETHOD.
@ -241,12 +241,12 @@ CLASS lcl_gui_page_commit IMPLEMENTATION.
lo_toolbar->add( iv_act = 'submitFormById(''commit_form'');' lo_toolbar->add( iv_act = 'submitFormById(''commit_form'');'
iv_txt = 'Commit' iv_txt = 'Commit'
iv_typ = lif_defs=>gc_action_type-onclick iv_typ = zif_abapgit_definitions=>gc_action_type-onclick
iv_opt = lif_defs=>gc_html_opt-strong ) ##NO_TEXT. iv_opt = zif_abapgit_definitions=>gc_html_opt-strong ) ##NO_TEXT.
lo_toolbar->add( iv_act = c_action-commit_cancel lo_toolbar->add( iv_act = c_action-commit_cancel
iv_txt = 'Cancel' iv_txt = 'Cancel'
iv_opt = lif_defs=>gc_html_opt-cancel ) ##NO_TEXT. iv_opt = zif_abapgit_definitions=>gc_html_opt-cancel ) ##NO_TEXT.
ro_html->add( '<div class="paddings">' ). ro_html->add( '<div class="paddings">' ).
ro_html->add( lo_toolbar->render( ) ). ro_html->add( lo_toolbar->render( ) ).

17
src/zabapgit_page_db.prog.abap
View File

@ -31,7 +31,7 @@ CLASS lcl_gui_page_db_dis IMPLEMENTATION.
METHOD render_record_banner. METHOD render_record_banner.
rv_html = |<table class="tag"><tr><td class="label">Type:</td>| rv_html = |<table class="tag"><tr><td class="label">Type:</td>|
&& | <td>{ is_key-type }</td></tr></table>| && | <td>{ is_key-type }</td></tr></table>|
&& lif_defs=>gc_newline && zif_abapgit_definitions=>gc_newline
&& |<table class="tag"><tr><td class="label">Key:</td>| && |<table class="tag"><tr><td class="label">Key:</td>|
&& | <td>{ is_key-value }</td></tr></table>|. && | <td>{ is_key-value }</td></tr></table>|.
ENDMETHOD. "render_record_banner ENDMETHOD. "render_record_banner
@ -62,7 +62,7 @@ CLASS lcl_gui_page_db_dis IMPLEMENTATION.
CREATE OBJECT ro_html. CREATE OBJECT ro_html.
CREATE OBJECT lo_toolbar. CREATE OBJECT lo_toolbar.
lo_toolbar->add( iv_act = |{ lif_defs=>gc_action-db_edit }?{ lv_action }| lo_toolbar->add( iv_act = |{ zif_abapgit_definitions=>gc_action-db_edit }?{ lv_action }|
iv_txt = 'Edit' ) ##NO_TEXT. iv_txt = 'Edit' ) ##NO_TEXT.
ro_html->add( '<div class="db_entry">' ). ro_html->add( '<div class="db_entry">' ).
@ -124,8 +124,8 @@ CLASS lcl_gui_page_db_edit IMPLEMENTATION.
CREATE OBJECT lo_toolbar. CREATE OBJECT lo_toolbar.
lo_toolbar->add( iv_act = 'submitFormById(''db_form'');' lo_toolbar->add( iv_act = 'submitFormById(''db_form'');'
iv_txt = 'Save' iv_txt = 'Save'
iv_typ = lif_defs=>gc_action_type-onclick iv_typ = zif_abapgit_definitions=>gc_action_type-onclick
iv_opt = lif_defs=>gc_html_opt-strong ) ##NO_TEXT. iv_opt = zif_abapgit_definitions=>gc_html_opt-strong ) ##NO_TEXT.
ro_html->add( '<div class="db_entry">' ). ro_html->add( '<div class="db_entry">' ).
@ -137,7 +137,8 @@ CLASS lcl_gui_page_db_edit IMPLEMENTATION.
ro_html->add( '</td></tr></table>' ). ro_html->add( '</td></tr></table>' ).
" Form " Form
ro_html->add( |<form id="db_form" method="post" action="sapevent:{ lif_defs=>gc_action-db_update }">| ). ro_html->add( |<form id="db_form" method="post" action="sapevent:|
&& |{ zif_abapgit_definitions=>gc_action-db_update }">| ).
ro_html->add( |<input type="hidden" name="type" value="{ ms_key-type }">| ). ro_html->add( |<input type="hidden" name="type" value="{ ms_key-type }">| ).
ro_html->add( |<input type="hidden" name="value" value="{ ms_key-value }">| ). ro_html->add( |<input type="hidden" name="value" value="{ ms_key-value }">| ).
ro_html->add( |<textarea rows="20" cols="100" name="xmldata">{ lv_data }</textarea>| ). ro_html->add( |<textarea rows="20" cols="100" name="xmldata">{ lv_data }</textarea>| ).
@ -210,9 +211,9 @@ CLASS lcl_gui_page_db IMPLEMENTATION.
lv_action = lcl_html_action_utils=>dbkey_encode( <ls_data> ). lv_action = lcl_html_action_utils=>dbkey_encode( <ls_data> ).
CREATE OBJECT lo_toolbar. CREATE OBJECT lo_toolbar.
lo_toolbar->add( iv_txt = 'Display' iv_act = |{ lif_defs=>gc_action-db_display }?{ lv_action }| ). lo_toolbar->add( iv_txt = 'Display' iv_act = |{ zif_abapgit_definitions=>gc_action-db_display }?{ lv_action }| ).
lo_toolbar->add( iv_txt = 'Edit' iv_act = |{ lif_defs=>gc_action-db_edit }?{ lv_action }| ). lo_toolbar->add( iv_txt = 'Edit' iv_act = |{ zif_abapgit_definitions=>gc_action-db_edit }?{ lv_action }| ).
lo_toolbar->add( iv_txt = 'Delete' iv_act = |{ lif_defs=>gc_action-db_delete }?{ lv_action }| ). lo_toolbar->add( iv_txt = 'Delete' iv_act = |{ zif_abapgit_definitions=>gc_action-db_delete }?{ lv_action }| ).
ro_html->add( |<tr{ lv_trclass }>| ). ro_html->add( |<tr{ lv_trclass }>| ).
ro_html->add( |<td>{ <ls_data>-type }</td>| ). ro_html->add( |<td>{ <ls_data>-type }</td>| ).

6
src/zabapgit_page_debug.prog.abap
View File

@ -55,8 +55,8 @@ CLASS lcl_gui_page_debuginfo IMPLEMENTATION.
CREATE OBJECT ro_html. CREATE OBJECT ro_html.
ro_html->add( |<p>abapGit version: { lif_defs=>gc_abap_version }</p>| ). ro_html->add( |<p>abapGit version: { zif_abapgit_definitions=>gc_abap_version }</p>| ).
ro_html->add( |<p>XML version: { lif_defs=>gc_xml_version }</p>| ). ro_html->add( |<p>XML version: { zif_abapgit_definitions=>gc_xml_version }</p>| ).
ro_html->add( |<p>GUI version: { lv_gui_version }</p>| ). ro_html->add( |<p>GUI version: { lv_gui_version }</p>| ).
ro_html->add( |<p>LCL_TIME: { zcl_abapgit_time=>get( ) }</p>| ). ro_html->add( |<p>LCL_TIME: { zcl_abapgit_time=>get( ) }</p>| ).
ro_html->add( |<p>SY time: { sy-datum } { sy-uzeit } { sy-tzone }</p>| ). ro_html->add( |<p>SY time: { sy-datum } { sy-uzeit } { sy-tzone }</p>| ).
@ -67,7 +67,7 @@ CLASS lcl_gui_page_debuginfo IMPLEMENTATION.
DATA: lt_objects TYPE STANDARD TABLE OF ko100, DATA: lt_objects TYPE STANDARD TABLE OF ko100,
lv_list TYPE string, lv_list TYPE string,
ls_item TYPE lif_defs=>ty_item. ls_item TYPE zif_abapgit_definitions=>ty_item.
FIELD-SYMBOLS <object> LIKE LINE OF lt_objects. FIELD-SYMBOLS <object> LIKE LINE OF lt_objects.

32
src/zabapgit_page_diff.prog.abap
View File

@ -28,8 +28,8 @@ CLASS lcl_gui_page_diff DEFINITION FINAL INHERITING FROM lcl_gui_page.
METHODS: METHODS:
constructor constructor
IMPORTING iv_key TYPE lcl_persistence_repo=>ty_repo-key IMPORTING iv_key TYPE lcl_persistence_repo=>ty_repo-key
is_file TYPE lif_defs=>ty_file OPTIONAL is_file TYPE zif_abapgit_definitions=>ty_file OPTIONAL
is_object TYPE lif_defs=>ty_item OPTIONAL is_object TYPE zif_abapgit_definitions=>ty_item OPTIONAL
iv_supress_stage TYPE abap_bool DEFAULT abap_false iv_supress_stage TYPE abap_bool DEFAULT abap_false
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
lif_gui_page~on_event REDEFINITION. lif_gui_page~on_event REDEFINITION.
@ -73,9 +73,9 @@ CLASS lcl_gui_page_diff DEFINITION FINAL INHERITING FROM lcl_gui_page.
IMPORTING is_diff_line TYPE lcl_diff=>ty_diff OPTIONAL IMPORTING is_diff_line TYPE lcl_diff=>ty_diff OPTIONAL
RETURNING VALUE(ro_html) TYPE REF TO lcl_html. RETURNING VALUE(ro_html) TYPE REF TO lcl_html.
METHODS append_diff METHODS append_diff
IMPORTING it_remote TYPE lif_defs=>ty_files_tt IMPORTING it_remote TYPE zif_abapgit_definitions=>ty_files_tt
it_local TYPE lif_defs=>ty_files_item_tt it_local TYPE zif_abapgit_definitions=>ty_files_item_tt
is_status TYPE lif_defs=>ty_result is_status TYPE zif_abapgit_definitions=>ty_result
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
METHODS build_menu METHODS build_menu
IMPORTING iv_supress_stage TYPE abap_bool IMPORTING iv_supress_stage TYPE abap_bool
@ -91,9 +91,9 @@ CLASS lcl_gui_page_diff IMPLEMENTATION.
METHOD constructor. METHOD constructor.
DATA: lt_remote TYPE lif_defs=>ty_files_tt, DATA: lt_remote TYPE zif_abapgit_definitions=>ty_files_tt,
lt_local TYPE lif_defs=>ty_files_item_tt, lt_local TYPE zif_abapgit_definitions=>ty_files_item_tt,
lt_status TYPE lif_defs=>ty_results_tt, lt_status TYPE zif_abapgit_definitions=>ty_results_tt,
lo_repo TYPE REF TO lcl_repo_online, lo_repo TYPE REF TO lcl_repo_online,
lv_ts TYPE timestamp. lv_ts TYPE timestamp.
@ -295,9 +295,9 @@ CLASS lcl_gui_page_diff IMPLEMENTATION.
IF iv_supress_stage = abap_false. IF iv_supress_stage = abap_false.
ro_menu->add( iv_txt = 'Stage' ro_menu->add( iv_txt = 'Stage'
iv_act = |{ lif_defs=>gc_action-go_stage }?{ mv_repo_key }| iv_act = |{ zif_abapgit_definitions=>gc_action-go_stage }?{ mv_repo_key }|
iv_id = 'stage-button' iv_id = 'stage-button'
iv_opt = lif_defs=>gc_html_opt-strong ). iv_opt = zif_abapgit_definitions=>gc_html_opt-strong ).
ENDIF. ENDIF.
IF lines( lt_types ) > 1 OR lines( lt_users ) > 1. IF lines( lt_types ) > 1 OR lines( lt_users ) > 1.
@ -305,10 +305,10 @@ CLASS lcl_gui_page_diff IMPLEMENTATION.
" File types " File types
IF lines( lt_types ) > 1. IF lines( lt_types ) > 1.
lo_sub->add( iv_txt = 'TYPE' iv_typ = lif_defs=>gc_action_type-separator ). lo_sub->add( iv_txt = 'TYPE' iv_typ = zif_abapgit_definitions=>gc_action_type-separator ).
LOOP AT lt_types ASSIGNING <i>. LOOP AT lt_types ASSIGNING <i>.
lo_sub->add( iv_txt = <i> lo_sub->add( iv_txt = <i>
iv_typ = lif_defs=>gc_action_type-onclick iv_typ = zif_abapgit_definitions=>gc_action_type-onclick
iv_aux = 'type' iv_aux = 'type'
iv_chk = abap_true ). iv_chk = abap_true ).
ENDLOOP. ENDLOOP.
@ -316,10 +316,10 @@ CLASS lcl_gui_page_diff IMPLEMENTATION.
" Changed by " Changed by
IF lines( lt_users ) > 1. IF lines( lt_users ) > 1.
lo_sub->add( iv_txt = 'CHANGED BY' iv_typ = lif_defs=>gc_action_type-separator ). lo_sub->add( iv_txt = 'CHANGED BY' iv_typ = zif_abapgit_definitions=>gc_action_type-separator ).
LOOP AT lt_users ASSIGNING <i>. LOOP AT lt_users ASSIGNING <i>.
lo_sub->add( iv_txt = <i> lo_sub->add( iv_txt = <i>
iv_typ = lif_defs=>gc_action_type-onclick iv_typ = zif_abapgit_definitions=>gc_action_type-onclick
iv_aux = 'changed-by' iv_aux = 'changed-by'
iv_chk = abap_true ). iv_chk = abap_true ).
ENDLOOP. ENDLOOP.
@ -339,7 +339,7 @@ CLASS lcl_gui_page_diff IMPLEMENTATION.
CASE iv_action. CASE iv_action.
WHEN c_actions-toggle_unified. " Toggle file diplay WHEN c_actions-toggle_unified. " Toggle file diplay
mv_unified = lcl_app=>user( )->toggle_diff_unified( ). mv_unified = lcl_app=>user( )->toggle_diff_unified( ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
ENDCASE. ENDCASE.
ENDMETHOD. "lif_gui_page~on_event ENDMETHOD. "lif_gui_page~on_event
@ -633,7 +633,7 @@ CLASS lcl_gui_page_diff IMPLEMENTATION.
ro_html->add( 'var gHelper = new DiffHelper({' ). ro_html->add( 'var gHelper = new DiffHelper({' ).
ro_html->add( | seed: "{ mv_seed }",| ). ro_html->add( | seed: "{ mv_seed }",| ).
ro_html->add( | stageAction: "{ lif_defs=>gc_action-go_stage }",| ). ro_html->add( | stageAction: "{ zif_abapgit_definitions=>gc_action-go_stage }",| ).
ro_html->add( ' ids: {' ). ro_html->add( ' ids: {' ).
ro_html->add( ' diffList: "diff-list",' ). ro_html->add( ' diffList: "diff-list",' ).
ro_html->add( ' filterMenu: "diff-filter",' ). ro_html->add( ' filterMenu: "diff-filter",' ).

34
src/zabapgit_page_main.prog.abap
View File

@ -65,7 +65,7 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
ei_page = ei_page ei_page = ei_page
ev_state = ev_state ). ev_state = ev_state ).
IF ev_state <> lif_defs=>gc_event_state-not_handled. IF ev_state <> zif_abapgit_definitions=>gc_event_state-not_handled.
RETURN. RETURN.
ENDIF. ENDIF.
ENDIF. ENDIF.
@ -80,10 +80,10 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
CATCH zcx_abapgit_exception ##NO_HANDLER. CATCH zcx_abapgit_exception ##NO_HANDLER.
ENDTRY. ENDTRY.
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN c_actions-changed_by. WHEN c_actions-changed_by.
test_changed_by( ). test_changed_by( ).
ev_state = lif_defs=>gc_event_state-no_more_act. ev_state = zif_abapgit_definitions=>gc_event_state-no_more_act.
ENDCASE. ENDCASE.
ENDMETHOD. "on_event ENDMETHOD. "on_event
@ -92,7 +92,7 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
DATA: ls_tadir TYPE tadir, DATA: ls_tadir TYPE tadir,
lv_user TYPE xubname, lv_user TYPE xubname,
ls_item TYPE lif_defs=>ty_item. ls_item TYPE zif_abapgit_definitions=>ty_item.
ls_tadir = lcl_popups=>popup_object( ). ls_tadir = lcl_popups=>popup_object( ).
@ -179,21 +179,21 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
CREATE OBJECT lo_advsub. CREATE OBJECT lo_advsub.
CREATE OBJECT lo_helpsub. CREATE OBJECT lo_helpsub.
lo_advsub->add( iv_txt = 'Database util' iv_act = lif_defs=>gc_action-go_db ) ##NO_TEXT. lo_advsub->add( iv_txt = 'Database util' iv_act = zif_abapgit_definitions=>gc_action-go_db ) ##NO_TEXT.
lo_advsub->add( iv_txt = 'Package to zip' iv_act = lif_defs=>gc_action-zip_package ) ##NO_TEXT. lo_advsub->add( iv_txt = 'Package to zip' iv_act = zif_abapgit_definitions=>gc_action-zip_package ) ##NO_TEXT.
lo_advsub->add( iv_txt = 'Transport to zip' iv_act = lif_defs=>gc_action-zip_transport ) ##NO_TEXT. lo_advsub->add( iv_txt = 'Transport to zip' iv_act = zif_abapgit_definitions=>gc_action-zip_transport ) ##NO_TEXT.
lo_advsub->add( iv_txt = 'Object to files' iv_act = lif_defs=>gc_action-zip_object ) ##NO_TEXT. lo_advsub->add( iv_txt = 'Object to files' iv_act = zif_abapgit_definitions=>gc_action-zip_object ) ##NO_TEXT.
lo_advsub->add( iv_txt = 'Test changed by' iv_act = c_actions-changed_by ) ##NO_TEXT. lo_advsub->add( iv_txt = 'Test changed by' iv_act = c_actions-changed_by ) ##NO_TEXT.
lo_advsub->add( iv_txt = 'Page playground' iv_act = lif_defs=>gc_action-go_playground ) ##NO_TEXT. lo_advsub->add( iv_txt = 'Page playground' iv_act = zif_abapgit_definitions=>gc_action-go_playground ) ##NO_TEXT.
lo_advsub->add( iv_txt = 'Debug info' iv_act = lif_defs=>gc_action-go_debuginfo ) ##NO_TEXT. lo_advsub->add( iv_txt = 'Debug info' iv_act = zif_abapgit_definitions=>gc_action-go_debuginfo ) ##NO_TEXT.
lo_advsub->add( iv_txt = 'Settings' iv_act = lif_defs=>gc_action-go_settings ) ##NO_TEXT. lo_advsub->add( iv_txt = 'Settings' iv_act = zif_abapgit_definitions=>gc_action-go_settings ) ##NO_TEXT.
lo_helpsub->add( iv_txt = 'Tutorial' iv_act = lif_defs=>gc_action-go_tutorial ) ##NO_TEXT. lo_helpsub->add( iv_txt = 'Tutorial' iv_act = zif_abapgit_definitions=>gc_action-go_tutorial ) ##NO_TEXT.
lo_helpsub->add( iv_txt = 'abapGit wiki' iv_act = lif_defs=>gc_action-abapgit_wiki ) ##NO_TEXT. lo_helpsub->add( iv_txt = 'abapGit wiki' iv_act = zif_abapgit_definitions=>gc_action-abapgit_wiki ) ##NO_TEXT.
ro_menu->add( iv_txt = '+ Clone' iv_act = lif_defs=>gc_action-repo_clone ) ##NO_TEXT. ro_menu->add( iv_txt = '+ Clone' iv_act = zif_abapgit_definitions=>gc_action-repo_clone ) ##NO_TEXT.
ro_menu->add( iv_txt = '+ Offline' iv_act = lif_defs=>gc_action-repo_newoffline ) ##NO_TEXT. ro_menu->add( iv_txt = '+ Offline' iv_act = zif_abapgit_definitions=>gc_action-repo_newoffline ) ##NO_TEXT.
ro_menu->add( iv_txt = 'Explore' iv_act = lif_defs=>gc_action-go_explore ) ##NO_TEXT. ro_menu->add( iv_txt = 'Explore' iv_act = zif_abapgit_definitions=>gc_action-go_explore ) ##NO_TEXT.
ro_menu->add( iv_txt = 'Advanced' io_sub = lo_advsub ) ##NO_TEXT. ro_menu->add( iv_txt = 'Advanced' io_sub = lo_advsub ) ##NO_TEXT.
ro_menu->add( iv_txt = 'Help' io_sub = lo_helpsub ) ##NO_TEXT. ro_menu->add( iv_txt = 'Help' io_sub = lo_helpsub ) ##NO_TEXT.
@ -276,7 +276,7 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
ro_html->add( lo_favbar->render( iv_sort = abap_true ) ). ro_html->add( lo_favbar->render( iv_sort = abap_true ) ).
ELSE. ELSE.
ro_html->add( |<span class="grey">No favorites so far. For more info please check { ro_html->add( |<span class="grey">No favorites so far. For more info please check {
lcl_html=>a( iv_txt = 'tutorial' iv_act = lif_defs=>gc_action-go_tutorial ) lcl_html=>a( iv_txt = 'tutorial' iv_act = zif_abapgit_definitions=>gc_action-go_tutorial )
}</span>| ). }</span>| ).
ENDIF. ENDIF.
ro_html->add( '</td>' ). ro_html->add( '</td>' ).

18
src/zabapgit_page_merge.prog.abap
View File

@ -6,8 +6,8 @@ CLASS lcl_merge DEFINITION FINAL.
PUBLIC SECTION. PUBLIC SECTION.
TYPES: BEGIN OF ty_ancestor, TYPES: BEGIN OF ty_ancestor,
commit TYPE lif_defs=>ty_sha1, commit TYPE zif_abapgit_definitions=>ty_sha1,
tree TYPE lif_defs=>ty_sha1, tree TYPE zif_abapgit_definitions=>ty_sha1,
time TYPE string, time TYPE string,
body TYPE string, body TYPE string,
END OF ty_ancestor. END OF ty_ancestor.
@ -35,7 +35,7 @@ CLASS lcl_merge DEFINITION FINAL.
PRIVATE SECTION. PRIVATE SECTION.
CLASS-DATA: gs_merge TYPE ty_merge, CLASS-DATA: gs_merge TYPE ty_merge,
gt_objects TYPE lif_defs=>ty_objects_tt. gt_objects TYPE zif_abapgit_definitions=>ty_objects_tt.
TYPES: ty_ancestor_tt TYPE STANDARD TABLE OF ty_ancestor WITH DEFAULT KEY. TYPES: ty_ancestor_tt TYPE STANDARD TABLE OF ty_ancestor WITH DEFAULT KEY.
@ -45,7 +45,7 @@ CLASS lcl_merge DEFINITION FINAL.
calculate_result calculate_result
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
find_ancestors find_ancestors
IMPORTING iv_commit TYPE lif_defs=>ty_sha1 IMPORTING iv_commit TYPE zif_abapgit_definitions=>ty_sha1
RETURNING VALUE(rt_ancestors) TYPE ty_ancestor_tt RETURNING VALUE(rt_ancestors) TYPE ty_ancestor_tt
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
find_first_common find_first_common
@ -115,7 +115,7 @@ CLASS lcl_merge IMPLEMENTATION.
DEFINE _from_source. DEFINE _from_source.
READ TABLE gt_objects ASSIGNING <ls_object> READ TABLE gt_objects ASSIGNING <ls_object>
WITH KEY type = lif_defs=>gc_type-blob WITH KEY type = zif_abapgit_definitions=>gc_type-blob
sha1 = <ls_source>-sha1. sha1 = <ls_source>-sha1.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
@ -260,7 +260,7 @@ CLASS lcl_merge IMPLEMENTATION.
END-OF-DEFINITION. END-OF-DEFINITION.
DATA: ls_commit TYPE lcl_git_pack=>ty_commit, DATA: ls_commit TYPE lcl_git_pack=>ty_commit,
lt_visit TYPE STANDARD TABLE OF lif_defs=>ty_sha1, lt_visit TYPE STANDARD TABLE OF zif_abapgit_definitions=>ty_sha1,
lv_commit LIKE LINE OF lt_visit. lv_commit LIKE LINE OF lt_visit.
FIELD-SYMBOLS: <ls_ancestor> LIKE LINE OF rt_ancestors, FIELD-SYMBOLS: <ls_ancestor> LIKE LINE OF rt_ancestors,
@ -271,7 +271,7 @@ CLASS lcl_merge IMPLEMENTATION.
LOOP AT lt_visit INTO lv_commit. LOOP AT lt_visit INTO lv_commit.
READ TABLE gt_objects ASSIGNING <ls_object> READ TABLE gt_objects ASSIGNING <ls_object>
WITH KEY type = lif_defs=>gc_type-commit sha1 = lv_commit. WITH KEY type = zif_abapgit_definitions=>gc_type-commit sha1 = lv_commit.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
ls_commit = lcl_git_pack=>decode_commit( <ls_object>-data ). ls_commit = lcl_git_pack=>decode_commit( <ls_object>-data ).
@ -283,7 +283,7 @@ CLASS lcl_merge IMPLEMENTATION.
<ls_ancestor>-commit = lv_commit. <ls_ancestor>-commit = lv_commit.
<ls_ancestor>-tree = ls_commit-tree. <ls_ancestor>-tree = ls_commit-tree.
<ls_ancestor>-body = ls_commit-body. <ls_ancestor>-body = ls_commit-body.
FIND REGEX lif_defs=>gc_author_regex IN ls_commit-author FIND REGEX zif_abapgit_definitions=>gc_author_regex IN ls_commit-author
SUBMATCHES <ls_ancestor>-time ##NO_TEXT. SUBMATCHES <ls_ancestor>-time ##NO_TEXT.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
ENDLOOP. ENDLOOP.
@ -372,7 +372,7 @@ CLASS lcl_gui_page_merge IMPLEMENTATION.
EXPORTING EXPORTING
io_repo = mo_repo io_repo = mo_repo
io_stage = ms_merge-stage. io_stage = ms_merge-stage.
ev_state = lif_defs=>gc_event_state-new_page. ev_state = zif_abapgit_definitions=>gc_event_state-new_page.
ENDCASE. ENDCASE.
ENDMETHOD. ENDMETHOD.

2
src/zabapgit_page_repo_settings.prog.abap
View File

@ -92,7 +92,7 @@ CLASS lcl_gui_page_repo_sett IMPLEMENTATION.
mo_repo->set_dot_abapgit( lo_dot ). mo_repo->set_dot_abapgit( lo_dot ).
mo_repo->refresh( ). mo_repo->refresh( ).
ev_state = lif_defs=>gc_event_state-go_back. ev_state = zif_abapgit_definitions=>gc_event_state-go_back.
ENDCASE. ENDCASE.
ENDMETHOD. ENDMETHOD.

2
src/zabapgit_page_settings.prog.abap
View File

@ -125,7 +125,7 @@ CLASS lcl_gui_page_settings IMPLEMENTATION.
persist_settings( ). persist_settings( ).
ENDIF. ENDIF.
ev_state = lif_defs=>gc_event_state-go_back. ev_state = zif_abapgit_definitions=>gc_event_state-go_back.
ENDCASE. ENDCASE.
ENDMETHOD. ENDMETHOD.

24
src/zabapgit_page_stage.prog.abap
View File

@ -25,7 +25,7 @@ CLASS lcl_gui_page_stage DEFINITION FINAL INHERITING FROM lcl_gui_page.
PRIVATE SECTION. PRIVATE SECTION.
DATA: mo_repo TYPE REF TO lcl_repo_online, DATA: mo_repo TYPE REF TO lcl_repo_online,
ms_files TYPE lif_defs=>ty_stage_files, ms_files TYPE zif_abapgit_definitions=>ty_stage_files,
mv_seed TYPE string. " Unique page id to bind JS sessionStorage mv_seed TYPE string. " Unique page id to bind JS sessionStorage
METHODS: METHODS:
@ -34,15 +34,15 @@ CLASS lcl_gui_page_stage DEFINITION FINAL INHERITING FROM lcl_gui_page.
render_file render_file
IMPORTING iv_context TYPE string IMPORTING iv_context TYPE string
is_file TYPE lif_defs=>ty_file is_file TYPE zif_abapgit_definitions=>ty_file
is_item TYPE lif_defs=>ty_item OPTIONAL is_item TYPE zif_abapgit_definitions=>ty_item OPTIONAL
RETURNING VALUE(ro_html) TYPE REF TO lcl_html, RETURNING VALUE(ro_html) TYPE REF TO lcl_html,
render_actions render_actions
RETURNING VALUE(ro_html) TYPE REF TO lcl_html, RETURNING VALUE(ro_html) TYPE REF TO lcl_html,
read_last_changed_by read_last_changed_by
IMPORTING is_file TYPE lif_defs=>ty_file IMPORTING is_file TYPE zif_abapgit_definitions=>ty_file
RETURNING VALUE(rv_user) TYPE xubname, RETURNING VALUE(rv_user) TYPE xubname,
process_stage_list process_stage_list
@ -83,7 +83,7 @@ CLASS lcl_gui_page_stage IMPLEMENTATION.
IF lines( ms_files-local ) > 0. IF lines( ms_files-local ) > 0.
ro_menu->add( iv_txt = |All diffs| ro_menu->add( iv_txt = |All diffs|
iv_act = |{ lif_defs=>gc_action-go_diff }?key={ mo_repo->get_key( ) }| ). iv_act = |{ zif_abapgit_definitions=>gc_action-go_diff }?key={ mo_repo->get_key( ) }| ).
ENDIF. ENDIF.
ENDMETHOD. "build_menu ENDMETHOD. "build_menu
@ -117,7 +117,7 @@ CLASS lcl_gui_page_stage IMPLEMENTATION.
io_repo = mo_repo io_repo = mo_repo
io_stage = lo_stage. io_stage = lo_stage.
ev_state = lif_defs=>gc_event_state-new_page. ev_state = zif_abapgit_definitions=>gc_event_state-new_page.
ENDMETHOD. ENDMETHOD.
@ -125,7 +125,7 @@ CLASS lcl_gui_page_stage IMPLEMENTATION.
DATA: lv_string TYPE string, DATA: lv_string TYPE string,
lt_fields TYPE tihttpnvp, lt_fields TYPE tihttpnvp,
ls_file TYPE lif_defs=>ty_file. ls_file TYPE zif_abapgit_definitions=>ty_file.
FIELD-SYMBOLS: <ls_file> LIKE LINE OF ms_files-local, FIELD-SYMBOLS: <ls_file> LIKE LINE OF ms_files-local,
<ls_item> LIKE LINE OF lt_fields. <ls_item> LIKE LINE OF lt_fields.
@ -245,7 +245,7 @@ CLASS lcl_gui_page_stage IMPLEMENTATION.
lv_param = lcl_html_action_utils=>file_encode( iv_key = mo_repo->get_key( ) lv_param = lcl_html_action_utils=>file_encode( iv_key = mo_repo->get_key( )
ig_file = is_file ). ig_file = is_file ).
lv_filename = lcl_html=>a( iv_txt = lv_filename lv_filename = lcl_html=>a( iv_txt = lv_filename
iv_act = |{ lif_defs=>gc_action-go_diff }?{ lv_param }| ). iv_act = |{ zif_abapgit_definitions=>gc_action-go_diff }?{ lv_param }| ).
ro_html->add( |<td class="type">{ is_item-obj_type }</td>| ). ro_html->add( |<td class="type">{ is_item-obj_type }</td>| ).
ro_html->add( |<td class="name">{ lv_filename }</td>| ). ro_html->add( |<td class="name">{ lv_filename }</td>| ).
ro_html->add( |<td class="user">{ read_last_changed_by( is_file ) }</td>| ). ro_html->add( |<td class="user">{ read_last_changed_by( is_file ) }</td>| ).
@ -295,11 +295,11 @@ CLASS lcl_gui_page_stage IMPLEMENTATION.
" Action buttons " Action buttons
ro_html->add( '<td class="indent5em">' ). ro_html->add( '<td class="indent5em">' ).
ro_html->add_a( iv_act = 'errorStub(event)' " Will be reinit by JS ro_html->add_a( iv_act = 'errorStub(event)' " Will be reinit by JS
iv_typ = lif_defs=>gc_action_type-onclick iv_typ = zif_abapgit_definitions=>gc_action_type-onclick
iv_id = 'commitButton' iv_id = 'commitButton'
iv_style = 'display: none' iv_style = 'display: none'
iv_txt = 'Commit (<span id="fileCounter"></span>)' iv_txt = 'Commit (<span id="fileCounter"></span>)'
iv_opt = lif_defs=>gc_html_opt-strong ) ##NO_TEXT. iv_opt = zif_abapgit_definitions=>gc_html_opt-strong ) ##NO_TEXT.
ro_html->add_a( iv_act = |{ c_action-stage_all }| ro_html->add_a( iv_act = |{ c_action-stage_all }|
iv_id = 'commitAllButton' iv_id = 'commitAllButton'
iv_txt = lv_add_all_txt ) ##NO_TEXT. iv_txt = lv_add_all_txt ) ##NO_TEXT.
@ -337,8 +337,8 @@ CLASS lcl_gui_page_stage IMPLEMENTATION.
ENDMETHOD. "scripts ENDMETHOD. "scripts
METHOD read_last_changed_by. METHOD read_last_changed_by.
DATA: ls_local_file TYPE lif_defs=>ty_file_item, DATA: ls_local_file TYPE zif_abapgit_definitions=>ty_file_item,
lt_files_local TYPE lif_defs=>ty_files_item_tt. lt_files_local TYPE zif_abapgit_definitions=>ty_files_item_tt.
TRY. TRY.
lt_files_local = mo_repo->get_files_local( ). lt_files_local = mo_repo->get_files_local( ).
READ TABLE lt_files_local INTO ls_local_file WITH KEY file = is_file. READ TABLE lt_files_local INTO ls_local_file WITH KEY file = is_file.

16
src/zabapgit_persistence.prog.abap
View File

@ -94,8 +94,8 @@ CLASS lcl_persistence_repo DEFINITION FINAL.
PUBLIC SECTION. PUBLIC SECTION.
TYPES: BEGIN OF ty_local_checksum, TYPES: BEGIN OF ty_local_checksum,
item TYPE lif_defs=>ty_item, item TYPE zif_abapgit_definitions=>ty_item,
files TYPE lif_defs=>ty_file_signatures_tt, files TYPE zif_abapgit_definitions=>ty_file_signatures_tt,
END OF ty_local_checksum. END OF ty_local_checksum.
TYPES: ty_local_checksum_tt TYPE STANDARD TABLE OF ty_local_checksum WITH DEFAULT KEY. TYPES: ty_local_checksum_tt TYPE STANDARD TABLE OF ty_local_checksum WITH DEFAULT KEY.
@ -103,7 +103,7 @@ CLASS lcl_persistence_repo DEFINITION FINAL.
TYPES: BEGIN OF ty_repo_xml, TYPES: BEGIN OF ty_repo_xml,
url TYPE string, url TYPE string,
branch_name TYPE string, branch_name TYPE string,
sha1 TYPE lif_defs=>ty_sha1, sha1 TYPE zif_abapgit_definitions=>ty_sha1,
package TYPE devclass, package TYPE devclass,
offline TYPE sap_bool, offline TYPE sap_bool,
local_checksums TYPE ty_local_checksum_tt, local_checksums TYPE ty_local_checksum_tt,
@ -164,7 +164,7 @@ CLASS lcl_persistence_repo DEFINITION FINAL.
METHODS add METHODS add
IMPORTING iv_url TYPE string IMPORTING iv_url TYPE string
iv_branch_name TYPE string iv_branch_name TYPE string
iv_branch TYPE lif_defs=>ty_sha1 OPTIONAL iv_branch TYPE zif_abapgit_definitions=>ty_sha1 OPTIONAL
iv_package TYPE devclass iv_package TYPE devclass
iv_offline TYPE sap_bool DEFAULT abap_false iv_offline TYPE sap_bool DEFAULT abap_false
is_dot_abapgit TYPE lcl_dot_abapgit=>ty_dot_abapgit is_dot_abapgit TYPE lcl_dot_abapgit=>ty_dot_abapgit
@ -587,7 +587,7 @@ CLASS lcl_persistence_user DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app.
BEGIN OF ty_repo_config, BEGIN OF ty_repo_config,
url TYPE lcl_persistence_repo=>ty_repo-url, url TYPE lcl_persistence_repo=>ty_repo-url,
login TYPE string, login TYPE string,
git_user TYPE lif_defs=>ty_git_user, git_user TYPE zif_abapgit_definitions=>ty_git_user,
last_change_seen TYPE string, last_change_seen TYPE string,
END OF ty_repo_config. END OF ty_repo_config.
@ -595,7 +595,7 @@ CLASS lcl_persistence_user DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app.
TYPES: TYPES:
BEGIN OF ty_user, BEGIN OF ty_user,
default_git_user TYPE lif_defs=>ty_git_user, default_git_user TYPE zif_abapgit_definitions=>ty_git_user,
repo_show TYPE lcl_persistence_repo=>ty_repo-key, repo_show TYPE lcl_persistence_repo=>ty_repo-key,
hide_files TYPE abap_bool, hide_files TYPE abap_bool,
changes_only TYPE abap_bool, changes_only TYPE abap_bool,
@ -1581,7 +1581,7 @@ CLASS lcl_persist_migrate IMPLEMENTATION.
ls_dd25v-viewname = lcl_persistence_db=>c_lock. ls_dd25v-viewname = lcl_persistence_db=>c_lock.
ls_dd25v-aggtype = 'E'. ls_dd25v-aggtype = 'E'.
ls_dd25v-roottab = lcl_persistence_db=>c_tabname. ls_dd25v-roottab = lcl_persistence_db=>c_tabname.
ls_dd25v-ddlanguage = lif_defs=>gc_english. ls_dd25v-ddlanguage = zif_abapgit_definitions=>gc_english.
ls_dd25v-ddtext = c_text. ls_dd25v-ddtext = c_text.
APPEND INITIAL LINE TO lt_dd26e ASSIGNING <ls_dd26e>. APPEND INITIAL LINE TO lt_dd26e ASSIGNING <ls_dd26e>.
@ -1674,7 +1674,7 @@ CLASS lcl_persist_migrate IMPLEMENTATION.
FIELD-SYMBOLS: <ls_dd03p> LIKE LINE OF lt_dd03p. FIELD-SYMBOLS: <ls_dd03p> LIKE LINE OF lt_dd03p.
ls_dd02v-tabname = lcl_persistence_db=>c_tabname. ls_dd02v-tabname = lcl_persistence_db=>c_tabname.
ls_dd02v-ddlanguage = lif_defs=>gc_english. ls_dd02v-ddlanguage = zif_abapgit_definitions=>gc_english.
ls_dd02v-tabclass = 'TRANSP'. ls_dd02v-tabclass = 'TRANSP'.
ls_dd02v-ddtext = c_text. ls_dd02v-ddtext = c_text.
ls_dd02v-contflag = 'A'. ls_dd02v-contflag = 'A'.

8
src/zabapgit_popups.prog.abap
View File

@ -72,14 +72,14 @@ CLASS lcl_popups DEFINITION FINAL.
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
popup_to_create_transp_branch popup_to_create_transp_branch
IMPORTING it_transport_headers TYPE trwbo_request_headers IMPORTING it_transport_headers TYPE trwbo_request_headers
RETURNING VALUE(rs_transport_branch) TYPE lif_defs=>ty_transport_to_branch RETURNING VALUE(rs_transport_branch) TYPE zif_abapgit_definitions=>ty_transport_to_branch
RAISING zcx_abapgit_exception RAISING zcx_abapgit_exception
lcx_cancel, lcx_cancel,
popup_to_select_transports popup_to_select_transports
RETURNING VALUE(rt_trkorr) TYPE trwbo_request_headers, RETURNING VALUE(rt_trkorr) TYPE trwbo_request_headers,
popup_select_obj_overwrite popup_select_obj_overwrite
IMPORTING it_list TYPE lif_defs=>ty_results_tt IMPORTING it_list TYPE zif_abapgit_definitions=>ty_results_tt
RETURNING VALUE(rt_list) TYPE lif_defs=>ty_results_tt RETURNING VALUE(rt_list) TYPE zif_abapgit_definitions=>ty_results_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
PRIVATE SECTION. PRIVATE SECTION.
@ -87,7 +87,7 @@ CLASS lcl_popups DEFINITION FINAL.
TYPES: BEGIN OF t_popup_select_list, TYPES: BEGIN OF t_popup_select_list,
selected TYPE flag. selected TYPE flag.
INCLUDE TYPE lif_defs=>ty_result. INCLUDE TYPE zif_abapgit_definitions=>ty_result.
TYPES END OF t_popup_select_list. TYPES END OF t_popup_select_list.
TYPES: t_popup_select_list_tt TYPE STANDARD TABLE OF t_popup_select_list WITH DEFAULT KEY. TYPES: t_popup_select_list_tt TYPE STANDARD TABLE OF t_popup_select_list WITH DEFAULT KEY.

30
src/zabapgit_repo.prog.abap
View File

@ -19,14 +19,14 @@ CLASS lcl_repo DEFINITION ABSTRACT FRIENDS lcl_repo_srv.
get_files_local get_files_local
IMPORTING io_log TYPE REF TO lcl_log OPTIONAL IMPORTING io_log TYPE REF TO lcl_log OPTIONAL
it_filter TYPE scts_tadir OPTIONAL it_filter TYPE scts_tadir OPTIONAL
RETURNING VALUE(rt_files) TYPE lif_defs=>ty_files_item_tt RETURNING VALUE(rt_files) TYPE zif_abapgit_definitions=>ty_files_item_tt
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
get_local_checksums get_local_checksums
RETURNING VALUE(rt_checksums) TYPE lcl_persistence_repo=>ty_local_checksum_tt, RETURNING VALUE(rt_checksums) TYPE lcl_persistence_repo=>ty_local_checksum_tt,
get_local_checksums_per_file get_local_checksums_per_file
RETURNING VALUE(rt_checksums) TYPE lif_defs=>ty_file_signatures_tt, RETURNING VALUE(rt_checksums) TYPE zif_abapgit_definitions=>ty_file_signatures_tt,
get_files_remote get_files_remote
RETURNING VALUE(rt_files) TYPE lif_defs=>ty_files_tt RETURNING VALUE(rt_files) TYPE zif_abapgit_definitions=>ty_files_tt
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
get_package get_package
RETURNING VALUE(rv_package) TYPE lcl_persistence_repo=>ty_repo-package, RETURNING VALUE(rv_package) TYPE lcl_persistence_repo=>ty_repo-package,
@ -50,7 +50,7 @@ CLASS lcl_repo DEFINITION ABSTRACT FRIENDS lcl_repo_srv.
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
refresh_local, " For testing purposes, maybe removed later refresh_local, " For testing purposes, maybe removed later
update_local_checksums update_local_checksums
IMPORTING it_files TYPE lif_defs=>ty_file_signatures_tt IMPORTING it_files TYPE zif_abapgit_definitions=>ty_file_signatures_tt
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
rebuild_local_checksums rebuild_local_checksums
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
@ -62,15 +62,15 @@ CLASS lcl_repo DEFINITION ABSTRACT FRIENDS lcl_repo_srv.
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
PROTECTED SECTION. PROTECTED SECTION.
DATA: mt_local TYPE lif_defs=>ty_files_item_tt, DATA: mt_local TYPE zif_abapgit_definitions=>ty_files_item_tt,
mt_remote TYPE lif_defs=>ty_files_tt, mt_remote TYPE zif_abapgit_definitions=>ty_files_tt,
mv_do_local_refresh TYPE abap_bool, mv_do_local_refresh TYPE abap_bool,
mv_last_serialization TYPE timestamp, mv_last_serialization TYPE timestamp,
ms_data TYPE lcl_persistence_repo=>ty_repo. ms_data TYPE lcl_persistence_repo=>ty_repo.
METHODS: METHODS:
set set
IMPORTING iv_sha1 TYPE lif_defs=>ty_sha1 OPTIONAL IMPORTING iv_sha1 TYPE zif_abapgit_definitions=>ty_sha1 OPTIONAL
it_checksums TYPE lcl_persistence_repo=>ty_local_checksum_tt OPTIONAL it_checksums TYPE lcl_persistence_repo=>ty_local_checksum_tt OPTIONAL
iv_url TYPE lcl_persistence_repo=>ty_repo-url OPTIONAL iv_url TYPE lcl_persistence_repo=>ty_repo-url OPTIONAL
iv_branch_name TYPE lcl_persistence_repo=>ty_repo-branch_name OPTIONAL iv_branch_name TYPE lcl_persistence_repo=>ty_repo-branch_name OPTIONAL
@ -118,32 +118,32 @@ CLASS lcl_repo_online DEFINITION INHERITING FROM lcl_repo FINAL.
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
get_files_remote REDEFINITION, get_files_remote REDEFINITION,
get_objects get_objects
RETURNING VALUE(rt_objects) TYPE lif_defs=>ty_objects_tt RETURNING VALUE(rt_objects) TYPE zif_abapgit_definitions=>ty_objects_tt
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
deserialize REDEFINITION, deserialize REDEFINITION,
status status
IMPORTING io_log TYPE REF TO lcl_log OPTIONAL IMPORTING io_log TYPE REF TO lcl_log OPTIONAL
RETURNING VALUE(rt_results) TYPE lif_defs=>ty_results_tt RETURNING VALUE(rt_results) TYPE zif_abapgit_definitions=>ty_results_tt
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
reset_status, reset_status,
rebuild_local_checksums REDEFINITION, rebuild_local_checksums REDEFINITION,
push push
IMPORTING is_comment TYPE lif_defs=>ty_comment IMPORTING is_comment TYPE zif_abapgit_definitions=>ty_comment
io_stage TYPE REF TO lcl_stage io_stage TYPE REF TO lcl_stage
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
get_unnecessary_local_objs get_unnecessary_local_objs
RETURNING VALUE(rt_unnecessary_local_objects) TYPE LIF_DEFS=>TY_TADIR_TT RETURNING VALUE(rt_unnecessary_local_objects) TYPE zif_abapgit_definitions=>TY_TADIR_TT
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
delete_unnecessary_local_objs delete_unnecessary_local_objs
RAISING zcx_abapgit_exception lcx_cancel. RAISING zcx_abapgit_exception lcx_cancel.
PRIVATE SECTION. PRIVATE SECTION.
DATA: DATA:
mt_objects TYPE lif_defs=>ty_objects_tt, mt_objects TYPE zif_abapgit_definitions=>ty_objects_tt,
mv_branch TYPE lif_defs=>ty_sha1, mv_branch TYPE zif_abapgit_definitions=>ty_sha1,
mv_initialized TYPE abap_bool, mv_initialized TYPE abap_bool,
mo_branches TYPE REF TO lcl_git_branch_list, mo_branches TYPE REF TO lcl_git_branch_list,
mt_status TYPE lif_defs=>ty_results_tt. mt_status TYPE zif_abapgit_definitions=>ty_results_tt.
METHODS: METHODS:
handle_stage_ignore handle_stage_ignore
@ -167,7 +167,7 @@ CLASS lcl_repo_offline DEFINITION INHERITING FROM lcl_repo FINAL.
PUBLIC SECTION. PUBLIC SECTION.
METHODS: METHODS:
set_files_remote set_files_remote
IMPORTING it_files TYPE lif_defs=>ty_files_tt IMPORTING it_files TYPE zif_abapgit_definitions=>ty_files_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_repo_offline DEFINITION ENDCLASS. "lcl_repo_offline DEFINITION

8
src/zabapgit_repo_browser_util.prog.abap
View File

@ -23,7 +23,7 @@ CLASS lcl_repo_content_list DEFINITION FINAL.
changes TYPE i, changes TYPE i,
lstate TYPE char1, lstate TYPE char1,
rstate TYPE char1, rstate TYPE char1,
files TYPE lif_defs=>tt_repo_files, files TYPE zif_abapgit_definitions=>tt_repo_files,
END OF ty_repo_item. END OF ty_repo_item.
TYPES tt_repo_items TYPE STANDARD TABLE OF ty_repo_item WITH DEFAULT KEY. TYPES tt_repo_items TYPE STANDARD TABLE OF ty_repo_item WITH DEFAULT KEY.
@ -167,7 +167,7 @@ CLASS lcl_repo_content_list IMPLEMENTATION.
METHOD build_repo_items_offline. METHOD build_repo_items_offline.
DATA: lt_tadir TYPE lif_defs=>ty_tadir_tt. DATA: lt_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt.
FIELD-SYMBOLS: <ls_repo_item> LIKE LINE OF rt_repo_items, FIELD-SYMBOLS: <ls_repo_item> LIKE LINE OF rt_repo_items,
<ls_tadir> LIKE LINE OF lt_tadir. <ls_tadir> LIKE LINE OF lt_tadir.
@ -190,8 +190,8 @@ CLASS lcl_repo_content_list IMPLEMENTATION.
METHOD build_repo_items_online. METHOD build_repo_items_online.
DATA: lo_repo_online TYPE REF TO lcl_repo_online, DATA: lo_repo_online TYPE REF TO lcl_repo_online,
ls_file TYPE lif_defs=>ty_repo_file, ls_file TYPE zif_abapgit_definitions=>ty_repo_file,
lt_status TYPE lif_defs=>ty_results_tt. lt_status TYPE zif_abapgit_definitions=>ty_results_tt.
FIELD-SYMBOLS: <status> LIKE LINE OF lt_status, FIELD-SYMBOLS: <status> LIKE LINE OF lt_status,
<ls_repo_item> LIKE LINE OF rt_repo_items. <ls_repo_item> LIKE LINE OF rt_repo_items.

68
src/zabapgit_repo_impl.prog.abap
View File

@ -193,8 +193,8 @@ CLASS lcl_repo_online IMPLEMENTATION.
METHOD push. METHOD push.
DATA: lv_branch TYPE lif_defs=>ty_sha1, DATA: lv_branch TYPE zif_abapgit_definitions=>ty_sha1,
lt_updated_files TYPE lif_defs=>ty_file_signatures_tt. lt_updated_files TYPE zif_abapgit_definitions=>ty_file_signatures_tt.
handle_stage_ignore( io_stage ). handle_stage_ignore( io_stage ).
@ -246,8 +246,8 @@ CLASS lcl_repo_online IMPLEMENTATION.
IF lv_add = abap_true. IF lv_add = abap_true.
io_stage->add( io_stage->add(
iv_path = lif_defs=>gc_root_dir iv_path = zif_abapgit_definitions=>gc_root_dir
iv_filename = lif_defs=>gc_dot_abapgit iv_filename = zif_abapgit_definitions=>gc_dot_abapgit
iv_data = lo_dot_abapgit->serialize( ) ). iv_data = lo_dot_abapgit->serialize( ) ).
set_dot_abapgit( lo_dot_abapgit ). set_dot_abapgit( lo_dot_abapgit ).
@ -257,9 +257,9 @@ CLASS lcl_repo_online IMPLEMENTATION.
METHOD rebuild_local_checksums. "REMOTE METHOD rebuild_local_checksums. "REMOTE
DATA: lt_remote TYPE lif_defs=>ty_files_tt, DATA: lt_remote TYPE zif_abapgit_definitions=>ty_files_tt,
lt_local TYPE lif_defs=>ty_files_item_tt, lt_local TYPE zif_abapgit_definitions=>ty_files_item_tt,
ls_last_item TYPE lif_defs=>ty_item, ls_last_item TYPE zif_abapgit_definitions=>ty_item,
lv_branch_equal TYPE abap_bool, lv_branch_equal TYPE abap_bool,
lt_checksums TYPE lcl_persistence_repo=>ty_local_checksum_tt. lt_checksums TYPE lcl_persistence_repo=>ty_local_checksum_tt.
@ -274,7 +274,8 @@ CLASS lcl_repo_online IMPLEMENTATION.
DELETE lt_local " Remove non-code related files except .abapgit DELETE lt_local " Remove non-code related files except .abapgit
WHERE item IS INITIAL WHERE item IS INITIAL
AND NOT ( file-path = lif_defs=>gc_root_dir AND file-filename = lif_defs=>gc_dot_abapgit ). AND NOT ( file-path = zif_abapgit_definitions=>gc_root_dir
AND file-filename = zif_abapgit_definitions=>gc_dot_abapgit ).
SORT lt_local BY item. SORT lt_local BY item.
SORT lt_remote BY path filename. SORT lt_remote BY path filename.
@ -323,7 +324,7 @@ CLASS lcl_repo_online IMPLEMENTATION.
METHOD delete_unnecessary_local_objs. METHOD delete_unnecessary_local_objs.
DATA: lt_tadir TYPE lif_defs=>ty_tadir_tt. DATA: lt_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt.
lt_tadir = get_unnecessary_local_objs( ). lt_tadir = get_unnecessary_local_objs( ).
@ -338,16 +339,16 @@ CLASS lcl_repo_online IMPLEMENTATION.
METHOD get_unnecessary_local_objs. METHOD get_unnecessary_local_objs.
DATA: lt_tadir TYPE lif_defs=>ty_tadir_tt, DATA: lt_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt,
lt_tadir_unique TYPE HASHED TABLE OF lif_defs=>ty_tadir lt_tadir_unique TYPE HASHED TABLE OF zif_abapgit_definitions=>ty_tadir
WITH UNIQUE KEY pgmid object obj_name, WITH UNIQUE KEY pgmid object obj_name,
lt_local TYPE lif_defs=>ty_files_item_tt, lt_local TYPE zif_abapgit_definitions=>ty_files_item_tt,
lt_remote TYPE lif_defs=>ty_files_tt, lt_remote TYPE zif_abapgit_definitions=>ty_files_tt,
lt_status TYPE lif_defs=>ty_results_tt, lt_status TYPE zif_abapgit_definitions=>ty_results_tt,
lv_package TYPE lcl_persistence_repo=>ty_repo-package. lv_package TYPE lcl_persistence_repo=>ty_repo-package.
FIELD-SYMBOLS: <status> TYPE lif_defs=>ty_result, FIELD-SYMBOLS: <status> TYPE zif_abapgit_definitions=>ty_result,
<tadir> TYPE lif_defs=>ty_tadir. <tadir> TYPE zif_abapgit_definitions=>ty_tadir.
" delete objects which are added locally but are not in remote repo " delete objects which are added locally but are not in remote repo
lt_local = me->get_files_local( ). lt_local = me->get_files_local( ).
@ -359,7 +360,7 @@ CLASS lcl_repo_online IMPLEMENTATION.
SORT lt_tadir BY pgmid ASCENDING object ASCENDING obj_name ASCENDING devclass ASCENDING. SORT lt_tadir BY pgmid ASCENDING object ASCENDING obj_name ASCENDING devclass ASCENDING.
LOOP AT lt_status ASSIGNING <status> LOOP AT lt_status ASSIGNING <status>
WHERE lstate = lif_defs=>gc_state-added. WHERE lstate = zif_abapgit_definitions=>gc_state-added.
READ TABLE lt_tadir ASSIGNING <tadir> READ TABLE lt_tadir ASSIGNING <tadir>
WITH KEY pgmid = 'R3TR' WITH KEY pgmid = 'R3TR'
@ -403,8 +404,8 @@ CLASS lcl_repo IMPLEMENTATION.
READ TABLE mt_remote ASSIGNING <ls_remote> READ TABLE mt_remote ASSIGNING <ls_remote>
WITH KEY path = lif_defs=>gc_root_dir WITH KEY path = zif_abapgit_definitions=>gc_root_dir
filename = lif_defs=>gc_dot_abapgit. filename = zif_abapgit_definitions=>gc_dot_abapgit.
IF sy-subrc = 0. IF sy-subrc = 0.
ro_dot = lcl_dot_abapgit=>deserialize( <ls_remote>-data ). ro_dot = lcl_dot_abapgit=>deserialize( <ls_remote>-data ).
ENDIF. ENDIF.
@ -488,8 +489,8 @@ CLASS lcl_repo IMPLEMENTATION.
" If this is not true that there is an error somewhere but not here " If this is not true that there is an error somewhere but not here
DATA: lt_checksums TYPE lcl_persistence_repo=>ty_local_checksum_tt, DATA: lt_checksums TYPE lcl_persistence_repo=>ty_local_checksum_tt,
lt_files_idx TYPE lif_defs=>ty_file_signatures_tt, lt_files_idx TYPE zif_abapgit_definitions=>ty_file_signatures_tt,
lt_local TYPE lif_defs=>ty_files_item_tt, lt_local TYPE zif_abapgit_definitions=>ty_files_item_tt,
lv_chks_row TYPE i, lv_chks_row TYPE i,
lv_file_row TYPE i. lv_file_row TYPE i.
@ -561,7 +562,7 @@ CLASS lcl_repo IMPLEMENTATION.
METHOD deserialize. METHOD deserialize.
DATA: lt_updated_files TYPE lif_defs=>ty_file_signatures_tt, DATA: lt_updated_files TYPE zif_abapgit_definitions=>ty_file_signatures_tt,
lo_dot_abapgit TYPE REF TO lcl_dot_abapgit, lo_dot_abapgit TYPE REF TO lcl_dot_abapgit,
lt_requirements TYPE STANDARD TABLE OF lcl_dot_abapgit=>ty_requirement. lt_requirements TYPE STANDARD TABLE OF lcl_dot_abapgit=>ty_requirement.
@ -607,10 +608,10 @@ CLASS lcl_repo IMPLEMENTATION.
METHOD get_files_local. METHOD get_files_local.
DATA: lt_tadir TYPE lif_defs=>ty_tadir_tt, DATA: lt_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt,
ls_item TYPE lif_defs=>ty_item, ls_item TYPE zif_abapgit_definitions=>ty_item,
lt_files TYPE lif_defs=>ty_files_tt, lt_files TYPE zif_abapgit_definitions=>ty_files_tt,
lt_cache TYPE SORTED TABLE OF lif_defs=>ty_file_item lt_cache TYPE SORTED TABLE OF zif_abapgit_definitions=>ty_file_item
WITH NON-UNIQUE KEY item. WITH NON-UNIQUE KEY item.
DATA: lt_filter TYPE SORTED TABLE OF tadir DATA: lt_filter TYPE SORTED TABLE OF tadir
@ -630,10 +631,10 @@ CLASS lcl_repo IMPLEMENTATION.
ENDIF. ENDIF.
APPEND INITIAL LINE TO rt_files ASSIGNING <ls_return>. APPEND INITIAL LINE TO rt_files ASSIGNING <ls_return>.
<ls_return>-file-path = lif_defs=>gc_root_dir. <ls_return>-file-path = zif_abapgit_definitions=>gc_root_dir.
<ls_return>-file-filename = lif_defs=>gc_dot_abapgit. <ls_return>-file-filename = zif_abapgit_definitions=>gc_dot_abapgit.
<ls_return>-file-data = get_dot_abapgit( )->serialize( ). <ls_return>-file-data = get_dot_abapgit( )->serialize( ).
<ls_return>-file-sha1 = lcl_hash=>sha1( iv_type = lif_defs=>gc_type-blob <ls_return>-file-sha1 = lcl_hash=>sha1( iv_type = zif_abapgit_definitions=>gc_type-blob
iv_data = <ls_return>-file-data ). iv_data = <ls_return>-file-data ).
lt_cache = mt_local. lt_cache = mt_local.
@ -687,7 +688,7 @@ CLASS lcl_repo IMPLEMENTATION.
io_log = io_log ). io_log = io_log ).
LOOP AT lt_files ASSIGNING <ls_file>. LOOP AT lt_files ASSIGNING <ls_file>.
<ls_file>-path = <ls_tadir>-path. <ls_file>-path = <ls_tadir>-path.
<ls_file>-sha1 = lcl_hash=>sha1( iv_type = lif_defs=>gc_type-blob iv_data = <ls_file>-data ). <ls_file>-sha1 = lcl_hash=>sha1( iv_type = zif_abapgit_definitions=>gc_type-blob iv_data = <ls_file>-data ).
APPEND INITIAL LINE TO rt_files ASSIGNING <ls_return>. APPEND INITIAL LINE TO rt_files ASSIGNING <ls_return>.
<ls_return>-file = <ls_file>. <ls_return>-file = <ls_file>.
@ -773,8 +774,8 @@ CLASS lcl_repo IMPLEMENTATION.
METHOD rebuild_local_checksums. "LOCAL (BASE) METHOD rebuild_local_checksums. "LOCAL (BASE)
DATA: lt_local TYPE lif_defs=>ty_files_item_tt, DATA: lt_local TYPE zif_abapgit_definitions=>ty_files_item_tt,
ls_last_item TYPE lif_defs=>ty_item, ls_last_item TYPE zif_abapgit_definitions=>ty_item,
lt_checksums TYPE lcl_persistence_repo=>ty_local_checksum_tt. lt_checksums TYPE lcl_persistence_repo=>ty_local_checksum_tt.
FIELD-SYMBOLS: <ls_checksum> LIKE LINE OF lt_checksums, FIELD-SYMBOLS: <ls_checksum> LIKE LINE OF lt_checksums,
@ -786,7 +787,8 @@ CLASS lcl_repo IMPLEMENTATION.
DELETE lt_local " Remove non-code related files except .abapgit DELETE lt_local " Remove non-code related files except .abapgit
WHERE item IS INITIAL WHERE item IS INITIAL
AND NOT ( file-path = lif_defs=>gc_root_dir AND file-filename = lif_defs=>gc_dot_abapgit ). AND NOT ( file-path = zif_abapgit_definitions=>gc_root_dir
AND file-filename = zif_abapgit_definitions=>gc_dot_abapgit ).
SORT lt_local BY item. SORT lt_local BY item.

6
src/zabapgit_services_git.prog.abap
View File

@ -49,7 +49,7 @@ CLASS lcl_services_git IMPLEMENTATION.
DATA: lo_repo TYPE REF TO lcl_repo_online, DATA: lo_repo TYPE REF TO lcl_repo_online,
lv_answer TYPE c LENGTH 1, lv_answer TYPE c LENGTH 1,
lt_unnecessary_local_objs TYPE lif_defs=>ty_tadir_tt. lt_unnecessary_local_objs TYPE zif_abapgit_definitions=>ty_tadir_tt.
lo_repo ?= lcl_app=>repo_srv( )->get( iv_key ). lo_repo ?= lcl_app=>repo_srv( )->get( iv_key ).
@ -201,7 +201,7 @@ CLASS lcl_services_git IMPLEMENTATION.
METHOD commit. METHOD commit.
DATA: ls_comment TYPE lif_defs=>ty_comment, DATA: ls_comment TYPE zif_abapgit_definitions=>ty_comment,
lo_user TYPE REF TO lcl_persistence_user. lo_user TYPE REF TO lcl_persistence_user.
lo_user = lcl_app=>user( ). lo_user = lcl_app=>user( ).
@ -228,7 +228,7 @@ CLASS lcl_services_git IMPLEMENTATION.
IF NOT is_commit-body IS INITIAL. IF NOT is_commit-body IS INITIAL.
CONCATENATE ls_comment-comment '' is_commit-body CONCATENATE ls_comment-comment '' is_commit-body
INTO ls_comment-comment SEPARATED BY lif_defs=>gc_newline. INTO ls_comment-comment SEPARATED BY zif_abapgit_definitions=>gc_newline.
ENDIF. ENDIF.
io_repo->push( is_comment = ls_comment io_repo->push( is_comment = ls_comment

4
src/zabapgit_services_repo.prog.abap
View File

@ -123,7 +123,7 @@ CLASS lcl_services_repo IMPLEMENTATION.
METHOD purge. METHOD purge.
DATA: lt_tadir TYPE lif_defs=>ty_tadir_tt, DATA: lt_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt,
lv_answer TYPE c LENGTH 1, lv_answer TYPE c LENGTH 1,
lo_repo TYPE REF TO lcl_repo, lo_repo TYPE REF TO lcl_repo,
lv_package TYPE devclass, lv_package TYPE devclass,
@ -324,7 +324,7 @@ CLASS lcl_services_repo IMPLEMENTATION.
lo_transport_to_branch TYPE REF TO lcl_transport_2_branch, lo_transport_to_branch TYPE REF TO lcl_transport_2_branch,
lt_transport_headers TYPE trwbo_request_headers, lt_transport_headers TYPE trwbo_request_headers,
lt_transport_objects TYPE scts_tadir, lt_transport_objects TYPE scts_tadir,
ls_transport_to_branch TYPE lif_defs=>ty_transport_to_branch. ls_transport_to_branch TYPE zif_abapgit_definitions=>ty_transport_to_branch.
lo_repository ?= lcl_app=>repo_srv( )->get( iv_repository_key ). lo_repository ?= lcl_app=>repo_srv( )->get( iv_repository_key ).

4
src/zabapgit_skip_objects.prog.abap
View File

@ -6,9 +6,9 @@ CLASS lcl_skip_objects IMPLEMENTATION.
METHOD skip_sadl_generated_objects. METHOD skip_sadl_generated_objects.
DATA: ls_tadir_class LIKE LINE OF rt_tadir, DATA: ls_tadir_class LIKE LINE OF rt_tadir,
lo_sadl_class TYPE REF TO lif_object, lo_sadl_class TYPE REF TO lif_object,
ls_item TYPE lif_defs=>ty_tadir, ls_item TYPE zif_abapgit_definitions=>ty_tadir,
ls_tadir LIKE LINE OF rt_tadir, ls_tadir LIKE LINE OF rt_tadir,
lt_lines_to_delete TYPE lif_defs=>ty_tadir_tt. lt_lines_to_delete TYPE zif_abapgit_definitions=>ty_tadir_tt.
rt_tadir = it_tadir. rt_tadir = it_tadir.
LOOP AT it_tadir INTO ls_tadir WHERE object = 'DDLS'. LOOP AT it_tadir INTO ls_tadir WHERE object = 'DDLS'.

38
src/zabapgit_stage.prog.abap
View File

@ -16,7 +16,7 @@ CLASS lcl_stage DEFINITION FINAL.
END OF c_method. END OF c_method.
TYPES: BEGIN OF ty_stage, TYPES: BEGIN OF ty_stage,
file TYPE lif_defs=>ty_file, file TYPE zif_abapgit_definitions=>ty_file,
method TYPE ty_method, method TYPE ty_method,
END OF ty_stage. END OF ty_stage.
@ -31,37 +31,37 @@ CLASS lcl_stage DEFINITION FINAL.
METHODS: METHODS:
constructor constructor
IMPORTING iv_branch_name TYPE string IMPORTING iv_branch_name TYPE string
iv_branch_sha1 TYPE lif_defs=>ty_sha1 iv_branch_sha1 TYPE zif_abapgit_definitions=>ty_sha1
iv_merge_source TYPE lif_defs=>ty_sha1 OPTIONAL, iv_merge_source TYPE zif_abapgit_definitions=>ty_sha1 OPTIONAL,
get_branch_name get_branch_name
RETURNING VALUE(rv_branch) TYPE string, RETURNING VALUE(rv_branch) TYPE string,
get_branch_sha1 get_branch_sha1
RETURNING VALUE(rv_branch) TYPE lif_defs=>ty_sha1, RETURNING VALUE(rv_branch) TYPE zif_abapgit_definitions=>ty_sha1,
add add
IMPORTING iv_path TYPE lif_defs=>ty_file-path IMPORTING iv_path TYPE zif_abapgit_definitions=>ty_file-path
iv_filename TYPE lif_defs=>ty_file-filename iv_filename TYPE zif_abapgit_definitions=>ty_file-filename
iv_data TYPE xstring iv_data TYPE xstring
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
reset reset
IMPORTING iv_path TYPE lif_defs=>ty_file-path IMPORTING iv_path TYPE zif_abapgit_definitions=>ty_file-path
iv_filename TYPE lif_defs=>ty_file-filename iv_filename TYPE zif_abapgit_definitions=>ty_file-filename
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
reset_all reset_all
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
rm rm
IMPORTING iv_path TYPE lif_defs=>ty_file-path IMPORTING iv_path TYPE zif_abapgit_definitions=>ty_file-path
iv_filename TYPE lif_defs=>ty_file-filename iv_filename TYPE zif_abapgit_definitions=>ty_file-filename
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
ignore ignore
IMPORTING iv_path TYPE lif_defs=>ty_file-path IMPORTING iv_path TYPE zif_abapgit_definitions=>ty_file-path
iv_filename TYPE lif_defs=>ty_file-filename iv_filename TYPE zif_abapgit_definitions=>ty_file-filename
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
lookup lookup
IMPORTING iv_path TYPE lif_defs=>ty_file-path IMPORTING iv_path TYPE zif_abapgit_definitions=>ty_file-path
iv_filename TYPE lif_defs=>ty_file-filename iv_filename TYPE zif_abapgit_definitions=>ty_file-filename
RETURNING VALUE(rv_method) TYPE ty_method, RETURNING VALUE(rv_method) TYPE ty_method,
get_merge_source get_merge_source
RETURNING VALUE(rv_source) TYPE lif_defs=>ty_sha1, RETURNING VALUE(rv_source) TYPE zif_abapgit_definitions=>ty_sha1,
count count
RETURNING VALUE(rv_count) TYPE i, RETURNING VALUE(rv_count) TYPE i,
get_all get_all
@ -70,13 +70,13 @@ CLASS lcl_stage DEFINITION FINAL.
PRIVATE SECTION. PRIVATE SECTION.
DATA: mt_stage TYPE ty_stage_tt, DATA: mt_stage TYPE ty_stage_tt,
mv_branch_name TYPE string, mv_branch_name TYPE string,
mv_branch_sha1 TYPE lif_defs=>ty_sha1, mv_branch_sha1 TYPE zif_abapgit_definitions=>ty_sha1,
mv_merge_source TYPE lif_defs=>ty_sha1. mv_merge_source TYPE zif_abapgit_definitions=>ty_sha1.
METHODS: METHODS:
append append
IMPORTING iv_path TYPE lif_defs=>ty_file-path IMPORTING iv_path TYPE zif_abapgit_definitions=>ty_file-path
iv_filename TYPE lif_defs=>ty_file-filename iv_filename TYPE zif_abapgit_definitions=>ty_file-filename
iv_method TYPE ty_method iv_method TYPE ty_method
iv_data TYPE xstring OPTIONAL iv_data TYPE xstring OPTIONAL
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.

11
src/zabapgit_stage_logic.prog.abap
View File

@ -10,7 +10,7 @@ CLASS lcl_stage_logic DEFINITION FINAL.
CLASS-METHODS: CLASS-METHODS:
get get
IMPORTING io_repo TYPE REF TO lcl_repo_online IMPORTING io_repo TYPE REF TO lcl_repo_online
RETURNING VALUE(rs_files) TYPE lif_defs=>ty_stage_files RETURNING VALUE(rs_files) TYPE zif_abapgit_definitions=>ty_stage_files
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
count count
IMPORTING io_repo TYPE REF TO lcl_repo_online IMPORTING io_repo TYPE REF TO lcl_repo_online
@ -21,9 +21,9 @@ CLASS lcl_stage_logic DEFINITION FINAL.
CLASS-METHODS: CLASS-METHODS:
remove_ignored remove_ignored
IMPORTING io_repo TYPE REF TO lcl_repo_online IMPORTING io_repo TYPE REF TO lcl_repo_online
CHANGING cs_files TYPE lif_defs=>ty_stage_files, CHANGING cs_files TYPE zif_abapgit_definitions=>ty_stage_files,
remove_identical remove_identical
CHANGING cs_files TYPE lif_defs=>ty_stage_files. CHANGING cs_files TYPE zif_abapgit_definitions=>ty_stage_files.
ENDCLASS. ENDCLASS.
@ -41,7 +41,7 @@ CLASS lcl_stage_logic IMPLEMENTATION.
METHOD count. METHOD count.
DATA: ls_files TYPE lif_defs=>ty_stage_files. DATA: ls_files TYPE zif_abapgit_definitions=>ty_stage_files.
ls_files = get( io_repo ). ls_files = get( io_repo ).
@ -63,7 +63,8 @@ CLASS lcl_stage_logic IMPLEMENTATION.
iv_path = <ls_remote>-path iv_path = <ls_remote>-path
iv_filename = <ls_remote>-filename ) = abap_true. iv_filename = <ls_remote>-filename ) = abap_true.
DELETE cs_files-remote INDEX lv_index. DELETE cs_files-remote INDEX lv_index.
ELSEIF <ls_remote>-path = lif_defs=>gc_root_dir AND <ls_remote>-filename = lif_defs=>gc_dot_abapgit. ELSEIF <ls_remote>-path = zif_abapgit_definitions=>gc_root_dir
AND <ls_remote>-filename = zif_abapgit_definitions=>gc_dot_abapgit.
" Remove .abapgit from remotes - it cannot be removed or ignored " Remove .abapgit from remotes - it cannot be removed or ignored
DELETE cs_files-remote INDEX lv_index. DELETE cs_files-remote INDEX lv_index.
ENDIF. ENDIF.

18
src/zabapgit_tadir.prog.abap
View File

@ -12,15 +12,15 @@ CLASS lcl_skip_objects DEFINITION.
METHODS: METHODS:
skip_sadl_generated_objects skip_sadl_generated_objects
IMPORTING IMPORTING
it_tadir TYPE lif_defs=>ty_tadir_tt it_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt
io_log TYPE REF TO lcl_log OPTIONAL io_log TYPE REF TO lcl_log OPTIONAL
RETURNING RETURNING
VALUE(rt_tadir) TYPE lif_defs=>ty_tadir_tt. VALUE(rt_tadir) TYPE zif_abapgit_definitions=>ty_tadir_tt.
PRIVATE SECTION. PRIVATE SECTION.
METHODS: METHODS:
has_sadl_superclass has_sadl_superclass
IMPORTING IMPORTING
is_class TYPE lif_defs=>ty_tadir is_class TYPE zif_abapgit_definitions=>ty_tadir
RETURNING RETURNING
VALUE(rv_return) TYPE abap_bool. VALUE(rv_return) TYPE abap_bool.
ENDCLASS. ENDCLASS.
@ -34,7 +34,7 @@ CLASS lcl_tadir DEFINITION FINAL.
iv_ignore_subpackages TYPE abap_bool DEFAULT abap_false iv_ignore_subpackages TYPE abap_bool DEFAULT abap_false
io_dot TYPE REF TO lcl_dot_abapgit OPTIONAL io_dot TYPE REF TO lcl_dot_abapgit OPTIONAL
io_log TYPE REF TO lcl_log OPTIONAL io_log TYPE REF TO lcl_log OPTIONAL
RETURNING VALUE(rt_tadir) TYPE lif_defs=>ty_tadir_tt RETURNING VALUE(rt_tadir) TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
read_single read_single
IMPORTING iv_pgmid TYPE tadir-pgmid DEFAULT 'R3TR' IMPORTING iv_pgmid TYPE tadir-pgmid DEFAULT 'R3TR'
@ -61,8 +61,8 @@ CLASS lcl_tadir DEFINITION FINAL.
RETURNING VALUE(rv_hash) TYPE text25 RETURNING VALUE(rv_hash) TYPE text25
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
check_exists check_exists
IMPORTING it_tadir TYPE lif_defs=>ty_tadir_tt IMPORTING it_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt
RETURNING VALUE(rt_tadir) TYPE lif_defs=>ty_tadir_tt RETURNING VALUE(rt_tadir) TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
build build
IMPORTING iv_package TYPE tadir-devclass IMPORTING iv_package TYPE tadir-devclass
@ -70,7 +70,7 @@ CLASS lcl_tadir DEFINITION FINAL.
io_dot TYPE REF TO lcl_dot_abapgit io_dot TYPE REF TO lcl_dot_abapgit
iv_ignore_subpackages TYPE abap_bool DEFAULT abap_false iv_ignore_subpackages TYPE abap_bool DEFAULT abap_false
io_log TYPE REF TO lcl_log OPTIONAL io_log TYPE REF TO lcl_log OPTIONAL
RETURNING VALUE(rt_tadir) TYPE lif_defs=>ty_tadir_tt RETURNING VALUE(rt_tadir) TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_tadir DEFINITION ENDCLASS. "lcl_tadir DEFINITION
@ -178,7 +178,7 @@ CLASS lcl_tadir IMPLEMENTATION.
METHOD check_exists. METHOD check_exists.
DATA: lv_exists TYPE abap_bool, DATA: lv_exists TYPE abap_bool,
ls_item TYPE lif_defs=>ty_item. ls_item TYPE zif_abapgit_definitions=>ty_item.
FIELD-SYMBOLS: <ls_tadir> LIKE LINE OF it_tadir. FIELD-SYMBOLS: <ls_tadir> LIKE LINE OF it_tadir.
@ -218,7 +218,7 @@ CLASS lcl_tadir IMPLEMENTATION.
METHOD build. METHOD build.
DATA: lt_tadir TYPE lif_defs=>ty_tadir_tt, DATA: lt_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt,
lt_tdevc TYPE STANDARD TABLE OF tdevc, lt_tdevc TYPE STANDARD TABLE OF tdevc,
lv_path TYPE string, lv_path TYPE string,
lo_skip_objects TYPE REF TO lcl_skip_objects, lo_skip_objects TYPE REF TO lcl_skip_objects,

28
src/zabapgit_transport.prog.abap
View File

@ -185,8 +185,8 @@ CLASS lcl_transport_objects DEFINITION.
METHODS to_stage METHODS to_stage
IMPORTING IMPORTING
io_stage TYPE REF TO lcl_stage io_stage TYPE REF TO lcl_stage
is_stage_objects TYPE lif_defs=>ty_stage_files is_stage_objects TYPE zif_abapgit_definitions=>ty_stage_files
it_object_statuses TYPE lif_defs=>ty_results_tt it_object_statuses TYPE zif_abapgit_definitions=>ty_results_tt
RAISING RAISING
zcx_abapgit_exception. zcx_abapgit_exception.
PRIVATE SECTION. PRIVATE SECTION.
@ -200,8 +200,8 @@ CLASS lcl_transport_objects IMPLEMENTATION.
METHOD to_stage. METHOD to_stage.
DATA: ls_transport_object TYPE tadir, DATA: ls_transport_object TYPE tadir,
ls_local_file TYPE lif_defs=>ty_file_item, ls_local_file TYPE zif_abapgit_definitions=>ty_file_item,
ls_object_status TYPE lif_defs=>ty_result. ls_object_status TYPE zif_abapgit_definitions=>ty_result.
LOOP AT mt_transport_objects INTO ls_transport_object. LOOP AT mt_transport_objects INTO ls_transport_object.
LOOP AT it_object_statuses INTO ls_object_status LOOP AT it_object_statuses INTO ls_object_status
@ -210,7 +210,7 @@ CLASS lcl_transport_objects IMPLEMENTATION.
AND NOT lstate IS INITIAL. AND NOT lstate IS INITIAL.
CASE ls_object_status-lstate. CASE ls_object_status-lstate.
WHEN lif_defs=>gc_state-added OR lif_defs=>gc_state-modified. WHEN zif_abapgit_definitions=>gc_state-added OR zif_abapgit_definitions=>gc_state-modified.
IF ls_transport_object-delflag = abap_true. IF ls_transport_object-delflag = abap_true.
zcx_abapgit_exception=>raise( |Object { ls_transport_object-obj_name zcx_abapgit_exception=>raise( |Object { ls_transport_object-obj_name
} should be added/modified, but has deletion flag in transport| ). } should be added/modified, but has deletion flag in transport| ).
@ -230,7 +230,7 @@ CLASS lcl_transport_objects IMPLEMENTATION.
iv_path = ls_local_file-file-path iv_path = ls_local_file-file-path
iv_filename = ls_local_file-file-filename iv_filename = ls_local_file-file-filename
iv_data = ls_local_file-file-data ). iv_data = ls_local_file-file-data ).
WHEN lif_defs=>gc_state-deleted. WHEN zif_abapgit_definitions=>gc_state-deleted.
IF ls_transport_object-delflag = abap_false. IF ls_transport_object-delflag = abap_false.
zcx_abapgit_exception=>raise( |Object { ls_transport_object-obj_name zcx_abapgit_exception=>raise( |Object { ls_transport_object-obj_name
} should be removed, but has NO deletion flag in transport| ). } should be removed, but has NO deletion flag in transport| ).
@ -256,7 +256,7 @@ CLASS lcl_transport_2_branch DEFINITION.
METHODS: METHODS:
create create
IMPORTING io_repository TYPE REF TO lcl_repo_online IMPORTING io_repository TYPE REF TO lcl_repo_online
is_transport_to_branch TYPE lif_defs=>ty_transport_to_branch is_transport_to_branch TYPE zif_abapgit_definitions=>ty_transport_to_branch
it_transport_objects TYPE scts_tadir it_transport_objects TYPE scts_tadir
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
PRIVATE SECTION. PRIVATE SECTION.
@ -269,15 +269,15 @@ CLASS lcl_transport_2_branch DEFINITION.
zcx_abapgit_exception. zcx_abapgit_exception.
METHODS generate_commit_message METHODS generate_commit_message
IMPORTING IMPORTING
is_transport_to_branch TYPE lif_defs=>ty_transport_to_branch is_transport_to_branch TYPE zif_abapgit_definitions=>ty_transport_to_branch
RETURNING RETURNING
VALUE(rs_comment) TYPE lif_defs=>ty_comment. VALUE(rs_comment) TYPE zif_abapgit_definitions=>ty_comment.
METHODS stage_transport_objects METHODS stage_transport_objects
IMPORTING IMPORTING
it_transport_objects TYPE scts_tadir it_transport_objects TYPE scts_tadir
io_stage TYPE REF TO lcl_stage io_stage TYPE REF TO lcl_stage
is_stage_objects TYPE lif_defs=>ty_stage_files is_stage_objects TYPE zif_abapgit_definitions=>ty_stage_files
it_object_statuses TYPE lif_defs=>ty_results_tt it_object_statuses TYPE zif_abapgit_definitions=>ty_results_tt
RAISING RAISING
zcx_abapgit_exception. zcx_abapgit_exception.
ENDCLASS. ENDCLASS.
@ -287,10 +287,10 @@ CLASS lcl_transport_2_branch IMPLEMENTATION.
METHOD create. METHOD create.
DATA: DATA:
lv_branch_name TYPE string, lv_branch_name TYPE string,
ls_comment TYPE lif_defs=>ty_comment, ls_comment TYPE zif_abapgit_definitions=>ty_comment,
lo_stage TYPE REF TO lcl_stage, lo_stage TYPE REF TO lcl_stage,
ls_stage_objects TYPE lif_defs=>ty_stage_files, ls_stage_objects TYPE zif_abapgit_definitions=>ty_stage_files,
lt_object_statuses TYPE lif_defs=>ty_results_tt. lt_object_statuses TYPE zif_abapgit_definitions=>ty_results_tt.
lv_branch_name = lcl_git_branch_list=>complete_heads_branch_name( lv_branch_name = lcl_git_branch_list=>complete_heads_branch_name(
lcl_git_branch_list=>normalize_branch_name( is_transport_to_branch-branch_name ) ). lcl_git_branch_list=>normalize_branch_name( is_transport_to_branch-branch_name ) ).

138
src/zabapgit_unit_test.prog.abap
View File

@ -168,9 +168,9 @@ CLASS ltcl_dangerous IMPLEMENTATION.
METHOD run. METHOD run.
DATA: lo_repo TYPE REF TO lcl_repo_online, DATA: lo_repo TYPE REF TO lcl_repo_online,
lt_tadir TYPE lif_defs=>ty_tadir_tt, lt_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt,
lv_msg TYPE string, lv_msg TYPE string,
lt_results TYPE lif_defs=>ty_results_tt, lt_results TYPE zif_abapgit_definitions=>ty_results_tt,
lt_types TYPE lcl_objects=>ty_types_tt. lt_types TYPE lcl_objects=>ty_types_tt.
FIELD-SYMBOLS: <ls_result> LIKE LINE OF lt_results, FIELD-SYMBOLS: <ls_result> LIKE LINE OF lt_results,
@ -295,8 +295,8 @@ CLASS ltcl_diff IMPLEMENTATION.
FIELD-SYMBOLS: <ls_diff> LIKE LINE OF lt_diff. FIELD-SYMBOLS: <ls_diff> LIKE LINE OF lt_diff.
CONCATENATE LINES OF mt_new INTO lv_new SEPARATED BY lif_defs=>gc_newline. CONCATENATE LINES OF mt_new INTO lv_new SEPARATED BY zif_abapgit_definitions=>gc_newline.
CONCATENATE LINES OF mt_old INTO lv_old SEPARATED BY lif_defs=>gc_newline. CONCATENATE LINES OF mt_old INTO lv_old SEPARATED BY zif_abapgit_definitions=>gc_newline.
lv_xnew = lcl_convert=>string_to_xstring_utf8( lv_new ). lv_xnew = lcl_convert=>string_to_xstring_utf8( lv_new ).
lv_xold = lcl_convert=>string_to_xstring_utf8( lv_old ). lv_xold = lcl_convert=>string_to_xstring_utf8( lv_old ).
@ -512,7 +512,7 @@ CLASS ltcl_git_porcelain IMPLEMENTATION.
<ls_expanded>-path = iv_path. <ls_expanded>-path = iv_path.
<ls_expanded>-name = iv_name. <ls_expanded>-name = iv_name.
<ls_expanded>-sha1 = 'a'. <ls_expanded>-sha1 = 'a'.
<ls_expanded>-chmod = lif_defs=>gc_chmod-file. <ls_expanded>-chmod = zif_abapgit_definitions=>gc_chmod-file.
ENDMETHOD. ENDMETHOD.
@ -882,7 +882,7 @@ CLASS ltcl_object_types IMPLEMENTATION.
METHOD is_supported. METHOD is_supported.
DATA: ls_item TYPE lif_defs=>ty_item, DATA: ls_item TYPE zif_abapgit_definitions=>ty_item,
lv_supported TYPE abap_bool, lv_supported TYPE abap_bool,
lt_types TYPE lcl_objects=>ty_types_tt. lt_types TYPE lcl_objects=>ty_types_tt.
@ -908,7 +908,7 @@ CLASS ltcl_object_types IMPLEMENTATION.
METHOD not_exist. METHOD not_exist.
DATA: ls_item TYPE lif_defs=>ty_item, DATA: ls_item TYPE zif_abapgit_definitions=>ty_item,
lv_exists TYPE abap_bool, lv_exists TYPE abap_bool,
lt_types TYPE lcl_objects=>ty_types_tt. lt_types TYPE lcl_objects=>ty_types_tt.
@ -968,7 +968,7 @@ CLASS ltcl_git_pack_decode_commit IMPLEMENTATION.
METHOD add. METHOD add.
CONCATENATE mv_str iv_string lif_defs=>gc_newline INTO mv_str. CONCATENATE mv_str iv_string zif_abapgit_definitions=>gc_newline INTO mv_str.
ENDMETHOD. ENDMETHOD.
@ -1087,7 +1087,7 @@ CLASS ltcl_git_pack DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT FI
PRIVATE SECTION. PRIVATE SECTION.
CONSTANTS: c_sha TYPE lif_defs=>ty_sha1 VALUE '5f46cb3c4b7f0b3600b64f744cde614a283a88dc'. CONSTANTS: c_sha TYPE zif_abapgit_definitions=>ty_sha1 VALUE '5f46cb3c4b7f0b3600b64f744cde614a283a88dc'.
METHODS: METHODS:
tree FOR TESTING tree FOR TESTING
@ -1112,7 +1112,7 @@ CLASS ltcl_git_pack DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT FI
METHODS: METHODS:
object_blob object_blob
IMPORTING iv_data TYPE xstring IMPORTING iv_data TYPE xstring
RETURNING VALUE(rs_object) TYPE lif_defs=>ty_object RETURNING VALUE(rs_object) TYPE zif_abapgit_definitions=>ty_object
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
ENDCLASS. "test DEFINITION ENDCLASS. "test DEFINITION
@ -1129,7 +1129,7 @@ CLASS ltcl_git_pack IMPLEMENTATION.
DATA: lv_result TYPE xstring. DATA: lv_result TYPE xstring.
lv_result = lcl_git_pack=>type_and_length( lv_result = lcl_git_pack=>type_and_length(
iv_type = lif_defs=>gc_type-commit iv_type = zif_abapgit_definitions=>gc_type-commit
iv_length = 100 ). iv_length = 100 ).
cl_abap_unit_assert=>assert_equals( cl_abap_unit_assert=>assert_equals(
@ -1143,7 +1143,7 @@ CLASS ltcl_git_pack IMPLEMENTATION.
DATA: lv_result TYPE xstring. DATA: lv_result TYPE xstring.
lv_result = lcl_git_pack=>type_and_length( lv_result = lcl_git_pack=>type_and_length(
iv_type = lif_defs=>gc_type-blob iv_type = zif_abapgit_definitions=>gc_type-blob
iv_length = 90000 ). iv_length = 90000 ).
cl_abap_unit_assert=>assert_equals( cl_abap_unit_assert=>assert_equals(
@ -1160,12 +1160,12 @@ CLASS ltcl_git_pack IMPLEMENTATION.
APPEND INITIAL LINE TO lt_tree ASSIGNING <ls_tree>. APPEND INITIAL LINE TO lt_tree ASSIGNING <ls_tree>.
<ls_tree>-chmod = lif_defs=>gc_chmod-file. <ls_tree>-chmod = zif_abapgit_definitions=>gc_chmod-file.
<ls_tree>-name = 'b.txt'. <ls_tree>-name = 'b.txt'.
<ls_tree>-sha1 = '0123'. <ls_tree>-sha1 = '0123'.
APPEND INITIAL LINE TO lt_tree ASSIGNING <ls_tree>. APPEND INITIAL LINE TO lt_tree ASSIGNING <ls_tree>.
<ls_tree>-chmod = lif_defs=>gc_chmod-file. <ls_tree>-chmod = zif_abapgit_definitions=>gc_chmod-file.
<ls_tree>-name = 'a.txt'. <ls_tree>-name = 'a.txt'.
<ls_tree>-sha1 = '0123'. <ls_tree>-sha1 = '0123'.
@ -1188,12 +1188,12 @@ CLASS ltcl_git_pack IMPLEMENTATION.
APPEND INITIAL LINE TO lt_tree ASSIGNING <ls_tree>. APPEND INITIAL LINE TO lt_tree ASSIGNING <ls_tree>.
<ls_tree>-chmod = lif_defs=>gc_chmod-file. <ls_tree>-chmod = zif_abapgit_definitions=>gc_chmod-file.
<ls_tree>-name = 'foo.txt'. <ls_tree>-name = 'foo.txt'.
<ls_tree>-sha1 = '0123'. <ls_tree>-sha1 = '0123'.
APPEND INITIAL LINE TO lt_tree ASSIGNING <ls_tree>. APPEND INITIAL LINE TO lt_tree ASSIGNING <ls_tree>.
<ls_tree>-chmod = lif_defs=>gc_chmod-dir. <ls_tree>-chmod = zif_abapgit_definitions=>gc_chmod-dir.
<ls_tree>-name = 'foo'. <ls_tree>-name = 'foo'.
<ls_tree>-sha1 = '0123'. <ls_tree>-sha1 = '0123'.
@ -1211,22 +1211,22 @@ CLASS ltcl_git_pack IMPLEMENTATION.
METHOD pack_multiple. METHOD pack_multiple.
CONSTANTS: lc_data TYPE x LENGTH 15 VALUE '123456789ABCDEF545794254754554', CONSTANTS: lc_data TYPE x LENGTH 15 VALUE '123456789ABCDEF545794254754554',
lc_sha TYPE lif_defs=>ty_sha1 VALUE '5f46cb3c4b7f0b3600b64f744cde614a283a88dc'. lc_sha TYPE zif_abapgit_definitions=>ty_sha1 VALUE '5f46cb3c4b7f0b3600b64f744cde614a283a88dc'.
DATA: lt_objects TYPE lif_defs=>ty_objects_tt, DATA: lt_objects TYPE zif_abapgit_definitions=>ty_objects_tt,
ls_object LIKE LINE OF lt_objects, ls_object LIKE LINE OF lt_objects,
lt_nodes TYPE lcl_git_pack=>ty_nodes_tt, lt_nodes TYPE lcl_git_pack=>ty_nodes_tt,
ls_node LIKE LINE OF lt_nodes, ls_node LIKE LINE OF lt_nodes,
ls_commit TYPE lcl_git_pack=>ty_commit, ls_commit TYPE lcl_git_pack=>ty_commit,
lt_result TYPE lif_defs=>ty_objects_tt, lt_result TYPE zif_abapgit_definitions=>ty_objects_tt,
lv_data TYPE xstring. lv_data TYPE xstring.
* blob * blob
lv_data = lc_data. lv_data = lc_data.
CLEAR ls_object. CLEAR ls_object.
ls_object-sha1 = lcl_hash=>sha1( iv_type = lif_defs=>gc_type-blob iv_data = lv_data ). ls_object-sha1 = lcl_hash=>sha1( iv_type = zif_abapgit_definitions=>gc_type-blob iv_data = lv_data ).
ls_object-type = lif_defs=>gc_type-blob. ls_object-type = zif_abapgit_definitions=>gc_type-blob.
ls_object-data = lv_data. ls_object-data = lv_data.
APPEND ls_object TO lt_objects. APPEND ls_object TO lt_objects.
@ -1239,8 +1239,8 @@ CLASS ltcl_git_pack IMPLEMENTATION.
ls_commit-body = 'body'. ls_commit-body = 'body'.
lv_data = lcl_git_pack=>encode_commit( ls_commit ). lv_data = lcl_git_pack=>encode_commit( ls_commit ).
CLEAR ls_object. CLEAR ls_object.
ls_object-sha1 = lcl_hash=>sha1( iv_type = lif_defs=>gc_type-commit iv_data = lv_data ). ls_object-sha1 = lcl_hash=>sha1( iv_type = zif_abapgit_definitions=>gc_type-commit iv_data = lv_data ).
ls_object-type = lif_defs=>gc_type-commit. ls_object-type = zif_abapgit_definitions=>gc_type-commit.
ls_object-data = lv_data. ls_object-data = lv_data.
APPEND ls_object TO lt_objects. APPEND ls_object TO lt_objects.
@ -1252,8 +1252,8 @@ CLASS ltcl_git_pack IMPLEMENTATION.
APPEND ls_node TO lt_nodes. APPEND ls_node TO lt_nodes.
lv_data = lcl_git_pack=>encode_tree( lt_nodes ). lv_data = lcl_git_pack=>encode_tree( lt_nodes ).
CLEAR ls_object. CLEAR ls_object.
ls_object-sha1 = lcl_hash=>sha1( iv_type = lif_defs=>gc_type-tree iv_data = lv_data ). ls_object-sha1 = lcl_hash=>sha1( iv_type = zif_abapgit_definitions=>gc_type-tree iv_data = lv_data ).
ls_object-type = lif_defs=>gc_type-tree. ls_object-type = zif_abapgit_definitions=>gc_type-tree.
ls_object-data = lv_data. ls_object-data = lv_data.
APPEND ls_object TO lt_objects. APPEND ls_object TO lt_objects.
@ -1270,9 +1270,9 @@ CLASS ltcl_git_pack IMPLEMENTATION.
METHOD object_blob. METHOD object_blob.
rs_object-sha1 = lcl_hash=>sha1( iv_type = lif_defs=>gc_type-blob rs_object-sha1 = lcl_hash=>sha1( iv_type = zif_abapgit_definitions=>gc_type-blob
iv_data = iv_data ). iv_data = iv_data ).
rs_object-type = lif_defs=>gc_type-blob. rs_object-type = zif_abapgit_definitions=>gc_type-blob.
rs_object-data = iv_data. rs_object-data = iv_data.
ENDMETHOD. "object_blob ENDMETHOD. "object_blob
@ -1281,9 +1281,9 @@ CLASS ltcl_git_pack IMPLEMENTATION.
CONSTANTS: lc_data TYPE x LENGTH 8 VALUE '0123456789ABCDEF'. CONSTANTS: lc_data TYPE x LENGTH 8 VALUE '0123456789ABCDEF'.
DATA: lt_objects TYPE lif_defs=>ty_objects_tt, DATA: lt_objects TYPE zif_abapgit_definitions=>ty_objects_tt,
ls_object LIKE LINE OF lt_objects, ls_object LIKE LINE OF lt_objects,
lt_result TYPE lif_defs=>ty_objects_tt, lt_result TYPE zif_abapgit_definitions=>ty_objects_tt,
lv_data TYPE xstring. lv_data TYPE xstring.
@ -1306,10 +1306,10 @@ CLASS ltcl_git_pack IMPLEMENTATION.
CONSTANTS: lc_data TYPE x LENGTH 8 VALUE '0123456789ABCDEF'. CONSTANTS: lc_data TYPE x LENGTH 8 VALUE '0123456789ABCDEF'.
DATA: lt_objects TYPE lif_defs=>ty_objects_tt, DATA: lt_objects TYPE zif_abapgit_definitions=>ty_objects_tt,
ls_object LIKE LINE OF lt_objects, ls_object LIKE LINE OF lt_objects,
lv_xstring TYPE xstring, lv_xstring TYPE xstring,
lt_result TYPE lif_defs=>ty_objects_tt, lt_result TYPE zif_abapgit_definitions=>ty_objects_tt,
lv_data TYPE xstring. lv_data TYPE xstring.
@ -1339,7 +1339,7 @@ CLASS ltcl_git_pack IMPLEMENTATION.
lt_result TYPE lcl_git_pack=>ty_nodes_tt. lt_result TYPE lcl_git_pack=>ty_nodes_tt.
CLEAR ls_node. CLEAR ls_node.
ls_node-chmod = lif_defs=>gc_chmod-file. ls_node-chmod = zif_abapgit_definitions=>gc_chmod-file.
ls_node-name = 'foobar.txt'. ls_node-name = 'foobar.txt'.
ls_node-sha1 = c_sha. ls_node-sha1 = c_sha.
APPEND ls_node TO lt_nodes. APPEND ls_node TO lt_nodes.
@ -1386,7 +1386,9 @@ CLASS ltcl_git_pack IMPLEMENTATION.
ls_commit-parent = c_sha. ls_commit-parent = c_sha.
ls_commit-author = 'larshp <larshp@hotmail.com> 1387823471 +0100'. ls_commit-author = 'larshp <larshp@hotmail.com> 1387823471 +0100'.
ls_commit-committer = 'larshp <larshp@hotmail.com> 1387823471 +0100'. ls_commit-committer = 'larshp <larshp@hotmail.com> 1387823471 +0100'.
ls_commit-body = 'very informative' && lif_defs=>gc_newline && lif_defs=>gc_newline. ls_commit-body = 'very informative'
&& zif_abapgit_definitions=>gc_newline
&& zif_abapgit_definitions=>gc_newline.
lv_data = lcl_git_pack=>encode_commit( ls_commit ). lv_data = lcl_git_pack=>encode_commit( ls_commit ).
ls_result = lcl_git_pack=>decode_commit( lv_data ). ls_result = lcl_git_pack=>decode_commit( lv_data ).
@ -1430,8 +1432,8 @@ CLASS ltcl_html IMPLEMENTATION.
mo_html->add( 'hello world' ). mo_html->add( 'hello world' ).
mo_html->add( '</td>' ). mo_html->add( '</td>' ).
lv_exp = '<td>' && lif_defs=>gc_newline && lv_exp = '<td>' && zif_abapgit_definitions=>gc_newline &&
' hello world' && lif_defs=>gc_newline && ' hello world' && zif_abapgit_definitions=>gc_newline &&
'</td>'. '</td>'.
cl_abap_unit_assert=>assert_equals( cl_abap_unit_assert=>assert_equals(
@ -1448,8 +1450,8 @@ CLASS ltcl_html IMPLEMENTATION.
mo_html->add( '<input name="comment" type="text">' ). mo_html->add( '<input name="comment" type="text">' ).
mo_html->add( '</td>' ). mo_html->add( '</td>' ).
lv_exp = '<td>' && lif_defs=>gc_newline && lv_exp = '<td>' && zif_abapgit_definitions=>gc_newline &&
' <input name="comment" type="text">' && lif_defs=>gc_newline && ' <input name="comment" type="text">' && zif_abapgit_definitions=>gc_newline &&
'</td>'. '</td>'.
cl_abap_unit_assert=>assert_equals( cl_abap_unit_assert=>assert_equals(
@ -1466,8 +1468,8 @@ CLASS ltcl_html IMPLEMENTATION.
mo_html->add( '<textarea name="body" rows="10" cols="72"></textarea>' ). mo_html->add( '<textarea name="body" rows="10" cols="72"></textarea>' ).
mo_html->add( '</td>' ). mo_html->add( '</td>' ).
lv_exp = '<td>' && lif_defs=>gc_newline && lv_exp = '<td>' && zif_abapgit_definitions=>gc_newline &&
' <textarea name="body" rows="10" cols="72"></textarea>' && lif_defs=>gc_newline && ' <textarea name="body" rows="10" cols="72"></textarea>' && zif_abapgit_definitions=>gc_newline &&
'</td>'. '</td>'.
cl_abap_unit_assert=>assert_equals( cl_abap_unit_assert=>assert_equals(
@ -1484,8 +1486,8 @@ CLASS ltcl_html IMPLEMENTATION.
mo_html->add( 'foo<br>bar' ). mo_html->add( 'foo<br>bar' ).
mo_html->add( '</td>' ). mo_html->add( '</td>' ).
lv_exp = '<td>' && lif_defs=>gc_newline && lv_exp = '<td>' && zif_abapgit_definitions=>gc_newline &&
' foo<br>bar' && lif_defs=>gc_newline && ' foo<br>bar' && zif_abapgit_definitions=>gc_newline &&
'</td>'. '</td>'.
cl_abap_unit_assert=>assert_equals( cl_abap_unit_assert=>assert_equals(
@ -1505,11 +1507,11 @@ CLASS ltcl_html IMPLEMENTATION.
mo_html->add( '}' ). mo_html->add( '}' ).
mo_html->add( '</style>' ). mo_html->add( '</style>' ).
lv_exp = '<style type="text/css">' && lif_defs=>gc_newline && lv_exp = '<style type="text/css">' && zif_abapgit_definitions=>gc_newline &&
' .class1 { color: red }' && lif_defs=>gc_newline && ' .class1 { color: red }' && zif_abapgit_definitions=>gc_newline &&
' .class2 {' && lif_defs=>gc_newline && ' .class2 {' && zif_abapgit_definitions=>gc_newline &&
' color: red' && lif_defs=>gc_newline && ' color: red' && zif_abapgit_definitions=>gc_newline &&
' }' && lif_defs=>gc_newline && ' }' && zif_abapgit_definitions=>gc_newline &&
'</style>'. '</style>'.
cl_abap_unit_assert=>assert_equals( cl_abap_unit_assert=>assert_equals(
@ -1532,7 +1534,7 @@ CLASS ltcl_serialize DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT F
METHODS: METHODS:
check check
IMPORTING is_item TYPE lif_defs=>ty_item IMPORTING is_item TYPE zif_abapgit_definitions=>ty_item
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
serialize_tabl FOR TESTING RAISING zcx_abapgit_exception, serialize_tabl FOR TESTING RAISING zcx_abapgit_exception,
serialize_enqu FOR TESTING RAISING zcx_abapgit_exception, serialize_enqu FOR TESTING RAISING zcx_abapgit_exception,
@ -1559,7 +1561,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
METHOD serialize_enqu. METHOD serialize_enqu.
DATA: ls_item TYPE lif_defs=>ty_item. DATA: ls_item TYPE zif_abapgit_definitions=>ty_item.
ls_item-obj_type = 'ENQU'. ls_item-obj_type = 'ENQU'.
@ -1571,7 +1573,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
METHOD serialize_shlp. METHOD serialize_shlp.
DATA: ls_item TYPE lif_defs=>ty_item. DATA: ls_item TYPE zif_abapgit_definitions=>ty_item.
ls_item-obj_type = 'SHLP'. ls_item-obj_type = 'SHLP'.
@ -1583,7 +1585,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
METHOD serialize_view. METHOD serialize_view.
DATA: ls_item TYPE lif_defs=>ty_item. DATA: ls_item TYPE zif_abapgit_definitions=>ty_item.
ls_item-obj_type = 'VIEW'. ls_item-obj_type = 'VIEW'.
@ -1595,7 +1597,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
METHOD serialize_tabl. METHOD serialize_tabl.
DATA: ls_item TYPE lif_defs=>ty_item. DATA: ls_item TYPE zif_abapgit_definitions=>ty_item.
ls_item-obj_type = 'TABL'. ls_item-obj_type = 'TABL'.
@ -1607,7 +1609,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
METHOD serialize_auth. METHOD serialize_auth.
DATA: ls_item TYPE lif_defs=>ty_item. DATA: ls_item TYPE zif_abapgit_definitions=>ty_item.
ls_item-obj_type = 'AUTH'. ls_item-obj_type = 'AUTH'.
@ -1619,7 +1621,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
METHOD serialize_clas. METHOD serialize_clas.
DATA: ls_item TYPE lif_defs=>ty_item. DATA: ls_item TYPE zif_abapgit_definitions=>ty_item.
ls_item-obj_type = 'CLAS'. ls_item-obj_type = 'CLAS'.
@ -1631,7 +1633,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
METHOD serialize_doma. METHOD serialize_doma.
DATA: ls_item TYPE lif_defs=>ty_item. DATA: ls_item TYPE zif_abapgit_definitions=>ty_item.
ls_item-obj_type = 'DOMA'. ls_item-obj_type = 'DOMA'.
@ -1643,7 +1645,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
METHOD serialize_dtel. METHOD serialize_dtel.
DATA: ls_item TYPE lif_defs=>ty_item. DATA: ls_item TYPE zif_abapgit_definitions=>ty_item.
ls_item-obj_type = 'DTEL'. ls_item-obj_type = 'DTEL'.
@ -1655,7 +1657,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
METHOD serialize_fugr. METHOD serialize_fugr.
DATA: ls_item TYPE lif_defs=>ty_item. DATA: ls_item TYPE zif_abapgit_definitions=>ty_item.
ls_item-obj_type = 'FUGR'. ls_item-obj_type = 'FUGR'.
@ -1667,7 +1669,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
METHOD serialize_msag. METHOD serialize_msag.
DATA: ls_item TYPE lif_defs=>ty_item. DATA: ls_item TYPE zif_abapgit_definitions=>ty_item.
ls_item-obj_type = 'MSAG'. ls_item-obj_type = 'MSAG'.
@ -1679,7 +1681,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
METHOD serialize_prog. METHOD serialize_prog.
DATA: ls_item TYPE lif_defs=>ty_item. DATA: ls_item TYPE zif_abapgit_definitions=>ty_item.
ls_item-obj_type = 'PROG'. ls_item-obj_type = 'PROG'.
@ -1691,7 +1693,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
METHOD serialize_tran. METHOD serialize_tran.
DATA: ls_item TYPE lif_defs=>ty_item. DATA: ls_item TYPE zif_abapgit_definitions=>ty_item.
ls_item-obj_type = 'TRAN'. ls_item-obj_type = 'TRAN'.
@ -1703,7 +1705,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
METHOD serialize_ttyp. METHOD serialize_ttyp.
DATA: ls_item TYPE lif_defs=>ty_item. DATA: ls_item TYPE zif_abapgit_definitions=>ty_item.
ls_item-obj_type = 'TTYP'. ls_item-obj_type = 'TTYP'.
@ -1715,10 +1717,10 @@ CLASS ltcl_serialize IMPLEMENTATION.
METHOD check. METHOD check.
DATA: lt_files TYPE lif_defs=>ty_files_tt. DATA: lt_files TYPE zif_abapgit_definitions=>ty_files_tt.
lt_files = lcl_objects=>serialize( is_item = is_item lt_files = lcl_objects=>serialize( is_item = is_item
iv_language = lif_defs=>gc_english ). iv_language = zif_abapgit_definitions=>gc_english ).
cl_abap_unit_assert=>assert_not_initial( lt_files ). cl_abap_unit_assert=>assert_not_initial( lt_files ).
@ -2217,11 +2219,11 @@ CLASS ltcl_file_status IMPLEMENTATION.
METHOD calculate_status. METHOD calculate_status.
DATA: lt_local TYPE lif_defs=>ty_files_item_tt, DATA: lt_local TYPE zif_abapgit_definitions=>ty_files_item_tt,
lt_remote TYPE lif_defs=>ty_files_tt, lt_remote TYPE zif_abapgit_definitions=>ty_files_tt,
lt_state TYPE lif_defs=>ty_file_signatures_tt, lt_state TYPE zif_abapgit_definitions=>ty_file_signatures_tt,
lt_results TYPE lif_defs=>ty_results_tt, lt_results TYPE zif_abapgit_definitions=>ty_results_tt,
lt_results_exp TYPE lif_defs=>ty_results_tt, lt_results_exp TYPE zif_abapgit_definitions=>ty_results_tt,
lo_dot TYPE REF TO lcl_dot_abapgit. lo_dot TYPE REF TO lcl_dot_abapgit.
FIELD-SYMBOLS: <local> LIKE LINE OF lt_local, FIELD-SYMBOLS: <local> LIKE LINE OF lt_local,
@ -2324,7 +2326,7 @@ CLASS ltcl_file_status2 IMPLEMENTATION.
METHOD check. METHOD check.
DATA: lt_results TYPE lif_defs=>ty_results_tt, DATA: lt_results TYPE zif_abapgit_definitions=>ty_results_tt,
lo_log TYPE REF TO lcl_log. lo_log TYPE REF TO lcl_log.
FIELD-SYMBOLS: <result> LIKE LINE OF lt_results. FIELD-SYMBOLS: <result> LIKE LINE OF lt_results.

54
src/zabapgit_unit_test_clas_intf.prog.abap
View File

@ -14,14 +14,14 @@ CLASS ltd_spy_oo_object DEFINITION FOR TESTING.
mt_local_test_classes TYPE rswsourcet, mt_local_test_classes TYPE rswsourcet,
mv_force TYPE seoflag, mv_force TYPE seoflag,
ms_deserialize_key TYPE seoclskey, ms_deserialize_key TYPE seoclskey,
mt_source TYPE lif_defs=>ty_string_tt, mt_source TYPE zif_abapgit_definitions=>ty_string_tt,
ms_item_to_activate TYPE lif_defs=>ty_item, ms_item_to_activate TYPE zif_abapgit_definitions=>ty_item,
mt_descriptions TYPE lif_defs=>ty_seocompotx_tt, mt_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt,
ms_description_key TYPE seoclskey, ms_description_key TYPE seoclskey,
mv_text_pool_class_name TYPE seoclsname, mv_text_pool_class_name TYPE seoclsname,
mt_text_pool TYPE textpool_table, mt_text_pool TYPE textpool_table,
mv_text_pool_inserted TYPE abap_bool, mv_text_pool_inserted TYPE abap_bool,
mt_sotr TYPE lif_defs=>ty_sotr_tt, mt_sotr TYPE zif_abapgit_definitions=>ty_sotr_tt,
mt_sotr_package TYPE devclass, mt_sotr_package TYPE devclass,
mv_docu_object_name TYPE dokhl-object, mv_docu_object_name TYPE dokhl-object,
mv_docu_language TYPE spras, mv_docu_language TYPE spras,
@ -189,7 +189,7 @@ CLASS ltd_fake_object_files IMPLEMENTATION.
exp = abap_false ). exp = abap_false ).
ENDMETHOD. ENDMETHOD.
METHOD constructor. METHOD constructor.
DATA ls_empty_item TYPE lif_defs=>ty_item. DATA ls_empty_item TYPE zif_abapgit_definitions=>ty_item.
super->constructor( ls_empty_item ). super->constructor( ls_empty_item ).
APPEND 'source' TO me->mt_sources. APPEND 'source' TO me->mt_sources.
APPEND 'definition' TO me->mt_local_definitions. APPEND 'definition' TO me->mt_local_definitions.
@ -222,19 +222,19 @@ CLASS ltc_oo_test DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT.
mo_xml_input TYPE REF TO lcl_xml_input, mo_xml_input TYPE REF TO lcl_xml_input,
mo_xml_out TYPE REF TO lcl_xml_output, mo_xml_out TYPE REF TO lcl_xml_output,
mo_oo_object TYPE REF TO lif_object, mo_oo_object TYPE REF TO lif_object,
ms_item TYPE lif_defs=>ty_item. ms_item TYPE zif_abapgit_definitions=>ty_item.
METHODS: when_deserializing METHODS: when_deserializing
RAISING RAISING
zcx_abapgit_exception, zcx_abapgit_exception,
then_should_deserialize_source, then_should_deserialize_source,
given_the_descriptions given_the_descriptions
IMPORTING IMPORTING
it_descriptions TYPE lif_defs=>ty_seocompotx_tt it_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt
RAISING RAISING
zcx_abapgit_exception, zcx_abapgit_exception,
then_shuld_update_descriptions then_shuld_update_descriptions
IMPORTING IMPORTING
it_descriptions TYPE lif_defs=>ty_seocompotx_tt, it_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt,
then_it_should_add_activation, then_it_should_add_activation,
given_documentation_in_xml_as given_documentation_in_xml_as
IMPORTING IMPORTING
@ -389,7 +389,7 @@ CLASS ltcl_class_deserialization IMPLEMENTATION.
METHOD should_update_descriptions. METHOD should_update_descriptions.
DATA: DATA:
ls_description TYPE seocompotx, ls_description TYPE seocompotx,
lt_descriptions TYPE lif_defs=>ty_seocompotx_tt. lt_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt.
given_a_class_properties( ). given_a_class_properties( ).
@ -466,7 +466,7 @@ CLASS ltcl_class_deserialization IMPLEMENTATION.
METHOD insert_text_pool. METHOD insert_text_pool.
DATA: lt_pool_external TYPE textpool_table, DATA: lt_pool_external TYPE textpool_table,
ls_pool_external TYPE lif_defs=>ty_tpool. ls_pool_external TYPE zif_abapgit_definitions=>ty_tpool.
ls_pool_external-id = 'ID'. ls_pool_external-id = 'ID'.
ls_pool_external-key = 'KEY'. ls_pool_external-key = 'KEY'.
APPEND ls_pool_external TO lt_pool_external. APPEND ls_pool_external TO lt_pool_external.
@ -490,7 +490,7 @@ CLASS ltcl_class_deserialization IMPLEMENTATION.
METHOD create_stor_from_xml. METHOD create_stor_from_xml.
DATA: DATA:
lt_sotr TYPE lif_defs=>ty_sotr_tt, lt_sotr TYPE zif_abapgit_definitions=>ty_sotr_tt,
ls_sotr LIKE LINE OF lt_sotr. ls_sotr LIKE LINE OF lt_sotr.
given_a_class_properties( ). given_a_class_properties( ).
@ -574,7 +574,7 @@ CLASS ltcl_interface_deserialization IMPLEMENTATION.
METHOD update_descriptions. METHOD update_descriptions.
DATA: DATA:
ls_description TYPE seocompotx, ls_description TYPE seocompotx,
lt_descriptions TYPE lif_defs=>ty_seocompotx_tt. lt_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt.
given_an_interface_properties( ). given_an_interface_properties( ).
@ -829,7 +829,7 @@ CLASS ltcl_serialize_class IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD serialize_abap. METHOD serialize_abap.
DATA lt_abap_source TYPE lif_defs=>ty_string_tt. DATA lt_abap_source TYPE zif_abapgit_definitions=>ty_string_tt.
APPEND 'a_source_line' TO me->mo_spy_oo_object_functions->mt_source. APPEND 'a_source_line' TO me->mo_spy_oo_object_functions->mt_source.
@ -844,7 +844,7 @@ CLASS ltcl_serialize_class IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD serialize_local_definitions. METHOD serialize_local_definitions.
DATA lt_abap_source TYPE lif_defs=>ty_string_tt. DATA lt_abap_source TYPE zif_abapgit_definitions=>ty_string_tt.
APPEND 'a_local_definition' TO me->mo_spy_oo_object_functions->mt_local_definitions. APPEND 'a_local_definition' TO me->mo_spy_oo_object_functions->mt_local_definitions.
@ -860,7 +860,7 @@ CLASS ltcl_serialize_class IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD serialize_local_implementation. METHOD serialize_local_implementation.
DATA lt_abap_source TYPE lif_defs=>ty_string_tt. DATA lt_abap_source TYPE zif_abapgit_definitions=>ty_string_tt.
APPEND 'a_local_implementation' TO me->mo_spy_oo_object_functions->mt_local_implementations. APPEND 'a_local_implementation' TO me->mo_spy_oo_object_functions->mt_local_implementations.
@ -876,7 +876,7 @@ CLASS ltcl_serialize_class IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD serialize_local_macros. METHOD serialize_local_macros.
DATA lt_abap_source TYPE lif_defs=>ty_string_tt. DATA lt_abap_source TYPE zif_abapgit_definitions=>ty_string_tt.
APPEND 'a_local_macro' TO me->mo_spy_oo_object_functions->mt_local_macros. APPEND 'a_local_macro' TO me->mo_spy_oo_object_functions->mt_local_macros.
mo_oo_object->serialize( mo_xml_out ). mo_oo_object->serialize( mo_xml_out ).
@ -891,7 +891,7 @@ CLASS ltcl_serialize_class IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD serialize_test_classes. METHOD serialize_test_classes.
DATA lt_abap_source TYPE lif_defs=>ty_string_tt. DATA lt_abap_source TYPE zif_abapgit_definitions=>ty_string_tt.
APPEND 'a_local_test' TO me->mo_spy_oo_object_functions->mt_local_test_classes. APPEND 'a_local_test' TO me->mo_spy_oo_object_functions->mt_local_test_classes.
mo_oo_object->serialize( mo_xml_out ). mo_oo_object->serialize( mo_xml_out ).
@ -1004,8 +1004,8 @@ CLASS ltcl_serialize_class IMPLEMENTATION.
METHOD read_sotr_if_exception_class. METHOD read_sotr_if_exception_class.
DATA: DATA:
lt_sotr TYPE lif_defs=>ty_sotr_tt, lt_sotr TYPE zif_abapgit_definitions=>ty_sotr_tt,
lt_actual_sotr TYPE lif_defs=>ty_sotr_tt, lt_actual_sotr TYPE zif_abapgit_definitions=>ty_sotr_tt,
ls_sotr LIKE LINE OF lt_sotr. ls_sotr LIKE LINE OF lt_sotr.
me->mo_spy_oo_object_functions->ms_class_properties-category = seoc_category_exception. me->mo_spy_oo_object_functions->ms_class_properties-category = seoc_category_exception.
@ -1033,7 +1033,7 @@ CLASS ltcl_serialize_class IMPLEMENTATION.
METHOD do_not_read_sotr_regular_class. METHOD do_not_read_sotr_regular_class.
DATA: DATA:
lt_actual_sotr TYPE lif_defs=>ty_sotr_tt. lt_actual_sotr TYPE zif_abapgit_definitions=>ty_sotr_tt.
CLEAR: me->mo_spy_oo_object_functions->ms_class_properties-category. CLEAR: me->mo_spy_oo_object_functions->ms_class_properties-category.
@ -1080,9 +1080,9 @@ CLASS ltcl_serialize_class IMPLEMENTATION.
METHOD should_serialize_descriptions. METHOD should_serialize_descriptions.
DATA: DATA:
lt_descriptions TYPE lif_defs=>ty_seocompotx_tt, lt_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt,
lt_actual_descriptions TYPE lif_defs=>ty_seocompotx_tt, lt_actual_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt,
ls_description TYPE LINE OF lif_defs=>ty_seocompotx_tt. ls_description TYPE LINE OF zif_abapgit_definitions=>ty_seocompotx_tt.
ls_description-clsname = 'class'. ls_description-clsname = 'class'.
APPEND ls_description TO lt_descriptions. APPEND ls_description TO lt_descriptions.
@ -1146,7 +1146,7 @@ CLASS ltcl_serialize_interface IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD serialize_abap. METHOD serialize_abap.
DATA lt_abap_source TYPE lif_defs=>ty_string_tt. DATA lt_abap_source TYPE zif_abapgit_definitions=>ty_string_tt.
APPEND 'a_source_line' TO me->mo_spy_oo_object_functions->mt_source. APPEND 'a_source_line' TO me->mo_spy_oo_object_functions->mt_source.
@ -1232,9 +1232,9 @@ CLASS ltcl_serialize_interface IMPLEMENTATION.
METHOD should_serialize_descriptions. METHOD should_serialize_descriptions.
DATA: DATA:
lt_descriptions TYPE lif_defs=>ty_seocompotx_tt, lt_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt,
lt_actual_descriptions TYPE lif_defs=>ty_seocompotx_tt, lt_actual_descriptions TYPE zif_abapgit_definitions=>ty_seocompotx_tt,
ls_description TYPE LINE OF lif_defs=>ty_seocompotx_tt. ls_description TYPE LINE OF zif_abapgit_definitions=>ty_seocompotx_tt.
ls_description-clsname = 'class'. ls_description-clsname = 'class'.
APPEND ls_description TO lt_descriptions. APPEND ls_description TO lt_descriptions.

42
src/zabapgit_unit_test_transport.prog.abap
View File

@ -34,12 +34,12 @@ CLASS ltcl_transport_objects DEFINITION FOR TESTING.
iv_filename TYPE string iv_filename TYPE string
iv_path TYPE string iv_path TYPE string
iv_data TYPE string iv_data TYPE string
RETURNING VALUE(rs_local_file) TYPE lif_defs=>ty_file_item, RETURNING VALUE(rs_local_file) TYPE zif_abapgit_definitions=>ty_file_item,
when_staging when_staging
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
then_file_should_be_added then_file_should_be_added
IMPORTING IMPORTING
is_local_file TYPE lif_defs=>ty_file_item, is_local_file TYPE zif_abapgit_definitions=>ty_file_item,
then_it_should_raise_exception then_it_should_raise_exception
IMPORTING IMPORTING
with_text TYPE string, with_text TYPE string,
@ -50,8 +50,8 @@ CLASS ltcl_transport_objects DEFINITION FOR TESTING.
DATA: mo_transport_objects TYPE REF TO lcl_transport_objects, DATA: mo_transport_objects TYPE REF TO lcl_transport_objects,
mt_transport_objects TYPE scts_tadir, mt_transport_objects TYPE scts_tadir,
mt_object_statuses TYPE lif_defs=>ty_results_tt, mt_object_statuses TYPE zif_abapgit_definitions=>ty_results_tt,
ms_stage_objects TYPE lif_defs=>ty_stage_files, ms_stage_objects TYPE zif_abapgit_definitions=>ty_stage_files,
mo_stage TYPE REF TO lcl_stage. mo_stage TYPE REF TO lcl_stage.
ENDCLASS. ENDCLASS.
@ -63,7 +63,7 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
iv_branch_sha1 = 'Branch_SH1'. iv_branch_sha1 = 'Branch_SH1'.
ENDMETHOD. ENDMETHOD.
METHOD add_new_to_local_files. METHOD add_new_to_local_files.
DATA ls_local_file TYPE lif_defs=>ty_file_item. DATA ls_local_file TYPE zif_abapgit_definitions=>ty_file_item.
given_the_transport_object( given_the_transport_object(
iv_obj_name = 'CL_FOO' iv_obj_name = 'CL_FOO'
@ -73,7 +73,7 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
iv_obj_name = 'CL_FOO' iv_obj_name = 'CL_FOO'
iv_obj_type = 'CLAS' iv_obj_type = 'CLAS'
iv_filename = 'CL_FOO.abap' iv_filename = 'CL_FOO.abap'
iv_lstate = lif_defs=>gc_state-added ). iv_lstate = zif_abapgit_definitions=>gc_state-added ).
ls_local_file = given_the_local_file( ls_local_file = given_the_local_file(
iv_obj_name = 'CL_FOO' iv_obj_name = 'CL_FOO'
@ -87,7 +87,7 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
then_file_should_be_added( ls_local_file ). then_file_should_be_added( ls_local_file ).
ENDMETHOD. ENDMETHOD.
METHOD modified_to_new_local_files. METHOD modified_to_new_local_files.
DATA ls_local_file TYPE lif_defs=>ty_file_item. DATA ls_local_file TYPE zif_abapgit_definitions=>ty_file_item.
given_the_transport_object( given_the_transport_object(
iv_obj_name = 'CL_FOO' iv_obj_name = 'CL_FOO'
iv_obj_type = 'CLAS' ). iv_obj_type = 'CLAS' ).
@ -96,7 +96,7 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
iv_obj_name = 'CL_FOO' iv_obj_name = 'CL_FOO'
iv_obj_type = 'CLAS' iv_obj_type = 'CLAS'
iv_filename = 'CL_FOO.abap' iv_filename = 'CL_FOO.abap'
iv_lstate = lif_defs=>gc_state-modified ). iv_lstate = zif_abapgit_definitions=>gc_state-modified ).
ls_local_file = given_the_local_file( ls_local_file = given_the_local_file(
iv_obj_name = 'CL_FOO' iv_obj_name = 'CL_FOO'
@ -111,8 +111,8 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD should_add_all_local_files. METHOD should_add_all_local_files.
"Not only .abap, but also .xml and other includes "Not only .abap, but also .xml and other includes
DATA ls_abap_local_file TYPE lif_defs=>ty_file_item. DATA ls_abap_local_file TYPE zif_abapgit_definitions=>ty_file_item.
DATA ls_xml_local_file TYPE lif_defs=>ty_file_item. DATA ls_xml_local_file TYPE zif_abapgit_definitions=>ty_file_item.
given_the_transport_object( given_the_transport_object(
iv_obj_name = 'CL_FOO' iv_obj_name = 'CL_FOO'
@ -122,13 +122,13 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
iv_obj_name = 'CL_FOO' iv_obj_name = 'CL_FOO'
iv_obj_type = 'CLAS' iv_obj_type = 'CLAS'
iv_filename = 'CL_FOO.abap' iv_filename = 'CL_FOO.abap'
iv_lstate = lif_defs=>gc_state-modified ). iv_lstate = zif_abapgit_definitions=>gc_state-modified ).
given_the_object_status( given_the_object_status(
iv_obj_name = 'CL_FOO' iv_obj_name = 'CL_FOO'
iv_obj_type = 'CLAS' iv_obj_type = 'CLAS'
iv_filename = 'CL_FOO.xml' iv_filename = 'CL_FOO.xml'
iv_lstate = lif_defs=>gc_state-modified ). iv_lstate = zif_abapgit_definitions=>gc_state-modified ).
ls_abap_local_file = given_the_local_file( ls_abap_local_file = given_the_local_file(
iv_obj_name = 'CL_FOO' iv_obj_name = 'CL_FOO'
@ -157,7 +157,7 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
given_the_object_status( given_the_object_status(
iv_obj_name = 'CL_FOO' iv_obj_name = 'CL_FOO'
iv_obj_type = 'CLAS' iv_obj_type = 'CLAS'
iv_lstate = lif_defs=>gc_state-added ). iv_lstate = zif_abapgit_definitions=>gc_state-added ).
then_it_should_raise_exception( then_it_should_raise_exception(
with_text = 'Object CL_A_CLASS_NOT_IN_REPO not found in the local repository files' ). with_text = 'Object CL_A_CLASS_NOT_IN_REPO not found in the local repository files' ).
@ -172,7 +172,7 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
given_the_object_status( given_the_object_status(
iv_obj_name = 'CL_FOO' iv_obj_name = 'CL_FOO'
iv_obj_type = 'CLAS' iv_obj_type = 'CLAS'
iv_lstate = lif_defs=>gc_state-added ). iv_lstate = zif_abapgit_definitions=>gc_state-added ).
given_the_local_file( given_the_local_file(
iv_obj_name = 'CL_ANOTHER_LOCAL_FILE' iv_obj_name = 'CL_ANOTHER_LOCAL_FILE'
@ -194,7 +194,7 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
given_the_object_status( given_the_object_status(
iv_obj_name = 'CL_FOO' iv_obj_name = 'CL_FOO'
iv_obj_type = 'CLAS' iv_obj_type = 'CLAS'
iv_lstate = lif_defs=>gc_state-added ). iv_lstate = zif_abapgit_definitions=>gc_state-added ).
then_it_should_raise_exception( then_it_should_raise_exception(
with_text = 'Object CL_FOO should be added/modified, but has deletion flag in transport' ). with_text = 'Object CL_FOO should be added/modified, but has deletion flag in transport' ).
@ -209,7 +209,7 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
given_the_object_status( given_the_object_status(
iv_obj_name = 'CL_FOO' iv_obj_name = 'CL_FOO'
iv_obj_type = 'CLAS' iv_obj_type = 'CLAS'
iv_lstate = lif_defs=>gc_state-modified ). iv_lstate = zif_abapgit_definitions=>gc_state-modified ).
then_it_should_raise_exception( then_it_should_raise_exception(
with_text = 'Object CL_FOO should be added/modified, but has deletion flag in transport' ). with_text = 'Object CL_FOO should be added/modified, but has deletion flag in transport' ).
@ -225,7 +225,7 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
iv_obj_type = 'CLAS' iv_obj_type = 'CLAS'
iv_filename = 'CL_FOO.abap' iv_filename = 'CL_FOO.abap'
iv_path = '/a_path' iv_path = '/a_path'
iv_lstate = lif_defs=>gc_state-deleted ). iv_lstate = zif_abapgit_definitions=>gc_state-deleted ).
when_staging( ). when_staging( ).
@ -246,14 +246,14 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
iv_obj_type = 'CLAS' iv_obj_type = 'CLAS'
iv_filename = 'CL_FOO.abap' iv_filename = 'CL_FOO.abap'
iv_path = '/a_path' iv_path = '/a_path'
iv_lstate = lif_defs=>gc_state-deleted ). iv_lstate = zif_abapgit_definitions=>gc_state-deleted ).
given_the_object_status( given_the_object_status(
iv_obj_name = 'CL_FOO' iv_obj_name = 'CL_FOO'
iv_obj_type = 'CLAS' iv_obj_type = 'CLAS'
iv_filename = 'CL_FOO.xml' iv_filename = 'CL_FOO.xml'
iv_path = '/a_path' iv_path = '/a_path'
iv_lstate = lif_defs=>gc_state-deleted ). iv_lstate = zif_abapgit_definitions=>gc_state-deleted ).
when_staging( ). when_staging( ).
@ -277,7 +277,7 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
iv_obj_type = 'CLAS' iv_obj_type = 'CLAS'
iv_filename = 'CL_FOO.abap' iv_filename = 'CL_FOO.abap'
iv_path = '/a_path' iv_path = '/a_path'
iv_lstate = lif_defs=>gc_state-deleted ). iv_lstate = zif_abapgit_definitions=>gc_state-deleted ).
then_it_should_raise_exception( then_it_should_raise_exception(
with_text = 'Object CL_FOO should be removed, but has NO deletion flag in transport' ). with_text = 'Object CL_FOO should be removed, but has NO deletion flag in transport' ).
@ -292,7 +292,7 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD given_the_object_status. METHOD given_the_object_status.
DATA ls_object_status TYPE lif_defs=>ty_result. DATA ls_object_status TYPE zif_abapgit_definitions=>ty_result.
ls_object_status-obj_name = iv_obj_name. ls_object_status-obj_name = iv_obj_name.
ls_object_status-obj_type = iv_obj_type. ls_object_status-obj_type = iv_obj_type.
ls_object_status-filename = iv_filename. ls_object_status-filename = iv_filename.

16
src/zabapgit_util.prog.abap
View File

@ -72,7 +72,7 @@ CLASS lcl_state IMPLEMENTATION.
ELSEIF cv_prev IS INITIAL. ELSEIF cv_prev IS INITIAL.
cv_prev = iv_cur. cv_prev = iv_cur.
ELSE. ELSE.
cv_prev = lif_defs=>gc_state-mixed. cv_prev = zif_abapgit_definitions=>gc_state-mixed.
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -93,7 +93,7 @@ CLASS lcl_convert DEFINITION FINAL.
CLASS-METHODS x_to_bitbyte CLASS-METHODS x_to_bitbyte
IMPORTING iv_x TYPE x IMPORTING iv_x TYPE x
RETURNING VALUE(rv_bitbyte) TYPE lif_defs=>ty_bitbyte. RETURNING VALUE(rv_bitbyte) TYPE zif_abapgit_definitions=>ty_bitbyte.
CLASS-METHODS string_to_xstring_utf8 CLASS-METHODS string_to_xstring_utf8
IMPORTING iv_string TYPE string IMPORTING iv_string TYPE string
@ -254,14 +254,14 @@ CLASS lcl_hash DEFINITION FINAL.
RETURNING VALUE(rv_checksum) TYPE ty_adler32. RETURNING VALUE(rv_checksum) TYPE ty_adler32.
CLASS-METHODS sha1 CLASS-METHODS sha1
IMPORTING iv_type TYPE lif_defs=>ty_type IMPORTING iv_type TYPE zif_abapgit_definitions=>ty_type
iv_data TYPE xstring iv_data TYPE xstring
RETURNING VALUE(rv_sha1) TYPE lif_defs=>ty_sha1 RETURNING VALUE(rv_sha1) TYPE zif_abapgit_definitions=>ty_sha1
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS sha1_raw CLASS-METHODS sha1_raw
IMPORTING iv_data TYPE xstring IMPORTING iv_data TYPE xstring
RETURNING VALUE(rv_sha1) TYPE lif_defs=>ty_sha1 RETURNING VALUE(rv_sha1) TYPE zif_abapgit_definitions=>ty_sha1
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_hash DEFINITION ENDCLASS. "lcl_hash DEFINITION
@ -593,7 +593,7 @@ CLASS lcl_diff DEFINITION FINAL.
update TYPE i, update TYPE i,
END OF ty_count. END OF ty_count.
DATA mt_beacons TYPE lif_defs=>ty_string_tt READ-ONLY. DATA mt_beacons TYPE zif_abapgit_definitions=>ty_string_tt READ-ONLY.
* assumes data is UTF8 based with newlines * assumes data is UTF8 based with newlines
* only works with lines up to 255 characters * only works with lines up to 255 characters
@ -658,8 +658,8 @@ CLASS lcl_diff IMPLEMENTATION.
lv_new = lcl_convert=>xstring_to_string_utf8( iv_new ). lv_new = lcl_convert=>xstring_to_string_utf8( iv_new ).
lv_old = lcl_convert=>xstring_to_string_utf8( iv_old ). lv_old = lcl_convert=>xstring_to_string_utf8( iv_old ).
SPLIT lv_new AT lif_defs=>gc_newline INTO TABLE et_new. SPLIT lv_new AT zif_abapgit_definitions=>gc_newline INTO TABLE et_new.
SPLIT lv_old AT lif_defs=>gc_newline INTO TABLE et_old. SPLIT lv_old AT zif_abapgit_definitions=>gc_newline INTO TABLE et_old.
ENDMETHOD. "unpack ENDMETHOD. "unpack

84
src/zabapgit_view_repo.prog.abap
View File

@ -102,21 +102,21 @@ CLASS lcl_gui_view_repo IMPLEMENTATION.
CASE iv_action. CASE iv_action.
WHEN c_actions-toggle_hide_files. " Toggle file diplay WHEN c_actions-toggle_hide_files. " Toggle file diplay
mv_hide_files = lcl_app=>user( )->toggle_hide_files( ). mv_hide_files = lcl_app=>user( )->toggle_hide_files( ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN c_actions-change_dir. " Change dir WHEN c_actions-change_dir. " Change dir
lv_path = lcl_html_action_utils=>dir_decode( iv_getdata ). lv_path = lcl_html_action_utils=>dir_decode( iv_getdata ).
mv_cur_dir = lcl_path=>change_dir( iv_cur_dir = mv_cur_dir iv_cd = lv_path ). mv_cur_dir = lcl_path=>change_dir( iv_cur_dir = mv_cur_dir iv_cd = lv_path ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN c_actions-toggle_folders. " Toggle folder view WHEN c_actions-toggle_folders. " Toggle folder view
mv_show_folders = boolc( mv_show_folders <> abap_true ). mv_show_folders = boolc( mv_show_folders <> abap_true ).
mv_cur_dir = '/'. " Root mv_cur_dir = '/'. " Root
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN c_actions-toggle_changes. " Toggle changes only view WHEN c_actions-toggle_changes. " Toggle changes only view
mv_changes_only = lcl_app=>user( )->toggle_changes_only( ). mv_changes_only = lcl_app=>user( )->toggle_changes_only( ).
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
WHEN c_actions-display_more. " Increase MAX lines limit WHEN c_actions-display_more. " Increase MAX lines limit
mv_max_lines = mv_max_lines + mv_max_setting. mv_max_lines = mv_max_lines + mv_max_setting.
ev_state = lif_defs=>gc_event_state-re_render. ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
ENDCASE. ENDCASE.
ENDMETHOD. "lif_gui_page~on_event ENDMETHOD. "lif_gui_page~on_event
@ -201,7 +201,7 @@ CLASS lcl_gui_view_repo IMPLEMENTATION.
ro_html->add( |Only { lv_max_str } shown in list. Display { ro_html->add( |Only { lv_max_str } shown in list. Display {
lcl_html=>a( iv_txt = lv_add_str iv_act = c_actions-display_more ) lcl_html=>a( iv_txt = lv_add_str iv_act = c_actions-display_more )
} more. (Set in Advanced > { } more. (Set in Advanced > {
lcl_html=>a( iv_txt = 'Settings' iv_act = lif_defs=>gc_action-go_settings ) lcl_html=>a( iv_txt = 'Settings' iv_act = zif_abapgit_definitions=>gc_action-go_settings )
} )| ). } )| ).
ro_html->add( '</div>' ). ro_html->add( '</div>' ).
ENDIF. ENDIF.
@ -265,9 +265,9 @@ CLASS lcl_gui_view_repo IMPLEMENTATION.
DATA: lo_tb_advanced TYPE REF TO lcl_html_toolbar, DATA: lo_tb_advanced TYPE REF TO lcl_html_toolbar,
lo_tb_branch TYPE REF TO lcl_html_toolbar, lo_tb_branch TYPE REF TO lcl_html_toolbar,
lv_key TYPE lcl_persistence_db=>ty_value, lv_key TYPE lcl_persistence_db=>ty_value,
lv_wp_opt LIKE lif_defs=>gc_html_opt-crossout, lv_wp_opt LIKE zif_abapgit_definitions=>gc_html_opt-crossout,
lv_crossout LIKE lif_defs=>gc_html_opt-crossout, lv_crossout LIKE zif_abapgit_definitions=>gc_html_opt-crossout,
lv_pull_opt LIKE lif_defs=>gc_html_opt-crossout. lv_pull_opt LIKE zif_abapgit_definitions=>gc_html_opt-crossout.
CREATE OBJECT ro_toolbar. CREATE OBJECT ro_toolbar.
CREATE OBJECT lo_tb_branch. CREATE OBJECT lo_tb_branch.
@ -276,60 +276,60 @@ CLASS lcl_gui_view_repo IMPLEMENTATION.
lv_key = mo_repo->get_key( ). lv_key = mo_repo->get_key( ).
IF mo_repo->is_write_protected( ) = abap_true. IF mo_repo->is_write_protected( ) = abap_true.
lv_wp_opt = lif_defs=>gc_html_opt-crossout. lv_wp_opt = zif_abapgit_definitions=>gc_html_opt-crossout.
lv_pull_opt = lif_defs=>gc_html_opt-crossout. lv_pull_opt = zif_abapgit_definitions=>gc_html_opt-crossout.
ELSE. ELSE.
lv_pull_opt = lif_defs=>gc_html_opt-strong. lv_pull_opt = zif_abapgit_definitions=>gc_html_opt-strong.
ENDIF. ENDIF.
" Build branch drop-down ======================== " Build branch drop-down ========================
IF mo_repo->is_offline( ) = abap_false. " Online ? IF mo_repo->is_offline( ) = abap_false. " Online ?
lo_tb_branch->add( iv_txt = 'Overview' lo_tb_branch->add( iv_txt = 'Overview'
iv_act = |{ lif_defs=>gc_action-go_branch_overview }?{ lv_key }| ). iv_act = |{ zif_abapgit_definitions=>gc_action-go_branch_overview }?{ lv_key }| ).
lo_tb_branch->add( iv_txt = 'Switch' lo_tb_branch->add( iv_txt = 'Switch'
iv_act = |{ lif_defs=>gc_action-git_branch_switch }?{ lv_key }| iv_act = |{ zif_abapgit_definitions=>gc_action-git_branch_switch }?{ lv_key }|
iv_opt = lv_wp_opt ). iv_opt = lv_wp_opt ).
lo_tb_branch->add( iv_txt = 'Create' lo_tb_branch->add( iv_txt = 'Create'
iv_act = |{ lif_defs=>gc_action-git_branch_create }?{ lv_key }| ). iv_act = |{ zif_abapgit_definitions=>gc_action-git_branch_create }?{ lv_key }| ).
lo_tb_branch->add( iv_txt = 'Delete' lo_tb_branch->add( iv_txt = 'Delete'
iv_act = |{ lif_defs=>gc_action-git_branch_delete }?{ lv_key }| ). iv_act = |{ zif_abapgit_definitions=>gc_action-git_branch_delete }?{ lv_key }| ).
ENDIF. ENDIF.
" Build advanced drop-down ======================== " Build advanced drop-down ========================
IF mo_repo->is_offline( ) = abap_false. " Online ? IF mo_repo->is_offline( ) = abap_false. " Online ?
lo_tb_advanced->add( iv_txt = 'Reset local' lo_tb_advanced->add( iv_txt = 'Reset local'
iv_act = |{ lif_defs=>gc_action-git_reset }?{ lv_key }| iv_act = |{ zif_abapgit_definitions=>gc_action-git_reset }?{ lv_key }|
iv_opt = lv_wp_opt ). iv_opt = lv_wp_opt ).
lo_tb_advanced->add( iv_txt = 'Background mode' lo_tb_advanced->add( iv_txt = 'Background mode'
iv_act = |{ lif_defs=>gc_action-go_background }?{ lv_key }| ). iv_act = |{ zif_abapgit_definitions=>gc_action-go_background }?{ lv_key }| ).
lo_tb_advanced->add( iv_txt = 'Change remote' lo_tb_advanced->add( iv_txt = 'Change remote'
iv_act = |{ lif_defs=>gc_action-repo_remote_change }?{ lv_key }| ). iv_act = |{ zif_abapgit_definitions=>gc_action-repo_remote_change }?{ lv_key }| ).
lo_tb_advanced->add( iv_txt = 'Make off-line' lo_tb_advanced->add( iv_txt = 'Make off-line'
iv_act = |{ lif_defs=>gc_action-repo_remote_detach }?{ lv_key }| ). iv_act = |{ zif_abapgit_definitions=>gc_action-repo_remote_detach }?{ lv_key }| ).
lo_tb_advanced->add( iv_txt = 'Force stage' lo_tb_advanced->add( iv_txt = 'Force stage'
iv_act = |{ lif_defs=>gc_action-go_stage }?{ lv_key }| ). iv_act = |{ zif_abapgit_definitions=>gc_action-go_stage }?{ lv_key }| ).
lo_tb_advanced->add( iv_txt = 'Transport to Branch' lo_tb_advanced->add( iv_txt = 'Transport to Branch'
iv_act = |{ lif_defs=>gc_action-repo_transport_to_branch }?{ lv_key }| ). iv_act = |{ zif_abapgit_definitions=>gc_action-repo_transport_to_branch }?{ lv_key }| ).
ELSE. ELSE.
lo_tb_advanced->add( iv_txt = 'Make on-line' lo_tb_advanced->add( iv_txt = 'Make on-line'
iv_act = |{ lif_defs=>gc_action-repo_remote_attach }?{ lv_key }| ). iv_act = |{ zif_abapgit_definitions=>gc_action-repo_remote_attach }?{ lv_key }| ).
ENDIF. ENDIF.
lo_tb_advanced->add( iv_txt = 'Syntax Check' lo_tb_advanced->add( iv_txt = 'Syntax Check'
iv_act = |{ lif_defs=>gc_action-repo_syntax_check }?{ lv_key }| ). iv_act = |{ zif_abapgit_definitions=>gc_action-repo_syntax_check }?{ lv_key }| ).
lo_tb_advanced->add( iv_txt = 'Repo settings' lo_tb_advanced->add( iv_txt = 'Repo settings'
iv_act = |{ lif_defs=>gc_action-repo_settings }?{ lv_key }| ). iv_act = |{ zif_abapgit_definitions=>gc_action-repo_settings }?{ lv_key }| ).
lo_tb_advanced->add( iv_txt = 'Update local checksums' lo_tb_advanced->add( iv_txt = 'Update local checksums'
iv_act = |{ lif_defs=>gc_action-repo_refresh_checksums }?{ lv_key }| ). iv_act = |{ zif_abapgit_definitions=>gc_action-repo_refresh_checksums }?{ lv_key }| ).
lo_tb_advanced->add( iv_txt = 'Remove' lo_tb_advanced->add( iv_txt = 'Remove'
iv_act = |{ lif_defs=>gc_action-repo_remove }?{ lv_key }| ). iv_act = |{ zif_abapgit_definitions=>gc_action-repo_remove }?{ lv_key }| ).
CLEAR lv_crossout. CLEAR lv_crossout.
IF mo_repo->is_write_protected( ) = abap_true IF mo_repo->is_write_protected( ) = abap_true
OR lcl_auth=>is_allowed( lif_auth=>gc_authorization-uninstall ) = abap_false. OR lcl_auth=>is_allowed( lif_auth=>gc_authorization-uninstall ) = abap_false.
lv_crossout = lif_defs=>gc_html_opt-crossout. lv_crossout = zif_abapgit_definitions=>gc_html_opt-crossout.
ENDIF. ENDIF.
lo_tb_advanced->add( iv_txt = 'Uninstall' lo_tb_advanced->add( iv_txt = 'Uninstall'
iv_act = |{ lif_defs=>gc_action-repo_purge }?{ lv_key }| iv_act = |{ zif_abapgit_definitions=>gc_action-repo_purge }?{ lv_key }|
iv_opt = lv_crossout ). iv_opt = lv_crossout ).
" Build main toolbar ============================== " Build main toolbar ==============================
@ -337,18 +337,18 @@ CLASS lcl_gui_view_repo IMPLEMENTATION.
TRY. TRY.
IF iv_rstate IS NOT INITIAL. " Something new at remote IF iv_rstate IS NOT INITIAL. " Something new at remote
ro_toolbar->add( iv_txt = 'Pull' ro_toolbar->add( iv_txt = 'Pull'
iv_act = |{ lif_defs=>gc_action-git_pull }?{ lv_key }| iv_act = |{ zif_abapgit_definitions=>gc_action-git_pull }?{ lv_key }|
iv_opt = lv_pull_opt ). iv_opt = lv_pull_opt ).
ENDIF. ENDIF.
IF iv_lstate IS NOT INITIAL. " Something new at local IF iv_lstate IS NOT INITIAL. " Something new at local
ro_toolbar->add( iv_txt = 'Stage' ro_toolbar->add( iv_txt = 'Stage'
iv_act = |{ lif_defs=>gc_action-go_stage }?{ lv_key }| iv_act = |{ zif_abapgit_definitions=>gc_action-go_stage }?{ lv_key }|
iv_opt = lif_defs=>gc_html_opt-strong ). iv_opt = zif_abapgit_definitions=>gc_html_opt-strong ).
ENDIF. ENDIF.
IF iv_rstate IS NOT INITIAL OR iv_lstate IS NOT INITIAL. " Any changes IF iv_rstate IS NOT INITIAL OR iv_lstate IS NOT INITIAL. " Any changes
ro_toolbar->add( iv_txt = 'Show diff' ro_toolbar->add( iv_txt = 'Show diff'
iv_act = |{ lif_defs=>gc_action-go_diff }?key={ lv_key }| iv_act = |{ zif_abapgit_definitions=>gc_action-go_diff }?key={ lv_key }|
iv_opt = lif_defs=>gc_html_opt-strong ). iv_opt = zif_abapgit_definitions=>gc_html_opt-strong ).
ENDIF. ENDIF.
CATCH zcx_abapgit_exception ##NO_HANDLER. CATCH zcx_abapgit_exception ##NO_HANDLER.
" authorization error or repository does not exist " authorization error or repository does not exist
@ -358,17 +358,17 @@ CLASS lcl_gui_view_repo IMPLEMENTATION.
io_sub = lo_tb_branch ) ##NO_TEXT. io_sub = lo_tb_branch ) ##NO_TEXT.
ELSE. ELSE.
ro_toolbar->add( iv_txt = 'Import ZIP' ro_toolbar->add( iv_txt = 'Import ZIP'
iv_act = |{ lif_defs=>gc_action-zip_import }?{ lv_key }| iv_act = |{ zif_abapgit_definitions=>gc_action-zip_import }?{ lv_key }|
iv_opt = lif_defs=>gc_html_opt-strong ). iv_opt = zif_abapgit_definitions=>gc_html_opt-strong ).
ro_toolbar->add( iv_txt = 'Export ZIP' ro_toolbar->add( iv_txt = 'Export ZIP'
iv_act = |{ lif_defs=>gc_action-zip_export }?{ lv_key }| iv_act = |{ zif_abapgit_definitions=>gc_action-zip_export }?{ lv_key }|
iv_opt = lif_defs=>gc_html_opt-strong ). iv_opt = zif_abapgit_definitions=>gc_html_opt-strong ).
ENDIF. ENDIF.
ro_toolbar->add( iv_txt = 'Advanced' ro_toolbar->add( iv_txt = 'Advanced'
io_sub = lo_tb_advanced ) ##NO_TEXT. io_sub = lo_tb_advanced ) ##NO_TEXT.
ro_toolbar->add( iv_txt = 'Refresh' ro_toolbar->add( iv_txt = 'Refresh'
iv_act = |{ lif_defs=>gc_action-repo_refresh }?{ lv_key }| ). iv_act = |{ zif_abapgit_definitions=>gc_action-repo_refresh }?{ lv_key }| ).
ro_toolbar->add( iv_txt = lcl_html=>icon( iv_name = 'settings/grey70' ) ro_toolbar->add( iv_txt = lcl_html=>icon( iv_name = 'settings/grey70' )
io_sub = build_grid_menu( ) ). io_sub = build_grid_menu( ) ).
@ -497,7 +497,7 @@ CLASS lcl_gui_view_repo IMPLEMENTATION.
ro_html->add( '<div>' ). ro_html->add( '<div>' ).
ro_html->add_a( iv_txt = |view diff ({ is_item-changes })| ro_html->add_a( iv_txt = |view diff ({ is_item-changes })|
iv_act = |{ lif_defs=>gc_action-go_diff }?{ lv_difflink }| ). iv_act = |{ zif_abapgit_definitions=>gc_action-go_diff }?{ lv_difflink }| ).
ro_html->add( lcl_gui_chunk_lib=>render_item_state( iv1 = is_item-lstate ro_html->add( lcl_gui_chunk_lib=>render_item_state( iv1 = is_item-lstate
iv2 = is_item-rstate ) ). iv2 = is_item-rstate ) ).
ro_html->add( '</div>' ). ro_html->add( '</div>' ).
@ -511,7 +511,7 @@ CLASS lcl_gui_view_repo IMPLEMENTATION.
iv_key = mo_repo->get_key( ) iv_key = mo_repo->get_key( )
ig_file = ls_file ). ig_file = ls_file ).
ro_html->add_a( iv_txt = 'view diff' ro_html->add_a( iv_txt = 'view diff'
iv_act = |{ lif_defs=>gc_action-go_diff }?{ lv_difflink }| ). iv_act = |{ zif_abapgit_definitions=>gc_action-go_diff }?{ lv_difflink }| ).
ro_html->add( lcl_gui_chunk_lib=>render_item_state( iv1 = ls_file-lstate ro_html->add( lcl_gui_chunk_lib=>render_item_state( iv1 = ls_file-lstate
iv2 = ls_file-rstate ) ). iv2 = ls_file-rstate ) ).
ELSE. ELSE.
@ -570,7 +570,7 @@ CLASS lcl_gui_view_repo IMPLEMENTATION.
iv_obj_name = is_item-obj_name ). iv_obj_name = is_item-obj_name ).
rv_html = lcl_html=>a( iv_txt = |{ is_item-obj_name }| rv_html = lcl_html=>a( iv_txt = |{ is_item-obj_name }|
iv_act = |{ lif_defs=>gc_action-jump }?{ lv_encode }| ). iv_act = |{ zif_abapgit_definitions=>gc_action-jump }?{ lv_encode }| ).
ENDMETHOD. "build_obj_jump_link ENDMETHOD. "build_obj_jump_link

13
src/zabapgit_view_tutorial.prog.abap
View File

@ -16,7 +16,7 @@ ENDCLASS. "lcl_gui_view_tutorial
CLASS lcl_gui_view_tutorial IMPLEMENTATION. CLASS lcl_gui_view_tutorial IMPLEMENTATION.
METHOD lif_gui_page~on_event. METHOD lif_gui_page~on_event.
ev_state = lif_defs=>gc_event_state-not_handled. ev_state = zif_abapgit_definitions=>gc_event_state-not_handled.
ENDMETHOD. " lif_gui_page~on_event. ENDMETHOD. " lif_gui_page~on_event.
METHOD lif_gui_page~render. METHOD lif_gui_page~render.
@ -40,17 +40,17 @@ CLASS lcl_gui_view_tutorial IMPLEMENTATION.
ro_html->add( '<p><ul>' ). ro_html->add( '<p><ul>' ).
ro_html->add( `<li>To clone a remote repo (e.g. from github) click ` ). ro_html->add( `<li>To clone a remote repo (e.g. from github) click ` ).
ro_html->add_a( iv_txt = '+ Clone' iv_act = lif_defs=>gc_action-repo_clone ). ro_html->add_a( iv_txt = '+ Clone' iv_act = zif_abapgit_definitions=>gc_action-repo_clone ).
ro_html->add( ' from the top menu. This will copy a remote repo to your system.</li>' ). ro_html->add( ' from the top menu. This will copy a remote repo to your system.</li>' ).
ro_html->add( `<li>To add a local package as a repo click ` ). ro_html->add( `<li>To add a local package as a repo click ` ).
ro_html->add_a( iv_txt = '+ Offline' iv_act = lif_defs=>gc_action-repo_newoffline ). ro_html->add_a( iv_txt = '+ Offline' iv_act = zif_abapgit_definitions=>gc_action-repo_newoffline ).
ro_html->add( ' from the top menu. This will track a repo which already exist in' ). ro_html->add( ' from the top menu. This will track a repo which already exist in' ).
ro_html->add( ' the system with abapGit. You''ll be able to attach it to remote origin' ). ro_html->add( ' the system with abapGit. You''ll be able to attach it to remote origin' ).
ro_html->add( ' or just serialize as a zip file</li>' ). ro_html->add( ' or just serialize as a zip file</li>' ).
ro_html->add( `<li>Go ` ). ro_html->add( `<li>Go ` ).
ro_html->add_a( iv_txt = 'Explore' iv_act = lif_defs=>gc_action-go_explore ). ro_html->add_a( iv_txt = 'Explore' iv_act = zif_abapgit_definitions=>gc_action-go_explore ).
ro_html->add( ' to find projects using abapGit</li>' ). ro_html->add( ' to find projects using abapGit</li>' ).
ro_html->add( '</ul></p>' ). ro_html->add( '</ul></p>' ).
@ -70,7 +70,7 @@ CLASS lcl_gui_view_tutorial IMPLEMENTATION.
ro_html->add( 'abapGit installed in package&nbsp;' ). ro_html->add( 'abapGit installed in package&nbsp;' ).
ro_html->add( lcl_services_abapgit=>c_package_abapgit ). ro_html->add( lcl_services_abapgit=>c_package_abapgit ).
ELSE. ELSE.
ro_html->add_a( iv_txt = 'install abapGit repo' iv_act = lif_defs=>gc_action-abapgit_install ). ro_html->add_a( iv_txt = 'install abapGit repo' iv_act = zif_abapgit_definitions=>gc_action-abapgit_install ).
ro_html->add( ' - To keep abapGit up-to-date (or also to contribute) you need to' ). ro_html->add( ' - To keep abapGit up-to-date (or also to contribute) you need to' ).
ro_html->add( 'install it as a repository.' ). ro_html->add( 'install it as a repository.' ).
ENDIF. ENDIF.
@ -80,7 +80,8 @@ CLASS lcl_gui_view_tutorial IMPLEMENTATION.
ro_html->add( 'abapGit plugins installed in package&nbsp;' ). ro_html->add( 'abapGit plugins installed in package&nbsp;' ).
ro_html->add( lcl_services_abapgit=>c_package_plugins ). ro_html->add( lcl_services_abapgit=>c_package_plugins ).
ELSE. ELSE.
ro_html->add_a( iv_txt = 'install abapGit plugins' iv_act = lif_defs=>gc_action-abapgit_install_pi ). ro_html->add_a( iv_txt = 'install abapGit plugins'
iv_act = zif_abapgit_definitions=>gc_action-abapgit_install_pi ).
ro_html->add( ' - you can also install plugins to extend supported object types' ). ro_html->add( ' - you can also install plugins to extend supported object types' ).
ENDIF. ENDIF.
ro_html->add( '</li>' ). ro_html->add( '</li>' ).

12
src/zabapgit_xml.prog.abap
View File

@ -16,7 +16,7 @@ CLASS lcl_xml DEFINITION ABSTRACT.
PROTECTED SECTION. PROTECTED SECTION.
DATA: mi_ixml TYPE REF TO if_ixml, DATA: mi_ixml TYPE REF TO if_ixml,
mi_xml_doc TYPE REF TO if_ixml_document, mi_xml_doc TYPE REF TO if_ixml_document,
ms_metadata TYPE lif_defs=>ty_metadata. ms_metadata TYPE zif_abapgit_definitions=>ty_metadata.
CONSTANTS: c_abapgit_tag TYPE string VALUE 'abapGit' ##NO_TEXT, CONSTANTS: c_abapgit_tag TYPE string VALUE 'abapGit' ##NO_TEXT,
c_attr_version TYPE string VALUE 'version' ##NO_TEXT, c_attr_version TYPE string VALUE 'version' ##NO_TEXT,
@ -81,7 +81,7 @@ CLASS lcl_xml IMPLEMENTATION.
li_element = mi_xml_doc->find_from_name_ns( depth = 0 name = c_abapgit_tag ). li_element = mi_xml_doc->find_from_name_ns( depth = 0 name = c_abapgit_tag ).
li_version = li_element->if_ixml_node~get_attributes( li_version = li_element->if_ixml_node~get_attributes(
)->get_named_item_ns( c_attr_version ) ##no_text. )->get_named_item_ns( c_attr_version ) ##no_text.
IF li_version->get_value( ) <> lif_defs=>gc_xml_version. IF li_version->get_value( ) <> zif_abapgit_definitions=>gc_xml_version.
display_xml_error( ). display_xml_error( ).
ENDIF. ENDIF.
@ -96,7 +96,7 @@ CLASS lcl_xml IMPLEMENTATION.
DATA: lv_version TYPE string. DATA: lv_version TYPE string.
lv_version = |abapGit version: { lif_defs=>gc_abap_version }|. lv_version = |abapGit version: { zif_abapgit_definitions=>gc_abap_version }|.
CALL FUNCTION 'POPUP_TO_INFORM' CALL FUNCTION 'POPUP_TO_INFORM'
EXPORTING EXPORTING
@ -187,7 +187,7 @@ CLASS lcl_xml_output DEFINITION FINAL INHERITING FROM lcl_xml CREATE PUBLIC.
RETURNING VALUE(ri_element) TYPE REF TO if_ixml_element, RETURNING VALUE(ri_element) TYPE REF TO if_ixml_element,
render render
IMPORTING iv_normalize TYPE sap_bool DEFAULT abap_true IMPORTING iv_normalize TYPE sap_bool DEFAULT abap_true
is_metadata TYPE lif_defs=>ty_metadata OPTIONAL is_metadata TYPE zif_abapgit_definitions=>ty_metadata OPTIONAL
RETURNING VALUE(rv_xml) TYPE string. RETURNING VALUE(rv_xml) TYPE string.
PRIVATE SECTION. PRIVATE SECTION.
@ -270,7 +270,7 @@ CLASS lcl_xml_output IMPLEMENTATION.
ENDIF. ENDIF.
li_git = mi_xml_doc->create_element( c_abapgit_tag ). li_git = mi_xml_doc->create_element( c_abapgit_tag ).
li_git->set_attribute( name = c_attr_version value = lif_defs=>gc_xml_version ). li_git->set_attribute( name = c_attr_version value = zif_abapgit_definitions=>gc_xml_version ).
IF NOT is_metadata IS INITIAL. IF NOT is_metadata IS INITIAL.
li_git->set_attribute( name = c_attr_serializer li_git->set_attribute( name = c_attr_serializer
value = is_metadata-class ). value = is_metadata-class ).
@ -327,7 +327,7 @@ CLASS lcl_xml_input DEFINITION FINAL INHERITING FROM lcl_xml CREATE PUBLIC.
RETURNING VALUE(ri_raw) TYPE REF TO if_ixml_document, RETURNING VALUE(ri_raw) TYPE REF TO if_ixml_document,
* todo, add read_xml to match add_xml in lcl_xml_output * todo, add read_xml to match add_xml in lcl_xml_output
get_metadata get_metadata
RETURNING VALUE(rs_metadata) TYPE lif_defs=>ty_metadata. RETURNING VALUE(rs_metadata) TYPE zif_abapgit_definitions=>ty_metadata.
PRIVATE SECTION. PRIVATE SECTION.
METHODS: fix_xml. METHODS: fix_xml.

14
src/zabapgit_zip.prog.abap
View File

@ -32,11 +32,11 @@ CLASS lcl_zip DEFINITION FINAL.
CLASS-METHODS unzip_file CLASS-METHODS unzip_file
IMPORTING iv_xstr TYPE xstring IMPORTING iv_xstr TYPE xstring
RETURNING VALUE(rt_files) TYPE lif_defs=>ty_files_tt RETURNING VALUE(rt_files) TYPE zif_abapgit_definitions=>ty_files_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS normalize_path CLASS-METHODS normalize_path
CHANGING ct_files TYPE lif_defs=>ty_files_tt CHANGING ct_files TYPE zif_abapgit_definitions=>ty_files_tt
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS filename CLASS-METHODS filename
@ -51,7 +51,7 @@ CLASS lcl_zip DEFINITION FINAL.
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS encode_files CLASS-METHODS encode_files
IMPORTING it_files TYPE lif_defs=>ty_files_item_tt IMPORTING it_files TYPE zif_abapgit_definitions=>ty_files_item_tt
RETURNING VALUE(rv_xstr) TYPE xstring RETURNING VALUE(rv_xstr) TYPE xstring
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
@ -342,7 +342,7 @@ CLASS lcl_zip IMPLEMENTATION.
<ls_file>-data = lv_data. <ls_file>-data = lv_data.
<ls_file>-sha1 = lcl_hash=>sha1( iv_type = lif_defs=>gc_type-blob <ls_file>-sha1 = lcl_hash=>sha1( iv_type = zif_abapgit_definitions=>gc_type-blob
iv_data = <ls_file>-data ). iv_data = <ls_file>-data ).
ENDLOOP. ENDLOOP.
@ -354,7 +354,7 @@ CLASS lcl_zip IMPLEMENTATION.
METHOD export. METHOD export.
DATA: lo_log TYPE REF TO lcl_log, DATA: lo_log TYPE REF TO lcl_log,
lt_zip TYPE lif_defs=>ty_files_item_tt. lt_zip TYPE zif_abapgit_definitions=>ty_files_item_tt.
CREATE OBJECT lo_log. CREATE OBJECT lo_log.
@ -410,12 +410,12 @@ CLASS lcl_zip IMPLEMENTATION.
METHOD export_object. METHOD export_object.
DATA: ls_tadir TYPE tadir, DATA: ls_tadir TYPE tadir,
ls_item TYPE lif_defs=>ty_item, ls_item TYPE zif_abapgit_definitions=>ty_item,
lv_folder TYPE string, lv_folder TYPE string,
lv_fullpath TYPE string, lv_fullpath TYPE string,
lt_rawdata TYPE solix_tab, lt_rawdata TYPE solix_tab,
lv_sep TYPE c LENGTH 1, lv_sep TYPE c LENGTH 1,
lt_files TYPE lif_defs=>ty_files_tt. lt_files TYPE zif_abapgit_definitions=>ty_files_tt.
STATICS: lv_prev TYPE string. STATICS: lv_prev TYPE string.

262
src/zif_abapgit_definitions.intf.abap Normal file
View File

@ -0,0 +1,262 @@
INTERFACE zif_abapgit_definitions
PUBLIC .
TYPES:
ty_type TYPE c LENGTH 6 .
TYPES:
ty_bitbyte TYPE c LENGTH 8 .
TYPES:
ty_sha1 TYPE c LENGTH 40 .
TYPES:
BEGIN OF ty_file_signature,
path TYPE string,
filename TYPE string,
sha1 TYPE zif_abapgit_definitions=>ty_sha1,
END OF ty_file_signature .
TYPES:
ty_file_signatures_tt TYPE STANDARD TABLE OF
ty_file_signature WITH DEFAULT KEY .
TYPES:
ty_file_signatures_ts TYPE SORTED TABLE OF
ty_file_signature WITH UNIQUE KEY path filename .
TYPES:
BEGIN OF ty_file.
INCLUDE TYPE ty_file_signature.
TYPES: data TYPE xstring,
END OF ty_file .
TYPES:
ty_files_tt TYPE STANDARD TABLE OF ty_file WITH DEFAULT KEY .
TYPES:
ty_string_tt TYPE STANDARD TABLE OF string WITH DEFAULT KEY .
TYPES:
ty_icm_sinfo2_tt TYPE STANDARD TABLE OF icm_sinfo2 WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_git_user,
name TYPE string,
email TYPE string,
END OF ty_git_user .
TYPES:
BEGIN OF ty_comment,
committer TYPE ty_git_user,
author TYPE ty_git_user,
comment TYPE string,
END OF ty_comment .
TYPES:
BEGIN OF ty_item,
obj_type TYPE tadir-object,
obj_name TYPE tadir-obj_name,
devclass TYPE devclass,
END OF ty_item .
TYPES:
ty_items_tt TYPE STANDARD TABLE OF ty_item WITH DEFAULT KEY .
TYPES:
ty_items_ts TYPE SORTED TABLE OF ty_item WITH UNIQUE KEY obj_type obj_name .
TYPES:
BEGIN OF ty_file_item,
file TYPE zif_abapgit_definitions=>ty_file,
item TYPE ty_item,
END OF ty_file_item .
TYPES:
ty_files_item_tt TYPE STANDARD TABLE OF ty_file_item WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_metadata,
class TYPE string,
version TYPE string,
late_deser TYPE abap_bool,
delete_tadir TYPE abap_bool,
ddic TYPE abap_bool,
END OF ty_metadata .
TYPES:
BEGIN OF ty_web_asset,
url TYPE w3url,
base64 TYPE string,
content TYPE xstring,
END OF ty_web_asset .
TYPES:
tt_web_assets TYPE STANDARD TABLE OF ty_web_asset WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_repo_file,
path TYPE string,
filename TYPE string,
is_changed TYPE abap_bool,
rstate TYPE char1,
lstate TYPE char1,
END OF ty_repo_file .
TYPES:
tt_repo_files TYPE STANDARD TABLE OF ty_repo_file WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_stage_files,
local TYPE zif_abapgit_definitions=>ty_files_item_tt,
remote TYPE zif_abapgit_definitions=>ty_files_tt,
END OF ty_stage_files .
TYPES:
ty_chmod TYPE c LENGTH 6 .
TYPES:
BEGIN OF ty_object,
sha1 TYPE zif_abapgit_definitions=>ty_sha1,
type TYPE zif_abapgit_definitions=>ty_type,
data TYPE xstring,
END OF ty_object .
TYPES:
ty_objects_tt TYPE STANDARD TABLE OF ty_object WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_tadir,
pgmid TYPE tadir-pgmid,
object TYPE tadir-object,
obj_name TYPE tadir-obj_name,
devclass TYPE tadir-devclass,
korrnum TYPE tadir-korrnum,
path TYPE string,
END OF ty_tadir .
TYPES:
ty_tadir_tt TYPE STANDARD TABLE OF ty_tadir WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_result,
obj_type TYPE tadir-object,
obj_name TYPE tadir-obj_name,
path TYPE string,
filename TYPE string,
package TYPE devclass,
match TYPE sap_bool,
lstate TYPE char1,
rstate TYPE char1,
END OF ty_result .
TYPES:
ty_results_tt TYPE STANDARD TABLE OF ty_result WITH DEFAULT KEY .
TYPES:
ty_sval_tt TYPE STANDARD TABLE OF sval WITH DEFAULT KEY .
TYPES:
ty_seocompotx_tt TYPE STANDARD TABLE OF seocompotx WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_tpool.
INCLUDE TYPE textpool.
TYPES: split TYPE c LENGTH 8.
TYPES: END OF ty_tpool .
TYPES:
ty_tpool_tt TYPE STANDARD TABLE OF ty_tpool WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_sotr,
header TYPE sotr_head,
entries TYPE sotr_text_tt,
END OF ty_sotr .
TYPES:
ty_sotr_tt TYPE STANDARD TABLE OF ty_sotr WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_transport_to_branch,
branch_name TYPE string,
commit_text TYPE string,
END OF ty_transport_to_branch .
CONSTANTS gc_xml_version TYPE string VALUE 'v1.0.0' ##NO_TEXT.
CONSTANTS gc_abap_version TYPE string VALUE 'v1.43.1' ##NO_TEXT.
CONSTANTS:
BEGIN OF gc_type,
commit TYPE zif_abapgit_definitions=>ty_type VALUE 'commit', "#EC NOTEXT
tree TYPE zif_abapgit_definitions=>ty_type VALUE 'tree', "#EC NOTEXT
ref_d TYPE zif_abapgit_definitions=>ty_type VALUE 'ref_d', "#EC NOTEXT
blob TYPE zif_abapgit_definitions=>ty_type VALUE 'blob', "#EC NOTEXT
END OF gc_type .
CONSTANTS:
BEGIN OF gc_state, " https://git-scm.com/docs/git-status
unchanged TYPE char1 VALUE '',
added TYPE char1 VALUE 'A',
modified TYPE char1 VALUE 'M',
deleted TYPE char1 VALUE 'D', "For future use
mixed TYPE char1 VALUE '*',
END OF gc_state .
CONSTANTS:
BEGIN OF gc_chmod,
file TYPE ty_chmod VALUE '100644',
executable TYPE ty_chmod VALUE '100755',
dir TYPE ty_chmod VALUE '40000 ',
END OF gc_chmod .
CONSTANTS:
BEGIN OF gc_event_state,
not_handled VALUE 0,
re_render VALUE 1,
new_page VALUE 2,
go_back VALUE 3,
no_more_act VALUE 4,
new_page_w_bookmark VALUE 5,
go_back_to_bookmark VALUE 6,
new_page_replacing VALUE 7,
END OF gc_event_state .
CONSTANTS:
BEGIN OF gc_html_opt,
strong TYPE c VALUE 'E',
cancel TYPE c VALUE 'C',
crossout TYPE c VALUE 'X',
END OF gc_html_opt .
CONSTANTS:
BEGIN OF gc_action_type,
sapevent TYPE c VALUE 'E',
url TYPE c VALUE 'U',
onclick TYPE c VALUE 'C',
separator TYPE c VALUE 'S',
dummy TYPE c VALUE '_',
END OF gc_action_type .
CONSTANTS gc_crlf TYPE abap_cr_lf VALUE cl_abap_char_utilities=>cr_lf ##NO_TEXT.
CONSTANTS gc_newline TYPE abap_char1 VALUE cl_abap_char_utilities=>newline ##NO_TEXT.
CONSTANTS gc_english TYPE spras VALUE 'E' ##NO_TEXT.
CONSTANTS gc_root_dir TYPE string VALUE '/' ##NO_TEXT.
CONSTANTS gc_dot_abapgit TYPE string VALUE '.abapgit.xml' ##NO_TEXT.
CONSTANTS gc_author_regex TYPE string VALUE '^([\\\w\s\.@\-_1-9\(\) ]+) <(.*)> (\d{10})\s?.\d{4}$' ##NO_TEXT.
CONSTANTS:
BEGIN OF gc_action,
repo_clone TYPE string VALUE 'repo_clone',
repo_refresh TYPE string VALUE 'repo_refresh',
repo_remove TYPE string VALUE 'repo_remove',
repo_settings TYPE string VALUE 'repo_settings',
repo_purge TYPE string VALUE 'repo_purge',
repo_newoffline TYPE string VALUE 'repo_newoffline',
repo_remote_attach TYPE string VALUE 'repo_remote_attach',
repo_remote_detach TYPE string VALUE 'repo_remote_detach',
repo_remote_change TYPE string VALUE 'repo_remote_change',
repo_refresh_checksums TYPE string VALUE 'repo_refresh_checksums',
repo_toggle_fav TYPE string VALUE 'repo_toggle_fav',
repo_transport_to_branch TYPE string VALUE 'repo_transport_to_branch',
repo_syntax_check TYPE string VALUE 'repo_syntax_check',
abapgit_home TYPE string VALUE 'abapgit_home',
abapgit_wiki TYPE string VALUE 'abapgit_wiki',
abapgit_install TYPE string VALUE 'abapgit_install',
abapgit_install_pi TYPE string VALUE 'abapgit_install_pi',
zip_import TYPE string VALUE 'zip_import',
zip_export TYPE string VALUE 'zip_export',
zip_package TYPE string VALUE 'zip_package',
zip_transport TYPE string VALUE 'zip_transport',
zip_object TYPE string VALUE 'zip_object',
git_pull TYPE string VALUE 'git_pull',
git_reset TYPE string VALUE 'git_reset',
git_branch_create TYPE string VALUE 'git_branch_create',
git_branch_switch TYPE string VALUE 'git_branch_switch',
git_branch_delete TYPE string VALUE 'git_branch_delete',
git_commit TYPE string VALUE 'git_commit',
db_delete TYPE string VALUE 'db_delete',
db_update TYPE string VALUE 'db_update',
db_display TYPE string VALUE 'db_display',
db_edit TYPE string VALUE 'db_edit',
bg_update TYPE string VALUE 'bg_update',
go_main TYPE string VALUE 'go_main',
go_explore TYPE string VALUE 'go_explore',
go_db TYPE string VALUE 'go_db',
go_background TYPE string VALUE 'go_background',
go_background_run TYPE string VALUE 'go_background_run',
go_diff TYPE string VALUE 'go_diff',
go_stage TYPE string VALUE 'go_stage',
go_commit TYPE string VALUE 'go_commit',
go_branch_overview TYPE string VALUE 'go_branch_overview',
go_playground TYPE string VALUE 'go_playground',
go_debuginfo TYPE string VALUE 'go_debuginfo',
go_settings TYPE string VALUE 'go_settings',
go_tutorial TYPE string VALUE 'go_tutorial',
jump TYPE string VALUE 'jump',
jump_pkg TYPE string VALUE 'jump_pkg',
END OF gc_action .
ENDINTERFACE.

329
src/zif_abapgit_definitions.intf.xml Normal file
View File

@ -0,0 +1,329 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_INTF" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOINTERF>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<VERSION>1</VERSION>
<LANGU>E</LANGU>
<EXPOSURE>2</EXPOSURE>
<STATE>1</STATE>
<UNICODE>X</UNICODE>
</VSEOINTERF>
<DESCRIPTIONS>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>GC_ABAP_VERSION</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>GC_ABAP_VERSION</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>GC_ACTION</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>GC_ACTION</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>GC_ACTION_TYPE</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>GC_ACTION_TYPE</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>GC_AUTHOR_REGEX</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>GC_AUTHOR_REGEX</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>GC_CHMOD</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>GC_CHMOD</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>GC_CRLF</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>GC_CRLF</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>GC_DOT_ABAPGIT</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>GC_DOT_ABAPGIT</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>GC_ENGLISH</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>GC_ENGLISH</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>GC_EVENT_STATE</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>GC_EVENT_STATE</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>GC_HTML_OPT</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>GC_HTML_OPT</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>GC_NEWLINE</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>GC_NEWLINE</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>GC_ROOT_DIR</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>GC_ROOT_DIR</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>GC_STATE</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>GC_STATE</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>GC_TYPE</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>GC_TYPE</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>GC_XML_VERSION</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>GC_XML_VERSION</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TT_REPO_FILES</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TT_REPO_FILES</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TT_WEB_ASSETS</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TT_WEB_ASSETS</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_BITBYTE</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_BITBYTE</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_CHMOD</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_CHMOD</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_COMMENT</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_COMMENT</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_FILE</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_FILE</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_FILES_ITEM_TT</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_FILES_ITEM_TT</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_FILES_TT</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_FILES_TT</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_FILE_ITEM</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_FILE_ITEM</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_FILE_SIGNATURE</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_FILE_SIGNATURE</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_FILE_SIGNATURES_TS</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_FILE_SIGNATURES_TS</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_FILE_SIGNATURES_TT</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_FILE_SIGNATURES_TT</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_GIT_USER</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_GIT_USER</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_ICM_SINFO2_TT</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_ICM_SINFO2_TT</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_ITEM</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_ITEM</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_ITEMS_TS</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_ITEMS_TS</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_ITEMS_TT</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_ITEMS_TT</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_METADATA</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_METADATA</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_OBJECT</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_OBJECT</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_OBJECTS_TT</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_OBJECTS_TT</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_REPO_FILE</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_REPO_FILE</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_RESULT</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_RESULT</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_RESULTS_TT</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_RESULTS_TT</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_SEOCOMPOTX_TT</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_SEOCOMPOTX_TT</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_SHA1</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_SHA1</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_SOTR</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_SOTR</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_SOTR_TT</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_SOTR_TT</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_STAGE_FILES</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_STAGE_FILES</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_STRING_TT</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_STRING_TT</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_SVAL_TT</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_SVAL_TT</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_TADIR</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_TADIR</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_TADIR_TT</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_TADIR_TT</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_TPOOL</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_TPOOL</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_TPOOL_TT</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_TPOOL_TT</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_TRANSPORT_TO_BRANCH</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_TRANSPORT_TO_BRANCH</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_TYPE</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_TYPE</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZIF_ABAPGIT_DEFINITIONS</CLSNAME>
<CMPNAME>TY_WEB_ASSET</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>TY_WEB_ASSET</DESCRIPT>
</SEOCOMPOTX>
</DESCRIPTIONS>
</asx:values>
</asx:abap>
</abapGit>