Add HTTP header extensions via Pixits

ttcn/Http/LibItsHttp_Functions.ttcn

@@ -8,6 +8,7 @@ module LibItsHttp_Functions {
     // LibHttp
     import from LibItsHttp_TypesAndValues all;
     import from LibItsHttp_Pics all;
+    import from LibItsHttp_Pixits all;
     import from LibItsHttp_TestSystem all;
     
     group http_preambles {
@@ -71,6 +72,9 @@ module LibItsHttp_Functions {
           v_i := v_i + 1;
         }
         //p_headers[v_i] := { c_header_accept, { "application/x-its-response" } };
+        if (lengthof(PX_ADDITIONAL_HTTP_HEADERS_KEYS) != 0) {
+          f_set_headers_list(PX_ADDITIONAL_HTTP_HEADERS_KEYS, PX_ADDITIONAL_HTTP_HEADERS_VALUES, p_headers);
+        }
       } // End of function f_init_default_headers_list
       
       function f_set_headers_list(

ttcn/Http/LibItsHttp_Pixits.ttcn

+module LibItsHttp_Pixits {
+
+  import from LibItsHttp_TypesAndValues all;
+
+  modulepar charstring_list PX_ADDITIONAL_HTTP_HEADERS_KEYS := { };
+
+  modulepar charstring_list PX_ADDITIONAL_HTTP_HEADERS_VALUES := { };
+
+} // End of module LibItsHttp_Pixits

ttcn/Http/module.mk

@@ -8,6 +8,7 @@ sources := LibItsHttp_BinaryMessageBodyTypes.ttcn \
            LibItsHttp_JsonTemplates.ttcn          \
            LibItsHttp_MessageBodyTypes.ttcn       \
            LibItsHttp_Pics.ttcn                   \
+           LibItsHttp_Pixits.ttcn                 \
            LibItsHttp_Templates.ttcn              \
            LibItsHttp_TestSystem.ttcn             \
            LibItsHttp_TypesAndValues.ttcn         \