Harald Welte | 59b0468 | 2009-06-10 05:40:52 +0800 | [diff] [blame] | 1 | /* OpenBSC Abis interface to E1 */ |
| 2 | |
| 3 | /* (C) 2008-2009 by Harald Welte <laforge@gnumonks.org> |
| 4 | * |
| 5 | * All Rights Reserved |
| 6 | * |
| 7 | * This program is free software; you can redistribute it and/or modify |
| 8 | * it under the terms of the GNU General Public License as published by |
| 9 | * the Free Software Foundation; either version 2 of the License, or |
| 10 | * (at your option) any later version. |
| 11 | * |
| 12 | * This program is distributed in the hope that it will be useful, |
| 13 | * but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 14 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 15 | * GNU General Public License for more details. |
| 16 | * |
| 17 | * You should have received a copy of the GNU General Public License along |
| 18 | * with this program; if not, write to the Free Software Foundation, Inc., |
| 19 | * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
| 20 | * |
| 21 | */ |
| 22 | |
| 23 | #include <stdio.h> |
| 24 | #include <unistd.h> |
| 25 | #include <stdlib.h> |
| 26 | #include <errno.h> |
| 27 | #include <string.h> |
| 28 | #include <time.h> |
| 29 | #include <sys/fcntl.h> |
| 30 | #include <sys/types.h> |
| 31 | #include <sys/socket.h> |
| 32 | #include <sys/ioctl.h> |
| 33 | #include <arpa/inet.h> |
| 34 | #include <mISDNif.h> |
| 35 | |
| 36 | //#define AF_COMPATIBILITY_FUNC |
| 37 | //#include <compat_af_isdn.h> |
| 38 | #ifndef AF_ISDN |
| 39 | #define AF_ISDN 34 |
| 40 | #define PF_ISDN AF_ISDN |
| 41 | #endif |
| 42 | |
| 43 | #include <openbsc/select.h> |
| 44 | #include <openbsc/msgb.h> |
| 45 | #include <openbsc/debug.h> |
| 46 | #include <openbsc/gsm_data.h> |
| 47 | #include <openbsc/e1_input.h> |
| 48 | #include <openbsc/abis_nm.h> |
| 49 | #include <openbsc/abis_rsl.h> |
| 50 | #include <openbsc/linuxlist.h> |
| 51 | #include <openbsc/subchan_demux.h> |
| 52 | #include <openbsc/trau_frame.h> |
| 53 | #include <openbsc/trau_mux.h> |
Harald Welte | a837977 | 2009-06-20 22:36:41 +0200 | [diff] [blame] | 54 | #include <openbsc/talloc.h> |
Harald Welte | 59b0468 | 2009-06-10 05:40:52 +0800 | [diff] [blame] | 55 | |
| 56 | #define NUM_E1_TS 32 |
| 57 | |
| 58 | /* list of all E1 drivers */ |
| 59 | LLIST_HEAD(e1inp_driver_list); |
| 60 | |
| 61 | /* list of all E1 lines */ |
| 62 | LLIST_HEAD(e1inp_line_list); |
| 63 | |
Harald Welte | a837977 | 2009-06-20 22:36:41 +0200 | [diff] [blame] | 64 | static void *tall_sigl_ctx; |
| 65 | |
Harald Welte | 59b0468 | 2009-06-10 05:40:52 +0800 | [diff] [blame] | 66 | /* to be implemented, e.g. by bsc_hack.c */ |
| 67 | void input_event(int event, enum e1inp_sign_type type, struct gsm_bts_trx *trx); |
| 68 | |
| 69 | /* |
| 70 | * pcap writing of the misdn load |
| 71 | * pcap format is from http://wiki.wireshark.org/Development/LibpcapFileFormat |
| 72 | */ |
| 73 | #define DLT_LINUX_LAPD 177 |
| 74 | #define PCAP_INPUT 0 |
| 75 | #define PCAP_OUTPUT 1 |
| 76 | |
| 77 | struct pcap_hdr { |
| 78 | u_int32_t magic_number; |
| 79 | u_int16_t version_major; |
| 80 | u_int16_t version_minor; |
| 81 | int32_t thiszone; |
| 82 | u_int32_t sigfigs; |
| 83 | u_int32_t snaplen; |
| 84 | u_int32_t network; |
| 85 | } __attribute__((packed)); |
| 86 | |
| 87 | struct pcaprec_hdr { |
| 88 | u_int32_t ts_sec; |
| 89 | u_int32_t ts_usec; |
| 90 | u_int32_t incl_len; |
| 91 | u_int32_t orig_len; |
| 92 | } __attribute__((packed)); |
| 93 | |
| 94 | struct fake_linux_lapd_header { |
| 95 | u_int16_t pkttype; |
| 96 | u_int16_t hatype; |
| 97 | u_int16_t halen; |
| 98 | u_int64_t addr; |
| 99 | int16_t protocol; |
| 100 | } __attribute__((packed)); |
| 101 | |
| 102 | struct lapd_header { |
| 103 | u_int8_t ea1 : 1; |
| 104 | u_int8_t cr : 1; |
| 105 | u_int8_t sapi : 6; |
| 106 | u_int8_t ea2 : 1; |
| 107 | u_int8_t tei : 7; |
| 108 | u_int8_t control_foo; /* fake UM's ... */ |
| 109 | } __attribute__((packed)); |
| 110 | |
| 111 | static_assert((int)&((struct fake_linux_lapd_header*)NULL)->hatype == 2, hatype_offset); |
| 112 | static_assert((int)&((struct fake_linux_lapd_header*)NULL)->halen == 4, halen_offset); |
| 113 | static_assert((int)&((struct fake_linux_lapd_header*)NULL)->addr == 6, addr_offset); |
| 114 | static_assert((int)&((struct fake_linux_lapd_header*)NULL)->protocol == 14, proto_offset); |
| 115 | static_assert(sizeof(struct fake_linux_lapd_header) == 16, lapd_header_size); |
| 116 | |
| 117 | |
| 118 | static int pcap_fd = -1; |
| 119 | |
| 120 | void e1_set_pcap_fd(int fd) |
| 121 | { |
| 122 | int ret; |
| 123 | struct pcap_hdr header = { |
| 124 | .magic_number = 0xa1b2c3d4, |
| 125 | .version_major = 2, |
| 126 | .version_minor = 4, |
| 127 | .thiszone = 0, |
| 128 | .sigfigs = 0, |
| 129 | .snaplen = 65535, |
| 130 | .network = DLT_LINUX_LAPD, |
| 131 | }; |
| 132 | |
| 133 | pcap_fd = fd; |
| 134 | ret = write(pcap_fd, &header, sizeof(header)); |
| 135 | } |
| 136 | |
| 137 | /* This currently only works for the D-Channel */ |
| 138 | static void write_pcap_packet(int direction, int sapi, int tei, |
| 139 | struct msgb *msg) { |
| 140 | if (pcap_fd < 0) |
| 141 | return; |
| 142 | |
| 143 | int ret; |
| 144 | time_t cur_time; |
| 145 | struct tm *tm; |
Andreas Eversberg | b5a3e41 | 2009-06-10 14:47:33 +0200 | [diff] [blame] | 146 | int mi_head = (direction==PCAP_INPUT) ? MISDN_HEADER_LEN : 0; |
Harald Welte | 59b0468 | 2009-06-10 05:40:52 +0800 | [diff] [blame] | 147 | |
| 148 | struct fake_linux_lapd_header header = { |
| 149 | .pkttype = 4, |
| 150 | .hatype = 0, |
| 151 | .halen = 0, |
| 152 | .addr = direction == PCAP_OUTPUT ? 0x0 : 0x1, |
| 153 | .protocol = ntohs(48), |
| 154 | }; |
| 155 | |
| 156 | struct lapd_header lapd_header = { |
| 157 | .ea1 = 0, |
| 158 | .cr = direction == PCAP_OUTPUT ? 1 : 0, |
| 159 | .sapi = sapi & 0x3F, |
| 160 | .ea2 = 1, |
| 161 | .tei = tei & 0x7F, |
| 162 | .control_foo = 0x03 /* UI */, |
| 163 | }; |
| 164 | |
| 165 | struct pcaprec_hdr payload_header = { |
| 166 | .ts_sec = 0, |
| 167 | .ts_usec = 0, |
| 168 | .incl_len = msg->len + sizeof(struct fake_linux_lapd_header) |
| 169 | + sizeof(struct lapd_header) |
Andreas Eversberg | b5a3e41 | 2009-06-10 14:47:33 +0200 | [diff] [blame] | 170 | - mi_head, |
Harald Welte | 59b0468 | 2009-06-10 05:40:52 +0800 | [diff] [blame] | 171 | .orig_len = msg->len + sizeof(struct fake_linux_lapd_header) |
| 172 | + sizeof(struct lapd_header) |
Andreas Eversberg | b5a3e41 | 2009-06-10 14:47:33 +0200 | [diff] [blame] | 173 | - mi_head, |
Harald Welte | 59b0468 | 2009-06-10 05:40:52 +0800 | [diff] [blame] | 174 | }; |
| 175 | |
| 176 | |
Andreas Eversberg | b5a3e41 | 2009-06-10 14:47:33 +0200 | [diff] [blame] | 177 | printf("Packet of: %d\n", direction); |
| 178 | |
Harald Welte | 59b0468 | 2009-06-10 05:40:52 +0800 | [diff] [blame] | 179 | cur_time = time(NULL); |
| 180 | tm = localtime(&cur_time); |
| 181 | payload_header.ts_sec = mktime(tm); |
| 182 | |
| 183 | ret = write(pcap_fd, &payload_header, sizeof(payload_header)); |
| 184 | ret = write(pcap_fd, &header, sizeof(header)); |
| 185 | ret = write(pcap_fd, &lapd_header, sizeof(lapd_header)); |
Andreas Eversberg | b5a3e41 | 2009-06-10 14:47:33 +0200 | [diff] [blame] | 186 | ret = write(pcap_fd, msg->data + mi_head, |
| 187 | msg->len - mi_head); |
Harald Welte | 59b0468 | 2009-06-10 05:40:52 +0800 | [diff] [blame] | 188 | } |
| 189 | |
| 190 | static const char *sign_types[] = { |
| 191 | [E1INP_SIGN_NONE] = "None", |
| 192 | [E1INP_SIGN_OML] = "OML", |
| 193 | [E1INP_SIGN_RSL] = "RSL", |
| 194 | }; |
| 195 | const char *e1inp_signtype_name(enum e1inp_sign_type tp) |
| 196 | { |
| 197 | if (tp >= ARRAY_SIZE(sign_types)) |
| 198 | return "undefined"; |
| 199 | return sign_types[tp]; |
| 200 | } |
| 201 | |
| 202 | static const char *ts_types[] = { |
| 203 | [E1INP_TS_TYPE_NONE] = "None", |
| 204 | [E1INP_TS_TYPE_SIGN] = "Signalling", |
| 205 | [E1INP_TS_TYPE_TRAU] = "TRAU", |
| 206 | }; |
| 207 | |
| 208 | const char *e1inp_tstype_name(enum e1inp_ts_type tp) |
| 209 | { |
| 210 | if (tp >= ARRAY_SIZE(ts_types)) |
| 211 | return "undefined"; |
| 212 | return ts_types[tp]; |
| 213 | } |
| 214 | |
| 215 | /* callback when a TRAU frame was received */ |
| 216 | static int subch_cb(struct subch_demux *dmx, int ch, u_int8_t *data, int len, |
| 217 | void *_priv) |
| 218 | { |
| 219 | struct e1inp_ts *e1i_ts = _priv; |
| 220 | struct gsm_e1_subslot src_ss; |
| 221 | |
| 222 | src_ss.e1_nr = e1i_ts->line->num; |
| 223 | src_ss.e1_ts = e1i_ts->num; |
| 224 | src_ss.e1_ts_ss = ch; |
| 225 | |
| 226 | return trau_mux_input(&src_ss, data, len); |
| 227 | } |
| 228 | |
| 229 | int abis_rsl_sendmsg(struct msgb *msg) |
| 230 | { |
| 231 | struct e1inp_sign_link *sign_link; |
| 232 | struct e1inp_driver *e1inp_driver; |
| 233 | struct e1inp_ts *e1i_ts; |
| 234 | |
| 235 | msg->l2h = msg->data; |
| 236 | |
| 237 | if (!msg->trx || !msg->trx->rsl_link) { |
| 238 | fprintf(stderr, "rsl_sendmsg: msg->trx == NULL\n"); |
| 239 | return -EINVAL; |
| 240 | } |
| 241 | |
| 242 | sign_link = msg->trx->rsl_link; |
| 243 | e1i_ts = sign_link->ts; |
| 244 | if (!bsc_timer_pending(&e1i_ts->sign.tx_timer)) { |
| 245 | /* notify the driver we have something to write */ |
| 246 | e1inp_driver = sign_link->ts->line->driver; |
| 247 | e1inp_driver->want_write(e1i_ts); |
| 248 | } |
| 249 | msgb_enqueue(&sign_link->tx_list, msg); |
| 250 | |
| 251 | /* dump it */ |
| 252 | write_pcap_packet(PCAP_OUTPUT, sign_link->sapi, sign_link->tei, msg); |
| 253 | |
| 254 | return 0; |
| 255 | } |
| 256 | |
| 257 | int _abis_nm_sendmsg(struct msgb *msg) |
| 258 | { |
| 259 | struct e1inp_sign_link *sign_link; |
| 260 | struct e1inp_driver *e1inp_driver; |
| 261 | struct e1inp_ts *e1i_ts; |
| 262 | |
| 263 | msg->l2h = msg->data; |
| 264 | |
| 265 | if (!msg->trx || !msg->trx->bts || !msg->trx->bts->oml_link) { |
| 266 | fprintf(stderr, "nm_sendmsg: msg->trx == NULL\n"); |
| 267 | return -EINVAL; |
| 268 | } |
| 269 | |
| 270 | sign_link = msg->trx->bts->oml_link; |
| 271 | e1i_ts = sign_link->ts; |
| 272 | if (!bsc_timer_pending(&e1i_ts->sign.tx_timer)) { |
| 273 | /* notify the driver we have something to write */ |
| 274 | e1inp_driver = sign_link->ts->line->driver; |
| 275 | e1inp_driver->want_write(e1i_ts); |
| 276 | } |
| 277 | msgb_enqueue(&sign_link->tx_list, msg); |
| 278 | |
| 279 | /* dump it */ |
| 280 | write_pcap_packet(PCAP_OUTPUT, sign_link->sapi, sign_link->tei, msg); |
| 281 | |
| 282 | return 0; |
| 283 | } |
| 284 | |
| 285 | /* Timeslot */ |
| 286 | |
| 287 | /* configure and initialize one e1inp_ts */ |
| 288 | int e1inp_ts_config(struct e1inp_ts *ts, struct e1inp_line *line, |
| 289 | enum e1inp_ts_type type) |
| 290 | { |
| 291 | ts->type = type; |
| 292 | ts->line = line; |
| 293 | |
| 294 | switch (type) { |
| 295 | case E1INP_TS_TYPE_SIGN: |
| 296 | INIT_LLIST_HEAD(&ts->sign.sign_links); |
| 297 | break; |
| 298 | case E1INP_TS_TYPE_TRAU: |
| 299 | subchan_mux_init(&ts->trau.mux); |
| 300 | ts->trau.demux.out_cb = subch_cb; |
| 301 | ts->trau.demux.data = ts; |
| 302 | subch_demux_init(&ts->trau.demux); |
| 303 | break; |
| 304 | default: |
| 305 | fprintf(stderr, "unsupported E1 timeslot type %u\n", |
| 306 | ts->type); |
| 307 | return -EINVAL; |
| 308 | } |
| 309 | return 0; |
| 310 | } |
| 311 | |
| 312 | static struct e1inp_line *e1inp_line_get(u_int8_t e1_nr) |
| 313 | { |
| 314 | struct e1inp_line *e1i_line; |
| 315 | |
| 316 | /* iterate over global list of e1 lines */ |
| 317 | llist_for_each_entry(e1i_line, &e1inp_line_list, list) { |
| 318 | if (e1i_line->num == e1_nr) |
| 319 | return e1i_line; |
| 320 | } |
| 321 | return NULL; |
| 322 | } |
| 323 | |
| 324 | static struct e1inp_ts *e1inp_ts_get(u_int8_t e1_nr, u_int8_t ts_nr) |
| 325 | { |
| 326 | struct e1inp_line *e1i_line; |
| 327 | |
| 328 | e1i_line = e1inp_line_get(e1_nr); |
| 329 | if (!e1i_line) |
| 330 | return NULL; |
| 331 | |
| 332 | return &e1i_line->ts[ts_nr-1]; |
| 333 | } |
| 334 | |
| 335 | struct subch_mux *e1inp_get_mux(u_int8_t e1_nr, u_int8_t ts_nr) |
| 336 | { |
| 337 | struct e1inp_ts *e1i_ts = e1inp_ts_get(e1_nr, ts_nr); |
| 338 | |
| 339 | if (!e1i_ts) |
| 340 | return NULL; |
| 341 | |
| 342 | return &e1i_ts->trau.mux; |
| 343 | } |
| 344 | |
| 345 | /* Signalling Link */ |
| 346 | |
| 347 | struct e1inp_sign_link *e1inp_lookup_sign_link(struct e1inp_ts *e1i, |
| 348 | u_int8_t tei, u_int8_t sapi) |
| 349 | { |
| 350 | struct e1inp_sign_link *link; |
| 351 | |
| 352 | llist_for_each_entry(link, &e1i->sign.sign_links, list) { |
| 353 | if (link->sapi == sapi && link->tei == tei) |
| 354 | return link; |
| 355 | } |
| 356 | |
| 357 | return NULL; |
| 358 | } |
| 359 | |
| 360 | /* create a new signalling link in a E1 timeslot */ |
| 361 | |
| 362 | struct e1inp_sign_link * |
| 363 | e1inp_sign_link_create(struct e1inp_ts *ts, enum e1inp_sign_type type, |
| 364 | struct gsm_bts_trx *trx, u_int8_t tei, |
| 365 | u_int8_t sapi) |
| 366 | { |
| 367 | struct e1inp_sign_link *link; |
| 368 | |
| 369 | if (ts->type != E1INP_TS_TYPE_SIGN) |
| 370 | return NULL; |
| 371 | |
Harald Welte | a837977 | 2009-06-20 22:36:41 +0200 | [diff] [blame] | 372 | if (!tall_sigl_ctx) |
| 373 | tall_sigl_ctx = talloc_named_const(tall_bsc_ctx, 1, |
| 374 | "e1inp_sign_link"); |
| 375 | |
| 376 | link = talloc(tall_sigl_ctx, struct e1inp_sign_link); |
Harald Welte | 59b0468 | 2009-06-10 05:40:52 +0800 | [diff] [blame] | 377 | if (!link) |
| 378 | return NULL; |
| 379 | |
| 380 | memset(link, 0, sizeof(*link)); |
| 381 | |
| 382 | link->ts = ts; |
| 383 | link->type = type; |
| 384 | INIT_LLIST_HEAD(&link->tx_list); |
| 385 | link->trx = trx; |
| 386 | link->tei = tei; |
| 387 | link->sapi = sapi; |
| 388 | |
| 389 | llist_add_tail(&link->list, &ts->sign.sign_links); |
| 390 | |
| 391 | return link; |
| 392 | } |
| 393 | |
| 394 | /* the E1 driver tells us he has received something on a TS */ |
| 395 | int e1inp_rx_ts(struct e1inp_ts *ts, struct msgb *msg, |
| 396 | u_int8_t tei, u_int8_t sapi) |
| 397 | { |
| 398 | struct e1inp_sign_link *link; |
| 399 | int ret; |
| 400 | |
| 401 | switch (ts->type) { |
| 402 | case E1INP_TS_TYPE_SIGN: |
| 403 | /* consult the list of signalling links */ |
| 404 | write_pcap_packet(PCAP_INPUT, sapi, tei, msg); |
| 405 | link = e1inp_lookup_sign_link(ts, tei, sapi); |
| 406 | if (!link) { |
| 407 | fprintf(stderr, "didn't find singalling link for " |
| 408 | "tei %d, sapi %d\n", tei, sapi); |
| 409 | return -EINVAL; |
| 410 | } |
| 411 | switch (link->type) { |
| 412 | case E1INP_SIGN_OML: |
| 413 | msg->trx = link->trx; |
| 414 | ret = abis_nm_rcvmsg(msg); |
| 415 | break; |
| 416 | case E1INP_SIGN_RSL: |
| 417 | msg->trx = link->trx; |
| 418 | ret = abis_rsl_rcvmsg(msg); |
| 419 | break; |
| 420 | default: |
| 421 | ret = -EINVAL; |
| 422 | fprintf(stderr, "unknown link type %u\n", link->type); |
| 423 | break; |
| 424 | } |
| 425 | break; |
| 426 | case E1INP_TS_TYPE_TRAU: |
| 427 | ret = subch_demux_in(&ts->trau.demux, msg->l2h, msgb_l2len(msg)); |
| 428 | break; |
| 429 | default: |
| 430 | ret = -EINVAL; |
| 431 | fprintf(stderr, "unknown TS type %u\n", ts->type); |
| 432 | break; |
| 433 | } |
| 434 | |
| 435 | return ret; |
| 436 | } |
| 437 | |
| 438 | #define TSX_ALLOC_SIZE 4096 |
| 439 | |
| 440 | /* called by driver if it wants to transmit on a given TS */ |
| 441 | struct msgb *e1inp_tx_ts(struct e1inp_ts *e1i_ts, |
| 442 | struct e1inp_sign_link **sign_link) |
| 443 | { |
| 444 | struct e1inp_sign_link *link; |
| 445 | struct msgb *msg = NULL; |
| 446 | int len; |
| 447 | |
| 448 | switch (e1i_ts->type) { |
| 449 | case E1INP_TS_TYPE_SIGN: |
| 450 | /* FIXME: implement this round robin */ |
| 451 | llist_for_each_entry(link, &e1i_ts->sign.sign_links, list) { |
| 452 | msg = msgb_dequeue(&link->tx_list); |
| 453 | if (msg) { |
| 454 | if (sign_link) |
| 455 | *sign_link = link; |
| 456 | break; |
| 457 | } |
| 458 | } |
| 459 | break; |
| 460 | case E1INP_TS_TYPE_TRAU: |
| 461 | msg = msgb_alloc(TSX_ALLOC_SIZE); |
| 462 | if (!msg) |
| 463 | return NULL; |
| 464 | len = subchan_mux_out(&e1i_ts->trau.mux, msg->data, 40); |
| 465 | msgb_put(msg, 40); |
| 466 | break; |
| 467 | default: |
| 468 | fprintf(stderr, "unsupported E1 TS type %u\n", e1i_ts->type); |
| 469 | return NULL; |
| 470 | } |
| 471 | return msg; |
| 472 | } |
| 473 | |
| 474 | /* called by driver in case some kind of link state event */ |
| 475 | int e1inp_event(struct e1inp_ts *ts, int evt, u_int8_t tei, u_int8_t sapi) |
| 476 | { |
| 477 | struct e1inp_sign_link *link; |
| 478 | |
| 479 | link = e1inp_lookup_sign_link(ts, tei, sapi); |
| 480 | if (!link) |
| 481 | return -EINVAL; |
| 482 | |
| 483 | /* FIXME: report further upwards */ |
| 484 | input_event(evt, link->type, link->trx); |
| 485 | return 0; |
| 486 | } |
| 487 | |
| 488 | /* register a driver with the E1 core */ |
| 489 | int e1inp_driver_register(struct e1inp_driver *drv) |
| 490 | { |
| 491 | llist_add_tail(&drv->list, &e1inp_driver_list); |
| 492 | return 0; |
| 493 | } |
| 494 | |
| 495 | /* register a line with the E1 core */ |
| 496 | int e1inp_line_register(struct e1inp_line *line) |
| 497 | { |
| 498 | int i; |
| 499 | |
| 500 | for (i = 0; i < NUM_E1_TS; i++) { |
| 501 | line->ts[i].num = i+1; |
| 502 | line->ts[i].line = line; |
| 503 | } |
| 504 | |
| 505 | llist_add_tail(&line->list, &e1inp_line_list); |
| 506 | |
| 507 | return 0; |
| 508 | } |