mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 20:03:20 +08:00
skeletons
This commit is contained in:
Lars Hvam
parent
3a95194696
commit
cd6f028a13
399
zabapgit.abap
399
zabapgit.abap
|
|
@ -4,6 +4,7 @@ REPORT zabapgit.
|
||||||
|
|
||||||
CONSTANTS: gc_version TYPE string VALUE 'alpha'. "#EC NOTEXT
|
CONSTANTS: gc_version TYPE string VALUE 'alpha'. "#EC NOTEXT
|
||||||
|
|
||||||
|
********************************************************************************
|
||||||
* The MIT License (MIT)
|
* The MIT License (MIT)
|
||||||
*
|
*
|
||||||
* Copyright (c) 2014 Lars Hvam Petersen
|
* Copyright (c) 2014 Lars Hvam Petersen
|
||||||
|
|
@ -25,6 +26,7 @@ CONSTANTS: gc_version TYPE string VALUE 'alpha'. "#EC NOTEXT
|
||||||
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
* 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
|
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
||||||
* SOFTWARE.
|
* SOFTWARE.
|
||||||
|
********************************************************************************
|
||||||
|
|
||||||
TYPES: t_type TYPE c LENGTH 6,
|
TYPES: t_type TYPE c LENGTH 6,
|
||||||
t_bitbyte TYPE c LENGTH 8,
|
t_bitbyte TYPE c LENGTH 8,
|
||||||
|
|
@ -961,27 +963,6 @@ CLASS lcl_convert IMPLEMENTATION.
|
||||||
|
|
||||||
ENDCLASS. "lcl_convert IMPLEMENTATION
|
ENDCLASS. "lcl_convert IMPLEMENTATION
|
||||||
|
|
||||||
*----------------------------------------------------------------------*
|
|
||||||
* INTERFACE lif_serialize IMPLEMENTATION
|
|
||||||
*----------------------------------------------------------------------*
|
|
||||||
*
|
|
||||||
*----------------------------------------------------------------------*
|
|
||||||
INTERFACE lif_serialize.
|
|
||||||
|
|
||||||
CLASS-METHODS: serialize IMPORTING iv_obj_name TYPE tadir-obj_name
|
|
||||||
RETURNING value(rt_files) TYPE tt_files
|
|
||||||
RAISING lcx_exception.
|
|
||||||
|
|
||||||
CLASS-METHODS: deserialize IMPORTING iv_obj_name TYPE tadir-obj_name
|
|
||||||
it_files TYPE tt_files
|
|
||||||
RAISING lcx_exception.
|
|
||||||
|
|
||||||
CLASS-METHODS: exists IMPORTING iv_obj_name TYPE tadir-obj_name
|
|
||||||
RETURNING value(rv_exists) TYPE abap_bool
|
|
||||||
RAISING lcx_exception.
|
|
||||||
|
|
||||||
ENDINTERFACE. "lif_serialize IMPLEMENTATION
|
|
||||||
|
|
||||||
*----------------------------------------------------------------------*
|
*----------------------------------------------------------------------*
|
||||||
* CLASS lcl_diff DEFINITION
|
* CLASS lcl_diff DEFINITION
|
||||||
*----------------------------------------------------------------------*
|
*----------------------------------------------------------------------*
|
||||||
|
|
@ -1049,6 +1030,299 @@ CLASS lcl_diff IMPLEMENTATION.
|
||||||
|
|
||||||
ENDCLASS. "lcl_diff IMPLEMENTATION
|
ENDCLASS. "lcl_diff IMPLEMENTATION
|
||||||
|
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
* CLASS lcl_serialize_doma DEFINITION
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
*
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
CLASS lcl_serialize_doma DEFINITION FINAL.
|
||||||
|
|
||||||
|
PUBLIC SECTION.
|
||||||
|
CLASS-METHODS: serialize IMPORTING iv_obj_name TYPE tadir-obj_name
|
||||||
|
RETURNING value(rt_files) TYPE tt_files
|
||||||
|
RAISING lcx_exception.
|
||||||
|
|
||||||
|
CLASS-METHODS: deserialize IMPORTING iv_obj_name TYPE tadir-obj_name
|
||||||
|
it_files TYPE tt_files
|
||||||
|
RAISING lcx_exception.
|
||||||
|
|
||||||
|
ENDCLASS. "lcl_serialize_doma DEFINITION
|
||||||
|
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
* CLASS lcl_serialize_doma IMPLEMENTATION
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
*
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
CLASS lcl_serialize_doma IMPLEMENTATION.
|
||||||
|
|
||||||
|
METHOD serialize.
|
||||||
|
|
||||||
|
DATA: lv_name TYPE ddobjname,
|
||||||
|
ls_dd01v TYPE dd01v,
|
||||||
|
lt_dd07v TYPE dd07v_tab.
|
||||||
|
|
||||||
|
|
||||||
|
lv_name = iv_obj_name.
|
||||||
|
|
||||||
|
CALL FUNCTION 'DDIF_DOMA_GET'
|
||||||
|
EXPORTING
|
||||||
|
name = lv_name
|
||||||
|
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.
|
||||||
|
* translated texts?
|
||||||
|
|
||||||
|
_raise 'todo'.
|
||||||
|
ENDMETHOD. "serialize
|
||||||
|
|
||||||
|
METHOD deserialize.
|
||||||
|
_raise 'todo'.
|
||||||
|
ENDMETHOD. "deserialize
|
||||||
|
|
||||||
|
ENDCLASS. "lcl_serialize_doma IMPLEMENTATION
|
||||||
|
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
* CLASS lcl_serialize_dtel DEFINITION
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
*
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
CLASS lcl_serialize_dtel DEFINITION FINAL.
|
||||||
|
|
||||||
|
PUBLIC SECTION.
|
||||||
|
CLASS-METHODS: serialize IMPORTING iv_obj_name TYPE tadir-obj_name
|
||||||
|
RETURNING value(rt_files) TYPE tt_files
|
||||||
|
RAISING lcx_exception.
|
||||||
|
|
||||||
|
CLASS-METHODS: deserialize IMPORTING iv_obj_name TYPE tadir-obj_name
|
||||||
|
it_files TYPE tt_files
|
||||||
|
RAISING lcx_exception.
|
||||||
|
|
||||||
|
ENDCLASS. "lcl_serialize_dtel DEFINITION
|
||||||
|
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
* CLASS lcl_serialize_dtel IMPLEMENTATION
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
*
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
CLASS lcl_serialize_dtel IMPLEMENTATION.
|
||||||
|
|
||||||
|
METHOD serialize.
|
||||||
|
|
||||||
|
DATA: lv_name TYPE ddobjname,
|
||||||
|
ls_dd04v TYPE dd04v,
|
||||||
|
ls_tpara TYPE tpara.
|
||||||
|
|
||||||
|
|
||||||
|
lv_name = iv_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.
|
||||||
|
* translated texts?
|
||||||
|
|
||||||
|
_raise 'todo'.
|
||||||
|
ENDMETHOD. "serialize
|
||||||
|
|
||||||
|
METHOD deserialize.
|
||||||
|
_raise 'todo'.
|
||||||
|
ENDMETHOD. "deserialize
|
||||||
|
|
||||||
|
ENDCLASS. "lcl_serialize_dtel IMPLEMENTATION
|
||||||
|
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
* CLASS lcl_serialize_dtel DEFINITION
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
*
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
CLASS lcl_serialize_clas DEFINITION FINAL.
|
||||||
|
|
||||||
|
PUBLIC SECTION.
|
||||||
|
CLASS-METHODS: serialize IMPORTING iv_obj_name TYPE tadir-obj_name
|
||||||
|
RETURNING value(rt_files) TYPE tt_files
|
||||||
|
RAISING lcx_exception.
|
||||||
|
|
||||||
|
CLASS-METHODS: deserialize IMPORTING iv_obj_name TYPE tadir-obj_name
|
||||||
|
it_files TYPE tt_files
|
||||||
|
RAISING lcx_exception.
|
||||||
|
|
||||||
|
ENDCLASS. "lcl_serialize_dtel DEFINITION
|
||||||
|
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
* CLASS lcl_serialize_dtel IMPLEMENTATION
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
*
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
CLASS lcl_serialize_clas IMPLEMENTATION.
|
||||||
|
|
||||||
|
METHOD serialize.
|
||||||
|
* CL_OO_SOURCE ?
|
||||||
|
_raise 'todo'.
|
||||||
|
ENDMETHOD. "serialize
|
||||||
|
|
||||||
|
METHOD deserialize.
|
||||||
|
_raise 'todo'.
|
||||||
|
ENDMETHOD. "deserialize
|
||||||
|
|
||||||
|
ENDCLASS. "lcl_serialize_CLAS IMPLEMENTATION
|
||||||
|
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
* CLASS lcl_serialize_dtel DEFINITION
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
*
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
CLASS lcl_serialize_fugr DEFINITION FINAL.
|
||||||
|
|
||||||
|
PUBLIC SECTION.
|
||||||
|
CLASS-METHODS: serialize IMPORTING iv_obj_name TYPE tadir-obj_name
|
||||||
|
RETURNING value(rt_files) TYPE tt_files
|
||||||
|
RAISING lcx_exception.
|
||||||
|
|
||||||
|
CLASS-METHODS: deserialize IMPORTING iv_obj_name TYPE tadir-obj_name
|
||||||
|
it_files TYPE tt_files
|
||||||
|
RAISING lcx_exception.
|
||||||
|
|
||||||
|
ENDCLASS. "lcl_serialize_dtel DEFINITION
|
||||||
|
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
* CLASS lcl_serialize_dtel IMPLEMENTATION
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
*
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
CLASS lcl_serialize_fugr IMPLEMENTATION.
|
||||||
|
|
||||||
|
METHOD serialize.
|
||||||
|
_raise 'todo'.
|
||||||
|
ENDMETHOD. "serialize
|
||||||
|
|
||||||
|
METHOD deserialize.
|
||||||
|
_raise 'todo'.
|
||||||
|
ENDMETHOD. "deserialize
|
||||||
|
|
||||||
|
ENDCLASS. "lcl_serialize_FUGR IMPLEMENTATION
|
||||||
|
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
* CLASS lcl_serialize_dtel DEFINITION
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
*
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
CLASS lcl_serialize_tabl DEFINITION FINAL.
|
||||||
|
|
||||||
|
PUBLIC SECTION.
|
||||||
|
CLASS-METHODS: serialize IMPORTING iv_obj_name TYPE tadir-obj_name
|
||||||
|
RETURNING value(rt_files) TYPE tt_files
|
||||||
|
RAISING lcx_exception.
|
||||||
|
|
||||||
|
CLASS-METHODS: deserialize IMPORTING iv_obj_name TYPE tadir-obj_name
|
||||||
|
it_files TYPE tt_files
|
||||||
|
RAISING lcx_exception.
|
||||||
|
|
||||||
|
ENDCLASS. "lcl_serialize_dtel DEFINITION
|
||||||
|
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
* CLASS lcl_serialize_dtel IMPLEMENTATION
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
*
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
CLASS lcl_serialize_tabl IMPLEMENTATION.
|
||||||
|
|
||||||
|
METHOD serialize.
|
||||||
|
_raise 'todo'.
|
||||||
|
ENDMETHOD. "serialize
|
||||||
|
|
||||||
|
METHOD deserialize.
|
||||||
|
_raise 'todo'.
|
||||||
|
ENDMETHOD. "deserialize
|
||||||
|
|
||||||
|
ENDCLASS. "lcl_serialize_TABL IMPLEMENTATION
|
||||||
|
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
* CLASS lcl_serialize_dtel DEFINITION
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
*
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
CLASS lcl_serialize_msag DEFINITION FINAL.
|
||||||
|
|
||||||
|
PUBLIC SECTION.
|
||||||
|
CLASS-METHODS: serialize IMPORTING iv_obj_name TYPE tadir-obj_name
|
||||||
|
RETURNING value(rt_files) TYPE tt_files
|
||||||
|
RAISING lcx_exception.
|
||||||
|
|
||||||
|
CLASS-METHODS: deserialize IMPORTING iv_obj_name TYPE tadir-obj_name
|
||||||
|
it_files TYPE tt_files
|
||||||
|
RAISING lcx_exception.
|
||||||
|
|
||||||
|
ENDCLASS. "lcl_serialize_dtel DEFINITION
|
||||||
|
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
* CLASS lcl_serialize_dtel IMPLEMENTATION
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
*
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
CLASS lcl_serialize_msag IMPLEMENTATION.
|
||||||
|
|
||||||
|
METHOD serialize.
|
||||||
|
_raise 'todo'.
|
||||||
|
ENDMETHOD. "serialize
|
||||||
|
|
||||||
|
METHOD deserialize.
|
||||||
|
_raise 'todo'.
|
||||||
|
ENDMETHOD. "deserialize
|
||||||
|
|
||||||
|
ENDCLASS. "lcl_serialize_MSAG IMPLEMENTATION
|
||||||
|
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
* CLASS lcl_serialize_dtel DEFINITION
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
*
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
CLASS lcl_serialize_tran DEFINITION FINAL.
|
||||||
|
|
||||||
|
PUBLIC SECTION.
|
||||||
|
CLASS-METHODS: serialize IMPORTING iv_obj_name TYPE tadir-obj_name
|
||||||
|
RETURNING value(rt_files) TYPE tt_files
|
||||||
|
RAISING lcx_exception.
|
||||||
|
|
||||||
|
CLASS-METHODS: deserialize IMPORTING iv_obj_name TYPE tadir-obj_name
|
||||||
|
it_files TYPE tt_files
|
||||||
|
RAISING lcx_exception.
|
||||||
|
|
||||||
|
ENDCLASS. "lcl_serialize_dtel DEFINITION
|
||||||
|
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
* CLASS lcl_serialize_dtel IMPLEMENTATION
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
*
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
CLASS lcl_serialize_tran IMPLEMENTATION.
|
||||||
|
|
||||||
|
METHOD serialize.
|
||||||
|
_raise 'todo'.
|
||||||
|
ENDMETHOD. "serialize
|
||||||
|
|
||||||
|
METHOD deserialize.
|
||||||
|
_raise 'todo'.
|
||||||
|
ENDMETHOD. "deserialize
|
||||||
|
|
||||||
|
ENDCLASS. "lcl_serialize_TRAN IMPLEMENTATION
|
||||||
|
|
||||||
*----------------------------------------------------------------------*
|
*----------------------------------------------------------------------*
|
||||||
* CLASS lcl_serialize_prog DEFINITION
|
* CLASS lcl_serialize_prog DEFINITION
|
||||||
*----------------------------------------------------------------------*
|
*----------------------------------------------------------------------*
|
||||||
|
|
@ -1057,11 +1331,13 @@ ENDCLASS. "lcl_diff IMPLEMENTATION
|
||||||
CLASS lcl_serialize_prog DEFINITION FINAL.
|
CLASS lcl_serialize_prog DEFINITION FINAL.
|
||||||
|
|
||||||
PUBLIC SECTION.
|
PUBLIC SECTION.
|
||||||
INTERFACES lif_serialize.
|
CLASS-METHODS: serialize IMPORTING iv_obj_name TYPE tadir-obj_name
|
||||||
|
RETURNING value(rt_files) TYPE tt_files
|
||||||
|
RAISING lcx_exception.
|
||||||
|
|
||||||
ALIASES: serialize FOR lif_serialize~serialize,
|
CLASS-METHODS: deserialize IMPORTING iv_obj_name TYPE tadir-obj_name
|
||||||
deserialize FOR lif_serialize~deserialize,
|
it_files TYPE tt_files
|
||||||
exists FOR lif_serialize~exists.
|
RAISING lcx_exception.
|
||||||
|
|
||||||
PRIVATE SECTION.
|
PRIVATE SECTION.
|
||||||
CLASS-METHODS: serialize_dynpros IMPORTING iv_program_name TYPE programm
|
CLASS-METHODS: serialize_dynpros IMPORTING iv_program_name TYPE programm
|
||||||
|
|
@ -1076,6 +1352,9 @@ CLASS lcl_serialize_prog DEFINITION FINAL.
|
||||||
iv_abap TYPE string
|
iv_abap TYPE string
|
||||||
RAISING lcx_exception.
|
RAISING lcx_exception.
|
||||||
|
|
||||||
|
CLASS-METHODS exists IMPORTING iv_obj_name TYPE tadir-obj_name
|
||||||
|
RETURNING value(rv_exists) TYPE abap_bool.
|
||||||
|
|
||||||
ENDCLASS. "lcl_serialize_prog DEFINITION
|
ENDCLASS. "lcl_serialize_prog DEFINITION
|
||||||
|
|
||||||
*----------------------------------------------------------------------*
|
*----------------------------------------------------------------------*
|
||||||
|
|
@ -1085,27 +1364,32 @@ ENDCLASS. "lcl_serialize_prog DEFINITION
|
||||||
*----------------------------------------------------------------------*
|
*----------------------------------------------------------------------*
|
||||||
CLASS lcl_serialize_prog IMPLEMENTATION.
|
CLASS lcl_serialize_prog IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD lif_serialize~serialize.
|
METHOD serialize.
|
||||||
|
|
||||||
|
* todo, more symmetry, serialize vs deserialize
|
||||||
|
|
||||||
DATA: ls_progdir TYPE progdir,
|
DATA: ls_progdir TYPE progdir,
|
||||||
lv_program_name TYPE programm,
|
lv_program_name TYPE programm,
|
||||||
lv_xml TYPE string,
|
lv_xml TYPE string,
|
||||||
lt_source TYPE TABLE OF abaptxt255,
|
lt_source TYPE TABLE OF abaptxt255,
|
||||||
lv_source TYPE string,
|
lv_source TYPE string,
|
||||||
lt_textelements TYPE textpool_table,
|
|
||||||
ls_file LIKE LINE OF rt_files,
|
ls_file LIKE LINE OF rt_files,
|
||||||
lo_xml TYPE REF TO lcl_xml.
|
lo_xml TYPE REF TO lcl_xml.
|
||||||
|
|
||||||
|
|
||||||
lv_program_name = iv_obj_name.
|
lv_program_name = iv_obj_name.
|
||||||
|
|
||||||
|
IF exists( lv_program_name ) = abap_false.
|
||||||
|
_raise 'not found in progdir'.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
|
||||||
CALL FUNCTION 'RPY_PROGRAM_READ'
|
CALL FUNCTION 'RPY_PROGRAM_READ'
|
||||||
EXPORTING
|
EXPORTING
|
||||||
program_name = lv_program_name
|
program_name = lv_program_name
|
||||||
with_lowercase = abap_true
|
with_lowercase = abap_true
|
||||||
TABLES
|
TABLES
|
||||||
source_extended = lt_source
|
source_extended = lt_source
|
||||||
textelements = lt_textelements
|
|
||||||
EXCEPTIONS
|
EXCEPTIONS
|
||||||
cancelled = 1
|
cancelled = 1
|
||||||
not_found = 2
|
not_found = 2
|
||||||
|
|
@ -1115,10 +1399,12 @@ CLASS lcl_serialize_prog IMPLEMENTATION.
|
||||||
_raise 'Error reading program'.
|
_raise 'Error reading program'.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
SELECT SINGLE * FROM progdir INTO ls_progdir WHERE name = lv_program_name AND state = 'A'.
|
CALL FUNCTION 'READ_PROGDIR'
|
||||||
IF sy-subrc <> 0.
|
EXPORTING
|
||||||
_raise 'not found in progdir'.
|
i_progname = lv_program_name
|
||||||
ENDIF.
|
i_state = 'A'
|
||||||
|
IMPORTING
|
||||||
|
e_progdir = ls_progdir.
|
||||||
|
|
||||||
CLEAR: ls_progdir-cnam,
|
CLEAR: ls_progdir-cnam,
|
||||||
ls_progdir-cdat,
|
ls_progdir-cdat,
|
||||||
|
|
@ -1133,13 +1419,10 @@ CLASS lcl_serialize_prog IMPLEMENTATION.
|
||||||
|
|
||||||
CREATE OBJECT lo_xml.
|
CREATE OBJECT lo_xml.
|
||||||
lo_xml->structure_add( ls_progdir ).
|
lo_xml->structure_add( ls_progdir ).
|
||||||
lo_xml->table_add( lt_textelements ).
|
|
||||||
|
|
||||||
IF ls_progdir-subc = '1'.
|
IF ls_progdir-subc = '1'.
|
||||||
serialize_dynpros( EXPORTING iv_program_name = lv_program_name
|
serialize_dynpros( EXPORTING iv_program_name = lv_program_name
|
||||||
io_xml = lo_xml ).
|
io_xml = lo_xml ).
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
lv_xml = lo_xml->xml_render( ).
|
lv_xml = lo_xml->xml_render( ).
|
||||||
|
|
||||||
CLEAR ls_file.
|
CLEAR ls_file.
|
||||||
|
|
@ -1223,7 +1506,7 @@ CLASS lcl_serialize_prog IMPLEMENTATION.
|
||||||
|
|
||||||
ENDMETHOD. "serialize_dynpros
|
ENDMETHOD. "serialize_dynpros
|
||||||
|
|
||||||
METHOD lif_serialize~deserialize.
|
METHOD deserialize.
|
||||||
|
|
||||||
DATA: lv_filename TYPE string,
|
DATA: lv_filename TYPE string,
|
||||||
lv_xml TYPE string,
|
lv_xml TYPE string,
|
||||||
|
|
@ -1387,7 +1670,7 @@ CLASS lcl_serialize_prog IMPLEMENTATION.
|
||||||
|
|
||||||
ENDMETHOD. "lif_serialize~deserialize
|
ENDMETHOD. "lif_serialize~deserialize
|
||||||
|
|
||||||
METHOD lif_serialize~exists.
|
METHOD exists.
|
||||||
|
|
||||||
DATA: lv_progname TYPE reposrc-progname.
|
DATA: lv_progname TYPE reposrc-progname.
|
||||||
|
|
||||||
|
|
@ -1449,6 +1732,20 @@ CLASS lcl_serialize IMPLEMENTATION.
|
||||||
CASE iv_obj_type.
|
CASE iv_obj_type.
|
||||||
WHEN 'PROG'.
|
WHEN 'PROG'.
|
||||||
rt_files = lcl_serialize_prog=>serialize( iv_obj_name ).
|
rt_files = lcl_serialize_prog=>serialize( iv_obj_name ).
|
||||||
|
WHEN 'DOMA'.
|
||||||
|
rt_files = lcl_serialize_doma=>serialize( iv_obj_name ).
|
||||||
|
WHEN 'DTEL'.
|
||||||
|
rt_files = lcl_serialize_dtel=>serialize( iv_obj_name ).
|
||||||
|
WHEN 'CLAS'.
|
||||||
|
rt_files = lcl_serialize_clas=>serialize( iv_obj_name ).
|
||||||
|
WHEN 'FUGR'.
|
||||||
|
rt_files = lcl_serialize_fugr=>serialize( iv_obj_name ).
|
||||||
|
WHEN 'TABL'.
|
||||||
|
rt_files = lcl_serialize_tabl=>serialize( iv_obj_name ).
|
||||||
|
WHEN 'TRAN'.
|
||||||
|
rt_files = lcl_serialize_tran=>serialize( iv_obj_name ).
|
||||||
|
WHEN 'MSAG'.
|
||||||
|
rt_files = lcl_serialize_msag=>serialize( iv_obj_name ).
|
||||||
WHEN OTHERS.
|
WHEN OTHERS.
|
||||||
_raise 'Serialize, unknown type'.
|
_raise 'Serialize, unknown type'.
|
||||||
ENDCASE.
|
ENDCASE.
|
||||||
|
|
@ -1488,17 +1785,13 @@ CLASS lcl_serialize IMPLEMENTATION.
|
||||||
ls_result-obj_type = lv_type.
|
ls_result-obj_type = lv_type.
|
||||||
ls_result-obj_name = lv_pre.
|
ls_result-obj_name = lv_pre.
|
||||||
|
|
||||||
CASE lv_type.
|
lt_files = serialize( iv_obj_type = ls_result-obj_type
|
||||||
WHEN 'PROG'.
|
iv_obj_name = ls_result-obj_name ).
|
||||||
lt_files = lcl_serialize_prog=>serialize( lv_pre ).
|
|
||||||
|
|
||||||
WHEN OTHERS.
|
|
||||||
_raise 'status, unknown type'.
|
|
||||||
ENDCASE.
|
|
||||||
|
|
||||||
LOOP AT lt_files ASSIGNING <ls_gen>.
|
LOOP AT lt_files ASSIGNING <ls_gen>.
|
||||||
ls_result-filename = <ls_gen>-filename.
|
ls_result-filename = <ls_gen>-filename.
|
||||||
ls_result-match = compare_files( it_repo = it_files is_gen = <ls_gen> ).
|
ls_result-match = compare_files( it_repo = it_files
|
||||||
|
is_gen = <ls_gen> ).
|
||||||
APPEND ls_result TO rt_results.
|
APPEND ls_result TO rt_results.
|
||||||
ENDLOOP.
|
ENDLOOP.
|
||||||
ENDLOOP.
|
ENDLOOP.
|
||||||
|
|
@ -1532,6 +1825,20 @@ CLASS lcl_serialize IMPLEMENTATION.
|
||||||
CASE lv_type.
|
CASE lv_type.
|
||||||
WHEN 'PROG'.
|
WHEN 'PROG'.
|
||||||
lcl_serialize_prog=>deserialize( it_files = it_files iv_obj_name = lv_pre ).
|
lcl_serialize_prog=>deserialize( it_files = it_files iv_obj_name = lv_pre ).
|
||||||
|
WHEN 'DOMA'.
|
||||||
|
lcl_serialize_doma=>deserialize( it_files = it_files iv_obj_name = lv_pre ).
|
||||||
|
WHEN 'DTEL'.
|
||||||
|
lcl_serialize_dtel=>deserialize( it_files = it_files iv_obj_name = lv_pre ).
|
||||||
|
WHEN 'CLAS'.
|
||||||
|
lcl_serialize_clas=>deserialize( it_files = it_files iv_obj_name = lv_pre ).
|
||||||
|
WHEN 'FUGR'.
|
||||||
|
lcl_serialize_fugr=>deserialize( it_files = it_files iv_obj_name = lv_pre ).
|
||||||
|
WHEN 'TABL'.
|
||||||
|
lcl_serialize_tabl=>deserialize( it_files = it_files iv_obj_name = lv_pre ).
|
||||||
|
WHEN 'TRAN'.
|
||||||
|
lcl_serialize_tran=>deserialize( it_files = it_files iv_obj_name = lv_pre ).
|
||||||
|
WHEN 'MSAG'.
|
||||||
|
lcl_serialize_msag=>deserialize( it_files = it_files iv_obj_name = lv_pre ).
|
||||||
WHEN OTHERS.
|
WHEN OTHERS.
|
||||||
_raise 'deserialize, unknown type'.
|
_raise 'deserialize, unknown type'.
|
||||||
ENDCASE.
|
ENDCASE.
|
||||||
|
|
@ -3700,7 +4007,7 @@ CLASS lcl_gui IMPLEMENTATION.
|
||||||
ASSERT sy-subrc = 0.
|
ASSERT sy-subrc = 0.
|
||||||
|
|
||||||
ls_repo-url = <ls_field>-value.
|
ls_repo-url = <ls_field>-value.
|
||||||
* todo
|
* todo, select branch or tag
|
||||||
ls_repo-branch_name = 'refs/heads/master'. "#EC NOTEXT
|
ls_repo-branch_name = 'refs/heads/master'. "#EC NOTEXT
|
||||||
lcl_url=>name( ls_repo-url ). " validate
|
lcl_url=>name( ls_repo-url ). " validate
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user