- gerrit-log - lists.osmocom.org

[XL] Change in osmo-ttcn3-hacks[master]: Move templates from GSUP_Types.ttcn to GSUP_Templates.ttcn
by pespin 18 Jan '24

18 Jan '24

pespin has uploaded this change for review. ( https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/35617?usp=email ) Change subject: Move templates from GSUP_Types.ttcn to GSUP_Templates.ttcn ...................................................................... Move templates from GSUP_Types.ttcn to GSUP_Templates.ttcn Follow similar structure that we have for other protocols. Change-Id: I54cc8c99d1e91d57c3d5a92f6529ef2055e9d4ed --- M dia2gsup/DIA2GSUP_Tests.ttcn M dia2gsup/gen_links.sh M epdg/EPDG_Tests.ttcn M epdg/gen_links.sh M hlr/HLR_EUSE.ttcn M hlr/HLR_Tests.ttcn M hlr/gen_links.sh A library/GSUP_Templates.ttcn M library/GSUP_Types.ttcn M library/IPA_Emulation.ttcnpp M msc/BSC_ConnectionHandler.ttcn M msc/MSC_Tests.ttcn M msc/gen_links.sh M sgsn/SGSN_Tests.ttcn M sgsn/gen_links.sh 15 files changed, 1,691 insertions(+), 1,631 deletions(-) git pull ssh://gerrit.osmocom.org:29418/osmo-ttcn3-hacks refs/changes/17/35617/1 diff --git a/dia2gsup/DIA2GSUP_Tests.ttcn b/dia2gsup/DIA2GSUP_Tests.ttcn index 6e59460..6d1828f 100644 --- a/dia2gsup/DIA2GSUP_Tests.ttcn +++ b/dia2gsup/DIA2GSUP_Tests.ttcn @@ -6,8 +6,9 @@ import from L3_Common all; import from IPA_Emulation all; -import from GSUP_Emulation all; import from GSUP_Types all; +import from GSUP_Templates all; +import from GSUP_Emulation all; import from DIAMETER_Types all; import from DIAMETER_Templates all; diff --git a/dia2gsup/gen_links.sh b/dia2gsup/gen_links.sh index 52939f6..e343bd2 100755 --- a/dia2gsup/gen_links.sh +++ b/dia2gsup/gen_links.sh @@ -40,7 +40,7 @@ FILES+="DIAMETER_Templates.ttcn DIAMETER_ts29_272_Templates.ttcn " FILES+="IPA_Types.ttcn IPA_CodecPort.ttcn IPA_CodecPort_CtrlFunct.ttcn IPA_CodecPort_CtrlFunctDef.cc IPA_Emulation.ttcnpp " -FILES+="GSUP_Types.ttcn GSUP_Emulation.ttcn " +FILES+="GSUP_Types.ttcn GSUP_Templates.ttcn GSUP_Emulation.ttcn " gen_links $DIR $FILES ignore_pp_results diff --git a/epdg/EPDG_Tests.ttcn b/epdg/EPDG_Tests.ttcn index 353c738..554dd07 100644 --- a/epdg/EPDG_Tests.ttcn +++ b/epdg/EPDG_Tests.ttcn @@ -7,8 +7,9 @@ import from L3_Common all; import from IPA_Emulation all; -import from GSUP_Emulation all; import from GSUP_Types all; +import from GSUP_Templates all; +import from GSUP_Emulation all; import from DIAMETER_Types all; import from DIAMETER_Templates all; diff --git a/epdg/gen_links.sh b/epdg/gen_links.sh index bc9d90e..82a0785 100755 --- a/epdg/gen_links.sh +++ b/epdg/gen_links.sh @@ -45,7 +45,7 @@ FILES+="DIAMETER_Templates.ttcn DIAMETER_rfc5447_Templates.ttcn DIAMETER_ts29_273_Templates.ttcn " FILES+="IPA_Types.ttcn IPA_CodecPort.ttcn IPA_CodecPort_CtrlFunct.ttcn IPA_CodecPort_CtrlFunctDef.cc IPA_Emulation.ttcnpp " -FILES+="GSUP_Types.ttcn GSUP_Emulation.ttcn " +FILES+="GSUP_Types.ttcn GSUP_Templates.ttcn GSUP_Emulation.ttcn " FILES+="GTPv2_PrivateExtensions.ttcn GTPv2_Templates.ttcn " FILES+="GTPv2_CodecPort.ttcn GTPv2_CodecPort_CtrlFunctDef.cc GTPv2_CodecPort_CtrlFunct.ttcn GTPv2_Emulation.ttcn " gen_links $DIR $FILES diff --git a/hlr/HLR_EUSE.ttcn b/hlr/HLR_EUSE.ttcn index 17e4776..170bcd2 100644 --- a/hlr/HLR_EUSE.ttcn +++ b/hlr/HLR_EUSE.ttcn @@ -19,6 +19,7 @@ module HLR_EUSE { import from GSUP_Types all; +import from GSUP_Templates all; import from IPA_Emulation all; import from General_Types all; diff --git a/hlr/HLR_Tests.ttcn b/hlr/HLR_Tests.ttcn index 794ef9b..46b98c2 100644 --- a/hlr/HLR_Tests.ttcn +++ b/hlr/HLR_Tests.ttcn @@ -15,6 +15,7 @@ import from GSUP_Types all; +import from GSUP_Templates all; import from GSUP_Emulation all; import from IPA_Emulation all; diff --git a/hlr/gen_links.sh b/hlr/gen_links.sh index c77920d..52e01ba 100755 --- a/hlr/gen_links.sh +++ b/hlr/gen_links.sh @@ -44,7 +44,8 @@ gen_links $DIR $FILES DIR=../library -FILES="Misc_Helpers.ttcn General_Types.ttcn Osmocom_Types.ttcn GSM_Types.ttcn IPA_Types.ttcn IPA_CodecPort.ttcn IPA_CodecPort_CtrlFunct.ttcn IPA_CodecPort_CtrlFunctDef.cc IPA_Emulation.ttcnpp GSUP_Types.ttcn GSUP_Emulation.ttcn " +FILES="Misc_Helpers.ttcn General_Types.ttcn Osmocom_Types.ttcn GSM_Types.ttcn IPA_Types.ttcn IPA_CodecPort.ttcn IPA_CodecPort_CtrlFunct.ttcn IPA_CodecPort_CtrlFunctDef.cc IPA_Emulation.ttcnpp " +FILES+="GSUP_Types.ttcn GSUP_Templates.ttcn GSUP_Emulation.ttcn " FILES+="Osmocom_CTRL_Types.ttcn Osmocom_CTRL_Functions.ttcn Osmocom_CTRL_Adapter.ttcn " FILES+="Osmocom_VTY_Functions.ttcn " FILES+="SS_Templates.ttcn USSD_Helpers.ttcn " diff --git a/library/GSUP_Templates.ttcn b/library/GSUP_Templates.ttcn new file mode 100644 index 0000000..0e9a2e5 --- /dev/null +++ b/library/GSUP_Templates.ttcn @@ -0,0 +1,1650 @@ +module GSUP_Templates { + +/* GSUP_Templates, defining TTCN-3 templates for the GSUP protocol. + * + * GSUP is a non-standard protocol used between OsmoMSC/OsmoSGSN and OsmoHLR + * in order to replace the complex TCAP/MAP protocol. + * + * (C) 2017-2019 by Harald Welte <laforge(a)gnumonks.org> + * contributions by sysmocom - s.f.m.c. GmbH + * All rights reserved. + * + * Released under the terms of GNU General Public License, Version 2 or + * (at your option) any later version. + * + * SPDX-License-Identifier: GPL-2.0-or-later + */ + +import from General_Types all; +import from Osmocom_Types all; +import from GSUP_Types all; + +function f_gsup_postprocess_decoded(inout GSUP_PDU gsup) { + if (gsup.ies[0].tag == OSMO_GSUP_IMSI_IE) { + /* if last digit is 'F', then there's an odd number of digits and we must strip the F */ + var integer num_digits := lengthof(gsup.ies[0].val.imsi); + if (gsup.ies[0].val.imsi[num_digits-1] == 'F'H) { + gsup.ies[0].val.imsi := substr(gsup.ies[0].val.imsi, 0, num_digits-1); + } + } +} + +function f_gsup_preprocess_encoded(inout GSUP_PDU gsup) { + if (ischosen(gsup.ies[0].val.imsi)) { + /* if number of digits is odd, add a 'F' as padding at the end */ + var integer num_digits := lengthof(gsup.ies[0].val.imsi); + if (num_digits rem 2 == 1) { + gsup.ies[0].val.imsi := gsup.ies[0].val.imsi & 'F'H; + } + } +} + +template (value) GSUP_MSISDN ts_GSUP_MSISDN(hexstring digits, + BIT3 ton := '000'B, + BIT4 npi := '0000'B) := { + len := 0, /* overwritten */ + /* numberingPlanIdentification := npi, + typeOfNumber := ton, + ext1 := '0'B, */ + digits := digits +} + +template GSUP_MSISDN tr_GSUP_MSISDN(template hexstring digits, + template BIT3 ton := ?, + template BIT4 npi := ?) := { + len := ?, + /* numberingPlanIdentification := npi, + typeOfNumber := ton, + ext1 := '0'B, */ + digits := digits +} + + + +template GSUP_IE ts_GSUP_IE_AuthTuple2G(octetstring rand, octetstring sres, + octetstring kc) := { + tag := OSMO_GSUP_AUTH_TUPLE_IE, + len := 0, /* overwritten */ + val := { + auth_tuple := { + valueof(ts_GSUP_IE_RAND(rand)), + valueof(ts_GSUP_IE_SRES(sres)), + valueof(ts_GSUP_IE_Kc(kc)) + } + } +} + +template GSUP_IE tr_GSUP_IE_AuthTuple3G( + template (present) octetstring rand := ?, + template (present) octetstring ik := ?, + template (present) octetstring ck := ?, + template (present) octetstring autn := ?, + template (present) octetstring res := ?) := { + tag := OSMO_GSUP_AUTH_TUPLE_IE, + len := ?, + val := { + auth_tuple := { + tr_GSUP_IE_RAND(rand), + tr_GSUP_IE_IK(ik), + tr_GSUP_IE_CK(ck), + tr_GSUP_IE_AUTN(autn), + tr_GSUP_IE_RES(res) + } + } +} + +template GSUP_IE ts_GSUP_IE_AuthTuple3G(octetstring rand, octetstring ik, + octetstring ck, octetstring autn, + octetstring res) := { + tag := OSMO_GSUP_AUTH_TUPLE_IE, + len := 0, /* overwritten */ + val := { + auth_tuple := { + valueof(ts_GSUP_IE_RAND(rand)), + valueof(ts_GSUP_IE_IK(ik)), + valueof(ts_GSUP_IE_CK(ck)), + valueof(ts_GSUP_IE_AUTN(autn)), + valueof(ts_GSUP_IE_RES(res)) + } + } +} + +template GSUP_IE tr_GSUP_IE_AuthTuple2G3G( + template (present) octetstring rand := ?, + template (present) octetstring sres := ?, + template (present) octetstring kc := ?, + template (present) octetstring ik := ?, + template (present) octetstring ck := ?, + template (present) octetstring autn := ?, + template (present) octetstring res := ?) := { + tag := OSMO_GSUP_AUTH_TUPLE_IE, + len := ?, + val := { + auth_tuple := { + tr_GSUP_IE_RAND(rand), + tr_GSUP_IE_SRES(sres), + tr_GSUP_IE_Kc(kc), + tr_GSUP_IE_IK(ik), + tr_GSUP_IE_CK(ck), + tr_GSUP_IE_AUTN(autn), + tr_GSUP_IE_RES(res) + } + } +} + +template GSUP_IE ts_GSUP_IE_AuthTuple2G3G(octetstring rand, octetstring sres, + octetstring kc, octetstring ik, + octetstring ck, octetstring autn, + octetstring res) := { + tag := OSMO_GSUP_AUTH_TUPLE_IE, + len := 0, /* overwritten */ + val := { + auth_tuple := { + valueof(ts_GSUP_IE_RAND(rand)), + valueof(ts_GSUP_IE_SRES(sres)), + valueof(ts_GSUP_IE_Kc(kc)), + valueof(ts_GSUP_IE_IK(ik)), + valueof(ts_GSUP_IE_CK(ck)), + valueof(ts_GSUP_IE_AUTN(autn)), + valueof(ts_GSUP_IE_RES(res)) + } + } +} + +template GSUP_IE ts_GSUP_IE_PdpInfo(octetstring apn, octetstring pdp_type, octetstring pdp_qos) := { + tag := OSMO_GSUP_PDP_INFO_IE, + len := 0, /* overwritten */ + val := { + pdp_info := { + valueof(ts_GSUP_IE_APN(apn)), + valueof(ts_GSUP_IE_PDP_TYPE(pdp_type)), + valueof(ts_GSUP_IE_PDP_QOS(pdp_qos)) + } + } +} + +template (value) GSUP_IE ts_GSUP_IE_PDP_CONTEXT_ID(OCT1 ctx_id) := { + tag := OSMO_GSUP_PDP_CONTEXT_ID_IE, + len := 0, + val := { + pdp_ctx_id := ctx_id + } +} + +template GSUP_IE tr_GSUP_IE_PDP_CONTEXT_ID(template OCT1 ctx_id) := { + tag := OSMO_GSUP_PDP_CONTEXT_ID_IE, + len := ?, + val := { + pdp_ctx_id := ctx_id + } +} + + +template (value) GSUP_IE ts_GSUP_IE_PDP_TYPE(OCT2 pdp_type) := { + tag := OSMO_GSUP_PDP_TYPE_IE, + len := 0, + val := { + pdp_type := pdp_type + } +} + +template (value) GSUP_IE ts_GSUP_IE_PDP_QOS(octetstring pdp_qos) := { + tag := OSMO_GSUP_PDP_QOS_IE, + len := 0, + val := { + pdp_qos := pdp_qos + } +} + + +template GSUP_PDU tr_GSUP(template GSUP_MessageType msgt := ?, template GSUP_IEs ies := *) := { + msg_type := msgt, + ies := ies +} + +template (present) GSUP_PDU tr_GSUP_IMSI(template (present) GSUP_MessageType msgt := ?, template (present) hexstring imsi := ?) := { + msg_type := msgt, + ies := { tr_GSUP_IE_IMSI(imsi), * } +} + +template GSUP_PDU ts_GSUP(GSUP_MessageType msgt, GSUP_IEs ies := {}) := { + msg_type := msgt, + ies := ies +} + +template (value) GSUP_IMEI ts_GSUP_IMEI(hexstring digits) := { + len := 0, /* overwritten */ + digits := digits +} + +template GSUP_IMEI tr_GSUP_IMEI(template hexstring digits) := { + len := ?, + digits := digits +} + + +template (value) GSUP_PDU ts_GSUP_SAI_REQ(hexstring imsi) := + ts_GSUP(OSMO_GSUP_MSGT_SEND_AUTH_INFO_REQUEST, { valueof(ts_GSUP_IE_IMSI(imsi)) }); + +template (value) GSUP_PDU ts_GSUP_SAI_REQ_EPS(hexstring imsi) := + ts_GSUP(OSMO_GSUP_MSGT_SEND_AUTH_INFO_REQUEST, { + valueof(ts_GSUP_IE_IMSI(imsi)), + valueof(ts_GSUP_IE_CURRENT_RAT_TYPE(RAT_TYPE_EUTRAN_SGs)) + }); + +template (value) GSUP_PDU ts_GSUP_SAI_REQ_NUM_AUTH(hexstring imsi, OCT1 num_auth_vectors) := + ts_GSUP(OSMO_GSUP_MSGT_SEND_AUTH_INFO_REQUEST, { + valueof(ts_GSUP_IE_IMSI(imsi)), + valueof(ts_GSUP_IE_NUM_VECTORS_REQ(num_auth_vectors)) + }); + +template GSUP_PDU tr_GSUP_SAI_REQ(template hexstring imsi) := + tr_GSUP_IMSI(OSMO_GSUP_MSGT_SEND_AUTH_INFO_REQUEST, imsi); + +template GSUP_PDU tr_GSUP_SAI_REQ_UMTS_AKA_RESYNC( + template hexstring imsi, + template octetstring auts, + template octetstring rand) := + tr_GSUP(OSMO_GSUP_MSGT_SEND_AUTH_INFO_REQUEST, { + tr_GSUP_IE_IMSI(imsi), + tr_GSUP_IE_AUTS(auts), + tr_GSUP_IE_RAND(rand), + * + }); + +template (value) GSUP_PDU ts_GSUP_SAI_RES(hexstring imsi, GSUP_IE auth_tuple) := + ts_GSUP(OSMO_GSUP_MSGT_SEND_AUTH_INFO_RESULT, { + valueof(ts_GSUP_IE_IMSI(imsi)), auth_tuple }); + +template GSUP_PDU tr_GSUP_SAI_ERR(template hexstring imsi, template integer cause) := + tr_GSUP(OSMO_GSUP_MSGT_SEND_AUTH_INFO_ERROR, { + tr_GSUP_IE_IMSI(imsi), tr_GSUP_IE_Cause(cause) }); + +template (value) GSUP_PDU ts_GSUP_SAI_ERR(hexstring imsi, integer cause) := + ts_GSUP(OSMO_GSUP_MSGT_SEND_AUTH_INFO_ERROR, { + valueof(ts_GSUP_IE_IMSI(imsi)), valueof(ts_GSUP_IE_Cause(cause)) }); + + +template GSUP_PDU tr_GSUP_SAI_RES(template (present) hexstring imsi, + template (present) GSUP_IE auth_tuple_ie := tr_GSUP_IE(OSMO_GSUP_AUTH_TUPLE_IE)) := + tr_GSUP(OSMO_GSUP_MSGT_SEND_AUTH_INFO_RESULT, { + tr_GSUP_IE_IMSI(imsi), *, auth_tuple_ie, * }); + +template GSUP_PDU ts_GSUP_UL_REQ(hexstring imsi, GSUP_CnDomain dom := OSMO_GSUP_CN_DOMAIN_PS, + template octetstring source_name := omit) := + ts_GSUP(OSMO_GSUP_MSGT_UPDATE_LOCATION_REQUEST, f_gen_ts_ies(imsi, dom := dom, + source_name := source_name)); + +template GSUP_PDU tr_GSUP_UL_REQ(template hexstring imsi) := + tr_GSUP_IMSI(OSMO_GSUP_MSGT_UPDATE_LOCATION_REQUEST, imsi); + +template (value) GSUP_PDU ts_GSUP_UL_RES(hexstring imsi, octetstring destination_name := ''O) := + ts_GSUP(OSMO_GSUP_MSGT_UPDATE_LOCATION_RESULT, { valueof(ts_GSUP_IE_IMSI(imsi)), + valueof(ts_GSUP_IE_Destination_Name(destination_name))}); + +template GSUP_PDU tr_GSUP_UL_RES(template hexstring imsi, template octetstring destination_name := omit) := + tr_GSUP(OSMO_GSUP_MSGT_UPDATE_LOCATION_RESULT, f_gen_tr_ies(imsi, destination_name := destination_name)); + +template (value) GSUP_PDU ts_GSUP_UL_ERR(hexstring imsi, integer cause) := + ts_GSUP(OSMO_GSUP_MSGT_UPDATE_LOCATION_ERROR, { + valueof(ts_GSUP_IE_IMSI(imsi)), valueof(ts_GSUP_IE_Cause(cause)) }); + +template GSUP_PDU tr_GSUP_UL_ERR(template hexstring imsi, template integer cause := ?, + template octetstring destination_name := omit) := + tr_GSUP(OSMO_GSUP_MSGT_UPDATE_LOCATION_ERROR, + f_gen_tr_ies(imsi, cause := cause, destination_name := destination_name)); + +template (value) GSUP_PDU ts_GSUP_ISD_REQ(hexstring imsi, hexstring msisdn, octetstring destination_name := ''O) := + ts_GSUP(OSMO_GSUP_MSGT_INSERT_DATA_REQUEST, { + valueof(ts_GSUP_IE_IMSI(imsi)), valueof(ts_GSUP_IE_MSISDN(msisdn)), + valueof(ts_GSUP_IE_Destination_Name(destination_name))}); + +template GSUP_PDU tr_GSUP_ISD_REQ(template hexstring imsi, template hexstring msisdn := ?, + template octetstring destination_name := omit) := + tr_GSUP(OSMO_GSUP_MSGT_INSERT_DATA_REQUEST, + f_gen_tr_ies(imsi, msisdn := msisdn, destination_name := destination_name)); + +template GSUP_PDU ts_GSUP_ISD_RES(hexstring imsi, + template octetstring source_name := omit, + template octetstring destination_name := omit) := + ts_GSUP(OSMO_GSUP_MSGT_INSERT_DATA_RESULT, + f_gen_ts_ies(imsi, source_name := source_name, + destination_name := destination_name)); + +template GSUP_PDU tr_GSUP_ISD_RES(template hexstring imsi) := + tr_GSUP_IMSI(OSMO_GSUP_MSGT_INSERT_DATA_RESULT, imsi); + +template GSUP_PDU tr_GSUP_AUTH_FAIL_IND(hexstring imsi) := + tr_GSUP_IMSI(OSMO_GSUP_MSGT_AUTH_FAIL_REPORT, imsi); + +template (value) GSUP_PDU ts_GSUP_CL_REQ(hexstring imsi, GSUP_CancelType ctype) := + ts_GSUP(OSMO_GSUP_MSGT_LOCATION_CANCEL_REQUEST, { + valueof(ts_GSUP_IE_IMSI(imsi)), valueof(ts_GSUP_IE_CancelType(ctype)) }); + +template GSUP_PDU tr_GSUP_CL_RES(template hexstring imsi) := + tr_GSUP_IMSI(OSMO_GSUP_MSGT_LOCATION_CANCEL_RESULT, imsi); + +template GSUP_PDU tr_GSUP_CL_ERR(template hexstring imsi, template integer cause := ?) := + tr_GSUP(OSMO_GSUP_MSGT_LOCATION_CANCEL_ERROR, { + tr_GSUP_IE_IMSI(imsi), tr_GSUP_IE_Cause(cause), * }); + +template (value) GSUP_PDU ts_GSUP_PURGE_MS_REQ(hexstring imsi, GSUP_CnDomain dom) := + ts_GSUP(OSMO_GSUP_MSGT_PURGE_MS_REQUEST, { + valueof(ts_GSUP_IE_IMSI(imsi)), valueof(ts_GSUP_IE_CnDomain(dom)) }); + +template GSUP_PDU tr_GSUP_PURGE_MS_REQ(template hexstring imsi, template GSUP_CnDomain dom := ?) := + tr_GSUP(OSMO_GSUP_MSGT_PURGE_MS_REQUEST, { + tr_GSUP_IE_IMSI(imsi), *, tr_GSUP_IE_CnDomain(dom) }); + +template (value) GSUP_PDU ts_GSUP_PURGE_MS_RES(hexstring imsi) := + ts_GSUP(OSMO_GSUP_MSGT_PURGE_MS_RESULT, { + valueof(ts_GSUP_IE_IMSI(imsi)) }); + +template GSUP_PDU tr_GSUP_PURGE_MS_RES(template hexstring imsi) := + tr_GSUP(OSMO_GSUP_MSGT_PURGE_MS_RESULT, { + tr_GSUP_IE_IMSI(imsi), * }); + +template GSUP_PDU tr_GSUP_PURGE_MS_ERR(template hexstring imsi, template integer cause) := + tr_GSUP(OSMO_GSUP_MSGT_PURGE_MS_ERROR, { + tr_GSUP_IE_IMSI(imsi), tr_GSUP_IE_Cause(cause) }); + +template (value) GSUP_PDU ts_GSUP_CHECK_IMEI_REQ(hexstring imsi, hexstring imei, + template (omit) octetstring source_name := omit) := + ts_GSUP(OSMO_GSUP_MSGT_CHECK_IMEI_REQUEST, f_gen_ts_ies(imsi, imei := imei, source_name := source_name)); + +template GSUP_PDU tr_GSUP_CHECK_IMEI_REQ( + template hexstring imsi, + template hexstring imei +) := tr_GSUP( + OSMO_GSUP_MSGT_CHECK_IMEI_REQUEST, + { + tr_GSUP_IE_IMSI(imsi), + tr_GSUP_IE_IMEI(imei), + tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SUBSCRIBER_MANAGEMENT) + } +); + +template (value) GSUP_PDU ts_GSUP_CHECK_IMEI_RES(hexstring imsi, GSUP_IMEIResult result) := + ts_GSUP(OSMO_GSUP_MSGT_CHECK_IMEI_RESULT, { + valueof(ts_GSUP_IE_IMSI(imsi)), valueof(ts_GSUP_IE_IMEI_Result(result)) }); + +template GSUP_PDU tr_GSUP_CHECK_IMEI_RES(template hexstring imsi, template GSUP_IMEIResult result, + template octetstring destination_name := omit) := + tr_GSUP(OSMO_GSUP_MSGT_CHECK_IMEI_RESULT, + f_gen_tr_ies(imsi, imei_result := result, destination_name := destination_name)); + +template (value) GSUP_PDU ts_GSUP_CHECK_IMEI_ERR(hexstring imsi, integer cause) := + ts_GSUP(OSMO_GSUP_MSGT_CHECK_IMEI_ERROR, { + valueof(ts_GSUP_IE_IMSI(imsi)), valueof(ts_GSUP_IE_Cause(cause)) }); + +template GSUP_PDU tr_GSUP_CHECK_IMEI_ERR(template hexstring imsi, template integer cause, + template octetstring destination_name := omit) := + tr_GSUP(OSMO_GSUP_MSGT_CHECK_IMEI_ERROR, f_gen_tr_ies(imsi, cause := cause, destination_name := destination_name)); + + +/* EPDG Tunnel */ +template (value) GSUP_PDU ts_GSUP_EPDGTunnel_REQ(hexstring imsi, + GSUP_Message_Class message_class := OSMO_GSUP_MESSAGE_CLASS_IPSEC_EPDG, + GSUP_CnDomain dom := OSMO_GSUP_CN_DOMAIN_PS, + template (omit) octetstring source_name := omit) := + ts_GSUP(OSMO_GSUP_MSGT_EPDG_TUNNEL_REQUEST, f_gen_ts_ies(imsi, + message_class := message_class, + dom := dom, + source_name := source_name)); + +template (present) GSUP_PDU tr_GSUP_EPDGTunnel_REQ(template (present) hexstring imsi := ?, + template (present) GSUP_Message_Class message_class := OSMO_GSUP_MESSAGE_CLASS_IPSEC_EPDG) := + tr_GSUP(OSMO_GSUP_MSGT_EPDG_TUNNEL_REQUEST, + f_gen_tr_ies(imsi, + message_class := message_class)); + + +template (value) GSUP_PDU ts_GSUP_EPDGTunnel_RES(hexstring imsi, + GSUP_Message_Class message_class := OSMO_GSUP_MESSAGE_CLASS_IPSEC_EPDG, + octetstring destination_name := ''O) := + ts_GSUP(OSMO_GSUP_MSGT_EPDG_TUNNEL_RESULT, { + valueof(ts_GSUP_IE_IMSI(imsi)), + valueof(ts_GSUP_IE_Message_Class(message_class)), + valueof(ts_GSUP_IE_Destination_Name(destination_name)) + }); + +template (present) GSUP_PDU tr_GSUP_EPDGTunnel_RES(template (present) hexstring imsi, + template (present) GSUP_Message_Class message_class := OSMO_GSUP_MESSAGE_CLASS_IPSEC_EPDG, + template octetstring destination_name := omit) := + tr_GSUP(OSMO_GSUP_MSGT_EPDG_TUNNEL_RESULT, + f_gen_tr_ies(imsi, + message_class := message_class, + destination_name := destination_name)); + +template (value) GSUP_PDU ts_GSUP_EPDGTunnel_ERR(hexstring imsi, + GSUP_Message_Class message_class := OSMO_GSUP_MESSAGE_CLASS_IPSEC_EPDG, + integer cause := 0) := + ts_GSUP(OSMO_GSUP_MSGT_EPDG_TUNNEL_ERROR, { + valueof(ts_GSUP_IE_IMSI(imsi)), + valueof(ts_GSUP_IE_Cause(cause)), + valueof(ts_GSUP_IE_Message_Class(message_class)) + }); + +template (present) GSUP_PDU tr_GSUP_EPDGTunnel_ERR(template (present) hexstring imsi, + template (present) GSUP_Message_Class message_class := OSMO_GSUP_MESSAGE_CLASS_IPSEC_EPDG, + template (present) integer cause := ?, + template octetstring destination_name := omit) := + tr_GSUP(OSMO_GSUP_MSGT_EPDG_TUNNEL_ERROR, + f_gen_tr_ies(imsi, + message_class := message_class, + cause := cause, + destination_name := destination_name)); + + +template (value) GSUP_IE ts_GSUP_IE_CancelType(GSUP_CancelType ctype) := { + tag := OSMO_GSUP_CANCEL_TYPE_IE, + len := 0, /* overwritten */ + val := { + cancel_type := ctype + } +} + +template GSUP_IE tr_GSUP_IE_CancelType(template GSUP_CancelType ctype) := + tr_GSUP_IE(OSMO_GSUP_CANCEL_TYPE_IE, GSUP_IeValue:{cancel_type:=ctype}); + +template GSUP_IE tr_GSUP_IE_CnDomain(template GSUP_CnDomain domain) := + tr_GSUP_IE(OSMO_GSUP_CN_DOMAIN_IE, GSUP_IeValue:{cn_domain:=domain}); + +template GSUP_IE tr_GSUP_IE(template GSUP_IEI iei, template GSUP_IeValue val := ?) := { + tag := iei, + len := ?, + val := val +} + +template (value) GSUP_IE ts_GSUP_IE_IMSI(hexstring imsi) := { + tag := OSMO_GSUP_IMSI_IE, + len := 0, /* overwritten */ + val := { + imsi := imsi + } +} + +template (present) GSUP_IE tr_GSUP_IE_IMSI(template (present) hexstring imsi := ?) := { + tag := OSMO_GSUP_IMSI_IE, + len := ?, + val := { + imsi := imsi + } +} + +template (value) GSUP_IE ts_GSUP_IE_MSISDN(hexstring msisdn) := { + tag := OSMO_GSUP_MSISDN_IE, + len := 0, /* overwritten */ + val := { + msisdn := ts_GSUP_MSISDN(msisdn) + } +} + +template GSUP_IE tr_GSUP_IE_MSISDN(template hexstring msisdn) := { + tag := OSMO_GSUP_MSISDN_IE, + len := ?, + val := { + msisdn := tr_GSUP_MSISDN(msisdn) + } +} + + +template (value) GSUP_IE ts_GSUP_IE_Cause(integer cause) := { + tag := OSMO_GSUP_CAUSE_IE, + len := 0, /* overwritten */ + val := { + cause := cause + } +} + +template GSUP_IE tr_GSUP_IE_Cause(template integer cause) := { + tag := OSMO_GSUP_CAUSE_IE, + len := ?, + val := { + cause := cause + } +} + +template (value) GSUP_IE ts_GSUP_IE_AUTS(octetstring auts) := { + tag := OSMO_GSUP_AUTS_IE, + len := 0, /* overwritten */ + val := { + auts := auts + } +} + +template GSUP_IE tr_GSUP_IE_AUTS(template octetstring auts) := { + tag := OSMO_GSUP_AUTS_IE, + len := ?, + val := { + auts := auts + } +} + +template (value) GSUP_IE ts_GSUP_IE_RAND(octetstring rand) := { + tag := OSMO_GSUP_RAND_IE, + len := 0, /* overwritten */ + val := { + rand := rand + } +} + +template GSUP_IE tr_GSUP_IE_RAND(template octetstring rand := ?) := { + tag := OSMO_GSUP_RAND_IE, + len := ?, + val := { + rand := rand + } +} + +template (present) GSUP_IE tr_GSUP_IE_SRES(template (present) octetstring sres := ?) := { + tag := OSMO_GSUP_SRES_IE, + len := ?, + val := { + sres := sres + } +} + +template (value) GSUP_IE ts_GSUP_IE_SRES(octetstring sres) := { + tag := OSMO_GSUP_SRES_IE, + len := 0, /* overwritten */ + val := { + sres := sres + } +} + +template (present) GSUP_IE tr_GSUP_IE_Kc(template (present) octetstring kc := ?) := { + tag := OSMO_GSUP_KC_IE, + len := ?, + val := { + kc := kc + } +} + +template (value) GSUP_IE ts_GSUP_IE_Kc(octetstring kc) := { + tag := OSMO_GSUP_KC_IE, + len := 0, /* overwritten */ + val := { + kc := kc + } +} + +template (present) GSUP_IE tr_GSUP_IE_IK(template (present) octetstring ik := ?) := { + tag := OSMO_GSUP_IK_IE, + len := ?, + val := { + ik := ik + } +} + +template (value) GSUP_IE ts_GSUP_IE_IK(octetstring ik) := { + tag := OSMO_GSUP_IK_IE, + len := 0, /* overwritten */ + val := { + ik := ik + } +} + +template (present) GSUP_IE tr_GSUP_IE_CK(template (present) octetstring ck := ?) := { + tag := OSMO_GSUP_CK_IE, + len := ?, + val := { + ck := ck + } +} + +template (value) GSUP_IE ts_GSUP_IE_CK(octetstring ck) := { + tag := OSMO_GSUP_CK_IE, + len := 0, /* overwritten */ + val := { + ck := ck + } +} + +template (present) GSUP_IE tr_GSUP_IE_AUTN(template (present) octetstring autn := ?) := { + tag := OSMO_GSUP_AUTN_IE, + len := ?, + val := { + autn := autn + } +} + +template (value) GSUP_IE ts_GSUP_IE_AUTN(octetstring autn) := { + tag := OSMO_GSUP_AUTN_IE, + len := 0, /* overwritten */ + val := { + autn := autn + } +} + +template (present) GSUP_IE tr_GSUP_IE_RES(template (present) octetstring res := ?) := { + tag := OSMO_GSUP_RES_IE, + len := ?, + val := { + res := res + } +} + +template (value) GSUP_IE ts_GSUP_IE_RES(octetstring res) := { + tag := OSMO_GSUP_RES_IE, + len := 0, /* overwritten */ + val := { + res := res + } +} + +template (value) GSUP_IE ts_GSUP_IE_APN(octetstring apn) := { + tag := OSMO_GSUP_ACCESS_POINT_NAME_IE, + len := 0, /* overwritten */ + val := { + apn := apn + } +} + +template GSUP_IE tr_GSUP_IE_APN(template octetstring apn) := { + tag := OSMO_GSUP_ACCESS_POINT_NAME_IE, + len := ?, + val := { + apn := apn + } +} + +template GSUP_IE ts_GSUP_IE_CnDomain(template GSUP_CnDomain dom) := { + tag := OSMO_GSUP_CN_DOMAIN_IE, + len := 0, /* overwritten */ + val := { + cn_domain := dom + } +} + +template (value) GSUP_IE ts_GSUP_IE_SessionId(OCT4 sid) := { + tag := OSMO_GSUP_SESSION_ID_IE, + len := 0, /* overwritten */ + val := { + session_id := sid + } +} +template GSUP_IE tr_GSUP_IE_SessionId(template OCT4 sid) := { + tag := OSMO_GSUP_SESSION_ID_IE, + len := ?, + val := { + session_id := sid + } +} + +template (value) GSUP_IE ts_GSUP_IE_SessionState(GSUP_SessionState state) := { + tag := OSMO_GSUP_SESSION_STATE_IE, + len := 0, /* overwritten */ + val := { + session_state := state + } +} +template GSUP_IE tr_GSUP_IE_SessionState(template GSUP_SessionState state) := { + tag := OSMO_GSUP_SESSION_STATE_IE, + len := ?, + val := { + session_state := state + } +} + +template (value) GSUP_IE ts_GSUP_IE_SM_RP_MR(OCT1 ref) := { + tag := OSMO_GSUP_SM_RP_MR_IE, + len := 0, /* overwritten */ + val := { + sm_rp_mr := ref + } +} +template GSUP_IE tr_GSUP_IE_SM_RP_MR(template OCT1 ref) := { + tag := OSMO_GSUP_SM_RP_MR_IE, + len := ?, + val := { + sm_rp_mr := ref + } +} + +template (value) GSUP_IE ts_GSUP_IE_SM_RP_CAUSE(OCT1 cause) := { + tag := OSMO_GSUP_SM_RP_CAUSE_IE, + len := 0, /* overwritten */ + val := { + sm_rp_cause := cause + } +} +template GSUP_IE tr_GSUP_IE_SM_RP_CAUSE(template OCT1 cause) := { + tag := OSMO_GSUP_SM_RP_CAUSE_IE, + len := ?, + val := { + sm_rp_cause := cause + } +} + +template (value) GSUP_IE ts_GSUP_IE_SM_RP_MMS(OCT1 mms) := { + tag := OSMO_GSUP_SM_RP_MMS_IE, + len := 0, /* overwritten */ + val := { + sm_rp_mms := mms + } +} +template GSUP_IE tr_GSUP_IE_SM_RP_MMS(template OCT1 mms) := { + tag := OSMO_GSUP_SM_RP_MMS_IE, + len := ?, + val := { + sm_rp_mms := mms + } +} + +template (value) GSUP_IE ts_GSUP_IE_IMEI(hexstring imei) := { + tag := OSMO_GSUP_IMEI_IE, + len := 0, /* overwritten */ + val := { + imei := ts_GSUP_IMEI(imei) + } +} +template GSUP_IE tr_GSUP_IE_IMEI(template hexstring imei) := { + tag := OSMO_GSUP_IMEI_IE, + len := ?, + val := { + imei := tr_GSUP_IMEI(imei) + } +} + +template (value) GSUP_IE ts_GSUP_IE_IMEI_Result(GSUP_IMEIResult result) := { + tag := OSMO_GSUP_IMEI_RESULT_IE, + len := 0, /* overwritten */ + val := { + imei_result := result + } +} +template GSUP_IE tr_GSUP_IE_IMEI_Result(template GSUP_IMEIResult result) := { + tag := OSMO_GSUP_IMEI_RESULT_IE, + len := ?, + val := { + imei_result := result + } +} + +template (value) GSUP_IE ts_GSUP_IE_NUM_VECTORS_REQ(OCT1 num) := { + tag := OSMO_GSUP_NUM_VECTORS_REQ_IE, + len := 0, /* overwritten */ + val := { + num_auth_vectors := num + } +} +template GSUP_IE tr_GSUP_IE_NUM_VECTORS_REQ(template OCT1 num) := { + tag := OSMO_GSUP_NUM_VECTORS_REQ_IE, + len := ?, + val := { + num_auth_vectors := num + } +} + +/* See 3GPP TS 24.011, figures 8.5 and 8.6 */ +private function f_pad_SM_RP_Addr(template hexstring number) +return template hexstring { + if (isvalue(number) and not istemplatekind(number, "omit")) { + return f_pad_bcd_number(valueof(number)); + } else { + return number; + } +} + +template GSUP_SM_RP_Addr t_GSUP_SM_RP_Addr(template hexstring number, + template BIT4 npi := '0001'B, + template BIT3 ton := '001'B, + template BIT1 ext := '1'B) := { + ext := ext, + ton := ton, + npi := npi, + /* Work around TITAN's padding problems: encoding works fine, + * but it does not consider 'F'H as padding in decoded data. */ + number := f_pad_SM_RP_Addr(number) +} + +/** + * SM-RP-DA represents the SM Destination Address, see 7.6.8.1. + * It can be either of the following: + * - IMSI + * - LMSI (not implemented) + * - MSISDN + * - roaming number (not implemented) + * - service centre address + */ +template (value) GSUP_SM_RP_DA ts_GSUP_SM_RP_DA_IMSI(hexstring imsi) := { + id_type := OSMO_GSUP_SM_RP_ODA_ID_IMSI, + id_enc := { imsi := imsi } +} +template GSUP_SM_RP_DA tr_GSUP_SM_RP_DA_IMSI(template hexstring imsi) := { + id_type := OSMO_GSUP_SM_RP_ODA_ID_IMSI, + id_enc := { imsi := imsi } +} + +template (value) GSUP_SM_RP_DA ts_GSUP_SM_RP_DA_MSISDN(GSUP_SM_RP_Addr msisdn) := { + id_type := OSMO_GSUP_SM_RP_ODA_ID_MSISDN, + id_enc := { msisdn := msisdn } +} +template GSUP_SM_RP_DA tr_GSUP_SM_RP_DA_MSISDN(template GSUP_SM_RP_Addr msisdn) := { + id_type := OSMO_GSUP_SM_RP_ODA_ID_MSISDN, + id_enc := { msisdn := msisdn } +} + +template (value) GSUP_SM_RP_DA ts_GSUP_SM_RP_DA_SMSC_ADDR(GSUP_SM_RP_Addr smsc_addr) := { + id_type := OSMO_GSUP_SM_RP_ODA_ID_SMSC_ADDR, + id_enc := { smsc_addr := smsc_addr } +} +template GSUP_SM_RP_DA tr_GSUP_SM_RP_DA_SMSC_ADDR(template GSUP_SM_RP_Addr smsc_addr) := { + id_type := OSMO_GSUP_SM_RP_ODA_ID_SMSC_ADDR, + id_enc := { smsc_addr := smsc_addr } +} + +template (value) GSUP_SM_RP_DA ts_GSUP_SM_RP_DA_NULL := { + id_type := OSMO_GSUP_SM_RP_ODA_ID_NULL, + id_enc := omit +} +template GSUP_SM_RP_DA tr_GSUP_SM_RP_DA_NULL := { + id_type := OSMO_GSUP_SM_RP_ODA_ID_NULL, + id_enc := omit +} + +template (value) GSUP_IE ts_GSUP_IE_SM_RP_DA(GSUP_SM_RP_DA val) := { + tag := OSMO_GSUP_SM_RP_DA_IE, + len := 0, /* overwritten */ + val := { + sm_rp_da := val + } +} +template GSUP_IE tr_GSUP_IE_SM_RP_DA(template GSUP_SM_RP_DA val) := { + tag := OSMO_GSUP_SM_RP_DA_IE, + len := ?, + val := { + sm_rp_da := val + } +} + +/** + * SM-RP-OA represents the SM Originating Address, see 7.6.8.2. + * It can be either of the following: + * - MSISDN + * - service centre address + */ +template (value) GSUP_SM_RP_OA ts_GSUP_SM_RP_OA_MSISDN(GSUP_SM_RP_Addr msisdn) := { + id_type := OSMO_GSUP_SM_RP_ODA_ID_MSISDN, + id_enc := { msisdn := msisdn } +} +template GSUP_SM_RP_OA tr_GSUP_SM_RP_OA_MSISDN(template GSUP_SM_RP_Addr msisdn) := { + id_type := OSMO_GSUP_SM_RP_ODA_ID_MSISDN, + id_enc := { msisdn := msisdn } +} + +template (value) GSUP_SM_RP_OA ts_GSUP_SM_RP_OA_SMSC_ADDR(GSUP_SM_RP_Addr smsc_addr) := { + id_type := OSMO_GSUP_SM_RP_ODA_ID_SMSC_ADDR, + id_enc := { smsc_addr := smsc_addr } +} +template GSUP_SM_RP_OA tr_GSUP_SM_RP_OA_SMSC_ADDR(template GSUP_SM_RP_Addr smsc_addr) := { + id_type := OSMO_GSUP_SM_RP_ODA_ID_SMSC_ADDR, + id_enc := { smsc_addr := smsc_addr } +} + +template (value) GSUP_SM_RP_OA ts_GSUP_SM_RP_OA_NULL := { + id_type := OSMO_GSUP_SM_RP_ODA_ID_NULL, + id_enc := omit +} +template GSUP_SM_RP_OA tr_GSUP_SM_RP_OA_NULL := { + id_type := OSMO_GSUP_SM_RP_ODA_ID_NULL, + id_enc := omit +} + +template (value) GSUP_IE ts_GSUP_IE_SM_RP_OA(GSUP_SM_RP_OA val) := { + tag := OSMO_GSUP_SM_RP_OA_IE, + len := 0, /* overwritten */ + val := { + sm_rp_oa := val + } +} +template GSUP_IE tr_GSUP_IE_SM_RP_OA(template GSUP_SM_RP_OA val) := { + tag := OSMO_GSUP_SM_RP_OA_IE, + len := ?, + val := { + sm_rp_oa := val + } +} + +/* SM-RP-UI represents the SM TPDU, see 7.6.8.4 */ +template (value) GSUP_IE ts_GSUP_IE_SM_RP_UI(octetstring val) := { + tag := OSMO_GSUP_SM_RP_UI_IE, + len := 0, /* overwritten */ + val := { + sm_rp_ui := val + } +} +template GSUP_IE tr_GSUP_IE_SM_RP_UI(template octetstring val) := { + tag := OSMO_GSUP_SM_RP_UI_IE, + len := ?, + val := { + sm_rp_ui := val + } +} + +/* SM Alert Reason IE (used in READY-FOR-SM), see 7.6.8.8 */ +template (value) GSUP_IE ts_GSUP_IE_SM_ALERT_RSN(GSUP_SM_ALERT_RSN_Type rsn) := { + tag := OSMO_GSUP_SM_ALERT_RSN_IE, + len := 0, /* overwritten */ + val := { + sm_alert_rsn := rsn + } +} +template GSUP_IE tr_GSUP_IE_SM_ALERT_RSN(template GSUP_SM_ALERT_RSN_Type rsn) := { + tag := OSMO_GSUP_SM_ALERT_RSN_IE, + len := ?, + val := { + sm_alert_rsn := rsn + } +} + +template (value) GSUP_IE ts_GSUP_IE_SSInfo(octetstring ss) := { + tag := OSMO_GSUP_SS_INFO_IE, + len := 0, /* overwritten */ + val := { + ss_info := ss + } +} +template GSUP_IE tr_GSUP_IE_SSInfo(template octetstring ss) := { + tag := OSMO_GSUP_SS_INFO_IE, + len := ?, + val := { + ss_info := ss + } +} + +template GSUP_IE tr_GSUP_IE_Message_Class(template GSUP_Message_Class val) := { + tag := OSMO_GSUP_MESSAGE_CLASS_IE, + len := ?, + val := { + message_class := val + } +} + +template (value) GSUP_IE ts_GSUP_IE_Message_Class(GSUP_Message_Class val) := { + tag := OSMO_GSUP_MESSAGE_CLASS_IE, + len := 0, /* overwritten */ + val := { + message_class := val + } +} + +template GSUP_IE tr_GSUP_IE_Source_Name(template octetstring name) := { + tag := OSMO_GSUP_SOURCE_NAME_IE, + len := ?, + val := { + source_name := name + } +} + +template (value) GSUP_IE ts_GSUP_IE_Source_Name(octetstring name) := { + tag := OSMO_GSUP_SOURCE_NAME_IE, + len := 0, /* overwritten */ + val := { + source_name := name + } +} + +template GSUP_IE tr_GSUP_IE_Destination_Name(template octetstring name) := { + tag := OSMO_GSUP_DESTINATION_NAME_IE, + len := ?, + val := { + destination_name := name + } +} + +template (value) GSUP_IE ts_GSUP_IE_Destination_Name(octetstring name) := { + tag := OSMO_GSUP_DESTINATION_NAME_IE, + len := 0, /* overwritten */ + val := { + destination_name := name + } +} + +template GSUP_IE tr_GSUP_IE_AN_APDU(template GSUP_AN_APDU an_apdu) := { + tag := OSMO_GSUP_AN_APDU_IE, + len := ?, + val := { + an_apdu := an_apdu + } +} + +template (value) GSUP_IE ts_GSUP_IE_AN_APDU(GSUP_AN_APDU an_apdu) := { + tag := OSMO_GSUP_AN_APDU_IE, + len := 0, /* overwritten */ + val := { + an_apdu := an_apdu + } +} + +template (present) GSUP_IE tr_GSUP_IE_SUPPORTED_RAT_TYPES(template (present) GSUP_RatTypes ratt) := { + tag := OSMO_GSUP_SUPPORTED_RAT_TYPES_IE, + len := ?, + val := { + supported_rat_types := ratt + } +} +template (value) GSUP_IE ts_GSUP_IE_SUPPORTED_RAT_TYPES(GSUP_RatTypes ratt) := { + tag := OSMO_GSUP_SUPPORTED_RAT_TYPES_IE, + len := 0, /* overwritten */ + val := { + supported_rat_types := ratt + } +} + +template (present) GSUP_IE tr_GSUP_IE_CURRENT_RAT_TYPE(template (present) GSUP_RatType ratt) := { + tag := OSMO_GSUP_CURRENT_RAT_TYPE_IE, + len := ?, + val := { + current_rat_type := ratt + } +} +template (value) GSUP_IE ts_GSUP_IE_CURRENT_RAT_TYPE(GSUP_RatType ratt) := { + tag := OSMO_GSUP_CURRENT_RAT_TYPE_IE, + len := 0, /* overwritten */ + val := { + current_rat_type := ratt + } +} + +private function f_gen_ts_ies(hexstring imsi, + template (omit) GSUP_Message_Class message_class := omit, + template (omit) hexstring imei := omit, + template (omit) GSUP_CnDomain dom := omit, + template (omit) octetstring source_name := omit, + template (omit) octetstring destination_name := omit + ) return GSUP_IEs { + var GSUP_IEs ies := { + valueof(ts_GSUP_IE_IMSI(imsi)) + }; + + if (isvalue(dom)) { + ies := ies & { valueof(ts_GSUP_IE_CnDomain(dom)) }; + } + + if (isvalue(imei)) { + ies := ies & { valueof(ts_GSUP_IE_IMEI(valueof(imei))) }; + } + + if (isvalue(message_class)) { + ies := ies & { valueof(ts_GSUP_IE_Message_Class(valueof(message_class))) }; + } + + if (isvalue(source_name)) { + ies := ies & { valueof(ts_GSUP_IE_Source_Name(valueof(source_name))) }; + } + + if (isvalue(destination_name)) { + ies := ies & { valueof(ts_GSUP_IE_Destination_Name(valueof(destination_name))) }; + } + + return ies; +} + +private function f_gen_tr_ies(template hexstring imsi, + template GSUP_Message_Class message_class := omit, + template integer cause := omit, + template hexstring msisdn := omit, + template GSUP_IMEIResult imei_result := omit, + template octetstring source_name := omit, + template octetstring destination_name := omit + ) return template GSUP_IEs { + var template GSUP_IEs ies := { + tr_GSUP_IE_IMSI(imsi) + }; + var integer idx := 1; + + if (isvalue(cause)) { + ies[idx] := tr_GSUP_IE_Cause(cause); + idx := idx + 1; + } + + if (isvalue(msisdn)) { + ies[idx] := tr_GSUP_IE_MSISDN(msisdn); + idx := idx + 1; + } + + if (isvalue(imei_result)) { + ies[idx] := tr_GSUP_IE_IMEI_Result(imei_result); + idx := idx + 1; + } + + if (isvalue(message_class)) { + ies[idx] := tr_GSUP_IE_Message_Class(message_class); + idx := idx + 1; + } + + if (isvalue(source_name)) { + ies[idx] := tr_GSUP_IE_Source_Name(source_name); + idx := idx + 1; + } + + ies[idx] := *; + idx := idx + 1; + + if (isvalue(destination_name)) { + ies[idx] := tr_GSUP_IE_Destination_Name(destination_name); + idx := idx + 1; + } + + return ies; +} + +private function f_gen_ts_ss_ies( + hexstring imsi, + OCT4 sid, + GSUP_SessionState state, + template (omit) octetstring ss := omit, + template (omit) integer cause := omit, + template octetstring source_name := omit +) return GSUP_IEs { + /* Mandatory IEs */ + var GSUP_IEs ies := { + valueof(ts_GSUP_IE_IMSI(imsi)) + }; + + /* Cause IE is needed for PROC_SS_ERR */ + if (isvalue(cause)) { + ies := ies & { valueof(ts_GSUP_IE_Cause(valueof(cause))) }; + } + + /* Mandatory session IEs */ + ies := ies & { valueof(ts_GSUP_IE_SessionId(sid)) }; + ies := ies & { valueof(ts_GSUP_IE_SessionState(state)) }; + + /* Optional SS payload */ + if (isvalue(ss)) { + ies := ies & { valueof(ts_GSUP_IE_SSInfo(valueof(ss))) }; + } + + if (isvalue(source_name)) { + ies := ies & { valueof(ts_GSUP_IE_Source_Name(valueof(source_name))) }; + } + + return ies; +} +private function f_gen_tr_ss_ies( + template hexstring imsi, + template OCT4 sid := ?, + template GSUP_SessionState state := ?, + template octetstring ss := omit, + template integer cause := omit, + template octetstring destination_name := omit +) return template GSUP_IEs { + /* Mandatory IEs */ + var template GSUP_IEs ies := { + tr_GSUP_IE_IMSI(imsi) + }; + var integer idx := 1; + + /* Cause IE is needed for PROC_SS_ERR */ + if (istemplatekind(cause, "*")) { + ies[idx] := *; + idx := idx + 1; + } else if (not istemplatekind(cause, "omit")) { + ies[idx] := tr_GSUP_IE_Cause(cause); + idx := idx + 1; + } + + /* Mandatory session IEs */ + ies[idx] := tr_GSUP_IE_SessionId(sid); + ies[idx + 1] := tr_GSUP_IE_SessionState(state); + idx := idx + 2; + + /* Optional SS payload */ + if (istemplatekind(ss, "*")) { + ies[idx] := *; + idx := idx + 1; + } else if (not istemplatekind(ss, "omit")) { + ies[idx] := tr_GSUP_IE_SSInfo(ss); + idx := idx + 1; + } + + if (isvalue(destination_name)) { + ies[idx] := tr_GSUP_IE_Destination_Name(destination_name); + idx := idx + 1; + } + + /* the GSUP Message Class IE is optional, as old implementations don't have it yet */ + var template GSUP_IEs ies2 := ies; + ies2[idx] := tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_USSD); + idx := idx + 1; + + return (ies, ies2); +} + +template (value) GSUP_PDU ts_GSUP_PROC_SS_REQ( + hexstring imsi, + OCT4 sid, + GSUP_SessionState state, + template (omit) octetstring ss := omit, + template (omit) octetstring source_name := omit +) := ts_GSUP( + OSMO_GSUP_MSGT_PROC_SS_REQUEST, + f_gen_ts_ss_ies(imsi, sid, state, ss, source_name := source_name) +); +template GSUP_PDU tr_GSUP_PROC_SS_REQ( + template hexstring imsi, + template OCT4 sid := ?, + template GSUP_SessionState state := ?, + template octetstring ss := * +) := tr_GSUP( + OSMO_GSUP_MSGT_PROC_SS_REQUEST, + f_gen_tr_ss_ies(imsi, sid, state, ss) +); + +template (value) GSUP_PDU ts_GSUP_PROC_SS_RES( + hexstring imsi, + OCT4 sid, + GSUP_SessionState state, + template (omit) octetstring ss := omit +) := ts_GSUP( + OSMO_GSUP_MSGT_PROC_SS_RESULT, + f_gen_ts_ss_ies(imsi, sid, state, ss) +); +template GSUP_PDU tr_GSUP_PROC_SS_RES( + template hexstring imsi, + template OCT4 sid := ?, + template GSUP_SessionState state := ?, + template octetstring ss := *, + template octetstring destination_name := omit +) := tr_GSUP( + OSMO_GSUP_MSGT_PROC_SS_RESULT, + f_gen_tr_ss_ies(imsi, sid, state, ss, destination_name := destination_name) +); + +template (value) GSUP_PDU ts_GSUP_PROC_SS_ERR( + hexstring imsi, + OCT4 sid, + GSUP_SessionState state, + integer cause +) := ts_GSUP( + OSMO_GSUP_MSGT_PROC_SS_ERROR, + f_gen_ts_ss_ies(imsi, sid, state, cause := cause) +); +template GSUP_PDU tr_GSUP_PROC_SS_ERR( + template hexstring imsi, + template OCT4 sid := ?, + template GSUP_SessionState state := ?, + template integer cause := ? +) := tr_GSUP( + OSMO_GSUP_MSGT_PROC_SS_ERROR, + f_gen_tr_ss_ies(imsi, sid, state, cause := cause) +); + +template (value) GSUP_PDU ts_GSUP_MO_FORWARD_SM_REQ( + hexstring imsi, + OCT1 sm_rp_mr, /* Message Reference, see GSM TS 04.11, 8.2.3 */ + GSUP_SM_RP_DA sm_rp_da, /* Destination Address, see 7.6.8.1 */ + GSUP_SM_RP_OA sm_rp_oa, /* Originating Address, see 7.6.8.2 */ + octetstring sm_rp_ui /* SM TPDU, see 7.6.8.4 */ +) := ts_GSUP( + OSMO_GSUP_MSGT_MO_FORWARD_SM_REQUEST, + { + valueof(ts_GSUP_IE_IMSI(imsi)), + valueof(ts_GSUP_IE_SM_RP_MR(sm_rp_mr)), + valueof(ts_GSUP_IE_SM_RP_DA(sm_rp_da)), + valueof(ts_GSUP_IE_SM_RP_OA(sm_rp_oa)), + valueof(ts_GSUP_IE_SM_RP_UI(sm_rp_ui)), + valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS)) + } +); +template GSUP_PDU tr_GSUP_MO_FORWARD_SM_REQ( + template hexstring imsi := ?, + template OCT1 sm_rp_mr := ?, /* Message Reference, see GSM TS 04.11, 8.2.3 */ + template GSUP_SM_RP_DA sm_rp_da, /* Destination Address, see 7.6.8.1 */ + template GSUP_SM_RP_OA sm_rp_oa, /* Originating Address, see 7.6.8.2 */ + template octetstring sm_rp_ui /* SM TPDU, see 7.6.8.4 */ +) := tr_GSUP( + OSMO_GSUP_MSGT_MO_FORWARD_SM_REQUEST, + { + tr_GSUP_IE_IMSI(imsi), + tr_GSUP_IE_SM_RP_MR(sm_rp_mr), + tr_GSUP_IE_SM_RP_DA(sm_rp_da), + tr_GSUP_IE_SM_RP_OA(sm_rp_oa), + tr_GSUP_IE_SM_RP_UI(sm_rp_ui), + tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS), + tr_GSUP_IE_Source_Name(?) + } +); + +template (value) GSUP_PDU ts_GSUP_MO_FORWARD_SM_RES( + hexstring imsi, + OCT1 sm_rp_mr /* Message Reference, see GSM TS 04.11, 8.2.3 */ +) := ts_GSUP( + OSMO_GSUP_MSGT_MO_FORWARD_SM_RESULT, + { + valueof(ts_GSUP_IE_IMSI(imsi)), + valueof(ts_GSUP_IE_SM_RP_MR(sm_rp_mr)), + valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS)) + } +); +template GSUP_PDU tr_GSUP_MO_FORWARD_SM_RES( + template hexstring imsi := ?, + template OCT1 sm_rp_mr := ? /* Message Reference, see GSM TS 04.11, 8.2.3 */ +) := tr_GSUP( + OSMO_GSUP_MSGT_MO_FORWARD_SM_RESULT, + { + tr_GSUP_IE_IMSI(imsi), + tr_GSUP_IE_SM_RP_MR(sm_rp_mr), + tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS), + tr_GSUP_IE_Source_Name(?) + } +); + +template (value) GSUP_PDU ts_GSUP_MO_FORWARD_SM_ERR( + hexstring imsi, + OCT1 sm_rp_mr, /* Message Reference, see GSM TS 04.11, 8.2.3 */ + OCT1 sm_rp_cause /* RP-Cause value, see GSM TS 04.11, 8.2.5.4 */ +) := ts_GSUP( + OSMO_GSUP_MSGT_MO_FORWARD_SM_ERROR, + { + valueof(ts_GSUP_IE_IMSI(imsi)), + valueof(ts_GSUP_IE_SM_RP_MR(sm_rp_mr)), + valueof(ts_GSUP_IE_SM_RP_CAUSE(sm_rp_cause)), + valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS)) + } +); +template GSUP_PDU tr_GSUP_MO_FORWARD_SM_ERR( + template hexstring imsi := ?, + template OCT1 sm_rp_mr := ?, /* Message Reference, see GSM TS 04.11, 8.2.3 */ + template OCT1 sm_rp_cause := ? /* RP-Cause value, see GSM TS 04.11, 8.2.5.4 */ +) := tr_GSUP( + OSMO_GSUP_MSGT_MO_FORWARD_SM_ERROR, + { + tr_GSUP_IE_IMSI(imsi), + tr_GSUP_IE_SM_RP_MR(sm_rp_mr), + tr_GSUP_IE_SM_RP_CAUSE(sm_rp_cause), + tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS), + tr_GSUP_IE_Source_Name(?) + } +); + +template (value) GSUP_PDU ts_GSUP_MT_FORWARD_SM_REQ( + hexstring imsi, + OCT1 sm_rp_mr, /* Message Reference, see GSM TS 04.11, 8.2.3 */ + GSUP_SM_RP_DA sm_rp_da, /* Destination Address, see 7.6.8.1 */ + GSUP_SM_RP_OA sm_rp_oa, /* Originating Address, see 7.6.8.2 */ + octetstring sm_rp_ui, /* SM TPDU, see 7.6.8.4 */ + OCT1 sm_rp_mms /* MMS (More Messages to Send), see 7.6.8.7 */ +) := ts_GSUP( + OSMO_GSUP_MSGT_MT_FORWARD_SM_REQUEST, + { + /** + * TODO: add MT-specific fields (and IEs): + * - smDeliveryTimer + * - smDeliveryStartTime + */ + valueof(ts_GSUP_IE_IMSI(imsi)), + valueof(ts_GSUP_IE_SM_RP_MR(sm_rp_mr)), + valueof(ts_GSUP_IE_SM_RP_DA(sm_rp_da)), + valueof(ts_GSUP_IE_SM_RP_OA(sm_rp_oa)), + valueof(ts_GSUP_IE_SM_RP_UI(sm_rp_ui)), + valueof(ts_GSUP_IE_SM_RP_MMS(sm_rp_mms)), + valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS)) + } +); +template GSUP_PDU tr_GSUP_MT_FORWARD_SM_REQ( + template hexstring imsi := ?, + template OCT1 sm_rp_mr := ?, /* Message Reference, see GSM TS 04.11, 8.2.3 */ + template GSUP_SM_RP_DA sm_rp_da, /* Destination Address, see 7.6.8.1 */ + template GSUP_SM_RP_OA sm_rp_oa, /* Originating Address, see 7.6.8.2 */ + template octetstring sm_rp_ui, /* SM TPDU, see 7.6.8.4 */ + template OCT1 sm_rp_mms /* MMS (More Messages to Send), see 7.6.8.7 */ +) := tr_GSUP( + OSMO_GSUP_MSGT_MT_FORWARD_SM_REQUEST, + { + /** + * TODO: add MT-specific fields (and IEs): + * - smDeliveryTimer + * - smDeliveryStartTime + */ + tr_GSUP_IE_IMSI(imsi), + tr_GSUP_IE_SM_RP_MR(sm_rp_mr), + tr_GSUP_IE_SM_RP_DA(sm_rp_da), + tr_GSUP_IE_SM_RP_OA(sm_rp_oa), + tr_GSUP_IE_SM_RP_UI(sm_rp_ui), + tr_GSUP_IE_SM_RP_MMS(sm_rp_mms), + tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS), + tr_GSUP_IE_Source_Name(?) + } +); + +template (value) GSUP_PDU ts_GSUP_MT_FORWARD_SM_RES( + hexstring imsi, + OCT1 sm_rp_mr /* Message Reference, see GSM TS 04.11, 8.2.3 */ +) := ts_GSUP( + OSMO_GSUP_MSGT_MT_FORWARD_SM_RESULT, + { + valueof(ts_GSUP_IE_IMSI(imsi)), + valueof(ts_GSUP_IE_SM_RP_MR(sm_rp_mr)), + valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS)) + } +); +template GSUP_PDU tr_GSUP_MT_FORWARD_SM_RES( + template hexstring imsi := ?, + template OCT1 sm_rp_mr := ? /* Message Reference, see GSM TS 04.11, 8.2.3 */ +) := tr_GSUP( + OSMO_GSUP_MSGT_MT_FORWARD_SM_RESULT, + { + tr_GSUP_IE_IMSI(imsi), + tr_GSUP_IE_SM_RP_MR(sm_rp_mr), + tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS), + tr_GSUP_IE_Source_Name(?) + } +); + +template (value) GSUP_PDU ts_GSUP_MT_FORWARD_SM_ERR( + hexstring imsi, + OCT1 sm_rp_mr, /* Message Reference, see GSM TS 04.11, 8.2.3 */ + OCT1 sm_rp_cause /* RP-Cause value, see GSM TS 04.11, 8.2.5.4 */ +) := ts_GSUP( + OSMO_GSUP_MSGT_MT_FORWARD_SM_ERROR, + { + valueof(ts_GSUP_IE_IMSI(imsi)), + valueof(ts_GSUP_IE_SM_RP_MR(sm_rp_mr)), + valueof(ts_GSUP_IE_SM_RP_CAUSE(sm_rp_cause)), + valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS)) + } +); +template GSUP_PDU tr_GSUP_MT_FORWARD_SM_ERR( + template hexstring imsi := ?, + template OCT1 sm_rp_mr := ?, /* Message Reference, see GSM TS 04.11, 8.2.3 */ + template OCT1 sm_rp_cause := ? /* RP-Cause value, see GSM TS 04.11, 8.2.5.4 */ +) := tr_GSUP( + OSMO_GSUP_MSGT_MT_FORWARD_SM_ERROR, + { + tr_GSUP_IE_IMSI(imsi), + tr_GSUP_IE_SM_RP_MR(sm_rp_mr), + tr_GSUP_IE_SM_RP_CAUSE(sm_rp_cause), + tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS), + tr_GSUP_IE_Source_Name(?) + } +); + +template (value) GSUP_PDU ts_GSUP_MO_READY_FOR_SM_REQ( + hexstring imsi, + OCT1 sm_rp_mr, /* Message Reference, see GSM TS 04.11, 8.2.3 */ + GSUP_SM_ALERT_RSN_Type sm_alert_rsn /* SM Alert Reason, see 7.6.8.8 */ +) := ts_GSUP( + OSMO_GSUP_MSGT_READY_FOR_SM_REQUEST, + { + valueof(ts_GSUP_IE_IMSI(imsi)), + valueof(ts_GSUP_IE_SM_RP_MR(sm_rp_mr)), + valueof(ts_GSUP_IE_SM_ALERT_RSN(sm_alert_rsn)), + valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS)) + } +); +template GSUP_PDU tr_GSUP_MO_READY_FOR_SM_REQ( + template hexstring imsi := ?, + template OCT1 sm_rp_mr := ?, /* Message Reference, see GSM TS 04.11, 8.2.3 */ + template GSUP_SM_ALERT_RSN_Type sm_alert_rsn := ? /* SM Alert Reason, see 7.6.8.8 */ +) := tr_GSUP( + OSMO_GSUP_MSGT_READY_FOR_SM_REQUEST, + { + tr_GSUP_IE_IMSI(imsi), + tr_GSUP_IE_SM_RP_MR(sm_rp_mr), + tr_GSUP_IE_SM_ALERT_RSN(sm_alert_rsn), + tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS), + tr_GSUP_IE_Source_Name(?) + } +); + +template (value) GSUP_PDU ts_GSUP_MO_READY_FOR_SM_RES( + hexstring imsi, + OCT1 sm_rp_mr /* Message Reference, see GSM TS 04.11, 8.2.3 */ +) := ts_GSUP( + OSMO_GSUP_MSGT_READY_FOR_SM_RESULT, + { + valueof(ts_GSUP_IE_IMSI(imsi)), + valueof(ts_GSUP_IE_SM_RP_MR(sm_rp_mr)), + valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS)) + } +); +template GSUP_PDU tr_GSUP_MO_READY_FOR_SM_RES( + template hexstring imsi := ?, + template OCT1 sm_rp_mr := ? /* Message Reference, see GSM TS 04.11, 8.2.3 */ +) := tr_GSUP( + OSMO_GSUP_MSGT_READY_FOR_SM_RESULT, + { + tr_GSUP_IE_IMSI(imsi), + tr_GSUP_IE_SM_RP_MR(sm_rp_mr), + tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS), + tr_GSUP_IE_Source_Name(?) + } +); + +template (value) GSUP_PDU ts_GSUP_MO_READY_FOR_SM_ERR( + hexstring imsi, + OCT1 sm_rp_mr, /* Message Reference, see GSM TS 04.11, 8.2.3 */ + OCT1 sm_rp_cause /* RP-Cause value, see GSM TS 04.11, 8.2.5.4 */ +) := ts_GSUP( + OSMO_GSUP_MSGT_READY_FOR_SM_ERROR, + { + valueof(ts_GSUP_IE_IMSI(imsi)), + valueof(ts_GSUP_IE_SM_RP_MR(sm_rp_mr)), + valueof(ts_GSUP_IE_SM_RP_CAUSE(sm_rp_cause)), + valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS)) + } +); +template GSUP_PDU tr_GSUP_MO_READY_FOR_SM_ERR( + template hexstring imsi := ?, + template OCT1 sm_rp_mr := ?, /* Message Reference, see GSM TS 04.11, 8.2.3 */ + template OCT1 sm_rp_cause := ? /* RP-Cause value, see GSM TS 04.11, 8.2.5.4 */ +) := tr_GSUP( + OSMO_GSUP_MSGT_READY_FOR_SM_ERROR, + { + tr_GSUP_IE_IMSI(imsi), + tr_GSUP_IE_SM_RP_MR(sm_rp_mr), + tr_GSUP_IE_SM_RP_CAUSE(sm_rp_cause), + tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS), + tr_GSUP_IE_Source_Name(?) + } +); + +function f_gsup_find_nested_ie_multiple(GSUP_IEs ies, GSUP_IEI iei, integer nth, out GSUP_IeValue ret) return boolean { + var integer current := 0; + for (var integer i := 0; i < sizeof(ies); i := i+1) { + if (ies[i].tag == iei) { + if (current == nth) { + ret := ies[i].val; + return true; + } else { + current := current + 1; + } + } + } + return false; +} + +function f_gsup_find_nested_ie(GSUP_IEs ies, GSUP_IEI iei, out GSUP_IeValue ret) return boolean { + for (var integer i := 0; i < sizeof(ies); i := i+1) { + if (ies[i].tag == iei) { + ret := ies[i].val; + return true; + } + } + return false; +} + +function f_gsup_find_ie(GSUP_PDU msg, GSUP_IEI iei, out GSUP_IeValue ret) return boolean { + return f_gsup_find_nested_ie(msg.ies, iei, ret); +} + +template GSUP_AN_APDU t_GSUP_AN_APDU( + template GSUP_AN_PROTO an_proto := ?, + template octetstring pdu := ? +) := { + proto := an_proto, + pdu := pdu +}; + +template GSUP_PDU tr_GSUP_E_AN_APDU( + template GSUP_MessageType msgt, + template hexstring imsi := ?, + template octetstring source_name := ?, + template octetstring destination_name := ?, + template GSUP_AN_APDU an_apdu := ? +) := tr_GSUP( + msgt, + { + tr_GSUP_IE_IMSI(imsi), + tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_INTER_MSC), + tr_GSUP_IE_Source_Name(source_name), + tr_GSUP_IE_Destination_Name(destination_name), + tr_GSUP_IE_AN_APDU(an_apdu) + } +); + +template GSUP_PDU tr_GSUP_E_NO_PDU( + template GSUP_MessageType msgt, + template hexstring imsi := ?, + template octetstring source_name := ?, + template octetstring destination_name := ? +) := tr_GSUP( + msgt, + { + tr_GSUP_IE_IMSI(imsi), + tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_INTER_MSC), + tr_GSUP_IE_Source_Name(source_name), + tr_GSUP_IE_Destination_Name(destination_name) + } +); + +template (value) GSUP_PDU ts_GSUP_E_AN_APDU( + GSUP_MessageType msgt, + hexstring imsi, + octetstring source_name, + octetstring destination_name, + GSUP_AN_APDU an_apdu +) := ts_GSUP( + msgt, + { + valueof(ts_GSUP_IE_IMSI(imsi)), + valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_INTER_MSC)), + valueof(ts_GSUP_IE_Source_Name(source_name)), + valueof(ts_GSUP_IE_Destination_Name(destination_name)), + valueof(ts_GSUP_IE_AN_APDU(an_apdu)) + } +); + +template (value) GSUP_PDU ts_GSUP_E_PrepareHandoverResult( + hexstring imsi, + hexstring msisdn, + octetstring source_name, + octetstring destination_name, + GSUP_AN_APDU an_apdu +) := ts_GSUP( + OSMO_GSUP_MSGT_E_PREPARE_HANDOVER_RESULT, + { + valueof(ts_GSUP_IE_IMSI(imsi)), + valueof(ts_GSUP_IE_MSISDN(msisdn)), + valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_INTER_MSC)), + valueof(ts_GSUP_IE_Source_Name(source_name)), + valueof(ts_GSUP_IE_Destination_Name(destination_name)), + valueof(ts_GSUP_IE_AN_APDU(an_apdu)) + } +); + +} with { encode "RAW"; variant "FIELDORDER(msb)" } diff --git a/library/GSUP_Types.ttcn b/library/GSUP_Types.ttcn index 10955e7..f9faeb7 100644 --- a/library/GSUP_Types.ttcn +++ b/library/GSUP_Types.ttcn @@ -323,781 +323,13 @@ type record of GSUP_PDU GSUP_PDUs; + external function enc_GSUP_PDU(in GSUP_PDU msg) return octetstring with { extension "prototype(convert) encode(RAW)" }; external function dec_GSUP_PDU(in octetstring msg) return GSUP_PDU with { extension "prototype(convert) decode(RAW)" }; -function f_gsup_postprocess_decoded(inout GSUP_PDU gsup) { - if (gsup.ies[0].tag == OSMO_GSUP_IMSI_IE) { - /* if last digit is 'F', then there's an odd number of digits and we must strip the F */ - var integer num_digits := lengthof(gsup.ies[0].val.imsi); - if (gsup.ies[0].val.imsi[num_digits-1] == 'F'H) { - gsup.ies[0].val.imsi := substr(gsup.ies[0].val.imsi, 0, num_digits-1); - } - } -} - -function f_gsup_preprocess_encoded(inout GSUP_PDU gsup) { - if (ischosen(gsup.ies[0].val.imsi)) { - /* if number of digits is odd, add a 'F' as padding at the end */ - var integer num_digits := lengthof(gsup.ies[0].val.imsi); - if (num_digits rem 2 == 1) { - gsup.ies[0].val.imsi := gsup.ies[0].val.imsi & 'F'H; - } - } -} - -template (value) GSUP_MSISDN ts_GSUP_MSISDN(hexstring digits, - BIT3 ton := '000'B, - BIT4 npi := '0000'B) := { - len := 0, /* overwritten */ - /* numberingPlanIdentification := npi, - typeOfNumber := ton, - ext1 := '0'B, */ - digits := digits -} - -template GSUP_MSISDN tr_GSUP_MSISDN(template hexstring digits, - template BIT3 ton := ?, - template BIT4 npi := ?) := { - len := ?, - /* numberingPlanIdentification := npi, - typeOfNumber := ton, - ext1 := '0'B, */ - digits := digits -} - - - -template GSUP_IE ts_GSUP_IE_AuthTuple2G(octetstring rand, octetstring sres, - octetstring kc) := { - tag := OSMO_GSUP_AUTH_TUPLE_IE, - len := 0, /* overwritten */ - val := { - auth_tuple := { - valueof(ts_GSUP_IE_RAND(rand)), - valueof(ts_GSUP_IE_SRES(sres)), - valueof(ts_GSUP_IE_Kc(kc)) - } - } -} - -template GSUP_IE tr_GSUP_IE_AuthTuple3G( - template (present) octetstring rand := ?, - template (present) octetstring ik := ?, - template (present) octetstring ck := ?, - template (present) octetstring autn := ?, - template (present) octetstring res := ?) := { - tag := OSMO_GSUP_AUTH_TUPLE_IE, - len := ?, - val := { - auth_tuple := { - tr_GSUP_IE_RAND(rand), - tr_GSUP_IE_IK(ik), - tr_GSUP_IE_CK(ck), - tr_GSUP_IE_AUTN(autn), - tr_GSUP_IE_RES(res) - } - } -} - -template GSUP_IE ts_GSUP_IE_AuthTuple3G(octetstring rand, octetstring ik, - octetstring ck, octetstring autn, - octetstring res) := { - tag := OSMO_GSUP_AUTH_TUPLE_IE, - len := 0, /* overwritten */ - val := { - auth_tuple := { - valueof(ts_GSUP_IE_RAND(rand)), - valueof(ts_GSUP_IE_IK(ik)), - valueof(ts_GSUP_IE_CK(ck)), - valueof(ts_GSUP_IE_AUTN(autn)), - valueof(ts_GSUP_IE_RES(res)) - } - } -} - -template GSUP_IE tr_GSUP_IE_AuthTuple2G3G( - template (present) octetstring rand := ?, - template (present) octetstring sres := ?, - template (present) octetstring kc := ?, - template (present) octetstring ik := ?, - template (present) octetstring ck := ?, - template (present) octetstring autn := ?, - template (present) octetstring res := ?) := { - tag := OSMO_GSUP_AUTH_TUPLE_IE, - len := ?, - val := { - auth_tuple := { - tr_GSUP_IE_RAND(rand), - tr_GSUP_IE_SRES(sres), - tr_GSUP_IE_Kc(kc), - tr_GSUP_IE_IK(ik), - tr_GSUP_IE_CK(ck), - tr_GSUP_IE_AUTN(autn), - tr_GSUP_IE_RES(res) - } - } -} - -template GSUP_IE ts_GSUP_IE_AuthTuple2G3G(octetstring rand, octetstring sres, - octetstring kc, octetstring ik, - octetstring ck, octetstring autn, - octetstring res) := { - tag := OSMO_GSUP_AUTH_TUPLE_IE, - len := 0, /* overwritten */ - val := { - auth_tuple := { - valueof(ts_GSUP_IE_RAND(rand)), - valueof(ts_GSUP_IE_SRES(sres)), - valueof(ts_GSUP_IE_Kc(kc)), - valueof(ts_GSUP_IE_IK(ik)), - valueof(ts_GSUP_IE_CK(ck)), - valueof(ts_GSUP_IE_AUTN(autn)), - valueof(ts_GSUP_IE_RES(res)) - } - } -} - -template GSUP_IE ts_GSUP_IE_PdpInfo(octetstring apn, octetstring pdp_type, octetstring pdp_qos) := { - tag := OSMO_GSUP_PDP_INFO_IE, - len := 0, /* overwritten */ - val := { - pdp_info := { - valueof(ts_GSUP_IE_APN(apn)), - valueof(ts_GSUP_IE_PDP_TYPE(pdp_type)), - valueof(ts_GSUP_IE_PDP_QOS(pdp_qos)) - } - } -} - -template (value) GSUP_IE ts_GSUP_IE_PDP_CONTEXT_ID(OCT1 ctx_id) := { - tag := OSMO_GSUP_PDP_CONTEXT_ID_IE, - len := 0, - val := { - pdp_ctx_id := ctx_id - } -} - -template GSUP_IE tr_GSUP_IE_PDP_CONTEXT_ID(template OCT1 ctx_id) := { - tag := OSMO_GSUP_PDP_CONTEXT_ID_IE, - len := ?, - val := { - pdp_ctx_id := ctx_id - } -} - - -template (value) GSUP_IE ts_GSUP_IE_PDP_TYPE(OCT2 pdp_type) := { - tag := OSMO_GSUP_PDP_TYPE_IE, - len := 0, - val := { - pdp_type := pdp_type - } -} - -template (value) GSUP_IE ts_GSUP_IE_PDP_QOS(octetstring pdp_qos) := { - tag := OSMO_GSUP_PDP_QOS_IE, - len := 0, - val := { - pdp_qos := pdp_qos - } -} - - -template GSUP_PDU tr_GSUP(template GSUP_MessageType msgt := ?, template GSUP_IEs ies := *) := { - msg_type := msgt, - ies := ies -} - -template (present) GSUP_PDU tr_GSUP_IMSI(template (present) GSUP_MessageType msgt := ?, template (present) hexstring imsi := ?) := { - msg_type := msgt, - ies := { tr_GSUP_IE_IMSI(imsi), * } -} - -template GSUP_PDU ts_GSUP(GSUP_MessageType msgt, GSUP_IEs ies := {}) := { - msg_type := msgt, - ies := ies -} - -template (value) GSUP_IMEI ts_GSUP_IMEI(hexstring digits) := { - len := 0, /* overwritten */ - digits := digits -} - -template GSUP_IMEI tr_GSUP_IMEI(template hexstring digits) := { - len := ?, - digits := digits -} - - -template (value) GSUP_PDU ts_GSUP_SAI_REQ(hexstring imsi) := - ts_GSUP(OSMO_GSUP_MSGT_SEND_AUTH_INFO_REQUEST, { valueof(ts_GSUP_IE_IMSI(imsi)) }); - -template (value) GSUP_PDU ts_GSUP_SAI_REQ_EPS(hexstring imsi) := - ts_GSUP(OSMO_GSUP_MSGT_SEND_AUTH_INFO_REQUEST, { - valueof(ts_GSUP_IE_IMSI(imsi)), - valueof(ts_GSUP_IE_CURRENT_RAT_TYPE(RAT_TYPE_EUTRAN_SGs)) - }); - -template (value) GSUP_PDU ts_GSUP_SAI_REQ_NUM_AUTH(hexstring imsi, OCT1 num_auth_vectors) := - ts_GSUP(OSMO_GSUP_MSGT_SEND_AUTH_INFO_REQUEST, { - valueof(ts_GSUP_IE_IMSI(imsi)), - valueof(ts_GSUP_IE_NUM_VECTORS_REQ(num_auth_vectors)) - }); - -template GSUP_PDU tr_GSUP_SAI_REQ(template hexstring imsi) := - tr_GSUP_IMSI(OSMO_GSUP_MSGT_SEND_AUTH_INFO_REQUEST, imsi); - -template GSUP_PDU tr_GSUP_SAI_REQ_UMTS_AKA_RESYNC( - template hexstring imsi, - template octetstring auts, - template octetstring rand) := - tr_GSUP(OSMO_GSUP_MSGT_SEND_AUTH_INFO_REQUEST, { - tr_GSUP_IE_IMSI(imsi), - tr_GSUP_IE_AUTS(auts), - tr_GSUP_IE_RAND(rand), - * - }); - -template (value) GSUP_PDU ts_GSUP_SAI_RES(hexstring imsi, GSUP_IE auth_tuple) := - ts_GSUP(OSMO_GSUP_MSGT_SEND_AUTH_INFO_RESULT, { - valueof(ts_GSUP_IE_IMSI(imsi)), auth_tuple }); - -template GSUP_PDU tr_GSUP_SAI_ERR(template hexstring imsi, template integer cause) := - tr_GSUP(OSMO_GSUP_MSGT_SEND_AUTH_INFO_ERROR, { - tr_GSUP_IE_IMSI(imsi), tr_GSUP_IE_Cause(cause) }); - -template (value) GSUP_PDU ts_GSUP_SAI_ERR(hexstring imsi, integer cause) := - ts_GSUP(OSMO_GSUP_MSGT_SEND_AUTH_INFO_ERROR, { - valueof(ts_GSUP_IE_IMSI(imsi)), valueof(ts_GSUP_IE_Cause(cause)) }); - - -template GSUP_PDU tr_GSUP_SAI_RES(template (present) hexstring imsi, - template (present) GSUP_IE auth_tuple_ie := tr_GSUP_IE(OSMO_GSUP_AUTH_TUPLE_IE)) := - tr_GSUP(OSMO_GSUP_MSGT_SEND_AUTH_INFO_RESULT, { - tr_GSUP_IE_IMSI(imsi), *, auth_tuple_ie, * }); - -template GSUP_PDU ts_GSUP_UL_REQ(hexstring imsi, GSUP_CnDomain dom := OSMO_GSUP_CN_DOMAIN_PS, - template octetstring source_name := omit) := - ts_GSUP(OSMO_GSUP_MSGT_UPDATE_LOCATION_REQUEST, f_gen_ts_ies(imsi, dom := dom, - source_name := source_name)); - -template GSUP_PDU tr_GSUP_UL_REQ(template hexstring imsi) := - tr_GSUP_IMSI(OSMO_GSUP_MSGT_UPDATE_LOCATION_REQUEST, imsi); - -template (value) GSUP_PDU ts_GSUP_UL_RES(hexstring imsi, octetstring destination_name := ''O) := - ts_GSUP(OSMO_GSUP_MSGT_UPDATE_LOCATION_RESULT, { valueof(ts_GSUP_IE_IMSI(imsi)), - valueof(ts_GSUP_IE_Destination_Name(destination_name))}); - -template GSUP_PDU tr_GSUP_UL_RES(template hexstring imsi, template octetstring destination_name := omit) := - tr_GSUP(OSMO_GSUP_MSGT_UPDATE_LOCATION_RESULT, f_gen_tr_ies(imsi, destination_name := destination_name)); - -template (value) GSUP_PDU ts_GSUP_UL_ERR(hexstring imsi, integer cause) := - ts_GSUP(OSMO_GSUP_MSGT_UPDATE_LOCATION_ERROR, { - valueof(ts_GSUP_IE_IMSI(imsi)), valueof(ts_GSUP_IE_Cause(cause)) }); - -template GSUP_PDU tr_GSUP_UL_ERR(template hexstring imsi, template integer cause := ?, - template octetstring destination_name := omit) := - tr_GSUP(OSMO_GSUP_MSGT_UPDATE_LOCATION_ERROR, - f_gen_tr_ies(imsi, cause := cause, destination_name := destination_name)); - -template (value) GSUP_PDU ts_GSUP_ISD_REQ(hexstring imsi, hexstring msisdn, octetstring destination_name := ''O) := - ts_GSUP(OSMO_GSUP_MSGT_INSERT_DATA_REQUEST, { - valueof(ts_GSUP_IE_IMSI(imsi)), valueof(ts_GSUP_IE_MSISDN(msisdn)), - valueof(ts_GSUP_IE_Destination_Name(destination_name))}); - -template GSUP_PDU tr_GSUP_ISD_REQ(template hexstring imsi, template hexstring msisdn := ?, - template octetstring destination_name := omit) := - tr_GSUP(OSMO_GSUP_MSGT_INSERT_DATA_REQUEST, - f_gen_tr_ies(imsi, msisdn := msisdn, destination_name := destination_name)); - -template GSUP_PDU ts_GSUP_ISD_RES(hexstring imsi, - template octetstring source_name := omit, - template octetstring destination_name := omit) := - ts_GSUP(OSMO_GSUP_MSGT_INSERT_DATA_RESULT, - f_gen_ts_ies(imsi, source_name := source_name, - destination_name := destination_name)); - -template GSUP_PDU tr_GSUP_ISD_RES(template hexstring imsi) := - tr_GSUP_IMSI(OSMO_GSUP_MSGT_INSERT_DATA_RESULT, imsi); - -template GSUP_PDU tr_GSUP_AUTH_FAIL_IND(hexstring imsi) := - tr_GSUP_IMSI(OSMO_GSUP_MSGT_AUTH_FAIL_REPORT, imsi); - -template (value) GSUP_PDU ts_GSUP_CL_REQ(hexstring imsi, GSUP_CancelType ctype) := - ts_GSUP(OSMO_GSUP_MSGT_LOCATION_CANCEL_REQUEST, { - valueof(ts_GSUP_IE_IMSI(imsi)), valueof(ts_GSUP_IE_CancelType(ctype)) }); - -template GSUP_PDU tr_GSUP_CL_RES(template hexstring imsi) := - tr_GSUP_IMSI(OSMO_GSUP_MSGT_LOCATION_CANCEL_RESULT, imsi); - -template GSUP_PDU tr_GSUP_CL_ERR(template hexstring imsi, template integer cause := ?) := - tr_GSUP(OSMO_GSUP_MSGT_LOCATION_CANCEL_ERROR, { - tr_GSUP_IE_IMSI(imsi), tr_GSUP_IE_Cause(cause), * }); - -template (value) GSUP_PDU ts_GSUP_PURGE_MS_REQ(hexstring imsi, GSUP_CnDomain dom) := - ts_GSUP(OSMO_GSUP_MSGT_PURGE_MS_REQUEST, { - valueof(ts_GSUP_IE_IMSI(imsi)), valueof(ts_GSUP_IE_CnDomain(dom)) }); - -template GSUP_PDU tr_GSUP_PURGE_MS_REQ(template hexstring imsi, template GSUP_CnDomain dom := ?) := - tr_GSUP(OSMO_GSUP_MSGT_PURGE_MS_REQUEST, { - tr_GSUP_IE_IMSI(imsi), *, tr_GSUP_IE_CnDomain(dom) }); - -template (value) GSUP_PDU ts_GSUP_PURGE_MS_RES(hexstring imsi) := - ts_GSUP(OSMO_GSUP_MSGT_PURGE_MS_RESULT, { - valueof(ts_GSUP_IE_IMSI(imsi)) }); - -template GSUP_PDU tr_GSUP_PURGE_MS_RES(template hexstring imsi) := - tr_GSUP(OSMO_GSUP_MSGT_PURGE_MS_RESULT, { - tr_GSUP_IE_IMSI(imsi), * }); - -template GSUP_PDU tr_GSUP_PURGE_MS_ERR(template hexstring imsi, template integer cause) := - tr_GSUP(OSMO_GSUP_MSGT_PURGE_MS_ERROR, { - tr_GSUP_IE_IMSI(imsi), tr_GSUP_IE_Cause(cause) }); - -template (value) GSUP_PDU ts_GSUP_CHECK_IMEI_REQ(hexstring imsi, hexstring imei, - template (omit) octetstring source_name := omit) := - ts_GSUP(OSMO_GSUP_MSGT_CHECK_IMEI_REQUEST, f_gen_ts_ies(imsi, imei := imei, source_name := source_name)); - -template GSUP_PDU tr_GSUP_CHECK_IMEI_REQ( - template hexstring imsi, - template hexstring imei -) := tr_GSUP( - OSMO_GSUP_MSGT_CHECK_IMEI_REQUEST, - { - tr_GSUP_IE_IMSI(imsi), - tr_GSUP_IE_IMEI(imei), - tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SUBSCRIBER_MANAGEMENT) - } -); - -template (value) GSUP_PDU ts_GSUP_CHECK_IMEI_RES(hexstring imsi, GSUP_IMEIResult result) := - ts_GSUP(OSMO_GSUP_MSGT_CHECK_IMEI_RESULT, { - valueof(ts_GSUP_IE_IMSI(imsi)), valueof(ts_GSUP_IE_IMEI_Result(result)) }); - -template GSUP_PDU tr_GSUP_CHECK_IMEI_RES(template hexstring imsi, template GSUP_IMEIResult result, - template octetstring destination_name := omit) := - tr_GSUP(OSMO_GSUP_MSGT_CHECK_IMEI_RESULT, - f_gen_tr_ies(imsi, imei_result := result, destination_name := destination_name)); - -template (value) GSUP_PDU ts_GSUP_CHECK_IMEI_ERR(hexstring imsi, integer cause) := - ts_GSUP(OSMO_GSUP_MSGT_CHECK_IMEI_ERROR, { - valueof(ts_GSUP_IE_IMSI(imsi)), valueof(ts_GSUP_IE_Cause(cause)) }); - -template GSUP_PDU tr_GSUP_CHECK_IMEI_ERR(template hexstring imsi, template integer cause, - template octetstring destination_name := omit) := - tr_GSUP(OSMO_GSUP_MSGT_CHECK_IMEI_ERROR, f_gen_tr_ies(imsi, cause := cause, destination_name := destination_name)); - - -/* EPDG Tunnel */ -template (value) GSUP_PDU ts_GSUP_EPDGTunnel_REQ(hexstring imsi, - GSUP_Message_Class message_class := OSMO_GSUP_MESSAGE_CLASS_IPSEC_EPDG, - GSUP_CnDomain dom := OSMO_GSUP_CN_DOMAIN_PS, - template (omit) octetstring source_name := omit) := - ts_GSUP(OSMO_GSUP_MSGT_EPDG_TUNNEL_REQUEST, f_gen_ts_ies(imsi, - message_class := message_class, - dom := dom, - source_name := source_name)); - -template (present) GSUP_PDU tr_GSUP_EPDGTunnel_REQ(template (present) hexstring imsi := ?, - template (present) GSUP_Message_Class message_class := OSMO_GSUP_MESSAGE_CLASS_IPSEC_EPDG) := - tr_GSUP(OSMO_GSUP_MSGT_EPDG_TUNNEL_REQUEST, - f_gen_tr_ies(imsi, - message_class := message_class)); - - -template (value) GSUP_PDU ts_GSUP_EPDGTunnel_RES(hexstring imsi, - GSUP_Message_Class message_class := OSMO_GSUP_MESSAGE_CLASS_IPSEC_EPDG, - octetstring destination_name := ''O) := - ts_GSUP(OSMO_GSUP_MSGT_EPDG_TUNNEL_RESULT, { - valueof(ts_GSUP_IE_IMSI(imsi)), - valueof(ts_GSUP_IE_Message_Class(message_class)), - valueof(ts_GSUP_IE_Destination_Name(destination_name)) - }); - -template (present) GSUP_PDU tr_GSUP_EPDGTunnel_RES(template (present) hexstring imsi, - template (present) GSUP_Message_Class message_class := OSMO_GSUP_MESSAGE_CLASS_IPSEC_EPDG, - template octetstring destination_name := omit) := - tr_GSUP(OSMO_GSUP_MSGT_EPDG_TUNNEL_RESULT, - f_gen_tr_ies(imsi, - message_class := message_class, - destination_name := destination_name)); - -template (value) GSUP_PDU ts_GSUP_EPDGTunnel_ERR(hexstring imsi, - GSUP_Message_Class message_class := OSMO_GSUP_MESSAGE_CLASS_IPSEC_EPDG, - integer cause := 0) := - ts_GSUP(OSMO_GSUP_MSGT_EPDG_TUNNEL_ERROR, { - valueof(ts_GSUP_IE_IMSI(imsi)), - valueof(ts_GSUP_IE_Cause(cause)), - valueof(ts_GSUP_IE_Message_Class(message_class)) - }); - -template (present) GSUP_PDU tr_GSUP_EPDGTunnel_ERR(template (present) hexstring imsi, - template (present) GSUP_Message_Class message_class := OSMO_GSUP_MESSAGE_CLASS_IPSEC_EPDG, - template (present) integer cause := ?, - template octetstring destination_name := omit) := - tr_GSUP(OSMO_GSUP_MSGT_EPDG_TUNNEL_ERROR, - f_gen_tr_ies(imsi, - message_class := message_class, - cause := cause, - destination_name := destination_name)); - - -template (value) GSUP_IE ts_GSUP_IE_CancelType(GSUP_CancelType ctype) := { - tag := OSMO_GSUP_CANCEL_TYPE_IE, - len := 0, /* overwritten */ - val := { - cancel_type := ctype - } -} - -template GSUP_IE tr_GSUP_IE_CancelType(template GSUP_CancelType ctype) := - tr_GSUP_IE(OSMO_GSUP_CANCEL_TYPE_IE, GSUP_IeValue:{cancel_type:=ctype}); - -template GSUP_IE tr_GSUP_IE_CnDomain(template GSUP_CnDomain domain) := - tr_GSUP_IE(OSMO_GSUP_CN_DOMAIN_IE, GSUP_IeValue:{cn_domain:=domain}); - -template GSUP_IE tr_GSUP_IE(template GSUP_IEI iei, template GSUP_IeValue val := ?) := { - tag := iei, - len := ?, - val := val -} - -template (value) GSUP_IE ts_GSUP_IE_IMSI(hexstring imsi) := { - tag := OSMO_GSUP_IMSI_IE, - len := 0, /* overwritten */ - val := { - imsi := imsi - } -} - -template (present) GSUP_IE tr_GSUP_IE_IMSI(template (present) hexstring imsi := ?) := { - tag := OSMO_GSUP_IMSI_IE, - len := ?, - val := { - imsi := imsi - } -} - -template (value) GSUP_IE ts_GSUP_IE_MSISDN(hexstring msisdn) := { - tag := OSMO_GSUP_MSISDN_IE, - len := 0, /* overwritten */ - val := { - msisdn := ts_GSUP_MSISDN(msisdn) - } -} - -template GSUP_IE tr_GSUP_IE_MSISDN(template hexstring msisdn) := { - tag := OSMO_GSUP_MSISDN_IE, - len := ?, - val := { - msisdn := tr_GSUP_MSISDN(msisdn) - } -} - - -template (value) GSUP_IE ts_GSUP_IE_Cause(integer cause) := { - tag := OSMO_GSUP_CAUSE_IE, - len := 0, /* overwritten */ - val := { - cause := cause - } -} - -template GSUP_IE tr_GSUP_IE_Cause(template integer cause) := { - tag := OSMO_GSUP_CAUSE_IE, - len := ?, - val := { - cause := cause - } -} - -template (value) GSUP_IE ts_GSUP_IE_AUTS(octetstring auts) := { - tag := OSMO_GSUP_AUTS_IE, - len := 0, /* overwritten */ - val := { - auts := auts - } -} - -template GSUP_IE tr_GSUP_IE_AUTS(template octetstring auts) := { - tag := OSMO_GSUP_AUTS_IE, - len := ?, - val := { - auts := auts - } -} - -template (value) GSUP_IE ts_GSUP_IE_RAND(octetstring rand) := { - tag := OSMO_GSUP_RAND_IE, - len := 0, /* overwritten */ - val := { - rand := rand - } -} - -template GSUP_IE tr_GSUP_IE_RAND(template octetstring rand := ?) := { - tag := OSMO_GSUP_RAND_IE, - len := ?, - val := { - rand := rand - } -} - -template (present) GSUP_IE tr_GSUP_IE_SRES(template (present) octetstring sres := ?) := { - tag := OSMO_GSUP_SRES_IE, - len := ?, - val := { - sres := sres - } -} - -template (value) GSUP_IE ts_GSUP_IE_SRES(octetstring sres) := { - tag := OSMO_GSUP_SRES_IE, - len := 0, /* overwritten */ - val := { - sres := sres - } -} - -template (present) GSUP_IE tr_GSUP_IE_Kc(template (present) octetstring kc := ?) := { - tag := OSMO_GSUP_KC_IE, - len := ?, - val := { - kc := kc - } -} - -template (value) GSUP_IE ts_GSUP_IE_Kc(octetstring kc) := { - tag := OSMO_GSUP_KC_IE, - len := 0, /* overwritten */ - val := { - kc := kc - } -} - -template (present) GSUP_IE tr_GSUP_IE_IK(template (present) octetstring ik := ?) := { - tag := OSMO_GSUP_IK_IE, - len := ?, - val := { - ik := ik - } -} - -template (value) GSUP_IE ts_GSUP_IE_IK(octetstring ik) := { - tag := OSMO_GSUP_IK_IE, - len := 0, /* overwritten */ - val := { - ik := ik - } -} - -template (present) GSUP_IE tr_GSUP_IE_CK(template (present) octetstring ck := ?) := { - tag := OSMO_GSUP_CK_IE, - len := ?, - val := { - ck := ck - } -} - -template (value) GSUP_IE ts_GSUP_IE_CK(octetstring ck) := { - tag := OSMO_GSUP_CK_IE, - len := 0, /* overwritten */ - val := { - ck := ck - } -} - -template (present) GSUP_IE tr_GSUP_IE_AUTN(template (present) octetstring autn := ?) := { - tag := OSMO_GSUP_AUTN_IE, - len := ?, - val := { - autn := autn - } -} - -template (value) GSUP_IE ts_GSUP_IE_AUTN(octetstring autn) := { - tag := OSMO_GSUP_AUTN_IE, - len := 0, /* overwritten */ - val := { - autn := autn - } -} - -template (present) GSUP_IE tr_GSUP_IE_RES(template (present) octetstring res := ?) := { - tag := OSMO_GSUP_RES_IE, - len := ?, - val := { - res := res - } -} - -template (value) GSUP_IE ts_GSUP_IE_RES(octetstring res) := { - tag := OSMO_GSUP_RES_IE, - len := 0, /* overwritten */ - val := { - res := res - } -} - -template (value) GSUP_IE ts_GSUP_IE_APN(octetstring apn) := { - tag := OSMO_GSUP_ACCESS_POINT_NAME_IE, - len := 0, /* overwritten */ - val := { - apn := apn - } -} - -template GSUP_IE tr_GSUP_IE_APN(template octetstring apn) := { - tag := OSMO_GSUP_ACCESS_POINT_NAME_IE, - len := ?, - val := { - apn := apn - } -} - -template GSUP_IE ts_GSUP_IE_CnDomain(template GSUP_CnDomain dom) := { - tag := OSMO_GSUP_CN_DOMAIN_IE, - len := 0, /* overwritten */ - val := { - cn_domain := dom - } -} - -template (value) GSUP_IE ts_GSUP_IE_SessionId(OCT4 sid) := { - tag := OSMO_GSUP_SESSION_ID_IE, - len := 0, /* overwritten */ - val := { - session_id := sid - } -} -template GSUP_IE tr_GSUP_IE_SessionId(template OCT4 sid) := { - tag := OSMO_GSUP_SESSION_ID_IE, - len := ?, - val := { - session_id := sid - } -} - -template (value) GSUP_IE ts_GSUP_IE_SessionState(GSUP_SessionState state) := { - tag := OSMO_GSUP_SESSION_STATE_IE, - len := 0, /* overwritten */ - val := { - session_state := state - } -} -template GSUP_IE tr_GSUP_IE_SessionState(template GSUP_SessionState state) := { - tag := OSMO_GSUP_SESSION_STATE_IE, - len := ?, - val := { - session_state := state - } -} - -template (value) GSUP_IE ts_GSUP_IE_SM_RP_MR(OCT1 ref) := { - tag := OSMO_GSUP_SM_RP_MR_IE, - len := 0, /* overwritten */ - val := { - sm_rp_mr := ref - } -} -template GSUP_IE tr_GSUP_IE_SM_RP_MR(template OCT1 ref) := { - tag := OSMO_GSUP_SM_RP_MR_IE, - len := ?, - val := { - sm_rp_mr := ref - } -} - -template (value) GSUP_IE ts_GSUP_IE_SM_RP_CAUSE(OCT1 cause) := { - tag := OSMO_GSUP_SM_RP_CAUSE_IE, - len := 0, /* overwritten */ - val := { - sm_rp_cause := cause - } -} -template GSUP_IE tr_GSUP_IE_SM_RP_CAUSE(template OCT1 cause) := { - tag := OSMO_GSUP_SM_RP_CAUSE_IE, - len := ?, - val := { - sm_rp_cause := cause - } -} - -template (value) GSUP_IE ts_GSUP_IE_SM_RP_MMS(OCT1 mms) := { - tag := OSMO_GSUP_SM_RP_MMS_IE, - len := 0, /* overwritten */ - val := { - sm_rp_mms := mms - } -} -template GSUP_IE tr_GSUP_IE_SM_RP_MMS(template OCT1 mms) := { - tag := OSMO_GSUP_SM_RP_MMS_IE, - len := ?, - val := { - sm_rp_mms := mms - } -} - -template (value) GSUP_IE ts_GSUP_IE_IMEI(hexstring imei) := { - tag := OSMO_GSUP_IMEI_IE, - len := 0, /* overwritten */ - val := { - imei := ts_GSUP_IMEI(imei) - } -} -template GSUP_IE tr_GSUP_IE_IMEI(template hexstring imei) := { - tag := OSMO_GSUP_IMEI_IE, - len := ?, - val := { - imei := tr_GSUP_IMEI(imei) - } -} - -template (value) GSUP_IE ts_GSUP_IE_IMEI_Result(GSUP_IMEIResult result) := { - tag := OSMO_GSUP_IMEI_RESULT_IE, - len := 0, /* overwritten */ - val := { - imei_result := result - } -} -template GSUP_IE tr_GSUP_IE_IMEI_Result(template GSUP_IMEIResult result) := { - tag := OSMO_GSUP_IMEI_RESULT_IE, - len := ?, - val := { - imei_result := result - } -} - -template (value) GSUP_IE ts_GSUP_IE_NUM_VECTORS_REQ(OCT1 num) := { - tag := OSMO_GSUP_NUM_VECTORS_REQ_IE, - len := 0, /* overwritten */ - val := { - num_auth_vectors := num - } -} -template GSUP_IE tr_GSUP_IE_NUM_VECTORS_REQ(template OCT1 num) := { - tag := OSMO_GSUP_NUM_VECTORS_REQ_IE, - len := ?, - val := { - num_auth_vectors := num - } -} - - -/* Possible identity types for SM-RP-{OA|DA} IEs */ -type enumerated GSUP_SM_RP_ODA_IdType { - OSMO_GSUP_SM_RP_ODA_ID_NONE ('00'O), - OSMO_GSUP_SM_RP_ODA_ID_IMSI ('01'O), - OSMO_GSUP_SM_RP_ODA_ID_MSISDN ('02'O), - OSMO_GSUP_SM_RP_ODA_ID_SMSC_ADDR ('03'O), - /* Special value for noSM-RP-DA and noSM-RP-OA */ - OSMO_GSUP_SM_RP_ODA_ID_NULL ('FF'O) -} with { variant "FIELDLENGTH(8)" }; - /* See 3GPP TS 24.011, figures 8.5 and 8.6 */ type record GSUP_SM_RP_Addr { BIT1 ext, /* Extension? */ @@ -1109,27 +341,6 @@ variant "PADDING_PATTERN('1111'B)" }; -private function f_pad_SM_RP_Addr(template hexstring number) -return template hexstring { - if (isvalue(number) and not istemplatekind(number, "omit")) { - return f_pad_bcd_number(valueof(number)); - } else { - return number; - } -} - -template GSUP_SM_RP_Addr t_GSUP_SM_RP_Addr(template hexstring number, - template BIT4 npi := '0001'B, - template BIT3 ton := '001'B, - template BIT1 ext := '1'B) := { - ext := ext, - ton := ton, - npi := npi, - /* Work around TITAN's padding problems: encoding works fine, - * but it does not consider 'F'H as padding in decoded data. */ - number := f_pad_SM_RP_Addr(number) -} - /** * SM-RP-DA represents the SM Destination Address, see 7.6.8.1. * It can be either of the following: @@ -1156,57 +367,6 @@ )" }; -template (value) GSUP_SM_RP_DA ts_GSUP_SM_RP_DA_IMSI(hexstring imsi) := { - id_type := OSMO_GSUP_SM_RP_ODA_ID_IMSI, - id_enc := { imsi := imsi } -} -template GSUP_SM_RP_DA tr_GSUP_SM_RP_DA_IMSI(template hexstring imsi) := { - id_type := OSMO_GSUP_SM_RP_ODA_ID_IMSI, - id_enc := { imsi := imsi } -} - -template (value) GSUP_SM_RP_DA ts_GSUP_SM_RP_DA_MSISDN(GSUP_SM_RP_Addr msisdn) := { - id_type := OSMO_GSUP_SM_RP_ODA_ID_MSISDN, - id_enc := { msisdn := msisdn } -} -template GSUP_SM_RP_DA tr_GSUP_SM_RP_DA_MSISDN(template GSUP_SM_RP_Addr msisdn) := { - id_type := OSMO_GSUP_SM_RP_ODA_ID_MSISDN, - id_enc := { msisdn := msisdn } -} - -template (value) GSUP_SM_RP_DA ts_GSUP_SM_RP_DA_SMSC_ADDR(GSUP_SM_RP_Addr smsc_addr) := { - id_type := OSMO_GSUP_SM_RP_ODA_ID_SMSC_ADDR, - id_enc := { smsc_addr := smsc_addr } -} -template GSUP_SM_RP_DA tr_GSUP_SM_RP_DA_SMSC_ADDR(template GSUP_SM_RP_Addr smsc_addr) := { - id_type := OSMO_GSUP_SM_RP_ODA_ID_SMSC_ADDR, - id_enc := { smsc_addr := smsc_addr } -} - -template (value) GSUP_SM_RP_DA ts_GSUP_SM_RP_DA_NULL := { - id_type := OSMO_GSUP_SM_RP_ODA_ID_NULL, - id_enc := omit -} -template GSUP_SM_RP_DA tr_GSUP_SM_RP_DA_NULL := { - id_type := OSMO_GSUP_SM_RP_ODA_ID_NULL, - id_enc := omit -} - -template (value) GSUP_IE ts_GSUP_IE_SM_RP_DA(GSUP_SM_RP_DA val) := { - tag := OSMO_GSUP_SM_RP_DA_IE, - len := 0, /* overwritten */ - val := { - sm_rp_da := val - } -} -template GSUP_IE tr_GSUP_IE_SM_RP_DA(template GSUP_SM_RP_DA val) := { - tag := OSMO_GSUP_SM_RP_DA_IE, - len := ?, - val := { - sm_rp_da := val - } -} - /** * SM-RP-OA represents the SM Originating Address, see 7.6.8.2. * It can be either of the following: @@ -1228,64 +388,6 @@ )" }; -template (value) GSUP_SM_RP_OA ts_GSUP_SM_RP_OA_MSISDN(GSUP_SM_RP_Addr msisdn) := { - id_type := OSMO_GSUP_SM_RP_ODA_ID_MSISDN, - id_enc := { msisdn := msisdn } -} -template GSUP_SM_RP_OA tr_GSUP_SM_RP_OA_MSISDN(template GSUP_SM_RP_Addr msisdn) := { - id_type := OSMO_GSUP_SM_RP_ODA_ID_MSISDN, - id_enc := { msisdn := msisdn } -} - -template (value) GSUP_SM_RP_OA ts_GSUP_SM_RP_OA_SMSC_ADDR(GSUP_SM_RP_Addr smsc_addr) := { - id_type := OSMO_GSUP_SM_RP_ODA_ID_SMSC_ADDR, - id_enc := { smsc_addr := smsc_addr } -} -template GSUP_SM_RP_OA tr_GSUP_SM_RP_OA_SMSC_ADDR(template GSUP_SM_RP_Addr smsc_addr) := { - id_type := OSMO_GSUP_SM_RP_ODA_ID_SMSC_ADDR, - id_enc := { smsc_addr := smsc_addr } -} - -template (value) GSUP_SM_RP_OA ts_GSUP_SM_RP_OA_NULL := { - id_type := OSMO_GSUP_SM_RP_ODA_ID_NULL, - id_enc := omit -} -template GSUP_SM_RP_OA tr_GSUP_SM_RP_OA_NULL := { - id_type := OSMO_GSUP_SM_RP_ODA_ID_NULL, - id_enc := omit -} - -template (value) GSUP_IE ts_GSUP_IE_SM_RP_OA(GSUP_SM_RP_OA val) := { - tag := OSMO_GSUP_SM_RP_OA_IE, - len := 0, /* overwritten */ - val := { - sm_rp_oa := val - } -} -template GSUP_IE tr_GSUP_IE_SM_RP_OA(template GSUP_SM_RP_OA val) := { - tag := OSMO_GSUP_SM_RP_OA_IE, - len := ?, - val := { - sm_rp_oa := val - } -} - -/* SM-RP-UI represents the SM TPDU, see 7.6.8.4 */ -template (value) GSUP_IE ts_GSUP_IE_SM_RP_UI(octetstring val) := { - tag := OSMO_GSUP_SM_RP_UI_IE, - len := 0, /* overwritten */ - val := { - sm_rp_ui := val - } -} -template GSUP_IE tr_GSUP_IE_SM_RP_UI(template octetstring val) := { - tag := OSMO_GSUP_SM_RP_UI_IE, - len := ?, - val := { - sm_rp_ui := val - } -} - /* SM Alert Reason types, see 7.6.8.8 */ type enumerated GSUP_SM_ALERT_RSN_Type { GSUP_SM_ALERT_RSN_TYPE_NONE ('00'O), @@ -1293,728 +395,14 @@ GSUP_SM_ALERT_RSN_TYPE_MEM_AVAIL ('02'O) } with { variant "FIELDLENGTH(8)" }; -/* SM Alert Reason IE (used in READY-FOR-SM), see 7.6.8.8 */ -template (value) GSUP_IE ts_GSUP_IE_SM_ALERT_RSN(GSUP_SM_ALERT_RSN_Type rsn) := { - tag := OSMO_GSUP_SM_ALERT_RSN_IE, - len := 0, /* overwritten */ - val := { - sm_alert_rsn := rsn - } -} -template GSUP_IE tr_GSUP_IE_SM_ALERT_RSN(template GSUP_SM_ALERT_RSN_Type rsn) := { - tag := OSMO_GSUP_SM_ALERT_RSN_IE, - len := ?, - val := { - sm_alert_rsn := rsn - } -} - -template (value) GSUP_IE ts_GSUP_IE_SSInfo(octetstring ss) := { - tag := OSMO_GSUP_SS_INFO_IE, - len := 0, /* overwritten */ - val := { - ss_info := ss - } -} -template GSUP_IE tr_GSUP_IE_SSInfo(template octetstring ss) := { - tag := OSMO_GSUP_SS_INFO_IE, - len := ?, - val := { - ss_info := ss - } -} - -template GSUP_IE tr_GSUP_IE_Message_Class(template GSUP_Message_Class val) := { - tag := OSMO_GSUP_MESSAGE_CLASS_IE, - len := ?, - val := { - message_class := val - } -} - -template (value) GSUP_IE ts_GSUP_IE_Message_Class(GSUP_Message_Class val) := { - tag := OSMO_GSUP_MESSAGE_CLASS_IE, - len := 0, /* overwritten */ - val := { - message_class := val - } -} - -template GSUP_IE tr_GSUP_IE_Source_Name(template octetstring name) := { - tag := OSMO_GSUP_SOURCE_NAME_IE, - len := ?, - val := { - source_name := name - } -} - -template (value) GSUP_IE ts_GSUP_IE_Source_Name(octetstring name) := { - tag := OSMO_GSUP_SOURCE_NAME_IE, - len := 0, /* overwritten */ - val := { - source_name := name - } -} - -template GSUP_IE tr_GSUP_IE_Destination_Name(template octetstring name) := { - tag := OSMO_GSUP_DESTINATION_NAME_IE, - len := ?, - val := { - destination_name := name - } -} - -template (value) GSUP_IE ts_GSUP_IE_Destination_Name(octetstring name) := { - tag := OSMO_GSUP_DESTINATION_NAME_IE, - len := 0, /* overwritten */ - val := { - destination_name := name - } -} - -template GSUP_IE tr_GSUP_IE_AN_APDU(template GSUP_AN_APDU an_apdu) := { - tag := OSMO_GSUP_AN_APDU_IE, - len := ?, - val := { - an_apdu := an_apdu - } -} - -template (value) GSUP_IE ts_GSUP_IE_AN_APDU(GSUP_AN_APDU an_apdu) := { - tag := OSMO_GSUP_AN_APDU_IE, - len := 0, /* overwritten */ - val := { - an_apdu := an_apdu - } -} - -template (present) GSUP_IE tr_GSUP_IE_SUPPORTED_RAT_TYPES(template (present) GSUP_RatTypes ratt) := { - tag := OSMO_GSUP_SUPPORTED_RAT_TYPES_IE, - len := ?, - val := { - supported_rat_types := ratt - } -} -template (value) GSUP_IE ts_GSUP_IE_SUPPORTED_RAT_TYPES(GSUP_RatTypes ratt) := { - tag := OSMO_GSUP_SUPPORTED_RAT_TYPES_IE, - len := 0, /* overwritten */ - val := { - supported_rat_types := ratt - } -} - -template (present) GSUP_IE tr_GSUP_IE_CURRENT_RAT_TYPE(template (present) GSUP_RatType ratt) := { - tag := OSMO_GSUP_CURRENT_RAT_TYPE_IE, - len := ?, - val := { - current_rat_type := ratt - } -} -template (value) GSUP_IE ts_GSUP_IE_CURRENT_RAT_TYPE(GSUP_RatType ratt) := { - tag := OSMO_GSUP_CURRENT_RAT_TYPE_IE, - len := 0, /* overwritten */ - val := { - current_rat_type := ratt - } -} - -private function f_gen_ts_ies(hexstring imsi, - template (omit) GSUP_Message_Class message_class := omit, - template (omit) hexstring imei := omit, - template (omit) GSUP_CnDomain dom := omit, - template (omit) octetstring source_name := omit, - template (omit) octetstring destination_name := omit - ) return GSUP_IEs { - var GSUP_IEs ies := { - valueof(ts_GSUP_IE_IMSI(imsi)) - }; - - if (isvalue(dom)) { - ies := ies & { valueof(ts_GSUP_IE_CnDomain(dom)) }; - } - - if (isvalue(imei)) { - ies := ies & { valueof(ts_GSUP_IE_IMEI(valueof(imei))) }; - } - - if (isvalue(message_class)) { - ies := ies & { valueof(ts_GSUP_IE_Message_Class(valueof(message_class))) }; - } - - if (isvalue(source_name)) { - ies := ies & { valueof(ts_GSUP_IE_Source_Name(valueof(source_name))) }; - } - - if (isvalue(destination_name)) { - ies := ies & { valueof(ts_GSUP_IE_Destination_Name(valueof(destination_name))) }; - } - - return ies; -} - -private function f_gen_tr_ies(template hexstring imsi, - template GSUP_Message_Class message_class := omit, - template integer cause := omit, - template hexstring msisdn := omit, - template GSUP_IMEIResult imei_result := omit, - template octetstring source_name := omit, - template octetstring destination_name := omit - ) return template GSUP_IEs { - var template GSUP_IEs ies := { - tr_GSUP_IE_IMSI(imsi) - }; - var integer idx := 1; - - if (isvalue(cause)) { - ies[idx] := tr_GSUP_IE_Cause(cause); - idx := idx + 1; - } - - if (isvalue(msisdn)) { - ies[idx] := tr_GSUP_IE_MSISDN(msisdn); - idx := idx + 1; - } - - if (isvalue(imei_result)) { - ies[idx] := tr_GSUP_IE_IMEI_Result(imei_result); - idx := idx + 1; - } - - if (isvalue(message_class)) { - ies[idx] := tr_GSUP_IE_Message_Class(message_class); - idx := idx + 1; - } - - if (isvalue(source_name)) { - ies[idx] := tr_GSUP_IE_Source_Name(source_name); - idx := idx + 1; - } - - ies[idx] := *; - idx := idx + 1; - - if (isvalue(destination_name)) { - ies[idx] := tr_GSUP_IE_Destination_Name(destination_name); - idx := idx + 1; - } - - return ies; -} - -private function f_gen_ts_ss_ies( - hexstring imsi, - OCT4 sid, - GSUP_SessionState state, - template (omit) octetstring ss := omit, - template (omit) integer cause := omit, - template octetstring source_name := omit -) return GSUP_IEs { - /* Mandatory IEs */ - var GSUP_IEs ies := { - valueof(ts_GSUP_IE_IMSI(imsi)) - }; - - /* Cause IE is needed for PROC_SS_ERR */ - if (isvalue(cause)) { - ies := ies & { valueof(ts_GSUP_IE_Cause(valueof(cause))) }; - } - - /* Mandatory session IEs */ - ies := ies & { valueof(ts_GSUP_IE_SessionId(sid)) }; - ies := ies & { valueof(ts_GSUP_IE_SessionState(state)) }; - - /* Optional SS payload */ - if (isvalue(ss)) { - ies := ies & { valueof(ts_GSUP_IE_SSInfo(valueof(ss))) }; - } - - if (isvalue(source_name)) { - ies := ies & { valueof(ts_GSUP_IE_Source_Name(valueof(source_name))) }; - } - - return ies; -} -private function f_gen_tr_ss_ies( - template hexstring imsi, - template OCT4 sid := ?, - template GSUP_SessionState state := ?, - template octetstring ss := omit, - template integer cause := omit, - template octetstring destination_name := omit -) return template GSUP_IEs { - /* Mandatory IEs */ - var template GSUP_IEs ies := { - tr_GSUP_IE_IMSI(imsi) - }; - var integer idx := 1; - - /* Cause IE is needed for PROC_SS_ERR */ - if (istemplatekind(cause, "*")) { - ies[idx] := *; - idx := idx + 1; - } else if (not istemplatekind(cause, "omit")) { - ies[idx] := tr_GSUP_IE_Cause(cause); - idx := idx + 1; - } - - /* Mandatory session IEs */ - ies[idx] := tr_GSUP_IE_SessionId(sid); - ies[idx + 1] := tr_GSUP_IE_SessionState(state); - idx := idx + 2; - - /* Optional SS payload */ - if (istemplatekind(ss, "*")) { - ies[idx] := *; - idx := idx + 1; - } else if (not istemplatekind(ss, "omit")) { - ies[idx] := tr_GSUP_IE_SSInfo(ss); - idx := idx + 1; - } - - if (isvalue(destination_name)) { - ies[idx] := tr_GSUP_IE_Destination_Name(destination_name); - idx := idx + 1; - } - - /* the GSUP Message Class IE is optional, as old implementations don't have it yet */ - var template GSUP_IEs ies2 := ies; - ies2[idx] := tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_USSD); - idx := idx + 1; - - return (ies, ies2); -} - -template (value) GSUP_PDU ts_GSUP_PROC_SS_REQ( - hexstring imsi, - OCT4 sid, - GSUP_SessionState state, - template (omit) octetstring ss := omit, - template (omit) octetstring source_name := omit -) := ts_GSUP( - OSMO_GSUP_MSGT_PROC_SS_REQUEST, - f_gen_ts_ss_ies(imsi, sid, state, ss, source_name := source_name) -); -template GSUP_PDU tr_GSUP_PROC_SS_REQ( - template hexstring imsi, - template OCT4 sid := ?, - template GSUP_SessionState state := ?, - template octetstring ss := * -) := tr_GSUP( - OSMO_GSUP_MSGT_PROC_SS_REQUEST, - f_gen_tr_ss_ies(imsi, sid, state, ss) -); - -template (value) GSUP_PDU ts_GSUP_PROC_SS_RES( - hexstring imsi, - OCT4 sid, - GSUP_SessionState state, - template (omit) octetstring ss := omit -) := ts_GSUP( - OSMO_GSUP_MSGT_PROC_SS_RESULT, - f_gen_ts_ss_ies(imsi, sid, state, ss) -); -template GSUP_PDU tr_GSUP_PROC_SS_RES( - template hexstring imsi, - template OCT4 sid := ?, - template GSUP_SessionState state := ?, - template octetstring ss := *, - template octetstring destination_name := omit -) := tr_GSUP( - OSMO_GSUP_MSGT_PROC_SS_RESULT, - f_gen_tr_ss_ies(imsi, sid, state, ss, destination_name := destination_name) -); - -template (value) GSUP_PDU ts_GSUP_PROC_SS_ERR( - hexstring imsi, - OCT4 sid, - GSUP_SessionState state, - integer cause -) := ts_GSUP( - OSMO_GSUP_MSGT_PROC_SS_ERROR, - f_gen_ts_ss_ies(imsi, sid, state, cause := cause) -); -template GSUP_PDU tr_GSUP_PROC_SS_ERR( - template hexstring imsi, - template OCT4 sid := ?, - template GSUP_SessionState state := ?, - template integer cause := ? -) := tr_GSUP( - OSMO_GSUP_MSGT_PROC_SS_ERROR, - f_gen_tr_ss_ies(imsi, sid, state, cause := cause) -); - -template (value) GSUP_PDU ts_GSUP_MO_FORWARD_SM_REQ( - hexstring imsi, - OCT1 sm_rp_mr, /* Message Reference, see GSM TS 04.11, 8.2.3 */ - GSUP_SM_RP_DA sm_rp_da, /* Destination Address, see 7.6.8.1 */ - GSUP_SM_RP_OA sm_rp_oa, /* Originating Address, see 7.6.8.2 */ - octetstring sm_rp_ui /* SM TPDU, see 7.6.8.4 */ -) := ts_GSUP( - OSMO_GSUP_MSGT_MO_FORWARD_SM_REQUEST, - { - valueof(ts_GSUP_IE_IMSI(imsi)), - valueof(ts_GSUP_IE_SM_RP_MR(sm_rp_mr)), - valueof(ts_GSUP_IE_SM_RP_DA(sm_rp_da)), - valueof(ts_GSUP_IE_SM_RP_OA(sm_rp_oa)), - valueof(ts_GSUP_IE_SM_RP_UI(sm_rp_ui)), - valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS)) - } -); -template GSUP_PDU tr_GSUP_MO_FORWARD_SM_REQ( - template hexstring imsi := ?, - template OCT1 sm_rp_mr := ?, /* Message Reference, see GSM TS 04.11, 8.2.3 */ - template GSUP_SM_RP_DA sm_rp_da, /* Destination Address, see 7.6.8.1 */ - template GSUP_SM_RP_OA sm_rp_oa, /* Originating Address, see 7.6.8.2 */ - template octetstring sm_rp_ui /* SM TPDU, see 7.6.8.4 */ -) := tr_GSUP( - OSMO_GSUP_MSGT_MO_FORWARD_SM_REQUEST, - { - tr_GSUP_IE_IMSI(imsi), - tr_GSUP_IE_SM_RP_MR(sm_rp_mr), - tr_GSUP_IE_SM_RP_DA(sm_rp_da), - tr_GSUP_IE_SM_RP_OA(sm_rp_oa), - tr_GSUP_IE_SM_RP_UI(sm_rp_ui), - tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS), - tr_GSUP_IE_Source_Name(?) - } -); - -template (value) GSUP_PDU ts_GSUP_MO_FORWARD_SM_RES( - hexstring imsi, - OCT1 sm_rp_mr /* Message Reference, see GSM TS 04.11, 8.2.3 */ -) := ts_GSUP( - OSMO_GSUP_MSGT_MO_FORWARD_SM_RESULT, - { - valueof(ts_GSUP_IE_IMSI(imsi)), - valueof(ts_GSUP_IE_SM_RP_MR(sm_rp_mr)), - valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS)) - } -); -template GSUP_PDU tr_GSUP_MO_FORWARD_SM_RES( - template hexstring imsi := ?, - template OCT1 sm_rp_mr := ? /* Message Reference, see GSM TS 04.11, 8.2.3 */ -) := tr_GSUP( - OSMO_GSUP_MSGT_MO_FORWARD_SM_RESULT, - { - tr_GSUP_IE_IMSI(imsi), - tr_GSUP_IE_SM_RP_MR(sm_rp_mr), - tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS), - tr_GSUP_IE_Source_Name(?) - } -); - -template (value) GSUP_PDU ts_GSUP_MO_FORWARD_SM_ERR( - hexstring imsi, - OCT1 sm_rp_mr, /* Message Reference, see GSM TS 04.11, 8.2.3 */ - OCT1 sm_rp_cause /* RP-Cause value, see GSM TS 04.11, 8.2.5.4 */ -) := ts_GSUP( - OSMO_GSUP_MSGT_MO_FORWARD_SM_ERROR, - { - valueof(ts_GSUP_IE_IMSI(imsi)), - valueof(ts_GSUP_IE_SM_RP_MR(sm_rp_mr)), - valueof(ts_GSUP_IE_SM_RP_CAUSE(sm_rp_cause)), - valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS)) - } -); -template GSUP_PDU tr_GSUP_MO_FORWARD_SM_ERR( - template hexstring imsi := ?, - template OCT1 sm_rp_mr := ?, /* Message Reference, see GSM TS 04.11, 8.2.3 */ - template OCT1 sm_rp_cause := ? /* RP-Cause value, see GSM TS 04.11, 8.2.5.4 */ -) := tr_GSUP( - OSMO_GSUP_MSGT_MO_FORWARD_SM_ERROR, - { - tr_GSUP_IE_IMSI(imsi), - tr_GSUP_IE_SM_RP_MR(sm_rp_mr), - tr_GSUP_IE_SM_RP_CAUSE(sm_rp_cause), - tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS), - tr_GSUP_IE_Source_Name(?) - } -); - -template (value) GSUP_PDU ts_GSUP_MT_FORWARD_SM_REQ( - hexstring imsi, - OCT1 sm_rp_mr, /* Message Reference, see GSM TS 04.11, 8.2.3 */ - GSUP_SM_RP_DA sm_rp_da, /* Destination Address, see 7.6.8.1 */ - GSUP_SM_RP_OA sm_rp_oa, /* Originating Address, see 7.6.8.2 */ - octetstring sm_rp_ui, /* SM TPDU, see 7.6.8.4 */ - OCT1 sm_rp_mms /* MMS (More Messages to Send), see 7.6.8.7 */ -) := ts_GSUP( - OSMO_GSUP_MSGT_MT_FORWARD_SM_REQUEST, - { - /** - * TODO: add MT-specific fields (and IEs): - * - smDeliveryTimer - * - smDeliveryStartTime - */ - valueof(ts_GSUP_IE_IMSI(imsi)), - valueof(ts_GSUP_IE_SM_RP_MR(sm_rp_mr)), - valueof(ts_GSUP_IE_SM_RP_DA(sm_rp_da)), - valueof(ts_GSUP_IE_SM_RP_OA(sm_rp_oa)), - valueof(ts_GSUP_IE_SM_RP_UI(sm_rp_ui)), - valueof(ts_GSUP_IE_SM_RP_MMS(sm_rp_mms)), - valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS)) - } -); -template GSUP_PDU tr_GSUP_MT_FORWARD_SM_REQ( - template hexstring imsi := ?, - template OCT1 sm_rp_mr := ?, /* Message Reference, see GSM TS 04.11, 8.2.3 */ - template GSUP_SM_RP_DA sm_rp_da, /* Destination Address, see 7.6.8.1 */ - template GSUP_SM_RP_OA sm_rp_oa, /* Originating Address, see 7.6.8.2 */ - template octetstring sm_rp_ui, /* SM TPDU, see 7.6.8.4 */ - template OCT1 sm_rp_mms /* MMS (More Messages to Send), see 7.6.8.7 */ -) := tr_GSUP( - OSMO_GSUP_MSGT_MT_FORWARD_SM_REQUEST, - { - /** - * TODO: add MT-specific fields (and IEs): - * - smDeliveryTimer - * - smDeliveryStartTime - */ - tr_GSUP_IE_IMSI(imsi), - tr_GSUP_IE_SM_RP_MR(sm_rp_mr), - tr_GSUP_IE_SM_RP_DA(sm_rp_da), - tr_GSUP_IE_SM_RP_OA(sm_rp_oa), - tr_GSUP_IE_SM_RP_UI(sm_rp_ui), - tr_GSUP_IE_SM_RP_MMS(sm_rp_mms), - tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS), - tr_GSUP_IE_Source_Name(?) - } -); - -template (value) GSUP_PDU ts_GSUP_MT_FORWARD_SM_RES( - hexstring imsi, - OCT1 sm_rp_mr /* Message Reference, see GSM TS 04.11, 8.2.3 */ -) := ts_GSUP( - OSMO_GSUP_MSGT_MT_FORWARD_SM_RESULT, - { - valueof(ts_GSUP_IE_IMSI(imsi)), - valueof(ts_GSUP_IE_SM_RP_MR(sm_rp_mr)), - valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS)) - } -); -template GSUP_PDU tr_GSUP_MT_FORWARD_SM_RES( - template hexstring imsi := ?, - template OCT1 sm_rp_mr := ? /* Message Reference, see GSM TS 04.11, 8.2.3 */ -) := tr_GSUP( - OSMO_GSUP_MSGT_MT_FORWARD_SM_RESULT, - { - tr_GSUP_IE_IMSI(imsi), - tr_GSUP_IE_SM_RP_MR(sm_rp_mr), - tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS), - tr_GSUP_IE_Source_Name(?) - } -); - -template (value) GSUP_PDU ts_GSUP_MT_FORWARD_SM_ERR( - hexstring imsi, - OCT1 sm_rp_mr, /* Message Reference, see GSM TS 04.11, 8.2.3 */ - OCT1 sm_rp_cause /* RP-Cause value, see GSM TS 04.11, 8.2.5.4 */ -) := ts_GSUP( - OSMO_GSUP_MSGT_MT_FORWARD_SM_ERROR, - { - valueof(ts_GSUP_IE_IMSI(imsi)), - valueof(ts_GSUP_IE_SM_RP_MR(sm_rp_mr)), - valueof(ts_GSUP_IE_SM_RP_CAUSE(sm_rp_cause)), - valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS)) - } -); -template GSUP_PDU tr_GSUP_MT_FORWARD_SM_ERR( - template hexstring imsi := ?, - template OCT1 sm_rp_mr := ?, /* Message Reference, see GSM TS 04.11, 8.2.3 */ - template OCT1 sm_rp_cause := ? /* RP-Cause value, see GSM TS 04.11, 8.2.5.4 */ -) := tr_GSUP( - OSMO_GSUP_MSGT_MT_FORWARD_SM_ERROR, - { - tr_GSUP_IE_IMSI(imsi), - tr_GSUP_IE_SM_RP_MR(sm_rp_mr), - tr_GSUP_IE_SM_RP_CAUSE(sm_rp_cause), - tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS), - tr_GSUP_IE_Source_Name(?) - } -); - -template (value) GSUP_PDU ts_GSUP_MO_READY_FOR_SM_REQ( - hexstring imsi, - OCT1 sm_rp_mr, /* Message Reference, see GSM TS 04.11, 8.2.3 */ - GSUP_SM_ALERT_RSN_Type sm_alert_rsn /* SM Alert Reason, see 7.6.8.8 */ -) := ts_GSUP( - OSMO_GSUP_MSGT_READY_FOR_SM_REQUEST, - { - valueof(ts_GSUP_IE_IMSI(imsi)), - valueof(ts_GSUP_IE_SM_RP_MR(sm_rp_mr)), - valueof(ts_GSUP_IE_SM_ALERT_RSN(sm_alert_rsn)), - valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS)) - } -); -template GSUP_PDU tr_GSUP_MO_READY_FOR_SM_REQ( - template hexstring imsi := ?, - template OCT1 sm_rp_mr := ?, /* Message Reference, see GSM TS 04.11, 8.2.3 */ - template GSUP_SM_ALERT_RSN_Type sm_alert_rsn := ? /* SM Alert Reason, see 7.6.8.8 */ -) := tr_GSUP( - OSMO_GSUP_MSGT_READY_FOR_SM_REQUEST, - { - tr_GSUP_IE_IMSI(imsi), - tr_GSUP_IE_SM_RP_MR(sm_rp_mr), - tr_GSUP_IE_SM_ALERT_RSN(sm_alert_rsn), - tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS), - tr_GSUP_IE_Source_Name(?) - } -); - -template (value) GSUP_PDU ts_GSUP_MO_READY_FOR_SM_RES( - hexstring imsi, - OCT1 sm_rp_mr /* Message Reference, see GSM TS 04.11, 8.2.3 */ -) := ts_GSUP( - OSMO_GSUP_MSGT_READY_FOR_SM_RESULT, - { - valueof(ts_GSUP_IE_IMSI(imsi)), - valueof(ts_GSUP_IE_SM_RP_MR(sm_rp_mr)), - valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS)) - } -); -template GSUP_PDU tr_GSUP_MO_READY_FOR_SM_RES( - template hexstring imsi := ?, - template OCT1 sm_rp_mr := ? /* Message Reference, see GSM TS 04.11, 8.2.3 */ -) := tr_GSUP( - OSMO_GSUP_MSGT_READY_FOR_SM_RESULT, - { - tr_GSUP_IE_IMSI(imsi), - tr_GSUP_IE_SM_RP_MR(sm_rp_mr), - tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS), - tr_GSUP_IE_Source_Name(?) - } -); - -template (value) GSUP_PDU ts_GSUP_MO_READY_FOR_SM_ERR( - hexstring imsi, - OCT1 sm_rp_mr, /* Message Reference, see GSM TS 04.11, 8.2.3 */ - OCT1 sm_rp_cause /* RP-Cause value, see GSM TS 04.11, 8.2.5.4 */ -) := ts_GSUP( - OSMO_GSUP_MSGT_READY_FOR_SM_ERROR, - { - valueof(ts_GSUP_IE_IMSI(imsi)), - valueof(ts_GSUP_IE_SM_RP_MR(sm_rp_mr)), - valueof(ts_GSUP_IE_SM_RP_CAUSE(sm_rp_cause)), - valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS)) - } -); -template GSUP_PDU tr_GSUP_MO_READY_FOR_SM_ERR( - template hexstring imsi := ?, - template OCT1 sm_rp_mr := ?, /* Message Reference, see GSM TS 04.11, 8.2.3 */ - template OCT1 sm_rp_cause := ? /* RP-Cause value, see GSM TS 04.11, 8.2.5.4 */ -) := tr_GSUP( - OSMO_GSUP_MSGT_READY_FOR_SM_ERROR, - { - tr_GSUP_IE_IMSI(imsi), - tr_GSUP_IE_SM_RP_MR(sm_rp_mr), - tr_GSUP_IE_SM_RP_CAUSE(sm_rp_cause), - tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_SMS), - tr_GSUP_IE_Source_Name(?) - } -); - -function f_gsup_find_nested_ie_multiple(GSUP_IEs ies, GSUP_IEI iei, integer nth, out GSUP_IeValue ret) return boolean { - var integer current := 0; - for (var integer i := 0; i < sizeof(ies); i := i+1) { - if (ies[i].tag == iei) { - if (current == nth) { - ret := ies[i].val; - return true; - } else { - current := current + 1; - } - } - } - return false; -} - -function f_gsup_find_nested_ie(GSUP_IEs ies, GSUP_IEI iei, out GSUP_IeValue ret) return boolean { - for (var integer i := 0; i < sizeof(ies); i := i+1) { - if (ies[i].tag == iei) { - ret := ies[i].val; - return true; - } - } - return false; -} - -function f_gsup_find_ie(GSUP_PDU msg, GSUP_IEI iei, out GSUP_IeValue ret) return boolean { - return f_gsup_find_nested_ie(msg.ies, iei, ret); -} - -template GSUP_AN_APDU t_GSUP_AN_APDU( - template GSUP_AN_PROTO an_proto := ?, - template octetstring pdu := ? -) := { - proto := an_proto, - pdu := pdu -}; - -template GSUP_PDU tr_GSUP_E_AN_APDU( - template GSUP_MessageType msgt, - template hexstring imsi := ?, - template octetstring source_name := ?, - template octetstring destination_name := ?, - template GSUP_AN_APDU an_apdu := ? -) := tr_GSUP( - msgt, - { - tr_GSUP_IE_IMSI(imsi), - tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_INTER_MSC), - tr_GSUP_IE_Source_Name(source_name), - tr_GSUP_IE_Destination_Name(destination_name), - tr_GSUP_IE_AN_APDU(an_apdu) - } -); - -template GSUP_PDU tr_GSUP_E_NO_PDU( - template GSUP_MessageType msgt, - template hexstring imsi := ?, - template octetstring source_name := ?, - template octetstring destination_name := ? -) := tr_GSUP( - msgt, - { - tr_GSUP_IE_IMSI(imsi), - tr_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_INTER_MSC), - tr_GSUP_IE_Source_Name(source_name), - tr_GSUP_IE_Destination_Name(destination_name) - } -); - -template (value) GSUP_PDU ts_GSUP_E_AN_APDU( - GSUP_MessageType msgt, - hexstring imsi, - octetstring source_name, - octetstring destination_name, - GSUP_AN_APDU an_apdu -) := ts_GSUP( - msgt, - { - valueof(ts_GSUP_IE_IMSI(imsi)), - valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_INTER_MSC)), - valueof(ts_GSUP_IE_Source_Name(source_name)), - valueof(ts_GSUP_IE_Destination_Name(destination_name)), - valueof(ts_GSUP_IE_AN_APDU(an_apdu)) - } -); - -template (value) GSUP_PDU ts_GSUP_E_PrepareHandoverResult( - hexstring imsi, - hexstring msisdn, - octetstring source_name, - octetstring destination_name, - GSUP_AN_APDU an_apdu -) := ts_GSUP( - OSMO_GSUP_MSGT_E_PREPARE_HANDOVER_RESULT, - { - valueof(ts_GSUP_IE_IMSI(imsi)), - valueof(ts_GSUP_IE_MSISDN(msisdn)), - valueof(ts_GSUP_IE_Message_Class(OSMO_GSUP_MESSAGE_CLASS_INTER_MSC)), - valueof(ts_GSUP_IE_Source_Name(source_name)), - valueof(ts_GSUP_IE_Destination_Name(destination_name)), - valueof(ts_GSUP_IE_AN_APDU(an_apdu)) - } -); +/* Possible identity types for SM-RP-{OA|DA} IEs */ +type enumerated GSUP_SM_RP_ODA_IdType { + OSMO_GSUP_SM_RP_ODA_ID_NONE ('00'O), + OSMO_GSUP_SM_RP_ODA_ID_IMSI ('01'O), + OSMO_GSUP_SM_RP_ODA_ID_MSISDN ('02'O), + OSMO_GSUP_SM_RP_ODA_ID_SMSC_ADDR ('03'O), + /* Special value for noSM-RP-DA and noSM-RP-OA */ + OSMO_GSUP_SM_RP_ODA_ID_NULL ('FF'O) +} with { variant "FIELDLENGTH(8)" }; } with { encode "RAW"; variant "FIELDORDER(msb)" } diff --git a/library/IPA_Emulation.ttcnpp b/library/IPA_Emulation.ttcnpp index 7a8e8d6..07fefe5 100644 --- a/library/IPA_Emulation.ttcnpp +++ b/library/IPA_Emulation.ttcnpp @@ -44,6 +44,7 @@ #ifdef IPA_EMULATION_GSUP import from GSUP_Types all; +import from GSUP_Templates all; #endif #ifdef IPA_EMULATION_RSPRO diff --git a/msc/BSC_ConnectionHandler.ttcn b/msc/BSC_ConnectionHandler.ttcn index e25d496..92ec3b1 100644 --- a/msc/BSC_ConnectionHandler.ttcn +++ b/msc/BSC_ConnectionHandler.ttcn @@ -31,6 +31,7 @@ import from RANAP_Templates all; import from GSUP_Types all; +import from GSUP_Templates all; import from GSUP_Emulation all; import from MNCC_Types all; diff --git a/msc/MSC_Tests.ttcn b/msc/MSC_Tests.ttcn index 1f8d8d4..7f993c4 100644 --- a/msc/MSC_Tests.ttcn +++ b/msc/MSC_Tests.ttcn @@ -47,8 +47,9 @@ import from MGCP_Templates all; import from SDP_Types all; -import from GSUP_Emulation all; import from GSUP_Types all; +import from GSUP_Templates all; +import from GSUP_Emulation all; import from IPA_Emulation all; import from BSSAP_Types all; diff --git a/msc/gen_links.sh b/msc/gen_links.sh index b112a67..8577208 100755 --- a/msc/gen_links.sh +++ b/msc/gen_links.sh @@ -93,7 +93,8 @@ DIR=../library FILES="Misc_Helpers.ttcn General_Types.ttcn GSM_Types.ttcn Osmocom_Types.ttcn MNCC_Types.ttcn MNCC_EncDec.cc MNCC_CodecPort.ttcn mncc.h MNCC_Emulation.ttcn Osmocom_VTY_Functions.ttcn Native_Functions.ttcn Native_FunctionDefs.cc " -FILES+="IPA_Types.ttcn IPA_Emulation.ttcnpp IPA_CodecPort.ttcn IPA_CodecPort_CtrlFunct.ttcn IPA_CodecPort_CtrlFunctDef.cc GSUP_Types.ttcn GSUP_Emulation.ttcn " +FILES+="IPA_Types.ttcn IPA_Emulation.ttcnpp IPA_CodecPort.ttcn IPA_CodecPort_CtrlFunct.ttcn IPA_CodecPort_CtrlFunctDef.cc " +FILES+="GSUP_Types.ttcn GSUP_Templates.ttcn GSUP_Emulation.ttcn " FILES+="Osmocom_CTRL_Types.ttcn Osmocom_CTRL_Functions.ttcn Osmocom_CTRL_Adapter.ttcn L3_Templates.ttcn RLCMAC_CSN1_Templates.ttcn RLCMAC_CSN1_Types.ttcn L3_Common.ttcn " FILES+="RAN_Emulation.ttcnpp BSSAP_CodecPort.ttcn BSSMAP_Templates.ttcn RAN_Adapter.ttcnpp MGCP_Types.ttcn MGCP_Templates.ttcn MGCP_CodecPort_CtrlFunct.ttcn MGCP_Emulation.ttcn " FILES+="RTP_CodecPort.ttcn RTP_CodecPort_CtrlFunctDef.cc " diff --git a/sgsn/SGSN_Tests.ttcn b/sgsn/SGSN_Tests.ttcn index 4af44ee..13c0be1 100644 --- a/sgsn/SGSN_Tests.ttcn +++ b/sgsn/SGSN_Tests.ttcn @@ -31,8 +31,9 @@ import from L3_Templates all; import from L3_Common all; -import from GSUP_Emulation all; import from GSUP_Types all; +import from GSUP_Templates all; +import from GSUP_Emulation all; import from IPA_Emulation all; import from RAN_Adapter all; diff --git a/sgsn/gen_links.sh b/sgsn/gen_links.sh index c78227f..afe6b02 100755 --- a/sgsn/gen_links.sh +++ b/sgsn/gen_links.sh @@ -91,7 +91,8 @@ FILES+="LLC_Templates.ttcn L3_Templates.ttcn L3_Common.ttcn " FILES+="RAN_Emulation.ttcnpp RAN_Adapter.ttcnpp SCCP_Templates.ttcn " # IPA_Emulation + dependencies -FILES+="IPA_Types.ttcn IPA_Emulation.ttcnpp IPA_CodecPort.ttcn IPA_CodecPort_CtrlFunct.ttcn IPA_CodecPort_CtrlFunctDef.cc Native_Functions.ttcn Native_FunctionDefs.cc GSUP_Types.ttcn GSUP_Emulation.ttcn " +FILES+="IPA_Types.ttcn IPA_Emulation.ttcnpp IPA_CodecPort.ttcn IPA_CodecPort_CtrlFunct.ttcn IPA_CodecPort_CtrlFunctDef.cc Native_Functions.ttcn Native_FunctionDefs.cc " +FILES+="GSUP_Types.ttcn GSUP_Templates.ttcn GSUP_Emulation.ttcn " FILES+="GTP_CodecPort.ttcn GTP_CodecPort_CtrlFunct.ttcn GTP_CodecPort_CtrlFunctDef.cc GTP_Emulation.ttcn GTP_Templates.ttcn IPCP_Types.ttcn RAW_NS.ttcnpp " gen_links $DIR $FILES -- To view, visit https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/35617?usp=email To unsubscribe, or for help writing mail filters, visit https://gerrit.osmocom.org/settings Gerrit-Project: osmo-ttcn3-hacks Gerrit-Branch: master Gerrit-Change-Id: I54cc8c99d1e91d57c3d5a92f6529ef2055e9d4ed Gerrit-Change-Number: 35617 Gerrit-PatchSet: 1 Gerrit-Owner: pespin <pespin(a)sysmocom.de> Gerrit-MessageType: newchange

