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) Copy the ABAP into new report via SE38 or SE80, setup SSL in STRUST, activate, run (tested on 7.30 and 7.40)
## FAQ ## ## FAQ ##
##### 1) SSL Setup ##### #### 1) SSL Setup ####
##### Option a) #####
1. Goto github, find the certificate that it is using 1. Goto github, find the certificate that it is using
2. Download certificate from https://www.digicert.com/digicert-root-certificates.htm 2. Download certificate from https://www.digicert.com/digicert-root-certificates.htm
3. Install in STRUST under "SSL server Standard" ##### Option b) #####
4. Restart ICM using transaction SMICM 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 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/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 * 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 Add an issue in the tracker, https://github.com/larshp/abapGit/issues

223
zabapgit.abap
View File

@ -160,19 +160,19 @@ CLASS lcl_user DEFINITION FINAL.
CLASS-METHODS: set_username IMPORTING iv_username TYPE string CLASS-METHODS: set_username IMPORTING iv_username TYPE string
RAISING lcx_exception. 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. RAISING lcx_exception.
CLASS-METHODS: set_email IMPORTING iv_email TYPE string CLASS-METHODS: set_email IMPORTING iv_email TYPE string
RAISING lcx_exception. 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. RAISING lcx_exception.
PRIVATE SECTION. PRIVATE SECTION.
CLASS-METHODS: read IMPORTING iv_name TYPE tdobname CLASS-METHODS: read IMPORTING iv_name TYPE tdobname
RETURNING value(rv_value) TYPE string RETURNING VALUE(rv_value) TYPE string
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS: save IMPORTING iv_name TYPE tdobname CLASS-METHODS: save IMPORTING iv_name TYPE tdobname
@ -342,17 +342,17 @@ CLASS lcl_xml DEFINITION FINAL.
RAISING lcx_exception. 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 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 METHODS xml_add IMPORTING ii_root TYPE REF TO if_ixml_element OPTIONAL
ii_element TYPE REF TO if_ixml_element. ii_element TYPE REF TO if_ixml_element.
METHODS xml_find IMPORTING ii_root TYPE REF TO if_ixml_element OPTIONAL METHODS xml_find IMPORTING ii_root TYPE REF TO if_ixml_element OPTIONAL
iv_name TYPE string 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. PRIVATE SECTION.
@ -707,7 +707,7 @@ ENDCLASS. "lcl_xml IMPLEMENTATION
CLASS lcl_time DEFINITION FINAL. CLASS lcl_time DEFINITION FINAL.
PUBLIC SECTION. 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. RAISING lcx_exception.
PRIVATE SECTION. PRIVATE SECTION.
@ -779,16 +779,16 @@ CLASS lcl_url DEFINITION FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS: host CLASS-METHODS: host
IMPORTING iv_repo TYPE string IMPORTING iv_repo TYPE string
RETURNING value(rv_host) TYPE string RETURNING VALUE(rv_host) TYPE string
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS: name CLASS-METHODS: name
IMPORTING iv_repo TYPE string IMPORTING iv_repo TYPE string
RETURNING value(rv_name) TYPE string RETURNING VALUE(rv_name) TYPE string
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS: path_name IMPORTING iv_repo TYPE string 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. RAISING lcx_exception.
PRIVATE SECTION. PRIVATE SECTION.
@ -851,24 +851,24 @@ CLASS lcl_convert DEFINITION FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS bitbyte_to_int IMPORTING iv_bits TYPE clike 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 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 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 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 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. RAISING lcx_exception.
CLASS-METHODS int_to_xstring IMPORTING iv_i TYPE i CLASS-METHODS int_to_xstring IMPORTING iv_i TYPE i
iv_length TYPE i iv_length TYPE i
RETURNING value(rv_xstring) TYPE xstring. RETURNING VALUE(rv_xstring) TYPE xstring.
ENDCLASS. "lcl_convert DEFINITION ENDCLASS. "lcl_convert DEFINITION
@ -992,7 +992,7 @@ CLASS lcl_diff DEFINITION FINAL.
* assumes data is UTF8 based with newlines * assumes data is UTF8 based with newlines
CLASS-METHODS diff IMPORTING iv_local TYPE xstring CLASS-METHODS diff IMPORTING iv_local TYPE xstring
iv_remote TYPE xstring iv_remote TYPE xstring
RETURNING value(rt_diffs) TYPE tt_diffs. RETURNING VALUE(rt_diffs) TYPE tt_diffs.
ENDCLASS. "lcl_diff DEFINITION ENDCLASS. "lcl_diff DEFINITION
@ -1062,12 +1062,12 @@ CLASS lcl_serialize_common DEFINITION ABSTRACT.
PROTECTED SECTION. PROTECTED SECTION.
CLASS-METHODS: xml_to_file IMPORTING is_item TYPE st_item CLASS-METHODS: xml_to_file IMPORTING is_item TYPE st_item
io_xml TYPE REF TO lcl_xml io_xml TYPE REF TO lcl_xml
RETURNING value(rs_file) TYPE st_file RETURNING VALUE(rs_file) TYPE st_file
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS: read_xml IMPORTING is_item TYPE st_item CLASS-METHODS: read_xml IMPORTING is_item TYPE st_item
it_files TYPE tt_files 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. RAISING lcx_exception.
CLASS-METHODS: read_abap IMPORTING is_item TYPE st_item 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 CLASS-METHODS: abap_to_file IMPORTING is_item TYPE st_item
iv_extra TYPE string OPTIONAL iv_extra TYPE string OPTIONAL
it_abap TYPE STANDARD TABLE it_abap TYPE STANDARD TABLE
RETURNING value(rs_file) TYPE st_file RETURNING VALUE(rs_file) TYPE st_file
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS: activation_add IMPORTING iv_type TYPE trobjtype 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 CLASS-METHODS: filename IMPORTING is_item TYPE st_item
iv_extra TYPE string OPTIONAL iv_extra TYPE string OPTIONAL
iv_ext TYPE string iv_ext TYPE string
RETURNING value(rv_filename) TYPE string. RETURNING VALUE(rv_filename) TYPE string.
ENDCLASS. "lcl_serialize_common DEFINITION ENDCLASS. "lcl_serialize_common DEFINITION
@ -1266,7 +1266,7 @@ CLASS lcl_serialize_doma DEFINITION INHERITING FROM lcl_serialize_common FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item 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. RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item 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. PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item 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. RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item 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. PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item 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. RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item 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. RAISING lcx_exception.
CLASS-METHODS exists IMPORTING is_clskey TYPE seoclskey 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 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. RAISING lcx_exception.
CLASS-METHODS serialize_locals_imp IMPORTING is_clskey TYPE seoclskey 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. RAISING lcx_exception.
CLASS-METHODS serialize_locals_def IMPORTING is_clskey TYPE seoclskey 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. RAISING lcx_exception.
CLASS-METHODS serialize_testclasses IMPORTING is_clskey TYPE seoclskey 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. RAISING lcx_exception.
CLASS-METHODS serialize_macros IMPORTING is_clskey TYPE seoclskey 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. RAISING lcx_exception.
CLASS-METHODS serialize_xml IMPORTING is_clskey TYPE seoclskey 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. RAISING lcx_exception.
CLASS-METHODS remove_signatures CHANGING ct_source TYPE seop_source_string. 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. PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item 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. RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item 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. PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item 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. RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item
@ -2017,12 +2017,12 @@ CLASS lcl_serialize_tabl IMPLEMENTATION.
ls_file TYPE st_file, ls_file TYPE st_file,
ls_dd02v TYPE dd02v, ls_dd02v TYPE dd02v,
ls_dd09l TYPE dd09l, ls_dd09l TYPE dd09l,
lt_dd03p TYPE ddtt_dd03p, lt_dd03p TYPE TABLE OF dd03p,
lt_dd05m TYPE ddtt_dd05m, lt_dd05m TYPE TABLE OF dd05m,
lt_dd08v TYPE ddtt_dd08v, lt_dd08v TYPE TABLE OF dd08v,
lt_dd12v TYPE dd12vtab, lt_dd12v TYPE dd12vtab,
lt_dd17v TYPE dd17vtab, lt_dd17v TYPE dd17vtab,
lt_dd35v TYPE ddtt_dd35v, lt_dd35v TYPE TABLE OF dd35v,
lt_dd36m TYPE dd36mttyp. lt_dd36m TYPE dd36mttyp.
FIELD-SYMBOLS: <ls_dd12v> LIKE LINE OF lt_dd12v. 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, lo_xml TYPE REF TO lcl_xml,
ls_dd02v TYPE dd02v, ls_dd02v TYPE dd02v,
ls_dd09l TYPE dd09l, ls_dd09l TYPE dd09l,
lt_dd03p TYPE ddtt_dd03p, lt_dd03p TYPE TABLE OF dd03p,
lt_dd05m TYPE ddtt_dd05m, lt_dd05m TYPE TABLE OF dd05m,
lt_dd08v TYPE ddtt_dd08v, lt_dd08v TYPE TABLE OF dd08v,
lt_dd12v TYPE dd12vtab, lt_dd12v TYPE dd12vtab,
lt_dd17v TYPE dd17vtab, lt_dd17v TYPE dd17vtab,
ls_dd17v LIKE LINE OF lt_dd17v, ls_dd17v LIKE LINE OF lt_dd17v,
lt_secondary LIKE lt_dd17v, lt_secondary LIKE lt_dd17v,
lt_dd35v TYPE ddtt_dd35v, lt_dd35v TYPE TABLE OF dd35v,
lt_dd36m TYPE dd36mttyp, lt_dd36m TYPE dd36mttyp,
ls_dd12v LIKE LINE OF lt_dd12v. ls_dd12v LIKE LINE OF lt_dd12v.
@ -2197,7 +2197,7 @@ CLASS lcl_serialize_msag DEFINITION INHERITING FROM lcl_serialize_common FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item 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. RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item 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. PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item 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. RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item 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. PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item 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. RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item
@ -2289,8 +2289,8 @@ CLASS lcl_serialize_enqu IMPLEMENTATION.
ls_file TYPE st_file, ls_file TYPE st_file,
lo_xml TYPE REF TO lcl_xml, lo_xml TYPE REF TO lcl_xml,
ls_dd25v TYPE dd25v, ls_dd25v TYPE dd25v,
lt_dd26e TYPE tmgn_dd26e, lt_dd26e TYPE TABLE OF dd26e,
lt_dd27p TYPE tmgn_dd27p. lt_dd27p TYPE TABLE OF dd27p.
lv_name = is_item-obj_name. lv_name = is_item-obj_name.
@ -2335,8 +2335,8 @@ CLASS lcl_serialize_enqu IMPLEMENTATION.
DATA: lo_xml TYPE REF TO lcl_xml, DATA: lo_xml TYPE REF TO lcl_xml,
lv_name TYPE ddobjname, lv_name TYPE ddobjname,
ls_dd25v TYPE dd25v, ls_dd25v TYPE dd25v,
lt_dd26e TYPE tmgn_dd26e, lt_dd26e TYPE TABLE OF dd26e,
lt_dd27p TYPE tmgn_dd27p. lt_dd27p TYPE TABLE OF dd27p.
lo_xml = read_xml( is_item = is_item 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. PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item 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. RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item
@ -2406,9 +2406,9 @@ CLASS lcl_serialize_shlp IMPLEMENTATION.
ls_file TYPE st_file, ls_file TYPE st_file,
lo_xml TYPE REF TO lcl_xml, lo_xml TYPE REF TO lcl_xml,
ls_dd30v TYPE dd30v, ls_dd30v TYPE dd30v,
lt_dd31v TYPE ddtt_dd31v, lt_dd31v TYPE TABLE OF dd31v,
lt_dd32p TYPE ddtt_dd32p, lt_dd32p TYPE TABLE OF dd32p,
lt_dd33v TYPE ddtt_dd33v. lt_dd33v TYPE TABLE OF dd33v.
lv_name = is_item-obj_name. lv_name = is_item-obj_name.
@ -2455,9 +2455,9 @@ CLASS lcl_serialize_shlp IMPLEMENTATION.
DATA: lo_xml TYPE REF TO lcl_xml, DATA: lo_xml TYPE REF TO lcl_xml,
lv_name TYPE ddobjname, lv_name TYPE ddobjname,
ls_dd30v TYPE dd30v, ls_dd30v TYPE dd30v,
lt_dd31v TYPE ddtt_dd31v, lt_dd31v TYPE TABLE OF dd31v,
lt_dd32p TYPE ddtt_dd32p, lt_dd32p TYPE TABLE OF dd32p,
lt_dd33v TYPE ddtt_dd33v. lt_dd33v TYPE TABLE OF dd33v.
lo_xml = read_xml( is_item = is_item 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. PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item 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. RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item
@ -2530,10 +2530,10 @@ CLASS lcl_serialize_view IMPLEMENTATION.
lv_name TYPE ddobjname, lv_name TYPE ddobjname,
ls_dd25v TYPE dd25v, ls_dd25v TYPE dd25v,
ls_dd09l TYPE dd09l, ls_dd09l TYPE dd09l,
lt_dd26v TYPE dd26v_t, lt_dd26v TYPE TABLE OF dd26v,
lt_dd27p TYPE dd27p_t, lt_dd27p TYPE TABLE OF dd27p,
lt_dd28j TYPE dd28j_t, lt_dd28j TYPE TABLE OF dd28j,
lt_dd28v TYPE ddtt_dd28v. lt_dd28v TYPE TABLE OF dd28v.
lv_name = is_item-obj_name. lv_name = is_item-obj_name.
@ -2590,10 +2590,10 @@ CLASS lcl_serialize_view IMPLEMENTATION.
lv_name TYPE ddobjname, lv_name TYPE ddobjname,
ls_dd25v TYPE dd25v, ls_dd25v TYPE dd25v,
ls_dd09l TYPE dd09l, ls_dd09l TYPE dd09l,
lt_dd26v TYPE dd26v_t, lt_dd26v TYPE TABLE OF dd26v,
lt_dd27p TYPE dd27p_t, lt_dd27p TYPE TABLE OF dd27p,
lt_dd28j TYPE dd28j_t, lt_dd28j TYPE TABLE OF dd28j,
lt_dd28v TYPE ddtt_dd28v. lt_dd28v TYPE TABLE OF dd28v.
lo_xml = read_xml( is_item = is_item 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. PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item 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. RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item 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. PUBLIC SECTION.
CLASS-METHODS: serialize IMPORTING is_item TYPE st_item 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. RAISING lcx_exception.
CLASS-METHODS: deserialize CLASS-METHODS: deserialize
@ -2812,7 +2812,7 @@ CLASS lcl_serialize_prog DEFINITION INHERITING FROM lcl_serialize_common FINAL.
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS exists IMPORTING iv_obj_name TYPE tadir-obj_name 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 ENDCLASS. "lcl_serialize_prog DEFINITION
@ -3359,11 +3359,11 @@ CLASS lcl_serialize DEFINITION FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS serialize IMPORTING is_item TYPE st_item 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. RAISING lcx_exception.
CLASS-METHODS status IMPORTING it_files TYPE tt_files 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. RAISING lcx_exception.
CLASS-METHODS deserialize IMPORTING it_files TYPE tt_files CLASS-METHODS deserialize IMPORTING it_files TYPE tt_files
@ -3374,7 +3374,7 @@ CLASS lcl_serialize DEFINITION FINAL.
CLASS-METHODS compare_files CLASS-METHODS compare_files
IMPORTING it_repo TYPE tt_files IMPORTING it_repo TYPE tt_files
is_gen TYPE st_file is_gen TYPE st_file
RETURNING value(rv_match) TYPE abap_bool RETURNING VALUE(rv_match) TYPE abap_bool
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS activate RAISING lcx_exception. CLASS-METHODS activate RAISING lcx_exception.
@ -3624,15 +3624,15 @@ CLASS lcl_hash DEFINITION FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS adler32 IMPORTING iv_xstring TYPE xstring 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 CLASS-METHODS sha1 IMPORTING iv_type TYPE t_type
iv_data TYPE xstring iv_data TYPE xstring
RETURNING value(rv_sha1) TYPE t_sha1 RETURNING VALUE(rv_sha1) TYPE t_sha1
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS sha1_raw IMPORTING iv_data TYPE xstring 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. RAISING lcx_exception.
ENDCLASS. "lcl_hash DEFINITION ENDCLASS. "lcl_hash DEFINITION
@ -3736,29 +3736,29 @@ CLASS lcl_pack DEFINITION FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS decode IMPORTING iv_data TYPE xstring 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. RAISING lcx_exception.
CLASS-METHODS decode_tree IMPORTING iv_data TYPE xstring 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. RAISING lcx_exception.
CLASS-METHODS decode_deltas CHANGING ct_objects TYPE tt_objects CLASS-METHODS decode_deltas CHANGING ct_objects TYPE tt_objects
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS decode_commit IMPORTING iv_data TYPE xstring 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. RAISING lcx_exception.
CLASS-METHODS encode IMPORTING it_objects TYPE tt_objects CLASS-METHODS encode IMPORTING it_objects TYPE tt_objects
RETURNING value(rv_data) TYPE xstring RETURNING VALUE(rv_data) TYPE xstring
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS: encode_tree IMPORTING it_nodes TYPE tt_nodes 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 CLASS-METHODS: encode_commit IMPORTING is_commit TYPE st_commit
RETURNING value(rv_data) TYPE xstring. RETURNING VALUE(rv_data) TYPE xstring.
PRIVATE SECTION. PRIVATE SECTION.
@ -3770,7 +3770,7 @@ CLASS lcl_pack DEFINITION FINAL.
c_version TYPE x LENGTH 4 VALUE '00000002'. c_version TYPE x LENGTH 4 VALUE '00000002'.
CLASS-METHODS type_and_length IMPORTING is_object TYPE st_object 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. RAISING lcx_exception.
CLASS-METHODS delta IMPORTING is_object TYPE st_object 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 delta_header CHANGING cv_delta TYPE xstring.
CLASS-METHODS get_type IMPORTING iv_x TYPE x 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. RAISING lcx_exception.
CLASS-METHODS get_length EXPORTING ev_length TYPE i CLASS-METHODS get_length EXPORTING ev_length TYPE i
@ -4448,7 +4448,7 @@ CLASS lcl_persistence DEFINITION FINAL.
PUBLIC SECTION. PUBLIC SECTION.
* class-methods delete * 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. RAISING lcx_exception.
CLASS-METHODS update IMPORTING is_repo TYPE st_repo CLASS-METHODS update IMPORTING is_repo TYPE st_repo
@ -4460,13 +4460,13 @@ CLASS lcl_persistence DEFINITION FINAL.
RAISING lcx_exception. RAISING lcx_exception.
PRIVATE SECTION. 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. RAISING lcx_exception.
CLASS-METHODS save_text IMPORTING it_repos TYPE tt_repos_sha1 CLASS-METHODS save_text IMPORTING it_repos TYPE tt_repos_sha1
RAISING lcx_exception. 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 ENDCLASS. "lcl_persistence DEFINITION
@ -4668,7 +4668,7 @@ CLASS lcl_transport DEFINITION FINAL.
PRIVATE SECTION. PRIVATE SECTION.
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
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS parse CLASS-METHODS parse
@ -4677,7 +4677,7 @@ CLASS lcl_transport DEFINITION FINAL.
CLASS-METHODS length_utf8_hex CLASS-METHODS length_utf8_hex
IMPORTING iv_data TYPE xstring IMPORTING iv_data TYPE xstring
RETURNING value(rv_len) TYPE i. RETURNING VALUE(rv_len) TYPE i.
CLASS-METHODS ref_discovery CLASS-METHODS ref_discovery
IMPORTING is_repo TYPE st_repo IMPORTING is_repo TYPE st_repo
@ -4696,7 +4696,7 @@ CLASS lcl_transport DEFINITION FINAL.
IMPORTING ii_client TYPE REF TO if_http_client IMPORTING ii_client TYPE REF TO if_http_client
RAISING lcx_exception. 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 ENDCLASS. "lcl_transport DEFINITION
@ -4754,8 +4754,8 @@ CLASS lcl_transport IMPLEMENTATION.
DATA: lv_hash TYPE c LENGTH 40, DATA: lv_hash TYPE c LENGTH 40,
lv_len TYPE i, lv_len TYPE i,
lt_result TYPE TABLE OF string, lt_result TYPE TABLE OF string,
lv_data TYPE string. lv_data TYPE string,
lv_text TYPE string.
cl_http_client=>create_by_url( cl_http_client=>create_by_url(
EXPORTING EXPORTING
@ -4771,7 +4771,28 @@ CLASS lcl_transport IMPLEMENTATION.
name = '~request_uri' name = '~request_uri'
value = lcl_url=>path_name( is_repo-url ) && '.git/info/refs?service=git-' && iv_service && '-pack' ). value = lcl_url=>path_name( is_repo-url ) && '.git/info/refs?service=git-' && iv_service && '-pack' ).
ei_client->send( ). 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 ). check_http_200( ei_client ).
@ -5011,7 +5032,7 @@ CLASS lcl_porcelain DEFINITION FINAL.
CLASS-METHODS push IMPORTING is_repo TYPE st_repo CLASS-METHODS push IMPORTING is_repo TYPE st_repo
is_comment TYPE st_comment is_comment TYPE st_comment
it_files TYPE tt_files it_files TYPE tt_files
RETURNING value(rv_branch) TYPE t_sha1 RETURNING VALUE(rv_branch) TYPE t_sha1
RAISING lcx_exception. RAISING lcx_exception.
PRIVATE SECTION. PRIVATE SECTION.
@ -5023,7 +5044,7 @@ CLASS lcl_porcelain DEFINITION FINAL.
CLASS-METHODS root_tree IMPORTING it_objects TYPE tt_objects CLASS-METHODS root_tree IMPORTING it_objects TYPE tt_objects
iv_branch TYPE t_sha1 iv_branch TYPE t_sha1
RETURNING value(rt_nodes) TYPE tt_nodes RETURNING VALUE(rt_nodes) TYPE tt_nodes
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS receive_pack IMPORTING is_comment TYPE st_comment 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_nodes TYPE tt_nodes
it_files TYPE tt_files it_files TYPE tt_files
iv_branch TYPE t_sha1 iv_branch TYPE t_sha1
RETURNING value(rv_branch) TYPE t_sha1 RETURNING VALUE(rv_branch) TYPE t_sha1
RAISING lcx_exception. RAISING lcx_exception.
ENDCLASS. "lcl_porcelain DEFINITION ENDCLASS. "lcl_porcelain DEFINITION
@ -5267,22 +5288,22 @@ CLASS lcl_gui DEFINITION FINAL.
IMPORTING iv_html TYPE string. IMPORTING iv_html TYPE string.
CLASS-METHODS: render CLASS-METHODS: render
RETURNING value(rv_html) TYPE string RETURNING VALUE(rv_html) TYPE string
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS: render_css CLASS-METHODS: render_css
RETURNING value(rv_html) TYPE string. RETURNING VALUE(rv_html) TYPE string.
CLASS-METHODS: render_repo CLASS-METHODS: render_repo
IMPORTING is_repo TYPE st_repo_sha1 IMPORTING is_repo TYPE st_repo_sha1
RETURNING value(rv_html) TYPE string RETURNING VALUE(rv_html) TYPE string
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS: render_header CLASS-METHODS: render_header
RETURNING value(rv_html) TYPE string. RETURNING VALUE(rv_html) TYPE string.
CLASS-METHODS: render_footer CLASS-METHODS: render_footer
RETURNING value(rv_html) TYPE string. RETURNING VALUE(rv_html) TYPE string.
CLASS-METHODS: install CLASS-METHODS: install
IMPORTING iv_url TYPE string IMPORTING iv_url TYPE string
@ -5312,7 +5333,7 @@ CLASS lcl_gui DEFINITION FINAL.
CLASS-METHODS: struct_encode CLASS-METHODS: struct_encode
IMPORTING ig_structure1 TYPE any IMPORTING ig_structure1 TYPE any
ig_structure2 TYPE any OPTIONAL ig_structure2 TYPE any OPTIONAL
RETURNING value(rv_string) TYPE string. RETURNING VALUE(rv_string) TYPE string.
CLASS-METHODS: struct_decode CLASS-METHODS: struct_decode
IMPORTING iv_string TYPE clike IMPORTING iv_string TYPE clike
@ -5320,7 +5341,7 @@ CLASS lcl_gui DEFINITION FINAL.
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS: popup_comment CLASS-METHODS: popup_comment
RETURNING value(rs_comment) TYPE st_comment RETURNING VALUE(rs_comment) TYPE st_comment
RAISING lcx_exception. RAISING lcx_exception.
ENDCLASS. "lcl_gui DEFINITION ENDCLASS. "lcl_gui DEFINITION
@ -6300,4 +6321,4 @@ CLASS lcl_abap_unit IMPLEMENTATION.
ENDMETHOD. "commit_encode_decode ENDMETHOD. "commit_encode_decode
ENDCLASS. "lcl_abap_unit IMPLEMENTATION ENDCLASS. "lcl_abap_unit IMPLEMENTATION