SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 04:08:27 +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

133
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
@ -414,8 +414,8 @@ CLASS lcl_html_helper IMPLEMENTATION.
ENDMETHOD. "_add_htm ENDMETHOD. "_add_htm
METHOD add_anchor. METHOD add_anchor.
DATA: lv_class TYPE string, DATA: lv_class TYPE string,
lv_href TYPE string. lv_href TYPE string.
lv_class = iv_class. lv_class = iv_class.
@ -13058,7 +13058,7 @@ CLASS lcl_object_shi3 DEFINITION INHERITING FROM lcl_objects_super FINAL.
mt_map TYPE ts_id_map. " SORTED ! mt_map TYPE ts_id_map. " SORTED !
METHODS jump_se43 METHODS jump_se43
RAISING lcx_exception. RAISING lcx_exception.
METHODS strip_stamps METHODS strip_stamps
CHANGING cs_head TYPE ttree CHANGING cs_head TYPE ttree
@ -13073,7 +13073,7 @@ CLASS lcl_object_shi3 DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS replace_id METHODS replace_id
IMPORTING iv_id TYPE clike IMPORTING iv_id TYPE clike
RETURNING VALUE(rv_new_id) TYPE ttree-id RETURNING VALUE(rv_new_id) TYPE ttree-id
RAISING lcx_exception. RAISING lcx_exception.
ENDCLASS. "lcl_object_shi3 DEFINITION ENDCLASS. "lcl_object_shi3 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
@ -13520,20 +13520,20 @@ CLASS lcl_html_action_utils DEFINITION FINAL.
RETURNING VALUE(rv_string) TYPE string. RETURNING VALUE(rv_string) TYPE string.
CLASS-METHODS jump_decode CLASS-METHODS jump_decode
IMPORTING iv_string TYPE clike IMPORTING iv_string TYPE clike
EXPORTING ev_obj_type TYPE tadir-object EXPORTING ev_obj_type TYPE tadir-object
ev_obj_name TYPE tadir-obj_name ev_obj_name TYPE tadir-obj_name
RAISING lcx_exception. RAISING lcx_exception.
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
@ -13541,20 +13541,20 @@ CLASS lcl_html_action_utils DEFINITION FINAL.
RETURNING VALUE(rv_string) TYPE string. RETURNING VALUE(rv_string) TYPE string.
CLASS-METHODS dbkey_decode CLASS-METHODS dbkey_decode
IMPORTING iv_string TYPE clike IMPORTING iv_string TYPE clike
RETURNING VALUE(rs_key) TYPE lcl_persistence_db=>ty_content. RETURNING VALUE(rs_key) TYPE lcl_persistence_db=>ty_content.
CLASS-METHODS parse_commit_request CLASS-METHODS parse_commit_request
IMPORTING it_postdata TYPE cnht_post_data_tab IMPORTING it_postdata TYPE cnht_post_data_tab
RETURNING VALUE(rs_fields) TYPE ty_commit_fields. RETURNING VALUE(rs_fields) TYPE ty_commit_fields.
CLASS-METHODS repo_key_encode CLASS-METHODS repo_key_encode
IMPORTING iv_key TYPE lcl_persistence_repo=>ty_repo-key IMPORTING iv_key TYPE lcl_persistence_repo=>ty_repo-key
RETURNING VALUE(rv_string) TYPE string. RETURNING VALUE(rv_string) TYPE string.
CLASS-METHODS repo_key_decode CLASS-METHODS repo_key_decode
IMPORTING iv_string TYPE clike IMPORTING iv_string TYPE clike
RETURNING VALUE(rv_key) TYPE lcl_persistence_repo=>ty_repo-key. RETURNING VALUE(rv_key) TYPE lcl_persistence_repo=>ty_repo-key.
ENDCLASS. "lcl_html_action_utils DEFINITION ENDCLASS. "lcl_html_action_utils DEFINITION
@ -16354,8 +16354,8 @@ CLASS lcl_stage DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_repo_srv.
WITH UNIQUE KEY file-path file-filename. WITH UNIQUE KEY file-path file-filename.
TYPES: BEGIN OF ty_work_file, TYPES: BEGIN OF ty_work_file,
type TYPE char1, type TYPE char1,
file TYPE ty_file, file TYPE ty_file,
END OF ty_work_file. END OF ty_work_file.
DATA mv_repo_key TYPE lcl_persistence_db=>ty_value READ-ONLY. DATA mv_repo_key TYPE lcl_persistence_db=>ty_value READ-ONLY.
@ -16372,48 +16372,48 @@ CLASS lcl_stage DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_repo_srv.
RAISING lcx_exception. RAISING lcx_exception.
METHODS update_and_add_dot_abapgit METHODS update_and_add_dot_abapgit
IMPORTING iv_data TYPE ty_file-data IMPORTING iv_data TYPE ty_file-data
RAISING lcx_exception. RAISING lcx_exception.
METHODS: METHODS:
add add
IMPORTING iv_path TYPE ty_file-path IMPORTING iv_path TYPE ty_file-path
iv_filename TYPE ty_file-filename iv_filename TYPE ty_file-filename
RAISING lcx_exception, RAISING lcx_exception,
reset reset
IMPORTING iv_path TYPE ty_file-path IMPORTING iv_path TYPE ty_file-path
iv_filename TYPE ty_file-filename iv_filename TYPE ty_file-filename
RAISING lcx_exception, RAISING lcx_exception,
rm rm
IMPORTING iv_path TYPE ty_file-path IMPORTING iv_path TYPE ty_file-path
iv_filename TYPE ty_file-filename iv_filename TYPE ty_file-filename
RAISING lcx_exception, RAISING lcx_exception,
ignore ignore
IMPORTING iv_path TYPE ty_file-path IMPORTING iv_path TYPE ty_file-path
iv_filename TYPE ty_file-filename iv_filename TYPE ty_file-filename
RAISING lcx_exception, RAISING lcx_exception,
lookup lookup
IMPORTING iv_path TYPE ty_file-path IMPORTING iv_path TYPE ty_file-path
iv_filename TYPE ty_file-filename iv_filename TYPE ty_file-filename
RETURNING VALUE(rv_method) TYPE ty_method, RETURNING VALUE(rv_method) TYPE ty_method,
count count
RETURNING VALUE(rv_count) TYPE i, RETURNING VALUE(rv_count) TYPE i,
get_all get_all
RETURNING VALUE(rt_stage) TYPE ty_stage_tt. RETURNING VALUE(rt_stage) TYPE ty_stage_tt.
PRIVATE SECTION. PRIVATE SECTION.
DATA: mt_stage TYPE ty_stage_tt. DATA: mt_stage TYPE ty_stage_tt.
METHODS append METHODS append
IMPORTING iv_path TYPE ty_file-path IMPORTING iv_path TYPE ty_file-path
iv_filename TYPE ty_file-filename iv_filename TYPE ty_file-filename
iv_method TYPE ty_method iv_method TYPE ty_method
RAISING lcx_exception. RAISING lcx_exception.
METHODS find_work_file METHODS find_work_file
IMPORTING iv_path TYPE ty_file-path IMPORTING iv_path TYPE ty_file-path
iv_filename TYPE ty_file-filename iv_filename TYPE ty_file-filename
RETURNING VALUE(rs_file) TYPE ty_file RETURNING VALUE(rs_file) TYPE ty_file
RAISING lcx_exception. RAISING lcx_exception.
ENDCLASS. "lcl_stage DEFINITION ENDCLASS. "lcl_stage DEFINITION
@ -16846,8 +16846,8 @@ CLASS lcl_gui_router DEFINITION FINAL.
RAISING lcx_exception. RAISING lcx_exception.
METHODS stage_handle_action METHODS stage_handle_action
IMPORTING iv_getdata TYPE clike IMPORTING iv_getdata TYPE clike
iv_action TYPE clike iv_action TYPE clike
RAISING lcx_exception. RAISING lcx_exception.
ENDCLASS. ENDCLASS.
@ -16974,7 +16974,7 @@ CLASS lcl_repo_srv DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app.
RAISING lcx_exception. RAISING lcx_exception.
METHODS free_stage METHODS free_stage
IMPORTING iv_repo_key TYPE lcl_persistence_db=>ty_value. IMPORTING iv_repo_key TYPE lcl_persistence_db=>ty_value.
PRIVATE SECTION. PRIVATE SECTION.
@ -17007,7 +17007,7 @@ CLASS lcl_app DEFINITION FINAL.
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS run CLASS-METHODS run
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS gui CLASS-METHODS gui
RETURNING VALUE(ro_gui) TYPE REF TO lcl_gui RETURNING VALUE(ro_gui) TYPE REF TO lcl_gui
@ -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.
@ -19337,8 +19342,8 @@ CLASS lcl_gui IMPLEMENTATION.
METHOD call_page. METHOD call_page.
DATA: lt_assets TYPE tt_web_assets, DATA: lt_assets TYPE tt_web_assets,
ls_stack TYPE ty_page_stack. ls_stack TYPE ty_page_stack.
FIELD-SYMBOLS <ls_asset> LIKE LINE OF lt_assets. FIELD-SYMBOLS <ls_asset> LIKE LINE OF lt_assets.
IF NOT mi_cur_page IS INITIAL. IF NOT mi_cur_page IS INITIAL.
@ -20017,7 +20022,7 @@ CLASS lcl_gui_page_diff IMPLEMENTATION.
METHOD render_head. METHOD render_head.
DATA: lo_html TYPE REF TO lcl_html_helper, DATA: lo_html TYPE REF TO lcl_html_helper,
ls_stats TYPE lcl_diff=>ty_count. ls_stats TYPE lcl_diff=>ty_count.
CREATE OBJECT lo_html. CREATE OBJECT lo_html.
@ -20471,12 +20476,12 @@ CLASS lcl_gui_page_commit DEFINITION FINAL INHERITING FROM lcl_gui_page_super.
RETURNING VALUE(ro_html) TYPE REF TO lcl_html_helper. RETURNING VALUE(ro_html) TYPE REF TO lcl_html_helper.
METHODS render_stage METHODS render_stage
RETURNING VALUE(ro_html) TYPE REF TO lcl_html_helper RETURNING VALUE(ro_html) TYPE REF TO lcl_html_helper
RAISING lcx_exception. RAISING lcx_exception.
METHODS render_form METHODS render_form
RETURNING VALUE(ro_html) TYPE REF TO lcl_html_helper RETURNING VALUE(ro_html) TYPE REF TO lcl_html_helper
RAISING lcx_exception. RAISING lcx_exception.
METHODS styles METHODS styles
RETURNING VALUE(ro_html) TYPE REF TO lcl_html_helper. RETURNING VALUE(ro_html) TYPE REF TO lcl_html_helper.
@ -20725,8 +20730,8 @@ CLASS lcl_gui_page_stage DEFINITION FINAL INHERITING FROM lcl_gui_page_super.
METHODS lif_gui_page~render REDEFINITION. METHODS lif_gui_page~render REDEFINITION.
PRIVATE SECTION. PRIVATE SECTION.
DATA: mo_repo TYPE REF TO lcl_repo_online, DATA: mo_repo TYPE REF TO lcl_repo_online,
mo_stage TYPE REF TO lcl_stage. mo_stage TYPE REF TO lcl_stage.
METHODS render_lines METHODS render_lines
RETURNING VALUE(ro_html) TYPE REF TO lcl_html_helper. RETURNING VALUE(ro_html) TYPE REF TO lcl_html_helper.
@ -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>').
@ -24725,9 +24730,9 @@ CLASS lcl_gui_router IMPLEMENTATION.
METHOD stage_handle_action. METHOD stage_handle_action.
DATA: ls_file TYPE ty_file, DATA: ls_file TYPE ty_file,
lo_stage TYPE REF TO lcl_stage, lo_stage TYPE REF TO lcl_stage,
lv_key TYPE lcl_persistence_repo=>ty_repo-key. lv_key TYPE lcl_persistence_repo=>ty_repo-key.
FIELD-SYMBOLS: <ls_file> LIKE LINE OF lo_stage->mt_workarea. FIELD-SYMBOLS: <ls_file> LIKE LINE OF lo_stage->mt_workarea.