Press n or j to go to the next uncovered block, b, p or k for the previous block.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 | 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x | CLASS zcl_abapgit_git_utils DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
TYPES:
ty_null TYPE c LENGTH 1 .
CLASS-METHODS get_null
RETURNING
VALUE(rv_c) TYPE ty_null .
CLASS-METHODS pkt_string
IMPORTING
!iv_string TYPE string
RETURNING
VALUE(rv_pkt) TYPE string
RAISING
zcx_abapgit_exception .
CLASS-METHODS length_utf8_hex
IMPORTING
!iv_data TYPE xstring
RETURNING
VALUE(rv_len) TYPE i
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_abapgit_git_utils IMPLEMENTATION.
METHOD get_null.
* must be length 4, or it gives a syntax error on lower versions
DATA: lv_x TYPE x LENGTH 4 VALUE '00000000'.
FIELD-SYMBOLS <lv_y> TYPE c.
ASSIGN lv_x TO <lv_y> CASTING.
rv_c = <lv_y>.
ENDMETHOD.
METHOD length_utf8_hex.
DATA: lv_xstring TYPE xstring,
lv_char4 TYPE c LENGTH 4,
lv_x TYPE x LENGTH 2.
IF xstrlen( iv_data ) < 4.
zcx_abapgit_exception=>raise( 'error converting to hex, LENGTH_UTF8_HEX' ).
ENDIF.
lv_xstring = iv_data(4).
lv_char4 = zcl_abapgit_convert=>xstring_to_string_utf8(
iv_data = lv_xstring
iv_length = 4 ).
TRANSLATE lv_char4 TO UPPER CASE.
lv_x = lv_char4.
rv_len = lv_x.
ENDMETHOD.
METHOD pkt_string.
DATA: lv_x TYPE x,
lv_len TYPE i.
lv_len = strlen( iv_string ).
IF lv_len >= 255.
zcx_abapgit_exception=>raise( 'PKT, todo' ).
ENDIF.
lv_x = lv_len + 4.
rv_pkt = '00' && lv_x && iv_string.
ENDMETHOD.
ENDCLASS.
|