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

late repo access, fix progressbar, close #159

Browse Source
This commit is contained in:
larshp 2016-05-06 10:28:49 +00:00
parent 81581c6e04
commit 7397f1520d
1 changed files with 66 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

121
zabapgit.prog.abap
View File

@ -3,7 +3,7 @@ REPORT zabapgit.
* See http://www.abapgit.org * See http://www.abapgit.org
CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v1.4.10'. "#EC NOTEXT gc_abap_version TYPE string VALUE 'v1.4.11'. "#EC NOTEXT
******************************************************************************** ********************************************************************************
* The MIT License (MIT) * The MIT License (MIT)
@ -14571,8 +14571,6 @@ CLASS lcl_repo DEFINITION ABSTRACT.
RETURNING VALUE(rv_package) TYPE lcl_persistence_repo=>ty_repo-package, RETURNING VALUE(rv_package) TYPE lcl_persistence_repo=>ty_repo-package,
delete delete
RAISING lcx_exception, RAISING lcx_exception,
* add
* RAISING lcx_exception,
refresh refresh
RAISING lcx_exception, RAISING lcx_exception,
is_offline is_offline
@ -14604,11 +14602,14 @@ CLASS lcl_repo_online DEFINITION INHERITING FROM lcl_repo FINAL.
get_sha1_local get_sha1_local
RETURNING VALUE(rv_sha1) TYPE lcl_persistence_repo=>ty_repo-sha1, RETURNING VALUE(rv_sha1) TYPE lcl_persistence_repo=>ty_repo-sha1,
get_sha1_remote get_sha1_remote
RETURNING VALUE(rv_sha1) TYPE lcl_persistence_repo=>ty_repo-sha1, RETURNING VALUE(rv_sha1) TYPE lcl_persistence_repo=>ty_repo-sha1
RAISING lcx_exception,
get_files get_files
RETURNING VALUE(rt_files) TYPE ty_files_tt, RETURNING VALUE(rt_files) TYPE ty_files_tt
RAISING lcx_exception,
get_objects get_objects
RETURNING VALUE(rt_objects) TYPE lcl_git_pack=>ty_objects_tt, RETURNING VALUE(rt_objects) TYPE lcl_git_pack=>ty_objects_tt
RAISING lcx_exception,
deserialize deserialize
RAISING lcx_exception, RAISING lcx_exception,
status status
@ -14623,9 +14624,12 @@ CLASS lcl_repo_online DEFINITION INHERITING FROM lcl_repo FINAL.
DATA: DATA:
mt_files TYPE ty_files_tt, mt_files TYPE ty_files_tt,
mt_objects TYPE lcl_git_pack=>ty_objects_tt, mt_objects TYPE lcl_git_pack=>ty_objects_tt,
mv_branch TYPE ty_sha1. mv_branch TYPE ty_sha1,
mv_initialized TYPE abap_bool.
METHODS: METHODS:
initialize
RAISING lcx_exception,
set_sha1 set_sha1
IMPORTING iv_sha1 TYPE ty_sha1 IMPORTING iv_sha1 TYPE ty_sha1
RAISING lcx_exception. RAISING lcx_exception.
@ -14783,7 +14787,6 @@ CLASS lcl_repo_srv DEFINITION FINAL.
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS refresh CLASS-METHODS refresh
IMPORTING iv_show_progress TYPE abap_bool DEFAULT abap_true
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS new_online CLASS-METHODS new_online
@ -14822,12 +14825,7 @@ CLASS lcl_repo_srv DEFINITION FINAL.
IMPORTING IMPORTING
iv_package TYPE devclass iv_package TYPE devclass
RAISING RAISING
lcx_exception, lcx_exception.
show_progress
IMPORTING
iv_current TYPE i
iv_total TYPE i
iv_text TYPE string.
ENDCLASS. "lcl_repo_srv DEFINITION ENDCLASS. "lcl_repo_srv DEFINITION
@ -14841,12 +14839,21 @@ CLASS lcl_repo_online IMPLEMENTATION.
METHOD constructor. METHOD constructor.
super->constructor( is_data ). super->constructor( is_data ).
refresh( ).
mv_initialized = abap_false.
ENDMETHOD. "constructor ENDMETHOD. "constructor
METHOD initialize.
IF mv_initialized = abap_false.
refresh( ).
ENDIF.
ENDMETHOD.
METHOD status. METHOD status.
initialize( ).
rt_results = lcl_file_status=>status( it_files = mt_files rt_results = lcl_file_status=>status( it_files = mt_files
iv_package = get_package( ) ). iv_package = get_package( ) ).
@ -14854,6 +14861,8 @@ CLASS lcl_repo_online IMPLEMENTATION.
METHOD deserialize. METHOD deserialize.
initialize( ).
lcl_objects=>deserialize( it_files = mt_files lcl_objects=>deserialize( it_files = mt_files
iv_package = get_package( ) ). iv_package = get_package( ) ).
@ -14868,17 +14877,25 @@ CLASS lcl_repo_online IMPLEMENTATION.
et_objects = mt_objects et_objects = mt_objects
ev_branch = mv_branch ). ev_branch = mv_branch ).
mv_initialized = abap_true.
ENDMETHOD. "refresh ENDMETHOD. "refresh
METHOD get_sha1_remote. METHOD get_sha1_remote.
initialize( ).
rv_sha1 = mv_branch. rv_sha1 = mv_branch.
ENDMETHOD. "get_sha1_remote ENDMETHOD. "get_sha1_remote
METHOD get_files. METHOD get_files.
initialize( ).
rt_files = mt_files. rt_files = mt_files.
ENDMETHOD. "get_files ENDMETHOD. "get_files
METHOD get_objects. METHOD get_objects.
initialize( ).
rt_objects = mt_objects. rt_objects = mt_objects.
ENDMETHOD. "get_objects ENDMETHOD. "get_objects
@ -14962,22 +14979,6 @@ CLASS lcl_repo IMPLEMENTATION.
ENDMETHOD. "refresh ENDMETHOD. "refresh
* METHOD add.
*
* DATA: lo_persistence TYPE REF TO lcl_persistence_repo.
*
*
* CREATE OBJECT lo_persistence.
*
* lo_persistence->add(
* iv_url = ms_data-url
* iv_branch_name = ms_data-branch_name
* iv_branch = ms_data-sha1
* iv_package = ms_data-package
* iv_offline = ms_data-offline ).
*
* ENDMETHOD. "add
METHOD get_package. METHOD get_package.
rv_package = ms_data-package. rv_package = ms_data-package.
ENDMETHOD. "get_package ENDMETHOD. "get_package
@ -15048,12 +15049,6 @@ CLASS lcl_repo_srv IMPLEMENTATION.
lt_list = go_persistence->list( ). lt_list = go_persistence->list( ).
LOOP AT lt_list ASSIGNING <ls_list>. LOOP AT lt_list ASSIGNING <ls_list>.
IF iv_show_progress = abap_true.
show_progress( iv_current = sy-tabix
iv_total = lines( lt_list )
iv_text = <ls_list>-url ).
ENDIF.
IF <ls_list>-offline = abap_false. IF <ls_list>-offline = abap_false.
CREATE OBJECT lo_online CREATE OBJECT lo_online
EXPORTING EXPORTING
@ -15144,27 +15139,6 @@ CLASS lcl_repo_srv IMPLEMENTATION.
ENDMETHOD. "add ENDMETHOD. "add
METHOD show_progress.
DATA: lv_text TYPE c LENGTH 100,
lv_pct TYPE i,
lv_f TYPE f.
lv_text = iv_text.
lv_f = ( iv_current / iv_total ) * 100.
lv_pct = lv_f.
IF lv_pct = 100.
lv_pct = 99.
ENDIF.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = lv_pct
text = lv_text.
ENDMETHOD. "show_progress
METHOD validate_package. METHOD validate_package.
DATA: lv_devclass TYPE tdevc-devclass, DATA: lv_devclass TYPE tdevc-devclass,
@ -16929,6 +16903,12 @@ CLASS lcl_gui_page_main DEFINITION FINAL.
CLASS-METHODS needs_installation CLASS-METHODS needs_installation
RETURNING VALUE(rv_not_completely_installed) TYPE abap_bool. RETURNING VALUE(rv_not_completely_installed) TYPE abap_bool.
CLASS-METHODS show_progress
IMPORTING
iv_current TYPE i
iv_total TYPE i
iv_text TYPE string.
ENDCLASS. ENDCLASS.
CLASS lcl_gui_page_diff DEFINITION FINAL. CLASS lcl_gui_page_diff DEFINITION FINAL.
@ -18171,6 +18151,27 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD show_progress.
DATA: lv_text TYPE c LENGTH 100,
lv_pct TYPE i,
lv_f TYPE f.
lv_text = iv_text.
lv_f = ( iv_current / iv_total ) * 100.
lv_pct = lv_f.
IF lv_pct = 100.
lv_pct = 99.
ENDIF.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = lv_pct
text = lv_text.
ENDMETHOD.
METHOD lif_gui_page~render. METHOD lif_gui_page~render.
DATA: lt_repos TYPE lcl_repo_srv=>ty_repo_tt, DATA: lt_repos TYPE lcl_repo_srv=>ty_repo_tt,
@ -18203,6 +18204,10 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
'</div>' && gc_newline. '</div>' && gc_newline.
ELSE. ELSE.
LOOP AT lt_repos INTO lo_repo. LOOP AT lt_repos INTO lo_repo.
show_progress( iv_current = sy-tabix
iv_total = lines( lt_repos )
iv_text = lo_repo->get_name( ) ).
IF lo_repo->is_offline( ) = abap_true. IF lo_repo->is_offline( ) = abap_true.
lo_repo_offline ?= lo_repo. lo_repo_offline ?= lo_repo.
rv_html = rv_html && render_repo_offline( lo_repo_offline ). rv_html = rv_html && render_repo_offline( lo_repo_offline ).