sysinfo: Fix the TC_telnet test case VTY command order
diff --git a/gprs_gb/LLC_Types.ttcn b/gprs_gb/LLC_Types.ttcn
index 61fc664..8ca8f39 100644
--- a/gprs_gb/LLC_Types.ttcn
+++ b/gprs_gb/LLC_Types.ttcn
@@ -4,15 +4,31 @@
/* TS 44.064 Chapter 6.2 */
type record LlcAddressField {
- boolean pd,
+ BIT1 pd ('0'B),
boolean c_r,
BIT2 reserved,
LlcSapi sapi
} with {
- variant (pd) "FIELDLENGTH(1)"
variant (c_r) "FIELDLENGTH(1)"
};
+ template LlcAddressField t_LLC_Addr(template boolean c_r, template LlcSapi sapi) := {
+ pd := '0'B,
+ c_r := c_r,
+ reserved := '00'B,
+ sapi := sapi
+ };
+
+ const boolean LLC_CR_DL_CMD := true;
+ const boolean LLC_CR_DL_RSP := false;
+ const boolean LLC_CR_UL_CMD := false;
+ const boolean LLC_CR_UL_RSP := true;
+
+ template LlcAddressField t_LLC_Addr_DlCmd(template LlcSapi sapi) := t_LLC_Addr(true, sapi);
+ template LlcAddressField t_LLC_Addr_DlRsp(template LlcSapi sapi) := t_LLC_Addr(false, sapi);
+ template LlcAddressField t_LLC_Addr_UlCmd(template LlcSapi sapi) := t_LLC_Addr(false, sapi);
+ template LlcAddressField t_LLC_Addr_UlRsp(template LlcSapi sapi) := t_LLC_Addr(true, sapi);
+
type enumerated LlcSapi {
LLC_SAPI_RESERVED_0 ('0000'B),
LLC_SAPI_GMM ('0001'B),
@@ -68,6 +84,14 @@
variant (pm) "FIELDLENGTH(1)"
};
+ template LlcCtrlFieldUI t_LlcCtrlUI(template uint8_t n_u) := {
+ presence := '110'B,
+ spare := '00'B,
+ n_u := n_u,
+ e := false,
+ pm := true
+ };
+
/* TS 44.064 Chapter 6.3 */
type record LlcCtrlFieldU {
BIT3 presence ('111'B),
@@ -120,8 +144,8 @@
type record LlcPdu {
LlcAddressField addr,
LlcCtrlUnion ctrl,
- octetstring payload,
- LlcFcs fcs
+ octetstring payload//,
+ //LlcFcs fcs
} with { variant "" };
external function enc_LlcPdu(in LlcPdu pdu) return octetstring
@@ -129,4 +153,13 @@
external function dec_LlcPdu(in octetstring stream) return LlcPdu
with { extension "prototype(convert) decode(RAW)" };
+
+ template LlcPdu t_LLC_UI(template boolean c_r, template uint8_t n_u, template octetstring payload,
+ template LlcSapi sapi := LLC_SAPI_GMM) := {
+ addr := t_LLC_Addr(c_r, sapi),
+ ctrl := {
+ ui := t_LlcCtrlUI(n_u)
+ },
+ payload := payload
+ };
} with { encode "RAW"; variant "FIELDORDER(msb)" }