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

just a bit more

Browse Source
This commit is contained in:
Lars Hvam 2015-12-19 15:56:08 +01:00
parent 7ea148b33f
commit ebe81abf1b
1 changed files with 39 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
zabapgit.abap
View File

@ -3,7 +3,7 @@ REPORT zabapgit.
* See https://github.com/larshp/abapGit/ * See https://github.com/larshp/abapGit/
CONSTANTS: gc_xml_version TYPE string VALUE 'v0.2-alpha', "#EC NOTEXT CONSTANTS: gc_xml_version TYPE string VALUE 'v0.2-alpha', "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v0.82'. "#EC NOTEXT gc_abap_version TYPE string VALUE 'v0.83'. "#EC NOTEXT
******************************************************************************** ********************************************************************************
* The MIT License (MIT) * The MIT License (MIT)
@ -10476,7 +10476,7 @@ ENDCLASS. "lcl_object IMPLEMENTATION
CLASS lcl_hash DEFINITION FINAL. CLASS lcl_hash DEFINITION FINAL.
PUBLIC SECTION. PUBLIC SECTION.
TYPES: ty_adler32 TYPE x LENGTH 4. TYPES: ty_adler32 TYPE x LENGTH 4.
CLASS-METHODS adler32 CLASS-METHODS adler32
IMPORTING iv_xstring TYPE xstring IMPORTING iv_xstring TYPE xstring
@ -11939,14 +11939,24 @@ CLASS lcl_git_transport DEFINITION FINAL.
iv_pack TYPE xstring iv_pack TYPE xstring
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS branch_list CLASS-METHODS branches
IMPORTING iv_url TYPE string IMPORTING iv_url TYPE string
iv_service TYPE string DEFAULT 'upload' RETURNING VALUE(rt_branch_list) TYPE ty_branch_list_tt
EXPORTING ei_client TYPE REF TO if_http_client RAISING lcx_exception.
et_branch_list TYPE ty_branch_list_tt
RAISING lcx_exception ##no_text.
PRIVATE SECTION. PRIVATE SECTION.
CONSTANTS: BEGIN OF c_service,
receive TYPE string VALUE 'receive', "#EC NOTEXT
upload TYPE string VALUE 'upload', "#EC NOTEXT
END OF c_service.
CLASS-METHODS branch_list
IMPORTING iv_url TYPE string
iv_service TYPE string
EXPORTING ei_client TYPE REF TO if_http_client
et_branch_list TYPE ty_branch_list_tt
RAISING lcx_exception.
CLASS-METHODS pkt_string CLASS-METHODS pkt_string
IMPORTING iv_string TYPE string IMPORTING iv_string TYPE string
RETURNING VALUE(rv_pkt) TYPE string RETURNING VALUE(rv_pkt) TYPE string
@ -12131,6 +12141,22 @@ CLASS lcl_git_transport IMPLEMENTATION.
ENDMETHOD. "find_branch ENDMETHOD. "find_branch
METHOD branches.
DATA: li_client TYPE REF TO if_http_client.
lcl_git_transport=>branch_list(
EXPORTING
iv_url = iv_url
iv_service = c_service-upload
IMPORTING
ei_client = li_client
et_branch_list = rt_branch_list ).
li_client->close( ).
ENDMETHOD.
METHOD branch_list. METHOD branch_list.
DATA: lv_data TYPE string, DATA: lv_data TYPE string,
@ -12206,8 +12232,6 @@ CLASS lcl_git_transport IMPLEMENTATION.
METHOD receive_pack. METHOD receive_pack.
CONSTANTS: lc_service TYPE string VALUE 'receive'. "#EC NOTEXT
DATA: li_client TYPE REF TO if_http_client, DATA: li_client TYPE REF TO if_http_client,
lv_cmd_pkt TYPE string, lv_cmd_pkt TYPE string,
lv_line TYPE string, lv_line TYPE string,
@ -12221,14 +12245,14 @@ CLASS lcl_git_transport IMPLEMENTATION.
find_branch( find_branch(
EXPORTING EXPORTING
io_repo = io_repo io_repo = io_repo
iv_service = lc_service iv_service = c_service-receive
IMPORTING IMPORTING
ei_client = li_client ei_client = li_client
ev_branch = lv_branch ). ev_branch = lv_branch ).
set_headers( set_headers(
io_repo = io_repo io_repo = io_repo
iv_service = lc_service iv_service = c_service-receive
ii_client = li_client ). ii_client = li_client ).
lv_line = lv_branch && lv_line = lv_branch &&
@ -12327,8 +12351,6 @@ CLASS lcl_git_transport IMPLEMENTATION.
METHOD upload_pack. METHOD upload_pack.
CONSTANTS: lc_service TYPE string VALUE 'upload'. "#EC NOTEXT
DATA: li_client TYPE REF TO if_http_client, DATA: li_client TYPE REF TO if_http_client,
lv_buffer TYPE string, lv_buffer TYPE string,
lv_xstring TYPE xstring, lv_xstring TYPE xstring,
@ -12340,14 +12362,14 @@ CLASS lcl_git_transport IMPLEMENTATION.
find_branch( find_branch(
EXPORTING EXPORTING
io_repo = io_repo io_repo = io_repo
iv_service = lc_service iv_service = c_service-upload
IMPORTING IMPORTING
ei_client = li_client ei_client = li_client
ev_branch = ev_branch ). ev_branch = ev_branch ).
set_headers( set_headers(
io_repo = io_repo io_repo = io_repo
iv_service = lc_service iv_service = c_service-upload
ii_client = li_client ). ii_client = li_client ).
lv_line = 'want' && lv_line = 'want' &&
@ -14667,13 +14689,7 @@ FORM branch_popup TABLES tt_fields STRUCTURE sval
lv_url = <ls_furl>-value. lv_url = <ls_furl>-value.
TRY. TRY.
lcl_git_transport=>branch_list( lt_branches = lcl_git_transport=>branches( lv_url ).
EXPORTING
iv_url = lv_url
IMPORTING
ei_client = li_client
et_branch_list = lt_branches ).
li_client->close( ).
CATCH lcx_exception INTO lx_error. CATCH lcx_exception INTO lx_error.
MESSAGE lx_error TYPE 'S' DISPLAY LIKE 'E'. MESSAGE lx_error TYPE 'S' DISPLAY LIKE 'E'.
RETURN. RETURN.