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

replace occurrences of lif_defs with ZIF_ABAPGIT_DEFINITIONS

Browse Source
This commit is contained in:
Christian Günter 2017-10-08 17:15:43 +02:00
parent da2ef104e9
commit dc1b8613ea
64 changed files with 826 additions and 826 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/zabapgit_background.prog.abap
View File

@ -12,7 +12,7 @@ CLASS lcl_background DEFINITION FINAL.
PRIVATE SECTION.
CLASS-METHODS:
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,
push
IMPORTING io_repo TYPE REF TO lcl_repo_online
@ -51,8 +51,8 @@ CLASS lcl_background IMPLEMENTATION.
METHOD push_fixed.
DATA: ls_comment TYPE lif_defs=>ty_comment,
ls_files TYPE lif_defs=>ty_stage_files,
DATA: ls_comment TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_comment,
ls_files TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_stage_files,
lo_stage TYPE REF TO lcl_stage.
FIELD-SYMBOLS: <ls_local> LIKE LINE OF ls_files-local.
@ -105,7 +105,7 @@ CLASS lcl_background IMPLEMENTATION.
ELSE.
rv_comment = 'BG: Multiple objects'.
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.
ENDIF.
@ -119,8 +119,8 @@ CLASS lcl_background IMPLEMENTATION.
changed_by TYPE xubname,
END OF ty_changed.
DATA: ls_comment TYPE lif_defs=>ty_comment,
ls_files TYPE lif_defs=>ty_stage_files,
DATA: ls_comment TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_comment,
ls_files TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_stage_files,
lt_changed TYPE STANDARD TABLE OF ty_changed WITH DEFAULT KEY,
lt_users TYPE STANDARD TABLE OF xubname WITH DEFAULT KEY,
ls_user_files LIKE ls_files,

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
* IMPORTING iv_language TYPE spras,
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.
PRIVATE SECTION.
@ -209,7 +209,7 @@ CLASS lcl_dot_abapgit IMPLEMENTATION.
lv_name = iv_path && iv_filename.
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.
FIND ALL OCCURRENCES OF '/' IN lv_name MATCH COUNT lv_count.
@ -259,9 +259,9 @@ CLASS lcl_dot_abapgit IMPLEMENTATION.
METHOD get_signature.
rs_signature-path = lif_defs=>gc_root_dir.
rs_signature-filename = lif_defs=>gc_dot_abapgit.
rs_signature-sha1 = lcl_hash=>sha1( iv_type = lif_defs=>gc_type-blob
rs_signature-path = ZIF_ABAPGIT_DEFINITIONS=>gc_root_dir.
rs_signature-filename = ZIF_ABAPGIT_DEFINITIONS=>gc_dot_abapgit.
rs_signature-sha1 = lcl_hash=>sha1( iv_type = ZIF_ABAPGIT_DEFINITIONS=>gc_type-blob
iv_data = serialize( ) ).
ENDMETHOD. "get_signature

2
src/zabapgit_exit.prog.abap
View File

@ -6,7 +6,7 @@ INTERFACE lif_exit.
METHODS:
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
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
IMPORTING io_repo TYPE REF TO lcl_repo
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.
PRIVATE SECTION.
@ -25,39 +25,39 @@ CLASS lcl_file_status DEFINITION FINAL
calculate_status
IMPORTING iv_devclass TYPE devclass
io_dot TYPE REF TO lcl_dot_abapgit
it_local TYPE lif_defs=>ty_files_item_tt
it_remote TYPE lif_defs=>ty_files_tt
it_cur_state TYPE lif_defs=>ty_file_signatures_tt
RETURNING VALUE(rt_results) TYPE lif_defs=>ty_results_tt
it_local TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_item_tt
it_remote TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_tt
it_cur_state TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file_signatures_tt
RETURNING VALUE(rt_results) TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_results_tt
RAISING zcx_abapgit_exception,
run_checks
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
iv_top TYPE devclass
RAISING zcx_abapgit_exception,
build_existing
IMPORTING is_local TYPE lif_defs=>ty_file_item
is_remote TYPE lif_defs=>ty_file
it_state TYPE lif_defs=>ty_file_signatures_ts
RETURNING VALUE(rs_result) TYPE lif_defs=>ty_result,
IMPORTING is_local TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file_item
is_remote TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file
it_state TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file_signatures_ts
RETURNING VALUE(rs_result) TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_result,
build_new_local
IMPORTING is_local TYPE lif_defs=>ty_file_item
RETURNING VALUE(rs_result) TYPE lif_defs=>ty_result,
IMPORTING is_local TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file_item
RETURNING VALUE(rs_result) TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_result,
build_new_remote
IMPORTING iv_devclass TYPE devclass
io_dot TYPE REF TO lcl_dot_abapgit
is_remote TYPE lif_defs=>ty_file
it_items TYPE lif_defs=>ty_items_ts
it_state TYPE lif_defs=>ty_file_signatures_ts
RETURNING VALUE(rs_result) TYPE lif_defs=>ty_result
is_remote TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file
it_items TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_items_ts
it_state TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file_signatures_ts
RETURNING VALUE(rs_result) TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_result
RAISING zcx_abapgit_exception,
identify_object
IMPORTING iv_filename TYPE string
iv_path TYPE string
iv_devclass TYPE devclass
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
RAISING zcx_abapgit_exception.
@ -71,8 +71,8 @@ CLASS lcl_file_status IMPLEMENTATION.
METHOD run_checks.
DATA: lv_path TYPE string,
ls_item TYPE lif_defs=>ty_item,
ls_file TYPE lif_defs=>ty_file_signature,
ls_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item,
ls_file TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file_signature,
lt_res_sort LIKE it_results,
lt_item_idx LIKE it_results.
@ -189,11 +189,11 @@ CLASS lcl_file_status IMPLEMENTATION.
METHOD calculate_status.
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,
lv_is_xml TYPE abap_bool,
lt_items_idx TYPE lif_defs=>ty_items_ts,
lt_state_idx TYPE lif_defs=>ty_file_signatures_ts. " Sorted by path+filename
lt_items_idx TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_items_ts,
lt_state_idx TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file_signatures_ts. " Sorted by path+filename
FIELD-SYMBOLS: <ls_remote> LIKE LINE OF it_remote,
<ls_result> LIKE LINE OF rt_results,
@ -314,10 +314,10 @@ CLASS lcl_file_status IMPLEMENTATION.
IF sy-subrc = 0.
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.
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.
rs_result-match = boolc( rs_result-lstate 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
rs_result-match = boolc( is_local-file-sha1 = is_remote-sha1 ).
IF rs_result-match = abap_false.
rs_result-lstate = lif_defs=>gc_state-modified.
rs_result-rstate = lif_defs=>gc_state-modified.
rs_result-lstate = ZIF_ABAPGIT_DEFINITIONS=>gc_state-modified.
rs_result-rstate = ZIF_ABAPGIT_DEFINITIONS=>gc_state-modified.
ENDIF.
ENDIF.
@ -348,7 +348,7 @@ CLASS lcl_file_status IMPLEMENTATION.
" Match
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
@ -361,7 +361,7 @@ CLASS lcl_file_status IMPLEMENTATION.
rs_result-path = is_remote-path.
rs_result-filename = is_remote-filename.
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
iv_path = is_remote-path
@ -392,14 +392,14 @@ CLASS lcl_file_status IMPLEMENTATION.
rs_result-match = abap_true.
CLEAR rs_result-rstate.
ELSE.
rs_result-rstate = lif_defs=>gc_state-modified.
rs_result-rstate = ZIF_ABAPGIT_DEFINITIONS=>gc_state-modified.
ENDIF.
" Item is in state and in cache but with no package - it was deleted
" OR devclass is the same as repo package (see #532)
IF ls_item-devclass IS INITIAL OR ls_item-devclass = iv_devclass.
rs_result-match = abap_false.
rs_result-lstate = lif_defs=>gc_state-deleted.
rs_result-lstate = ZIF_ABAPGIT_DEFINITIONS=>gc_state-deleted.
ENDIF.
ENDIF.

4
src/zabapgit_forms.prog.abap
View File

@ -54,7 +54,7 @@ ENDFORM.
* -->##CALLED 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
CHANGING cs_error TYPE svale
cv_show_popup TYPE c
@ -116,7 +116,7 @@ FORM branch_popup TABLES tt_fields TYPE lif_defs=>ty_sval_tt
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
CHANGING cs_error TYPE svale
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
iv_deepen TYPE abap_bool DEFAULT abap_true
it_branches TYPE lcl_git_branch_list=>ty_git_branch_list_tt OPTIONAL
EXPORTING et_objects TYPE lif_defs=>ty_objects_tt
ev_branch TYPE lif_defs=>ty_sha1
EXPORTING et_objects TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_objects_tt
ev_branch TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1
RAISING zcx_abapgit_exception.
* local to remote
CLASS-METHODS receive_pack
IMPORTING iv_url TYPE string
iv_old TYPE lif_defs=>ty_sha1
iv_new TYPE lif_defs=>ty_sha1
iv_old TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1
iv_new TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1
iv_branch_name TYPE string
iv_pack TYPE xstring
RAISING zcx_abapgit_exception.
@ -52,7 +52,7 @@ CLASS lcl_git_transport DEFINITION FINAL.
iv_service TYPE string
iv_branch_name TYPE string
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.
CLASS-METHODS parse
@ -71,16 +71,16 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack.
PUBLIC SECTION.
TYPES: BEGIN OF ty_node,
chmod TYPE lif_defs=>ty_chmod,
chmod TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_chmod,
name TYPE string,
sha1 TYPE lif_defs=>ty_sha1,
sha1 TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
END OF ty_node.
TYPES: ty_nodes_tt TYPE STANDARD TABLE OF ty_node WITH DEFAULT KEY.
TYPES: BEGIN OF ty_commit,
tree TYPE lif_defs=>ty_sha1,
parent TYPE lif_defs=>ty_sha1,
parent2 TYPE lif_defs=>ty_sha1,
tree TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
parent TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
parent2 TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
author TYPE string,
committer TYPE string,
body TYPE string,
@ -88,7 +88,7 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack.
CLASS-METHODS decode
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.
CLASS-METHODS decode_tree
@ -102,7 +102,7 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack.
RAISING zcx_abapgit_exception.
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
RAISING zcx_abapgit_exception.
@ -115,7 +115,7 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack.
RETURNING VALUE(rv_data) TYPE xstring.
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
RETURNING VALUE(rv_xstring) TYPE xstring
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'.
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.
CLASS-METHODS delta
IMPORTING is_object TYPE lif_defs=>ty_object
CHANGING ct_objects TYPE lif_defs=>ty_objects_tt
IMPORTING is_object TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_object
CHANGING ct_objects TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_objects_tt
RAISING zcx_abapgit_exception.
CLASS-METHODS delta_header
@ -145,7 +145,7 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack.
CLASS-METHODS get_type
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.
CLASS-METHODS get_length
@ -252,7 +252,7 @@ CLASS lcl_git_transport IMPLEMENTATION.
lcl_git_utils=>get_null( ) &&
` ` &&
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_buffer = lv_cmd_pkt && '0000'.
@ -348,22 +348,22 @@ CLASS lcl_git_transport IMPLEMENTATION.
lv_capa = 'side-band-64k no-progress multi_ack agent='
&& lcl_http=>get_agent( ) ##NO_TEXT.
lv_line = 'want' && ` ` && <ls_branch>-sha1
&& ` ` && lv_capa && lif_defs=>gc_newline. "#EC NOTEXT
&& ` ` && lv_capa && ZIF_ABAPGIT_DEFINITIONS=>gc_newline. "#EC NOTEXT
ELSE.
lv_line = 'want' && ` ` && <ls_branch>-sha1
&& lif_defs=>gc_newline. "#EC NOTEXT
&& ZIF_ABAPGIT_DEFINITIONS=>gc_newline. "#EC NOTEXT
ENDIF.
lv_buffer = lv_buffer && lcl_git_utils=>pkt_string( lv_line ).
ENDLOOP.
IF iv_deepen = abap_true.
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.
lv_buffer = lv_buffer
&& '0000'
&& '0009done' && lif_defs=>gc_newline.
&& '0009done' && ZIF_ABAPGIT_DEFINITIONS=>gc_newline.
lv_xstring = lo_client->send_receive_close(
lcl_convert=>string_to_xstring_utf8( lv_buffer ) ).
@ -403,7 +403,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
LOOP AT it_nodes ASSIGNING <ls_node>.
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.
ELSE.
<ls_sort>-sort = <ls_node>-name.
@ -432,13 +432,13 @@ CLASS lcl_git_pack IMPLEMENTATION.
CASE iv_type.
WHEN lif_defs=>gc_type-commit.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_type-commit.
lv_type = '001'.
WHEN lif_defs=>gc_type-tree.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_type-tree.
lv_type = '010'.
WHEN lif_defs=>gc_type-blob.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_type-blob.
lv_type = '011'.
WHEN lif_defs=>gc_type-ref_d.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_type-ref_d.
lv_type = '111'.
WHEN OTHERS.
zcx_abapgit_exception=>raise( 'Unexpected object type while encoding pack' ).
@ -488,7 +488,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
DATA: lv_x TYPE x,
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).
@ -550,7 +550,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
lv_string = ''.
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.
lv_parent_lower = is_commit-parent.
@ -558,7 +558,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
CONCATENATE 'parent' lv_parent_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.
ENDIF.
IF NOT is_commit-parent2 IS INITIAL.
@ -567,18 +567,18 @@ CLASS lcl_git_pack IMPLEMENTATION.
CONCATENATE 'parent' lv_parent_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.
ENDIF.
CONCATENATE 'author' is_commit-author
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
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 ).
@ -587,7 +587,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
METHOD get_type.
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 ).
@ -595,13 +595,13 @@ CLASS lcl_git_pack IMPLEMENTATION.
CASE lv_char3.
WHEN '001'.
rv_type = lif_defs=>gc_type-commit.
rv_type = ZIF_ABAPGIT_DEFINITIONS=>gc_type-commit.
WHEN '010'.
rv_type = lif_defs=>gc_type-tree.
rv_type = ZIF_ABAPGIT_DEFINITIONS=>gc_type-tree.
WHEN '011'.
rv_type = lif_defs=>gc_type-blob.
rv_type = ZIF_ABAPGIT_DEFINITIONS=>gc_type-blob.
WHEN '111'.
rv_type = lif_defs=>gc_type-ref_d.
rv_type = ZIF_ABAPGIT_DEFINITIONS=>gc_type-ref_d.
WHEN OTHERS.
zcx_abapgit_exception=>raise( 'Todo, unknown type' ).
ENDCASE.
@ -621,12 +621,12 @@ CLASS lcl_git_pack IMPLEMENTATION.
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>.
* IF NOT rs_commit-committer IS INITIAL.
* CONCATENATE rs_commit-body <lv_string> INTO rs_commit-body
* SEPARATED BY lif_defs=>gc_newline.
* SEPARATED BY ZIF_ABAPGIT_DEFINITIONS=>gc_newline.
* ELSE.
lv_length = strlen( <lv_string> ) + 1.
lv_string = lv_string+lv_length.
@ -670,7 +670,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
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_x TYPE x.
@ -700,7 +700,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
lv_base TYPE xstring,
lv_result TYPE xstring,
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,
lv_len TYPE i,
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.
IF sy-subrc <> 0.
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
zcx_abapgit_exception=>raise( 'Delta, base eq delta' ).
ENDIF.
@ -810,7 +810,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
iv_total = 1
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.
APPEND ls_object TO lt_deltas.
ENDLOOP.
@ -828,7 +828,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
lc_null TYPE x VALUE '00'.
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_string TYPE string,
lv_len TYPE i,
@ -854,9 +854,9 @@ CLASS lcl_git_pack IMPLEMENTATION.
CLEAR ls_node.
ls_node-chmod = lv_chmod.
IF ls_node-chmod <> lif_defs=>gc_chmod-dir
AND ls_node-chmod <> lif_defs=>gc_chmod-file
AND ls_node-chmod <> lif_defs=>gc_chmod-executable.
IF ls_node-chmod <> ZIF_ABAPGIT_DEFINITIONS=>gc_chmod-dir
AND ls_node-chmod <> ZIF_ABAPGIT_DEFINITIONS=>gc_chmod-file
AND ls_node-chmod <> ZIF_ABAPGIT_DEFINITIONS=>gc_chmod-executable.
zcx_abapgit_exception=>raise( 'Unknown chmod' ).
ENDIF.
@ -911,8 +911,8 @@ CLASS lcl_git_pack IMPLEMENTATION.
lv_zlib TYPE x LENGTH 2,
lv_objects TYPE i,
lv_len TYPE i,
lv_sha1 TYPE lif_defs=>ty_sha1,
lv_ref_delta TYPE lif_defs=>ty_sha1,
lv_sha1 TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
lv_ref_delta TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
lv_compressed_len TYPE i,
lv_compressed TYPE xstring,
lv_decompressed TYPE xstring,
@ -950,7 +950,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
get_length( IMPORTING ev_length = lv_expected
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_data = lv_data+20.
ENDIF.
@ -1006,7 +1006,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
*************************
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.
TRANSLATE ls_object-sha1 TO LOWER CASE.
ELSE.
@ -1098,31 +1098,31 @@ CLASS lcl_git_porcelain DEFINITION FINAL FRIENDS ltcl_git_porcelain.
TYPES: BEGIN OF ty_expanded,
path TYPE string,
name TYPE string,
sha1 TYPE lif_defs=>ty_sha1,
chmod TYPE lif_defs=>ty_chmod,
sha1 TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
chmod TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_chmod,
END OF ty_expanded.
TYPES: ty_expanded_tt TYPE STANDARD TABLE OF ty_expanded WITH DEFAULT KEY.
CLASS-METHODS pull
IMPORTING io_repo TYPE REF TO lcl_repo_online
EXPORTING et_files TYPE lif_defs=>ty_files_tt
et_objects TYPE lif_defs=>ty_objects_tt
ev_branch TYPE lif_defs=>ty_sha1
EXPORTING et_files TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_tt
et_objects TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_objects_tt
ev_branch TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1
RAISING zcx_abapgit_exception.
CLASS-METHODS push
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
EXPORTING ev_branch TYPE lif_defs=>ty_sha1
et_updated_files TYPE lif_defs=>ty_file_signatures_tt
EXPORTING ev_branch TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1
et_updated_files TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file_signatures_tt
RAISING zcx_abapgit_exception.
CLASS-METHODS create_branch
IMPORTING io_repo TYPE REF TO lcl_repo_online
iv_name TYPE string
iv_from TYPE lif_defs=>ty_sha1
iv_from TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1
RAISING zcx_abapgit_exception.
CLASS-METHODS delete_branch
@ -1131,8 +1131,8 @@ CLASS lcl_git_porcelain DEFINITION FINAL FRIENDS ltcl_git_porcelain.
RAISING zcx_abapgit_exception.
CLASS-METHODS full_tree
IMPORTING it_objects TYPE lif_defs=>ty_objects_tt
iv_branch TYPE lif_defs=>ty_sha1
IMPORTING it_objects TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_objects_tt
iv_branch TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1
RETURNING VALUE(rt_expanded) TYPE ty_expanded_tt
RAISING zcx_abapgit_exception.
@ -1141,7 +1141,7 @@ CLASS lcl_git_porcelain DEFINITION FINAL FRIENDS ltcl_git_porcelain.
TYPES: BEGIN OF ty_tree,
path TYPE string,
data TYPE xstring,
sha1 TYPE lif_defs=>ty_sha1,
sha1 TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
END OF ty_tree.
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,
path TYPE string,
count TYPE i,
sha1 TYPE lif_defs=>ty_sha1,
sha1 TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
END OF ty_folder.
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
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.
CLASS-METHODS walk
IMPORTING it_objects TYPE lif_defs=>ty_objects_tt
iv_sha1 TYPE lif_defs=>ty_sha1
IMPORTING it_objects TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_objects_tt
iv_sha1 TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1
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.
CLASS-METHODS walk_tree
IMPORTING it_objects TYPE lif_defs=>ty_objects_tt
iv_tree TYPE lif_defs=>ty_sha1
IMPORTING it_objects TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_objects_tt
iv_tree TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1
iv_base TYPE string
RETURNING VALUE(rt_expanded) TYPE ty_expanded_tt
RAISING zcx_abapgit_exception.
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
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
RETURNING VALUE(rv_branch) TYPE lif_defs=>ty_sha1
RETURNING VALUE(rv_branch) TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_porcelain DEFINITION
@ -1201,7 +1201,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
DATA: lv_time TYPE zcl_abapgit_time=>ty_unixtime,
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,
ls_object LIKE LINE OF lt_objects,
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 ).
CLEAR ls_object.
ls_object-sha1 = lcl_hash=>sha1( iv_type = lif_defs=>gc_type-commit iv_data = lv_commit ).
ls_object-type = lif_defs=>gc_type-commit.
ls_object-sha1 = lcl_hash=>sha1( iv_type = ZIF_ABAPGIT_DEFINITIONS=>gc_type-commit iv_data = lv_commit ).
ls_object-type = ZIF_ABAPGIT_DEFINITIONS=>gc_type-commit.
ls_object-data = lv_commit.
APPEND ls_object TO lt_objects.
LOOP AT it_trees ASSIGNING <ls_tree>.
CLEAR ls_object.
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.
APPEND ls_object TO lt_objects.
ENDLOOP.
LOOP AT it_blobs ASSIGNING <ls_blob>.
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.
IF sy-subrc = 0.
* two identical files added at the same time, only add one blob to the pack
CONTINUE.
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.
ls_object-data = <ls_blob>-data.
APPEND ls_object TO lt_objects.
@ -1265,7 +1265,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
lv_pack = lcl_git_pack=>encode( lt_objects ).
rv_branch = lcl_hash=>sha1(
iv_type = lif_defs=>gc_type-commit
iv_type = ZIF_ABAPGIT_DEFINITIONS=>gc_type-commit
iv_data = lv_commit ).
lcl_git_transport=>receive_pack(
@ -1279,7 +1279,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
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.
@ -1298,7 +1298,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
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.
IF iv_name CS ` `.
@ -1321,10 +1321,10 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
METHOD push.
DATA: lt_expanded TYPE ty_expanded_tt,
lt_blobs TYPE lif_defs=>ty_files_tt,
lv_sha1 TYPE lif_defs=>ty_sha1,
lt_blobs TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_tt,
lv_sha1 TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
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_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>.
<ls_exp>-name = <ls_stage>-file-filename.
<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.
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 ).
IF <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
WITH KEY sha1 = iv_tree
type = lif_defs=>gc_type-tree.
type = ZIF_ABAPGIT_DEFINITIONS=>gc_type-tree.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'tree not found' ).
ENDIF.
@ -1425,14 +1425,14 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
LOOP AT lt_nodes ASSIGNING <ls_node>.
CASE <ls_node>-chmod.
WHEN lif_defs=>gc_chmod-file
OR lif_defs=>gc_chmod-executable.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_chmod-file
OR ZIF_ABAPGIT_DEFINITIONS=>gc_chmod-executable.
APPEND INITIAL LINE TO rt_expanded ASSIGNING <ls_exp>.
<ls_exp>-path = iv_base.
<ls_exp>-name = <ls_node>-name.
<ls_exp>-sha1 = <ls_node>-sha1.
<ls_exp>-chmod = <ls_node>-chmod.
WHEN lif_defs=>gc_chmod-dir.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_chmod-dir.
lt_expanded = walk_tree(
it_objects = it_objects
iv_tree = <ls_node>-sha1
@ -1451,7 +1451,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
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.
zcx_abapgit_exception=>raise( 'commit not found' ).
ENDIF.
@ -1477,7 +1477,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
IMPORTING et_objects = et_objects
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.
zcx_abapgit_exception=>raise( 'Commit/branch not found' ).
ENDIF.
@ -1564,7 +1564,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
lv_len = strlen( <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>.
<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
<ls_node>-name = <ls_sub>-path+lv_len.
@ -1578,7 +1578,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
CLEAR ls_tree.
ls_tree-path = <ls_folder>-path.
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.
<ls_folder>-sha1 = ls_tree-sha1.
@ -1597,7 +1597,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
<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.
zcx_abapgit_exception=>raise( 'Walk, tree not found' ).
ENDIF.
@ -1605,9 +1605,9 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
lt_nodes = lcl_git_pack=>decode_tree( <ls_tree>-data ).
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>
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.
zcx_abapgit_exception=>raise( 'Walk, blob not found' ).
ENDIF.
@ -1621,7 +1621,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
ENDIF.
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.
walk( EXPORTING it_objects = it_objects
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.
TYPES: ty_git_branch_type TYPE char2.
TYPES: BEGIN OF ty_git_branch,
sha1 TYPE lif_defs=>ty_sha1,
sha1 TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
name TYPE string,
type TYPE ty_git_branch_type,
is_head TYPE abap_bool,
@ -216,7 +216,7 @@ CLASS lcl_git_branch_list IMPLEMENTATION.
METHOD parse_branch_list.
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_head_params TYPE string,
lv_char TYPE c,
@ -226,7 +226,7 @@ CLASS lcl_git_branch_list IMPLEMENTATION.
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.
IF sy-tabix = 1.

18
src/zabapgit_gui.prog.abap
View File

@ -115,19 +115,19 @@ CLASS lcl_gui IMPLEMENTATION.
ENDIF.
CASE lv_state.
WHEN lif_defs=>gc_event_state-re_render.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-re_render.
render( ).
WHEN lif_defs=>gc_event_state-new_page.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-new_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 ).
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 ).
WHEN lif_defs=>gc_event_state-go_back.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-go_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 ).
WHEN lif_defs=>gc_event_state-no_more_act.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-no_more_act.
" Do nothing, handling completed
WHEN OTHERS.
zcx_abapgit_exception=>raise( |Unknown action: { action }| ).
@ -201,7 +201,7 @@ CLASS lcl_gui IMPLEMENTATION.
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
@ -209,7 +209,7 @@ CLASS lcl_gui IMPLEMENTATION.
DATA: lt_events TYPE cntl_simple_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.

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.
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
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.
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
@ -143,7 +143,7 @@ CLASS lcl_gui_asset_manager IMPLEMENTATION.
APPEND &1 TO lt_data.
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.
CASE iv_asset_name.
@ -155,7 +155,7 @@ CLASS lcl_gui_asset_manager IMPLEMENTATION.
zcx_abapgit_exception=>raise( |No inline resource: { iv_asset_name }| ).
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'
EXPORTING
@ -170,7 +170,7 @@ CLASS lcl_gui_asset_manager IMPLEMENTATION.
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
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,
lv_key TYPE lcl_persistence_repo=>ty_repo-key,
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_url = iv_getdata. " TODO refactor
CASE iv_action.
" General PAGE routing
WHEN lif_defs=>gc_action-go_main " Go Main page
OR lif_defs=>gc_action-go_explore " Go Explore page
OR lif_defs=>gc_action-go_db " Go DB util page
OR lif_defs=>gc_action-go_debuginfo " Go debug info page
OR lif_defs=>gc_action-go_settings. " Go settings page
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-go_main " Go Main page
OR ZIF_ABAPGIT_DEFINITIONS=>gc_action-go_explore " Go Explore page
OR ZIF_ABAPGIT_DEFINITIONS=>gc_action-go_db " Go DB util page
OR ZIF_ABAPGIT_DEFINITIONS=>gc_action-go_debuginfo " Go debug info page
OR ZIF_ABAPGIT_DEFINITIONS=>gc_action-go_settings. " Go settings page
ei_page = get_page_by_name( iv_action ).
ev_state = lif_defs=>gc_event_state-new_page.
WHEN lif_defs=>gc_action-go_background_run. " Go background run page
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-new_page.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-go_background_run. " Go background run page
CREATE OBJECT ei_page TYPE lcl_gui_page_bkg_run.
ev_state = lif_defs=>gc_event_state-new_page.
WHEN lif_defs=>gc_action-go_background. " Go Background page
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-new_page.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-go_background. " Go Background page
ei_page = get_page_background( lv_key ).
ev_state = lif_defs=>gc_event_state-new_page.
WHEN lif_defs=>gc_action-go_diff. " Go Diff page
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-new_page.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-go_diff. " Go Diff page
ei_page = get_page_diff(
iv_getdata = iv_getdata
iv_prev_page = iv_prev_page ).
ev_state = lif_defs=>gc_event_state-new_page_w_bookmark.
WHEN lif_defs=>gc_action-go_stage. " Go Staging page
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-new_page_w_bookmark.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-go_stage. " Go Staging page
ei_page = get_page_stage( iv_getdata ).
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.
ev_state = lif_defs=>gc_event_state-new_page_w_bookmark.
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-new_page_w_bookmark.
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 ).
ev_state = lif_defs=>gc_event_state-new_page.
WHEN lif_defs=>gc_action-go_playground. " Create playground page
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-new_page.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-go_playground. " Create playground page
ei_page = get_page_playground( ).
ev_state = lif_defs=>gc_event_state-new_page.
WHEN lif_defs=>gc_action-go_tutorial. " Go to tutorial
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-new_page.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-go_tutorial. " Go to tutorial
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
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(
EXPORTING iv_string = iv_getdata
IMPORTING ev_obj_type = ls_item-obj_type
ev_obj_name = ls_item-obj_name ).
lcl_objects=>jump( ls_item ).
ev_state = lif_defs=>gc_event_state-no_more_act.
WHEN lif_defs=>gc_action-jump_pkg. " Open SE80
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-no_more_act.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-jump_pkg. " Open SE80
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
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
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'.
ev_state = lif_defs=>gc_event_state-new_page_replacing.
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-new_page_replacing.
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'
iv_getdata = iv_getdata ).
ev_state = lif_defs=>gc_event_state-new_page.
WHEN lif_defs=>gc_action-db_delete. " DB Delete
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-new_page.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-db_delete. " DB Delete
ls_db = lcl_html_action_utils=>dbkey_decode( iv_getdata ).
lcl_services_db=>delete( ls_db ).
ev_state = lif_defs=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-db_update. " DB Update
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-re_render.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-db_update. " DB Update
ls_db = lcl_html_action_utils=>dbcontent_decode( it_postdata ).
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
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( ).
ev_state = lif_defs=>gc_event_state-no_more_act.
WHEN lif_defs=>gc_action-abapgit_wiki. " Go abapGit wikipage
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-no_more_act.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-abapgit_wiki. " Go abapGit wikipage
lcl_services_abapgit=>open_abapgit_wikipage( ).
ev_state = lif_defs=>gc_event_state-no_more_act.
WHEN lif_defs=>gc_action-abapgit_install. " Install abapGit
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-no_more_act.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-abapgit_install. " Install abapGit
lcl_services_abapgit=>install_abapgit( ).
ev_state = lif_defs=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-abapgit_install_pi. " Install abapGit plugins
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-re_render.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-abapgit_install_pi. " Install abapGit plugins
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
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( ).
ev_state = lif_defs=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-repo_refresh. " Repo refresh
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-re_render.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-repo_refresh. " Repo refresh
lcl_services_repo=>refresh( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-repo_syntax_check.
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-re_render.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-repo_syntax_check.
CREATE OBJECT ei_page TYPE lcl_gui_page_syntax_check
EXPORTING
io_repo = lcl_app=>repo_srv( )->get( lv_key ).
ev_state = lif_defs=>gc_event_state-new_page.
WHEN lif_defs=>gc_action-repo_purge. " Repo remove & purge all objects
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-new_page.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-repo_purge. " Repo remove & purge all objects
lcl_services_repo=>purge( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-repo_remove. " Repo remove
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-re_render.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-repo_remove. " Repo remove
lcl_services_repo=>remove( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-repo_clone OR 'install'. " Repo clone, 'install' is for explore page
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-re_render.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-repo_clone OR 'install'. " Repo clone, 'install' is for explore page
lcl_services_repo=>clone( lv_url ).
ev_state = lif_defs=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-repo_refresh_checksums. " Rebuil local checksums
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-re_render.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-repo_refresh_checksums. " Rebuil local checksums
lcl_services_repo=>refresh_local_checksums( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-repo_toggle_fav. " Toggle repo as favorite
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-re_render.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-repo_toggle_fav. " Toggle repo as favorite
lcl_services_repo=>toggle_favorite( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-repo_transport_to_branch.
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-re_render.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-repo_transport_to_branch.
lcl_services_repo=>transport_to_branch( iv_repository_key = lv_key ).
ev_state = lif_defs=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-repo_settings.
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-re_render.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-repo_settings.
CREATE OBJECT ei_page TYPE lcl_gui_page_repo_sett
EXPORTING
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
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 ).
ev_state = lif_defs=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-zip_export. " Export repo as ZIP
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-re_render.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-zip_export. " Export repo as ZIP
lcl_zip=>export( lcl_app=>repo_srv( )->get( lv_key ) ).
ev_state = lif_defs=>gc_event_state-no_more_act.
WHEN lif_defs=>gc_action-zip_package. " Export package as ZIP
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-no_more_act.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-zip_package. " Export package as ZIP
lcl_zip=>export_package( ).
ev_state = lif_defs=>gc_event_state-no_more_act.
WHEN lif_defs=>gc_action-zip_transport. " Export transport as ZIP
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-no_more_act.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-zip_transport. " Export transport as ZIP
lcl_transport=>zip( ).
ev_state = lif_defs=>gc_event_state-no_more_act.
WHEN lif_defs=>gc_action-zip_object. " Export object as ZIP
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-no_more_act.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-zip_object. " Export object as ZIP
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
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 ).
ev_state = lif_defs=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-repo_remote_detach. " Remote detach
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-re_render.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-repo_remote_detach. " Remote detach
lcl_services_repo=>remote_detach( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-repo_remote_change. " Remote change
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-re_render.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-repo_remote_change. " Remote change
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
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 ).
ev_state = lif_defs=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-git_reset. " GIT Reset
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-re_render.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-git_reset. " GIT Reset
lcl_services_git=>reset( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-git_branch_create. " GIT Create new branch
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-re_render.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-git_branch_create. " GIT Create new branch
lcl_services_git=>create_branch( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-git_branch_delete. " GIT Delete remote branch
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-re_render.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-git_branch_delete. " GIT Delete remote branch
lcl_services_git=>delete_branch( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-git_branch_switch. " GIT Switch branch
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-re_render.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action-git_branch_switch. " GIT Switch branch
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
WHEN OTHERS.
ev_state = lif_defs=>gc_event_state-not_handled.
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-not_handled.
ENDCASE.
ENDMETHOD. " on_event
@ -303,8 +303,8 @@ CLASS lcl_gui_router IMPLEMENTATION.
METHOD get_page_diff.
DATA: ls_file TYPE lif_defs=>ty_file,
ls_object TYPE lif_defs=>ty_item,
DATA: ls_file TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file,
ls_object TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item,
lo_page TYPE REF TO lcl_gui_page_diff,
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
iv_txt 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_class TYPE string OPTIONAL
iv_id TYPE string OPTIONAL
@ -40,7 +40,7 @@ CLASS lcl_html DEFINITION FINAL.
IMPORTING
iv_txt 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_class 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> ).
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
@ -287,13 +287,13 @@ CLASS lcl_html IMPLEMENTATION.
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.
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.
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.
ENDIF.
IF lv_class IS NOT INITIAL.
@ -302,16 +302,16 @@ CLASS lcl_html IMPLEMENTATION.
ENDIF.
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.
WHEN lif_defs=>gc_action_type-url.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action_type-url.
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 }"|.
WHEN lif_defs=>gc_action_type-onclick.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action_type-onclick.
lv_href = ' href="#"'.
lv_click = | onclick="{ iv_act }"|.
WHEN lif_defs=>gc_action_type-dummy.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_action_type-dummy.
lv_href = ' href="#"'.
ENDCASE.
ENDIF.
@ -375,7 +375,7 @@ CLASS lcl_html_toolbar DEFINITION FINAL.
IMPORTING
iv_txt TYPE string
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_ico TYPE string OPTIONAL
iv_cur TYPE abap_bool OPTIONAL
@ -445,9 +445,9 @@ CLASS lcl_html_toolbar IMPLEMENTATION.
METHOD add.
DATA ls_item TYPE ty_item.
ASSERT iv_typ = lif_defs=>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 = lif_defs=>gc_action_type-dummy " dummy may have no action
ASSERT iv_typ = ZIF_ABAPGIT_DEFINITIONS=>gc_action_type-separator " sep doesn't have action
OR iv_typ = ZIF_ABAPGIT_DEFINITIONS=>gc_action_type-onclick " click may have no action (assigned in JS)
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 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( '<ul><li>' ).
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 = '' ).
ro_html->add( '<div class="minizone"></div>' ).
ro_html->add( render_items( iv_sort = iv_sort ) ).
@ -545,7 +545,7 @@ CLASS lcl_html_toolbar IMPLEMENTATION.
LOOP AT mt_items ASSIGNING <item>.
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>| ).
CONTINUE.
ENDIF.
@ -579,7 +579,7 @@ CLASS lcl_html_toolbar IMPLEMENTATION.
iv_opt = <item>-opt ).
ELSE.
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_id = <item>-id
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.
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 lif_defs=>gc_newline 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 ZIF_ABAPGIT_DEFINITIONS=>gc_newline IN lv_string WITH lc_replace.
lt_fields = parse_fields_upper_case_name( lv_string ).
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>.
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

22
src/zabapgit_html_chunks.prog.abap
View File

@ -86,7 +86,7 @@ CLASS lcl_gui_chunk_lib IMPLEMENTATION.
lv_icon = 'arrow-up/grey80'.
ENDIF.
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_class = 'pad-sides'
iv_hint = 'Display changelog' ) ).
@ -101,7 +101,7 @@ CLASS lcl_gui_chunk_lib IMPLEMENTATION.
ELSE.
lv_icon = 'star/grey' ##NO_TEXT.
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_class = 'pad-sides'
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( '<span>' ).
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>' ).
ENDIF.
@ -166,19 +166,19 @@ CLASS lcl_gui_chunk_lib IMPLEMENTATION.
ENDCASE.
CASE <state>.
WHEN lif_defs=>gc_state-unchanged. "None or unchanged
IF iv1 = lif_defs=>gc_state-added OR iv2 = lif_defs=>gc_state-added.
WHEN ZIF_ABAPGIT_DEFINITIONS=>gc_state-unchanged. "None or unchanged
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>|.
ELSE.
rv_html = rv_html && |<span class="none" title="{ lv_system } No changes">&nbsp;</span>|.
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>|.
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>|.
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>|.
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>|.
ENDCASE.
ENDDO.
@ -207,7 +207,7 @@ CLASS lcl_gui_chunk_lib IMPLEMENTATION.
ro_html->add( |<span class="{ lv_class }">| ).
ro_html->add_icon( iv_name = 'git-branch/darkgrey' iv_hint = 'Current branch' ).
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 ).
ELSE.
ro_html->add( lv_text ).
@ -269,7 +269,7 @@ CLASS lcl_gui_chunk_lib IMPLEMENTATION.
&& '<div class="float-right">'
&& lcl_html=>a(
iv_txt = '&#x274c;'
iv_typ = lif_defs=>gc_action_type-onclick
iv_typ = ZIF_ABAPGIT_DEFINITIONS=>gc_action_type-onclick
iv_act = 'displayNews()'
iv_class = 'close-btn' )
&& '</div></div>' ).

