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

various fixes

Browse Source 
fix handling of inactive objects
fix dynpros
fix table_read() initial values
This commit is contained in:
Lars Hvam 2015-04-03 10:50:36 +02:00
parent 30a06799b6
commit 81327cc816
1 changed files with 111 additions and 95 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

206
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.17'. "#EC NOTEXT gc_abap_version TYPE string VALUE 'v0.18'. "#EC NOTEXT
******************************************************************************** ********************************************************************************
* The MIT License (MIT) * The MIT License (MIT)
@ -176,7 +176,7 @@ CLASS lcl_user DEFINITION FINAL.
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS get_username CLASS-METHODS get_username
RETURNING value(rv_username) TYPE string RETURNING VALUE(rv_username) TYPE string
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS set_email CLASS-METHODS set_email
@ -184,13 +184,13 @@ CLASS lcl_user DEFINITION FINAL.
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS get_email CLASS-METHODS get_email
RETURNING value(rv_email) TYPE string RETURNING VALUE(rv_email) TYPE string
RAISING lcx_exception. RAISING lcx_exception.
PRIVATE SECTION. PRIVATE SECTION.
CLASS-METHODS read CLASS-METHODS read
IMPORTING iv_name TYPE tdobname 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 CLASS-METHODS save
@ -347,6 +347,7 @@ CLASS lcl_xml DEFINITION FINAL.
METHODS element_read METHODS element_read
IMPORTING ii_root TYPE REF TO if_ixml_element OPTIONAL IMPORTING ii_root TYPE REF TO if_ixml_element OPTIONAL
EXPORTING ev_success TYPE abap_bool
CHANGING cg_element TYPE data CHANGING cg_element TYPE data
RAISING lcx_exception. RAISING lcx_exception.
@ -359,6 +360,7 @@ CLASS lcl_xml DEFINITION FINAL.
METHODS structure_read METHODS structure_read
IMPORTING ii_root TYPE REF TO if_ixml_element OPTIONAL IMPORTING ii_root TYPE REF TO if_ixml_element OPTIONAL
iv_name TYPE string OPTIONAL iv_name TYPE string OPTIONAL
EXPORTING ev_success TYPE abap_bool
CHANGING cg_structure TYPE data CHANGING cg_structure TYPE data
RAISING lcx_exception. RAISING lcx_exception.
@ -376,11 +378,11 @@ CLASS lcl_xml DEFINITION FINAL.
METHODS xml_render METHODS xml_render
IMPORTING iv_normalize TYPE sap_bool DEFAULT abap_true IMPORTING iv_normalize TYPE sap_bool DEFAULT abap_true
RETURNING value(rv_string) TYPE string. RETURNING VALUE(rv_string) TYPE string.
METHODS xml_element METHODS xml_element
IMPORTING iv_name TYPE string 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 METHODS xml_add
IMPORTING ii_root TYPE REF TO if_ixml_element OPTIONAL IMPORTING ii_root TYPE REF TO if_ixml_element OPTIONAL
@ -389,7 +391,7 @@ CLASS lcl_xml DEFINITION FINAL.
METHODS xml_find METHODS xml_find
IMPORTING ii_root TYPE REF TO if_ixml_element OPTIONAL 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.
@ -460,6 +462,7 @@ CLASS lcl_xml IMPLEMENTATION.
CLEAR cg_structure. CLEAR cg_structure.
ev_success = abap_true.
lo_descr_ref ?= cl_abap_typedescr=>describe_by_data( cg_structure ). lo_descr_ref ?= cl_abap_typedescr=>describe_by_data( cg_structure ).
IF iv_name IS INITIAL. IF iv_name IS INITIAL.
@ -474,6 +477,7 @@ CLASS lcl_xml IMPLEMENTATION.
li_struct = xml_find( ii_root = ii_root li_struct = xml_find( ii_root = ii_root
iv_name = lv_name ). iv_name = lv_name ).
IF NOT li_struct IS BOUND. IF NOT li_struct IS BOUND.
ev_success = abap_false.
RETURN. RETURN.
ENDIF. ENDIF.
@ -498,6 +502,7 @@ CLASS lcl_xml IMPLEMENTATION.
li_root TYPE REF TO if_ixml_element, li_root TYPE REF TO if_ixml_element,
lv_kind TYPE abap_typecategory, lv_kind TYPE abap_typecategory,
lv_index TYPE i, lv_index TYPE i,
lv_success TYPE abap_bool,
lo_data_descr TYPE REF TO cl_abap_datadescr, lo_data_descr TYPE REF TO cl_abap_datadescr,
lo_table_descr TYPE REF TO cl_abap_tabledescr. lo_table_descr TYPE REF TO cl_abap_tabledescr.
@ -531,15 +536,17 @@ CLASS lcl_xml IMPLEMENTATION.
CASE lv_kind. CASE lv_kind.
WHEN cl_abap_typedescr=>kind_struct. WHEN cl_abap_typedescr=>kind_struct.
structure_read( EXPORTING ii_root = li_root structure_read( EXPORTING ii_root = li_root
IMPORTING ev_success = lv_success
CHANGING cg_structure = <lg_line> ). CHANGING cg_structure = <lg_line> ).
WHEN cl_abap_typedescr=>kind_elem. WHEN cl_abap_typedescr=>kind_elem.
element_read( EXPORTING ii_root = li_root element_read( EXPORTING ii_root = li_root
IMPORTING ev_success = lv_success
CHANGING cg_element = <lg_line> ). CHANGING cg_element = <lg_line> ).
WHEN OTHERS. WHEN OTHERS.
_raise 'unknown kind'. _raise 'unknown kind'.
ENDCASE. ENDCASE.
IF <lg_line> IS INITIAL. IF lv_success = abap_false.
lv_index = lines( ct_table ). lv_index = lines( ct_table ).
DELETE ct_table INDEX lv_index. DELETE ct_table INDEX lv_index.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
@ -704,6 +711,8 @@ CLASS lcl_xml IMPLEMENTATION.
lv_name TYPE string. lv_name TYPE string.
ev_success = abap_true.
lo_descr ?= cl_abap_typedescr=>describe_by_data( cg_element ). lo_descr ?= cl_abap_typedescr=>describe_by_data( cg_element ).
lv_name = lo_descr->get_relative_name( ). lv_name = lo_descr->get_relative_name( ).
@ -714,6 +723,7 @@ CLASS lcl_xml IMPLEMENTATION.
li_element = xml_find( ii_root = ii_root li_element = xml_find( ii_root = ii_root
iv_name = lv_name ). iv_name = lv_name ).
IF NOT li_element IS BOUND. IF NOT li_element IS BOUND.
ev_success = abap_false.
RETURN. RETURN.
ENDIF. ENDIF.
@ -809,10 +819,10 @@ CLASS lcl_debug DEFINITION FINAL.
IMPORTING iv_message TYPE string. IMPORTING iv_message TYPE string.
CLASS-METHODS get_html CLASS-METHODS get_html
RETURNING value(rv_html) TYPE string. RETURNING VALUE(rv_html) TYPE string.
CLASS-METHODS get_debug CLASS-METHODS get_debug
RETURNING value(rv_debug) TYPE sap_bool. RETURNING VALUE(rv_debug) TYPE sap_bool.
CLASS-METHODS clear. CLASS-METHODS clear.
@ -916,7 +926,7 @@ CLASS lcl_time DEFINITION FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS get CLASS-METHODS get
RETURNING value(rv_time) TYPE t_unixtime RETURNING VALUE(rv_time) TYPE t_unixtime
RAISING lcx_exception. RAISING lcx_exception.
PRIVATE SECTION. PRIVATE SECTION.
@ -988,17 +998,17 @@ 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 CLASS-METHODS path_name
IMPORTING iv_repo TYPE string 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.
@ -1063,29 +1073,29 @@ CLASS lcl_convert DEFINITION FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS bitbyte_to_int CLASS-METHODS bitbyte_to_int
IMPORTING iv_bits TYPE clike IMPORTING iv_bits TYPE clike
RETURNING value(rv_int) TYPE i. RETURNING VALUE(rv_int) TYPE i.
CLASS-METHODS x_to_bitbyte CLASS-METHODS x_to_bitbyte
IMPORTING iv_x TYPE x 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 CLASS-METHODS string_to_xstring_utf8
IMPORTING iv_string TYPE string IMPORTING iv_string TYPE string
RETURNING value(rv_xstring) TYPE xstring. RETURNING VALUE(rv_xstring) TYPE xstring.
CLASS-METHODS xstring_to_string_utf8 CLASS-METHODS xstring_to_string_utf8
IMPORTING iv_data TYPE xstring IMPORTING iv_data TYPE xstring
RETURNING value(rv_string) TYPE string. RETURNING VALUE(rv_string) TYPE string.
CLASS-METHODS xstring_to_int CLASS-METHODS xstring_to_int
IMPORTING iv_xstring TYPE xstring 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 CLASS-METHODS int_to_xstring
IMPORTING iv_i TYPE i 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
@ -1210,7 +1220,7 @@ CLASS lcl_diff DEFINITION FINAL.
CLASS-METHODS diff CLASS-METHODS diff
IMPORTING iv_local TYPE xstring 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
@ -1316,14 +1326,14 @@ CLASS lcl_objects_common DEFINITION ABSTRACT.
iv_extra TYPE clike OPTIONAL iv_extra TYPE clike OPTIONAL
io_xml TYPE REF TO lcl_xml io_xml TYPE REF TO lcl_xml
iv_normalize TYPE sap_bool DEFAULT abap_true iv_normalize TYPE sap_bool DEFAULT abap_true
RETURNING value(rs_file) TYPE st_file RETURNING VALUE(rs_file) TYPE st_file
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS read_xml CLASS-METHODS read_xml
IMPORTING is_item TYPE st_item IMPORTING is_item TYPE st_item
iv_extra TYPE clike OPTIONAL iv_extra TYPE clike OPTIONAL
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 CLASS-METHODS read_abap
@ -1338,7 +1348,7 @@ CLASS lcl_objects_common DEFINITION ABSTRACT.
IMPORTING is_item TYPE st_item IMPORTING is_item TYPE st_item
iv_extra TYPE clike OPTIONAL iv_extra TYPE clike 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 CLASS-METHODS activation_add
@ -1359,13 +1369,13 @@ CLASS lcl_objects_common DEFINITION ABSTRACT.
CLASS-METHODS read_progdir CLASS-METHODS read_progdir
IMPORTING iv_program TYPE programm IMPORTING iv_program TYPE programm
RETURNING value(rs_progdir) TYPE ty_progdir. RETURNING VALUE(rs_progdir) TYPE ty_progdir.
CLASS-METHODS serialize_program CLASS-METHODS serialize_program
IMPORTING is_item TYPE st_item IMPORTING is_item TYPE st_item
iv_program TYPE programm OPTIONAL iv_program TYPE programm OPTIONAL
iv_extra TYPE clike OPTIONAL iv_extra TYPE clike OPTIONAL
RETURNING value(rt_files) TYPE tt_files RETURNING VALUE(rt_files) TYPE tt_files
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS deserialize_program CLASS-METHODS deserialize_program
@ -1380,7 +1390,7 @@ CLASS lcl_objects_common DEFINITION ABSTRACT.
IMPORTING is_item TYPE st_item IMPORTING is_item TYPE st_item
iv_extra TYPE clike OPTIONAL iv_extra TYPE clike OPTIONAL
iv_ext TYPE string iv_ext TYPE string
RETURNING value(rv_filename) TYPE string. RETURNING VALUE(rv_filename) TYPE string.
CLASS-METHODS serialize_dynpros CLASS-METHODS serialize_dynpros
IMPORTING iv_program_name TYPE programm IMPORTING iv_program_name TYPE programm
@ -1414,7 +1424,8 @@ CLASS lcl_objects_common IMPLEMENTATION.
lv_title = ls_tpool-entry. lv_title = ls_tpool-entry.
SELECT SINGLE progname FROM reposrc INTO lv_progname SELECT SINGLE progname FROM reposrc INTO lv_progname
WHERE progname = is_progdir-name. "#EC WARNOK WHERE progname = is_progdir-name
AND r3state = 'A'.
IF sy-subrc = 0. IF sy-subrc = 0.
lv_exists = abap_true. lv_exists = abap_true.
ELSE. ELSE.
@ -1967,7 +1978,7 @@ CLASS lcl_object_doma DEFINITION INHERITING FROM lcl_objects_common FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS serialize CLASS-METHODS serialize
IMPORTING is_item TYPE st_item 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
@ -2129,7 +2140,7 @@ CLASS lcl_object_dtel DEFINITION INHERITING FROM lcl_objects_common FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS serialize CLASS-METHODS serialize
IMPORTING is_item TYPE st_item 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
@ -2279,7 +2290,7 @@ CLASS lcl_object_clas DEFINITION INHERITING FROM lcl_objects_common FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS serialize CLASS-METHODS serialize
IMPORTING is_item TYPE st_item 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
@ -2316,36 +2327,36 @@ CLASS lcl_object_clas DEFINITION INHERITING FROM lcl_objects_common FINAL.
CLASS-METHODS exists CLASS-METHODS exists
IMPORTING is_clskey TYPE seoclskey IMPORTING is_clskey TYPE seoclskey
RETURNING value(rv_exists) TYPE sap_bool. RETURNING VALUE(rv_exists) TYPE sap_bool.
CLASS-METHODS serialize_abap CLASS-METHODS serialize_abap
IMPORTING is_clskey TYPE seoclskey IMPORTING is_clskey TYPE seoclskey
RETURNING value(rt_source) TYPE tt_string RETURNING VALUE(rt_source) TYPE tt_string
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS serialize_locals_imp CLASS-METHODS serialize_locals_imp
IMPORTING is_clskey TYPE seoclskey IMPORTING is_clskey TYPE seoclskey
RETURNING value(rt_source) TYPE tt_string RETURNING VALUE(rt_source) TYPE tt_string
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS serialize_locals_def CLASS-METHODS serialize_locals_def
IMPORTING is_clskey TYPE seoclskey IMPORTING is_clskey TYPE seoclskey
RETURNING value(rt_source) TYPE tt_string RETURNING VALUE(rt_source) TYPE tt_string
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS serialize_testclasses CLASS-METHODS serialize_testclasses
IMPORTING is_clskey TYPE seoclskey IMPORTING is_clskey TYPE seoclskey
RETURNING value(rt_source) TYPE tt_string RETURNING VALUE(rt_source) TYPE tt_string
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS serialize_macros CLASS-METHODS serialize_macros
IMPORTING is_clskey TYPE seoclskey IMPORTING is_clskey TYPE seoclskey
RETURNING value(rt_source) TYPE tt_string RETURNING VALUE(rt_source) TYPE tt_string
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS serialize_xml CLASS-METHODS serialize_xml
IMPORTING is_item TYPE st_item IMPORTING is_item TYPE st_item
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 CLASS-METHODS remove_signatures
@ -2673,9 +2684,11 @@ CLASS lcl_object_clas IMPLEMENTATION.
ENDIF. ENDIF.
lo_xml = serialize_xml( is_item ). lo_xml = serialize_xml( is_item ).
ls_file = xml_to_file( is_item = is_item IF lo_xml IS BOUND.
io_xml = lo_xml ). ls_file = xml_to_file( is_item = is_item
APPEND ls_file TO rt_files. io_xml = lo_xml ).
APPEND ls_file TO rt_files.
ENDIF.
ENDMETHOD. "serialize ENDMETHOD. "serialize
@ -2705,7 +2718,9 @@ CLASS lcl_object_clas IMPLEMENTATION.
deleted = 2 deleted = 2
model_only = 3 model_only = 3
OTHERS = 4. OTHERS = 4.
IF sy-subrc <> 0. IF sy-subrc = 1.
RETURN. " in case only inactive version exists
ELSEIF sy-subrc <> 0.
_raise 'error from seo_clif_get'. _raise 'error from seo_clif_get'.
ENDIF. ENDIF.
@ -2996,7 +3011,7 @@ CLASS lcl_object_ssfo DEFINITION INHERITING FROM lcl_objects_common FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS serialize CLASS-METHODS serialize
IMPORTING is_item TYPE st_item 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
@ -3232,7 +3247,7 @@ CLASS lcl_object_tabl DEFINITION INHERITING FROM lcl_objects_common FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS serialize CLASS-METHODS serialize
IMPORTING is_item TYPE st_item 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
@ -3486,7 +3501,7 @@ CLASS lcl_object_enqu DEFINITION INHERITING FROM lcl_objects_common FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS serialize CLASS-METHODS serialize
IMPORTING is_item TYPE st_item 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
@ -3648,7 +3663,7 @@ CLASS lcl_object_shlp DEFINITION INHERITING FROM lcl_objects_common FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS serialize CLASS-METHODS serialize
IMPORTING is_item TYPE st_item 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
@ -3820,7 +3835,7 @@ CLASS lcl_object_tran DEFINITION INHERITING FROM lcl_objects_common FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS serialize CLASS-METHODS serialize
IMPORTING is_item TYPE st_item 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
@ -4039,7 +4054,7 @@ CLASS lcl_object_msag DEFINITION INHERITING FROM lcl_objects_common FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS serialize CLASS-METHODS serialize
IMPORTING is_item TYPE st_item 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
@ -4238,7 +4253,7 @@ CLASS lcl_object_fugr DEFINITION INHERITING FROM lcl_objects_common FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS serialize CLASS-METHODS serialize
IMPORTING is_item TYPE st_item 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
@ -4258,22 +4273,22 @@ CLASS lcl_object_fugr DEFINITION INHERITING FROM lcl_objects_common FINAL.
PRIVATE SECTION. PRIVATE SECTION.
CLASS-METHODS main_name CLASS-METHODS main_name
IMPORTING is_item TYPE st_item IMPORTING is_item TYPE st_item
RETURNING value(rv_program) TYPE program RETURNING VALUE(rv_program) TYPE program
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS functions CLASS-METHODS functions
IMPORTING is_item TYPE st_item IMPORTING is_item TYPE st_item
RETURNING value(rt_functab) TYPE tt_rs38l_incl RETURNING VALUE(rt_functab) TYPE tt_rs38l_incl
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS includes CLASS-METHODS includes
IMPORTING is_item TYPE st_item IMPORTING is_item TYPE st_item
RETURNING value(rt_includes) TYPE rso_t_objnm RETURNING VALUE(rt_includes) TYPE rso_t_objnm
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS serialize_functions CLASS-METHODS serialize_functions
IMPORTING is_item TYPE st_item 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_functions CLASS-METHODS deserialize_functions
@ -4283,7 +4298,7 @@ CLASS lcl_object_fugr DEFINITION INHERITING FROM lcl_objects_common FINAL.
CLASS-METHODS serialize_xml CLASS-METHODS serialize_xml
IMPORTING is_item TYPE st_item IMPORTING is_item TYPE st_item
RETURNING value(rs_file) TYPE st_file RETURNING VALUE(rs_file) TYPE st_file
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS deserialize_xml CLASS-METHODS deserialize_xml
@ -4294,7 +4309,7 @@ CLASS lcl_object_fugr DEFINITION INHERITING FROM lcl_objects_common FINAL.
CLASS-METHODS serialize_includes CLASS-METHODS serialize_includes
IMPORTING is_item TYPE st_item 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_includes CLASS-METHODS deserialize_includes
@ -4593,15 +4608,15 @@ CLASS lcl_object_fugr IMPLEMENTATION.
CALL FUNCTION 'RS_GET_ALL_INCLUDES' CALL FUNCTION 'RS_GET_ALL_INCLUDES'
EXPORTING EXPORTING
program = lv_program program = lv_program
* WITH_RESERVED_INCLUDES = * WITH_RESERVED_INCLUDES =
* WITH_CLASS_INCLUDES = ' ' hmm, todo * WITH_CLASS_INCLUDES = ' ' hmm, todo
TABLES TABLES
includetab = rt_includes includetab = rt_includes
EXCEPTIONS EXCEPTIONS
not_existent = 1 not_existent = 1
no_program = 2 no_program = 2
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
_raise 'Error from RS_GET_ALL_INCLUDES'. _raise 'Error from RS_GET_ALL_INCLUDES'.
ENDIF. ENDIF.
@ -4866,7 +4881,7 @@ CLASS lcl_object_view DEFINITION INHERITING FROM lcl_objects_common FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS serialize CLASS-METHODS serialize
IMPORTING is_item TYPE st_item 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
@ -5058,7 +5073,7 @@ CLASS lcl_object_ttyp DEFINITION INHERITING FROM lcl_objects_common FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS serialize CLASS-METHODS serialize
IMPORTING is_item TYPE st_item 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
@ -5218,7 +5233,7 @@ CLASS lcl_object_prog DEFINITION INHERITING FROM lcl_objects_common FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS serialize CLASS-METHODS serialize
IMPORTING is_item TYPE st_item 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
@ -5469,6 +5484,7 @@ CLASS lcl_object_prog IMPLEMENTATION.
CALL FUNCTION 'RPY_DYNPRO_INSERT' CALL FUNCTION 'RPY_DYNPRO_INSERT'
EXPORTING EXPORTING
header = ls_header header = ls_header
suppress_exist_checks = abap_true
TABLES TABLES
containers = lt_containers containers = lt_containers
fields_to_containers = lt_fields_to_containers fields_to_containers = lt_fields_to_containers
@ -5510,13 +5526,13 @@ CLASS lcl_objects DEFINITION FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS serialize CLASS-METHODS serialize
IMPORTING is_item TYPE st_item 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 CLASS-METHODS status
IMPORTING it_files TYPE tt_files IMPORTING it_files TYPE tt_files
iv_package TYPE devclass OPTIONAL iv_package TYPE devclass OPTIONAL
RETURNING value(rt_results) TYPE tt_results RETURNING VALUE(rt_results) TYPE tt_results
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS deserialize CLASS-METHODS deserialize
@ -5539,12 +5555,12 @@ CLASS lcl_objects DEFINITION FINAL.
CLASS-METHODS class_name CLASS-METHODS class_name
IMPORTING is_item TYPE st_item IMPORTING is_item TYPE st_item
RETURNING value(rv_class_name) TYPE string. RETURNING VALUE(rv_class_name) TYPE string.
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 sap_bool RETURNING VALUE(rv_match) TYPE sap_bool
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS activate CLASS-METHODS activate
@ -5881,17 +5897,17 @@ CLASS lcl_hash DEFINITION FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS adler32 CLASS-METHODS adler32
IMPORTING iv_xstring TYPE xstring IMPORTING iv_xstring TYPE xstring
RETURNING value(rv_checksum) TYPE t_adler32. RETURNING VALUE(rv_checksum) TYPE t_adler32.
CLASS-METHODS sha1 CLASS-METHODS sha1
IMPORTING iv_type TYPE t_type 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 CLASS-METHODS sha1_raw
IMPORTING iv_data TYPE xstring 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
@ -5994,12 +6010,12 @@ CLASS lcl_pack DEFINITION FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS decode CLASS-METHODS decode
IMPORTING iv_data TYPE xstring 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 CLASS-METHODS decode_tree
IMPORTING iv_data TYPE xstring 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 CLASS-METHODS decode_deltas
@ -6008,21 +6024,21 @@ CLASS lcl_pack DEFINITION FINAL.
CLASS-METHODS decode_commit CLASS-METHODS decode_commit
IMPORTING iv_data TYPE xstring 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 CLASS-METHODS encode
IMPORTING it_objects TYPE tt_objects 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 CLASS-METHODS encode_tree
IMPORTING it_nodes TYPE tt_nodes IMPORTING it_nodes TYPE tt_nodes
RETURNING value(rv_data) TYPE xstring. RETURNING VALUE(rv_data) TYPE xstring.
CLASS-METHODS encode_commit CLASS-METHODS encode_commit
IMPORTING is_commit TYPE st_commit IMPORTING is_commit TYPE st_commit
RETURNING value(rv_data) TYPE xstring. RETURNING VALUE(rv_data) TYPE xstring.
PRIVATE SECTION. PRIVATE SECTION.
CONSTANTS: c_pack_start TYPE x LENGTH 4 VALUE '5041434B', " PACK CONSTANTS: c_pack_start TYPE x LENGTH 4 VALUE '5041434B', " PACK
@ -6033,7 +6049,7 @@ CLASS lcl_pack DEFINITION FINAL.
CLASS-METHODS type_and_length CLASS-METHODS type_and_length
IMPORTING is_object TYPE st_object 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 CLASS-METHODS delta
@ -6046,7 +6062,7 @@ CLASS lcl_pack DEFINITION FINAL.
CLASS-METHODS get_type CLASS-METHODS get_type
IMPORTING iv_x TYPE x 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 CLASS-METHODS get_length
@ -6740,7 +6756,7 @@ CLASS lcl_persistence DEFINITION FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS list CLASS-METHODS list
RETURNING value(rt_repos) TYPE tt_repos_persi RETURNING VALUE(rt_repos) TYPE tt_repos_persi
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS update CLASS-METHODS update
@ -6764,7 +6780,7 @@ CLASS lcl_persistence DEFINITION FINAL.
PRIVATE SECTION. PRIVATE SECTION.
CLASS-METHODS read_text CLASS-METHODS read_text
RETURNING value(rt_repos) TYPE tt_repos_persi RETURNING VALUE(rt_repos) TYPE tt_repos_persi
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS save_text CLASS-METHODS save_text
@ -6772,7 +6788,7 @@ CLASS lcl_persistence DEFINITION FINAL.
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS header CLASS-METHODS header
RETURNING value(rs_header) TYPE thead. RETURNING VALUE(rs_header) TYPE thead.
ENDCLASS. "lcl_persistence DEFINITION ENDCLASS. "lcl_persistence DEFINITION
@ -7032,7 +7048,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
@ -7041,7 +7057,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
@ -7061,7 +7077,7 @@ CLASS lcl_transport DEFINITION FINAL.
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS get_null CLASS-METHODS get_null
RETURNING value(rv_c) TYPE char1. RETURNING VALUE(rv_c) TYPE char1.
ENDCLASS. "lcl_transport DEFINITION ENDCLASS. "lcl_transport DEFINITION
@ -7453,7 +7469,7 @@ CLASS lcl_porcelain DEFINITION FINAL.
IMPORTING is_repo TYPE st_repo 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.
@ -7467,7 +7483,7 @@ CLASS lcl_porcelain DEFINITION FINAL.
CLASS-METHODS root_tree CLASS-METHODS root_tree
IMPORTING it_objects TYPE tt_objects 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 CLASS-METHODS receive_pack
@ -7476,7 +7492,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
@ -7719,25 +7735,25 @@ 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_persi TYPE st_repo_persi IMPORTING is_repo_persi TYPE st_repo_persi
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_menu CLASS-METHODS render_menu
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
@ -7772,7 +7788,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
@ -7780,7 +7796,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