mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 12:20:51 +08:00
* interface for zcl_abapgit_stage_logic #1955 * factory, fix injection
This commit is contained in:
parent
ba787d373e
commit
10ea325ca8
|
@ -110,7 +110,7 @@ CLASS ZCL_ABAPGIT_BACKGROUND_PUSH_AU IMPLEMENTATION.
|
||||||
<ls_local> LIKE LINE OF ls_files-local.
|
<ls_local> LIKE LINE OF ls_files-local.
|
||||||
|
|
||||||
|
|
||||||
ls_files = zcl_abapgit_stage_logic=>get( io_repo ).
|
ls_files = zcl_abapgit_factory=>get_stage_logic( )->get( io_repo ).
|
||||||
|
|
||||||
LOOP AT ls_files-local ASSIGNING <ls_local>.
|
LOOP AT ls_files-local ASSIGNING <ls_local>.
|
||||||
lv_changed_by = zcl_abapgit_objects=>changed_by( <ls_local>-item ).
|
lv_changed_by = zcl_abapgit_objects=>changed_by( <ls_local>-item ).
|
||||||
|
@ -234,7 +234,7 @@ CLASS ZCL_ABAPGIT_BACKGROUND_PUSH_AU IMPLEMENTATION.
|
||||||
DATA: ls_files TYPE zif_abapgit_definitions=>ty_stage_files.
|
DATA: ls_files TYPE zif_abapgit_definitions=>ty_stage_files.
|
||||||
|
|
||||||
mo_log = io_log.
|
mo_log = io_log.
|
||||||
ls_files = zcl_abapgit_stage_logic=>get( io_repo ).
|
ls_files = zcl_abapgit_factory=>get_stage_logic( )->get( io_repo ).
|
||||||
|
|
||||||
IF lines( ls_files-local ) = 0 AND lines( ls_files-remote ) = 0.
|
IF lines( ls_files-local ) = 0 AND lines( ls_files-remote ) = 0.
|
||||||
io_log->add_info( 'Nothing to stage' ) ##NO_TEXT.
|
io_log->add_info( 'Nothing to stage' ) ##NO_TEXT.
|
||||||
|
|
|
@ -73,7 +73,7 @@ CLASS ZCL_ABAPGIT_BACKGROUND_PUSH_FI IMPLEMENTATION.
|
||||||
<ls_remote> LIKE LINE OF ls_files-remote.
|
<ls_remote> LIKE LINE OF ls_files-remote.
|
||||||
|
|
||||||
|
|
||||||
ls_files = zcl_abapgit_stage_logic=>get( io_repo ).
|
ls_files = zcl_abapgit_factory=>get_stage_logic( )->get( io_repo ).
|
||||||
ASSERT lines( ls_files-local ) > 0
|
ASSERT lines( ls_files-local ) > 0
|
||||||
OR lines( ls_files-remote ) > 0.
|
OR lines( ls_files-remote ) > 0.
|
||||||
|
|
||||||
|
@ -146,7 +146,7 @@ CLASS ZCL_ABAPGIT_BACKGROUND_PUSH_FI IMPLEMENTATION.
|
||||||
lv_email TYPE string.
|
lv_email TYPE string.
|
||||||
|
|
||||||
mo_log = io_log.
|
mo_log = io_log.
|
||||||
ls_files = zcl_abapgit_stage_logic=>get( io_repo ).
|
ls_files = zcl_abapgit_factory=>get_stage_logic( )->get( io_repo ).
|
||||||
|
|
||||||
IF lines( ls_files-local ) = 0 AND lines( ls_files-remote ) = 0.
|
IF lines( ls_files-local ) = 0 AND lines( ls_files-remote ) = 0.
|
||||||
io_log->add_info( 'Nothing to stage' ).
|
io_log->add_info( 'Nothing to stage' ).
|
||||||
|
|
|
@ -77,7 +77,7 @@ ENDCLASS.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
CLASS zcl_abapgit_gui_page_stage IMPLEMENTATION.
|
CLASS ZCL_ABAPGIT_GUI_PAGE_STAGE IMPLEMENTATION.
|
||||||
|
|
||||||
|
|
||||||
METHOD build_menu.
|
METHOD build_menu.
|
||||||
|
@ -100,7 +100,7 @@ CLASS zcl_abapgit_gui_page_stage IMPLEMENTATION.
|
||||||
|
|
||||||
ms_control-page_title = 'STAGE'.
|
ms_control-page_title = 'STAGE'.
|
||||||
mo_repo = io_repo.
|
mo_repo = io_repo.
|
||||||
ms_files = zcl_abapgit_stage_logic=>get( mo_repo ).
|
ms_files = zcl_abapgit_factory=>get_stage_logic( )->get( mo_repo ).
|
||||||
mv_seed = iv_seed.
|
mv_seed = iv_seed.
|
||||||
|
|
||||||
IF mv_seed IS INITIAL. " Generate based on time unless obtained from diff page
|
IF mv_seed IS INITIAL. " Generate based on time unless obtained from diff page
|
||||||
|
@ -136,6 +136,35 @@ CLASS zcl_abapgit_gui_page_stage IMPLEMENTATION.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD get_page_patch.
|
||||||
|
|
||||||
|
DATA: lo_page TYPE REF TO zcl_abapgit_gui_page_diff,
|
||||||
|
lv_key TYPE zif_abapgit_persistence=>ty_repo-key,
|
||||||
|
ls_file TYPE zif_abapgit_definitions=>ty_file,
|
||||||
|
ls_object TYPE zif_abapgit_definitions=>ty_item,
|
||||||
|
lo_stage TYPE REF TO zcl_abapgit_stage.
|
||||||
|
|
||||||
|
zcl_abapgit_html_action_utils=>file_obj_decode(
|
||||||
|
EXPORTING
|
||||||
|
iv_string = iv_getdata
|
||||||
|
IMPORTING
|
||||||
|
ev_key = lv_key
|
||||||
|
eg_file = ls_file
|
||||||
|
eg_object = ls_object ).
|
||||||
|
|
||||||
|
CREATE OBJECT lo_stage.
|
||||||
|
|
||||||
|
CREATE OBJECT lo_page
|
||||||
|
EXPORTING
|
||||||
|
iv_key = lv_key
|
||||||
|
iv_patch_mode = abap_true
|
||||||
|
io_stage = lo_stage.
|
||||||
|
|
||||||
|
ri_page = lo_page.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD process_stage_list.
|
METHOD process_stage_list.
|
||||||
|
|
||||||
DATA: lv_string TYPE string,
|
DATA: lv_string TYPE string,
|
||||||
|
@ -464,35 +493,4 @@ CLASS zcl_abapgit_gui_page_stage IMPLEMENTATION.
|
||||||
ENDCASE.
|
ENDCASE.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD get_page_patch.
|
|
||||||
|
|
||||||
DATA: lo_page TYPE REF TO zcl_abapgit_gui_page_diff,
|
|
||||||
lv_key TYPE zif_abapgit_persistence=>ty_repo-key,
|
|
||||||
ls_file TYPE zif_abapgit_definitions=>ty_file,
|
|
||||||
ls_object TYPE zif_abapgit_definitions=>ty_item,
|
|
||||||
lo_stage TYPE REF TO zcl_abapgit_stage.
|
|
||||||
|
|
||||||
zcl_abapgit_html_action_utils=>file_obj_decode(
|
|
||||||
EXPORTING
|
|
||||||
iv_string = iv_getdata
|
|
||||||
IMPORTING
|
|
||||||
ev_key = lv_key
|
|
||||||
eg_file = ls_file
|
|
||||||
eg_object = ls_object ).
|
|
||||||
|
|
||||||
CREATE OBJECT lo_stage.
|
|
||||||
|
|
||||||
CREATE OBJECT lo_page
|
|
||||||
EXPORTING
|
|
||||||
iv_key = lv_key
|
|
||||||
iv_patch_mode = abap_true
|
|
||||||
io_stage = lo_stage.
|
|
||||||
|
|
||||||
ri_page = lo_page.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
|
@ -1,124 +1,107 @@
|
||||||
CLASS zcl_abapgit_factory DEFINITION
|
CLASS zcl_abapgit_factory DEFINITION
|
||||||
PUBLIC
|
PUBLIC
|
||||||
CREATE PRIVATE
|
CREATE PRIVATE
|
||||||
GLOBAL FRIENDS zcl_abapgit_injector.
|
|
||||||
|
GLOBAL FRIENDS zcl_abapgit_injector .
|
||||||
|
|
||||||
PUBLIC SECTION.
|
PUBLIC SECTION.
|
||||||
|
|
||||||
CLASS-METHODS:
|
CLASS-METHODS get_tadir
|
||||||
get_tadir
|
RETURNING
|
||||||
RETURNING
|
VALUE(ri_tadir) TYPE REF TO zif_abapgit_tadir .
|
||||||
VALUE(ri_tadir) TYPE REF TO zif_abapgit_tadir,
|
CLASS-METHODS get_sap_package
|
||||||
|
IMPORTING
|
||||||
get_sap_package
|
!iv_package TYPE devclass
|
||||||
IMPORTING
|
RETURNING
|
||||||
iv_package TYPE devclass
|
VALUE(ri_sap_package) TYPE REF TO zif_abapgit_sap_package .
|
||||||
RETURNING
|
CLASS-METHODS get_code_inspector
|
||||||
VALUE(ri_sap_package) TYPE REF TO zif_abapgit_sap_package,
|
IMPORTING
|
||||||
|
!iv_package TYPE devclass
|
||||||
get_code_inspector
|
!iv_check_variant_name TYPE sci_chkv
|
||||||
IMPORTING
|
RETURNING
|
||||||
iv_package TYPE devclass
|
VALUE(ri_code_inspector) TYPE REF TO zif_abapgit_code_inspector
|
||||||
iv_check_variant_name TYPE sci_chkv
|
RAISING
|
||||||
RETURNING
|
zcx_abapgit_exception .
|
||||||
VALUE(ri_code_inspector) TYPE REF TO zif_abapgit_code_inspector
|
CLASS-METHODS get_syntax_check
|
||||||
RAISING
|
IMPORTING
|
||||||
zcx_abapgit_exception,
|
!iv_package TYPE devclass
|
||||||
|
RETURNING
|
||||||
get_syntax_check
|
VALUE(ri_syntax_check) TYPE REF TO zif_abapgit_code_inspector
|
||||||
IMPORTING
|
RAISING
|
||||||
iv_package TYPE devclass
|
zcx_abapgit_exception .
|
||||||
RETURNING
|
CLASS-METHODS get_branch_overview
|
||||||
VALUE(ri_syntax_check) TYPE REF TO zif_abapgit_code_inspector
|
IMPORTING
|
||||||
RAISING
|
!io_repo TYPE REF TO zcl_abapgit_repo_online
|
||||||
zcx_abapgit_exception,
|
RETURNING
|
||||||
|
VALUE(ri_branch_overview) TYPE REF TO zif_abapgit_branch_overview
|
||||||
get_branch_overview
|
RAISING
|
||||||
IMPORTING
|
zcx_abapgit_exception .
|
||||||
io_repo TYPE REF TO zcl_abapgit_repo_online
|
CLASS-METHODS get_stage_logic
|
||||||
RETURNING
|
RETURNING
|
||||||
VALUE(ri_branch_overview) TYPE REF TO zif_abapgit_branch_overview
|
VALUE(ri_logic) TYPE REF TO zif_abapgit_stage_logic .
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception.
|
|
||||||
|
|
||||||
|
|
||||||
PRIVATE SECTION.
|
PRIVATE SECTION.
|
||||||
|
|
||||||
TYPES:
|
TYPES:
|
||||||
BEGIN OF ty_sap_package,
|
BEGIN OF ty_sap_package,
|
||||||
package TYPE devclass,
|
package TYPE devclass,
|
||||||
instance TYPE REF TO zif_abapgit_sap_package,
|
instance TYPE REF TO zif_abapgit_sap_package,
|
||||||
END OF ty_sap_package,
|
END OF ty_sap_package .
|
||||||
|
TYPES:
|
||||||
tty_sap_package TYPE HASHED TABLE OF ty_sap_package
|
tty_sap_package TYPE HASHED TABLE OF ty_sap_package
|
||||||
WITH UNIQUE KEY package,
|
WITH UNIQUE KEY package .
|
||||||
|
TYPES:
|
||||||
BEGIN OF ty_code_inspector,
|
BEGIN OF ty_code_inspector,
|
||||||
package TYPE devclass,
|
package TYPE devclass,
|
||||||
check_variant_name TYPE sci_chkv,
|
check_variant_name TYPE sci_chkv,
|
||||||
instance TYPE REF TO zif_abapgit_code_inspector,
|
instance TYPE REF TO zif_abapgit_code_inspector,
|
||||||
END OF ty_code_inspector,
|
END OF ty_code_inspector .
|
||||||
|
TYPES:
|
||||||
tty_code_inspector TYPE HASHED TABLE OF ty_code_inspector
|
tty_code_inspector TYPE HASHED TABLE OF ty_code_inspector
|
||||||
WITH UNIQUE KEY package check_variant_name,
|
WITH UNIQUE KEY package check_variant_name .
|
||||||
|
TYPES:
|
||||||
BEGIN OF ty_syntax_check,
|
BEGIN OF ty_syntax_check,
|
||||||
package TYPE devclass,
|
package TYPE devclass,
|
||||||
instance TYPE REF TO zif_abapgit_code_inspector,
|
instance TYPE REF TO zif_abapgit_code_inspector,
|
||||||
END OF ty_syntax_check,
|
END OF ty_syntax_check .
|
||||||
|
TYPES:
|
||||||
tty_syntax_check TYPE HASHED TABLE OF ty_syntax_check
|
tty_syntax_check TYPE HASHED TABLE OF ty_syntax_check
|
||||||
WITH UNIQUE KEY package,
|
WITH UNIQUE KEY package .
|
||||||
|
TYPES:
|
||||||
BEGIN OF ty_branch_overview,
|
BEGIN OF ty_branch_overview,
|
||||||
repo_key TYPE zif_abapgit_persistence=>ty_value,
|
repo_key TYPE zif_abapgit_persistence=>ty_value,
|
||||||
instance TYPE REF TO zif_abapgit_branch_overview,
|
instance TYPE REF TO zif_abapgit_branch_overview,
|
||||||
END OF ty_branch_overview,
|
END OF ty_branch_overview .
|
||||||
|
TYPES:
|
||||||
tty_branch_overview TYPE HASHED TABLE OF ty_branch_overview
|
tty_branch_overview TYPE HASHED TABLE OF ty_branch_overview
|
||||||
WITH UNIQUE KEY repo_key.
|
WITH UNIQUE KEY repo_key .
|
||||||
|
|
||||||
CLASS-DATA:
|
|
||||||
gi_tadir TYPE REF TO zif_abapgit_tadir,
|
|
||||||
gt_sap_package TYPE tty_sap_package,
|
|
||||||
gt_code_inspector TYPE tty_code_inspector,
|
|
||||||
gt_syntax_check TYPE tty_syntax_check,
|
|
||||||
gi_branch_overview TYPE REF TO zif_abapgit_branch_overview.
|
|
||||||
|
|
||||||
|
CLASS-DATA gi_tadir TYPE REF TO zif_abapgit_tadir .
|
||||||
|
CLASS-DATA gt_sap_package TYPE tty_sap_package .
|
||||||
|
CLASS-DATA gt_code_inspector TYPE tty_code_inspector .
|
||||||
|
CLASS-DATA gt_syntax_check TYPE tty_syntax_check .
|
||||||
|
CLASS-DATA gi_branch_overview TYPE REF TO zif_abapgit_branch_overview .
|
||||||
|
CLASS-DATA gi_stage_logic TYPE REF TO zif_abapgit_stage_logic .
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
CLASS zcl_abapgit_factory IMPLEMENTATION.
|
CLASS ZCL_ABAPGIT_FACTORY IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD get_tadir.
|
|
||||||
|
|
||||||
IF gi_tadir IS INITIAL.
|
METHOD get_branch_overview.
|
||||||
CREATE OBJECT gi_tadir TYPE zcl_abapgit_tadir.
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
ri_tadir = gi_tadir.
|
IF gi_branch_overview IS INITIAL.
|
||||||
|
CREATE OBJECT gi_branch_overview
|
||||||
ENDMETHOD.
|
TYPE zcl_abapgit_branch_overview
|
||||||
|
|
||||||
METHOD get_sap_package.
|
|
||||||
|
|
||||||
DATA: ls_sap_package TYPE ty_sap_package.
|
|
||||||
FIELD-SYMBOLS: <ls_sap_package> TYPE ty_sap_package.
|
|
||||||
|
|
||||||
READ TABLE gt_sap_package ASSIGNING <ls_sap_package>
|
|
||||||
WITH TABLE KEY package = iv_package.
|
|
||||||
IF sy-subrc <> 0.
|
|
||||||
|
|
||||||
ls_sap_package-package = iv_package.
|
|
||||||
CREATE OBJECT ls_sap_package-instance TYPE zcl_abapgit_sap_package
|
|
||||||
EXPORTING
|
EXPORTING
|
||||||
iv_package = iv_package.
|
io_repo = io_repo.
|
||||||
|
|
||||||
INSERT ls_sap_package
|
|
||||||
INTO TABLE gt_sap_package
|
|
||||||
ASSIGNING <ls_sap_package>.
|
|
||||||
|
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
ri_sap_package = <ls_sap_package>-instance.
|
ri_branch_overview = gi_branch_overview.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD get_code_inspector.
|
METHOD get_code_inspector.
|
||||||
|
|
||||||
DATA: ls_code_inspector LIKE LINE OF gt_code_inspector.
|
DATA: ls_code_inspector LIKE LINE OF gt_code_inspector.
|
||||||
|
@ -146,6 +129,44 @@ CLASS zcl_abapgit_factory IMPLEMENTATION.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD get_sap_package.
|
||||||
|
|
||||||
|
DATA: ls_sap_package TYPE ty_sap_package.
|
||||||
|
FIELD-SYMBOLS: <ls_sap_package> TYPE ty_sap_package.
|
||||||
|
|
||||||
|
READ TABLE gt_sap_package ASSIGNING <ls_sap_package>
|
||||||
|
WITH TABLE KEY package = iv_package.
|
||||||
|
IF sy-subrc <> 0.
|
||||||
|
|
||||||
|
ls_sap_package-package = iv_package.
|
||||||
|
CREATE OBJECT ls_sap_package-instance TYPE zcl_abapgit_sap_package
|
||||||
|
EXPORTING
|
||||||
|
iv_package = iv_package.
|
||||||
|
|
||||||
|
INSERT ls_sap_package
|
||||||
|
INTO TABLE gt_sap_package
|
||||||
|
ASSIGNING <ls_sap_package>.
|
||||||
|
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
ri_sap_package = <ls_sap_package>-instance.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD get_stage_logic.
|
||||||
|
|
||||||
|
IF gi_stage_logic IS INITIAL.
|
||||||
|
CREATE OBJECT gi_stage_logic
|
||||||
|
TYPE zcl_abapgit_stage_logic.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
ri_logic = gi_stage_logic.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD get_syntax_check.
|
METHOD get_syntax_check.
|
||||||
|
|
||||||
DATA: ls_syntax_check LIKE LINE OF gt_syntax_check.
|
DATA: ls_syntax_check LIKE LINE OF gt_syntax_check.
|
||||||
|
@ -170,14 +191,14 @@ CLASS zcl_abapgit_factory IMPLEMENTATION.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
METHOD get_branch_overview.
|
|
||||||
|
|
||||||
CREATE OBJECT ri_branch_overview
|
METHOD get_tadir.
|
||||||
TYPE zcl_abapgit_branch_overview
|
|
||||||
EXPORTING
|
|
||||||
io_repo = io_repo.
|
|
||||||
|
|
||||||
|
IF gi_tadir IS INITIAL.
|
||||||
|
CREATE OBJECT gi_tadir TYPE zcl_abapgit_tadir.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
ri_tadir = gi_tadir.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
|
@ -5,60 +5,32 @@ CLASS zcl_abapgit_injector DEFINITION
|
||||||
|
|
||||||
PUBLIC SECTION.
|
PUBLIC SECTION.
|
||||||
|
|
||||||
CLASS-METHODS:
|
CLASS-METHODS set_tadir
|
||||||
set_tadir
|
IMPORTING
|
||||||
IMPORTING
|
!ii_tadir TYPE REF TO zif_abapgit_tadir .
|
||||||
!ii_tadir TYPE REF TO zif_abapgit_tadir,
|
CLASS-METHODS set_sap_package
|
||||||
|
IMPORTING
|
||||||
set_sap_package
|
!iv_package TYPE devclass
|
||||||
IMPORTING
|
!ii_sap_package TYPE REF TO zif_abapgit_sap_package .
|
||||||
iv_package TYPE devclass
|
CLASS-METHODS set_code_inspector
|
||||||
ii_sap_package TYPE REF TO zif_abapgit_sap_package,
|
IMPORTING
|
||||||
|
!iv_package TYPE devclass
|
||||||
set_code_inspector
|
!iv_check_variant_name TYPE sci_chkv OPTIONAL
|
||||||
IMPORTING
|
!ii_code_inspector TYPE REF TO zif_abapgit_code_inspector .
|
||||||
iv_package TYPE devclass
|
CLASS-METHODS set_syntax_check
|
||||||
iv_check_variant_name TYPE sci_chkv OPTIONAL
|
IMPORTING
|
||||||
ii_code_inspector TYPE REF TO zif_abapgit_code_inspector,
|
!iv_package TYPE devclass
|
||||||
|
!ii_syntax_check TYPE REF TO zif_abapgit_code_inspector .
|
||||||
set_syntax_check
|
CLASS-METHODS set_stage_logic
|
||||||
IMPORTING
|
IMPORTING
|
||||||
iv_package TYPE devclass
|
!ii_logic TYPE REF TO zif_abapgit_stage_logic .
|
||||||
ii_syntax_check TYPE REF TO zif_abapgit_code_inspector.
|
PRIVATE SECTION.
|
||||||
|
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
CLASS zcl_abapgit_injector IMPLEMENTATION.
|
CLASS ZCL_ABAPGIT_INJECTOR IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD set_tadir.
|
|
||||||
|
|
||||||
zcl_abapgit_factory=>gi_tadir = ii_tadir.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD set_sap_package.
|
|
||||||
|
|
||||||
DATA: ls_sap_package TYPE zcl_abapgit_factory=>ty_sap_package.
|
|
||||||
FIELD-SYMBOLS: <ls_sap_package> TYPE zcl_abapgit_factory=>ty_sap_package.
|
|
||||||
|
|
||||||
READ TABLE zcl_abapgit_factory=>gt_sap_package
|
|
||||||
ASSIGNING <ls_sap_package>
|
|
||||||
WITH TABLE KEY package = iv_package.
|
|
||||||
|
|
||||||
IF sy-subrc <> 0.
|
|
||||||
|
|
||||||
ls_sap_package-package = iv_package.
|
|
||||||
INSERT ls_sap_package
|
|
||||||
INTO TABLE zcl_abapgit_factory=>gt_sap_package
|
|
||||||
ASSIGNING <ls_sap_package>.
|
|
||||||
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
<ls_sap_package>-instance = ii_sap_package.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD set_code_inspector.
|
METHOD set_code_inspector.
|
||||||
|
|
||||||
|
@ -84,6 +56,37 @@ CLASS zcl_abapgit_injector IMPLEMENTATION.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD set_sap_package.
|
||||||
|
|
||||||
|
DATA: ls_sap_package TYPE zcl_abapgit_factory=>ty_sap_package.
|
||||||
|
FIELD-SYMBOLS: <ls_sap_package> TYPE zcl_abapgit_factory=>ty_sap_package.
|
||||||
|
|
||||||
|
READ TABLE zcl_abapgit_factory=>gt_sap_package
|
||||||
|
ASSIGNING <ls_sap_package>
|
||||||
|
WITH TABLE KEY package = iv_package.
|
||||||
|
|
||||||
|
IF sy-subrc <> 0.
|
||||||
|
|
||||||
|
ls_sap_package-package = iv_package.
|
||||||
|
INSERT ls_sap_package
|
||||||
|
INTO TABLE zcl_abapgit_factory=>gt_sap_package
|
||||||
|
ASSIGNING <ls_sap_package>.
|
||||||
|
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
<ls_sap_package>-instance = ii_sap_package.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD set_stage_logic.
|
||||||
|
|
||||||
|
zcl_abapgit_factory=>gi_stage_logic = ii_logic.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD set_syntax_check.
|
METHOD set_syntax_check.
|
||||||
|
|
||||||
DATA: ls_syntax_check LIKE LINE OF zcl_abapgit_factory=>gt_syntax_check.
|
DATA: ls_syntax_check LIKE LINE OF zcl_abapgit_factory=>gt_syntax_check.
|
||||||
|
@ -106,4 +109,10 @@ CLASS zcl_abapgit_injector IMPLEMENTATION.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD set_tadir.
|
||||||
|
|
||||||
|
zcl_abapgit_factory=>gi_tadir = ii_tadir.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
|
@ -1,17 +1,12 @@
|
||||||
CLASS zcl_abapgit_stage_logic DEFINITION
|
CLASS zcl_abapgit_stage_logic DEFINITION
|
||||||
PUBLIC
|
PUBLIC
|
||||||
FINAL
|
CREATE PRIVATE
|
||||||
CREATE PUBLIC .
|
|
||||||
|
GLOBAL FRIENDS zcl_abapgit_factory .
|
||||||
|
|
||||||
PUBLIC SECTION.
|
PUBLIC SECTION.
|
||||||
|
|
||||||
CLASS-METHODS get
|
INTERFACES zif_abapgit_stage_logic .
|
||||||
IMPORTING
|
|
||||||
!io_repo TYPE REF TO zcl_abapgit_repo_online
|
|
||||||
RETURNING
|
|
||||||
VALUE(rs_files) TYPE zif_abapgit_definitions=>ty_stage_files
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception .
|
|
||||||
PRIVATE SECTION.
|
PRIVATE SECTION.
|
||||||
CLASS-METHODS:
|
CLASS-METHODS:
|
||||||
remove_ignored
|
remove_ignored
|
||||||
|
@ -27,17 +22,6 @@ ENDCLASS.
|
||||||
CLASS ZCL_ABAPGIT_STAGE_LOGIC IMPLEMENTATION.
|
CLASS ZCL_ABAPGIT_STAGE_LOGIC IMPLEMENTATION.
|
||||||
|
|
||||||
|
|
||||||
METHOD get.
|
|
||||||
|
|
||||||
rs_files-local = io_repo->get_files_local( ).
|
|
||||||
rs_files-remote = io_repo->get_files_remote( ).
|
|
||||||
remove_identical( CHANGING cs_files = rs_files ).
|
|
||||||
remove_ignored( EXPORTING io_repo = io_repo
|
|
||||||
CHANGING cs_files = rs_files ).
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD remove_identical.
|
METHOD remove_identical.
|
||||||
|
|
||||||
DATA: lv_index TYPE i,
|
DATA: lv_index TYPE i,
|
||||||
|
@ -87,4 +71,15 @@ CLASS ZCL_ABAPGIT_STAGE_LOGIC IMPLEMENTATION.
|
||||||
ENDLOOP.
|
ENDLOOP.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_stage_logic~get.
|
||||||
|
|
||||||
|
rs_files-local = io_repo->get_files_local( ).
|
||||||
|
rs_files-remote = io_repo->get_files_remote( ).
|
||||||
|
remove_identical( CHANGING cs_files = rs_files ).
|
||||||
|
remove_ignored( EXPORTING io_repo = io_repo
|
||||||
|
CHANGING cs_files = rs_files ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
|
@ -7,9 +7,7 @@
|
||||||
<VERSION>1</VERSION>
|
<VERSION>1</VERSION>
|
||||||
<LANGU>E</LANGU>
|
<LANGU>E</LANGU>
|
||||||
<DESCRIPT>Stage logic</DESCRIPT>
|
<DESCRIPT>Stage logic</DESCRIPT>
|
||||||
<EXPOSURE>2</EXPOSURE>
|
|
||||||
<STATE>1</STATE>
|
<STATE>1</STATE>
|
||||||
<CLSFINAL>X</CLSFINAL>
|
|
||||||
<CLSCCINCL>X</CLSCCINCL>
|
<CLSCCINCL>X</CLSCCINCL>
|
||||||
<FIXPT>X</FIXPT>
|
<FIXPT>X</FIXPT>
|
||||||
<UNICODE>X</UNICODE>
|
<UNICODE>X</UNICODE>
|
||||||
|
|
|
@ -50,7 +50,7 @@ CLASS ZCL_ABAPGIT_TRANSPORT_2_BRANCH IMPLEMENTATION.
|
||||||
|
|
||||||
CREATE OBJECT lo_stage.
|
CREATE OBJECT lo_stage.
|
||||||
|
|
||||||
ls_stage_objects = zcl_abapgit_stage_logic=>get( io_repository ).
|
ls_stage_objects = zcl_abapgit_factory=>get_stage_logic( )->get( io_repository ).
|
||||||
|
|
||||||
lt_object_statuses = io_repository->status( ).
|
lt_object_statuses = io_repository->status( ).
|
||||||
|
|
||||||
|
|
12
src/zif_abapgit_stage_logic.intf.abap
Normal file
12
src/zif_abapgit_stage_logic.intf.abap
Normal file
|
@ -0,0 +1,12 @@
|
||||||
|
INTERFACE zif_abapgit_stage_logic
|
||||||
|
PUBLIC .
|
||||||
|
|
||||||
|
METHODS get
|
||||||
|
IMPORTING
|
||||||
|
!io_repo TYPE REF TO zcl_abapgit_repo_online
|
||||||
|
RETURNING
|
||||||
|
VALUE(rs_files) TYPE zif_abapgit_definitions=>ty_stage_files
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
|
||||||
|
ENDINTERFACE.
|
16
src/zif_abapgit_stage_logic.intf.xml
Normal file
16
src/zif_abapgit_stage_logic.intf.xml
Normal file
|
@ -0,0 +1,16 @@
|
||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<abapGit version="v1.0.0" serializer="LCL_OBJECT_INTF" serializer_version="v1.0.0">
|
||||||
|
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||||
|
<asx:values>
|
||||||
|
<VSEOINTERF>
|
||||||
|
<CLSNAME>ZIF_ABAPGIT_STAGE_LOGIC</CLSNAME>
|
||||||
|
<VERSION>1</VERSION>
|
||||||
|
<LANGU>E</LANGU>
|
||||||
|
<DESCRIPT>Staging logic</DESCRIPT>
|
||||||
|
<EXPOSURE>2</EXPOSURE>
|
||||||
|
<STATE>1</STATE>
|
||||||
|
<UNICODE>X</UNICODE>
|
||||||
|
</VSEOINTERF>
|
||||||
|
</asx:values>
|
||||||
|
</asx:abap>
|
||||||
|
</abapGit>
|
Loading…
Reference in New Issue
Block a user