4
src/zabapgit_http.prog.abap
View File

@ -408,7 +408,7 @@ CLASS lcl_http IMPLEMENTATION.
METHOD get_agent.
* 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.
@ -501,7 +501,7 @@ CLASS lcl_http IMPLEMENTATION.
METHOD is_local_system.
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.
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_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_url TYPE string,
lo_repo_online TYPE REF TO lcl_repo_online.
@ -126,7 +126,7 @@ CLASS lcl_news IMPLEMENTATION.
CREATE OBJECT ro_instance
EXPORTING
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 ).
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.
METHODS constructor
IMPORTING
is_item TYPE lif_defs=>ty_item
is_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item
iv_language TYPE spras.
PROTECTED SECTION.
@ -197,9 +197,9 @@ CLASS lcl_object_clas IMPLEMENTATION.
DATA: ls_vseoclass TYPE vseoclass,
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,
lt_sotr TYPE lif_defs=>ty_sotr_tt,
lt_sotr TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sotr_tt,
lt_lines TYPE tlinetab.
ls_clskey-clsname = ms_item-obj_name.
@ -279,7 +279,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
METHOD deserialize_sotr.
"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'
CHANGING cg_data = lt_sotr ).
@ -316,7 +316,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
METHOD deserialize_tpool.
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.
@ -345,7 +345,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
lt_local_implementations TYPE seop_source_string,
lt_local_macros 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.
@ -484,7 +484,7 @@ CLASS lcl_oo_class IMPLEMENTATION.
ENDMETHOD.
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,
ls_paket TYPE sotr_pack,
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,
init_scanner
IMPORTING
it_source TYPE lif_defs=>ty_string_tt
it_source TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_string_tt
iv_name TYPE seoclsname
RETURNING
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.
METHODS: constructor
IMPORTING
is_item TYPE lif_defs=>ty_item
is_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item
iv_language TYPE spras.
PROTECTED SECTION.
@ -360,7 +360,7 @@ CLASS lcl_object_clas_new IMPLEMENTATION.
lt_local_implementations TYPE seop_source_string,
lt_local_macros 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.

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:
constructor
IMPORTING
is_item TYPE lif_defs=>ty_item
is_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item
iv_language TYPE spras.
INTERFACES lif_object.

