REPORT zabapgit. * See https://github.com/larshp/abapGit/ CONSTANTS: gc_xml_version TYPE string VALUE 'v0.2-alpha', "#EC NOTEXT gc_abap_version TYPE string VALUE 'v0.19'. "#EC NOTEXT ******************************************************************************** * The MIT License (MIT) * * Copyright (c) 2014 Lars Hvam Petersen * * Permission is hereby granted, free of charge, to any person obtaining a copy * of this software and associated documentation files (the "Software"), to deal * in the Software without restriction, including without limitation the rights * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell * copies of the Software, and to permit persons to whom the Software is * furnished to do so, subject to the following conditions: * * The above copyright notice and this permission notice shall be included in all * copies or substantial portions of the Software. * * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE * SOFTWARE. ******************************************************************************** TYPE-POOLS seop. TYPES: t_type TYPE c LENGTH 6, t_bitbyte TYPE c LENGTH 8, t_adler32 TYPE x LENGTH 4, t_sha1 TYPE x LENGTH 20, t_unixtime TYPE c LENGTH 16. TYPES: BEGIN OF st_node, chmod TYPE string, name TYPE string, sha1 TYPE t_sha1, END OF st_node. TYPES: tt_nodes TYPE STANDARD TABLE OF st_node WITH DEFAULT KEY. TYPES: BEGIN OF st_object, sha1 TYPE t_sha1, type TYPE t_type, data TYPE xstring, END OF st_object. TYPES: tt_objects TYPE STANDARD TABLE OF st_object WITH DEFAULT KEY. TYPES: BEGIN OF st_file, path TYPE string, filename TYPE string, data TYPE xstring, END OF st_file. TYPES: tt_files TYPE STANDARD TABLE OF st_file WITH DEFAULT KEY. TYPES: BEGIN OF st_commit, tree TYPE t_sha1, parent TYPE t_sha1, author TYPE string, committer TYPE string, body TYPE string, END OF st_commit. TYPES: BEGIN OF st_repo, url TYPE string, branch_name TYPE string, END OF st_repo. TYPES: BEGIN OF st_repo_persi, url TYPE string, branch_name TYPE string, sha1 TYPE string, package TYPE devclass, END OF st_repo_persi. TYPES: tt_repos_persi TYPE STANDARD TABLE OF st_repo_persi WITH DEFAULT KEY. TYPES: BEGIN OF st_result, obj_type TYPE tadir-object, obj_name TYPE tadir-obj_name, match TYPE sap_bool, filename TYPE string, END OF st_result. TYPES: tt_results TYPE STANDARD TABLE OF st_result WITH DEFAULT KEY. TYPES: BEGIN OF st_diff, local TYPE string, result TYPE c LENGTH 1, remote TYPE string, END OF st_diff. TYPES: tt_diffs TYPE STANDARD TABLE OF st_diff WITH DEFAULT KEY. TYPES: tt_tadir TYPE STANDARD TABLE OF tadir WITH DEFAULT KEY. TYPES: tt_rs38l_incl TYPE STANDARD TABLE OF rs38l_incl WITH DEFAULT KEY. TYPES: tt_string TYPE STANDARD TABLE OF string WITH DEFAULT KEY. TYPES: BEGIN OF st_comment, username TYPE string, email TYPE string, comment TYPE string, END OF st_comment. TYPES: BEGIN OF st_item, obj_type TYPE tadir-object, obj_name TYPE tadir-obj_name, END OF st_item. CONSTANTS: gc_commit TYPE t_type VALUE 'commit', "#EC NOTEXT gc_tree TYPE t_type VALUE 'tree', "#EC NOTEXT gc_ref_d TYPE t_type VALUE 'ref_d', "#EC NOTEXT gc_blob TYPE t_type VALUE 'blob'. "#EC NOTEXT CONSTANTS: gc_chmod_file TYPE c LENGTH 6 VALUE '100644', gc_chmod_dir TYPE c LENGTH 5 VALUE '40000'. CONSTANTS: gc_newline TYPE abap_char1 VALUE cl_abap_char_utilities=>newline. DATA: gv_agent TYPE string. DEFINE _raise. raise exception type lcx_exception exporting iv_text = &1. "#EC NOTEXT END-OF-DEFINITION. ****************** START-OF-SELECTION. PERFORM run. *----------------------------------------------------------------------* * CLASS CX_LOCAL_EXCEPTION DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcx_exception DEFINITION INHERITING FROM cx_static_check FINAL. PUBLIC SECTION. DATA mv_text TYPE string. METHODS constructor IMPORTING iv_text TYPE string. ENDCLASS. "CX_LOCAL_EXCEPTION DEFINITION *----------------------------------------------------------------------* * CLASS CX_LOCAL_EXCEPTION IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcx_exception IMPLEMENTATION. METHOD constructor. super->constructor( ). mv_text = iv_text. ENDMETHOD. "CONSTRUCTOR ENDCLASS. "lcx_exception IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_user DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_user DEFINITION FINAL. PUBLIC SECTION. CLASS-METHODS set_username IMPORTING iv_username TYPE string RAISING lcx_exception. 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 RAISING lcx_exception. PRIVATE SECTION. CLASS-METHODS read IMPORTING iv_name TYPE tdobname RETURNING VALUE(rv_value) TYPE string RAISING lcx_exception. CLASS-METHODS save IMPORTING iv_name TYPE tdobname iv_value TYPE string RAISING lcx_exception. ENDCLASS. "lcl_user DEFINITION *----------------------------------------------------------------------* * CLASS lcl_user IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_user IMPLEMENTATION. METHOD read. DATA: lt_lines TYPE TABLE OF tline, ls_line LIKE LINE OF lt_lines. CALL FUNCTION 'READ_TEXT' EXPORTING id = 'ST' language = 'E' name = iv_name object = 'TEXT' TABLES lines = lt_lines EXCEPTIONS id = 1 language = 2 name = 3 not_found = 4 object = 5 reference_check = 6 wrong_access_to_archive = 7 OTHERS = 8. IF sy-subrc <> 4 AND sy-subrc <> 0. _raise 'error from READ_TEXT'. ENDIF. READ TABLE lt_lines INTO ls_line INDEX 1. IF sy-subrc = 0. rv_value = ls_line-tdline. ENDIF. ENDMETHOD. "get_details METHOD save. DATA: ls_header TYPE thead, lt_lines TYPE TABLE OF tline, ls_line LIKE LINE OF lt_lines. ls_line-tdformat = '*'. ls_line-tdline = iv_value. APPEND ls_line TO lt_lines. ls_header-tdid = 'ST'. ls_header-tdspras = 'E'. ls_header-tdname = iv_name. ls_header-tdobject = 'TEXT'. CALL FUNCTION 'SAVE_TEXT' EXPORTING header = ls_header TABLES lines = lt_lines EXCEPTIONS id = 1 language = 2 name = 3 object = 4 OTHERS = 5. IF sy-subrc <> 0. ROLLBACK WORK. _raise 'error from SAVE_TEXT'. ENDIF. COMMIT WORK. ENDMETHOD. "change METHOD set_username. DATA: lv_name TYPE tdobname. CONCATENATE 'ZABAPGIT_USERNAME_' sy-uname INTO lv_name. save( iv_name = lv_name iv_value = iv_username ). ENDMETHOD. "set_username METHOD get_username. DATA: lv_name TYPE tdobname. CONCATENATE 'ZABAPGIT_USERNAME_' sy-uname INTO lv_name. rv_username = read( lv_name ). ENDMETHOD. "get_username METHOD set_email. DATA: lv_name TYPE tdobname. CONCATENATE 'ZABAPGIT_EMAIL_' sy-uname INTO lv_name. save( iv_name = lv_name iv_value = iv_email ). ENDMETHOD. "set_email METHOD get_email. DATA: lv_name TYPE tdobname. CONCATENATE 'ZABAPGIT_EMAIL_' sy-uname INTO lv_name. rv_email = read( lv_name ). ENDMETHOD. "get_email ENDCLASS. "lcl_user IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_xml DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_xml DEFINITION FINAL. PUBLIC SECTION. DATA: mi_xml_doc TYPE REF TO if_ixml_document. METHODS constructor IMPORTING iv_xml TYPE string OPTIONAL iv_empty TYPE sap_bool DEFAULT abap_false RAISING lcx_exception. METHODS element_add IMPORTING ig_element TYPE data ii_root TYPE REF TO if_ixml_element OPTIONAL RAISING lcx_exception. METHODS element_read IMPORTING ii_root TYPE REF TO if_ixml_element OPTIONAL EXPORTING ev_success TYPE abap_bool CHANGING cg_element TYPE data RAISING lcx_exception. METHODS structure_add IMPORTING ig_structure TYPE data iv_name TYPE string OPTIONAL ii_root TYPE REF TO if_ixml_element OPTIONAL RAISING lcx_exception. METHODS structure_read IMPORTING ii_root TYPE REF TO if_ixml_element OPTIONAL iv_name TYPE string OPTIONAL EXPORTING ev_success TYPE abap_bool CHANGING cg_structure TYPE data RAISING lcx_exception. METHODS table_add IMPORTING it_table TYPE STANDARD TABLE iv_name TYPE string OPTIONAL ii_root TYPE REF TO if_ixml_element OPTIONAL RAISING lcx_exception. METHODS table_read IMPORTING ii_root TYPE REF TO if_ixml_element OPTIONAL iv_name TYPE string OPTIONAL CHANGING ct_table TYPE STANDARD TABLE RAISING lcx_exception. METHODS xml_render IMPORTING iv_normalize TYPE sap_bool DEFAULT abap_true RETURNING VALUE(rv_string) TYPE string. METHODS xml_element IMPORTING iv_name TYPE string 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. PRIVATE SECTION. DATA: mi_ixml TYPE REF TO if_ixml, mi_root TYPE REF TO if_ixml_element. METHODS special_names CHANGING cv_name TYPE string. METHODS error IMPORTING ii_parser TYPE REF TO if_ixml_parser RAISING lcx_exception. ENDCLASS. "lcl_xml DEFINITION *----------------------------------------------------------------------* * CLASS lcl_xml IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_xml IMPLEMENTATION. METHOD xml_find. DATA: li_root LIKE ii_root. IF ii_root IS BOUND. li_root = ii_root. ELSE. li_root = mi_root. ENDIF. ri_element = li_root->find_from_name( depth = 0 name = iv_name ). IF NOT ri_element IS BOUND. RETURN. ENDIF. li_root->remove_child( ri_element ). ENDMETHOD. "xml_find METHOD xml_element. ri_element = mi_xml_doc->create_element( iv_name ). ENDMETHOD. "xml_element METHOD special_names. IF cv_name(1) = '*'. CONCATENATE 'STAR' cv_name+1 INTO cv_name. ELSEIF cv_name(1) = '2'. CONCATENATE 'TWO' cv_name+1 INTO cv_name. ENDIF. ENDMETHOD. "special_names METHOD structure_read. DATA: lv_name TYPE string, lv_value TYPE string, li_struct TYPE REF TO if_ixml_element, li_elm TYPE REF TO if_ixml_element, lo_descr_ref TYPE REF TO cl_abap_structdescr. FIELD-SYMBOLS: TYPE any, LIKE LINE OF lo_descr_ref->components. CLEAR cg_structure. ev_success = abap_true. lo_descr_ref ?= cl_abap_typedescr=>describe_by_data( cg_structure ). IF iv_name IS INITIAL. lv_name = lo_descr_ref->get_relative_name( ). IF lv_name IS INITIAL. _raise 'no name'. ENDIF. ELSE. lv_name = iv_name. ENDIF. li_struct = xml_find( ii_root = ii_root iv_name = lv_name ). IF NOT li_struct IS BOUND. ev_success = abap_false. RETURN. ENDIF. LOOP AT lo_descr_ref->components ASSIGNING . ASSIGN COMPONENT -name OF STRUCTURE cg_structure TO . lv_name = -name. special_names( CHANGING cv_name = lv_name ). li_elm = li_struct->find_from_name( depth = 0 name = lv_name ). IF li_elm IS BOUND. lv_value = li_elm->get_value( ). = lv_value. ENDIF. ENDLOOP. ENDMETHOD. "structure_read METHOD table_read. DATA: lv_name TYPE string, li_root TYPE REF TO if_ixml_element, lv_kind TYPE abap_typecategory, lv_index TYPE i, lv_success TYPE abap_bool, lo_data_descr TYPE REF TO cl_abap_datadescr, lo_table_descr TYPE REF TO cl_abap_tabledescr. FIELD-SYMBOLS: TYPE any. CLEAR ct_table[]. lo_table_descr ?= cl_abap_typedescr=>describe_by_data( ct_table ). lv_name = lo_table_descr->get_relative_name( ). IF lv_name IS INITIAL. lv_name = iv_name. ENDIF. IF lv_name IS INITIAL. _raise 'no name'. ENDIF. li_root = xml_find( ii_root = ii_root iv_name = lv_name ). IF NOT li_root IS BOUND. RETURN. ENDIF. lo_data_descr = lo_table_descr->get_table_line_type( ). lv_kind = lo_data_descr->kind. DO. APPEND INITIAL LINE TO ct_table ASSIGNING . CASE lv_kind. WHEN cl_abap_typedescr=>kind_struct. structure_read( EXPORTING ii_root = li_root IMPORTING ev_success = lv_success CHANGING cg_structure = ). WHEN cl_abap_typedescr=>kind_elem. element_read( EXPORTING ii_root = li_root IMPORTING ev_success = lv_success CHANGING cg_element = ). WHEN OTHERS. _raise 'unknown kind'. ENDCASE. IF lv_success = abap_false. lv_index = lines( ct_table ). DELETE ct_table INDEX lv_index. ASSERT sy-subrc = 0. EXIT. " current loop ENDIF. ENDDO. ENDMETHOD. "table_read METHOD error. DATA: lv_error TYPE i, lv_txt1 TYPE string, lv_txt2 TYPE string, lv_txt3 TYPE string, lv_times TYPE i, li_error TYPE REF TO if_ixml_parse_error. IF ii_parser->num_errors( ) <> 0. lv_times = ii_parser->num_errors( ). DO lv_times TIMES. lv_error = sy-index - 1. li_error = ii_parser->get_error( lv_error ). lv_txt1 = li_error->get_column( ). CONCATENATE 'Column:' lv_txt1 INTO lv_txt1. "#EC NOTEXT lv_txt2 = li_error->get_line( ). CONCATENATE 'Line:' lv_txt2 INTO lv_txt2. "#EC NOTEXT lv_txt3 = li_error->get_reason( ). CALL FUNCTION 'POPUP_TO_INFORM' EXPORTING titel = 'Error from XLM parser' "#EC NOTEXT txt1 = lv_txt1 txt2 = lv_txt2 txt3 = lv_txt3. ENDDO. ENDIF. _raise 'Error while parsing XML'. ENDMETHOD. "error METHOD constructor. DATA: li_stream_factory TYPE REF TO if_ixml_stream_factory, li_istream TYPE REF TO if_ixml_istream, li_parser TYPE REF TO if_ixml_parser. mi_ixml = cl_ixml=>create( ). mi_xml_doc = mi_ixml->create_document( ). IF iv_xml IS SUPPLIED. li_stream_factory = mi_ixml->create_stream_factory( ). li_istream = li_stream_factory->create_istream_string( iv_xml ). li_parser = mi_ixml->create_parser( stream_factory = li_stream_factory istream = li_istream document = mi_xml_doc ). li_parser->set_normalizing( is_normalizing = abap_false ). IF li_parser->parse( ) <> 0. error( li_parser ). ENDIF. li_istream->close( ). mi_root = mi_xml_doc->find_from_name( depth = 0 name = 'abapGit' ). ELSEIF iv_empty = abap_false. mi_root = mi_xml_doc->create_element( 'abapGit' ). mi_root->set_attribute( name = 'version' value = gc_xml_version ). "#EC NOTEXT mi_xml_doc->append_child( mi_root ). ENDIF. ENDMETHOD. "xml_root METHOD table_add. DATA: lv_name TYPE string, li_table TYPE REF TO if_ixml_element, lv_kind TYPE abap_typecategory, lo_data_descr TYPE REF TO cl_abap_datadescr, lo_table_descr TYPE REF TO cl_abap_tabledescr. FIELD-SYMBOLS: TYPE any. lo_table_descr ?= cl_abap_typedescr=>describe_by_data( it_table ). lv_name = lo_table_descr->get_relative_name( ). IF lv_name IS INITIAL. lv_name = iv_name. ENDIF. IF lv_name IS INITIAL. _raise 'no name'. ENDIF. li_table = mi_xml_doc->create_element( lv_name ). lo_data_descr = lo_table_descr->get_table_line_type( ). lv_kind = lo_data_descr->kind. LOOP AT it_table ASSIGNING . CASE lv_kind. WHEN cl_abap_typedescr=>kind_struct. structure_add( ig_structure = ii_root = li_table ). WHEN cl_abap_typedescr=>kind_elem. element_add( ig_element = ii_root = li_table ). WHEN OTHERS. _raise 'unknown kind'. ENDCASE. ENDLOOP. xml_add( ii_root = ii_root ii_element = li_table ). ENDMETHOD. "table_add METHOD xml_add. IF ii_root IS BOUND. ii_root->append_child( ii_element ). ELSE. mi_root->append_child( ii_element ). ENDIF. ENDMETHOD. "xml_add METHOD element_add. DATA: lo_descr TYPE REF TO cl_abap_elemdescr, lv_string TYPE string, li_element TYPE REF TO if_ixml_element, li_text TYPE REF TO if_ixml_text, lv_name TYPE string. lo_descr ?= cl_abap_typedescr=>describe_by_data( ig_element ). lv_name = lo_descr->get_relative_name( ). IF lv_name IS INITIAL. _raise 'no name'. ENDIF. li_element = mi_xml_doc->create_element( lv_name ). lv_string = ig_element. li_text = mi_xml_doc->create_text( lv_string ). li_element->append_child( li_text ). xml_add( ii_root = ii_root ii_element = li_element ). ENDMETHOD. "element_add METHOD element_read. DATA: lo_descr TYPE REF TO cl_abap_elemdescr, li_element TYPE REF TO if_ixml_element, lv_name TYPE string. ev_success = abap_true. lo_descr ?= cl_abap_typedescr=>describe_by_data( cg_element ). lv_name = lo_descr->get_relative_name( ). IF lv_name IS INITIAL. _raise 'no name'. ENDIF. li_element = xml_find( ii_root = ii_root iv_name = lv_name ). IF NOT li_element IS BOUND. ev_success = abap_false. RETURN. ENDIF. cg_element = li_element->get_value( ). ENDMETHOD. "element_read METHOD structure_add. DATA: li_element TYPE REF TO if_ixml_element, li_structure TYPE REF TO if_ixml_element, li_text TYPE REF TO if_ixml_text, lv_string TYPE string, lv_name TYPE string, lo_descr TYPE REF TO cl_abap_structdescr. FIELD-SYMBOLS: LIKE LINE OF lo_descr->components, TYPE any. lo_descr ?= cl_abap_typedescr=>describe_by_data( ig_structure ). IF iv_name IS INITIAL. lv_name = lo_descr->get_relative_name( ). IF lv_name IS INITIAL. _raise 'no name'. ENDIF. ELSE. lv_name = iv_name. ENDIF. li_structure = mi_xml_doc->create_element( lv_name ). LOOP AT lo_descr->components ASSIGNING . ASSIGN COMPONENT -name OF STRUCTURE ig_structure TO . lv_name = -name. special_names( CHANGING cv_name = lv_name ). li_element = mi_xml_doc->create_element( lv_name ). lv_string = . li_text = mi_xml_doc->create_text( lv_string ). li_element->append_child( li_text ). li_structure->append_child( li_element ). ENDLOOP. xml_add( ii_root = ii_root ii_element = li_structure ). ENDMETHOD. "structure_to_xml METHOD xml_render. * will render to codepage UTF-16 DATA: li_ostream TYPE REF TO if_ixml_ostream, li_renderer TYPE REF TO if_ixml_renderer, li_streamfactory TYPE REF TO if_ixml_stream_factory. li_streamfactory = mi_ixml->create_stream_factory( ). li_ostream = li_streamfactory->create_ostream_cstring( rv_string ). li_renderer = mi_ixml->create_renderer( ostream = li_ostream document = mi_xml_doc ). IF iv_normalize = abap_true. li_renderer->set_normalizing( ). ENDIF. li_renderer->render( ). ENDMETHOD. "xml_render ENDCLASS. "lcl_xml IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_debug DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_debug DEFINITION FINAL. PUBLIC SECTION. CLASS-METHODS debug_toggle RAISING lcx_exception. CLASS-METHODS render_objects IMPORTING iv_message TYPE string it_objects TYPE tt_objects. CLASS-METHODS message IMPORTING iv_message TYPE string. CLASS-METHODS get_html RETURNING VALUE(rv_html) TYPE string. CLASS-METHODS get_debug RETURNING VALUE(rv_debug) TYPE sap_bool. CLASS-METHODS clear. PRIVATE SECTION. CLASS-DATA: gv_debug TYPE sap_bool VALUE abap_false, gv_html TYPE string. ENDCLASS. "lcl_debug DEFINITION *----------------------------------------------------------------------* * CLASS lcl_debug IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_debug IMPLEMENTATION. METHOD get_debug. rv_debug = gv_debug. ENDMETHOD. "get_debug METHOD get_html. rv_html = gv_html. ENDMETHOD. "get_html METHOD message. IF gv_debug = abap_false. RETURN. ENDIF. CONCATENATE gv_html '
' iv_message '
' INTO gv_html. ENDMETHOD. "message METHOD render_objects. DATA: lv_len TYPE i, lv_text40 TYPE c LENGTH 40, lv_text50 TYPE c LENGTH 50. FIELD-SYMBOLS: LIKE LINE OF it_objects. IF gv_debug = abap_false. RETURN. ENDIF. message( iv_message ). CONCATENATE gv_html '' gc_newline INTO gv_html. LOOP AT it_objects ASSIGNING . lv_len = xstrlen( -data ). IF lv_len > 50. lv_len = 50. ENDIF. lv_text40 = -sha1. lv_text50 = -data(lv_len). CONCATENATE gv_html '' gc_newline '' gc_newline '' gc_newline '' gc_newline '' gc_newline INTO gv_html. ENDLOOP. CONCATENATE gv_html '
' lv_text40 '' -type '' lv_text50 '
' gc_newline INTO gv_html. ENDMETHOD. "render_objects METHOD clear. gv_html = '

Debug Information


