Add JSON support for STF569_MEC

ttcn/Http/LibItsHttp_MessageBodyTypes.ttcn

@@ -2,6 +2,7 @@ module LibItsHttp_MessageBodyTypes {
   
   // LibHttp
   import from LibItsHttp_XmlMessageBodyTypes all;
+  import from LibItsHttp_JsonMessageBodyTypes all;
   import from LibItsHttp_BinaryMessageBodyTypes all;
   
   type charstring HtmlBody;
@@ -12,6 +13,7 @@ module LibItsHttp_MessageBodyTypes {
       BinaryBody  binary_body,
       HtmlBody    html_body,
       XmlBody     xml_body,
+      JsonBody    json_body,
       TextBody    text_body
   } with {
     variant ""

ttcn/Http/LibItsHttp_Templates.ttcn

@@ -15,6 +15,7 @@ module LibItsHttp_Templates {
     import from LibItsHttp_TypesAndValues all;
     import from LibItsHttp_MessageBodyTypes all;
     import from LibItsHttp_XmlMessageBodyTypes all;
+    import from LibItsHttp_JsonMessageBodyTypes all;
     import from LibItsHttp_BinaryMessageBodyTypes all;
     
     group http_messages {
@@ -178,6 +179,22 @@ module LibItsHttp_Templates {
       
     } // End of group http_xml_body
     
+    group http_json_body {
+      
+      template (value) HttpMessageBody m_http_message_body_json(
+                                                               in template (value) JsonBody p_json_body
+      ) := {
+          json_body := p_json_body
+      } // End of template m_http_message_body_json
+      
+      template (present) HttpMessageBody mw_http_message_body_json(
+                                                                  template (present) JsonBody p_json_body := ?
+      ) := {
+          json_body := p_json_body
+      } // End of template mw_http_message_body_json
+      
+    } // End of group http_json_body
+    
     group http_binary_body {
       
       template (value) HttpMessageBody m_http_message_body_binary(

ttcn/Http/LibItsHttp_TypesAndValues.ttcn

@@ -13,7 +13,6 @@ module LibItsHttp_TypesAndValues {
     
     // LibHttp
     import from LibItsHttp_MessageBodyTypes all;
-    import from LibItsHttp_XmlMessageBodyTypes all;
     import from LibItsHttp_Pics all;
     
     const charstring c_header_host := "Host";

ttcn/Http/LibItsHttp_XmlMessageBodyTypes.ttcn

 module LibItsHttp_XmlMessageBodyTypes {
     
     /**
-     * This file volontary contains a trivial declaration of the type XmlBodu. 
+     * This file volontary contains a trivial declaration of the type XmlBody. 
      * In accordance with your TTCN-3 module LibItsHttp_XMLTypes, you have to change the XmlBody typing.
      */
     // TODO Add here your custom RFCs import