From 5c0a16932632cf3db60043591ac758d5a6612a40 Mon Sep 17 00:00:00 2001 From: larshp Date: Fri, 1 Apr 2016 12:54:09 +0000 Subject: [PATCH] fix overwriting TYGR + old pretty printer --- zabapgit.prog.abap | 753 +++++++++++++++++++++++++++++---------------- 1 file changed, 480 insertions(+), 273 deletions(-) diff --git a/zabapgit.prog.abap b/zabapgit.prog.abap index 65b4635cf..14294b0f7 100644 --- a/zabapgit.prog.abap +++ b/zabapgit.prog.abap @@ -3,7 +3,7 @@ REPORT zabapgit. * See http://www.abapgit.org CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT - gc_abap_version TYPE string VALUE 'v1.2.1'. "#EC NOTEXT + gc_abap_version TYPE string VALUE 'v1.2.2'. "#EC NOTEXT ******************************************************************************** * The MIT License (MIT) @@ -1058,6 +1058,11 @@ CLASS lcl_user IMPLEMENTATION. ENDCLASS. "lcl_user IMPLEMENTATION +*----------------------------------------------------------------------* +* CLASS lcl_xml DEFINITION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_xml DEFINITION ABSTRACT. PUBLIC SECTION. @@ -1091,14 +1096,19 @@ CLASS lcl_xml DEFINITION ABSTRACT. METHODS display_xml_error RAISING lcx_exception. -ENDCLASS. +ENDCLASS. "lcl_xml DEFINITION +*----------------------------------------------------------------------* +* CLASS lcl_xml IMPLEMENTATION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_xml IMPLEMENTATION. METHOD constructor. mi_ixml = cl_ixml=>create( ). mi_xml_doc = mi_ixml->create_document( ). - ENDMETHOD. + ENDMETHOD. "constructor METHOD parse. @@ -1126,7 +1136,7 @@ CLASS lcl_xml IMPLEMENTATION. li_element = mi_xml_doc->find_from_name_ns( depth = 0 name = c_abapgit_tag ). li_version = li_element->if_ixml_node~get_attributes( - )->get_named_item_ns( c_attr_version ) ##NO_TEXT. + )->get_named_item_ns( c_attr_version ) ##no_text. IF li_version->get_value( ) <> gc_xml_version. display_xml_error( ). ENDIF. @@ -1135,7 +1145,7 @@ CLASS lcl_xml IMPLEMENTATION. ms_metadata-class = li_element->get_attribute_ns( c_attr_serializer ). ms_metadata-version = li_element->get_attribute_ns( c_attr_serializer_version ). - ENDMETHOD. + ENDMETHOD. "parse METHOD display_xml_error. @@ -1149,11 +1159,11 @@ CLASS lcl_xml IMPLEMENTATION. titel = 'abapGit XML version mismatch' txt1 = 'abapGit XML version mismatch' txt2 = 'See https://github.com/larshp/abapGit/wiki/XML-Mismatch' - txt3 = lv_version. "#EC NOTEXT + txt3 = lv_version. "#EC NOTEXT _raise 'XML error'. - ENDMETHOD. + ENDMETHOD. "display_xml_error METHOD to_xml. * will render to codepage UTF-16 @@ -1173,7 +1183,7 @@ CLASS lcl_xml IMPLEMENTATION. li_renderer->render( ). - ENDMETHOD. + ENDMETHOD. "to_xml METHOD error. @@ -1207,10 +1217,15 @@ CLASS lcl_xml IMPLEMENTATION. ENDIF. _raise 'Error while parsing XML'. - ENDMETHOD. + ENDMETHOD. "error -ENDCLASS. +ENDCLASS. "lcl_xml IMPLEMENTATION +*----------------------------------------------------------------------* +* CLASS lcl_xml_output DEFINITION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_xml_output DEFINITION FINAL INHERITING FROM lcl_xml CREATE PUBLIC. PUBLIC SECTION. @@ -1229,13 +1244,18 @@ CLASS lcl_xml_output DEFINITION FINAL INHERITING FROM lcl_xml CREATE PUBLIC. PRIVATE SECTION. DATA: mi_raw TYPE REF TO if_ixml_element. -ENDCLASS. +ENDCLASS. "lcl_xml_output DEFINITION +*----------------------------------------------------------------------* +* CLASS lcl_xml_output IMPLEMENTATION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_xml_output IMPLEMENTATION. METHOD set_raw. mi_raw = ii_raw. - ENDMETHOD. + ENDMETHOD. "set_raw METHOD add. @@ -1266,7 +1286,7 @@ CLASS lcl_xml_output IMPLEMENTATION. mi_xml_doc->get_root( )->append_child( li_doc->get_root( )->get_first_child( ) ). ENDIF. - ENDMETHOD. + ENDMETHOD. "add METHOD render. @@ -1294,10 +1314,15 @@ CLASS lcl_xml_output IMPLEMENTATION. rv_xml = to_xml( iv_normalize ). - ENDMETHOD. + ENDMETHOD. "render -ENDCLASS. +ENDCLASS. "lcl_xml_output IMPLEMENTATION +*----------------------------------------------------------------------* +* CLASS lcl_xml_input DEFINITION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_xml_input DEFINITION FINAL INHERITING FROM lcl_xml CREATE PUBLIC. PUBLIC SECTION. @@ -1317,8 +1342,13 @@ CLASS lcl_xml_input DEFINITION FINAL INHERITING FROM lcl_xml CREATE PUBLIC. PRIVATE SECTION. METHODS: fix_xml. -ENDCLASS. +ENDCLASS. "lcl_xml_input DEFINITION +*----------------------------------------------------------------------* +* CLASS lcl_xml_input IMPLEMENTATION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_xml_input IMPLEMENTATION. METHOD constructor. @@ -1327,11 +1357,11 @@ CLASS lcl_xml_input IMPLEMENTATION. parse( iv_xml ). fix_xml( ). - ENDMETHOD. + ENDMETHOD. "constructor METHOD get_raw. ri_raw = mi_xml_doc->get_root_element( ). - ENDMETHOD. + ENDMETHOD. "get_raw METHOD fix_xml. @@ -1345,7 +1375,7 @@ CLASS lcl_xml_input IMPLEMENTATION. mi_xml_doc->get_root( )->remove_child( li_git ). mi_xml_doc->get_root( )->append_child( li_abap ). - ENDMETHOD. + ENDMETHOD. "fix_xml METHOD read. @@ -1366,19 +1396,19 @@ CLASS lcl_xml_input IMPLEMENTATION. CALL TRANSFORMATION id OPTIONS value_handling = 'accept_data_loss' SOURCE XML mi_xml_doc - RESULT (lt_rtab) ##NO_TEXT. + RESULT (lt_rtab) ##no_text. CATCH cx_transformation_error INTO lx_error. lv_text = lx_error->if_message~get_text( ). _raise lv_text. ENDTRY. - ENDMETHOD. + ENDMETHOD. "read METHOD get_metadata. rs_metadata = ms_metadata. - ENDMETHOD. + ENDMETHOD. "get_metadata -ENDCLASS. +ENDCLASS. "lcl_xml_input IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_time DEFINITION @@ -1971,6 +2001,11 @@ CLASS lcl_git_pack DEFINITION FINAL. ENDCLASS. "lcl_pack DEFINITION +*----------------------------------------------------------------------* +* CLASS lcl_objects_activation DEFINITION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_objects_activation DEFINITION FINAL. PUBLIC SECTION. @@ -1992,19 +2027,24 @@ CLASS lcl_objects_activation DEFINITION FINAL. CLASS-DATA: gt_ddic TYPE TABLE OF dwinactiv, gt_programs TYPE TABLE OF dwinactiv. -ENDCLASS. +ENDCLASS. "lcl_objects_activation DEFINITION +*----------------------------------------------------------------------* +* CLASS lcl_objects_activation IMPLEMENTATION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_objects_activation IMPLEMENTATION. METHOD add_item. add( iv_type = is_item-obj_type iv_name = is_item-obj_name ). - ENDMETHOD. + ENDMETHOD. "add_item METHOD clear. CLEAR: gt_ddic, gt_programs. - ENDMETHOD. + ENDMETHOD. "clear METHOD activate. @@ -2096,8 +2136,13 @@ CLASS lcl_objects_activation IMPLEMENTATION. ENDMETHOD. "activate -ENDCLASS. +ENDCLASS. "lcl_objects_activation IMPLEMENTATION +*----------------------------------------------------------------------* +* CLASS lcl_objects_files DEFINITION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_objects_files DEFINITION FINAL. PUBLIC SECTION. @@ -2125,7 +2170,7 @@ CLASS lcl_objects_files DEFINITION FINAL. IMPORTING iv_extra TYPE clike OPTIONAL io_xml TYPE REF TO object iv_normalize TYPE sap_bool DEFAULT abap_true - RAISING lcx_exception ##CALLED, + RAISING lcx_exception ##called, read_xml IMPORTING iv_extra TYPE clike OPTIONAL RETURNING VALUE(ro_xml) TYPE REF TO lcl_xml_input @@ -2156,8 +2201,13 @@ CLASS lcl_objects_files DEFINITION FINAL. iv_ext TYPE string RETURNING VALUE(rv_filename) TYPE string. -ENDCLASS. +ENDCLASS. "lcl_objects_files DEFINITION +*----------------------------------------------------------------------* +* INTERFACE lif_object DEFINITION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* INTERFACE lif_object. METHODS: @@ -2180,25 +2230,30 @@ INTERFACE lif_object. DATA: mo_files TYPE REF TO lcl_objects_files. -ENDINTERFACE. +ENDINTERFACE. "lif_object DEFINITION +*----------------------------------------------------------------------* +* CLASS lcl_objects_files IMPLEMENTATION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_objects_files IMPLEMENTATION. METHOD constructor. ms_item = is_item. - ENDMETHOD. + ENDMETHOD. "constructor METHOD add. APPEND is_file TO mt_files. - ENDMETHOD. + ENDMETHOD. "add METHOD get_files. rt_files = mt_files. - ENDMETHOD. + ENDMETHOD. "get_files METHOD set_files. mt_files = it_files. - ENDMETHOD. + ENDMETHOD. "set_files METHOD read_string. @@ -2217,7 +2272,7 @@ CLASS lcl_objects_files IMPLEMENTATION. rv_string = lcl_convert=>xstring_to_string_utf8( -data ). - ENDMETHOD. + ENDMETHOD. "read_string METHOD read_abap. @@ -2274,7 +2329,7 @@ CLASS lcl_objects_files IMPLEMENTATION. APPEND ls_file TO mt_files. - ENDMETHOD. + ENDMETHOD. "add_string METHOD add_xml. @@ -2321,7 +2376,7 @@ CLASS lcl_objects_files IMPLEMENTATION. EXPORTING iv_xml = lv_xml. - ENDMETHOD. + ENDMETHOD. "read_xml METHOD filename. @@ -2362,9 +2417,9 @@ CLASS lcl_objects_files IMPLEMENTATION. io_xml = lo_xml iv_normalize = iv_normalize ). - ENDMETHOD. + ENDMETHOD. "add_xml_from_plugin -ENDCLASS. +ENDCLASS. "lcl_objects_files IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_objects_super DEFINITION @@ -2438,8 +2493,13 @@ CLASS lcl_objects_bridge DEFINITION INHERITING FROM lcl_objects_super FINAL. CLASS-DATA gt_objtype_map TYPE ty_t_objtype_map. -ENDCLASS. +ENDCLASS. "lcl_objects_bridge DEFINITION +*----------------------------------------------------------------------* +* CLASS lcl_objects_bridge IMPLEMENTATION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_objects_bridge IMPLEMENTATION. METHOD lif_object~get_metadata. @@ -2448,7 +2508,7 @@ CLASS lcl_objects_bridge IMPLEMENTATION. RECEIVING rs_metadata = rs_metadata. - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD constructor. @@ -2471,7 +2531,7 @@ CLASS lcl_objects_bridge IMPLEMENTATION. EXPORTING classname = 'LCL_OBJECTS_BRIDGE'. ENDIF. - ENDMETHOD. + ENDMETHOD. "constructor METHOD lif_object~serialize. @@ -2479,7 +2539,7 @@ CLASS lcl_objects_bridge IMPLEMENTATION. EXPORTING io_xml = io_xml. - ENDMETHOD. + ENDMETHOD. "lif_object~serialize METHOD lif_object~deserialize. @@ -2496,7 +2556,7 @@ CLASS lcl_objects_bridge IMPLEMENTATION. ix_previous = lx_plugin iv_text = lx_plugin->get_text( ). ENDTRY. - ENDMETHOD. + ENDMETHOD. "lif_object~deserialize METHOD lif_object~delete. DATA lx_plugin TYPE REF TO cx_static_check. @@ -2510,7 +2570,7 @@ CLASS lcl_objects_bridge IMPLEMENTATION. iv_text = lx_plugin->get_text( ). ENDTRY. - ENDMETHOD. + ENDMETHOD. "lif_object~delete METHOD lif_object~exists. @@ -2518,13 +2578,13 @@ CLASS lcl_objects_bridge IMPLEMENTATION. RECEIVING rv_bool = rv_bool. - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~jump. CALL METHOD mo_plugin->('ZIF_ABAPGIT_PLUGIN~JUMP'). - ENDMETHOD. + ENDMETHOD. "lif_object~jump METHOD class_constructor. @@ -2580,9 +2640,9 @@ CLASS lcl_objects_bridge IMPLEMENTATION. ENDLOOP. ENDLOOP. "at plugins - ENDMETHOD. + ENDMETHOD. "class_constructor -ENDCLASS. +ENDCLASS. "lcl_objects_bridge IMPLEMENTATION ********************************************************************** @@ -2684,8 +2744,13 @@ CLASS lcl_objects_program DEFINITION INHERITING FROM lcl_objects_super. IMPORTING is_cua TYPE ty_cua RAISING lcx_exception. -ENDCLASS. +ENDCLASS. "lcl_objects_program DEFINITION +*----------------------------------------------------------------------* +* CLASS lcl_objects_program IMPLEMENTATION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_objects_program IMPLEMENTATION. METHOD serialize_program. @@ -3071,7 +3136,7 @@ CLASS lcl_objects_program IMPLEMENTATION. ls_tr_key-sub_type = 'CUAD'. ls_tr_key-sub_name = ms_item-obj_name. - sy-tcode = 'SE41' ##WRITE_OK. " evil hack, workaround to handle fixes in note 2159455 + sy-tcode = 'SE41' ##write_ok. " evil hack, workaround to handle fixes in note 2159455 CALL FUNCTION 'RS_CUA_INTERNAL_WRITE' EXPORTING program = ms_item-obj_name @@ -3103,7 +3168,7 @@ CLASS lcl_objects_program IMPLEMENTATION. ENDMETHOD. "deserialize_cua -ENDCLASS. +ENDCLASS. "lcl_objects_program IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_objects_super IMPLEMENTATION @@ -3114,7 +3179,7 @@ CLASS lcl_objects_super IMPLEMENTATION. METHOD constructor. ms_item = is_item. - ENDMETHOD. + ENDMETHOD. "constructor METHOD jump_se11. @@ -3151,14 +3216,16 @@ CLASS lcl_objects_super IMPLEMENTATION. system_failure = 1 communication_failure = 2 resource_failure = 3 - OTHERS = 4 ##fm_subrc_ok. "#EC CI_SUBRC + OTHERS = 4 + ##fm_subrc_ok + . "#EC CI_SUBRC ENDMETHOD. "jump_se11 METHOD get_metadata. rs_metadata-class = cl_abap_classdescr=>describe_by_object_ref( me )->get_relative_name( ). - rs_metadata-version = 'v1.0.0' ##NO_TEXT. - ENDMETHOD. + rs_metadata-version = 'v1.0.0' ##no_text. + ENDMETHOD. "get_metadata METHOD add_tpool. @@ -3175,7 +3242,7 @@ CLASS lcl_objects_super IMPLEMENTATION. ENDIF. ENDLOOP. - ENDMETHOD. + ENDMETHOD. "add_tpool METHOD read_tpool. @@ -3193,7 +3260,7 @@ CLASS lcl_objects_super IMPLEMENTATION. ENDIF. ENDLOOP. - ENDMETHOD. + ENDMETHOD. "read_tpool METHOD corr_insert. @@ -3225,6 +3292,11 @@ CLASS lcl_objects_super IMPLEMENTATION. ENDCLASS. "lcl_objects_super IMPLEMENTATION +*----------------------------------------------------------------------* +* CLASS lcl_object_acid DEFINITION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_object_acid DEFINITION INHERITING FROM lcl_objects_super FINAL. PUBLIC SECTION. @@ -3236,13 +3308,18 @@ CLASS lcl_object_acid DEFINITION INHERITING FROM lcl_objects_super FINAL. RETURNING VALUE(ro_aab) TYPE REF TO cl_aab_id RAISING lcx_exception. -ENDCLASS. +ENDCLASS. "lcl_object_acid DEFINITION +*----------------------------------------------------------------------* +* CLASS lcl_object_acid IMPLEMENTATION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_object_acid IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD create_object. @@ -3261,7 +3338,7 @@ CLASS lcl_object_acid IMPLEMENTATION. _raise 'error creating CL_AAB_ID object'. ENDIF. - ENDMETHOD. + ENDMETHOD. "create_object METHOD lif_object~serialize. @@ -3280,7 +3357,7 @@ CLASS lcl_object_acid IMPLEMENTATION. io_xml->add( iv_name = 'DESCRIPTION' ig_data = lv_description ). - ENDMETHOD. + ENDMETHOD. "lif_object~serialize METHOD lif_object~deserialize. @@ -3296,7 +3373,7 @@ CLASS lcl_object_acid IMPLEMENTATION. lo_aab->set_descript( lv_description ). lo_aab->save( ). - ENDMETHOD. + ENDMETHOD. "lif_object~deserialize METHOD lif_object~delete. @@ -3322,7 +3399,7 @@ CLASS lcl_object_acid IMPLEMENTATION. ENDIF. lo_aab->dequeue( ). - ENDMETHOD. + ENDMETHOD. "lif_object~delete METHOD lif_object~exists. @@ -3337,27 +3414,37 @@ CLASS lcl_object_acid IMPLEMENTATION. ex_state = lv_state ). rv_bool = boolc( lv_state = abap_true ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~jump. _raise 'todo, jump, ACID'. - ENDMETHOD. + ENDMETHOD. "lif_object~jump -ENDCLASS. +ENDCLASS. "lcl_object_acid IMPLEMENTATION +*----------------------------------------------------------------------* +* CLASS lcl_object_auth DEFINITION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_object_auth DEFINITION INHERITING FROM lcl_objects_super FINAL. PUBLIC SECTION. INTERFACES lif_object. ALIASES mo_files FOR lif_object~mo_files. -ENDCLASS. +ENDCLASS. "lcl_object_auth DEFINITION +*----------------------------------------------------------------------* +* CLASS lcl_object_auth IMPLEMENTATION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_object_auth IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~serialize. @@ -3373,7 +3460,7 @@ CLASS lcl_object_auth IMPLEMENTATION. io_xml->add( iv_name = 'AUTHX' ig_data = ls_authx ). - ENDMETHOD. + ENDMETHOD. "lif_object~serialize METHOD lif_object~deserialize. * see include LSAUT_FIELDF02 @@ -3399,7 +3486,7 @@ CLASS lcl_object_auth IMPLEMENTATION. CALL FUNCTION 'DB_COMMIT'. lo_auth->set_authfld_info_from_db( ls_authx-fieldname ). - ENDMETHOD. + ENDMETHOD. "lif_object~deserialize METHOD lif_object~delete. @@ -3423,7 +3510,7 @@ CLASS lcl_object_auth IMPLEMENTATION. _raise 'error from SUSR_AUTF_DELETE_FIELD'. ENDIF. - ENDMETHOD. + ENDMETHOD. "lif_object~delete METHOD lif_object~exists. @@ -3435,24 +3522,34 @@ CLASS lcl_object_auth IMPLEMENTATION. WHERE fieldname = ms_item-obj_name. "#EC CI_GENBUFF rv_bool = boolc( sy-subrc = 0 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~jump. _raise 'todo, AUTH jump'. - ENDMETHOD. + ENDMETHOD. "lif_object~jump -ENDCLASS. +ENDCLASS. "lcl_object_auth IMPLEMENTATION +*----------------------------------------------------------------------* +* CLASS lcl_object_xslt DEFINITION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_object_xslt DEFINITION INHERITING FROM lcl_objects_super FINAL. PUBLIC SECTION. INTERFACES lif_object. ALIASES mo_files FOR lif_object~mo_files. -ENDCLASS. +ENDCLASS. "lcl_object_xslt DEFINITION +*----------------------------------------------------------------------* +* CLASS lcl_object_xslt IMPLEMENTATION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_object_xslt IMPLEMENTATION. METHOD lif_object~serialize. @@ -3495,7 +3592,7 @@ CLASS lcl_object_xslt IMPLEMENTATION. iv_ext = 'xml' iv_string = lv_source ). - ENDMETHOD. + ENDMETHOD. "lif_object~serialize METHOD lif_object~deserialize. @@ -3542,7 +3639,7 @@ CLASS lcl_object_xslt IMPLEMENTATION. lcl_objects_activation=>add_item( ms_item ). - ENDMETHOD. + ENDMETHOD. "lif_object~deserialize METHOD lif_object~delete. @@ -3571,7 +3668,7 @@ CLASS lcl_object_xslt IMPLEMENTATION. lo_xslt->delete( ). lo_xslt->save( ). - ENDMETHOD. + ENDMETHOD. "lif_object~delete METHOD lif_object~exists. @@ -3587,17 +3684,17 @@ CLASS lcl_object_xslt IMPLEMENTATION. rv_bool = abap_false. ENDIF. - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~jump. _raise 'XSLT, jump, todo'. - ENDMETHOD. + ENDMETHOD. "lif_object~jump METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata -ENDCLASS. +ENDCLASS. "lcl_object_xslt IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_object_doma DEFINITION @@ -3621,7 +3718,7 @@ CLASS lcl_object_doma IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -3634,7 +3731,7 @@ CLASS lcl_object_doma IMPLEMENTATION. AND as4vers = '0000'. rv_bool = boolc( sy-subrc = 0 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~jump. @@ -3783,7 +3880,7 @@ CLASS lcl_object_iarp IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD read. @@ -3816,7 +3913,7 @@ CLASS lcl_object_iarp IMPLEMENTATION. li_resource->get_parameters( IMPORTING p_parameters = et_parameters ). - ENDMETHOD. + ENDMETHOD. "read METHOD lif_object~serialize. @@ -3836,7 +3933,7 @@ CLASS lcl_object_iarp IMPLEMENTATION. io_xml->add( iv_name = 'PARAMETERS' ig_data = lt_parameters ). - ENDMETHOD. + ENDMETHOD. "lif_object~serialize METHOD save. @@ -3852,7 +3949,7 @@ CLASS lcl_object_iarp IMPLEMENTATION. li_resource->if_w3_api_object~save( ). - ENDMETHOD. + ENDMETHOD. "save METHOD lif_object~deserialize. @@ -3869,7 +3966,7 @@ CLASS lcl_object_iarp IMPLEMENTATION. save( is_attr = ls_attr it_parameters = lt_parameters ). - ENDMETHOD. + ENDMETHOD. "lif_object~deserialize METHOD lif_object~delete. @@ -3897,7 +3994,7 @@ CLASS lcl_object_iarp IMPLEMENTATION. li_resource->if_w3_api_object~delete( ). li_resource->if_w3_api_object~save( ). - ENDMETHOD. + ENDMETHOD. "lif_object~delete METHOD lif_object~exists. @@ -3922,13 +4019,13 @@ CLASS lcl_object_iarp IMPLEMENTATION. rv_bool = abap_true. ENDIF. - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~jump. _raise 'todo, IARP, jump'. - ENDMETHOD. + ENDMETHOD. "lif_object~jump -ENDCLASS. +ENDCLASS. "lcl_object_iarp IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_object_iasp DEFINITION @@ -3963,7 +4060,7 @@ CLASS lcl_object_iasp IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD read. @@ -3996,7 +4093,7 @@ CLASS lcl_object_iasp IMPLEMENTATION. li_service->get_parameters( IMPORTING p_parameters = et_parameters ). - ENDMETHOD. + ENDMETHOD. "read METHOD lif_object~serialize. @@ -4016,7 +4113,7 @@ CLASS lcl_object_iasp IMPLEMENTATION. io_xml->add( iv_name = 'PARAMETERS' ig_data = lt_parameters ). - ENDMETHOD. + ENDMETHOD. "lif_object~serialize METHOD save. @@ -4032,7 +4129,7 @@ CLASS lcl_object_iasp IMPLEMENTATION. li_service->if_w3_api_object~save( ). - ENDMETHOD. + ENDMETHOD. "save METHOD lif_object~deserialize. @@ -4049,7 +4146,7 @@ CLASS lcl_object_iasp IMPLEMENTATION. save( is_attr = ls_attr it_parameters = lt_parameters ). - ENDMETHOD. + ENDMETHOD. "lif_object~deserialize METHOD lif_object~delete. @@ -4077,7 +4174,7 @@ CLASS lcl_object_iasp IMPLEMENTATION. li_service->if_w3_api_object~delete( ). li_service->if_w3_api_object~save( ). - ENDMETHOD. + ENDMETHOD. "lif_object~delete METHOD lif_object~exists. @@ -4102,13 +4199,13 @@ CLASS lcl_object_iasp IMPLEMENTATION. rv_bool = abap_true. ENDIF. - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~jump. _raise 'todo, IASP, jump'. - ENDMETHOD. + ENDMETHOD. "lif_object~jump -ENDCLASS. +ENDCLASS. "lcl_object_iasp IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_object_iatu DEFINITION @@ -4132,7 +4229,7 @@ CLASS lcl_object_iatu DEFINITION INHERITING FROM lcl_objects_super FINAL. iv_source TYPE string RAISING lcx_exception. -ENDCLASS. +ENDCLASS. "lcl_object_iatu DEFINITION *----------------------------------------------------------------------* * CLASS lcl_object_iatu IMPLEMENTATION @@ -4143,7 +4240,7 @@ CLASS lcl_object_iatu IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD read. @@ -4179,7 +4276,7 @@ CLASS lcl_object_iatu IMPLEMENTATION. CONCATENATE LINES OF lt_source INTO ev_source RESPECTING BLANKS. - ENDMETHOD. + ENDMETHOD. "read METHOD lif_object~serialize. @@ -4200,7 +4297,7 @@ CLASS lcl_object_iatu IMPLEMENTATION. mo_files->add_string( iv_ext = 'html' iv_string = lv_source ). - ENDMETHOD. + ENDMETHOD. "lif_object~serialize METHOD save. @@ -4229,7 +4326,7 @@ CLASS lcl_object_iatu IMPLEMENTATION. li_template->if_w3_api_object~save( ). - ENDMETHOD. + ENDMETHOD. "save METHOD lif_object~deserialize. @@ -4246,7 +4343,7 @@ CLASS lcl_object_iatu IMPLEMENTATION. save( is_attr = ls_attr iv_source = lv_source ). - ENDMETHOD. + ENDMETHOD. "lif_object~deserialize METHOD lif_object~delete. @@ -4274,7 +4371,7 @@ CLASS lcl_object_iatu IMPLEMENTATION. li_template->if_w3_api_object~delete( ). li_template->if_w3_api_object~save( ). - ENDMETHOD. + ENDMETHOD. "lif_object~delete METHOD lif_object~exists. @@ -4299,13 +4396,13 @@ CLASS lcl_object_iatu IMPLEMENTATION. rv_bool = abap_true. ENDIF. - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~jump. _raise 'todo, IATU, jump'. - ENDMETHOD. + ENDMETHOD. "lif_object~jump -ENDCLASS. +ENDCLASS. "lcl_object_iatu IMPLEMENTATION *----------------------------------------------------------------------* @@ -4330,7 +4427,7 @@ CLASS lcl_object_dtel IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -4343,7 +4440,7 @@ CLASS lcl_object_dtel IMPLEMENTATION. AND as4vers = '0000'. rv_bool = boolc( sy-subrc = 0 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~jump. @@ -4513,10 +4610,15 @@ CLASS lcl_object_clas DEFINITION INHERITING FROM lcl_objects_super. ENDCLASS. "lcl_object_dtel DEFINITION +*----------------------------------------------------------------------* +* CLASS lcl_object_intf DEFINITION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_object_intf DEFINITION INHERITING FROM lcl_object_clas FINAL. * todo, CLAS + INTF to be refactored, see: * https://github.com/larshp/abapGit/issues/21 -ENDCLASS. +ENDCLASS. "lcl_object_intf DEFINITION *----------------------------------------------------------------------* * CLASS lcl_object_dtel IMPLEMENTATION @@ -4527,7 +4629,7 @@ CLASS lcl_object_clas IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -4548,7 +4650,7 @@ CLASS lcl_object_clas IMPLEMENTATION. OTHERS = 6. rv_bool = boolc( sy-subrc <> 2 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~jump. @@ -5177,7 +5279,7 @@ CLASS lcl_object_smim IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -5188,7 +5290,7 @@ CLASS lcl_object_smim IMPLEMENTATION. rv_bool = abap_false. ENDTRY. - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD get_url_for_io. @@ -5495,7 +5597,7 @@ CLASS lcl_object_sicf IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -5505,7 +5607,7 @@ CLASS lcl_object_sicf IMPLEMENTATION. read( IMPORTING es_icfservice = ls_icfservice ). rv_bool = boolc( NOT ls_icfservice IS INITIAL ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~serialize. @@ -5849,7 +5951,7 @@ CLASS lcl_object_ssst IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -5860,7 +5962,7 @@ CLASS lcl_object_ssst IMPLEMENTATION. WHERE stylename = ms_item-obj_name. rv_bool = boolc( sy-subrc = 0 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD validate_font. @@ -6091,7 +6193,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -6104,7 +6206,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION. AND version = 'A'. "#EC CI_GENBUFF rv_bool = boolc( sy-subrc = 0 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD delta_definition. @@ -6701,14 +6803,14 @@ CLASS lcl_object_wdca IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD constructor. super->constructor( is_item = is_item ). RAISE EXCEPTION TYPE cx_sy_create_object_error. * This serializer is currently not yet functional. * Prevent instantiation in order to enable handling of WDCA by plugins - ENDMETHOD. + ENDMETHOD. "constructor METHOD lif_object~exists. @@ -6718,7 +6820,7 @@ CLASS lcl_object_wdca IMPLEMENTATION. read( IMPORTING es_outline = ls_outline ). rv_bool = boolc( NOT ls_outline IS INITIAL ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD save. _raise 'WDCA, save not implemented'. @@ -6899,7 +7001,7 @@ CLASS lcl_object_wdya IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -6919,7 +7021,7 @@ CLASS lcl_object_wdya IMPLEMENTATION. _raise 'WDYA, permission failure'. ENDTRY. - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD read. @@ -7090,7 +7192,7 @@ CLASS lcl_object_suso IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -7101,7 +7203,7 @@ CLASS lcl_object_suso IMPLEMENTATION. WHERE objct = ms_item-obj_name. rv_bool = boolc( sy-subrc = 0 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~serialize. @@ -7239,7 +7341,7 @@ CLASS lcl_object_susc IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -7250,7 +7352,7 @@ CLASS lcl_object_susc IMPLEMENTATION. WHERE oclss = ms_item-obj_name. rv_bool = boolc( sy-subrc = 0 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~serialize. @@ -7366,7 +7468,7 @@ CLASS lcl_object_type IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -7377,7 +7479,7 @@ CLASS lcl_object_type IMPLEMENTATION. rv_bool = abap_false. ENDTRY. - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD read. @@ -7443,6 +7545,10 @@ CLASS lcl_object_type IMPLEMENTATION. lv_typegroup = ms_item-obj_name. + IF lif_object~exists( ) = abap_true. + lif_object~delete( ). + ENDIF. + CALL FUNCTION 'RS_DD_TYGR_INSERT_SOURCES' EXPORTING typegroupname = lv_typegroup @@ -7546,7 +7652,7 @@ CLASS lcl_object_para IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -7557,7 +7663,7 @@ CLASS lcl_object_para IMPLEMENTATION. WHERE paramid = ms_item-obj_name. "#EC CI_GENBUFF rv_bool = boolc( sy-subrc = 0 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~serialize. @@ -7662,19 +7768,29 @@ CLASS lcl_object_para IMPLEMENTATION. ENDCLASS. "lcl_object_para IMPLEMENTATION +*----------------------------------------------------------------------* +* CLASS lcl_object_splo DEFINITION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_object_splo DEFINITION INHERITING FROM lcl_objects_super FINAL. PUBLIC SECTION. INTERFACES lif_object. ALIASES mo_files FOR lif_object~mo_files. -ENDCLASS. +ENDCLASS. "lcl_object_splo DEFINITION +*----------------------------------------------------------------------* +* CLASS lcl_object_splo IMPLEMENTATION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_object_splo IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~serialize. @@ -7707,7 +7823,7 @@ CLASS lcl_object_splo IMPLEMENTATION. io_xml->add( iv_name = 'TSP0P' ig_data = ls_tsp0p ). - ENDMETHOD. + ENDMETHOD. "lif_object~serialize METHOD lif_object~deserialize. @@ -7737,7 +7853,7 @@ CLASS lcl_object_splo IMPLEMENTATION. wi_e071_obj_name = lv_obj_name wi_tadir_devclass = iv_package. - ENDMETHOD. + ENDMETHOD. "lif_object~deserialize METHOD lif_object~delete. @@ -7753,7 +7869,7 @@ CLASS lcl_object_splo IMPLEMENTATION. wi_tadir_obj_name = ms_item-obj_name wi_test_modus = abap_false. - ENDMETHOD. + ENDMETHOD. "lif_object~delete METHOD lif_object~exists. @@ -7764,13 +7880,13 @@ CLASS lcl_object_splo IMPLEMENTATION. WHERE papart = ms_item-obj_name. rv_bool = boolc( sy-subrc = 0 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~jump. _raise 'todo, jump, SPLO'. - ENDMETHOD. + ENDMETHOD. "lif_object~jump -ENDCLASS. +ENDCLASS. "lcl_object_splo IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_object_ssfo DEFINITION @@ -7794,7 +7910,7 @@ CLASS lcl_object_ssfo IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -7805,7 +7921,7 @@ CLASS lcl_object_ssfo IMPLEMENTATION. WHERE formname = ms_item-obj_name. rv_bool = boolc( sy-subrc = 0 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~jump. @@ -7842,7 +7958,9 @@ CLASS lcl_object_ssfo IMPLEMENTATION. system_failure = 1 communication_failure = 2 resource_failure = 3 - OTHERS = 4 ##fm_subrc_ok. "#EC CI_SUBRC + OTHERS = 4 + ##fm_subrc_ok + . "#EC CI_SUBRC ENDMETHOD. "jump @@ -8016,7 +8134,7 @@ CLASS lcl_object_tabl IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -8029,7 +8147,7 @@ CLASS lcl_object_tabl IMPLEMENTATION. AND as4vers = '0000'. rv_bool = boolc( sy-subrc = 0 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~jump. @@ -8304,7 +8422,7 @@ CLASS lcl_object_enho IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -8318,7 +8436,7 @@ CLASS lcl_object_enho IMPLEMENTATION. IF ls_tadir IS NOT INITIAL. rv_bool = abap_true. ENDIF. - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~serialize. @@ -8610,7 +8728,7 @@ CLASS lcl_object_enqu IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -8623,7 +8741,7 @@ CLASS lcl_object_enqu IMPLEMENTATION. AND as4vers = '0000'. rv_bool = boolc( sy-subrc = 0 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~jump. @@ -8763,7 +8881,7 @@ CLASS lcl_object_shlp IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -8775,7 +8893,7 @@ CLASS lcl_object_shlp IMPLEMENTATION. AND as4local = 'A'. "#EC CI_GENBUFF rv_bool = boolc( sy-subrc = 0 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~jump. @@ -8948,7 +9066,7 @@ CLASS lcl_object_tran IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD split_parameters_comp. DATA: lv_off TYPE i. @@ -8960,7 +9078,7 @@ CLASS lcl_object_tran IMPLEMENTATION. CLEAR cg_value+sy-fdpos. ENDIF. ENDIF. - ENDMETHOD. + ENDMETHOD. "split_parameters_comp METHOD split_parameters. * see subroutine split_parameters in include LSEUKF01 @@ -9089,7 +9207,7 @@ CLASS lcl_object_tran IMPLEMENTATION. ENDCASE. ENDLOOP. ENDIF. - ENDMETHOD. + ENDMETHOD. "split_parameters METHOD lif_object~exists. @@ -9100,7 +9218,7 @@ CLASS lcl_object_tran IMPLEMENTATION. WHERE tcode = ms_item-obj_name. "#EC CI_GENBUFF rv_bool = boolc( sy-subrc = 0 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~jump. @@ -9133,7 +9251,9 @@ CLASS lcl_object_tran IMPLEMENTATION. system_failure = 1 communication_failure = 2 resource_failure = 3 - OTHERS = 4 ##fm_subrc_ok. "#EC CI_SUBRC + OTHERS = 4 + ##fm_subrc_ok + . "#EC CI_SUBRC ENDMETHOD. "jump @@ -9326,7 +9446,7 @@ CLASS lcl_object_tobj IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -9340,7 +9460,7 @@ CLASS lcl_object_tobj IMPLEMENTATION. AND objecttype = ms_item-obj_name+lv_type_pos. "#EC CI_GENBUFF rv_bool = boolc( sy-subrc = 0 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~serialize. @@ -9499,7 +9619,7 @@ CLASS lcl_object_msag IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -9510,7 +9630,7 @@ CLASS lcl_object_msag IMPLEMENTATION. WHERE arbgb = ms_item-obj_name. "#EC CI_GENBUFF rv_bool = boolc( sy-subrc = 0 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~jump. @@ -9726,7 +9846,7 @@ CLASS lcl_object_fugr IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -9741,7 +9861,7 @@ CLASS lcl_object_fugr IMPLEMENTATION. pool_not_exists = 1. rv_bool = boolc( sy-subrc <> 1 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD deserialize_functions. @@ -10276,7 +10396,7 @@ CLASS lcl_object_view IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -10289,7 +10409,7 @@ CLASS lcl_object_view IMPLEMENTATION. AND as4vers = '0000'. rv_bool = boolc( sy-subrc = 0 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~jump. @@ -10457,7 +10577,7 @@ CLASS lcl_object_nrob IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -10468,7 +10588,7 @@ CLASS lcl_object_nrob IMPLEMENTATION. WHERE object = ms_item-obj_name. rv_bool = boolc( sy-subrc = 0 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~serialize. @@ -10611,7 +10731,7 @@ CLASS lcl_object_ttyp IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -10623,7 +10743,7 @@ CLASS lcl_object_ttyp IMPLEMENTATION. AND as4local = 'A'. rv_bool = boolc( sy-subrc = 0 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~jump. @@ -10769,7 +10889,7 @@ CLASS lcl_object_prog IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -10781,7 +10901,7 @@ CLASS lcl_object_prog IMPLEMENTATION. AND r3state = 'A'. rv_bool = boolc( sy-subrc = 0 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~jump. @@ -10900,11 +11020,16 @@ ENDCLASS. "lcl_object_vcls DEFINITION * *----------------------------------------------------------------------* INCLUDE mtobjcon. +*----------------------------------------------------------------------* +* CLASS lcl_object_vcls IMPLEMENTATION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_object_vcls IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. DATA lv_vclname TYPE vcl_name. @@ -10913,7 +11038,7 @@ CLASS lcl_object_vcls IMPLEMENTATION. rv_bool = boolc( sy-subrc = 0 ). - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~serialize. @@ -11081,7 +11206,7 @@ CLASS lcl_object_sfsw IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -11101,7 +11226,7 @@ CLASS lcl_object_sfsw IMPLEMENTATION. ENDIF. rv_bool = abap_true. - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~serialize. @@ -11258,7 +11383,7 @@ CLASS lcl_object_sfbf IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -11278,7 +11403,7 @@ CLASS lcl_object_sfbf IMPLEMENTATION. ENDIF. rv_bool = abap_true. - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~serialize. @@ -11466,7 +11591,7 @@ CLASS lcl_object_sfbs IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata METHOD lif_object~exists. @@ -11486,7 +11611,7 @@ CLASS lcl_object_sfbs IMPLEMENTATION. ENDIF. rv_bool = abap_true. - ENDMETHOD. + ENDMETHOD. "lif_object~exists METHOD lif_object~serialize. @@ -11659,7 +11784,7 @@ CLASS lcl_object_w3super IMPLEMENTATION. METHOD lif_object~get_metadata. rs_metadata = get_metadata( ). - ENDMETHOD. + ENDMETHOD. "lif_object~get_metadata """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" " W3xx EXISTS @@ -11681,7 +11806,7 @@ CLASS lcl_object_w3super IMPLEMENTATION. rv_bool = abap_true. - ENDMETHOD. + ENDMETHOD. "lif_object~exists """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" " W3xx SERIALIZE @@ -11922,7 +12047,7 @@ CLASS lcl_object_w3super IMPLEMENTATION. _raise 'Cannot update TADIR for W3xx'. ENDIF. - ENDMETHOD. + ENDMETHOD. "lif_object~deserialize """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" " W3xx DELETE @@ -11953,7 +12078,7 @@ CLASS lcl_object_w3super IMPLEMENTATION. _raise 'Cannot delete W3xx params'. ENDIF. - ENDMETHOD. + ENDMETHOD. "lif_object~delete ENDCLASS. "lcl_object_W3SUPER IMPLEMENTATION @@ -11974,6 +12099,11 @@ CLASS lcl_object_w3ht DEFINITION INHERITING FROM lcl_object_w3super FINAL. ENDCLASS. "lcl_object_W3HT DEFINITION +*----------------------------------------------------------------------* +* CLASS lcl_file_status DEFINITION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_file_status DEFINITION FINAL. PUBLIC SECTION. @@ -12002,7 +12132,7 @@ CLASS lcl_file_status DEFINITION FINAL. RETURNING VALUE(rv_match) TYPE sap_bool RAISING lcx_exception. -ENDCLASS. +ENDCLASS. "lcl_file_status DEFINITION *----------------------------------------------------------------------* * CLASS lcl_object DEFINITION @@ -12128,7 +12258,7 @@ CLASS lcl_tadir IMPLEMENTATION. ENDIF. ENDLOOP. - ENDMETHOD. + ENDMETHOD. "check_exists METHOD read. @@ -12195,7 +12325,7 @@ CLASS lcl_tadir IMPLEMENTATION. * ZZZ_something. This will define the folder name in the zip file to be "something", * similarily with online projects lv_message = 'Unexpected package naming(' && - -devclass && ')' ##NO_TEXT. + -devclass && ')' ##no_text. MESSAGE lv_message TYPE 'I'. CONTINUE. ENDIF. @@ -12217,6 +12347,11 @@ CLASS lcl_tadir IMPLEMENTATION. ENDCLASS. "lcl_tadir IMPLEMENTATION +*----------------------------------------------------------------------* +* CLASS lcl_file_status IMPLEMENTATION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_file_status IMPLEMENTATION. METHOD compare_files. @@ -12231,7 +12366,7 @@ CLASS lcl_file_status IMPLEMENTATION. rv_match = abap_true. ENDIF. - ENDMETHOD. + ENDMETHOD. "compare_files METHOD status. @@ -12338,7 +12473,7 @@ CLASS lcl_file_status IMPLEMENTATION. ENDMETHOD. "status -ENDCLASS. +ENDCLASS. "lcl_file_status IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_package DEFINITION @@ -12671,7 +12806,7 @@ CLASS lcl_objects IMPLEMENTATION. ENDTRY. ENDTRY. - ENDMETHOD. + ENDMETHOD. "create_object METHOD is_supported. @@ -12682,7 +12817,7 @@ CLASS lcl_objects IMPLEMENTATION. rv_bool = abap_false. ENDTRY. - ENDMETHOD. + ENDMETHOD. "is_supported METHOD supported_list. @@ -12708,7 +12843,7 @@ CLASS lcl_objects IMPLEMENTATION. APPEND lv_type TO rt_types. ENDLOOP. - ENDMETHOD. + ENDMETHOD. "supported_list METHOD exists. @@ -12723,7 +12858,7 @@ CLASS lcl_objects IMPLEMENTATION. rv_bool = abap_true. ENDTRY. - ENDMETHOD. + ENDMETHOD. "exists METHOD class_name. @@ -12972,7 +13107,7 @@ CLASS lcl_objects IMPLEMENTATION. APPEND TO rt_results. ENDLOOP. - ENDMETHOD. + ENDMETHOD. "prioritize_deser METHOD deserialize. @@ -14144,6 +14279,11 @@ CLASS lcl_persistence IMPLEMENTATION. ENDCLASS. "lcl_persistence IMPLEMENTATION +*----------------------------------------------------------------------* +* CLASS lcl_repo DEFINITION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_repo DEFINITION ABSTRACT. PUBLIC SECTION. @@ -14174,8 +14314,13 @@ CLASS lcl_repo DEFINITION ABSTRACT. DATA: mv_key TYPE ty_key, ms_data TYPE lcl_persistence=>ty_repo_persi. -ENDCLASS. +ENDCLASS. "lcl_repo DEFINITION +*----------------------------------------------------------------------* +* CLASS lcl_repo_online DEFINITION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_repo_online DEFINITION INHERITING FROM lcl_repo FINAL. PUBLIC SECTION. @@ -14219,15 +14364,20 @@ CLASS lcl_repo_online DEFINITION INHERITING FROM lcl_repo FINAL. IMPORTING iv_sha1 TYPE ty_sha1 RAISING lcx_exception. -ENDCLASS. +ENDCLASS. "lcl_repo_online DEFINITION +*----------------------------------------------------------------------* +* CLASS lcl_repo_offline DEFINITION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_repo_offline DEFINITION INHERITING FROM lcl_repo FINAL. PUBLIC SECTION. METHODS: render REDEFINITION. -ENDCLASS. +ENDCLASS. "lcl_repo_offline DEFINITION *----------------------------------------------------------------------* * CLASS lcl_porcelain DEFINITION @@ -14397,14 +14547,24 @@ CLASS lcl_gui DEFINITION FINAL. ENDCLASS. "lcl_gui DEFINITION +*----------------------------------------------------------------------* +* CLASS lcl_repo_offline IMPLEMENTATION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_repo_offline IMPLEMENTATION. METHOD render. rv_html = lcl_gui=>render_repo_offline( me ). - ENDMETHOD. + ENDMETHOD. "render -ENDCLASS. +ENDCLASS. "lcl_repo_offline IMPLEMENTATION +*----------------------------------------------------------------------* +* CLASS lcl_repo_srv DEFINITION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_repo_srv DEFINITION FINAL. PUBLIC SECTION. @@ -14464,8 +14624,13 @@ CLASS lcl_repo_srv DEFINITION FINAL. iv_total TYPE i iv_text TYPE string. -ENDCLASS. +ENDCLASS. "lcl_repo_srv DEFINITION +*----------------------------------------------------------------------* +* CLASS lcl_repo_online IMPLEMENTATION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_repo_online IMPLEMENTATION. METHOD constructor. @@ -14475,14 +14640,14 @@ CLASS lcl_repo_online IMPLEMENTATION. refresh( ). - ENDMETHOD. + ENDMETHOD. "constructor METHOD status. rt_results = lcl_file_status=>status( it_files = mt_files iv_package = get_package( ) ). - ENDMETHOD. + ENDMETHOD. "status METHOD deserialize. @@ -14492,7 +14657,7 @@ CLASS lcl_repo_online IMPLEMENTATION. lcl_repo_srv=>add( me ). set_sha1( mv_branch ). - ENDMETHOD. + ENDMETHOD. "deserialize METHOD refresh. @@ -14501,35 +14666,35 @@ CLASS lcl_repo_online IMPLEMENTATION. et_objects = mt_objects ev_branch = mv_branch ). - ENDMETHOD. + ENDMETHOD. "refresh METHOD get_sha1_remote. rv_sha1 = mv_branch. - ENDMETHOD. + ENDMETHOD. "get_sha1_remote METHOD get_files. rt_files = mt_files. - ENDMETHOD. + ENDMETHOD. "get_files METHOD get_objects. rt_objects = mt_objects. - ENDMETHOD. + ENDMETHOD. "get_objects METHOD render. rv_html = lcl_gui=>render_repo_online( me ). - ENDMETHOD. + ENDMETHOD. "render METHOD get_url. rv_url = ms_data-url. - ENDMETHOD. + ENDMETHOD. "get_url METHOD get_branch_name. rv_name = ms_data-branch_name. - ENDMETHOD. + ENDMETHOD. "get_branch_name METHOD get_sha1_local. rv_sha1 = ms_data-sha1. - ENDMETHOD. + ENDMETHOD. "get_sha1_local METHOD push. @@ -14544,7 +14709,7 @@ CLASS lcl_repo_online IMPLEMENTATION. refresh( ). - ENDMETHOD. + ENDMETHOD. "push METHOD set_sha1. @@ -14559,23 +14724,28 @@ CLASS lcl_repo_online IMPLEMENTATION. ms_data-sha1 = iv_sha1. - ENDMETHOD. + ENDMETHOD. "set_sha1 -ENDCLASS. +ENDCLASS. "lcl_repo_online IMPLEMENTATION +*----------------------------------------------------------------------* +* CLASS lcl_repo IMPLEMENTATION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_repo IMPLEMENTATION. METHOD constructor. ms_data = is_data. mv_key = iv_key. - ENDMETHOD. + ENDMETHOD. "constructor METHOD render. * to be implemented in subclass ASSERT 1 = 0. - ENDMETHOD. + ENDMETHOD. "render METHOD delete. @@ -14588,14 +14758,14 @@ CLASS lcl_repo IMPLEMENTATION. iv_url = ms_data-url iv_branch_name = ms_data-branch_name ). - ENDMETHOD. + ENDMETHOD. "delete METHOD refresh. * redefined in LCL_REPO_ONLINE RETURN. - ENDMETHOD. + ENDMETHOD. "refresh METHOD add. @@ -14611,15 +14781,15 @@ CLASS lcl_repo IMPLEMENTATION. iv_package = ms_data-package iv_offline = ms_data-offline ). - ENDMETHOD. + ENDMETHOD. "add METHOD get_package. rv_package = ms_data-package. - ENDMETHOD. + ENDMETHOD. "get_package METHOD get_key. rv_key = mv_key. - ENDMETHOD. + ENDMETHOD. "get_key METHOD get_name. @@ -14629,15 +14799,20 @@ CLASS lcl_repo IMPLEMENTATION. rv_name = lcl_url=>name( ms_data-url ). ENDIF. - ENDMETHOD. + ENDMETHOD. "get_name -ENDCLASS. +ENDCLASS. "lcl_repo IMPLEMENTATION +*----------------------------------------------------------------------* +* CLASS lcl_repo_srv IMPLEMENTATION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS lcl_repo_srv IMPLEMENTATION. METHOD class_constructor. CREATE OBJECT go_persistence. - ENDMETHOD. + ENDMETHOD. "class_constructor METHOD list. @@ -14647,7 +14822,7 @@ CLASS lcl_repo_srv IMPLEMENTATION. rt_list = gt_list. - ENDMETHOD. + ENDMETHOD. "list METHOD get. @@ -14663,7 +14838,7 @@ CLASS lcl_repo_srv IMPLEMENTATION. ASSERT 1 = 0. - ENDMETHOD. + ENDMETHOD. "get METHOD refresh. @@ -14704,7 +14879,7 @@ CLASS lcl_repo_srv IMPLEMENTATION. gv_init = abap_true. - ENDMETHOD. + ENDMETHOD. "refresh METHOD new_online. @@ -14722,7 +14897,7 @@ CLASS lcl_repo_srv IMPLEMENTATION. iv_key = lines( gt_list ) + 1 is_data = ls_repo_persi. - ENDMETHOD. + ENDMETHOD. "new_online METHOD new_offline. @@ -14742,7 +14917,7 @@ CLASS lcl_repo_srv IMPLEMENTATION. add( ro_repo ). - ENDMETHOD. + ENDMETHOD. "new_offline METHOD add. @@ -14762,7 +14937,7 @@ CLASS lcl_repo_srv IMPLEMENTATION. APPEND io_repo TO gt_list. - ENDMETHOD. + ENDMETHOD. "add METHOD show_progress. @@ -14783,7 +14958,7 @@ CLASS lcl_repo_srv IMPLEMENTATION. percentage = lv_pct text = lv_text. - ENDMETHOD. + ENDMETHOD. "show_progress METHOD validate_package. @@ -14813,7 +14988,7 @@ CLASS lcl_repo_srv IMPLEMENTATION. _raise 'Package already in use'. ENDIF. - ENDMETHOD. + ENDMETHOD. "validate_package METHOD delete. @@ -14822,9 +14997,9 @@ CLASS lcl_repo_srv IMPLEMENTATION. DELETE TABLE gt_list FROM io_repo. ASSERT sy-subrc = 0. - ENDMETHOD. + ENDMETHOD. "delete -ENDCLASS. +ENDCLASS. "lcl_repo_srv IMPLEMENTATION *----------------------------------------------------------------------* * CLASS lcl_transport DEFINITION @@ -14928,7 +15103,7 @@ CLASS lcl_git_transport IMPLEMENTATION. * bitbucket require agent prefix = "git/" gv_agent = 'git/abapGit ' && gc_abap_version. - ENDMETHOD. + ENDMETHOD. "class_constructor METHOD set_headers. @@ -15085,7 +15260,7 @@ CLASS lcl_git_transport IMPLEMENTATION. et_branch_list = rt_branch_list ). li_client->close( ). - ENDMETHOD. + ENDMETHOD. "branches METHOD branch_list. @@ -15715,7 +15890,7 @@ CLASS lcl_zip IMPLEMENTATION. export( iv_package = lo_repo->get_package( ) iv_zip = iv_zip ). - ENDMETHOD. + ENDMETHOD. "export_key METHOD import. @@ -15764,7 +15939,7 @@ CLASS lcl_zip IMPLEMENTATION. -msgty = 'W'. -msgid = '00'. -msgno = '001'. - -msgv1 = 'Object type ignored, not supported:' ##NO_TEXT. + -msgv1 = 'Object type ignored, not supported:' ##no_text. -msgv2 = ls_item-obj_type. -msgv3 = '-'. -msgv4 = ls_item-obj_name. @@ -15784,7 +15959,8 @@ CLASS lcl_zip IMPLEMENTATION. i_txt = 'Warning' i_with_s_on_empty = abap_false i_one_msg_direct = abap_false - i_one_msg_type_s = abap_false ##NO_TEXT. + i_one_msg_type_s = abap_false + ##no_text. ENDIF. IF iv_zip = abap_true. @@ -17362,7 +17538,8 @@ CLASS lcl_gui IMPLEMENTATION. default_button = '2' display_cancel_button = abap_false IMPORTING - answer = lv_answer ##NO_TEXT. + answer = lv_answer + ##no_text. IF lv_answer <> '1'. RETURN. ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ENDIF. @@ -17373,7 +17550,7 @@ CLASS lcl_gui IMPLEMENTATION. lv_url = 'https://github.com/larshp/abapGit.git'. lv_target_package = lc_package_abapgit. WHEN 2. - lv_url = 'https://github.com/larshp/abapGit-plugins.git' ##NO_TEXT. + lv_url = 'https://github.com/larshp/abapGit-plugins.git' ##no_text. lv_target_package = lc_package_plugins. ENDCASE. @@ -17442,7 +17619,7 @@ CLASS lcl_gui IMPLEMENTATION. CATCH lcx_exception. rv_not_completely_installed = abap_false. "cannot be installed anyway in this case, e.g. no connection ENDTRY. - ENDMETHOD. + ENDMETHOD. "needs_installation ENDCLASS. "lcl_gui IMPLEMENTATION @@ -17570,13 +17747,23 @@ FORM branch_popup TABLES tt_fields STRUCTURE sval ENDFORM. "branch_popup +*----------------------------------------------------------------------* +* CLASS ltcl_convert DEFINITION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS ltcl_convert DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT FINAL. PRIVATE SECTION. METHODS convert_int FOR TESTING RAISING lcx_exception. -ENDCLASS. +ENDCLASS. "ltcl_convert DEFINITION +*----------------------------------------------------------------------* +* CLASS ltcl_convert IMPLEMENTATION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS ltcl_convert IMPLEMENTATION. METHOD convert_int. @@ -17596,9 +17783,9 @@ CLASS ltcl_convert IMPLEMENTATION. act = lv_result ). ENDDO. - ENDMETHOD. + ENDMETHOD. "convert_int -ENDCLASS. +ENDCLASS. "ltcl_convert IMPLEMENTATION *----------------------------------------------------------------------* * CLASS ltcl_diff DEFINITION @@ -17897,7 +18084,7 @@ CLASS ltcl_serialize IMPLEMENTATION. check( ls_item ). - ENDMETHOD. + ENDMETHOD. "serialize_auth METHOD serialize_clas. @@ -17909,7 +18096,7 @@ CLASS ltcl_serialize IMPLEMENTATION. check( ls_item ). - ENDMETHOD. + ENDMETHOD. "serialize_clas METHOD serialize_doma. @@ -17921,7 +18108,7 @@ CLASS ltcl_serialize IMPLEMENTATION. check( ls_item ). - ENDMETHOD. + ENDMETHOD. "serialize_doma METHOD serialize_dtel. @@ -17933,7 +18120,7 @@ CLASS ltcl_serialize IMPLEMENTATION. check( ls_item ). - ENDMETHOD. + ENDMETHOD. "serialize_dtel METHOD serialize_fugr. @@ -17945,7 +18132,7 @@ CLASS ltcl_serialize IMPLEMENTATION. check( ls_item ). - ENDMETHOD. + ENDMETHOD. "serialize_fugr METHOD serialize_msag. @@ -17957,7 +18144,7 @@ CLASS ltcl_serialize IMPLEMENTATION. check( ls_item ). - ENDMETHOD. + ENDMETHOD. "serialize_msag METHOD serialize_prog. @@ -17969,7 +18156,7 @@ CLASS ltcl_serialize IMPLEMENTATION. check( ls_item ). - ENDMETHOD. + ENDMETHOD. "serialize_prog METHOD serialize_tran. @@ -17981,7 +18168,7 @@ CLASS ltcl_serialize IMPLEMENTATION. check( ls_item ). - ENDMETHOD. + ENDMETHOD. "serialize_tran METHOD serialize_ttyp. @@ -17993,7 +18180,7 @@ CLASS ltcl_serialize IMPLEMENTATION. check( ls_item ). - ENDMETHOD. + ENDMETHOD. "serialize_ttyp METHOD check. @@ -18003,7 +18190,7 @@ CLASS ltcl_serialize IMPLEMENTATION. cl_abap_unit_assert=>assert_not_initial( lt_files ). - ENDMETHOD. + ENDMETHOD. "check ENDCLASS. "ltcl_serialize IMPLEMENTATION @@ -18112,7 +18299,7 @@ CLASS ltcl_git_pack IMPLEMENTATION. rs_object-type = gc_type-blob. rs_object-data = iv_data. - ENDMETHOD. + ENDMETHOD. "object_blob METHOD pack_short. @@ -18190,7 +18377,7 @@ CLASS ltcl_git_pack IMPLEMENTATION. exp = lt_nodes act = lt_result ). - ENDMETHOD. + ENDMETHOD. "tree METHOD commit. @@ -18215,10 +18402,15 @@ CLASS ltcl_git_pack IMPLEMENTATION. exp = ls_commit act = ls_result ). - ENDMETHOD. + ENDMETHOD. "commit ENDCLASS. "lcl_abap_unit IMPLEMENTATION +*----------------------------------------------------------------------* +* CLASS ltcl_object_types DEFINITION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS ltcl_object_types DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHORT FINAL. PRIVATE SECTION. @@ -18226,8 +18418,13 @@ CLASS ltcl_object_types DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHOR is_supported FOR TESTING, not_exist FOR TESTING RAISING lcx_exception. -ENDCLASS. +ENDCLASS. "ltcl_object_types DEFINITION +*----------------------------------------------------------------------* +* CLASS ltcl_object_types IMPLEMENTATION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS ltcl_object_types IMPLEMENTATION. METHOD is_supported. @@ -18253,7 +18450,7 @@ CLASS ltcl_object_types IMPLEMENTATION. quit = if_aunit_constants=>no ). ENDLOOP. - ENDMETHOD. + ENDMETHOD. "is_supported METHOD not_exist. @@ -18279,9 +18476,9 @@ CLASS ltcl_object_types IMPLEMENTATION. quit = if_aunit_constants=>no ). ENDLOOP. - ENDMETHOD. + ENDMETHOD. "not_exist -ENDCLASS. +ENDCLASS. "ltcl_object_types IMPLEMENTATION *----------------------------------------------------------------------* * CLASS ltcl_zlib DEFINITION @@ -18320,8 +18517,13 @@ CLASS ltcl_zlib IMPLEMENTATION. ENDMETHOD. "decompress -ENDCLASS. +ENDCLASS. "ltcl_zlib IMPLEMENTATION +*----------------------------------------------------------------------* +* CLASS ltcl_dangerous DEFINITION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS ltcl_dangerous DEFINITION FOR TESTING RISK LEVEL CRITICAL DURATION LONG FINAL. * if this test class does not run, parameters in transaction SAUNIT_CLIENT_SETUP * might need to be adjusted @@ -18339,8 +18541,13 @@ CLASS ltcl_dangerous DEFINITION FOR TESTING RISK LEVEL CRITICAL DURATION LONG FI CONSTANTS: c_package TYPE devclass VALUE '$ABAPGIT_UNIT_TEST'. -ENDCLASS. +ENDCLASS. "ltcl_dangerous DEFINITION +*----------------------------------------------------------------------* +* CLASS ltcl_dangerous IMPLEMENTATION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* CLASS ltcl_dangerous IMPLEMENTATION. METHOD class_setup. @@ -18366,7 +18573,7 @@ CLASS ltcl_dangerous IMPLEMENTATION. cl_abap_unit_assert=>fail( 'Cancelled' ). ENDIF. - ENDMETHOD. + ENDMETHOD. "class_setup METHOD check_empty_package. @@ -18378,7 +18585,7 @@ CLASS ltcl_dangerous IMPLEMENTATION. cl_abap_unit_assert=>fail( 'Prerequsite: package should be empty' ). ENDIF. - ENDMETHOD. + ENDMETHOD. "check_empty_package METHOD run. @@ -18433,6 +18640,6 @@ CLASS ltcl_dangerous IMPLEMENTATION. lcl_repo_srv=>delete( lo_repo ). - ENDMETHOD. + ENDMETHOD. "run -ENDCLASS. \ No newline at end of file +ENDCLASS. "ltcl_dangerous IMPLEMENTATION \ No newline at end of file