LibIms_Templates.ttcn

/*
 *	@author 	STF 346, STF366, STF368, STF369
 *  @version    $Id$
 *	@desc		This module provides the types used by the test component 
 *              for SIP-IMS tests. Module become from STF306 and STF334-336
 */

module LibIms_Templates
{	
    import from XSDAUX all;

    //LibCommon
    import from LibCommon_DataStrings all;
	
    //LibSip
    import from LibSip_SIPTypesAndValues all;
    import from LibSip_SDPTypes all;
    import from LibSip_Templates all;
    import from LibSip_Steps all;
    import from LibSip_PIXITS all;
    import from LibSip_XMLTypes all;
	
    //LibIms
    import from LibIms_SIPTypesAndValues all;
	
    import from LibIms_PIXITS all;
	
    //LibXMLTypes
    import from urn_ietf_params_xml_ns_resource_lists language "XSD" all
    with {
        extension "File:../xsd/ResourceList.xsd"
    }

    import from urn_ietf_params_xml_ns_reginfo language "XSD" all except{type Contact}
    with {
        extension "File:../xsd/regInfo.xsd"
    }
	
    import from http_uri_etsi_org_ngn_params_xml_simservs_xcap language "XSD" all
    with {
        extension "File:../xsd/SupplementaryServices.xsd"
    }
	
    import from http_uri_etsi_org_ngn_params_xml_simservs_mcid language "XSD" all
    with {
        extension "File:../xsd/MCID.xsd"
    }
	
    import from NoTargetNamespace language "XSD" all
    with {
        extension "File:../xsd/Ims3gpp.xsd"
    }
    
    import from urn_ietf_params_xml_ns_conference_info language "XSD" all
    with {
        extension "File:../xsd/CONF.xsd"
    }
    
    import from http_uri_etsi_org_ngn_params_xml_simservs_pstn language "XSD" all
    with {
        extension "File:../xsd/PSTN.xsd"
    }
    
    import from urn_ietf_params_xml_ns_common_policy language "XSD" all
    with {
        extension "File:../xsd/common-policy.xsd"
    }
    
    import from http_uri_etsi_org_ngn_params_xml_comm_div_info language "XSD" all
    with {
        extension "File:../xsd/CDIVN.xsd"
    }
    
    import from urn_3gpp_ns_cw_1_0 language "XSD" all
    with {
        extension "File:../xsd/cw.xsd"
    }   
    
    template charstring m_international_number_format := pattern  "\\+\d+";//pattern  "\+\d+";

    template NameAddr mw_SipUrl_SUTinterface(charstring p_host, integer p_port) := 
        {
            displayName := *,
            addrSpec := {
                scheme := "sip:",
                userInfo := *,
                hostPort := {p_host, p_port},
                urlParameters := *,
                headers := *
            }
        }
		
    template Addr_Union mw_UE1_Addr_display := {nameAddr:={displayName:=PX_IMS_SUT_UE1_DISPLAY,addrSpec:=?}};
	
group Subfields{


    template SipUrl m_SipUrl_currIpaddr_CSCF(in SipUserProfile p_userprofile) :=  	//*  SIP-URL of the test system on SIP side
    {
            scheme := c_sipScheme,  		//*  contains "sip"
            userInfo := omit,		//*  optional
            hostPort :=
            {
        host := p_userprofile.currIpaddr,	//*  hostname, IPv4 or IPv6 as a charstring
        portField := p_userprofile.currPort	//* optional integer
            },
            urlParameters := omit,
            headers := omit
    } 
	
    template SemicolonParam_List mw_semicolonParams_realm (template charstring p_realm)	:=
    /*?;*/ 
    superset({"realm",p_realm},{"nonce",?},{"algorithm","AKAv1-MD5"},{"ik",?},{"ck",?}) ;//Working with TTWorkbench// ERROR HERE! Superset operation must contain value list - no templates!
    template SemicolonParam_List m_semicolonParams_language (template charstring p_language):=
        {{"language",p_language}}
	
    template SemicolonParam_List mw_semicolonParams_language (template charstring p_language):=
        {{"language",p_language}}
		
    template SemicolonParam_List m_semicolonParams_isub (template charstring p_address):=
        {{"isub",p_address}}	
}

group HeaderFieldTemplates{
	
    template MinSE m_minSE(DeltaSec p_ds):=
    {
            fieldName := MIN_SE_E,
            deltaSec:=p_ds,
            minSeParam:=omit
    }
	
    template PathValue mw_pathvalue (template SipUrl p_sipUrl):=
    {
    nameAddr := {displayName := *, 	 			// optional charstring
                 addrSpec := p_sipUrl		// SipUrl
                },
    rrParam := *
    }

    template Path m_path (template SipUrl p_sipUrl):=
    {
        fieldName := PATH_E,
        pathValues := {
                    {nameAddr := {
                    displayName := omit, 	 			// optional charstring
                    addrSpec := p_sipUrl		// SipUrl
                    },
                    rrParam := omit}
            }
    }
	
    template Path m_path_TS := {
        fieldName := PATH_E,
        pathValues := {
            {
                nameAddr := {
                    displayName := omit,  //     optional charstring
                    addrSpec := {
                        scheme := c_sipScheme,
                        userInfo := {
                            userOrTelephoneSubscriber := "registrar",
                            password := omit
                        },
                        hostPort := {
                            PX_IMS_TS_PCSCF_HOME_DOMAIN, PX_IMS_TS_PCSCF_PORT
                        },
                        urlParameters := { { id := "lr", paramValue := omit}},
                        headers := omit
                    }
                },
                rrParam := omit
            }
        }
    }
/*
 * @desc Path header field expectation with at least one path value
 * @param p_sipUrl value of the last element in the list of path values
 */	
    template Path mw_path (template SipUrl p_sipUrl):=
    {
        fieldName := PATH_E,
        pathValues := {mw_pathvalue(p_sipUrl)}		// any number of SipUrl may occur before p_sipUrl
    }
	
    template PAccessNetworkInfo m_pAccessNetworkInfo_IEEE_11a :=
    {
        fieldName := P_ACCESS_NETWORK_INFO_E,
        accessType := "IEEE-802.11a",
        genericParams := {{id:="extension-access-info",paramValue :="192.1.1.20"}}
    };
		
    template PAssertedService m_pAssertedService (PAssertedServiceValue p_pAssertedServiceValue):=
    {
        fieldName := P_ASSERTED_SERVICE_E,
        pAssertedServiceValue := p_pAssertedServiceValue
    };
		
    template PChargingFunctionAddresses m_pChargingFunctionAddresses_fixedValue :=
    {