2
src/zabapgit_object_devc.prog.abap
View File

@ -12,7 +12,7 @@ CLASS lcl_object_devc DEFINITION
ALIASES:
mo_files FOR lif_object~mo_files.
METHODS:
constructor IMPORTING is_item TYPE lif_defs=>ty_item
constructor IMPORTING is_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item
iv_language TYPE spras.
PROTECTED SECTION.
PRIVATE SECTION.

28
src/zabapgit_object_enho.prog.abap
View File

@ -28,12 +28,12 @@ CLASS lcl_object_enho_wdyc DEFINITION.
PUBLIC SECTION.
METHODS: constructor
IMPORTING
is_item TYPE lif_defs=>ty_item
is_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item
io_files TYPE REF TO lcl_objects_files.
INTERFACES: lif_object_enho.
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.
ENDCLASS. "lcl_object_enho_wdyconf DEFINITION
@ -141,12 +141,12 @@ CLASS lcl_object_enho_wdyn DEFINITION.
PUBLIC SECTION.
METHODS: constructor
IMPORTING
is_item TYPE lif_defs=>ty_item
is_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item
io_files TYPE REF TO lcl_objects_files.
INTERFACES: lif_object_enho.
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.
ENDCLASS. "lcl_object_enho_wdyconf DEFINITION
@ -434,12 +434,12 @@ CLASS lcl_object_enho_badi DEFINITION.
PUBLIC SECTION.
METHODS: constructor
IMPORTING
is_item TYPE lif_defs=>ty_item
is_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item
io_files TYPE REF TO lcl_objects_files.
INTERFACES: lif_object_enho.
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.
ENDCLASS. "lcl_object_enho_badi DEFINITION
@ -557,7 +557,7 @@ CLASS lcl_object_enho_hook DEFINITION.
PUBLIC SECTION.
METHODS: constructor
IMPORTING
is_item TYPE lif_defs=>ty_item
is_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item
io_files TYPE REF TO lcl_objects_files.
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.
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.
METHODS hook_impl_deserialize
@ -765,12 +765,12 @@ CLASS lcl_object_enho_intf DEFINITION.
METHODS:
constructor
IMPORTING
is_item TYPE lif_defs=>ty_item
is_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item
io_files TYPE REF TO lcl_objects_files.
INTERFACES: lif_object_enho.
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.
ENDCLASS. "lcl_object_enho_interface DEFINITION
@ -870,12 +870,12 @@ CLASS lcl_object_enho_class DEFINITION.
METHODS:
constructor
IMPORTING
is_item TYPE lif_defs=>ty_item
is_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item
io_files TYPE REF TO lcl_objects_files.
INTERFACES: lif_object_enho.
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.
ENDCLASS. "lcl_object_enho_class DEFINITION
@ -1010,12 +1010,12 @@ CLASS lcl_object_enho_fugr DEFINITION.
PUBLIC SECTION.
METHODS: constructor
IMPORTING
is_item TYPE lif_defs=>ty_item
is_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item
io_files TYPE REF TO lcl_objects_files.
INTERFACES: lif_object_enho.
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.
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
IMPORTING
iv_form_name TYPE lif_defs=>ty_item-obj_name
iv_form_name TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item-obj_name
RETURNING
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
IMPORTING
iv_object_name TYPE lif_defs=>ty_item-obj_name
iv_object_name TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item-obj_name
RETURNING
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,
lt_includes TYPE rso_t_objnm,
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.
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.
METHODS constructor
IMPORTING
is_item TYPE lif_defs=>ty_item
is_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item
iv_language TYPE spras.
PROTECTED SECTION.
METHODS deserialize_abap
@ -53,7 +53,7 @@ CLASS lcl_object_intf IMPLEMENTATION.
METHOD deserialize_abap.
DATA: ls_vseointerf TYPE vseointerf,
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.
@ -145,7 +145,7 @@ CLASS lcl_object_intf IMPLEMENTATION.
METHOD serialize_xml.
DATA:
lt_descriptions TYPE lif_defs=>ty_seocompotx_tt,
lt_descriptions TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_seocompotx_tt,
ls_vseointerf TYPE vseointerf,
ls_clskey TYPE seoclskey,
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
IMPORTING
is_key TYPE seoclskey
it_source TYPE lif_defs=>ty_string_tt
it_source TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_string_tt
RAISING
zcx_abapgit_exception
cx_sy_dyn_call_error,
@ -42,16 +42,16 @@ INTERFACE lif_oo_object_fnc.
update_descriptions
IMPORTING
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
IMPORTING
is_item TYPE lif_defs=>ty_item
is_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item
RAISING
zcx_abapgit_exception,
create_sotr
IMPORTING
iv_package TYPE devclass
it_sotr TYPE lif_defs=>ty_sotr_tt
it_sotr TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sotr_tt
RAISING
zcx_abapgit_exception,
create_documentation
@ -78,7 +78,7 @@ INTERFACE lif_oo_object_fnc.
is_class_key TYPE seoclskey
iv_type TYPE seop_include_ext_app OPTIONAL
RETURNING
VALUE(rt_source) TYPE lif_defs=>ty_string_tt
VALUE(rt_source) TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_string_tt
RAISING
zcx_abapgit_exception
cx_sy_dyn_call_error,
@ -115,14 +115,14 @@ INTERFACE lif_oo_object_fnc.
IMPORTING
iv_object_name TYPE sobj_name
RETURNING
VALUE(rt_sotr) TYPE lif_defs=>ty_sotr_tt
VALUE(rt_sotr) TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sotr_tt
RAISING
zcx_abapgit_exception,
read_descriptions
IMPORTING
iv_obejct_name TYPE seoclsname
RETURNING
VALUE(rt_descriptions) TYPE lif_defs=>ty_seocompotx_tt,
VALUE(rt_descriptions) TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_seocompotx_tt,
delete
IMPORTING
is_deletion_key TYPE seoclskey
@ -143,7 +143,7 @@ CLASS lcl_oo_serializer DEFINITION.
IMPORTING
is_class_key TYPE seoclskey
RETURNING
VALUE(rt_source) TYPE lif_defs=>ty_string_tt
VALUE(rt_source) TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_string_tt
RAISING
zcx_abapgit_exception
cx_sy_dyn_call_error,
@ -152,37 +152,37 @@ CLASS lcl_oo_serializer DEFINITION.
VALUE(rv_return) TYPE abap_bool.
METHODS serialize_locals_imp
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.
METHODS serialize_locals_def
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.
METHODS serialize_testclasses
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.
METHODS serialize_macros
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.
PRIVATE SECTION.
DATA mv_skip_testclass TYPE abap_bool.
METHODS serialize_abap_old
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.
METHODS serialize_abap_new
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
cx_sy_dyn_call_error.
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
IMPORTING is_clskey TYPE seoclskey
@ -191,7 +191,7 @@ CLASS lcl_oo_serializer DEFINITION.
METHODS reduce
CHANGING ct_source TYPE lif_defs=>ty_string_tt.
CHANGING ct_source TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_string_tt.
ENDCLASS.
CLASS lcl_oo_serializer IMPLEMENTATION.
@ -400,12 +400,12 @@ CLASS lcl_oo_base DEFINITION ABSTRACT.
METHODS deserialize_abap_source_old
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.
METHODS deserialize_abap_source_new
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
cx_sy_dyn_call_error.
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.
TYPES: BEGIN OF ty_tpool_i18n,
language TYPE langu,
textpool TYPE lif_defs=>ty_tpool_tt,
textpool TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_tpool_tt,
END 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,
lt_tpool TYPE textpool_table,
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,
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
IMPORTING
is_item TYPE lif_defs=>ty_item
is_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item
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.
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.
@ -167,7 +167,7 @@ CLASS lcl_object_smim IMPLEMENTATION.
lv_folder TYPE abap_bool,
lv_filename TYPE string,
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,
li_api TYPE REF TO if_mr_api,
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
IMPORTING
is_item TYPE lif_defs=>ty_item
is_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item
iv_language TYPE spras.
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 ).
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.
@ -415,7 +415,7 @@ CLASS lcl_object_wapa IMPLEMENTATION.
IMPORTING
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 ).