1 0

[M] Change in osmo-ttcn3-hacks[master]: GSUP_Types: Add missing message_class to EPDGTunnel* messages
by pespin 18 Jan '24

18 Jan '24

Attention is currently required from: laforge, lynxis lazus, pespin. Hello Jenkins Builder, fixeria, laforge, lynxis lazus, I'd like you to reexamine a change. Please visit https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/35604?usp=email to look at the new patch set (#4). The following approvals got outdated and were removed: Verified+1 by Jenkins Builder Change subject: GSUP_Types: Add missing message_class to EPDGTunnel* messages ...................................................................... GSUP_Types: Add missing message_class to EPDGTunnel* messages Related: OS#6091 Change-Id: Ib7d6156402645867cadc8d3e0ffdd07247a1abd2 --- M library/GSUP_Types.ttcn 1 file changed, 69 insertions(+), 20 deletions(-) git pull ssh://gerrit.osmocom.org:29418/osmo-ttcn3-hacks refs/changes/04/35604/4 -- To view, visit https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/35604?usp=email To unsubscribe, or for help writing mail filters, visit https://gerrit.osmocom.org/settings Gerrit-Project: osmo-ttcn3-hacks Gerrit-Branch: master Gerrit-Change-Id: Ib7d6156402645867cadc8d3e0ffdd07247a1abd2 Gerrit-Change-Number: 35604 Gerrit-PatchSet: 4 Gerrit-Owner: pespin <pespin(a)sysmocom.de> Gerrit-Reviewer: Jenkins Builder Gerrit-Reviewer: fixeria <vyanitskiy(a)sysmocom.de> Gerrit-Reviewer: laforge <laforge(a)osmocom.org> Gerrit-Reviewer: lynxis lazus <lynxis(a)fe80.eu> Gerrit-Attention: laforge <laforge(a)osmocom.org> Gerrit-Attention: pespin <pespin(a)sysmocom.de> Gerrit-Attention: lynxis lazus <lynxis(a)fe80.eu> Gerrit-MessageType: newpatchset

