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 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 | 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 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 1x 1x 1x 2x 2x 2x 2x 2x 2x 2x 1x 1x 1x 1x 1x 2x 2x 2x 2x 1x 1x 1x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 1x 1x 1x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 1x 1x 1x 2x 2x 2x 2x 2x 2x 2x 2x 1x 1x 1x 1x 1x 2x 2x 2x 2x 1x 1x 1x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 1x 1x 1x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 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 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 2x 1x | CLASS zcl_abapgit_json_handler DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
TYPES:
BEGIN OF ty_json_abap_mapping,
json TYPE string,
abap TYPE string,
END OF ty_json_abap_mapping .
TYPES:
ty_json_abap_mappings TYPE STANDARD TABLE OF ty_json_abap_mapping WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_enum_mapping,
path TYPE string,
mappings TYPE ty_json_abap_mappings,
END OF ty_enum_mapping .
TYPES:
ty_enum_mappings TYPE TABLE OF ty_enum_mapping WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_path_value_pair,
path TYPE string,
value TYPE string,
END OF ty_path_value_pair .
TYPES:
ty_skip_paths TYPE STANDARD TABLE OF ty_path_value_pair WITH KEY path .
"! Serializes data to xstring. Type of data is specified in the
"! implementing class.
"!
"! @parameter iv_data | data to be serialized
"! @parameter iv_enum_mappings | ABAP/JSON value mappings
"! @parameter iv_skip_paths | path/value pairs to be skipped during serialization
"! @parameter rv_result | serialized data
METHODS serialize
IMPORTING
!iv_data TYPE data
!iv_enum_mappings TYPE ty_enum_mappings OPTIONAL
!iv_skip_paths TYPE ty_skip_paths OPTIONAL
RETURNING
VALUE(rv_result) TYPE xstring
RAISING
cx_static_check .
"! Deserializes xstring into data. The type of data is specified in
"! the implementing class
"!
"! @parameter iv_content | xstring to be deserialized
"! @parameter iv_defaults | path-value pairs that apply if value is initial
"! @parameter ev_data | data of the xstring
METHODS deserialize
IMPORTING
!iv_content TYPE string
!iv_defaults TYPE ty_skip_paths OPTIONAL
!iv_enum_mappings TYPE ty_enum_mappings OPTIONAL
EXPORTING
!ev_data TYPE data
RAISING
cx_static_check .
PROTECTED SECTION.
PRIVATE SECTION.
METHODS:
map2json_original_language
CHANGING co_ajson TYPE REF TO zif_abapgit_ajson
RAISING zcx_abapgit_ajson_error,
map2json_custom_enum
IMPORTING it_enum_mappings TYPE ty_enum_mappings
CHANGING co_ajson TYPE REF TO zif_abapgit_ajson
RAISING zcx_abapgit_ajson_error,
map2json_abap_language_version
CHANGING co_ajson TYPE REF TO zif_abapgit_ajson
RAISING zcx_abapgit_ajson_error,
"! Get the enum mapping from object handler, as other enums as well
map2abap_abap_language_version
CHANGING co_ajson TYPE REF TO zif_abapgit_ajson
RAISING zcx_abapgit_ajson_error,
"! For deserialization
map2abap_original_language
CHANGING co_ajson TYPE REF TO zif_abapgit_ajson
RAISING zcx_abapgit_ajson_error,
"! For deserialization
set_defaults
IMPORTING it_defaults TYPE ty_skip_paths
CHANGING co_ajson TYPE REF TO zif_abapgit_ajson
RAISING zcx_abapgit_ajson_error,
map2abap_custom_enum
IMPORTING it_enum_mappings TYPE ty_enum_mappings
CHANGING co_ajson TYPE REF TO zif_abapgit_ajson
RAISING zcx_abapgit_ajson_error.
ENDCLASS.
CLASS zcl_abapgit_json_handler IMPLEMENTATION.
METHOD deserialize.
DATA lo_ajson TYPE REF TO zif_abapgit_ajson.
CLEAR ev_data.
lo_ajson = zcl_abapgit_ajson=>parse( iv_content
)->map( zcl_abapgit_ajson_mapping=>create_to_snake_case( ) ).
map2abap_original_language( CHANGING co_ajson = lo_ajson ).
set_defaults( EXPORTING it_defaults = iv_defaults
CHANGING co_ajson = lo_ajson ).
map2abap_abap_language_version( CHANGING co_ajson = lo_ajson ).
map2abap_custom_enum( EXPORTING it_enum_mappings = iv_enum_mappings
CHANGING co_ajson = lo_ajson ).
lo_ajson->to_abap( IMPORTING ev_container = ev_data ).
ENDMETHOD.
METHOD map2abap_abap_language_version.
DATA:
lv_enum_abap TYPE string,
lv_enum_json TYPE string.
lv_enum_json = co_ajson->get_string( '/header/abap_language_version' ).
IF lv_enum_json = zif_abapgit_dot_abapgit=>c_abap_language_version-standard.
lv_enum_abap = zif_abapgit_aff_types_v1=>co_abap_language_version_src-standard.
ELSEIF lv_enum_json = zif_abapgit_dot_abapgit=>c_abap_language_version-cloud_development.
lv_enum_abap = zif_abapgit_aff_types_v1=>co_abap_language_version-cloud_development.
ELSEIF lv_enum_json = zif_abapgit_dot_abapgit=>c_abap_language_version-key_user.
lv_enum_abap = zif_abapgit_aff_types_v1=>co_abap_language_version-key_user.
ENDIF.
co_ajson->set_string( iv_path = '/header/abap_language_version'
iv_val = lv_enum_abap ).
ENDMETHOD.
METHOD map2abap_custom_enum.
DATA:
lv_enum_json TYPE string,
ls_enum_mapping TYPE ty_enum_mapping,
ls_mapping TYPE ty_json_abap_mapping.
LOOP AT it_enum_mappings INTO ls_enum_mapping.
lv_enum_json = co_ajson->get_string( ls_enum_mapping-path ).
READ TABLE ls_enum_mapping-mappings WITH KEY json = lv_enum_json INTO ls_mapping.
IF sy-subrc = 0.
co_ajson->set_string( iv_path = ls_enum_mapping-path
iv_val = ls_mapping-abap ).
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD map2abap_original_language.
DATA:
lv_bcp47_language TYPE string,
lv_original_language TYPE sy-langu.
lv_bcp47_language = co_ajson->get_string( '/header/original_language' ).
lv_original_language = zcl_abapgit_convert=>language_bcp47_to_sap1( lv_bcp47_language ).
co_ajson->set_string( iv_path = '/header/original_language'
iv_val = lv_original_language ).
ENDMETHOD.
METHOD map2json_abap_language_version.
DATA:
lv_enum_abap TYPE string,
lv_enum_json TYPE string.
lv_enum_abap = co_ajson->get_string( '/header/abapLanguageVersion' ).
IF lv_enum_abap = zif_abapgit_aff_types_v1=>co_abap_language_version_src-standard
OR lv_enum_abap = zif_abapgit_aff_types_v1=>co_abap_language_version-standard.
lv_enum_json = zif_abapgit_dot_abapgit=>c_abap_language_version-standard.
ELSEIF lv_enum_abap = zif_abapgit_aff_types_v1=>co_abap_language_version-cloud_development.
lv_enum_json = zif_abapgit_dot_abapgit=>c_abap_language_version-cloud_development.
ELSEIF lv_enum_abap = zif_abapgit_aff_types_v1=>co_abap_language_version-key_user.
lv_enum_json = zif_abapgit_dot_abapgit=>c_abap_language_version-key_user.
ENDIF.
co_ajson->set_string( iv_path = '/header/abapLanguageVersion'
iv_val = lv_enum_json ).
ENDMETHOD.
METHOD map2json_custom_enum.
DATA:
lv_enum_abap TYPE string,
ls_enum_mapping TYPE ty_enum_mapping,
ls_mapping TYPE ty_json_abap_mapping.
LOOP AT it_enum_mappings INTO ls_enum_mapping.
lv_enum_abap = co_ajson->get_string( ls_enum_mapping-path ).
READ TABLE ls_enum_mapping-mappings WITH KEY abap = lv_enum_abap INTO ls_mapping.
IF sy-subrc = 0.
co_ajson->set_string( iv_path = ls_enum_mapping-path
iv_val = ls_mapping-json ).
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD map2json_original_language.
DATA:
lv_bcp47_language TYPE string,
lv_original_language TYPE sy-langu.
lv_original_language = co_ajson->get_string( '/header/originalLanguage' ).
lv_bcp47_language = zcl_abapgit_convert=>language_sap1_to_bcp47( lv_original_language ).
co_ajson->set_string( iv_path = '/header/originalLanguage'
iv_val = lv_bcp47_language ).
ENDMETHOD.
METHOD serialize.
DATA: lt_st_source TYPE abap_trans_srcbind_tab,
lv_json TYPE string,
lo_ajson TYPE REF TO zif_abapgit_ajson,
lo_filter TYPE REF TO lcl_aff_filter.
FIELD-SYMBOLS: <lg_source> LIKE LINE OF lt_st_source.
APPEND INITIAL LINE TO lt_st_source ASSIGNING <lg_source>.
GET REFERENCE OF iv_data INTO <lg_source>-value.
lo_ajson = zcl_abapgit_ajson=>new( iv_keep_item_order = abap_true
)->set( iv_path = '/'
iv_val = iv_data
)->map( zcl_abapgit_ajson_mapping=>create_to_camel_case( ) ).
map2json_original_language( CHANGING co_ajson = lo_ajson ).
map2json_abap_language_version( CHANGING co_ajson = lo_ajson ).
map2json_custom_enum( EXPORTING it_enum_mappings = iv_enum_mappings
CHANGING co_ajson = lo_ajson ).
CREATE OBJECT lo_filter EXPORTING iv_skip_paths = iv_skip_paths.
" files end with an empty line (EOF)
lv_json = lo_ajson->clone( )->filter( lo_filter )->stringify( 2 ) && cl_abap_char_utilities=>newline.
rv_result = zcl_abapgit_convert=>string_to_xstring_utf8( lv_json ).
ENDMETHOD.
METHOD set_defaults.
DATA:
lv_enum_json TYPE string,
ls_default TYPE ty_path_value_pair.
LOOP AT it_defaults INTO ls_default.
lv_enum_json = co_ajson->get_string( ls_default-path ).
IF lv_enum_json = ``.
co_ajson->set_string( iv_path = ls_default-path
iv_val = ls_default-value ).
ENDIF.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
|