106
src/zabapgit_objects.prog.abap
View File

@ -16,7 +16,7 @@ CLASS lcl_objects_activation DEFINITION FINAL.
RAISING zcx_abapgit_exception.
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.
CLASS-METHODS activate
@ -161,7 +161,7 @@ CLASS lcl_objects_files DEFINITION.
PUBLIC SECTION.
METHODS:
constructor
IMPORTING is_item TYPE lif_defs=>ty_item
IMPORTING is_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item
iv_path TYPE string OPTIONAL,
add_string
IMPORTING iv_extra TYPE clike OPTIONAL
@ -177,7 +177,7 @@ CLASS lcl_objects_files DEFINITION.
IMPORTING iv_extra TYPE clike OPTIONAL
io_xml TYPE REF TO lcl_xml_output
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,
* needed since type-check during dynamic call fails even if the object is compatible
add_xml_from_plugin
@ -199,7 +199,7 @@ CLASS lcl_objects_files DEFINITION.
it_abap TYPE STANDARD TABLE
RAISING zcx_abapgit_exception,
add
IMPORTING is_file TYPE lif_defs=>ty_file,
IMPORTING is_file TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file,
add_raw
IMPORTING iv_extra TYPE clike OPTIONAL
iv_ext TYPE string
@ -211,16 +211,16 @@ CLASS lcl_objects_files DEFINITION.
RETURNING VALUE(rv_data) TYPE xstring
RAISING zcx_abapgit_exception,
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
IMPORTING it_files TYPE lif_defs=>ty_files_tt,
IMPORTING it_files TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_tt,
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.
DATA: ms_item TYPE lif_defs=>ty_item,
mt_accessed_files TYPE lif_defs=>ty_file_signatures_tt,
mt_files TYPE lif_defs=>ty_files_tt,
DATA: ms_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item,
mt_accessed_files TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file_signatures_tt,
mt_files TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_tt,
mv_path TYPE string.
METHODS:
@ -287,7 +287,7 @@ INTERFACE lif_object.
jump
RAISING zcx_abapgit_exception,
get_metadata
RETURNING VALUE(rs_metadata) TYPE lif_defs=>ty_metadata,
RETURNING VALUE(rs_metadata) TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_metadata,
has_changed_since
IMPORTING iv_timestamp TYPE timestamp
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 ).
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
METHOD add_abap.
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
lv_source = lv_source && lif_defs=>gc_newline.
lv_source = lv_source && ZIF_ABAPGIT_DEFINITIONS=>gc_newline.
ls_file-path = '/'.
ls_file-filename = filename( iv_extra = iv_extra
@ -390,7 +390,7 @@ CLASS lcl_objects_files IMPLEMENTATION.
METHOD add_string.
DATA: ls_file TYPE lif_defs=>ty_file.
DATA: ls_file TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file.
ls_file-path = '/'.
@ -405,7 +405,7 @@ CLASS lcl_objects_files IMPLEMENTATION.
METHOD add_xml.
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
@ -526,7 +526,7 @@ CLASS lcl_objects_files IMPLEMENTATION.
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-data = iv_data.
@ -563,20 +563,20 @@ CLASS lcl_objects_super DEFINITION ABSTRACT.
METHODS:
constructor
IMPORTING
is_item TYPE lif_defs=>ty_item
is_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item
iv_language TYPE spras.
CLASS-METHODS:
jump_adt
IMPORTING i_obj_name TYPE lif_defs=>ty_item-obj_name
i_obj_type TYPE lif_defs=>ty_item-obj_type
IMPORTING i_obj_name TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item-obj_name
i_obj_type TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item-obj_type
RAISING zcx_abapgit_exception.
CONSTANTS: c_user_unknown TYPE xubname VALUE 'UNKNOWN'.
PROTECTED SECTION.
DATA: ms_item TYPE lif_defs=>ty_item,
DATA: ms_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item,
mv_language TYPE spras.
METHODS:
@ -588,7 +588,7 @@ CLASS lcl_objects_super DEFINITION ABSTRACT.
RETURNING
VALUE(rv_changed) TYPE abap_bool,
get_metadata
RETURNING VALUE(rs_metadata) TYPE lif_defs=>ty_metadata,
RETURNING VALUE(rs_metadata) TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_metadata,
corr_insert
IMPORTING iv_package TYPE devclass
RAISING zcx_abapgit_exception,
@ -621,7 +621,7 @@ CLASS lcl_objects_bridge DEFINITION INHERITING FROM lcl_objects_super FINAL.
CLASS-METHODS class_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.
INTERFACES lif_object.
@ -668,7 +668,7 @@ CLASS lcl_objects_bridge IMPLEMENTATION.
DATA ls_objtype_map LIKE LINE OF gt_objtype_map.
super->constructor( is_item = is_item
iv_language = lif_defs=>gc_english ).
iv_language = ZIF_ABAPGIT_DEFINITIONS=>gc_english ).
* determine the responsible plugin
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
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
iv_program TYPE programm OPTIONAL
iv_extra TYPE clike OPTIONAL
@ -920,10 +920,10 @@ CLASS lcl_objects_program DEFINITION INHERITING FROM lcl_objects_super.
CLASS-METHODS:
add_tpool
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
IMPORTING it_tpool TYPE lif_defs=>ty_tpool_tt
RETURNING VALUE(rt_tpool) TYPE lif_defs=>ty_tpool_tt.
IMPORTING it_tpool TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_tpool_tt
RETURNING VALUE(rt_tpool) TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_tpool_tt.
PRIVATE SECTION.
METHODS:
@ -2245,49 +2245,49 @@ CLASS lcl_objects DEFINITION FINAL.
obj TYPE REF TO lif_object,
xml TYPE REF TO lcl_xml_input,
package TYPE devclass,
item TYPE lif_defs=>ty_item,
item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item,
END OF ty_deserialization.
TYPES: ty_deserialization_tt TYPE STANDARD TABLE OF ty_deserialization WITH DEFAULT KEY.
CLASS-METHODS serialize
IMPORTING is_item TYPE lif_defs=>ty_item
IMPORTING is_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item
iv_language TYPE spras
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.
CLASS-METHODS deserialize
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.
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.
CLASS-METHODS jump
IMPORTING is_item TYPE lif_defs=>ty_item
IMPORTING is_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item
RAISING zcx_abapgit_exception.
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
RAISING zcx_abapgit_exception.
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
RETURNING VALUE(rv_changed) TYPE abap_bool
RAISING zcx_abapgit_exception.
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
RETURNING VALUE(rv_bool) TYPE abap_bool.
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.
CLASS-METHODS supported_list
@ -2296,36 +2296,36 @@ CLASS lcl_objects DEFINITION FINAL.
PRIVATE SECTION.
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.
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
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
RETURNING VALUE(ri_obj) TYPE REF TO lif_object
RAISING zcx_abapgit_exception.
CLASS-METHODS
prioritize_deser
IMPORTING it_results TYPE lif_defs=>ty_results_tt
RETURNING VALUE(rt_results) TYPE lif_defs=>ty_results_tt.
IMPORTING it_results TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_results_tt
RETURNING VALUE(rt_results) TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_results_tt.
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.
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.
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.
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
RETURNING VALUE(rv_cancel) TYPE abap_bool
RAISING zcx_abapgit_exception.
@ -2334,14 +2334,14 @@ CLASS lcl_objects DEFINITION FINAL.
IMPORTING iv_package TYPE devclass.
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.
CLASS-METHODS compare_remote_to_local
IMPORTING
io_object TYPE REF TO lif_object
it_remote TYPE lif_defs=>ty_files_tt
is_result TYPE lif_defs=>ty_result
it_remote TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_tt
is_result TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_result
RAISING
zcx_abapgit_exception.
@ -2349,10 +2349,10 @@ CLASS lcl_objects DEFINITION FINAL.
IMPORTING it_objects TYPE ty_deserialization_tt
iv_ddic TYPE abap_bool DEFAULT abap_false
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.
CLASS-METHODS resolve_ddls
CHANGING
ct_tadir TYPE lif_defs=>ty_tadir_tt.
ct_tadir TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_tadir_tt.
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.
IF <ls_result>-lstate IS NOT INITIAL
AND <ls_result>-lstate <> lif_defs=>gc_state-deleted
AND NOT ( <ls_result>-lstate = lif_defs=>gc_state-added
AND <ls_result>-lstate <> ZIF_ABAPGIT_DEFINITIONS=>gc_state-deleted
AND NOT ( <ls_result>-lstate = ZIF_ABAPGIT_DEFINITIONS=>gc_state-added
AND <ls_result>-rstate IS INITIAL ).
"current object has been modified locally, add to table for popup
@ -169,7 +169,7 @@ CLASS lcl_objects IMPLEMENTATION.
rv_changed = create_object(
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
@ -177,7 +177,7 @@ CLASS lcl_objects IMPLEMENTATION.
TRY.
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 ).
rv_bool = abap_true.
CATCH zcx_abapgit_exception.
@ -219,7 +219,7 @@ CLASS lcl_objects IMPLEMENTATION.
TRY.
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( ).
CATCH zcx_abapgit_exception.
* ignore all errors and assume the object exists
@ -240,7 +240,7 @@ CLASS lcl_objects IMPLEMENTATION.
lv_adt_jump_enabled TYPE abap_bool.
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( ).
@ -267,7 +267,7 @@ CLASS lcl_objects IMPLEMENTATION.
rv_user = lcl_objects_super=>c_user_unknown.
ELSE.
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( ).
ENDIF.
@ -279,7 +279,7 @@ CLASS lcl_objects IMPLEMENTATION.
METHOD delete.
DATA: ls_item TYPE lif_defs=>ty_item,
DATA: ls_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item,
lv_tabclass TYPE dd02l-tabclass,
lt_tadir LIKE it_tadir.
@ -357,11 +357,11 @@ CLASS lcl_objects IMPLEMENTATION.
* in case they have dependencies with .INCLUDE
TYPES: BEGIN OF ty_edge,
from TYPE lif_defs=>ty_item,
to TYPE lif_defs=>ty_item,
from TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item,
to TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item,
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_findstrings TYPE TABLE OF rsfind,
lv_plus TYPE i VALUE 1,
@ -473,7 +473,7 @@ CLASS lcl_objects IMPLEMENTATION.
IF is_supported( is_item ) = abap_true.
li_obj = create_object( is_item = is_item
iv_language = lif_defs=>gc_english ).
iv_language = ZIF_ABAPGIT_DEFINITIONS=>gc_english ).
li_obj->delete( ).
@ -526,7 +526,7 @@ CLASS lcl_objects IMPLEMENTATION.
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[].
@ -574,20 +574,20 @@ CLASS lcl_objects IMPLEMENTATION.
METHOD deserialize.
DATA: ls_item TYPE lif_defs=>ty_item,
DATA: ls_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item,
lv_cancel TYPE abap_bool,
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,
lo_files TYPE REF TO lcl_objects_files,
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_rest TYPE TABLE OF ty_deserialization,
lt_late TYPE TABLE OF ty_deserialization,
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.
@ -605,7 +605,7 @@ CLASS lcl_objects IMPLEMENTATION.
warning_overwrite( CHANGING ct_results = lt_results ).
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'
iv_current = sy-tabix
iv_total = lines( lt_results )
@ -716,7 +716,7 @@ CLASS lcl_objects IMPLEMENTATION.
* before pull, this is useful eg. when overwriting a TABL object.
* 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,
lv_count TYPE i,
lo_comparison_result TYPE REF TO lif_comparison_result.
@ -774,9 +774,9 @@ CLASS lcl_objects IMPLEMENTATION.
lt_ddls_name TYPE tty_ddls_names,
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,
<tadir_dependent> TYPE lif_defs=>ty_tadir.
<tadir_dependent> TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_tadir.
LOOP AT ct_tadir ASSIGNING <tadir_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">{
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
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( '<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( '</tr></table>' ). "#EC NOTEXT
@ -146,7 +146,7 @@ CLASS lcl_gui_page IMPLEMENTATION.
ENDMETHOD. "scripts
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
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.
CREATE OBJECT ro_menu.
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
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.
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-key = mv_key.
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.
ENDMETHOD.
@ -182,7 +182,7 @@ CLASS lcl_gui_page_bkg IMPLEMENTATION.
ro_html->add( '<br>' ).
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"' &&
lv_nothing && '>Do nothing<br>' ) ##NO_TEXT.
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.
TYPES: BEGIN OF ty_commit,
sha1 TYPE lif_defs=>ty_sha1,
parent1 TYPE lif_defs=>ty_sha1,
parent2 TYPE lif_defs=>ty_sha1,
sha1 TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
parent1 TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
parent2 TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
author TYPE string,
email TYPE string,
time TYPE string,
@ -43,7 +43,7 @@ CLASS lcl_branch_overview DEFINITION FINAL.
CLASS-METHODS:
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,
determine_branch
RAISING zcx_abapgit_exception,
@ -53,7 +53,7 @@ CLASS lcl_branch_overview DEFINITION FINAL.
RAISING zcx_abapgit_exception,
get_git_objects
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.
CLASS-DATA:
@ -131,7 +131,7 @@ CLASS lcl_branch_overview IMPLEMENTATION.
METHOD run.
DATA: lt_objects TYPE lif_defs=>ty_objects_tt.
DATA: lt_objects TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_objects_tt.
CLEAR gt_branches.
@ -169,7 +169,7 @@ CLASS lcl_branch_overview IMPLEMENTATION.
it_branches = gt_branches
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.
@ -182,7 +182,7 @@ CLASS lcl_branch_overview IMPLEMENTATION.
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 ).
CLEAR ls_commit.
@ -190,10 +190,10 @@ CLASS lcl_branch_overview IMPLEMENTATION.
ls_commit-parent1 = ls_raw-parent.
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,
FIND REGEX lif_defs=>gc_author_regex IN ls_raw-author
FIND REGEX ZIF_ABAPGIT_DEFINITIONS=>gc_author_regex IN ls_raw-author
SUBMATCHES
ls_commit-author
ls_commit-email
@ -561,15 +561,15 @@ CLASS lcl_gui_page_boverview IMPLEMENTATION.
CASE iv_action.
WHEN c_actions-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.
mv_compress = abap_false.
refresh( ).
ev_state = lif_defs=>gc_event_state-re_render.
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-re_render.
WHEN c_actions-compress.
mv_compress = abap_true.
refresh( ).
ev_state = lif_defs=>gc_event_state-re_render.
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-re_render.
WHEN c_actions-merge.
ls_merge = decode_merge( it_postdata ).
CREATE OBJECT lo_merge
@ -578,7 +578,7 @@ CLASS lcl_gui_page_boverview IMPLEMENTATION.
iv_source = ls_merge-source
iv_target = ls_merge-target.
ei_page = lo_merge.
ev_state = lif_defs=>gc_event_state-new_page.
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-new_page.
ENDCASE.
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_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.
ev_state = lif_defs=>gc_event_state-go_back.
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-go_back.
ENDCASE.
ENDMETHOD.
@ -241,12 +241,12 @@ CLASS lcl_gui_page_commit IMPLEMENTATION.
lo_toolbar->add( iv_act = 'submitFormById(''commit_form'');'
iv_txt = 'Commit'
iv_typ = lif_defs=>gc_action_type-onclick
iv_opt = lif_defs=>gc_html_opt-strong ) ##NO_TEXT.
iv_typ = ZIF_ABAPGIT_DEFINITIONS=>gc_action_type-onclick
iv_opt = ZIF_ABAPGIT_DEFINITIONS=>gc_html_opt-strong ) ##NO_TEXT.
lo_toolbar->add( iv_act = c_action-commit_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( lo_toolbar->render( ) ).

16
src/zabapgit_page_db.prog.abap
View File

@ -31,7 +31,7 @@ CLASS lcl_gui_page_db_dis IMPLEMENTATION.
METHOD render_record_banner.
rv_html = |<table class="tag"><tr><td class="label">Type:</td>|
&& | <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>|
&& | <td>{ is_key-value }</td></tr></table>|.
ENDMETHOD. "render_record_banner
@ -62,7 +62,7 @@ CLASS lcl_gui_page_db_dis IMPLEMENTATION.
CREATE OBJECT ro_html.
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.
ro_html->add( '<div class="db_entry">' ).
@ -124,8 +124,8 @@ CLASS lcl_gui_page_db_edit IMPLEMENTATION.
CREATE OBJECT lo_toolbar.
lo_toolbar->add( iv_act = 'submitFormById(''db_form'');'
iv_txt = 'Save'
iv_typ = lif_defs=>gc_action_type-onclick
iv_opt = lif_defs=>gc_html_opt-strong ) ##NO_TEXT.
iv_typ = ZIF_ABAPGIT_DEFINITIONS=>gc_action_type-onclick
iv_opt = ZIF_ABAPGIT_DEFINITIONS=>gc_html_opt-strong ) ##NO_TEXT.
ro_html->add( '<div class="db_entry">' ).
@ -137,7 +137,7 @@ CLASS lcl_gui_page_db_edit IMPLEMENTATION.
ro_html->add( '</td></tr></table>' ).
" 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="value" value="{ ms_key-value }">| ).
ro_html->add( |<textarea rows="20" cols="100" name="xmldata">{ lv_data }</textarea>| ).
@ -210,9 +210,9 @@ CLASS lcl_gui_page_db IMPLEMENTATION.
lv_action = lcl_html_action_utils=>dbkey_encode( <ls_data> ).
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 = 'Edit' iv_act = |{ lif_defs=>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 = 'Display' iv_act = |{ ZIF_ABAPGIT_DEFINITIONS=>gc_action-db_display }?{ 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 = |{ ZIF_ABAPGIT_DEFINITIONS=>gc_action-db_delete }?{ lv_action }| ).
ro_html->add( |<tr{ lv_trclass }>| ).
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.
ro_html->add( |<p>abapGit version: { lif_defs=>gc_abap_version }</p>| ).
ro_html->add( |<p>XML version: { lif_defs=>gc_xml_version }</p>| ).
ro_html->add( |<p>abapGit version: { ZIF_ABAPGIT_DEFINITIONS=>gc_abap_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>LCL_TIME: { zcl_abapgit_time=>get( ) }</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,
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.

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:
constructor
IMPORTING iv_key TYPE lcl_persistence_repo=>ty_repo-key
is_file TYPE lif_defs=>ty_file OPTIONAL
is_object TYPE lif_defs=>ty_item OPTIONAL
is_file TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file OPTIONAL
is_object TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item OPTIONAL
iv_supress_stage TYPE abap_bool DEFAULT abap_false
RAISING zcx_abapgit_exception,
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
RETURNING VALUE(ro_html) TYPE REF TO lcl_html.
METHODS append_diff
IMPORTING it_remote TYPE lif_defs=>ty_files_tt
it_local TYPE lif_defs=>ty_files_item_tt
is_status TYPE lif_defs=>ty_result
IMPORTING it_remote TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_tt
it_local TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_item_tt
is_status TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_result
RAISING zcx_abapgit_exception.
METHODS build_menu
IMPORTING iv_supress_stage TYPE abap_bool
@ -91,9 +91,9 @@ CLASS lcl_gui_page_diff IMPLEMENTATION.
METHOD constructor.
DATA: lt_remote TYPE lif_defs=>ty_files_tt,
lt_local TYPE lif_defs=>ty_files_item_tt,
lt_status TYPE lif_defs=>ty_results_tt,
DATA: lt_remote TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_tt,
lt_local TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_item_tt,
lt_status TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_results_tt,
lo_repo TYPE REF TO lcl_repo_online,
lv_ts TYPE timestamp.
@ -295,9 +295,9 @@ CLASS lcl_gui_page_diff IMPLEMENTATION.
IF iv_supress_stage = abap_false.
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_opt = lif_defs=>gc_html_opt-strong ).
iv_opt = ZIF_ABAPGIT_DEFINITIONS=>gc_html_opt-strong ).
ENDIF.
IF lines( lt_types ) > 1 OR lines( lt_users ) > 1.
@ -305,10 +305,10 @@ CLASS lcl_gui_page_diff IMPLEMENTATION.
" File types
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>.
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_chk = abap_true ).
ENDLOOP.
@ -316,10 +316,10 @@ CLASS lcl_gui_page_diff IMPLEMENTATION.
" Changed by
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>.
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_chk = abap_true ).
ENDLOOP.
@ -339,7 +339,7 @@ CLASS lcl_gui_page_diff IMPLEMENTATION.
CASE iv_action.
WHEN c_actions-toggle_unified. " Toggle file diplay
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.
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( | 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( ' diffList: "diff-list",' ).
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
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.
ENDIF.
ENDIF.
@ -80,10 +80,10 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
CATCH zcx_abapgit_exception ##NO_HANDLER.
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.
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.
ENDMETHOD. "on_event
@ -92,7 +92,7 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
DATA: ls_tadir TYPE tadir,
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( ).
@ -179,21 +179,21 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
CREATE OBJECT lo_advsub.
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 = 'Package to zip' iv_act = lif_defs=>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 = 'Object to files' iv_act = lif_defs=>gc_action-zip_object ) ##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 = ZIF_ABAPGIT_DEFINITIONS=>gc_action-zip_package ) ##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 = 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 = 'Page playground' iv_act = lif_defs=>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 = 'Settings' iv_act = lif_defs=>gc_action-go_settings ) ##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 = ZIF_ABAPGIT_DEFINITIONS=>gc_action-go_debuginfo ) ##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 = 'abapGit wiki' iv_act = lif_defs=>gc_action-abapgit_wiki ) ##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 = 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 = '+ Offline' iv_act = lif_defs=>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 = '+ Clone' iv_act = ZIF_ABAPGIT_DEFINITIONS=>gc_action-repo_clone ) ##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 = 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 = '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 ) ).
ELSE.
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>| ).
ENDIF.
ro_html->add( '</td>' ).