1 0

[M] Change in libosmocore[master]: tests/gsm0408: add two more samples to bcap_tests[]
by pespin 18 Jan '24

18 Jan '24

Attention is currently required from: fixeria. pespin has posted comments on this change. ( https://gerrit.osmocom.org/c/libosmocore/+/35615?usp=email ) Change subject: tests/gsm0408: add two more samples to bcap_tests[] ...................................................................... Patch Set 2: Code-Review+1 (1 comment) Patchset: PS2: You should probably document that mismatch as a comment in the code, so people looking at the mismatch in the output knows out of the box why that happens. -- To view, visit https://gerrit.osmocom.org/c/libosmocore/+/35615?usp=email To unsubscribe, or for help writing mail filters, visit https://gerrit.osmocom.org/settings Gerrit-Project: libosmocore Gerrit-Branch: master Gerrit-Change-Id: I4fc519c02b4fad8b0f40fa649d9de14b1183d10d Gerrit-Change-Number: 35615 Gerrit-PatchSet: 2 Gerrit-Owner: fixeria <vyanitskiy(a)sysmocom.de> Gerrit-Reviewer: Jenkins Builder Gerrit-Reviewer: pespin <pespin(a)sysmocom.de> Gerrit-Attention: fixeria <vyanitskiy(a)sysmocom.de> Gerrit-Comment-Date: Thu, 18 Jan 2024 19:10:53 +0000 Gerrit-HasComments: Yes Gerrit-Has-Labels: Yes Gerrit-MessageType: comment

1 0

[M] Change in libosmocore[master]: tests/gsm0408: cosmetic: adjust coding style (make linter happy)
by pespin 18 Jan '24

18 Jan '24

Attention is currently required from: fixeria. pespin has posted comments on this change. ( https://gerrit.osmocom.org/c/libosmocore/+/35616?usp=email ) Change subject: tests/gsm0408: cosmetic: adjust coding style (make linter happy) ...................................................................... Patch Set 1: Code-Review+2 -- To view, visit https://gerrit.osmocom.org/c/libosmocore/+/35616?usp=email To unsubscribe, or for help writing mail filters, visit https://gerrit.osmocom.org/settings Gerrit-Project: libosmocore Gerrit-Branch: master Gerrit-Change-Id: I203033e2b3c27cb8b258faf1ff3c5ec4c0083458 Gerrit-Change-Number: 35616 Gerrit-PatchSet: 1 Gerrit-Owner: fixeria <vyanitskiy(a)sysmocom.de> Gerrit-Reviewer: Jenkins Builder Gerrit-Reviewer: pespin <pespin(a)sysmocom.de> Gerrit-Attention: fixeria <vyanitskiy(a)sysmocom.de> Gerrit-Comment-Date: Thu, 18 Jan 2024 19:09:40 +0000 Gerrit-HasComments: No Gerrit-Has-Labels: Yes Gerrit-MessageType: comment

1 0

[M] Change in osmo-ttcn3-hacks[master]: GSUP_Types: Add missing message_class to EPDGTunnel* messages
by fixeria 18 Jan '24

18 Jan '24

Attention is currently required from: laforge, lynxis lazus, pespin. fixeria has posted comments on this change. ( https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/35604?usp=email ) Change subject: GSUP_Types: Add missing message_class to EPDGTunnel* messages ...................................................................... Patch Set 3: (1 comment) File library/GSUP_Types.ttcn: https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/35604/comment/edead2b5_cc32… PS3, Line 734: ts_GSUP_IE_Message_Class Still the same problem here: it should be after the `Cause IE`. -- To view, visit https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/35604?usp=email To unsubscribe, or for help writing mail filters, visit https://gerrit.osmocom.org/settings Gerrit-Project: osmo-ttcn3-hacks Gerrit-Branch: master Gerrit-Change-Id: Ib7d6156402645867cadc8d3e0ffdd07247a1abd2 Gerrit-Change-Number: 35604 Gerrit-PatchSet: 3 Gerrit-Owner: pespin <pespin(a)sysmocom.de> Gerrit-Reviewer: Jenkins Builder Gerrit-Reviewer: fixeria <vyanitskiy(a)sysmocom.de> Gerrit-Reviewer: laforge <laforge(a)osmocom.org> Gerrit-Reviewer: lynxis lazus <lynxis(a)fe80.eu> Gerrit-Attention: laforge <laforge(a)osmocom.org> Gerrit-Attention: pespin <pespin(a)sysmocom.de> Gerrit-Attention: lynxis lazus <lynxis(a)fe80.eu> Gerrit-Comment-Date: Thu, 18 Jan 2024 19:03:04 +0000 Gerrit-HasComments: Yes Gerrit-Has-Labels: No Gerrit-MessageType: comment

1 0

[M] Change in osmo-ttcn3-hacks[master]: GSUP_Types: Add missing message_class to EPDGTunnel* messages
by pespin 18 Jan '24

18 Jan '24

Attention is currently required from: fixeria, laforge, lynxis lazus. Hello Jenkins Builder, fixeria, laforge, lynxis lazus, I'd like you to reexamine a change. Please visit https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/35604?usp=email to look at the new patch set (#3). The following approvals got outdated and were removed: Verified+1 by Jenkins Builder Change subject: GSUP_Types: Add missing message_class to EPDGTunnel* messages ...................................................................... GSUP_Types: Add missing message_class to EPDGTunnel* messages Related: OS#6091 Change-Id: Ib7d6156402645867cadc8d3e0ffdd07247a1abd2 --- M library/GSUP_Types.ttcn 1 file changed, 69 insertions(+), 20 deletions(-) git pull ssh://gerrit.osmocom.org:29418/osmo-ttcn3-hacks refs/changes/04/35604/3 -- To view, visit https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/35604?usp=email To unsubscribe, or for help writing mail filters, visit https://gerrit.osmocom.org/settings Gerrit-Project: osmo-ttcn3-hacks Gerrit-Branch: master Gerrit-Change-Id: Ib7d6156402645867cadc8d3e0ffdd07247a1abd2 Gerrit-Change-Number: 35604 Gerrit-PatchSet: 3 Gerrit-Owner: pespin <pespin(a)sysmocom.de> Gerrit-Reviewer: Jenkins Builder Gerrit-Reviewer: fixeria <vyanitskiy(a)sysmocom.de> Gerrit-Reviewer: laforge <laforge(a)osmocom.org> Gerrit-Reviewer: lynxis lazus <lynxis(a)fe80.eu> Gerrit-Attention: laforge <laforge(a)osmocom.org> Gerrit-Attention: fixeria <vyanitskiy(a)sysmocom.de> Gerrit-Attention: lynxis lazus <lynxis(a)fe80.eu> Gerrit-MessageType: newpatchset

1 0

[M] Change in osmo-ttcn3-hacks[master]: GSUP_Types: Add missing message_class to EPDGTunnel* messages
by pespin 18 Jan '24

18 Jan '24

Attention is currently required from: fixeria, laforge, lynxis lazus. pespin has posted comments on this change. ( https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/35604?usp=email ) Change subject: GSUP_Types: Add missing message_class to EPDGTunnel* messages ...................................................................... Patch Set 2: (2 comments) File library/GSUP_Types.ttcn: https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/35604/comment/ed1bdcb2_17bf… PS2, Line 1433: ts_GSUP_IE_Message_Class > Likewise here and above. Ack https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/35604/comment/eb613c74_2d91… PS2, Line 1469: tr_GSUP_IE_Message_Class > This IE go before the `Source Name IE`, otherwise the template won't match messages generated by lib […] Ack -- To view, visit https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/35604?usp=email To unsubscribe, or for help writing mail filters, visit https://gerrit.osmocom.org/settings Gerrit-Project: osmo-ttcn3-hacks Gerrit-Branch: master Gerrit-Change-Id: Ib7d6156402645867cadc8d3e0ffdd07247a1abd2 Gerrit-Change-Number: 35604 Gerrit-PatchSet: 2 Gerrit-Owner: pespin <pespin(a)sysmocom.de> Gerrit-Reviewer: Jenkins Builder Gerrit-Reviewer: fixeria <vyanitskiy(a)sysmocom.de> Gerrit-Reviewer: laforge <laforge(a)osmocom.org> Gerrit-Reviewer: lynxis lazus <lynxis(a)fe80.eu> Gerrit-Attention: laforge <laforge(a)osmocom.org> Gerrit-Attention: fixeria <vyanitskiy(a)sysmocom.de> Gerrit-Attention: lynxis lazus <lynxis(a)fe80.eu> Gerrit-Comment-Date: Thu, 18 Jan 2024 19:00:14 +0000 Gerrit-HasComments: Yes Gerrit-Has-Labels: No Comment-In-Reply-To: fixeria <vyanitskiy(a)sysmocom.de> Gerrit-MessageType: comment

1 0

[M] Change in libosmocore[master]: tests/gsm0408: add two more samples to bcap_tests[]
by fixeria 18 Jan '24

18 Jan '24

Attention is currently required from: fixeria. Hello Jenkins Builder, I'd like you to reexamine a change. Please visit https://gerrit.osmocom.org/c/libosmocore/+/35615?usp=email to look at the new patch set (#2). The following approvals got outdated and were removed: Verified-1 by Jenkins Builder Change subject: tests/gsm0408: add two more samples to bcap_tests[] ...................................................................... tests/gsm0408: add two more samples to bcap_tests[] The mismatch for bcap_csd_2400_v22bis is expected, because octet 4 is not represented in 'struct gsm_mncc_bearer_cap' and the encoder unconditionally hard-codes it to 0x88. Change-Id: I4fc519c02b4fad8b0f40fa649d9de14b1183d10d Related: OS#4396, OS#4394 --- M tests/gsm0408/gsm0408_test.c M tests/gsm0408/gsm0408_test.err M tests/gsm0408/gsm0408_test.ok 3 files changed, 65 insertions(+), 0 deletions(-) git pull ssh://gerrit.osmocom.org:29418/libosmocore refs/changes/15/35615/2 -- To view, visit https://gerrit.osmocom.org/c/libosmocore/+/35615?usp=email To unsubscribe, or for help writing mail filters, visit https://gerrit.osmocom.org/settings Gerrit-Project: libosmocore Gerrit-Branch: master Gerrit-Change-Id: I4fc519c02b4fad8b0f40fa649d9de14b1183d10d Gerrit-Change-Number: 35615 Gerrit-PatchSet: 2 Gerrit-Owner: fixeria <vyanitskiy(a)sysmocom.de> Gerrit-Reviewer: Jenkins Builder Gerrit-Attention: fixeria <vyanitskiy(a)sysmocom.de> Gerrit-MessageType: newpatchset

1 0

[M] Change in libosmocore[master]: tests/gsm0408: cosmetic: adjust coding style (make linter happy)
by fixeria 18 Jan '24

18 Jan '24

fixeria has uploaded this change for review. ( https://gerrit.osmocom.org/c/libosmocore/+/35616?usp=email ) Change subject: tests/gsm0408: cosmetic: adjust coding style (make linter happy) ...................................................................... tests/gsm0408: cosmetic: adjust coding style (make linter happy) Change-Id: I203033e2b3c27cb8b258faf1ff3c5ec4c0083458 --- M tests/gsm0408/gsm0408_test.c 1 file changed, 32 insertions(+), 23 deletions(-) git pull ssh://gerrit.osmocom.org:29418/libosmocore refs/changes/16/35616/1 diff --git a/tests/gsm0408/gsm0408_test.c b/tests/gsm0408/gsm0408_test.c index e82178d..9f92e29 100644 --- a/tests/gsm0408/gsm0408_test.c +++ b/tests/gsm0408/gsm0408_test.c @@ -34,32 +34,32 @@ static const uint8_t csd_9600_v110_lv[] = { 0x07, 0xa1, 0x88, 0x89, 0x21, 0x15, 0x63, 0x80 }; static const struct gsm_mncc_bearer_cap bcap_csd_9600_v110 = { - .transfer = GSM48_BCAP_ITCAP_UNR_DIG_INF, - .mode = GSM48_BCAP_TMOD_CIRCUIT, - .coding = GSM48_BCAP_CODING_GSM_STD, - .radio = GSM48_BCAP_RRQ_FR_ONLY, - .speech_ver[0]= -1, + .transfer = GSM48_BCAP_ITCAP_UNR_DIG_INF, + .mode = GSM48_BCAP_TMOD_CIRCUIT, + .coding = GSM48_BCAP_CODING_GSM_STD, + .radio = GSM48_BCAP_RRQ_FR_ONLY, + .speech_ver[0] = -1, .data = { - .rate_adaption = GSM48_BCAP_RA_V110_X30, - .sig_access = GSM48_BCAP_SA_I440_I450, - .async = 1, - .nr_stop_bits = 1, - .nr_data_bits = 8, - .user_rate = GSM48_BCAP_UR_9600, - .parity = GSM48_BCAP_PAR_NONE, - .interm_rate = GSM48_BCAP_IR_16k, - .transp = GSM48_BCAP_TR_TRANSP, - .modem_type = GSM48_BCAP_MT_NONE, + .rate_adaption = GSM48_BCAP_RA_V110_X30, + .sig_access = GSM48_BCAP_SA_I440_I450, + .async = 1, + .nr_stop_bits = 1, + .nr_data_bits = 8, + .user_rate = GSM48_BCAP_UR_9600, + .parity = GSM48_BCAP_PAR_NONE, + .interm_rate = GSM48_BCAP_IR_16k, + .transp = GSM48_BCAP_TR_TRANSP, + .modem_type = GSM48_BCAP_MT_NONE, }, }; static const uint8_t speech_all_lv[] = { 0x06, 0x60, 0x04, 0x02, 0x00, 0x05, 0x81 }; static const struct gsm_mncc_bearer_cap bcap_speech_all = { - .transfer = GSM48_BCAP_ITCAP_SPEECH, - .mode = GSM48_BCAP_TMOD_CIRCUIT, - .coding = GSM48_BCAP_CODING_GSM_STD, - .radio = GSM48_BCAP_RRQ_DUAL_FR, + .transfer = GSM48_BCAP_ITCAP_SPEECH, + .mode = GSM48_BCAP_TMOD_CIRCUIT, + .coding = GSM48_BCAP_CODING_GSM_STD, + .radio = GSM48_BCAP_RRQ_DUAL_FR, .speech_ver = { 4, 2, 0, 5, 1, -1, }, @@ -68,10 +68,10 @@ static const uint8_t speech_no3a_lv[] = { 0x01, 0xa0 }; static const struct gsm_mncc_bearer_cap bcap_speech_no3a = { - .transfer = GSM48_BCAP_ITCAP_SPEECH, - .mode = GSM48_BCAP_TMOD_CIRCUIT, - .coding = GSM48_BCAP_CODING_GSM_STD, - .radio = GSM48_BCAP_RRQ_FR_ONLY, + .transfer = GSM48_BCAP_ITCAP_SPEECH, + .mode = GSM48_BCAP_TMOD_CIRCUIT, + .coding = GSM48_BCAP_CODING_GSM_STD, + .radio = GSM48_BCAP_RRQ_FR_ONLY, .speech_ver = { 0, -1, }, -- To view, visit https://gerrit.osmocom.org/c/libosmocore/+/35616?usp=email To unsubscribe, or for help writing mail filters, visit https://gerrit.osmocom.org/settings Gerrit-Project: libosmocore Gerrit-Branch: master Gerrit-Change-Id: I203033e2b3c27cb8b258faf1ff3c5ec4c0083458 Gerrit-Change-Number: 35616 Gerrit-PatchSet: 1 Gerrit-Owner: fixeria <vyanitskiy(a)sysmocom.de> Gerrit-MessageType: newchange

1 0

[S] Change in osmo-ttcn3-hacks[master]: GSUP_Types: add message type for osmo-epdg CEAI interface
by pespin 18 Jan '24

18 Jan '24

pespin has submitted this change. ( https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/35603?usp=email ) Change subject: GSUP_Types: add message type for osmo-epdg CEAI interface ...................................................................... GSUP_Types: add message type for osmo-epdg CEAI interface The CEIA interface is an interface between osmo-epdg and strongswan. It is used by the osmo-epdg to synchronize state. Related: OS#6091 Related: libosmocore.git Change-Id I6f7c20340c99f94b1326a8a7dc99c86cf6a0dbc3 Change-Id: I3da4f731597eee3736a9aab513f5257a78e8d8eb --- M library/GSUP_Types.ttcn 1 file changed, 17 insertions(+), 1 deletion(-) Approvals: lynxis lazus: Looks good to me, approved Jenkins Builder: Verified fixeria: Looks good to me, but someone else must approve diff --git a/library/GSUP_Types.ttcn b/library/GSUP_Types.ttcn index b3154ac..7d6af7a 100644 --- a/library/GSUP_Types.ttcn +++ b/library/GSUP_Types.ttcn @@ -172,7 +172,8 @@ OSMO_GSUP_MESSAGE_CLASS_SUBSCRIBER_MANAGEMENT (1), OSMO_GSUP_MESSAGE_CLASS_SMS (2), OSMO_GSUP_MESSAGE_CLASS_USSD (3), - OSMO_GSUP_MESSAGE_CLASS_INTER_MSC (4) + OSMO_GSUP_MESSAGE_CLASS_INTER_MSC (4), + OSMO_GSUP_MESSAGE_CLASS_IPSEC_EPDG (5) } with { variant "FIELDLENGTH(8)" }; type record GSUP_MSISDN { -- To view, visit https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/35603?usp=email To unsubscribe, or for help writing mail filters, visit https://gerrit.osmocom.org/settings Gerrit-Project: osmo-ttcn3-hacks Gerrit-Branch: master Gerrit-Change-Id: I3da4f731597eee3736a9aab513f5257a78e8d8eb Gerrit-Change-Number: 35603 Gerrit-PatchSet: 2 Gerrit-Owner: pespin <pespin(a)sysmocom.de> Gerrit-Reviewer: Jenkins Builder Gerrit-Reviewer: fixeria <vyanitskiy(a)sysmocom.de> Gerrit-Reviewer: lynxis lazus <lynxis(a)fe80.eu> Gerrit-Reviewer: pespin <pespin(a)sysmocom.de> Gerrit-CC: laforge <laforge(a)osmocom.org> Gerrit-MessageType: merged

1 0

2026

2025

2024

2023

2022

gerrit-log