mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-04 05:47:17 +08:00
9f2db446b1
Since all object handler contains exactly the same CASE statement for STEP definition, I would recommend that each object handler simply returns the STEP he belongs to. This fix should "simply" issue #2499.
213 lines
4.8 KiB
ABAP
213 lines
4.8 KiB
ABAP
CLASS zcl_abapgit_object_iarp DEFINITION PUBLIC INHERITING FROM zcl_abapgit_objects_super FINAL.
|
|
|
|
PUBLIC SECTION.
|
|
INTERFACES zif_abapgit_object.
|
|
ALIASES mo_files FOR zif_abapgit_object~mo_files.
|
|
|
|
PROTECTED SECTION.
|
|
PRIVATE SECTION.
|
|
METHODS:
|
|
read
|
|
EXPORTING es_attr TYPE w3resoattr
|
|
et_parameters TYPE w3resopara_tabletype
|
|
RAISING zcx_abapgit_exception,
|
|
save
|
|
IMPORTING is_attr TYPE w3resoattr
|
|
it_parameters TYPE w3resopara_tabletype
|
|
RAISING zcx_abapgit_exception.
|
|
|
|
ENDCLASS.
|
|
|
|
|
|
|
|
CLASS ZCL_ABAPGIT_OBJECT_IARP IMPLEMENTATION.
|
|
|
|
|
|
METHOD read.
|
|
|
|
DATA: li_resource TYPE REF TO if_w3_api_resource,
|
|
ls_name TYPE w3resokey.
|
|
|
|
|
|
ls_name = ms_item-obj_name.
|
|
|
|
cl_w3_api_resource=>if_w3_api_resource~load(
|
|
EXPORTING
|
|
p_resource_name = ls_name
|
|
IMPORTING
|
|
p_resource = li_resource
|
|
EXCEPTIONS
|
|
object_not_existing = 1
|
|
permission_failure = 2
|
|
error_occured = 3
|
|
OTHERS = 4 ).
|
|
IF sy-subrc <> 0.
|
|
zcx_abapgit_exception=>raise( 'error from w3api_resource~load' ).
|
|
ENDIF.
|
|
|
|
li_resource->get_attributes( IMPORTING p_attributes = es_attr ).
|
|
|
|
CLEAR: es_attr-chname,
|
|
es_attr-tdate,
|
|
es_attr-ttime,
|
|
es_attr-devclass.
|
|
|
|
li_resource->get_parameters( IMPORTING p_parameters = et_parameters ).
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD save.
|
|
|
|
DATA: li_resource TYPE REF TO if_w3_api_resource.
|
|
|
|
|
|
cl_w3_api_resource=>if_w3_api_resource~create_new(
|
|
EXPORTING p_resource_data = is_attr
|
|
IMPORTING p_resource = li_resource ).
|
|
|
|
li_resource->set_attributes( is_attr ).
|
|
li_resource->set_parameters( it_parameters ).
|
|
|
|
li_resource->if_w3_api_object~save( ).
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~changed_by.
|
|
rv_user = c_user_unknown. " todo
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~delete.
|
|
|
|
DATA: li_resource TYPE REF TO if_w3_api_resource,
|
|
ls_name TYPE w3resokey.
|
|
|
|
|
|
ls_name = ms_item-obj_name.
|
|
|
|
cl_w3_api_resource=>if_w3_api_resource~load(
|
|
EXPORTING
|
|
p_resource_name = ls_name
|
|
IMPORTING
|
|
p_resource = li_resource
|
|
EXCEPTIONS
|
|
object_not_existing = 1
|
|
permission_failure = 2
|
|
error_occured = 3
|
|
OTHERS = 4 ).
|
|
IF sy-subrc <> 0.
|
|
zcx_abapgit_exception=>raise( 'error from if_w3_api_resource~load' ).
|
|
ENDIF.
|
|
|
|
li_resource->if_w3_api_object~set_changeable( abap_true ).
|
|
li_resource->if_w3_api_object~delete( ).
|
|
li_resource->if_w3_api_object~save( ).
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~deserialize.
|
|
|
|
DATA: ls_attr TYPE w3resoattr,
|
|
lt_parameters TYPE w3resopara_tabletype.
|
|
|
|
|
|
io_xml->read( EXPORTING iv_name = 'ATTR'
|
|
CHANGING cg_data = ls_attr ).
|
|
io_xml->read( EXPORTING iv_name = 'PARAMETERS'
|
|
CHANGING cg_data = lt_parameters ).
|
|
|
|
ls_attr-devclass = iv_package.
|
|
save( is_attr = ls_attr
|
|
it_parameters = lt_parameters ).
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~exists.
|
|
|
|
DATA: ls_name TYPE w3resokey.
|
|
|
|
|
|
ls_name = ms_item-obj_name.
|
|
|
|
cl_w3_api_resource=>if_w3_api_resource~load(
|
|
EXPORTING
|
|
p_resource_name = ls_name
|
|
EXCEPTIONS
|
|
object_not_existing = 1
|
|
permission_failure = 2
|
|
error_occured = 3
|
|
OTHERS = 4 ).
|
|
IF sy-subrc = 1.
|
|
rv_bool = abap_false.
|
|
ELSEIF sy-subrc <> 0.
|
|
zcx_abapgit_exception=>raise( 'error from w3_api_resource~load' ).
|
|
ELSE.
|
|
rv_bool = abap_true.
|
|
ENDIF.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~get_comparator.
|
|
RETURN.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~get_deserialize_steps.
|
|
APPEND zif_abapgit_object=>gc_step_id-abap TO rt_steps.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~get_metadata.
|
|
rs_metadata = get_metadata( ).
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~is_active.
|
|
rv_active = is_active( ).
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~is_locked.
|
|
|
|
rv_is_locked = abap_false.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~jump.
|
|
|
|
CALL FUNCTION 'RS_TOOL_ACCESS'
|
|
EXPORTING
|
|
operation = 'SHOW'
|
|
object_name = ms_item-obj_name
|
|
object_type = ms_item-obj_type.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_object~serialize.
|
|
|
|
DATA: ls_attr TYPE w3resoattr,
|
|
lt_parameters TYPE w3resopara_tabletype.
|
|
|
|
|
|
IF zif_abapgit_object~exists( ) = abap_false.
|
|
RETURN.
|
|
ENDIF.
|
|
|
|
read( IMPORTING es_attr = ls_attr
|
|
et_parameters = lt_parameters ).
|
|
|
|
io_xml->add( iv_name = 'ATTR'
|
|
ig_data = ls_attr ).
|
|
io_xml->add( iv_name = 'PARAMETERS'
|
|
ig_data = lt_parameters ).
|
|
|
|
ENDMETHOD.
|
|
ENDCLASS.
|