18
src/zabapgit_page_merge.prog.abap
View File

@ -6,8 +6,8 @@ CLASS lcl_merge DEFINITION FINAL.
PUBLIC SECTION.
TYPES: BEGIN OF ty_ancestor,
commit TYPE lif_defs=>ty_sha1,
tree TYPE lif_defs=>ty_sha1,
commit TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
tree TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
time TYPE string,
body TYPE string,
END OF ty_ancestor.
@ -35,7 +35,7 @@ CLASS lcl_merge DEFINITION FINAL.
PRIVATE SECTION.
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.
@ -45,7 +45,7 @@ CLASS lcl_merge DEFINITION FINAL.
calculate_result
RAISING zcx_abapgit_exception,
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
RAISING zcx_abapgit_exception,
find_first_common
@ -115,7 +115,7 @@ CLASS lcl_merge IMPLEMENTATION.
DEFINE _from_source.
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.
ASSERT sy-subrc = 0.
@ -260,7 +260,7 @@ CLASS lcl_merge IMPLEMENTATION.
END-OF-DEFINITION.
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.
FIELD-SYMBOLS: <ls_ancestor> LIKE LINE OF rt_ancestors,
@ -271,7 +271,7 @@ CLASS lcl_merge IMPLEMENTATION.
LOOP AT lt_visit INTO lv_commit.
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.
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>-tree = ls_commit-tree.
<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.
ASSERT sy-subrc = 0.
ENDLOOP.
@ -372,7 +372,7 @@ CLASS lcl_gui_page_merge IMPLEMENTATION.
EXPORTING
io_repo = mo_repo
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.
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->refresh( ).
ev_state = lif_defs=>gc_event_state-go_back.
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-go_back.
ENDCASE.
ENDMETHOD.

2
src/zabapgit_page_settings.prog.abap
View File

@ -125,7 +125,7 @@ CLASS lcl_gui_page_settings IMPLEMENTATION.
persist_settings( ).
ENDIF.
ev_state = lif_defs=>gc_event_state-go_back.
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-go_back.
ENDCASE.
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.
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
METHODS:
@ -34,15 +34,15 @@ CLASS lcl_gui_page_stage DEFINITION FINAL INHERITING FROM lcl_gui_page.
render_file
IMPORTING iv_context TYPE string
is_file TYPE lif_defs=>ty_file
is_item TYPE lif_defs=>ty_item OPTIONAL
is_file TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file
is_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item OPTIONAL
RETURNING VALUE(ro_html) TYPE REF TO lcl_html,
render_actions
RETURNING VALUE(ro_html) TYPE REF TO lcl_html,
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,
process_stage_list
@ -83,7 +83,7 @@ CLASS lcl_gui_page_stage IMPLEMENTATION.
IF lines( ms_files-local ) > 0.
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.
ENDMETHOD. "build_menu
@ -117,7 +117,7 @@ CLASS lcl_gui_page_stage IMPLEMENTATION.
io_repo = mo_repo
io_stage = lo_stage.
ev_state = lif_defs=>gc_event_state-new_page.
ev_state = ZIF_ABAPGIT_DEFINITIONS=>gc_event_state-new_page.
ENDMETHOD.
@ -125,7 +125,7 @@ CLASS lcl_gui_page_stage IMPLEMENTATION.
DATA: lv_string TYPE string,
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,
<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( )
ig_file = is_file ).
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="name">{ lv_filename }</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
ro_html->add( '<td class="indent5em">' ).
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_style = 'display: none'
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 }|
iv_id = 'commitAllButton'
iv_txt = lv_add_all_txt ) ##NO_TEXT.
@ -337,8 +337,8 @@ CLASS lcl_gui_page_stage IMPLEMENTATION.
ENDMETHOD. "scripts
METHOD read_last_changed_by.
DATA: ls_local_file TYPE lif_defs=>ty_file_item,
lt_files_local TYPE lif_defs=>ty_files_item_tt.
DATA: ls_local_file TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file_item,
lt_files_local TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_item_tt.
TRY.
lt_files_local = mo_repo->get_files_local( ).
READ TABLE lt_files_local INTO ls_local_file WITH KEY file = is_file.

16
src/zabapgit_persistence.prog.abap
View File

@ -98,8 +98,8 @@ CLASS lcl_persistence_repo DEFINITION FINAL.
PUBLIC SECTION.
TYPES: BEGIN OF ty_local_checksum,
item TYPE lif_defs=>ty_item,
files TYPE lif_defs=>ty_file_signatures_tt,
item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item,
files TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file_signatures_tt,
END OF ty_local_checksum.
TYPES: ty_local_checksum_tt TYPE STANDARD TABLE OF ty_local_checksum WITH DEFAULT KEY.
@ -107,7 +107,7 @@ CLASS lcl_persistence_repo DEFINITION FINAL.
TYPES: BEGIN OF ty_repo_xml,
url TYPE string,
branch_name TYPE string,
sha1 TYPE lif_defs=>ty_sha1,
sha1 TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
package TYPE devclass,
offline TYPE sap_bool,
local_checksums TYPE ty_local_checksum_tt,
@ -168,7 +168,7 @@ CLASS lcl_persistence_repo DEFINITION FINAL.
METHODS add
IMPORTING iv_url 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_offline TYPE sap_bool DEFAULT abap_false
is_dot_abapgit TYPE lcl_dot_abapgit=>ty_dot_abapgit
@ -591,7 +591,7 @@ CLASS lcl_persistence_user DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app.
BEGIN OF ty_repo_config,
url TYPE lcl_persistence_repo=>ty_repo-url,
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,
END OF ty_repo_config.
@ -599,7 +599,7 @@ CLASS lcl_persistence_user DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app.
TYPES:
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,
hide_files TYPE abap_bool,
changes_only TYPE abap_bool,
@ -1628,7 +1628,7 @@ CLASS lcl_persist_migrate IMPLEMENTATION.
ls_dd25v-viewname = lcl_persistence_db=>c_lock.
ls_dd25v-aggtype = 'E'.
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.
APPEND INITIAL LINE TO lt_dd26e ASSIGNING <ls_dd26e>.
@ -1721,7 +1721,7 @@ CLASS lcl_persist_migrate IMPLEMENTATION.
FIELD-SYMBOLS: <ls_dd03p> LIKE LINE OF lt_dd03p.
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-ddtext = c_text.
ls_dd02v-contflag = 'A'.

14
src/zabapgit_persistence_old.prog.abap
View File

@ -17,7 +17,7 @@ CLASS lcl_persistence DEFINITION FINAL FRIENDS lcl_persist_migrate.
TYPES: BEGIN OF ty_repo_persi,
url TYPE string,
branch_name TYPE string,
sha1 TYPE lif_defs=>ty_sha1,
sha1 TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
package TYPE devclass,
offline TYPE sap_bool,
END OF ty_repo_persi.
@ -30,13 +30,13 @@ CLASS lcl_persistence DEFINITION FINAL FRIENDS lcl_persist_migrate.
METHODS update
IMPORTING iv_url TYPE ty_repo_persi-url
iv_branch_name TYPE ty_repo_persi-branch_name
iv_branch TYPE lif_defs=>ty_sha1
iv_branch TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1
RAISING zcx_abapgit_exception.
METHODS add
IMPORTING iv_url 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_offline TYPE sap_bool DEFAULT abap_false
RAISING zcx_abapgit_exception.
@ -109,14 +109,14 @@ CLASS lcl_persistence IMPLEMENTATION.
METHOD header_online.
rs_header-tdid = 'ST'.
rs_header-tdspras = lif_defs=>gc_english.
rs_header-tdspras = ZIF_ABAPGIT_DEFINITIONS=>gc_english.
rs_header-tdname = 'ZABAPGIT'.
rs_header-tdobject = 'TEXT'.
ENDMETHOD. "header
METHOD header_offline.
rs_header-tdid = 'ST'.
rs_header-tdspras = lif_defs=>gc_english.
rs_header-tdspras = ZIF_ABAPGIT_DEFINITIONS=>gc_english.
rs_header-tdname = 'ZABAPGIT_OFFLINE'.
rs_header-tdobject = 'TEXT'.
ENDMETHOD. "header_offline
@ -437,7 +437,7 @@ CLASS lcl_user IMPLEMENTATION.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = 'ST'
language = lif_defs=>gc_english
language = ZIF_ABAPGIT_DEFINITIONS=>gc_english
name = iv_name
object = 'TEXT'
TABLES
@ -474,7 +474,7 @@ CLASS lcl_user IMPLEMENTATION.
APPEND ls_line TO lt_lines.
ls_header-tdid = 'ST'.
ls_header-tdspras = lif_defs=>gc_english.
ls_header-tdspras = ZIF_ABAPGIT_DEFINITIONS=>gc_english.
ls_header-tdname = iv_name.
ls_header-tdobject = 'TEXT'.

8
src/zabapgit_popups.prog.abap
View File

@ -72,14 +72,14 @@ CLASS lcl_popups DEFINITION FINAL.
RAISING zcx_abapgit_exception,
popup_to_create_transp_branch
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
lcx_cancel,
popup_to_select_transports
RETURNING VALUE(rt_trkorr) TYPE trwbo_request_headers,
popup_select_obj_overwrite
IMPORTING it_list TYPE lif_defs=>ty_results_tt
RETURNING VALUE(rt_list) TYPE lif_defs=>ty_results_tt
IMPORTING it_list TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_results_tt
RETURNING VALUE(rt_list) TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_results_tt
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
@ -87,7 +87,7 @@ CLASS lcl_popups DEFINITION FINAL.
TYPES: BEGIN OF t_popup_select_list,
selected TYPE flag.
INCLUDE TYPE lif_defs=>ty_result.
INCLUDE TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_result.
TYPES END OF t_popup_select_list.
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
IMPORTING io_log TYPE REF TO lcl_log 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,
get_local_checksums
RETURNING VALUE(rt_checksums) TYPE lcl_persistence_repo=>ty_local_checksum_tt,
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
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,
get_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,
refresh_local, " For testing purposes, maybe removed later
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,
rebuild_local_checksums
RAISING zcx_abapgit_exception,
@ -62,15 +62,15 @@ CLASS lcl_repo DEFINITION ABSTRACT FRIENDS lcl_repo_srv.
RAISING zcx_abapgit_exception.
PROTECTED SECTION.
DATA: mt_local TYPE lif_defs=>ty_files_item_tt,
mt_remote TYPE lif_defs=>ty_files_tt,
DATA: mt_local TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_item_tt,
mt_remote TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_tt,
mv_do_local_refresh TYPE abap_bool,
mv_last_serialization TYPE timestamp,
ms_data TYPE lcl_persistence_repo=>ty_repo.
METHODS:
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
iv_url TYPE lcl_persistence_repo=>ty_repo-url 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,
get_files_remote REDEFINITION,
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,
deserialize REDEFINITION,
status
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,
reset_status,
rebuild_local_checksums REDEFINITION,
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
RAISING zcx_abapgit_exception,
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,
delete_unnecessary_local_objs
RAISING zcx_abapgit_exception lcx_cancel.
PRIVATE SECTION.
DATA:
mt_objects TYPE lif_defs=>ty_objects_tt,
mv_branch TYPE lif_defs=>ty_sha1,
mt_objects TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_objects_tt,
mv_branch TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
mv_initialized TYPE abap_bool,
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:
handle_stage_ignore
@ -167,7 +167,7 @@ CLASS lcl_repo_offline DEFINITION INHERITING FROM lcl_repo FINAL.
PUBLIC SECTION.
METHODS:
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.
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,
lstate 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.
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.
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,
<ls_tadir> LIKE LINE OF lt_tadir.
@ -190,8 +190,8 @@ CLASS lcl_repo_content_list IMPLEMENTATION.
METHOD build_repo_items_online.
DATA: lo_repo_online TYPE REF TO lcl_repo_online,
ls_file TYPE lif_defs=>ty_repo_file,
lt_status TYPE lif_defs=>ty_results_tt.
ls_file TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_repo_file,
lt_status TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_results_tt.
FIELD-SYMBOLS: <status> LIKE LINE OF lt_status,
<ls_repo_item> LIKE LINE OF rt_repo_items.

