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

#311 private variables, constructor

Browse Source
This commit is contained in:
atsy 2016-09-04 20:27:28 +03:00
parent e933fed543
commit d0c4d41681
2 changed files with 24 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/zabapgit_git.prog.abap
View File

@ -96,7 +96,7 @@ ENDCLASS. "lcl_git_utils
*----------------------------------------------------------------------*
* CLASS lcl_git_branch_list DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_git_branch_list DEFINITION FINAL CREATE PRIVATE.
CLASS lcl_git_branch_list DEFINITION FINAL.
PUBLIC SECTION.
TYPES: ty_git_branch_type TYPE char2.
TYPES: BEGIN OF ty_git_branch,
@ -115,12 +115,8 @@ CLASS lcl_git_branch_list DEFINITION FINAL CREATE PRIVATE.
END OF c_type.
CONSTANTS HEAD_NAME TYPE string VALUE 'HEAD'.
DATA mt_branches TYPE ty_git_branch_list_tt READ-ONLY.
DATA mv_head_symref TYPE string READ-ONLY.
CLASS-METHODS create
METHODS constructor
IMPORTING iv_data TYPE string
RETURNING VALUE(ro_list) TYPE REF TO lcl_git_branch_list
RAISING lcx_exception.
METHODS find_by_name
@ -157,6 +153,9 @@ CLASS lcl_git_branch_list DEFINITION FINAL CREATE PRIVATE.
RETURNING VALUE(rv_name) TYPE string.
PRIVATE SECTION.
DATA mt_branches TYPE ty_git_branch_list_tt.
DATA mv_head_symref TYPE string.
CLASS-METHODS parse_branch_list
IMPORTING iv_data TYPE string
EXPORTING et_list TYPE ty_git_branch_list_tt
@ -537,7 +536,7 @@ CLASS lcl_git_transport IMPLEMENTATION.
ii_client = ei_client ).
lv_data = ei_client->response->get_cdata( ).
eo_branch_list = lcl_git_branch_list=>create( lv_data ).
create object eo_branch_list exporting iv_data = lv_data.
ENDMETHOD. "branch_list
@ -748,12 +747,11 @@ ENDCLASS. "lcl_transport IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS lcl_git_branch_list IMPLEMENTATION.
METHOD create.
CREATE OBJECT ro_list.
METHOD constructor.
parse_branch_list(
EXPORTING iv_data = iv_data
IMPORTING et_list = ro_list->mt_branches
ev_head_symref = ro_list->mv_head_symref ).
IMPORTING et_list = me->mt_branches
ev_head_symref = me->mv_head_symref ).
ENDMETHOD. "create
METHOD find_by_name.
@ -772,7 +770,11 @@ CLASS lcl_git_branch_list IMPLEMENTATION.
METHOD get_head.
rs_branch = find_by_name( HEAD_NAME ).
IF mv_head_symref IS NOT INITIAL.
rs_branch = find_by_name( mv_head_symref ).
ELSE.
rs_branch = find_by_name( HEAD_NAME ).
ENDIF.
ENDMETHOD. "get_head

12
src/zabapgit_popups.prog.abap
View File

@ -221,20 +221,28 @@ CLASS lcl_popups IMPLEMENTATION.
METHOD branch_list_popup.
DATA: lo_branches TYPE REF TO lcl_git_branch_list,
lt_branches TYPE lcl_git_branch_list=>ty_git_branch_list_tt,
lv_answer TYPE c LENGTH 1,
lt_selection TYPE TABLE OF spopli.
FIELD-SYMBOLS: <ls_sel> LIKE LINE OF lt_selection,
<ls_branch> LIKE LINE OF lcl_git_branch_list=>mt_branches.
<ls_branch> LIKE LINE OF lt_branches.
lo_branches = lcl_git_transport=>branches( iv_url ).
LOOP AT lo_branches->mt_branches ASSIGNING <ls_branch>.
lt_branches = lo_branches->get_branches_only( ).
LOOP AT lt_branches ASSIGNING <ls_branch>.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-varoption = <ls_branch>-name.
ENDLOOP.
* lt_branches = lo_branches->get_tags_only( ).
* LOOP AT lt_branches ASSIGNING <ls_branch>.
* APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
* <ls_sel>-varoption = <ls_branch>-name.
* ENDLOOP.
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
textline1 = 'Select branch'