1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
module IPA_Types {
/* Definitions of abstract data types for the IPA multiplex protocol.
* Uses the TITAN "RAW" codec syntax to auto-generate encoder and decoder
* functions.
*
* (C) 2017-2018 by Harald Welte <laforge@gnumonks.org>
* All rights reserved.
*
* Released under the terms of GNU General Public License, Version 2 or
* (at your option) any later version.
*
* SPDX-License-Identifier: GPL-2.0-or-later
*/
import from Osmocom_Types all;
type enumerated IpaStreamId {
IPAC_PROTO_RSL_TRX0 (0),
IPAC_PROTO_RSL_TRX1 (1),
IPAC_PROTO_RSL_TRX2 (2),
IPAC_PROTO_RSL_TRX3 (3),
IPAC_PROTO_OSMO (238),
IPAC_PROTO_MGCP_OLD (252),
IPAC_PROTO_SCCP (253),
IPAC_PROTO_CCM (254),
IPAC_PROTO_OML (255)
} with { variant "FIELDLENGTH(8)" }
type enumerated IpaExtStreamId {
IPAC_PROTO_EXT_CTRL ('00'H),
IPAC_PROTO_EXT_MGCP ('01'H),
IPAC_PROTO_EXT_LAC ('02'H),
IPAC_PROTO_EXT_SMSC ('03'H),
IPAC_PROTO_EXT_ORC ('04'H),
IPAC_PROTO_EXT_GSUP ('05'H),
IPAC_PROTO_EXT_OAP ('06'H),
IPAC_PROTO_EXT_RSPRO ('07'H),
IPAC_PROTO_EXT_OSMO_PCU ('08'H)
} with { variant "FIELDLENGTH(8)" }
external function enc_PDU_IPA(in PDU_IPA pdu) return octetstring
with { extension "prototype(convert)"
extension "encode(RAW)"
}
external function dec_PDU_IPA(in octetstring stream) return PDU_IPA
with { extension "prototype(convert)"
extension "decode(RAW)"
}
type record PDU_IPA
{
uint16_t lengthInd,
IpaStreamId streamId,
IpaExtStreamId streamIdExt optional,
octetstring payloadData
} with {
variant (lengthInd) "LENGTHTO(streamIdExt,payloadData)";
variant (lengthInd) "FIELDLENGTH(16)";
variant (lengthInd) "BYTEORDER(last)";
variant (streamIdExt) "PRESENCE(streamId=IPAC_PROTO_OSMO)";
}
template PDU_IPA ts_PDU_IPA(IpaStreamId id, template octetstring payload) := {
lengthInd := 0,
streamId := id,
streamIdExt := omit,
payloadData := valueof(payload)
}
type enumerated IpaCcmMsgtype {
IPAC_MSGT_PING ('00'H),
IPAC_MSGT_PONG ('01'H),
IPAC_MSGT_ID_GET ('04'H),
IPAC_MSGT_ID_RESP ('05'H),
IPAC_MSGT_ID_ACK ('06'H)
} with { variant "FIELDLENGTH(8)" }
type enumerated IpaCcmIdTag {
IPAC_IDTAG_SERNR ('00'H),
IPAC_IDTAG_UNITNAME ('01'H),
IPAC_IDTAG_LOCATION1 ('02'H),
IPAC_IDTAG_LOCATION2 ('03'H),
IPAC_IDTAG_EQUIPVERS ('04'H),
IPAC_IDTAG_SWVERSION ('05'H),
IPAC_IDTAG_IPADDR ('06'H),
IPAC_IDTAG_MACADDR ('07'H),
IPAC_IDTAG_UNITID ('08'H),
IPAC_IDTAG_OSMO_RAND ('23'H)
} with { variant "FIELDLENGTH(8)" }
type record IpaCcmGetPart {
uint8_t len,
IpaCcmIdTag tag
} with { variant (len) "LENGTHTO(tag)" }
type set of IpaCcmGetPart IpaCcmIdGet;
type record IpaCcmRespPart {
uint16_t len,
IpaCcmIdTag tag,
octetstring data
} with { variant (len) "LENGTHTO(data,tag)" }
type set of IpaCcmRespPart IpaCcmIdResp;
type union IpaCcmUnion {
IpaCcmIdGet get,
IpaCcmIdResp resp,
octetstring other
}
type record PDU_IPA_CCM {
IpaCcmMsgtype msg_type,
IpaCcmUnion u optional
} with { variant (u) "CROSSTAG(
get, msg_type = IPAC_MSGT_ID_GET;
resp, msg_type = IPAC_MSGT_ID_RESP;
other, OTHERWISE;
)" };
external function enc_PDU_IPA_CCM(in PDU_IPA_CCM pdu) return octetstring
with { extension "prototype(convert)"
extension "encode(RAW)"
}
external function dec_PDU_IPA_CCM(in octetstring stream) return PDU_IPA_CCM
with { extension "prototype(convert)"
extension "decode(RAW)"
}
/* Finds an IE with the given tag in IPA IDENTITY RESPONSE.
* Returns index of an IE if found, -1 otherwise. */
function f_ipa_id_resp_find_ie(in IpaCcmIdResp resp, IpaCcmIdTag tag)
return integer {
for (var integer i := 0; i < sizeof(resp); i := i + 1) {
if (resp[i].tag == tag) {
return i;
}
}
return -1;
}
} with { encode "RAW" }
|
