mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 20:03:20 +08:00
starting some gui
This commit is contained in:
Lars Hvam
parent
47e9c9d091
commit
d9394ff7c4
435
zagit.abap
435
zagit.abap
|
|
@ -35,6 +35,8 @@ TYPES: BEGIN OF st_commit,
|
||||||
body TYPE string,
|
body TYPE string,
|
||||||
END OF st_commit.
|
END OF st_commit.
|
||||||
|
|
||||||
|
TYPES: tt_string TYPE STANDARD TABLE OF string WITH DEFAULT KEY.
|
||||||
|
|
||||||
CONSTANTS: gc_commit TYPE t_type VALUE 'commit', "#EC NOTEXT
|
CONSTANTS: gc_commit TYPE t_type VALUE 'commit', "#EC NOTEXT
|
||||||
gc_tree TYPE t_type VALUE 'tree', "#EC NOTEXT
|
gc_tree TYPE t_type VALUE 'tree', "#EC NOTEXT
|
||||||
gc_ref_d TYPE t_type VALUE 'ref_d', "#EC NOTEXT
|
gc_ref_d TYPE t_type VALUE 'ref_d', "#EC NOTEXT
|
||||||
|
|
@ -199,51 +201,15 @@ CLASS lcl_convert IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD xstring_to_int.
|
METHOD xstring_to_int.
|
||||||
|
|
||||||
DATA: lv_string TYPE string.
|
DATA: lv_xstring TYPE xstring,
|
||||||
|
lv_x TYPE x.
|
||||||
|
|
||||||
* todo, this can be done a lot easier
|
|
||||||
|
|
||||||
lv_string = iv_xstring.
|
lv_xstring = iv_xstring.
|
||||||
WHILE strlen( lv_string ) > 0.
|
WHILE xstrlen( lv_xstring ) > 0.
|
||||||
rv_i = rv_i * 16.
|
lv_x = lv_xstring(1).
|
||||||
CASE lv_string(1).
|
rv_i = rv_i * 256 + lv_x.
|
||||||
WHEN '0'.
|
lv_xstring = lv_xstring+1.
|
||||||
WHEN '1'.
|
|
||||||
rv_i = rv_i + 1.
|
|
||||||
WHEN '2'.
|
|
||||||
rv_i = rv_i + 2.
|
|
||||||
WHEN '3'.
|
|
||||||
rv_i = rv_i + 3.
|
|
||||||
WHEN '4'.
|
|
||||||
rv_i = rv_i + 4.
|
|
||||||
WHEN '5'.
|
|
||||||
rv_i = rv_i + 5.
|
|
||||||
WHEN '6'.
|
|
||||||
rv_i = rv_i + 6.
|
|
||||||
WHEN '7'.
|
|
||||||
rv_i = rv_i + 7.
|
|
||||||
WHEN '8'.
|
|
||||||
rv_i = rv_i + 8.
|
|
||||||
WHEN '9'.
|
|
||||||
rv_i = rv_i + 9.
|
|
||||||
WHEN 'A'.
|
|
||||||
rv_i = rv_i + 10.
|
|
||||||
WHEN 'B'.
|
|
||||||
rv_i = rv_i + 11.
|
|
||||||
WHEN 'C'.
|
|
||||||
rv_i = rv_i + 12.
|
|
||||||
WHEN 'D'.
|
|
||||||
rv_i = rv_i + 13.
|
|
||||||
WHEN 'E'.
|
|
||||||
rv_i = rv_i + 14.
|
|
||||||
WHEN 'F'.
|
|
||||||
rv_i = rv_i + 15.
|
|
||||||
WHEN OTHERS.
|
|
||||||
RAISE EXCEPTION TYPE lcx_exception
|
|
||||||
EXPORTING
|
|
||||||
iv_text = 'Unexpected character'. "#EC NOTEXT
|
|
||||||
ENDCASE.
|
|
||||||
lv_string = lv_string+1.
|
|
||||||
ENDWHILE.
|
ENDWHILE.
|
||||||
|
|
||||||
ENDMETHOD. "xstring_to_int
|
ENDMETHOD. "xstring_to_int
|
||||||
|
|
@ -1307,6 +1273,278 @@ CLASS lcl_pack IMPLEMENTATION.
|
||||||
|
|
||||||
ENDCLASS. "lcl_pack IMPLEMENTATION
|
ENDCLASS. "lcl_pack IMPLEMENTATION
|
||||||
|
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
* CLASS lcl_persistence DEFINITION
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
*
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
CLASS lcl_persistence DEFINITION FINAL.
|
||||||
|
|
||||||
|
PUBLIC SECTION.
|
||||||
|
CLASS-METHODS add IMPORTING iv_repo TYPE string.
|
||||||
|
CLASS-METHODS list RETURNING value(rt_repos) TYPE tt_string.
|
||||||
|
|
||||||
|
ENDCLASS. "lcl_persistence DEFINITION
|
||||||
|
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
* CLASS lcl_persistence IMPLEMENTATION
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
*
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
CLASS lcl_persistence IMPLEMENTATION.
|
||||||
|
|
||||||
|
METHOD add.
|
||||||
|
* todo
|
||||||
|
RETURN.
|
||||||
|
ENDMETHOD. "add
|
||||||
|
|
||||||
|
METHOD list.
|
||||||
|
* todo
|
||||||
|
APPEND 'https://github.com/larshp/Foobar.git' TO rt_repos.
|
||||||
|
ENDMETHOD. "list
|
||||||
|
|
||||||
|
ENDCLASS. "lcl_persistence IMPLEMENTATION
|
||||||
|
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
* CLASS lcl_view DEFINITION
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
*
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
CLASS lcl_gui DEFINITION FINAL.
|
||||||
|
|
||||||
|
PUBLIC SECTION.
|
||||||
|
CLASS-METHODS: init.
|
||||||
|
|
||||||
|
CLASS-METHODS: on_sapevent
|
||||||
|
FOR EVENT sapevent OF cl_gui_html_viewer
|
||||||
|
IMPORTING action frame getdata postdata query_table. "#EC NEEDED
|
||||||
|
|
||||||
|
PRIVATE SECTION.
|
||||||
|
CLASS-DATA go_html_viewer TYPE REF TO cl_gui_html_viewer.
|
||||||
|
|
||||||
|
CLASS-METHODS: view
|
||||||
|
IMPORTING iv_html TYPE string.
|
||||||
|
|
||||||
|
CLASS-METHODS: render
|
||||||
|
RETURNING value(rv_html) TYPE string.
|
||||||
|
|
||||||
|
CLASS-METHODS: render_css
|
||||||
|
RETURNING value(rv_html) TYPE string.
|
||||||
|
|
||||||
|
CLASS-METHODS: render_repo
|
||||||
|
IMPORTING iv_repo TYPE string
|
||||||
|
RETURNING value(rv_html) TYPE string.
|
||||||
|
|
||||||
|
CLASS-METHODS: short_name
|
||||||
|
IMPORTING iv_repo TYPE string
|
||||||
|
RETURNING value(rv_short) TYPE string.
|
||||||
|
|
||||||
|
CLASS-METHODS: install.
|
||||||
|
|
||||||
|
CLASS-METHODS: add.
|
||||||
|
|
||||||
|
ENDCLASS. "lcl_view DEFINITION
|
||||||
|
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
* CLASS lcl_view IMPLEMENTATION
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
*
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
CLASS lcl_gui IMPLEMENTATION.
|
||||||
|
|
||||||
|
METHOD on_sapevent.
|
||||||
|
|
||||||
|
CASE action.
|
||||||
|
WHEN 'install'.
|
||||||
|
install( ).
|
||||||
|
WHEN 'explore'.
|
||||||
|
* todo
|
||||||
|
BREAK-POINT.
|
||||||
|
WHEN 'abapgithome'.
|
||||||
|
cl_gui_frontend_services=>execute(
|
||||||
|
document = 'https://github.com/larshp/abapGit' ).
|
||||||
|
WHEN 'add'.
|
||||||
|
add( ).
|
||||||
|
WHEN OTHERS.
|
||||||
|
BREAK-POINT.
|
||||||
|
ENDCASE.
|
||||||
|
|
||||||
|
ENDMETHOD. "on_sapevent
|
||||||
|
|
||||||
|
METHOD add.
|
||||||
|
|
||||||
|
DATA: lv_obj_type TYPE rseuap-obj_type,
|
||||||
|
lv_obj_name TYPE rseuap-obj_name.
|
||||||
|
|
||||||
|
|
||||||
|
CALL FUNCTION 'WB_TREE_OBJECT_CHOICE'
|
||||||
|
IMPORTING
|
||||||
|
obj_type = lv_obj_type
|
||||||
|
obj_name = lv_obj_name.
|
||||||
|
IF lv_obj_type IS INITIAL.
|
||||||
|
RETURN.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
BREAK-POINT.
|
||||||
|
|
||||||
|
ENDMETHOD. "add
|
||||||
|
|
||||||
|
METHOD install.
|
||||||
|
|
||||||
|
* todo, let user choose
|
||||||
|
* lcl_persistence=>add( ).
|
||||||
|
RETURN.
|
||||||
|
|
||||||
|
ENDMETHOD. "install
|
||||||
|
|
||||||
|
METHOD render_css.
|
||||||
|
|
||||||
|
rv_html = '<style type="text/css">' &&
|
||||||
|
'body {' &&
|
||||||
|
'font-family: verdana;' &&
|
||||||
|
'}' &&
|
||||||
|
'a:link {' &&
|
||||||
|
'color: blue;' &&
|
||||||
|
'}' &&
|
||||||
|
'a:visited {' &&
|
||||||
|
'color: blue;' &&
|
||||||
|
'}' &&
|
||||||
|
'a.grey:link {' &&
|
||||||
|
'color: grey;' &&
|
||||||
|
'font-size: smaller;' &&
|
||||||
|
'}' &&
|
||||||
|
'a.grey:visited {' &&
|
||||||
|
'color: grey;' &&
|
||||||
|
'font-size: smaller;' &&
|
||||||
|
'}' &&
|
||||||
|
'h1 {' &&
|
||||||
|
'display: inline;' &&
|
||||||
|
'}' &&
|
||||||
|
'h2 {' &&
|
||||||
|
'display: inline;' &&
|
||||||
|
'}' &&
|
||||||
|
'</style>'.
|
||||||
|
|
||||||
|
ENDMETHOD. "render_css
|
||||||
|
|
||||||
|
METHOD render.
|
||||||
|
|
||||||
|
DATA: lt_repos TYPE tt_string,
|
||||||
|
lv_repo LIKE LINE OF lt_repos.
|
||||||
|
|
||||||
|
|
||||||
|
lt_repos = lcl_persistence=>list( ).
|
||||||
|
|
||||||
|
rv_html = '<html>' &&
|
||||||
|
'<head>' &&
|
||||||
|
'<title>My first styled page</title>' &&
|
||||||
|
render_css( ) &&
|
||||||
|
'</head>' &&
|
||||||
|
'<body>' &&
|
||||||
|
'<b><h1>abapGit</h1></b> ' &&
|
||||||
|
'<a href="sapevent:install">Clone/Install/Start/New</a> ' &&
|
||||||
|
'<a href="sapevent:explore">Explore</a> ' &&
|
||||||
|
'<a href="sapevent:abapgithome">abapGit@GitHub</a> ' &&
|
||||||
|
'<hr>'.
|
||||||
|
|
||||||
|
LOOP AT lt_repos INTO lv_repo.
|
||||||
|
rv_html = rv_html &&
|
||||||
|
'<a href="#' &&
|
||||||
|
short_name( lv_repo ) &&
|
||||||
|
'" class="grey">' &&
|
||||||
|
short_name( lv_repo ) &&
|
||||||
|
'</a> '.
|
||||||
|
ENDLOOP.
|
||||||
|
|
||||||
|
rv_html = rv_html && '<br><br><br>'.
|
||||||
|
|
||||||
|
LOOP AT lt_repos INTO lv_repo.
|
||||||
|
rv_html = rv_html && render_repo( lv_repo ).
|
||||||
|
ENDLOOP.
|
||||||
|
|
||||||
|
rv_html = rv_html && '</body></html>'.
|
||||||
|
|
||||||
|
ENDMETHOD. "render
|
||||||
|
|
||||||
|
METHOD render_repo.
|
||||||
|
|
||||||
|
rv_html = rv_html &&
|
||||||
|
'<a id="' &&
|
||||||
|
short_name( iv_repo ) &&
|
||||||
|
'"></a><h2>' &&
|
||||||
|
short_name( iv_repo ) &&
|
||||||
|
'</h2> ' &&
|
||||||
|
iv_repo &&
|
||||||
|
'<br>'.
|
||||||
|
|
||||||
|
rv_html = rv_html && 'todo<br><a href="sapevent:add">add</a>'.
|
||||||
|
|
||||||
|
ENDMETHOD. "render_repo
|
||||||
|
|
||||||
|
METHOD short_name.
|
||||||
|
|
||||||
|
*todo
|
||||||
|
rv_short = 'Foobar'. "#EC NOTEXT
|
||||||
|
|
||||||
|
ENDMETHOD. "short_name
|
||||||
|
|
||||||
|
METHOD init.
|
||||||
|
|
||||||
|
DATA: lt_events TYPE cntl_simple_events,
|
||||||
|
ls_event LIKE LINE OF lt_events.
|
||||||
|
|
||||||
|
|
||||||
|
CREATE OBJECT go_html_viewer
|
||||||
|
EXPORTING
|
||||||
|
parent = cl_gui_container=>screen0.
|
||||||
|
|
||||||
|
CLEAR ls_event.
|
||||||
|
ls_event-eventid = go_html_viewer->m_id_sapevent.
|
||||||
|
ls_event-appl_event = 'x'.
|
||||||
|
APPEND ls_event TO lt_events.
|
||||||
|
CALL METHOD go_html_viewer->set_registered_events
|
||||||
|
EXPORTING
|
||||||
|
events = lt_events.
|
||||||
|
|
||||||
|
SET HANDLER lcl_gui=>on_sapevent FOR go_html_viewer.
|
||||||
|
|
||||||
|
view( render( ) ).
|
||||||
|
|
||||||
|
ENDMETHOD. "init
|
||||||
|
|
||||||
|
METHOD view.
|
||||||
|
|
||||||
|
DATA: lt_data TYPE TABLE OF text200,
|
||||||
|
lv_html TYPE string,
|
||||||
|
lv_url TYPE text200.
|
||||||
|
|
||||||
|
|
||||||
|
lv_html = iv_html.
|
||||||
|
|
||||||
|
WHILE strlen( lv_html ) > 0.
|
||||||
|
IF strlen( lv_html ) < 200.
|
||||||
|
APPEND lv_html TO lt_data.
|
||||||
|
CLEAR lv_html.
|
||||||
|
ELSE.
|
||||||
|
APPEND lv_html(200) TO lt_data.
|
||||||
|
lv_html = lv_html+200.
|
||||||
|
ENDIF.
|
||||||
|
ENDWHILE.
|
||||||
|
|
||||||
|
CALL METHOD go_html_viewer->load_data
|
||||||
|
IMPORTING
|
||||||
|
assigned_url = lv_url
|
||||||
|
CHANGING
|
||||||
|
data_table = lt_data.
|
||||||
|
|
||||||
|
CALL METHOD go_html_viewer->show_url
|
||||||
|
EXPORTING
|
||||||
|
url = lv_url.
|
||||||
|
|
||||||
|
ENDMETHOD. "view
|
||||||
|
|
||||||
|
ENDCLASS. "lcl_view IMPLEMENTATION
|
||||||
|
|
||||||
*----------------------------------------------------------------------*
|
*----------------------------------------------------------------------*
|
||||||
* CLASS lcl_transport DEFINITION
|
* CLASS lcl_transport DEFINITION
|
||||||
*----------------------------------------------------------------------*
|
*----------------------------------------------------------------------*
|
||||||
|
|
@ -1329,7 +1567,6 @@ CLASS lcl_transport DEFINITION FINAL.
|
||||||
|
|
||||||
PRIVATE SECTION.
|
PRIVATE SECTION.
|
||||||
CONSTANTS: c_debug_http TYPE abap_bool VALUE abap_false,
|
CONSTANTS: c_debug_http TYPE abap_bool VALUE abap_false,
|
||||||
c_cap_list TYPE string VALUE 'side-band-64k no-progress',
|
|
||||||
c_dot_git TYPE c LENGTH 4 VALUE '.git'.
|
c_dot_git TYPE c LENGTH 4 VALUE '.git'.
|
||||||
|
|
||||||
CLASS-METHODS pkt_string
|
CLASS-METHODS pkt_string
|
||||||
|
|
@ -1352,6 +1589,11 @@ CLASS lcl_transport DEFINITION FINAL.
|
||||||
ev_branch TYPE t_sha1
|
ev_branch TYPE t_sha1
|
||||||
RAISING lcx_exception.
|
RAISING lcx_exception.
|
||||||
|
|
||||||
|
CLASS-METHODS set_headers
|
||||||
|
IMPORTING iv_repo TYPE string
|
||||||
|
iv_service TYPE string
|
||||||
|
ii_client TYPE REF TO if_http_client.
|
||||||
|
|
||||||
CLASS-METHODS check_http_200
|
CLASS-METHODS check_http_200
|
||||||
IMPORTING ii_client TYPE REF TO if_http_client
|
IMPORTING ii_client TYPE REF TO if_http_client
|
||||||
RAISING lcx_exception.
|
RAISING lcx_exception.
|
||||||
|
|
@ -1367,6 +1609,20 @@ ENDCLASS. "lcl_transport DEFINITION
|
||||||
*----------------------------------------------------------------------*
|
*----------------------------------------------------------------------*
|
||||||
CLASS lcl_transport IMPLEMENTATION.
|
CLASS lcl_transport IMPLEMENTATION.
|
||||||
|
|
||||||
|
METHOD set_headers.
|
||||||
|
|
||||||
|
ii_client->request->set_header_field(
|
||||||
|
name = '~request_method'
|
||||||
|
value = 'POST' ).
|
||||||
|
ii_client->request->set_header_field(
|
||||||
|
name = '~request_uri'
|
||||||
|
value = iv_repo && '/git-' && iv_service && '-pack' ).
|
||||||
|
ii_client->request->set_header_field(
|
||||||
|
name = 'Content-Type'
|
||||||
|
value = 'Content-Type: application/x-git-' && iv_service && '-pack-request' ). "#EC NOTEXT
|
||||||
|
|
||||||
|
ENDMETHOD. "set_headers
|
||||||
|
|
||||||
METHOD get_null.
|
METHOD get_null.
|
||||||
|
|
||||||
DATA lv_x(4) TYPE x VALUE '00000000'.
|
DATA lv_x(4) TYPE x VALUE '00000000'.
|
||||||
|
|
@ -1448,6 +1704,8 @@ CLASS lcl_transport IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD receive_pack.
|
METHOD receive_pack.
|
||||||
|
|
||||||
|
CONSTANTS: lc_service TYPE string VALUE 'receive'.
|
||||||
|
|
||||||
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,
|
||||||
|
|
@ -1459,7 +1717,7 @@ CLASS lcl_transport IMPLEMENTATION.
|
||||||
lv_repo TYPE string.
|
lv_repo TYPE string.
|
||||||
|
|
||||||
|
|
||||||
IF NOT iv_repo CP '*Foobar*'.
|
IF NOT iv_repo CP '*Foobar*'. " temp guard
|
||||||
BREAK-POINT.
|
BREAK-POINT.
|
||||||
RETURN.
|
RETURN.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
@ -1469,22 +1727,16 @@ CLASS lcl_transport IMPLEMENTATION.
|
||||||
ref_discovery(
|
ref_discovery(
|
||||||
EXPORTING
|
EXPORTING
|
||||||
iv_repo = lv_repo
|
iv_repo = lv_repo
|
||||||
iv_service = 'receive'
|
iv_service = lc_service
|
||||||
IMPORTING
|
IMPORTING
|
||||||
ei_client = li_client
|
ei_client = li_client
|
||||||
ev_branch = lv_branch ).
|
ev_branch = lv_branch ).
|
||||||
|
|
||||||
****************************
|
set_headers(
|
||||||
|
EXPORTING
|
||||||
li_client->request->set_header_field(
|
iv_repo = lv_repo
|
||||||
name = '~request_method'
|
iv_service = lc_service
|
||||||
value = 'POST' ).
|
ii_client = li_client ).
|
||||||
li_client->request->set_header_field(
|
|
||||||
name = '~request_uri'
|
|
||||||
value = lv_repo && '/git-receive-pack' ).
|
|
||||||
li_client->request->set_header_field(
|
|
||||||
name = 'Content-Type'
|
|
||||||
value = 'Content-Type: application/x-git-receive-pack-request' ). "#EC NOTEXT
|
|
||||||
|
|
||||||
lv_line = lv_branch &&
|
lv_line = lv_branch &&
|
||||||
` ` &&
|
` ` &&
|
||||||
|
|
@ -1596,6 +1848,8 @@ CLASS lcl_transport IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD upload_pack.
|
METHOD upload_pack.
|
||||||
|
|
||||||
|
CONSTANTS: lc_service TYPE string VALUE 'upload'.
|
||||||
|
|
||||||
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,
|
||||||
|
|
@ -1609,28 +1863,22 @@ CLASS lcl_transport IMPLEMENTATION.
|
||||||
ref_discovery(
|
ref_discovery(
|
||||||
EXPORTING
|
EXPORTING
|
||||||
iv_repo = lv_repo
|
iv_repo = lv_repo
|
||||||
iv_service = 'upload'
|
iv_service = lc_service
|
||||||
IMPORTING
|
IMPORTING
|
||||||
ei_client = li_client
|
ei_client = li_client
|
||||||
ev_branch = ev_branch ).
|
ev_branch = ev_branch ).
|
||||||
|
|
||||||
*--------------------------------------------------------------------
|
set_headers(
|
||||||
|
EXPORTING
|
||||||
li_client->request->set_header_field(
|
iv_repo = lv_repo
|
||||||
name = '~request_method'
|
iv_service = lc_service
|
||||||
value = 'POST' ).
|
ii_client = li_client ).
|
||||||
li_client->request->set_header_field(
|
|
||||||
name = '~request_uri'
|
|
||||||
value = lv_repo && '/git-upload-pack' ).
|
|
||||||
li_client->request->set_header_field(
|
|
||||||
name = 'Content-Type'
|
|
||||||
value = 'Content-Type: application/x-git-upload-pack-request' ). "#EC NOTEXT
|
|
||||||
|
|
||||||
lv_line = 'want' &&
|
lv_line = 'want' &&
|
||||||
` ` &&
|
` ` &&
|
||||||
ev_branch &&
|
ev_branch &&
|
||||||
` ` &&
|
` ` &&
|
||||||
c_cap_list
|
'side-band-64k no-progress shallow'
|
||||||
&& cl_abap_char_utilities=>newline. "#EC NOTEXT
|
&& cl_abap_char_utilities=>newline. "#EC NOTEXT
|
||||||
lv_pkt = pkt_string( lv_line ).
|
lv_pkt = pkt_string( lv_line ).
|
||||||
|
|
||||||
|
|
@ -1680,26 +1928,39 @@ ENDCLASS. "lcl_transport IMPLEMENTATION
|
||||||
*----------------------------------------------------------------------*
|
*----------------------------------------------------------------------*
|
||||||
FORM run.
|
FORM run.
|
||||||
|
|
||||||
|
lcl_gui=>init( ).
|
||||||
|
|
||||||
|
WRITE: / '.'. " required
|
||||||
|
|
||||||
|
ENDFORM. "run
|
||||||
|
|
||||||
|
*&---------------------------------------------------------------------*
|
||||||
|
*& Form receive_test
|
||||||
|
*&---------------------------------------------------------------------*
|
||||||
|
* text
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
FORM receive_test.
|
||||||
|
|
||||||
DATA: lv_repo TYPE string VALUE '/larshp/Foobar'. " 100%
|
DATA: lv_repo TYPE string VALUE '/larshp/Foobar'. " 100%
|
||||||
* DATA: lv_repo TYPE string VALUE '/larshp/MouseChase'. " 100%
|
* DATA: lv_repo TYPE string VALUE '/larshp/MouseChase'. " 100%
|
||||||
* DATA: lv_repo TYPE string VALUE '/larshp/Dicing'. " 100%
|
* DATA: lv_repo TYPE string VALUE '/larshp/Dicing'. " 100%
|
||||||
* DATA: lv_repo TYPE string VALUE '/larshp/Datamatrix'. " 100% password protected
|
|
||||||
* DATA: lv_repo TYPE string VALUE '/snowplow/snowplow'. " base not found, 10000 ref deltas, multiple parents
|
|
||||||
* DATA: lv_repo TYPE string VALUE '/rvanmil/ABAP-Regex-Training'. " 100%
|
* DATA: lv_repo TYPE string VALUE '/rvanmil/ABAP-Regex-Training'. " 100%
|
||||||
* DATA: lv_repo TYPE string VALUE '/sciruela/ABAP-Exercises'. " 100%
|
* DATA: lv_repo TYPE string VALUE '/sciruela/ABAP-Exercises'. " 100%
|
||||||
* DATA: lv_repo TYPE string VALUE '/adsworth/ABAP-Utils'. " 100%
|
* DATA: lv_repo TYPE string VALUE '/adsworth/ABAP-Utils'. " 100%
|
||||||
* DATA: lv_repo TYPE string VALUE '/rvanmil/Run-ABAP-Code'. " 100%
|
* DATA: lv_repo TYPE string VALUE '/rvanmil/Run-ABAP-Code'. " 100%
|
||||||
* DATA: lv_repo TYPE string VALUE '/rvanmil/ABAP-OOP-Library'. " 100%
|
* DATA: lv_repo TYPE string VALUE '/rvanmil/ABAP-OOP-Library'. " 100%
|
||||||
* DATA: lv_repo TYPE string VALUE '/ivanfemia/abap2xlsx'. " base not found, 2000 ref deltas, multiple parents
|
|
||||||
* DATA: lv_repo TYPE string VALUE '/InfoSize/abapsourcesearch'. " 100%
|
* DATA: lv_repo TYPE string VALUE '/InfoSize/abapsourcesearch'. " 100%
|
||||||
* DATA: lv_repo TYPE string VALUE '/google/flatbuffers'. " 100%
|
* DATA: lv_repo TYPE string VALUE '/google/flatbuffers'. " 100%
|
||||||
* DATA: lv_repo TYPE string VALUE '/antiboredom/videogrep'. " 100%
|
* DATA: lv_repo TYPE string VALUE '/antiboredom/videogrep'. " 100%
|
||||||
* DATA: lv_repo TYPE string VALUE '/idank/explainshell'. " 100%
|
* DATA: lv_repo TYPE string VALUE '/idank/explainshell'. " 100%
|
||||||
|
* DATA: lv_repo TYPE string VALUE '/mrmrs/colors'. " 100%
|
||||||
|
* DATA: lv_repo TYPE string VALUE '/montagejs/collections'. " 100%
|
||||||
|
|
||||||
|
* DATA: lv_repo TYPE string VALUE '/snowplow/snowplow'. " base not found, 10000 ref deltas, multiple parents
|
||||||
|
* DATA: lv_repo TYPE string VALUE '/ivanfemia/abap2xlsx'. " base not found, 2000 ref deltas, multiple parents
|
||||||
* DATA: lv_repo TYPE string VALUE '/education/teachers_pet'. " base not found, 694 ref deltas, multiple parents
|
* DATA: lv_repo TYPE string VALUE '/education/teachers_pet'. " base not found, 694 ref deltas, multiple parents
|
||||||
* DATA: lv_repo TYPE string VALUE '/gmarik/Vundle.vim'. " base not found, 829 ref deltas, multiple parents
|
* DATA: lv_repo TYPE string VALUE '/gmarik/Vundle.vim'. " base not found, 829 ref deltas, multiple parents
|
||||||
* DATA: lv_repo TYPE string VALUE '/mephux/komanda'. " base not found, 685 ref deltas, multiple parents
|
* DATA: lv_repo TYPE string VALUE '/mephux/komanda'. " base not found, 685 ref deltas, multiple parents
|
||||||
* DATA: lv_repo TYPE string VALUE '/mrmrs/colors'. " 100%
|
|
||||||
* DATA: lv_repo TYPE string VALUE '/montagejs/collections'. " 100%
|
|
||||||
|
|
||||||
DATA: lv_pack TYPE xstring,
|
DATA: lv_pack TYPE xstring,
|
||||||
lv_branch TYPE t_sha1,
|
lv_branch TYPE t_sha1,
|
||||||
|
|
@ -1726,7 +1987,7 @@ FORM run.
|
||||||
|
|
||||||
lcl_pack=>decode_deltas( CHANGING ct_objects = lt_objects ).
|
lcl_pack=>decode_deltas( CHANGING ct_objects = lt_objects ).
|
||||||
|
|
||||||
* PERFORM output_objects USING lt_objects.
|
PERFORM output_objects USING lt_objects.
|
||||||
|
|
||||||
lcl_pack=>sanity_checks( lt_objects ).
|
lcl_pack=>sanity_checks( lt_objects ).
|
||||||
|
|
||||||
|
|
@ -1777,7 +2038,7 @@ FORM receive USING ps_parent TYPE st_object
|
||||||
lv_time = lcl_time=>get( ).
|
lv_time = lcl_time=>get( ).
|
||||||
|
|
||||||
* blob
|
* blob
|
||||||
lv_blob = lcl_convert=>string_to_xstring_utf8( 'it works, yes new' ). "#EC NOTEXT
|
lv_blob = lcl_convert=>string_to_xstring_utf8( 'some text chokoladesovs' ). "#EC NOTEXT
|
||||||
|
|
||||||
* tree
|
* tree
|
||||||
CLEAR ls_node.
|
CLEAR ls_node.
|
||||||
|
|
@ -1942,19 +2203,21 @@ CLASS lcl_abap_unit IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD convert_int.
|
METHOD convert_int.
|
||||||
|
|
||||||
CONSTANTS: lc_i TYPE i VALUE 1000.
|
|
||||||
|
|
||||||
DATA: lv_xstring TYPE xstring,
|
DATA: lv_xstring TYPE xstring,
|
||||||
lv_i TYPE i.
|
lv_input TYPE i,
|
||||||
|
lv_result TYPE i.
|
||||||
|
|
||||||
|
|
||||||
lv_xstring = lcl_convert=>int_to_xstring( iv_i = lc_i
|
DO 1000 TIMES.
|
||||||
iv_length = 4 ).
|
lv_input = sy-index.
|
||||||
lv_i = lcl_convert=>xstring_to_int( lv_xstring ).
|
lv_xstring = lcl_convert=>int_to_xstring( iv_i = lv_input
|
||||||
|
iv_length = 4 ).
|
||||||
|
lv_result = lcl_convert=>xstring_to_int( lv_xstring ).
|
||||||
|
|
||||||
cl_abap_unit_assert=>assert_equals(
|
cl_abap_unit_assert=>assert_equals(
|
||||||
exp = lc_i
|
exp = lv_input
|
||||||
act = lv_i ).
|
act = lv_result ).
|
||||||
|
ENDDO.
|
||||||
|
|
||||||
ENDMETHOD. "convert_int
|
ENDMETHOD. "convert_int
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user