SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 04:08:27 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

minor changes

Browse Source
This commit is contained in:
Lars Hvam 2016-02-16 08:03:42 +01:00
parent 823448ee03
commit 74181160ef
1 changed files with 30 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
zabapgit.abap
View File

@ -1,9 +1,9 @@
REPORT zabapgit. REPORT zabapgit.
* See https://github.com/larshp/abapGit/ * See http://www.abapgit.org
CONSTANTS: gc_xml_version TYPE string VALUE 'v0.2-alpha', "#EC NOTEXT CONSTANTS: gc_xml_version TYPE string VALUE 'v0.2-alpha', "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v0.105'. "#EC NOTEXT gc_abap_version TYPE string VALUE 'v0.106'. "#EC NOTEXT
******************************************************************************** ********************************************************************************
* The MIT License (MIT) * The MIT License (MIT)
@ -99,8 +99,8 @@ CLASS lcx_exception DEFINITION INHERITING FROM cx_static_check FINAL.
DATA mv_text TYPE string. DATA mv_text TYPE string.
METHODS constructor METHODS constructor
IMPORTING iv_text TYPE string IMPORTING iv_text TYPE string
previous TYPE REF TO cx_root OPTIONAL. ix_previous TYPE REF TO cx_root OPTIONAL.
PRIVATE SECTION. PRIVATE SECTION.
DATA mx_previous TYPE REF TO cx_root. DATA mx_previous TYPE REF TO cx_root.
@ -2313,7 +2313,8 @@ CLASS lcl_objects_files DEFINITION FINAL.
io_xml TYPE REF TO lcl_xml io_xml TYPE REF TO lcl_xml
iv_normalize TYPE sap_bool DEFAULT abap_true iv_normalize TYPE sap_bool DEFAULT abap_true
RAISING lcx_exception, RAISING lcx_exception,
add_xml_from_plugin "needed since type-check during dynamic call fails even if the object is compatible * needed since type-check during dynamic call fails even if the object is compatible
add_xml_from_plugin
IMPORTING iv_extra TYPE clike OPTIONAL IMPORTING iv_extra TYPE clike OPTIONAL
io_xml TYPE REF TO object io_xml TYPE REF TO object
iv_normalize TYPE sap_bool DEFAULT abap_true iv_normalize TYPE sap_bool DEFAULT abap_true
@ -2519,13 +2520,14 @@ CLASS lcl_objects_files IMPLEMENTATION.
* ABAP does not perform implicit type casts (also if compatible) in signatures, * ABAP does not perform implicit type casts (also if compatible) in signatures,
* therefore this method's signature is typed ref to object * therefore this method's signature is typed ref to object
DATA lo_xml TYPE REF TO lcl_xml. DATA lo_xml TYPE REF TO lcl_xml.
lo_xml ?= io_xml. lo_xml ?= io_xml.
me->add_xml( me->add_xml(
EXPORTING iv_extra = iv_extra
iv_extra = iv_extra io_xml = lo_xml
io_xml = lo_xml iv_normalize = iv_normalize ).
iv_normalize = iv_normalize
).
ENDMETHOD. ENDMETHOD.
ENDCLASS. ENDCLASS.
@ -2605,9 +2607,10 @@ CLASS lcl_objects_bridge IMPLEMENTATION.
METHOD lif_object~serialize. METHOD lif_object~serialize.
DATA: lv_count TYPE i, DATA: lv_count TYPE i,
ls_file TYPE ty_file, ls_file TYPE ty_file,
lo_files TYPE REF TO object. lo_files TYPE REF TO object,
lo_wrapped_files TYPE REF TO object.
CALL METHOD mo_plugin->('ZIF_ABAPGIT_PLUGIN~SERIALIZE'). CALL METHOD mo_plugin->('ZIF_ABAPGIT_PLUGIN~SERIALIZE').
@ -2615,7 +2618,6 @@ CLASS lcl_objects_bridge IMPLEMENTATION.
RECEIVING RECEIVING
ro_files_proxy = lo_files. "Returns a proxy wrapping a files-object ro_files_proxy = lo_files. "Returns a proxy wrapping a files-object
DATA lo_wrapped_files TYPE REF TO object.
CALL METHOD lo_files->('GET_WRAPPED_OBJECT') CALL METHOD lo_files->('GET_WRAPPED_OBJECT')
RECEIVING RECEIVING
ro_objects_files = lo_wrapped_files. ro_objects_files = lo_wrapped_files.
@ -2650,8 +2652,11 @@ CLASS lcl_objects_bridge IMPLEMENTATION.
TRY. TRY.
CALL METHOD mo_plugin->('ZIF_ABAPGIT_PLUGIN~DESERIALIZE'). CALL METHOD mo_plugin->('ZIF_ABAPGIT_PLUGIN~DESERIALIZE').
CATCH zcx_abapgit_object INTO lx_plugin. CATCH cx_static_check INTO lx_plugin.
RAISE EXCEPTION TYPE lcx_exception EXPORTING previous = lx_plugin iv_text = lx_plugin->get_text( ). RAISE EXCEPTION TYPE lcx_exception
EXPORTING
ix_previous = lx_plugin
iv_text = lx_plugin->get_text( ).
ENDTRY. ENDTRY.
ENDMETHOD. ENDMETHOD.
@ -2660,8 +2665,11 @@ CLASS lcl_objects_bridge IMPLEMENTATION.
TRY. TRY.
CALL METHOD mo_plugin->('ZIF_ABAPGIT_PLUGIN~DELETE'). CALL METHOD mo_plugin->('ZIF_ABAPGIT_PLUGIN~DELETE').
CATCH zcx_abapgit_object INTO lx_plugin. CATCH cx_static_check INTO lx_plugin.
RAISE EXCEPTION TYPE lcx_exception EXPORTING previous = lx_plugin iv_text = lx_plugin->get_text( ). RAISE EXCEPTION TYPE lcx_exception
EXPORTING
ix_previous = lx_plugin
iv_text = lx_plugin->get_text( ).
ENDTRY. ENDTRY.
ENDMETHOD. ENDMETHOD.
@ -4470,12 +4478,15 @@ CLASS lcl_object_clas IMPLEMENTATION.
mv_skip_testclass = abap_false. mv_skip_testclass = abap_false.
IF lines( rt_source ) = 2. IF lines( rt_source ) = 2.
READ TABLE rt_source INDEX 1 INTO lv_line1. READ TABLE rt_source INDEX 1 INTO lv_line1.
ASSERT sy-subrc = 0.
READ TABLE rt_source INDEX 2 INTO lv_line2. READ TABLE rt_source INDEX 2 INTO lv_line2.
ASSERT sy-subrc = 0.
IF lv_line1(3) = '*"*' AND lv_line2 IS INITIAL. IF lv_line1(3) = '*"*' AND lv_line2 IS INITIAL.
mv_skip_testclass = abap_true. mv_skip_testclass = abap_true.
ENDIF. ENDIF.
ELSEIF lines( rt_source ) = 1. ELSEIF lines( rt_source ) = 1.
READ TABLE rt_source INDEX 1 INTO lv_line1. READ TABLE rt_source INDEX 1 INTO lv_line1.
ASSERT sy-subrc = 0.
IF lv_line1(3) = '*"*' OR lv_line1 IS INITIAL. IF lv_line1(3) = '*"*' OR lv_line1 IS INITIAL.
mv_skip_testclass = abap_true. mv_skip_testclass = abap_true.
ENDIF. ENDIF.
@ -11082,8 +11093,7 @@ CLASS lcl_objects IMPLEMENTATION.
TRY. TRY.
CREATE OBJECT ri_obj TYPE (lv_class_name) CREATE OBJECT ri_obj TYPE (lv_class_name)
EXPORTING EXPORTING
is_item = is_item is_item = is_item.
.
CATCH cx_sy_create_object_error. CATCH cx_sy_create_object_error.
TRY. TRY.
* 2nd step, try looking for plugins * 2nd step, try looking for plugins