mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-03 13:26:12 +08:00
398 lines
17 KiB
ABAP
398 lines
17 KiB
ABAP
CLASS zcl_abapgit_gui_router DEFINITION
|
|
PUBLIC
|
|
FINAL
|
|
CREATE PUBLIC .
|
|
|
|
PUBLIC SECTION.
|
|
|
|
METHODS on_event
|
|
IMPORTING iv_action TYPE clike
|
|
iv_prev_page TYPE clike
|
|
iv_getdata TYPE clike OPTIONAL
|
|
it_postdata TYPE cnht_post_data_tab OPTIONAL
|
|
EXPORTING ei_page TYPE REF TO zif_abapgit_gui_page
|
|
ev_state TYPE i
|
|
RAISING zcx_abapgit_exception zcx_abapgit_cancel.
|
|
|
|
PRIVATE SECTION.
|
|
|
|
METHODS get_page_diff
|
|
IMPORTING iv_getdata TYPE clike
|
|
iv_prev_page TYPE clike
|
|
RETURNING VALUE(ri_page) TYPE REF TO zif_abapgit_gui_page
|
|
RAISING zcx_abapgit_exception.
|
|
|
|
METHODS get_page_branch_overview
|
|
IMPORTING iv_getdata TYPE clike
|
|
RETURNING VALUE(ri_page) TYPE REF TO zif_abapgit_gui_page
|
|
RAISING zcx_abapgit_exception.
|
|
|
|
METHODS get_page_stage
|
|
IMPORTING iv_getdata TYPE clike
|
|
RETURNING VALUE(ri_page) TYPE REF TO zif_abapgit_gui_page
|
|
RAISING zcx_abapgit_exception.
|
|
|
|
METHODS get_page_background
|
|
IMPORTING iv_key TYPE zif_abapgit_persistence=>ty_repo-key
|
|
RETURNING VALUE(ri_page) TYPE REF TO zif_abapgit_gui_page
|
|
RAISING zcx_abapgit_exception.
|
|
|
|
METHODS get_page_playground
|
|
RETURNING VALUE(ri_page) TYPE REF TO zif_abapgit_gui_page
|
|
RAISING zcx_abapgit_exception zcx_abapgit_cancel.
|
|
|
|
CLASS-METHODS jump_display_transport
|
|
IMPORTING iv_getdata TYPE clike.
|
|
ENDCLASS.
|
|
|
|
|
|
|
|
CLASS ZCL_ABAPGIT_GUI_ROUTER IMPLEMENTATION.
|
|
|
|
|
|
METHOD get_page_background.
|
|
|
|
CREATE OBJECT ri_page TYPE zcl_abapgit_gui_page_bkg
|
|
EXPORTING
|
|
iv_key = iv_key.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD get_page_branch_overview.
|
|
|
|
DATA: lo_repo TYPE REF TO zcl_abapgit_repo_online,
|
|
lo_page TYPE REF TO zcl_abapgit_gui_page_boverview,
|
|
lv_key TYPE zif_abapgit_persistence=>ty_repo-key.
|
|
|
|
|
|
lv_key = iv_getdata.
|
|
|
|
lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( lv_key ).
|
|
|
|
CREATE OBJECT lo_page
|
|
EXPORTING
|
|
io_repo = lo_repo.
|
|
|
|
ri_page = lo_page.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD get_page_diff.
|
|
|
|
DATA: ls_file TYPE zif_abapgit_definitions=>ty_file,
|
|
ls_object TYPE zif_abapgit_definitions=>ty_item,
|
|
lo_page TYPE REF TO zcl_abapgit_gui_page_diff,
|
|
lv_key TYPE zif_abapgit_persistence=>ty_repo-key.
|
|
|
|
|
|
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_page
|
|
EXPORTING
|
|
iv_key = lv_key
|
|
is_file = ls_file
|
|
is_object = ls_object.
|
|
|
|
ri_page = lo_page.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD get_page_playground.
|
|
DATA: lv_class_name TYPE string,
|
|
lv_cancel TYPE abap_bool,
|
|
li_popups TYPE REF TO zif_abapgit_popups.
|
|
|
|
li_popups = zcl_abapgit_ui_factory=>get_popups( ).
|
|
li_popups->run_page_class_popup(
|
|
IMPORTING
|
|
ev_name = lv_class_name
|
|
ev_cancel = lv_cancel ).
|
|
|
|
IF lv_cancel = abap_true.
|
|
RAISE EXCEPTION TYPE zcx_abapgit_cancel.
|
|
ENDIF.
|
|
|
|
TRY.
|
|
CREATE OBJECT ri_page TYPE (lv_class_name).
|
|
CATCH cx_sy_create_object_error.
|
|
zcx_abapgit_exception=>raise( |Cannot create page class { lv_class_name }| ).
|
|
ENDTRY.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD get_page_stage.
|
|
|
|
DATA: lo_repo TYPE REF TO zcl_abapgit_repo_online,
|
|
lv_key TYPE zif_abapgit_persistence=>ty_repo-key,
|
|
lv_seed TYPE string,
|
|
lo_stage_page TYPE REF TO zcl_abapgit_gui_page_stage,
|
|
lo_code_inspector_page TYPE REF TO zcl_abapgit_gui_page_code_insp.
|
|
|
|
FIND FIRST OCCURRENCE OF '=' IN iv_getdata.
|
|
IF sy-subrc <> 0. " Not found ? -> just repo key in params
|
|
lv_key = iv_getdata.
|
|
ELSE.
|
|
zcl_abapgit_html_action_utils=>stage_decode(
|
|
EXPORTING iv_getdata = iv_getdata
|
|
IMPORTING ev_key = lv_key
|
|
ev_seed = lv_seed ).
|
|
ENDIF.
|
|
|
|
lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( lv_key ).
|
|
|
|
IF lo_repo->get_local_settings( )-code_inspector_check_variant IS NOT INITIAL.
|
|
|
|
CREATE OBJECT lo_code_inspector_page
|
|
EXPORTING
|
|
io_repo = lo_repo.
|
|
|
|
ri_page = lo_code_inspector_page.
|
|
|
|
ELSE.
|
|
|
|
" force refresh on stage, to make sure the latest local and remote files are used
|
|
lo_repo->refresh( ).
|
|
|
|
CREATE OBJECT lo_stage_page
|
|
EXPORTING
|
|
io_repo = lo_repo
|
|
iv_seed = lv_seed.
|
|
|
|
ri_page = lo_stage_page.
|
|
|
|
ENDIF.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD jump_display_transport.
|
|
DATA: lv_transport TYPE trkorr.
|
|
|
|
lv_transport = iv_getdata.
|
|
|
|
CALL FUNCTION 'TR_DISPLAY_REQUEST'
|
|
EXPORTING
|
|
i_trkorr = lv_transport.
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD on_event.
|
|
|
|
DATA: lv_url TYPE string,
|
|
lv_key TYPE zif_abapgit_persistence=>ty_repo-key,
|
|
ls_item TYPE zif_abapgit_definitions=>ty_item.
|
|
|
|
|
|
lv_key = iv_getdata. " TODO refactor
|
|
lv_url = iv_getdata. " TODO refactor
|
|
|
|
CASE iv_action.
|
|
" General PAGE routing
|
|
WHEN zif_abapgit_definitions=>c_action-go_main. " Go Main page
|
|
CREATE OBJECT ei_page TYPE zcl_abapgit_gui_page_main.
|
|
ev_state = zif_abapgit_definitions=>c_event_state-new_page.
|
|
WHEN zif_abapgit_definitions=>c_action-go_explore. " Go Explore page
|
|
CREATE OBJECT ei_page TYPE zcl_abapgit_gui_page_explore.
|
|
ev_state = zif_abapgit_definitions=>c_event_state-new_page.
|
|
WHEN zif_abapgit_definitions=>c_action-go_repo_overview. " Go Repository overview
|
|
CREATE OBJECT ei_page TYPE zcl_abapgit_gui_page_repo_over.
|
|
ev_state = zif_abapgit_definitions=>c_event_state-new_page.
|
|
WHEN zif_abapgit_definitions=>c_action-go_db. " Go DB util page
|
|
CREATE OBJECT ei_page TYPE zcl_abapgit_gui_page_db.
|
|
ev_state = zif_abapgit_definitions=>c_event_state-new_page.
|
|
WHEN zif_abapgit_definitions=>c_action-go_debuginfo.
|
|
CREATE OBJECT ei_page TYPE zcl_abapgit_gui_page_debuginfo.
|
|
ev_state = zif_abapgit_definitions=>c_event_state-new_page.
|
|
WHEN zif_abapgit_definitions=>c_action-go_settings.
|
|
CREATE OBJECT ei_page TYPE zcl_abapgit_gui_page_settings.
|
|
ev_state = zif_abapgit_definitions=>c_event_state-new_page.
|
|
WHEN zif_abapgit_definitions=>c_action-go_background_run. " Go background run page
|
|
CREATE OBJECT ei_page TYPE zcl_abapgit_gui_page_bkg_run.
|
|
ev_state = zif_abapgit_definitions=>c_event_state-new_page.
|
|
WHEN zif_abapgit_definitions=>c_action-go_background. " Go Background page
|
|
ei_page = get_page_background( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-new_page.
|
|
WHEN zif_abapgit_definitions=>c_action-go_diff. " Go Diff page
|
|
ei_page = get_page_diff(
|
|
iv_getdata = iv_getdata
|
|
iv_prev_page = iv_prev_page ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-new_page_w_bookmark.
|
|
WHEN zif_abapgit_definitions=>c_action-go_stage. " Go Staging page
|
|
ei_page = get_page_stage( iv_getdata ).
|
|
IF iv_prev_page = 'PAGE_DIFF'.
|
|
ev_state = zif_abapgit_definitions=>c_event_state-new_page.
|
|
ELSE.
|
|
ev_state = zif_abapgit_definitions=>c_event_state-new_page_w_bookmark.
|
|
ENDIF.
|
|
WHEN zif_abapgit_definitions=>c_action-go_branch_overview. " Go repo branch overview
|
|
ei_page = get_page_branch_overview( iv_getdata ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-new_page.
|
|
WHEN zif_abapgit_definitions=>c_action-go_playground. " Create playground page
|
|
ei_page = get_page_playground( ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-new_page.
|
|
WHEN zif_abapgit_definitions=>c_action-go_tutorial. " Go to tutorial
|
|
zcl_abapgit_persistence_user=>get_instance( )->set_repo_show( '' ). " Clear show_id
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render. " Assume we are on main page
|
|
|
|
" SAP GUI actions
|
|
WHEN zif_abapgit_definitions=>c_action-jump. " Open object editor
|
|
zcl_abapgit_html_action_utils=>jump_decode(
|
|
EXPORTING iv_string = iv_getdata
|
|
IMPORTING ev_obj_type = ls_item-obj_type
|
|
ev_obj_name = ls_item-obj_name ).
|
|
zcl_abapgit_objects=>jump( ls_item ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-no_more_act.
|
|
WHEN zif_abapgit_definitions=>c_action-jump_pkg. " Open SE80
|
|
zcl_abapgit_services_repo=>open_se80( |{ iv_getdata }| ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-no_more_act.
|
|
WHEN zif_abapgit_definitions=>c_action-jump_transport.
|
|
jump_display_transport( iv_getdata ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-no_more_act.
|
|
|
|
" DB actions
|
|
WHEN zif_abapgit_definitions=>c_action-db_edit.
|
|
CREATE OBJECT ei_page TYPE zcl_abapgit_gui_page_db_edit
|
|
EXPORTING
|
|
is_key = zcl_abapgit_html_action_utils=>dbkey_decode( iv_getdata ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-new_page.
|
|
IF iv_prev_page = 'PAGE_DB_DIS'.
|
|
ev_state = zif_abapgit_definitions=>c_event_state-new_page_replacing.
|
|
ENDIF.
|
|
WHEN zif_abapgit_definitions=>c_action-db_display.
|
|
CREATE OBJECT ei_page TYPE zcl_abapgit_gui_page_db_dis
|
|
EXPORTING
|
|
is_key = zcl_abapgit_html_action_utils=>dbkey_decode( iv_getdata ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-new_page.
|
|
|
|
" ABAPGIT services actions
|
|
WHEN zif_abapgit_definitions=>c_action-abapgit_home. " Go abapGit homepage
|
|
zcl_abapgit_services_abapgit=>open_abapgit_homepage( ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-no_more_act.
|
|
|
|
WHEN zif_abapgit_definitions=>c_action-abapgit_install. " Install abapGit
|
|
zcl_abapgit_services_abapgit=>install_abapgit( ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
|
|
" REPOSITORY services actions
|
|
WHEN zif_abapgit_definitions=>c_action-repo_newoffline. " New offline repo
|
|
zcl_abapgit_services_repo=>new_offline( ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
WHEN zif_abapgit_definitions=>c_action-repo_refresh. " Repo refresh
|
|
zcl_abapgit_services_repo=>refresh( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
WHEN zif_abapgit_definitions=>c_action-repo_syntax_check.
|
|
CREATE OBJECT ei_page TYPE zcl_abapgit_gui_page_syntax
|
|
EXPORTING
|
|
io_repo = zcl_abapgit_repo_srv=>get_instance( )->get( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-new_page.
|
|
WHEN zif_abapgit_definitions=>c_action-repo_code_inspector.
|
|
CREATE OBJECT ei_page TYPE zcl_abapgit_gui_page_code_insp
|
|
EXPORTING
|
|
io_repo = zcl_abapgit_repo_srv=>get_instance( )->get( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-new_page.
|
|
WHEN zif_abapgit_definitions=>c_action-repo_purge. " Repo remove & purge all objects
|
|
zcl_abapgit_services_repo=>purge( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
WHEN zif_abapgit_definitions=>c_action-repo_remove. " Repo remove
|
|
zcl_abapgit_services_repo=>remove( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
WHEN zif_abapgit_definitions=>c_action-repo_newonline.
|
|
zcl_abapgit_services_repo=>new_online( lv_url ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
WHEN 'install'. " 'install' is for explore page
|
|
zcl_abapgit_services_repo=>new_online( lv_url ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
WHEN zif_abapgit_definitions=>c_action-repo_refresh_checksums. " Rebuil local checksums
|
|
zcl_abapgit_services_repo=>refresh_local_checksums( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
WHEN zif_abapgit_definitions=>c_action-repo_toggle_fav. " Toggle repo as favorite
|
|
zcl_abapgit_services_repo=>toggle_favorite( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
WHEN zif_abapgit_definitions=>c_action-repo_transport_to_branch.
|
|
zcl_abapgit_services_repo=>transport_to_branch( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
WHEN zif_abapgit_definitions=>c_action-repo_settings.
|
|
CREATE OBJECT ei_page TYPE zcl_abapgit_gui_page_repo_sett
|
|
EXPORTING
|
|
io_repo = zcl_abapgit_repo_srv=>get_instance( )->get( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-new_page.
|
|
|
|
" ZIP services actions
|
|
WHEN zif_abapgit_definitions=>c_action-zip_import. " Import repo from ZIP
|
|
zcl_abapgit_zip=>import( lv_key ).
|
|
zcl_abapgit_services_repo=>refresh( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
WHEN zif_abapgit_definitions=>c_action-zip_export. " Export repo as ZIP
|
|
zcl_abapgit_zip=>export( zcl_abapgit_repo_srv=>get_instance( )->get( lv_key ) ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-no_more_act.
|
|
WHEN zif_abapgit_definitions=>c_action-zip_package. " Export package as ZIP
|
|
zcl_abapgit_zip=>export_package( ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-no_more_act.
|
|
WHEN zif_abapgit_definitions=>c_action-zip_transport. " Export transport as ZIP
|
|
zcl_abapgit_transport=>zip( ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-no_more_act.
|
|
WHEN zif_abapgit_definitions=>c_action-zip_object. " Export object as ZIP
|
|
zcl_abapgit_zip=>export_object( ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-no_more_act.
|
|
|
|
" Remote ORIGIN manipulations
|
|
WHEN zif_abapgit_definitions=>c_action-repo_remote_attach. " Remote attach
|
|
zcl_abapgit_services_repo=>remote_attach( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
WHEN zif_abapgit_definitions=>c_action-repo_remote_detach. " Remote detach
|
|
zcl_abapgit_services_repo=>remote_detach( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
WHEN zif_abapgit_definitions=>c_action-repo_remote_change. " Remote change
|
|
zcl_abapgit_services_repo=>remote_change( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
|
|
" GIT actions
|
|
WHEN zif_abapgit_definitions=>c_action-git_pull. " GIT Pull
|
|
zcl_abapgit_services_git=>pull( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
WHEN zif_abapgit_definitions=>c_action-git_reset. " GIT Reset
|
|
zcl_abapgit_services_git=>reset( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
WHEN zif_abapgit_definitions=>c_action-git_branch_create. " GIT Create new branch
|
|
zcl_abapgit_services_git=>create_branch( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
WHEN zif_abapgit_definitions=>c_action-git_branch_delete. " GIT Delete remote branch
|
|
zcl_abapgit_services_git=>delete_branch( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
WHEN zif_abapgit_definitions=>c_action-git_branch_switch. " GIT Switch branch
|
|
zcl_abapgit_services_git=>switch_branch( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
WHEN zif_abapgit_definitions=>c_action-go_tag_overview. " GIT Tag overview
|
|
zcl_abapgit_services_git=>tag_overview( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
WHEN zif_abapgit_definitions=>c_action-git_tag_create. " GIT Tag create
|
|
CREATE OBJECT ei_page TYPE zcl_abapgit_gui_page_tag
|
|
EXPORTING
|
|
io_repo = zcl_abapgit_repo_srv=>get_instance( )->get( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-new_page.
|
|
WHEN zif_abapgit_definitions=>c_action-git_tag_delete. " GIT Tag create
|
|
zcl_abapgit_services_git=>delete_tag( lv_key ).
|
|
zcl_abapgit_services_repo=>refresh( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
WHEN zif_abapgit_definitions=>c_action-git_tag_switch. " GIT Switch Tag
|
|
zcl_abapgit_services_git=>switch_tag( lv_key ).
|
|
ev_state = zif_abapgit_definitions=>c_event_state-re_render.
|
|
|
|
"Others
|
|
WHEN OTHERS.
|
|
ev_state = zif_abapgit_definitions=>c_event_state-not_handled.
|
|
ENDCASE.
|
|
|
|
ENDMETHOD.
|
|
ENDCLASS.
|