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

TYPE support, close #116

Browse Source
This commit is contained in:
Lars Hvam 2015-10-14 16:40:15 +02:00
parent 2db071d419
commit 242875e7f5
1 changed files with 126 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

144
zabapgit.abap
View File

@ -3,7 +3,7 @@ REPORT zabapgit.
* See https://github.com/larshp/abapGit/ * See https://github.com/larshp/abapGit/
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.72'. "#EC NOTEXT gc_abap_version TYPE string VALUE 'v0.73'. "#EC NOTEXT
******************************************************************************** ********************************************************************************
* The MIT License (MIT) * The MIT License (MIT)
@ -150,7 +150,7 @@ CONSTANTS: BEGIN OF gc_diff,
update TYPE c LENGTH 1 VALUE 'U', update TYPE c LENGTH 1 VALUE 'U',
END OF gc_diff. END OF gc_diff.
DATA: gv_agent TYPE string. DATA: gv_agent TYPE string ##NEEDED.
DEFINE _raise. DEFINE _raise.
raise exception type lcx_exception raise exception type lcx_exception
@ -292,7 +292,7 @@ CLASS lcl_tadir IMPLEMENTATION.
WHEN 'INTF'. WHEN 'INTF'.
SELECT SINGLE category FROM seoclassdf INTO lv_category SELECT SINGLE category FROM seoclassdf INTO lv_category
WHERE clsname = <ls_tadir>-obj_name WHERE clsname = <ls_tadir>-obj_name
AND ( version = '1' OR version = '0' ). AND ( version = '1' OR version = '0' ) ##WARN_OK.
IF sy-subrc = 0 AND lv_category = seoc_category_webdynpro_class. IF sy-subrc = 0 AND lv_category = seoc_category_webdynpro_class.
DELETE rt_tadir INDEX lv_index. DELETE rt_tadir INDEX lv_index.
ENDIF. ENDIF.
@ -1598,7 +1598,7 @@ CLASS lcl_package IMPLEMENTATION.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
IF lv_parentcl IS INITIAL. IF lv_parentcl IS INITIAL.
rv_path = 'error'. rv_path = 'error' ##NO_TEXT.
ELSE. ELSE.
lv_len = strlen( lv_parentcl ). lv_len = strlen( lv_parentcl ).
lv_path = iv_package+lv_len. lv_path = iv_package+lv_len.
@ -2285,7 +2285,7 @@ CLASS lcl_objects_common IMPLEMENTATION.
APPEND INITIAL LINE TO lcl_objects_common=>gt_ddic ASSIGNING <ls_object>. APPEND INITIAL LINE TO lcl_objects_common=>gt_ddic ASSIGNING <ls_object>.
<ls_object>-object = iv_type. <ls_object>-object = iv_type.
<ls_object>-obj_name = lv_obj_name. <ls_object>-obj_name = lv_obj_name.
WHEN 'REPS' OR 'DYNP' OR 'CUAD' OR 'REPT' OR 'INTF' OR 'FUNC' OR 'ENHO'. WHEN 'REPS' OR 'DYNP' OR 'CUAD' OR 'REPT' OR 'INTF' OR 'FUNC' OR 'ENHO' OR 'TYPE'.
* these seem to go into the workarea automatically * these seem to go into the workarea automatically
APPEND INITIAL LINE TO lcl_objects_common=>gt_programs ASSIGNING <ls_object>. APPEND INITIAL LINE TO lcl_objects_common=>gt_programs ASSIGNING <ls_object>.
<ls_object>-object = iv_type. <ls_object>-object = iv_type.
@ -5551,26 +5551,39 @@ CLASS lcl_object_type DEFINITION INHERITING FROM lcl_objects_common FINAL.
IMPORTING is_item TYPE st_item IMPORTING is_item TYPE st_item
RAISING lcx_exception. RAISING lcx_exception.
PRIVATE SECTION.
CLASS-METHODS read
IMPORTING is_item TYPE st_item
EXPORTING ev_ddtext TYPE ddtypet-ddtext
et_source TYPE abaptxt255_tab
RAISING lcx_exception
lcx_not_found.
CLASS-METHODS create
IMPORTING is_item TYPE st_item
iv_ddtext TYPE ddtypet-ddtext
it_source TYPE abaptxt255_tab
iv_devclass TYPE devclass
RAISING lcx_exception.
ENDCLASS. ENDCLASS.
CLASS lcl_object_type IMPLEMENTATION. CLASS lcl_object_type IMPLEMENTATION.
METHOD serialize. METHOD read.
DATA: lv_ddtext TYPE ddtypet-ddtext, DATA: lv_typdname TYPE rsedd0-typegroup,
lv_typdname TYPE rsedd0-typegroup,
lt_psmodisrc TYPE TABLE OF smodisrc, lt_psmodisrc TYPE TABLE OF smodisrc,
lt_psmodilog TYPE TABLE OF smodilog, lt_psmodilog TYPE TABLE OF smodilog,
lt_psource TYPE TABLE OF abaptxt255,
lt_ptrdir TYPE TABLE OF trdir. lt_ptrdir TYPE TABLE OF trdir.
SELECT SINGLE ddtext FROM ddtypet SELECT SINGLE ddtext FROM ddtypet
INTO lv_ddtext INTO ev_ddtext
WHERE typegroup = is_item-obj_name WHERE typegroup = is_item-obj_name
AND ddlanguage = gc_english. AND ddlanguage = gc_english.
IF sy-subrc <> 0. IF sy-subrc <> 0.
RETURN. RAISE EXCEPTION TYPE lcx_not_found.
ENDIF. ENDIF.
lv_typdname = is_item-obj_name. lv_typdname = is_item-obj_name.
@ -5580,7 +5593,7 @@ CLASS lcl_object_type IMPLEMENTATION.
TABLES TABLES
psmodisrc = lt_psmodisrc psmodisrc = lt_psmodisrc
psmodilog = lt_psmodilog psmodilog = lt_psmodilog
psource = lt_psource psource = et_source
ptrdir = lt_ptrdir ptrdir = lt_ptrdir
EXCEPTIONS EXCEPTIONS
version_not_found = 1 version_not_found = 1
@ -5590,21 +5603,116 @@ CLASS lcl_object_type IMPLEMENTATION.
_raise 'error from TYPD_GET_OBJECT'. _raise 'error from TYPD_GET_OBJECT'.
ENDIF. ENDIF.
_raise 'todo, TYPE, serialize'. ENDMETHOD.
METHOD serialize.
DATA: lo_xml TYPE REF TO lcl_xml,
ls_file LIKE LINE OF rt_files,
lv_ddtext TYPE ddtypet-ddtext,
lt_source TYPE abaptxt255_tab.
TRY.
read( EXPORTING
is_item = is_item
IMPORTING
ev_ddtext = lv_ddtext
et_source = lt_source ).
CATCH lcx_not_found.
RETURN.
ENDTRY.
CREATE OBJECT lo_xml.
lo_xml->element_add( lv_ddtext ).
ls_file = xml_to_file( is_item = is_item
io_xml = lo_xml ).
APPEND ls_file TO rt_files.
ls_file = abap_to_file( is_item = is_item
it_abap = lt_source ).
APPEND ls_file TO rt_files.
ENDMETHOD.
METHOD create.
DATA: lv_progname TYPE reposrc-progname,
lv_typegroup TYPE rsedd0-typegroup.
lv_typegroup = is_item-obj_name.
CALL FUNCTION 'RS_DD_TYGR_INSERT_SOURCES'
EXPORTING
typegroupname = lv_typegroup
ddtext = iv_ddtext
corrnum = ''
devclass = iv_devclass
TABLES
source = it_source
EXCEPTIONS
already_exists = 1
not_executed = 2
permission_failure = 3
object_not_specified = 4
illegal_name = 5
OTHERS = 6.
IF sy-subrc <> 0.
_raise 'error from RS_DD_TYGR_INSERT_SOURCES'.
ENDIF.
CONCATENATE '%_C' lv_typegroup INTO lv_progname.
UPDATE progdir SET uccheck = abap_true
WHERE name = lv_progname.
IF sy-subrc <> 0.
_raise 'error setting uccheck'.
ENDIF.
ENDMETHOD. ENDMETHOD.
METHOD deserialize. METHOD deserialize.
_raise 'todo, TYPE, deserialize'. DATA: lo_xml TYPE REF TO lcl_xml,
* fm RS_DD_TYGR_INSERT_SOURCES lv_ddtext TYPE ddtypet-ddtext,
lt_source TYPE abaptxt255_tab.
lo_xml = read_xml( is_item = is_item
it_files = it_files ).
lo_xml->element_read( CHANGING cg_element = lv_ddtext ).
read_abap( EXPORTING is_item = is_item
it_files = it_files
CHANGING ct_abap = lt_source ).
create( is_item = is_item
iv_ddtext = lv_ddtext
it_source = lt_source
iv_devclass = iv_package ).
activation_add( iv_type = is_item-obj_type
iv_name = is_item-obj_name ).
ENDMETHOD. ENDMETHOD.
METHOD delete. METHOD delete.
_raise 'todo, TYPE, delete'. DATA: lv_typename TYPE typegroup.
* fm TYPD_INTERNAL_SERVICE
lv_typename = is_item-obj_name.
CALL FUNCTION 'TYPD_INTERNAL_SERVICE'
EXPORTING
i_typename = lv_typename
i_operation = swbm_c_op_delete
EXCEPTIONS
illegal_operation = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'error from TYPD_INTERNAL_SERVICE'.
ENDIF.
ENDMETHOD. ENDMETHOD.
@ -10641,7 +10749,7 @@ CLASS lcl_transport DEFINITION FINAL.
iv_service TYPE string DEFAULT 'upload' iv_service TYPE string DEFAULT 'upload'
EXPORTING ei_client TYPE REF TO if_http_client EXPORTING ei_client TYPE REF TO if_http_client
et_branch_list TYPE tt_branch_list et_branch_list TYPE tt_branch_list
RAISING lcx_exception. RAISING lcx_exception ##NO_TEXT.
PRIVATE SECTION. PRIVATE SECTION.
CLASS-METHODS pkt_string CLASS-METHODS pkt_string