New handler (abap2UI5#1446)

* new handler

* update

* update

* update

* update

* update

* fix statefulness

* update

* update

* update

src/01/00/02/z2ui5_cl_abap_api_http.clas.abap

@@ -0,0 +1,314 @@
+CLASS z2ui5_cl_abap_api_http DEFINITION PUBLIC.
+
+  PUBLIC SECTION.
+
+    CLASS-METHODS factory
+      IMPORTING
+        server        TYPE REF TO object
+      RETURNING
+        VALUE(result) TYPE REF TO z2ui5_cl_abap_api_http.
+
+    CLASS-METHODS factory_cloud
+      IMPORTING
+        req           TYPE REF TO object
+        res           TYPE REF TO object
+      RETURNING
+        VALUE(result) TYPE REF TO z2ui5_cl_abap_api_http.
+
+    METHODS get_header_field
+      IMPORTING
+        val           TYPE clike
+      RETURNING
+        VALUE(result) TYPE string.
+
+    METHODS get_cdata
+      RETURNING
+        VALUE(result) TYPE string.
+
+    METHODS get_method
+      RETURNING
+        VALUE(result) TYPE string.
+
+    METHODS set_cdata
+      IMPORTING
+        val TYPE clike.
+
+    METHODS set_status
+      IMPORTING
+        code   TYPE i
+        reason TYPE clike.
+
+    METHODS set_session_stateful
+      IMPORTING
+        val TYPE i.
+
+    METHODS get_response_cookie
+      IMPORTING
+        val           TYPE clike
+      RETURNING
+        VALUE(result) TYPE string.
+
+    METHODS delete_response_cookie
+      IMPORTING
+        val TYPE clike.
+
+    METHODS set_header_field
+      IMPORTING
+        n TYPE clike
+        v TYPE clike.
+
+    DATA mo_server_onprem TYPE REF TO object.
+
+  PROTECTED SECTION.
+
+    DATA mo_request_cloud TYPE REF TO object.
+    DATA mo_response_cloud TYPE REF TO object.
+
+  PRIVATE SECTION.
+ENDCLASS.
+
+CLASS z2ui5_cl_abap_api_http IMPLEMENTATION.
+
+  METHOD delete_response_cookie.
+
+    DATA(lv_val) = CONV string( val ).
+
+    IF mo_server_onprem IS BOUND.
+
+      DATA object TYPE REF TO object.
+      FIELD-SYMBOLS <any> TYPE any.
+
+      ASSIGN mo_server_onprem->('RESPONSE') TO <any>.
+      object = <any>.
+
+      CALL METHOD object->('DELETE_COOKIE')
+        EXPORTING
+          name = lv_val.
+
+    ELSE.
+
+*      CALL METHOD mo_response_cloud->('DELETE_COOKIE_AT_CLIENT')
+*        EXPORTING
+*          name = lv_val.
+
+    ENDIF.
+
+  ENDMETHOD.
+
+  METHOD get_response_cookie.
+
+    DATA object TYPE REF TO object.
+    FIELD-SYMBOLS <any> TYPE any.
+    DATA(lv_val) = CONV string( val ).
+
+    IF mo_server_onprem IS BOUND.
+
+      ASSIGN mo_server_onprem->('RESPONSE') TO <any>.
+      object = <any>.
+
+      CALL METHOD object->('GET_COOKIE')
+        EXPORTING
+          name  = lv_val
+        IMPORTING
+          value = result.
+
+    ELSE.
+
+*      CALL METHOD mo_request_cloud->('GET_COOKIE')
+*        EXPORTING
+*          i_name  = lv_val
+*        RECEIVING
+*          r_value = result.
+
+    ENDIF.
+
+  ENDMETHOD.
+
+  METHOD get_header_field.
+
+    DATA object TYPE REF TO object.
+    FIELD-SYMBOLS <any> TYPE any.
+    DATA(lv_val) = CONV string( val ).
+
+    IF mo_server_onprem IS BOUND.
+
+      ASSIGN mo_server_onprem->('REQUEST') TO <any>.
+      object = <any>.
+
+      CALL METHOD object->('GET_HEADER_FIELD')
+        EXPORTING
+          name  = lv_val
+        RECEIVING
+          value = result.
+
+    ELSE.
+
+      CALL METHOD mo_request_cloud->('GET_HEADER_FIELD')
+        EXPORTING
+          i_name  = lv_val
+        RECEIVING
+          r_value = result.
+
+    ENDIF.
+
+  ENDMETHOD.
+
+  METHOD set_header_field.
+
+    DATA object TYPE REF TO object.
+    FIELD-SYMBOLS <any> TYPE any.
+
+    DATA(lv_n) = CONV string( n ).
+    DATA(lv_v) = CONV string( v ).
+    IF mo_server_onprem IS BOUND.
+
+      ASSIGN mo_server_onprem->('RESPONSE') TO <any>.
+      object = <any>.
+
+      CALL METHOD object->('SET_HEADER_FIELD')
+        EXPORTING
+          name  = lv_n
+          value = lv_v.
+
+    ELSE.
+
+      CALL METHOD mo_request_cloud->('SET_HEADER_FIELD')
+        EXPORTING
+          i_name  = lv_n
+          i_value = lv_v.
+
+    ENDIF.
+
+  ENDMETHOD.
+
+  METHOD factory.
+
+    result = NEW #( ).
+    result->mo_server_onprem = server.
+
+  ENDMETHOD.
+
+  METHOD factory_cloud.
+
+    result = NEW #( ).
+    result->mo_request_cloud  = req.
+    result->mo_response_cloud = res.
+
+  ENDMETHOD.
+
+  METHOD get_cdata.
+
+    DATA object TYPE REF TO object.
+    FIELD-SYMBOLS <any> TYPE any.
+
+    IF mo_server_onprem IS BOUND.
+
+      ASSIGN mo_server_onprem->('REQUEST') TO <any>.
+      object = <any>.
+
+      CALL METHOD object->('GET_CDATA')
+        RECEIVING
+          data = result.
+
+    ELSE.
+
+      CALL METHOD mo_request_cloud->('GET_TEXT')
+        RECEIVING
+          r_value = result.
+
+    ENDIF.
+
+  ENDMETHOD.
+
+  METHOD get_method.
+
+    DATA object TYPE REF TO object.
+    FIELD-SYMBOLS <any> TYPE any.
+
+    IF mo_server_onprem IS BOUND.
+
+      ASSIGN mo_server_onprem->('REQUEST') TO <any>.
+      object = <any>.
+
+      CALL METHOD object->('IF_HTTP_REQUEST~GET_METHOD')
+        RECEIVING
+          method = result.
+
+    ELSE.
+
+      CALL METHOD mo_request_cloud->('GET_METHOD')
+        RECEIVING
+          r_value = result.
+
+    ENDIF.
+
+  ENDMETHOD.
+
+  METHOD set_cdata.
+
+    DATA object TYPE REF TO object.
+    FIELD-SYMBOLS <any> TYPE any.
+
+    IF mo_server_onprem IS BOUND.
+
+      ASSIGN mo_server_onprem->('RESPONSE') TO <any>.
+      object = <any>.
+
+      CALL METHOD object->('SET_CDATA')
+        EXPORTING
+          data = val.
+
+    ELSE.
+
+      CALL METHOD mo_request_cloud->('SET_TEXT')
+        EXPORTING
+          r_value = val.
+
+    ENDIF.
+
+  ENDMETHOD.
+
+  METHOD set_status.
+
+    DATA object TYPE REF TO object.
+    FIELD-SYMBOLS <any> TYPE any.
+    DATA(lv_reason) = CONV string( reason ).
+
+    IF mo_server_onprem IS BOUND.
+
+      ASSIGN mo_server_onprem->('RESPONSE') TO <any>.
+      object = <any>.
+
+      CALL METHOD object->('IF_HTTP_RESPONSE~SET_STATUS')
+        EXPORTING
+          code   = code
+          reason = lv_reason.
+
+    ELSE.
+
+      CALL METHOD mo_response_cloud->('SET_STATUS')
+        EXPORTING
+          i_code   = code
+          i_reason = lv_reason.
+
+    ENDIF.
+
+  ENDMETHOD.
+
+  METHOD set_session_stateful.
+
+    IF mo_server_onprem IS BOUND.
+
+      CALL METHOD mo_server_onprem->('SET_SESSION_STATEFUL')
+        EXPORTING
+          stateful = val.
+
+    ELSE.
+
+      ASSERT 1 = 'NO_STATEFUL_FEATURE_IN_CLOUD_ERROR'.
+
+    ENDIF.
+
+  ENDMETHOD.
+
+ENDCLASS.

src/01/02/z2ui5_cl_core_http_get.clas.xml → src/01/00/02/z2ui5_cl_abap_api_http.clas.xml

@@ -3,14 +3,13 @@
  <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
   <asx:values>
    <VSEOCLASS>
-    <CLSNAME>Z2UI5_CL_CORE_HTTP_GET</CLSNAME>
+    <CLSNAME>Z2UI5_CL_ABAP_API_HTTP</CLSNAME>
     <LANGU>E</LANGU>
-    <DESCRIPT>abap2UI5 - http get handler</DESCRIPT>
+    <DESCRIPT>http server</DESCRIPT>
     <STATE>1</STATE>
     <CLSCCINCL>X</CLSCCINCL>
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
-    <WITH_UNIT_TESTS>X</WITH_UNIT_TESTS>
    </VSEOCLASS>
   </asx:values>
  </asx:abap>