66
src/zabapgit_repo_impl.prog.abap
View File

@ -193,8 +193,8 @@ CLASS lcl_repo_online IMPLEMENTATION.
METHOD push.
DATA: lv_branch TYPE lif_defs=>ty_sha1,
lt_updated_files TYPE lif_defs=>ty_file_signatures_tt.
DATA: lv_branch TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
lt_updated_files TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file_signatures_tt.
handle_stage_ignore( io_stage ).
@ -246,8 +246,8 @@ CLASS lcl_repo_online IMPLEMENTATION.
IF lv_add = abap_true.
io_stage->add(
iv_path = lif_defs=>gc_root_dir
iv_filename = lif_defs=>gc_dot_abapgit
iv_path = ZIF_ABAPGIT_DEFINITIONS=>gc_root_dir
iv_filename = ZIF_ABAPGIT_DEFINITIONS=>gc_dot_abapgit
iv_data = lo_dot_abapgit->serialize( ) ).
set_dot_abapgit( lo_dot_abapgit ).
@ -257,9 +257,9 @@ CLASS lcl_repo_online IMPLEMENTATION.
METHOD rebuild_local_checksums. "REMOTE
DATA: lt_remote TYPE lif_defs=>ty_files_tt,
lt_local TYPE lif_defs=>ty_files_item_tt,
ls_last_item TYPE lif_defs=>ty_item,
DATA: lt_remote TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_tt,
lt_local TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_item_tt,
ls_last_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item,
lv_branch_equal TYPE abap_bool,
lt_checksums TYPE lcl_persistence_repo=>ty_local_checksum_tt.
@ -274,7 +274,7 @@ CLASS lcl_repo_online IMPLEMENTATION.
DELETE lt_local " Remove non-code related files except .abapgit
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_remote BY path filename.
@ -323,7 +323,7 @@ CLASS lcl_repo_online IMPLEMENTATION.
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( ).
@ -338,16 +338,16 @@ CLASS lcl_repo_online IMPLEMENTATION.
METHOD get_unnecessary_local_objs.
DATA: lt_tadir TYPE lif_defs=>ty_tadir_tt,
lt_tadir_unique TYPE HASHED TABLE OF lif_defs=>ty_tadir
DATA: lt_tadir TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_tadir_tt,
lt_tadir_unique TYPE HASHED TABLE OF ZIF_ABAPGIT_DEFINITIONS=>ty_tadir
WITH UNIQUE KEY pgmid object obj_name,
lt_local TYPE lif_defs=>ty_files_item_tt,
lt_remote TYPE lif_defs=>ty_files_tt,
lt_status TYPE lif_defs=>ty_results_tt,
lt_local TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_item_tt,
lt_remote TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_tt,
lt_status TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_results_tt,
lv_package TYPE lcl_persistence_repo=>ty_repo-package.
FIELD-SYMBOLS: <status> TYPE lif_defs=>ty_result,
<tadir> TYPE lif_defs=>ty_tadir.
FIELD-SYMBOLS: <status> TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_result,
<tadir> TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_tadir.
" delete objects which are added locally but are not in remote repo
lt_local = me->get_files_local( ).
@ -359,7 +359,7 @@ CLASS lcl_repo_online IMPLEMENTATION.
SORT lt_tadir BY pgmid ASCENDING object ASCENDING obj_name ASCENDING devclass ASCENDING.
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>
WITH KEY pgmid = 'R3TR'
@ -403,8 +403,8 @@ CLASS lcl_repo IMPLEMENTATION.
READ TABLE mt_remote ASSIGNING <ls_remote>
WITH KEY path = lif_defs=>gc_root_dir
filename = lif_defs=>gc_dot_abapgit.
WITH KEY path = ZIF_ABAPGIT_DEFINITIONS=>gc_root_dir
filename = ZIF_ABAPGIT_DEFINITIONS=>gc_dot_abapgit.
IF sy-subrc = 0.
ro_dot = lcl_dot_abapgit=>deserialize( <ls_remote>-data ).
ENDIF.
@ -488,8 +488,8 @@ CLASS lcl_repo IMPLEMENTATION.
" 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,
lt_files_idx TYPE lif_defs=>ty_file_signatures_tt,
lt_local TYPE lif_defs=>ty_files_item_tt,
lt_files_idx TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file_signatures_tt,
lt_local TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_item_tt,
lv_chks_row TYPE i,
lv_file_row TYPE i.
@ -561,7 +561,7 @@ CLASS lcl_repo IMPLEMENTATION.
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,
lt_requirements TYPE STANDARD TABLE OF lcl_dot_abapgit=>ty_requirement.
@ -607,10 +607,10 @@ CLASS lcl_repo IMPLEMENTATION.
METHOD get_files_local.
DATA: lt_tadir TYPE lif_defs=>ty_tadir_tt,
ls_item TYPE lif_defs=>ty_item,
lt_files TYPE lif_defs=>ty_files_tt,
lt_cache TYPE SORTED TABLE OF lif_defs=>ty_file_item
DATA: lt_tadir TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_tadir_tt,
ls_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item,
lt_files TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_tt,
lt_cache TYPE SORTED TABLE OF ZIF_ABAPGIT_DEFINITIONS=>ty_file_item
WITH NON-UNIQUE KEY item.
DATA: lt_filter TYPE SORTED TABLE OF tadir
@ -630,10 +630,10 @@ CLASS lcl_repo IMPLEMENTATION.
ENDIF.
APPEND INITIAL LINE TO rt_files ASSIGNING <ls_return>.
<ls_return>-file-path = lif_defs=>gc_root_dir.
<ls_return>-file-filename = lif_defs=>gc_dot_abapgit.
<ls_return>-file-path = ZIF_ABAPGIT_DEFINITIONS=>gc_root_dir.
<ls_return>-file-filename = ZIF_ABAPGIT_DEFINITIONS=>gc_dot_abapgit.
<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 ).
lt_cache = mt_local.
@ -687,7 +687,7 @@ CLASS lcl_repo IMPLEMENTATION.
io_log = io_log ).
LOOP AT lt_files ASSIGNING <ls_file>.
<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>.
<ls_return>-file = <ls_file>.
@ -773,8 +773,8 @@ CLASS lcl_repo IMPLEMENTATION.
METHOD rebuild_local_checksums. "LOCAL (BASE)
DATA: lt_local TYPE lif_defs=>ty_files_item_tt,
ls_last_item TYPE lif_defs=>ty_item,
DATA: lt_local TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_item_tt,
ls_last_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item,
lt_checksums TYPE lcl_persistence_repo=>ty_local_checksum_tt.
FIELD-SYMBOLS: <ls_checksum> LIKE LINE OF lt_checksums,
@ -786,7 +786,7 @@ CLASS lcl_repo IMPLEMENTATION.
DELETE lt_local " Remove non-code related files except .abapgit
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.

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,
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 ).
@ -201,7 +201,7 @@ CLASS lcl_services_git IMPLEMENTATION.
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 = lcl_app=>user( ).
@ -228,7 +228,7 @@ CLASS lcl_services_git IMPLEMENTATION.
IF NOT is_commit-body IS INITIAL.
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.
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.
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,
lo_repo TYPE REF TO lcl_repo,
lv_package TYPE devclass,
@ -324,7 +324,7 @@ CLASS lcl_services_repo IMPLEMENTATION.
lo_transport_to_branch TYPE REF TO lcl_transport_2_branch,
lt_transport_headers TYPE trwbo_request_headers,
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 ).

4
src/zabapgit_skip_objects.prog.abap
View File

@ -6,9 +6,9 @@ CLASS lcl_skip_objects IMPLEMENTATION.
METHOD skip_sadl_generated_objects.
DATA: ls_tadir_class LIKE LINE OF rt_tadir,
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,
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.
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.
TYPES: BEGIN OF ty_stage,
file TYPE lif_defs=>ty_file,
file TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file,
method TYPE ty_method,
END OF ty_stage.
@ -31,37 +31,37 @@ CLASS lcl_stage DEFINITION FINAL.
METHODS:
constructor
IMPORTING iv_branch_name TYPE string
iv_branch_sha1 TYPE lif_defs=>ty_sha1
iv_merge_source TYPE lif_defs=>ty_sha1 OPTIONAL,
iv_branch_sha1 TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1
iv_merge_source TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1 OPTIONAL,
get_branch_name
RETURNING VALUE(rv_branch) TYPE string,
get_branch_sha1
RETURNING VALUE(rv_branch) TYPE lif_defs=>ty_sha1,
RETURNING VALUE(rv_branch) TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
add
IMPORTING iv_path TYPE lif_defs=>ty_file-path
iv_filename TYPE lif_defs=>ty_file-filename
IMPORTING iv_path TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file-path
iv_filename TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file-filename
iv_data TYPE xstring
RAISING zcx_abapgit_exception,
reset
IMPORTING iv_path TYPE lif_defs=>ty_file-path
iv_filename TYPE lif_defs=>ty_file-filename
IMPORTING iv_path TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file-path
iv_filename TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file-filename
RAISING zcx_abapgit_exception,
reset_all
RAISING zcx_abapgit_exception,
rm
IMPORTING iv_path TYPE lif_defs=>ty_file-path
iv_filename TYPE lif_defs=>ty_file-filename
IMPORTING iv_path TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file-path
iv_filename TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file-filename
RAISING zcx_abapgit_exception,
ignore
IMPORTING iv_path TYPE lif_defs=>ty_file-path
iv_filename TYPE lif_defs=>ty_file-filename
IMPORTING iv_path TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file-path
iv_filename TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file-filename
RAISING zcx_abapgit_exception,
lookup
IMPORTING iv_path TYPE lif_defs=>ty_file-path
iv_filename TYPE lif_defs=>ty_file-filename
IMPORTING iv_path TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file-path
iv_filename TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file-filename
RETURNING VALUE(rv_method) TYPE ty_method,
get_merge_source
RETURNING VALUE(rv_source) TYPE lif_defs=>ty_sha1,
RETURNING VALUE(rv_source) TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
count
RETURNING VALUE(rv_count) TYPE i,
get_all
@ -70,13 +70,13 @@ CLASS lcl_stage DEFINITION FINAL.
PRIVATE SECTION.
DATA: mt_stage TYPE ty_stage_tt,
mv_branch_name TYPE string,
mv_branch_sha1 TYPE lif_defs=>ty_sha1,
mv_merge_source TYPE lif_defs=>ty_sha1.
mv_branch_sha1 TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1,
mv_merge_source TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1.
METHODS:
append
IMPORTING iv_path TYPE lif_defs=>ty_file-path
iv_filename TYPE lif_defs=>ty_file-filename
IMPORTING iv_path TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file-path
iv_filename TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file-filename
iv_method TYPE ty_method
iv_data TYPE xstring OPTIONAL
RAISING zcx_abapgit_exception.

10
src/zabapgit_stage_logic.prog.abap
View File

@ -10,7 +10,7 @@ CLASS lcl_stage_logic DEFINITION FINAL.
CLASS-METHODS:
get
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,
count
IMPORTING io_repo TYPE REF TO lcl_repo_online
@ -21,9 +21,9 @@ CLASS lcl_stage_logic DEFINITION FINAL.
CLASS-METHODS:
remove_ignored
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
CHANGING cs_files TYPE lif_defs=>ty_stage_files.
CHANGING cs_files TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_stage_files.
ENDCLASS.
@ -41,7 +41,7 @@ CLASS lcl_stage_logic IMPLEMENTATION.
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 ).
@ -63,7 +63,7 @@ CLASS lcl_stage_logic IMPLEMENTATION.
iv_path = <ls_remote>-path
iv_filename = <ls_remote>-filename ) = abap_true.
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
DELETE cs_files-remote INDEX lv_index.
ENDIF.

18
src/zabapgit_tadir.prog.abap
View File

