Harald Welte | 34b5a95 | 2019-05-27 11:54:11 +0200 | [diff] [blame] | 1 | /* Osmocom utility type definitions in TTCN-3 |
| 2 | * (C) 2017-2019 Harald Welte <laforge@gnumonks.org> |
| 3 | * All rights reserved. |
| 4 | * |
| 5 | * Released under the terms of GNU General Public License, Version 2 or |
| 6 | * (at your option) any later version. |
| 7 | * |
| 8 | * SPDX-License-Identifier: GPL-2.0-or-later |
| 9 | */ |
| 10 | |
Harald Welte | 615bd54 | 2017-07-14 18:28:55 +0200 | [diff] [blame] | 11 | module Osmocom_Types { |
Harald Welte | c7adaa7 | 2018-02-15 20:40:36 +0100 | [diff] [blame] | 12 | |
| 13 | import from General_Types all; |
| 14 | |
Harald Welte | ddeaa57 | 2017-07-14 18:58:07 +0200 | [diff] [blame] | 15 | type integer uint8_t (0..255) with { variant "unsigned 8 bit" }; |
Harald Welte | 615bd54 | 2017-07-14 18:28:55 +0200 | [diff] [blame] | 16 | type integer uint16_t (0..65535) with { variant "unsigned 16 bit" }; |
Harald Welte | 484160b | 2017-07-28 13:30:24 +0200 | [diff] [blame] | 17 | type integer uint24_t (0..16777215) with { variant "unsigned 24 bit" }; |
Harald Welte | ddeaa57 | 2017-07-14 18:58:07 +0200 | [diff] [blame] | 18 | type integer uint32_t (0..4294967295) with { variant "unsigned 32 bit" }; |
| 19 | |
| 20 | type integer int8_t (-128..127) with { variant "8 bit" }; |
| 21 | type integer int16_t (-32768..32767) with { variant "16 bit" }; |
| 22 | |
Harald Welte | f654332 | 2017-07-16 07:35:10 +0200 | [diff] [blame] | 23 | type integer uint1_t (0..1) with { variant "unsigned 1 bit" }; |
Harald Welte | 615bd54 | 2017-07-14 18:28:55 +0200 | [diff] [blame] | 24 | type integer uint2_t (0..3) with { variant "unsigned 2 bit" }; |
| 25 | type integer uint3_t (0..7) with { variant "unsigned 3 bit" }; |
| 26 | type integer uint4_t (0..15) with { variant "unsigned 4 bit" }; |
| 27 | type integer uint5_t (0..31) with { variant "unsigned 5 bit" }; |
| 28 | type integer uint6_t (0..63) with { variant "unsigned 6 bit" }; |
| 29 | type integer uint7_t (0..127) with { variant "unsigned 7 bit" }; |
Harald Welte | 615bd54 | 2017-07-14 18:28:55 +0200 | [diff] [blame] | 30 | type integer uint9_t (0..511) with { variant "unsigned 9 bit" }; |
| 31 | type integer uint10_t (0..1023) with { variant "unsigned 10 bit" }; |
| 32 | type integer uint11_t (0..2047) with { variant "unsigned 11 bit" }; |
| 33 | type integer uint12_t (0..4095) with { variant "unsigned 12 bit" }; |
Harald Welte | ddeaa57 | 2017-07-14 18:58:07 +0200 | [diff] [blame] | 34 | type integer uint13_t (0..8191) with { variant "unsigned 13 bit" }; |
| 35 | type integer uint14_t (0..16383) with { variant "unsigned 14 bit" }; |
| 36 | type integer uint15_t (0..32767) with { variant "unsigned 15 bit" }; |
Harald Welte | 88b3ccb | 2020-03-12 21:36:32 +0100 | [diff] [blame] | 37 | type integer uint40_t (0..1099511627776) with { variant "unsigned 40 bit" }; |
Harald Welte | ddeaa57 | 2017-07-14 18:58:07 +0200 | [diff] [blame] | 38 | |
Harald Welte | 0236980 | 2018-02-25 12:39:05 +0100 | [diff] [blame] | 39 | |
| 40 | const uint16_t c_UINT16_MAX := 65535; |
| 41 | const uint32_t c_UINT32_MAX := 4294967295; |
| 42 | |
Vadim Yanitskiy | 12cf3d9 | 2020-05-05 00:19:50 +0700 | [diff] [blame] | 43 | /* CSN.1 L/H placeholders */ |
| 44 | const BIT1 CSN1_L := '0'B; |
| 45 | const BIT1 CSN1_H := '1'B; |
| 46 | |
Harald Welte | ddeaa57 | 2017-07-14 18:58:07 +0200 | [diff] [blame] | 47 | type record Arfcn { |
| 48 | boolean pcs, |
| 49 | uint15_t arfcn |
| 50 | } with { variant "" }; |
| 51 | |
Harald Welte | 9182704 | 2018-01-25 09:20:04 +0100 | [diff] [blame] | 52 | /* return random integer between 0 and max */ |
| 53 | function f_rnd_int(integer max) return integer { |
| 54 | return float2int(rnd()*int2float(max)); |
| 55 | } |
| 56 | |
| 57 | /* return hexstring composed of random digits */ |
| 58 | function f_rnd_hexstring(in integer len, in integer max := 15) return hexstring { |
| 59 | var integer i; |
| 60 | var hexstring ret := ''H; |
| 61 | for (i := 0; i < len; i := i + 1) { |
| 62 | ret := ret & int2hex(f_rnd_int(max), 1); |
| 63 | } |
| 64 | return ret; |
| 65 | } |
| 66 | |
| 67 | /* return octetstring composed of random bytes */ |
| 68 | function f_rnd_octstring(in integer len) return octetstring { |
| 69 | var integer i; |
| 70 | var octetstring ret := ''O; |
| 71 | for (i := 0; i < len; i := i + 1) { |
| 72 | ret := ret & int2oct(f_rnd_int(255), 1); |
| 73 | } |
| 74 | return ret; |
| 75 | } |
| 76 | |
| 77 | function f_rnd_imsi(in hexstring prefix) return hexstring { |
| 78 | return prefix & f_rnd_hexstring(15 - lengthof(prefix), 9); |
| 79 | } |
| 80 | |
| 81 | function f_rnd_msisdn(in octetstring prefix, integer len := 6) return octetstring { |
| 82 | return prefix & f_rnd_octstring(len - lengthof(prefix)); |
| 83 | } |
| 84 | |
Harald Welte | c2461d6 | 2018-01-26 18:55:00 +0100 | [diff] [blame] | 85 | function f_sleep(float seconds) { |
| 86 | timer T := seconds; |
| 87 | T.start; |
| 88 | T.timeout; |
| 89 | } |
| 90 | |
Harald Welte | c7adaa7 | 2018-02-15 20:40:36 +0100 | [diff] [blame] | 91 | function bool2bit(boolean inp) return BIT1 { |
| 92 | if (inp) { |
| 93 | return '1'B; |
| 94 | } else { |
| 95 | return '0'B; |
| 96 | } |
| 97 | } |
| 98 | |
| 99 | function bool2bit_tmpl(template boolean inp) return template BIT1 { |
| 100 | if (istemplatekind(inp, "omit")) { |
| 101 | return omit; |
| 102 | } else if (istemplatekind(inp, "*")) { |
| 103 | return *; |
| 104 | } else if (istemplatekind(inp, "?")) { |
Harald Welte | b596c18 | 2018-02-16 18:12:59 +0100 | [diff] [blame] | 105 | return ?; |
Harald Welte | c7adaa7 | 2018-02-15 20:40:36 +0100 | [diff] [blame] | 106 | } else { |
| 107 | if (valueof(inp)) { |
| 108 | return '1'B; |
| 109 | } else { |
| 110 | return '0'B; |
| 111 | } |
| 112 | } |
Harald Welte | c7adaa7 | 2018-02-15 20:40:36 +0100 | [diff] [blame] | 113 | } |
| 114 | |
Harald Welte | 262f122 | 2018-02-25 16:33:38 +0100 | [diff] [blame] | 115 | type record of integer IntegerRecord; |
| 116 | |
| 117 | function int2bool(integer int) return boolean { |
| 118 | if (int != 0) { |
| 119 | return true; |
| 120 | } else { |
| 121 | return false; |
| 122 | } |
| 123 | } |
| 124 | |
| 125 | function f_array_contains(IntegerRecord arr, integer key) return boolean { |
| 126 | for (var integer i:= 0; i< sizeof(arr); i := i + 1) { |
| 127 | if (arr[i] == key) { |
| 128 | return true; |
| 129 | } |
| 130 | } |
| 131 | return false; |
| 132 | } |
| 133 | |
Harald Welte | c3a3f45 | 2018-02-26 17:37:47 +0100 | [diff] [blame] | 134 | /* re-start given timer in a warning-safe way: Stop (only if running) + start */ |
| 135 | function f_timer_safe_restart(timer T) { |
| 136 | if (T.running) { |
| 137 | T.stop; |
| 138 | } |
| 139 | T.start; |
| 140 | } |
| 141 | |
Harald Welte | 060e27a | 2018-03-03 20:38:19 +0100 | [diff] [blame] | 142 | /* divide two integers and return rounded-up result */ |
| 143 | function f_div_round_up(integer dividend, integer divisor) return integer { |
| 144 | var integer x := dividend / divisor; |
| 145 | if (dividend rem divisor != 0) { |
| 146 | x := x+1; |
| 147 | } |
| 148 | return x; |
| 149 | } |
| 150 | |
Harald Welte | 07d99c8 | 2019-05-02 18:33:16 +0200 | [diff] [blame] | 151 | function imsi_hex2oct(hexstring imsi) return octetstring { |
| 152 | var hexstring tmp := ''H; |
| 153 | var octetstring ret; |
| 154 | var integer i; |
| 155 | |
| 156 | /* swap nibbles and pad with F if insufficient input nibbles */ |
| 157 | for (i := 0; i < lengthof(imsi); i := i+1) { |
| 158 | if (i+1 < lengthof(imsi)) { |
| 159 | tmp := tmp & imsi[i+1]; |
| 160 | } else { |
| 161 | tmp := tmp & 'F'H; |
| 162 | } |
| 163 | tmp := tmp & imsi[i]; |
| 164 | i := i+1; |
| 165 | } |
| 166 | ret := hex2oct(tmp); |
| 167 | return ret; |
| 168 | } |
| 169 | |
Harald Welte | bb9512e | 2019-05-30 15:06:12 +0200 | [diff] [blame] | 170 | function f_pad_oct(octetstring str, integer len, OCT1 pad) return octetstring { |
| 171 | var integer strlen := lengthof(str); |
| 172 | for (var integer i := 0; i < len-strlen; i := i+1) { |
| 173 | str := str & pad; |
| 174 | } |
| 175 | return str; |
| 176 | } |
| 177 | |
Vadim Yanitskiy | a52347c | 2019-12-12 17:32:33 +0900 | [diff] [blame] | 178 | function f_pad_bcd_number(hexstring number) return hexstring { |
| 179 | if (lengthof(number) mod 2 != 0) { |
| 180 | return number & 'F'H; |
| 181 | } else { |
| 182 | return number; |
| 183 | } |
| 184 | } |
| 185 | |
Harald Welte | c7adaa7 | 2018-02-15 20:40:36 +0100 | [diff] [blame] | 186 | |
Harald Welte | 615bd54 | 2017-07-14 18:28:55 +0200 | [diff] [blame] | 187 | } with { encode "RAW"; variant "FIELDORDER(msb)" } |