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

ENHO: serialize code from new method

Browse Source
This commit is contained in:
larshp 2017-01-11 15:27:05 +00:00
parent a46d7b5da4
commit f8562a52d4
1 changed files with 53 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
src/zabapgit_object_enho.prog.abap
View File

@ -2,9 +2,6 @@
*& Include ZABAPGIT_OBJECT_ENHO *& Include ZABAPGIT_OBJECT_ENHO
*&---------------------------------------------------------------------* *&---------------------------------------------------------------------*
* todo, CL_ENH_TOOL_CLASS inherits from CL_ENH_TOOL_CLIF so this
* should also be reflected in the code in this include
* For complete list of tool_type - see ENHTOOLS table * For complete list of tool_type - see ENHTOOLS table
INTERFACE lif_object_enho. INTERFACE lif_object_enho.
@ -32,6 +29,13 @@ CLASS lcl_object_enho_clif DEFINITION.
cx_enh_root, cx_enh_root,
serialize serialize
IMPORTING io_xml TYPE REF TO lcl_xml_output IMPORTING io_xml TYPE REF TO lcl_xml_output
io_files TYPE REF TO lcl_objects_files
io_clif TYPE REF TO cl_enh_tool_clif
RAISING lcx_exception.
PRIVATE SECTION.
CLASS-METHODS: serialize_includes
IMPORTING io_files TYPE REF TO lcl_objects_files
io_clif TYPE REF TO cl_enh_tool_clif io_clif TYPE REF TO cl_enh_tool_clif
RAISING lcx_exception. RAISING lcx_exception.
@ -39,6 +43,41 @@ ENDCLASS.
CLASS lcl_object_enho_clif IMPLEMENTATION. CLASS lcl_object_enho_clif IMPLEMENTATION.
METHOD serialize_includes.
DATA: lt_includes TYPE enhnewmeth_tabincl_plus_enha,
lt_source TYPE TABLE OF abaptxt255,
lv_include TYPE programm.
FIELD-SYMBOLS: <ls_include> LIKE LINE OF lt_includes.
lt_includes = io_clif->get_enh_method_includes( ).
LOOP AT lt_includes ASSIGNING <ls_include>.
lv_include = io_clif->if_enh_tool~get_name( ).
TRANSLATE lv_include USING ' ='.
lv_include+30 = 'EM'.
lv_include+32(8) = <ls_include>-includenr.
CALL FUNCTION 'RPY_PROGRAM_READ'
EXPORTING
program_name = lv_include
with_lowercase = abap_true
TABLES
source_extended = lt_source
EXCEPTIONS
cancelled = 1
not_found = 2
permission_error = 3
OTHERS = 4.
IF sy-subrc = 0.
io_files->add_abap( iv_extra = |EM{ <ls_include>-includenr }|
it_abap = lt_source ).
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD serialize. METHOD serialize.
DATA: lt_tab_attributes TYPE enhclasstabattrib, DATA: lt_tab_attributes TYPE enhclasstabattrib,
@ -56,6 +95,9 @@ CLASS lcl_object_enho_clif IMPLEMENTATION.
IMPORTING IMPORTING
tab_methodes = lt_tab_methods ). tab_methodes = lt_tab_methods ).
serialize_includes( io_clif = io_clif
io_files = io_files ).
LOOP AT lt_tab_attributes ASSIGNING <ls_attr>. LOOP AT lt_tab_attributes ASSIGNING <ls_attr>.
CLEAR: <ls_attr>-author, CLEAR: <ls_attr>-author,
<ls_attr>-createdon, <ls_attr>-createdon,
@ -98,6 +140,8 @@ CLASS lcl_object_enho_clif IMPLEMENTATION.
io_clif->set_enhattributes( tab_attributes = lt_tab_attributes ). io_clif->set_enhattributes( tab_attributes = lt_tab_attributes ).
* todo: deserialize includes
* SAP standard SET_ENH_NEW_METHOS does not work * SAP standard SET_ENH_NEW_METHOS does not work
LOOP AT lt_tab_methods ASSIGNING <ls_method>. LOOP AT lt_tab_methods ASSIGNING <ls_method>.
@ -484,6 +528,7 @@ CLASS lcl_object_enho_interface IMPLEMENTATION.
lcl_object_enho_clif=>serialize( lcl_object_enho_clif=>serialize(
io_xml = io_xml io_xml = io_xml
io_files = mo_files
io_clif = lo_enh_intf ). io_clif = lo_enh_intf ).
ENDMETHOD. ENDMETHOD.
@ -595,6 +640,7 @@ CLASS lcl_object_enho_class IMPLEMENTATION.
lcl_object_enho_clif=>serialize( lcl_object_enho_clif=>serialize(
io_xml = io_xml io_xml = io_xml
io_files = mo_files
io_clif = lo_enh_class ). io_clif = lo_enh_class ).
ENDMETHOD. ENDMETHOD.