SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 12:20:51 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

fix possible dump, and pretty printer

Browse Source
This commit is contained in:
larshp 2016-06-15 09:24:50 +00:00
parent c550949997
commit ca467b7458
1 changed files with 69 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
zabapgit.prog.abap
View File

@ -3,7 +3,7 @@ REPORT zabapgit.
* See http://www.abapgit.org * See http://www.abapgit.org
CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v1.11.9'. "#EC NOTEXT gc_abap_version TYPE string VALUE 'v1.11.10'. "#EC NOTEXT
******************************************************************************** ********************************************************************************
* The MIT License (MIT) * The MIT License (MIT)
@ -143,7 +143,7 @@ SELECTION-SCREEN END OF SCREEN 1001.
START-OF-SELECTION. START-OF-SELECTION.
PERFORM run. PERFORM run.
CLASS lcl_app DEFINITION DEFERRED. CLASS lcl_app DEFINITION DEFERRED.
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
* CLASS LCX_EXCEPTION DEFINITION * CLASS LCX_EXCEPTION DEFINITION
@ -13326,27 +13326,27 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
lif_object~delete( ). lif_object~delete( ).
ENDIF. ENDIF.
call function 'STREE_HIERARCHY_SAVE' CALL FUNCTION 'STREE_HIERARCHY_SAVE'
exporting EXPORTING
structure_id = mv_tree_id structure_id = mv_tree_id
structure_type = 'BMENU' structure_type = 'BMENU'
structure_description = space structure_description = space
structure_masterlanguage = mv_language structure_masterlanguage = mv_language
structure_responsible = sy-uname structure_responsible = sy-uname
development_class = iv_package development_class = iv_package
importing IMPORTING
message = ls_msg message = ls_msg
tables TABLES
list_of_nodes = lt_nodes list_of_nodes = lt_nodes
list_of_references = lt_refs list_of_references = lt_refs
list_of_texts = lt_texts list_of_texts = lt_texts
structure_descriptions = lt_titles structure_descriptions = lt_titles
exceptions EXCEPTIONS
no_nodes_given = 1 no_nodes_given = 1
others = 2. OTHERS = 2.
if sy-subrc <> 0. IF sy-subrc <> 0.
_raise 'Error from STREE_HIERARCHY_SAVE, SHI3'. _raise 'Error from STREE_HIERARCHY_SAVE, SHI3'.
endif. ENDIF.
ENDMETHOD. "deserialize ENDMETHOD. "deserialize
@ -13527,13 +13527,13 @@ CLASS lcl_html_action_utils DEFINITION FINAL.
CLASS-METHODS file_encode CLASS-METHODS file_encode
IMPORTING iv_key TYPE lcl_persistence_repo=>ty_repo-key IMPORTING iv_key TYPE lcl_persistence_repo=>ty_repo-key
is_file TYPE ANY "ty_repo_file is_file TYPE any "ty_repo_file
RETURNING VALUE(rv_string) TYPE string. RETURNING VALUE(rv_string) TYPE string.
CLASS-METHODS file_decode CLASS-METHODS file_decode
IMPORTING iv_string TYPE clike IMPORTING iv_string TYPE clike
EXPORTING ev_key TYPE lcl_persistence_repo=>ty_repo-key EXPORTING ev_key TYPE lcl_persistence_repo=>ty_repo-key
es_file TYPE ANY "ty_repo_file es_file TYPE any "ty_repo_file
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS dbkey_encode CLASS-METHODS dbkey_encode
@ -17939,7 +17939,8 @@ CLASS lcl_git_transport DEFINITION FINAL.
CLASS-METHODS parse CLASS-METHODS parse
EXPORTING ev_pack TYPE xstring EXPORTING ev_pack TYPE xstring
CHANGING cv_data TYPE xstring. CHANGING cv_data TYPE xstring
RAISING lcx_exception.
CLASS-METHODS length_utf8_hex CLASS-METHODS length_utf8_hex
IMPORTING iv_data TYPE xstring IMPORTING iv_data TYPE xstring
@ -18304,6 +18305,10 @@ CLASS lcl_git_transport IMPLEMENTATION.
WHILE xstrlen( cv_data ) >= 4. WHILE xstrlen( cv_data ) >= 4.
lv_len = length_utf8_hex( cv_data ). lv_len = length_utf8_hex( cv_data ).
IF lv_len > xstrlen( cv_data ).
_raise 'parse, string length too large'.
ENDIF.
lv_contents = cv_data(lv_len). lv_contents = cv_data(lv_len).
IF lv_len = 0. IF lv_len = 0.
cv_data = cv_data+4. cv_data = cv_data+4.
@ -20771,7 +20776,7 @@ CLASS lcl_gui_page_stage IMPLEMENTATION.
ENDIF. ENDIF.
IF <ls_file>-type = lcl_stage=>c_wftype-local. IF <ls_file>-type = lcl_stage=>c_wftype-local.
ro_html->add( '<td></td><td colspan="2">LOCAL</td>' ) ##NO_TEXT. ro_html->add( '<td></td><td colspan="2">LOCAL</td>' ) ##NO_TEXT.
ElSE. "c_remote ELSE. "c_remote
ro_html->add( '<td></td><td colspan="2">REMOTE</td>' ) ##NO_TEXT. ro_html->add( '<td></td><td colspan="2">REMOTE</td>' ) ##NO_TEXT.
ENDIF. ENDIF.
ro_html->add('</tr>'). ro_html->add('</tr>').