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

DDLX: Serialzie source code in .asddls file

Browse Source 
Before this commit is applied DDLX source code was recorded
in the xml file. We changed this so that now a separte .asddls
file is created. The change is downward compatible. Previously
recorded DDLX objects will show a diff the next time and the new
.asddls file has to be committed.
This commit is contained in:
Christian Guenter 2018-09-24 13:04:23 +02:00 committed by Lars Hvam
parent f7ce109f86
commit a78aa521b3
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/objects/zcl_abapgit_object_ddlx.clas.abap
View File

@ -138,7 +138,8 @@ CLASS zcl_abapgit_object_ddlx IMPLEMENTATION.
lv_text TYPE string, lv_text TYPE string,
lx_error TYPE REF TO cx_root. lx_error TYPE REF TO cx_root.
FIELD-SYMBOLS: <lg_data> TYPE any. FIELD-SYMBOLS: <lg_data> TYPE any,
<lg_field> TYPE data.
TRY. TRY.
CREATE DATA lr_data CREATE DATA lr_data
@ -151,6 +152,16 @@ CLASS zcl_abapgit_object_ddlx IMPLEMENTATION.
CHANGING CHANGING
cg_data = <lg_data> ). cg_data = <lg_data> ).
ASSIGN COMPONENT 'CONTENT-SOURCE' OF STRUCTURE <lg_data> TO <lg_field>.
ASSERT sy-subrc = 0.
TRY.
" If the file doesn't exist that's ok, because previously
" the source code was stored in the xml. We are downward compatible.
<lg_field> = mo_files->read_string( 'asddlxs' ) ##no_text.
CATCH zcx_abapgit_exception.
ENDTRY.
CREATE OBJECT li_data_model CREATE OBJECT li_data_model
TYPE ('CL_DDLX_WB_OBJECT_DATA'). TYPE ('CL_DDLX_WB_OBJECT_DATA').
@ -219,7 +230,8 @@ CLASS zcl_abapgit_object_ddlx IMPLEMENTATION.
lv_text TYPE string, lv_text TYPE string,
lx_error TYPE REF TO cx_root. lx_error TYPE REF TO cx_root.
FIELD-SYMBOLS: <lg_data> TYPE any. FIELD-SYMBOLS: <lg_data> TYPE any,
<lg_field> TYPE data.
lv_object_key = ms_item-obj_name. lv_object_key = ms_item-obj_name.
@ -245,6 +257,14 @@ CLASS zcl_abapgit_object_ddlx IMPLEMENTATION.
clear_fields( CHANGING cs_data = <lg_data> ). clear_fields( CHANGING cs_data = <lg_data> ).
ASSIGN COMPONENT 'CONTENT-SOURCE' OF STRUCTURE <lg_data> TO <lg_field>.
ASSERT sy-subrc = 0.
mo_files->add_string( iv_ext = 'asddlxs'
iv_string = <lg_field> ).
CLEAR <lg_field>.
io_xml->add( iv_name = 'DDLX' io_xml->add( iv_name = 'DDLX'
ig_data = <lg_data> ). ig_data = <lg_data> ).