source: trunk/ETSI-Testsuites/ETSI_auto_IOT/codec/validation/LibSip_Templates.ttcn @ 40

Last change on this file since 40 was 22, checked in by rings, 14 years ago
  • Property svn:executable set to *
File size: 95.4 KB
Line 
1/*
2 *  @author   STF 346, STF366, STF368, STF369
3 *  @version  $Id: LibSip_Templates.ttcn 380 2009-07-23 14:59:16Z rennoch $
4 *      @desc     This module defines SIP Templates for message, header, and
5 *            structured types. <br>
6 *            Note that any changes made to the definitions in this module
7 *            may be overwritten by future releases of this library
8 *            End users are encouraged to contact the distributers of this 
9 *            module regarding their modifications or additions
10 *  @remark   Any additions to the templates shall follow the design rules
11 *            and always modify base templates only;
12 *            Existing templates shall not be changed or removed -
13 *            change requests shall be made to http://t-ort.etsi.org
14 */
15
16module LibSip_Templates
17{
18        //LibSip
19        import from LibSip_SIPTypesAndValues all;
20        import from LibSip_SDPTypes all;
21        import from LibSip_Interface all;
22        import from LibSip_PIXITS all;
23        import from LibSip_XMLTypes all;
24       
25        group ModuleParameters {
26       
27            modulepar boolean MB_LENGTH_FROM_ENCVAL:=true; //* to get length of message body from ecoded value
28            modulepar boolean USE_FX_FOR_XML_LENGTH:=true; //* To use external functions for calculation of XML message/body length
29           
30        }//* group ModuleParameters
31       
32        group SubFields
33        {
34
35                template Addr_Union m_AddrUnion_NameAddr(template NameAddr p_nameAddr) :=
36                {
37                  nameAddr := p_nameAddr
38                }
39
40                template Addr_Union m_AddrUnion_DisplayAndSipUrl(template charstring p_displayName, template SipUrl p_addrSpec) :=
41                {
42                  nameAddr := m_CallingAddr(p_displayName, p_addrSpec)
43                }
44               
45                template NameAddr m_CallingAddr(template charstring p_displayName, template SipUrl p_addrSpec) :=
46                {
47                  displayName := p_displayName,
48                  addrSpec := p_addrSpec
49                }               
50
51                template CommaParam_List mw_digestResponse(in GenericParam p_genericParam) :=
52                {
53                  *,p_genericParam,* //* c_Integrity_protected_yes
54                }       
55
56                template SemicolonParam_List m_cpc :=
57                {{"cpc",PX_SIP_ISUP_CPC_VALUE}};
58
59                template SemicolonParam_List m_ReasonParams
60                        (template charstring p_cause, template charstring p_text) :=
61                {m_Cause(p_cause),m_Text(p_text)};
62                               
63                template ReasonValue m_ReasonValue
64                        (template charstring p_cause, template charstring p_text) :=
65                {                 
66                        token := "Q.850",
67                        reasonParams := m_ReasonParams(p_cause,p_text)
68                };
69
70                template RouteBody mw_routeBody (template SipUrl p_sipurl):=
71                {
72                        nameAddr :=
73                        {
74                                displayName := *,
75                                addrSpec := p_sipurl
76                        },
77                        rrParam := *
78                }
79
80                template SentProtocol m_SentProtocol (charstring p_protocol) :=
81                {protocolName := c_sipName,
82                  protocolVersion:= c_sipVersion,
83                  transport:= p_protocol};
84
85                template SipUrl m_SipUrl_currDomain(in SipUserProfile p_userprofile) :=         //*  SIP-URL of the test system on SIP side
86                {
87                  scheme := c_sipScheme,                //*  contains "sip"
88                  userInfo :=                   //*  optional
89                  {
90                        userOrTelephoneSubscriber := p_userprofile.publUsername,//*  charstring
91                        password := omit                //*  optional charstring
92                  },
93                  hostPort :=
94                  {
95                        host := p_userprofile.homeDomain,       //*  hostname, IPv4 or IPv6 as a charstring
96                        portField := omit       //* p_userprofile.currPort      //* optional integer
97                  },
98                  urlParameters := omit,
99                  headers := omit
100                }
101
102                template SipUrl m_SipUrl_contactIpaddr(in SipUserProfile p_userprofile) :=      //*  SIP-URL of the test system on SIP side
103                {
104                  scheme := c_sipScheme,                //*  contains "sip"
105                  userInfo :=                   //*  optional
106                  {
107                        userOrTelephoneSubscriber := p_userprofile.publUsername,//*  charstring
108                        password := omit                //*  optional charstring
109                  },
110                  hostPort :=
111                  {
112                        host := p_userprofile.contactIpaddr,    //*  hostname, IPv4 or IPv6 as a charstring
113                        portField := p_userprofile.contactPort  //* optional integer
114                  },
115                  urlParameters := omit,
116                  headers := omit
117                }
118
119                template SipUrl m_SipUrl_contactIpaddrAndCpc(in SipUserProfile p_userprofile) :=        //*  SIP-URL of the test system on SIP side
120                {
121                                scheme := c_sipScheme,                  //*  contains "sip"
122                                userInfo :=                     //*  optional
123                                {
124                        userOrTelephoneSubscriber := p_userprofile.publUsername & "; cpc=" & PX_SIP_ISUP_CPC_VALUE,//*  charstring
125                        password := omit                //*  optional charstring
126                                },
127                                hostPort :=
128                                {
129                        host := p_userprofile.contactIpaddr,    //*  hostname, IPv4 or IPv6 as a charstring
130                        portField := p_userprofile.contactPort  //* optional integer
131                                },
132                                urlParameters := omit,
133                                headers := omit
134                }
135
136                template SipUrl m_SipUrl_currIpaddr(in SipUserProfile p_userprofile) :=         //*  SIP-URL of the test system on SIP side
137                {
138                  scheme := c_sipScheme,                //*  contains "sip"
139                  userInfo :=                   //*  optional
140                  {
141                        userOrTelephoneSubscriber := p_userprofile.publUsername,//*  charstring
142                        password := omit                //*  optional charstring
143                  },
144                  hostPort :=
145                  {
146                        host := p_userprofile.currIpaddr,       //*  hostname, IPv4 or IPv6 as a charstring
147                        portField := p_userprofile.currPort     //* optional integer
148                  },
149                  urlParameters := omit,
150                  headers := omit
151                }
152   
153                template SipUrl m_SipUrl_Anonymous :=   //*  SIP-URL with a calles party number
154                {
155                  scheme := c_sipScheme,                //*  contains "sip"
156                  userInfo :=                   //*  optional
157                  {
158                        userOrTelephoneSubscriber := "Anonymous",//*  charstring
159                        password := omit                //*  optional charstring
160                  },
161                  hostPort :=
162                  {
163                        host := "Anonymous.invalid",    //*  hostname, IPv4 or IPv6 as a charstring
164                        portField := omit       //* optional integer
165                  },
166                  urlParameters := omit,
167                  headers := omit
168                };
169               
170                template SipUrl m_TelUrl_publUser(in SipUserProfile p_userprofile) :=   //*  SIP-URL of the test system on SIP side
171                {
172                  scheme := c_telScheme,                //*  contains "tel"
173                  userInfo :=                   //*  optional
174                  {
175                        userOrTelephoneSubscriber := p_userprofile.publUsername,//*  charstring
176                        password := omit                //*  optional charstring
177                  },
178                  hostPort :=
179                  {
180                        host := omit,   //*  hostname, IPv4 or IPv6 as a charstring
181                        portField := omit       //* p_userprofile.currPort      //* optional integer
182                  },
183                  urlParameters := omit,
184                  headers := omit
185                }
186
187       
188                template SipUrl mw_TelSip_unavailableInvalidUri :=
189                {
190                                scheme  := (c_telScheme,c_sipScheme),
191                                userInfo := {userOrTelephoneSubscriber:="unavailable", password:=omit},
192                                hostPort := {host:="anonymous.invalid", portField:=c_defaultSipPort},
193                                urlParameters := omit,
194                                headers := omit
195                };             
196
197       
198                template SipUrl mw_TelSip_unavailableUri (charstring p_host):=
199                {
200                                scheme  := (c_telScheme,c_sipScheme),
201                                userInfo := {userOrTelephoneSubscriber:="unavailable", password:=omit},
202                                hostPort := {host:=p_host, portField:=c_defaultSipPort},
203                                urlParameters := omit,
204                                headers := omit
205                };             
206
207                template SipUrl mw_SipUrl_Number(charstring p_number) :=        //*  SIP-URL with a calling party number
208                {
209                  scheme := c_sipScheme,                //*  contains "sip"
210                  userInfo:= {userOrTelephoneSubscriber:=p_number, password:=*},
211                  hostPort := ?,
212                  urlParameters := *,
213                  headers := *
214                };
215
216                template SipUrl mw_TelSipUrl_Number(template charstring p_number) :=    //*  SIP-URL with a calling party number
217                {
218                                scheme := (c_telScheme,c_sipScheme), //*  contains "sip" or "tel"
219                                userInfo:= {userOrTelephoneSubscriber:=p_number, password:=*}, //*  nat or int format
220                                hostPort := ?,
221                                urlParameters := *,
222                                headers := *
223                };
224               
225                template SipUrl mw_SipUrl_Host(charstring p_host) :=    //*  SIP-URL with a calling party number
226                {
227                                scheme := c_sipScheme,                  //*  contains "sip"
228                                userInfo:= {userOrTelephoneSubscriber:=?, password:=*},
229                                hostPort := {host:=p_host, portField:=*},
230                                urlParameters := *,
231                                headers := *
232                };
233
234               
235          template SipUrl mw_SipUrl_NumberHost(charstring p_number, charstring p_host) :=       //*  SIP-URL with a calling party number
236          {
237            scheme := c_sipScheme,              //*  contains "sip"
238            userInfo:= {userOrTelephoneSubscriber:=p_number, password:=*},
239            hostPort := {host:=p_host, portField:=*},
240            urlParameters := *,
241            headers := *
242          };
243         
244                template SipUrl mw_SipUrl_NumberHostParam(charstring p_number, charstring p_host, template SemicolonParam_List p_urlParameters) :=      //*  SIP-URL with a calling party number
245                {
246                                scheme := c_sipScheme,                  //*  contains "sip"
247                                userInfo:= {userOrTelephoneSubscriber:=p_number, password:=*},
248                                hostPort := {host:=p_host, portField:=*},
249                                urlParameters := p_urlParameters,
250                                headers := *
251                };
252               
253                template SipUrl m_SipUrl_NumberHostParam(charstring p_number, charstring p_host, template SemicolonParam_List p_urlParameters) :=       //*  SIP-URL with a calling party number
254                {
255                                scheme := c_sipScheme,                  //*  contains "sip"
256                                userInfo:= {userOrTelephoneSubscriber:=p_number, password:=omit},
257                                hostPort := {host:=p_host, portField:=c_defaultSipPort},
258                                urlParameters := p_urlParameters,
259                                headers := omit
260                };
261               
262                template SipUrl mw_SipUrl_Anonymous :=          //*  SIP-URL with a calles party number
263                {
264                  scheme := c_sipScheme,                //*  contains "sip"
265                  userInfo :=                   //*  optional
266                  {
267                        userOrTelephoneSubscriber := "Anonymous",//*  charstring
268                        password := omit                //*  optional charstring
269                  },
270                  hostPort :=
271                  {
272                        host := "anonymous.invalid",    //*  hostname, IPv4 or IPv6 as a charstring
273                        portField := *  //* optional integer
274                  },
275                  urlParameters := *,
276                  headers := *
277                };
278
279                template SipUrl mw_SipUrl_urlParam(template SemicolonParam_List p_urlParameters) :=     //*  SIP-URL with a calling party number
280                {
281                                scheme := c_sipScheme,                  //*  contains "sip"
282                                userInfo:= *,
283                                hostPort := *,
284                                urlParameters := p_urlParameters,
285                                headers := *
286                };
287               
288                template ContactAddress mw_ContactAddress :=
289                {
290                  addressField  := ?,
291                  contactParams := *
292                };
293
294                template HostPort mw_hostPort(template charstring p_host, template integer p_portField) :=
295                {
296                  host  := p_host,
297                  portField := p_portField
298                };
299               
300                template StatusLine mw_statusLine1xx   := {sipVersion := c_sipNameVersion, statusCode := (100..199), reasonPhrase := ?};
301                template StatusLine mw_statusLine4xx   := {sipVersion := c_sipNameVersion, statusCode := (400..499), reasonPhrase := ?};
302                template StatusLine mw_statusLineFinal := {sipVersion := c_sipNameVersion, statusCode := (200..699), reasonPhrase := ?};
303
304                template NameAddr mw_NameAddr_DispName_User_Host(template charstring p_dn, template charstring p_user, template charstring p_host) :=
305                {
306                        displayName := p_dn,
307                        addrSpec :=
308                        {
309                                scheme := c_sipScheme,  //*  contains "sip"
310                                userInfo := {userOrTelephoneSubscriber :=p_user,        password := *},
311                                hostPort :=
312                                {
313                                        host := p_host,         //*  hostname, IPv4 or IPv6 as a charstring
314                                        portField := *  //* optional integer
315                                },
316                        urlParameters := {m_UserPhone},
317                        headers := *
318                        }
319                }
320               
321                template Addr_Union mw_AddrUnion_Nameaddr(template charstring p_dn, template charstring p_user, template charstring p_host):=
322                {
323                        nameAddr:=mw_NameAddr_DispName_User_Host(p_dn,p_user,p_host)
324                }
325               
326                template SipUrl mw_SipUrl_User_Host(template charstring p_user, template charstring p_host) :=
327                {
328                        scheme := c_sipScheme,  //*  contains "sip"
329                        userInfo := {userOrTelephoneSubscriber :=p_user,        password := *},
330                        hostPort :=
331                        {
332                                host := p_host,         //*  hostname, IPv4 or IPv6 as a charstring
333                                portField := *  //* optional integer
334                        },
335                        urlParameters := {m_UserPhone},
336                        headers := *
337                }
338                template Addr_Union mw_AddrUnion_SipUrl(template charstring p_user, template charstring p_host):=
339                {
340                        addrSpecUnion:=mw_SipUrl_User_Host(p_user,p_host)
341                }
342               
343
344        } //* end group Subfields
345
346
347
348
349
350        group HeaderFieldTemplates {
351                template Allow m_Allow (template Method_List p_methods) := {
352                        fieldName := ALLOW_E,
353                        methods := p_methods
354                }
355               
356                template Allow mw_Allow (charstring p_method) := {
357                        fieldName := ALLOW_E,
358                        methods := superset(p_method)
359                }
360
361                template GenericParam m_Cause (template charstring p_cause):=
362                        {id:="cause", paramValue:=p_cause}
363
364                template Authorization m_Authorization (template Credentials p_Credentials):=
365                {
366                  fieldName := AUTHORIZATION_E,
367                  body := {p_Credentials}
368                }
369               
370                template Authorization m_Authorization_digest (template CommaParam_List p_CommaParam_List):=
371                {
372                  fieldName := AUTHORIZATION_E,
373                  body := {{digestResponse := p_CommaParam_List}}
374                }
375
376                template Authorization m_add_Authorization_digest (in Authorization p_auth, template CommaParam_List p_CommaParam_List):=
377                {
378                  fieldName := AUTHORIZATION_E,
379                  body := {{digestResponse := f_merge_CommaParam_List(p_auth.body[0].digestResponse,valueof(p_CommaParam_List))}}
380                }
381
382                template Authorization m_Authorization_other :=
383                {
384                  fieldName := AUTHORIZATION_E,
385                  body := {{otherResponse := ?}}
386                }
387
388                template Contact m_Contact(template SipUrl p_sipUrl) :=
389                {
390                  fieldName := CONTACT_E,
391                  contactBody :=
392                  {
393                        contactAddresses :=
394                        {
395                          {
396                                addressField := { addrSpecUnion := p_sipUrl},
397                                contactParams := omit
398                          }
399                        }
400                  } //* end contactBody
401                }//* end m_Contact
402
403                template Contact m_Contact_profile(in SipUserProfile p_userprofile) :=
404                {
405                  fieldName := CONTACT_E,
406                  contactBody :=
407                  {
408                        contactAddresses :=
409                        {
410                          {
411                                addressField := { addrSpecUnion := m_SipUrl_contactIpaddr(p_userprofile)},
412                                contactParams := omit
413                          }
414                        }
415                  } //* end contactBody
416                }//* end m_Contact
417
418
419                template Contact m_Contact_profile_expires(in SipUserProfile p_userprofile, in charstring p_expires) :=
420                {
421                  fieldName := CONTACT_E,
422                  contactBody :=
423                  {
424                        contactAddresses :=
425                        {
426                          {
427                                addressField := { addrSpecUnion := m_SipUrl_contactIpaddr(p_userprofile)},
428                                contactParams := {{"expires",p_expires}}
429                          }
430                        }
431                  } //* end contactBody
432                }//* end m_Contact
433               
434                template From m_From(template NameAddr p_nameAddr, charstring p_tag_str) :=
435                {
436                  fieldName := FROM_E,
437                  addressField :=
438                  {nameAddr := p_nameAddr},//* end addressField
439                  fromParams := {{id := c_tagId, paramValue := p_tag_str}}
440                };
441               
442                template From m_From_Anonymous(charstring p_tag_str) :=
443                {
444                                fieldName := FROM_E,
445                                addressField :=
446                                {nameAddr := {
447                                                displayName := "Anonymous",                     //*  optional charstring
448                                                addrSpec := m_SipUrl_Anonymous          //*  SipUrl
449                                }},//* end addressField
450                                fromParams := {{id := c_tagId, paramValue := p_tag_str}}
451                };
452               
453                template From m_From_SipUrl(template SipUrl p_sipUrl) :=
454                {
455                                fieldName := FROM_E,
456                                addressField :=
457                                {nameAddr := {
458                                                displayName := omit,                            //*  optional charstring
459                                                addrSpec := p_sipUrl            //*  SipUrl
460                                }},//* end addressField
461                                fromParams := omit
462                };
463               
464                template Event m_Event_refer :=
465                {
466                        fieldName := EVENT_E,
467                        eventType := "refer",
468                        eventParams := omit
469                };
470
471                template Event m_Event_conference :=
472                {
473                        fieldName := EVENT_E,
474                        eventType := "conference",
475                        eventParams := omit
476                };
477
478                template Event m_Event_presence :=
479                {
480                        fieldName := EVENT_E,
481                        eventType := "presence",
482                        eventParams := omit
483                };
484
485                template Event m_Event_reg :=
486                {
487                        fieldName := EVENT_E,
488                        eventType := "reg",
489                        eventParams := omit
490                };
491
492                template Expires m_Expires_600000 :=
493                {
494                        fieldName := EXPIRES_E,
495                        deltaSec := "600000"
496                };
497
498                template Expires m_Expires (charstring p_deltaSec):=
499                {
500                        fieldName := EXPIRES_E,
501                        deltaSec := p_deltaSec
502                };
503
504
505                template PAssertedID m_PAssertedID(template Addr_Union p_pAssertedIDValue) :=
506                {
507                        fieldName := P_ASSERTED_ID_E,
508                        pAssertedIDValueList := {p_pAssertedIDValue}
509                };
510
511                template HistoryInfo mw_HistoryInfo(template HistoryInfo_List p_HistoryInfo_List) :=
512                {
513                        fieldName := HISTORY_INFO_E,
514                        historyInfoList := p_HistoryInfo_List
515                };
516
517                template HistoryInfoEntry mw_HistoryInfoEntry(template SipUrl p_Url, template IntegerList p_index, template SemicolonParam_List p_paramlist) :=
518                {
519                        nameAddr := {displayName:=*, addrSpec:= p_Url},
520                        hiIndex := p_index,
521                        hiExtention := p_paramlist
522                }
523               
524        template HistoryInfo m_HistoryInfo(template HistoryInfo_List p_HistoryInfo_List) :=
525        {
526                fieldName := HISTORY_INFO_E,
527                historyInfoList := p_HistoryInfo_List
528        };
529   
530        template HistoryInfoEntry m_HistoryInfoEntry(template SipUrl p_Url, template IntegerList p_index, template SemicolonParam_List p_paramlist) :=
531        {
532                nameAddr := {displayName:=omit, addrSpec:= p_Url},
533                hiIndex := p_index,
534                hiExtention := p_paramlist
535        }
536 
537                template PAssertedID m_PAssertedID_2x(template Addr_Union p_pAssertedIDValue1, template Addr_Union p_pAssertedIDValue2) :=
538                {
539                        fieldName := P_ASSERTED_ID_E,
540                        pAssertedIDValueList := {p_pAssertedIDValue1, p_pAssertedIDValue2}
541                };
542       
543                template PAssertedID mw_PAssertedID(template PAssertedIDValue p_pAssertedIDValue) :=
544                {
545                        fieldName := P_ASSERTED_ID_E,
546                        pAssertedIDValueList := {p_pAssertedIDValue}
547                };
548
549                template PAssertedIDValue mw_PAssertedIDValue(template SipUrl p_SipUrl) :=
550                {
551                        addrSpecUnion := p_SipUrl
552                };
553               
554                template PPreferredID m_PPreferredID(template Addr_Union p_pPreferredIDValue) :=
555                {
556                        fieldName := P_PREFERRED_ID_E,
557                        pPreferredIDValueList := {p_pPreferredIDValue}
558                };
559
560                template Privacy m_Privacy(PrivacyValue p_privacy) :=
561                {
562                        fieldName := PRIVACY_E,
563                        privValueList := {p_privacy}
564                };
565                               
566                template RAck m_RAck(integer p_responseNum, integer p_seqNumber, charstring p_method) :=
567                {
568                        fieldName := RACK_E,
569                        responseNum := p_responseNum,
570                        seqNumber := p_seqNumber,
571                        method  := p_method
572                };
573
574                template Reason m_Reason(integer p_cause) :=
575                {                 
576                        fieldName := REASON_E,
577                        reasonValues := {m_ReasonValue(int2str(p_cause),"dummy")}
578                };
579
580                template Reason m_Reason21 :=
581                {                 
582                        fieldName := REASON_E,
583                        reasonValues := {m_ReasonValue(int2str(21),"call reject")}
584                };
585
586                template RecordRoute m_recordRoute_currIpAddr (in SipUserProfile p_userprofile):=
587                {   
588                        fieldName := RECORD_ROUTE_E,
589                        routeBody := {{nameAddr := {displayName := omit,
590                                                                           addrSpec :=  {scheme := c_sipScheme,                         //*  contains "sip"
591                                                                                                        userInfo := omit,
592                                                                                                        hostPort := {host:=p_userprofile.currIpaddr, portField:= p_userprofile.currPort},
593                                                                                                        urlParameters := omit,
594                                                                                                        headers := omit}
595                                                                           },
596                                                  rrParam := omit}
597                }};
598       
599                template ReferredBy m_ReferredBy_SipUrl(template SipUrl p_sipUrl) :=
600                {
601                        fieldName := REFERRED_BY_E,
602                        nameAddr :={displayName := omit, addrSpec:=p_sipUrl},
603                        referredbyIdParams := omit
604                }
605
606                template ReferTo m_ReferTo_SipUrl(template SipUrl p_sipUrl, charstring p_method) :=
607                {
608                        fieldName := REFER_TO_E,
609                        nameAddr :={displayName := omit, addrSpec:=p_sipUrl},
610                        referToParams := {{id:="method",paramValue :=p_method}}
611                }
612
613                template Replaces m_Replaces(
614                        charstring p_callId,
615                        charstring p_toTag,
616                        charstring p_fromTag
617                ) := {
618                        fieldName := REPLACES_E,
619                        replacesParams := {
620                                {id := p_callId, paramValue := omit},
621                                {id := "to-tag", paramValue := p_toTag},
622                                {id := "from-tag", paramValue := p_fromTag}
623                        }
624                }
625
626                template Require m_Require_replaces :=
627                {                 
628                        fieldName := REQUIRE_E,
629                        optionsTags := {c_replaces}
630                };
631               
632                template Require m_Require_100rel :=
633                {                 
634                        fieldName := REQUIRE_E,
635                        optionsTags := {c_tag100rel}
636                };
637               
638                template Require m_Require_prec :=
639                {                 
640                        fieldName := REQUIRE_E,
641                        optionsTags := {c_tagPrecond}
642                };
643               
644        template Supported m_Supported_fromChange :=
645        {
646                fieldName:=SUPPORTED_E,
647                optionsTags:={c_tagFromChange}
648        }
649               
650                template Supported m_Supported_prec :=
651                {
652                        fieldName:=SUPPORTED_E,
653                        optionsTags:={c_tagPrecond}
654                }
655               
656                template Supported m_Supported_100rel :=
657                {
658                        fieldName:=SUPPORTED_E,
659                        optionsTags:={c_tag100rel}
660                }
661               
662                template Supported m_Supported_100rel_prec :=
663                {
664                        fieldName:=SUPPORTED_E,
665                        optionsTags:={c_tag100rel, c_tagPrecond}
666                }
667
668                template GenericParam m_Text (template charstring p_text):=
669                        {id:="text", paramValue:=p_text}
670               
671                template GenericParam m_UserPhone :=
672                {
673                        id := "user",
674                        paramValue := "phone"
675                }
676               
677                template GenericParam m_UserToUserEncodingHex :=
678        {
679          id := "encoding",
680          paramValue := "hex"
681        }
682       
683        template UserToUser m_UserToUserData(template charstring p_U2UData):=
684        {
685          fieldName := USER_TO_USER_E,
686          uuiData := p_U2UData,
687          uuiParam := m_UserToUserEncodingHex
688        }
689       
690                template To m_To(template SipUrl p_sipUrl) :=
691                {
692                  fieldName := TO_E,
693                  addressField :=
694                  {nameAddr := {
695                          displayName := "ETSI Tester", //*  optional charstring
696                          addrSpec :=   p_sipUrl                //*  SipUrl
697                        }},//* end addressField
698                  toParams := omit
699                };
700
701                template To m_To_SipUrl(SipUrl p_sipUrl) :=
702                {
703                  fieldName := TO_E,
704                  addressField :=
705                  {nameAddr := {
706                          displayName := omit,                          //*  optional charstring
707                          addrSpec := p_sipUrl          //*  SipUrl
708                        }},//* end addressField
709                  toParams := omit
710                };
711
712                template To mw_To_NameAddr_SipUrl(template charstring p_dn, template charstring p_user, template charstring p_host) :=
713                {
714                        fieldName := TO_E,
715                        addressField := (mw_AddrUnion_Nameaddr(p_dn,p_user,p_host),mw_AddrUnion_SipUrl(p_user,p_host)),
716                        toParams := *
717                }
718
719                template From mw_From(template SipUrl p_sipUrl) := {
720                  fieldName := FROM_E,
721                  addressField := { addrSpecUnion := p_sipUrl},
722                  fromParams:= *
723                }
724
725                template From mw_From_NameAddr_SipUrl(template charstring p_dn, template charstring p_user, template charstring p_host) :=
726                {
727                        fieldName := FROM_E,
728                        addressField := (mw_AddrUnion_Nameaddr(p_dn,p_user,p_host),mw_AddrUnion_SipUrl(p_user,p_host)),
729                        fromParams := *
730                }
731                template ViaBody m_ViaBody_currIpaddr(charstring branch_val,in SipUserProfile p_userprofile) :=
732                {
733                  sentProtocol := m_SentProtocol(PX_SIP_TRANSPORT),
734                  sentBy:={host:=p_userprofile.currIpaddr, portField:= p_userprofile.currPort},
735                  viaParams:={{id :=c_branchId,paramValue :=branch_val}}
736                }
737               
738                template ViaBody mw_ViaBody_interface(template HostPort p_hostport) :=
739                {
740                  sentProtocol := m_SentProtocol(PX_SIP_TRANSPORT),
741                  sentBy:={host:=p_hostport.host, portField:= p_hostport.portField},
742                  viaParams:=*
743                }
744
745                template Via mw_Via(template ViaBody p_viabody) :=
746                {
747                  fieldName := VIA_E,
748                  viaBody:= ? //*  superset(p_viabody)
749                }
750               
751                template CallId mw_CallId_any :=
752                {
753                  fieldName := CALL_ID_E,
754                  callid := ?
755                }
756
757                template Privacy mw_Privacy_id :=
758                {
759                        fieldName := PRIVACY_E,
760                        privValueList := {*,"id",*}
761                };
762               
763
764                template Privacy mw_Privacy_user :=
765                {
766                        fieldName := PRIVACY_E,
767                        privValueList := {*,"user",*}
768                };
769               
770                template Reason mw_Reason(integer p_cause) :=
771                {                 
772                        fieldName := REASON_E,
773                        reasonValues := {m_ReasonValue(int2str(p_cause),?)}
774                };
775               
776                template Require mw_Require_not_100rel :=
777                {                 
778                        fieldName := REQUIRE_E,
779                        optionsTags := superset(complement(c_tag100rel))
780                };
781               
782                template Require mw_require_100rel :=
783        {
784                fieldName := REQUIRE_E,
785                optionsTags := superset(c_tag100rel)
786        };
787
788                template RecordRoute mw_recordroute (template RouteBody p_routeBody):=
789                {   
790                        fieldName := RECORD_ROUTE_E,
791                        routeBody := ? //*  superset(p_routeBody)
792                };
793               
794                template Route mw_route (template RouteBody_List p_routeBody):=
795                {   
796                        fieldName := ROUTE_E,
797                        routeBody := p_routeBody
798                };
799               
800                template Supported mw_Supported_100rel_prec :=
801                {
802                        fieldName:=SUPPORTED_E,
803                        optionsTags:= superset(c_tag100rel, c_tagPrecond)
804                }
805               
806                template Supported mw_Supported_100rel :=
807                {
808                        fieldName:=SUPPORTED_E,
809                        optionsTags:= superset(c_tag100rel)
810                }
811
812                template Supported mw_Supported_fromChange :=
813                {
814                        fieldName:=SUPPORTED_E,
815                        optionsTags:= superset(c_tagFromChange)
816                }
817       
818                template UserToUser mw_UserToUserData(template charstring p_U2UData):=
819                {
820                        fieldName := USER_TO_USER_E,
821                        uuiData := p_U2UData,
822                        uuiParam := ?
823                }
824                               
825                template Contact mw_Contact_conference :=
826                {
827                  fieldName := CONTACT_E,
828                  contactBody :=
829                  {
830                        contactAddresses :=
831                        {
832                          {
833                                addressField := ?,//MRO
834                                contactParams := {{"isfocus",*}}
835                          }
836                        }
837                  }
838                }
839               
840                template AlertInfo m_AlertInfo(charstring p_urn) := {
841                        fieldName := ALERT_INFO_E,
842                        alertInfoBody := {{p_urn, omit}}
843                }
844               
845                template AlertInfo mw_AlertInfo(template charstring p_urn) := {
846                        fieldName := ALERT_INFO_E,
847                        alertInfoBody := superset({p_urn, omit})
848                }
849        } //*  end of group HeaderFieldTemplates
850
851
852group MessageTemplates {
853group dummy_templates {
854  group dummy_parameter_send {
855
856        template RequestLine m_requestLine_dummy(Method p_method) :=
857        {
858                method := p_method,
859                requestUri := c_empty_RequestUri,
860                sipVersion := c_sipNameVersion
861        }
862
863        template MessageHeader m_msgHeader_dummy :=
864        {
865                accept := omit,
866                acceptContact := omit,
867                acceptEncoding := omit,
868                acceptLanguage := omit,
869                alertInfo := omit,
870                allow := omit,
871                allowEvents := omit, //*  RFC3265
872                authenticationInfo := omit,
873                authorization := omit,
874                callId := c_empty_CallId,
875                callInfo := omit,
876                contact := omit,
877                contentDisposition := omit,
878                contentEncoding := omit,
879                contentLanguage := omit,
880                contentLength := {fieldName := CONTENT_LENGTH_E, len:=  0},
881                contentType := omit, //* if message body present m, else not present
882                cSeq := c_empty_cSeq,
883                date := omit,
884                errorInfo := omit,
885                event := omit, //*  RFC3265
886                expires := omit,
887                fromField := c_empty_From,
888                historyInfo := omit, //*  RFC4244
889                inReplyTo := omit,
890                maxForwards := c_maxForwards70,
891                mimeVersion := omit,
892                minExpires := omit,
893                minSE := omit, //*  RFC4028
894                organization := omit,
895                pAccessNetworkInfo := omit, //*  RFC3455
896                pAssertedID := omit,
897                pAssertedService := omit,
898                pAssociatedURI := omit,
899                path := omit, //*  RFC3327
900                pCalledPartyID := omit, //*  RFC3455
901                pChargingFunctionAddresses := omit, //*  RFC3455
902                pChargingVector := omit, //*  RFC3455
903                pEarlyMedia := omit, //*  RFC5009
904                pMediaAuthorization := omit, //*  RFC3313
905                pPreferredID := omit,
906                priority := omit,
907                privacy := omit,
908                proxyAuthenticate := omit,
909                proxyAuthorization := omit,
910                proxyRequire := omit,
911                pVisitedNetworkID := omit, //*  RFC3455
912                rAck := omit,
913                rSeq := omit,
914                reason := omit,
915                recordRoute := omit,
916                referredBy := omit, //*  RFC3892 - REFER method
917                referTo := omit, //*  RFC3515 - REFER method
918                replaces := omit, //* RFC3891
919                replyTo := omit,
920                require := omit,
921                retryAfter := omit,
922                route := omit,
923                securityClient := omit, //*  RFC3329
924                securityServer := omit, //*  RFC3329
925                securityVerify := omit, //*  RFC3329
926                server := omit,
927                serviceRoute := omit, //*  RFC3608
928                sessionExpires := omit, //*  RFC4028
929                subject := omit,
930                subscriptionState := omit, //*  RFC3265
931                supported := omit,
932                timestamp := omit,
933                toField := c_empty_To,
934                unsupported := omit,
935                userToUser := omit,
936                userAgent := omit,
937                via := c_empty_Via,
938                warning := omit,
939                wwwAuthenticate := omit,
940                undefinedHeader_List := omit
941        }
942  } //*  group dummy_parameter_send
943 
944  group dummy_parameter_receive {
945
946        template RequestLine mw_requestLine_dummy(Method p_method) :=
947        {
948                method := p_method,
949                requestUri := ?,
950                sipVersion := c_sipNameVersion
951        }
952
953        template MessageHeader mw_msgHeader_dummy :=
954        {
955                accept := *,
956                acceptContact := *,
957                acceptEncoding := *,
958                acceptLanguage := *,
959                alertInfo := *,
960                allow := *,
961                allowEvents := *, //*  RFC3265
962                authenticationInfo := *,
963                authorization := *,
964                callId := ?,
965                callInfo := *,
966                contact := *,
967                contentDisposition := *,
968                contentEncoding := *,
969                contentLanguage := *,
970                contentLength := ?,
971                contentType := *,
972                cSeq := ?,
973                date := *,
974                errorInfo := *,
975                event := *, //*  RFC3265
976                expires := *,
977                fromField := ?,
978                historyInfo := *, //*  RFC4244
979                inReplyTo := *,
980                maxForwards := ?,
981                mimeVersion := *,
982                minExpires := *,
983                minSE := *, //*  RFC4028
984                organization := *,
985                pAccessNetworkInfo := *, //*  RFC3455
986                pAssertedID := *,
987                pAssertedService := *,
988                pAssociatedURI := *,
989                path := *, //*  RFC3327
990                pCalledPartyID := *, //*  RFC3455
991                pChargingFunctionAddresses := *, //*  RFC3455
992                pChargingVector := *, //*  RFC3455
993                pEarlyMedia := *, //*  RFC5009
994                pMediaAuthorization := *, //*  RFC3313
995                pPreferredID := *,
996                priority := *,
997                privacy := *,
998                proxyAuthenticate := *,
999                proxyAuthorization := *,
1000                proxyRequire := *,
1001                pVisitedNetworkID := *, //*  RFC3455
1002                rAck := *,
1003                rSeq := *,
1004                reason := *,
1005                recordRoute := *,
1006                referredBy := *, //*  RFC3892 - REFER method
1007                referTo := *, //*  RFC3515 - REFER method
1008                replaces := *, //* RFC 3891
1009                replyTo := *,
1010                require := *,
1011                retryAfter := *,
1012                route := *,
1013                securityClient := *, //*  RFC3329
1014                securityServer := *, //*  RFC3329
1015                securityVerify := *, //*  RFC3329
1016                server := *,
1017                serviceRoute := *, //*  RFC3608
1018                sessionExpires := *, //*  RFC4028
1019                subject := *,
1020                subscriptionState := *, //*  RFC3265
1021                supported := *,
1022                timestamp := *,
1023                toField := ?,
1024                unsupported := *,
1025                userToUser := *,
1026                userAgent := *,
1027                via := ?,
1028                warning := *,
1029                wwwAuthenticate := *,
1030                undefinedHeader_List := *
1031        }
1032  }//* end group dummy_parameter_receive
1033 
1034  group dummy_request_templates_send {
1035
1036        template ACK_Request m_ACK_Dummy :=
1037        {
1038                requestLine     := m_requestLine_dummy(ACK_E),
1039                msgHeader := m_msgHeader_dummy,
1040                messageBody := omit,
1041                payload := omit
1042        }
1043
1044        template BYE_Request m_BYE_Dummy :=
1045        {
1046                requestLine     := m_requestLine_dummy(BYE_E),
1047                msgHeader := m_msgHeader_dummy,
1048                messageBody := omit,
1049                payload := omit
1050        }
1051
1052        template CANCEL_Request m_CANCEL_Dummy :=
1053        {
1054                requestLine     := m_requestLine_dummy(CANCEL_E),
1055                msgHeader := m_msgHeader_dummy,
1056                messageBody := omit,
1057                payload := omit
1058        }
1059
1060        template INFO_Request m_INFO_Dummy :=
1061        {
1062                requestLine     := m_requestLine_dummy(INFO_E),
1063                msgHeader := m_msgHeader_dummy,
1064                messageBody := omit,
1065                payload := omit
1066        }
1067
1068        template INVITE_Request m_INVITE_Dummy :=
1069        {
1070                requestLine     := m_requestLine_dummy(INVITE_E),
1071                msgHeader := m_msgHeader_dummy,
1072                messageBody := omit,
1073                payload := omit
1074        }
1075
1076        template MESSAGE_Request m_MESSAGE_Dummy :=
1077        {
1078                requestLine     := m_requestLine_dummy(MESSAGE_E),
1079                msgHeader := m_msgHeader_dummy,
1080                messageBody := omit,
1081                payload := omit
1082        }
1083
1084        template NOTIFY_Request m_NOTIFY_Dummy :=
1085        {
1086                requestLine     := m_requestLine_dummy(NOTIFY_E),
1087                msgHeader := m_msgHeader_dummy,
1088                messageBody := omit,
1089                payload := omit
1090        }
1091
1092        template PRACK_Request m_PRACK_Dummy :=
1093        {
1094                requestLine     := m_requestLine_dummy(PRACK_E),
1095                msgHeader := m_msgHeader_dummy,
1096                messageBody := omit,
1097                payload := omit
1098        }
1099
1100        template PUBLISH_Request m_PUBLISH_Dummy :=
1101        {
1102                requestLine     := m_requestLine_dummy(PUBLISH_E),
1103                msgHeader := m_msgHeader_dummy,
1104                messageBody := omit,
1105                payload := omit
1106        }
1107
1108        template REGISTER_Request m_REGISTER_Dummy :=
1109        {
1110                requestLine     := m_requestLine_dummy(REGISTER_E),
1111                msgHeader := m_msgHeader_dummy,
1112                messageBody := omit,
1113                payload := omit
1114        }
1115
1116        template REFER_Request m_REFER_Dummy :=
1117        {
1118                requestLine     := m_requestLine_dummy(REFER_E),
1119                msgHeader := m_msgHeader_dummy,
1120                messageBody := omit,
1121                payload := omit
1122        }
1123
1124        template SUBSCRIBE_Request m_SUBSCRIBE_Dummy :=
1125        {
1126                requestLine     := m_requestLine_dummy(SUBSCRIBE_E),
1127                msgHeader := m_msgHeader_dummy,
1128                messageBody := omit,
1129                payload := omit
1130        }
1131
1132        template UPDATE_Request m_UPDATE_Dummy :=
1133        {
1134                requestLine     := m_requestLine_dummy(UPDATE_E),
1135                msgHeader := m_msgHeader_dummy,
1136                messageBody := omit,
1137                payload := omit
1138        }
1139  }//* end group dummy_request_templates_send
1140  group dummy_request_templates_receive{
1141
1142        template ACK_Request mw_ACK_Dummy :=
1143        {
1144                requestLine     := mw_requestLine_dummy(ACK_E),
1145                msgHeader := mw_msgHeader_dummy,
1146                messageBody := *,
1147                payload := *
1148        }
1149
1150        template BYE_Request mw_BYE_Dummy :=
1151        {
1152                requestLine     := mw_requestLine_dummy(BYE_E),
1153                msgHeader := mw_msgHeader_dummy,
1154                messageBody := *,
1155                payload := *
1156        }
1157
1158        template CANCEL_Request mw_CANCEL_Dummy :=
1159        {
1160                requestLine     := mw_requestLine_dummy(CANCEL_E),
1161                msgHeader := mw_msgHeader_dummy,
1162                messageBody := *,
1163                payload := *
1164        }
1165
1166        template INFO_Request mw_INFO_Dummy :=
1167        {
1168                requestLine     := mw_requestLine_dummy(INFO_E),
1169                msgHeader := mw_msgHeader_dummy,
1170                messageBody := *,
1171                payload := *
1172        }
1173
1174        template INVITE_Request mw_INVITE_Dummy :=
1175        {
1176                requestLine     := mw_requestLine_dummy(INVITE_E),
1177                msgHeader := mw_msgHeader_dummy,
1178                messageBody := *,
1179                payload := *
1180        }
1181
1182        template MESSAGE_Request mw_MESSAGE_Dummy :=
1183        {
1184                requestLine     := mw_requestLine_dummy(MESSAGE_E),
1185                msgHeader := mw_msgHeader_dummy,
1186                messageBody := *,
1187                payload := *
1188        }
1189
1190        template NOTIFY_Request mw_NOTIFY_Dummy :=
1191        {
1192                requestLine     := mw_requestLine_dummy(NOTIFY_E),
1193                msgHeader := mw_msgHeader_dummy,
1194                messageBody := *,
1195                payload := *
1196        }
1197
1198        template PRACK_Request mw_PRACK_Dummy :=
1199        {
1200                requestLine     := mw_requestLine_dummy(PRACK_E),
1201                msgHeader := mw_msgHeader_dummy,
1202                messageBody := *,
1203                payload := *
1204        }
1205
1206        template PUBLISH_Request mw_PUBLISH_Dummy :=
1207        {
1208                requestLine     := mw_requestLine_dummy(PUBLISH_E),
1209                msgHeader := mw_msgHeader_dummy,
1210                messageBody := *,
1211                payload := *
1212        }
1213
1214        template REFER_Request mw_REFER_Dummy :=
1215        {
1216                requestLine     := mw_requestLine_dummy(REFER_E),
1217                msgHeader := mw_msgHeader_dummy,
1218                messageBody := *,
1219                payload := *
1220        }
1221
1222        template REGISTER_Request mw_REGISTER_Dummy :=
1223        {
1224                requestLine     := mw_requestLine_dummy(REGISTER_E),
1225                msgHeader := mw_msgHeader_dummy,
1226                messageBody := *,
1227                payload := *
1228        }
1229
1230        template SUBSCRIBE_Request mw_SUBSCRIBE_Dummy :=
1231        {
1232                requestLine     := mw_requestLine_dummy(SUBSCRIBE_E),
1233                msgHeader := mw_msgHeader_dummy,
1234                messageBody := *,
1235                payload := *
1236        }
1237
1238        template UPDATE_Request mw_UPDATE_Dummy :=
1239        {
1240                requestLine     := mw_requestLine_dummy(UPDATE_E),
1241                msgHeader := mw_msgHeader_dummy,
1242                messageBody := *,
1243                payload := *
1244        }
1245  }//* end group dummy_request_templates_receive
1246 
1247  group dummy_response_templates_send{
1248       
1249        template Response m_Response_Dummy :=
1250        {
1251                statusLine      := c_statusLine100,
1252                msgHeader := m_msgHeader_dummy,
1253                messageBody := omit,
1254                payload := omit
1255        }
1256  } //*  group dummy_response_templates_send
1257 
1258  group dummy_response_templates_receive{
1259        template Response mw_Response_Dummy :=
1260        {
1261                statusLine      := ?,
1262                msgHeader := mw_msgHeader_dummy,
1263                messageBody := *,
1264                payload := *
1265        }
1266  } //*  group dummy_response_templates_receive
1267}
1268
1269group base_templates{
1270       
1271        group request_send {
1272               
1273               
1274                template ACK_Request m_ACK_Request_Base (SipUrl p_requestUri, CallId p_callId, CSeq p_cSeq,
1275                        From p_from, To p_to, Via p_via) modifies m_ACK_Dummy :=
1276                {
1277                        requestLine     :=
1278                        {
1279                                requestUri := p_requestUri
1280                        },
1281                        msgHeader :=
1282                        {
1283                                callId := p_callId,
1284                                cSeq := {fieldName:=CSEQ_E, seqNumber:= p_cSeq.seqNumber, method:= "ACK"},
1285                                fromField := p_from,
1286                                toField := p_to,
1287                                via := p_via
1288                        }
1289                }
1290               
1291                template BYE_Request m_BYE_Request_Base (SipUrl p_requestUri, CallId p_callId, CSeq p_cSeq, From p_from, To p_to,
1292                        Via p_via) modifies m_BYE_Dummy :=
1293                {       
1294                        requestLine     :=
1295                        {
1296                                requestUri :=
1297                                {
1298                                        hostPort:= p_requestUri.hostPort
1299                                }
1300                        },
1301                        msgHeader :=
1302                        {
1303                                callId := p_callId,
1304                                cSeq := p_cSeq,
1305                                fromField := p_from,
1306                                toField := p_to,
1307                                via := p_via
1308                        }
1309                }
1310               
1311                template CANCEL_Request m_CANCEL_Request_Base (SipUrl p_requestUri, CallId p_callId, CSeq p_cSeq, From p_from, To p_to,
1312                        Via p_via) modifies m_CANCEL_Dummy :=
1313                {
1314                        requestLine     :=
1315                        {
1316                                requestUri :=
1317                                        {
1318                                                hostPort:= p_requestUri.hostPort
1319                                        }
1320                        },
1321                        msgHeader :=
1322                        {
1323                                callId := p_callId,
1324                                cSeq := p_cSeq,
1325                                fromField := p_from,
1326                                toField := p_to,
1327                                via := p_via
1328                        }
1329                }
1330               
1331                template INFO_Request m_INFO_Request_Base (SipUrl p_requestUri, CallId p_callId, CSeq p_cSeq, From p_from, To p_to,
1332                        Via p_via) modifies m_INFO_Dummy :=
1333                {       
1334                        requestLine     :=
1335                        {
1336                                requestUri :=
1337                                {
1338                                        hostPort:= p_requestUri.hostPort
1339                                }
1340                        },
1341                        msgHeader :=
1342                        {
1343                                callId := p_callId,
1344                                cSeq := p_cSeq,
1345                                fromField := p_from,
1346                                toField := p_to,
1347                                via := p_via
1348                        }
1349                }
1350               
1351                template INVITE_Request m_INVITE_Request_Base (SipUrl p_requestUri, CallId p_callId, CSeq p_cSeq,
1352                         From p_from, To p_to, Via p_via, Contact p_contact) modifies m_INVITE_Dummy :=
1353                {
1354                        requestLine     :=
1355                        {
1356                                requestUri := p_requestUri
1357                        },
1358                        msgHeader :=
1359                        {
1360                                callId := p_callId,
1361                                contact := p_contact,
1362                                cSeq := p_cSeq,
1363                                fromField := p_from,
1364                                toField := p_to,
1365                                via := p_via
1366                        }
1367                }
1368
1369                template MESSAGE_Request m_MESSAGE_Request_Base (SipUrl p_requestUri, CallId p_callId, CSeq p_cSeq, From p_from, To p_to, Via p_via) modifies m_MESSAGE_Dummy :=
1370                {
1371                        requestLine     :=
1372                        {
1373                                requestUri := p_requestUri
1374                        },
1375                        msgHeader :=
1376                        {
1377                                callId := p_callId,
1378                                cSeq := p_cSeq,
1379                                fromField := p_from,
1380                                toField := p_to,
1381                                via := p_via
1382                        }
1383                }
1384
1385                template NOTIFY_Request m_NOTIFY_Request_Base (SipUrl p_requestUri, CallId p_callId, CSeq p_cSeq,
1386                  From p_from, To p_to, Via p_via) modifies m_NOTIFY_Dummy :=
1387                {
1388                        requestLine     :=
1389                        {
1390                                requestUri :=
1391                                {
1392                                        hostPort:= p_requestUri.hostPort
1393                                }
1394                        },
1395                        msgHeader :=
1396                        {
1397                                callId := p_callId,
1398                                //* contentLength       := {fieldName := CONTENT_LENGTH_E, len:= f_MessageBodyLength(valueof(p_mb))},
1399                                //* contentType := {fieldName := CONTENT_TYPE_E, mediaType :=  c_sdpAplication},
1400                                cSeq :=  {fieldName:=CSEQ_E, seqNumber:= p_cSeq.seqNumber, method:= "NOTIFY"},
1401                                fromField := p_from,
1402                                toField := p_to,
1403                                via := p_via
1404                        }//* ,
1405                        //* messageBody := p_mb
1406                }
1407               
1408                template PRACK_Request m_PRACK_Request_Base (SipUrl p_requestUri, CallId p_callId, CSeq p_cSeq,
1409                  From p_from, To p_to, Via p_via, RAck p_RAck)
1410                  modifies m_PRACK_Dummy :=
1411                {
1412                        requestLine     :=
1413                        {
1414                                requestUri :=
1415                                {
1416                                        hostPort:= p_requestUri.hostPort
1417                                }
1418                        },
1419                        msgHeader :=
1420                        {
1421                                callId := p_callId,
1422                                cSeq := {fieldName:=CSEQ_E, seqNumber:= p_cSeq.seqNumber, method:= "PRACK"},
1423                                fromField := p_from,
1424                                rAck := p_RAck,
1425                                toField := p_to,
1426                                via := p_via
1427                        },
1428                        messageBody := omit
1429                }
1430               
1431                //* in reality PUBLISH request contain xml in content
1432                template PUBLISH_Request m_PUBLISH_Request_Base (SipUrl p_requestUri, CallId p_callId, CSeq p_cSeq,
1433                  From p_from, To p_to, Via p_via, template Event p_event, template RAck p_RAck, template MessageBody p_mb)
1434                  modifies m_PUBLISH_Dummy :=
1435                {
1436                        requestLine     :=
1437                        {
1438                                requestUri :=
1439                                {
1440                                        hostPort:= p_requestUri.hostPort
1441                                }
1442                        },
1443                        msgHeader :=
1444                        {
1445                                callId := p_callId,
1446                                contentLength   := {fieldName := CONTENT_LENGTH_E, len:= f_MessageBodyLength(valueof(p_mb))},
1447                                contentType := {fieldName := CONTENT_TYPE_E, mediaType :=  c_sdpAplication},
1448                                cSeq := {fieldName:=CSEQ_E, seqNumber:= p_cSeq.seqNumber, method:= "PUBLISH"},
1449                                event := p_event,
1450                                fromField := p_from,
1451                                toField := p_to,
1452                                via := p_via
1453                        },
1454                        messageBody := p_mb
1455                }
1456
1457                template REFER_Request m_REFER_Request_Base (SipUrl p_requestUri, CallId p_callId, CSeq p_cSeq, Contact p_contact,
1458                        From p_from, template To p_to, Via p_via, template ReferTo p_referTo, template ReferredBy p_referredBy)
1459                        modifies m_REFER_Dummy :=
1460                {
1461                        requestLine     :=
1462                        {
1463                                requestUri := p_requestUri
1464                        },
1465                        msgHeader :=
1466                        {
1467                                callId          := p_callId,
1468                                contact := p_contact,
1469                                cSeq            := {fieldName:=CSEQ_E, seqNumber:= p_cSeq.seqNumber, method:= "REFER"},
1470                                fromField       := p_from,
1471                                referTo := p_referTo,
1472                                referredBy := p_referredBy,
1473                                toField         := p_to,
1474                                via             := p_via
1475                        }
1476                }
1477               
1478                template REFER_Request m_REFER_Request_replaces (
1479                        SipUrl p_requestUri,
1480                        CallId p_callId,
1481                        CSeq p_cSeq,
1482                        Contact p_contact,
1483                        From p_from,
1484                        template To p_to,
1485                        Via p_via,
1486                        template ReferTo p_referTo,
1487                        template ReferredBy p_referredBy,
1488                        template Replaces p_replaces,
1489                        template Require p_require
1490                ) modifies m_REFER_Request_Base := {
1491                        msgHeader :=
1492                        {
1493                                replaces := p_replaces,
1494                                require := p_require
1495                        }
1496                }
1497               
1498                template REGISTER_Request m_REGISTER_Request_Base (SipUrl p_requestUri, CallId p_callId, CSeq p_cSeq,
1499                        From p_from, To p_to, Via p_via, Contact p_contact, template Authorization p_authorization) modifies m_REGISTER_Dummy :=
1500                {
1501                        requestLine     :=
1502                        {
1503                                requestUri := p_requestUri
1504                        },
1505                        msgHeader :=
1506                        {
1507                                authorization := p_authorization,
1508                                callId := p_callId,
1509                                contact := p_contact,
1510                                cSeq            := p_cSeq,
1511                                fromField       := p_from,
1512                                toField         := p_to,
1513                                via             := p_via
1514
1515                        }
1516                }
1517
1518                template SUBSCRIBE_Request m_SUBSCRIBE_Request_Base (SipUrl p_requestUri, CallId p_callId,
1519                        CSeq p_cSeq, From p_from, To p_to, Via p_via)  modifies m_SUBSCRIBE_Dummy :=
1520                {
1521                        requestLine     :=
1522                        {
1523                                requestUri :=
1524                                {
1525                                        hostPort:= p_requestUri.hostPort
1526                                }
1527                        },
1528                        msgHeader :=
1529                        {
1530                                callId          := p_callId,
1531                                cSeq            := {fieldName:=CSEQ_E, seqNumber:= p_cSeq.seqNumber, method:= "SUBSCRIBE"},
1532                                fromField       := p_from,
1533                                toField         := p_to,
1534                                via             := p_via
1535                        }
1536                }
1537
1538                template UPDATE_Request m_UPDATE_Request_Base (SipUrl p_requestUri, CallId p_callId, CSeq p_cSeq,
1539                  From p_from, To p_to, Via p_via, Contact p_contact, template MessageBody p_mb) modifies m_UPDATE_Dummy :=
1540                {
1541                        requestLine     :=
1542                        {
1543                                requestUri :=
1544                                {
1545                                        hostPort:= p_requestUri.hostPort
1546                                }
1547                        },
1548                        msgHeader :=
1549                        {
1550                                callId          := p_callId,
1551                                contact         := p_contact,
1552                                contentLength   := {fieldName := CONTENT_LENGTH_E, len:= f_MessageBodyLength(valueof(p_mb))},
1553                                contentType := {fieldName := CONTENT_TYPE_E, mediaType :=  c_sdpAplication},
1554                                cSeq            := {fieldName:=CSEQ_E, seqNumber:= p_cSeq.seqNumber, method:= "UPDATE"},
1555                                fromField       := p_from,
1556                                toField         := p_to,
1557                                via             := p_via
1558                         },
1559                        messageBody := p_mb
1560                }
1561                 
1562        } //*  end of group message_send
1563
1564        group request_receive {
1565               
1566                template ACK_Request mw_ACK_Request_Base (template CallId p_callId) modifies mw_ACK_Dummy :=
1567                {
1568                        msgHeader :=
1569                        {
1570                                callId          := p_callId
1571                        }
1572                }
1573               
1574                template BYE_Request mw_BYE_Request_Base(template CallId p_callId) modifies mw_BYE_Dummy :=
1575                  {
1576                        msgHeader :=
1577                        {
1578                                callId := p_callId
1579                        }
1580                }
1581               
1582                template CANCEL_Request mw_CANCEL_Request_Base (template CallId p_callId) modifies mw_CANCEL_Dummy :=
1583                {
1584                        msgHeader :=
1585                        {
1586                                callId := p_callId
1587                        }
1588                }
1589 
1590                template INFO_Request mw_INFO_Request_Base(template CallId p_callId) modifies mw_INFO_Dummy :=
1591                {
1592                        msgHeader :=
1593                        {
1594                                callId := p_callId
1595                        }
1596                }
1597
1598                template INVITE_Request mw_INVITE_Request_Base modifies mw_INVITE_Dummy :=
1599                {
1600                        requestLine     :=
1601                        {
1602                                method := INVITE_E
1603                        }
1604                }
1605
1606                template MESSAGE_Request mw_MESSAGE_Request_Base(template CallId p_callId) modifies mw_MESSAGE_Dummy :=
1607                {
1608                        msgHeader :=
1609                        {
1610                                callId := p_callId,
1611                                contact := omit
1612                        }
1613                }
1614
1615                template NOTIFY_Request mw_NOTIFY_Request_Base (template CallId p_callId) modifies mw_NOTIFY_Dummy :=
1616                {
1617                        msgHeader :=
1618                        {
1619                                callId := p_callId
1620                        }
1621                }
1622               
1623                template PRACK_Request mw_PRACK_Request_Base(template CallId p_callId) modifies mw_PRACK_Dummy :=
1624                {
1625                        msgHeader :=
1626                        {
1627                                callId := p_callId
1628                        }
1629                }
1630               
1631                template PUBLISH_Request mw_PUBLISH_Request_Base(template CallId p_callId) modifies mw_PUBLISH_Dummy :=
1632                {
1633                        msgHeader :=
1634                        {
1635                                callId := p_callId
1636                        }
1637                }
1638
1639                template REFER_Request mw_REFER_Request_Base (CallId p_callId) modifies mw_REFER_Dummy :=
1640                {
1641                        msgHeader :=
1642                        {
1643                                callId := p_callId
1644                        }
1645                }
1646               
1647                template REFER_Request
1648                mw_REFER_Request(CallId p_callId, SipUrl p_requestUri,
1649                                                 SipUrl p_referredBy)
1650                modifies mw_REFER_Request_Base := {
1651                        requestLine := {requestUri := p_requestUri},
1652                        msgHeader := {
1653                                callId := p_callId,
1654                                referredBy := {
1655                                        fieldName := REFERRED_BY_E,
1656                                        nameAddr := {displayName := *, addrSpec := p_referredBy},
1657                                        referredbyIdParams := *
1658                                }
1659                        }
1660                }
1661       
1662                template INVITE_Request mw_INVITE_Request(template Require p_require,
1663                                                 SipUrl p_referredBy) modifies mw_INVITE_Request_Base := {
1664                        msgHeader := {
1665                                require := p_require,
1666                                referredBy := {
1667                                        fieldName := REFERRED_BY_E,
1668                                        nameAddr := {displayName := *, addrSpec := p_referredBy},
1669                                        referredbyIdParams := *
1670                                }
1671                        }
1672                }
1673               
1674                template REGISTER_Request mw_REGISTER_Request_Base modifies mw_REGISTER_Dummy :=
1675                {
1676                        requestLine     :=
1677                        {
1678                                method := REGISTER_E
1679                        }
1680                }
1681
1682                template SUBSCRIBE_Request mw_SUBSCRIBE_Request_Base modifies mw_SUBSCRIBE_Dummy :=
1683                {
1684                        requestLine     :=
1685                        {
1686                                method := SUBSCRIBE_E
1687                        }
1688                }
1689
1690                template UPDATE_Request mw_UPDATE_Request_Base(template CallId p_callId) modifies mw_UPDATE_Dummy :=
1691                {
1692                        msgHeader :=
1693                        {
1694                                callId := p_callId
1695                        }
1696                }
1697
1698        } //*  end group request_receive
1699       
1700        group response_send {
1701
1702                template Response m_Response_Base (StatusLine p_statusLine, CallId p_callId, CSeq p_cSeq,
1703                  From p_from, To p_to, Via p_via) modifies m_Response_Dummy:=
1704                {
1705                        statusLine := p_statusLine,
1706                        msgHeader :=
1707                        {
1708                                callId          := p_callId,
1709                                cSeq            := p_cSeq,
1710                                fromField       := p_from,
1711                                maxForwards := omit,
1712                                toField         := p_to,
1713                                via             := p_via
1714                        },
1715                        messageBody := omit,
1716                        payload                 := omit
1717                }
1718
1719       
1720
1721        } //*  end group response_send
1722
1723        group response_receive {
1724
1725                template Response mw_Response_Base (template StatusLine p_statusLine, template CallId p_callId,
1726                        template CSeq p_cSeq) modifies mw_Response_Dummy:=
1727                {
1728                        statusLine := {sipVersion := c_sipNameVersion, statusCode := p_statusLine.statusCode, reasonPhrase := ?},
1729                        msgHeader :=
1730                        {
1731                          callId                := p_callId,
1732                          contentLength := *,
1733                          cSeq          := p_cSeq,
1734                          fromField     := ?,
1735                          maxForwards := *,
1736                          toField               := ?,
1737                          via           := ?
1738                  }
1739                }
1740        } //*  end group message_receive
1741
1742} //*  end group full_templates
1743
1744group modified_templates {
1745       
1746group request_send {
1747       
1748        template ACK_Request m_ACK_Request_route (SipUrl p_requestUri, CallId p_callId, CSeq p_cSeq,
1749        From p_from, To p_to, Via p_via, Route p_route)
1750          modifies m_ACK_Request_Base
1751          :=
1752          {
1753                msgHeader :=
1754                {
1755                  route         := p_route
1756                }
1757          }
1758
1759        template ACK_Request m_ACK_Request_sdp (SipUrl p_requestUri, CallId p_callId, CSeq p_cSeq,
1760        From p_from, To p_to, Via p_via,template MessageBody p_mb )
1761          modifies m_ACK_Request_Base
1762          :=
1763          {
1764                msgHeader :=
1765                {
1766                        contentLength   := {fieldName := CONTENT_LENGTH_E, len:= f_MessageBodyLength(valueof(p_mb))},
1767                        contentType := {fieldName := CONTENT_TYPE_E, mediaType :=  c_sdpAplication}
1768                },
1769                messageBody := p_mb
1770          }
1771         
1772        template BYE_Request m_BYE_Request_cause
1773          (SipUrl p_requestUri, CallId p_callId, CSeq p_cSeq, From p_from, To p_to, Via p_via, integer p_cause)
1774          modifies m_BYE_Request_Base
1775          :=
1776          {
1777                msgHeader :=
1778                {
1779                          reason := m_Reason(p_cause) //*  PIXIT value
1780                }
1781          }
1782       
1783        template INVITE_Request m_INVITE_Request_sdp
1784        (SipUrl p_requestUri, CallId p_callId, CSeq p_cSeq, From p_from, To p_to,
1785          Via p_via, Contact p_contact, template MessageBody p_mb)
1786        modifies m_INVITE_Request_Base
1787        :=
1788        {
1789          msgHeader :=
1790          {
1791                contentLength   := {fieldName := CONTENT_LENGTH_E, len:= f_MessageBodyLength(valueof(p_mb))},
1792                contentType := {fieldName := CONTENT_TYPE_E, mediaType :=  c_sdpAplication}
1793          },
1794          messageBody := p_mb
1795        }
1796       
1797        template INVITE_Request m_INVITE_Request_ResourceList
1798        (SipUrl p_requestUri, CallId p_callId, CSeq p_cSeq, From p_from, To p_to,
1799          Via p_via, Contact p_contact, template MessageBody p_mb)
1800        modifies m_INVITE_Request_Base
1801        :=
1802        {
1803          msgHeader :=
1804          {
1805                contentLength   := {fieldName := CONTENT_LENGTH_E, len:= f_MessageBodyLength(valueof(p_mb))},
1806                contentType := {fieldName := CONTENT_TYPE_E, mediaType :=  "application/resource-lists+xml"},
1807                contentDisposition := {
1808                        fieldName := CONTENT_DISPOSITION_E,
1809                        dispositionType := "recipient-list",
1810                        dispositionParams := omit
1811                },
1812                require := {
1813                        fieldName := REQUIRE_E,
1814                        optionsTags := {"recipient-list-invite"}
1815                }
1816          },
1817          messageBody := p_mb
1818        }       
1819
1820        template REGISTER_Request m_REGISTER_Request_expires
1821          (SipUrl p_requestUri, CallId p_callId, CSeq p_cSeq,
1822          From p_from, To p_to, Via p_via, Contact p_contact,
1823          template Authorization p_authorization, charstring p_expires)
1824          modifies  m_REGISTER_Request_Base
1825          :=
1826          {
1827                msgHeader :=
1828                {
1829                        authorization := p_authorization,
1830                    expires := {
1831                        fieldName := EXPIRES_E,
1832                        deltaSec  := p_expires }
1833                }
1834          }
1835         
1836          template NOTIFY_Request m_NOTIFY_Request_sipfrag (
1837                SipUrl p_requestUri,
1838                CallId p_callId,
1839                CSeq p_cSeq,
1840                From p_from,
1841                To p_to,
1842                Via p_via,
1843                charstring p_state,
1844                charstring p_sipfrag
1845        ) modifies m_NOTIFY_Request_Base := {
1846                        requestLine     :=
1847                        {
1848                                method := NOTIFY_E,
1849                                requestUri :=
1850                                {
1851                                        hostPort:= p_requestUri.hostPort
1852                                }
1853                        },
1854                        msgHeader :=
1855                        {
1856                                contentLength   := {fieldName := CONTENT_LENGTH_E, len:= lengthof(p_sipfrag)},
1857                                contentType := {fieldName := CONTENT_TYPE_E, mediaType :=  "message/sipfrag"},
1858                                subscriptionState := {
1859                                        fieldName := SUBSCRIPTION_STATE_E,
1860                                subState := p_state,
1861                                substateParams := omit 
1862                                },
1863                                event := m_Event_refer
1864                        },
1865                        messageBody := {
1866                                sipfrag :=      p_sipfrag
1867                        }
1868                }
1869
1870} //*  end group request_send   
1871
1872
1873group request_receive {
1874               
1875        template BYE_Request mw_BYE_Request_Reason(template CallId p_callId, integer p_cause) modifies mw_BYE_Request_Base :=
1876        {
1877                msgHeader :=
1878                {
1879                        reason := mw_Reason(p_cause)
1880                }
1881        }
1882
1883        template BYE_Request mw_BYE_Request_UserToUser(template CallId p_callId) modifies mw_BYE_Request_Base :=
1884        {
1885                msgHeader :=
1886                {
1887                        userToUser := ?
1888                }
1889        }
1890
1891
1892        template INVITE_Request mw_INVITE_Request_RequestURI (template SipUrl p_sipUrl) modifies mw_INVITE_Dummy :=
1893        {
1894                requestLine     :=
1895                {
1896                        requestUri := p_sipUrl,
1897                        sipVersion := c_sipNameVersion
1898                }
1899        }
1900
1901    template INFO_Request mw_INFO_Request_MB (template CallId p_callId, template MessageBody p_mb) modifies mw_INFO_Request_Base :=
1902    {
1903     messageBody := p_mb
1904    }
1905
1906        template INVITE_Request mw_INVITE_Request_expires modifies  mw_INVITE_Request_Base
1907          :=
1908          {
1909                msgHeader := {expires := ?}
1910          }
1911         
1912        template INVITE_Request mw_INVITE_Request_callid(CallId p_callid) modifies  mw_INVITE_Request_Base
1913          :=
1914          {
1915                msgHeader := {callId := p_callid}
1916          }
1917       
1918        template INVITE_Request mw_INVITE_Request_MB (template CallId p_callId, template MessageBody p_mb) modifies mw_INVITE_Request_Base :=
1919        {
1920                msgHeader := {callId := p_callId},
1921                messageBody := p_mb
1922        }
1923
1924        template INVITE_Request mw_INVITE_Request_noPaccessNetworkInfo  (template CallId p_callId)
1925                modifies mw_INVITE_Request_Base
1926                :=
1927                {
1928                  msgHeader := {  pAccessNetworkInfo := omit}
1929                }
1930        template INVITE_Request mw_INVITE_Request_PaccessNetworkInfo    (template CallId p_callId)
1931                modifies mw_INVITE_Request_Base
1932                :=
1933                {
1934                  msgHeader := {  pAccessNetworkInfo := ?}
1935                }
1936
1937        template REGISTER_Request mw_REGISTER_Request_ISC (template  PAccessNetworkInfo p_access , template  PVisitedNetworkID p_visited )modifies mw_REGISTER_Request_Base :=
1938        {
1939          msgHeader := { 
1940                  pAccessNetworkInfo := p_access,
1941                  pVisitedNetworkID  := p_visited
1942                  }
1943
1944        }
1945               
1946        template UPDATE_Request mw_UPDATE_Request_SDP(template CallId p_callId, template MessageBody p_mb) modifies mw_UPDATE_Dummy :=
1947        {
1948                messageBody := p_mb
1949        }
1950       
1951    template NOTIFY_Request mw_NOTIFY_Request_MB (template CallId p_callId, template MessageBody p_mb) modifies mw_NOTIFY_Request_Base :=
1952    {
1953                messageBody := p_mb
1954    }
1955
1956} //*  end group request_receive       
1957
1958group response_send {
1959       
1960        template Response m_Response_AlertInfo (
1961                StatusLine p_statusLine,
1962                CallId p_callId,
1963                CSeq p_cSeq,
1964                From p_from,
1965                To p_to,
1966                Via p_via,
1967                AlertInfo p_alertInfo
1968        ) modifies m_Response_Base:= {
1969                msgHeader := {
1970                        alertInfo := p_alertInfo
1971                }
1972        }
1973
1974        template Response m_Response_ext (StatusLine p_statusLine, CallId p_callId, CSeq p_cSeq,
1975          From p_from, To p_to, Via p_via, template Route p_route, template RecordRoute p_recordroute) modifies m_Response_Base:=
1976        {
1977                msgHeader :={
1978                        route           := p_route, //f_route(),
1979                        recordRoute := p_recordroute //f_recordroute()
1980                        }
1981        }
1982                       
1983        template Response m_Response_mbody (StatusLine p_statusLine, CallId p_callId, CSeq p_cSeq,
1984          From p_from, To p_to, Via p_via,  template Route p_route, template RecordRoute p_recordroute, MessageBody p_mb) modifies m_Response_ext:=
1985        {
1986                msgHeader :=
1987                         {
1988                           contentLength        := {fieldName := CONTENT_LENGTH_E, len:= f_MessageBodyLength(valueof(p_mb))},
1989                           contentType := {fieldName := CONTENT_TYPE_E, mediaType :=  c_sdpAplication}
1990                         },
1991                messageBody := p_mb
1992        }
1993                       
1994        template Response m_Response_PAsserted_Privacy (StatusLine p_statusLine, CallId p_callId, CSeq p_cSeq,
1995                        From p_from, To p_to, Via p_via,  template Route p_route, template RecordRoute p_recordroute, template PAssertedID p_pAssertedID, template Privacy p_privacy) modifies m_Response_ext:=
1996        {
1997                msgHeader :=
1998                                {
1999                                                pAssertedID := p_pAssertedID,
2000                                                privacy := p_privacy
2001                                }
2002        }
2003       
2004        template Response mw_Response_PAsserted_Privacy_Supported (template StatusLine p_statusLine, template CallId p_callId,
2005                template CSeq p_cSeq, template PAssertedID p_pAssertedID, template Privacy p_privacy, template Supported p_supported) modifies mw_Response_Base:=
2006        {
2007                statusLine := {sipVersion := c_sipNameVersion, statusCode := p_statusLine.statusCode, reasonPhrase := ?},
2008                msgHeader :=
2009                {
2010                        pAssertedID := p_pAssertedID,
2011                        privacy := p_privacy,
2012                        supported := p_supported
2013                }
2014        }
2015                       
2016        template Response m_Response_PAsserted_Privacy_mbody (StatusLine p_statusLine, CallId p_callId, CSeq p_cSeq,
2017                        From p_from, To p_to, Via p_via,  template Route p_route, template RecordRoute p_recordroute, template PAssertedID p_pAssertedID, template Privacy p_privacy, MessageBody p_mb) modifies m_Response_ext:=
2018        {
2019                msgHeader :=
2020                                {
2021                                                contentLength   := {fieldName := CONTENT_LENGTH_E, len:= f_MessageBodyLength(valueof(p_mb))},
2022                                                contentType := {fieldName := CONTENT_TYPE_E, mediaType :=  c_sdpAplication},
2023                                                pAssertedID := p_pAssertedID,
2024                                                privacy := p_privacy
2025                                },
2026                                messageBody := p_mb
2027        }
2028
2029} //*  end group response_send 
2030
2031
2032group response_receive {
2033
2034        template Response mw_Response_Expires (template StatusLine p_statusLine, template CallId p_callId,
2035                template CSeq p_cSeq, template DeltaSec p_deltaSec) modifies mw_Response_Base:=
2036        {
2037                statusLine := {sipVersion := c_sipNameVersion, statusCode := p_statusLine.statusCode, reasonPhrase := ?},
2038                msgHeader :=
2039                {
2040                        expires := {fieldName := EXPIRES_E, deltaSec := p_deltaSec}
2041          }
2042        }
2043
2044        template Response mw_Response_PAsserted_Privacy (template StatusLine p_statusLine, template CallId p_callId,
2045                template CSeq p_cSeq, template PAssertedID p_pAssertedID, template Privacy p_privacy) modifies mw_Response_Base:=
2046        {
2047                statusLine := {sipVersion := c_sipNameVersion, statusCode := p_statusLine.statusCode, reasonPhrase := ?},
2048                msgHeader :=
2049                {
2050                        pAssertedID := p_pAssertedID,
2051                        privacy := p_privacy
2052                }
2053        }
2054
2055        template Response mw_Response_Reason (template StatusLine p_statusLine, template CallId p_callId,
2056                template CSeq p_cSeq, integer p_cause) modifies mw_Response_Base:=
2057        {
2058                statusLine := {sipVersion := c_sipNameVersion, statusCode := p_statusLine.statusCode, reasonPhrase := ?},
2059                msgHeader :=
2060                {
2061                        reason := mw_Reason(p_cause)
2062                        }
2063        }
2064
2065        template Response mw_Response_RecordRoute (template StatusLine p_statusLine, template CallId p_callId,
2066                template CSeq p_cSeq, template RecordRoute p_recordRoute) modifies mw_Response_Base:=
2067        {
2068                statusLine := {sipVersion := c_sipNameVersion, statusCode := p_statusLine.statusCode, reasonPhrase := ?},
2069                msgHeader :=
2070                {
2071                        recordRoute := p_recordRoute
2072          }
2073        }
2074
2075        template Response mw_Response_Via (template StatusLine p_statusLine, template CallId p_callId,
2076                template CSeq p_cSeq, template Via p_via) modifies mw_Response_Base:=
2077        {
2078                statusLine := {sipVersion := c_sipNameVersion, statusCode := p_statusLine.statusCode, reasonPhrase := ?},
2079                msgHeader :=
2080                {
2081                        via := p_via
2082          }
2083        }
2084       
2085        template Response mw_Response_Contact (template StatusLine p_statusLine, template CallId p_callId,
2086                template CSeq p_cSeq, template Contact p_contact) modifies mw_Response_Base:=
2087        {
2088                statusLine := {sipVersion := c_sipNameVersion, statusCode := p_statusLine.statusCode, reasonPhrase := ?},
2089                msgHeader :=
2090                {
2091                        contact := p_contact
2092          }
2093        }
2094       
2095        template Response mw_Response_AlertInfo (
2096                template StatusLine p_statusLine,
2097                template CallId p_callId,
2098                template CSeq p_cSeq,
2099                template AlertInfo p_alertInfo
2100        ) modifies mw_Response_Base:= {
2101                statusLine := {
2102                        sipVersion := c_sipNameVersion,
2103                        statusCode := p_statusLine.statusCode,
2104                        reasonPhrase := ?
2105                },
2106                msgHeader :=
2107                {
2108                        alertInfo := p_alertInfo
2109          }
2110        }
2111       
2112        template Response mw_Response_HistoryInfo (template StatusLine p_statusLine, template CallId p_callId,
2113                        template CSeq p_cSeq, template HistoryInfo p_historyInfo) modifies mw_Response_Base:=
2114                {
2115                        statusLine := {sipVersion := c_sipNameVersion, statusCode := p_statusLine.statusCode, reasonPhrase := ?},
2116                        msgHeader :=
2117                        {
2118                                historyInfo:=p_historyInfo
2119                                }
2120                }
2121       
2122        template Response mw_Response_messageBody (
2123                template StatusLine p_statusLine,
2124                template CallId p_callId,
2125                template CSeq p_cSeq,
2126                template Require p_require,
2127                template MessageBody p_mb
2128        ) modifies mw_Response_Base:= {
2129                statusLine := {sipVersion := c_sipNameVersion, statusCode := p_statusLine.statusCode, reasonPhrase := ?},
2130                msgHeader :=
2131                {
2132                        require := p_require
2133            },
2134            messageBody := p_mb
2135        }
2136       
2137        template Response mw_Response_Require (template StatusLine p_statusLine, template CallId p_callId,
2138                template CSeq p_cSeq, template Require p_require) modifies mw_Response_Base:=
2139        {
2140                statusLine := {sipVersion := c_sipNameVersion, statusCode := p_statusLine.statusCode, reasonPhrase := ?},
2141                msgHeader :=
2142                {
2143                        require := p_require
2144          }
2145        }
2146       
2147        template Response mw_Response_Require_ifpresent (template StatusLine p_statusLine, template CallId p_callId,
2148        template CSeq p_cSeq, template Require p_require) modifies mw_Response_Base:=
2149        {
2150                statusLine := {sipVersion := c_sipNameVersion, statusCode := p_statusLine.statusCode, reasonPhrase := ?},
2151                msgHeader :=
2152                {
2153                        require := p_require ifpresent
2154          }
2155        }
2156       
2157     template Response mw_Response_Supported (template StatusLine p_statusLine, template CallId p_callId,
2158      template CSeq p_cSeq, template Supported p_supported) modifies mw_Response_Base:=
2159     {
2160      statusLine := {sipVersion := c_sipNameVersion, statusCode := p_statusLine.statusCode, reasonPhrase := ?},
2161      msgHeader :=
2162      {
2163       supported := p_supported
2164       }
2165     }
2166     
2167     template Response mw_Response_UserToUser (template StatusLine p_statusLine, template CallId p_callId,
2168      template CSeq p_cSeq) modifies mw_Response_Base:=
2169     {
2170     statusLine := {sipVersion := c_sipNameVersion, statusCode := p_statusLine.statusCode, reasonPhrase := ?},
2171     msgHeader :=
2172     {
2173        userToUser := ?
2174       }
2175     }
2176} //*  end group response_receive       
2177
2178       
2179} //*  end group modified_templates     
2180
2181} //*  end group MessageTemplates
2182
2183group SDP_Templates {
2184       
2185        group SDP_Messages {
2186
2187        group base_templates {
2188       
2189        template SDP_Message m_SDP(SDP_media_desc p_media, in SipUserProfile p_userprofile) := {
2190                protocol_version := 0, //*  v=0
2191                origin := {
2192                        user_name := "voicesession",
2193                        session_id := "30000",
2194                        session_version := "0",
2195                        net_type := c_in,
2196                        addr_type := c_ip4,
2197                        addr := p_userprofile.contactIpaddr },
2198                //*  o=voicesession 12345 12345 IN IP4 172.27.1.219
2199                session_name := "Voice Session", //*  s=Voice Session
2200                information := omit,
2201                uri := omit,
2202                emails := omit,
2203                phone_numbers := omit,
2204                connection := {
2205                        net_type := c_in,
2206                        addr_type := c_ip4,
2207                        conn_addr := { addr:= p_userprofile.bearerIpaddr, ttl:=omit, num_of_addr:=omit }
2208                }, //* c=IN IP4 172.27.1.219
2209                bandwidth := omit,
2210                times := { { time_field := { "0", "0" }, time_repeat:=omit
2211                        }
2212                }, //*  t=0 0
2213                timezone_adjustments := omit,
2214                key := omit,
2215                attributes := omit,
2216                media_list := {p_media}
2217        };
2218       
2219        template SDP_Message m_SDP_mediaList(SDP_media_desc_list p_media_list, in SipUserProfile p_userprofile)
2220        := {
2221                        protocol_version := 0, //*  v=0
2222                        origin := {
2223                                user_name := "voicesession",
2224                                session_id := "30000",
2225                                session_version := "0",
2226                                net_type := c_in,
2227                                addr_type := c_ip4,
2228                                addr := p_userprofile.contactIpaddr },
2229                        //*  o=voicesession 12345 12345 IN IP4 172.27.1.219
2230                        session_name := "Voice Session", //*  s=Voice Session
2231                        information := omit,
2232                        uri := omit,
2233                        emails := omit,
2234                        phone_numbers := omit,
2235                        connection := {
2236                                net_type := c_in,
2237                                addr_type := c_ip4,
2238                                conn_addr := { addr:= p_userprofile.bearerIpaddr, ttl:=omit, num_of_addr:=omit }
2239                        }, //* c=IN IP4 172.27.1.219
2240                        bandwidth := omit,
2241                        times := { { time_field := { "0", "0" }, time_repeat:=omit
2242                                }
2243                        }, //*  t=0 0
2244                        timezone_adjustments := omit,
2245                        key := omit,
2246                        attributes := omit,
2247                        media_list := p_media_list
2248                };
2249
2250                template SDP_Message m_SDP_media_attr_preconditions(SDP_media_desc p_media, in SipUserProfile p_userprofile, SDP_attribute_list p_attribute_list)
2251                modifies m_SDP
2252                := {
2253                        media_list := {
2254                                {
2255                                        media_field := {
2256                                                media := c_audio,
2257                                                ports := { port_number := 8500, num_of_ports:=omit },
2258                                                transport := c_rtpAvp,
2259                                                fmts := { "0" }
2260                                        }, //* m=audio 8500 RTP/AVP 0                           
2261                                        information := omit,
2262                                        connections := omit,
2263                                        bandwidth := omit,
2264                                        key := omit,                                           
2265                                        attributes := p_attribute_list
2266                                }}
2267                        }
2268       
2269                template SDP_Message m_SDP_attribute(SDP_media_desc p_media, in SipUserProfile p_userprofile, SDP_attribute loc_attribute)
2270                modifies m_SDP
2271                := {
2272                        attributes := {loc_attribute}
2273                };
2274
2275                        template SDP_Message mw_SDP := {
2276                                protocol_version := 0, //*  v=0
2277                                origin := ?,
2278                                session_name := ?,
2279                                information := omit,
2280                                uri := omit,
2281                                emails := omit,
2282                                phone_numbers := omit,
2283                                connection := ?,
2284                                bandwidth := omit,
2285                                times := { { time_field := { "0", "0" }, time_repeat:=omit
2286                                        }
2287                                }, //*  t=0 0
2288                                timezone_adjustments := omit,
2289                                key := omit,
2290                                attributes := omit,
2291                                media_list := ?
2292                        };
2293               
2294               
2295        }//* end group base_templates
2296
2297        group modified_templates{
2298        template SDP_Message m_SDP_bandwidth(SDP_media_desc p_media, in SipUserProfile p_userprofile)
2299        modifies m_SDP
2300        := {
2301                bandwidth := {{PX_SIP_SDP_b_modifier, PX_SIP_SDP_b_bandwidth}}
2302        };
2303   
2304        template SDP_Message m_SDP_unacceptable(SDP_media_desc p_media, in SipUserProfile p_userprofile)
2305        modifies m_SDP
2306        := {
2307                protocol_version := 1, //*  v=1 unacceptable version of SDP
2308                bandwidth := {{PX_SIP_SDP_b_modifier, PX_SIP_SDP_b_bandwidth}}
2309        };
2310       
2311        template SDP_Message m_SDP_encrypted(SDP_media_desc p_media, in SipUserProfile p_userprofile)
2312                modifies m_SDP
2313                := {
2314                        protocol_version := 1, //*  v=1 unacceptable version of SDP
2315                        bandwidth := {{PX_SIP_SDP_b_modifier, PX_SIP_SDP_b_bandwidth}}
2316                };
2317    }//* end group modified_templates
2318                       
2319        } //*  end group        SDP_Messages   
2320               
2321        group SDP_Fields {
2322
2323                template SDP_media_desc m_media(template SDP_media_field p_mf) := {
2324                                media_field := p_mf,
2325                                information := omit,
2326                                connections := omit,
2327                                bandwidth := omit,
2328                                key := omit,                                           
2329                                attributes := omit
2330                };
2331               
2332                template SDP_media_desc m_mediaFieldBandwdthAttributes(template SDP_media_field p_mf, template SDP_bandwidth p_bw, template SDP_attribute_list p_attributes) := {
2333                                media_field := p_mf,
2334                                information := omit,
2335                                connections := omit,
2336                                bandwidth := p_bw,
2337                                key := omit,                                           
2338                                attributes := p_attributes
2339                };
2340               
2341                template SDP_media_desc m_media_dynPT(charstring p_PT, charstring p_encod) := {
2342                                media_field := {
2343                                        media := c_audio,//* "audio",
2344                                        ports := { port_number := 8500, num_of_ports:=omit },
2345                                        transport := c_rtpAvp,//* "RTP/AVP",
2346                                        fmts := { p_PT }
2347                                }, //* m=audio 8500 RTP/AVP 8
2348                                information := omit,
2349                                connections := omit,
2350                                bandwidth := omit,
2351                                key := omit,                                           
2352                                attributes := { { rtpmap := { attr_value := p_PT & " " & p_encod }
2353                                                                }
2354                                                          } //* a=rtpmap:8 PCMA/8000
2355                };
2356       
2357                template SDP_media_desc m_media_unsupported := {
2358                                media_field := {
2359                                        media := "video",
2360                                        ports := { port_number := 11500, num_of_ports:=omit },
2361                                        transport := "RTP/AVP",
2362                                        fmts := { "99" }
2363                                }, //* m=audio 8500 RTP/AVP 0
2364                                information := omit,
2365                                connections := omit,
2366                                bandwidth := omit,
2367                                key := omit,                                           
2368                                attributes := { {
2369                                        rtpmap := { attr_value := "99 X-Experimental/180000"}
2370                                }}
2371                };
2372
2373                template SDP_bandwidth m_bandwidth(template charstring loc_m, template integer loc_b) := {
2374                        modifier:=loc_m,
2375                        bandwidth:=loc_b
2376                };
2377
2378                template SDP_bandwidth m_bandwidth_as_64:=
2379                {
2380                                        modifier:="AS",
2381                                        bandwidth:=64
2382                }
2383               
2384                template SDP_bandwidth mw_bandwidth_rs:=
2385                {
2386                                        modifier:="RS",
2387                                        bandwidth:=?
2388                }
2389               
2390                template SDP_bandwidth mw_bandwidth_rr:=
2391                {
2392                                        modifier:="RR",
2393                                        bandwidth:=?
2394                }
2395
2396                template SDP_media_field m_media_field(charstring p_media, integer p_portNum, charstring p_transport, charstring p_fmts) :=
2397                {
2398                        media := p_media,
2399                        ports := { port_number := p_portNum, num_of_ports:=omit },
2400                        transport := p_transport,
2401                        fmts := { p_fmts }
2402                }               
2403
2404        template SDP_media_field mw_media_PCMU :=
2405        {
2406                        media := c_audio,
2407                        ports := { port_number := ?, num_of_ports:=* },
2408                        transport := c_rtpAvp,
2409                        fmts := { "0" }
2410        }
2411
2412                template SDP_media_field mw_media_PCMA :=
2413                {
2414                        media := c_audio,
2415                        ports := { port_number := 8500, num_of_ports:=omit },
2416                        transport := c_rtpAvp,
2417                        fmts := { "8" }
2418                }
2419               
2420                template SDP_media_field mw_media_PCMA_U_DPT :=
2421                {
2422                        media := c_audio,
2423                        ports := { port_number := ?, num_of_ports:=* },
2424                        transport := c_rtpAvp,
2425                        fmts := { * }
2426                }
2427               
2428                template SDP_media_field mw_media_T38 :=
2429                {
2430                        media := c_image,
2431                        ports := { port_number := ?, num_of_ports:=* },
2432                        transport := pattern "*ptl", //* udptl,tcptl
2433                        fmts := { "t38" }
2434                }
2435
2436                template SDP_media_field mw_media_G722 :=
2437                {
2438                        media := c_audio,
2439                        ports := { port_number := ?, num_of_ports:=* },
2440                        transport := "RTP/AVP",
2441                        fmts := { "9" }
2442                }
2443
2444                template SDP_media_field mw_media_AMR_DPT :=
2445                {
2446                        media := c_audio,
2447                        ports := { port_number := ?, num_of_ports:=* },
2448                        transport := c_rtpAvp,
2449                        fmts := { * }
2450                }
2451               
2452
2453                template SDP_attribute m_attribute_sendonly      := {sendonly:={}};
2454                template SDP_attribute mw_attribute_sendonly     := {sendonly:={}};//MRO
2455                template SDP_attribute m_attribute_recvonly      := {recvonly:={}};
2456                template SDP_attribute mw_attribute_recvonly     := {recvonly:={}};//MRO
2457                template SDP_attribute m_attribute_sendrecv      := {sendrecv:={}};
2458                template SDP_attribute mw_attribute_sendrecv     := {sendrecv:={}};//MRO
2459                template SDP_attribute m_attribute_inactive      := {inactive:={}};
2460                template SDP_attribute mw_attribute_inactive     := {inactive:={}};//MRO
2461                template SDP_attribute mw_attribute_sendonly_inactive := (mw_attribute_sendonly,mw_attribute_inactive);
2462                template SDP_attribute mw_attribute_sendrecv_recvonly_omit := (mw_attribute_sendrecv,mw_attribute_recvonly,omit);
2463                template SDP_attribute m_attribute_AMR_DPT       := { rtpmap := { attr_value := /*pattern "**/PX_SIP_SDP_dyn & " AMR" }};
2464                template SDP_attribute m_attribute_CLEARMODE_DPT         := {rtpmap := { attr_value := /*pattern "**/PX_SIP_SDP_dyn & " CLEARMODE/8000" }};
2465                template SDP_attribute m_attribute_G722  := { rtpmap := { attr_value := "9 G722/8000" }};
2466                template SDP_attribute m_attribute_PCMU  := { rtpmap := { attr_value := "0 PCMU/8000" }};
2467                template SDP_attribute m_attribute_PCMU_DPT      := { rtpmap := { attr_value := /*pattern "**/PX_SIP_SDP_dyn & " PCMU/8000" }};
2468                template SDP_attribute m_attribute_PCMA  := { rtpmap := { attr_value := "8 PCMA/8000" }};
2469                template SDP_attribute m_attribute_PCMA_DPT      := { rtpmap := { attr_value := /*pattern "**/PX_SIP_SDP_dyn & " PCMA/8000" }};
2470                template SDP_attribute m_attribute_T38   := { unknown := { name:=?, attr_value := pattern "*t38*" }};
2471               
2472                template SDP_attribute m_attribute_curr (charstring p_preconditionType, charstring p_statusType, charstring p_direction):=
2473                {
2474                        curr:={preconditionType := p_preconditionType,
2475                        statusType := p_statusType,
2476                        direction := p_direction}
2477                };
2478               
2479                template SDP_attribute mw_attribute_curr :=
2480                {
2481                        curr := ?
2482                };
2483               
2484                template SDP_attribute m_attribute_des (charstring p_preconditionType, charstring p_strength, charstring p_statusType, charstring p_direction):=
2485                {
2486                        des:={preconditionType := p_preconditionType,
2487                        strength := p_strength,
2488                        statusType := p_statusType,
2489                        direction := p_direction}
2490                };
2491               
2492                template SDP_attribute mw_attribute_des :=
2493                {
2494                        des := ?
2495                };
2496               
2497                template SDP_attribute m_attribute_conf (charstring p_preconditionType, charstring p_statusType, charstring p_direction):=
2498                {
2499                        conf:={preconditionType := p_preconditionType,
2500                        statusType := p_statusType,
2501                        direction := p_direction}
2502                };             
2503        } //*  end group SDP_Fields     
2504
2505} //*  end group SDP_Templates
2506
2507group MessageBodies {
2508       
2509        template MessageBody m_MBody_SDP(template SDP_Message p_SDP):=
2510        {
2511                sdpMessageBody := p_SDP
2512        };
2513       
2514        template MessageBody m_MBody_XML(template XmlBody p_xmlBody):=
2515        {
2516                xmlBody := p_xmlBody
2517        };
2518       
2519        template MessageBody m_MBody_longPlainText:=
2520        {
2521                textplain :=  c_longMessageContent_1300Bytes
2522        };
2523
2524        template MessageBody m_mBody_plainText(charstring p_plaitext):=
2525        {
2526                textplain :=  p_plaitext
2527        };
2528       
2529        template MessageBody m_MBody_sipfrag(charstring p_sipfrag) := {
2530                sipfrag := p_sipfrag   
2531        }
2532       
2533        template MessageBody m_MBody_MIMESdpXml(template SDP_Message p_sdp, template XmlBody p_xmlBody):=
2534        {
2535                mimeMessageBody := {boundary:="PX_SIP_MIME_Boundary",
2536                        mimeEncapsulatedList:= {
2537                        {content_type:="PX_SIP_SDP_ContentType",
2538                                content_disposition:=omit,
2539                                mime_encapsulated_part:={sdpMessageBody := p_sdp}},
2540                        {content_type:="PX_SIP_ISUP_ContentType",
2541                                content_disposition:=omit,
2542                                mime_encapsulated_part:={xmlBody := p_xmlBody}}
2543                        }
2544                }
2545        }
2546       
2547        template MessageBody mw_MBody_SDP(template SDP_Message p_SDP):=
2548        {
2549                sdpMessageBody := p_SDP
2550        };
2551       
2552        template MessageBody mw_MBody_XML(template XmlBody p_xmlBody):=
2553        {
2554                xmlBody := p_xmlBody
2555        };
2556       
2557        template MessageBody mw_MBody_MIMESdpXml(template SDP_Message p_sdp, template XmlBody p_xmlBody):=
2558        {
2559                mimeMessageBody := {boundary:=?,
2560                        mimeEncapsulatedList:= {
2561                        {content_type:=?,
2562                                content_disposition:=*,
2563                                mime_encapsulated_part:={sdpMessageBody := p_sdp}},
2564                        {content_type:=?,
2565                                content_disposition:=*,
2566                                mime_encapsulated_part:={xmlBody := p_xmlBody}}
2567                        }
2568                }
2569        }
2570       
2571        template MessageBody mw_MBody_MIME_Ims3gpp(
2572                template charstring p_disposition,
2573                template Ims_3gpp p_ims3gpp
2574        ):= {
2575                mimeMessageBody := {boundary:=?,
2576                        mimeEncapsulatedList:= {
2577                        *,
2578                        {       
2579                                content_type:= c_ims3gppAplication,
2580                                content_disposition:= p_disposition,
2581                                mime_encapsulated_part :={
2582                                        xmlBody := {
2583                                                ims3gpp :=      p_ims3gpp
2584                                        }
2585                                }
2586                        },
2587                        *
2588                        }
2589                }
2590        }
2591       
2592        template MessageBody mw_MBody_MIME_Ims3gppCW(
2593                template charstring p_disposition,
2594                template Ims_3gpp p_ims3gpp
2595        ):= {
2596                mimeMessageBody := {boundary:=?,
2597                        mimeEncapsulatedList:= {
2598                                                        *,
2599                                                        {       
2600                                                                content_type:= c_ims3gppCwApplication,
2601                                                                content_disposition:= p_disposition,
2602                                                                mime_encapsulated_part :={
2603                                                                        xmlBody := {
2604                                                                                ims3gpp :=      p_ims3gpp
2605                                                                        }
2606                                                                }
2607                                                        },
2608                                                        *
2609                        }
2610                }
2611        }       
2612       
2613}
2614/*
2615 *
2616 * @desc group TemplatePreparationFunctions contain functions which are used for templates
2617 */
2618group TemplatePreparationFunctions {
2619
2620  group MessageBody_Calculation{
2621       
2622        /**
2623        *
2624        * @desc Calculation of Message Body length
2625        * @param p_mb_par contain message body part
2626        * @return message body length
2627        */
2628        function f_MessageBodyLength(MessageBody p_mb_par) return integer {
2629
2630                var integer v_result:=0;
2631                if (MB_LENGTH_FROM_ENCVAL){ //by default it is set to true
2632                       
2633            v_result:= lengthof(encvalue(p_mb_par))/8; // length in bypes, let get length of encoded value
2634                }
2635                else{
2636       
2637            //  assume SDP_Message ONLY in the message body
2638                if (ischosen(p_mb_par.sdpMessageBody))
2639                {
2640                        v_result := f_SDPlength(p_mb_par.sdpMessageBody);
2641                };
2642   
2643            //  assume XML_Body ONLY in the message body
2644                if (ischosen(p_mb_par.xmlBody))
2645                {
2646                        v_result := f_XMLBody_Length(p_mb_par.xmlBody, USE_FX_FOR_XML_LENGTH );
2647                };
2648               
2649            //assume XML_Message ONLY in the message body
2650            if (ischosen(p_mb_par.xmlMessage))
2651            {
2652                v_result := f_XMLlength(p_mb_par.xmlMessage, USE_FX_FOR_XML_LENGTH );
2653            };
2654   
2655                //  assume MIME_Message in the message body
2656                if (ischosen(p_mb_par.mimeMessageBody))
2657                {
2658                        v_result := f_MIMElength(p_mb_par.mimeMessageBody);
2659                };
2660               
2661            //assume sipfrag in the message body
2662            if (ischosen(p_mb_par.sipfrag))
2663            {
2664                v_result := f_TextPlainLength(p_mb_par); //same function due to same type with textplain
2665            };
2666           
2667            //assume textplain in the message body
2668            if (ischosen(p_mb_par.textplain))
2669            {
2670                v_result := f_TextPlainLength(p_mb_par);
2671            };
2672                }
2673
2674          return v_result
2675        }
2676       
2677       
2678  group SDP_Len_calculation {   
2679        /**
2680         *
2681         * @desc Calculation of SDP length
2682         * @param p_mb contain sdp message
2683         * @return sdp_lenght
2684         */
2685        function f_SDPlength(SDP_Message p_mb) return integer
2686        {
2687          var integer v_result:=2; //*  due to empty line beginning of message body
2688          var charstring v_auxstring;
2689               
2690          v_result := 2+c_CRlen + lengthof(int2str(p_mb.protocol_version)); //*  "v="
2691          v_result := v_result + 2+c_CRlen + lengthof(p_mb.origin.user_name & " " &
2692                                                                  p_mb.origin.session_id & " " &
2693                                                                  p_mb.origin.session_version & " " &
2694                                                                  p_mb.origin.net_type & " " &
2695                                                                  p_mb.origin.addr_type & " " &
2696                                                                  p_mb.origin.addr           
2697                                                                  ); //*  "o="
2698          v_result := v_result + 2+c_CRlen + lengthof(p_mb.session_name); //*  "s="
2699          if (ispresent(p_mb.information))
2700                {v_auxstring:=p_mb.information; v_result := v_result + 2+c_CRlen + lengthof(v_auxstring);}; //*  "i= "
2701          if (ispresent(p_mb.uri))
2702                {v_auxstring:=p_mb.uri; v_result := v_result + 2+c_CRlen + lengthof(v_auxstring);}; //*  "u="
2703                       
2704          if (ispresent(p_mb.emails)) {
2705                for (var integer i:=0; i<sizeof(p_mb.emails); i:=i+1)
2706                {v_result := v_result + 2+c_CRlen + lengthof(p_mb.emails[i].addr_or_phone); //*  "e="
2707                if (ispresent(p_mb.emails[i].disp_name))
2708                  {v_auxstring:=p_mb.emails[i].disp_name; v_result := v_result + 1 + lengthof(v_auxstring);};
2709                };
2710          };
2711                       
2712          if (ispresent(p_mb.phone_numbers)) {
2713                for (var integer i:=0; i<sizeof(p_mb.phone_numbers); i:=i+1)
2714                  {v_result := v_result + 2+c_CRlen + lengthof(p_mb.phone_numbers[i].addr_or_phone); //*  "p= "
2715                  if (ispresent(p_mb.phone_numbers[i].disp_name))
2716                        {v_auxstring:=p_mb.phone_numbers[i].disp_name; v_result := v_result + 1 + lengthof(v_auxstring);};
2717                };
2718          };
2719                   
2720          if (ispresent(p_mb.connection))
2721          {
2722                var integer v_len_con0 := f_SDPlength_connection(p_mb.connection);
2723                v_result := v_result + v_len_con0;
2724          }; //*  "c="
2725                       
2726          if (ispresent(p_mb.bandwidth))   
2727          {
2728                for (var integer i:=0; i<sizeof(p_mb.bandwidth); i:=i+1) { //*  "b= "
2729                  v_result := v_result + 2+c_CRlen + lengthof(p_mb.bandwidth[i].modifier & " ") +
2730                  lengthof(int2str(p_mb.bandwidth[i].bandwidth));
2731                }                                               
2732          };
2733       
2734          for (var integer i:=0; i<sizeof(p_mb.times); i:=i+1) {
2735                v_result := v_result + 2+c_CRlen + lengthof(p_mb.times[i].time_field.start_time & " "
2736                                         & p_mb.times[i].time_field.stop_time);//*  "t="
2737                                                                         
2738                if (ispresent(p_mb.times[i].time_repeat))
2739                {
2740                  for (var integer j:=0; j<sizeof(p_mb.times[i].time_repeat); j:=j+1)
2741                  {                                     
2742                        v_result := v_result + 2+c_CRlen + lengthof(int2str(p_mb.times[i].time_repeat[j].repeat_interval.time)); //*  "r="
2743                        if (ispresent(p_mb.times[i].time_repeat[j].repeat_interval.unit))
2744                        {
2745                          v_auxstring:=p_mb.times[i].time_repeat[j].repeat_interval.unit;
2746                          v_result := v_result + 1 + lengthof(v_auxstring);
2747                        };                                     
2748                                       
2749                        v_result := v_result + 1 + lengthof(int2str(p_mb.times[i].time_repeat[j].active.time));
2750                        if (ispresent(p_mb.times[i].time_repeat[j].active.unit))
2751                        {
2752                          v_auxstring:=p_mb.times[i].time_repeat[j].active.unit;
2753                          v_result := v_result + 1 + lengthof(v_auxstring);
2754                        };
2755                                                                               
2756                        for (var integer k:=0; k<sizeof(p_mb.times[i].time_repeat[j].offsets); k:=k+1)
2757                        {
2758                          v_result := v_result + 1 + lengthof(int2str(p_mb.times[i].time_repeat[j].offsets[k].time));
2759                          if (ispresent(p_mb.times[i].time_repeat[j].offsets[k].unit))
2760                          {
2761                                v_auxstring:=p_mb.times[i].time_repeat[j].offsets[k].unit;
2762                                v_result := v_result + 1 + lengthof(v_auxstring);
2763                          };
2764                        }               
2765                  }
2766                };
2767          };
2768
2769          if (ispresent(p_mb.timezone_adjustments))
2770                {log("timezone adjustments have not been considered in SDP length calculation yet");
2771          }; //*  "z="
2772                               
2773          if (ispresent(p_mb.key)) {
2774                v_result := v_result + 2+c_CRlen + lengthof(p_mb.key.method); //*  "k= "
2775                if (ispresent(p_mb.key.key))
2776                   {v_auxstring:=p_mb.key.key; v_result := v_result + 1 + lengthof(v_auxstring);};
2777          };
2778          if (ispresent(p_mb.attributes)) {
2779                for (var integer i:=0; i<sizeof(p_mb.attributes); i:=i+1){ //*  "a= "
2780                        var integer v_len_con1 := f_SDPlength_attribute(p_mb.attributes[i]);
2781                        v_result := v_result + v_len_con1;
2782                };
2783          }; //*  "a="
2784
2785          if (ispresent(p_mb.media_list))
2786          { 
2787        for (var integer i:=0; i<sizeof(p_mb.media_list); i:=i+1){ //*  "m= "
2788               
2789                  //*  for each media_field
2790                  //* log("p_mb.media_list[i] ",p_mb.media_list[i]);
2791                  v_result := v_result + 2+c_CRlen + lengthof(p_mb.media_list[i].media_field.media)
2792                                                         + 1 + lengthof(int2str(p_mb.media_list[i].media_field.ports.port_number));
2793
2794
2795                  if (ispresent(p_mb.media_list[i].media_field.ports.num_of_ports))
2796                        {v_result := v_result + 1 + lengthof(int2str(p_mb.media_list[i].media_field.ports.num_of_ports));};
2797                  v_result := v_result + 1 + lengthof(p_mb.media_list[i].media_field.transport);
2798                  for (var integer j:=0; j<sizeof(p_mb.media_list[i].media_field.fmts); j:=j+1){       
2799                        v_result := v_result + 1 + lengthof(valueof(p_mb.media_list[i].media_field.fmts[j]));
2800                  }
2801                                               
2802                  if (ispresent(p_mb.media_list[i].information)) {
2803                        v_auxstring:=p_mb.media_list[i].information;
2804                        v_result := v_result + 2+c_CRlen + lengthof(v_auxstring);  //*  "i= "
2805                  };
2806                  if (ispresent(p_mb.media_list[i].connections)) {
2807                        for (var integer j:=0; j<sizeof(p_mb.media_list[i].media_field.fmts); j:=j+1){ 
2808                          var integer v_len_con2 :=  f_SDPlength_connection(p_mb.media_list[i].connections[j]);
2809                          v_result := v_result + v_len_con2;
2810                    }; //*  end for
2811                  };
2812                  if (ispresent(p_mb.media_list[i].bandwidth)) {  //*  "b= "
2813                        v_result := v_result + 2+c_CRlen + lengthof(p_mb.media_list[i].bandwidth.modifier)
2814                                                + 1 + lengthof(int2str(p_mb.media_list[i].bandwidth.bandwidth));
2815                  };
2816                  if (ispresent(p_mb.media_list[i].key)) {   //*  "k= "
2817                        v_result := v_result + 1 + lengthof(p_mb.media_list[i].key.method);
2818                        if (ispresent(p_mb.media_list[i].key.key)) {
2819                          v_auxstring := p_mb.media_list[i].key.key;
2820                          v_result := v_result + 1 + lengthof(v_auxstring);
2821                        };                             
2822                  };
2823                  if (ispresent(p_mb.media_list[i].attributes)) {
2824                        for (var integer j:=0; j<sizeof(p_mb.media_list[i].attributes); j:=j+1){ //*  "a= "
2825                          var integer v_len_attr := f_SDPlength_attribute(p_mb.media_list[i].attributes[j]);
2826                          v_result := v_result + v_len_attr;
2827                        } //*  end for j
2828                  };           
2829                }; //*  end for i               
2830          }; //*  end if media_list
2831
2832          return v_result;
2833        };//* end function f_SDPlength
2834
2835        function f_SDPlength_connection(SDP_connection p_element) return integer //*  "c="
2836        {
2837          var integer v_result:=0;
2838          var charstring v_auxstring;
2839          v_result := v_result + 2+c_CRlen + lengthof(p_element.net_type & " " &
2840          p_element.addr_type & " " &
2841          p_element.conn_addr.addr);
2842           if (ispresent(p_element.conn_addr.ttl))
2843                  {v_result := v_result + 1 + lengthof(int2str(p_element.conn_addr.ttl));};
2844           if (ispresent(p_element.conn_addr.num_of_addr))
2845                  {v_result := v_result + 1 + lengthof(int2str(p_element.conn_addr.num_of_addr));};
2846           return v_result
2847        } //*  f_SDPlength_connection
2848
2849        function f_SDPlength_attribute(SDP_attribute p_element) return integer //*  "a="
2850        {
2851          var integer v_result:=0;
2852          var charstring v_auxstring;
2853          if (ischosen(p_element.cat)) {v_result := v_result + 2+c_CRlen + lengthof("cat:" & p_element.cat.attr_value)};
2854          if (ischosen(p_element.keywds)) {v_result := v_result + 2+c_CRlen + lengthof("keywds:" & p_element.keywds.attr_value)};
2855          if (ischosen(p_element.tool)) {v_result := v_result + 2+c_CRlen + lengthof("tool:" & p_element.tool.attr_value)};
2856          if (ischosen(p_element.ptime)) {v_result := v_result + 2+c_CRlen + lengthof("ptime:" & p_element.ptime.attr_value)};
2857          if (ischosen(p_element.recvonly)) {v_result := v_result + 2+c_CRlen + lengthof("recvonly")};
2858          if (ischosen(p_element.sendrecv)) {v_result := v_result + 2+c_CRlen + lengthof("sendrecv")};
2859          if (ischosen(p_element.sendonly)) {v_result := v_result + 2+c_CRlen + lengthof("sendonly")};
2860          if (ischosen(p_element.inactive)) {v_result := v_result + 2+c_CRlen + lengthof("inactive")};
2861          if (ischosen(p_element.orient)) {v_result := v_result + 2+c_CRlen + lengthof("orient:" & p_element.orient.attr_value)};
2862          if (ischosen(p_element.sdp_type)) {v_result := v_result + 2+c_CRlen + lengthof("type:" & p_element.sdp_type.attr_value)};
2863          if (ischosen(p_element.charset)) {v_result := v_result + 2+c_CRlen + lengthof("charset" & p_element.charset.attr_value)};
2864          if (ischosen(p_element.sdplang)) {v_result := v_result + 2+c_CRlen + lengthof("sdplang:" & p_element.sdplang.attr_value)};
2865          if (ischosen(p_element.lang)) {v_result := v_result + 2+c_CRlen + lengthof("lang:" & p_element.lang.attr_value)};
2866          if (ischosen(p_element.framerate)) {v_result := v_result + 2+c_CRlen + lengthof("framerate:" & p_element.framerate.attr_value)};
2867          if (ischosen(p_element.quality)) {v_result := v_result + 2+c_CRlen + lengthof("quality:" & p_element.quality.attr_value)};
2868          if (ischosen(p_element.fmtp)) {v_result := v_result + 2+c_CRlen + lengthof("fmtp:" & p_element.fmtp.attr_value)};
2869          if (ischosen(p_element.curr)) {v_result := v_result + 2+c_CRlen + lengthof("curr:" & p_element.curr.preconditionType & " "
2870                                                                                & p_element.curr.statusType & " " & p_element.curr.direction)};
2871          if (ischosen(p_element.des)) {v_result := v_result + 2+c_CRlen + lengthof("des:" & p_element.des.preconditionType & " "
2872                                                                                & p_element.des.strength & " " & p_element.des.statusType & " " & p_element.des.direction)};
2873          if (ischosen(p_element.conf)) {v_result := v_result + 2+c_CRlen + lengthof("conf:" & p_element.conf.preconditionType & " "
2874                                                                                & p_element.des.statusType & " " & p_element.des.direction)};
2875          if (ischosen(p_element.rtpmap)) {v_result := v_result + 2+c_CRlen + lengthof("rtpmap:" & p_element.rtpmap.attr_value)};
2876          if (ischosen(p_element.rtcp)) {v_result := v_result + 2+c_CRlen + lengthof("rtcp:" & p_element.rtcp.attr_value)};
2877          if (ischosen(p_element.unknown))
2878          {v_result := v_result + 2+c_CRlen + lengthof(p_element.unknown.name);
2879                if (ispresent(p_element.unknown.attr_value))                           
2880                  {var charstring aux := p_element.unknown.attr_value;
2881                        v_result := v_result + lengthof(":" & p_element.unknown.attr_value);
2882                };
2883          };
2884          //*  log("axr: length attribute=", v_result);
2885          return v_result
2886        } //*  f_SDPlength_attribute
2887               
2888  } //*  group SDPlen_calculation       
2889
2890  group XML_Len_calculation{
2891               
2892                /**
2893                * @desc Declaration of external functions to calculate length of message bodies
2894                * switching of internal or external functions are made by boolean module parameter/PIXIT
2895                * USE_FX_FOR_XML_LENGTH declared at top of this module
2896                */
2897                external function fx_calculateXMLMessageLen(XMLMessage p_mb) return integer;
2898                external function fx_calculateXMLBodyLen(XmlBody p_mb) return integer;
2899               
2900                /**
2901                *
2902                * @desc Calculation of XML length
2903                * @param p_mb contain XML message
2904                * @return xml_length
2905                */
2906                function f_XMLlength(XMLMessage p_mb, boolean p_ext_func) return integer
2907                {
2908                        var integer v_result:=0;
2909                       
2910                        if ( p_ext_func){
2911                                v_result := fx_calculateXMLMessageLen(p_mb);
2912                        }else{
2913                                if (ispresent(p_mb.header)){
2914                                        v_result := f_XMLHeader_Length(p_mb.header);
2915                                }
2916                               
2917                                //false given, because decision of external function usage is done in first if statement
2918                                v_result := v_result + f_XMLBody_Length(p_mb.body, false);
2919                        }
2920                        return v_result
2921                } //* f_XMLlength
2922               
2923                /**
2924                *
2925                * @desc Calculation of XML header length
2926                * @param p_mh contain XML header
2927                * @return xml_header_length
2928                */
2929                function f_XMLHeader_Length(XmlHeader p_mh) return integer
2930                {
2931                        var integer v_result:=0;
2932                       
2933                        //*<?xml version="1.0" encoding="UTF-8"?>\n len=39*/
2934                        //* 2 3          1   1          1     1 2 1*/
2935                       
2936                        v_result:=2+3+lengthof(" version=")+1+lengthof(p_mh.version)+1;  //<?xml version="1.0"
2937                       
2938                        if (ispresent(p_mh.encoding)){
2939                               
2940                                v_result:=v_result+lengthof(" encoding=")+1+lengthof(p_mh.encoding)+1;  // encoding="UTF-8"
2941                        }
2942                       
2943                        if (ispresent(p_mh.anyAttributes)){
2944                                for (var integer i:=0; i<sizeof(p_mh.anyAttributes); i:=i+1){
2945                                        v_result := v_result + 1 + lengthof(p_mh.anyAttributes[i].name)+ 2 + lengthof(p_mh.anyAttributes[i].val) + 1;
2946                                        //vresult + " "(1)+ length(name) + "=\""(2) + length(val) + "\""(1)
2947                                }
2948                        }
2949                       
2950                        v_result:=v_result+2+1; //?>\n
2951                       
2952                        return v_result
2953                } //* f_XMLHeaderLength
2954               
2955                /**
2956                *
2957                * @desc Calculation of XML body length
2958                * @param p_mb contain XML body
2959                * @return xml_length
2960                */
2961                function f_XMLBody_Length(XmlBody p_mb, boolean p_ext_func) return integer
2962                {
2963                        var integer v_result:=0;
2964                       
2965                        if ( p_ext_func){
2966                                v_result := fx_calculateXMLBodyLen(p_mb);
2967                        }else{
2968                                //  assume ConferenceInfo ONLY in the XML message body
2969                                if (ischosen(p_mb.conferenceInfo))
2970                                {
2971                                        v_result := f_XMLBody_ConferenceInfo_Length(p_mb.conferenceInfo);
2972                                };
2973                               
2974                                //  assume CUG ONLY in the XML message body
2975                                if (ischosen(p_mb.cug))
2976                                {
2977                                        v_result := f_XMLBody_Cug_Length(p_mb.cug);
2978                                };
2979                               
2980                                //  assume MCID ONLY in the XML message body
2981                                if (ischosen(p_mb.mcid))
2982                                {
2983                                        v_result := f_XMLBody_Mcid_Length(p_mb.mcid);
2984                                };
2985                               
2986                                //  assume PSTNTransit ONLY in the XML message body
2987                                if (ischosen(p_mb.pstnTransit))
2988                                {
2989                                        v_result := f_XMLBody_PSTNTransit_Length(p_mb.pstnTransit);
2990                                };
2991                               
2992                                //  assume Simservs ONLY in the XML message body
2993                                if (ischosen(p_mb.simservs))
2994                                {
2995                                        v_result := f_XMLBody_Simservs_Length(p_mb.simservs);
2996                                };
2997                               
2998                                //  assume CDIV ONLY in the XML message body
2999                                if (ischosen(p_mb.cdivn))
3000                                {
3001                                        v_result := f_XMLBody_CDIV_Length(p_mb.cdivn);
3002                                };
3003                               
3004                                //  assume ICB ONLY in the XML message body
3005                                if (ischosen(p_mb.icb))
3006                                {
3007                                        v_result := f_XMLBody_ICB_Length(p_mb.icb);
3008                                };
3009                               
3010                                //  assume OCB ONLY in the XML message body
3011                                if (ischosen(p_mb.ocb))
3012                                {
3013                                        v_result := f_XMLBody_OCB_Length(p_mb.ocb);
3014                                };
3015                               
3016                                //  assume ResourceLists ONLY in the XML message body
3017                                if (ischosen(p_mb.resourceLists))
3018                                {
3019                                        v_result := f_XMLBody_ResourceList_Length(p_mb.resourceLists);
3020                                };
3021                               
3022                                //  assume Ims3GPP ONLY in the XML message body
3023                                if (ischosen(p_mb.ims3gpp))
3024                                {
3025                                        v_result := f_XMLBody_Ims3GPP_Length(p_mb.ims3gpp);
3026                                };
3027                               
3028                                /** Add aditional checks regarding to new variants,
3029                                 *  also implement appropriate function for calculation
3030                                 */
3031                        }
3032                        return v_result
3033                } //* f_XMLBodyLength
3034               
3035                group XMLBodies_calculation{
3036               
3037                        /**
3038                        *
3039                        * @desc Calculation of XML ConferenceInfo element length
3040                        * @param p_mb contain XML ConfInfo body
3041                        * @return xml_length
3042                        */
3043                        function f_XMLBody_ConferenceInfo_Length(Conference_info p_mb) return integer
3044                        {
3045                                var integer v_result:=0;
3046                                //TODO: write function body
3047                                return v_result
3048                        } //* f_XMLBody_ConferenceInfo_Length
3049                       
3050                        /**
3051                        *
3052                        * @desc Calculation of XML CUG element length
3053                        * @param p_mb contain XML CUG body
3054                        * @return xml_length
3055                        */
3056                        function f_XMLBody_Cug_Length(Cug p_mb) return integer
3057                        {
3058                                var integer v_result:=0;
3059                                //TODO: write function body
3060                                return v_result
3061                        } //* f_XMLBody_Cug_Length
3062                       
3063                        /**
3064                        *
3065                        * @desc Calculation of XML MCID element length
3066                        * @param p_mb contain XML MCID body
3067                        * @return xml_length
3068                        */
3069                        function f_XMLBody_Mcid_Length(Mcid p_mb) return integer
3070                        {
3071                                var integer v_result:=0;
3072                               
3073                                if (ischosen(p_mb.choice.request)){
3074                               
3075                                }
3076                               
3077                                if (ischosen(p_mb.choice.response)){
3078                               
3079                                }
3080                               
3081                                return v_result
3082                        } //* f_XMLBody_Mcid_Length
3083                       
3084                        /**
3085                        *
3086                        * @desc Calculation of XML PSTNTransit element length
3087                        * @param p_mb contain XML PSTNTransit body
3088                        * @return xml_length
3089                        */
3090                        function f_XMLBody_PSTNTransit_Length(PSTN_transit p_mb) return integer
3091                        {
3092                                var integer v_result:=0;
3093                                //TODO: write function body
3094                                return v_result
3095                        } //* f_XMLBody_PSTNTransit_Length
3096                       
3097                        /** @desc Calculation of XML Simservs element length
3098                        * @param p_mb contain XML Simservs body
3099                        * @return xml_length
3100                        */
3101                        function f_XMLBody_Simservs_Length(Simservs p_mb) return integer
3102                        {
3103                                var integer v_result:=0;
3104                                //TODO: write function body
3105                                return v_result
3106                        } //* f_XMLBody_Simservs_Length
3107                       
3108                        /** @desc Calculation of XML CDIV element length
3109                        * @param p_mb contain XML CDIV body
3110                        * @return xml_length
3111                        */
3112                        function f_XMLBody_CDIV_Length(Comm_div_info p_mb) return integer
3113                        {
3114                                var integer v_result:=0;
3115                                //TODO: write function body
3116                                return v_result
3117                        } //* f_XMLBody_CDIV_Length             
3118                       
3119                        /** @desc Calculation of XML ICB length
3120                        * @param p_mb contain XML ICB body
3121                        * @return xml_length
3122                        */
3123                        function f_XMLBody_ICB_Length(Incoming_communication_barring p_mb) return integer
3124                        {
3125                                var integer v_result:=0;
3126                                //TODO: write function body
3127                                return v_result
3128                        } //* f_XMLBody_ICB_Length
3129                       
3130                        /** @desc Calculation of XML OCB length
3131                        * @param p_mb contain XML OCB body
3132                        * @return xml_length
3133                        */
3134                        function f_XMLBody_OCB_Length(Outgoing_communication_barring p_mb) return integer
3135                        {
3136                                var integer v_result:=0;
3137                                //TODO: write function body
3138                                return v_result
3139                        } //* f_XMLBody_OCB_Length
3140                       
3141                        /** @desc Calculation of XML ResourceList length
3142                        * @param p_mb contain XML ResourceList body
3143                        * @return xml_length
3144                        */
3145                        function f_XMLBody_ResourceList_Length(Resource_lists p_mb) return integer
3146                        {
3147                                var integer v_result:=0;
3148                                //TODO: write function body
3149                                return v_result
3150                        } //* f_XMLBody_ResourceList_Length
3151                       
3152                        /** @desc Calculation of XML Ims3GPP length
3153                        * @param p_mb contain XML Ims3GPP body
3154                        * @return xml_length
3155                        */
3156                        function f_XMLBody_Ims3GPP_Length(Ims_3gpp p_mb) return integer
3157                        {
3158                                var integer v_result:=0;
3159                                //TODO: write function body
3160                                return v_result
3161                        } //* f_XMLBody_Ims3GPP_Length
3162                       
3163                } //* XMLBodies_calculation
3164       
3165  }//* group XMLlen_calculation
3166
3167  group MIME_Len_calculation{
3168                /**
3169                *
3170                * @desc Calculation of MIME length
3171                * @param p_mb contain MIME message
3172                * @return xml_length
3173                */
3174                function f_MIMElength(MIME_Message p_mb) return integer
3175                {
3176                        var integer v_result:=2; //0d0a
3177                       
3178                        v_result := v_result + lengthof(p_mb.boundary) + 2/*0d0a*/;
3179                       
3180                        for (var integer i:=0; i<sizeof(p_mb.mimeEncapsulatedList); i:=i+1){
3181                               
3182                                v_result := v_result + lengthof("Content-Type: ")+ lengthof(p_mb.mimeEncapsulatedList[i].content_type) + 2/*0d0a*/ ;
3183                               
3184                                if (ispresent(p_mb.mimeEncapsulatedList[i].content_disposition)){
3185                                        v_result := v_result + lengthof("Content-Disposition: ")+ lengthof(p_mb.mimeEncapsulatedList[i].content_disposition) + 2/*0d0a*/ ;
3186                                }
3187                               
3188                                //v_result := v_result +2/*0d0a*/; ??? to check
3189                               
3190                                //              assume SDP_Message ONLY in the message body
3191                        if (ischosen(p_mb.mimeEncapsulatedList[i].mime_encapsulated_part.sdpMessageBody))
3192                        {
3193                                v_result := v_result + f_SDPlength(p_mb.mimeEncapsulatedList[i].mime_encapsulated_part.sdpMessageBody);
3194                        };
3195                               
3196                                //  assume XML_Body ONLY in the message body
3197                if (ischosen(p_mb.mimeEncapsulatedList[i].mime_encapsulated_part.xmlBody))
3198                {
3199                        v_result := v_result + f_XMLBody_Length(p_mb.mimeEncapsulatedList[i].mime_encapsulated_part.xmlBody, USE_FX_FOR_XML_LENGTH );
3200                };
3201               
3202                                //assume XML_Message ONLY in the message body
3203                                if (ischosen(p_mb.mimeEncapsulatedList[i].mime_encapsulated_part.xmlMessage))
3204                                {
3205                                        v_result := v_result + f_XMLlength(p_mb.mimeEncapsulatedList[i].mime_encapsulated_part.xmlMessage, USE_FX_FOR_XML_LENGTH );
3206                                };
3207               
3208                //v_result := v_result +2/*0d0a*/; ??? to check
3209                        }
3210                       
3211                        //v_result := v_result +2/*0d0a*/; ??? to check
3212                       
3213                        return v_result
3214                } //* f_MIMElength
3215       
3216  }//* group MIMElen_calculation
3217 
3218  group TextPlain_Len_calculation{
3219                /**
3220                *
3221                * @desc Calculation of messagebody-textplain type length
3222                * @param p_mb contain textplain message
3223                * @return lenght
3224                */
3225                function f_TextPlainLength(MessageBody p_mb) return integer
3226                {
3227                        var integer v_result:=2; //0d0a
3228
3229                        v_result:=v_result+lengthof(p_mb.textplain);
3230                       
3231                        return v_result;
3232                }//* end function f_TextPlainLength
3233               
3234  }//*end group TextPlainLen_calculation
3235
3236  }//*group MessageBody_Calculation
3237
3238
3239  group GiveHeaders {
3240        /**
3241         *
3242         * @desc Return component variable of recordRoute header if vc_boo_recordRoute is true
3243         * @return component variable of recordRoute header
3244         */
3245
3246        function f_recordroute() runs on SipComponent return template RecordRoute
3247        {
3248          if (vc_boo_recordRoute)
3249                  {return vc_recordRoute}
3250          else {return(omit)}
3251        }
3252       
3253        /**
3254         *
3255         * @desc Return component variable of Route header if vc_boo_route is true
3256         * @return component variable of recordRoute header
3257         */     
3258        function f_route() runs on SipComponent return template RecordRoute
3259        {
3260          if (vc_boo_route)
3261                  {return vc_route} //*  TODO: Route header need to be in reverse order than RecordRoute, question of return value - RecordRoute
3262          else {return(omit)}
3263        }
3264               
3265  } //*  end group GiveHeaders
3266 
3267group others { 
3268
3269/*
3270 *
3271 * @desc function combines two comma parameter lists
3272 * @param p_list1 first list
3273 * @param p_list2 second list
3274 * @return comma parameter list that contains parameters from both input lists
3275 * @verdict
3276 */
3277
3278  function f_merge_CommaParam_List(CommaParam_List p_list1, CommaParam_List p_list2) return template CommaParam_List
3279  {     var CommaParam_List p_result;
3280        var integer limit1 := sizeof(p_list1);
3281        for (var integer i:=0; i<limit1; i:=i+1) {
3282                p_result[i] := p_list1[i]
3283        };
3284        for (var integer i:=limit1; i<limit1+sizeof(p_list2); i:=i+1) {
3285                p_result[i] := p_list2[i]
3286        };
3287        return p_result
3288  }
3289 
3290} //*  end group others
3291
3292} //* group TemplatePreparationFunctions
3293       
3294
3295} //*  end module LibSip_Templates
Note: See TracBrowser for help on using the repository browser.