/** * Copyright (c) 2012 - 2020, Nordic Semiconductor ASA * * All rights reserved. * * Redistribution and use in source and binary forms, with or without modification, * are permitted provided that the following conditions are met: * * 1. Redistributions of source code must retain the above copyright notice, this * list of conditions and the following disclaimer. * * 2. Redistributions in binary form, except as embedded into a Nordic * Semiconductor ASA integrated circuit in a product or a software update for * such product, must reproduce the above copyright notice, this list of * conditions and the following disclaimer in the documentation and/or other * materials provided with the distribution. * * 3. Neither the name of Nordic Semiconductor ASA nor the names of its * contributors may be used to endorse or promote products derived from this * software without specific prior written permission. * * 4. This software, with or without modification, must only be used with a * Nordic Semiconductor ASA integrated circuit. * * 5. Any software provided in binary form under this license must not be reverse * engineered, decompiled, modified and/or disassembled. * * THIS SOFTWARE IS PROVIDED BY NORDIC SEMICONDUCTOR ASA "AS IS" AND ANY EXPRESS * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY, NONINFRINGEMENT, AND FITNESS FOR A PARTICULAR PURPOSE ARE * DISCLAIMED. IN NO EVENT SHALL NORDIC SEMICONDUCTOR ASA OR CONTRIBUTORS BE * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE * GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. * */ #include "sdk_common.h" #if NRF_MODULE_ENABLED(BLE_IAS_C) #include "ble_ias_c.h" #include #include "ble.h" #include "ble_srv_common.h" #include "ble_gattc.h" #include "ble_db_discovery.h" /**@brief Function for intercepting the errors of GATTC and the BLE GATT Queue. * * @param[in] nrf_error Error code. * @param[in] p_ctx Parameter from the event handler. * @param[in] conn_handle Connection handle. */ static void gatt_error_handler(uint32_t nrf_error, void * p_ctx, uint16_t conn_handle) { UNUSED_PARAMETER(conn_handle); ble_ias_c_t * p_ias_c = (ble_ias_c_t *)p_ctx; if (p_ias_c->error_handler != NULL) { p_ias_c->error_handler(nrf_error); } } void ble_ias_c_on_db_disc_evt(ble_ias_c_t * p_ias_c, ble_db_discovery_evt_t const * p_evt) { ble_ias_c_evt_t evt; memset(&evt, 0, sizeof(ble_ias_c_evt_t)); evt.conn_handle = p_evt->conn_handle; ble_gatt_db_char_t const * p_chars = p_evt->params.discovered_db.charateristics; // Check if the Immediate Alert Service was discovered. if ( (p_evt->evt_type == BLE_DB_DISCOVERY_COMPLETE) && (p_evt->params.discovered_db.srv_uuid.uuid == BLE_UUID_IMMEDIATE_ALERT_SERVICE) && (p_evt->params.discovered_db.srv_uuid.type == BLE_UUID_TYPE_BLE)) { for (uint32_t i = 0; i < p_evt->params.discovered_db.char_count; i++) { // The Alert Level characteristic in the Immediate Alert Service instance is found // on peer. Check if it has the correct property 'Write without response'. switch (p_chars[i].characteristic.uuid.uuid) { case BLE_UUID_ALERT_LEVEL_CHAR: if (p_chars[i].characteristic.char_props.write_wo_resp) { // Found Alert Level characteristic inside the Immediate Alert Service. memcpy(&evt.alert_level, &p_chars[i].characteristic, sizeof(ble_gattc_char_t)); } break; default: break; } } } else if ((p_evt->evt_type == BLE_DB_DISCOVERY_SRV_NOT_FOUND) || (p_evt->evt_type == BLE_DB_DISCOVERY_ERROR)) { evt.evt_type = BLE_IAS_C_EVT_DISCOVERY_FAILED; } else { return; } if (evt.alert_level.handle_value != BLE_GATT_HANDLE_INVALID) { evt.evt_type = BLE_IAS_C_EVT_DISCOVERY_COMPLETE; } p_ias_c->evt_handler(p_ias_c, &evt); } uint32_t ble_ias_c_init(ble_ias_c_t * p_ias_c, ble_ias_c_init_t const * p_ias_c_init) { VERIFY_PARAM_NOT_NULL(p_ias_c); VERIFY_PARAM_NOT_NULL(p_ias_c_init); VERIFY_PARAM_NOT_NULL(p_ias_c_init->evt_handler); VERIFY_PARAM_NOT_NULL(p_ias_c_init->p_gatt_queue); p_ias_c->evt_handler = p_ias_c_init->evt_handler; p_ias_c->error_handler = p_ias_c_init->error_handler; p_ias_c->p_gatt_queue = p_ias_c_init->p_gatt_queue; p_ias_c->conn_handle = BLE_CONN_HANDLE_INVALID; p_ias_c->alert_level_char.handle_value = BLE_GATT_HANDLE_INVALID; BLE_UUID_BLE_ASSIGN(p_ias_c->alert_level_char.uuid, BLE_UUID_ALERT_LEVEL_CHAR); BLE_UUID_BLE_ASSIGN(p_ias_c->service_uuid, BLE_UUID_IMMEDIATE_ALERT_SERVICE); return ble_db_discovery_evt_register(&p_ias_c->service_uuid); } /**@brief Function for handling the Disconnect event. * * @param[in] p_ias_c Immediate Alert Service client structure. * @param[in] p_ble_evt Event received from the BLE stack. */ static void on_disconnect(ble_ias_c_t * p_ias_c, ble_evt_t const * p_ble_evt) { // The following values will be re-initialized when a new connection is made. p_ias_c->conn_handle = BLE_CONN_HANDLE_INVALID; if (ble_ias_c_is_discovered(p_ias_c)) { // There was a valid instance of IAS on the peer. Send an event to the // application, so that it can do a cleanup related to this module. ble_ias_c_evt_t evt; evt.evt_type = BLE_IAS_C_EVT_DISCONN_COMPLETE; p_ias_c->evt_handler(p_ias_c, &evt); p_ias_c->alert_level_char.handle_value = BLE_GATT_HANDLE_INVALID; } } void ble_ias_c_on_ble_evt(ble_evt_t const * p_ble_evt, void * p_context) { uint32_t err_code = NRF_SUCCESS; ble_ias_c_t * p_ias_c = (ble_ias_c_t *)p_context; switch (p_ble_evt->header.evt_id) { case BLE_GAP_EVT_DISCONNECTED: on_disconnect(p_ias_c, p_ble_evt); break; default: // No implementation needed. break; } if ((err_code != NRF_SUCCESS) && (p_ias_c->error_handler != NULL)) { p_ias_c->error_handler(err_code); } } /**@brief Function for performing a Write procedure. * * @param[in] p_ias_c Pointer to Immediate Alert Service client structure. * @param[in] length Length of data to be written. * @param[in] p_value Data to be written. * * @return NRF_SUCCESS on success, otherwise an error code. */ static uint32_t write_characteristic_value(ble_ias_c_t const * const p_ias_c, uint16_t length, uint8_t * p_value) { nrf_ble_gq_req_t write_req; memset(&write_req, 0, sizeof(nrf_ble_gq_req_t)); write_req.type = NRF_BLE_GQ_REQ_GATTC_WRITE; write_req.error_handler.cb = gatt_error_handler; write_req.error_handler.p_ctx = (ble_ias_c_t *)p_ias_c; write_req.params.gattc_write.handle = p_ias_c->alert_level_char.handle_value; write_req.params.gattc_write.write_op = BLE_GATT_OP_WRITE_CMD; write_req.params.gattc_write.offset = 0; write_req.params.gattc_write.len = length; write_req.params.gattc_write.p_value = p_value; return nrf_ble_gq_item_add(p_ias_c->p_gatt_queue, &write_req, p_ias_c->conn_handle); } uint32_t ble_ias_c_send_alert_level(ble_ias_c_t const * p_ias_c, uint8_t alert_level) { if (!ble_ias_c_is_discovered(p_ias_c)) { return NRF_ERROR_NOT_FOUND; } return write_characteristic_value(p_ias_c, sizeof(uint8_t), &alert_level); } uint32_t ble_ias_c_handles_assign(ble_ias_c_t * p_ias_c, const uint16_t conn_handle, const uint16_t alert_level_handle) { VERIFY_PARAM_NOT_NULL(p_ias_c); p_ias_c->conn_handle = conn_handle; p_ias_c->alert_level_char.handle_value = alert_level_handle; return nrf_ble_gq_conn_handle_register(p_ias_c->p_gatt_queue, conn_handle); } #endif //NRF_MODULE_ENABLED(BLE_IAS_C)