diff options
Diffstat (limited to 'library/Osmocom_Types.ttcn')
-rw-r--r-- | library/Osmocom_Types.ttcn | 198 |
1 files changed, 188 insertions, 10 deletions
diff --git a/library/Osmocom_Types.ttcn b/library/Osmocom_Types.ttcn index ee3b04a5..57912deb 100644 --- a/library/Osmocom_Types.ttcn +++ b/library/Osmocom_Types.ttcn @@ -16,6 +16,7 @@ type integer uint8_t (0..255) with { variant "unsigned 8 bit" }; type integer uint16_t (0..65535) with { variant "unsigned 16 bit" }; type integer uint24_t (0..16777215) with { variant "unsigned 24 bit" }; type integer uint32_t (0..4294967295) with { variant "unsigned 32 bit" }; +type integer uint64_t (0..18446744073709551615) with { variant "unsigned 64 bit" }; type integer int8_t (-128..127) with { variant "8 bit" }; type integer int16_t (-32768..32767) with { variant "16 bit" }; @@ -44,11 +45,6 @@ const uint32_t c_UINT32_MAX := 4294967295; const BIT1 CSN1_L := '0'B; const BIT1 CSN1_H := '1'B; -type record Arfcn { - boolean pcs, - uint15_t arfcn -} with { variant "" }; - /* based on Linux */ type enumerated AddressFamily { AF_UNSPEC ('00'O), @@ -56,14 +52,26 @@ type enumerated AddressFamily { AF_INET6 ('0a'O) } +/* like TTCN-3 int2str() but with padding of leading zeroes */ +function f_int2str(integer i, integer total_digits) return charstring { + var charstring istr := int2str(i); + var charstring padstr := hex2str(int2hex(0, total_digits - lengthof(istr))); + return padstr & istr; +} + /* return random integer 0 <= ret < max. According to ETSI ES 201 873 C.6.1, rnd() returns *less* than 1, so * the returned int will always be ret < max, or ret <= (max-1). */ function f_rnd_int(integer max) return integer { return float2int(rnd()*int2float(max)); } +/* return random integer 1 <= ret < max */ +function f_rnd_int_nonzero(integer max) return integer { + return float2int(1.0 + rnd()*int2float(max-1)); +} + /* return hexstring composed of random digits */ -function f_rnd_hexstring(in integer len, in integer max := 15) return hexstring { +function f_rnd_hexstring(in integer len, in integer max := 16) return hexstring { var integer i; var hexstring ret := ''H; for (i := 0; i < len; i := i + 1) { @@ -77,11 +85,16 @@ function f_rnd_octstring(in integer len) return octetstring { var integer i; var octetstring ret := ''O; for (i := 0; i < len; i := i + 1) { - ret := ret & int2oct(f_rnd_int(255), 1); + ret := ret & int2oct(f_rnd_int(256), 1); } return ret; } +/* return ocetstring composed of random bytes, at least 1, maximum 'maxlen' bytes long */ +function f_rnd_octstring_rnd_len(in integer maxlen) return octetstring { + return f_rnd_octstring(f_rnd_int_nonzero(maxlen)); +} + /* return bitstring composed of random bits */ function f_rnd_bitstring(in integer len) return bitstring { var octetstring oct := f_rnd_octstring(len / 8 + 1); @@ -89,7 +102,11 @@ function f_rnd_bitstring(in integer len) return bitstring { } function f_rnd_imsi(in hexstring prefix) return hexstring { - return prefix & f_rnd_hexstring(15 - lengthof(prefix), 9); + return prefix & f_rnd_hexstring(15 - lengthof(prefix), 10); +} + +function f_rnd_imei(in hexstring prefix) return hexstring { + return prefix & f_rnd_hexstring(14 - lengthof(prefix), 10); } function f_rnd_msisdn(in octetstring prefix, integer len := 6) return octetstring { @@ -136,6 +153,65 @@ function int2bool(integer int) return boolean { } } +function int2hex_tmpl(template integer inp, integer len) return template hexstring { + if (istemplatekind(inp, "omit")) { + return omit; + } else if (istemplatekind(inp, "*")) { + return *; + } else if (istemplatekind(inp, "?")) { + return ?; + } + return int2hex(valueof(inp), len); +} + +function int2oct_tmpl(template integer inp, integer num_oct) return template octetstring +{ + if (istemplatekind(inp, "omit")) { + return omit; + } else if (istemplatekind(inp, "*")) { + return *; + } else if (istemplatekind(inp, "?")) { + return ?; + } else { + return int2oct(valueof(inp), num_oct); + } +} + +function char2oct_tmpl(template charstring inp) return template octetstring +{ + if (istemplatekind(inp, "omit")) { + return omit; + } else if (istemplatekind(inp, "*")) { + return *; + } else if (istemplatekind(inp, "?")) { + return ?; + } else { + return char2oct(valueof(inp)); + } +} + +function char2oct_tmpl_present(template (present) charstring inp) return template (present) octetstring +{ + if (istemplatekind(inp, "?")) { + return ?; + } else { + return char2oct(valueof(inp)); + } +} + +function hex2str_tmpl(template hexstring inp) return template charstring +{ + if (istemplatekind(inp, "omit")) { + return omit; + } else if (istemplatekind(inp, "*")) { + return *; + } else if (istemplatekind(inp, "?")) { + return ?; + } else { + return hex2str(valueof(inp)); + } +} + function f_array_contains(IntegerRecord arr, integer key) return boolean { for (var integer i:= 0; i< sizeof(arr); i := i + 1) { if (arr[i] == key) { @@ -205,6 +281,18 @@ function f_pad_bcd_number(hexstring number) return hexstring { } } +function f_pad_bcd_number_tmpl(template hexstring inp) return template hexstring { + if (istemplatekind(inp, "omit")) { + return omit; + } else if (istemplatekind(inp, "*")) { + return *; + } else if (istemplatekind(inp, "?")) { + return ?; + } else { + return f_pad_bcd_number(valueof(inp)); + } +} + /* like L1SAP_IS_PACKET_RACH */ function ra_is_ps(OCT1 ra) return boolean { if ((ra and4b 'F0'O == '70'O) and (ra and4b '0F'O != '0F'O)) { @@ -247,9 +335,99 @@ function f_rnd_ra_ps() return OCT1 { /* generate a random 11-bit RA (packet-switched only) */ function f_rnd_ra11_ps() return BIT11 { - var integer ra11 := f_rnd_int(bit2int('11111111111'B)); - return int2bit(ra11, 11); + return f_rnd_bitstring(11); +} + + +private function f_concat_pad(integer tot_len, hexstring prefix, integer suffix) return hexstring { + var integer suffix_len := tot_len - lengthof(prefix); + var charstring suffix_ch := int2str(suffix); + var integer pad_len := suffix_len - lengthof(suffix_ch); + + return prefix & int2hex(0, pad_len) & str2hex(suffix_ch); +} + +function f_gen_imei(integer suffix) return hexstring { + return f_concat_pad(14, '49999'H, suffix); +} + +function f_gen_imsi(integer suffix) return hexstring { + return f_concat_pad(15, '26242'H, suffix); } +function f_gen_msisdn(integer suffix) return hexstring { + return f_concat_pad(12, '49123'H, suffix); +} + +function f_gen_tmsi(integer suffix, integer nri_v := 0, integer nri_bitlen := 10, + OCT4 base_tmsi := '42000023'O) return OCT4 { + var integer tmsi_int := oct2int(base_tmsi) + suffix; + var bitstring base_tmsi_bits := int2bit(tmsi_int, 32); + var bitstring prefix_bits := substr(base_tmsi_bits, 0, 8); + var bitstring suffix_bits := substr(base_tmsi_bits, 8 + nri_bitlen, 24 - nri_bitlen); + var bitstring total_bits := prefix_bits & int2bit(nri_v, nri_bitlen) & suffix_bits; + var OCT4 tmsi := bit2oct(total_bits); + + log("f_gen_tmsi(suffix:=", suffix, ", nri_v:=", nri_v, ", nri_bitlen:=", nri_bitlen, + ", base_tmsi:=", base_tmsi, ") -> prefix:=", prefix_bits, ", suffix:=", suffix_bits, + ", total_bits:=", total_bits, " == ", tmsi); + + return tmsi; +} + +type record of integer ro_integer; + +function ro_integer_contains(ro_integer r, integer x) return boolean { + for (var integer j := 0; j < lengthof(r); j := j+1) { + if (r[j] == x) { + return true; + } + } + return false; +} + +function ro_integer_add_unique(inout ro_integer roi, integer new_entry) +{ + if (ro_integer_contains(roi, new_entry)) { + return; + } + roi := roi & {new_entry}; +} + +function ro_integer_del(inout ro_integer roi, integer del_entry) +{ + var ro_integer tmp := {}; + for (var integer j := 0; j < lengthof(roi); j := j+1) { + if (roi[j] != del_entry) { + tmp := tmp & { roi[j] }; + } + } + roi := tmp; +} + +type record of ro_integer roro_integer; + +function f_bool2str(boolean val) return charstring { + if (val) { + return "true"; + } else { + return "false"; + } +} + +/* Return a reversed bitstring */ +function f_bits_reversed(in bitstring bits) return bitstring { + for (var integer i := 0; i < lengthof(bits) / 2; i := i + 1) { + var integer reverse_i := lengthof(bits) - 1 - i; + if (i >= reverse_i) { + break; + } + var bitstring tmp; + tmp[0] := bits[i]; + bits[i] := bits[reverse_i]; + bits[reverse_i] := tmp[0]; + } + return bits; +} } with { encode "RAW"; variant "FIELDORDER(msb)" } |