abapGit/src/zabapgit_page_syntax_check.prog.abap
2018-02-04 10:10:28 +00:00

55 lines
1.5 KiB
ABAP

*&---------------------------------------------------------------------*
*& Include ZABAPGIT_PAGE_SYNTAX_CHECK
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Include ZABAPGIT_PAGE_REPO_SETTINGS
*&---------------------------------------------------------------------*
CLASS lcl_gui_page_syntax_check DEFINITION FINAL INHERITING FROM zcl_abapgit_gui_page.
PUBLIC SECTION.
METHODS:
constructor
IMPORTING io_repo TYPE REF TO lcl_repo.
PROTECTED SECTION.
DATA: mo_repo TYPE REF TO lcl_repo.
METHODS:
render_content REDEFINITION.
ENDCLASS.
CLASS lcl_gui_page_syntax_check IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
ms_control-page_title = 'SYNTAX CHECK'.
mo_repo = io_repo.
ENDMETHOD. " constructor.
METHOD render_content.
DATA: lt_result TYPE scit_alvlist,
ls_result LIKE LINE OF lt_result.
lt_result = zcl_abapgit_syntax_check=>run( mo_repo->get_package( ) ).
CREATE OBJECT ro_html.
ro_html->add( '<div class="toc">' ).
IF lines( lt_result ) = 0.
ro_html->add( 'No errors' ).
ENDIF.
LOOP AT lt_result INTO ls_result.
ro_html->add( |{ ls_result-objtype } { ls_result-objname } { ls_result-kind } { ls_result-text }<br>| ).
ENDLOOP.
ro_html->add( '</div>' ).
ENDMETHOD. "render_content
ENDCLASS. "lcl_gui_page_debuginfo