@ -12,15 +12,15 @@ CLASS lcl_skip_objects DEFINITION.
METHODS:
skip_sadl_generated_objects
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
RETURNING
VALUE(rt_tadir) TYPE lif_defs=>ty_tadir_tt.
VALUE(rt_tadir) TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_tadir_tt.
PRIVATE SECTION.
METHODS:
has_sadl_superclass
IMPORTING
is_class TYPE lif_defs=>ty_tadir
is_class TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_tadir
RETURNING
VALUE(rv_return) TYPE abap_bool.
ENDCLASS.
@ -34,7 +34,7 @@ CLASS lcl_tadir DEFINITION FINAL.
iv_ignore_subpackages TYPE abap_bool DEFAULT abap_false
io_dot TYPE REF TO lcl_dot_abapgit 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,
read_single
IMPORTING iv_pgmid TYPE tadir-pgmid DEFAULT 'R3TR'
@ -61,8 +61,8 @@ CLASS lcl_tadir DEFINITION FINAL.
RETURNING VALUE(rv_hash) TYPE text25
RAISING zcx_abapgit_exception,
check_exists
IMPORTING it_tadir TYPE lif_defs=>ty_tadir_tt
RETURNING VALUE(rt_tadir) TYPE lif_defs=>ty_tadir_tt
IMPORTING it_tadir TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_tadir_tt
RETURNING VALUE(rt_tadir) TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_tadir_tt
RAISING zcx_abapgit_exception,
build
IMPORTING iv_package TYPE tadir-devclass
@ -70,7 +70,7 @@ CLASS lcl_tadir DEFINITION FINAL.
io_dot TYPE REF TO lcl_dot_abapgit
iv_ignore_subpackages TYPE abap_bool DEFAULT abap_false
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.
ENDCLASS. "lcl_tadir DEFINITION
@ -178,7 +178,7 @@ CLASS lcl_tadir IMPLEMENTATION.
METHOD check_exists.
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.
@ -218,7 +218,7 @@ CLASS lcl_tadir IMPLEMENTATION.
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,
lv_path TYPE string,
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
IMPORTING
io_stage TYPE REF TO lcl_stage
is_stage_objects TYPE lif_defs=>ty_stage_files
it_object_statuses TYPE lif_defs=>ty_results_tt
is_stage_objects TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_stage_files
it_object_statuses TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_results_tt
RAISING
zcx_abapgit_exception.
PRIVATE SECTION.
@ -200,8 +200,8 @@ CLASS lcl_transport_objects IMPLEMENTATION.
METHOD to_stage.
DATA: ls_transport_object TYPE tadir,
ls_local_file TYPE lif_defs=>ty_file_item,
ls_object_status TYPE lif_defs=>ty_result.
ls_local_file TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file_item,
ls_object_status TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_result.
LOOP AT mt_transport_objects INTO ls_transport_object.
LOOP AT it_object_statuses INTO ls_object_status
@ -210,7 +210,7 @@ CLASS lcl_transport_objects IMPLEMENTATION.
AND NOT lstate IS INITIAL.
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.
zcx_abapgit_exception=>raise( |Object { ls_transport_object-obj_name
} 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_filename = ls_local_file-file-filename
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.
zcx_abapgit_exception=>raise( |Object { ls_transport_object-obj_name
} should be removed, but has NO deletion flag in transport| ).
@ -256,7 +256,7 @@ CLASS lcl_transport_2_branch DEFINITION.
METHODS:
create
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
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
@ -269,15 +269,15 @@ CLASS lcl_transport_2_branch DEFINITION.
zcx_abapgit_exception.
METHODS generate_commit_message
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
VALUE(rs_comment) TYPE lif_defs=>ty_comment.
VALUE(rs_comment) TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_comment.
METHODS stage_transport_objects
IMPORTING
it_transport_objects TYPE scts_tadir
io_stage TYPE REF TO lcl_stage
is_stage_objects TYPE lif_defs=>ty_stage_files
it_object_statuses TYPE lif_defs=>ty_results_tt
is_stage_objects TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_stage_files
it_object_statuses TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_results_tt
RAISING
zcx_abapgit_exception.
ENDCLASS.
@ -287,10 +287,10 @@ CLASS lcl_transport_2_branch IMPLEMENTATION.
METHOD create.
DATA:
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,
ls_stage_objects TYPE lif_defs=>ty_stage_files,
lt_object_statuses TYPE lif_defs=>ty_results_tt.
ls_stage_objects TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_stage_files,
lt_object_statuses TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_results_tt.
lv_branch_name = lcl_git_branch_list=>complete_heads_branch_name(
lcl_git_branch_list=>normalize_branch_name( is_transport_to_branch-branch_name ) ).

136
src/zabapgit_unit_test.prog.abap
View File

@ -168,9 +168,9 @@ CLASS ltcl_dangerous IMPLEMENTATION.
METHOD run.
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,
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.
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.
CONCATENATE LINES OF mt_new INTO lv_new SEPARATED BY lif_defs=>gc_newline.
CONCATENATE LINES OF mt_old INTO lv_old 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 ZIF_ABAPGIT_DEFINITIONS=>gc_newline.
lv_xnew = lcl_convert=>string_to_xstring_utf8( lv_new ).
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>-name = iv_name.
<ls_expanded>-sha1 = 'a'.
<ls_expanded>-chmod = lif_defs=>gc_chmod-file.
<ls_expanded>-chmod = ZIF_ABAPGIT_DEFINITIONS=>gc_chmod-file.
ENDMETHOD.
@ -882,7 +882,7 @@ CLASS ltcl_object_types IMPLEMENTATION.
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,
lt_types TYPE lcl_objects=>ty_types_tt.
@ -908,7 +908,7 @@ CLASS ltcl_object_types IMPLEMENTATION.
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,
lt_types TYPE lcl_objects=>ty_types_tt.
@ -968,7 +968,7 @@ CLASS ltcl_git_pack_decode_commit IMPLEMENTATION.
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.
@ -1087,7 +1087,7 @@ CLASS ltcl_git_pack DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT FI
PRIVATE SECTION.
CONSTANTS: c_sha TYPE lif_defs=>ty_sha1 VALUE '5f46cb3c4b7f0b3600b64f744cde614a283a88dc'.
CONSTANTS: c_sha TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sha1 VALUE '5f46cb3c4b7f0b3600b64f744cde614a283a88dc'.
METHODS:
tree FOR TESTING
@ -1112,7 +1112,7 @@ CLASS ltcl_git_pack DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT FI
METHODS:
object_blob
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.
ENDCLASS. "test DEFINITION
@ -1129,7 +1129,7 @@ CLASS ltcl_git_pack IMPLEMENTATION.
DATA: lv_result TYPE xstring.
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 ).
cl_abap_unit_assert=>assert_equals(
@ -1143,7 +1143,7 @@ CLASS ltcl_git_pack IMPLEMENTATION.
DATA: lv_result TYPE xstring.
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 ).
cl_abap_unit_assert=>assert_equals(
@ -1160,12 +1160,12 @@ CLASS ltcl_git_pack IMPLEMENTATION.
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>-sha1 = '0123'.
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>-sha1 = '0123'.
@ -1188,12 +1188,12 @@ CLASS ltcl_git_pack IMPLEMENTATION.
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>-sha1 = '0123'.
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>-sha1 = '0123'.
@ -1211,22 +1211,22 @@ CLASS ltcl_git_pack IMPLEMENTATION.
METHOD pack_multiple.
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,
lt_nodes TYPE lcl_git_pack=>ty_nodes_tt,
ls_node LIKE LINE OF lt_nodes,
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.
* blob
lv_data = lc_data.
CLEAR ls_object.
ls_object-sha1 = lcl_hash=>sha1( iv_type = lif_defs=>gc_type-blob iv_data = lv_data ).
ls_object-type = lif_defs=>gc_type-blob.
ls_object-sha1 = lcl_hash=>sha1( iv_type = ZIF_ABAPGIT_DEFINITIONS=>gc_type-blob iv_data = lv_data ).
ls_object-type = ZIF_ABAPGIT_DEFINITIONS=>gc_type-blob.
ls_object-data = lv_data.
APPEND ls_object TO lt_objects.
@ -1239,8 +1239,8 @@ CLASS ltcl_git_pack IMPLEMENTATION.
ls_commit-body = 'body'.
lv_data = lcl_git_pack=>encode_commit( ls_commit ).
CLEAR ls_object.
ls_object-sha1 = lcl_hash=>sha1( iv_type = lif_defs=>gc_type-commit iv_data = lv_data ).
ls_object-type = lif_defs=>gc_type-commit.
ls_object-sha1 = lcl_hash=>sha1( iv_type = ZIF_ABAPGIT_DEFINITIONS=>gc_type-commit iv_data = lv_data ).
ls_object-type = ZIF_ABAPGIT_DEFINITIONS=>gc_type-commit.
ls_object-data = lv_data.
APPEND ls_object TO lt_objects.
@ -1252,8 +1252,8 @@ CLASS ltcl_git_pack IMPLEMENTATION.
APPEND ls_node TO lt_nodes.
lv_data = lcl_git_pack=>encode_tree( lt_nodes ).
CLEAR ls_object.
ls_object-sha1 = lcl_hash=>sha1( iv_type = lif_defs=>gc_type-tree iv_data = lv_data ).
ls_object-type = lif_defs=>gc_type-tree.
ls_object-sha1 = lcl_hash=>sha1( iv_type = ZIF_ABAPGIT_DEFINITIONS=>gc_type-tree iv_data = lv_data ).
ls_object-type = ZIF_ABAPGIT_DEFINITIONS=>gc_type-tree.
ls_object-data = lv_data.
APPEND ls_object TO lt_objects.
@ -1270,9 +1270,9 @@ CLASS ltcl_git_pack IMPLEMENTATION.
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 ).
rs_object-type = lif_defs=>gc_type-blob.
rs_object-type = ZIF_ABAPGIT_DEFINITIONS=>gc_type-blob.
rs_object-data = iv_data.
ENDMETHOD. "object_blob
@ -1281,9 +1281,9 @@ CLASS ltcl_git_pack IMPLEMENTATION.
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,
lt_result TYPE lif_defs=>ty_objects_tt,
lt_result TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_objects_tt,
lv_data TYPE xstring.
@ -1306,10 +1306,10 @@ CLASS ltcl_git_pack IMPLEMENTATION.
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,
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.
@ -1339,7 +1339,7 @@ CLASS ltcl_git_pack IMPLEMENTATION.
lt_result TYPE lcl_git_pack=>ty_nodes_tt.
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-sha1 = c_sha.
APPEND ls_node TO lt_nodes.
@ -1386,7 +1386,7 @@ CLASS ltcl_git_pack IMPLEMENTATION.
ls_commit-parent = c_sha.
ls_commit-author = '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 ).
ls_result = lcl_git_pack=>decode_commit( lv_data ).
@ -1430,8 +1430,8 @@ CLASS ltcl_html IMPLEMENTATION.
mo_html->add( 'hello world' ).
mo_html->add( '</td>' ).
lv_exp = '<td>' && lif_defs=>gc_newline &&
' hello world' && lif_defs=>gc_newline &&
lv_exp = '<td>' && ZIF_ABAPGIT_DEFINITIONS=>gc_newline &&
' hello world' && ZIF_ABAPGIT_DEFINITIONS=>gc_newline &&
'</td>'.
cl_abap_unit_assert=>assert_equals(
@ -1448,8 +1448,8 @@ CLASS ltcl_html IMPLEMENTATION.
mo_html->add( '<input name="comment" type="text">' ).
mo_html->add( '</td>' ).
lv_exp = '<td>' && lif_defs=>gc_newline &&
' <input name="comment" type="text">' && lif_defs=>gc_newline &&
lv_exp = '<td>' && ZIF_ABAPGIT_DEFINITIONS=>gc_newline &&
' <input name="comment" type="text">' && ZIF_ABAPGIT_DEFINITIONS=>gc_newline &&
'</td>'.
cl_abap_unit_assert=>assert_equals(
@ -1466,8 +1466,8 @@ CLASS ltcl_html IMPLEMENTATION.
mo_html->add( '<textarea name="body" rows="10" cols="72"></textarea>' ).
mo_html->add( '</td>' ).
lv_exp = '<td>' && lif_defs=>gc_newline &&
' <textarea name="body" rows="10" cols="72"></textarea>' && lif_defs=>gc_newline &&
lv_exp = '<td>' && ZIF_ABAPGIT_DEFINITIONS=>gc_newline &&
' <textarea name="body" rows="10" cols="72"></textarea>' && ZIF_ABAPGIT_DEFINITIONS=>gc_newline &&
'</td>'.
cl_abap_unit_assert=>assert_equals(
@ -1484,8 +1484,8 @@ CLASS ltcl_html IMPLEMENTATION.
mo_html->add( 'foo<br>bar' ).
mo_html->add( '</td>' ).
lv_exp = '<td>' && lif_defs=>gc_newline &&
' foo<br>bar' && lif_defs=>gc_newline &&
lv_exp = '<td>' && ZIF_ABAPGIT_DEFINITIONS=>gc_newline &&
' foo<br>bar' && ZIF_ABAPGIT_DEFINITIONS=>gc_newline &&
'</td>'.
cl_abap_unit_assert=>assert_equals(
@ -1505,11 +1505,11 @@ CLASS ltcl_html IMPLEMENTATION.
mo_html->add( '}' ).
mo_html->add( '</style>' ).
lv_exp = '<style type="text/css">' && lif_defs=>gc_newline &&
' .class1 { color: red }' && lif_defs=>gc_newline &&
' .class2 {' && lif_defs=>gc_newline &&
' color: red' && lif_defs=>gc_newline &&
' }' && lif_defs=>gc_newline &&
lv_exp = '<style type="text/css">' && ZIF_ABAPGIT_DEFINITIONS=>gc_newline &&
' .class1 { color: red }' && ZIF_ABAPGIT_DEFINITIONS=>gc_newline &&
' .class2 {' && ZIF_ABAPGIT_DEFINITIONS=>gc_newline &&
' color: red' && ZIF_ABAPGIT_DEFINITIONS=>gc_newline &&
' }' && ZIF_ABAPGIT_DEFINITIONS=>gc_newline &&
'</style>'.
cl_abap_unit_assert=>assert_equals(
@ -1532,7 +1532,7 @@ CLASS ltcl_serialize DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT F
METHODS:
check
IMPORTING is_item TYPE lif_defs=>ty_item
IMPORTING is_item TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item
RAISING zcx_abapgit_exception,
serialize_tabl FOR TESTING RAISING zcx_abapgit_exception,
serialize_enqu FOR TESTING RAISING zcx_abapgit_exception,
@ -1559,7 +1559,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
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'.
@ -1571,7 +1571,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
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'.
@ -1583,7 +1583,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
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'.
@ -1595,7 +1595,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
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'.
@ -1607,7 +1607,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
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'.
@ -1619,7 +1619,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
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'.
@ -1631,7 +1631,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
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'.
@ -1643,7 +1643,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
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'.
@ -1655,7 +1655,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
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'.
@ -1667,7 +1667,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
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'.
@ -1679,7 +1679,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
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'.
@ -1691,7 +1691,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
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'.
@ -1703,7 +1703,7 @@ CLASS ltcl_serialize IMPLEMENTATION.
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'.
@ -1715,10 +1715,10 @@ CLASS ltcl_serialize IMPLEMENTATION.
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
iv_language = lif_defs=>gc_english ).
iv_language = ZIF_ABAPGIT_DEFINITIONS=>gc_english ).
cl_abap_unit_assert=>assert_not_initial( lt_files ).
@ -2217,11 +2217,11 @@ CLASS ltcl_file_status IMPLEMENTATION.
METHOD calculate_status.
DATA: lt_local TYPE lif_defs=>ty_files_item_tt,
lt_remote TYPE lif_defs=>ty_files_tt,
lt_state TYPE lif_defs=>ty_file_signatures_tt,
lt_results TYPE lif_defs=>ty_results_tt,
lt_results_exp TYPE lif_defs=>ty_results_tt,
DATA: lt_local TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_item_tt,
lt_remote TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_files_tt,
lt_state TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_file_signatures_tt,
lt_results TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_results_tt,
lt_results_exp TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_results_tt,
lo_dot TYPE REF TO lcl_dot_abapgit.
FIELD-SYMBOLS: <local> LIKE LINE OF lt_local,
@ -2324,7 +2324,7 @@ CLASS ltcl_file_status2 IMPLEMENTATION.
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.
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,
mv_force TYPE seoflag,
ms_deserialize_key TYPE seoclskey,
mt_source TYPE lif_defs=>ty_string_tt,
ms_item_to_activate TYPE lif_defs=>ty_item,
mt_descriptions TYPE lif_defs=>ty_seocompotx_tt,
mt_source TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_string_tt,
ms_item_to_activate TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_item,
mt_descriptions TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_seocompotx_tt,
ms_description_key TYPE seoclskey,
mv_text_pool_class_name TYPE seoclsname,
mt_text_pool TYPE textpool_table,
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,
mv_docu_object_name TYPE dokhl-object,
mv_docu_language TYPE spras,
@ -189,7 +189,7 @@ CLASS ltd_fake_object_files IMPLEMENTATION.
exp = abap_false ).
ENDMETHOD.
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 ).
APPEND 'source' TO me->mt_sources.
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_out TYPE REF TO lcl_xml_output,
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
RAISING
zcx_abapgit_exception,
then_should_deserialize_source,
given_the_descriptions
IMPORTING
it_descriptions TYPE lif_defs=>ty_seocompotx_tt
it_descriptions TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_seocompotx_tt
RAISING
zcx_abapgit_exception,
then_shuld_update_descriptions
IMPORTING
it_descriptions TYPE lif_defs=>ty_seocompotx_tt,
it_descriptions TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_seocompotx_tt,
then_it_should_add_activation,
given_documentation_in_xml_as
IMPORTING
@ -389,7 +389,7 @@ CLASS ltcl_class_deserialization IMPLEMENTATION.
METHOD should_update_descriptions.
DATA:
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( ).
@ -466,7 +466,7 @@ CLASS ltcl_class_deserialization IMPLEMENTATION.
METHOD insert_text_pool.
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-key = 'KEY'.
APPEND ls_pool_external TO lt_pool_external.
@ -490,7 +490,7 @@ CLASS ltcl_class_deserialization IMPLEMENTATION.
METHOD create_stor_from_xml.
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.
given_a_class_properties( ).
@ -574,7 +574,7 @@ CLASS ltcl_interface_deserialization IMPLEMENTATION.
METHOD update_descriptions.
DATA:
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( ).
@ -829,7 +829,7 @@ CLASS ltcl_serialize_class IMPLEMENTATION.
ENDMETHOD.
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.
@ -844,7 +844,7 @@ CLASS ltcl_serialize_class IMPLEMENTATION.
ENDMETHOD.
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.
@ -860,7 +860,7 @@ CLASS ltcl_serialize_class IMPLEMENTATION.
ENDMETHOD.
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.
@ -876,7 +876,7 @@ CLASS ltcl_serialize_class IMPLEMENTATION.
ENDMETHOD.
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.
mo_oo_object->serialize( mo_xml_out ).
@ -891,7 +891,7 @@ CLASS ltcl_serialize_class IMPLEMENTATION.
ENDMETHOD.
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.
mo_oo_object->serialize( mo_xml_out ).
@ -1004,8 +1004,8 @@ CLASS ltcl_serialize_class IMPLEMENTATION.
METHOD read_sotr_if_exception_class.
DATA:
lt_sotr TYPE lif_defs=>ty_sotr_tt,
lt_actual_sotr TYPE lif_defs=>ty_sotr_tt,
lt_sotr TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sotr_tt,
lt_actual_sotr TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_sotr_tt,
ls_sotr LIKE LINE OF lt_sotr.
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.
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.
@ -1080,9 +1080,9 @@ CLASS ltcl_serialize_class IMPLEMENTATION.
METHOD should_serialize_descriptions.
DATA:
lt_descriptions TYPE lif_defs=>ty_seocompotx_tt,
lt_actual_descriptions TYPE lif_defs=>ty_seocompotx_tt,
ls_description TYPE LINE OF lif_defs=>ty_seocompotx_tt.
lt_descriptions TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_seocompotx_tt,
lt_actual_descriptions TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_seocompotx_tt,
ls_description TYPE LINE OF ZIF_ABAPGIT_DEFINITIONS=>ty_seocompotx_tt.
ls_description-clsname = 'class'.
APPEND ls_description TO lt_descriptions.
@ -1146,7 +1146,7 @@ CLASS ltcl_serialize_interface IMPLEMENTATION.
ENDMETHOD.
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.
@ -1232,9 +1232,9 @@ CLASS ltcl_serialize_interface IMPLEMENTATION.
METHOD should_serialize_descriptions.
DATA:
lt_descriptions TYPE lif_defs=>ty_seocompotx_tt,
lt_actual_descriptions TYPE lif_defs=>ty_seocompotx_tt,
ls_description TYPE LINE OF lif_defs=>ty_seocompotx_tt.
lt_descriptions TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_seocompotx_tt,
lt_actual_descriptions TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_seocompotx_tt,
ls_description TYPE LINE OF ZIF_ABAPGIT_DEFINITIONS=>ty_seocompotx_tt.
ls_description-clsname = 'class'.
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_path 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
RAISING zcx_abapgit_exception,
then_file_should_be_added
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
IMPORTING
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,
mt_transport_objects TYPE scts_tadir,
mt_object_statuses TYPE lif_defs=>ty_results_tt,
ms_stage_objects TYPE lif_defs=>ty_stage_files,
mt_object_statuses TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_results_tt,
ms_stage_objects TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_stage_files,
mo_stage TYPE REF TO lcl_stage.
ENDCLASS.
@ -63,7 +63,7 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
iv_branch_sha1 = 'Branch_SH1'.
ENDMETHOD.
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(
iv_obj_name = 'CL_FOO'
@ -73,7 +73,7 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
iv_obj_name = 'CL_FOO'
iv_obj_type = 'CLAS'
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(
iv_obj_name = 'CL_FOO'
@ -87,7 +87,7 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
then_file_should_be_added( ls_local_file ).
ENDMETHOD.
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(
iv_obj_name = 'CL_FOO'
iv_obj_type = 'CLAS' ).
@ -96,7 +96,7 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
iv_obj_name = 'CL_FOO'
iv_obj_type = 'CLAS'
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(
iv_obj_name = 'CL_FOO'
@ -111,8 +111,8 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
ENDMETHOD.
METHOD should_add_all_local_files.
"Not only .abap, but also .xml and other includes
DATA ls_abap_local_file TYPE lif_defs=>ty_file_item.
DATA ls_xml_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 ZIF_ABAPGIT_DEFINITIONS=>ty_file_item.
given_the_transport_object(
iv_obj_name = 'CL_FOO'
@ -122,13 +122,13 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
iv_obj_name = 'CL_FOO'
iv_obj_type = 'CLAS'
iv_filename = 'CL_FOO.abap'
iv_lstate = lif_defs=>gc_state-modified ).
iv_lstate = ZIF_ABAPGIT_DEFINITIONS=>gc_state-modified ).
given_the_object_status(
iv_obj_name = 'CL_FOO'
iv_obj_type = 'CLAS'
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(
iv_obj_name = 'CL_FOO'
@ -157,7 +157,7 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
given_the_object_status(
iv_obj_name = 'CL_FOO'
iv_obj_type = 'CLAS'
iv_lstate = lif_defs=>gc_state-added ).
iv_lstate = ZIF_ABAPGIT_DEFINITIONS=>gc_state-added ).
then_it_should_raise_exception(
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(
iv_obj_name = 'CL_FOO'
iv_obj_type = 'CLAS'
iv_lstate = lif_defs=>gc_state-added ).
iv_lstate = ZIF_ABAPGIT_DEFINITIONS=>gc_state-added ).
given_the_local_file(
iv_obj_name = 'CL_ANOTHER_LOCAL_FILE'
@ -194,7 +194,7 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
given_the_object_status(
iv_obj_name = 'CL_FOO'
iv_obj_type = 'CLAS'
iv_lstate = lif_defs=>gc_state-added ).
iv_lstate = ZIF_ABAPGIT_DEFINITIONS=>gc_state-added ).
then_it_should_raise_exception(
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(
iv_obj_name = 'CL_FOO'
iv_obj_type = 'CLAS'
iv_lstate = lif_defs=>gc_state-modified ).
iv_lstate = ZIF_ABAPGIT_DEFINITIONS=>gc_state-modified ).
then_it_should_raise_exception(
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_filename = 'CL_FOO.abap'
iv_path = '/a_path'
iv_lstate = lif_defs=>gc_state-deleted ).
iv_lstate = ZIF_ABAPGIT_DEFINITIONS=>gc_state-deleted ).
when_staging( ).
@ -246,14 +246,14 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
iv_obj_type = 'CLAS'
iv_filename = 'CL_FOO.abap'
iv_path = '/a_path'
iv_lstate = lif_defs=>gc_state-deleted ).
iv_lstate = ZIF_ABAPGIT_DEFINITIONS=>gc_state-deleted ).
given_the_object_status(
iv_obj_name = 'CL_FOO'
iv_obj_type = 'CLAS'
iv_filename = 'CL_FOO.xml'
iv_path = '/a_path'
iv_lstate = lif_defs=>gc_state-deleted ).
iv_lstate = ZIF_ABAPGIT_DEFINITIONS=>gc_state-deleted ).
when_staging( ).
@ -277,7 +277,7 @@ CLASS ltcl_transport_objects IMPLEMENTATION.
iv_obj_type = 'CLAS'
iv_filename = 'CL_FOO.abap'
iv_path = '/a_path'
iv_lstate = lif_defs=>gc_state-deleted ).
iv_lstate = ZIF_ABAPGIT_DEFINITIONS=>gc_state-deleted ).
then_it_should_raise_exception(
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.
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_type = iv_obj_type.
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.
cv_prev = iv_cur.
ELSE.
cv_prev = lif_defs=>gc_state-mixed.
cv_prev = ZIF_ABAPGIT_DEFINITIONS=>gc_state-mixed.
ENDIF.
ENDMETHOD.
@ -93,7 +93,7 @@ CLASS lcl_convert DEFINITION FINAL.
CLASS-METHODS x_to_bitbyte
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
IMPORTING iv_string TYPE string
@ -254,14 +254,14 @@ CLASS lcl_hash DEFINITION FINAL.
RETURNING VALUE(rv_checksum) TYPE ty_adler32.
CLASS-METHODS sha1
IMPORTING iv_type TYPE lif_defs=>ty_type
IMPORTING iv_type TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_type
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.
CLASS-METHODS sha1_raw
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.
ENDCLASS. "lcl_hash DEFINITION
@ -593,7 +593,7 @@ CLASS lcl_diff DEFINITION FINAL.
update TYPE i,
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
* 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_old = lcl_convert=>xstring_to_string_utf8( iv_old ).
SPLIT lv_new AT lif_defs=>gc_newline INTO TABLE et_new.
SPLIT lv_old AT lif_defs=>gc_newline INTO TABLE et_old.
SPLIT lv_new AT ZIF_ABAPGIT_DEFINITIONS=>gc_newline INTO TABLE et_new.
SPLIT lv_old AT ZIF_ABAPGIT_DEFINITIONS=>gc_newline INTO TABLE et_old.
ENDMETHOD. "unpack

84
src/zabapgit_view_repo.prog.abap
View File

@ -102,21 +102,21 @@ CLASS lcl_gui_view_repo IMPLEMENTATION.
CASE iv_action.
WHEN c_actions-toggle_hide_files. " Toggle file diplay
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
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 ).
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
mv_show_folders = boolc( mv_show_folders <> abap_true ).
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
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
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.
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 {
lcl_html=>a( iv_txt = lv_add_str iv_act = c_actions-display_more )
} 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>' ).
ENDIF.
@ -265,9 +265,9 @@ CLASS lcl_gui_view_repo IMPLEMENTATION.
DATA: lo_tb_advanced TYPE REF TO lcl_html_toolbar,
lo_tb_branch TYPE REF TO lcl_html_toolbar,
lv_key TYPE lcl_persistence_db=>ty_value,
lv_wp_opt LIKE lif_defs=>gc_html_opt-crossout,
lv_crossout LIKE lif_defs=>gc_html_opt-crossout,
lv_pull_opt LIKE lif_defs=>gc_html_opt-crossout.
lv_wp_opt LIKE ZIF_ABAPGIT_DEFINITIONS=>gc_html_opt-crossout,
lv_crossout LIKE ZIF_ABAPGIT_DEFINITIONS=>gc_html_opt-crossout,
lv_pull_opt LIKE ZIF_ABAPGIT_DEFINITIONS=>gc_html_opt-crossout.
CREATE OBJECT ro_toolbar.
CREATE OBJECT lo_tb_branch.
@ -276,60 +276,60 @@ CLASS lcl_gui_view_repo IMPLEMENTATION.
lv_key = mo_repo->get_key( ).
IF mo_repo->is_write_protected( ) = abap_true.
lv_wp_opt = lif_defs=>gc_html_opt-crossout.
lv_pull_opt = lif_defs=>gc_html_opt-crossout.
lv_wp_opt = ZIF_ABAPGIT_DEFINITIONS=>gc_html_opt-crossout.
lv_pull_opt = ZIF_ABAPGIT_DEFINITIONS=>gc_html_opt-crossout.
ELSE.
lv_pull_opt = lif_defs=>gc_html_opt-strong.
lv_pull_opt = ZIF_ABAPGIT_DEFINITIONS=>gc_html_opt-strong.
ENDIF.
" Build branch drop-down ========================
IF mo_repo->is_offline( ) = abap_false. " Online ?
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'
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 ).
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'
iv_act = |{ lif_defs=>gc_action-git_branch_delete }?{ lv_key }| ).
iv_act = |{ ZIF_ABAPGIT_DEFINITIONS=>gc_action-git_branch_delete }?{ lv_key }| ).
ENDIF.
" Build advanced drop-down ========================
IF mo_repo->is_offline( ) = abap_false. " Online ?
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 ).
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'
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'
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'
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'
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.
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.
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'
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'
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'
iv_act = |{ lif_defs=>gc_action-repo_remove }?{ lv_key }| ).
iv_act = |{ ZIF_ABAPGIT_DEFINITIONS=>gc_action-repo_remove }?{ lv_key }| ).
CLEAR lv_crossout.
IF mo_repo->is_write_protected( ) = abap_true
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.
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 ).
" Build main toolbar ==============================
@ -337,18 +337,18 @@ CLASS lcl_gui_view_repo IMPLEMENTATION.
TRY.
IF iv_rstate IS NOT INITIAL. " Something new at remote
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 ).
ENDIF.
IF iv_lstate IS NOT INITIAL. " Something new at local
ro_toolbar->add( iv_txt = 'Stage'
iv_act = |{ lif_defs=>gc_action-go_stage }?{ lv_key }|
iv_opt = lif_defs=>gc_html_opt-strong ).
iv_act = |{ ZIF_ABAPGIT_DEFINITIONS=>gc_action-go_stage }?{ lv_key }|
iv_opt = ZIF_ABAPGIT_DEFINITIONS=>gc_html_opt-strong ).
ENDIF.
IF iv_rstate IS NOT INITIAL OR iv_lstate IS NOT INITIAL. " Any changes
ro_toolbar->add( iv_txt = 'Show diff'
iv_act = |{ lif_defs=>gc_action-go_diff }?key={ lv_key }|
iv_opt = lif_defs=>gc_html_opt-strong ).
iv_act = |{ ZIF_ABAPGIT_DEFINITIONS=>gc_action-go_diff }?key={ lv_key }|
iv_opt = ZIF_ABAPGIT_DEFINITIONS=>gc_html_opt-strong ).
ENDIF.
CATCH zcx_abapgit_exception ##NO_HANDLER.
" authorization error or repository does not exist
@ -358,17 +358,17 @@ CLASS lcl_gui_view_repo IMPLEMENTATION.
io_sub = lo_tb_branch ) ##NO_TEXT.
ELSE.
ro_toolbar->add( iv_txt = 'Import ZIP'
iv_act = |{ lif_defs=>gc_action-zip_import }?{ lv_key }|
iv_opt = lif_defs=>gc_html_opt-strong ).
iv_act = |{ ZIF_ABAPGIT_DEFINITIONS=>gc_action-zip_import }?{ lv_key }|
iv_opt = ZIF_ABAPGIT_DEFINITIONS=>gc_html_opt-strong ).
ro_toolbar->add( iv_txt = 'Export ZIP'
iv_act = |{ lif_defs=>gc_action-zip_export }?{ lv_key }|
iv_opt = lif_defs=>gc_html_opt-strong ).
iv_act = |{ ZIF_ABAPGIT_DEFINITIONS=>gc_action-zip_export }?{ lv_key }|
iv_opt = ZIF_ABAPGIT_DEFINITIONS=>gc_html_opt-strong ).
ENDIF.
ro_toolbar->add( iv_txt = 'Advanced'
io_sub = lo_tb_advanced ) ##NO_TEXT.
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' )
io_sub = build_grid_menu( ) ).
@ -497,7 +497,7 @@ CLASS lcl_gui_view_repo IMPLEMENTATION.
ro_html->add( '<div>' ).
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
iv2 = is_item-rstate ) ).
ro_html->add( '</div>' ).
@ -511,7 +511,7 @@ CLASS lcl_gui_view_repo IMPLEMENTATION.
iv_key = mo_repo->get_key( )
ig_file = ls_file ).
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
iv2 = ls_file-rstate ) ).
ELSE.
@ -570,7 +570,7 @@ CLASS lcl_gui_view_repo IMPLEMENTATION.
iv_obj_name = 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

