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 | |
Alexander Couzens | 4231de6 | 2020-09-11 19:52:15 +0200 | [diff] [blame] | 13 | import from General_Types all; |
Harald Welte | c7adaa7 | 2018-02-15 20:40:36 +0100 | [diff] [blame] | 14 | |
Alexander Couzens | 4231de6 | 2020-09-11 19:52:15 +0200 | [diff] [blame] | 15 | type integer uint8_t (0..255) with { variant "unsigned 8 bit" }; |
| 16 | type integer uint16_t (0..65535) with { variant "unsigned 16 bit" }; |
| 17 | type integer uint24_t (0..16777215) with { variant "unsigned 24 bit" }; |
| 18 | type integer uint32_t (0..4294967295) with { variant "unsigned 32 bit" }; |
Pau Espin Pedrol | 77fdd0b | 2022-03-08 14:03:33 +0100 | [diff] [blame] | 19 | type integer uint64_t (0..18446744073709551615) with { variant "unsigned 64 bit" }; |
Harald Welte | ddeaa57 | 2017-07-14 18:58:07 +0200 | [diff] [blame] | 20 | |
Alexander Couzens | 4231de6 | 2020-09-11 19:52:15 +0200 | [diff] [blame] | 21 | type integer int8_t (-128..127) with { variant "8 bit" }; |
| 22 | type integer int16_t (-32768..32767) with { variant "16 bit" }; |
Harald Welte | ddeaa57 | 2017-07-14 18:58:07 +0200 | [diff] [blame] | 23 | |
Alexander Couzens | 4231de6 | 2020-09-11 19:52:15 +0200 | [diff] [blame] | 24 | type integer uint1_t (0..1) with { variant "unsigned 1 bit" }; |
| 25 | type integer uint2_t (0..3) with { variant "unsigned 2 bit" }; |
| 26 | type integer uint3_t (0..7) with { variant "unsigned 3 bit" }; |
| 27 | type integer uint4_t (0..15) with { variant "unsigned 4 bit" }; |
| 28 | type integer uint5_t (0..31) with { variant "unsigned 5 bit" }; |
| 29 | type integer uint6_t (0..63) with { variant "unsigned 6 bit" }; |
| 30 | type integer uint7_t (0..127) with { variant "unsigned 7 bit" }; |
| 31 | type integer uint9_t (0..511) with { variant "unsigned 9 bit" }; |
| 32 | type integer uint10_t (0..1023) with { variant "unsigned 10 bit" }; |
| 33 | type integer uint11_t (0..2047) with { variant "unsigned 11 bit" }; |
| 34 | type integer uint12_t (0..4095) with { variant "unsigned 12 bit" }; |
| 35 | type integer uint13_t (0..8191) with { variant "unsigned 13 bit" }; |
| 36 | type integer uint14_t (0..16383) with { variant "unsigned 14 bit" }; |
| 37 | type integer uint15_t (0..32767) with { variant "unsigned 15 bit" }; |
| 38 | type integer uint40_t (0..1099511627776) with { variant "unsigned 40 bit" }; |
Harald Welte | ddeaa57 | 2017-07-14 18:58:07 +0200 | [diff] [blame] | 39 | |
Harald Welte | 0236980 | 2018-02-25 12:39:05 +0100 | [diff] [blame] | 40 | |
Alexander Couzens | 4231de6 | 2020-09-11 19:52:15 +0200 | [diff] [blame] | 41 | const uint16_t c_UINT16_MAX := 65535; |
| 42 | const uint32_t c_UINT32_MAX := 4294967295; |
Harald Welte | 0236980 | 2018-02-25 12:39:05 +0100 | [diff] [blame] | 43 | |
Alexander Couzens | 4231de6 | 2020-09-11 19:52:15 +0200 | [diff] [blame] | 44 | /* CSN.1 L/H placeholders */ |
| 45 | const BIT1 CSN1_L := '0'B; |
| 46 | const BIT1 CSN1_H := '1'B; |
Vadim Yanitskiy | 12cf3d9 | 2020-05-05 00:19:50 +0700 | [diff] [blame] | 47 | |
Alexander Couzens | e0f7c54 | 2020-09-13 17:25:18 +0200 | [diff] [blame] | 48 | /* based on Linux */ |
| 49 | type enumerated AddressFamily { |
| 50 | AF_UNSPEC ('00'O), |
| 51 | AF_INET ('02'O), |
| 52 | AF_INET6 ('0a'O) |
| 53 | } |
| 54 | |
Harald Welte | b5688f2 | 2021-03-30 16:28:04 +0200 | [diff] [blame] | 55 | /* like TTCN-3 int2str() but with padding of leading zeroes */ |
| 56 | function f_int2str(integer i, integer total_digits) return charstring { |
| 57 | var charstring istr := int2str(i); |
| 58 | var charstring padstr := hex2str(int2hex(0, total_digits - lengthof(istr))); |
| 59 | return padstr & istr; |
| 60 | } |
| 61 | |
Alexander Couzens | 4231de6 | 2020-09-11 19:52:15 +0200 | [diff] [blame] | 62 | /* return random integer 0 <= ret < max. According to ETSI ES 201 873 C.6.1, rnd() returns *less* than 1, so |
| 63 | * the returned int will always be ret < max, or ret <= (max-1). */ |
| 64 | function f_rnd_int(integer max) return integer { |
| 65 | return float2int(rnd()*int2float(max)); |
| 66 | } |
| 67 | |
Harald Welte | 67881ae | 2022-04-12 22:52:47 +0200 | [diff] [blame] | 68 | /* return random integer 1 <= ret < max */ |
| 69 | function f_rnd_int_nonzero(integer max) return integer { |
| 70 | return float2int(1.0 + rnd()*int2float(max-1)); |
| 71 | } |
| 72 | |
Alexander Couzens | 4231de6 | 2020-09-11 19:52:15 +0200 | [diff] [blame] | 73 | /* return hexstring composed of random digits */ |
Vadim Yanitskiy | 6a2a11f | 2021-12-11 02:08:36 +0300 | [diff] [blame] | 74 | function f_rnd_hexstring(in integer len, in integer max := 16) return hexstring { |
Alexander Couzens | 4231de6 | 2020-09-11 19:52:15 +0200 | [diff] [blame] | 75 | var integer i; |
| 76 | var hexstring ret := ''H; |
| 77 | for (i := 0; i < len; i := i + 1) { |
| 78 | ret := ret & int2hex(f_rnd_int(max), 1); |
Harald Welte | 9182704 | 2018-01-25 09:20:04 +0100 | [diff] [blame] | 79 | } |
Alexander Couzens | 4231de6 | 2020-09-11 19:52:15 +0200 | [diff] [blame] | 80 | return ret; |
| 81 | } |
Harald Welte | 9182704 | 2018-01-25 09:20:04 +0100 | [diff] [blame] | 82 | |
Alexander Couzens | 4231de6 | 2020-09-11 19:52:15 +0200 | [diff] [blame] | 83 | /* return octetstring composed of random bytes */ |
| 84 | function f_rnd_octstring(in integer len) return octetstring { |
| 85 | var integer i; |
| 86 | var octetstring ret := ''O; |
| 87 | for (i := 0; i < len; i := i + 1) { |
Vadim Yanitskiy | 6a2a11f | 2021-12-11 02:08:36 +0300 | [diff] [blame] | 88 | ret := ret & int2oct(f_rnd_int(256), 1); |
Harald Welte | 9182704 | 2018-01-25 09:20:04 +0100 | [diff] [blame] | 89 | } |
Alexander Couzens | 4231de6 | 2020-09-11 19:52:15 +0200 | [diff] [blame] | 90 | return ret; |
| 91 | } |
Harald Welte | 9182704 | 2018-01-25 09:20:04 +0100 | [diff] [blame] | 92 | |
Harald Welte | 67881ae | 2022-04-12 22:52:47 +0200 | [diff] [blame] | 93 | /* return ocetstring composed of random bytes, at least 1, maximum 'maxlen' bytes long */ |
| 94 | function f_rnd_octstring_rnd_len(in integer maxlen) return octetstring { |
| 95 | return f_rnd_octstring(f_rnd_int_nonzero(maxlen)); |
| 96 | } |
| 97 | |
Alexander Couzens | 4231de6 | 2020-09-11 19:52:15 +0200 | [diff] [blame] | 98 | /* return bitstring composed of random bits */ |
| 99 | function f_rnd_bitstring(in integer len) return bitstring { |
| 100 | var octetstring oct := f_rnd_octstring(len / 8 + 1); |
| 101 | return substr(oct2bit(oct), 0, len); |
| 102 | } |
Harald Welte | 9182704 | 2018-01-25 09:20:04 +0100 | [diff] [blame] | 103 | |
Alexander Couzens | 4231de6 | 2020-09-11 19:52:15 +0200 | [diff] [blame] | 104 | function f_rnd_imsi(in hexstring prefix) return hexstring { |
Vadim Yanitskiy | 6a2a11f | 2021-12-11 02:08:36 +0300 | [diff] [blame] | 105 | return prefix & f_rnd_hexstring(15 - lengthof(prefix), 10); |
Alexander Couzens | 4231de6 | 2020-09-11 19:52:15 +0200 | [diff] [blame] | 106 | } |
Vadim Yanitskiy | a01a055 | 2020-07-20 17:47:18 +0700 | [diff] [blame] | 107 | |
Pau Espin Pedrol | b27653c | 2023-01-03 14:07:21 +0100 | [diff] [blame] | 108 | function f_rnd_imei(in hexstring prefix) return hexstring { |
| 109 | return prefix & f_rnd_hexstring(14 - lengthof(prefix), 10); |
| 110 | } |
| 111 | |
Alexander Couzens | 4231de6 | 2020-09-11 19:52:15 +0200 | [diff] [blame] | 112 | function f_rnd_msisdn(in octetstring prefix, integer len := 6) return octetstring { |
| 113 | return prefix & f_rnd_octstring(len - lengthof(prefix)); |
| 114 | } |
Harald Welte | 9182704 | 2018-01-25 09:20:04 +0100 | [diff] [blame] | 115 | |
Alexander Couzens | 4231de6 | 2020-09-11 19:52:15 +0200 | [diff] [blame] | 116 | function f_sleep(float seconds) { |
| 117 | timer T := seconds; |
| 118 | T.start; |
| 119 | T.timeout; |
| 120 | } |
Harald Welte | c2461d6 | 2018-01-26 18:55:00 +0100 | [diff] [blame] | 121 | |
Harald Welte | c7adaa7 | 2018-02-15 20:40:36 +0100 | [diff] [blame] | 122 | function bool2bit(boolean inp) return BIT1 { |
| 123 | if (inp) { |
| 124 | return '1'B; |
| 125 | } else { |
| 126 | return '0'B; |
| 127 | } |
| 128 | } |
| 129 | |
| 130 | function bool2bit_tmpl(template boolean inp) return template BIT1 { |
| 131 | if (istemplatekind(inp, "omit")) { |
| 132 | return omit; |
| 133 | } else if (istemplatekind(inp, "*")) { |
| 134 | return *; |
| 135 | } else if (istemplatekind(inp, "?")) { |
Harald Welte | b596c18 | 2018-02-16 18:12:59 +0100 | [diff] [blame] | 136 | return ?; |
Harald Welte | c7adaa7 | 2018-02-15 20:40:36 +0100 | [diff] [blame] | 137 | } else { |
| 138 | if (valueof(inp)) { |
| 139 | return '1'B; |
| 140 | } else { |
| 141 | return '0'B; |
| 142 | } |
| 143 | } |
Harald Welte | c7adaa7 | 2018-02-15 20:40:36 +0100 | [diff] [blame] | 144 | } |
| 145 | |
Harald Welte | 262f122 | 2018-02-25 16:33:38 +0100 | [diff] [blame] | 146 | type record of integer IntegerRecord; |
| 147 | |
| 148 | function int2bool(integer int) return boolean { |
| 149 | if (int != 0) { |
| 150 | return true; |
| 151 | } else { |
| 152 | return false; |
| 153 | } |
| 154 | } |
| 155 | |
Pau Espin Pedrol | 446145a | 2023-10-10 19:12:21 +0200 | [diff] [blame] | 156 | function int2oct_tmpl(template integer inp, integer num_oct) return template octetstring |
| 157 | { |
| 158 | if (istemplatekind(inp, "omit")) { |
| 159 | return omit; |
| 160 | } else if (istemplatekind(inp, "*")) { |
| 161 | return *; |
| 162 | } else if (istemplatekind(inp, "?")) { |
| 163 | return ?; |
| 164 | } else { |
| 165 | return int2oct(valueof(inp), num_oct); |
| 166 | } |
| 167 | } |
| 168 | |
| 169 | function char2oct_tmpl(template charstring inp) return template octetstring |
| 170 | { |
| 171 | if (istemplatekind(inp, "omit")) { |
| 172 | return omit; |
| 173 | } else if (istemplatekind(inp, "*")) { |
| 174 | return *; |
| 175 | } else if (istemplatekind(inp, "?")) { |
| 176 | return ?; |
| 177 | } else { |
| 178 | return char2oct(valueof(inp)); |
| 179 | } |
| 180 | } |
| 181 | |
Pau Espin Pedrol | 518e24b | 2024-02-23 17:45:08 +0100 | [diff] [blame] | 182 | function char2oct_tmpl_present(template (present) charstring inp) return template (present) octetstring |
| 183 | { |
| 184 | if (istemplatekind(inp, "?")) { |
| 185 | return ?; |
| 186 | } else { |
| 187 | return char2oct(valueof(inp)); |
| 188 | } |
| 189 | } |
| 190 | |
Pau Espin Pedrol | f4619d8 | 2023-10-16 18:08:07 +0200 | [diff] [blame] | 191 | function hex2str_tmpl(template hexstring inp) return template charstring |
| 192 | { |
| 193 | if (istemplatekind(inp, "omit")) { |
| 194 | return omit; |
| 195 | } else if (istemplatekind(inp, "*")) { |
| 196 | return *; |
| 197 | } else if (istemplatekind(inp, "?")) { |
| 198 | return ?; |
| 199 | } else { |
| 200 | return hex2str(valueof(inp)); |
| 201 | } |
| 202 | } |
| 203 | |
Harald Welte | 262f122 | 2018-02-25 16:33:38 +0100 | [diff] [blame] | 204 | function f_array_contains(IntegerRecord arr, integer key) return boolean { |
| 205 | for (var integer i:= 0; i< sizeof(arr); i := i + 1) { |
| 206 | if (arr[i] == key) { |
| 207 | return true; |
| 208 | } |
| 209 | } |
| 210 | return false; |
| 211 | } |
| 212 | |
Harald Welte | c3a3f45 | 2018-02-26 17:37:47 +0100 | [diff] [blame] | 213 | /* re-start given timer in a warning-safe way: Stop (only if running) + start */ |
| 214 | function f_timer_safe_restart(timer T) { |
| 215 | if (T.running) { |
| 216 | T.stop; |
| 217 | } |
| 218 | T.start; |
| 219 | } |
| 220 | |
Harald Welte | 060e27a | 2018-03-03 20:38:19 +0100 | [diff] [blame] | 221 | /* divide two integers and return rounded-up result */ |
| 222 | function f_div_round_up(integer dividend, integer divisor) return integer { |
| 223 | var integer x := dividend / divisor; |
| 224 | if (dividend rem divisor != 0) { |
| 225 | x := x+1; |
| 226 | } |
| 227 | return x; |
| 228 | } |
| 229 | |
Harald Welte | 07d99c8 | 2019-05-02 18:33:16 +0200 | [diff] [blame] | 230 | function imsi_hex2oct(hexstring imsi) return octetstring { |
| 231 | var hexstring tmp := ''H; |
| 232 | var octetstring ret; |
| 233 | var integer i; |
| 234 | |
| 235 | /* swap nibbles and pad with F if insufficient input nibbles */ |
| 236 | for (i := 0; i < lengthof(imsi); i := i+1) { |
| 237 | if (i+1 < lengthof(imsi)) { |
| 238 | tmp := tmp & imsi[i+1]; |
| 239 | } else { |
| 240 | tmp := tmp & 'F'H; |
| 241 | } |
| 242 | tmp := tmp & imsi[i]; |
| 243 | i := i+1; |
| 244 | } |
| 245 | ret := hex2oct(tmp); |
| 246 | return ret; |
| 247 | } |
| 248 | |
Harald Welte | bb9512e | 2019-05-30 15:06:12 +0200 | [diff] [blame] | 249 | function f_pad_oct(octetstring str, integer len, OCT1 pad) return octetstring { |
| 250 | var integer strlen := lengthof(str); |
| 251 | for (var integer i := 0; i < len-strlen; i := i+1) { |
| 252 | str := str & pad; |
| 253 | } |
| 254 | return str; |
| 255 | } |
| 256 | |
Vadim Yanitskiy | a01a055 | 2020-07-20 17:47:18 +0700 | [diff] [blame] | 257 | function f_pad_bit(bitstring str, integer len, BIT1 pad) return bitstring { |
| 258 | var integer strlen := lengthof(str); |
| 259 | for (var integer i := 0; i < len-strlen; i := i+1) { |
| 260 | str := str & pad; |
| 261 | } |
| 262 | return str; |
| 263 | } |
| 264 | |
Vadim Yanitskiy | a52347c | 2019-12-12 17:32:33 +0900 | [diff] [blame] | 265 | function f_pad_bcd_number(hexstring number) return hexstring { |
| 266 | if (lengthof(number) mod 2 != 0) { |
| 267 | return number & 'F'H; |
| 268 | } else { |
| 269 | return number; |
| 270 | } |
| 271 | } |
| 272 | |
Pau Espin Pedrol | 5c18a0c | 2023-10-19 13:41:41 +0200 | [diff] [blame] | 273 | function f_pad_bcd_number_tmpl(template hexstring inp) return template hexstring { |
| 274 | if (istemplatekind(inp, "omit")) { |
| 275 | return omit; |
| 276 | } else if (istemplatekind(inp, "*")) { |
| 277 | return *; |
| 278 | } else if (istemplatekind(inp, "?")) { |
| 279 | return ?; |
| 280 | } else { |
| 281 | return f_pad_bcd_number(valueof(inp)); |
| 282 | } |
| 283 | } |
| 284 | |
Vadim Yanitskiy | 6f9f7d2 | 2020-08-26 02:53:10 +0700 | [diff] [blame] | 285 | /* like L1SAP_IS_PACKET_RACH */ |
| 286 | function ra_is_ps(OCT1 ra) return boolean { |
| 287 | if ((ra and4b 'F0'O == '70'O) and (ra and4b '0F'O != '0F'O)) { |
| 288 | return true; |
| 289 | } |
| 290 | return false; |
| 291 | } |
| 292 | |
| 293 | function ra_is_emerg(OCT1 ra) return boolean { |
| 294 | /* See also: 3GPP TS 04.08, Table 9.9, ra=101xxxxx */ |
Vadim Yanitskiy | 146efe6 | 2020-08-31 02:13:56 +0700 | [diff] [blame] | 295 | return (ra and4b 'E0'O == 'A0'O); |
Vadim Yanitskiy | 6f9f7d2 | 2020-08-26 02:53:10 +0700 | [diff] [blame] | 296 | } |
| 297 | |
| 298 | /* generate a random RACH for circuit-switched */ |
| 299 | function f_rnd_ra_cs() return OCT1 { |
| 300 | var OCT1 ra; |
| 301 | do { |
| 302 | ra := f_rnd_octstring(1); |
Vadim Yanitskiy | 27057e0 | 2020-08-29 16:16:52 +0700 | [diff] [blame] | 303 | } while (ra_is_ps(ra) or ra_is_emerg(ra)); |
Vadim Yanitskiy | 6f9f7d2 | 2020-08-26 02:53:10 +0700 | [diff] [blame] | 304 | return ra; |
| 305 | } |
| 306 | |
| 307 | /* generate a random RACH for emergency */ |
| 308 | function f_rnd_ra_emerg() return OCT1 { |
| 309 | var OCT1 ra; |
| 310 | do { |
| 311 | ra := f_rnd_octstring(1); |
| 312 | } while (not ra_is_emerg(ra)); |
| 313 | return ra; |
| 314 | } |
| 315 | |
| 316 | /* generate a random RACH for packet-switched */ |
| 317 | function f_rnd_ra_ps() return OCT1 { |
| 318 | var OCT1 ra; |
| 319 | do { |
| 320 | ra := f_rnd_octstring(1); |
| 321 | } while (not ra_is_ps(ra)); |
| 322 | return ra; |
| 323 | } |
| 324 | |
| 325 | /* generate a random 11-bit RA (packet-switched only) */ |
| 326 | function f_rnd_ra11_ps() return BIT11 { |
Vadim Yanitskiy | c041e99 | 2021-12-11 02:11:35 +0300 | [diff] [blame] | 327 | return f_rnd_bitstring(11); |
Vadim Yanitskiy | 6f9f7d2 | 2020-08-26 02:53:10 +0700 | [diff] [blame] | 328 | } |
| 329 | |
Harald Welte | c7adaa7 | 2018-02-15 20:40:36 +0100 | [diff] [blame] | 330 | |
Harald Welte | 69b3a48 | 2020-11-12 17:25:49 +0100 | [diff] [blame] | 331 | private function f_concat_pad(integer tot_len, hexstring prefix, integer suffix) return hexstring { |
| 332 | var integer suffix_len := tot_len - lengthof(prefix); |
| 333 | var charstring suffix_ch := int2str(suffix); |
| 334 | var integer pad_len := suffix_len - lengthof(suffix_ch); |
| 335 | |
| 336 | return prefix & int2hex(0, pad_len) & str2hex(suffix_ch); |
| 337 | } |
| 338 | |
| 339 | function f_gen_imei(integer suffix) return hexstring { |
| 340 | return f_concat_pad(14, '49999'H, suffix); |
| 341 | } |
| 342 | |
| 343 | function f_gen_imsi(integer suffix) return hexstring { |
| 344 | return f_concat_pad(15, '26242'H, suffix); |
| 345 | } |
| 346 | |
| 347 | function f_gen_msisdn(integer suffix) return hexstring { |
| 348 | return f_concat_pad(12, '49123'H, suffix); |
| 349 | } |
| 350 | |
Harald Welte | bf39761 | 2021-01-14 20:39:46 +0100 | [diff] [blame] | 351 | function f_gen_tmsi(integer suffix, integer nri_v := 0, integer nri_bitlen := 10, |
| 352 | OCT4 base_tmsi := '42000023'O) return OCT4 { |
| 353 | var integer tmsi_int := oct2int(base_tmsi) + suffix; |
| 354 | var bitstring base_tmsi_bits := int2bit(tmsi_int, 32); |
| 355 | var bitstring prefix_bits := substr(base_tmsi_bits, 0, 8); |
| 356 | var bitstring suffix_bits := substr(base_tmsi_bits, 8 + nri_bitlen, 24 - nri_bitlen); |
| 357 | var bitstring total_bits := prefix_bits & int2bit(nri_v, nri_bitlen) & suffix_bits; |
| 358 | var OCT4 tmsi := bit2oct(total_bits); |
| 359 | |
| 360 | log("f_gen_tmsi(suffix:=", suffix, ", nri_v:=", nri_v, ", nri_bitlen:=", nri_bitlen, |
| 361 | ", base_tmsi:=", base_tmsi, ") -> prefix:=", prefix_bits, ", suffix:=", suffix_bits, |
Harald Welte | 3f10c62 | 2021-01-18 18:22:22 +0100 | [diff] [blame] | 362 | ", total_bits:=", total_bits, " == ", tmsi); |
Harald Welte | bf39761 | 2021-01-14 20:39:46 +0100 | [diff] [blame] | 363 | |
| 364 | return tmsi; |
| 365 | } |
Harald Welte | 69b3a48 | 2020-11-12 17:25:49 +0100 | [diff] [blame] | 366 | |
Harald Welte | aaa0dfd | 2021-02-04 16:58:53 +0100 | [diff] [blame] | 367 | type record of integer ro_integer; |
| 368 | |
| 369 | function ro_integer_contains(ro_integer r, integer x) return boolean { |
| 370 | for (var integer j := 0; j < lengthof(r); j := j+1) { |
| 371 | if (r[j] == x) { |
| 372 | return true; |
| 373 | } |
| 374 | } |
| 375 | return false; |
| 376 | } |
| 377 | |
Harald Welte | daf8968 | 2021-02-04 17:06:20 +0100 | [diff] [blame] | 378 | function ro_integer_add_unique(inout ro_integer roi, integer new_entry) |
| 379 | { |
| 380 | if (ro_integer_contains(roi, new_entry)) { |
| 381 | return; |
| 382 | } |
| 383 | roi := roi & {new_entry}; |
| 384 | } |
| 385 | |
| 386 | function ro_integer_del(inout ro_integer roi, integer del_entry) |
| 387 | { |
| 388 | var ro_integer tmp := {}; |
| 389 | for (var integer j := 0; j < lengthof(roi); j := j+1) { |
| 390 | if (roi[j] != del_entry) { |
| 391 | tmp := tmp & { roi[j] }; |
| 392 | } |
| 393 | } |
| 394 | roi := tmp; |
| 395 | } |
| 396 | |
Harald Welte | aaa0dfd | 2021-02-04 16:58:53 +0100 | [diff] [blame] | 397 | type record of ro_integer roro_integer; |
| 398 | |
Neels Hofmeyr | f2c9502 | 2023-04-19 01:24:39 +0200 | [diff] [blame] | 399 | function f_bool2str(boolean val) return charstring { |
| 400 | if (val) { |
| 401 | return "true"; |
| 402 | } else { |
| 403 | return "false"; |
| 404 | } |
| 405 | } |
Harald Welte | aaa0dfd | 2021-02-04 16:58:53 +0100 | [diff] [blame] | 406 | |
Neels Hofmeyr | 7d0e680 | 2023-04-20 20:43:55 +0200 | [diff] [blame] | 407 | /* Return a reversed bitstring */ |
| 408 | function f_bits_reversed(in bitstring bits) return bitstring { |
| 409 | for (var integer i := 0; i < lengthof(bits) / 2; i := i + 1) { |
| 410 | var integer reverse_i := lengthof(bits) - 1 - i; |
| 411 | if (i >= reverse_i) { |
| 412 | break; |
| 413 | } |
| 414 | var bitstring tmp; |
| 415 | tmp[0] := bits[i]; |
| 416 | bits[i] := bits[reverse_i]; |
| 417 | bits[reverse_i] := tmp[0]; |
| 418 | } |
| 419 | return bits; |
| 420 | } |
Harald Welte | 69b3a48 | 2020-11-12 17:25:49 +0100 | [diff] [blame] | 421 | |
Harald Welte | 615bd54 | 2017-07-14 18:28:55 +0200 | [diff] [blame] | 422 | } with { encode "RAW"; variant "FIELDORDER(msb)" } |