Update HTTP Ng112 to ITS (a176b865) · Commits · TTCN-3 Libraries / LibIts

ttcn/Http/LibItsHttp_EncdecDeclarations.ttcn

0 → 100644

+11 −0

Original line number	Original line	Diff line number	Diff line
			module LibItsHttp_EncdecDeclarations {
			// LibHttp
			import from LibItsHttp_TypesAndValues all;

			external function fx_enc_http_message (HttpMessage p) return bitstring
			with {extension "prototype(convert) encode(HttpCodec)"}

			external function fx_dec_http_message (inout bitstring b, out HttpMessage p) return integer
			with {extension "prototype(sliding) decode(HttpCodec)"}

			} // End of module LibItsHttp_EncdecDeclarations

ttcn/Http/LibItsHttp_Functions.ttcn

0 → 100644

+39 −0

Original line number	Original line	Diff line number	Diff line
			module LibItsHttp_Functions {

			// LibHttp
			import from LibItsHttp_TypesAndValues all;
			import from LibItsHttp_Pics all;

			function f_init_default_headers_list(
			out HeaderLines p_headers
			) {
			p_headers[0] := { c_header_host, { PICS_HEADER_HOST } };
			p_headers[1] := { c_header_content_type, { PICS_HEADER_CONTENT_TYPE } };
			p_headers[2] := { c_header_connection, { "keep-alive" } };
			p_headers[3] := { c_header_pragma, { "no-cache" } };
			p_headers[4] := { c_header_cache_control, { "no-cache" } };

			} // End of function f_init_default_headers_list

			function f_remove_headears_list(
			in charstring_list p_headers_to_remove,
			inout HeaderLines p_headers
			) {
			// Sanity checks
			if (lengthof(p_headers_to_remove) == 0) {
			return;
			} else if (lengthof(p_headers) == 0) {
			return;
			}

			for (var integer v_idx := 0; v_idx < lengthof(p_headers_to_remove); v_idx := v_idx + 1) {

			for (var integer v_jdx := 0; v_jdx < lengthof(p_headers); v_jdx := v_jdx + 1) {
			if (p_headers[v_jdx].header_name == p_headers_to_remove[v_idx]) {
			p_headers[v_jdx].header_value := omit; // NOTE Codec won't encode it
			}
			} // End of 'for' statement

			} // End of 'for' statement
			} // End of function f_init_default_headers_list
			} // End of module LibItsHttp_Functions

ttcn/Http/LibItsHttp_MessageBodyTypes.ttcn

0 → 100644

+13 −0

Original line number	Original line	Diff line number	Diff line
			module LibItsHttp_MessageBodyTypes {

			// LibHttp
			import from LibItsHttp_XmlMessageBodyTypes all;

			type octetstring MsdBody;

			type union HttpMessageBody {
			MsdBody ms_body,
			XmlBody xml_body
			} // End of type HttpMessageBody

			} // End of module LibItsHttp_MessageBodyTypes

ttcn/Http/LibItsHttp_Pics.ttcn

0 → 100644

+13 −0

Original line number	Original line	Diff line number	Diff line
			module LibItsHttp_Pics {

			/**
			* @desc
			*/
			modulepar charstring PICS_HEADER_HOST := "http://www.lisp.com";

			/**
			* @desc
			*/
			modulepar charstring PICS_HEADER_CONTENT_TYPE := "application/held+xml;charset=utf-8";

			} // End of module LibItsHttp_Pics

ttcn/Http/LibItsHttp_Templates.ttcn

+79 −37

Original line number	Original line	Diff line number	Diff line
	@@ -13,14 +13,10 @@ module LibItsHttp_Templates {

	// LibHttp		// LibHttp
	import from LibItsHttp_TypesAndValues all;		import from LibItsHttp_TypesAndValues all;
			import from LibItsHttp_MessageBodyTypes all;
			import from LibItsHttp_XmlMessageBodyTypes all;

	template (value) HeaderLine m_header_line(		group http_messages {
	in template (value) charstring p_header_name,
	in template (value) charstring_list p_header_value
	) := {
	header_name := p_header_name,
	header_value := p_header_value
	} // End of template m_header_line

	template (value) HttpMessage m_http_request(		template (value) HttpMessage m_http_request(
	in template (value) Request p_request		in template (value) Request p_request
	@@ -46,10 +42,26 @@ module LibItsHttp_Templates {
	response := p_response		response := p_response
	} // End of template mw_http_response		} // End of template mw_http_response

			} // End of group http_messages

			group http_headers {

			template (value) HeaderLine m_header_line(
			in template (value) charstring p_header_name,
			in template (value) charstring_list p_header_value
			) := {
			header_name := p_header_name,
			header_value := p_header_value
			} // End of template m_header_line

			} // End of group http_headers

			group http_requests {

	template (omit) Request m_http_request_get(		template (omit) Request m_http_request_get(
	in charstring p_uri,		in charstring p_uri,
	in template (value) HeaderLines p_headers,		in template (value) HeaderLines p_headers,
	in template (omit) charstring p_body := omit		in template (omit) HttpMessageBody p_body := omit
	) := {		) := {
	method := "GET",		method := "GET",
	uri := p_uri,		uri := p_uri,
	@@ -59,4 +71,34 @@ module LibItsHttp_Templates {
	body := p_body		body := p_body
	} // End of template m_http_request_get		} // End of template m_http_request_get

			} // End of group http_requests

			group http_responses {

			template (present) Response mw_http_response_ok(
			template (present) HttpMessageBody p_body := ?,
			template (present) HeaderLines p_header := ?
			) := {
			version_major := 1,
			version_minor := 1,
			statuscode := 200,
			statustext := "OK",
			header := p_header,
			body := p_body
			} // End of template mw_http_response_ok

			} // End of group http_responses

			template (value) HttpMessageBody m_http_message_body_xml(
			in template (value) XmlBody p_xml_body
			) := {
			xml_body := p_xml_body
			} // End of template m_http_message_body_xml

			template (present) HttpMessageBody mw_http_message_body_xml(
			template (present) XmlBody p_xml_body := ?
			) := {
			xml_body := p_xml_body
			} // End of template mw_http_message_body_xml

	} // End of module LibItsHttp_Templates		} // End of module LibItsHttp_Templates

Admin message