Change in ...osmo-ttcn3-hacks[master]: library: Add initial set of LTE/EPC NAS templates

laforge gerrit-no-reply at lists.osmocom.org
Wed Aug 14 11:07:32 UTC 2019


laforge has uploaded this change for review. ( https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/15197


Change subject: library: Add initial set of LTE/EPC NAS templates
......................................................................

library: Add initial set of LTE/EPC NAS templates

Change-Id: I53a598011041d642f03dcd9cca128f4e9da4adfd
---
M deps/Makefile
A library/NAS_Templates.ttcn
M mme/gen_links.sh
3 files changed, 1,017 insertions(+), 0 deletions(-)



  git pull ssh://gerrit.osmocom.org:29418/osmo-ttcn3-hacks refs/changes/97/15197/1

diff --git a/deps/Makefile b/deps/Makefile
index cdca8f1..61afb37 100644
--- a/deps/Makefile
+++ b/deps/Makefile
@@ -51,6 +51,7 @@
 			titan.ProtocolModules.GTPv2_v13.7.0 \
 			titan.ProtocolModules.ISUP_Q.762 \
 			titan.ProtocolModules.MobileL3_v13.4.0 \
+			titan.ProtocolModules.NAS_EPS_15.2.0.1 \
 			titan.ProtocolModules.NS_v7.3.0 \
 			titan.ProtocolModules.SNDCP_v7.0.0 \
 			titan.ProtocolEmulations.SCCP
diff --git a/library/NAS_Templates.ttcn b/library/NAS_Templates.ttcn
new file mode 100644
index 0000000..f819862
--- /dev/null
+++ b/library/NAS_Templates.ttcn
@@ -0,0 +1,1011 @@
+/* EPC (Evolved Packet Core) NAS (Non-Access Stratum) templates in TTCN-3
+ * (C) 2019 Harald Welte <laforge at gnumonks.org>
+ * 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
+ */
+
+module NAS_Templates {
+
+import from General_Types all;
+import from NAS_EPS_Types all;
+
+template (value) PDU_NAS_EPS
+ts_NAS_SM(template (value) EPS_SessionManagement sm) := {
+	protocolDiscriminator := '0010'B,
+	ePS_messages := {
+		ePS_SessionManagement := sm
+	}
+}
+template (present) PDU_NAS_EPS
+tr_NAS_SM(template (present) EPS_SessionManagement sm) := {
+	protocolDiscriminator := '0010'B,
+	ePS_messages := {
+		ePS_SessionManagement := sm
+	}
+}
+
+template (value) PDU_NAS_EPS
+ts_NAS_MM(template (value) EPS_MobilityManagement mm) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := mm
+	}
+}
+template (present) PDU_NAS_EPS
+tr_NAS_MM(template (present) EPS_MobilityManagement mm) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := mm
+	}
+}
+
+const BIT4 c_EPS_SEC_NONE := '0000'B;
+const BIT4 c_EPS_NAS_PD_EMM := '0111'B;
+const BIT4 c_EPS_NAS_PD_ESM := '0010'B;
+
+private template (value) ESM_MessageContainerLVE
+ts_NAS_EsmMsgContLVE(template (value) octetstring inp) := {
+	lengthIndicator := 0,
+	content := inp
+}
+private template (present) ESM_MessageContainerLVE
+tr_NAS_EsmMsgContLVE(template (present) octetstring inp) := {
+	lengthIndicator := ?,
+	content := inp
+}
+
+private template (value) MobileIdentityLV
+ts_NAS_MobileIdLV(template (value) MobileIdentityV mid) := {
+	lengthIndicator := 0,
+	mobileIdentityV := mid
+}
+private template (present) MobileIdentityLV
+tr_NAS_MobileIdLV(template (present) MobileIdentityV mid) := {
+	lengthIndicator := ?,
+	mobileIdentityV := mid
+}
+
+private function f_enc_IMSI_NAS(hexstring digits) return IMSI {
+	var IMSI l3;
+	var integer len := lengthof(digits);
+	if (len rem 2 == 1) {	/* modulo remainder */
+		l3.oddevenIndicator := '1'B;
+		l3.fillerDigit := omit;
+	} else {
+		l3.oddevenIndicator := '0'B;
+		l3.fillerDigit := '1111'B;
+	}
+	l3.digits := digits;
+	return l3;
+}
+
+private function f_enc_IMEI_NAS(hexstring digits) return IMEI {
+	var IMEI l3;
+	var integer len := lengthof(digits);
+	if (len rem 2 == 1) {	/* modulo remainder */
+		l3.oddevenIndicator := '1'B;
+	} else {
+		l3.oddevenIndicator := '0'B;
+	}
+	l3.digits := digits;
+	return l3;
+}
+
+private function f_enc_IMEI_SV(hexstring digits) return IMEI_SV {
+	var IMEI_SV l3;
+	var integer len := lengthof(digits);
+	if (len rem 2 == 1) {	/* modulo remainder */
+		l3.oddevenIndicator := '1'B;
+	} else {
+		l3.oddevenIndicator := '0'B;
+	}
+	l3.digits := digits;
+	l3.fillerDigit := '1111'B;
+	return l3;
+}
+
+template (value) GUTI ts_NAS_GUTI(hexstring mcc_mnc, OCT2 mmegi, OCT1 mmec, OCT4 tmsi) := {
+	oddevenIndicator := '0'B,
+	spare := '1111'B,
+	/* mcc_mnc specified in format 262f42 */
+	mccDigit1 := mcc_mnc[0],
+	mccDigit2 := mcc_mnc[1],
+	mccDigit3 := mcc_mnc[2],
+	mncDigit3 := mcc_mnc[5],
+	mncDigit1 := mcc_mnc[3],
+	mncDigit2 := mcc_mnc[4],
+	mMEGI := mmegi,
+	mMEC := mmec,
+	mTMSI := tmsi
+}
+
+template (value) EPS_MobileIdentityV
+ts_NAS_MobileId_IMSI(hexstring imsi) := {
+	typeOfIdentity := '001'B,
+	oddEvenInd_identity := {
+		imsi := f_enc_IMSI_NAS(imsi)
+	}
+}
+
+template (value) EPS_MobileIdentityV
+ts_NAS_MobileId_IMEI(hexstring imei) := {
+	typeOfIdentity := '011'B,
+	oddEvenInd_identity := {
+		imei := f_enc_IMEI_NAS(imei)
+	}
+}
+
+template (value) EPS_MobileIdentityV
+ts_NAS_MobileId_GUTI(hexstring mcc_mnc, OCT2 mmegi, OCT1 mmec, OCT4 tmsi) := {
+	typeOfIdentity := '110'B,
+	oddEvenInd_identity := {
+		guti := ts_NAS_GUTI(mcc_mnc, mmegi, mmec, tmsi)
+	}
+}
+
+template (value) PDU_NAS_EPS
+ts_NAS_EMM_SecurityProtected(BIT4 sec_hdr_t, integer seq_nr, octetstring inner_nas) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_SecurityProtectedNASMessage := {
+				securityHeaderType := sec_hdr_t,
+				messageAuthenticationCode := '00000000'O,
+				sequenceNumber := seq_nr,
+				nAS_Message := inner_nas
+			}
+		}
+	}
+}
+template (present) PDU_NAS_EPS
+tr_NAS_EMM_SecurityProtected := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_SecurityProtectedNASMessage := ?
+		}
+	}
+}
+
+const BIT3 NAS_PDN_T_IPv4 := '001'B;
+const BIT3 NAS_PDN_T_IPv6 := '010'B;
+const BIT3 NAS_PDN_T_IPv4v6 := '011'B;
+const BIT3 NAS_PDN_T_NonIP := '101'B;
+
+
+/*********************************************************************************
+ * Mobility Management
+ *********************************************************************************/
+
+/* 8.2.1 Attach Accept */
+template (value) PDU_NAS_EPS
+ts_NAS_AttachAccept(template (value) EPS_AttachResultV result,
+		    template (value) GPRSTimerV t3412,
+		    template (value) TAI_Lists tai_lists,
+		    template (value) octetstring esm_enc) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_AttachAccept := {
+				securityHeaderType := c_EPS_SEC_NONE,
+				messageType := '01000010'B,
+				ePS_AttachResult := result,
+				spare := '0000'B,
+				t3412 := t3412,
+				tAI_List := {
+					lengthIndicator := 0,
+					trackingAreaIdentityLists := tai_lists
+				},
+				eSM_MessageContainer := ts_NAS_EsmMsgContLVE(esm_enc),
+				gUTI := omit,
+				locationAreaIdentification := omit,
+				msIdentity := omit,
+				eMMCause := omit,
+				t3402 := omit,
+				t3423 := omit,
+				equivalentPLMNs := omit,
+				emergencyNumberList := omit,
+				ePS_NetworkFeatureSupport := omit,
+				additionalUpdateResult := omit,
+				t3412_Extended := omit,
+				t3324 := omit,
+				extendedDRXParameters := omit,
+				dNCID := omit,
+				sMS_ServiceStatus := omit,
+				non3GPP_NW_ProvidedPolicies := omit,
+				t3448 := omit,
+				networkPolicy := omit,
+				t3447 := omit,
+				extendedEmergencyNumberList := omit
+			}
+		}
+	}
+}
+template (present) PDU_NAS_EPS
+tr_NAS_AttachAccept(template (present) EPS_AttachResultV result := ?,
+		    template (present) GPRSTimerV t3412 := ?,
+		    template (present) TAI_Lists tai_lists := ?,
+		    template (present) octetstring esm_enc := ?) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_AttachAccept := {
+				securityHeaderType := c_EPS_SEC_NONE,
+				messageType := '01000010'B,
+				ePS_AttachResult := result,
+				spare := ?,
+				t3412 := t3412,
+				tAI_List := {
+					lengthIndicator := ?,
+					trackingAreaIdentityLists := tai_lists
+				},
+				eSM_MessageContainer := tr_NAS_EsmMsgContLVE(esm_enc),
+				gUTI := *,
+				locationAreaIdentification := *,
+				msIdentity := *,
+				eMMCause := *,
+				t3402 := *,
+				t3423 := *,
+				equivalentPLMNs := *,
+				emergencyNumberList := *,
+				ePS_NetworkFeatureSupport := *,
+				additionalUpdateResult := *,
+				t3412_Extended := *,
+				t3324 := *,
+				extendedDRXParameters := *,
+				dNCID := *,
+				sMS_ServiceStatus := *,
+				non3GPP_NW_ProvidedPolicies := *,
+				t3448 := *,
+				networkPolicy := *,
+				t3447 := *,
+				extendedEmergencyNumberList := *
+			}
+		}
+	}
+}
+
+
+/* 8.2.2 Attach Complete */
+template (value) PDU_NAS_EPS
+ts_NAS_AttachComplete(template (value) octetstring esm_enc) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_AttachComplete := {
+				securityHeaderType := c_EPS_SEC_NONE,
+				messageType := '01000011'B,
+				eSM_MessageContainer := ts_NAS_EsmMsgContLVE(esm_enc)
+			}
+		}
+	}
+}
+template (present) PDU_NAS_EPS
+tr_NAS_AttachComplete(template (present) octetstring esm_enc := ?) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_AttachComplete := {
+				securityHeaderType := c_EPS_SEC_NONE,
+				messageType := '01000011'B,
+				eSM_MessageContainer := tr_NAS_EsmMsgContLVE(esm_enc)
+			}
+		}
+	}
+}
+
+
+/* 8.2.3 Attach Reject */
+template (value) PDU_NAS_EPS
+ts_NAS_AttachReject(template (value) EMM_CauseV cause) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_AttachReject := {
+				securityHeaderType := c_EPS_SEC_NONE,
+				messageType := '01000100'B,
+				emmCause := cause,
+				eSM_MessageContainer := omit,
+				t3346 := omit,
+				t3402 := omit,
+				extendedEmmCause := omit
+			}
+		}
+	}
+}
+template (present) PDU_NAS_EPS
+tr_NAS_AttachReject(template (present) EMM_CauseV cause := ?) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_AttachReject := {
+				securityHeaderType := c_EPS_SEC_NONE,
+				messageType := '01000100'B,
+				emmCause := cause,
+				eSM_MessageContainer := omit,
+				t3346 := omit,
+				t3402 := omit,
+				extendedEmmCause := omit
+			}
+		}
+	}
+}
+
+/* 8.2.4 Attach Request */
+template (value) PDU_NAS_EPS
+ts_NAS_AttachRequest(template (value) BIT3 att_type,
+		     template (value) BIT3 kset_id,
+		     template (value) EPS_MobileIdentityV mobile_id,
+		     template (value) UENetworkCapabilityV ue_net_cap,
+		     template (value) octetstring esm_enc) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_AttachRequest := {
+				securityHeaderType := c_EPS_SEC_NONE,
+				messageType := '01000001'B,
+				ePS_attachType := {
+					typeOfAttach := att_type,
+					spare := '0'B
+				},
+				nasKeySetId := {
+					identifier := kset_id,
+					tSC := '1'B
+				},
+				ePSMobileId := {
+					lengthIndicator := 0,
+					ePS_MobileIdentity := mobile_id
+				},
+				uENetworkCapability := {
+					lengthIndicator := 0,
+					uENetworkCapabilityV := ue_net_cap
+				},
+				eSM_MessageContainer := ts_NAS_EsmMsgContLVE(esm_enc),
+				old_P_TMSISignature := omit,
+				additionalGUTI := omit,
+				lastVisitedRegisteredTAI := omit,
+				dRXParameter := omit,
+				mSNetworkCapability := omit,
+				oldLocationAreaIdentification := omit,
+				tMSIStatusTV := omit,
+				mobileStationClassmark2 := omit,
+				mobileStationClassmark3 := omit,
+				supportedCodecList := omit,
+				additionalUpdateType := omit,
+				voiceDomainPrefandUEsettings := omit,
+				deviceProperties := omit,
+				oldGUTI_Type := omit,
+				mS_NetworkFeatureSupport := omit,
+				tMSIBasedNRIContainer := omit,
+				t3324 := omit,
+				t3412_Extended := omit,
+				extendedDRXParameters := omit,
+				uEAdditionalSecurityCapability := omit
+			}
+		}
+	}
+}
+template (present) PDU_NAS_EPS
+tr_NAS_AttachRequest(template (present) BIT3 att_type := ?,
+		    template (present) BIT3 kset_id := ?,
+		    template (present) EPS_MobileIdentityV mobile_id := ?,
+		    template (present) UENetworkCapabilityV ue_net_cap := ?,
+		    template (present) octetstring esm_enc := ?) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_AttachRequest := {
+				securityHeaderType := ?,
+				messageType := '01000001'B,
+				ePS_attachType := {
+					typeOfAttach := att_type,
+					spare := ?
+				},
+				nasKeySetId := {
+					identifier := kset_id,
+					tSC := ?
+				},
+				ePSMobileId := {
+					lengthIndicator := ?,
+					ePS_MobileIdentity := mobile_id
+				},
+				uENetworkCapability := {
+					lengthIndicator := ?,
+					uENetworkCapabilityV := ue_net_cap
+				},
+				eSM_MessageContainer := tr_NAS_EsmMsgContLVE(esm_enc),
+				old_P_TMSISignature := *,
+				additionalGUTI := *,
+				lastVisitedRegisteredTAI := *,
+				dRXParameter := *,
+				mSNetworkCapability := *,
+				oldLocationAreaIdentification := *,
+				tMSIStatusTV := *,
+				mobileStationClassmark2 := *,
+				mobileStationClassmark3 := *,
+				supportedCodecList := *,
+				additionalUpdateType := *,
+				voiceDomainPrefandUEsettings := *,
+				deviceProperties := *,
+				oldGUTI_Type := *,
+				mS_NetworkFeatureSupport := *,
+				tMSIBasedNRIContainer := *,
+				t3324 := *,
+				t3412_Extended := *,
+				extendedDRXParameters := *,
+				uEAdditionalSecurityCapability := *
+			}
+		}
+	}
+}
+
+
+/* 8.2.5 Authentication Failure */
+template (value) PDU_NAS_EPS
+ts_NAS_AuthFail(template (value) EMM_CauseV cause /* template (omit) OCT14 auth_fail_par */) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_AuthenticationFailure := {
+				securityHeaderType := c_EPS_SEC_NONE,
+				messageType := '01011100'B,
+				emmCause := cause,
+				authenticationFailureParameter := omit
+			}
+		}
+	}
+}
+template (value) PDU_NAS_EPS
+ts_NAS_AuthFail_par(template (value) EMM_CauseV cause,
+		    template (value) OCT14 auth_fail_par) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_AuthenticationFailure := {
+				securityHeaderType := c_EPS_SEC_NONE,
+				messageType := '01011100'B,
+				emmCause := cause,
+				authenticationFailureParameter := {
+					elementIdentifier := '30'O,
+					lengthIndicator := lengthof(auth_fail_par),
+					authenticationFailureParameter := auth_fail_par
+				}
+			}
+		}
+	}
+}
+
+/* 8.2.6 Authentication Reject */
+template (value) PDU_NAS_EPS
+ts_NAS_AuthRej := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_AuthenticationReject := {
+				securityHeaderType := c_EPS_SEC_NONE,
+				messageType := '01010100'B
+			}
+		}
+	}
+}
+template (present) PDU_NAS_EPS
+tr_NAS_AuthRej := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_AuthenticationReject := {
+				securityHeaderType := ?,
+				messageType := '01010100'B
+			}
+		}
+	}
+}
+
+/* 8.2.7 Authentication Request */
+template (value) PDU_NAS_EPS
+ts_NAS_AuthReq(template (value) NAS_KeySetIdentifierV kset_id,
+	       OCT16 rand, OCT16 autn) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_AuthenticationRequest := {
+				securityHeaderType := c_EPS_SEC_NONE,
+				messageType := '01010010'B,
+				nasKeySetId := kset_id,
+				spare := '0000'B,
+				authenticationParameterRAND := {
+					rAND := rand
+				},
+				authenticationParameterAUTN := {
+					lengthIndicator := lengthof(autn),
+					aUTN := autn
+				}
+			}
+		}
+	}
+}
+template (present) PDU_NAS_EPS
+tr_NAS_AuthReq(template (present) NAS_KeySetIdentifierV kset_id := ?,
+	       template (present) OCT16 rand := ?,
+	       template (present) OCT16 autn := ?) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_AuthenticationRequest := {
+				securityHeaderType := ?,
+				messageType := '01010010'B,
+				nasKeySetId := kset_id,
+				spare := '0000'B,
+				authenticationParameterRAND := {
+					rAND := rand
+				},
+				authenticationParameterAUTN := {
+					lengthIndicator := ?,
+					aUTN := autn
+				}
+			}
+		}
+	}
+}
+
+/* 8.2.8 Authentication Response */
+template (value) PDU_NAS_EPS
+ts_NAS_AuthResp(octetstring res) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_AuthenticationResponse := {
+				securityHeaderType := c_EPS_SEC_NONE,
+				messageType := '01010011'B,
+				authenticationResponseParameter := {
+					lengthIndicator := lengthof(res),
+					authenticationResponseParameter := {
+						rES := res
+					}
+				}
+			}
+		}
+	}
+}
+template (present) PDU_NAS_EPS
+tr_NAS_AuthResp(template OCT16 res := ?) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_AuthenticationResponse := {
+				securityHeaderType := ?,
+				messageType := '01010011'B,
+				authenticationResponseParameter := {
+					lengthIndicator := ?,
+					authenticationResponseParameter := {
+						rES := res
+					}
+				}
+			}
+		}
+	}
+}
+
+/* 8.2.18 Identity Request */
+template (value) PDU_NAS_EPS
+ts_NAS_IdentityReq(template (value) IdentityType2V id_type) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_IdentityRequest := {
+				securityHeaderType := c_EPS_SEC_NONE,
+				messageType := '01010101'B,
+				identityType := id_type,
+				spareHalfOctet := '0000'B
+			}
+		}
+	}
+}
+template (present) PDU_NAS_EPS
+tr_NAS_IdentityReq(template (present) IdentityType2V id_type := ?) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_IdentityRequest := {
+				securityHeaderType := c_EPS_SEC_NONE,
+				messageType := '01010101'B,
+				identityType := id_type,
+				spareHalfOctet := ?
+			}
+		}
+	}
+}
+
+/* 8.2.19 Identity Response */
+template (value) PDU_NAS_EPS
+ts_NAS_IdentityResp(template (value) MobileIdentityV mobile_id) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_IdentityResponse := {
+				securityHeaderType := c_EPS_SEC_NONE,
+				messageType := '01010110'B,
+				mobileIdentity := ts_NAS_MobileIdLV(mobile_id)
+			}
+		}
+	}
+}
+template (present) PDU_NAS_EPS
+tr_NAS_IdentityResp(template (present) MobileIdentityV mobile_id := ?) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_IdentityResponse := {
+				securityHeaderType := c_EPS_SEC_NONE,
+				messageType := '01010110'B,
+				mobileIdentity := tr_NAS_MobileIdLV(mobile_id)
+			}
+		}
+	}
+}
+
+
+
+
+/* 8.2.20 Security Mode Command */
+template (value) PDU_NAS_EPS
+ts_NAS_SecModeCmd(template (value) NAS_SecurityAlgorithmsV alg,
+		  template (value) NAS_KeySetIdentifierV kset_id,
+		  template (value) UESecurityCapabilityLV ue_sec_cap) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_SecurityModeCommand := {
+				securityHeaderType := c_EPS_SEC_NONE,
+				messageType := '01011101'B,
+				selected_NAS_SecurityAlgorithms := alg,
+				nasKeySetId := kset_id,
+				spareHalfOctet := '0000'B,
+				replayed_UE_SecurityCapability := ue_sec_cap,
+				iMEISV_Request := omit,
+				replayedNonceUE := omit,
+				nonceMME := omit,
+				hashMME := omit,
+				uEAdditionalSecurityCapability := omit
+			}
+		}
+	}
+}
+template (present) PDU_NAS_EPS
+tr_NAS_SecModeCmd(template (present) NAS_SecurityAlgorithmsV alg := ?,
+		  template (present) NAS_KeySetIdentifierV kset_id := ?,
+		  template (present) UESecurityCapabilityLV ue_sec_cap := ?) := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_SecurityModeCommand := {
+				securityHeaderType := c_EPS_SEC_NONE,
+				messageType := '01011101'B,
+				selected_NAS_SecurityAlgorithms := alg,
+				nasKeySetId := kset_id,
+				spareHalfOctet := ?,
+				replayed_UE_SecurityCapability := ue_sec_cap,
+				iMEISV_Request := *,
+				replayedNonceUE := *,
+				nonceMME := *,
+				hashMME := *,
+				uEAdditionalSecurityCapability := *
+			}
+		}
+	}
+}
+
+/* 8.2.21 Security Mode Complete */
+template (value) PDU_NAS_EPS
+ts_NAS_SecModeCmpl := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_SecurityModeComplete := {
+				securityHeaderType := c_EPS_SEC_NONE,
+				messageType := '01011110'B,
+				iMEISV := omit,
+				replayedNASMessageContainer := omit
+			}
+		}
+	}
+}
+template (present) PDU_NAS_EPS
+tr_NAS_SecModeCmpl := {
+	protocolDiscriminator := c_EPS_NAS_PD_EMM,
+	ePS_messages := {
+		ePS_MobilityManagement := {
+			pDU_NAS_EPS_SecurityModeComplete := {
+				securityHeaderType := c_EPS_SEC_NONE,
+				messageType := '01011110'B,
+				iMEISV := *,
+				replayedNASMessageContainer := *
+			}
+		}
+	}
+}
+
+/*********************************************************************************
+ * Session Management
+ *********************************************************************************/
+
+/* 9.9.4.11 - 10.5.6.3/24.008 */
+private function ts_NAS_PCO_TLV(template (omit) ProtocolConfigOptionsV pco)
+return template (omit) ProtocolConfigOptionsTLV {
+	var template (value) ProtocolConfigOptionsTLV ret;
+	if (istemplatekind(pco, "omit")) {
+		return omit;
+	}
+	ret := {
+		elementIdentifier := '27'O,
+		protocolConfigOptions := {
+			lengthIndicator := 0,
+			protocolConfigOptionsV := pco
+		}
+	}
+	return ret;
+}
+private function tr_NAS_PCO_TLV(template ProtocolConfigOptionsV pco := ?)
+return template ProtocolConfigOptionsTLV {
+	var template ProtocolConfigOptionsTLV ret := {
+		elementIdentifier := '27'O,
+		protocolConfigOptions := {
+			lengthIndicator := ?,
+			protocolConfigOptionsV := pco
+		}
+	}
+	if (istemplatekind(pco, "omit")) {
+		return omit;
+	} else if (istemplatekind(pco, "*")) {
+		return *;
+	} else {
+		return ret;
+	}
+}
+
+
+
+/* 8.3.20 PDN Connectivity Request */
+template (value) PDU_NAS_EPS
+ts_NAS_PdnConnReq(template (value) BIT4 bearer_id,
+		  template (value) BIT8 proc_tid,
+		  template (value) BIT3 pdn_type,
+		  template (value) BIT3 req_type) := {
+	protocolDiscriminator := c_EPS_NAS_PD_ESM,
+	ePS_messages := {
+		ePS_SessionManagement := {
+			pDU_NAS_EPS_PDN_ConnectivityRequest := {
+				ePSBearerIdentity := bearer_id,
+				procedureTransactionIdentifier := proc_tid,
+				messageType := '11010000'B,
+				requestType := {
+					requestTypeValue := req_type,
+					spare := '0'B
+				},
+				pDN_Type := {
+					pDN_TypeValue := pdn_type,
+					spare := '0'B
+				},
+				eSM_InformationTransferFlag := omit,
+				accessPointName := omit,
+				protocolConfigOptions := omit,
+				deviceProperties := omit,
+				nBIFOMContainer := omit,
+				headerCompressinConfiguration := omit,
+				extendedProtocolConfigurationOptions := omit
+			}
+		}
+	}
+}
+template (present) PDU_NAS_EPS
+tr_NAS_PdnConnReq(template (present) BIT4 bearer_id := ?,
+		  template (present) BIT8 proc_tid := ?,
+		  template (present) BIT3 pdn_type := ?,
+		  template (present) BIT3 req_type := ?) := {
+	protocolDiscriminator := c_EPS_NAS_PD_ESM,
+	ePS_messages := {
+		ePS_SessionManagement := {
+			pDU_NAS_EPS_PDN_ConnectivityRequest := {
+				ePSBearerIdentity := bearer_id,
+				procedureTransactionIdentifier := proc_tid,
+				messageType := '11010000'B,
+				requestType := {
+					requestTypeValue := req_type,
+					spare := '0'B
+				},
+				pDN_Type := {
+					pDN_TypeValue := pdn_type,
+					spare := '0'B
+				},
+				eSM_InformationTransferFlag := omit,
+				accessPointName := omit,
+				protocolConfigOptions := omit,
+				deviceProperties := omit,
+				nBIFOMContainer := omit,
+				headerCompressinConfiguration := omit,
+				extendedProtocolConfigurationOptions := omit
+			}
+		}
+	}
+}
+
+/* 8.3.19 PDN Connectivity Reject */
+template (value) PDU_NAS_EPS
+ts_NAS_PdnConnRej(template (value) BIT4 bearer_id,
+		  template (value) BIT8 proc_tid,
+		  template (value) ESM_CauseV cause) := {
+	protocolDiscriminator := c_EPS_NAS_PD_ESM,
+	ePS_messages := {
+		ePS_SessionManagement := {
+			pDU_NAS_EPS_PDN_ConnectivityReject := {
+				ePSBearerIdentity := bearer_id,
+				procedureTransactionIdentifier := proc_tid,
+				messageType := '11010001'B,
+				esmCause := cause,
+				protocolConfigOptions := omit,
+				backOffTimer := omit,
+				reAttemptIndicator := omit,
+				nBIFOMContainer := omit,
+				extendedProtocolConfigurationOptions := omit
+			}
+		}
+	}
+}
+template (present) PDU_NAS_EPS
+tr_NAS_PdnConnRej(template (present) BIT4 bearer_id := ?,
+		  template (present) BIT8 proc_tid := ?,
+		  template (present) ESM_CauseV cause := ?) := {
+	protocolDiscriminator := c_EPS_NAS_PD_ESM,
+	ePS_messages := {
+		ePS_SessionManagement := {
+			pDU_NAS_EPS_PDN_ConnectivityReject := {
+				ePSBearerIdentity := bearer_id,
+				procedureTransactionIdentifier := proc_tid,
+				messageType := '11010001'B,
+				esmCause := cause,
+				protocolConfigOptions := *,
+				backOffTimer := *,
+				reAttemptIndicator := *,
+				nBIFOMContainer := *,
+				extendedProtocolConfigurationOptions := *
+			}
+		}
+	}
+}
+
+
+/* 8.3.6 Activate Default EPS Bearer Context Request */
+template (value) PDU_NAS_EPS
+ts_NAS_ActDefEpsBearCtxReq(template (value) BIT4 bearer_id,
+			   template (value) BIT8 proc_tid,
+			   template (value) EPS_QualityOfServiceV qos,
+			   template (value) octetstring apn,
+			   template (value) BIT3 addr_type,
+			   template (value) octetstring addr_info) := {
+	protocolDiscriminator := c_EPS_NAS_PD_ESM,
+	ePS_messages := {
+		ePS_SessionManagement := {
+			pDU_NAS_EPS_ActDefEPSBearerContextRequest := {
+				ePSBearerIdentity := bearer_id,
+				procedureTransactionIdentifier := proc_tid,
+				messageType := '11000001'B,
+				ePS_QoS := {
+					lengthIndicator := 0,
+					ePS_QualityOfServiceV := qos
+				},
+				accessPointName := {
+					lengthIndicator := 0,
+					accessPointNameValue := apn
+				},
+				pDN_Address := {
+					lengthIndicator := 0,
+					typeValue := addr_type,
+					spare := '00000'B,
+					addressInformation := addr_info
+				},
+				transactionIdentifier := omit,
+				negotiatedQoS := omit,
+				negotiated_LLC_SAPI := omit,
+				radioPriority := omit,
+				packetFlowID := omit,
+				aPN_AMBR := omit,
+				esmCause := omit,
+				protocolConfigOptions := omit,
+				connectivityType := omit,
+				wLANOffloadIndication := omit,
+				nBIFOMContainer := omit,
+				headerCompressinConfiguration := omit,
+				controlPlaneOnlyIndication := omit,
+				extendedProtocolConfigurationOptions := omit,
+				servingPLMNRateControl := omit,
+				extended_APN_AMBR := omit,
+				extendedQoS := omit
+			}
+		}
+	}
+}
+
+/* 8.3.4 Activate Default EPS Bearer Context Accept */
+template (value) PDU_NAS_EPS
+ts_NAS_ActDefEpsBearCtxAck(template (value) BIT4 bearer_id,
+			   template (value) BIT8 proc_tid,
+			   template (omit) ProtocolConfigOptionsV pco) := {
+	protocolDiscriminator := c_EPS_NAS_PD_ESM,
+	ePS_messages := {
+		ePS_SessionManagement := {
+			pDU_NAS_EPS_ActDefEPSBearerContextAccept := {
+				ePSBearerIdentity := bearer_id,
+				procedureTransactionIdentifier := proc_tid,
+				messageType := '11000010'B,
+				protocolConfigOptions := ts_NAS_PCO_TLV(pco),
+				extendedProtocolConfigurationOptions := omit
+			}
+		}
+	}
+}
+template (present) PDU_NAS_EPS
+tr_NAS_ActDefEpsBearCtxAck(template (present) BIT4 bearer_id := ?,
+			   template (present) BIT8 proc_tid := ?,
+			   template ProtocolConfigOptionsV pco := *) := {
+	protocolDiscriminator := c_EPS_NAS_PD_ESM,
+	ePS_messages := {
+		ePS_SessionManagement := {
+			pDU_NAS_EPS_ActDefEPSBearerContextAccept := {
+				ePSBearerIdentity := bearer_id,
+				procedureTransactionIdentifier := proc_tid,
+				messageType := '11000010'B,
+				protocolConfigOptions := tr_NAS_PCO_TLV(pco),
+				extendedProtocolConfigurationOptions := *
+			}
+		}
+	}
+}
+
+
+/* 8.3.5 Activate Default EPS Bearer Context Reject */
+template (value) PDU_NAS_EPS
+ts_NAS_ActDefEpsBearCtxRej(template (value) BIT4 bearer_id,
+			   template (value) BIT8 proc_tid,
+			   template (value) ESM_CauseV cause) := {
+	protocolDiscriminator := c_EPS_NAS_PD_ESM,
+	ePS_messages := {
+		ePS_SessionManagement := {
+			pDU_NAS_EPS_ActDefEPSBearerContextReject := {
+				ePSBearerIdentity := bearer_id,
+				procedureTransactionIdentifier := proc_tid,
+				messageType := '11000011'B,
+				esmCause := cause,
+				protocolConfigOptions := omit,
+				extendedProtocolConfigurationOptions := omit
+			}
+		}
+	}
+}
+template (present) PDU_NAS_EPS
+tr_NAS_ActDefEpsBearCtxRej(template (present) BIT4 bearer_id := ?,
+			   template (present) BIT8 proc_tid := ?,
+			   template (present) ESM_CauseV cause := ?) := {
+	protocolDiscriminator := c_EPS_NAS_PD_ESM,
+	ePS_messages := {
+		ePS_SessionManagement := {
+			pDU_NAS_EPS_ActDefEPSBearerContextReject := {
+				ePSBearerIdentity := bearer_id,
+				procedureTransactionIdentifier := proc_tid,
+				messageType := '11000011'B,
+				esmCause := cause,
+				protocolConfigOptions := *,
+				extendedProtocolConfigurationOptions := *
+			}
+		}
+	}
+}
+
+
+
+
+
+}
diff --git a/mme/gen_links.sh b/mme/gen_links.sh
index 1f2d85b..8c1da59 100755
--- a/mme/gen_links.sh
+++ b/mme/gen_links.sh
@@ -31,6 +31,10 @@
 FILES="SGsAP_Types.ttcn"
 gen_links $DIR $FILES
 
