<p>laforge has uploaded this change for <strong>review</strong>.</p><p><a href="https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/15206">View Change</a></p><pre style="font-family: monospace,monospace; white-space: pre-wrap;">library: Add DIAMETER Templates, Emulation, CodecPort<br><br>Contrary to the DIAMETER_Types.ttcn, these files are not generated<br>but written by hand.<br><br>Change-Id: Iafbf55ab25bbaa40960eb1744cff36dcd7970c17<br>---<br>A library/DIAMETER_CodecPort.ttcn<br>A library/DIAMETER_CodecPort_CtrlFunct.ttcn<br>A library/DIAMETER_CodecPort_CtrlFunctDef.cc<br>A library/DIAMETER_Emulation.ttcn<br>A library/DIAMETER_Templates.ttcn<br>5 files changed, 1,429 insertions(+), 0 deletions(-)<br><br></pre><pre style="font-family: monospace,monospace; white-space: pre-wrap;">git pull ssh://gerrit.osmocom.org:29418/osmo-ttcn3-hacks refs/changes/06/15206/1</pre><pre style="font-family: monospace,monospace; white-space: pre-wrap;"><span>diff --git a/library/DIAMETER_CodecPort.ttcn b/library/DIAMETER_CodecPort.ttcn</span><br><span>new file mode 100644</span><br><span>index 0000000..65ae42b</span><br><span>--- /dev/null</span><br><span>+++ b/library/DIAMETER_CodecPort.ttcn</span><br><span>@@ -0,0 +1,81 @@</span><br><span style="color: hsl(120, 100%, 40%);">+module DIAMETER_CodecPort {</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* Simple DIAMETER Codec Port, translating between raw SCTP primitives with</span><br><span style="color: hsl(120, 100%, 40%);">+ * octetstring payload towards the IPL4asp provider, and DIAMETER primitives</span><br><span style="color: hsl(120, 100%, 40%);">+ * which carry the decoded DIAMETER data types as payload.</span><br><span style="color: hsl(120, 100%, 40%);">+ *</span><br><span style="color: hsl(120, 100%, 40%);">+ * (C) 2019 by Harald Welte <laforge@gnumonks.org></span><br><span style="color: hsl(120, 100%, 40%);">+ * All rights reserved.</span><br><span style="color: hsl(120, 100%, 40%);">+ *</span><br><span style="color: hsl(120, 100%, 40%);">+ * Released under the terms of GNU General Public License, Version 2 or</span><br><span style="color: hsl(120, 100%, 40%);">+ * (at your option) any later version.</span><br><span style="color: hsl(120, 100%, 40%);">+ *</span><br><span style="color: hsl(120, 100%, 40%);">+ * SPDX-License-Identifier: GPL-2.0-or-later</span><br><span style="color: hsl(120, 100%, 40%);">+ */</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ import from IPL4asp_PortType all;</span><br><span style="color: hsl(120, 100%, 40%);">+ import from IPL4asp_Types all;</span><br><span style="color: hsl(120, 100%, 40%);">+ import from DIAMETER_Types all;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ type record DIAMETER_RecvFrom {</span><br><span style="color: hsl(120, 100%, 40%);">+ ConnectionId connId,</span><br><span style="color: hsl(120, 100%, 40%);">+ HostName remName,</span><br><span style="color: hsl(120, 100%, 40%);">+ PortNumber remPort,</span><br><span style="color: hsl(120, 100%, 40%);">+ HostName locName,</span><br><span style="color: hsl(120, 100%, 40%);">+ PortNumber locPort,</span><br><span style="color: hsl(120, 100%, 40%);">+ PDU_DIAMETER msg</span><br><span style="color: hsl(120, 100%, 40%);">+ };</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ template DIAMETER_RecvFrom t_DIAMETER_RecvFrom(template PDU_DIAMETER msg) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ connId := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ remName := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ remPort := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ locName := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ locPort := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ msg := msg</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ type record DIAMETER_Send {</span><br><span style="color: hsl(120, 100%, 40%);">+ ConnectionId connId,</span><br><span style="color: hsl(120, 100%, 40%);">+ PDU_DIAMETER msg</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ template DIAMETER_Send t_DIAMETER_Send(template ConnectionId connId, template PDU_DIAMETER msg) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ connId := connId,</span><br><span style="color: hsl(120, 100%, 40%);">+ msg := msg</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ private function IPL4_to_DIAMETER_RecvFrom(in ASP_RecvFrom pin, out DIAMETER_RecvFrom pout) {</span><br><span style="color: hsl(120, 100%, 40%);">+ pout.connId := pin.connId;</span><br><span style="color: hsl(120, 100%, 40%);">+ pout.remName := pin.remName;</span><br><span style="color: hsl(120, 100%, 40%);">+ pout.remPort := pin.remPort;</span><br><span style="color: hsl(120, 100%, 40%);">+ pout.locName := pin.locName;</span><br><span style="color: hsl(120, 100%, 40%);">+ pout.locPort := pin.locPort;</span><br><span style="color: hsl(120, 100%, 40%);">+ pout.msg := f_DIAMETER_Dec(pin.msg);</span><br><span style="color: hsl(120, 100%, 40%);">+ } with { extension "prototype(fast)" };</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ private function DIAMETER_to_IPL4_Send(in DIAMETER_Send pin, out ASP_Send pout) {</span><br><span style="color: hsl(120, 100%, 40%);">+ pout.connId := pin.connId;</span><br><span style="color: hsl(120, 100%, 40%);">+ pout.proto := {</span><br><span style="color: hsl(120, 100%, 40%);">+ sctp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ sinfo_stream := omit,</span><br><span style="color: hsl(120, 100%, 40%);">+ sinfo_ppid := 46, /* plain text Diameter in SCTP DATA */</span><br><span style="color: hsl(120, 100%, 40%);">+ remSocks := omit,</span><br><span style="color: hsl(120, 100%, 40%);">+ assocId := omit</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ };</span><br><span style="color: hsl(120, 100%, 40%);">+ pout.msg := f_DIAMETER_Enc(pin.msg);</span><br><span style="color: hsl(120, 100%, 40%);">+ } with { extension "prototype(fast)" };</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ type port DIAMETER_CODEC_PT message {</span><br><span style="color: hsl(120, 100%, 40%);">+ out DIAMETER_Send;</span><br><span style="color: hsl(120, 100%, 40%);">+ in DIAMETER_RecvFrom,</span><br><span style="color: hsl(120, 100%, 40%);">+ ASP_ConnId_ReadyToRelease,</span><br><span style="color: hsl(120, 100%, 40%);">+ ASP_Event;</span><br><span style="color: hsl(120, 100%, 40%);">+ } with { extension "user IPL4asp_PT</span><br><span style="color: hsl(120, 100%, 40%);">+ out(DIAMETER_Send -> ASP_Send:function(DIAMETER_to_IPL4_Send))</span><br><span style="color: hsl(120, 100%, 40%);">+ in(ASP_RecvFrom -> DIAMETER_RecvFrom: function(IPL4_to_DIAMETER_RecvFrom);</span><br><span style="color: hsl(120, 100%, 40%);">+ ASP_ConnId_ReadyToRelease -> ASP_ConnId_ReadyToRelease: simple;</span><br><span style="color: hsl(120, 100%, 40%);">+ ASP_Event -> ASP_Event: simple)"</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span>diff --git a/library/DIAMETER_CodecPort_CtrlFunct.ttcn b/library/DIAMETER_CodecPort_CtrlFunct.ttcn</span><br><span>new file mode 100644</span><br><span>index 0000000..3b2230d</span><br><span>--- /dev/null</span><br><span>+++ b/library/DIAMETER_CodecPort_CtrlFunct.ttcn</span><br><span>@@ -0,0 +1,44 @@</span><br><span style="color: hsl(120, 100%, 40%);">+module DIAMETER_CodecPort_CtrlFunct {</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ import from DIAMETER_CodecPort all;</span><br><span style="color: hsl(120, 100%, 40%);">+ import from IPL4asp_Types all;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ external function f_IPL4_listen(</span><br><span style="color: hsl(120, 100%, 40%);">+ inout DIAMETER_CODEC_PT portRef,</span><br><span style="color: hsl(120, 100%, 40%);">+ in HostName locName,</span><br><span style="color: hsl(120, 100%, 40%);">+ in PortNumber locPort,</span><br><span style="color: hsl(120, 100%, 40%);">+ in ProtoTuple proto,</span><br><span style="color: hsl(120, 100%, 40%);">+ in OptionList options := {}</span><br><span style="color: hsl(120, 100%, 40%);">+ ) return Result;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ external function f_IPL4_connect(</span><br><span style="color: hsl(120, 100%, 40%);">+ inout DIAMETER_CODEC_PT portRef,</span><br><span style="color: hsl(120, 100%, 40%);">+ in HostName remName,</span><br><span style="color: hsl(120, 100%, 40%);">+ in PortNumber remPort,</span><br><span style="color: hsl(120, 100%, 40%);">+ in HostName locName,</span><br><span style="color: hsl(120, 100%, 40%);">+ in PortNumber locPort,</span><br><span style="color: hsl(120, 100%, 40%);">+ in ConnectionId connId,</span><br><span style="color: hsl(120, 100%, 40%);">+ in ProtoTuple proto,</span><br><span style="color: hsl(120, 100%, 40%);">+ in OptionList options := {}</span><br><span style="color: hsl(120, 100%, 40%);">+ ) return Result;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ external function f_IPL4_close(</span><br><span style="color: hsl(120, 100%, 40%);">+ inout DIAMETER_CODEC_PT portRef,</span><br><span style="color: hsl(120, 100%, 40%);">+ in ConnectionId id,</span><br><span style="color: hsl(120, 100%, 40%);">+ in ProtoTuple proto := { unspecified := {} }</span><br><span style="color: hsl(120, 100%, 40%);">+ ) return Result;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ external function f_IPL4_setUserData(</span><br><span style="color: hsl(120, 100%, 40%);">+ inout DIAMETER_CODEC_PT portRef,</span><br><span style="color: hsl(120, 100%, 40%);">+ in ConnectionId id,</span><br><span style="color: hsl(120, 100%, 40%);">+ in UserData userData</span><br><span style="color: hsl(120, 100%, 40%);">+ ) return Result;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ external function f_IPL4_getUserData(</span><br><span style="color: hsl(120, 100%, 40%);">+ inout DIAMETER_CODEC_PT portRef,</span><br><span style="color: hsl(120, 100%, 40%);">+ in ConnectionId id,</span><br><span style="color: hsl(120, 100%, 40%);">+ out UserData userData</span><br><span style="color: hsl(120, 100%, 40%);">+ ) return Result;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span>diff --git a/library/DIAMETER_CodecPort_CtrlFunctDef.cc b/library/DIAMETER_CodecPort_CtrlFunctDef.cc</span><br><span>new file mode 100644</span><br><span>index 0000000..782d176</span><br><span>--- /dev/null</span><br><span>+++ b/library/DIAMETER_CodecPort_CtrlFunctDef.cc</span><br><span>@@ -0,0 +1,56 @@</span><br><span style="color: hsl(120, 100%, 40%);">+#include "IPL4asp_PortType.hh"</span><br><span style="color: hsl(120, 100%, 40%);">+#include "DIAMETER_CodecPort.hh"</span><br><span style="color: hsl(120, 100%, 40%);">+#include "IPL4asp_PT.hh"</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+namespace DIAMETER__CodecPort__CtrlFunct {</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ IPL4asp__Types::Result f__IPL4__listen(</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER__CodecPort::DIAMETER__CODEC__PT& portRef,</span><br><span style="color: hsl(120, 100%, 40%);">+ const IPL4asp__Types::HostName& locName,</span><br><span style="color: hsl(120, 100%, 40%);">+ const IPL4asp__Types::PortNumber& locPort,</span><br><span style="color: hsl(120, 100%, 40%);">+ const IPL4asp__Types::ProtoTuple& proto,</span><br><span style="color: hsl(120, 100%, 40%);">+ const IPL4asp__Types::OptionList& options)</span><br><span style="color: hsl(120, 100%, 40%);">+ {</span><br><span style="color: hsl(120, 100%, 40%);">+ return f__IPL4__PROVIDER__listen(portRef, locName, locPort, proto, options);</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ </span><br><span style="color: hsl(120, 100%, 40%);">+ IPL4asp__Types::Result f__IPL4__connect(</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER__CodecPort::DIAMETER__CODEC__PT& portRef,</span><br><span style="color: hsl(120, 100%, 40%);">+ const IPL4asp__Types::HostName& remName,</span><br><span style="color: hsl(120, 100%, 40%);">+ const IPL4asp__Types::PortNumber& remPort,</span><br><span style="color: hsl(120, 100%, 40%);">+ const IPL4asp__Types::HostName& locName,</span><br><span style="color: hsl(120, 100%, 40%);">+ const IPL4asp__Types::PortNumber& locPort,</span><br><span style="color: hsl(120, 100%, 40%);">+ const IPL4asp__Types::ConnectionId& connId,</span><br><span style="color: hsl(120, 100%, 40%);">+ const IPL4asp__Types::ProtoTuple& proto,</span><br><span style="color: hsl(120, 100%, 40%);">+ const IPL4asp__Types::OptionList& options)</span><br><span style="color: hsl(120, 100%, 40%);">+ {</span><br><span style="color: hsl(120, 100%, 40%);">+ return f__IPL4__PROVIDER__connect(portRef, remName, remPort,</span><br><span style="color: hsl(120, 100%, 40%);">+ locName, locPort, connId, proto, options);</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ IPL4asp__Types::Result f__IPL4__close(</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER__CodecPort::DIAMETER__CODEC__PT& portRef, </span><br><span style="color: hsl(120, 100%, 40%);">+ const IPL4asp__Types::ConnectionId& connId, </span><br><span style="color: hsl(120, 100%, 40%);">+ const IPL4asp__Types::ProtoTuple& proto)</span><br><span style="color: hsl(120, 100%, 40%);">+ {</span><br><span style="color: hsl(120, 100%, 40%);">+ return f__IPL4__PROVIDER__close(portRef, connId, proto);</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ IPL4asp__Types::Result f__IPL4__setUserData(</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER__CodecPort::DIAMETER__CODEC__PT& portRef,</span><br><span style="color: hsl(120, 100%, 40%);">+ const IPL4asp__Types::ConnectionId& connId,</span><br><span style="color: hsl(120, 100%, 40%);">+ const IPL4asp__Types::UserData& userData)</span><br><span style="color: hsl(120, 100%, 40%);">+ {</span><br><span style="color: hsl(120, 100%, 40%);">+ return f__IPL4__PROVIDER__setUserData(portRef, connId, userData);</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ </span><br><span style="color: hsl(120, 100%, 40%);">+ IPL4asp__Types::Result f__IPL4__getUserData(</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER__CodecPort::DIAMETER__CODEC__PT& portRef,</span><br><span style="color: hsl(120, 100%, 40%);">+ const IPL4asp__Types::ConnectionId& connId,</span><br><span style="color: hsl(120, 100%, 40%);">+ IPL4asp__Types::UserData& userData)</span><br><span style="color: hsl(120, 100%, 40%);">+ {</span><br><span style="color: hsl(120, 100%, 40%);">+ return f__IPL4__PROVIDER__getUserData(portRef, connId, userData);</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ </span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span>diff --git a/library/DIAMETER_Emulation.ttcn b/library/DIAMETER_Emulation.ttcn</span><br><span>new file mode 100644</span><br><span>index 0000000..dc7bc94</span><br><span>--- /dev/null</span><br><span>+++ b/library/DIAMETER_Emulation.ttcn</span><br><span>@@ -0,0 +1,427 @@</span><br><span style="color: hsl(120, 100%, 40%);">+module DIAMETER_Emulation {</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* DIAMETER Emulation, runs on top of DIAMETER_CodecPort. It multiplexes/demultiplexes</span><br><span style="color: hsl(120, 100%, 40%);">+ * the individual IMSIs/subscribers, so there can be separate TTCN-3 components handling</span><br><span style="color: hsl(120, 100%, 40%);">+ * each of them.</span><br><span style="color: hsl(120, 100%, 40%);">+ *</span><br><span style="color: hsl(120, 100%, 40%);">+ * The DIAMETER_Emulation.main() function processes DIAMETER primitives from the DIAMETER</span><br><span style="color: hsl(120, 100%, 40%);">+ * socket via the DIAMETER_CodecPort, and dispatches them to the per-IMSI components.</span><br><span style="color: hsl(120, 100%, 40%);">+ *</span><br><span style="color: hsl(120, 100%, 40%);">+ * For each new IMSI, the DiameterOps.create_cb() is called. It can create</span><br><span style="color: hsl(120, 100%, 40%);">+ * or resolve a TTCN-3 component, and returns a component reference to which that IMSI</span><br><span style="color: hsl(120, 100%, 40%);">+ * is routed/dispatched.</span><br><span style="color: hsl(120, 100%, 40%);">+ *</span><br><span style="color: hsl(120, 100%, 40%);">+ * If a pre-existing component wants to register to handle a future inbound IMSI, it can</span><br><span style="color: hsl(120, 100%, 40%);">+ * do so by registering an "expect" with the expected IMSI.</span><br><span style="color: hsl(120, 100%, 40%);">+ *</span><br><span style="color: hsl(120, 100%, 40%);">+ * Inbound DIAMETER messages without IMSI (such as RESET-IND/ACK) are dispatched to</span><br><span style="color: hsl(120, 100%, 40%);">+ * the DiameterOps.unitdata_cb() callback, which is registered with an argument to the</span><br><span style="color: hsl(120, 100%, 40%);">+ * main() function below.</span><br><span style="color: hsl(120, 100%, 40%);">+ *</span><br><span style="color: hsl(120, 100%, 40%);">+ * (C) 2019 by Harald Welte <laforge@gnumonks.org></span><br><span style="color: hsl(120, 100%, 40%);">+ * All rights reserved.</span><br><span style="color: hsl(120, 100%, 40%);">+ *</span><br><span style="color: hsl(120, 100%, 40%);">+ * Released under the terms of GNU General Public License, Version 2 or</span><br><span style="color: hsl(120, 100%, 40%);">+ * (at your option) any later version.</span><br><span style="color: hsl(120, 100%, 40%);">+ *</span><br><span style="color: hsl(120, 100%, 40%);">+ * SPDX-License-Identifier: GPL-2.0-or-later</span><br><span style="color: hsl(120, 100%, 40%);">+ */</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+import from DIAMETER_CodecPort all;</span><br><span style="color: hsl(120, 100%, 40%);">+import from DIAMETER_CodecPort_CtrlFunct all;</span><br><span style="color: hsl(120, 100%, 40%);">+import from DIAMETER_Types all;</span><br><span style="color: hsl(120, 100%, 40%);">+import from DIAMETER_Templates all;</span><br><span style="color: hsl(120, 100%, 40%);">+import from Osmocom_Types all;</span><br><span style="color: hsl(120, 100%, 40%);">+import from IPL4asp_Types all;</span><br><span style="color: hsl(120, 100%, 40%);">+import from DNS_Helpers all;</span><br><span style="color: hsl(120, 100%, 40%);">+import from MobileL3_Types all;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+type hexstring IMSI;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+type component DIAMETER_ConnHdlr {</span><br><span style="color: hsl(120, 100%, 40%);">+ port DIAMETER_Conn_PT DIAMETER;</span><br><span style="color: hsl(120, 100%, 40%);">+ /* procedure based port to register for incoming connections */</span><br><span style="color: hsl(120, 100%, 40%);">+ port DIAMETEREM_PROC_PT DIAMETER_PROC;</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* port between individual per-connection components and this dispatcher */</span><br><span style="color: hsl(120, 100%, 40%);">+type port DIAMETER_Conn_PT message {</span><br><span style="color: hsl(120, 100%, 40%);">+ inout PDU_DIAMETER, PDU_ML3_MS_NW, PDU_ML3_NW_MS;</span><br><span style="color: hsl(120, 100%, 40%);">+} with { extension "internal" };</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* global test port e.g. for non-imsi/conn specific messages */</span><br><span style="color: hsl(120, 100%, 40%);">+type port DIAMETER_PT message {</span><br><span style="color: hsl(120, 100%, 40%);">+ inout PDU_DIAMETER;</span><br><span style="color: hsl(120, 100%, 40%);">+} with { extension "internal" };</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* represents a single DIAMETER Association */</span><br><span style="color: hsl(120, 100%, 40%);">+type record AssociationData {</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_ConnHdlr comp_ref,</span><br><span style="color: hsl(120, 100%, 40%);">+ hexstring imsi optional</span><br><span style="color: hsl(120, 100%, 40%);">+};</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+type component DIAMETER_Emulation_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+ /* Port facing to the UDP SUT */</span><br><span style="color: hsl(120, 100%, 40%);">+ port DIAMETER_CODEC_PT DIAMETER;</span><br><span style="color: hsl(120, 100%, 40%);">+ /* All DIAMETER_ConnHdlr DIAMETER ports connect here</span><br><span style="color: hsl(120, 100%, 40%);">+ * DIAMETER_Emulation_CT.main needs to figure out what messages</span><br><span style="color: hsl(120, 100%, 40%);">+ * to send where with CLIENT.send() to vc_conn */</span><br><span style="color: hsl(120, 100%, 40%);">+ port DIAMETER_Conn_PT DIAMETER_CLIENT;</span><br><span style="color: hsl(120, 100%, 40%);">+ /* currently tracked connections */</span><br><span style="color: hsl(120, 100%, 40%);">+ var AssociationData SgsapAssociationTable[16];</span><br><span style="color: hsl(120, 100%, 40%);">+ /* pending expected CRCX */</span><br><span style="color: hsl(120, 100%, 40%);">+ var ExpectData DiameterExpectTable[8];</span><br><span style="color: hsl(120, 100%, 40%);">+ /* procedure based port to register for incoming connections */</span><br><span style="color: hsl(120, 100%, 40%);">+ port DIAMETEREM_PROC_PT DIAMETER_PROC;</span><br><span style="color: hsl(120, 100%, 40%);">+ /* test port for unit data messages */</span><br><span style="color: hsl(120, 100%, 40%);">+ port DIAMETER_PT DIAMETER_UNIT;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ var charstring g_diameter_id;</span><br><span style="color: hsl(120, 100%, 40%);">+ var integer g_diameter_conn_id := -1;</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+type function DIAMETERCreateCallback(PDU_DIAMETER msg, hexstring imsi, charstring id)</span><br><span style="color: hsl(120, 100%, 40%);">+runs on DIAMETER_Emulation_CT return DIAMETER_ConnHdlr;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+type function DIAMETERUnitdataCallback(PDU_DIAMETER msg)</span><br><span style="color: hsl(120, 100%, 40%);">+runs on DIAMETER_Emulation_CT return template PDU_DIAMETER;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+type record DIAMETEROps {</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETERCreateCallback create_cb,</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETERUnitdataCallback unitdata_cb</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+type record DIAMETER_conn_parameters {</span><br><span style="color: hsl(120, 100%, 40%);">+ HostName remote_ip,</span><br><span style="color: hsl(120, 100%, 40%);">+ PortNumber remote_sctp_port,</span><br><span style="color: hsl(120, 100%, 40%);">+ HostName local_ip,</span><br><span style="color: hsl(120, 100%, 40%);">+ PortNumber local_sctp_port</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+function tr_DIAMETER_RecvFrom_R(template PDU_DIAMETER msg)</span><br><span style="color: hsl(120, 100%, 40%);">+runs on DIAMETER_Emulation_CT return template DIAMETER_RecvFrom {</span><br><span style="color: hsl(120, 100%, 40%);">+ var template DIAMETER_RecvFrom mrf := {</span><br><span style="color: hsl(120, 100%, 40%);">+ connId := g_diameter_conn_id,</span><br><span style="color: hsl(120, 100%, 40%);">+ remName := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ remPort := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ locName := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ locPort := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ msg := msg</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ return mrf;</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_imsi_known(hexstring imsi)</span><br><span style="color: hsl(120, 100%, 40%);">+runs on DIAMETER_Emulation_CT return boolean {</span><br><span style="color: hsl(120, 100%, 40%);">+ var integer i;</span><br><span style="color: hsl(120, 100%, 40%);">+ for (i := 0; i < sizeof(SgsapAssociationTable); i := i+1) {</span><br><span style="color: hsl(120, 100%, 40%);">+ if (SgsapAssociationTable[i].imsi == imsi) {</span><br><span style="color: hsl(120, 100%, 40%);">+ return true;</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ return false;</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_comp_known(DIAMETER_ConnHdlr client)</span><br><span style="color: hsl(120, 100%, 40%);">+runs on DIAMETER_Emulation_CT return boolean {</span><br><span style="color: hsl(120, 100%, 40%);">+ var integer i;</span><br><span style="color: hsl(120, 100%, 40%);">+ for (i := 0; i < sizeof(SgsapAssociationTable); i := i+1) {</span><br><span style="color: hsl(120, 100%, 40%);">+ if (SgsapAssociationTable[i].comp_ref == client) {</span><br><span style="color: hsl(120, 100%, 40%);">+ return true;</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ return false;</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_comp_by_imsi(hexstring imsi)</span><br><span style="color: hsl(120, 100%, 40%);">+runs on DIAMETER_Emulation_CT return DIAMETER_ConnHdlr {</span><br><span style="color: hsl(120, 100%, 40%);">+ var integer i;</span><br><span style="color: hsl(120, 100%, 40%);">+ for (i := 0; i < sizeof(SgsapAssociationTable); i := i+1) {</span><br><span style="color: hsl(120, 100%, 40%);">+ if (SgsapAssociationTable[i].imsi == imsi) {</span><br><span style="color: hsl(120, 100%, 40%);">+ return SgsapAssociationTable[i].comp_ref;</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ setverdict(fail, "DIAMETER Association Table not found by IMSI", imsi);</span><br><span style="color: hsl(120, 100%, 40%);">+ mtc.stop;</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_imsi_by_comp(DIAMETER_ConnHdlr client)</span><br><span style="color: hsl(120, 100%, 40%);">+runs on DIAMETER_Emulation_CT return hexstring {</span><br><span style="color: hsl(120, 100%, 40%);">+ var integer i;</span><br><span style="color: hsl(120, 100%, 40%);">+ for (i := 0; i < sizeof(SgsapAssociationTable); i := i+1) {</span><br><span style="color: hsl(120, 100%, 40%);">+ if (SgsapAssociationTable[i].comp_ref == client) {</span><br><span style="color: hsl(120, 100%, 40%);">+ return SgsapAssociationTable[i].imsi;</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ setverdict(fail, "DIAMETER Association Table not found by component ", client);</span><br><span style="color: hsl(120, 100%, 40%);">+ mtc.stop;</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_imsi_table_add(DIAMETER_ConnHdlr comp_ref, hexstring imsi)</span><br><span style="color: hsl(120, 100%, 40%);">+runs on DIAMETER_Emulation_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+ var integer i;</span><br><span style="color: hsl(120, 100%, 40%);">+ for (i := 0; i < sizeof(SgsapAssociationTable); i := i+1) {</span><br><span style="color: hsl(120, 100%, 40%);">+ if (not isvalue(SgsapAssociationTable[i].imsi)) {</span><br><span style="color: hsl(120, 100%, 40%);">+ SgsapAssociationTable[i].imsi := imsi;</span><br><span style="color: hsl(120, 100%, 40%);">+ SgsapAssociationTable[i].comp_ref := comp_ref;</span><br><span style="color: hsl(120, 100%, 40%);">+ return;</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ testcase.stop("DIAMETER Association Table full!");</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_imsi_table_del(DIAMETER_ConnHdlr comp_ref, hexstring imsi)</span><br><span style="color: hsl(120, 100%, 40%);">+runs on DIAMETER_Emulation_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+ var integer i;</span><br><span style="color: hsl(120, 100%, 40%);">+ for (i := 0; i < sizeof(SgsapAssociationTable); i := i+1) {</span><br><span style="color: hsl(120, 100%, 40%);">+ if (SgsapAssociationTable[i].comp_ref == comp_ref and</span><br><span style="color: hsl(120, 100%, 40%);">+ SgsapAssociationTable[i].imsi == imsi) {</span><br><span style="color: hsl(120, 100%, 40%);">+ SgsapAssociationTable[i].imsi := omit;</span><br><span style="color: hsl(120, 100%, 40%);">+ SgsapAssociationTable[i].comp_ref := null;</span><br><span style="color: hsl(120, 100%, 40%);">+ return;</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ setverdict(fail, "DIAMETER Association Table: Couldn't find to-be-deleted entry!");</span><br><span style="color: hsl(120, 100%, 40%);">+ mtc.stop;</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_imsi_table_init()</span><br><span style="color: hsl(120, 100%, 40%);">+runs on DIAMETER_Emulation_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+ for (var integer i := 0; i < sizeof(SgsapAssociationTable); i := i+1) {</span><br><span style="color: hsl(120, 100%, 40%);">+ SgsapAssociationTable[i].comp_ref := null;</span><br><span style="color: hsl(120, 100%, 40%);">+ SgsapAssociationTable[i].imsi := omit;</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+function f_DIAMETER_get_avp(PDU_DIAMETER pdu, template (present) AVP_Code avp_code)</span><br><span style="color: hsl(120, 100%, 40%);">+return template (omit) AVP</span><br><span style="color: hsl(120, 100%, 40%);">+{</span><br><span style="color: hsl(120, 100%, 40%);">+ var integer i;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ for (i := 0; i < lengthof(pdu.avps); i := i+1) {</span><br><span style="color: hsl(120, 100%, 40%);">+ if (not ispresent(pdu.avps[i].avp)) {</span><br><span style="color: hsl(120, 100%, 40%);">+ continue;</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ var AVP_Header hdr := pdu.avps[i].avp.avp_header;</span><br><span style="color: hsl(120, 100%, 40%);">+ if (match(hdr.avp_code, avp_code)) {</span><br><span style="color: hsl(120, 100%, 40%);">+ return pdu.avps[i].avp;</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ return omit;</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+function f_DIAMETER_get_imsi(PDU_DIAMETER pdu) return template (omit) IMSI</span><br><span style="color: hsl(120, 100%, 40%);">+{</span><br><span style="color: hsl(120, 100%, 40%);">+ var template (omit) AVP imsi_avp;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ imsi_avp := f_DIAMETER_get_avp(pdu, c_AVP_Code_BASE_NONE_User_Name);</span><br><span style="color: hsl(120, 100%, 40%);">+ if (istemplatekind(imsi_avp, "omit")) {</span><br><span style="color: hsl(120, 100%, 40%);">+ return omit;</span><br><span style="color: hsl(120, 100%, 40%);">+ } else {</span><br><span style="color: hsl(120, 100%, 40%);">+ var octetstring imsi_oct := valueof(imsi_avp.avp_data.avp_BASE_NONE_User_Name);</span><br><span style="color: hsl(120, 100%, 40%);">+ return str2hex(oct2char(imsi_oct));</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+private template (value) SctpTuple ts_SCTP(template (omit) integer ppid := omit) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ sinfo_stream := omit,</span><br><span style="color: hsl(120, 100%, 40%);">+ sinfo_ppid := ppid,</span><br><span style="color: hsl(120, 100%, 40%);">+ remSocks := omit,</span><br><span style="color: hsl(120, 100%, 40%);">+ assocId := omit</span><br><span style="color: hsl(120, 100%, 40%);">+};</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+private template PortEvent tr_SctpAssocChange := {</span><br><span style="color: hsl(120, 100%, 40%);">+ sctpEvent := {</span><br><span style="color: hsl(120, 100%, 40%);">+ sctpAssocChange := ?</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+private template PortEvent tr_SctpPeerAddrChange := {</span><br><span style="color: hsl(120, 100%, 40%);">+ sctpEvent := {</span><br><span style="color: hsl(120, 100%, 40%);">+ sctpPeerAddrChange := ?</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_diameter_xceive(template (value) PDU_DIAMETER tx,</span><br><span style="color: hsl(120, 100%, 40%);">+ template PDU_DIAMETER rx_t := ?)</span><br><span style="color: hsl(120, 100%, 40%);">+runs on DIAMETER_Emulation_CT return PDU_DIAMETER {</span><br><span style="color: hsl(120, 100%, 40%);">+ timer T := 10.0;</span><br><span style="color: hsl(120, 100%, 40%);">+ var DIAMETER_RecvFrom mrf;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER.send(t_DIAMETER_Send(g_diameter_conn_id, tx));</span><br><span style="color: hsl(120, 100%, 40%);">+ alt {</span><br><span style="color: hsl(120, 100%, 40%);">+ [] DIAMETER.receive(tr_DIAMETER_RecvFrom_R(rx_t)) -> value mrf { }</span><br><span style="color: hsl(120, 100%, 40%);">+ [] DIAMETER.receive(tr_SctpAssocChange) { repeat; }</span><br><span style="color: hsl(120, 100%, 40%);">+ [] DIAMETER.receive(tr_SctpPeerAddrChange) { repeat; }</span><br><span style="color: hsl(120, 100%, 40%);">+ [] T.timeout {</span><br><span style="color: hsl(120, 100%, 40%);">+ setverdict(fail, "Timeout waiting for ", rx_t);</span><br><span style="color: hsl(120, 100%, 40%);">+ mtc.stop;</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ return mrf.msg;</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+function main(DIAMETEROps ops, DIAMETER_conn_parameters p, charstring id) runs on DIAMETER_Emulation_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+ var Result res;</span><br><span style="color: hsl(120, 100%, 40%);">+ g_diameter_id := id;</span><br><span style="color: hsl(120, 100%, 40%);">+ f_imsi_table_init();</span><br><span style="color: hsl(120, 100%, 40%);">+ f_expect_table_init();</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ map(self:DIAMETER, system:DIAMETER_CODEC_PT);</span><br><span style="color: hsl(120, 100%, 40%);">+ if (p.remote_sctp_port == -1) {</span><br><span style="color: hsl(120, 100%, 40%);">+ res := DIAMETER_CodecPort_CtrlFunct.f_IPL4_listen(DIAMETER, p.local_ip, p.local_sctp_port, { sctp := valueof(ts_SCTP) });</span><br><span style="color: hsl(120, 100%, 40%);">+ } else {</span><br><span style="color: hsl(120, 100%, 40%);">+ res := DIAMETER_CodecPort_CtrlFunct.f_IPL4_connect(DIAMETER, p.remote_ip, p.remote_sctp_port,</span><br><span style="color: hsl(120, 100%, 40%);">+ p.local_ip, p.local_sctp_port, -1, { sctp := valueof(ts_SCTP) });</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ if (not ispresent(res.connId)) {</span><br><span style="color: hsl(120, 100%, 40%);">+ setverdict(fail, "Could not connect DIAMETER socket, check your configuration");</span><br><span style="color: hsl(120, 100%, 40%);">+ mtc.stop;</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ g_diameter_conn_id := res.connId;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ while (true) {</span><br><span style="color: hsl(120, 100%, 40%);">+ var DIAMETER_ConnHdlr vc_conn;</span><br><span style="color: hsl(120, 100%, 40%);">+ var PDU_ML3_MS_NW l3_mo;</span><br><span style="color: hsl(120, 100%, 40%);">+ var PDU_ML3_NW_MS l3_mt;</span><br><span style="color: hsl(120, 100%, 40%);">+ var template IMSI imsi_t;</span><br><span style="color: hsl(120, 100%, 40%);">+ var hexstring imsi;</span><br><span style="color: hsl(120, 100%, 40%);">+ var DIAMETER_RecvFrom mrf;</span><br><span style="color: hsl(120, 100%, 40%);">+ var PDU_DIAMETER msg;</span><br><span style="color: hsl(120, 100%, 40%);">+ var charstring vlr_name, mme_name;</span><br><span style="color: hsl(120, 100%, 40%);">+ var PortEvent port_evt;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ alt {</span><br><span style="color: hsl(120, 100%, 40%);">+ [] DIAMETER.receive(PortEvent:{connOpened := ?}) -> value port_evt {</span><br><span style="color: hsl(120, 100%, 40%);">+ g_diameter_conn_id := port_evt.connOpened.connId;</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ [] DIAMETER.receive(PortEvent:?) { }</span><br><span style="color: hsl(120, 100%, 40%);">+ /* DIAMETER from client */</span><br><span style="color: hsl(120, 100%, 40%);">+ [] DIAMETER_CLIENT.receive(PDU_DIAMETER:?) -> value msg sender vc_conn {</span><br><span style="color: hsl(120, 100%, 40%);">+ /* Pass message through */</span><br><span style="color: hsl(120, 100%, 40%);">+ /* TODO: check which ConnectionID client has allocated + store in table? */</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER.send(t_DIAMETER_Send(g_diameter_conn_id, msg));</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ /* handle CER/CEA handshake */</span><br><span style="color: hsl(120, 100%, 40%);">+ [] DIAMETER.receive(tr_DIAMETER_RecvFrom_R(tr_DIAMETER_R(cmd_code := Capabilities_Exchange))) -> value mrf {</span><br><span style="color: hsl(120, 100%, 40%);">+ var template (value) PDU_DIAMETER resp;</span><br><span style="color: hsl(120, 100%, 40%);">+ resp := ts_DIA_CEA(mrf.msg.hop_by_hop_id, mrf.msg.end_to_end_id);</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER.send(t_DIAMETER_Send(g_diameter_conn_id, resp));</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ /* DIAMETER from remote peer */</span><br><span style="color: hsl(120, 100%, 40%);">+ [] DIAMETER.receive(tr_DIAMETER_RecvFrom_R(?)) -> value mrf {</span><br><span style="color: hsl(120, 100%, 40%);">+ imsi_t := f_DIAMETER_get_imsi(mrf.msg);</span><br><span style="color: hsl(120, 100%, 40%);">+ if (isvalue(imsi_t)) {</span><br><span style="color: hsl(120, 100%, 40%);">+ imsi := valueof(imsi_t);</span><br><span style="color: hsl(120, 100%, 40%);">+ if (f_imsi_known(imsi)) {</span><br><span style="color: hsl(120, 100%, 40%);">+ vc_conn := f_comp_by_imsi(imsi);</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_CLIENT.send(mrf.msg) to vc_conn;</span><br><span style="color: hsl(120, 100%, 40%);">+ } else {</span><br><span style="color: hsl(120, 100%, 40%);">+ vc_conn := ops.create_cb.apply(mrf.msg, imsi, id);</span><br><span style="color: hsl(120, 100%, 40%);">+ f_imsi_table_add(vc_conn, imsi);</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_CLIENT.send(mrf.msg) to vc_conn;</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ } else {</span><br><span style="color: hsl(120, 100%, 40%);">+ /* message contained no IMSI; is not IMSI-oriented */</span><br><span style="color: hsl(120, 100%, 40%);">+ var template PDU_DIAMETER resp := ops.unitdata_cb.apply(mrf.msg);</span><br><span style="color: hsl(120, 100%, 40%);">+ if (isvalue(resp)) {</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER.send(t_DIAMETER_Send(g_diameter_conn_id, valueof(resp)));</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ [] DIAMETER.receive(tr_SctpAssocChange) { }</span><br><span style="color: hsl(120, 100%, 40%);">+ [] DIAMETER.receive(tr_SctpPeerAddrChange) { }</span><br><span style="color: hsl(120, 100%, 40%);">+ [] DIAMETER_PROC.getcall(DIAMETEREM_register:{?,?}) -> param(imsi, vc_conn) {</span><br><span style="color: hsl(120, 100%, 40%);">+ f_create_expect(imsi, vc_conn);</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_PROC.reply(DIAMETEREM_register:{imsi, vc_conn}) to vc_conn;</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* "Expect" Handling */</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+type record ExpectData {</span><br><span style="color: hsl(120, 100%, 40%);">+ hexstring imsi optional,</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_ConnHdlr vc_conn</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+signature DIAMETEREM_register(in hexstring imsi, in DIAMETER_ConnHdlr hdlr);</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+type port DIAMETEREM_PROC_PT procedure {</span><br><span style="color: hsl(120, 100%, 40%);">+ inout DIAMETEREM_register;</span><br><span style="color: hsl(120, 100%, 40%);">+} with { extension "internal" };</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* Function that can be used as create_cb and will usse the expect table */</span><br><span style="color: hsl(120, 100%, 40%);">+function ExpectedCreateCallback(PDU_DIAMETER msg, hexstring imsi, charstring id)</span><br><span style="color: hsl(120, 100%, 40%);">+runs on DIAMETER_Emulation_CT return DIAMETER_ConnHdlr {</span><br><span style="color: hsl(120, 100%, 40%);">+ var DIAMETER_ConnHdlr ret := null;</span><br><span style="color: hsl(120, 100%, 40%);">+ var integer i;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ for (i := 0; i < sizeof(DiameterExpectTable); i := i+1) {</span><br><span style="color: hsl(120, 100%, 40%);">+ if (not ispresent(DiameterExpectTable[i].imsi)) {</span><br><span style="color: hsl(120, 100%, 40%);">+ continue;</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ if (imsi == DiameterExpectTable[i].imsi) {</span><br><span style="color: hsl(120, 100%, 40%);">+ ret := DiameterExpectTable[i].vc_conn;</span><br><span style="color: hsl(120, 100%, 40%);">+ /* Release this entry */</span><br><span style="color: hsl(120, 100%, 40%);">+ DiameterExpectTable[i].imsi := omit;</span><br><span style="color: hsl(120, 100%, 40%);">+ DiameterExpectTable[i].vc_conn := null;</span><br><span style="color: hsl(120, 100%, 40%);">+ log("Found Expect[", i, "] for ", msg, " handled at ", ret);</span><br><span style="color: hsl(120, 100%, 40%);">+ return ret;</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ setverdict(fail, "Couldn't find Expect for ", msg);</span><br><span style="color: hsl(120, 100%, 40%);">+ mtc.stop;</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_create_expect(hexstring imsi, DIAMETER_ConnHdlr hdlr)</span><br><span style="color: hsl(120, 100%, 40%);">+runs on DIAMETER_Emulation_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+ var integer i;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ /* Check an entry like this is not already presnt */</span><br><span style="color: hsl(120, 100%, 40%);">+ for (i := 0; i < sizeof(DiameterExpectTable); i := i+1) {</span><br><span style="color: hsl(120, 100%, 40%);">+ if (imsi == DiameterExpectTable[i].imsi) {</span><br><span style="color: hsl(120, 100%, 40%);">+ setverdict(fail, "IMSI already present", imsi);</span><br><span style="color: hsl(120, 100%, 40%);">+ mtc.stop;</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ for (i := 0; i < sizeof(DiameterExpectTable); i := i+1) {</span><br><span style="color: hsl(120, 100%, 40%);">+ if (not ispresent(DiameterExpectTable[i].imsi)) {</span><br><span style="color: hsl(120, 100%, 40%);">+ DiameterExpectTable[i].imsi := imsi;</span><br><span style="color: hsl(120, 100%, 40%);">+ DiameterExpectTable[i].vc_conn := hdlr;</span><br><span style="color: hsl(120, 100%, 40%);">+ log("Created Expect[", i, "] for ", imsi, " to be handled at ", hdlr);</span><br><span style="color: hsl(120, 100%, 40%);">+ return;</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ testcase.stop("No space left in DiameterExpectTable")</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* client/conn_hdlr side function to use procedure port to create expect in emulation */</span><br><span style="color: hsl(120, 100%, 40%);">+function f_diameter_expect(hexstring imsi) runs on DIAMETER_ConnHdlr {</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_PROC.call(DIAMETEREM_register:{imsi, self}) {</span><br><span style="color: hsl(120, 100%, 40%);">+ [] DIAMETER_PROC.getreply(DIAMETEREM_register:{?,?}) {};</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+private function f_expect_table_init()</span><br><span style="color: hsl(120, 100%, 40%);">+runs on DIAMETER_Emulation_CT {</span><br><span style="color: hsl(120, 100%, 40%);">+ var integer i;</span><br><span style="color: hsl(120, 100%, 40%);">+ for (i := 0; i < sizeof(DiameterExpectTable); i := i + 1) {</span><br><span style="color: hsl(120, 100%, 40%);">+ DiameterExpectTable[i].imsi := omit;</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+function DummyUnitdataCallback(PDU_DIAMETER msg)</span><br><span style="color: hsl(120, 100%, 40%);">+runs on DIAMETER_Emulation_CT return template PDU_DIAMETER {</span><br><span style="color: hsl(120, 100%, 40%);">+ log("Ignoring DIAMETER ", msg);</span><br><span style="color: hsl(120, 100%, 40%);">+ return omit;</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span>diff --git a/library/DIAMETER_Templates.ttcn b/library/DIAMETER_Templates.ttcn</span><br><span>new file mode 100644</span><br><span>index 0000000..2779536</span><br><span>--- /dev/null</span><br><span>+++ b/library/DIAMETER_Templates.ttcn</span><br><span>@@ -0,0 +1,821 @@</span><br><span style="color: hsl(120, 100%, 40%);">+module DIAMETER_Templates {</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* (C) 2019 by Harald Welte <laforge@gnumonks.org></span><br><span style="color: hsl(120, 100%, 40%);">+ * All rights reserved.</span><br><span style="color: hsl(120, 100%, 40%);">+ *</span><br><span style="color: hsl(120, 100%, 40%);">+ * Released under the terms of GNU General Public License, Version 2 or</span><br><span style="color: hsl(120, 100%, 40%);">+ * (at your option) any later version.</span><br><span style="color: hsl(120, 100%, 40%);">+ *</span><br><span style="color: hsl(120, 100%, 40%);">+ * SPDX-License-Identifier: GPL-2.0-or-later</span><br><span style="color: hsl(120, 100%, 40%);">+ */</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+import from DIAMETER_Types all;</span><br><span style="color: hsl(120, 100%, 40%);">+import from Osmocom_Types all;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* https://www.iana.org/assignments/aaa-parameters/aaa-parameters.xhtml#aaa-parameters-4 */</span><br><span style="color: hsl(120, 100%, 40%);">+type enumerated DIAMETER_Resultcode {</span><br><span style="color: hsl(120, 100%, 40%);">+ /* Informational */</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_MULTI_ROUND_AUTH (1001),</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ /* Success */</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_SUCCESS (2001),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_LIMITED_SUCCESS (2002),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_FIRST_REGISTRATION (2003),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_SUBSEQUENT_REGISTRATION (2004),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_UNREGISTERED_SERVICE (2005),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_SUCCESS_SERVER_NAME_NOT_STORED (2006),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_SERVER_SELECTION (2007),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_SUCCESS_AUTH_SENT_SERVER_NOT_STORED (2008),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_SUCCESS_RELOCATE_HA (2009),</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ /* Protocol Errors */</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_COMMAND_UNSUPPORTED (3001),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_UNABLE_TO_DELIVER (3002),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_REALM_NOT_SERVED (3003),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_TOO_BUSY (3004),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_LOOP_DETECTED (3005),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_REDIRECT_INDICATION (3006),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_APPLICATION_UNSUPPORTED (3007),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_INVALID_HDR_BITS (3008),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_INVALID_AVP_BITS (3009),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_UNKNOWN_PEER (3010),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_REALM_REDIRECT_INDICATION (3011),</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ /* Transient Failures */</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_AUTHENTICATION_REJECTED (4001),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_OUT_OF_SPACE (4002),</span><br><span style="color: hsl(120, 100%, 40%);">+ ELECTION_LOST (4003),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_ERROR_MIP_REPLY_FAILURE (4005),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_ERROR_HA_NOT_AVAILABLE (4006),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_ERROR_BAD_KEY (4007),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_ERROR_MIP_FILTER_NOT_SUPPORTED (4008),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_END_USER_SERVICE_DENIED (4010),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_CREDIT_CONTROL_NOT_APPLICABLE (4011),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_CREDIT_LIMIT_REACHED (4012),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_USER_NAME_REQUIRED (4013),</span><br><span style="color: hsl(120, 100%, 40%);">+ RESOURCE_FAILURE (4014),</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_AUTHENTICATION_DATA_UNAVAILABLE (4181),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_ERROR_CAMEL_SUBSCRIPTION_PRESENT (4882),</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ /* Permanent Failure */</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_AVP_UNSUPPORTED (5001),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_UNKNOWN_SESSION_ID (5002),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_AUTHORIZATION_REJECTED (5003),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_INVALID_AVP_VALUE (5004),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_MISSING_AVP (5005),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_RESOURCES_EXCEEDED (5006),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_CONTRADICTING_AVPS (5007),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_AVP_NOT_ALLOWED (5008),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_AVP_OCCURS_TOO_MANY_TIMES (5009),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_NO_COMMON_APPLICATION (5010),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_UNSUPPORTED_VERSION (5011),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_UNABLE_TO_COMPLY (5012),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_INVALID_BIT_IN_HEADER (5013),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_INVALID_AVP_LENGTH (5014),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_INVALID_MESSAGE_LENGTH (5015),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_INVALID_AVP_BIT_COMBO (5016),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_NO_COMMON_SECURITY (5017),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_RADIUS_AVP_UNTRANSLATABLE (5018),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_ERROR_NO_FOREIGN_HA_SERVICE (5024),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_ERROR_END_TO_END_MIP_KEY_ENCRYPTION (5025),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_USER_UNKNOWN (5030),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_RATING_FAILED (5031),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_ERROR_USER_UNKNOWN (5032),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_ERROR_IDENTITIES_DONT_MATCH (5033),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_ERROR_IDENTITY_NOT_REGISTERED (5034),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_ERROR_ROAMING_NOT_ALLOWED (5035),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_ERROR_IDENTITY_ALREADY_REGISTERED (5036),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_ERROR_AUTH_SCHEME_NOT_SUPPORTED (5037),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_ERROR_IN_ASSIGNMENT_TYPE (5038),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_ERROR_TOO_MUCH_DATA (5039),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_ERROR_NOT_SUPPORTED_USER_DATA (5040),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_ERROR_MIP6_AUTH_MODE (5041),</span><br><span style="color: hsl(120, 100%, 40%);">+ UNKNOWN_BINDING_TEMPLATE_NAME (5042),</span><br><span style="color: hsl(120, 100%, 40%);">+ BINDING_FAILURE (5043),</span><br><span style="color: hsl(120, 100%, 40%);">+ MAX_BINDINGS_SET_FAILURE (5044),</span><br><span style="color: hsl(120, 100%, 40%);">+ MAXIMUM_BINDINGS_REACHED_FOR_ENDPOINT (5045),</span><br><span style="color: hsl(120, 100%, 40%);">+ SESSION_EXISTS (5046),</span><br><span style="color: hsl(120, 100%, 40%);">+ INSUFFICIENT_CLASSIFIERS (5047),</span><br><span style="color: hsl(120, 100%, 40%);">+ DIAMETER_ERROR_EAP_CODE_UNKNOWN (5048)</span><br><span style="color: hsl(120, 100%, 40%);">+};</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* 3GPP TS 29.272 Section 7.1.8 */</span><br><span style="color: hsl(120, 100%, 40%);">+const uint32_t c_DIAMETER_3GPP_S6_AID := 16777251;</span><br><span style="color: hsl(120, 100%, 40%);">+const uint32_t c_DIAMETER_3GPP_S13_AID := 16777252;</span><br><span style="color: hsl(120, 100%, 40%);">+const uint32_t c_DIAMETER_3GPP_S7_AID := 16777308;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) PDU_DIAMETER</span><br><span style="color: hsl(120, 100%, 40%);">+ts_DIAMETER(template (value) BIT8 flags,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (value) Command_Code cmd_code,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (value) OCTET4 app_id := '00000000'O,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (value) UINT32 hbh_id,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (value) UINT32 ete_id,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (value) AVP_list avps := {}</span><br><span style="color: hsl(120, 100%, 40%);">+) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ version := 1,</span><br><span style="color: hsl(120, 100%, 40%);">+ message_length := 0, /* overwritten */</span><br><span style="color: hsl(120, 100%, 40%);">+ RPETxxxx := flags,</span><br><span style="color: hsl(120, 100%, 40%);">+ command_code := cmd_code,</span><br><span style="color: hsl(120, 100%, 40%);">+ application_id := app_id,</span><br><span style="color: hsl(120, 100%, 40%);">+ hop_by_hop_id := hbh_id,</span><br><span style="color: hsl(120, 100%, 40%);">+ end_to_end_id := ete_id,</span><br><span style="color: hsl(120, 100%, 40%);">+ avps := avps</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+template (present) PDU_DIAMETER</span><br><span style="color: hsl(120, 100%, 40%);">+tr_DIAMETER(template (present) BIT8 flags := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (present) Command_Code cmd_code := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (present) OCTET4 app_id := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (present) UINT32 hbh_id := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (present) UINT32 ete_id := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (present) AVP_list avps := ?) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ version := 1,</span><br><span style="color: hsl(120, 100%, 40%);">+ message_length := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ RPETxxxx := flags,</span><br><span style="color: hsl(120, 100%, 40%);">+ command_code := cmd_code,</span><br><span style="color: hsl(120, 100%, 40%);">+ application_id := app_id,</span><br><span style="color: hsl(120, 100%, 40%);">+ hop_by_hop_id := hbh_id,</span><br><span style="color: hsl(120, 100%, 40%);">+ end_to_end_id := ete_id,</span><br><span style="color: hsl(120, 100%, 40%);">+ avps := avps</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+template (present) PDU_DIAMETER</span><br><span style="color: hsl(120, 100%, 40%);">+tr_DIAMETER_A(</span><br><span style="color: hsl(120, 100%, 40%);">+ template (present) Command_Code cmd_code := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (present) OCTET4 app_id := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (present) UINT32 hbh_id := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (present) UINT32 ete_id := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (present) AVP_list avps := ?) :=</span><br><span style="color: hsl(120, 100%, 40%);">+ tr_DIAMETER('0???????'B, cmd_code, app_id, hbh_id, ete_id, avps);</span><br><span style="color: hsl(120, 100%, 40%);">+template (present) PDU_DIAMETER</span><br><span style="color: hsl(120, 100%, 40%);">+tr_DIAMETER_R(</span><br><span style="color: hsl(120, 100%, 40%);">+ template (present) Command_Code cmd_code := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (present) OCTET4 app_id := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (present) UINT32 hbh_id := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (present) UINT32 ete_id := ?,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (present) AVP_list avps := ?) :=</span><br><span style="color: hsl(120, 100%, 40%);">+ tr_DIAMETER('1???????'B, cmd_code, app_id, hbh_id, ete_id, avps);</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) AVP_Header</span><br><span style="color: hsl(120, 100%, 40%);">+ts_DIA_Hdr(template (value) AVP_Code avp_code,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (value) BIT8 flags := '01000000'B) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_code := avp_code,</span><br><span style="color: hsl(120, 100%, 40%);">+ VMPxxxxx := flags,</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_length := 0, /* overwritten */</span><br><span style="color: hsl(120, 100%, 40%);">+ vendor_id := omit</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+template (present) AVP_Header</span><br><span style="color: hsl(120, 100%, 40%);">+tr_DIA_Hdr(template (present) AVP_Code avp_code,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (present) BIT8 flags := '0???????'B) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_code := avp_code,</span><br><span style="color: hsl(120, 100%, 40%);">+ VMPxxxxx := flags,</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_length := ?, /* overwritten */</span><br><span style="color: hsl(120, 100%, 40%);">+ vendor_id := omit</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) AVP_Header</span><br><span style="color: hsl(120, 100%, 40%);">+ts_DIA_Hdr_3GPP(template (value) AVP_Code avp_code,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (value) BIT8 flags := '11000000'B) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_code := avp_code,</span><br><span style="color: hsl(120, 100%, 40%);">+ VMPxxxxx := flags,</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_length := 0, /* overwritten */</span><br><span style="color: hsl(120, 100%, 40%);">+ vendor_id := vendor_id_3GPP</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+template (present) AVP_Header</span><br><span style="color: hsl(120, 100%, 40%);">+tr_DIA_Hdr_3GPP(template (present) AVP_Code avp_code,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (present) BIT8 flags := '1???????'B) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_code := avp_code,</span><br><span style="color: hsl(120, 100%, 40%);">+ VMPxxxxx := flags,</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_length := ?, /* overwritten */</span><br><span style="color: hsl(120, 100%, 40%);">+ vendor_id := vendor_id_3GPP</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_OriginHost(template (value) charstring host) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr(c_AVP_Code_BASE_NONE_Origin_Host),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Origin_Host := host</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+template (present) GenericAVP tr_AVP_OriginHost(template (present) charstring host := ?) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := tr_DIA_Hdr(c_AVP_Code_BASE_NONE_Origin_Host),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Origin_Host := host</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_OriginRealm(template (value) charstring realm) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr(c_AVP_Code_BASE_NONE_Origin_Realm),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Origin_Realm := realm</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+template (present) GenericAVP tr_AVP_OriginRealm(template (present) charstring realm := ?) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := tr_DIA_Hdr(c_AVP_Code_BASE_NONE_Origin_Realm),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Origin_Realm := realm</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_OriginStateId(template (value) OCTET4 state_id) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr(c_AVP_Code_BASE_NONE_Origin_State_Id),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Origin_State_Id := state_id</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_HostIpAddr(template (value) OCTET4 ipv4_addr) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr(c_AVP_Code_BASE_NONE_Host_IP_Address),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Host_IP_Address := {</span><br><span style="color: hsl(120, 100%, 40%);">+ address_type := IP,</span><br><span style="color: hsl(120, 100%, 40%);">+ address_data := ipv4_addr</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_VendorId(Vendor_Id vendor_id) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr(c_AVP_Code_BASE_NONE_Vendor_Id, '00000000'B),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Vendor_Id := int2oct(enum2int(vendor_id), 4)</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_ProductName(charstring name) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr(c_AVP_Code_BASE_NONE_Product_Name, '00000000'B),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Product_Name := char2oct(name)</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_FwRevision(octetstring fw_version) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr(c_AVP_Code_BASE_NONE_Firmware_Revision, '00000000'B),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Firmware_Revision := fw_version</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_InbSecId(template (value) OCTET4 inb_sec_id) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr(c_AVP_Code_BASE_NONE_Inband_Security_Id),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Inband_Security_Id := inb_sec_id</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_VendorSpecAppId(Vendor_Id vendor_id, uint32_t auth_app_id) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr(c_AVP_Code_BASE_NONE_Vendor_Specific_Application_Id),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Vendor_Specific_Application_Id := {</span><br><span style="color: hsl(120, 100%, 40%);">+ {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr(c_AVP_Code_BASE_NONE_Vendor_Id),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Vendor_Id := int2oct(enum2int(vendor_id), 4)</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }, {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr(c_AVP_Code_BASE_NONE_Auth_Application_Id),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Auth_Application_Id := int2oct(auth_app_id, 4)</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_AuthAppId(template (value) OCTET4 auth_app_id) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr(c_AVP_Code_BASE_NONE_Auth_Application_Id),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Auth_Application_Id := auth_app_id</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_SuppVendorIdRaw(uint32_t vendor_id) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr(c_AVP_Code_BASE_NONE_Supported_Vendor_Id),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Supported_Vendor_Id := int2oct(vendor_id, 4)</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_SuppVendorId(Vendor_Id vendor_id) :=</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_SuppVendorIdRaw(enum2int(vendor_id));</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_ResultCode(DIAMETER_Resultcode res_code) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr(c_AVP_Code_BASE_NONE_Result_Code),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Result_Code := int2oct(enum2int(res_code), 4)</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_AuthSessionState(template (value) BASE_NONE_Auth_Session_State ass := NO_STATE_MAINTAINED) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr(c_AVP_Code_BASE_NONE_Auth_Session_State),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Auth_Session_State := ass</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+template (present) GenericAVP tr_AVP_AuthSessionState(template (present) BASE_NONE_Auth_Session_State ass := ?) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := tr_DIA_Hdr(c_AVP_Code_BASE_NONE_Auth_Session_State),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Auth_Session_State := ass</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_SessionId(template (value) octetstring session_id) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr(c_AVP_Code_BASE_NONE_Session_Id),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Session_Id := session_id</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+template (present) GenericAVP tr_AVP_SessionId(template (present) octetstring session_id := ?) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := tr_DIA_Hdr(c_AVP_Code_BASE_NONE_Session_Id),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Session_Id := session_id</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* 3.3 Destination Realm */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_DestinationRealm(template (value) charstring dest_realm) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr(c_AVP_Code_BASE_NONE_Destination_Realm),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Destination_Realm := dest_realm</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+template (present) GenericAVP tr_AVP_DestinationRealm(template (present) charstring dest_realm := ?) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := tr_DIA_Hdr(c_AVP_Code_BASE_NONE_Destination_Realm),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_Destination_Realm := dest_realm</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* 8.14 User-Name */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_UserName(template (value) octetstring uid) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr(c_AVP_Code_BASE_NONE_User_Name),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_User_Name := uid</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+template (present) GenericAVP tr_AVP_UserName(template (present) octetstring uid := ?) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := tr_DIA_Hdr(c_AVP_Code_BASE_NONE_User_Name),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_BASE_NONE_User_Name := uid</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_UserNameImsi(hexstring imsi) := ts_AVP_UserName(char2oct(hex2str(imsi)));</span><br><span style="color: hsl(120, 100%, 40%);">+template (present) GenericAVP tr_AVP_UserNameImsi(hexstring imsi) := tr_AVP_UserName(char2oct(hex2str(imsi)));</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* TS 29.262 7.3.53 RAND */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_RAND(template (value) octetstring rand) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_RAND),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_RAND := rand</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* TS 29.262 7.3.54 XRES */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_XRES(template (value) octetstring xres) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_XRES),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_XRES := xres</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* TS 29.262 7.3.55 XRES */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_AUTN(template (value) octetstring autn) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_AUTN),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_AUTN := autn</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* TS 29.262 7.3.56 KASME */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_KASME(template (value) octetstring kasme) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_KASME),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_KASME := kasme</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* TS 29.262 7.3.23 Item-Number */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_ItemNumber(uint32_t num) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_KASME),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_Item_Number := int2oct(num, 4)</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* TS 29.262 7.3.18 E-UTRAN Vector */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_EutranVec(uint32_t item_num, octetstring rand, octetstring xres,</span><br><span style="color: hsl(120, 100%, 40%);">+ octetstring autn, octetstring kasme) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_E_UTRAN_Vector),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_E_UTRAN_Vector := {</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_ItemNumber(item_num),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_RAND(rand),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_XRES(xres),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_AUTN(autn),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_KASME(kasme)</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* TS 29.262 7.3.2 Subscription-Data */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_3GPP_SubscriptionData(template (value) AVP_list content) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_Subscription_Data),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_Subscription_Data := content</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* TS 29.262 7.3.17 Authentication-Info */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_3GPP_AuthInfo(template (value) AVP_list content) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_Authentication_Info),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_Authentication_Info := content</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* TS 29.262 7.3.9 Visited-PLMN-Id */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_3GPP_VisitedPlmnId(template (value) octetstring id) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_Visited_PLMN_Id),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_Visited_PLMN_Id := id</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+template (present) GenericAVP tr_AVP_3GPP_VisitedPlmnId(template (present) octetstring id := ?) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := tr_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_Visited_PLMN_Id),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_Visited_PLMN_Id := id</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* TS 29.262 7.3.13 RAT-Type */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_3GPP_RatType(template (value) PCC_3GPP_RAT_Type rat_type) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_PCC_3GPP_RAT_Type),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_PCC_3GPP_RAT_Type := rat_type</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+template (present) GenericAVP tr_AVP_3GPP_RatType(template (present) PCC_3GPP_RAT_Type rat_type := ?) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := tr_DIA_Hdr_3GPP(c_AVP_Code_PCC_3GPP_RAT_Type),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_PCC_3GPP_RAT_Type := rat_type</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* TS 29.262 7.3.7 ULR-Flags */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_3GPP_UlrFlags(template (value) UINT32 flags) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_ULR_Flags),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_ULR_Flags := flags</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+template (present) GenericAVP tr_AVP_3GPP_UlrFlags(template (present) UINT32 flags := ?) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := tr_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_ULR_Flags),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_ULR_Flags := flags</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* TS 29.262 7.3.8 ULA-Flags */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_3GPP_UlaFlags(template (value) UINT32 flags) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_ULA_Flags),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_ULA_Flags := flags</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+template (present) GenericAVP tr_AVP_3GPP_UlaFlags(template (present) UINT32 flags := ?) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := tr_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_ULA_Flags),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_ULA_Flags := flags</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* TS 29.262 7.3.27 Context-Identifier */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_3GPP_ContextId(uint32_t ctx) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_Context_Identifier),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_Context_Identifier := int2oct(ctx, 4)</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* Ts 29.262 7.3.29 Subscriber-Status */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_3GPP_SubscriberStatus(template (value) AAA_3GPP_Subscriber_Status sts) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_Subscriber_Status),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_Subscriber_Status := sts</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_3GPP_SubscrRauTauTmr(uint32_t tmr) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_Subscribed_Periodic_RAU_TAU_Timer),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_Subscribed_Periodic_RAU_TAU_Timer := int2oct(tmr, 4)</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* TS 29.262 7.3.33 All-APN-Configurations-Included-Indicator */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_3GPP_AllApnConfigsIncl(template (value) AAA_3GPP_All_APN_Configurations_Included_Indicator ind := All_APN_CONFIGURATIONS_INCLUDED) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_All_APN_Configurations_Included_Indicator),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_All_APN_Configurations_Included_Indicator := ind</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* TS 29.262 7.3.34 APN-Configuration-Profile */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_3GPP_ApnConfigProfile(template (value) AVP_list content) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_APN_Configuration_Profile),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_APN_Configuration_Profile := content</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* TS 29.262 7.3.35 APN-Configuration */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_3GPP_ApnConfig(uint32_t ctx, AAA_3GPP_PDN_Type pdn_type,</span><br><span style="color: hsl(120, 100%, 40%);">+ charstring apn) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_APN_Configuration_Profile),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_APN_Configuration := {</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_3GPP_ContextId(ctx),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_3GPP_PdnType(pdn_type),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_3GPP_EpsSubscrQosProfile(1, 1),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_ServiceSelection(apn)</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* TS 29.262 7.3.36 Service-Selection (refers to RFC 5778) */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_ServiceSelection(charstring apn) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr(c_AVP_Code_MIPv6_NONE_Service_Selection),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_MIPv6_NONE_Service_Selection := char2oct(apn)</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_3GPP_QosClassId(uint32_t id) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_PCC_3GPP_QoS_Class_Identifier),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_PCC_3GPP_QoS_Class_Identifier := int2oct(id, 4)</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_3GPP_PriorityLevel(uint32_t prio) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_PCC_3GPP_Priority_Level),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_PCC_3GPP_Priority_Level := int2oct(prio, 4)</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_3GPP_AllocRetenPrio(uint32_t prio) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_PCC_3GPP_Allocation_Retention_Priority),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_PCC_3GPP_Allocation_Retention_Priority := {</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_3GPP_PriorityLevel(prio)</span><br><span style="color: hsl(120, 100%, 40%);">+ /* pre-emption capability */</span><br><span style="color: hsl(120, 100%, 40%);">+ /* pre-emption vulnerability */</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_3GPP_EpsSubscrQosProfile(uint32_t qos_class, uint32_t prio) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_EPS_Subscribed_QoS_Profile),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_EPS_Subscribed_QoS_Profile := {</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_3GPP_QosClassId(qos_class),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_3GPP_AllocRetenPrio(prio)</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* TS 29.262 7.3.41 AMBR */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_3GPP_AMBR(uint32_t ul, uint32_t dl) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_AMBR),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_AMBR := {</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_3GPP_MaxReqBwUL(ul),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_3GPP_MaxReqBwDL(dl)</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_3GPP_MaxReqBwUL(uint32_t bw) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_RX_3GPP_Max_Requested_Bandwidth_UL),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_RX_3GPP_Max_Requested_Bandwidth_UL := int2oct(bw, 4)</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_3GPP_MaxReqBwDL(uint32_t bw) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_RX_3GPP_Max_Requested_Bandwidth_DL),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_RX_3GPP_Max_Requested_Bandwidth_DL := int2oct(bw, 4)</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* TS 29.262 7.3.62 PDN-Type */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) GenericAVP ts_AVP_3GPP_PdnType(template (value) AAA_3GPP_PDN_Type pdn_type) := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_header := ts_DIA_Hdr_3GPP(c_AVP_Code_AAA_3GPP_PDN_Type),</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_data := {</span><br><span style="color: hsl(120, 100%, 40%);">+ avp_AAA_3GPP_PDN_Type := pdn_type</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+ }</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* 5.3.2 Capabilities Exchange Answer */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) PDU_DIAMETER</span><br><span style="color: hsl(120, 100%, 40%);">+ts_DIA_CEA(template (value) UINT32 hbh_id, template (value) UINT32 ete_id)</span><br><span style="color: hsl(120, 100%, 40%);">+:= ts_DIAMETER(flags:='00000000'B, cmd_code:=Capabilities_Exchange, hbh_id:=hbh_id, ete_id:=ete_id,</span><br><span style="color: hsl(120, 100%, 40%);">+ avps := {</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_ResultCode(DIAMETER_SUCCESS),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_OriginHost("hss.localdomain"),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_OriginRealm("localdomain"),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_HostIpAddr('7E000004'O),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_VendorId(vendor_id_3GPP),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_ProductName("TTCN-3 Testsuite"),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_OriginStateId('00000001'O),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_SuppVendorIdRaw(5535), /* 3GPP2 */</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_SuppVendorId(vendor_id_3GPP),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_SuppVendorIdRaw(13019), /* ETSI */</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_AuthAppId('FFFFFFFF'O),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_InbSecId('00000000'O),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_VendorSpecAppId(vendor_id_3GPP, c_DIAMETER_3GPP_S6_AID)</span><br><span style="color: hsl(120, 100%, 40%);">+ });</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (present) PDU_DIAMETER</span><br><span style="color: hsl(120, 100%, 40%);">+tr_DIA_AIR(hexstring imsi) := tr_DIAMETER(flags := '11000000'B, cmd_code:=Authentication_Information,</span><br><span style="color: hsl(120, 100%, 40%);">+ app_id := int2oct(c_DIAMETER_3GPP_S6_AID, 4),</span><br><span style="color: hsl(120, 100%, 40%);">+ avps := superset(</span><br><span style="color: hsl(120, 100%, 40%);">+ tr_AVP_SessionId,</span><br><span style="color: hsl(120, 100%, 40%);">+ tr_AVP_DestinationRealm,</span><br><span style="color: hsl(120, 100%, 40%);">+ tr_AVP_UserNameImsi(imsi),</span><br><span style="color: hsl(120, 100%, 40%);">+ tr_AVP_3GPP_VisitedPlmnId</span><br><span style="color: hsl(120, 100%, 40%);">+ ));</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* TS 29.262 5.2.3.1 + 7.2.6 Authentication Information Answer */</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) PDU_DIAMETER</span><br><span style="color: hsl(120, 100%, 40%);">+ts_DIA_AIA(template (value) UINT32 hbh_id, template (value) UINT32 ete_id,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (value) octetstring sess_id,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (value) AVP_list auth_info_contents)</span><br><span style="color: hsl(120, 100%, 40%);">+:= ts_DIAMETER(flags:='01000000'B, cmd_code:=Authentication_Information,</span><br><span style="color: hsl(120, 100%, 40%);">+ app_id := int2oct(c_DIAMETER_3GPP_S6_AID, 4), hbh_id:=hbh_id, ete_id:=ete_id,</span><br><span style="color: hsl(120, 100%, 40%);">+ avps := {</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_SessionId(sess_id),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_ResultCode(DIAMETER_SUCCESS),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_AuthSessionState(NO_STATE_MAINTAINED),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_OriginHost("hss.localdomain"),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_OriginRealm("localdomain"),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_3GPP_AuthInfo(auth_info_contents)</span><br><span style="color: hsl(120, 100%, 40%);">+ });</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+/* TS 29.262 7.2.3 Update Location Request */</span><br><span style="color: hsl(120, 100%, 40%);">+template (present) PDU_DIAMETER</span><br><span style="color: hsl(120, 100%, 40%);">+tr_DIA_ULR(hexstring imsi) := tr_DIAMETER(flags:='11000000'B, cmd_code:=Update_Location,</span><br><span style="color: hsl(120, 100%, 40%);">+ app_id:=int2oct(c_DIAMETER_3GPP_S6_AID, 4),</span><br><span style="color: hsl(120, 100%, 40%);">+ avps := superset(</span><br><span style="color: hsl(120, 100%, 40%);">+ tr_AVP_SessionId,</span><br><span style="color: hsl(120, 100%, 40%);">+ tr_AVP_AuthSessionState,</span><br><span style="color: hsl(120, 100%, 40%);">+ tr_AVP_OriginHost,</span><br><span style="color: hsl(120, 100%, 40%);">+ tr_AVP_OriginRealm,</span><br><span style="color: hsl(120, 100%, 40%);">+ tr_AVP_DestinationRealm,</span><br><span style="color: hsl(120, 100%, 40%);">+ tr_AVP_UserNameImsi(imsi),</span><br><span style="color: hsl(120, 100%, 40%);">+ tr_AVP_3GPP_RatType(EUTRAN),</span><br><span style="color: hsl(120, 100%, 40%);">+ tr_AVP_3GPP_UlrFlags,</span><br><span style="color: hsl(120, 100%, 40%);">+ tr_AVP_3GPP_VisitedPlmnId</span><br><span style="color: hsl(120, 100%, 40%);">+ ));</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+template (value) PDU_DIAMETER</span><br><span style="color: hsl(120, 100%, 40%);">+ts_DIA_ULA(template (value) UINT32 hbh_id, template (value) UINT32 ete_id,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (value) octetstring sess_id,</span><br><span style="color: hsl(120, 100%, 40%);">+ template (value) AVP_list sub_data_content)</span><br><span style="color: hsl(120, 100%, 40%);">+:= ts_DIAMETER(flags:='01000000'B, cmd_code:=Update_Location,</span><br><span style="color: hsl(120, 100%, 40%);">+ app_id := int2oct(c_DIAMETER_3GPP_S6_AID, 4), hbh_id:=hbh_id, ete_id:=ete_id,</span><br><span style="color: hsl(120, 100%, 40%);">+ avps := {</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_SessionId(sess_id),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_ResultCode(DIAMETER_SUCCESS), /* optional */</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_AuthSessionState(NO_STATE_MAINTAINED),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_OriginHost("hss.localdomain"),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_OriginRealm("localdomain"),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_3GPP_UlaFlags('00000002'O),</span><br><span style="color: hsl(120, 100%, 40%);">+ ts_AVP_3GPP_SubscriptionData(sub_data_content)</span><br><span style="color: hsl(120, 100%, 40%);">+ });</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+}</span><br><span></span><br></pre><p>To view, visit <a href="https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/15206">change 15206</a>. To unsubscribe, or for help writing mail filters, visit <a href="https://gerrit.osmocom.org/settings">settings</a>.</p><div itemscope itemtype="http://schema.org/EmailMessage"><div itemscope itemprop="action" itemtype="http://schema.org/ViewAction"><link itemprop="url" href="https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/15206"/><meta itemprop="name" content="View Change"/></div></div>
<div style="display:none"> Gerrit-Project: osmo-ttcn3-hacks </div>
<div style="display:none"> Gerrit-Branch: master </div>
<div style="display:none"> Gerrit-Change-Id: Iafbf55ab25bbaa40960eb1744cff36dcd7970c17 </div>
<div style="display:none"> Gerrit-Change-Number: 15206 </div>
<div style="display:none"> Gerrit-PatchSet: 1 </div>
<div style="display:none"> Gerrit-Owner: laforge <laforge@gnumonks.org> </div>
<div style="display:none"> Gerrit-MessageType: newchange </div>