12
src/zabapgit_view_tutorial.prog.abap
View File

@ -16,7 +16,7 @@ ENDCLASS. "lcl_gui_view_tutorial
CLASS lcl_gui_view_tutorial IMPLEMENTATION.
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.
METHOD lif_gui_page~render.
@ -40,17 +40,17 @@ CLASS lcl_gui_view_tutorial IMPLEMENTATION.
ro_html->add( '<p><ul>' ).
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( `<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( ' 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( `<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( '</ul></p>' ).
@ -70,7 +70,7 @@ CLASS lcl_gui_view_tutorial IMPLEMENTATION.
ro_html->add( 'abapGit installed in package&nbsp;' ).
ro_html->add( lcl_services_abapgit=>c_package_abapgit ).
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( 'install it as a repository.' ).
ENDIF.
@ -80,7 +80,7 @@ CLASS lcl_gui_view_tutorial IMPLEMENTATION.
ro_html->add( 'abapGit plugins installed in package&nbsp;' ).
ro_html->add( lcl_services_abapgit=>c_package_plugins ).
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' ).
ENDIF.
ro_html->add( '</li>' ).

12
src/zabapgit_xml.prog.abap
View File

@ -16,7 +16,7 @@ CLASS lcl_xml DEFINITION ABSTRACT.
PROTECTED SECTION.
DATA: mi_ixml TYPE REF TO if_ixml,
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,
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_version = li_element->if_ixml_node~get_attributes(
)->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( ).
ENDIF.
@ -96,7 +96,7 @@ CLASS lcl_xml IMPLEMENTATION.
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'
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,
render
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.
PRIVATE SECTION.
@ -270,7 +270,7 @@ CLASS lcl_xml_output IMPLEMENTATION.
ENDIF.
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.
li_git->set_attribute( name = c_attr_serializer
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,
* todo, add read_xml to match add_xml in lcl_xml_output
get_metadata
RETURNING VALUE(rs_metadata) TYPE lif_defs=>ty_metadata.
RETURNING VALUE(rs_metadata) TYPE ZIF_ABAPGIT_DEFINITIONS=>ty_metadata.
PRIVATE SECTION.
METHODS: fix_xml.

14
src/zabapgit_zip.prog.abap
View File

@ -32,11 +32,11 @@ CLASS lcl_zip DEFINITION FINAL.
CLASS-METHODS unzip_file
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.
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.
CLASS-METHODS filename
@ -51,7 +51,7 @@ CLASS lcl_zip DEFINITION FINAL.
RAISING zcx_abapgit_exception.
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
RAISING zcx_abapgit_exception.
@ -342,7 +342,7 @@ CLASS lcl_zip IMPLEMENTATION.
<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 ).
ENDLOOP.
@ -354,7 +354,7 @@ CLASS lcl_zip IMPLEMENTATION.
METHOD export.
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.
@ -410,12 +410,12 @@ CLASS lcl_zip IMPLEMENTATION.
METHOD export_object.
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_fullpath TYPE string,
lt_rawdata TYPE solix_tab,
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.