Harald Welte | 615bd54 | 2017-07-14 18:28:55 +0200 | [diff] [blame] | 1 | module Osmocom_Types { |
Harald Welte | c7adaa7 | 2018-02-15 20:40:36 +0100 | [diff] [blame] | 2 | |
| 3 | import from General_Types all; |
| 4 | |
Harald Welte | ddeaa57 | 2017-07-14 18:58:07 +0200 | [diff] [blame] | 5 | type integer uint8_t (0..255) with { variant "unsigned 8 bit" }; |
Harald Welte | 615bd54 | 2017-07-14 18:28:55 +0200 | [diff] [blame] | 6 | type integer uint16_t (0..65535) with { variant "unsigned 16 bit" }; |
Harald Welte | 484160b | 2017-07-28 13:30:24 +0200 | [diff] [blame] | 7 | type integer uint24_t (0..16777215) with { variant "unsigned 24 bit" }; |
Harald Welte | ddeaa57 | 2017-07-14 18:58:07 +0200 | [diff] [blame] | 8 | type integer uint32_t (0..4294967295) with { variant "unsigned 32 bit" }; |
| 9 | |
| 10 | type integer int8_t (-128..127) with { variant "8 bit" }; |
| 11 | type integer int16_t (-32768..32767) with { variant "16 bit" }; |
| 12 | |
Harald Welte | f654332 | 2017-07-16 07:35:10 +0200 | [diff] [blame] | 13 | type integer uint1_t (0..1) with { variant "unsigned 1 bit" }; |
Harald Welte | 615bd54 | 2017-07-14 18:28:55 +0200 | [diff] [blame] | 14 | type integer uint2_t (0..3) with { variant "unsigned 2 bit" }; |
| 15 | type integer uint3_t (0..7) with { variant "unsigned 3 bit" }; |
| 16 | type integer uint4_t (0..15) with { variant "unsigned 4 bit" }; |
| 17 | type integer uint5_t (0..31) with { variant "unsigned 5 bit" }; |
| 18 | type integer uint6_t (0..63) with { variant "unsigned 6 bit" }; |
| 19 | type integer uint7_t (0..127) with { variant "unsigned 7 bit" }; |
Harald Welte | 615bd54 | 2017-07-14 18:28:55 +0200 | [diff] [blame] | 20 | type integer uint9_t (0..511) with { variant "unsigned 9 bit" }; |
| 21 | type integer uint10_t (0..1023) with { variant "unsigned 10 bit" }; |
| 22 | type integer uint11_t (0..2047) with { variant "unsigned 11 bit" }; |
| 23 | type integer uint12_t (0..4095) with { variant "unsigned 12 bit" }; |
Harald Welte | ddeaa57 | 2017-07-14 18:58:07 +0200 | [diff] [blame] | 24 | type integer uint13_t (0..8191) with { variant "unsigned 13 bit" }; |
| 25 | type integer uint14_t (0..16383) with { variant "unsigned 14 bit" }; |
| 26 | type integer uint15_t (0..32767) with { variant "unsigned 15 bit" }; |
| 27 | |
| 28 | type record Arfcn { |
| 29 | boolean pcs, |
| 30 | uint15_t arfcn |
| 31 | } with { variant "" }; |
| 32 | |
Harald Welte | 9182704 | 2018-01-25 09:20:04 +0100 | [diff] [blame] | 33 | /* return random integer between 0 and max */ |
| 34 | function f_rnd_int(integer max) return integer { |
| 35 | return float2int(rnd()*int2float(max)); |
| 36 | } |
| 37 | |
| 38 | /* return hexstring composed of random digits */ |
| 39 | function f_rnd_hexstring(in integer len, in integer max := 15) return hexstring { |
| 40 | var integer i; |
| 41 | var hexstring ret := ''H; |
| 42 | for (i := 0; i < len; i := i + 1) { |
| 43 | ret := ret & int2hex(f_rnd_int(max), 1); |
| 44 | } |
| 45 | return ret; |
| 46 | } |
| 47 | |
| 48 | /* return octetstring composed of random bytes */ |
| 49 | function f_rnd_octstring(in integer len) return octetstring { |
| 50 | var integer i; |
| 51 | var octetstring ret := ''O; |
| 52 | for (i := 0; i < len; i := i + 1) { |
| 53 | ret := ret & int2oct(f_rnd_int(255), 1); |
| 54 | } |
| 55 | return ret; |
| 56 | } |
| 57 | |
| 58 | function f_rnd_imsi(in hexstring prefix) return hexstring { |
| 59 | return prefix & f_rnd_hexstring(15 - lengthof(prefix), 9); |
| 60 | } |
| 61 | |
| 62 | function f_rnd_msisdn(in octetstring prefix, integer len := 6) return octetstring { |
| 63 | return prefix & f_rnd_octstring(len - lengthof(prefix)); |
| 64 | } |
| 65 | |
Harald Welte | c2461d6 | 2018-01-26 18:55:00 +0100 | [diff] [blame] | 66 | function f_sleep(float seconds) { |
| 67 | timer T := seconds; |
| 68 | T.start; |
| 69 | T.timeout; |
| 70 | } |
| 71 | |
Harald Welte | c7adaa7 | 2018-02-15 20:40:36 +0100 | [diff] [blame] | 72 | function bool2bit(boolean inp) return BIT1 { |
| 73 | if (inp) { |
| 74 | return '1'B; |
| 75 | } else { |
| 76 | return '0'B; |
| 77 | } |
| 78 | } |
| 79 | |
| 80 | function bool2bit_tmpl(template boolean inp) return template BIT1 { |
| 81 | if (istemplatekind(inp, "omit")) { |
| 82 | return omit; |
| 83 | } else if (istemplatekind(inp, "*")) { |
| 84 | return *; |
| 85 | } else if (istemplatekind(inp, "?")) { |
Harald Welte | b596c18 | 2018-02-16 18:12:59 +0100 | [diff] [blame] | 86 | return ?; |
Harald Welte | c7adaa7 | 2018-02-15 20:40:36 +0100 | [diff] [blame] | 87 | } else { |
| 88 | if (valueof(inp)) { |
| 89 | return '1'B; |
| 90 | } else { |
| 91 | return '0'B; |
| 92 | } |
| 93 | } |
Harald Welte | ccda45e | 2018-02-16 18:13:16 +0100 | [diff] [blame] | 94 | setverdict(fail, "Unsupported template", inp); |
Harald Welte | c7adaa7 | 2018-02-15 20:40:36 +0100 | [diff] [blame] | 95 | self.stop; |
| 96 | } |
| 97 | |
| 98 | |
Harald Welte | 615bd54 | 2017-07-14 18:28:55 +0200 | [diff] [blame] | 99 | } with { encode "RAW"; variant "FIELDORDER(msb)" } |