WIP: attempt at IPA extended StreamID support
diff --git a/library/IPA_Emulation.ttcn b/library/IPA_Emulation.ttcn
index ed51110..57edb00 100644
--- a/library/IPA_Emulation.ttcn
+++ b/library/IPA_Emulation.ttcn
@@ -19,6 +19,7 @@
type record ASP_IPA_Unitdata {
IpaStreamId streamId,
+ IpaStreamIdExt streamIdExt optional,
octetstring payload
}
@@ -105,6 +106,7 @@
var IPA_Send ipa_tx := {
connId := g_ipa_conn_id,
streamId := IPAC_PROTO_CCM,
+ streamIdExt := omit,
msg := enc_PDU_IPA_CCM(ccm)
}
log("CCM Tx:", ccm);
@@ -151,6 +153,7 @@
private function f_to_asp(IPA_RecvFrom ipa_rx) return ASP_IPA_Unitdata {
var ASP_IPA_Unitdata ret := {
streamId := ipa_rx.streamId,
+ streamIdExt := ipa_rx.streamIdExt,
payload := ipa_rx.msg
}
return ret;
@@ -160,6 +163,7 @@
var IPA_Send ret := {
connId := connId,
streamId := ipa_tx.streamId,
+ streamIdExt := ipa_tx.streamIdExt,
msg := ipa_tx.payload
}
return ret;