+DIR=$BASEDIR/titan.ProtocolModules.NAS_EPS_15.2.0.1/src
+FILES="NAS_EPS_Types.ttcn"
+gen_links $DIR $FILES
+
 DIR=../library/s1ap
 FILES="S1AP_CommonDataTypes.asn S1AP_Constants.asn S1AP_Containers.asn S1AP_IEs.asn S1AP_PDU_Contents.asn
 S1AP_PDU_Descriptions.asn "
@@ -42,6 +46,7 @@
 FILES+="SGsAP_Templates.ttcn SGsAP_CodecPort.ttcn SGsAP_CodecPort_CtrlFunct.ttcn SGsAP_CodecPort_CtrlFunctDef.cc SGsAP_Emulation.ttcn DNS_Helpers.ttcn "
 FILES+="L3_Templates.ttcn "
 FILES+="S1AP_CodecPort.ttcn "
+FILES+="NAS_Templates.ttcn "
 gen_links $DIR $FILES
 
 ignore_pp_results

-- 
To view, visit https://gerrit.osmocom.org/c/osmo-ttcn3-hacks/+/15197
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: I53a598011041d642f03dcd9cca128f4e9da4adfd
Gerrit-Change-Number: 15197
Gerrit-PatchSet: 1
Gerrit-Owner: laforge <laforge at gnumonks.org>
Gerrit-MessageType: newchange
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.osmocom.org/pipermail/gerrit-log/attachments/20190814/1dbc0962/attachment.html>


More information about the gerrit-log mailing list