/*! \file gsm48_ie.c * GSM Mobile Radio Interface Layer 3 messages. * 3GPP TS 04.08 version 7.21.0 Release 1998 / ETSI TS 100 940 V7.21.0. */ /* * (C) 2008 by Harald Welte * (C) 2009-2010 by Andreas Eversberg * * All Rights Reserved * * SPDX-License-Identifier: GPL-2.0+ * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License along * with this program; if not, write to the Free Software Foundation, Inc., * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. * */ #include #include #include #include #include #include #include #include #include /*! \addtogroup gsm0408 * @{ */ static const char bcd_num_digits[] = { '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '*', '#', 'a', 'b', 'c', '\0' }; /*! Like gsm48_decode_bcd_number2() but with less airtight bounds checking. * \param[out] Caller-provided output buffer * \param[in] bcd_lv Length-Value portion of to-be-decoded IE * \param[in] h_len Length of an optional heder between L and V portion * \returns - in case of success; negative on error */ int gsm48_decode_bcd_number(char *output, int output_len, const uint8_t *bcd_lv, int h_len) { uint8_t in_len = bcd_lv[0]; /* Just assume the input buffer is big enough for the length byte and the following data, so pass in_len + 1 for * the input buffer size. */ return gsm48_decode_bcd_number2(output, output_len, bcd_lv, in_len + 1, h_len); } /*! Decode a 'called/calling/connect party BCD number' as in 10.5.4.7. * \param[out] output Caller-provided output buffer. * \param[in] output_len sizeof(output). * \param[in] bcd_lv Length-Value part of to-be-decoded IE. * \param[in] input_len Size of the bcd_lv buffer for bounds checking. * \param[in] h_len Length of an optional header between L and V parts. * \return 0 in case of success, negative on error. * * Errors checked: * - no or too little input data (-EIO), * - IE length exceeds input data size (-EINVAL), * - no or too little output buffer size (-ENOSPC), * - decoded number exceeds size of the output buffer (-ENOSPC). * * The output is guaranteed to be nul terminated iff output_len > 0. */ int gsm48_decode_bcd_number2(char *output, size_t output_len, const uint8_t *bcd_lv, size_t input_len, size_t h_len) { uint8_t in_len; int i; if (output_len < 1) return -ENOSPC; *output = '\0'; if (input_len < 1) return -EIO; in_len = bcd_lv[0]; /* len + 1: the BCD length plus the length byte itself must fit in the input buffer. */ if (input_len < in_len + 1) return -EINVAL; for (i = 1 + h_len; i <= in_len; i++) { /* lower nibble */ if (output_len <= 1) break; *output++ = bcd_num_digits[bcd_lv[i] & 0xf]; output_len--; /* higher nibble */ if (output_len <= 1) break; *output++ = bcd_num_digits[bcd_lv[i] >> 4]; output_len--; } if (output_len >= 1) *output++ = '\0'; /* Indicate whether the output was truncated */ if (i < in_len) return -ENOSPC; return 0; } /*! convert a single ASCII character to call-control BCD */ static int asc_to_bcd(const char asc) { int i; for (i = 0; i < ARRAY_SIZE(bcd_num_digits); i++) { if (bcd_num_digits[i] == asc) return i; } return -EINVAL; } /*! convert a ASCII phone number to 'called/calling/connect party BCD number' * \param[out] bcd_lv Caller-provided output buffer * \param[in] max_len Maximum Length of \a bcd_lv * \param[in] h_len Length of an optional heder between L and V portion * \param[in] input phone number as 0-terminated ASCII * \returns number of bytes used in \a bcd_lv * * Depending on a context (e.g. called or calling party BCD number), the * optional header between L and V parts can contain TON (Type Of Number), * NPI (Numbering Plan Indication), presentation or screening indicator. * NOTE: it is up to the caller to initialize this header! */ int gsm48_encode_bcd_number(uint8_t *bcd_lv, uint8_t max_len, int h_len, const char *input) { int in_len = strlen(input); int i; uint8_t *bcd_cur = bcd_lv + 1 + h_len; /* two digits per byte, plus type byte */ bcd_lv[0] = in_len/2 + h_len; if (in_len % 2) bcd_lv[0]++; if (bcd_lv[0] > max_len) return -EIO; for (i = 0; i < in_len; i++) { int rc = asc_to_bcd(input[i]); if (rc < 0) return rc; if (i % 2 == 0) *bcd_cur = rc; else *bcd_cur++ |= (rc << 4); } /* append padding nibble in case of odd length */ if (i % 2) *bcd_cur++ |= 0xf0; /* return how many bytes we used */ return (bcd_cur - bcd_lv); } /*! Decode TS 04.08 Bearer Capability IE (10.5.4.5) * \param[out] Caller-provided memory for decoded output * \[aram[in] LV portion of TS 04.08 Bearer Capability * \returns 0 on success; negative on error */ int gsm48_decode_bearer_cap(struct gsm_mncc_bearer_cap *bcap, const uint8_t *lv) { uint8_t in_len = lv[0]; int i, s; if (in_len < 1) return -EINVAL; bcap->speech_ver[0] = -1; /* end of list, of maximum 7 values */ /* octet 3 */ bcap->transfer = lv[1] & 0x07; bcap->mode = (lv[1] & 0x08) >> 3; bcap->coding = (lv[1] & 0x10) >> 4; bcap->radio = (lv[1] & 0x60) >> 5; switch (bcap->transfer) { case GSM_MNCC_BCAP_SPEECH: i = 1; s = 0; while(!(lv[i] & 0x80)) { i++; /* octet 3a etc */ if (in_len < i) return 0; bcap->speech_ver[s++] = lv[i] & 0x0f; bcap->speech_ver[s] = -1; /* end of list */ if (i == 2) /* octet 3a */ bcap->speech_ctm = (lv[i] & 0x20) >> 5; if (s == 7) /* maximum speech versions + end of list */ return 0; } break; case GSM_MNCC_BCAP_UNR_DIG: case GSM_MNCC_BCAP_FAX_G3: i = 1; while(!(lv[i] & 0x80)) { i++; /* octet 3a etc */ if (in_len < i) return 0; /* ignore them */ } /* octet 4: skip */ i++; /* octet 5 */ i++; if (in_len < i) return 0; bcap->data.rate_adaption = (lv[i] >> 3) & 3; bcap->data.sig_access = lv[i] & 7; while(!(lv[i] & 0x80)) { i++; /* octet 5a etc */ if (in_len < i) return 0; /* ignore them */ } /* octet 6 */ i++; if (in_len < i) return 0; bcap->data.async = lv[i] & 1; if (!(lv[i] & 0x80)) { i++; if (in_len < i) return 0; /* octet 6a */ bcap->data.nr_stop_bits = ((lv[i] >> 7) & 1) + 1; if (lv[i] & 0x10) bcap->data.nr_data_bits = 8; else bcap->data.nr_data_bits = 7; bcap->data.user_rate = lv[i] & 0xf; if (!(lv[i] & 0x80)) { i++; if (in_len < i) return 0; /* octet 6b */ bcap->data.parity = lv[i] & 7; bcap->data.interm_rate = (lv[i] >> 5) & 3; /* octet 6c */ if (!(lv[i] & 0x80)) { i++; if (in_len < i) return 0; bcap->data.transp = (lv[i] >> 5) & 3; bcap->data.modem_type = lv[i] & 0x1F; } } } break; default: i = 1; while (!(lv[i] & 0x80)) { i++; /* octet 3a etc */ if (in_len < i) return 0; /* ignore them */ } /* FIXME: implement OCTET 4+ parsing */ break; } return 0; } /*! Encode TS 04.08 Bearer Capability IE (10.5.4.5) * \param[out] msg Message Buffer to which IE is to be appended * \param[in] lv_only Write only LV portion (1) or TLV (0) * \param[in] bcap Decoded Bearer Capability to be encoded * \returns 0 on success; negative on error */ int gsm48_encode_bearer_cap(struct msgb *msg, int lv_only, const struct gsm_mncc_bearer_cap *bcap) { uint8_t lv[32 + 1]; int i = 1, s; lv[1] = bcap->transfer; lv[1] |= bcap->mode << 3; lv[1] |= bcap->coding << 4; lv[1] |= bcap->radio << 5; switch (bcap->transfer) { case GSM_MNCC_BCAP_SPEECH: for (s = 0; bcap->speech_ver[s] >= 0; s++) { i++; /* octet 3a etc */ lv[i] = bcap->speech_ver[s]; if (i == 2) /* octet 3a */ lv[i] |= bcap->speech_ctm << 5; } lv[i] |= 0x80; /* last IE of octet 3 etc */ break; case GSM48_BCAP_ITCAP_UNR_DIG_INF: case GSM48_BCAP_ITCAP_FAX_G3: lv[i++] |= 0x80; /* last IE of octet 3 etc */ /* octet 4 */ lv[i++] = 0xb8; /* octet 5 */ lv[i++] = 0x80 | ((bcap->data.rate_adaption & 3) << 3) | (bcap->data.sig_access & 7); /* octet 6 */ lv[i++] = 0x20 | (bcap->data.async & 1); /* octet 6a */ lv[i++] = (bcap->data.user_rate & 0xf) | (bcap->data.nr_data_bits == 8 ? 0x10 : 0x00) | (bcap->data.nr_stop_bits == 2 ? 0x40 : 0x00); /* octet 6b */ lv[i++] = (bcap->data.parity & 7) | ((bcap->data.interm_rate & 3) << 5); /* octet 6c */ lv[i] = 0x80 | (bcap->data.modem_type & 0x1f); break; default: return -EINVAL; } lv[0] = i; if (lv_only) msgb_lv_put(msg, lv[0], lv+1); else msgb_tlv_put(msg, GSM48_IE_BEARER_CAP, lv[0], lv+1); return 0; } /*! Decode TS 04.08 Call Control Capabilities IE (10.5.4.5a) * \param[out] Caller-provided memory for decoded CC capabilities * \param[in] lv Length-Value of IE * \retursns 0 on success; negative on error */ int gsm48_decode_cccap(struct gsm_mncc_cccap *ccap, const uint8_t *lv) { uint8_t in_len = lv[0]; if (in_len < 1) return -EINVAL; /* octet 3 */ ccap->dtmf = lv[1] & 0x01; ccap->pcp = (lv[1] & 0x02) >> 1; return 0; } /*! Encodoe TS 04.08 Call Control Capabilities (10.5.4.5a) * \param[out] msg Message Buffer to which to append IE (as TLV) * \param[in] ccap Decoded CC Capabilities to be encoded * \returns 0 on success; negative on error */ int gsm48_encode_cccap(struct msgb *msg, const struct gsm_mncc_cccap *ccap) { uint8_t lv[2]; lv[0] = 1; lv[1] = 0; if (ccap->dtmf) lv [1] |= 0x01; if (ccap->pcp) lv [1] |= 0x02; msgb_tlv_put(msg, GSM48_IE_CC_CAP, lv[0], lv+1); return 0; } /*! Decode TS 04.08 Called Party BCD Number IE (10.5.4.7) * \param[out] called Caller-provided memory for decoded number * \param[in] lv Length-Value portion of IE * \returns 0 on success; negative on error */ int gsm48_decode_called(struct gsm_mncc_number *called, const uint8_t *lv) { uint8_t in_len = lv[0]; if (in_len < 1) return -EINVAL; /* octet 3 */ called->plan = lv[1] & 0x0f; called->type = (lv[1] & 0x70) >> 4; /* octet 4..N */ gsm48_decode_bcd_number(called->number, sizeof(called->number), lv, 1); return 0; } /*! Encode TS 04.08 Called Party IE (10.5.4.7) * \param[out] msg Mesage Buffer to which to append IE (as TLV) * \param[in] called MNCC Number to encode/append * \returns 0 on success; negative on error */ int gsm48_encode_called(struct msgb *msg, const struct gsm_mncc_number *called) { uint8_t lv[18]; int ret; /* octet 3 */ lv[1] = 0x80; /* no extension */ lv[1] |= called->plan; lv[1] |= called->type << 4; /* octet 4..N, octet 2 */ ret = gsm48_encode_bcd_number(lv, sizeof(lv), 1, called->number); if (ret < 0) return ret; msgb_tlv_put(msg, GSM48_IE_CALLED_BCD, lv[0], lv+1); return 0; } /*! Decode TS 04.08 Caller ID * \param[out] called Caller-provided memory for decoded number * \param[in] lv Length-Value portion of IE * \returns 0 on success; negative on error */ int gsm48_decode_callerid(struct gsm_mncc_number *callerid, const uint8_t *lv) { uint8_t in_len = lv[0]; int i = 1; if (in_len < 1) return -EINVAL; /* octet 3 */ callerid->plan = lv[1] & 0x0f; callerid->type = (lv[1] & 0x70) >> 4; /* octet 3a */ if (!(lv[1] & 0x80)) { callerid->screen = lv[2] & 0x03; callerid->present = (lv[2] & 0x60) >> 5; i = 2; } /* octet 4..N */ gsm48_decode_bcd_number(callerid->number, sizeof(callerid->number), lv, i); return 0; } /*! Encode TS 04.08 Caller ID IE * \param[out] msg Mesage Buffer to which to append IE (as TLV) * \param[in] ie IE Identifier (tag) * \param[in] max_len maximum generated output in bytes * \param[in] callerid MNCC Number to encode/append * \returns 0 on success; negative on error */ int gsm48_encode_callerid(struct msgb *msg, int ie, int max_len, const struct gsm_mncc_number *callerid) { uint8_t lv[max_len - 1]; int h_len = 1; int ret; /* octet 3 */ lv[1] = callerid->plan; lv[1] |= callerid->type << 4; if (callerid->present || callerid->screen) { /* octet 3a */ lv[2] = callerid->screen; lv[2] |= callerid->present << 5; lv[2] |= 0x80; h_len++; } else lv[1] |= 0x80; /* octet 4..N, octet 2 */ ret = gsm48_encode_bcd_number(lv, sizeof(lv), h_len, callerid->number); if (ret < 0) return ret; msgb_tlv_put(msg, ie, lv[0], lv+1); return 0; } /*! Decode TS 04.08 Cause IE (10.5.4.11) * \param[out] cause Caller-provided memory for output * \param[in] lv LV portion of Cause IE * \returns 0 on success; negative on error */ int gsm48_decode_cause(struct gsm_mncc_cause *cause, const uint8_t *lv) { uint8_t in_len = lv[0]; int i; if (in_len < 2) return -EINVAL; cause->diag_len = 0; /* octet 3 */ cause->location = lv[1] & 0x0f; cause->coding = (lv[1] & 0x60) >> 5; i = 1; if (!(lv[i] & 0x80)) { i++; /* octet 3a */ if (in_len < i+1) return 0; cause->rec = 1; cause->rec_val = lv[i] & 0x7f; } i++; /* octet 4 */ cause->value = lv[i] & 0x7f; i++; if (in_len < i) /* no diag */ return 0; if (in_len - (i-1) > 32) /* maximum 32 octets */ return 0; /* octet 5-N */ memcpy(cause->diag, lv + i, in_len - (i-1)); cause->diag_len = in_len - (i-1); return 0; } /*! Encode TS 04.08 Cause IE (10.5.4.11) * \param[out] msg Message Buffer to which to append IE * \param[in] lv_only Encode as LV (1) or TLV (0) * \param[in] cause Cause value to be encoded * \returns 0 on success; negative on error */ int gsm48_encode_cause(struct msgb *msg, int lv_only, const struct gsm_mncc_cause *cause) { uint8_t lv[32+4]; int i; if (cause->diag_len > 32) return -EINVAL; /* octet 3 */ lv[1] = cause->location; lv[1] |= cause->coding << 5; i = 1; if (cause->rec) { i++; /* octet 3a */ lv[i] = cause->rec_val; } lv[i] |= 0x80; /* end of octet 3 */ /* octet 4 */ i++; lv[i] = 0x80 | cause->value; /* octet 5-N */ if (cause->diag_len) { memcpy(lv + i, cause->diag, cause->diag_len); i += cause->diag_len; } lv[0] = i; if (lv_only) msgb_lv_put(msg, lv[0], lv+1); else msgb_tlv_put(msg, GSM48_IE_CAUSE, lv[0], lv+1); return 0; } /*! Decode TS 04.08 Calling Number IE (10.5.4.9) */ int gsm48_decode_calling(struct gsm_mncc_number *calling, const uint8_t *lv) { return gsm48_decode_callerid(calling, lv); } /*! Encode TS 04.08 Calling Number IE (10.5.4.9) */ int gsm48_encode_calling(struct msgb *msg, const struct gsm_mncc_number *calling) { return gsm48_encode_callerid(msg, GSM48_IE_CALLING_BCD, 14, calling); } /*! Decode TS 04.08 Connected Number IE (10.5.4.13) */ int gsm48_decode_connected(struct gsm_mncc_number *connected, const uint8_t *lv) { return gsm48_decode_callerid(connected, lv); } /*! Encode TS 04.08 Connected Number IE (10.5.4.13) */ int gsm48_encode_connected(struct msgb *msg, const struct gsm_mncc_number *connected) { return gsm48_encode_callerid(msg, GSM48_IE_CONN_BCD, 14, connected); } /*! Decode TS 04.08 Redirecting Number IE (10.5.4.21b) */ int gsm48_decode_redirecting(struct gsm_mncc_number *redirecting, const uint8_t *lv) { return gsm48_decode_callerid(redirecting, lv); } /*! Encode TS 04.08 Redirecting Number IE (10.5.4.21b) */ int gsm48_encode_redirecting(struct msgb *msg, const struct gsm_mncc_number *redirecting) { return gsm48_encode_callerid(msg, GSM48_IE_REDIR_BCD, 19, redirecting); } /*! Decode TS 04.08 Facility IE (10.5.4.15) */ int gsm48_decode_facility(struct gsm_mncc_facility *facility, const uint8_t *lv) { uint8_t in_len = lv[0]; if (in_len < 1) return -EINVAL; if (in_len > sizeof(facility->info)) return -EINVAL; memcpy(facility->info, lv+1, in_len); facility->len = in_len; return 0; } /*! Encode TS 04.08 Facility IE (10.5.4.15) */ int gsm48_encode_facility(struct msgb *msg, int lv_only, const struct gsm_mncc_facility *facility) { uint8_t lv[GSM_MAX_FACILITY + 1]; if (facility->len < 1 || facility->len > GSM_MAX_FACILITY) return -EINVAL; memcpy(lv+1, facility->info, facility->len); lv[0] = facility->len; if (lv_only) msgb_lv_put(msg, lv[0], lv+1); else msgb_tlv_put(msg, GSM48_IE_FACILITY, lv[0], lv+1); return 0; } /*! Decode TS 04.08 Notify IE (10.5.4.20) */ int gsm48_decode_notify(int *notify, const uint8_t *v) { *notify = v[0] & 0x7f; return 0; } /*! Encode TS 04.08 Notify IE (10.5.4.20) */ int gsm48_encode_notify(struct msgb *msg, int notify) { msgb_v_put(msg, notify | 0x80); return 0; } /*! Decode TS 04.08 Signal IE (10.5.4.23) */ int gsm48_decode_signal(int *signal, const uint8_t *v) { *signal = v[0]; return 0; } /*! Encode TS 04.08 Signal IE (10.5.4.23) */ int gsm48_encode_signal(struct msgb *msg, int signal) { msgb_tv_put(msg, GSM48_IE_SIGNAL, signal); return 0; } /*! Decode TS 04.08 Keypad IE (10.5.4.17) */ int gsm48_decode_keypad(int *keypad, const uint8_t *lv) { uint8_t in_len = lv[0]; if (in_len < 1) return -EINVAL; *keypad = lv[1] & 0x7f; return 0; } /*! Encode TS 04.08 Keypad IE (10.5.4.17) */ int gsm48_encode_keypad(struct msgb *msg, int keypad) { msgb_tv_put(msg, GSM48_IE_KPD_FACILITY, keypad); return 0; } /*! Decode TS 04.08 Progress IE (10.5.4.21) */ int gsm48_decode_progress(struct gsm_mncc_progress *progress, const uint8_t *lv) { uint8_t in_len = lv[0]; if (in_len < 2) return -EINVAL; progress->coding = (lv[1] & 0x60) >> 5; progress->location = lv[1] & 0x0f; progress->descr = lv[2] & 0x7f; return 0; } /*! Encode TS 04.08 Progress IE (10.5.4.21) */ int gsm48_encode_progress(struct msgb *msg, int lv_only, const struct gsm_mncc_progress *p) { uint8_t lv[3]; lv[0] = 2; lv[1] = 0x80 | ((p->coding & 0x3) << 5) | (p->location & 0xf); lv[2] = 0x80 | (p->descr & 0x7f); if (lv_only) msgb_lv_put(msg, lv[0], lv+1); else msgb_tlv_put(msg, GSM48_IE_PROGR_IND, lv[0], lv+1); return 0; } /*! Decode TS 04.08 User-User IE (10.5.4.25) */ int gsm48_decode_useruser(struct gsm_mncc_useruser *uu, const uint8_t *lv) { uint8_t in_len = lv[0]; char *info = uu->info; int info_len = sizeof(uu->info); int i; if (in_len < 1) return -EINVAL; uu->proto = lv[1]; for (i = 2; i <= in_len; i++) { info_len--; if (info_len <= 1) break; *info++ = lv[i]; } if (info_len >= 1) *info++ = '\0'; return 0; } /*! Encode TS 04.08 User-User IE (10.5.4.25) */ int gsm48_encode_useruser(struct msgb *msg, int lv_only, const struct gsm_mncc_useruser *uu) { uint8_t lv[GSM_MAX_USERUSER + 2]; if (strlen(uu->info) > GSM_MAX_USERUSER) return -EINVAL; lv[0] = 1 + strlen(uu->info); lv[1] = uu->proto; memcpy(lv + 2, uu->info, strlen(uu->info)); if (lv_only) msgb_lv_put(msg, lv[0], lv+1); else msgb_tlv_put(msg, GSM48_IE_USER_USER, lv[0], lv+1); return 0; } /*! Decode TS 04.08 SS Version IE (10.5.4.24) */ int gsm48_decode_ssversion(struct gsm_mncc_ssversion *ssv, const uint8_t *lv) { uint8_t in_len = lv[0]; if (in_len < 1 || in_len < sizeof(ssv->info)) return -EINVAL; memcpy(ssv->info, lv + 1, in_len); ssv->len = in_len; return 0; } /*! Encode TS 04.08 SS Version IE (10.5.4.24) */ int gsm48_encode_ssversion(struct msgb *msg, const struct gsm_mncc_ssversion *ssv) { uint8_t lv[GSM_MAX_SSVERSION + 1]; if (ssv->len > GSM_MAX_SSVERSION) return -EINVAL; lv[0] = ssv->len; memcpy(lv + 1, ssv->info, ssv->len); msgb_tlv_put(msg, GSM48_IE_SS_VERS, lv[0], lv+1); return 0; } /* decode 'more data' does not require a function, because it has no value */ /*! Encode TS 04.08 More Data IE (10.5.4.19) */ int gsm48_encode_more(struct msgb *msg) { uint8_t *ie; ie = msgb_put(msg, 1); ie[0] = GSM48_IE_MORE_DATA; return 0; } static int32_t smod(int32_t n, int32_t m) { int32_t res; res = n % m; if (res <= 0) res += m; return res; } /*! Decode TS 04.08 Cell Channel Description IE (10.5.2.1b) and other frequency lists * \param[out] f Caller-provided output memory, an array of 1024 elements * \param[in] cd Cell Channel Description IE * \param[in] len Length of \a cd in bytes * \returns 0 on success; negative on error */ int gsm48_decode_freq_list(struct gsm_sysinfo_freq *f, uint8_t *cd, uint8_t len, uint8_t mask, uint8_t frqt) { int i; /* NOTES: * * The Range format uses "SMOD" computation. * e.g. "n SMOD m" equals "((n - 1) % m) + 1" * A cascade of multiple SMOD computations is simpified: * "(n SMOD m) SMOD o" equals "(((n - 1) % m) % o) + 1" * * The Range format uses 16 octets of data in SYSTEM INFORMATION. * When used in dedicated messages, the length can be less. * In this case the ranges are decoded for all frequencies that * fit in the block of given length. */ /* tabula rasa */ for (i = 0; i < 1024; i++) f[i].mask &= ~frqt; /* 00..XXX. */ if ((cd[0] & 0xc0 & mask) == 0x00) { /* Bit map 0 format */ if (len < 16) return -EINVAL; for (i = 1; i <= 124; i++) if ((cd[15 - ((i-1) >> 3)] & (1 << ((i-1) & 7)))) f[i].mask |= frqt; return 0; } /* 10..0XX. */ if ((cd[0] & 0xc8 & mask) == 0x80) { /* Range 1024 format */ uint16_t w[17]; /* 1..16 */ struct gsm48_range_1024 *r = (struct gsm48_range_1024 *)cd; if (len < 2) return -EINVAL; memset(w, 0, sizeof(w)); if (r->f0) f[0].mask |= frqt; w[1] = (r->w1_hi << 8) | r->w1_lo; if (len >= 4) w[2] = (r->w2_hi << 1) | r->w2_lo; if (len >= 5) w[3] = (r->w3_hi << 2) | r->w3_lo; if (len >= 6) w[4] = (r->w4_hi << 2) | r->w4_lo; if (len >= 7) w[5] = (r->w5_hi << 2) | r->w5_lo; if (len >= 8) w[6] = (r->w6_hi << 2) | r->w6_lo; if (len >= 9) w[7] = (r->w7_hi << 2) | r->w7_lo; if (len >= 10) w[8] = (r->w8_hi << 1) | r->w8_lo; if (len >= 10) w[9] = r->w9; if (len >= 11) w[10] = r->w10; if (len >= 12) w[11] = (r->w11_hi << 6) | r->w11_lo; if (len >= 13) w[12] = (r->w12_hi << 5) | r->w12_lo; if (len >= 14) w[13] = (r->w13_hi << 4) | r->w13_lo; if (len >= 15) w[14] = (r->w14_hi << 3) | r->w14_lo; if (len >= 16) w[15] = (r->w15_hi << 2) | r->w15_lo; if (len >= 16) w[16] = r->w16; if (w[1]) f[w[1]].mask |= frqt; if (w[2]) f[smod(w[1] - 512 + w[2], 1023)].mask |= frqt; if (w[3]) f[smod(w[1] + w[3], 1023)].mask |= frqt; if (w[4]) f[smod(w[1] - 512 + smod(w[2] - 256 + w[4], 511), 1023)].mask |= frqt; if (w[5]) f[smod(w[1] + smod(w[3] - 256 + w[5], 511), 1023)].mask |= frqt; if (w[6]) f[smod(w[1] - 512 + smod(w[2] + w[6], 511), 1023)].mask |= frqt; if (w[7]) f[smod(w[1] + smod(w[3] + w[7], 511), 1023)].mask |= frqt; if (w[8]) f[smod(w[1] - 512 + smod(w[2] - 256 + smod(w[4] - 128 + w[8] , 255), 511), 1023)].mask |= frqt; if (w[9]) f[smod(w[1] + smod(w[3] - 256 + smod(w[5] - 128 + w[9] , 255), 511), 1023)].mask |= frqt; if (w[10]) f[smod(w[1] - 512 + smod(w[2] + smod(w[6] - 128 + w[10], 255), 511), 1023)].mask |= frqt; if (w[11]) f[smod(w[1] + smod(w[3] + smod(w[7] - 128 + w[11], 255), 511), 1023)].mask |= frqt; if (w[12]) f[smod(w[1] - 512 + smod(w[2] - 256 + smod(w[4] + w[12], 255), 511), 1023)].mask |= frqt; if (w[13]) f[smod(w[1] + smod(w[3] - 256 + smod(w[5] + w[13], 255), 511), 1023)].mask |= frqt; if (w[14]) f[smod(w[1] - 512 + smod(w[2] + smod(w[6] + w[14], 255), 511), 1023)].mask |= frqt; if (w[15]) f[smod(w[1] + smod(w[3] + smod(w[7] + w[15], 255), 511), 1023)].mask |= frqt; if (w[16]) f[smod(w[1] - 512 + smod(w[2] - 256 + smod(w[4] - 128 + smod(w[8] - 64 + w[16], 127), 255), 511), 1023)].mask |= frqt; return 0; } /* 10..100. */ if ((cd[0] & 0xce & mask) == 0x88) { /* Range 512 format */ uint16_t w[18]; /* 1..17 */ struct gsm48_range_512 *r = (struct gsm48_range_512 *)cd; if (len < 4) return -EINVAL; memset(w, 0, sizeof(w)); w[0] = (r->orig_arfcn_hi << 9) | (r->orig_arfcn_mid << 1) | r->orig_arfcn_lo; w[1] = (r->w1_hi << 2) | r->w1_lo; if (len >= 5) w[2] = (r->w2_hi << 2) | r->w2_lo; if (len >= 6) w[3] = (r->w3_hi << 2) | r->w3_lo; if (len >= 7) w[4] = (r->w4_hi << 1) | r->w4_lo; if (len >= 7) w[5] = r->w5; if (len >= 8) w[6] = r->w6; if (len >= 9) w[7] = (r->w7_hi << 6) | r->w7_lo; if (len >= 10) w[8] = (r->w8_hi << 4) | r->w8_lo; if (len >= 11) w[9] = (r->w9_hi << 2) | r->w9_lo; if (len >= 11) w[10] = r->w10; if (len >= 12) w[11] = r->w11; if (len >= 13) w[12] = (r->w12_hi << 4) | r->w12_lo; if (len >= 14) w[13] = (r->w13_hi << 2) | r->w13_lo; if (len >= 14) w[14] = r->w14; if (len >= 15) w[15] = r->w15; if (len >= 16) w[16] = (r->w16_hi << 3) | r->w16_lo; if (len >= 16) w[17] = r->w17; f[w[0]].mask |= frqt; if (w[1]) f[(w[0] + w[1]) % 1024].mask |= frqt; if (w[2]) f[(w[0] + smod(w[1] - 256 + w[2], 511)) % 1024].mask |= frqt; if (w[3]) f[(w[0] + smod(w[1] + w[3], 511)) % 1024].mask |= frqt; if (w[4]) f[(w[0] + smod(w[1] - 256 + smod(w[2] - 128 + w[4], 255), 511)) % 1024].mask |= frqt; if (w[5]) f[(w[0] + smod(w[1] + smod(w[3] - 128 + w[5], 255), 511)) % 1024].mask |= frqt; if (w[6]) f[(w[0] + smod(w[1] - 256 + smod(w[2] + w[6], 255), 511)) % 1024].mask |= frqt; if (w[7]) f[(w[0] + smod(w[1] + smod(w[3] + w[7], 255), 511)) % 1024].mask |= frqt; if (w[8]) f[(w[0] + smod(w[1] - 256 + smod(w[2] - 128 + smod(w[4] - 64 + w[8] , 127), 255), 511)) % 1024].mask |= frqt; if (w[9]) f[(w[0] + smod(w[1] + smod(w[3] - 128 + smod(w[5] - 64 + w[9] , 127), 255), 511)) % 1024].mask |= frqt; if (w[10]) f[(w[0] + smod(w[1] - 256 + smod(w[2] + smod(w[6] - 64 + w[10], 127), 255), 511)) % 1024].mask |= frqt; if (w[11]) f[(w[0] + smod(w[1] + smod(w[3] + smod(w[7] - 64 + w[11], 127), 255), 511)) % 1024].mask |= frqt; if (w[12]) f[(w[0] + smod(w[1] - 256 + smod(w[2] - 128 + smod(w[4] + w[12], 127), 255), 511)) % 1024].mask |= frqt; if (w[13]) f[(w[0] + smod(w[1] + smod(w[3] - 128 + smod(w[5] + w[13], 127), 255), 511)) % 1024].mask |= frqt; if (w[14]) f[(w[0] + smod(w[1] - 256 + smod(w[2] + smod(w[6] + w[14], 127), 255), 511)) % 1024].mask |= frqt; if (w[15]) f[(w[0] + smod(w[1] + smod(w[3] + smod(w[7] + w[15], 127), 255), 511)) % 1024].mask |= frqt; if (w[16]) f[(w[0] + smod(w[1] - 256 + smod(w[2] - 128 + smod(w[4] - 64 + smod(w[8] - 32 + w[16], 63), 127), 255), 511)) % 1024].mask |= frqt; if (w[17]) f[(w[0] + smod(w[1] + smod(w[3] - 128 + smod(w[5] - 64 + smod(w[9] - 32 + w[17], 63), 127), 255), 511)) % 1024].mask |= frqt; return 0; } /* 10..101. */ if ((cd[0] & 0xce & mask) == 0x8a) { /* Range 256 format */ uint16_t w[22]; /* 1..21 */ struct gsm48_range_256 *r = (struct gsm48_range_256 *)cd; if (len < 4) return -EINVAL; memset(w, 0, sizeof(w)); w[0] = (r->orig_arfcn_hi << 9) | (r->orig_arfcn_mid << 1) | r->orig_arfcn_lo; w[1] = (r->w1_hi << 1) | r->w1_lo; if (len >= 4) w[2] = r->w2; if (len >= 5) w[3] = r->w3; if (len >= 6) w[4] = (r->w4_hi << 5) | r->w4_lo; if (len >= 7) w[5] = (r->w5_hi << 3) | r->w5_lo; if (len >= 8) w[6] = (r->w6_hi << 1) | r->w6_lo; if (len >= 8) w[7] = r->w7; if (len >= 9) w[8] = (r->w8_hi << 4) | r->w8_lo; if (len >= 10) w[9] = (r->w9_hi << 1) | r->w9_lo; if (len >= 10) w[10] = r->w10; if (len >= 11) w[11] = (r->w11_hi << 3) | r->w11_lo; if (len >= 11) w[12] = r->w12; if (len >= 12) w[13] = r->w13; if (len >= 13) w[14] = (r->w14_hi << 2) | r->w14_lo; if (len >= 13) w[15] = r->w15; if (len >= 14) w[16] = (r->w16_hi << 3) | r->w16_lo; if (len >= 14) w[17] = r->w17; if (len >= 15) w[18] = (r->w18_hi << 3) | r->w18_lo; if (len >= 15) w[19] = r->w19; if (len >= 16) w[20] = (r->w20_hi << 3) | r->w20_lo; if (len >= 16) w[21] = r->w21; f[w[0]].mask |= frqt; if (w[1]) f[(w[0] + w[1]) % 1024].mask |= frqt; if (w[2]) f[(w[0] + smod(w[1] - 128 + w[2], 255)) % 1024].mask |= frqt; if (w[3]) f[(w[0] + smod(w[1] + w[3], 255)) % 1024].mask |= frqt; if (w[4]) f[(w[0] + smod(w[1] - 128 + smod(w[2] - 64 + w[4], 127), 255)) % 1024].mask |= frqt; if (w[5]) f[(w[0] + smod(w[1] + smod(w[3] - 64 + w[5], 127), 255)) % 1024].mask |= frqt; if (w[6]) f[(w[0] + smod(w[1] - 128 + smod(w[2] + w[6], 127), 255)) % 1024].mask |= frqt; if (w[7]) f[(w[0] + smod(w[1] + smod(w[3] + w[7], 127), 255)) % 1024].mask |= frqt; if (w[8]) f[(w[0] + smod(w[1] - 128 + smod(w[2] - 64 + smod(w[4] - 32 + w[8] , 63), 127), 255)) % 1024].mask |= frqt; if (w[9]) f[(w[0] + smod(w[1] + smod(w[3] - 64 + smod(w[5] - 32 + w[9] , 63), 127), 255)) % 1024].mask |= frqt; if (w[10]) f[(w[0] + smod(w[1] - 128 + smod(w[2] + smod(w[6] - 32 + w[10], 63), 127), 255)) % 1024].mask |= frqt; if (w[11]) f[(w[0] + smod(w[1] + smod(w[3] + smod(w[7] - 32 + w[11], 63), 127), 255)) % 1024].mask |= frqt; if (w[12]) f[(w[0] + smod(w[1] - 128 + smod(w[2] - 64 + smod(w[4] + w[12], 63), 127), 255)) % 1024].mask |= frqt; if (w[13]) f[(w[0] + smod(w[1] + smod(w[3] - 64 + smod(w[5] + w[13], 63), 127), 255)) % 1024].mask |= frqt; if (w[14]) f[(w[0] + smod(w[1] - 128 + smod(w[2] + smod(w[6] + w[14], 63), 127), 255)) % 1024].mask |= frqt; if (w[15]) f[(w[0] + smod(w[1] + smod(w[3] + smod(w[7] + w[15], 63), 127), 255)) % 1024].mask |= frqt; if (w[16]) f[(w[0] + smod(w[1] - 128 + smod(w[2] - 64 + smod(w[4] - 32 + smod(w[8] - 16 + w[16], 31), 63), 127), 255)) % 1024].mask |= frqt; if (w[17]) f[(w[0] + smod(w[1] + smod(w[3] - 64 + smod(w[5] - 32 + smod(w[9] - 16 + w[17], 31), 63), 127), 255)) % 1024].mask |= frqt; if (w[18]) f[(w[0] + smod(w[1] - 128 + smod(w[2] + smod(w[6] - 32 + smod(w[10] - 16 + w[18], 31), 63), 127), 255)) % 1024].mask |= frqt; if (w[19]) f[(w[0] + smod(w[1] + smod(w[3] + smod(w[7] - 32 + smod(w[11] - 16 + w[19], 31), 63), 127), 255)) % 1024].mask |= frqt; if (w[20]) f[(w[0] + smod(w[1] - 128 + smod(w[2] - 64 + smod(w[4] + smod(w[12] - 16 + w[20], 31), 63), 127), 255)) % 1024].mask |= frqt; if (w[21]) f[(w[0] + smod(w[1] + smod(w[3] - 64 + smod(w[5] + smod(w[13] - 16 + w[21], 31), 63), 127), 255)) % 1024].mask |= frqt; return 0; } /* 10..110. */ if ((cd[0] & 0xce & mask) == 0x8c) { /* Range 128 format */ uint16_t w[29]; /* 1..28 */ struct gsm48_range_128 *r = (struct gsm48_range_128 *)cd; if (len < 3) return -EINVAL; memset(w, 0, sizeof(w)); w[0] = (r->orig_arfcn_hi << 9) | (r->orig_arfcn_mid << 1) | r->orig_arfcn_lo; w[1] = r->w1; if (len >= 4) w[2] = r->w2; if (len >= 5) w[3] = (r->w3_hi << 4) | r->w3_lo; if (len >= 6) w[4] = (r->w4_hi << 1) | r->w4_lo; if (len >= 6) w[5] = r->w5; if (len >= 7) w[6] = (r->w6_hi << 3) | r->w6_lo; if (len >= 7) w[7] = r->w7; if (len >= 8) w[8] = r->w8; if (len >= 8) w[9] = r->w9; if (len >= 9) w[10] = r->w10; if (len >= 9) w[11] = r->w11; if (len >= 10) w[12] = r->w12; if (len >= 10) w[13] = r->w13; if (len >= 11) w[14] = r->w14; if (len >= 11) w[15] = r->w15; if (len >= 12) w[16] = r->w16; if (len >= 12) w[17] = r->w17; if (len >= 13) w[18] = (r->w18_hi << 1) | r->w18_lo; if (len >= 13) w[19] = r->w19; if (len >= 13) w[20] = r->w20; if (len >= 14) w[21] = (r->w21_hi << 2) | r->w21_lo; if (len >= 14) w[22] = r->w22; if (len >= 14) w[23] = r->w23; if (len >= 15) w[24] = r->w24; if (len >= 15) w[25] = r->w25; if (len >= 16) w[26] = (r->w26_hi << 1) | r->w26_lo; if (len >= 16) w[27] = r->w27; if (len >= 16) w[28] = r->w28; f[w[0]].mask |= frqt; if (w[1]) f[(w[0] + w[1]) % 1024].mask |= frqt; if (w[2]) f[(w[0] + smod(w[1] - 64 + w[2], 127)) % 1024].mask |= frqt; if (w[3]) f[(w[0] + smod(w[1] + w[3], 127)) % 1024].mask |= frqt; if (w[4]) f[(w[0] + smod(w[1] - 64 + smod(w[2] - 32 + w[4], 63), 127)) % 1024].mask |= frqt; if (w[5]) f[(w[0] + smod(w[1] + smod(w[3] - 32 + w[5], 63), 127)) % 1024].mask |= frqt; if (w[6]) f[(w[0] + smod(w[1] - 64 + smod(w[2] + w[6], 63), 127)) % 1024].mask |= frqt; if (w[7]) f[(w[0] + smod(w[1] + smod(w[3] + w[7], 63), 127)) % 1024].mask |= frqt; if (w[8]) f[(w[0] + smod(w[1] - 64 + smod(w[2] - 32 + smod(w[4] - 16 + w[8] , 31), 63), 127)) % 1024].mask |= frqt; if (w[9]) f[(w[0] + smod(w[1] + smod(w[3] - 32 + smod(w[5] - 16 + w[9] , 31), 63), 127)) % 1024].mask |= frqt; if (w[10]) f[(w[0] + smod(w[1] - 64 + smod(w[2] + smod(w[6] - 16 + w[10], 31), 63), 127)) % 1024].mask |= frqt; if (w[11]) f[(w[0] + smod(w[1] + smod(w[3] + smod(w[7] - 16 + w[11], 31), 63), 127)) % 1024].mask |= frqt; if (w[12]) f[(w[0] + smod(w[1] - 64 + smod(w[2] - 32 + smod(w[4] + w[12], 31), 63), 127)) % 1024].mask |= frqt; if (w[13]) f[(w[0] + smod(w[1] + smod(w[3] - 32 + smod(w[5] + w[13], 31), 63), 127)) % 1024].mask |= frqt; if (w[14]) f[(w[0] + smod(w[1] - 64 + smod(w[2] + smod(w[6] + w[14], 31), 63), 127)) % 1024].mask |= frqt; if (w[15]) f[(w[0] + smod(w[1] + smod(w[3] + smod(w[7] + w[15], 31), 63), 127)) % 1024].mask |= frqt; if (w[16]) f[(w[0] + smod(w[1] - 64 + smod(w[2] - 32 + smod(w[4] - 16 + smod(w[8] - 8 + w[16], 15), 31), 63), 127)) % 1024].mask |= frqt; if (w[17]) f[(w[0] + smod(w[1] + smod(w[3] - 32 + smod(w[5] - 16 + smod(w[9] - 8 + w[17], 15), 31), 63), 127)) % 1024].mask |= frqt; if (w[18]) f[(w[0] + smod(w[1] - 64 + smod(w[2] + smod(w[6] - 16 + smod(w[10] - 8 + w[18], 15), 31), 63), 127)) % 1024].mask |= frqt; if (w[19]) f[(w[0] + smod(w[1] + smod(w[3] + smod(w[7] - 16 + smod(w[11] - 8 + w[19], 15), 31), 63), 127)) % 1024].mask |= frqt; if (w[20]) f[(w[0] + smod(w[1] - 64 + smod(w[2] - 32 + smod(w[4] + smod(w[12] - 8 + w[20], 15), 31), 63), 127)) % 1024].mask |= frqt; if (w[21]) f[(w[0] + smod(w[1] + smod(w[3] - 32 + smod(w[5] + smod(w[13] - 8 + w[21], 15), 31), 63), 127)) % 1024].mask |= frqt; if (w[22]) f[(w[0] + smod(w[1] - 64 + smod(w[2] + smod(w[6] + smod(w[14] - 8 + w[22], 15), 31), 63), 127)) % 1024].mask |= frqt; if (w[23]) f[(w[0] + smod(w[1] + smod(w[3] + smod(w[7] + smod(w[15] - 8 + w[23], 15), 31), 63), 127)) % 1024].mask |= frqt; if (w[24]) f[(w[0] + smod(w[1] - 64 + smod(w[2] - 32 + smod(w[4] - 16 + smod(w[8] + w[24], 15), 31), 63), 127)) % 1024].mask |= frqt; if (w[25]) f[(w[0] + smod(w[1] + smod(w[3] - 32 + smod(w[5] - 16 + smod(w[9] + w[25], 15), 31), 63), 127)) % 1024].mask |= frqt; if (w[26]) f[(w[0] + smod(w[1] - 64 + smod(w[2] + smod(w[6] - 16 + smod(w[10] + w[26], 15), 31), 63), 127)) % 1024].mask |= frqt; if (w[27]) f[(w[0] + smod(w[1] + smod(w[3] + smod(w[7] - 16 + smod(w[11] + w[27], 15), 31), 63), 127)) % 1024].mask |= frqt; if (w[28]) f[(w[0] + smod(w[1] - 64 + smod(w[2] - 32 + smod(w[4] + smod(w[12] + w[28], 15), 31), 63), 127)) % 1024].mask |= frqt; return 0; } /* 10..111. */ if ((cd[0] & 0xce & mask) == 0x8e) { /* Variable bitmap format (can be any length >= 3) */ uint16_t orig = 0; struct gsm48_var_bit *r = (struct gsm48_var_bit *)cd; if (len < 3) return -EINVAL; orig = (r->orig_arfcn_hi << 9) | (r->orig_arfcn_mid << 1) | r->orig_arfcn_lo; f[orig].mask |= frqt; for (i = 1; 2 + (i >> 3) < len; i++) if ((cd[2 + (i >> 3)] & (0x80 >> (i & 7)))) f[(orig + i) % 1024].mask |= frqt; return 0; } return 0; } /*! @} */