mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-02 13:03:01 +08:00
316 lines
9.0 KiB
ABAP
316 lines
9.0 KiB
ABAP
CLASS zcl_abapgit_gui_page_boverview DEFINITION
|
|
PUBLIC
|
|
FINAL
|
|
CREATE PUBLIC INHERITING FROM zcl_abapgit_gui_page.
|
|
|
|
PUBLIC SECTION.
|
|
METHODS:
|
|
constructor
|
|
IMPORTING io_repo TYPE REF TO zcl_abapgit_repo_online
|
|
RAISING zcx_abapgit_exception,
|
|
zif_abapgit_gui_page~on_event REDEFINITION.
|
|
|
|
PROTECTED SECTION.
|
|
METHODS render_content REDEFINITION.
|
|
|
|
PRIVATE SECTION.
|
|
DATA: mo_repo TYPE REF TO zcl_abapgit_repo_online,
|
|
mv_compress TYPE abap_bool VALUE abap_false,
|
|
mt_commits TYPE zif_abapgit_definitions=>ty_commit_tt.
|
|
|
|
CONSTANTS: BEGIN OF c_actions,
|
|
uncompress TYPE string VALUE 'uncompress' ##NO_TEXT,
|
|
compress TYPE string VALUE 'compress' ##NO_TEXT,
|
|
refresh TYPE string VALUE 'refresh' ##NO_TEXT,
|
|
merge TYPE string VALUE 'merge' ##NO_TEXT,
|
|
END OF c_actions.
|
|
|
|
TYPES: BEGIN OF ty_merge,
|
|
source TYPE string,
|
|
target TYPE string,
|
|
END OF ty_merge.
|
|
|
|
METHODS:
|
|
refresh
|
|
RAISING zcx_abapgit_exception,
|
|
body
|
|
RETURNING VALUE(ro_html) TYPE REF TO zcl_abapgit_html
|
|
RAISING zcx_abapgit_exception,
|
|
form_select
|
|
IMPORTING iv_name TYPE string
|
|
RETURNING VALUE(ro_html) TYPE REF TO zcl_abapgit_html,
|
|
render_merge
|
|
RETURNING VALUE(ro_html) TYPE REF TO zcl_abapgit_html
|
|
RAISING zcx_abapgit_exception,
|
|
decode_merge
|
|
IMPORTING it_postdata TYPE cnht_post_data_tab
|
|
RETURNING VALUE(rs_merge) TYPE ty_merge
|
|
RAISING zcx_abapgit_exception,
|
|
build_menu
|
|
RETURNING VALUE(ro_menu) TYPE REF TO zcl_abapgit_html_toolbar,
|
|
escape_branch
|
|
IMPORTING iv_string TYPE string
|
|
RETURNING VALUE(rv_string) TYPE string,
|
|
escape_message
|
|
IMPORTING iv_string TYPE string
|
|
RETURNING VALUE(rv_string) TYPE string.
|
|
ENDCLASS.
|
|
|
|
|
|
|
|
CLASS ZCL_ABAPGIT_GUI_PAGE_BOVERVIEW IMPLEMENTATION.
|
|
|
|
|
|
METHOD body.
|
|
DATA: lv_tag TYPE string.
|
|
|
|
FIELD-SYMBOLS: <ls_commit> LIKE LINE OF mt_commits,
|
|
<ls_create> LIKE LINE OF <ls_commit>-create.
|
|
|
|
|
|
CREATE OBJECT ro_html.
|
|
|
|
ro_html->add( zcl_abapgit_gui_chunk_lib=>render_repo_top(
|
|
io_repo = mo_repo
|
|
iv_show_package = abap_false
|
|
iv_show_branch = abap_false ) ).
|
|
ro_html->add( '<br>' ).
|
|
ro_html->add( '<br>' ).
|
|
|
|
ro_html->add( render_merge( ) ).
|
|
|
|
ro_html->add( '<br>' ).
|
|
ro_html->add( build_menu( )->render( ) ).
|
|
|
|
* see http://stackoverflow.com/questions/6081483/maximum-size-of-a-canvas-element
|
|
ro_html->add( '<canvas id="gitGraph"></canvas>' ).
|
|
|
|
ro_html->add( '<script type="text/javascript" src="https://cdnjs.' &&
|
|
'cloudflare.com/ajax/libs/gitgraph.js/1.2.3/gitgraph.min.js">' &&
|
|
'</script>' ) ##NO_TEXT.
|
|
|
|
ro_html->add( '<script type="text/javascript">' ).
|
|
ro_html->add( 'var myTemplateConfig = {' ).
|
|
ro_html->add( 'colors: [ "#979797", "#008fb5", "#f1c109", "'
|
|
&& '#095256", "#087F8C", "#5AAA95", "#86A873", "#BB9F06" ],' ) ##NO_TEXT.
|
|
ro_html->add( 'branch: {' ).
|
|
ro_html->add( ' lineWidth: 8,' ).
|
|
ro_html->add( ' spacingX: 50' ).
|
|
ro_html->add( '},' ).
|
|
ro_html->add( 'commit: {' ).
|
|
ro_html->add( ' spacingY: -40,' ).
|
|
ro_html->add( ' dot: { size: 12 },' ).
|
|
ro_html->add( ' message: { font: "normal 14pt Arial" }' ).
|
|
ro_html->add( '}' ).
|
|
ro_html->add( '};' ).
|
|
ro_html->add( 'var gitgraph = new GitGraph({' ).
|
|
ro_html->add( ' template: myTemplateConfig,' ).
|
|
ro_html->add( ' orientation: "vertical-reverse"' ).
|
|
ro_html->add( '});' ).
|
|
|
|
LOOP AT mt_commits ASSIGNING <ls_commit>.
|
|
IF sy-tabix = 1.
|
|
* assumption: all branches are created from master, todo
|
|
ro_html->add( |var {
|
|
escape_branch( <ls_commit>-branch ) } = gitgraph.branch("{
|
|
<ls_commit>-branch }");| ).
|
|
ENDIF.
|
|
|
|
IF <ls_commit>-compressed = abap_true.
|
|
ro_html->add( |{ escape_branch( <ls_commit>-branch ) }.commit(\{message: "{
|
|
escape_message( <ls_commit>-message )
|
|
}", dotColor: "black", dotSize: 15, messageHashDisplay: false, messageAuthorDisplay: false\});| ).
|
|
ELSEIF <ls_commit>-merge IS INITIAL.
|
|
|
|
" gitgraph doesn't support multiple tags per commit yet.
|
|
" Therefore we concatenate them.
|
|
" https://github.com/nicoespeon/gitgraph.js/issues/143
|
|
|
|
lv_tag = concat_lines_of( table = <ls_commit>-tags
|
|
sep = ` | ` ).
|
|
|
|
ro_html->add( |{ escape_branch( <ls_commit>-branch ) }.commit(\{message: "{
|
|
escape_message( <ls_commit>-message ) }", author: "{
|
|
<ls_commit>-author }", sha1: "{
|
|
<ls_commit>-sha1(7) }", tag: "{ lv_tag }"\});| ).
|
|
ELSE.
|
|
ro_html->add( |{ escape_branch( <ls_commit>-merge ) }.merge({
|
|
escape_branch( <ls_commit>-branch ) }, \{message: "{
|
|
escape_message( <ls_commit>-message ) }", author: "{
|
|
<ls_commit>-author }", sha1: "{
|
|
<ls_commit>-sha1(7) }"\});| ).
|
|
ENDIF.
|
|
|
|
LOOP AT <ls_commit>-create ASSIGNING <ls_create>.
|
|
ro_html->add( |var { escape_branch( <ls_create>-name ) } = {
|
|
escape_branch( <ls_create>-parent ) }.branch("{
|
|
<ls_create>-name }");| ).
|
|
ENDLOOP.
|
|
|
|
ENDLOOP.
|
|
|
|
ro_html->add( '</script>' ).
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD build_menu.
|
|
|
|
CREATE OBJECT ro_menu.
|
|
|
|
IF mv_compress = abap_true.
|
|
ro_menu->add(
|
|
iv_txt = 'Uncompress Graph'
|
|
iv_act = c_actions-uncompress ) ##NO_TEXT.
|
|
ELSE.
|
|
ro_menu->add(
|
|
iv_txt = 'Compress Graph'
|
|
iv_act = c_actions-compress ) ##NO_TEXT.
|
|
ENDIF.
|
|
|
|
ro_menu->add( iv_txt = 'Refresh' iv_act = c_actions-refresh ) ##NO_TEXT.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD constructor.
|
|
super->constructor( ).
|
|
ms_control-page_title = 'BRANCH_OVERVIEW'.
|
|
mo_repo = io_repo.
|
|
refresh( ).
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD decode_merge.
|
|
|
|
DATA: lv_string TYPE string,
|
|
lt_fields TYPE tihttpnvp.
|
|
|
|
FIELD-SYMBOLS: <ls_field> LIKE LINE OF lt_fields.
|
|
|
|
|
|
CONCATENATE LINES OF it_postdata INTO lv_string.
|
|
|
|
lt_fields = zcl_abapgit_html_action_utils=>parse_fields( lv_string ).
|
|
|
|
READ TABLE lt_fields ASSIGNING <ls_field> WITH KEY name = 'source' ##NO_TEXT.
|
|
ASSERT sy-subrc = 0.
|
|
rs_merge-source = <ls_field>-value.
|
|
|
|
READ TABLE lt_fields ASSIGNING <ls_field> WITH KEY name = 'target' ##NO_TEXT.
|
|
ASSERT sy-subrc = 0.
|
|
rs_merge-target = <ls_field>-value.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD escape_branch.
|
|
|
|
rv_string = iv_string.
|
|
|
|
TRANSLATE rv_string USING '-_._'.
|
|
|
|
rv_string = |branch_{ rv_string }|.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD escape_message.
|
|
|
|
rv_string = iv_string.
|
|
|
|
REPLACE ALL OCCURRENCES OF '"' IN rv_string WITH '\"'.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD form_select.
|
|
|
|
DATA: lv_name TYPE string,
|
|
lt_branches TYPE zif_abapgit_definitions=>ty_git_branch_list_tt.
|
|
|
|
FIELD-SYMBOLS: <ls_branch> LIKE LINE OF lt_branches.
|
|
|
|
|
|
CREATE OBJECT ro_html.
|
|
|
|
lt_branches = zcl_abapgit_branch_overview=>get_branches( ).
|
|
|
|
ro_html->add( |<select name="{ iv_name }">| ).
|
|
LOOP AT lt_branches ASSIGNING <ls_branch>.
|
|
lv_name = <ls_branch>-name+11.
|
|
ro_html->add( |<option value="{ lv_name }">{ lv_name }</option>| ).
|
|
ENDLOOP.
|
|
ro_html->add( '</select>' ).
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD refresh.
|
|
|
|
mt_commits = zcl_abapgit_branch_overview=>run( mo_repo ).
|
|
IF mv_compress = abap_true.
|
|
mt_commits = zcl_abapgit_branch_overview=>compress( mt_commits ).
|
|
ENDIF.
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD render_content.
|
|
|
|
CREATE OBJECT ro_html.
|
|
|
|
ro_html->add( '<div id="toc">' ).
|
|
ro_html->add( body( ) ).
|
|
ro_html->add( '</div>' ).
|
|
|
|
ENDMETHOD. "render_content
|
|
|
|
|
|
METHOD render_merge.
|
|
|
|
CREATE OBJECT ro_html.
|
|
|
|
ro_html->add( '<form id="commit_form" method="post" action="sapevent:merge">' ).
|
|
ro_html->add( 'Merge' ) ##NO_TEXT.
|
|
ro_html->add( form_select( 'source' ) ) ##NO_TEXT.
|
|
ro_html->add( 'into' ) ##NO_TEXT.
|
|
ro_html->add( form_select( 'target' ) ) ##NO_TEXT.
|
|
ro_html->add( '<input type="submit" value="Submit">' ).
|
|
ro_html->add( '</form>' ).
|
|
|
|
ENDMETHOD.
|
|
|
|
|
|
METHOD zif_abapgit_gui_page~on_event.
|
|
|
|
DATA: ls_merge TYPE ty_merge,
|
|
lo_merge TYPE REF TO zcl_abapgit_gui_page_merge.
|
|
|
|
|
|
CASE iv_action.
|
|
WHEN c_actions-refresh.
|
|
refresh( ).
|
|
ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
|
|
WHEN c_actions-uncompress.
|
|
mv_compress = abap_false.
|
|
refresh( ).
|
|
ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
|
|
WHEN c_actions-compress.
|
|
mv_compress = abap_true.
|
|
refresh( ).
|
|
ev_state = zif_abapgit_definitions=>gc_event_state-re_render.
|
|
WHEN c_actions-merge.
|
|
ls_merge = decode_merge( it_postdata ).
|
|
CREATE OBJECT lo_merge
|
|
EXPORTING
|
|
io_repo = mo_repo
|
|
iv_source = ls_merge-source
|
|
iv_target = ls_merge-target.
|
|
ei_page = lo_merge.
|
|
ev_state = zif_abapgit_definitions=>gc_event_state-new_page.
|
|
ENDCASE.
|
|
|
|
ENDMETHOD.
|
|
ENDCLASS.
|