library/L1CTL_PortType: allow sending L1ctlDlMessage via L1CTL_PT
We need to be able to send L1ctlDlMessage to the l1gprs_test [1],
a special program for testing the MS side GRR implementation.
Change-Id: I18e7585a8e93e3fafeda63b7325cfcc73e792abd
Related: [1] I36ceec4035b2ea593d47998f3f14f1415c606765
Related: OS#5500
diff --git a/library/L1CTL_PortType.ttcn b/library/L1CTL_PortType.ttcn
index e521730..c44b2ae 100644
--- a/library/L1CTL_PortType.ttcn
+++ b/library/L1CTL_PortType.ttcn
@@ -316,6 +316,12 @@
pout.id := 0;
} with { extension "prototype(fast)" }
+ private function L1CTL_to_UD_dl(in L1ctlDlMessage pin, out UD_send_data pout) {
+ var L1ctlDlMessageLV msg_lv := { msg := pin };
+ pout.data := enc_L1ctlDlMessageLV(msg_lv);
+ pout.id := 0;
+ } with { extension "prototype(fast)" }
+
private function UD_to_L1CTL_dl(in UD_send_data pin, out L1ctlDlMessage pout) {
var L1ctlDlMessageLV msg_lv := dec_L1ctlDlMessageLV(pin.data);
pout:= msg_lv.msg;
@@ -323,6 +329,7 @@
type port L1CTL_PT message {
out L1ctlUlMessage
+ out L1ctlDlMessage
out L1CTL_connect
in L1ctlDlMessage
in L1CTL_connect_result
@@ -330,6 +337,7 @@
in UD_connected
} with { extension "user UD_PT
out(L1ctlUlMessage -> UD_send_data: function(L1CTL_to_UD_ul);
+ L1ctlDlMessage -> UD_send_data: function(L1CTL_to_UD_dl);
L1CTL_connect -> UD_connect: function(L1CTL_to_UD_connect))
in(UD_send_data -> L1ctlDlMessage: function(UD_to_L1CTL_dl);
UD_connect_result -> L1CTL_connect_result: function(UD_to_L1CTL_connect_result);