|
|
|
@ -186,8 +186,10 @@ type component IPA_Emulation_CT { |
|
|
|
|
/* up-facing port for OML */ |
|
|
|
|
port IPA_OML_PT IPA_OML_PORT; |
|
|
|
|
#endif |
|
|
|
|
#ifdef IPA_EMULATION_CTRL |
|
|
|
|
/* up-facing port for CTRL */ |
|
|
|
|
port IPA_CTRL_PT IPA_CTRL_PORT; |
|
|
|
|
#endif |
|
|
|
|
#ifdef IPA_EMULATION_GSUP |
|
|
|
|
/* up-facing port for GSUP */ |
|
|
|
|
port IPA_GSUP_PT IPA_GSUP_PORT; |
|
|
|
@ -300,9 +302,11 @@ private function f_send_IPA_EVT(template ASP_IPA_Event evt) runs on IPA_Emulatio |
|
|
|
|
IPA_OML_PORT.send(evt); |
|
|
|
|
} |
|
|
|
|
#endif |
|
|
|
|
#ifdef IPA_EMULATION_CTRL |
|
|
|
|
if (IPA_CTRL_PORT.checkstate("Connected")) { |
|
|
|
|
IPA_CTRL_PORT.send(evt); |
|
|
|
|
} |
|
|
|
|
#endif |
|
|
|
|
#ifdef IPA_EMULATION_GSUP |
|
|
|
|
if (IPA_GSUP_PORT.checkstate("Connected")) { |
|
|
|
|
IPA_GSUP_PORT.send(evt); |
|
|
|
@ -497,10 +501,12 @@ runs on IPA_Emulation_CT { |
|
|
|
|
ScanEvents(); |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
#ifdef IPA_EMULATION_CTRL |
|
|
|
|
private function f_ctrl_to_user(octetstring msg) runs on IPA_Emulation_CT { |
|
|
|
|
var charstring msg_ch := oct2char(msg); |
|
|
|
|
IPA_CTRL_PORT.send(dec_CtrlMessage(msg_ch)); |
|
|
|
|
} |
|
|
|
|
#endif |
|
|
|
|
|
|
|
|
|
#ifdef IPA_EMULATION_GSUP |
|
|
|
|
private function f_gsup_to_user(octetstring msg) runs on IPA_Emulation_CT { |
|
|
|
@ -703,11 +709,13 @@ private function ScanEvents() runs on IPA_Emulation_CT { |
|
|
|
|
} |
|
|
|
|
#endif |
|
|
|
|
|
|
|
|
|
#ifdef IPA_EMULATION_CTRL |
|
|
|
|
[] IPA_CTRL_PORT.receive(CtrlMessage:?) -> value ctrl_msg { |
|
|
|
|
payload := char2oct(enc_CtrlMessage(ctrl_msg)); |
|
|
|
|
ipa_ud := valueof(t_ASP_IPA_UD(IPAC_PROTO_OSMO, payload, IPAC_PROTO_EXT_CTRL)); |
|
|
|
|
IPA_PORT.send(f_from_asp(g_ipa_conn_id, ipa_ud)); |
|
|
|
|
} |
|
|
|
|
#endif |
|
|
|
|
|
|
|
|
|
#ifdef IPA_EMULATION_GSUP |
|
|
|
|
[] IPA_GSUP_PORT.receive(GSUP_PDU:?) -> value gsup_msg { |
|
|
|
|