'. ENDMETHOD. "clear METHOD debug_toggle. CASE gv_debug. WHEN abap_true. gv_debug = abap_false. MESSAGE 'Debug mode disabled' TYPE 'S'. "#EC NOTEXT WHEN abap_false. gv_debug = abap_true. MESSAGE 'Debug mode enabled' TYPE 'S'. "#EC NOTEXT clear( ). WHEN OTHERS. _raise 'Unknown debug toggle'. ENDCASE. ENDMETHOD. "debug_toggle ENDCLASS. "lcl_debug IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_time DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_time DEFINITION FINAL. PUBLIC SECTION. CLASS-METHODS get RETURNING VALUE(rv_time) TYPE t_unixtime RAISING lcx_exception. PRIVATE SECTION. CONSTANTS: c_epoch TYPE datum VALUE '19700101'. ENDCLASS. "lcl_time DEFINITION *----------------------------------------------------------------------* * CLASS lcl_time IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_time IMPLEMENTATION. METHOD get. DATA: lv_i TYPE i, lv_tz TYPE tznzone, lv_utcdiff TYPE tznutcdiff, lv_utcsign TYPE tznutcsign. lv_i = sy-datum - c_epoch. lv_i = lv_i * 86400. lv_i = lv_i + sy-uzeit. CALL FUNCTION 'TZON_GET_OS_TIMEZONE' IMPORTING ef_timezone = lv_tz. CALL FUNCTION 'TZON_GET_OFFSET' EXPORTING if_timezone = lv_tz if_local_date = sy-datum if_local_time = sy-uzeit IMPORTING ef_utcdiff = lv_utcdiff ef_utcsign = lv_utcsign EXCEPTIONS conversion_error = 1 OTHERS = 2. IF sy-subrc <> 0. _raise 'Timezone error'. ENDIF. CASE lv_utcsign. WHEN '+'. lv_i = lv_i - lv_utcdiff. WHEN '-'. lv_i = lv_i + lv_utcdiff. ENDCASE. rv_time = lv_i. CONDENSE rv_time. rv_time+11 = lv_utcsign. rv_time+12 = lv_utcdiff. ENDMETHOD. "get ENDCLASS. "lcl_time IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_repo DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_url DEFINITION FINAL. PUBLIC SECTION. CLASS-METHODS host IMPORTING iv_repo 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 RAISING lcx_exception. CLASS-METHODS path_name IMPORTING iv_repo TYPE string RETURNING VALUE(rv_path_name) TYPE string RAISING lcx_exception. PRIVATE SECTION. CLASS-METHODS regex IMPORTING iv_repo TYPE string EXPORTING ev_host TYPE string ev_path TYPE string ev_name TYPE string RAISING lcx_exception. ENDCLASS. "lcl_repo DEFINITION *----------------------------------------------------------------------* * CLASS lcl_repo IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_url IMPLEMENTATION. METHOD host. regex( EXPORTING iv_repo = iv_repo IMPORTING ev_host = rv_host ). ENDMETHOD. "host METHOD name. regex( EXPORTING iv_repo = iv_repo IMPORTING ev_name = rv_name ). ENDMETHOD. "short_name METHOD path_name. DATA: lv_path TYPE string, lv_name TYPE string. regex( EXPORTING iv_repo = iv_repo IMPORTING ev_path = lv_path ev_name = lv_name ). CONCATENATE lv_path lv_name INTO rv_path_name. ENDMETHOD. "path_name METHOD regex. FIND REGEX '(.*://[^/]*)(.*/)(.*).git' IN iv_repo SUBMATCHES ev_host ev_path ev_name. IF sy-subrc <> 0. _raise 'Malformed URL'. ENDIF. ENDMETHOD. "url ENDCLASS. "lcl_repo IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_convert DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_convert DEFINITION FINAL. PUBLIC SECTION. CLASS-METHODS bitbyte_to_int IMPORTING iv_bits TYPE clike RETURNING VALUE(rv_int) TYPE i. CLASS-METHODS x_to_bitbyte IMPORTING iv_x TYPE x RETURNING VALUE(rv_bitbyte) TYPE t_bitbyte. CLASS-METHODS string_to_xstring_utf8 IMPORTING iv_string TYPE string RETURNING VALUE(rv_xstring) TYPE xstring. CLASS-METHODS xstring_to_string_utf8 IMPORTING iv_data TYPE xstring RETURNING VALUE(rv_string) TYPE string. CLASS-METHODS xstring_to_int IMPORTING iv_xstring TYPE xstring 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. ENDCLASS. "lcl_convert DEFINITION *----------------------------------------------------------------------* * CLASS lcl_convert IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_convert IMPLEMENTATION. METHOD int_to_xstring. DATA: lv_x TYPE x LENGTH 4. ASSERT iv_length = 4. " other cases not implemented lv_x = iv_i. rv_xstring = lv_x. ENDMETHOD. "int_to_xstring METHOD xstring_to_int. DATA: lv_xstring TYPE xstring, lv_x TYPE x. lv_xstring = iv_xstring. WHILE xstrlen( lv_xstring ) > 0. lv_x = lv_xstring(1). rv_i = rv_i * 256 + lv_x. lv_xstring = lv_xstring+1. ENDWHILE. ENDMETHOD. "xstring_to_int METHOD xstring_to_string_utf8. DATA: lv_len TYPE i, lo_obj TYPE REF TO cl_abap_conv_in_ce. TRY. lo_obj = cl_abap_conv_in_ce=>create( input = iv_data encoding = 'UTF-8' ). lv_len = xstrlen( iv_data ). lo_obj->read( EXPORTING n = lv_len IMPORTING data = rv_string ). CATCH cx_parameter_invalid_range cx_sy_codepage_converter_init cx_sy_conversion_codepage cx_parameter_invalid_type. "#EC NO_HANDLER ENDTRY. ENDMETHOD. "xstring_to_string_utf8 METHOD string_to_xstring_utf8. DATA: lo_obj TYPE REF TO cl_abap_conv_out_ce. TRY. lo_obj = cl_abap_conv_out_ce=>create( encoding = 'UTF-8' ). lo_obj->convert( EXPORTING data = iv_string IMPORTING buffer = rv_xstring ). CATCH cx_parameter_invalid_range cx_sy_codepage_converter_init cx_sy_conversion_codepage cx_parameter_invalid_type. "#EC NO_HANDLER ENDTRY. ENDMETHOD. "string_to_xstring_utf8 METHOD bitbyte_to_int. DATA: lv_bits TYPE string. lv_bits = iv_bits. rv_int = 0. WHILE strlen( lv_bits ) > 0. rv_int = rv_int * 2. IF lv_bits(1) = '1'. rv_int = rv_int + 1. ENDIF. lv_bits = lv_bits+1. ENDWHILE. ENDMETHOD. "bitbyte_to_int METHOD x_to_bitbyte. DATA: lv_b TYPE n. CLEAR rv_bitbyte. DO 8 TIMES. GET BIT sy-index OF iv_x INTO lv_b. CONCATENATE rv_bitbyte lv_b INTO rv_bitbyte. ENDDO. ENDMETHOD. "x_to_bitbyte ENDCLASS. "lcl_convert IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_diff DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_diff DEFINITION FINAL. PUBLIC SECTION. * 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. ENDCLASS. "lcl_diff DEFINITION *----------------------------------------------------------------------* * CLASS lcl_diff IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_diff IMPLEMENTATION. METHOD diff. * todo, this is way too simple, but will do for now DATA: lv_local TYPE string, lv_remote TYPE string, lt_local TYPE TABLE OF string, lt_remote TYPE TABLE OF string. FIELD-SYMBOLS: LIKE LINE OF lt_local, LIKE LINE OF rt_diffs. lv_local = lcl_convert=>xstring_to_string_utf8( iv_local ). lv_remote = lcl_convert=>xstring_to_string_utf8( iv_remote ). SPLIT lv_local AT gc_newline INTO TABLE lt_local. SPLIT lv_remote AT gc_newline INTO TABLE lt_remote. LOOP AT lt_local ASSIGNING . APPEND INITIAL LINE TO rt_diffs ASSIGNING . -local = . ENDLOOP. LOOP AT lt_remote ASSIGNING . READ TABLE rt_diffs INDEX sy-tabix ASSIGNING . IF sy-subrc <> 0. APPEND INITIAL LINE TO rt_diffs ASSIGNING . ENDIF. -remote = . ENDLOOP. LOOP AT rt_diffs ASSIGNING . IF -local = -remote. -result = '='. ELSE. -result = '!'. ENDIF. ENDLOOP. ENDMETHOD. "diff ENDCLASS. "lcl_diff IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_objects_common DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_objects_common DEFINITION ABSTRACT. PUBLIC SECTION. CLASS-DATA: gt_ddic TYPE TABLE OF dwinactiv, gt_programs TYPE TABLE OF dwinactiv. PROTECTED SECTION. TYPES: BEGIN OF ty_progdir, name TYPE progdir-name, state TYPE progdir-state, sqlx TYPE progdir-sqlx, edtx TYPE progdir-edtx, varcl TYPE progdir-varcl, dbapl TYPE progdir-dbapl, dbna TYPE progdir-dbna, clas TYPE progdir-clas, type TYPE progdir-type, occurs TYPE progdir-occurs, subc TYPE progdir-subc, appl TYPE progdir-appl, secu TYPE progdir-secu, cnam TYPE progdir-cnam, cdat TYPE progdir-cdat, unam TYPE progdir-unam, udat TYPE progdir-udat, vern TYPE progdir-vern, levl TYPE progdir-levl, rstat TYPE progdir-rstat, rmand TYPE progdir-rmand, rload TYPE progdir-rload, fixpt TYPE progdir-fixpt, sset TYPE progdir-sset, sdate TYPE progdir-sdate, stime TYPE progdir-stime, idate TYPE progdir-idate, itime TYPE progdir-itime, ldbname TYPE progdir-ldbname, uccheck TYPE progdir-uccheck, END OF ty_progdir. CLASS-METHODS xml_to_file IMPORTING is_item TYPE st_item iv_extra TYPE clike OPTIONAL io_xml TYPE REF TO lcl_xml iv_normalize TYPE sap_bool DEFAULT abap_true RETURNING VALUE(rs_file) TYPE st_file RAISING lcx_exception. CLASS-METHODS read_xml IMPORTING is_item TYPE st_item iv_extra TYPE clike OPTIONAL it_files TYPE tt_files RETURNING VALUE(ro_xml) TYPE REF TO lcl_xml RAISING lcx_exception. CLASS-METHODS read_abap IMPORTING is_item TYPE st_item iv_extra TYPE clike OPTIONAL it_files TYPE tt_files iv_error TYPE sap_bool DEFAULT abap_true CHANGING ct_abap TYPE STANDARD TABLE RAISING lcx_exception. CLASS-METHODS abap_to_file IMPORTING is_item TYPE st_item iv_extra TYPE clike OPTIONAL it_abap TYPE STANDARD TABLE RETURNING VALUE(rs_file) TYPE st_file RAISING lcx_exception. CLASS-METHODS activation_add IMPORTING iv_type TYPE trobjtype iv_name TYPE clike RAISING lcx_exception. CLASS-METHODS corr_insert IMPORTING is_item TYPE st_item iv_package TYPE devclass RAISING lcx_exception. CLASS-METHODS jump_se11 IMPORTING is_item TYPE st_item iv_radio TYPE string iv_field TYPE string RAISING lcx_exception. CLASS-METHODS read_progdir IMPORTING iv_program TYPE programm RETURNING VALUE(rs_progdir) TYPE ty_progdir. CLASS-METHODS serialize_program IMPORTING is_item TYPE st_item iv_program TYPE programm OPTIONAL iv_extra TYPE clike OPTIONAL RETURNING VALUE(rt_files) TYPE tt_files RAISING lcx_exception. CLASS-METHODS deserialize_program IMPORTING is_progdir TYPE ty_progdir it_source TYPE abaptxt255_tab it_tpool TYPE textpool_table iv_package TYPE devclass RAISING lcx_exception. PRIVATE SECTION. CLASS-METHODS filename IMPORTING is_item TYPE st_item iv_extra TYPE clike OPTIONAL iv_ext TYPE string RETURNING VALUE(rv_filename) TYPE string. CLASS-METHODS serialize_dynpros IMPORTING iv_program_name TYPE programm io_xml TYPE REF TO lcl_xml RAISING lcx_exception. CLASS-METHODS serialize_cua IMPORTING iv_program_name TYPE programm io_xml TYPE REF TO lcl_xml RAISING lcx_exception. ENDCLASS. "lcl_objects_common DEFINITION *----------------------------------------------------------------------* * CLASS lcl_objects_common IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_objects_common IMPLEMENTATION. METHOD deserialize_program. DATA: lv_exists TYPE sap_bool, lv_progname TYPE reposrc-progname, ls_tpool LIKE LINE OF it_tpool, lv_title TYPE rglif-title, ls_progdir_new TYPE progdir. READ TABLE it_tpool INTO ls_tpool WITH KEY id = 'R'. lv_title = ls_tpool-entry. SELECT SINGLE progname FROM reposrc INTO lv_progname WHERE progname = is_progdir-name AND r3state = 'A'. IF sy-subrc = 0. lv_exists = abap_true. ELSE. lv_exists = abap_false. ENDIF. IF lv_exists = abap_true. CALL FUNCTION 'RPY_PROGRAM_UPDATE' EXPORTING program_name = is_progdir-name title_string = lv_title save_inactive = 'I' TABLES source_extended = it_source EXCEPTIONS cancelled = 1 permission_error = 2 not_found = 3 OTHERS = 4. IF sy-subrc <> 0. IF sy-msgid = 'EU' AND sy-msgno = '510'. _raise 'User is currently editing program'. ELSE. _raise 'PROG, error updating'. ENDIF. ENDIF. ELSE. * function module RPY_PROGRAM_INSERT cannot handle function group includes INSERT REPORT is_progdir-name FROM it_source STATE 'I' PROGRAM TYPE is_progdir-subc. IF sy-subrc <> 0. _raise 'error from INSERT REPORT'. ENDIF. IF NOT it_tpool[] IS INITIAL. INSERT TEXTPOOL is_progdir-name FROM it_tpool LANGUAGE sy-langu STATE 'I'. IF sy-subrc <> 0. _raise 'error from INSERT TEXTPOOL'. ENDIF. ENDIF. CALL FUNCTION 'READ_PROGDIR' EXPORTING i_progname = is_progdir-name i_state = 'I' IMPORTING e_progdir = ls_progdir_new EXCEPTIONS not_exists = 1 OTHERS = 2. IF sy-subrc <> 0. _raise 'not found in PROGDIR'. ENDIF. * todo, package? ls_progdir_new-ldbname = is_progdir-ldbname. ls_progdir_new-dbna = is_progdir-dbna. ls_progdir_new-dbapl = is_progdir-dbapl. ls_progdir_new-rload = is_progdir-rload. ls_progdir_new-fixpt = is_progdir-fixpt. ls_progdir_new-varcl = is_progdir-varcl. ls_progdir_new-appl = is_progdir-appl. CALL FUNCTION 'UPDATE_PROGDIR' EXPORTING i_progdir = ls_progdir_new i_progname = ls_progdir_new-name i_state = ls_progdir_new-state EXCEPTIONS not_executed = 1 OTHERS = 2. IF sy-subrc <> 0. _raise 'PROG, error inserting'. ENDIF. ENDIF. activation_add( iv_type = 'REPS' iv_name = is_progdir-name ). ENDMETHOD. "deserialize_program METHOD serialize_cua. DATA: ls_adm TYPE rsmpe_adm, lt_sta TYPE TABLE OF rsmpe_stat, lt_fun TYPE TABLE OF rsmpe_funt, lt_men TYPE TABLE OF rsmpe_men, lt_mtx TYPE TABLE OF rsmpe_mnlt, lt_act TYPE TABLE OF rsmpe_act, lt_but TYPE TABLE OF rsmpe_but, lt_pfk TYPE TABLE OF rsmpe_pfk, lt_set TYPE TABLE OF rsmpe_staf, lt_doc TYPE TABLE OF rsmpe_atrt, lt_tit TYPE TABLE OF rsmpe_titt, lt_biv TYPE TABLE OF rsmpe_buts. CALL FUNCTION 'RS_CUA_INTERNAL_FETCH' EXPORTING program = iv_program_name language = sy-langu state = 'A' IMPORTING adm = ls_adm TABLES sta = lt_sta fun = lt_fun men = lt_men mtx = lt_mtx act = lt_act but = lt_but pfk = lt_pfk set = lt_set doc = lt_doc tit = lt_tit biv = lt_biv EXCEPTIONS not_found = 1 unknown_version = 2 OTHERS = 3. IF sy-subrc <> 0. _raise 'error from RS_CUA_INTERNAL_FETCH'. ENDIF. io_xml->structure_add( ls_adm ). io_xml->table_add( it_table = lt_sta iv_name = 'RSMPE_STAT_TABLE' ). io_xml->table_add( it_table = lt_fun iv_name = 'RSMPE_FUNT_TABLE' ). io_xml->table_add( it_table = lt_men iv_name = 'RSMPE_MEN_TABLE' ). io_xml->table_add( it_table = lt_mtx iv_name = 'RSMPE_MNLT_TABLE' ). io_xml->table_add( it_table = lt_act iv_name = 'RSMPE_ACT_TABLE' ). io_xml->table_add( it_table = lt_but iv_name = 'RSMPE_BUT_TABLE' ). io_xml->table_add( it_table = lt_pfk iv_name = 'RSMPE_PFK_TABLE' ). io_xml->table_add( it_table = lt_set iv_name = 'RSMPE_STAF_TABLE' ). io_xml->table_add( it_table = lt_doc iv_name = 'RSMPE_ATRT_TABLE' ). io_xml->table_add( it_table = lt_tit iv_name = 'RSMPE_TITT_TABLE' ). io_xml->table_add( it_table = lt_biv iv_name = 'RSMPE_BUTS_TABLE' ). ENDMETHOD. "serialize_cua METHOD serialize_dynpros. DATA: ls_header TYPE rpy_dyhead, lt_containers TYPE dycatt_tab, lt_fields_to_containers TYPE dyfatc_tab, lt_flow_logic TYPE swydyflow, li_element TYPE REF TO if_ixml_element, lt_dynpros TYPE TABLE OF d020s. FIELD-SYMBOLS: LIKE LINE OF lt_dynpros. CALL FUNCTION 'RS_SCREEN_LIST' EXPORTING dynnr = '' progname = iv_program_name TABLES dynpros = lt_dynpros EXCEPTIONS not_found = 1 OTHERS = 2. IF sy-subrc = 2. _raise 'error from screen_list'. ENDIF. * loop dynpros and skip generated selection screens LOOP AT lt_dynpros ASSIGNING WHERE type <> 'S'. li_element = io_xml->xml_element( 'SCREEN' ). CALL FUNCTION 'RPY_DYNPRO_READ' EXPORTING progname = iv_program_name dynnr = -dnum IMPORTING header = ls_header TABLES containers = lt_containers fields_to_containers = lt_fields_to_containers flow_logic = lt_flow_logic EXCEPTIONS cancelled = 1 not_found = 2 permission_error = 3 OTHERS = 4. IF sy-subrc <> 0. _raise 'Error while reading dynpro'. ENDIF. io_xml->structure_add( ig_structure = ls_header ii_root = li_element ). io_xml->table_add( it_table = lt_containers ii_root = li_element ). io_xml->table_add( it_table = lt_fields_to_containers ii_root = li_element ). io_xml->table_add( it_table = lt_flow_logic ii_root = li_element ). io_xml->xml_add( li_element ). ENDLOOP. ENDMETHOD. "serialize_dynpros METHOD serialize_program. DATA: ls_progdir TYPE ty_progdir, lv_program_name TYPE programm, lt_source TYPE TABLE OF abaptxt255, ls_file LIKE LINE OF rt_files, lt_tpool TYPE textpool_table, ls_tpool LIKE LINE OF lt_tpool, lo_xml TYPE REF TO lcl_xml. IF iv_program IS INITIAL. lv_program_name = is_item-obj_name. ELSE. lv_program_name = iv_program. ENDIF. CALL FUNCTION 'RPY_PROGRAM_READ' EXPORTING program_name = lv_program_name with_lowercase = abap_true TABLES source_extended = lt_source textelements = lt_tpool EXCEPTIONS cancelled = 1 not_found = 2 permission_error = 3 OTHERS = 4. IF sy-subrc = 2. RETURN. ELSEIF sy-subrc <> 0. _raise 'Error reading program'. ENDIF. ls_progdir = read_progdir( lv_program_name ). CREATE OBJECT lo_xml. lo_xml->structure_add( ig_structure = ls_progdir iv_name = 'PROGDIR' ). IF ls_progdir-subc = '1'. serialize_dynpros( EXPORTING iv_program_name = lv_program_name io_xml = lo_xml ). serialize_cua( EXPORTING iv_program_name = lv_program_name io_xml = lo_xml ). ENDIF. IF lines( lt_tpool ) = 1. READ TABLE lt_tpool INDEX 1 INTO ls_tpool. IF ls_tpool-id = 'R' AND ls_tpool-key = '' AND ls_tpool-length = 0. DELETE lt_tpool INDEX 1. ENDIF. ENDIF. lo_xml->table_add( lt_tpool ). ls_file = xml_to_file( is_item = is_item iv_extra = iv_extra io_xml = lo_xml ). APPEND ls_file TO rt_files. ls_file = abap_to_file( is_item = is_item iv_extra = iv_extra it_abap = lt_source ). APPEND ls_file TO rt_files. ENDMETHOD. "serialize_program METHOD read_progdir. DATA: ls_sapdir TYPE progdir. CALL FUNCTION 'READ_PROGDIR' EXPORTING i_progname = iv_program i_state = 'A' IMPORTING e_progdir = ls_sapdir. MOVE-CORRESPONDING ls_sapdir TO rs_progdir. CLEAR: rs_progdir-edtx, rs_progdir-cnam, rs_progdir-cdat, rs_progdir-unam, rs_progdir-udat, rs_progdir-vern, rs_progdir-rmand, rs_progdir-sdate, rs_progdir-stime, rs_progdir-idate, rs_progdir-itime. ENDMETHOD. "read_progdir METHOD jump_se11. DATA: lt_bdcdata TYPE TABLE OF bdcdata. FIELD-SYMBOLS: LIKE LINE OF lt_bdcdata. APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . -program = 'SAPLSD_ENTRY'. -dynpro = '1000'. -dynbegin = abap_true. APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . -fnam = 'BDC_OKCODE'. -fval = '=WB_DISPLAY'. APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . -fnam = iv_radio. -fval = abap_true. APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . -fnam = iv_field. -fval = is_item-obj_name. CALL FUNCTION 'ABAP4_CALL_TRANSACTION' STARTING NEW TASK 'GIT' EXPORTING tcode = 'SE11' mode_val = 'E' TABLES using_tab = lt_bdcdata EXCEPTIONS call_transaction_denied = 1 tcode_invalid = 2 OTHERS = 3. IF sy-subrc <> 0. _raise 'Error from call transaction, se11'. ENDIF. ENDMETHOD. "jump_se11 METHOD corr_insert. DATA: ls_object TYPE ddenqs. ls_object-objtype = is_item-obj_type. ls_object-objname = is_item-obj_name. CALL FUNCTION 'RS_CORR_INSERT' EXPORTING object = ls_object object_class = 'DICT' devclass = iv_package master_language = sy-langu EXCEPTIONS cancelled = 1 permission_failure = 2 unknown_objectclass = 3 OTHERS = 4. IF sy-subrc = 1. _raise 'Cancelled'. ELSEIF sy-subrc <> 0. _raise 'error from RS_CORR_INSERT'. ENDIF. ENDMETHOD. "corr_insert METHOD filename. DATA: lv_obj_name TYPE string. lv_obj_name = is_item-obj_name. * handle namespaces REPLACE ALL OCCURRENCES OF '/' IN lv_obj_name WITH '#'. IF iv_extra IS INITIAL. CONCATENATE lv_obj_name '.' is_item-obj_type '.' iv_ext INTO rv_filename. "#EC NOTEXT ELSE. CONCATENATE lv_obj_name '.' is_item-obj_type '.' iv_extra '.' iv_ext INTO rv_filename. "#EC NOTEXT ENDIF. TRANSLATE rv_filename TO LOWER CASE. ENDMETHOD. "filename METHOD activation_add. * function group SEWORKINGAREA * function module RS_INSERT_INTO_WORKING_AREA * class CL_WB_ACTIVATION_WORK_AREA DATA: lt_objects TYPE dwinactiv_tab, lv_obj_name TYPE dwinactiv-obj_name. FIELD-SYMBOLS: LIKE LINE OF lt_objects. lv_obj_name = iv_name. * todo, refactoring CASE iv_type. WHEN 'CLAS'. CALL FUNCTION 'RS_INACTIVE_OBJECTS_IN_OBJECT' EXPORTING obj_name = lv_obj_name object = iv_type TABLES inactive_objects = lt_objects EXCEPTIONS object_not_found = 1 OTHERS = 2. IF sy-subrc <> 0. _raise 'Error from RS_INACTIVE_OBJECTS_IN_OBJECT'. ENDIF. APPEND LINES OF lt_objects TO lcl_objects_common=>gt_programs. WHEN 'DOMA' OR 'DTEL' OR 'TABL' OR 'INDX' OR 'TTYP' OR 'VIEW' OR 'SHLP' OR 'ENQU'. * todo also insert_into_working_area? APPEND INITIAL LINE TO lcl_objects_common=>gt_ddic ASSIGNING . -object = iv_type. -obj_name = lv_obj_name. WHEN 'REPS' OR 'DYNP' OR 'CUAD' OR 'REPT' OR 'INTF' OR 'FUNC'. * these seem to go into the workarea automatically APPEND INITIAL LINE TO lcl_objects_common=>gt_programs ASSIGNING . -object = iv_type. -obj_name = lv_obj_name. WHEN OTHERS. _raise 'activate, unknown type'. ENDCASE. ENDMETHOD. "activate METHOD read_abap. DATA: lv_filename TYPE string, lv_abap TYPE string. FIELD-SYMBOLS: LIKE LINE OF it_files. CLEAR ct_abap[]. lv_filename = filename( is_item = is_item iv_extra = iv_extra iv_ext = 'abap' ). "#EC NOTEXT READ TABLE it_files ASSIGNING WITH KEY filename = lv_filename. IF sy-subrc <> 0. IF iv_error = abap_true. _raise 'abap not found'. ELSE. RETURN. ENDIF. ENDIF. lv_abap = lcl_convert=>xstring_to_string_utf8( -data ). SPLIT lv_abap AT gc_newline INTO TABLE ct_abap. ENDMETHOD. "read_abap METHOD abap_to_file. DATA: lv_source TYPE string. CONCATENATE LINES OF it_abap INTO lv_source SEPARATED BY gc_newline. CLEAR rs_file. rs_file-path = '/'. rs_file-filename = filename( is_item = is_item iv_extra = iv_extra iv_ext = 'abap' ). "#EC NOTEXT rs_file-data = lcl_convert=>string_to_xstring_utf8( lv_source ). ENDMETHOD. "abap_to_file METHOD read_xml. DATA: lv_filename TYPE string, lv_xml TYPE string. FIELD-SYMBOLS: LIKE LINE OF it_files. lv_filename = filename( is_item = is_item iv_extra = iv_extra iv_ext = 'xml' ). "#EC NOTEXT READ TABLE it_files ASSIGNING WITH KEY filename = lv_filename. IF sy-subrc <> 0. _raise 'xml not found'. ENDIF. lv_xml = lcl_convert=>xstring_to_string_utf8( -data ). CREATE OBJECT ro_xml EXPORTING iv_xml = lv_xml. ENDMETHOD. "read_xml METHOD xml_to_file. DATA: lv_xml TYPE string. lv_xml = io_xml->xml_render( iv_normalize = iv_normalize ). rs_file-path = '/'. rs_file-filename = filename( is_item = is_item iv_extra = iv_extra iv_ext = 'xml' ). "#EC NOTEXT REPLACE FIRST OCCURRENCE OF '' IN lv_xml WITH ''. rs_file-data = lcl_convert=>string_to_xstring_utf8( lv_xml ). ENDMETHOD. "do ENDCLASS. "lcl_objects_common IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_object_doma DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_doma DEFINITION INHERITING FROM lcl_objects_common FINAL. PUBLIC SECTION. CLASS-METHODS serialize IMPORTING is_item TYPE st_item RETURNING VALUE(rt_files) TYPE tt_files RAISING lcx_exception. CLASS-METHODS deserialize IMPORTING is_item TYPE st_item it_files TYPE tt_files iv_package TYPE devclass RAISING lcx_exception. CLASS-METHODS delete IMPORTING is_item TYPE st_item RAISING lcx_exception. CLASS-METHODS jump IMPORTING is_item TYPE st_item RAISING lcx_exception. ENDCLASS. "lcl_object_doma DEFINITION *----------------------------------------------------------------------* * CLASS lcl_object_doma IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_doma IMPLEMENTATION. METHOD jump. jump_se11( is_item = is_item iv_radio = 'RSRD1-DOMA' iv_field = 'RSRD1-DOMA_VAL' ). ENDMETHOD. "jump METHOD delete. * see class CL_WB_DDIC DATA: lv_objname TYPE rsedd0-ddobjname. lv_objname = is_item-obj_name. CALL FUNCTION 'RS_DD_DELETE_OBJ' EXPORTING no_ask = abap_true objname = lv_objname objtype = 'D' EXCEPTIONS not_executed = 1 object_not_found = 2 object_not_specified = 3 permission_failure = 4. IF sy-subrc <> 0. _raise 'error from RS_DD_DELETE_OBJ, DOMA'. ENDIF. ENDMETHOD. "delete METHOD serialize. DATA: lv_name TYPE ddobjname, ls_dd01v TYPE dd01v, lt_dd07v TYPE TABLE OF dd07v, ls_file TYPE st_file, lo_xml TYPE REF TO lcl_xml. lv_name = is_item-obj_name. CALL FUNCTION 'DDIF_DOMA_GET' EXPORTING name = lv_name langu = sy-langu IMPORTING dd01v_wa = ls_dd01v TABLES dd07v_tab = lt_dd07v EXCEPTIONS illegal_input = 1 OTHERS = 2. IF sy-subrc <> 0. _raise 'error from DDIF_DOMA_GET'. ENDIF. IF ls_dd01v IS INITIAL. RETURN. " does not exist ENDIF. CLEAR: ls_dd01v-as4user, ls_dd01v-as4date, ls_dd01v-as4time. CREATE OBJECT lo_xml. lo_xml->structure_add( ls_dd01v ). lo_xml->table_add( iv_name = 'DD07V_TAB' it_table = lt_dd07v ). ls_file = xml_to_file( is_item = is_item io_xml = lo_xml ). APPEND ls_file TO rt_files. ENDMETHOD. "serialize METHOD deserialize. * package SEDD * package SDIC * fm TR_TADIR_INTERFACE * fm RS_CORR_INSERT ? DATA: lo_xml TYPE REF TO lcl_xml, ls_dd01v TYPE dd01v, lv_name TYPE ddobjname, lt_dd07v TYPE TABLE OF dd07v. lo_xml = read_xml( is_item = is_item it_files = it_files ). lo_xml->structure_read( CHANGING cg_structure = ls_dd01v ). lo_xml->table_read( EXPORTING iv_name = 'DD07V_TAB' CHANGING ct_table = lt_dd07v ). corr_insert( is_item = is_item iv_package = iv_package ). lv_name = is_item-obj_name. " type conversion CALL FUNCTION 'DDIF_DOMA_PUT' EXPORTING name = lv_name dd01v_wa = ls_dd01v TABLES dd07v_tab = lt_dd07v EXCEPTIONS doma_not_found = 1 name_inconsistent = 2 doma_inconsistent = 3 put_failure = 4 put_refused = 5 OTHERS = 6. IF sy-subrc <> 0. _raise 'error from DDIF_DOMA_PUT'. ENDIF. activation_add( iv_type = is_item-obj_type iv_name = is_item-obj_name ). ENDMETHOD. "deserialize ENDCLASS. "lcl_object_doma IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_object_dtel DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_dtel DEFINITION INHERITING FROM lcl_objects_common FINAL. PUBLIC SECTION. CLASS-METHODS serialize IMPORTING is_item TYPE st_item RETURNING VALUE(rt_files) TYPE tt_files RAISING lcx_exception. CLASS-METHODS deserialize IMPORTING is_item TYPE st_item it_files TYPE tt_files iv_package TYPE devclass RAISING lcx_exception. CLASS-METHODS delete IMPORTING is_item TYPE st_item RAISING lcx_exception. CLASS-METHODS jump IMPORTING is_item TYPE st_item RAISING lcx_exception. ENDCLASS. "lcl_object_dtel DEFINITION *----------------------------------------------------------------------* * CLASS lcl_object_dtel IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_dtel IMPLEMENTATION. METHOD jump. jump_se11( is_item = is_item iv_radio = 'RSRD1-DDTYPE' iv_field = 'RSRD1-DDTYPE_VAL' ). ENDMETHOD. "jump METHOD delete. DATA: lv_objname TYPE rsedd0-ddobjname. lv_objname = is_item-obj_name. CALL FUNCTION 'RS_DD_DELETE_OBJ' EXPORTING no_ask = abap_true objname = lv_objname objtype = 'E' EXCEPTIONS not_executed = 1 object_not_found = 2 object_not_specified = 3 permission_failure = 4. IF sy-subrc <> 0. _raise 'error from RS_DD_DELETE_OBJ, DTEL'. ENDIF. ENDMETHOD. "delete METHOD serialize. DATA: lv_name TYPE ddobjname, ls_dd04v TYPE dd04v, ls_tpara TYPE tpara, ls_file TYPE st_file, lo_xml TYPE REF TO lcl_xml. lv_name = is_item-obj_name. CALL FUNCTION 'DDIF_DTEL_GET' EXPORTING name = lv_name langu = sy-langu IMPORTING dd04v_wa = ls_dd04v tpara_wa = ls_tpara EXCEPTIONS illegal_input = 1 OTHERS = 2. IF sy-subrc <> 0. _raise 'Error from DDIF_DTEL_GET'. ENDIF. IF ls_dd04v IS INITIAL. RETURN. " does not exist ENDIF. CLEAR: ls_dd04v-as4user, ls_dd04v-as4date, ls_dd04v-as4time. CREATE OBJECT lo_xml. lo_xml->structure_add( ls_dd04v ). lo_xml->structure_add( ls_tpara ). ls_file = xml_to_file( is_item = is_item io_xml = lo_xml ). APPEND ls_file TO rt_files. ENDMETHOD. "serialize METHOD deserialize. DATA: lo_xml TYPE REF TO lcl_xml, ls_dd04v TYPE dd04v, lv_name TYPE ddobjname, ls_tpara TYPE tpara. lo_xml = read_xml( is_item = is_item it_files = it_files ). lo_xml->structure_read( CHANGING cg_structure = ls_dd04v ). lo_xml->structure_read( CHANGING cg_structure = ls_tpara ). corr_insert( is_item = is_item iv_package = iv_package ). lv_name = is_item-obj_name. " type conversion CALL FUNCTION 'DDIF_DTEL_PUT' EXPORTING name = lv_name dd04v_wa = ls_dd04v EXCEPTIONS dtel_not_found = 1 name_inconsistent = 2 dtel_inconsistent = 3 put_failure = 4 put_refused = 5 OTHERS = 6. IF sy-subrc <> 0. _raise 'error from DDIF_DTEL_PUT'. ENDIF. activation_add( iv_type = is_item-obj_type iv_name = is_item-obj_name ). ENDMETHOD. "deserialize ENDCLASS. "lcl_object_dtel IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_object_dtel DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_clas DEFINITION INHERITING FROM lcl_objects_common FINAL. PUBLIC SECTION. CLASS-METHODS serialize IMPORTING is_item TYPE st_item RETURNING VALUE(rt_files) TYPE tt_files RAISING lcx_exception. CLASS-METHODS deserialize IMPORTING is_item TYPE st_item it_files TYPE tt_files iv_package TYPE devclass RAISING lcx_exception. CLASS-METHODS delete IMPORTING is_item TYPE st_item RAISING lcx_exception. CLASS-METHODS jump IMPORTING is_item TYPE st_item RAISING lcx_exception. PRIVATE SECTION. CLASS-METHODS deserialize_abap IMPORTING is_item TYPE st_item it_files TYPE tt_files io_xml TYPE REF TO lcl_xml iv_package TYPE devclass RAISING lcx_exception. CLASS-METHODS deserialize_textpool IMPORTING is_item TYPE st_item io_xml TYPE REF TO lcl_xml RAISING lcx_exception. CLASS-METHODS deserialize_docu IMPORTING is_item TYPE st_item io_xml TYPE REF TO lcl_xml RAISING lcx_exception. CLASS-METHODS exists IMPORTING is_clskey TYPE seoclskey RETURNING VALUE(rv_exists) TYPE sap_bool. CLASS-METHODS serialize_abap IMPORTING is_clskey TYPE seoclskey RETURNING VALUE(rt_source) TYPE tt_string RAISING lcx_exception. CLASS-METHODS serialize_locals_imp IMPORTING is_clskey TYPE seoclskey RETURNING VALUE(rt_source) TYPE tt_string RAISING lcx_exception. CLASS-METHODS serialize_locals_def IMPORTING is_clskey TYPE seoclskey RETURNING VALUE(rt_source) TYPE tt_string RAISING lcx_exception. CLASS-METHODS serialize_testclasses IMPORTING is_clskey TYPE seoclskey RETURNING VALUE(rt_source) TYPE tt_string RAISING lcx_exception. CLASS-METHODS serialize_macros IMPORTING is_clskey TYPE seoclskey RETURNING VALUE(rt_source) TYPE tt_string RAISING lcx_exception. CLASS-METHODS serialize_xml IMPORTING is_item TYPE st_item RETURNING VALUE(ro_xml) TYPE REF TO lcl_xml RAISING lcx_exception. CLASS-METHODS remove_signatures CHANGING ct_source TYPE tt_string. CLASS-METHODS reduce CHANGING ct_source TYPE tt_string. ENDCLASS. "lcl_object_dtel DEFINITION *----------------------------------------------------------------------* * CLASS lcl_object_dtel IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_clas IMPLEMENTATION. METHOD jump. DATA: lt_bdcdata TYPE TABLE OF bdcdata. FIELD-SYMBOLS: LIKE LINE OF lt_bdcdata. APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . -program = 'SAPLSEOD'. -dynpro = '1000'. -dynbegin = abap_true. APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . -fnam = 'BDC_OKCODE'. -fval = '=WB_DISPLAY'. APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . -fnam = 'SEOCLASS-CLSNAME'. -fval = is_item-obj_name. CALL FUNCTION 'ABAP4_CALL_TRANSACTION' STARTING NEW TASK 'GIT' EXPORTING tcode = 'SE24' mode_val = 'E' TABLES using_tab = lt_bdcdata EXCEPTIONS call_transaction_denied = 1 tcode_invalid = 2 OTHERS = 3. IF sy-subrc <> 0. _raise 'Error from call transaction, clas'. ENDIF. ENDMETHOD. "jump METHOD delete. DATA: ls_clskey TYPE seoclskey. ls_clskey-clsname = is_item-obj_name. CASE is_item-obj_type. WHEN 'CLAS'. CALL FUNCTION 'SEO_CLASS_DELETE_COMPLETE' EXPORTING clskey = ls_clskey EXCEPTIONS not_existing = 1 is_interface = 2 db_error = 3 no_access = 4 other = 5 OTHERS = 6. IF sy-subrc <> 0. _raise 'Error from SEO_CLASS_DELETE_COMPLETE'. ENDIF. WHEN 'INTF'. CALL FUNCTION 'SEO_INTERFACE_DELETE_COMPLETE' EXPORTING intkey = ls_clskey EXCEPTIONS not_existing = 1 is_class = 2 db_error = 3 no_access = 4 other = 5 OTHERS = 6. IF sy-subrc <> 0. _raise 'Error from SEO_INTERFACE_DELETE_COMPLETE'. ENDIF. WHEN OTHERS. _raise 'class delete, unknown type'. ENDCASE. ENDMETHOD. "delete METHOD reduce. DATA: lv_source LIKE LINE OF ct_source, lv_found TYPE sap_bool. * skip files that only contain the standard comments lv_found = abap_false. LOOP AT ct_source INTO lv_source. IF strlen( lv_source ) >= 3 AND lv_source(3) <> '*"*'. lv_found = abap_true. ENDIF. ENDLOOP. IF lv_found = abap_false. CLEAR ct_source[]. ENDIF. ENDMETHOD. "reduce METHOD serialize_locals_imp. CALL FUNCTION 'SEO_CLASS_GET_INCLUDE_SOURCE' EXPORTING clskey = is_clskey inctype = seop_ext_class_locals_imp IMPORTING source_expanded = rt_source EXCEPTIONS _internal_class_not_existing = 1 not_existing = 2 OTHERS = 3. IF sy-subrc <> 0. _raise 'Error from get_include_source'. ENDIF. reduce( CHANGING ct_source = rt_source ). ENDMETHOD. "serialize_local METHOD serialize_locals_def. CALL FUNCTION 'SEO_CLASS_GET_INCLUDE_SOURCE' EXPORTING clskey = is_clskey inctype = seop_ext_class_locals_def IMPORTING source_expanded = rt_source EXCEPTIONS _internal_class_not_existing = 1 not_existing = 2 OTHERS = 3. IF sy-subrc <> 0. _raise 'Error from get_include_source'. ENDIF. reduce( CHANGING ct_source = rt_source ). ENDMETHOD. "serialize_locals_def METHOD serialize_testclasses. CALL FUNCTION 'SEO_CLASS_GET_INCLUDE_SOURCE' EXPORTING clskey = is_clskey inctype = seop_ext_class_testclasses IMPORTING source_expanded = rt_source EXCEPTIONS _internal_class_not_existing = 1 not_existing = 2 OTHERS = 3. IF sy-subrc <> 0 AND sy-subrc <> 2. _raise 'Error from get_include_source'. ENDIF. ENDMETHOD. "serialize_test METHOD serialize_macros. CALL FUNCTION 'SEO_CLASS_GET_INCLUDE_SOURCE' EXPORTING clskey = is_clskey inctype = seop_ext_class_macros IMPORTING source_expanded = rt_source EXCEPTIONS _internal_class_not_existing = 1 not_existing = 2 OTHERS = 3. IF sy-subrc <> 0. _raise 'Error from get_include_source'. ENDIF. reduce( CHANGING ct_source = rt_source ). ENDMETHOD. "serialize_macro METHOD serialize_abap. DATA: lo_source TYPE REF TO cl_oo_source. CREATE OBJECT lo_source EXPORTING clskey = is_clskey EXCEPTIONS class_not_existing = 1 OTHERS = 2. IF sy-subrc <> 0. _raise 'error from CL_OO_SOURCE'. ENDIF. lo_source->read( 'A' ). rt_source = lo_source->get_old_source( ). remove_signatures( CHANGING ct_source = rt_source ). ENDMETHOD. "serialize_abap METHOD remove_signatures. * signatures messes up in CL_OO_SOURCE when deserializing and serializing * within same session CONSTANTS: lc_begin TYPE string VALUE '* ------------------------------------' & '---------------------------------------------------+', lc_end TYPE string VALUE '* +------------------------------------------------' & '--------------------------------------'. DATA: lv_remove TYPE sap_bool, lv_source LIKE LINE OF ct_source. lv_remove = abap_false. LOOP AT ct_source INTO lv_source. IF lv_source = lc_begin. lv_remove = abap_true. ENDIF. IF lv_remove = abap_true. DELETE ct_source INDEX sy-tabix. ENDIF. IF lv_source = lc_end. lv_remove = abap_false. ENDIF. ENDLOOP. ENDMETHOD. "remove_signatures METHOD exists. CALL FUNCTION 'SEO_CLASS_EXISTENCE_CHECK' EXPORTING clskey = is_clskey EXCEPTIONS not_specified = 1 not_existing = 2 is_interface = 3 no_text = 4 inconsistent = 5 OTHERS = 6. IF sy-subrc = 2. rv_exists = abap_false. ELSE. rv_exists = abap_true. ENDIF. ENDMETHOD. "exists METHOD serialize. DATA: lt_source TYPE seop_source_string, ls_file TYPE st_file, lo_xml TYPE REF TO lcl_xml, ls_clskey TYPE seoclskey. ls_clskey-clsname = is_item-obj_name. IF exists( ls_clskey ) = abap_false. RETURN. ENDIF. CALL FUNCTION 'SEO_BUFFER_REFRESH' EXPORTING version = seoc_version_active force = seox_true. CALL FUNCTION 'SEO_BUFFER_REFRESH' EXPORTING version = seoc_version_inactive force = seox_true. lt_source = serialize_abap( ls_clskey ). ls_file = abap_to_file( is_item = is_item it_abap = lt_source ). APPEND ls_file TO rt_files. IF is_item-obj_type = 'CLAS'. lt_source = serialize_locals_def( ls_clskey ). IF NOT lt_source[] IS INITIAL. ls_file = abap_to_file( is_item = is_item iv_extra = 'locals_def' it_abap = lt_source ). "#EC NOTEXT APPEND ls_file TO rt_files. ENDIF. lt_source = serialize_locals_imp( ls_clskey ). IF NOT lt_source[] IS INITIAL. ls_file = abap_to_file( is_item = is_item iv_extra = 'locals_imp' it_abap = lt_source ). "#EC NOTEXT APPEND ls_file TO rt_files. ENDIF. lt_source = serialize_testclasses( ls_clskey ). IF NOT lt_source[] IS INITIAL. ls_file = abap_to_file( is_item = is_item iv_extra = 'testclasses' it_abap = lt_source ). "#EC NOTEXT APPEND ls_file TO rt_files. ENDIF. lt_source = serialize_macros( ls_clskey ). IF NOT lt_source[] IS INITIAL. ls_file = abap_to_file( is_item = is_item iv_extra = 'macros' it_abap = lt_source ). "#EC NOTEXT APPEND ls_file TO rt_files. ENDIF. ENDIF. lo_xml = serialize_xml( is_item ). IF lo_xml IS BOUND. ls_file = xml_to_file( is_item = is_item io_xml = lo_xml ). APPEND ls_file TO rt_files. ENDIF. ENDMETHOD. "serialize METHOD serialize_xml. DATA: ls_vseoclass TYPE vseoclass, lv_cp TYPE program, lt_tpool TYPE textpool_table, lv_object TYPE dokhl-object, lv_state TYPE dokhl-dokstate, ls_vseointerf TYPE vseointerf, ls_clskey TYPE seoclskey, lt_lines TYPE tlinetab. ls_clskey-clsname = is_item-obj_name. CALL FUNCTION 'SEO_CLIF_GET' EXPORTING cifkey = ls_clskey version = seoc_version_active IMPORTING class = ls_vseoclass interface = ls_vseointerf EXCEPTIONS not_existing = 1 deleted = 2 model_only = 3 OTHERS = 4. IF sy-subrc = 1. RETURN. " in case only inactive version exists ELSEIF sy-subrc <> 0. _raise 'error from seo_clif_get'. ENDIF. CLEAR: ls_vseoclass-uuid, ls_vseoclass-author, ls_vseoclass-createdon, ls_vseoclass-changedby, ls_vseoclass-changedon, ls_vseoclass-r3release. CLEAR: ls_vseointerf-uuid, ls_vseointerf-author, ls_vseointerf-createdon, ls_vseointerf-changedby, ls_vseointerf-changedon, ls_vseointerf-r3release. CREATE OBJECT ro_xml. CASE is_item-obj_type. WHEN 'CLAS'. ro_xml->structure_add( ls_vseoclass ). lv_cp = cl_oo_classname_service=>get_classpool_name( ls_clskey-clsname ). READ TEXTPOOL lv_cp INTO lt_tpool LANGUAGE sy-langu. "#EC CI_READ_REP ro_xml->table_add( lt_tpool ). WHEN 'INTF'. ro_xml->structure_add( ls_vseointerf ). WHEN OTHERS. ASSERT 1 = 1 + 1. ENDCASE. lv_object = ls_clskey-clsname. CALL FUNCTION 'DOCU_GET' EXPORTING id = 'CL' langu = 'E' object = lv_object IMPORTING dokstate = lv_state TABLES line = lt_lines EXCEPTIONS no_docu_on_screen = 1 no_docu_self_def = 2 no_docu_temp = 3 ret_code = 4 OTHERS = 5. IF sy-subrc = 0 AND lv_state = 'R'. ro_xml->table_add( lt_lines ). ENDIF. ENDMETHOD. "serialize_xml METHOD deserialize. * function group SEOK * function group SEOQ * function group SEOP * class CL_OO_CLASSNAME_SERVICE * class CL_OO_SOURCE DATA: lo_xml TYPE REF TO lcl_xml. lo_xml = read_xml( is_item = is_item it_files = it_files ). deserialize_abap( is_item = is_item it_files = it_files io_xml = lo_xml iv_package = iv_package ). IF is_item-obj_type = 'CLAS'. deserialize_textpool( is_item = is_item io_xml = lo_xml ). ENDIF. deserialize_docu( is_item = is_item io_xml = lo_xml ). ENDMETHOD. "deserialize METHOD deserialize_docu. DATA: lt_lines TYPE tlinetab, lv_object TYPE dokhl-object. io_xml->table_read( CHANGING ct_table = lt_lines ). IF lt_lines[] IS INITIAL. RETURN. ENDIF. lv_object = is_item-obj_name. CALL FUNCTION 'DOCU_UPD' EXPORTING id = 'CL' langu = 'E' object = lv_object TABLES line = lt_lines EXCEPTIONS ret_code = 1 OTHERS = 2. IF sy-subrc <> 0. _raise 'error from DOCU_UPD'. ENDIF. ENDMETHOD. "deserialize_doku METHOD deserialize_textpool. DATA: lv_cp TYPE program, lv_clsname TYPE seoclsname, lt_tpool TYPE textpool_table. io_xml->table_read( CHANGING ct_table = lt_tpool ). IF lt_tpool[] IS INITIAL. RETURN. ENDIF. lv_clsname = is_item-obj_name. lv_cp = cl_oo_classname_service=>get_classpool_name( lv_clsname ). INSERT TEXTPOOL lv_cp FROM lt_tpool LANGUAGE sy-langu STATE 'I'. IF sy-subrc <> 0. _raise 'error from INSERT TEXTPOOL'. ENDIF. activation_add( iv_type = 'REPT' iv_name = lv_cp ). ENDMETHOD. "deserialize_textpool METHOD deserialize_abap. DATA: ls_vseoclass TYPE vseoclass, ls_vseointerf TYPE vseointerf, lt_source TYPE seop_source_string, lo_source TYPE REF TO cl_oo_source, lt_locals_def TYPE seop_source_string, lt_locals_imp TYPE seop_source_string, lt_locals_mac TYPE seop_source_string, lt_testclasses TYPE seop_source_string, ls_clskey TYPE seoclskey. read_abap( EXPORTING is_item = is_item it_files = it_files CHANGING ct_abap = lt_source ). read_abap( EXPORTING is_item = is_item iv_extra = 'locals_def' it_files = it_files iv_error = abap_false CHANGING ct_abap = lt_locals_def ). "#EC NOTEXT read_abap( EXPORTING is_item = is_item iv_extra = 'locals_imp' it_files = it_files iv_error = abap_false CHANGING ct_abap = lt_locals_imp ). "#EC NOTEXT read_abap( EXPORTING is_item = is_item iv_extra = 'macros' it_files = it_files iv_error = abap_false CHANGING ct_abap = lt_locals_mac ). "#EC NOTEXT read_abap( EXPORTING is_item = is_item iv_extra = 'testclasses' it_files = it_files iv_error = abap_false CHANGING ct_abap = lt_testclasses ). "#EC NOTEXT ls_clskey-clsname = is_item-obj_name. CASE is_item-obj_type. WHEN 'CLAS'. io_xml->structure_read( CHANGING cg_structure = ls_vseoclass ). CALL FUNCTION 'SEO_CLASS_CREATE_COMPLETE' EXPORTING devclass = iv_package overwrite = seox_true CHANGING class = ls_vseoclass EXCEPTIONS existing = 1 is_interface = 2 db_error = 3 component_error = 4 no_access = 5 other = 6 OTHERS = 7. IF sy-subrc <> 0. _raise 'error from SEO_CLASS_CREATE_COMPLETE'. ENDIF. WHEN 'INTF'. io_xml->structure_read( CHANGING cg_structure = ls_vseointerf ). CALL FUNCTION 'SEO_INTERFACE_CREATE_COMPLETE' EXPORTING devclass = iv_package overwrite = seox_true CHANGING interface = ls_vseointerf EXCEPTIONS existing = 1 is_class = 2 db_error = 3 component_error = 4 no_access = 5 other = 6 OTHERS = 7. IF sy-subrc <> 0. _raise 'Error from SEO_INTERFACE_CREATE_COMPLETE'. ENDIF. WHEN OTHERS. ASSERT 1 = 1 + 1. ENDCASE. IF is_item-obj_type = 'CLAS'. CALL FUNCTION 'SEO_CLASS_GENERATE_LOCALS' EXPORTING clskey = ls_clskey force = seox_true locals_def = lt_locals_def locals_imp = lt_locals_imp locals_mac = lt_locals_mac locals_testclasses = lt_testclasses EXCEPTIONS not_existing = 1 model_only = 2 locals_not_generated = 3 locals_not_initialised = 4 OTHERS = 5. IF sy-subrc <> 0. _raise 'error from generate_locals'. ENDIF. ENDIF. CREATE OBJECT lo_source EXPORTING clskey = ls_clskey EXCEPTIONS class_not_existing = 1 OTHERS = 2. IF sy-subrc <> 0. _raise 'error from CL_OO_SOURCE'. ENDIF. TRY. lo_source->access_permission( seok_access_modify ). lo_source->set_source( lt_source ). lo_source->save( ). lo_source->access_permission( seok_access_free ). CATCH cx_oo_access_permission. _raise 'permission error'. CATCH cx_oo_source_save_failure. _raise 'save failure'. ENDTRY. activation_add( iv_type = is_item-obj_type iv_name = is_item-obj_name ). ENDMETHOD. "deserialize ENDCLASS. "lcl_object_CLAS IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_object_ssfo DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_ssfo DEFINITION INHERITING FROM lcl_objects_common FINAL. PUBLIC SECTION. CLASS-METHODS serialize IMPORTING is_item TYPE st_item RETURNING VALUE(rt_files) TYPE tt_files RAISING lcx_exception. CLASS-METHODS deserialize IMPORTING is_item TYPE st_item it_files TYPE tt_files iv_package TYPE devclass RAISING lcx_exception ##needed. CLASS-METHODS delete IMPORTING is_item TYPE st_item RAISING lcx_exception. CLASS-METHODS jump IMPORTING is_item TYPE st_item RAISING lcx_exception. ENDCLASS. "lcl_object_dtel DEFINITION *----------------------------------------------------------------------* * CLASS lcl_object_dtel IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_ssfo IMPLEMENTATION. METHOD jump. DATA: lt_bdcdata TYPE TABLE OF bdcdata. FIELD-SYMBOLS: LIKE LINE OF lt_bdcdata. APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . -program = 'SAPMSSFO'. -dynpro = '0100'. -dynbegin = abap_true. APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . -fnam = 'BDC_OKCODE'. -fval = '=DISPLAY'. APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . -fnam = 'RB_SF'. -fval = abap_true. APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . -fnam = 'SSFSCREEN-FNAME'. -fval = is_item-obj_name. CALL FUNCTION 'ABAP4_CALL_TRANSACTION' STARTING NEW TASK 'GIT' EXPORTING tcode = 'SMARTFORMS' mode_val = 'E' TABLES using_tab = lt_bdcdata EXCEPTIONS call_transaction_denied = 1 tcode_invalid = 2 OTHERS = 3. IF sy-subrc <> 0. _raise 'Error from call transaction, ssfo'. ENDIF. ENDMETHOD. "jump METHOD delete. DATA: lv_formname TYPE tdsfname. lv_formname = is_item-obj_name. CALL FUNCTION 'FB_DELETE_FORM' EXPORTING i_formname = lv_formname i_with_dialog = abap_false i_with_confirm_dialog = abap_false EXCEPTIONS no_name = 1 no_form = 2 form_locked = 3 no_access_permission = 4 illegal_language = 5 illegal_formtype = 6 OTHERS = 7. IF sy-subrc <> 0. _raise 'Error from FB_DELETE_FORM'. ENDIF. ENDMETHOD. "delete METHOD serialize. * see function module FB_DOWNLOAD_FORM DATA: lo_sf TYPE REF TO cl_ssf_fb_smart_form, lo_xml TYPE REF TO lcl_xml, ls_file TYPE st_file, lv_name TYPE string, li_node TYPE REF TO if_ixml_node, li_element TYPE REF TO if_ixml_element, li_iterator TYPE REF TO if_ixml_node_iterator, li_attr TYPE REF TO if_ixml_named_node_map, lv_formname TYPE tdsfname. CREATE OBJECT lo_xml EXPORTING iv_empty = abap_true. CREATE OBJECT lo_sf. lv_formname = is_item-obj_name. " convert type TRY. lo_sf->load( im_formname = lv_formname im_language = '' ). CATCH cx_ssf_fb. * the smartform is not present in system, or other error occured RETURN. ENDTRY. lo_sf->xml_download( EXPORTING parent = lo_xml->mi_xml_doc CHANGING document = lo_xml->mi_xml_doc ). li_iterator = lo_xml->mi_xml_doc->create_iterator( ). li_node = li_iterator->get_next( ). WHILE NOT li_node IS INITIAL. lv_name = li_node->get_name( ). IF lv_name = 'DEVCLASS' OR lv_name = 'LASTDATE' OR lv_name = 'LASTTIME'. li_node->set_value( '' ). ENDIF. IF lv_name = 'FIRSTUSER' OR lv_name = 'LASTUSER'. li_node->set_value( 'DUMMY' ). ENDIF. * remove IDs it seems that they are not used for anything * the IDs are "random" so it caused diff files IF lv_name = 'NODE' OR lv_name = 'WINDOW'. li_attr = li_node->get_attributes( ). li_attr->remove_named_item( 'ID' ). ENDIF. li_node = li_iterator->get_next( ). ENDWHILE. li_element = lo_xml->mi_xml_doc->get_root_element( ). li_element->set_attribute( name = 'sf' namespace = 'xmlns' value = 'urn:sap-com:SmartForms:2000:internal-structure' ). "#EC NOTEXT li_element->set_attribute( name = 'xmlns' value = 'urn:sap-com:sdixml-ifr:2000' ). "#EC NOTEXT * the upload fails when the smartform is normalized ls_file = xml_to_file( is_item = is_item io_xml = lo_xml iv_normalize = abap_false ). APPEND ls_file TO rt_files. ENDMETHOD. "serialize METHOD deserialize. * see function module FB_UPLOAD_FORM DATA: lo_xml TYPE REF TO lcl_xml, li_node TYPE REF TO if_ixml_node, lv_formname TYPE tdsfname, lv_name TYPE string, li_iterator TYPE REF TO if_ixml_node_iterator, lo_sf TYPE REF TO cl_ssf_fb_smart_form, lo_res TYPE REF TO cl_ssf_fb_smart_form. CREATE OBJECT lo_sf. lo_xml = read_xml( is_item = is_item it_files = it_files ). * set "created by" and "changed by" to current user li_iterator = lo_xml->mi_xml_doc->create_iterator( ). li_node = li_iterator->get_next( ). WHILE NOT li_node IS INITIAL. lv_name = li_node->get_name( ). CASE lv_name. WHEN 'LASTDATE'. li_node->set_value( sy-datum(4) && '-' && sy-datum+4(2) && '-' && sy-datum+6(2) ). WHEN 'LASTTIME'. li_node->set_value( sy-uzeit(2) && ':' && sy-uzeit+2(2) && ':' && sy-uzeit+4(2) ). WHEN 'FIRSTUSER' OR 'LASTUSER'. li_node->set_value( sy-uname && '' ). ENDCASE. li_node = li_iterator->get_next( ). ENDWHILE. li_node = lo_xml->mi_xml_doc->get_root_element( ). lv_formname = is_item-obj_name. * todo, iv_package? lo_sf->enqueue( suppress_corr_check = space master_language = 'E' mode = 'INSERT' formname = lv_formname ). lo_sf->xml_upload( EXPORTING dom = li_node formname = lv_formname language = 'E' CHANGING sform = lo_res ). lo_res->store( im_formname = lo_res->header-formname im_language = 'E' im_active = abap_true ). lo_sf->dequeue( lv_formname ). ENDMETHOD. "deserialize ENDCLASS. "lcl_object_ssfo IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_object_dtel DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_tabl DEFINITION INHERITING FROM lcl_objects_common FINAL. PUBLIC SECTION. CLASS-METHODS serialize IMPORTING is_item TYPE st_item RETURNING VALUE(rt_files) TYPE tt_files RAISING lcx_exception. CLASS-METHODS deserialize IMPORTING is_item TYPE st_item it_files TYPE tt_files iv_package TYPE devclass RAISING lcx_exception. CLASS-METHODS delete IMPORTING is_item TYPE st_item RAISING lcx_exception. CLASS-METHODS jump IMPORTING is_item TYPE st_item RAISING lcx_exception. ENDCLASS. "lcl_object_dtel DEFINITION *----------------------------------------------------------------------* * CLASS lcl_object_dtel IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_tabl IMPLEMENTATION. METHOD jump. jump_se11( is_item = is_item iv_radio = 'RSRD1-TBMA' iv_field = 'RSRD1-TBMA_VAL' ). ENDMETHOD. "jump METHOD delete. DATA: lv_objname TYPE rsedd0-ddobjname. lv_objname = is_item-obj_name. CALL FUNCTION 'RS_DD_DELETE_OBJ' EXPORTING no_ask = abap_false objname = lv_objname objtype = 'T' EXCEPTIONS not_executed = 1 object_not_found = 2 object_not_specified = 3 permission_failure = 4. IF sy-subrc <> 0. _raise 'error from RS_DD_DELETE_OBJ, TABL'. ENDIF. ENDMETHOD. "delete METHOD serialize. DATA: lv_name TYPE ddobjname, lo_xml TYPE REF TO lcl_xml, ls_file TYPE st_file, ls_dd02v TYPE dd02v, ls_dd09l TYPE dd09l, 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 TABLE OF dd35v, lt_dd36m TYPE dd36mttyp. FIELD-SYMBOLS: LIKE LINE OF lt_dd12v. lv_name = is_item-obj_name. CALL FUNCTION 'DDIF_TABL_GET' EXPORTING name = lv_name langu = sy-langu IMPORTING dd02v_wa = ls_dd02v dd09l_wa = ls_dd09l TABLES dd03p_tab = lt_dd03p dd05m_tab = lt_dd05m dd08v_tab = lt_dd08v dd12v_tab = lt_dd12v dd17v_tab = lt_dd17v dd35v_tab = lt_dd35v dd36m_tab = lt_dd36m EXCEPTIONS illegal_input = 1 OTHERS = 2. IF sy-subrc <> 0. _raise 'error from DDIF_TABL_GET'. ENDIF. IF ls_dd02v IS INITIAL. RETURN. " object does not exits ENDIF. CLEAR: ls_dd02v-as4user, ls_dd02v-as4date, ls_dd02v-as4time. CLEAR: ls_dd09l-as4user, ls_dd09l-as4date, ls_dd09l-as4time. LOOP AT lt_dd12v ASSIGNING . CLEAR: -as4user, -as4date, -as4time. ENDLOOP. CREATE OBJECT lo_xml. lo_xml->structure_add( ls_dd02v ). lo_xml->structure_add( ls_dd09l ). lo_xml->table_add( it_table = lt_dd03p iv_name = 'DD03P_TABLE' ). lo_xml->table_add( it_table = lt_dd05m iv_name = 'DD05M_TABLE' ). lo_xml->table_add( it_table = lt_dd08v iv_name = 'DD08V_TABLE' ). lo_xml->table_add( lt_dd12v ). lo_xml->table_add( lt_dd17v ). lo_xml->table_add( it_table = lt_dd35v iv_name = 'DD35V_TALE' ). lo_xml->table_add( lt_dd36m ). ls_file = xml_to_file( is_item = is_item io_xml = lo_xml ). APPEND ls_file TO rt_files. ENDMETHOD. "serialize METHOD deserialize. DATA: lv_name TYPE ddobjname, lv_tname TYPE trobj_name, lo_xml TYPE REF TO lcl_xml, ls_dd02v TYPE dd02v, ls_dd09l TYPE dd09l, 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 TABLE OF dd35v, lt_dd36m TYPE dd36mttyp, ls_dd12v LIKE LINE OF lt_dd12v. lo_xml = read_xml( is_item = is_item it_files = it_files ). lo_xml->structure_read( CHANGING cg_structure = ls_dd02v ). lo_xml->structure_read( CHANGING cg_structure = ls_dd09l ). lo_xml->table_read( EXPORTING iv_name = 'DD03P_TABLE' CHANGING ct_table = lt_dd03p ). lo_xml->table_read( EXPORTING iv_name = 'DD05M_TABLE' CHANGING ct_table = lt_dd05m ). lo_xml->table_read( EXPORTING iv_name = 'DD08V_TABLE' CHANGING ct_table = lt_dd08v ). lo_xml->table_read( CHANGING ct_table = lt_dd12v ). lo_xml->table_read( CHANGING ct_table = lt_dd17v ). lo_xml->table_read( EXPORTING iv_name = 'DD35V_TALE' CHANGING ct_table = lt_dd35v ). lo_xml->table_read( CHANGING ct_table = lt_dd36m ). corr_insert( is_item = is_item iv_package = iv_package ). lv_name = is_item-obj_name. " type conversion CALL FUNCTION 'DDIF_TABL_PUT' EXPORTING name = lv_name dd02v_wa = ls_dd02v dd09l_wa = ls_dd09l TABLES dd03p_tab = lt_dd03p dd05m_tab = lt_dd05m dd08v_tab = lt_dd08v dd35v_tab = lt_dd35v dd36m_tab = lt_dd36m EXCEPTIONS tabl_not_found = 1 name_inconsistent = 2 tabl_inconsistent = 3 put_failure = 4 put_refused = 5 OTHERS = 6. IF sy-subrc <> 0. _raise 'error from DDIF_TABL_PUT'. ENDIF. activation_add( iv_type = is_item-obj_type iv_name = is_item-obj_name ). * handle indexes LOOP AT lt_dd12v INTO ls_dd12v. * todo, call corr_insert? CLEAR lt_secondary. LOOP AT lt_dd17v INTO ls_dd17v WHERE sqltab = ls_dd12v-sqltab AND indexname = ls_dd12v-indexname. APPEND ls_dd17v TO lt_secondary. ENDLOOP. CALL FUNCTION 'DDIF_INDX_PUT' EXPORTING name = ls_dd12v-sqltab id = ls_dd12v-indexname dd12v_wa = ls_dd12v TABLES dd17v_tab = lt_secondary EXCEPTIONS indx_not_found = 1 name_inconsistent = 2 indx_inconsistent = 3 put_failure = 4 put_refused = 5 OTHERS = 6. IF sy-subrc <> 0. _raise 'error from DDIF_INDX_PUT'. ENDIF. lv_tname = ls_dd12v-sqltab. lv_tname+10 = ls_dd12v-indexname. activation_add( iv_type = 'INDX' iv_name = lv_tname ). ENDLOOP. ENDMETHOD. "deserialize ENDCLASS. "lcl_object_TABL IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_object_enqu DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_enqu DEFINITION INHERITING FROM lcl_objects_common FINAL. PUBLIC SECTION. CLASS-METHODS serialize IMPORTING is_item TYPE st_item RETURNING VALUE(rt_files) TYPE tt_files RAISING lcx_exception. CLASS-METHODS deserialize IMPORTING is_item TYPE st_item it_files TYPE tt_files iv_package TYPE devclass RAISING lcx_exception. CLASS-METHODS delete IMPORTING is_item TYPE st_item RAISING lcx_exception. CLASS-METHODS jump IMPORTING is_item TYPE st_item RAISING lcx_exception. ENDCLASS. "lcl_object_dtel DEFINITION *----------------------------------------------------------------------* * CLASS lcl_object_dtel IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_enqu IMPLEMENTATION. METHOD jump. jump_se11( is_item = is_item iv_radio = 'RSRD1-ENQU' iv_field = 'RSRD1-ENQU_VAL' ). ENDMETHOD. "jump METHOD delete. DATA: lv_objname TYPE rsedd0-ddobjname. lv_objname = is_item-obj_name. CALL FUNCTION 'RS_DD_DELETE_OBJ' EXPORTING no_ask = abap_true objname = lv_objname objtype = 'L' EXCEPTIONS not_executed = 1 object_not_found = 2 object_not_specified = 3 permission_failure = 4. IF sy-subrc <> 0. _raise 'error from RS_DD_DELETE_OBJ, ENQU'. ENDIF. ENDMETHOD. "delete METHOD serialize. DATA: lv_name TYPE ddobjname, ls_file TYPE st_file, lo_xml TYPE REF TO lcl_xml, ls_dd25v TYPE dd25v, lt_dd26e TYPE TABLE OF dd26e, lt_dd27p TYPE TABLE OF dd27p. lv_name = is_item-obj_name. CALL FUNCTION 'DDIF_ENQU_GET' EXPORTING name = lv_name state = 'A' langu = sy-langu IMPORTING dd25v_wa = ls_dd25v TABLES dd26e_tab = lt_dd26e dd27p_tab = lt_dd27p EXCEPTIONS illegal_input = 1 OTHERS = 2. IF sy-subrc <> 0. _raise 'error from DDIF_ENQU_GET'. ENDIF. IF ls_dd25v IS INITIAL. RETURN. " does not exist in system ENDIF. CLEAR: ls_dd25v-as4user, ls_dd25v-as4date, ls_dd25v-as4time. CREATE OBJECT lo_xml. lo_xml->structure_add( ls_dd25v ). lo_xml->table_add( it_table = lt_dd26e iv_name = 'DD26E_TABLE'). lo_xml->table_add( it_table = lt_dd27p iv_name = 'DD27P_TABLE' ). ls_file = xml_to_file( is_item = is_item io_xml = lo_xml ). APPEND ls_file TO rt_files. ENDMETHOD. "serialize METHOD deserialize. DATA: lo_xml TYPE REF TO lcl_xml, lv_name TYPE ddobjname, ls_dd25v TYPE dd25v, lt_dd26e TYPE TABLE OF dd26e, lt_dd27p TYPE TABLE OF dd27p. lo_xml = read_xml( is_item = is_item it_files = it_files ). lo_xml->structure_read( CHANGING cg_structure = ls_dd25v ). lo_xml->table_read( EXPORTING iv_name = 'DD26E_TABLE' CHANGING ct_table = lt_dd26e ). lo_xml->table_read( EXPORTING iv_name = 'DD27P_TABLE' CHANGING ct_table = lt_dd27p ). corr_insert( is_item = is_item iv_package = iv_package ). lv_name = is_item-obj_name. CALL FUNCTION 'DDIF_ENQU_PUT' EXPORTING name = lv_name dd25v_wa = ls_dd25v TABLES dd26e_tab = lt_dd26e dd27p_tab = lt_dd27p EXCEPTIONS enqu_not_found = 1 name_inconsistent = 2 enqu_inconsistent = 3 put_failure = 4 put_refused = 5 OTHERS = 6. IF sy-subrc <> 0. _raise 'error from DDIF_ENQU_PUT'. ENDIF. activation_add( iv_type = is_item-obj_type iv_name = is_item-obj_name ). ENDMETHOD. "deserialize ENDCLASS. "lcl_object_enqu IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_object_shlp DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_shlp DEFINITION INHERITING FROM lcl_objects_common FINAL. PUBLIC SECTION. CLASS-METHODS serialize IMPORTING is_item TYPE st_item RETURNING VALUE(rt_files) TYPE tt_files RAISING lcx_exception. CLASS-METHODS deserialize IMPORTING is_item TYPE st_item it_files TYPE tt_files iv_package TYPE devclass RAISING lcx_exception. CLASS-METHODS delete IMPORTING is_item TYPE st_item RAISING lcx_exception. CLASS-METHODS jump IMPORTING is_item TYPE st_item RAISING lcx_exception. ENDCLASS. "lcl_object_dtel DEFINITION *----------------------------------------------------------------------* * CLASS lcl_object_dtel IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_shlp IMPLEMENTATION. METHOD jump. jump_se11( is_item = is_item iv_radio = 'RSRD1-SHMA' iv_field = 'RSRD1-SHMA_VAL' ). ENDMETHOD. "jump METHOD delete. DATA: lv_objname TYPE rsedd0-ddobjname. lv_objname = is_item-obj_name. CALL FUNCTION 'RS_DD_DELETE_OBJ' EXPORTING no_ask = abap_true objname = lv_objname objtype = 'H' EXCEPTIONS not_executed = 1 object_not_found = 2 object_not_specified = 3 permission_failure = 4. IF sy-subrc <> 0. _raise 'error from RS_DD_DELETE_OBJ, SHLP'. ENDIF. ENDMETHOD. "delete METHOD serialize. DATA: lv_name TYPE ddobjname, ls_file TYPE st_file, lo_xml TYPE REF TO lcl_xml, ls_dd30v TYPE dd30v, lt_dd31v TYPE TABLE OF dd31v, lt_dd32p TYPE TABLE OF dd32p, lt_dd33v TYPE TABLE OF dd33v. lv_name = is_item-obj_name. CALL FUNCTION 'DDIF_SHLP_GET' EXPORTING name = lv_name state = 'A' langu = sy-langu IMPORTING dd30v_wa = ls_dd30v TABLES dd31v_tab = lt_dd31v dd32p_tab = lt_dd32p dd33v_tab = lt_dd33v EXCEPTIONS illegal_input = 1 OTHERS = 2. IF sy-subrc <> 0. _raise 'error from DDIF_SHLP_GET'. ENDIF. IF ls_dd30v IS INITIAL. RETURN. " does not exist in system ENDIF. CLEAR: ls_dd30v-as4user, ls_dd30v-as4date, ls_dd30v-as4time. CREATE OBJECT lo_xml. lo_xml->structure_add( ls_dd30v ). lo_xml->table_add( it_table = lt_dd31v iv_name = 'DD31V_TABLE' ). lo_xml->table_add( it_table = lt_dd32p iv_name = 'DD32P_TABLE' ). lo_xml->table_add( it_table = lt_dd33v iv_name = 'DD33V_TABLE' ). ls_file = xml_to_file( is_item = is_item io_xml = lo_xml ). APPEND ls_file TO rt_files. ENDMETHOD. "serialize METHOD deserialize. DATA: lo_xml TYPE REF TO lcl_xml, lv_name TYPE ddobjname, ls_dd30v TYPE dd30v, 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 it_files = it_files ). lo_xml->structure_read( CHANGING cg_structure = ls_dd30v ). lo_xml->table_read( EXPORTING iv_name = 'DD31V_TABLE' CHANGING ct_table = lt_dd31v ). lo_xml->table_read( EXPORTING iv_name = 'DD32P_TABLE' CHANGING ct_table = lt_dd32p ). lo_xml->table_read( EXPORTING iv_name = 'DD33V_TABLE' CHANGING ct_table = lt_dd33v ). corr_insert( is_item = is_item iv_package = iv_package ). lv_name = is_item-obj_name. CALL FUNCTION 'DDIF_SHLP_PUT' EXPORTING name = lv_name dd30v_wa = ls_dd30v TABLES dd31v_tab = lt_dd31v dd32p_tab = lt_dd32p dd33v_tab = lt_dd33v EXCEPTIONS shlp_not_found = 1 name_inconsistent = 2 shlp_inconsistent = 3 put_failure = 4 put_refused = 5 OTHERS = 6. IF sy-subrc <> 0. _raise 'error from DDIF_SHLP_PUT'. ENDIF. activation_add( iv_type = is_item-obj_type iv_name = is_item-obj_name ). ENDMETHOD. "deserialize ENDCLASS. "lcl_object_shlp IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_object_TRAN DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_tran DEFINITION INHERITING FROM lcl_objects_common FINAL. PUBLIC SECTION. CLASS-METHODS serialize IMPORTING is_item TYPE st_item RETURNING VALUE(rt_files) TYPE tt_files RAISING lcx_exception. CLASS-METHODS deserialize IMPORTING is_item TYPE st_item it_files TYPE tt_files iv_package TYPE devclass RAISING lcx_exception. CLASS-METHODS delete IMPORTING is_item TYPE st_item RAISING lcx_exception. CLASS-METHODS jump IMPORTING is_item TYPE st_item RAISING lcx_exception. ENDCLASS. "lcl_object_TRAN DEFINITION *----------------------------------------------------------------------* * CLASS lcl_object_msag IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_tran IMPLEMENTATION. METHOD jump. DATA: lt_bdcdata TYPE TABLE OF bdcdata. FIELD-SYMBOLS: LIKE LINE OF lt_bdcdata. APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . -program = 'SAPLSEUK'. -dynpro = '0390'. -dynbegin = abap_true. APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . -fnam = 'BDC_OKCODE'. -fval = '=SHOW'. APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . -fnam = 'TSTC-TCODE'. -fval = is_item-obj_name. CALL FUNCTION 'ABAP4_CALL_TRANSACTION' STARTING NEW TASK 'GIT' EXPORTING tcode = 'SE93' mode_val = 'E' TABLES using_tab = lt_bdcdata EXCEPTIONS call_transaction_denied = 1 tcode_invalid = 2 OTHERS = 3. IF sy-subrc <> 0. _raise 'Error from call transaction, tran'. ENDIF. ENDMETHOD. "jump METHOD delete. DATA: lv_transaction TYPE tstc-tcode. lv_transaction = is_item-obj_name. CALL FUNCTION 'RPY_TRANSACTION_DELETE' EXPORTING transaction = lv_transaction EXCEPTIONS not_excecuted = 1 object_not_found = 2 OTHERS = 3. IF sy-subrc <> 0. _raise 'Error from RPY_TRANSACTION_DELETE'. ENDIF. ENDMETHOD. "delete METHOD deserialize. CONSTANTS: lc_hex_tra TYPE x VALUE '00', * c_hex_men TYPE x VALUE '01', lc_hex_par TYPE x VALUE '02', lc_hex_rep TYPE x VALUE '80'. * c_hex_rpv TYPE x VALUE '10', * c_hex_obj TYPE x VALUE '08', * c_hex_chk TYPE x VALUE '04', * c_hex_enq TYPE x VALUE '20'. DATA: lv_dynpro TYPE d020s-dnum, lo_xml TYPE REF TO lcl_xml, ls_tstc TYPE tstc, lv_type TYPE rglif-docutype, ls_tstct TYPE tstct, ls_tstcc TYPE tstcc. lo_xml = read_xml( is_item = is_item it_files = it_files ). lo_xml->structure_read( CHANGING cg_structure = ls_tstc ). lo_xml->structure_read( CHANGING cg_structure = ls_tstcc ). lo_xml->structure_read( CHANGING cg_structure = ls_tstct ). lv_dynpro = ls_tstc-dypno. CASE ls_tstc-cinfo. WHEN lc_hex_tra. lv_type = ststc_c_type_dialog. WHEN lc_hex_rep. lv_type = ststc_c_type_report. WHEN lc_hex_par. lv_type = ststc_c_type_parameters. * todo, or ststc_c_type_variant? WHEN OTHERS. _raise 'Transaction, unknown CINFO'. ENDCASE. CALL FUNCTION 'RPY_TRANSACTION_INSERT' EXPORTING transaction = ls_tstc-tcode program = ls_tstc-pgmna dynpro = lv_dynpro language = 'E' development_class = iv_package transaction_type = lv_type shorttext = ls_tstct-ttext html_enabled = ls_tstcc-s_webgui java_enabled = ls_tstcc-s_platin wingui_enabled = ls_tstcc-s_win32 EXCEPTIONS cancelled = 1 already_exist = 2 permission_error = 3 name_not_allowed = 4 name_conflict = 5 illegal_type = 6 object_inconsistent = 7 db_access_error = 8 OTHERS = 9. IF sy-subrc <> 0. _raise 'Error from RPY_TRANSACTION_INSERT'. ENDIF. ENDMETHOD. "deserialize METHOD serialize. DATA: lv_transaction TYPE tstc-tcode, lt_tcodes TYPE TABLE OF tstc, ls_tcode LIKE LINE OF lt_tcodes, ls_tstct TYPE tstct, lt_gui_attr TYPE TABLE OF tstcc, lo_xml TYPE REF TO lcl_xml, ls_file TYPE st_file, ls_gui_attr LIKE LINE OF lt_gui_attr. lv_transaction = is_item-obj_name. CALL FUNCTION 'RPY_TRANSACTION_READ' EXPORTING transaction = lv_transaction TABLES tcodes = lt_tcodes gui_attributes = lt_gui_attr EXCEPTIONS permission_error = 1 cancelled = 2 not_found = 3 object_not_found = 4 OTHERS = 5. IF sy-subrc = 4. RETURN. ENDIF. IF sy-subrc <> 0. _raise 'Error from RPY_TRANSACTION_READ'. ENDIF. SELECT SINGLE * FROM tstct INTO ls_tstct WHERE sprsl = 'E' AND tcode = lv_transaction. IF sy-subrc <> 0. _raise 'Transaction description not found'. ENDIF. READ TABLE lt_tcodes INDEX 1 INTO ls_tcode. ASSERT sy-subrc = 0. READ TABLE lt_gui_attr INDEX 1 INTO ls_gui_attr. ASSERT sy-subrc = 0. CREATE OBJECT lo_xml. lo_xml->structure_add( ls_tcode ). lo_xml->structure_add( ls_gui_attr ). lo_xml->structure_add( ls_tstct ). ls_file = xml_to_file( is_item = is_item io_xml = lo_xml ). APPEND ls_file TO rt_files. ENDMETHOD. "serialize ENDCLASS. "lcl_object_msag IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_object_msag DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_msag DEFINITION INHERITING FROM lcl_objects_common FINAL. PUBLIC SECTION. CLASS-METHODS serialize IMPORTING is_item TYPE st_item RETURNING VALUE(rt_files) TYPE tt_files RAISING lcx_exception. CLASS-METHODS deserialize IMPORTING is_item TYPE st_item it_files TYPE tt_files iv_package TYPE devclass RAISING lcx_exception. CLASS-METHODS delete IMPORTING is_item TYPE st_item RAISING lcx_exception. CLASS-METHODS jump IMPORTING is_item TYPE st_item RAISING lcx_exception. ENDCLASS. "lcl_object_msag DEFINITION *----------------------------------------------------------------------* * CLASS lcl_object_view IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_msag IMPLEMENTATION. METHOD jump. DATA: lt_bdcdata TYPE TABLE OF bdcdata. FIELD-SYMBOLS: LIKE LINE OF lt_bdcdata. APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . -program = 'SAPLWBMESSAGES'. -dynpro = '0100'. -dynbegin = abap_true. APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . -fnam = 'BDC_OKCODE'. -fval = '=WB_DISPLAY'. APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . -fnam = 'RSDAG-ARBGB'. -fval = is_item-obj_name. CALL FUNCTION 'ABAP4_CALL_TRANSACTION' STARTING NEW TASK 'GIT' EXPORTING tcode = 'SE91' mode_val = 'E' TABLES using_tab = lt_bdcdata EXCEPTIONS call_transaction_denied = 1 tcode_invalid = 2 OTHERS = 3. IF sy-subrc <> 0. _raise 'Error from call transaction, msag'. ENDIF. ENDMETHOD. "jump METHOD delete. * parameter SUPPRESS_DIALOG doesnt exist in all versions CALL FUNCTION 'RS_DELETE_MESSAGE_ID' EXPORTING nachrichtenklasse = is_item-obj_name EXCEPTIONS not_executed = 1 not_found = 2 no_permission = 3 OTHERS = 4. IF sy-subrc <> 0. _raise 'Error from RS_DELETE_MESSAGE_ID'. ENDIF. ENDMETHOD. "delete METHOD deserialize. * fm RPY_MESSAGE_ID_INSERT almost works, but not in older versions DATA: lo_xml TYPE REF TO lcl_xml, ls_t100a TYPE t100a, ls_t100t TYPE t100t, ls_t100u TYPE t100u, lt_t100 TYPE TABLE OF t100. FIELD-SYMBOLS: LIKE LINE OF lt_t100. lo_xml = read_xml( is_item = is_item it_files = it_files ). lo_xml->structure_read( CHANGING cg_structure = ls_t100a ). lo_xml->table_read( EXPORTING iv_name = 'T100' CHANGING ct_table = lt_t100 ). CALL FUNCTION 'RS_CORR_INSERT' EXPORTING global_lock = 'X' devclass = iv_package object = ls_t100a-arbgb object_class = 'T100' EXCEPTIONS cancelled = 01 permission_failure = 02 unknown_objectclass = 03. IF sy-subrc <> 0. _raise 'Error from RS_CORR_INSERT'. ENDIF. LOOP AT lt_t100 ASSIGNING . MODIFY t100 FROM . "#EC * ASSERT sy-subrc = 0. CLEAR ls_t100u. MOVE-CORRESPONDING TO ls_t100u. ls_t100u-name = sy-uname. ls_t100u-datum = sy-datum. ls_t100u-selfdef = '3'. MODIFY t100u FROM ls_t100u. "#EC * ASSERT sy-subrc = 0. ENDLOOP. ls_t100a-masterlang = 'E'. ls_t100a-lastuser = sy-uname. ls_t100a-respuser = sy-uname. ls_t100a-ldate = sy-datum. ls_t100a-ltime = sy-uzeit. MODIFY t100a FROM ls_t100a. "#EC CI_SUBRC ASSERT sy-subrc = 0. ls_t100t-sprsl = 'E'. ls_t100t-arbgb = ls_t100a-arbgb. ls_t100t-stext = ls_t100a-stext. MODIFY t100t FROM ls_t100t. "#EC CI_SUBRC ASSERT sy-subrc = 0. ENDMETHOD. "deserialize METHOD serialize. DATA: lv_msg_id TYPE rglif-message_id, ls_file TYPE st_file, ls_inf TYPE t100a, lt_source TYPE TABLE OF t100, lo_xml TYPE REF TO lcl_xml. lv_msg_id = is_item-obj_name. CALL FUNCTION 'RPY_MESSAGE_ID_READ' EXPORTING language = 'E' message_id = lv_msg_id IMPORTING message_id_inf = ls_inf TABLES source = lt_source EXCEPTIONS cancelled = 1 not_found = 2 permission_error = 3 OTHERS = 4. IF sy-subrc = 2. RETURN. ENDIF. IF sy-subrc <> 0. _raise 'Error from RPY_MESSAGE_ID_READ'. ENDIF. CLEAR: ls_inf-lastuser, ls_inf-ldate, ls_inf-ltime. CREATE OBJECT lo_xml. lo_xml->structure_add( ls_inf ). lo_xml->table_add( it_table = lt_source iv_name = 'T100' ). ls_file = xml_to_file( is_item = is_item io_xml = lo_xml ). APPEND ls_file TO rt_files. ENDMETHOD. "serialize ENDCLASS. "lcl_object_view IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_object_fugr DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_fugr DEFINITION INHERITING FROM lcl_objects_common FINAL. PUBLIC SECTION. CLASS-METHODS serialize IMPORTING is_item TYPE st_item RETURNING VALUE(rt_files) TYPE tt_files RAISING lcx_exception. CLASS-METHODS deserialize IMPORTING is_item TYPE st_item it_files TYPE tt_files iv_package TYPE devclass RAISING lcx_exception. CLASS-METHODS delete IMPORTING is_item TYPE st_item RAISING lcx_exception. CLASS-METHODS jump IMPORTING is_item TYPE st_item RAISING lcx_exception. PRIVATE SECTION. CLASS-METHODS main_name IMPORTING is_item TYPE st_item RETURNING VALUE(rv_program) TYPE program RAISING lcx_exception. CLASS-METHODS functions IMPORTING is_item TYPE st_item RETURNING VALUE(rt_functab) TYPE tt_rs38l_incl RAISING lcx_exception. CLASS-METHODS includes IMPORTING is_item TYPE st_item RETURNING VALUE(rt_includes) TYPE rso_t_objnm RAISING lcx_exception. CLASS-METHODS serialize_functions IMPORTING is_item TYPE st_item RETURNING VALUE(rt_files) TYPE tt_files RAISING lcx_exception. CLASS-METHODS deserialize_functions IMPORTING is_item TYPE st_item it_files TYPE tt_files RAISING lcx_exception. CLASS-METHODS serialize_xml IMPORTING is_item TYPE st_item RETURNING VALUE(rs_file) TYPE st_file RAISING lcx_exception. CLASS-METHODS deserialize_xml IMPORTING is_item TYPE st_item it_files TYPE tt_files iv_package TYPE devclass RAISING lcx_exception. CLASS-METHODS serialize_includes IMPORTING is_item TYPE st_item RETURNING VALUE(rt_files) TYPE tt_files RAISING lcx_exception. CLASS-METHODS deserialize_includes IMPORTING is_item TYPE st_item it_files TYPE tt_files iv_package TYPE devclass RAISING lcx_exception. ENDCLASS. "lcl_object_dtel DEFINITION *----------------------------------------------------------------------* * CLASS lcl_object_dtel IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_fugr IMPLEMENTATION. * function group SEUF * function group SIFP * function group SUNI METHOD deserialize_functions. DATA: lv_include TYPE rs38l-include, lv_area TYPE rs38l-area, lo_xml TYPE REF TO lcl_xml, lt_functab TYPE tt_rs38l_incl, lt_import TYPE TABLE OF rsimp, lt_changing TYPE TABLE OF rscha, lt_export TYPE TABLE OF rsexp, lt_tables TYPE TABLE OF rstbl, lt_exception TYPE TABLE OF rsexc, lt_documentation TYPE TABLE OF rsfdo, lt_source TYPE TABLE OF rssource, lv_global_flag TYPE rs38l-global, lv_remote_call TYPE rs38l-remote, lv_update_task TYPE rs38l-utask, lv_short_text TYPE tftit-stext, lv_remote_basxml TYPE rs38l-basxml_enabled. FIELD-SYMBOLS: LIKE LINE OF lt_functab. lo_xml = read_xml( is_item = is_item it_files = it_files ). lo_xml->table_read( CHANGING ct_table = lt_functab ). LOOP AT lt_functab ASSIGNING . read_abap( EXPORTING is_item = is_item iv_extra = -funcname it_files = it_files CHANGING ct_abap = lt_source ). lo_xml = read_xml( is_item = is_item iv_extra = -funcname it_files = it_files ). lo_xml->element_read( CHANGING cg_element = lv_global_flag ). lo_xml->element_read( CHANGING cg_element = lv_remote_call ). lo_xml->element_read( CHANGING cg_element = lv_update_task ). lo_xml->element_read( CHANGING cg_element = lv_short_text ). lo_xml->element_read( CHANGING cg_element = lv_remote_basxml ). lo_xml->table_read( EXPORTING iv_name = 'IMPORT' CHANGING ct_table = lt_import ). lo_xml->table_read( EXPORTING iv_name = 'CHANGING' CHANGING ct_table = lt_changing ). lo_xml->table_read( EXPORTING iv_name = 'EXPORT' CHANGING ct_table = lt_export ). lo_xml->table_read( EXPORTING iv_name = 'TABLES' CHANGING ct_table = lt_tables ). lo_xml->table_read( EXPORTING iv_name = 'EXCEPTION' CHANGING ct_table = lt_exception ). lo_xml->table_read( EXPORTING iv_name = 'DOCUMENTATION' CHANGING ct_table = lt_documentation ). lv_area = is_item-obj_name. CALL FUNCTION 'FUNCTION_EXISTS' EXPORTING funcname = -funcname IMPORTING include = lv_include EXCEPTIONS function_not_exist = 1. IF sy-subrc = 0. * delete the function module to make sure the parameters are updated * havent found a nice way to update the paramters CALL FUNCTION 'FUNCTION_DELETE' EXPORTING funcname = -funcname * SUPPRESS_DELETE_LONGTEXT = ' ' suppress_success_message = abap_true * SUPPRESS_DELE_ENHA = ' ' * SUPPRESS_LOCK = ' ' EXCEPTIONS error_message = 1 OTHERS = 2. IF sy-subrc <> 0. _raise 'error from FUNCTION_DELETE'. ENDIF. ENDIF. CALL FUNCTION 'RS_FUNCTIONMODULE_INSERT' EXPORTING funcname = -funcname function_pool = lv_area interface_global = lv_global_flag remote_call = lv_remote_call short_text = lv_short_text * NAMESPACE = ' ' todo remote_basxml_supported = lv_remote_basxml IMPORTING function_include = lv_include TABLES import_parameter = lt_import export_parameter = lt_export tables_parameter = lt_tables changing_parameter = lt_changing exception_list = lt_exception parameter_docu = lt_documentation EXCEPTIONS double_task = 1 error_message = 2 function_already_exists = 3 invalid_function_pool = 4 invalid_name = 5 too_many_functions = 6 no_modify_permission = 7 no_show_permission = 8 enqueue_system_failure = 9 canceled_in_corr = 10 OTHERS = 11. IF sy-subrc <> 0. _raise 'error from RS_FUNCTIONMODULE_INSERT'. ENDIF. INSERT REPORT lv_include FROM lt_source. activation_add( iv_type = 'FUNC' iv_name = -funcname ). ENDLOOP. ENDMETHOD. "deserialize_functions METHOD deserialize_includes. DATA: lo_xml TYPE REF TO lcl_xml, ls_progdir TYPE ty_progdir, lt_includes TYPE rso_t_objnm, lt_tpool TYPE textpool_table, lt_source TYPE TABLE OF abaptxt255. FIELD-SYMBOLS: LIKE LINE OF lt_includes. lo_xml = read_xml( is_item = is_item it_files = it_files ). lo_xml->table_read( CHANGING ct_table = lt_includes ). LOOP AT lt_includes ASSIGNING . read_abap( EXPORTING is_item = is_item iv_extra = it_files = it_files CHANGING ct_abap = lt_source ). lo_xml = read_xml( is_item = is_item iv_extra = it_files = it_files ). lo_xml->structure_read( EXPORTING iv_name = 'PROGDIR' CHANGING cg_structure = ls_progdir ). lo_xml->table_read( CHANGING ct_table = lt_tpool ). deserialize_program( is_progdir = ls_progdir it_source = lt_source it_tpool = lt_tpool iv_package = iv_package ). ENDLOOP. ENDMETHOD. "deserialize_includes METHOD deserialize_xml. DATA: lv_complete TYPE rs38l-area, lo_xml TYPE REF TO lcl_xml, lv_namespace TYPE rs38l-namespace, lv_areat TYPE tlibt-areat, lv_stext TYPE tftit-stext, lv_group TYPE rs38l-area. lv_complete = is_item-obj_name. CALL FUNCTION 'FUNCTION_INCLUDE_SPLIT' EXPORTING complete_area = lv_complete IMPORTING namespace = lv_namespace group = lv_group EXCEPTIONS include_not_exists = 1 group_not_exists = 2 no_selections = 3 no_function_include = 4 no_function_pool = 5 delimiter_wrong_position = 6 no_customer_function_group = 7 no_customer_function_include = 8 reserved_name_customer = 9 namespace_too_long = 10 area_length_error = 11 OTHERS = 12. IF sy-subrc <> 0. _raise 'error from FUNCTION_INCLUDE_SPLIT'. ENDIF. lo_xml = read_xml( is_item = is_item it_files = it_files ). lo_xml->element_read( CHANGING cg_element = lv_areat ). lv_stext = lv_areat. CALL FUNCTION 'RS_FUNCTION_POOL_INSERT' EXPORTING function_pool = lv_group short_text = lv_stext namespace = lv_namespace devclass = iv_package EXCEPTIONS name_already_exists = 1 name_not_correct = 2 function_already_exists = 3 invalid_function_pool = 4 invalid_name = 5 too_many_functions = 6 no_modify_permission = 7 no_show_permission = 8 enqueue_system_failure = 9 canceled_in_corr = 10 undefined_error = 11 OTHERS = 12. IF sy-subrc <> 0 AND sy-subrc <> 1 AND sy-subrc <> 3. * todo, change description _raise 'error from RS_FUNCTION_POOL_INSERT'. ENDIF. ENDMETHOD. "deserialize_xml METHOD serialize_xml. DATA: lo_xml TYPE REF TO lcl_xml, lt_functab TYPE tt_rs38l_incl, lt_includes TYPE rso_t_objnm, lv_areat TYPE tlibt-areat. SELECT SINGLE areat INTO lv_areat FROM tlibt WHERE spras = sy-langu AND area = is_item-obj_name. IF sy-subrc <> 0. _raise 'not found in TLIBT'. ENDIF. lt_functab = functions( is_item ). lt_includes = includes( is_item ). * todo, dynpros CREATE OBJECT lo_xml. lo_xml->element_add( lv_areat ). lo_xml->table_add( it_table = lt_functab ). lo_xml->table_add( it_table = lt_includes ). rs_file = xml_to_file( is_item = is_item io_xml = lo_xml ). ENDMETHOD. "serialize_xml METHOD includes. DATA: lv_program TYPE program, lt_functab TYPE tt_rs38l_incl. FIELD-SYMBOLS: LIKE LINE OF lt_functab. lv_program = main_name( is_item ). lt_functab = functions( is_item ). CALL FUNCTION 'RS_GET_ALL_INCLUDES' EXPORTING program = lv_program * WITH_RESERVED_INCLUDES = * WITH_CLASS_INCLUDES = ' ' hmm, todo TABLES includetab = rt_includes EXCEPTIONS not_existent = 1 no_program = 2 OTHERS = 3. IF sy-subrc <> 0. _raise 'Error from RS_GET_ALL_INCLUDES'. ENDIF. LOOP AT lt_functab ASSIGNING . DELETE TABLE rt_includes FROM -include. ENDLOOP. APPEND lv_program TO rt_includes. ENDMETHOD. "includes METHOD functions. DATA: lv_area TYPE rs38l-area. lv_area = is_item-obj_name. CALL FUNCTION 'RS_FUNCTION_POOL_CONTENTS' EXPORTING function_pool = lv_area TABLES functab = rt_functab EXCEPTIONS function_pool_not_found = 1 OTHERS = 2. IF sy-subrc <> 0. _raise 'Error from RS_FUNCTION_POOL_CONTENTS'. ENDIF. ENDMETHOD. "functions METHOD main_name. DATA: lv_area TYPE rs38l-area, lv_namespace TYPE rs38l-namespace, lv_group TYPE rs38l-area. lv_area = is_item-obj_name. CALL FUNCTION 'FUNCTION_INCLUDE_SPLIT' EXPORTING complete_area = lv_area IMPORTING namespace = lv_namespace group = lv_group EXCEPTIONS include_not_exists = 1 group_not_exists = 2 no_selections = 3 no_function_include = 4 no_function_pool = 5 delimiter_wrong_position = 6 no_customer_function_group = 7 no_customer_function_include = 8 reserved_name_customer = 9 namespace_too_long = 10 area_length_error = 11 OTHERS = 12. IF sy-subrc <> 0. _raise 'Error from FUNCTION_INCLUDE_SPLIT'. ENDIF. CONCATENATE lv_namespace 'SAPL' lv_group INTO rv_program. ENDMETHOD. "main_name METHOD serialize_functions. DATA: lt_import TYPE TABLE OF rsimp, lo_xml TYPE REF TO lcl_xml, ls_file TYPE st_file, lt_changing TYPE TABLE OF rscha, lt_export TYPE TABLE OF rsexp, lt_tables TYPE TABLE OF rstbl, lt_exception TYPE TABLE OF rsexc, lt_documentation TYPE TABLE OF rsfdo, lt_source TYPE TABLE OF rssource, lv_global_flag TYPE rs38l-global, lv_remote_call TYPE rs38l-remote, lv_update_task TYPE rs38l-utask, lv_short_text TYPE tftit-stext, lt_functab TYPE tt_rs38l_incl, lv_remote_basxml TYPE rs38l-basxml_enabled. FIELD-SYMBOLS: LIKE LINE OF lt_functab. lt_functab = functions( is_item ). LOOP AT lt_functab ASSIGNING . CALL FUNCTION 'RPY_FUNCTIONMODULE_READ' EXPORTING functionname = -funcname IMPORTING global_flag = lv_global_flag remote_call = lv_remote_call update_task = lv_update_task short_text = lv_short_text remote_basxml_supported = lv_remote_basxml TABLES import_parameter = lt_import changing_parameter = lt_changing export_parameter = lt_export tables_parameter = lt_tables exception_list = lt_exception documentation = lt_documentation source = lt_source EXCEPTIONS error_message = 1 function_not_found = 2 invalid_name = 3 OTHERS = 4. IF sy-subrc <> 0. _raise 'Error from RPY_FUNCTIONMODULE_READ_NEW'. ENDIF. CREATE OBJECT lo_xml. lo_xml->element_add( lv_global_flag ). lo_xml->element_add( lv_remote_call ). lo_xml->element_add( lv_update_task ). lo_xml->element_add( lv_short_text ). lo_xml->element_add( lv_remote_basxml ). lo_xml->table_add( it_table = lt_import iv_name = 'IMPORT' ). lo_xml->table_add( it_table = lt_changing iv_name = 'CHANGING' ). lo_xml->table_add( it_table = lt_export iv_name = 'EXPORT' ). lo_xml->table_add( it_table = lt_tables iv_name = 'TABLES' ). lo_xml->table_add( it_table = lt_exception iv_name = 'EXCEPTION' ). lo_xml->table_add( it_table = lt_documentation iv_name = 'DOCUMENTATION' ). ls_file = xml_to_file( is_item = is_item iv_extra = -funcname io_xml = lo_xml ). APPEND ls_file TO rt_files. ls_file = abap_to_file( is_item = is_item iv_extra = -funcname it_abap = lt_source ). APPEND ls_file TO rt_files. ENDLOOP. ENDMETHOD. "serialize_functions METHOD serialize_includes. DATA: lt_files LIKE rt_files, lt_includes TYPE rso_t_objnm. FIELD-SYMBOLS: LIKE LINE OF lt_includes. lt_includes = includes( is_item ). LOOP AT lt_includes ASSIGNING . * todo, filename is not correct, a include can be used in several programs lt_files = serialize_program( is_item = is_item iv_program = iv_extra = ). APPEND LINES OF lt_files TO rt_files. ENDLOOP. ENDMETHOD. "serialize_includes METHOD serialize. DATA: lv_pool TYPE tlibg-area, lt_files LIKE rt_files, ls_file LIKE LINE OF rt_files. lv_pool = is_item-obj_name. CALL FUNCTION 'RS_FUNCTION_POOL_EXISTS' EXPORTING function_pool = lv_pool EXCEPTIONS pool_not_exists = 1. IF sy-subrc = 1. RETURN. ENDIF. ls_file = serialize_xml( is_item ). APPEND ls_file TO rt_files. lt_files = serialize_functions( is_item ). APPEND LINES OF lt_files TO rt_files. lt_files = serialize_includes( is_item ). APPEND LINES OF lt_files TO rt_files. ENDMETHOD. "serialize METHOD deserialize. deserialize_xml( is_item = is_item it_files = it_files iv_package = iv_package ). deserialize_functions( is_item = is_item it_files = it_files ). deserialize_includes( is_item = is_item it_files = it_files iv_package = iv_package ). ENDMETHOD. "deserialize METHOD delete. DATA: lv_area TYPE rs38l-area. lv_area = is_item-obj_name. CALL FUNCTION 'RS_FUNCTION_POOL_DELETE' EXPORTING area = lv_area suppress_popups = abap_true skip_progress_ind = abap_true EXCEPTIONS canceled_in_corr = 1 enqueue_system_failure = 2 function_exist = 3 not_executed = 4 no_modify_permission = 5 no_show_permission = 6 permission_failure = 7 pool_not_exist = 8 cancelled = 9 OTHERS = 10. IF sy-subrc <> 0. _raise 'error from RS_FUNCTION_POOL_DELETE'. ENDIF. ENDMETHOD. "delete METHOD jump. _raise 'todo, FUGR'. ENDMETHOD. "jump ENDCLASS. "lcl_object_fugr IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_object_dtel DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_view DEFINITION INHERITING FROM lcl_objects_common FINAL. PUBLIC SECTION. CLASS-METHODS serialize IMPORTING is_item TYPE st_item RETURNING VALUE(rt_files) TYPE tt_files RAISING lcx_exception. CLASS-METHODS deserialize IMPORTING is_item TYPE st_item it_files TYPE tt_files iv_package TYPE devclass RAISING lcx_exception. CLASS-METHODS delete IMPORTING is_item TYPE st_item RAISING lcx_exception. CLASS-METHODS jump IMPORTING is_item TYPE st_item RAISING lcx_exception. ENDCLASS. "lcl_object_dtel DEFINITION *----------------------------------------------------------------------* * CLASS lcl_object_dtel IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_view IMPLEMENTATION. METHOD jump. jump_se11( is_item = is_item iv_radio = 'RSRD1-VIMA' iv_field = 'RSRD1-VIMA_VAL' ). ENDMETHOD. "jump METHOD delete. DATA: lv_objname TYPE rsedd0-ddobjname. lv_objname = is_item-obj_name. CALL FUNCTION 'RS_DD_DELETE_OBJ' EXPORTING no_ask = abap_true objname = lv_objname objtype = 'V' EXCEPTIONS not_executed = 1 object_not_found = 2 object_not_specified = 3 permission_failure = 4. IF sy-subrc <> 0. _raise 'error from RS_DD_DELETE_OBJ, VIEW'. ENDIF. ENDMETHOD. "delete METHOD serialize. DATA: lo_xml TYPE REF TO lcl_xml, ls_file TYPE st_file, lv_name TYPE ddobjname, ls_dd25v TYPE dd25v, ls_dd09l TYPE dd09l, 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. CALL FUNCTION 'DDIF_VIEW_GET' EXPORTING name = lv_name state = 'A' langu = sy-langu IMPORTING dd25v_wa = ls_dd25v dd09l_wa = ls_dd09l TABLES dd26v_tab = lt_dd26v dd27p_tab = lt_dd27p dd28j_tab = lt_dd28j dd28v_tab = lt_dd28v EXCEPTIONS illegal_input = 1 OTHERS = 2. IF sy-subrc <> 0. _raise 'error from DDIF_VIEW_GET'. ENDIF. IF ls_dd25v IS INITIAL. RETURN. " does not exist in system ENDIF. CLEAR: ls_dd25v-as4user, ls_dd25v-as4date, ls_dd25v-as4time. CLEAR: ls_dd09l-as4user, ls_dd09l-as4date, ls_dd09l-as4time. CREATE OBJECT lo_xml. lo_xml->structure_add( ls_dd25v ). lo_xml->structure_add( ls_dd09l ). lo_xml->table_add( it_table = lt_dd26v iv_name = 'DD26V_TABLE' ). lo_xml->table_add( it_table = lt_dd27p iv_name = 'DD27P_TABLE' ). lo_xml->table_add( it_table = lt_dd28j iv_name = 'DD28J_TABLE' ). lo_xml->table_add( it_table = lt_dd28v iv_name = 'DD28V_TABLE' ). ls_file = xml_to_file( is_item = is_item io_xml = lo_xml ). APPEND ls_file TO rt_files. ENDMETHOD. "serialize METHOD deserialize. DATA: lo_xml TYPE REF TO lcl_xml, lv_name TYPE ddobjname, ls_dd25v TYPE dd25v, ls_dd09l TYPE dd09l, 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 it_files = it_files ). lo_xml->structure_read( CHANGING cg_structure = ls_dd25v ). lo_xml->structure_read( CHANGING cg_structure = ls_dd09l ). lo_xml->table_read( EXPORTING iv_name = 'DD26V_TABLE' CHANGING ct_table = lt_dd26v ). lo_xml->table_read( EXPORTING iv_name = 'DD27P_TABLE' CHANGING ct_table = lt_dd27p ). lo_xml->table_read( EXPORTING iv_name = 'DD28J_TABLE' CHANGING ct_table = lt_dd28j ). lo_xml->table_read( EXPORTING iv_name = 'DD28V_TABLE' CHANGING ct_table = lt_dd28v ). corr_insert( is_item = is_item iv_package = iv_package ). lv_name = is_item-obj_name. " type conversion CALL FUNCTION 'DDIF_VIEW_PUT' EXPORTING name = lv_name dd25v_wa = ls_dd25v dd09l_wa = ls_dd09l TABLES dd26v_tab = lt_dd26v dd27p_tab = lt_dd27p dd28j_tab = lt_dd28j dd28v_tab = lt_dd28v EXCEPTIONS view_not_found = 1 name_inconsistent = 2 view_inconsistent = 3 put_failure = 4 put_refused = 5 OTHERS = 6. IF sy-subrc <> 0. _raise 'error from DDIF_VIEW_PUT'. ENDIF. activation_add( iv_type = is_item-obj_type iv_name = is_item-obj_name ). ENDMETHOD. "deserialize ENDCLASS. "lcl_object_view IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_object_ttyp DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_ttyp DEFINITION INHERITING FROM lcl_objects_common FINAL. PUBLIC SECTION. CLASS-METHODS serialize IMPORTING is_item TYPE st_item RETURNING VALUE(rt_files) TYPE tt_files RAISING lcx_exception. CLASS-METHODS deserialize IMPORTING is_item TYPE st_item it_files TYPE tt_files iv_package TYPE devclass RAISING lcx_exception. CLASS-METHODS delete IMPORTING is_item TYPE st_item RAISING lcx_exception. CLASS-METHODS jump IMPORTING is_item TYPE st_item RAISING lcx_exception. ENDCLASS. "lcl_object_dtel DEFINITION *----------------------------------------------------------------------* * CLASS lcl_object_dtel IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_ttyp IMPLEMENTATION. METHOD jump. jump_se11( is_item = is_item iv_radio = 'RSRD1-DDTYPE' iv_field = 'RSRD1-DDTYPE_VAL' ). ENDMETHOD. "jump METHOD delete. DATA: lv_objname TYPE rsedd0-ddobjname. lv_objname = is_item-obj_name. CALL FUNCTION 'RS_DD_DELETE_OBJ' EXPORTING no_ask = abap_true objname = lv_objname objtype = 'A' EXCEPTIONS not_executed = 1 object_not_found = 2 object_not_specified = 3 permission_failure = 4. IF sy-subrc <> 0. _raise 'error from RS_DD_DELETE_OBJ, TTYP'. ENDIF. ENDMETHOD. "delete METHOD serialize. DATA: lo_xml TYPE REF TO lcl_xml, ls_file TYPE st_file, lv_name TYPE ddobjname, lt_dd42v TYPE dd42v_tab, lt_dd43v TYPE dd43v_tab, ls_dd40v TYPE dd40v. lv_name = is_item-obj_name. CALL FUNCTION 'DDIF_TTYP_GET' EXPORTING name = lv_name state = 'A' langu = sy-langu IMPORTING dd40v_wa = ls_dd40v TABLES dd42v_tab = lt_dd42v dd43v_tab = lt_dd43v EXCEPTIONS illegal_input = 1 OTHERS = 2. IF sy-subrc <> 0. _raise 'error from DDIF_TTYP_GET'. ENDIF. IF ls_dd40v IS INITIAL. RETURN. " does not exist in system ENDIF. CLEAR: ls_dd40v-as4user, ls_dd40v-as4date, ls_dd40v-as4time. CREATE OBJECT lo_xml. lo_xml->structure_add( ls_dd40v ). lo_xml->table_add( lt_dd42v ). lo_xml->table_add( lt_dd43v ). ls_file = xml_to_file( is_item = is_item io_xml = lo_xml ). APPEND ls_file TO rt_files. ENDMETHOD. "serialize METHOD deserialize. DATA: lo_xml TYPE REF TO lcl_xml, lv_name TYPE ddobjname, lt_dd42v TYPE dd42v_tab, lt_dd43v TYPE dd43v_tab, ls_dd40v TYPE dd40v. lo_xml = read_xml( is_item = is_item it_files = it_files ). lo_xml->structure_read( CHANGING cg_structure = ls_dd40v ). lo_xml->table_read( CHANGING ct_table = lt_dd42v ). lo_xml->table_read( CHANGING ct_table = lt_dd43v ). corr_insert( is_item = is_item iv_package = iv_package ). lv_name = is_item-obj_name. " type conversion CALL FUNCTION 'DDIF_TTYP_PUT' EXPORTING name = lv_name dd40v_wa = ls_dd40v TABLES dd42v_tab = lt_dd42v dd43v_tab = lt_dd43v EXCEPTIONS ttyp_not_found = 1 name_inconsistent = 2 ttyp_inconsistent = 3 put_failure = 4 put_refused = 5 OTHERS = 6. IF sy-subrc <> 0. _raise 'error from DDIF_TTYP_PUT'. ENDIF. activation_add( iv_type = is_item-obj_type iv_name = is_item-obj_name ). ENDMETHOD. "deserialize ENDCLASS. "lcl_object_ttyp IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_object_prog DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_prog DEFINITION INHERITING FROM lcl_objects_common FINAL. PUBLIC SECTION. CLASS-METHODS serialize IMPORTING is_item TYPE st_item RETURNING VALUE(rt_files) TYPE tt_files RAISING lcx_exception. CLASS-METHODS deserialize IMPORTING is_item TYPE st_item it_files TYPE tt_files iv_package TYPE devclass RAISING lcx_exception. CLASS-METHODS delete IMPORTING is_item TYPE st_item RAISING lcx_exception. CLASS-METHODS jump IMPORTING is_item TYPE st_item RAISING lcx_exception. PRIVATE SECTION. CLASS-METHODS deserialize_dynpros IMPORTING io_xml TYPE REF TO lcl_xml RAISING lcx_exception. CLASS-METHODS deserialize_cua IMPORTING io_xml TYPE REF TO lcl_xml is_item TYPE st_item RAISING lcx_exception. CLASS-METHODS deserialize_textpool IMPORTING it_tpool TYPE textpool_table is_item TYPE st_item RAISING lcx_exception. ENDCLASS. "lcl_object_prog DEFINITION *----------------------------------------------------------------------* * CLASS lcl_object_prog IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_object_prog IMPLEMENTATION. METHOD jump. * todo, ABAP4_CALL_TRANSACTION opens some strange editor * fm EDITOR_PROGRAM doesnt seem to open in new session _raise 'todo, jump, PROG'. ENDMETHOD. "jump METHOD delete. DATA: lv_program LIKE sy-repid. lv_program = is_item-obj_name. CALL FUNCTION 'RS_DELETE_PROGRAM' EXPORTING program = lv_program suppress_popup = abap_true EXCEPTIONS enqueue_lock = 1 object_not_found = 2 permission_failure = 3 reject_deletion = 4 OTHERS = 5. IF sy-subrc <> 0. _raise 'error from RS_DELETE_PROGRAM'. ENDIF. ENDMETHOD. "delete METHOD deserialize_textpool. READ TABLE it_tpool WITH KEY id = 'R' TRANSPORTING NO FIELDS. IF ( sy-subrc = 0 AND lines( it_tpool ) = 1 ) OR lines( it_tpool ) = 0. RETURN. " no action for includes ENDIF. INSERT TEXTPOOL is_item-obj_name FROM it_tpool LANGUAGE sy-langu STATE 'I'. IF sy-subrc <> 0. _raise 'error from INSERT TEXTPOOL'. ENDIF. activation_add( iv_type = 'REPT' iv_name = is_item-obj_name ). ENDMETHOD. "deserialize_textpool METHOD deserialize_cua. DATA: ls_tr_key TYPE trkey, ls_adm TYPE rsmpe_adm, lt_sta TYPE TABLE OF rsmpe_stat, lt_fun TYPE TABLE OF rsmpe_funt, lt_men TYPE TABLE OF rsmpe_men, lt_mtx TYPE TABLE OF rsmpe_mnlt, lt_act TYPE TABLE OF rsmpe_act, lt_but TYPE TABLE OF rsmpe_but, lt_pfk TYPE TABLE OF rsmpe_pfk, lt_set TYPE TABLE OF rsmpe_staf, lt_doc TYPE TABLE OF rsmpe_atrt, lt_tit TYPE TABLE OF rsmpe_titt, lt_biv TYPE TABLE OF rsmpe_buts. io_xml->structure_read( CHANGING cg_structure = ls_adm ). IF ls_adm IS INITIAL. RETURN. ENDIF. io_xml->table_read( EXPORTING iv_name = 'RSMPE_STAT_TABLE' CHANGING ct_table = lt_sta ). io_xml->table_read( EXPORTING iv_name = 'RSMPE_FUNT_TABLE' CHANGING ct_table = lt_fun ). io_xml->table_read( EXPORTING iv_name = 'RSMPE_MEN_TABLE' CHANGING ct_table = lt_men ). io_xml->table_read( EXPORTING iv_name = 'RSMPE_MNLT_TABLE' CHANGING ct_table = lt_mtx ). io_xml->table_read( EXPORTING iv_name = 'RSMPE_ACT_TABLE' CHANGING ct_table = lt_act ). io_xml->table_read( EXPORTING iv_name = 'RSMPE_BUT_TABLE' CHANGING ct_table = lt_but ). io_xml->table_read( EXPORTING iv_name = 'RSMPE_PFK_TABLE' CHANGING ct_table = lt_pfk ). io_xml->table_read( EXPORTING iv_name = 'RSMPE_STAF_TABLE' CHANGING ct_table = lt_set ). io_xml->table_read( EXPORTING iv_name = 'RSMPE_ATRT_TABLE' CHANGING ct_table = lt_doc ). io_xml->table_read( EXPORTING iv_name = 'RSMPE_TITT_TABLE' CHANGING ct_table = lt_tit ). io_xml->table_read( EXPORTING iv_name = 'RSMPE_BUTS_TABLE' CHANGING ct_table = lt_biv ). SELECT SINGLE devclass INTO ls_tr_key-devclass FROM tadir WHERE pgmid = 'R3TR' AND object = is_item-obj_type AND obj_name = is_item-obj_name. IF sy-subrc <> 0. _raise 'not found in tadir'. ENDIF. ls_tr_key-obj_type = is_item-obj_type. ls_tr_key-obj_name = is_item-obj_name. ls_tr_key-sub_type = 'CUAD'. ls_tr_key-sub_name = is_item-obj_name. CALL FUNCTION 'RS_CUA_INTERNAL_WRITE' EXPORTING program = is_item-obj_name language = sy-langu tr_key = ls_tr_key adm = ls_adm state = 'I' TABLES sta = lt_sta fun = lt_fun men = lt_men mtx = lt_mtx act = lt_act but = lt_but pfk = lt_pfk set = lt_set doc = lt_doc tit = lt_tit biv = lt_biv EXCEPTIONS not_found = 1 OTHERS = 2. IF sy-subrc <> 0. _raise 'error from RS_CUA_INTERNAL_WRITE'. ENDIF. activation_add( iv_type = 'CUAD' iv_name = is_item-obj_name ). ENDMETHOD. "deserialize_cua METHOD serialize. rt_files = serialize_program( is_item ). ENDMETHOD. "lif_serialize~serialize METHOD deserialize. DATA: lo_xml TYPE REF TO lcl_xml, ls_progdir TYPE ty_progdir, lt_tpool TYPE textpool_table, lt_source TYPE abaptxt255_tab. lo_xml = read_xml( is_item = is_item it_files = it_files ). read_abap( EXPORTING is_item = is_item it_files = it_files CHANGING ct_abap = lt_source ). lo_xml->table_read( CHANGING ct_table = lt_tpool ). lo_xml->structure_read( EXPORTING iv_name = 'PROGDIR' CHANGING cg_structure = ls_progdir ). deserialize_program( is_progdir = ls_progdir it_source = lt_source it_tpool = lt_tpool iv_package = iv_package ). deserialize_dynpros( lo_xml ). deserialize_cua( is_item = is_item io_xml = lo_xml ). deserialize_textpool( is_item = is_item it_tpool = lt_tpool ). ENDMETHOD. "lif_serialize~deserialize METHOD deserialize_dynpros. DATA: li_element TYPE REF TO if_ixml_element, ls_header TYPE rpy_dyhead, lt_containers TYPE dycatt_tab, lv_name TYPE dwinactiv-obj_name, lt_fields_to_containers TYPE dyfatc_tab, lt_flow_logic TYPE swydyflow. DO. li_element = io_xml->xml_find( 'SCREEN' ). IF NOT li_element IS BOUND. EXIT. " current loop ENDIF. io_xml->structure_read( EXPORTING ii_root = li_element CHANGING cg_structure = ls_header ). io_xml->table_read( EXPORTING ii_root = li_element CHANGING ct_table = lt_containers ). io_xml->table_read( EXPORTING ii_root = li_element CHANGING ct_table = lt_fields_to_containers ). io_xml->table_read( EXPORTING ii_root = li_element CHANGING ct_table = lt_flow_logic ). CALL FUNCTION 'RPY_DYNPRO_INSERT' EXPORTING header = ls_header suppress_exist_checks = abap_true TABLES containers = lt_containers fields_to_containers = lt_fields_to_containers flow_logic = lt_flow_logic EXCEPTIONS cancelled = 1 already_exists = 2 program_not_exists = 3 not_executed = 4 missing_required_field = 5 illegal_field_value = 6 field_not_allowed = 7 not_generated = 8 illegal_field_position = 9 OTHERS = 10. IF sy-subrc <> 2 AND sy-subrc <> 0. _raise 'error from RPY_DYNPRO_INSERT'. ENDIF. * todo, RPY_DYNPRO_UPDATE? CONCATENATE ls_header-program ls_header-screen INTO lv_name RESPECTING BLANKS. activation_add( iv_type = 'DYNP' iv_name = lv_name ). ENDDO. ENDMETHOD. "deserialize_dynpros ENDCLASS. "lcl_object_prog IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_object DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_objects DEFINITION FINAL. PUBLIC SECTION. CLASS-METHODS serialize IMPORTING is_item TYPE st_item RETURNING VALUE(rt_files) TYPE tt_files RAISING lcx_exception. CLASS-METHODS status IMPORTING it_files TYPE tt_files iv_package TYPE devclass OPTIONAL RETURNING VALUE(rt_results) TYPE tt_results RAISING lcx_exception. CLASS-METHODS deserialize IMPORTING it_files TYPE tt_files iv_package TYPE devclass RAISING lcx_exception. CLASS-METHODS delete IMPORTING it_tadir TYPE tt_tadir RAISING lcx_exception. CLASS-METHODS jump IMPORTING is_item TYPE st_item RAISING lcx_exception. PRIVATE SECTION. CLASS-METHODS delete_obj IMPORTING is_item TYPE st_item RAISING lcx_exception. CLASS-METHODS class_name IMPORTING is_item TYPE st_item RETURNING VALUE(rv_class_name) TYPE string. CLASS-METHODS compare_files IMPORTING it_repo TYPE tt_files is_gen TYPE st_file RETURNING VALUE(rv_match) TYPE sap_bool RAISING lcx_exception. CLASS-METHODS activate RAISING lcx_exception. ENDCLASS. "lcl_object DEFINITION *----------------------------------------------------------------------* * CLASS lcl_object IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_objects IMPLEMENTATION. METHOD class_name. CONCATENATE 'LCL_OBJECT_' is_item-obj_type INTO rv_class_name. "#EC NOTEXT IF rv_class_name = 'LCL_OBJECT_INTF'. rv_class_name = 'LCL_OBJECT_CLAS'. ENDIF. ENDMETHOD. "class_name METHOD jump. DATA: lv_class_name TYPE string, lv_message TYPE string. lv_class_name = class_name( is_item ). TRY. CALL METHOD (lv_class_name)=>jump EXPORTING is_item = is_item. CATCH cx_sy_dyn_call_illegal_class cx_sy_dyn_call_illegal_method. CONCATENATE 'Object type' is_item-obj_type 'not supported, jump' INTO lv_message SEPARATED BY space. "#EC NOTEXT _raise lv_message. ENDTRY. ENDMETHOD. "jump METHOD delete. DATA: ls_item TYPE st_item, lt_tadir LIKE it_tadir. FIELD-SYMBOLS: LIKE LINE OF it_tadir. * misuse field KORRNUM to fix deletion sequence lt_tadir[] = it_tadir[]. LOOP AT lt_tadir ASSIGNING . CASE -object. WHEN 'TABL' OR 'TTYP' OR 'VIEW'. -korrnum = '7000'. WHEN 'DTEL'. -korrnum = '8000'. WHEN 'DOMA'. -korrnum = '9000'. WHEN OTHERS. -korrnum = '1000'. ENDCASE. ENDLOOP. SORT lt_tadir BY korrnum ASCENDING. LOOP AT lt_tadir ASSIGNING . CLEAR ls_item. ls_item-obj_type = -object. ls_item-obj_name = -obj_name. lcl_objects=>delete_obj( ls_item ). ENDLOOP. ENDMETHOD. "delete METHOD delete_obj. DATA: lv_class_name TYPE string, lv_message TYPE string. lv_class_name = class_name( is_item ). TRY. CALL METHOD (lv_class_name)=>delete EXPORTING is_item = is_item. CATCH cx_sy_dyn_call_illegal_class cx_sy_dyn_call_illegal_method. CONCATENATE 'Object type' is_item-obj_type 'not supported, delete' INTO lv_message SEPARATED BY space. "#EC NOTEXT _raise lv_message. ENDTRY. ENDMETHOD. "delete METHOD serialize. DATA: lt_files TYPE tt_files, lv_class_name TYPE string, lv_message TYPE string. lv_class_name = class_name( is_item ). TRY. CALL METHOD (lv_class_name)=>serialize EXPORTING is_item = is_item RECEIVING rt_files = rt_files. CATCH cx_sy_dyn_call_illegal_class cx_sy_dyn_call_illegal_method. CONCATENATE 'Object type' is_item-obj_type 'not supported, serialize' INTO lv_message SEPARATED BY space. "#EC NOTEXT _raise lv_message. ENDTRY. * check for duplicates lt_files[] = rt_files[]. SORT lt_files BY path ASCENDING filename ASCENDING. DELETE ADJACENT DUPLICATES FROM lt_files COMPARING path filename. IF lines( lt_files ) <> lines( rt_files ). _raise 'Duplicates'. ENDIF. ENDMETHOD. "serialize METHOD status. DATA: lv_pre TYPE tadir-obj_name, lt_files TYPE tt_files, ls_result LIKE LINE OF rt_results, lv_type TYPE string, ls_item TYPE st_item, lt_tadir TYPE TABLE OF tadir, lv_ext TYPE string. FIELD-SYMBOLS: LIKE LINE OF it_files, LIKE LINE OF lt_tadir, LIKE LINE OF lt_files. LOOP AT it_files ASSIGNING . SPLIT -filename AT '.' INTO lv_pre lv_type lv_ext. TRANSLATE lv_pre TO UPPER CASE. TRANSLATE lv_type TO UPPER CASE. IF lv_ext <> 'xml' OR strlen( lv_type ) <> 4. CONTINUE. " current loop ENDIF. * handle namespaces REPLACE ALL OCCURRENCES OF '#' IN lv_pre WITH '/'. CLEAR ls_result. ls_result-obj_type = lv_type. ls_result-obj_name = lv_pre. CLEAR ls_item. ls_item-obj_type = lv_type. ls_item-obj_name = lv_pre. lt_files = serialize( ls_item ). IF lt_files[] IS INITIAL. * item does not exist locally ls_result-filename = -filename. APPEND ls_result TO rt_results. CONTINUE. " current loop ENDIF. LOOP AT lt_files ASSIGNING . ls_result-filename = -filename. ls_result-match = compare_files( it_repo = it_files is_gen = ). APPEND ls_result TO rt_results. ENDLOOP. ENDLOOP. * find files only existing remotely, including non abapGit related LOOP AT it_files ASSIGNING . READ TABLE rt_results WITH KEY filename = -filename TRANSPORTING NO FIELDS. IF sy-subrc <> 0. CLEAR ls_result. ls_result-match = abap_true. ls_result-filename = -filename. APPEND ls_result TO rt_results. ENDIF. ENDLOOP. * find objects only existing locally IF NOT iv_package IS INITIAL. SELECT * FROM tadir INTO TABLE lt_tadir WHERE devclass = iv_package AND object <> 'DEVC'. "#EC * LOOP AT lt_tadir ASSIGNING . READ TABLE rt_results WITH KEY obj_type = -object obj_name = -obj_name TRANSPORTING NO FIELDS. IF sy-subrc <> 0. CLEAR ls_result. ls_result-match = abap_true. ls_result-obj_type = -object. ls_result-obj_name = -obj_name. APPEND ls_result TO rt_results. ENDIF. ENDLOOP. ENDIF. SORT rt_results BY obj_type ASCENDING obj_name ASCENDING filename ASCENDING. DELETE ADJACENT DUPLICATES FROM rt_results COMPARING obj_type obj_name filename. ENDMETHOD. "status METHOD deserialize. DATA: ls_item TYPE st_item, lv_class_name TYPE string, lv_message TYPE string, lt_results TYPE tt_results. FIELD-SYMBOLS: LIKE LINE OF lt_results. CLEAR lcl_objects_common=>gt_ddic[]. CLEAR lcl_objects_common=>gt_programs[]. lt_results = status( it_files = it_files iv_package = iv_package ). DELETE lt_results WHERE match = abap_true. SORT lt_results BY obj_type ASCENDING obj_name ASCENDING. DELETE ADJACENT DUPLICATES FROM lt_results COMPARING obj_type obj_name. LOOP AT lt_results ASSIGNING . CLEAR ls_item. ls_item-obj_type = -obj_type. ls_item-obj_name = -obj_name. * handle namespaces REPLACE ALL OCCURRENCES OF '#' IN ls_item-obj_name WITH '/'. lv_class_name = class_name( ls_item ). TRY. CALL METHOD (lv_class_name)=>deserialize EXPORTING is_item = ls_item it_files = it_files iv_package = iv_package. CATCH cx_sy_dyn_call_illegal_class cx_sy_dyn_call_illegal_method. CONCATENATE 'Object type' ls_item-obj_type 'not supported, deserialize' INTO lv_message SEPARATED BY space. "#EC NOTEXT _raise lv_message. ENDTRY. ENDLOOP. activate( ). ENDMETHOD. "deserialize METHOD activate. * ddic IF NOT lcl_objects_common=>gt_ddic[] IS INITIAL. CALL FUNCTION 'RS_WORKING_OBJECTS_ACTIVATE' EXPORTING activate_ddic_objects = abap_true with_popup = abap_true TABLES objects = lcl_objects_common=>gt_ddic EXCEPTIONS excecution_error = 1 cancelled = 2 insert_into_corr_error = 3 OTHERS = 4. IF sy-subrc <> 0. _raise 'error from RS_WORKING_OBJECTS_ACTIVATE'. ENDIF. ENDIF. * programs IF NOT lcl_objects_common=>gt_programs[] IS INITIAL. CALL FUNCTION 'RS_WORKING_OBJECTS_ACTIVATE' EXPORTING activate_ddic_objects = abap_false with_popup = abap_true TABLES objects = lcl_objects_common=>gt_programs EXCEPTIONS excecution_error = 1 cancelled = 2 insert_into_corr_error = 3 OTHERS = 4. IF sy-subrc <> 0. _raise 'error from RS_WORKING_OBJECTS_ACTIVATE'. ENDIF. ENDIF. ENDMETHOD. "activate METHOD compare_files. READ TABLE it_repo WITH KEY path = is_gen-path filename = is_gen-filename data = is_gen-data TRANSPORTING NO FIELDS. IF sy-subrc <> 0. rv_match = abap_false. ELSE. rv_match = abap_true. ENDIF. ENDMETHOD. "compare_files ENDCLASS. "lcl_object IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_hash DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_hash DEFINITION FINAL. PUBLIC SECTION. CLASS-METHODS adler32 IMPORTING iv_xstring TYPE xstring 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 RAISING lcx_exception. CLASS-METHODS sha1_raw IMPORTING iv_data TYPE xstring RETURNING VALUE(rv_sha1) TYPE t_sha1 RAISING lcx_exception. ENDCLASS. "lcl_hash DEFINITION *----------------------------------------------------------------------* * CLASS lcl_hash IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_hash IMPLEMENTATION. METHOD adler32. CONSTANTS: lc_adler TYPE i VALUE 65521. DATA: lv_index TYPE i, lv_a TYPE i VALUE 1, lv_b TYPE i VALUE 0, lv_x TYPE x LENGTH 2, lv_ca TYPE c LENGTH 4, lv_cb TYPE c LENGTH 4, lv_char8 TYPE c LENGTH 8. DO xstrlen( iv_xstring ) TIMES. lv_index = sy-index - 1. lv_a = ( lv_a + iv_xstring+lv_index(1) ) MOD lc_adler. lv_b = ( lv_b + lv_a ) MOD lc_adler. ENDDO. lv_x = lv_a. lv_ca = lv_x. lv_x = lv_b. lv_cb = lv_x. CONCATENATE lv_cb lv_ca INTO lv_char8. rv_checksum = lv_char8. ENDMETHOD. "adler32 METHOD sha1_raw. DATA: lv_hash TYPE hash160. CALL FUNCTION 'CALCULATE_HASH_FOR_RAW' EXPORTING data = iv_data IMPORTING hash = lv_hash EXCEPTIONS unknown_alg = 1 param_error = 2 internal_error = 3 OTHERS = 4. IF sy-subrc <> 0. _raise 'Error while calculating SHA1'. ENDIF. rv_sha1 = lv_hash. ENDMETHOD. "sha1_raw METHOD sha1. DATA: lv_len TYPE i, lv_char10 TYPE c LENGTH 10, lv_string TYPE string, lv_xstring TYPE xstring. lv_len = xstrlen( iv_data ). lv_char10 = lv_len. CONDENSE lv_char10. CONCATENATE iv_type lv_char10 INTO lv_string SEPARATED BY space. lv_xstring = lcl_convert=>string_to_xstring_utf8( lv_string ). lv_string = lv_xstring. CONCATENATE lv_string '00' INTO lv_string. lv_xstring = lv_string. CONCATENATE lv_xstring iv_data INTO lv_xstring IN BYTE MODE. rv_sha1 = sha1_raw( lv_xstring ). ENDMETHOD. "sha1 ENDCLASS. "lcl_hash IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_pack DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_pack DEFINITION FINAL. PUBLIC SECTION. CLASS-METHODS decode IMPORTING iv_data TYPE xstring 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 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 RAISING lcx_exception. CLASS-METHODS encode IMPORTING it_objects TYPE tt_objects 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. CLASS-METHODS encode_commit IMPORTING is_commit TYPE st_commit RETURNING VALUE(rv_data) TYPE xstring. PRIVATE SECTION. CONSTANTS: c_pack_start TYPE x LENGTH 4 VALUE '5041434B', " PACK c_debug_pack TYPE sap_bool VALUE abap_false, c_zlib TYPE x LENGTH 2 VALUE '789C', c_zlib_hmm TYPE x LENGTH 2 VALUE '7801', 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 RAISING lcx_exception. CLASS-METHODS delta IMPORTING is_object TYPE st_object CHANGING ct_objects TYPE tt_objects RAISING lcx_exception. 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 RAISING lcx_exception. CLASS-METHODS get_length EXPORTING ev_length TYPE i CHANGING cv_data TYPE xstring. ENDCLASS. "lcl_pack DEFINITION *----------------------------------------------------------------------* * CLASS lcl_pack IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_pack IMPLEMENTATION. METHOD type_and_length. DATA: lv_bits TYPE string, lv_type TYPE string, lv_result TYPE string, lv_c TYPE c, lv_offset TYPE i, lv_x4 TYPE x LENGTH 4, lv_x TYPE x LENGTH 1. CASE is_object-type. WHEN gc_commit. lv_type = '001'. WHEN gc_tree. lv_type = '010'. WHEN gc_blob. lv_type = '011'. WHEN gc_ref_d. lv_type = '111'. WHEN OTHERS. _raise 'Unexpected object type while encoding pack'. ENDCASE. lv_x4 = xstrlen( is_object-data ). DO 32 TIMES. GET BIT sy-index OF lv_x4 INTO lv_c. CONCATENATE lv_bits lv_c INTO lv_bits. ENDDO. IF lv_bits(28) = '0000000000000000000000000000'. CONCATENATE '0' lv_type lv_bits+28(4) INTO lv_result. ELSEIF lv_bits(21) = '000000000000000000000'. CONCATENATE '1' lv_type lv_bits+28(4) INTO lv_result. CONCATENATE lv_result '0' lv_bits+21(7) INTO lv_result. ELSEIF lv_bits(14) = '00000000000000'. CONCATENATE '1' lv_type lv_bits+28(4) INTO lv_result. CONCATENATE lv_result '1' lv_bits+21(7) INTO lv_result. CONCATENATE lv_result '0' lv_bits+14(7) INTO lv_result. ELSE. * use shifting? _raise 'Todo, encoding length'. ENDIF. * convert bit string to xstring CLEAR lv_x. DO strlen( lv_result ) TIMES. lv_offset = sy-index - 1. IF lv_result+lv_offset(1) = '1'. SET BIT ( lv_offset MOD 8 ) + 1 OF lv_x. ENDIF. IF ( lv_offset + 1 ) MOD 8 = 0. CONCATENATE rv_xstring lv_x INTO rv_xstring IN BYTE MODE. CLEAR lv_x. ENDIF. ENDDO. ENDMETHOD. "type_and_length METHOD get_length. DATA: lv_x TYPE x, lv_length_bits TYPE string, lv_bitbyte TYPE t_bitbyte. lv_x = cv_data(1). IF c_debug_pack = abap_true. WRITE: / 'A:', lv_x, '(hex)'. "#EC NOTEXT ENDIF. lv_bitbyte = lcl_convert=>x_to_bitbyte( lv_x ). IF c_debug_pack = abap_true. WRITE: lv_bitbyte. ENDIF. cv_data = cv_data+1. lv_length_bits = lv_bitbyte+4. WHILE lv_bitbyte(1) <> '0'. lv_x = cv_data(1). IF c_debug_pack = abap_true. WRITE: / 'x:', lv_x, '(hex)'. "#EC NOTEXT ENDIF. lv_bitbyte = lcl_convert=>x_to_bitbyte( lv_x ). IF c_debug_pack = abap_true. WRITE: lv_bitbyte. ENDIF. cv_data = cv_data+1. CONCATENATE lv_bitbyte+1 lv_length_bits INTO lv_length_bits. ENDWHILE. ev_length = lcl_convert=>bitbyte_to_int( lv_length_bits ). ENDMETHOD. "get_length METHOD encode_tree. DATA: lv_string TYPE string, lv_null TYPE x, lt_nodes LIKE it_nodes, lv_xstring TYPE xstring. FIELD-SYMBOLS: LIKE LINE OF it_nodes. lv_null = '00'. lt_nodes[] = it_nodes[]. * following has to be done, or unpack will fail on server side SORT lt_nodes BY name ASCENDING. LOOP AT lt_nodes ASSIGNING . CONCATENATE -chmod -name INTO lv_string SEPARATED BY space. lv_xstring = lcl_convert=>string_to_xstring_utf8( lv_string ). CONCATENATE rv_data lv_xstring lv_null -sha1 INTO rv_data IN BYTE MODE. ENDLOOP. ENDMETHOD. "encode_tree METHOD encode_commit. DATA: lv_string TYPE string, lv_tmp TYPE string, lv_tree_lower TYPE string, lv_parent_lower TYPE string. lv_tree_lower = is_commit-tree. TRANSLATE lv_tree_lower TO LOWER CASE. lv_parent_lower = is_commit-parent. TRANSLATE lv_parent_lower TO LOWER CASE. lv_string = ''. CONCATENATE 'tree' lv_tree_lower INTO lv_tmp SEPARATED BY space. "#EC NOTEXT CONCATENATE lv_string lv_tmp gc_newline INTO lv_string. IF NOT is_commit-parent IS INITIAL. CONCATENATE 'parent' lv_parent_lower INTO lv_tmp SEPARATED BY space. "#EC NOTEXT CONCATENATE lv_string lv_tmp gc_newline INTO lv_string. ENDIF. CONCATENATE 'author' is_commit-author INTO lv_tmp SEPARATED BY space. "#EC NOTEXT CONCATENATE lv_string lv_tmp gc_newline INTO lv_string. CONCATENATE 'committer' is_commit-committer INTO lv_tmp SEPARATED BY space. "#EC NOTEXT CONCATENATE lv_string lv_tmp gc_newline INTO lv_string. CONCATENATE lv_string gc_newline is_commit-body INTO lv_string. rv_data = lcl_convert=>string_to_xstring_utf8( lv_string ). ENDMETHOD. "encode_commit METHOD get_type. DATA: lv_char3 TYPE c LENGTH 3, lv_bitbyte TYPE t_bitbyte. lv_bitbyte = lcl_convert=>x_to_bitbyte( iv_x ). lv_char3 = lv_bitbyte+1. CASE lv_char3. WHEN '001'. rv_type = gc_commit. WHEN '010'. rv_type = gc_tree. WHEN '011'. rv_type = gc_blob. WHEN '111'. rv_type = gc_ref_d. WHEN OTHERS. _raise 'Todo, unknown type'. ENDCASE. ENDMETHOD. "get_type METHOD decode_commit. DATA: lv_string TYPE string, lv_char40 TYPE c LENGTH 40, lv_mode TYPE string, lv_len TYPE i, lt_string TYPE TABLE OF string. FIELD-SYMBOLS: LIKE LINE OF lt_string. lv_string = lcl_convert=>xstring_to_string_utf8( iv_data ). SPLIT lv_string AT gc_newline INTO TABLE lt_string. lv_mode = 'tree'. "#EC NOTEXT LOOP AT lt_string ASSIGNING . lv_len = strlen( lv_mode ). IF NOT lv_mode IS INITIAL AND (lv_len) = lv_mode. CASE lv_mode. WHEN 'tree'. lv_char40 = +5. TRANSLATE lv_char40 TO UPPER CASE. rs_commit-tree = lv_char40. lv_mode = 'parent'. "#EC NOTEXT WHEN 'parent'. lv_char40 = +7. TRANSLATE lv_char40 TO UPPER CASE. rs_commit-parent = lv_char40. lv_mode = 'author'. "#EC NOTEXT WHEN 'author'. rs_commit-author = +7. lv_mode = 'committer'. "#EC NOTEXT WHEN 'committer'. rs_commit-committer = +10. CLEAR lv_mode. ENDCASE. ELSEIF lv_mode = 'parent' AND (6) = 'author'. "#EC NOTEXT * first commit doesnt have parent rs_commit-author = +7. lv_mode = 'committer'. "#EC NOTEXT ELSE. * body CONCATENATE rs_commit-body INTO rs_commit-body SEPARATED BY gc_newline. ENDIF. ENDLOOP. * strip first newline IF strlen( rs_commit-body ) >= 2. rs_commit-body = rs_commit-body+2. ENDIF. IF rs_commit-author IS INITIAL OR rs_commit-committer IS INITIAL OR rs_commit-tree IS INITIAL. _raise 'multiple parents? not supported'. ENDIF. ENDMETHOD. "decode_commit METHOD delta_header. DATA: lv_bitbyte TYPE t_bitbyte, lv_header1 TYPE i, "#EC NEEDED lv_header2 TYPE i, "#EC NEEDED lv_bits TYPE string, lv_x TYPE x. * todo, use headers for verification * Header 1 lv_bits = ''. DO. lv_x = cv_delta(1). cv_delta = cv_delta+1. lv_bitbyte = lcl_convert=>x_to_bitbyte( lv_x ). CONCATENATE lv_bitbyte+1 lv_bits INTO lv_bits. IF lv_bitbyte(1) = '0'. EXIT. " current loop ENDIF. ENDDO. lv_header1 = lcl_convert=>bitbyte_to_int( lv_bits ). * Header 2 lv_bits = ''. DO. lv_x = cv_delta(1). cv_delta = cv_delta+1. lv_bitbyte = lcl_convert=>x_to_bitbyte( lv_x ). CONCATENATE lv_bitbyte+1 lv_bits INTO lv_bits. IF lv_bitbyte(1) = '0'. EXIT. " current loop ENDIF. ENDDO. lv_header2 = lcl_convert=>bitbyte_to_int( lv_bits ). ENDMETHOD. "delta_header METHOD delta. DATA: lv_delta TYPE xstring, lv_base TYPE xstring, lv_result TYPE xstring, lv_bitbyte TYPE t_bitbyte, lv_offset TYPE i, lv_message TYPE string, lv_sha1 TYPE t_sha1, lv_char40 TYPE c LENGTH 40, ls_object LIKE LINE OF ct_objects, lv_len TYPE i, lv_x TYPE x. FIELD-SYMBOLS: LIKE LINE OF ct_objects. lv_delta = is_object-data. * find base READ TABLE ct_objects ASSIGNING WITH KEY sha1 = is_object-sha1. IF sy-subrc <> 0. lv_char40 = is_object-sha1. CONCATENATE 'Base not found,' lv_char40 INTO lv_message SEPARATED BY space. "#EC NOTEXT _raise lv_message. ELSE. lv_base = -data. ENDIF. * sanity check IF -type = gc_ref_d. _raise 'Delta, base eq delta'. ENDIF. delta_header( CHANGING cv_delta = lv_delta ). WHILE xstrlen( lv_delta ) > 0. lv_x = lv_delta(1). lv_delta = lv_delta+1. lv_bitbyte = lcl_convert=>x_to_bitbyte( lv_x ). IF lv_bitbyte(1) = '1'. " MSB lv_offset = 0. IF lv_bitbyte+7(1) = '1'. lv_x = lv_delta(1). lv_delta = lv_delta+1. lv_offset = lv_x. ENDIF. IF lv_bitbyte+6(1) = '1'. lv_x = lv_delta(1). lv_delta = lv_delta+1. lv_offset = lv_offset + lv_x * 256. ENDIF. IF lv_bitbyte+5(1) = '1'. lv_x = lv_delta(1). lv_delta = lv_delta+1. lv_offset = lv_offset + lv_x * 65536. ENDIF. IF lv_bitbyte+4(1) = '1'. lv_x = lv_delta(1). lv_delta = lv_delta+1. lv_offset = lv_offset + lv_x * 16777216. " hmm, overflow? ENDIF. lv_len = 0. IF lv_bitbyte+3(1) = '1'. lv_x = lv_delta(1). lv_delta = lv_delta+1. lv_len = lv_x. ENDIF. IF lv_bitbyte+2(1) = '1'. lv_x = lv_delta(1). lv_delta = lv_delta+1. lv_len = lv_len + lv_x * 256. ENDIF. IF lv_bitbyte+1(1) = '1'. lv_x = lv_delta(1). lv_delta = lv_delta+1. lv_len = lv_len + lv_x * 65536. ENDIF. IF lv_len = 0. lv_len = 65536. ENDIF. CONCATENATE lv_result lv_base+lv_offset(lv_len) INTO lv_result IN BYTE MODE. ELSE. " lv_bitbyte(1) = '0' * insert from delta lv_len = lv_x. CONCATENATE lv_result lv_delta(lv_len) INTO lv_result IN BYTE MODE. lv_delta = lv_delta+lv_len. ENDIF. ENDWHILE. lv_sha1 = lcl_hash=>sha1( iv_type = -type iv_data = lv_result ). lcl_debug=>message( 'Delta,' && -type && ',new sha1, ' && lv_sha1 && ',old: ' && -sha1 ). "#EC NOTEXT CLEAR ls_object. ls_object-sha1 = lv_sha1. ls_object-type = -type. ls_object-data = lv_result. APPEND ls_object TO ct_objects. ENDMETHOD. "delta METHOD decode_deltas. DATA: ls_object LIKE LINE OF ct_objects, lt_deltas LIKE ct_objects. LOOP AT ct_objects INTO ls_object WHERE type = gc_ref_d. DELETE ct_objects INDEX sy-tabix. APPEND ls_object TO lt_deltas. ENDLOOP. LOOP AT lt_deltas INTO ls_object. delta( EXPORTING is_object = ls_object CHANGING ct_objects = ct_objects ). ENDLOOP. ENDMETHOD. "decode_deltas METHOD decode_tree. CONSTANTS: lc_sha_length TYPE i VALUE 20. DATA: lv_xstring TYPE xstring, lv_chmod TYPE string, lv_name TYPE string, lv_string TYPE string, lv_len TYPE i, lv_offset TYPE i, lv_cursor TYPE i, ls_node TYPE st_node, lv_start TYPE i. DO. IF lv_cursor >= xstrlen( iv_data ). EXIT. " current loop ENDIF. IF iv_data+lv_cursor(1) = '00'. lv_len = lv_cursor - lv_start. lv_xstring = iv_data+lv_start(lv_len). lv_string = lcl_convert=>xstring_to_string_utf8( lv_xstring ). SPLIT lv_string AT space INTO lv_chmod lv_name. lv_offset = lv_cursor + 1. CLEAR ls_node. ls_node-chmod = lv_chmod. IF ls_node-chmod <> gc_chmod_dir AND ls_node-chmod <> gc_chmod_file. _raise 'Unknown chmod'. ENDIF. ls_node-name = lv_name. ls_node-sha1 = iv_data+lv_offset(lc_sha_length). APPEND ls_node TO rt_nodes. lv_start = lv_cursor + 1 + lc_sha_length. lv_cursor = lv_start. ELSE. lv_cursor = lv_cursor + 1. ENDIF. ENDDO. ENDMETHOD. "decode_tree METHOD decode. DATA: lv_x TYPE x, lv_data TYPE xstring, lv_type TYPE c LENGTH 6, lv_zlib TYPE x LENGTH 2, lv_objects TYPE i, lv_len TYPE i, lv_sha1 TYPE t_sha1, lv_ref_delta TYPE t_sha1, lv_adler32 TYPE t_adler32, lv_compressed TYPE xstring, lv_compressed_len TYPE i, lv_decompress_len TYPE i, lv_decompressed TYPE xstring, lv_xstring TYPE xstring, lv_expected TYPE i, ls_object LIKE LINE OF rt_objects. lv_data = iv_data. * header IF NOT xstrlen( lv_data ) > 4 OR lv_data(4) <> c_pack_start. _raise 'Unexpected pack header'. ENDIF. lv_data = lv_data+4. * version IF lv_data(4) <> c_version. _raise 'Version not supported'. ENDIF. lv_data = lv_data+4. * number of objects lv_xstring = lv_data(4). lv_objects = lcl_convert=>xstring_to_int( lv_xstring ). lv_data = lv_data+4. DO lv_objects TIMES. lv_x = lv_data(1). lv_type = get_type( lv_x ). get_length( IMPORTING ev_length = lv_expected CHANGING cv_data = lv_data ). IF lv_type = gc_ref_d. lv_ref_delta = lv_data(20). lv_data = lv_data+20. ENDIF. * strip header, '789C', CMF + FLG lv_zlib = lv_data(2). IF lv_zlib <> c_zlib AND lv_zlib <> c_zlib_hmm. _raise 'Unexpected zlib header'. ENDIF. lv_data = lv_data+2. ******************************* IF lv_zlib = c_zlib. cl_abap_gzip=>decompress_binary( EXPORTING gzip_in = lv_data IMPORTING raw_out = lv_decompressed raw_out_len = lv_decompress_len ). IF lv_expected <> lv_decompress_len. _raise 'Decompression falied'. ENDIF. cl_abap_gzip=>compress_binary( EXPORTING raw_in = lv_decompressed IMPORTING gzip_out = lv_compressed gzip_out_len = lv_compressed_len ). IF lv_compressed(lv_compressed_len) <> lv_data(lv_compressed_len). _raise 'Compressed data doesnt match'. ENDIF. lv_data = lv_data+lv_compressed_len. lv_data = lv_data+4. " skip adler checksum ELSEIF lv_zlib = c_zlib_hmm. * this takes some processing, when time permits, implement DEFLATE algorithm * cl_abap_gzip copmression works for '789C', but does not produce the same * result when '7801' * compressed data might be larger than origial so add 10, adding 10 is safe * as package always ends with sha1 checksum DO lv_expected + 10 TIMES. lv_compressed_len = sy-index. cl_abap_gzip=>decompress_binary( EXPORTING gzip_in = lv_data gzip_in_len = lv_compressed_len IMPORTING raw_out = lv_decompressed raw_out_len = lv_decompress_len ). IF lv_decompress_len = lv_expected. EXIT. ELSE. CLEAR lv_compressed_len. ENDIF. ENDDO. IF lv_compressed_len IS INITIAL. _raise 'Decompression falied :o/'. ENDIF. lv_data = lv_data+lv_compressed_len. lv_adler32 = lcl_hash=>adler32( lv_decompressed ). IF lv_data(4) <> lv_adler32. lv_data = lv_data+1. ENDIF. IF lv_data(4) <> lv_adler32. lv_data = lv_data+1. ENDIF. IF lv_data(4) <> lv_adler32. _raise 'Wrong Adler checksum'. ENDIF. lv_data = lv_data+4. " skip adler checksum ENDIF. ************************* CLEAR ls_object. IF lv_type = gc_ref_d. ls_object-sha1 = lv_ref_delta. ELSE. ls_object-sha1 = lcl_hash=>sha1( iv_type = lv_type iv_data = lv_decompressed ). ENDIF. ls_object-type = lv_type. ls_object-data = lv_decompressed. APPEND ls_object TO rt_objects. IF c_debug_pack = abap_true. WRITE: /. ENDIF. ENDDO. * check SHA1 at end of pack lv_len = xstrlen( iv_data ) - 20. lv_xstring = iv_data(lv_len). lv_sha1 = lcl_hash=>sha1_raw( lv_xstring ). IF lv_sha1 <> lv_data. _raise 'SHA1 at end of pack doesnt match'. ENDIF. ENDMETHOD. "decode METHOD encode. DATA: lv_sha1 TYPE t_sha1, lv_adler32 TYPE t_adler32, lv_len TYPE i, lv_compressed TYPE xstring, lv_xstring TYPE xstring. FIELD-SYMBOLS: LIKE LINE OF it_objects. rv_data = c_pack_start. CONCATENATE rv_data c_version INTO rv_data IN BYTE MODE. lv_len = lines( it_objects ). lv_xstring = lcl_convert=>int_to_xstring( iv_i = lv_len iv_length = 4 ). CONCATENATE rv_data lv_xstring INTO rv_data IN BYTE MODE. LOOP AT it_objects ASSIGNING . lv_xstring = type_and_length( ). CONCATENATE rv_data lv_xstring INTO rv_data IN BYTE MODE. cl_abap_gzip=>compress_binary( EXPORTING raw_in = -data IMPORTING gzip_out = lv_compressed ). CONCATENATE rv_data c_zlib lv_compressed INTO rv_data IN BYTE MODE. lv_adler32 = lcl_hash=>adler32( -data ). CONCATENATE rv_data lv_adler32 INTO rv_data IN BYTE MODE. ENDLOOP. lv_sha1 = lcl_hash=>sha1_raw( rv_data ). CONCATENATE rv_data lv_sha1 INTO rv_data IN BYTE MODE. ENDMETHOD. "encode ENDCLASS. "lcl_pack IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_persistence DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_persistence DEFINITION FINAL. PUBLIC SECTION. CLASS-METHODS list RETURNING VALUE(rt_repos) TYPE tt_repos_persi RAISING lcx_exception. CLASS-METHODS update IMPORTING is_repo TYPE st_repo iv_branch TYPE t_sha1 RAISING lcx_exception. CLASS-METHODS add IMPORTING is_repo TYPE st_repo iv_branch TYPE t_sha1 iv_package TYPE devclass RAISING lcx_exception. CLASS-METHODS validate_package IMPORTING iv_package TYPE devclass RAISING lcx_exception. CLASS-METHODS delete IMPORTING is_repo TYPE st_repo_persi RAISING lcx_exception. PRIVATE SECTION. CLASS-METHODS read_text RETURNING VALUE(rt_repos) TYPE tt_repos_persi RAISING lcx_exception. CLASS-METHODS save_text IMPORTING it_repos TYPE tt_repos_persi RAISING lcx_exception. CLASS-METHODS header RETURNING VALUE(rs_header) TYPE thead. ENDCLASS. "lcl_persistence DEFINITION *----------------------------------------------------------------------* * CLASS lcl_persistence IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_persistence IMPLEMENTATION. METHOD header. rs_header-tdid = 'ST'. rs_header-tdspras = 'E'. rs_header-tdname = 'ZABAPGIT'. rs_header-tdobject = 'TEXT'. ENDMETHOD. "header METHOD delete. DATA: lt_repos TYPE tt_repos_persi. lt_repos = list( ). DELETE lt_repos WHERE url = is_repo-url AND branch_name = is_repo-branch_name. IF sy-subrc <> 0. _raise 'repo not found, delete'. ENDIF. save_text( lt_repos ). ENDMETHOD. "delete METHOD save_text. DATA: lt_lines TYPE TABLE OF tline, ls_header TYPE thead. FIELD-SYMBOLS: LIKE LINE OF it_repos, LIKE LINE OF lt_lines. LOOP AT it_repos ASSIGNING . APPEND INITIAL LINE TO lt_lines ASSIGNING . -tdformat = '*'. -tdline = -url. APPEND INITIAL LINE TO lt_lines ASSIGNING . -tdformat = '*'. -tdline = -branch_name. APPEND INITIAL LINE TO lt_lines ASSIGNING . -tdformat = '*'. -tdline = -sha1. APPEND INITIAL LINE TO lt_lines ASSIGNING . -tdformat = '*'. -tdline = -package. ENDLOOP. ls_header = header( ). CALL FUNCTION 'SAVE_TEXT' EXPORTING header = ls_header TABLES lines = lt_lines EXCEPTIONS id = 1 language = 2 name = 3 object = 4 OTHERS = 5. IF sy-subrc <> 0. ROLLBACK WORK. _raise 'error from SAVE_TEXT'. ENDIF. COMMIT WORK. ENDMETHOD. "save_text METHOD validate_package. DATA: lv_devclass TYPE tdevc-devclass. DATA: lt_repos TYPE tt_repos_persi. IF iv_package IS INITIAL. _raise 'add, package empty'. ENDIF. IF iv_package = '$TMP'. _raise 'not possible to use $TMP, create $FOO package'. ENDIF. SELECT SINGLE devclass FROM tdevc INTO lv_devclass WHERE devclass = iv_package AND as4user <> 'SAP'. IF sy-subrc <> 0. _raise 'package not found or not allowed'. ENDIF. * make sure its not already in use for a different repository lt_repos = list( ). READ TABLE lt_repos WITH KEY package = iv_package TRANSPORTING NO FIELDS. IF sy-subrc = 0. _raise 'Package already in use'. ENDIF. ENDMETHOD. "validate_package METHOD add. DATA: lt_repos TYPE tt_repos_persi. FIELD-SYMBOLS: LIKE LINE OF lt_repos. IF iv_branch IS INITIAL. _raise 'add, sha empty'. ENDIF. validate_package( iv_package ). lt_repos = list( ). READ TABLE lt_repos WITH KEY url = is_repo-url branch_name = is_repo-branch_name TRANSPORTING NO FIELDS. IF sy-subrc = 0. _raise 'already inserted'. ENDIF. APPEND INITIAL LINE TO lt_repos ASSIGNING . -url = is_repo-url. -branch_name = is_repo-branch_name. -sha1 = iv_branch. -package = iv_package. save_text( lt_repos ). ENDMETHOD. "insert METHOD update. DATA: lt_repos TYPE tt_repos_persi. FIELD-SYMBOLS: LIKE LINE OF lt_repos. IF iv_branch IS INITIAL. _raise 'update, sha empty'. ENDIF. lt_repos = list( ). READ TABLE lt_repos ASSIGNING WITH KEY url = is_repo-url branch_name = is_repo-branch_name. IF sy-subrc <> 0. _raise 'persist update, repo not found'. ENDIF. -sha1 = iv_branch. save_text( lt_repos ). ENDMETHOD. "update METHOD list. rt_repos = read_text( ). ENDMETHOD. "list METHOD read_text. DATA: lt_lines TYPE TABLE OF tline, ls_header TYPE thead, ls_repo TYPE st_repo_persi. FIELD-SYMBOLS: LIKE LINE OF lt_lines. ls_header = header( ). CALL FUNCTION 'READ_TEXT' EXPORTING id = ls_header-tdid language = ls_header-tdspras name = ls_header-tdname object = ls_header-tdobject TABLES lines = lt_lines EXCEPTIONS id = 1 language = 2 name = 3 not_found = 4 object = 5 reference_check = 6 wrong_access_to_archive = 7 OTHERS = 8. IF sy-subrc = 4. RETURN. ELSEIF sy-subrc <> 0. _raise 'Error from READ_TEXT'. ENDIF. IF lines( lt_lines ) MOD 4 <> 0. * if this happens, delete text ZABAPGIT in SO10 or edit the text * manually, so it contains the right information _raise 'Persistence, text broken'. ENDIF. CLEAR ls_repo. LOOP AT lt_lines ASSIGNING . IF -tdline IS INITIAL. _raise 'Persistence, text broken'. ENDIF. IF ls_repo-url IS INITIAL. ls_repo-url = -tdline. CONTINUE. " current loop ENDIF. IF ls_repo-branch_name IS INITIAL. ls_repo-branch_name = -tdline. CONTINUE. " current loop ENDIF. IF ls_repo-sha1 IS INITIAL. ls_repo-sha1 = -tdline. CONTINUE. " current loop ENDIF. ls_repo-package = -tdline. APPEND ls_repo TO rt_repos. CLEAR ls_repo. ENDLOOP. ENDMETHOD. "list ENDCLASS. "lcl_persistence IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_transport DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_transport DEFINITION FINAL. PUBLIC SECTION. * remote to local CLASS-METHODS upload_pack IMPORTING is_repo TYPE st_repo EXPORTING ev_pack TYPE xstring ev_branch TYPE t_sha1 RAISING lcx_exception. * local to remote CLASS-METHODS receive_pack IMPORTING is_repo TYPE st_repo iv_commit TYPE t_sha1 iv_pack TYPE xstring RAISING lcx_exception. PRIVATE SECTION. CLASS-METHODS pkt_string IMPORTING iv_string TYPE string RETURNING VALUE(rv_pkt) TYPE string RAISING lcx_exception. CLASS-METHODS parse EXPORTING ev_pack TYPE xstring CHANGING cv_data TYPE xstring. CLASS-METHODS length_utf8_hex IMPORTING iv_data TYPE xstring RETURNING VALUE(rv_len) TYPE i. CLASS-METHODS ref_discovery IMPORTING is_repo TYPE st_repo iv_service TYPE string EXPORTING ei_client TYPE REF TO if_http_client ev_branch TYPE t_sha1 RAISING lcx_exception. CLASS-METHODS set_headers IMPORTING is_repo TYPE st_repo iv_service TYPE string ii_client TYPE REF TO if_http_client RAISING lcx_exception. CLASS-METHODS check_http_200 IMPORTING ii_client TYPE REF TO if_http_client RAISING lcx_exception. CLASS-METHODS get_null RETURNING VALUE(rv_c) TYPE char1. ENDCLASS. "lcl_transport DEFINITION *----------------------------------------------------------------------* * CLASS lcl_transport IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_transport IMPLEMENTATION. METHOD set_headers. DATA: lv_value TYPE string. ii_client->request->set_header_field( name = '~request_method' value = 'POST' ). lv_value = lcl_url=>path_name( is_repo-url ) && '.git/git-' && iv_service && '-pack'. ii_client->request->set_header_field( name = '~request_uri' value = lv_value ). lv_value = 'application/x-git-' && iv_service && '-pack-request'. "#EC NOTEXT ii_client->request->set_header_field( name = 'Content-Type' value = lv_value ). "#EC NOTEXT lv_value = 'application/x-git-' && iv_service && '-pack-result'. "#EC NOTEXT ii_client->request->set_header_field( name = 'Accept' value = lv_value ). "#EC NOTEXT ENDMETHOD. "set_headers METHOD get_null. DATA: lv_x(4) TYPE x VALUE '00000000', lv_z(2) TYPE c. FIELD-SYMBOLS TYPE c. ASSIGN lv_x TO CASTING. lv_z = . rv_c = lv_z(1). ENDMETHOD. "get_null METHOD check_http_200. DATA: lv_code TYPE i. ii_client->response->get_status( IMPORTING code = lv_code ). CASE lv_code. WHEN 200. RETURN. WHEN 302. _raise 'HTTP redirect, check URL'. WHEN 401. _raise 'HTTP 401, unauthorized'. WHEN 403. _raise 'HTTP 403, forbidden'. WHEN 404. _raise 'HTTP 404, not found'. WHEN 415. _raise 'HTTP 415, unsupported media type'. WHEN OTHERS. _raise 'HTTP error code'. ENDCASE. ENDMETHOD. "http_200 METHOD ref_discovery. DATA: lv_hash TYPE c LENGTH 40, lv_len TYPE i, lt_result TYPE TABLE OF string, lv_data LIKE LINE OF lt_result, lv_uri TYPE string, lv_text TYPE string. STATICS: sv_authorization TYPE string. cl_http_client=>create_by_url( EXPORTING url = lcl_url=>host( is_repo-url ) ssl_id = 'ANONYM' IMPORTING client = ei_client ). ei_client->request->set_cdata( '' ). ei_client->request->set_header_field( name = '~request_method' value = 'GET' ). ei_client->request->set_header_field( name = 'user-agent' value = gv_agent ). "#EC NOTEXT lv_uri = lcl_url=>path_name( is_repo-url ) && '.git/info/refs?service=git-' && iv_service && '-pack'. ei_client->request->set_header_field( name = '~request_uri' value = lv_uri ). IF NOT sv_authorization IS INITIAL. * note this will only work if all repositories uses the same login ei_client->request->set_header_field( name = 'authorization' value = sv_authorization ). "#EC NOTEXT ei_client->propertytype_logon_popup = ei_client->co_disabled. ENDIF. ei_client->send( ). 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. * make sure SSL is setup properly in STRUST lv_text = 'HTTP Communication Failure'. "#EC NOTEXT WHEN 2. lv_text = 'HTTP Invalid State'. "#EC NOTEXT WHEN 3. lv_text = 'HTTP Processing failed'. "#EC NOTEXT WHEN OTHERS. lv_text = 'Another error occured'. "#EC NOTEXT ENDCASE. RAISE EXCEPTION TYPE lcx_exception EXPORTING iv_text = lv_text. ENDIF. check_http_200( ei_client ). sv_authorization = ei_client->request->get_header_field( 'authorization' ). "#EC NOTEXT lv_data = ei_client->response->get_cdata( ). IF is_repo-branch_name IS INITIAL. _raise 'branch empty'. ENDIF. lv_len = strlen( is_repo-branch_name ). SPLIT lv_data AT gc_newline INTO TABLE lt_result. LOOP AT lt_result INTO lv_data. IF sy-tabix = 1. CONTINUE. " current loop ELSEIF sy-tabix = 2 AND strlen( lv_data ) > 49 AND lv_data+49(lv_len) = is_repo-branch_name. lv_hash = lv_data+8. EXIT. " current loop ELSEIF sy-tabix > 2 AND strlen( lv_data ) > 45 AND lv_data+45 = is_repo-branch_name. lv_hash = lv_data+4. EXIT. " current loop ELSEIF sy-tabix = 2 AND strlen( lv_data ) = 8 AND lv_data(8) = '00000000'. _raise 'No branches, create branch manually by adding file'. ENDIF. ENDLOOP. TRANSLATE lv_hash TO UPPER CASE. IF strlen( lv_hash ) <> 40. _raise 'Branch not found'. ENDIF. ev_branch = lv_hash. ENDMETHOD. "ref_discovery METHOD receive_pack. CONSTANTS: lc_service TYPE string VALUE 'receive'. "#EC NOTEXT DATA: li_client TYPE REF TO if_http_client, lv_cmd_pkt TYPE string, lv_line TYPE string, lv_tmp TYPE xstring, lv_xstring TYPE xstring, lv_string TYPE string, lv_buffer TYPE string, lv_branch TYPE t_sha1. ref_discovery( EXPORTING is_repo = is_repo iv_service = lc_service IMPORTING ei_client = li_client ev_branch = lv_branch ). set_headers( EXPORTING is_repo = is_repo iv_service = lc_service ii_client = li_client ). lv_line = lv_branch && ` ` && iv_commit && ` ` && is_repo-branch_name && get_null( ) && ` ` && 'report-status agent=' && gv_agent && gc_newline. "#EC NOTEXT lv_cmd_pkt = pkt_string( lv_line ). lv_buffer = lv_cmd_pkt && '0000'. lv_tmp = lcl_convert=>string_to_xstring_utf8( lv_buffer ). CONCATENATE lv_tmp iv_pack INTO lv_xstring IN BYTE MODE. li_client->request->set_data( lv_xstring ). li_client->send( ). li_client->receive( ). check_http_200( li_client ). lv_xstring = li_client->response->get_data( ). li_client->close( ). lv_string = lcl_convert=>xstring_to_string_utf8( lv_xstring ). IF NOT lv_string CP '*unpack ok*'. _raise 'unpack not ok'. ENDIF. ENDMETHOD. "receive_pack METHOD length_utf8_hex. DATA: lv_xstring TYPE xstring, lv_string TYPE string, lv_char4 TYPE c LENGTH 4, lv_x TYPE x LENGTH 2, lo_obj TYPE REF TO cl_abap_conv_in_ce, lv_len TYPE int4. * hmm, can this be done easier? lv_xstring = iv_data(4). lo_obj = cl_abap_conv_in_ce=>create( input = lv_xstring encoding = 'UTF-8' ). lv_len = xstrlen( lv_xstring ). lo_obj->read( EXPORTING n = lv_len IMPORTING data = lv_string ). lv_char4 = lv_string. TRANSLATE lv_char4 TO UPPER CASE. lv_x = lv_char4. rv_len = lv_x. ENDMETHOD. "length_utf8_hex METHOD parse. DATA: lv_len TYPE i, lv_contents TYPE xstring, lv_pack TYPE xstring. WHILE xstrlen( cv_data ) >= 4. lv_len = length_utf8_hex( cv_data ). lv_contents = cv_data(lv_len). IF lv_len = 0. cv_data = cv_data+4. CONTINUE. ELSE. cv_data = cv_data+lv_len. ENDIF. lv_contents = lv_contents+4. IF xstrlen( lv_contents ) > 1 AND lv_contents(1) = '01'. " band 1 CONCATENATE lv_pack lv_contents+1 INTO lv_pack IN BYTE MODE. ENDIF. ENDWHILE. ev_pack = lv_pack. ENDMETHOD. "parse METHOD upload_pack. CONSTANTS: lc_service TYPE string VALUE 'upload'. "#EC NOTEXT DATA: li_client TYPE REF TO if_http_client, lv_buffer TYPE string, lv_xstring TYPE xstring, lv_line TYPE string, lv_pkt1 TYPE string, lv_pkt2 TYPE string. ref_discovery( EXPORTING is_repo = is_repo iv_service = lc_service IMPORTING ei_client = li_client ev_branch = ev_branch ). set_headers( EXPORTING is_repo = is_repo iv_service = lc_service ii_client = li_client ). lv_line = 'want' && ` ` && ev_branch && ` ` && 'side-band-64k no-progress agent=' && gv_agent && gc_newline. "#EC NOTEXT lv_pkt1 = pkt_string( lv_line ). lv_pkt2 = pkt_string( 'deepen 1' && gc_newline ). "#EC NOTEXT lv_buffer = lv_pkt1 && lv_pkt2 && '0000' && '0009done' && gc_newline. * do not use set_cdata as it modifies the Content-Type header field li_client->request->set_data( lcl_convert=>string_to_xstring_utf8( lv_buffer ) ). li_client->send( ). li_client->receive( ). check_http_200( li_client ). lv_xstring = li_client->response->get_data( ). li_client->close( ). parse( IMPORTING ev_pack = ev_pack CHANGING cv_data = lv_xstring ). ENDMETHOD. "upload_pack METHOD pkt_string. DATA: lv_x TYPE x, lv_len TYPE i. lv_len = strlen( iv_string ). IF lv_len >= 255. _raise 'PKT, todo'. ENDIF. lv_x = lv_len + 4. rv_pkt = rv_pkt && '00' && lv_x && iv_string. ENDMETHOD. "pkt ENDCLASS. "lcl_transport IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_porcelain DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_porcelain DEFINITION FINAL. PUBLIC SECTION. CLASS-METHODS pull IMPORTING is_repo TYPE st_repo EXPORTING et_files TYPE tt_files et_objects TYPE tt_objects ev_branch TYPE t_sha1 RAISING lcx_exception. 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 RAISING lcx_exception. PRIVATE SECTION. CLASS-METHODS walk IMPORTING it_objects TYPE tt_objects iv_sha1 TYPE t_sha1 iv_path TYPE string CHANGING ct_files TYPE tt_files RAISING lcx_exception. CLASS-METHODS root_tree IMPORTING it_objects TYPE tt_objects iv_branch TYPE t_sha1 RETURNING VALUE(rt_nodes) TYPE tt_nodes RAISING lcx_exception. CLASS-METHODS receive_pack IMPORTING is_comment TYPE st_comment is_repo TYPE st_repo it_nodes TYPE tt_nodes it_files TYPE tt_files iv_branch TYPE t_sha1 RETURNING VALUE(rv_branch) TYPE t_sha1 RAISING lcx_exception. ENDCLASS. "lcl_porcelain DEFINITION *----------------------------------------------------------------------* * CLASS lcl_porcelain IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_porcelain IMPLEMENTATION. METHOD receive_pack. DATA: lv_tree TYPE xstring, lv_time TYPE t_unixtime, lv_commit TYPE xstring, lt_objects TYPE tt_objects, lv_pack TYPE xstring, ls_object LIKE LINE OF lt_objects, ls_commit TYPE st_commit. FIELD-SYMBOLS: LIKE LINE OF it_files. lv_tree = lcl_pack=>encode_tree( it_nodes ). * new commit lv_time = lcl_time=>get( ). ls_commit-tree = lcl_hash=>sha1( iv_type = gc_tree iv_data = lv_tree ). ls_commit-parent = iv_branch. CONCATENATE is_comment-username space '<' is_comment-email '>' space lv_time INTO ls_commit-author RESPECTING BLANKS. ls_commit-committer = ls_commit-author. ls_commit-body = is_comment-comment. lv_commit = lcl_pack=>encode_commit( ls_commit ). CLEAR ls_object. ls_object-sha1 = lcl_hash=>sha1( iv_type = gc_commit iv_data = lv_commit ). ls_object-type = gc_commit. ls_object-data = lv_commit. APPEND ls_object TO lt_objects. CLEAR ls_object. ls_object-sha1 = lcl_hash=>sha1( iv_type = gc_tree iv_data = lv_tree ). ls_object-type = gc_tree. ls_object-data = lv_tree. APPEND ls_object TO lt_objects. LOOP AT it_files ASSIGNING . CLEAR ls_object. ls_object-sha1 = lcl_hash=>sha1( iv_type = gc_blob iv_data = -data ). ls_object-type = gc_blob. ls_object-data = -data. APPEND ls_object TO lt_objects. ENDLOOP. lv_pack = lcl_pack=>encode( lt_objects ). rv_branch = lcl_hash=>sha1( iv_type = gc_commit iv_data = lv_commit ). lcl_transport=>receive_pack( is_repo = is_repo iv_commit = rv_branch iv_pack = lv_pack ). ENDMETHOD. "receive_pack METHOD push. * todo, only works with root files DATA: lt_objects TYPE tt_objects, lt_nodes TYPE tt_nodes, lt_files LIKE it_files, lv_sha1 TYPE t_sha1, lv_index TYPE i, lv_branch TYPE t_sha1. FIELD-SYMBOLS: LIKE LINE OF it_files, LIKE LINE OF lt_nodes. lcl_porcelain=>pull( EXPORTING is_repo = is_repo IMPORTING et_objects = lt_objects ev_branch = lv_branch ). lt_nodes = root_tree( it_objects = lt_objects iv_branch = lv_branch ). lt_files[] = it_files[]. LOOP AT lt_files ASSIGNING . lv_index = sy-tabix. READ TABLE lt_nodes ASSIGNING WITH KEY name = -filename. IF sy-subrc <> 0. * new files APPEND INITIAL LINE TO lt_nodes ASSIGNING . -chmod = gc_chmod_file. -name = -filename. ENDIF. lv_sha1 = lcl_hash=>sha1( iv_type = gc_blob iv_data = -data ). IF -sha1 <> lv_sha1. -sha1 = lv_sha1. ELSE. DELETE lt_files INDEX lv_index. ENDIF. ENDLOOP. IF lt_files[] IS INITIAL. _raise 'no files'. ENDIF. rv_branch = receive_pack( is_comment = is_comment is_repo = is_repo it_nodes = lt_nodes it_files = lt_files iv_branch = lv_branch ). ENDMETHOD. "push METHOD root_tree. DATA: ls_object LIKE LINE OF it_objects, ls_commit TYPE st_commit. READ TABLE it_objects INTO ls_object WITH KEY sha1 = iv_branch type = gc_commit. IF sy-subrc <> 0. _raise 'commit not found'. ENDIF. ls_commit = lcl_pack=>decode_commit( ls_object-data ). READ TABLE it_objects INTO ls_object WITH KEY sha1 = ls_commit-tree type = gc_tree. IF sy-subrc <> 0. _raise 'tree not found'. ENDIF. rt_nodes = lcl_pack=>decode_tree( ls_object-data ). ENDMETHOD. "root_tree METHOD pull. DATA: ls_object LIKE LINE OF et_objects, ls_commit TYPE st_commit, lv_pack TYPE xstring. lcl_transport=>upload_pack( EXPORTING is_repo = is_repo IMPORTING ev_pack = lv_pack ev_branch = ev_branch ). IF lv_pack IS INITIAL. _raise 'empty pack'. ENDIF. et_objects = lcl_pack=>decode( lv_pack ). lcl_debug=>render_objects( iv_message = 'Before deltas' it_objects = et_objects ). "#EC NOTEXT lcl_pack=>decode_deltas( CHANGING ct_objects = et_objects ). lcl_debug=>render_objects( iv_message = 'After deltas' it_objects = et_objects ). "#EC NOTEXT READ TABLE et_objects INTO ls_object WITH KEY sha1 = ev_branch type = gc_commit. IF sy-subrc <> 0. _raise 'Commit/branch not found'. ENDIF. ls_commit = lcl_pack=>decode_commit( ls_object-data ). walk( EXPORTING it_objects = et_objects iv_sha1 = ls_commit-tree iv_path = '/' CHANGING ct_files = et_files ). ENDMETHOD. "pull METHOD walk. DATA: lv_path TYPE string, ls_file LIKE LINE OF ct_files, lt_nodes TYPE tt_nodes. FIELD-SYMBOLS: LIKE LINE OF it_objects, LIKE LINE OF it_objects, LIKE LINE OF lt_nodes. READ TABLE it_objects ASSIGNING WITH KEY sha1 = iv_sha1 type = gc_tree. IF sy-subrc <> 0. _raise 'Walk, tree not found'. ENDIF. lt_nodes = lcl_pack=>decode_tree( -data ). LOOP AT lt_nodes ASSIGNING . IF -chmod = gc_chmod_file. READ TABLE it_objects ASSIGNING WITH KEY sha1 = -sha1 type = gc_blob. IF sy-subrc <> 0. _raise 'Walk, blob not found'. ENDIF. CLEAR ls_file. ls_file-path = iv_path. ls_file-filename = -name. ls_file-data = -data. APPEND ls_file TO ct_files. ENDIF. ENDLOOP. LOOP AT lt_nodes ASSIGNING WHERE chmod = gc_chmod_dir. CONCATENATE iv_path -name '/' INTO lv_path. walk( EXPORTING it_objects = it_objects iv_sha1 = -sha1 iv_path = lv_path CHANGING ct_files = ct_files ). ENDLOOP. ENDMETHOD. "walk ENDCLASS. "lcl_porcelain IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_view DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_gui DEFINITION FINAL. PUBLIC SECTION. CLASS-METHODS run RAISING lcx_exception. CLASS-METHODS on_event 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 RAISING lcx_exception. CLASS-METHODS render_css RETURNING VALUE(rv_html) TYPE string. CLASS-METHODS render_repo IMPORTING is_repo_persi TYPE st_repo_persi RETURNING VALUE(rv_html) TYPE string RAISING lcx_exception. CLASS-METHODS render_header RETURNING VALUE(rv_html) TYPE string. CLASS-METHODS render_menu RETURNING VALUE(rv_html) TYPE string. CLASS-METHODS render_footer RETURNING VALUE(rv_html) TYPE string. CLASS-METHODS install IMPORTING iv_url TYPE string RAISING lcx_exception. CLASS-METHODS analyze_existing IMPORTING it_results TYPE tt_results RETURNING VALUE(rv_cancel) TYPE abap_bool RAISING lcx_exception. CLASS-METHODS add IMPORTING is_item TYPE st_item is_repo_persi TYPE st_repo_persi RAISING lcx_exception. CLASS-METHODS uninstall IMPORTING is_repo TYPE st_repo_persi RAISING lcx_exception. CLASS-METHODS pull IMPORTING is_repo_persi TYPE st_repo_persi RAISING lcx_exception. CLASS-METHODS commit IMPORTING is_repo TYPE st_repo RAISING lcx_exception. CLASS-METHODS diff IMPORTING is_result TYPE st_result is_repo TYPE st_repo RAISING lcx_exception. CLASS-METHODS render_diff IMPORTING is_result TYPE st_result it_diffs TYPE tt_diffs. CLASS-METHODS struct_encode IMPORTING ig_structure1 TYPE any ig_structure2 TYPE any OPTIONAL RETURNING VALUE(rv_string) TYPE string. CLASS-METHODS struct_decode IMPORTING iv_string TYPE clike CHANGING cg_structure TYPE any RAISING lcx_exception. CLASS-METHODS popup_comment RETURNING VALUE(rs_comment) TYPE st_comment RAISING lcx_exception. ENDCLASS. "lcl_gui DEFINITION *----------------------------------------------------------------------* * CLASS lcl_view IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_gui IMPLEMENTATION. METHOD render_header. rv_html = '' && gc_newline && '' && gc_newline && 'abapGit' && gc_newline && render_css( ) && gc_newline && '' && gc_newline && '' && gc_newline && '' && gc_newline && ''. "#EC NOTEXT ENDMETHOD. "render_head METHOD diff. DATA: lt_remote TYPE tt_files, lt_local TYPE tt_files, ls_item TYPE st_item, lt_diffs TYPE tt_diffs. FIELD-SYMBOLS: LIKE LINE OF lt_remote, LIKE LINE OF lt_local. lcl_porcelain=>pull( EXPORTING is_repo = is_repo IMPORTING et_files = lt_remote ). CLEAR ls_item. ls_item-obj_type = is_result-obj_type. ls_item-obj_name = is_result-obj_name. lt_local = lcl_objects=>serialize( ls_item ). READ TABLE lt_remote ASSIGNING WITH KEY filename = is_result-filename. IF sy-subrc <> 0. _raise 'not found remotely'. ENDIF. READ TABLE lt_local ASSIGNING WITH KEY filename = is_result-filename. IF sy-subrc <> 0. _raise 'not found locally'. ENDIF. lt_diffs = lcl_diff=>diff( iv_local = -data iv_remote = -data ). render_diff( is_result = is_result it_diffs = lt_diffs ). ENDMETHOD. "diff METHOD render_diff. DATA: lv_html TYPE string, lv_local TYPE string, lv_remote TYPE string. FIELD-SYMBOLS: LIKE LINE OF it_diffs. lv_html = render_header( ) && '

diff

 Back' && '

' && is_result-obj_type && ' ' && is_result-obj_name && ' ' && is_result-filename && '



'. lv_html = lv_html && '' && gc_newline && ''. LOOP AT it_diffs ASSIGNING . lv_local = escape( val = -local format = cl_abap_format=>e_html_attr ). lv_remote = escape( val = -remote format = cl_abap_format=>e_html_attr ). lv_html = lv_html && '' && gc_newline && '' && gc_newline && '' && gc_newline && '' && gc_newline && '' && gc_newline. ENDLOOP. lv_html = lv_html && '

Local

Remote

' && lv_local && '
 ' && -result && ' 
' && lv_remote && '
' && gc_newline. lv_html = lv_html && render_footer( ). view( lv_html ). ENDMETHOD. "render_diff METHOD popup_comment. DATA: lv_returncode TYPE c, lt_fields TYPE TABLE OF sval. FIELD-SYMBOLS: LIKE LINE OF lt_fields. APPEND INITIAL LINE TO lt_fields ASSIGNING . -tabname = 'BAPIRTEXT'. -fieldname = 'TEXT'. -fieldtext = 'Username'. "#EC NOTEXT -field_obl = abap_true. -value = lcl_user=>get_username( ). APPEND INITIAL LINE TO lt_fields ASSIGNING . -tabname = 'BAPIRTEXT1'. -fieldname = 'TEXT'. -fieldtext = 'E-Mail'. "#EC NOTEXT -field_obl = abap_true. -value = lcl_user=>get_email( ). APPEND INITIAL LINE TO lt_fields ASSIGNING . -tabname = 'ABAPTXT255'. -fieldname = 'LINE'. -fieldtext = 'Comment'. "#EC NOTEXT -field_obl = abap_true. CALL FUNCTION 'POPUP_GET_VALUES' EXPORTING no_value_check = abap_true popup_title = 'Enter Git username and email' "#EC NOTEXT IMPORTING returncode = lv_returncode TABLES fields = lt_fields EXCEPTIONS error_in_fields = 1 OTHERS = 2. IF sy-subrc <> 0. _raise 'Error from POPUP_GET_VALUES'. ENDIF. IF lv_returncode = 'A'. CLEAR rs_comment. RETURN. ENDIF. READ TABLE lt_fields INDEX 1 ASSIGNING . ASSERT sy-subrc = 0. rs_comment-username = -value. lcl_user=>set_username( rs_comment-username ). READ TABLE lt_fields INDEX 2 ASSIGNING . ASSERT sy-subrc = 0. rs_comment-email = -value. lcl_user=>set_email( rs_comment-email ). READ TABLE lt_fields INDEX 3 ASSIGNING . ASSERT sy-subrc = 0. rs_comment-comment = -value. ENDMETHOD. "popup_commit METHOD pull. DATA: lt_files TYPE tt_files, ls_repo TYPE st_repo, lv_branch TYPE t_sha1. MOVE-CORRESPONDING is_repo_persi TO ls_repo. lcl_porcelain=>pull( EXPORTING is_repo = ls_repo IMPORTING et_files = lt_files ev_branch = lv_branch ). lcl_objects=>deserialize( it_files = lt_files iv_package = is_repo_persi-package ). lcl_persistence=>update( is_repo = ls_repo iv_branch = lv_branch ). view( render( ) ). ENDMETHOD. "pull METHOD commit. DATA: lv_branch TYPE t_sha1, lt_results TYPE tt_results, lt_push TYPE tt_files, ls_item TYPE st_item, ls_comment TYPE st_comment, lt_files TYPE tt_files. FIELD-SYMBOLS: LIKE LINE OF lt_results. lcl_porcelain=>pull( EXPORTING is_repo = is_repo IMPORTING et_files = lt_files ). lt_results = lcl_objects=>status( lt_files ). CLEAR lt_files[]. LOOP AT lt_results ASSIGNING WHERE match = abap_false. CLEAR ls_item. ls_item-obj_type = -obj_type. ls_item-obj_name = -obj_name. lt_files = lcl_objects=>serialize( ls_item ). APPEND LINES OF lt_files TO lt_push. ENDLOOP. IF lt_push[] IS INITIAL. _raise 'no changes'. ENDIF. ls_comment = popup_comment( ). IF ls_comment IS INITIAL. RETURN. ENDIF. lv_branch = lcl_porcelain=>push( is_comment = ls_comment is_repo = is_repo it_files = lt_push ). lcl_persistence=>update( is_repo = is_repo iv_branch = lv_branch ). view( render( ) ). ENDMETHOD. "commit METHOD struct_decode. DATA: lt_fields TYPE tihttpnvp, lv_string TYPE string. FIELD-SYMBOLS: LIKE LINE OF lt_fields, TYPE any. lv_string = iv_string. " type conversion lt_fields = cl_http_utility=>if_http_utility~string_to_fields( lv_string ). LOOP AT lt_fields ASSIGNING . ASSIGN COMPONENT -name OF STRUCTURE cg_structure TO . IF sy-subrc <> 0. CONTINUE. " more structures might be encoded in same string ENDIF. = -value. ENDLOOP. ENDMETHOD. "struct_decode METHOD struct_encode. DATA: lt_fields TYPE tihttpnvp, lo_descr_ref TYPE REF TO cl_abap_structdescr, ls_field LIKE LINE OF lt_fields. FIELD-SYMBOLS: LIKE LINE OF lo_descr_ref->components, TYPE any. lo_descr_ref ?= cl_abap_typedescr=>describe_by_data( ig_structure1 ). LOOP AT lo_descr_ref->components ASSIGNING . ASSIGN COMPONENT -name OF STRUCTURE ig_structure1 TO . ASSERT sy-subrc = 0. ls_field-name = -name. ls_field-value = . APPEND ls_field TO lt_fields. ENDLOOP. IF ig_structure2 IS SUPPLIED. lo_descr_ref ?= cl_abap_typedescr=>describe_by_data( ig_structure2 ). LOOP AT lo_descr_ref->components ASSIGNING . ASSIGN COMPONENT -name OF STRUCTURE ig_structure2 TO . ASSERT sy-subrc = 0. ls_field-name = -name. ls_field-value = . APPEND ls_field TO lt_fields. ENDLOOP. ENDIF. rv_string = cl_http_utility=>if_http_utility~fields_to_string( lt_fields ). ENDMETHOD. "encode_struct METHOD on_event. DATA: lx_exception TYPE REF TO lcx_exception, ls_result TYPE st_result, lv_url TYPE string, ls_repo TYPE st_repo, ls_item TYPE st_item, ls_repo_persi TYPE st_repo_persi. TRY. CASE action. WHEN 'install'. lv_url = getdata. install( lv_url ). WHEN 'explore'. go_html_viewer->show_url( 'http://larshp.github.io/abapGit/explore.html' ). WHEN 'abapgithome'. cl_gui_frontend_services=>execute( document = 'https://github.com/larshp/abapGit' ). WHEN 'add'. struct_decode( EXPORTING iv_string = getdata CHANGING cg_structure = ls_result ). struct_decode( EXPORTING iv_string = getdata CHANGING cg_structure = ls_repo_persi ). CLEAR ls_item. MOVE-CORRESPONDING ls_result TO ls_item. add( is_item = ls_item is_repo_persi = ls_repo_persi ). WHEN 'uninstall'. struct_decode( EXPORTING iv_string = getdata CHANGING cg_structure = ls_repo_persi ). uninstall( ls_repo_persi ). WHEN 'refresh'. view( render( ) ). WHEN 'commit'. struct_decode( EXPORTING iv_string = getdata CHANGING cg_structure = ls_repo ). commit( ls_repo ). WHEN 'diff'. struct_decode( EXPORTING iv_string = getdata CHANGING cg_structure = ls_result ). struct_decode( EXPORTING iv_string = getdata CHANGING cg_structure = ls_repo ). diff( is_result = ls_result is_repo = ls_repo ). WHEN 'jump'. struct_decode( EXPORTING iv_string = getdata CHANGING cg_structure = ls_result ). CLEAR ls_item. MOVE-CORRESPONDING ls_result TO ls_item. lcl_objects=>jump( ls_item ). WHEN 'pull'. struct_decode( EXPORTING iv_string = getdata CHANGING cg_structure = ls_repo_persi ). pull( ls_repo_persi ). WHEN 'debug'. lcl_debug=>debug_toggle( ). WHEN OTHERS. _raise 'Unknown action'. ENDCASE. CATCH lcx_exception INTO lx_exception. IF lcl_debug=>get_debug( ) = abap_true. view( render_header( ) && lcl_debug=>get_html( ) && render_footer( ) ). ENDIF. MESSAGE lx_exception->mv_text TYPE 'S' DISPLAY LIKE 'E'. ENDTRY. ENDMETHOD. "on_event METHOD uninstall. DATA: lt_tadir TYPE tt_tadir, lv_count TYPE c LENGTH 3, lv_answer TYPE c LENGTH 1, lv_question TYPE c LENGTH 100. SELECT * FROM tadir INTO TABLE lt_tadir WHERE devclass = is_repo-package AND object <> 'DEVC'. "#EC * IF lines( lt_tadir ) > 0. lv_count = lines( lt_tadir ). CONCATENATE 'This will delete all objects in package' is_repo-package INTO lv_question SEPARATED BY space. "#EC NOTEXT CONCATENATE lv_question '(' lv_count 'objects)' INTO lv_question SEPARATED BY space. "#EC NOTEXT CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING titlebar = 'Uninstall' text_question = lv_question text_button_1 = 'Delete' icon_button_1 = 'ICON_DELETE' text_button_2 = 'Cancel' icon_button_2 = 'ICON_CANCEL' default_button = '2' display_cancel_button = abap_false IMPORTING answer = lv_answer EXCEPTIONS text_not_found = 1 OTHERS = 2. "#EC NOTEXT IF sy-subrc <> 0. _raise 'error from POPUP_TO_CONFIRM'. ENDIF. IF lv_answer = '2'. RETURN. ENDIF. lcl_objects=>delete( lt_tadir ). ENDIF. lcl_persistence=>delete( is_repo ). view( render( ) ). ENDMETHOD. "uninstall METHOD add. DATA: lt_files TYPE tt_files, ls_comment TYPE st_comment, ls_repo TYPE st_repo, lv_branch TYPE t_sha1, lv_obj_name TYPE tadir-obj_name. SELECT SINGLE obj_name FROM tadir INTO lv_obj_name WHERE pgmid = 'R3TR' AND object = is_item-obj_type AND obj_name = is_item-obj_name AND devclass = is_repo_persi-package. IF sy-subrc <> 0. _raise 'Object not found or in wrong package'. ENDIF. lt_files = lcl_objects=>serialize( is_item ). ls_comment = popup_comment( ). IF ls_comment IS INITIAL. RETURN. ENDIF. MOVE-CORRESPONDING is_repo_persi TO ls_repo. lv_branch = lcl_porcelain=>push( is_comment = ls_comment is_repo = ls_repo it_files = lt_files ). lcl_persistence=>update( is_repo = ls_repo iv_branch = lv_branch ). view( render( ) ). ENDMETHOD. "add METHOD install. DATA: lv_returncode TYPE c, lt_files TYPE tt_files, ls_repo TYPE st_repo, lv_branch TYPE t_sha1, lt_results TYPE tt_results, lv_package TYPE devclass, lt_fields TYPE TABLE OF sval. FIELD-SYMBOLS: LIKE LINE OF lt_fields. APPEND INITIAL LINE TO lt_fields ASSIGNING . -tabname = 'ABAPTXT255'. -fieldname = 'LINE'. -fieldtext = 'Git Clone Url'. "#EC NOTEXT -value = iv_url. APPEND INITIAL LINE TO lt_fields ASSIGNING . -tabname = 'TDEVC'. -fieldname = 'DEVCLASS'. -fieldtext = 'Target Package'. "#EC NOTEXT CALL FUNCTION 'POPUP_GET_VALUES' EXPORTING no_value_check = abap_true popup_title = 'Clone' "#EC NOTEXT IMPORTING returncode = lv_returncode TABLES fields = lt_fields EXCEPTIONS error_in_fields = 1 OTHERS = 2. IF sy-subrc <> 0. _raise 'Error from POPUP_GET_VALUES'. ENDIF. IF lv_returncode = 'A'. RETURN. ENDIF. READ TABLE lt_fields INDEX 1 ASSIGNING . ASSERT sy-subrc = 0. ls_repo-url = -value. * todo, select branch or tag ls_repo-branch_name = 'refs/heads/master'. "#EC NOTEXT lcl_url=>name( ls_repo-url ). " validate READ TABLE lt_fields INDEX 2 ASSIGNING . ASSERT sy-subrc = 0. lv_package = -value. TRANSLATE lv_package TO UPPER CASE. lcl_persistence=>validate_package( lv_package ). lcl_porcelain=>pull( EXPORTING is_repo = ls_repo IMPORTING et_files = lt_files ev_branch = lv_branch ). lt_results = lcl_objects=>status( it_files = lt_files iv_package = lv_package ). IF analyze_existing( lt_results ) = abap_true. RETURN. ENDIF. lcl_objects=>deserialize( it_files = lt_files iv_package = lv_package ). lcl_persistence=>add( is_repo = ls_repo iv_branch = lv_branch iv_package = lv_package ). view( render( ) ). ENDMETHOD. "install METHOD analyze_existing. DATA: lv_question TYPE text100, lv_answer TYPE c LENGTH 1. FIELD-SYMBOLS: LIKE LINE OF it_results. LOOP AT it_results ASSIGNING . SELECT COUNT( * ) FROM tadir WHERE pgmid = 'R3TR' AND object = -obj_type AND obj_name = -obj_name. IF sy-subrc = 0. CONCATENATE 'Object' -obj_type -obj_name 'already exists in system' INTO lv_question SEPARATED BY space. "#EC NOTEXT CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING titlebar = 'Warning' text_question = lv_question text_button_1 = 'Continue' icon_button_1 = 'ICON_OKAY' text_button_2 = 'Cancel' icon_button_2 = 'ICON_CANCEL' default_button = '2' display_cancel_button = abap_false IMPORTING answer = lv_answer EXCEPTIONS text_not_found = 1 OTHERS = 2. "#EC NOTEXT IF sy-subrc <> 0. _raise 'error from POPUP_TO_CONFIRM'. ENDIF. IF lv_answer = '2'. rv_cancel = abap_true. RETURN. ENDIF. ENDIF. ENDLOOP. ENDMETHOD. METHOD render_css. rv_html = '' && gc_newline. ENDMETHOD. "render_css METHOD render_menu. rv_html = '

abapGit

 ' && gc_newline && 'Refresh ' && gc_newline && 'Clone ' && gc_newline && 'Explore ' && gc_newline && 'abapGit@GitHub ' && gc_newline && '
' && gc_newline. ENDMETHOD. "render_menu METHOD render. DATA: lt_repos TYPE tt_repos_persi, lv_text TYPE c LENGTH 100, lv_pct TYPE i, lv_f TYPE f, ls_repo LIKE LINE OF lt_repos. lt_repos = lcl_persistence=>list( ). rv_html = render_header( ) && render_menu( ). LOOP AT lt_repos INTO ls_repo. rv_html = rv_html && '' && lcl_url=>name( ls_repo-url ) && ' '. ENDLOOP. IF lt_repos[] IS INITIAL. rv_html = rv_html && '
Explore new projects'. ELSE. rv_html = rv_html && '


'. LOOP AT lt_repos INTO ls_repo. lv_f = ( sy-tabix / lines( lt_repos ) ) * 100. lv_pct = lv_f. IF lv_pct = 100. lv_pct = 99. ENDIF. lv_text = lcl_url=>name( ls_repo-url ). CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING percentage = lv_pct text = lv_text. rv_html = rv_html && render_repo( ls_repo ). ENDLOOP. ENDIF. rv_html = rv_html && render_footer( ). ENDMETHOD. "render METHOD render_footer. rv_html = rv_html && '

abapGit Version: ' && gc_abap_version && ' d

'. "#EC NOTEXT rv_html = rv_html && ''. ENDMETHOD. "render_footer METHOD render_repo. DATA: lt_files TYPE tt_files, ls_repo TYPE st_repo, lv_branch TYPE t_sha1, lv_link TYPE string, lv_status TYPE string, lv_object TYPE string, lv_index LIKE sy-tabix, lv_span TYPE i, lt_results TYPE tt_results, ls_next LIKE LINE OF lt_results. FIELD-SYMBOLS: LIKE LINE OF lt_results. MOVE-CORRESPONDING is_repo_persi TO ls_repo. rv_html = rv_html && '' && '

' && lcl_url=>name( is_repo_persi-url ) && '

 ' && '

' && is_repo_persi-url && '

  ' && '

' && is_repo_persi-branch_name && '

  ' && '

' && is_repo_persi-package && '

  ' && '
' && '' && 'uninstall' && '
'. "#EC NOTEXT lcl_porcelain=>pull( EXPORTING is_repo = ls_repo IMPORTING et_files = lt_files ev_branch = lv_branch ). rv_html = rv_html && '
'. lt_results = lcl_objects=>status( it_files = lt_files iv_package = is_repo_persi-package ). IF lv_branch <> is_repo_persi-sha1. lv_status = 'pull'. "#EC NOTEXT ELSE. READ TABLE lt_results WITH KEY match = abap_false TRANSPORTING NO FIELDS. IF sy-subrc = 0. lv_status = 'commit'. "#EC NOTEXT ELSE. lv_status = 'match'. "#EC NOTEXT ENDIF. ENDIF. rv_html = rv_html && '' && gc_newline && '' && gc_newline && '' && gc_newline && '' && gc_newline && '' && gc_newline && '' && gc_newline && '' && gc_newline. LOOP AT lt_results ASSIGNING . lv_index = sy-tabix. CLEAR lv_link. IF lv_status = 'match' AND -filename IS INITIAL. lv_link = 'add'. ELSEIF -match = abap_false. lv_link = 'diff'. ENDIF. IF lv_span = 0. READ TABLE lt_results INTO ls_next INDEX lv_index. WHILE ls_next-obj_type = -obj_type AND ls_next-obj_name = -obj_name. lv_span = lv_span + 1. lv_index = lv_index + 1. READ TABLE lt_results INTO ls_next INDEX lv_index. IF sy-subrc <> 0. EXIT. " current loop. ENDIF. ENDWHILE. IF -obj_type IS INITIAL. lv_object = '' && gc_newline. ELSE. lv_object = '' && gc_newline. ENDIF. ELSE. CLEAR lv_object. ENDIF. rv_html = rv_html && '' && gc_newline && lv_object && '' && gc_newline && '' && gc_newline && '' && gc_newline && '' && gc_newline. lv_span = lv_span - 1. ENDLOOP. rv_html = rv_html && '
Local objectRemote file
 ' && -obj_type && ' ' && -obj_name && '
' && -match && '' && -filename && '' && lv_link && '
' && gc_newline. CASE lv_status. WHEN 'commit'. rv_html = rv_html && 'commit'. WHEN 'pull'. rv_html = rv_html && 'pull'. ENDCASE. rv_html = rv_html && '


'. ENDMETHOD. "render_repo METHOD run. 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. go_html_viewer->set_registered_events( lt_events ). SET HANDLER lcl_gui=>on_event 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. go_html_viewer->load_data( IMPORTING assigned_url = lv_url CHANGING data_table = lt_data ). go_html_viewer->show_url( lv_url ). ENDMETHOD. "view ENDCLASS. "lcl_gui IMPLEMENTATION *&---------------------------------------------------------------------* *& Form run *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM run. DATA: lx_exception TYPE REF TO lcx_exception, lv_ind TYPE t000-ccnocliind. IF sy-langu <> 'E'. WRITE: / 'Use English as logon language'. "#EC NOTEXT RETURN. ENDIF. SELECT SINGLE ccnocliind FROM t000 INTO lv_ind WHERE mandt = sy-mandt. IF sy-subrc = 0 AND lv_ind <> ' ' AND lv_ind <> '1'. " check changes allowed WRITE: / 'Wrong client, changes to repository objects not allowed'. "#EC NOTEXT RETURN. ENDIF. * bitbucket require agent prefix = "git/" gv_agent = 'git/abapGit ' && gc_abap_version. TRY. lcl_gui=>run( ). CATCH lcx_exception INTO lx_exception. MESSAGE lx_exception->mv_text TYPE 'E'. ENDTRY. WRITE: / '.'. " required ENDFORM. "run *----------------------------------------------------------------------* * CLASS test DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_abap_unit DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT FINAL. PRIVATE SECTION. METHODS encode_decode_tree FOR TESTING RAISING lcx_exception. METHODS encode_decode_commit FOR TESTING RAISING lcx_exception. METHODS encode_decode_pack_short FOR TESTING RAISING lcx_exception. METHODS encode_decode_pack_long FOR TESTING RAISING lcx_exception. METHODS encode_decode_pack_multiple FOR TESTING RAISING lcx_exception. METHODS convert_int FOR TESTING RAISING lcx_exception. METHODS repo_url FOR TESTING RAISING lcx_exception. METHODS repo_error FOR TESTING. METHODS serialize_tabl FOR TESTING RAISING lcx_exception. METHODS serialize_enqu FOR TESTING RAISING lcx_exception. METHODS serialize_shlp FOR TESTING RAISING lcx_exception. METHODS serialize_view FOR TESTING RAISING lcx_exception. ENDCLASS. "test DEFINITION *----------------------------------------------------------------------* * CLASS test IMPLEMENTATION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_abap_unit IMPLEMENTATION. METHOD serialize_enqu. DATA: ls_item TYPE st_item, lt_files TYPE tt_files. ls_item-obj_type = 'ENQU'. ls_item-obj_name = 'E_USR04'. lt_files = lcl_objects=>serialize( ls_item ). cl_abap_unit_assert=>assert_not_initial( lt_files ). ENDMETHOD. "lcl_abap_unit METHOD serialize_shlp. DATA: ls_item TYPE st_item, lt_files TYPE tt_files. ls_item-obj_type = 'SHLP'. ls_item-obj_name = 'USER_LOGON'. lt_files = lcl_objects=>serialize( ls_item ). cl_abap_unit_assert=>assert_not_initial( lt_files ). ENDMETHOD. "lcl_abap_unit METHOD serialize_view. DATA: ls_item TYPE st_item, lt_files TYPE tt_files. ls_item-obj_type = 'VIEW'. ls_item-obj_name = 'VUSR02_HEADER'. lt_files = lcl_objects=>serialize( ls_item ). cl_abap_unit_assert=>assert_not_initial( lt_files ). ENDMETHOD. "lcl_abap_unit METHOD serialize_tabl. DATA: ls_item TYPE st_item, lt_files TYPE tt_files. ls_item-obj_type = 'TABL'. ls_item-obj_name = 'USR02'. lt_files = lcl_objects=>serialize( ls_item ). cl_abap_unit_assert=>assert_not_initial( lt_files ). ENDMETHOD. "serialize_table METHOD repo_error. TRY. lcl_url=>host( 'not a real url' ). "#EC NOTEXT cl_abap_unit_assert=>fail( ). CATCH lcx_exception. "#EC NO_HANDLER ENDTRY. ENDMETHOD. "repo_error METHOD repo_url. DATA: lv_host TYPE string. lv_host = lcl_url=>host( 'https://github.com/larshp/Foobar.git' ). cl_abap_unit_assert=>assert_equals( exp = 'https://github.com' act = lv_host ). ENDMETHOD. "repo_url METHOD convert_int. DATA: lv_xstring TYPE xstring, lv_input TYPE i, lv_result TYPE i. DO 1000 TIMES. lv_input = sy-index. 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( exp = lv_input act = lv_result ). ENDDO. ENDMETHOD. "convert_int METHOD encode_decode_pack_multiple. DATA: lt_objects TYPE tt_objects, ls_object LIKE LINE OF lt_objects, lt_nodes TYPE tt_nodes, ls_node LIKE LINE OF lt_nodes, ls_commit TYPE st_commit, lt_result TYPE tt_objects, lv_data TYPE xstring. * blob lv_data = '123456789ABCDEF545794254754554'. CLEAR ls_object. ls_object-sha1 = lcl_hash=>sha1( iv_type = gc_blob iv_data = lv_data ). ls_object-type = gc_blob. ls_object-data = lv_data. APPEND ls_object TO lt_objects. * commit CLEAR ls_commit. ls_commit-tree = '5F46CB3C4B7F0B3600B64F744CDE614A283A88DC'. ls_commit-parent = '5F46CB3C4B7F0B3600B64F744CDE614A283A88DC'. ls_commit-author = 'John Foobar'. ls_commit-committer = 'John Foobar'. ls_commit-body = 'body'. lv_data = lcl_pack=>encode_commit( ls_commit ). CLEAR ls_object. ls_object-sha1 = lcl_hash=>sha1( iv_type = gc_commit iv_data = lv_data ). ls_object-type = gc_commit. ls_object-data = lv_data. APPEND ls_object TO lt_objects. * tree CLEAR ls_node. ls_node-chmod = '12456'. ls_node-name = 'foobar.abap'. ls_node-sha1 = '5F46CB3C4B7F0B3600B64F744CDE614A283A88DC'. APPEND ls_node TO lt_nodes. lv_data = lcl_pack=>encode_tree( lt_nodes ). CLEAR ls_object. ls_object-sha1 = lcl_hash=>sha1( iv_type = gc_tree iv_data = lv_data ). ls_object-type = gc_tree. ls_object-data = lv_data. APPEND ls_object TO lt_objects. CLEAR lv_data. lv_data = lcl_pack=>encode( lt_objects ). lt_result = lcl_pack=>decode( lv_data ). cl_abap_unit_assert=>assert_equals( exp = lt_objects act = lt_result ). ENDMETHOD. "encode_decode_pack_multiple METHOD encode_decode_pack_short. DATA: lt_objects TYPE tt_objects, ls_object LIKE LINE OF lt_objects, lt_result TYPE tt_objects, lv_data TYPE xstring. lv_data = '0123456789ABCDEF'. CLEAR ls_object. ls_object-sha1 = lcl_hash=>sha1( iv_type = gc_blob iv_data = lv_data ). ls_object-type = gc_blob. ls_object-data = lv_data. APPEND ls_object TO lt_objects. CLEAR lv_data. lv_data = lcl_pack=>encode( lt_objects ). lt_result = lcl_pack=>decode( lv_data ). cl_abap_unit_assert=>assert_equals( exp = lt_objects act = lt_result ). ENDMETHOD. "encode_decode_pack METHOD encode_decode_pack_long. DATA: lt_objects TYPE tt_objects, ls_object LIKE LINE OF lt_objects, lv_xstring TYPE xstring, lt_result TYPE tt_objects, lv_data TYPE xstring. lv_xstring = '0123456789ABCDEF'. DO 20 TIMES. CONCATENATE lv_xstring lv_data INTO lv_data IN BYTE MODE. ENDDO. CLEAR ls_object. ls_object-sha1 = lcl_hash=>sha1( iv_type = gc_blob iv_data = lv_data ). ls_object-type = gc_blob. ls_object-data = lv_data. APPEND ls_object TO lt_objects. CLEAR lv_data. lv_data = lcl_pack=>encode( lt_objects ). lt_result = lcl_pack=>decode( lv_data ). cl_abap_unit_assert=>assert_equals( exp = lt_objects act = lt_result ). ENDMETHOD. "encode_decode_pack_long METHOD encode_decode_tree. DATA: lt_nodes TYPE tt_nodes, ls_node LIKE LINE OF lt_nodes, lv_data TYPE xstring, lt_result TYPE tt_nodes. CLEAR ls_node. ls_node-chmod = gc_chmod_file. ls_node-name = 'foobar.txt'. ls_node-sha1 = '5F46CB3C4B7F0B3600B64F744CDE614A283A88DC'. APPEND ls_node TO lt_nodes. lv_data = lcl_pack=>encode_tree( lt_nodes ). lt_result = lcl_pack=>decode_tree( lv_data ). cl_abap_unit_assert=>assert_equals( exp = lt_nodes act = lt_result ). ENDMETHOD. "tree_encode_decode METHOD encode_decode_commit. DATA: ls_commit TYPE st_commit, ls_result TYPE st_commit, lv_data TYPE xstring. ls_commit-tree = '44CDE614A283A88DC5F46CB3C4B7F0B3600B64F7'. ls_commit-parent = '83A88DC5F46CB3C4B7F0B3600B64F744CDE614A2'. ls_commit-author = 'larshp 1387823471 +0100'. ls_commit-committer = 'larshp 1387823471 +0100'. ls_commit-body = 'very informative'. lv_data = lcl_pack=>encode_commit( ls_commit ). ls_result = lcl_pack=>decode_commit( lv_data ). cl_abap_unit_assert=>assert_equals( exp = ls_commit act = ls_result ). ENDMETHOD. "commit_encode_decode ENDCLASS. "lcl_abap_unit IMPLEMENTATION