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

Merge pull request #8 from gregorwolf/master

Browse Source 
Replace a lot of table definitions with TABLE OF as the table type does not exist in my 7.40 SP4 system
This commit is contained in:
Lars Hvam 2014-07-20 17:49:10 +02:00
commit e3ef0c86fc
2 changed files with 133 additions and 105 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
README.md
View File

@ -12,15 +12,22 @@ Git client for ABAP
Copy the ABAP into new report via SE38 or SE80, setup SSL in STRUST, activate, run (tested on 7.30 and 7.40)
## FAQ ##
##### 1) SSL Setup #####
#### 1) SSL Setup ####
##### Option a) #####
1. Goto github, find the certificate that it is using
2. Download certificate from https://www.digicert.com/digicert-root-certificates.htm
3. Install in STRUST under "SSL server Standard"
4. Restart ICM using transaction SMICM
##### Option b) #####
1. Use Firefox to go to https://github.com
2. Click on the lock icon and then "More Information ..." and there "View Certificate"
3. Switch to the Details Tab and choose the first certificate of the tree and click Export
4. Do the same for the next certificate in the tree
##### Then continue here #####
1. Install the certificates in STRUST under "SSL System Client SSL Client (Standard)"
2. Restart ICM using transaction SMICM (when you're NetWeaver Release is 7.01 or lower)
Also see blogs
* http://scn.sap.com/people/jens.gleichmann/blog/2008/10/31/calling-webservices-from-abap-via-httpsssl-with-pfx-certificates
* http://scn.sap.com/people/thomas.jung/blog/2004/11/17/bsp-a-developers-journal-part-xiv--consuming-webservices-with-abap
##### 2) I found a bug #####
#### 2) I found a bug ####
Add an issue in the tracker, https://github.com/larshp/abapGit/issues

221
zabapgit.abap
View File

@ -160,19 +160,19 @@ CLASS lcl_user DEFINITION FINAL.
CLASS-METHODS: set_username IMPORTING iv_username TYPE string
RAISING lcx_exception.
CLASS-METHODS: get_username RETURNING value(rv_username) TYPE string
CLASS-METHODS: get_username RETURNING VALUE(rv_username) TYPE string
RAISING lcx_exception.
CLASS-METHODS: set_email IMPORTING iv_email TYPE string
RAISING lcx_exception.
CLASS-METHODS: get_email RETURNING value(rv_email) TYPE string
CLASS-METHODS: get_email RETURNING VALUE(rv_email) TYPE string
RAISING lcx_exception.
PRIVATE SECTION.
CLASS-METHODS: read IMPORTING iv_name TYPE tdobname
RETURNING value(rv_value) TYPE string
RETURNING VALUE(rv_value) TYPE string
RAISING lcx_exception.
CLASS-METHODS: save IMPORTING iv_name TYPE tdobname
@ -342,17 +342,17 @@ CLASS lcl_xml DEFINITION FINAL.
RAISING lcx_exception.
METHODS xml_render RETURNING value(rv_string) TYPE string.
METHODS xml_render RETURNING VALUE(rv_string) TYPE string.
METHODS xml_element IMPORTING iv_name TYPE string
RETURNING value(ri_element) TYPE REF TO if_ixml_element.
RETURNING VALUE(ri_element) TYPE REF TO if_ixml_element.
METHODS xml_add IMPORTING ii_root TYPE REF TO if_ixml_element OPTIONAL
ii_element TYPE REF TO if_ixml_element.
METHODS xml_find IMPORTING ii_root TYPE REF TO if_ixml_element OPTIONAL
iv_name TYPE string
RETURNING value(ri_element) TYPE REF TO if_ixml_element.
RETURNING VALUE(ri_element) TYPE REF TO if_ixml_element.
PRIVATE SECTION.
@ -707,7 +707,7 @@ ENDCLASS. "lcl_xml IMPLEMENTATION
CLASS lcl_time DEFINITION FINAL.
PUBLIC SECTION.
CLASS-METHODS get RETURNING value(rv_time) TYPE t_unixtime
CLASS-METHODS get RETURNING VALUE(rv_time) TYPE t_unixtime
RAISING lcx_exception.
PRIVATE SECTION.
@ -779,16 +779,16 @@ CLASS lcl_url DEFINITION FINAL.
PUBLIC SECTION.
CLASS-METHODS: host
IMPORTING iv_repo TYPE string
RETURNING value(rv_host) TYPE string
RETURNING VALUE(rv_host) TYPE string
RAISING lcx_exception.
CLASS-METHODS: name
IMPORTING iv_repo TYPE string
RETURNING value(rv_name) TYPE string
RETURNING VALUE(rv_name) TYPE string
RAISING lcx_exception.
CLASS-METHODS: path_name IMPORTING iv_repo TYPE string
RETURNING value(rv_path_name) TYPE string
RETURNING VALUE(rv_path_name) TYPE string
RAISING lcx_exception.
PRIVATE SECTION.
@ -851,24 +851,24 @@ CLASS lcl_convert DEFINITION FINAL.
PUBLIC SECTION.
CLASS-METHODS bitbyte_to_int IMPORTING iv_bits TYPE clike
RETURNING value(rv_int) TYPE i.
RETURNING VALUE(rv_int) TYPE i.
CLASS-METHODS x_to_bitbyte IMPORTING iv_x TYPE x
RETURNING value(rv_bitbyte) TYPE t_bitbyte.
RETURNING VALUE(rv_bitbyte) TYPE t_bitbyte.
CLASS-METHODS string_to_xstring_utf8 IMPORTING iv_string TYPE string
RETURNING value(rv_xstring) TYPE xstring.
RETURNING VALUE(rv_xstring) TYPE xstring.
CLASS-METHODS xstring_to_string_utf8 IMPORTING iv_data TYPE xstring
RETURNING value(rv_string) TYPE string.
RETURNING VALUE(rv_string) TYPE string.
CLASS-METHODS xstring_to_int IMPORTING iv_xstring TYPE xstring
RETURNING value(rv_i) TYPE i
RETURNING VALUE(rv_i) TYPE i
RAISING lcx_exception.
CLASS-METHODS int_to_xstring IMPORTING iv_i TYPE i
iv_length TYPE i
RETURNING value(rv_xstring) TYPE xstring.
RETURNING VALUE(rv_xstring) TYPE xstring.
ENDCLASS. "lcl_convert DEFINITION
@ -992,7 +992,7 @@ CLASS lcl_diff DEFINITION FINAL.
* assumes data is UTF8 based with newlines
CLASS-METHODS diff IMPORTING iv_local TYPE xstring
iv_remote TYPE xstring
RETURNING value(rt_diffs) TYPE tt_diffs.
RETURNING VALUE(rt_diffs) TYPE tt_diffs.
ENDCLASS. "lcl_diff DEFINITION
@ -1062,12 +1062,12 @@ CLASS lcl_serialize_common DEFINITION ABSTRACT.
PROTECTED SECTION.
CLASS-METHODS: xml_to_file IMPORTING is_item TYPE st_item
io_xml TYPE REF TO lcl_xml
RETURNING value(rs_file) TYPE st_file
RETURNING VALUE(rs_file) TYPE st_file
RAISING lcx_exception.
CLASS-METHODS: read_xml IMPORTING is_item TYPE st_item
it_files TYPE tt_files
RETURNING value(ro_xml) TYPE REF TO lcl_xml
RETURNING VALUE(ro_xml) TYPE REF TO lcl_xml
RAISING lcx_exception.
CLASS-METHODS: read_abap IMPORTING is_item TYPE st_item
@ -1079,7 +1079,7 @@ CLASS lcl_serialize_common DEFINITION ABSTRACT.
CLASS-METHODS: abap_to_file IMPORTING is_item TYPE st_item
iv_extra TYPE string OPTIONAL
it_abap TYPE STANDARD TABLE
RETURNING value(rs_file) TYPE st_file
RETURNING VALUE(rs_file) TYPE st_file
RAISING lcx_exception.
CLASS-METHODS: activation_add IMPORTING iv_type TYPE trobjtype
@ -1093,7 +1093,7 @@ CLASS lcl_serialize_common DEFINITION ABSTRACT.
CLASS-METHODS: filename IMPORTING is_item TYPE st_item
iv_extra TYPE string OPTIONAL
iv_ext TYPE string
RETURNING value(rv_filename) TYPE string.
RETURNING VALUE(rv_filename) TYPE string.
ENDCLASS. "lcl_serialize_common DEFINITION
@ -1266,7 +1266,7 @@ CLASS lcl_serialize_doma DEFINITION INHERITING FROM lcl_serialize_common FINAL.
PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item
RETURNING value(rt_files) TYPE tt_files
RETURNING VALUE(rt_files) TYPE tt_files
RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item
@ -1384,7 +1384,7 @@ CLASS lcl_serialize_dtel DEFINITION INHERITING FROM lcl_serialize_common FINAL.
PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item
RETURNING value(rt_files) TYPE tt_files
RETURNING VALUE(rt_files) TYPE tt_files
RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item
@ -1493,7 +1493,7 @@ CLASS lcl_serialize_clas DEFINITION INHERITING FROM lcl_serialize_common FINAL.
PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item
RETURNING value(rt_files) TYPE tt_files
RETURNING VALUE(rt_files) TYPE tt_files
RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item
@ -1511,30 +1511,30 @@ CLASS lcl_serialize_clas DEFINITION INHERITING FROM lcl_serialize_common FINAL.
RAISING lcx_exception.
CLASS-METHODS exists IMPORTING is_clskey TYPE seoclskey
RETURNING value(rv_exists) TYPE abap_bool.
RETURNING VALUE(rv_exists) TYPE abap_bool.
CLASS-METHODS serialize_abap IMPORTING is_clskey TYPE seoclskey
RETURNING value(rt_source) TYPE seop_source_string
RETURNING VALUE(rt_source) TYPE seop_source_string
RAISING lcx_exception.
CLASS-METHODS serialize_locals_imp IMPORTING is_clskey TYPE seoclskey
RETURNING value(rt_source) TYPE seop_source_string
RETURNING VALUE(rt_source) TYPE seop_source_string
RAISING lcx_exception.
CLASS-METHODS serialize_locals_def IMPORTING is_clskey TYPE seoclskey
RETURNING value(rt_source) TYPE seop_source_string
RETURNING VALUE(rt_source) TYPE seop_source_string
RAISING lcx_exception.
CLASS-METHODS serialize_testclasses IMPORTING is_clskey TYPE seoclskey
RETURNING value(rt_source) TYPE seop_source_string
RETURNING VALUE(rt_source) TYPE seop_source_string
RAISING lcx_exception.
CLASS-METHODS serialize_macros IMPORTING is_clskey TYPE seoclskey
RETURNING value(rt_source) TYPE seop_source_string
RETURNING VALUE(rt_source) TYPE seop_source_string
RAISING lcx_exception.
CLASS-METHODS serialize_xml IMPORTING is_clskey TYPE seoclskey
RETURNING value(ro_xml) TYPE REF TO lcl_xml
RETURNING VALUE(ro_xml) TYPE REF TO lcl_xml
RAISING lcx_exception.
CLASS-METHODS remove_signatures CHANGING ct_source TYPE seop_source_string.
@ -1959,7 +1959,7 @@ CLASS lcl_serialize_fugr DEFINITION INHERITING FROM lcl_serialize_common FINAL.
PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item
RETURNING value(rt_files) TYPE tt_files
RETURNING VALUE(rt_files) TYPE tt_files
RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item
@ -1994,7 +1994,7 @@ CLASS lcl_serialize_tabl DEFINITION INHERITING FROM lcl_serialize_common FINAL.
PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item
RETURNING value(rt_files) TYPE tt_files
RETURNING VALUE(rt_files) TYPE tt_files
RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item
@ -2017,12 +2017,12 @@ CLASS lcl_serialize_tabl IMPLEMENTATION.
ls_file TYPE st_file,
ls_dd02v TYPE dd02v,
ls_dd09l TYPE dd09l,
lt_dd03p TYPE ddtt_dd03p,
lt_dd05m TYPE ddtt_dd05m,
lt_dd08v TYPE ddtt_dd08v,
lt_dd03p TYPE TABLE OF dd03p,
lt_dd05m TYPE TABLE OF dd05m,
lt_dd08v TYPE TABLE OF dd08v,
lt_dd12v TYPE dd12vtab,
lt_dd17v TYPE dd17vtab,
lt_dd35v TYPE ddtt_dd35v,
lt_dd35v TYPE TABLE OF dd35v,
lt_dd36m TYPE dd36mttyp.
FIELD-SYMBOLS: <ls_dd12v> LIKE LINE OF lt_dd12v.
@ -2093,14 +2093,14 @@ CLASS lcl_serialize_tabl IMPLEMENTATION.
lo_xml TYPE REF TO lcl_xml,
ls_dd02v TYPE dd02v,
ls_dd09l TYPE dd09l,
lt_dd03p TYPE ddtt_dd03p,
lt_dd05m TYPE ddtt_dd05m,
lt_dd08v TYPE ddtt_dd08v,
lt_dd03p TYPE TABLE OF dd03p,
lt_dd05m TYPE TABLE OF dd05m,
lt_dd08v TYPE TABLE OF dd08v,
lt_dd12v TYPE dd12vtab,
lt_dd17v TYPE dd17vtab,
ls_dd17v LIKE LINE OF lt_dd17v,
lt_secondary LIKE lt_dd17v,
lt_dd35v TYPE ddtt_dd35v,
lt_dd35v TYPE TABLE OF dd35v,
lt_dd36m TYPE dd36mttyp,
ls_dd12v LIKE LINE OF lt_dd12v.
@ -2197,7 +2197,7 @@ CLASS lcl_serialize_msag DEFINITION INHERITING FROM lcl_serialize_common FINAL.
PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item
RETURNING value(rt_files) TYPE tt_files
RETURNING VALUE(rt_files) TYPE tt_files
RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item
@ -2232,7 +2232,7 @@ CLASS lcl_serialize_tran DEFINITION INHERITING FROM lcl_serialize_common FINAL.
PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item
RETURNING value(rt_files) TYPE tt_files
RETURNING VALUE(rt_files) TYPE tt_files
RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item
@ -2267,7 +2267,7 @@ CLASS lcl_serialize_enqu DEFINITION INHERITING FROM lcl_serialize_common FINAL.
PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item
RETURNING value(rt_files) TYPE tt_files
RETURNING VALUE(rt_files) TYPE tt_files
RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item
@ -2289,8 +2289,8 @@ CLASS lcl_serialize_enqu IMPLEMENTATION.
ls_file TYPE st_file,
lo_xml TYPE REF TO lcl_xml,
ls_dd25v TYPE dd25v,
lt_dd26e TYPE tmgn_dd26e,
lt_dd27p TYPE tmgn_dd27p.
lt_dd26e TYPE TABLE OF dd26e,
lt_dd27p TYPE TABLE OF dd27p.
lv_name = is_item-obj_name.
@ -2335,8 +2335,8 @@ CLASS lcl_serialize_enqu IMPLEMENTATION.
DATA: lo_xml TYPE REF TO lcl_xml,
lv_name TYPE ddobjname,
ls_dd25v TYPE dd25v,
lt_dd26e TYPE tmgn_dd26e,
lt_dd27p TYPE tmgn_dd27p.
lt_dd26e TYPE TABLE OF dd26e,
lt_dd27p TYPE TABLE OF dd27p.
lo_xml = read_xml( is_item = is_item
@ -2384,7 +2384,7 @@ CLASS lcl_serialize_shlp DEFINITION INHERITING FROM lcl_serialize_common FINAL.
PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item
RETURNING value(rt_files) TYPE tt_files
RETURNING VALUE(rt_files) TYPE tt_files
RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item
@ -2406,9 +2406,9 @@ CLASS lcl_serialize_shlp IMPLEMENTATION.
ls_file TYPE st_file,
lo_xml TYPE REF TO lcl_xml,
ls_dd30v TYPE dd30v,
lt_dd31v TYPE ddtt_dd31v,
lt_dd32p TYPE ddtt_dd32p,
lt_dd33v TYPE ddtt_dd33v.
lt_dd31v TYPE TABLE OF dd31v,
lt_dd32p TYPE TABLE OF dd32p,
lt_dd33v TYPE TABLE OF dd33v.
lv_name = is_item-obj_name.
@ -2455,9 +2455,9 @@ CLASS lcl_serialize_shlp IMPLEMENTATION.
DATA: lo_xml TYPE REF TO lcl_xml,
lv_name TYPE ddobjname,
ls_dd30v TYPE dd30v,
lt_dd31v TYPE ddtt_dd31v,
lt_dd32p TYPE ddtt_dd32p,
lt_dd33v TYPE ddtt_dd33v.
lt_dd31v TYPE TABLE OF dd31v,
lt_dd32p TYPE TABLE OF dd32p,
lt_dd33v TYPE TABLE OF dd33v.
lo_xml = read_xml( is_item = is_item
@ -2507,7 +2507,7 @@ CLASS lcl_serialize_view DEFINITION INHERITING FROM lcl_serialize_common FINAL.
PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item
RETURNING value(rt_files) TYPE tt_files
RETURNING VALUE(rt_files) TYPE tt_files
RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item
@ -2530,10 +2530,10 @@ CLASS lcl_serialize_view IMPLEMENTATION.
lv_name TYPE ddobjname,
ls_dd25v TYPE dd25v,
ls_dd09l TYPE dd09l,
lt_dd26v TYPE dd26v_t,
lt_dd27p TYPE dd27p_t,
lt_dd28j TYPE dd28j_t,
lt_dd28v TYPE ddtt_dd28v.
lt_dd26v TYPE TABLE OF dd26v,
lt_dd27p TYPE TABLE OF dd27p,
lt_dd28j TYPE TABLE OF dd28j,
lt_dd28v TYPE TABLE OF dd28v.
lv_name = is_item-obj_name.
@ -2590,10 +2590,10 @@ CLASS lcl_serialize_view IMPLEMENTATION.
lv_name TYPE ddobjname,
ls_dd25v TYPE dd25v,
ls_dd09l TYPE dd09l,
lt_dd26v TYPE dd26v_t,
lt_dd27p TYPE dd27p_t,
lt_dd28j TYPE dd28j_t,
lt_dd28v TYPE ddtt_dd28v.
lt_dd26v TYPE TABLE OF dd26v,
lt_dd27p TYPE TABLE OF dd27p,
lt_dd28j TYPE TABLE OF dd28j,
lt_dd28v TYPE TABLE OF dd28v.
lo_xml = read_xml( is_item = is_item
@ -2648,7 +2648,7 @@ CLASS lcl_serialize_ttyp DEFINITION INHERITING FROM lcl_serialize_common FINAL.
PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item
RETURNING value(rt_files) TYPE tt_files
RETURNING VALUE(rt_files) TYPE tt_files
RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item
@ -2765,7 +2765,7 @@ CLASS lcl_serialize_prog DEFINITION INHERITING FROM lcl_serialize_common FINAL.
PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item
RETURNING value(rt_files) TYPE tt_files
RETURNING VALUE(rt_files) TYPE tt_files
RAISING lcx_exception.
CLASS-METHODS: deserialize
@ -2812,7 +2812,7 @@ CLASS lcl_serialize_prog DEFINITION INHERITING FROM lcl_serialize_common FINAL.
RAISING lcx_exception.
CLASS-METHODS exists IMPORTING iv_obj_name TYPE tadir-obj_name
RETURNING value(rv_exists) TYPE abap_bool.
RETURNING VALUE(rv_exists) TYPE abap_bool.
ENDCLASS. "lcl_serialize_prog DEFINITION
@ -3359,11 +3359,11 @@ CLASS lcl_serialize DEFINITION FINAL.
PUBLIC SECTION.
CLASS-METHODS serialize IMPORTING is_item TYPE st_item
RETURNING value(rt_files) TYPE tt_files
RETURNING VALUE(rt_files) TYPE tt_files
RAISING lcx_exception.
CLASS-METHODS status IMPORTING it_files TYPE tt_files
RETURNING value(rt_results) TYPE tt_results
RETURNING VALUE(rt_results) TYPE tt_results
RAISING lcx_exception.
CLASS-METHODS deserialize IMPORTING it_files TYPE tt_files
@ -3374,7 +3374,7 @@ CLASS lcl_serialize DEFINITION FINAL.
CLASS-METHODS compare_files
IMPORTING it_repo TYPE tt_files
is_gen TYPE st_file
RETURNING value(rv_match) TYPE abap_bool
RETURNING VALUE(rv_match) TYPE abap_bool
RAISING lcx_exception.
CLASS-METHODS activate RAISING lcx_exception.
@ -3624,15 +3624,15 @@ CLASS lcl_hash DEFINITION FINAL.
PUBLIC SECTION.
CLASS-METHODS adler32 IMPORTING iv_xstring TYPE xstring
RETURNING value(rv_checksum) TYPE t_adler32.
RETURNING VALUE(rv_checksum) TYPE t_adler32.
CLASS-METHODS sha1 IMPORTING iv_type TYPE t_type
iv_data TYPE xstring
RETURNING value(rv_sha1) TYPE t_sha1
RETURNING VALUE(rv_sha1) TYPE t_sha1
RAISING lcx_exception.
CLASS-METHODS sha1_raw IMPORTING iv_data TYPE xstring
RETURNING value(rv_sha1) TYPE t_sha1
RETURNING VALUE(rv_sha1) TYPE t_sha1
RAISING lcx_exception.
ENDCLASS. "lcl_hash DEFINITION
@ -3736,29 +3736,29 @@ CLASS lcl_pack DEFINITION FINAL.
PUBLIC SECTION.
CLASS-METHODS decode IMPORTING iv_data TYPE xstring
RETURNING value(rt_objects) TYPE tt_objects
RETURNING VALUE(rt_objects) TYPE tt_objects
RAISING lcx_exception.
CLASS-METHODS decode_tree IMPORTING iv_data TYPE xstring
RETURNING value(rt_nodes) TYPE tt_nodes
RETURNING VALUE(rt_nodes) TYPE tt_nodes
RAISING lcx_exception.
CLASS-METHODS decode_deltas CHANGING ct_objects TYPE tt_objects
RAISING lcx_exception.
CLASS-METHODS decode_commit IMPORTING iv_data TYPE xstring
RETURNING value(rs_commit) TYPE st_commit
RETURNING VALUE(rs_commit) TYPE st_commit
RAISING lcx_exception.
CLASS-METHODS encode IMPORTING it_objects TYPE tt_objects
RETURNING value(rv_data) TYPE xstring
RETURNING VALUE(rv_data) TYPE xstring
RAISING lcx_exception.
CLASS-METHODS: encode_tree IMPORTING it_nodes TYPE tt_nodes
RETURNING value(rv_data) TYPE xstring.
RETURNING VALUE(rv_data) TYPE xstring.
CLASS-METHODS: encode_commit IMPORTING is_commit TYPE st_commit
RETURNING value(rv_data) TYPE xstring.
RETURNING VALUE(rv_data) TYPE xstring.
PRIVATE SECTION.
@ -3770,7 +3770,7 @@ CLASS lcl_pack DEFINITION FINAL.
c_version TYPE x LENGTH 4 VALUE '00000002'.
CLASS-METHODS type_and_length IMPORTING is_object TYPE st_object
RETURNING value(rv_xstring) TYPE xstring
RETURNING VALUE(rv_xstring) TYPE xstring
RAISING lcx_exception.
CLASS-METHODS delta IMPORTING is_object TYPE st_object
@ -3780,7 +3780,7 @@ CLASS lcl_pack DEFINITION FINAL.
CLASS-METHODS delta_header CHANGING cv_delta TYPE xstring.
CLASS-METHODS get_type IMPORTING iv_x TYPE x
RETURNING value(rv_type) TYPE t_type
RETURNING VALUE(rv_type) TYPE t_type
RAISING lcx_exception.
CLASS-METHODS get_length EXPORTING ev_length TYPE i
@ -4448,7 +4448,7 @@ CLASS lcl_persistence DEFINITION FINAL.
PUBLIC SECTION.
* class-methods delete
CLASS-METHODS list RETURNING value(rt_repos) TYPE tt_repos_sha1
CLASS-METHODS list RETURNING VALUE(rt_repos) TYPE tt_repos_sha1
RAISING lcx_exception.
CLASS-METHODS update IMPORTING is_repo TYPE st_repo
@ -4460,13 +4460,13 @@ CLASS lcl_persistence DEFINITION FINAL.
RAISING lcx_exception.
PRIVATE SECTION.
CLASS-METHODS read_text RETURNING value(rt_repos) TYPE tt_repos_sha1
CLASS-METHODS read_text RETURNING VALUE(rt_repos) TYPE tt_repos_sha1
RAISING lcx_exception.
CLASS-METHODS save_text IMPORTING it_repos TYPE tt_repos_sha1
RAISING lcx_exception.
CLASS-METHODS header RETURNING value(rs_header) TYPE thead.
CLASS-METHODS header RETURNING VALUE(rs_header) TYPE thead.
ENDCLASS. "lcl_persistence DEFINITION
@ -4668,7 +4668,7 @@ CLASS lcl_transport DEFINITION FINAL.
PRIVATE SECTION.
CLASS-METHODS pkt_string
IMPORTING iv_string TYPE string
RETURNING value(rv_pkt) TYPE string
RETURNING VALUE(rv_pkt) TYPE string
RAISING lcx_exception.
CLASS-METHODS parse
@ -4677,7 +4677,7 @@ CLASS lcl_transport DEFINITION FINAL.
CLASS-METHODS length_utf8_hex
IMPORTING iv_data TYPE xstring
RETURNING value(rv_len) TYPE i.
RETURNING VALUE(rv_len) TYPE i.
CLASS-METHODS ref_discovery
IMPORTING is_repo TYPE st_repo
@ -4696,7 +4696,7 @@ CLASS lcl_transport DEFINITION FINAL.
IMPORTING ii_client TYPE REF TO if_http_client
RAISING lcx_exception.
CLASS-METHODS get_null RETURNING value(rv_c) TYPE char1.
CLASS-METHODS get_null RETURNING VALUE(rv_c) TYPE char1.
ENDCLASS. "lcl_transport DEFINITION
@ -4754,8 +4754,8 @@ CLASS lcl_transport IMPLEMENTATION.
DATA: lv_hash TYPE c LENGTH 40,
lv_len TYPE i,
lt_result TYPE TABLE OF string,
lv_data TYPE string.
lv_data TYPE string,
lv_text TYPE string.
cl_http_client=>create_by_url(
EXPORTING
@ -4771,7 +4771,28 @@ CLASS lcl_transport IMPLEMENTATION.
name = '~request_uri'
value = lcl_url=>path_name( is_repo-url ) && '.git/info/refs?service=git-' && iv_service && '-pack' ).
ei_client->send( ).
ei_client->receive( ).
ei_client->receive(
EXCEPTIONS
http_communication_failure = 1
http_invalid_state = 2
http_processing_failed = 3
OTHERS = 4
).
IF sy-subrc <> 0.
CASE sy-subrc.
WHEN 1.
lv_text = 'HTTP Communication Failure'.
WHEN 2.
lv_text = 'HTTP Invalid State'.
WHEN 3.
lv_text = 'HTTP Processing failed'.
WHEN OTHERS.
lv_text = 'Another error occured'.
ENDCASE.
RAISE EXCEPTION TYPE lcx_exception
EXPORTING
iv_text = lv_text.
ENDIF.
check_http_200( ei_client ).
@ -5011,7 +5032,7 @@ CLASS lcl_porcelain DEFINITION FINAL.
CLASS-METHODS push IMPORTING is_repo TYPE st_repo
is_comment TYPE st_comment
it_files TYPE tt_files
RETURNING value(rv_branch) TYPE t_sha1
RETURNING VALUE(rv_branch) TYPE t_sha1
RAISING lcx_exception.
PRIVATE SECTION.
@ -5023,7 +5044,7 @@ CLASS lcl_porcelain DEFINITION FINAL.
CLASS-METHODS root_tree IMPORTING it_objects TYPE tt_objects
iv_branch TYPE t_sha1
RETURNING value(rt_nodes) TYPE tt_nodes
RETURNING VALUE(rt_nodes) TYPE tt_nodes
RAISING lcx_exception.
CLASS-METHODS receive_pack IMPORTING is_comment TYPE st_comment
@ -5031,7 +5052,7 @@ CLASS lcl_porcelain DEFINITION FINAL.
it_nodes TYPE tt_nodes
it_files TYPE tt_files
iv_branch TYPE t_sha1
RETURNING value(rv_branch) TYPE t_sha1
RETURNING VALUE(rv_branch) TYPE t_sha1
RAISING lcx_exception.
ENDCLASS. "lcl_porcelain DEFINITION
@ -5267,22 +5288,22 @@ CLASS lcl_gui DEFINITION FINAL.
IMPORTING iv_html TYPE string.
CLASS-METHODS: render
RETURNING value(rv_html) TYPE string
RETURNING VALUE(rv_html) TYPE string
RAISING lcx_exception.
CLASS-METHODS: render_css
RETURNING value(rv_html) TYPE string.
RETURNING VALUE(rv_html) TYPE string.
CLASS-METHODS: render_repo
IMPORTING is_repo TYPE st_repo_sha1
RETURNING value(rv_html) TYPE string
RETURNING VALUE(rv_html) TYPE string
RAISING lcx_exception.
CLASS-METHODS: render_header
RETURNING value(rv_html) TYPE string.
RETURNING VALUE(rv_html) TYPE string.
CLASS-METHODS: render_footer
RETURNING value(rv_html) TYPE string.
RETURNING VALUE(rv_html) TYPE string.
CLASS-METHODS: install
IMPORTING iv_url TYPE string
@ -5312,7 +5333,7 @@ CLASS lcl_gui DEFINITION FINAL.
CLASS-METHODS: struct_encode
IMPORTING ig_structure1 TYPE any
ig_structure2 TYPE any OPTIONAL
RETURNING value(rv_string) TYPE string.
RETURNING VALUE(rv_string) TYPE string.
CLASS-METHODS: struct_decode
IMPORTING iv_string TYPE clike
@ -5320,7 +5341,7 @@ CLASS lcl_gui DEFINITION FINAL.
RAISING lcx_exception.
CLASS-METHODS: popup_comment
RETURNING value(rs_comment) TYPE st_comment
RETURNING VALUE(rs_comment) TYPE st_comment
RAISING lcx_exception.
ENDCLASS. "lcl_gui DEFINITION