update latest ajson version (#23)

Author: oblomov-dev

src/z2ui5_cl_ajson.clas.abap

@@ -1,10 +1,10 @@
 CLASS z2ui5_cl_ajson DEFINITION
   PUBLIC
-  CREATE PUBLIC .
+  CREATE PUBLIC.
 
   PUBLIC SECTION.
 
-    INTERFACES z2ui5_if_ajson .
+    INTERFACES z2ui5_if_ajson.
 
     ALIASES:
       is_empty FOR z2ui5_if_ajson~is_empty,
@@ -57,7 +57,7 @@ CLASS z2ui5_cl_ajson DEFINITION
       RETURNING
         VALUE(ro_instance) TYPE REF TO z2ui5_cl_ajson
       RAISING
-        z2ui5_cx_ajson_error .
+        z2ui5_cx_ajson_error.
 
     CLASS-METHODS create_empty " Might be deprecated, prefer using new( ) or create object
       IMPORTING
@@ -77,13 +77,14 @@ CLASS z2ui5_cl_ajson DEFINITION
       RETURNING
         VALUE(ro_instance) TYPE REF TO z2ui5_cl_ajson
       RAISING
-        z2ui5_cx_ajson_error .
+        z2ui5_cx_ajson_error.
 
     METHODS constructor
       IMPORTING
         iv_keep_item_order TYPE abap_bool DEFAULT abap_false
         iv_format_datetime TYPE abap_bool DEFAULT abap_true
         iv_to_abap_corresponding_only TYPE abap_bool DEFAULT abap_false.
+
     CLASS-METHODS new
       IMPORTING
         iv_keep_item_order TYPE abap_bool DEFAULT abap_false
@@ -92,6 +93,12 @@ CLASS z2ui5_cl_ajson DEFINITION
       RETURNING
         VALUE(ro_instance) TYPE REF TO z2ui5_cl_ajson.
 
+    CLASS-METHODS normalize_path
+      IMPORTING
+        iv_path TYPE string
+      RETURNING
+        VALUE(rv_path) TYPE string.
+
   PROTECTED SECTION.
 
   PRIVATE SECTION.
@@ -188,14 +195,14 @@ CLASS z2ui5_cl_ajson IMPLEMENTATION.
     DATA lr_parent LIKE ir_parent.
 
     READ TABLE mt_json_tree INTO rs_top_node
-      WITH KEY
+      WITH TABLE KEY
         path = iv_path
         name = iv_name.
     IF sy-subrc <> 0.
       RETURN. " Not found ? nothing to delete !
     ENDIF.
 
-    DELETE mt_json_tree INDEX sy-tabix. " where path = iv_path and name = iv_name.
+    DELETE mt_json_tree INDEX sy-tabix. "#EC CI_SORTSEQ where path = iv_path and name = iv_name.
 
     IF rs_top_node-children > 0. " only for objects and arrays
       lv_parent_path = iv_path && iv_name && '/*'.
@@ -217,18 +224,14 @@ CLASS z2ui5_cl_ajson IMPLEMENTATION.
 
   METHOD get_item.
 
-    FIELD-SYMBOLS <item> LIKE LINE OF mt_json_tree.
     DATA ls_path_name TYPE z2ui5_if_ajson_types=>ty_path_name.
     ls_path_name = lcl_utils=>split_path( iv_path ).
 
     READ TABLE mt_json_tree
-      ASSIGNING <item>
+      REFERENCE INTO rv_item
       WITH KEY
         path = ls_path_name-path
         name = ls_path_name-name.
-    IF sy-subrc = 0.
-      GET REFERENCE OF <item> INTO rv_item.
-    ENDIF.
 
   ENDMETHOD.
 
@@ -242,6 +245,11 @@ CLASS z2ui5_cl_ajson IMPLEMENTATION.
   ENDMETHOD.
 
 
+  METHOD normalize_path.
+    rv_path = lcl_utils=>normalize_path( iv_path ).
+  ENDMETHOD.
+
+
   METHOD parse.
 
     DATA lo_parser TYPE REF TO lcl_json_parser.
@@ -275,7 +283,7 @@ CLASS z2ui5_cl_ajson IMPLEMENTATION.
     DO.
       lr_node_parent = rr_end_node.
       READ TABLE mt_json_tree REFERENCE INTO rr_end_node
-        WITH KEY
+        WITH TABLE KEY
           path = lv_cur_path
           name = lv_cur_name.
       IF sy-subrc <> 0. " New node, assume it is always object as it has a named child, use touch_array to init array
@@ -439,7 +447,7 @@ CLASS z2ui5_cl_ajson IMPLEMENTATION.
     IF lr_item IS NOT INITIAL AND lr_item->type = z2ui5_if_ajson_types=>node_type-string.
       FIND FIRST OCCURRENCE OF REGEX '^(\d{4})-(\d{2})-(\d{2})(T|$)'
         IN lr_item->value
-        SUBMATCHES lv_y lv_m lv_d.
+        SUBMATCHES lv_y lv_m lv_d ##REGEX_POSIX.
       CONCATENATE lv_y lv_m lv_d INTO rv_value.
     ENDIF.
 
@@ -512,6 +520,28 @@ CLASS z2ui5_cl_ajson IMPLEMENTATION.
   ENDMETHOD.
 
 
+  METHOD z2ui5_if_ajson~get_timestampl.
+
+    DATA lo_to_abap TYPE REF TO lcl_json_to_abap.
+    DATA lr_item TYPE REF TO z2ui5_if_ajson_types=>ty_node.
+
+    lr_item = get_item( iv_path ).
+
+    IF lr_item IS INITIAL.
+      RETURN.
+    ENDIF.
+
+    CREATE OBJECT lo_to_abap.
+
+    TRY.
+        rv_value = lo_to_abap->to_timestampl( lr_item->value ).
+      CATCH z2ui5_cx_ajson_error.
+        RETURN.
+    ENDTRY.
+
+  ENDMETHOD.
+
+
   METHOD z2ui5_if_ajson~is_empty.
     rv_yes = boolc( lines( mt_json_tree ) = 0 ).
   ENDMETHOD.
@@ -706,7 +736,7 @@ CLASS z2ui5_cl_ajson IMPLEMENTATION.
     ENDIF.
 
     IF go_float_regex IS NOT BOUND.
-      CREATE OBJECT go_float_regex EXPORTING pattern = '^([1-9][0-9]*|0)\.[0-9]+$'.
+      CREATE OBJECT go_float_regex EXPORTING pattern = '^([1-9][0-9]*|0)\.[0-9]+$' ##REGEX_POSIX.
       " expects fractional, because ints are detected separately
     ENDIF.
 
@@ -838,8 +868,28 @@ CLASS z2ui5_cl_ajson IMPLEMENTATION.
   ENDMETHOD.
 
 
+  METHOD z2ui5_if_ajson~set_timestampl.
+
+    ri_json = me.
+
+    DATA lv_timestamp_iso TYPE string.
+    lv_timestamp_iso = lcl_abap_to_json=>format_timestampl( iv_val ).
+
+    z2ui5_if_ajson~set(
+      iv_ignore_empty = abap_false
+      iv_path = iv_path
+      iv_val  = lv_timestamp_iso ).
+
+  ENDMETHOD.
+
+
   METHOD z2ui5_if_ajson~slice.
 
+    " TODO: idea
+    " read only mode (for read only jsons or a param)
+    " which would reuse the original tree, so copy a reference of the tree, presuming that it is not changed
+    " this will be faster, in particular for array iterations
+
     DATA lo_section         TYPE REF TO z2ui5_cl_ajson.
     DATA ls_item            LIKE LINE OF mt_json_tree.
     DATA lv_normalized_path TYPE string.
@@ -865,7 +915,7 @@ CLASS z2ui5_cl_ajson IMPLEMENTATION.
 
     lv_path_pattern = lv_normalized_path && `*`.
 
-    LOOP AT mt_json_tree INTO ls_item WHERE path CP lv_path_pattern.
+    LOOP AT mt_json_tree INTO ls_item WHERE path CP lv_path_pattern. "#EC CI_SORTSEQ
 
       ls_item-path = substring( val = ls_item-path
                                 off = lv_path_len - 1 ). " less closing '/'
@@ -953,7 +1003,8 @@ CLASS z2ui5_cl_ajson IMPLEMENTATION.
     CREATE OBJECT lo_to_abap
       EXPORTING
         iv_corresponding  = boolc( iv_corresponding = abap_true OR ms_opts-to_abap_corresponding_only = abap_true )
-        ii_custom_mapping = mi_custom_mapping.
+        ii_custom_mapping = mi_custom_mapping
+        ii_refs_initiator = ii_refs_initiator.
 
     lo_to_abap->to_abap(
       EXPORTING