SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 11:46:38 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Lars Hvam 2014-11-09 09:10:31 +01:00
parent d8b6201a9b
commit e6b0d152e1
1 changed files with 23 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
zabapgit.abap
View File

@ -417,7 +417,7 @@ CLASS lcl_xml IMPLEMENTATION.
lo_descr_ref TYPE REF TO cl_abap_structdescr. lo_descr_ref TYPE REF TO cl_abap_structdescr.
FIELD-SYMBOLS: <lg_any> TYPE any, FIELD-SYMBOLS: <lg_any> TYPE any,
<ls_comp> TYPE abap_compdescr. <ls_comp> LIKE LINE OF lo_descr_ref->components.
CLEAR cg_structure. CLEAR cg_structure.
@ -647,7 +647,7 @@ CLASS lcl_xml IMPLEMENTATION.
lv_name TYPE string, lv_name TYPE string,
lo_descr TYPE REF TO cl_abap_structdescr. lo_descr TYPE REF TO cl_abap_structdescr.
FIELD-SYMBOLS: <ls_comp> TYPE abap_compdescr, FIELD-SYMBOLS: <ls_comp> LIKE LINE OF lo_descr->components,
<lg_any> TYPE any. <lg_any> TYPE any.
@ -1012,7 +1012,7 @@ CLASS lcl_diff IMPLEMENTATION.
lt_local TYPE TABLE OF string, lt_local TYPE TABLE OF string,
lt_remote TYPE TABLE OF string. lt_remote TYPE TABLE OF string.
FIELD-SYMBOLS: <lv_string> TYPE string, FIELD-SYMBOLS: <lv_string> LIKE LINE OF lt_local,
<ls_diff> LIKE LINE OF rt_diffs. <ls_diff> LIKE LINE OF rt_diffs.
@ -1696,8 +1696,10 @@ CLASS lcl_serialize_clas IMPLEMENTATION.
* within same session * within same session
CONSTANTS: CONSTANTS:
lc_begin TYPE string VALUE '* <SIGNATURE>---------------------------------------------------------------------------------------+', lc_begin TYPE string VALUE '* <SIGNATURE>------------------------------------'
lc_end TYPE string VALUE '* +--------------------------------------------------------------------------------------</SIGNATURE>'. & '---------------------------------------------------+',
lc_end TYPE string VALUE '* +------------------------------------------------'
& '--------------------------------------</SIGNATURE>'.
DATA: lv_remove TYPE abap_bool, DATA: lv_remove TYPE abap_bool,
lv_source LIKE LINE OF ct_source. lv_source LIKE LINE OF ct_source.
@ -1943,7 +1945,7 @@ CLASS lcl_serialize_clas IMPLEMENTATION.
INSERT TEXTPOOL lv_cp INSERT TEXTPOOL lv_cp
FROM lt_tpool FROM lt_tpool
LANGUAGE sy-langu LANGUAGE sy-langu
STATE 'I'. "#EC CI_INSERT_REP STATE 'I'.
IF sy-subrc <> 0. IF sy-subrc <> 0.
_raise 'error from INSERT TEXTPOOL'. _raise 'error from INSERT TEXTPOOL'.
ENDIF. ENDIF.
@ -2273,7 +2275,7 @@ CLASS lcl_serialize_tabl IMPLEMENTATION.
* todo, call corr_insert? * todo, call corr_insert?
REFRESH lt_secondary. CLEAR lt_secondary.
LOOP AT lt_dd17v INTO ls_dd17v LOOP AT lt_dd17v INTO ls_dd17v
WHERE sqltab = ls_dd12v-sqltab AND indexname = ls_dd12v-indexname. WHERE sqltab = ls_dd12v-sqltab AND indexname = ls_dd12v-indexname.
APPEND ls_dd17v TO lt_secondary. APPEND ls_dd17v TO lt_secondary.
@ -2969,7 +2971,7 @@ CLASS lcl_serialize_prog IMPLEMENTATION.
INSERT TEXTPOOL is_item-obj_name INSERT TEXTPOOL is_item-obj_name
FROM it_tpool FROM it_tpool
LANGUAGE sy-langu LANGUAGE sy-langu
STATE 'I'. "#EC CI_INSERT_REP STATE 'I'.
IF sy-subrc <> 0. IF sy-subrc <> 0.
_raise 'error from INSERT TEXTPOOL'. _raise 'error from INSERT TEXTPOOL'.
ENDIF. ENDIF.
@ -3619,7 +3621,7 @@ CLASS lcl_serialize IMPLEMENTATION.
ENDLOOP. ENDLOOP.
ENDLOOP. ENDLOOP.
SORT rt_results BY obj_type obj_name filename. SORT rt_results BY obj_type ASCENDING obj_name ASCENDING filename ASCENDING.
DELETE ADJACENT DUPLICATES FROM rt_results DELETE ADJACENT DUPLICATES FROM rt_results
COMPARING obj_type obj_name filename. COMPARING obj_type obj_name filename.
@ -4127,7 +4129,7 @@ CLASS lcl_pack IMPLEMENTATION.
lv_len TYPE i, lv_len TYPE i,
lt_string TYPE TABLE OF string. lt_string TYPE TABLE OF string.
FIELD-SYMBOLS: <lv_string> TYPE string. FIELD-SYMBOLS: <lv_string> LIKE LINE OF lt_string.
lv_string = lcl_convert=>xstring_to_string_utf8( iv_data ). lv_string = lcl_convert=>xstring_to_string_utf8( iv_data ).
@ -4252,7 +4254,6 @@ CLASS lcl_pack IMPLEMENTATION.
lv_x = lv_delta(1). lv_x = lv_delta(1).
lv_delta = lv_delta+1. lv_delta = lv_delta+1.
lv_bitbyte = lcl_convert=>x_to_bitbyte( lv_x ). lv_bitbyte = lcl_convert=>x_to_bitbyte( lv_x ).
* WRITE: / 'Opcode', lv_x, lv_bitbyte.
IF lv_bitbyte(1) = '1'. " MSB IF lv_bitbyte(1) = '1'. " MSB
@ -4866,10 +4867,11 @@ CLASS lcl_transport IMPLEMENTATION.
name = '~request_uri' name = '~request_uri'
value = lv_value ). value = lv_value ).
lv_value = 'Content-Type: application/x-git-' && iv_service && '-pack-request'. lv_value = 'Content-Type: application/x-git-'
&& iv_service && '-pack-request'. "#EC NOTEXT
ii_client->request->set_header_field( ii_client->request->set_header_field(
name = 'Content-Type' name = 'Content-Type'
value = lv_value ). value = lv_value ). "#EC NOTEXT
ENDMETHOD. "set_headers ENDMETHOD. "set_headers
@ -4906,7 +4908,7 @@ CLASS lcl_transport IMPLEMENTATION.
DATA: lv_hash TYPE c LENGTH 40, DATA: lv_hash TYPE c LENGTH 40,
lv_len TYPE i, lv_len TYPE i,
lt_result TYPE TABLE OF string, lt_result TYPE TABLE OF string,
lv_data TYPE string, lv_data LIKE LINE OF lt_result,
lv_text TYPE string. lv_text TYPE string.
STATICS: sv_authorization TYPE string. STATICS: sv_authorization TYPE string.
@ -4924,12 +4926,13 @@ CLASS lcl_transport IMPLEMENTATION.
value = 'GET' ). value = 'GET' ).
ei_client->request->set_header_field( ei_client->request->set_header_field(
name = '~request_uri' name = '~request_uri'
value = lcl_url=>path_name( is_repo-url ) && '.git/info/refs?service=git-' && iv_service && '-pack' ). value = lcl_url=>path_name( is_repo-url ) && '.git/info/refs?service=git-'
&& iv_service && '-pack' ).
IF NOT sv_authorization IS INITIAL. IF NOT sv_authorization IS INITIAL.
* note this will only work if all repositories uses the same login * note this will only work if all repositories uses the same login
ei_client->request->set_header_field( ei_client->request->set_header_field(
name = 'authorization' name = 'authorization'
value = sv_authorization ). value = sv_authorization ). "#EC NOTEXT
ei_client->propertytype_logon_popup = ei_client->co_disabled. ei_client->propertytype_logon_popup = ei_client->co_disabled.
ENDIF. ENDIF.
ei_client->send( ). ei_client->send( ).
@ -4956,7 +4959,8 @@ CLASS lcl_transport IMPLEMENTATION.
ENDIF. ENDIF.
check_http_200( ei_client ). check_http_200( ei_client ).
sv_authorization = ei_client->request->get_header_field( 'authorization' ). sv_authorization = ei_client->request->get_header_field(
'authorization' ). "#EC NOTEXT
lv_data = ei_client->response->get_cdata( ). lv_data = ei_client->response->get_cdata( ).
@ -5538,7 +5542,7 @@ CLASS lcl_gui IMPLEMENTATION.
&& gc_newline && && gc_newline &&
'</head>' '</head>'
&& gc_newline && && gc_newline &&
'<body>'. '<body>'. "#EC NOTEXT
ENDMETHOD. "render_head ENDMETHOD. "render_head
@ -5778,7 +5782,7 @@ CLASS lcl_gui IMPLEMENTATION.
lo_descr_ref TYPE REF TO cl_abap_structdescr, lo_descr_ref TYPE REF TO cl_abap_structdescr,
ls_field LIKE LINE OF lt_fields. ls_field LIKE LINE OF lt_fields.
FIELD-SYMBOLS: <ls_comp> TYPE abap_compdescr, FIELD-SYMBOLS: <ls_comp> LIKE LINE OF lo_descr_ref->components,
<lg_any> TYPE any. <lg_any> TYPE any.