BLE_API wrapper library for STMicroelectronics' BlueNRG Bluetooth Low Energy expansion board shield (Component)

Dependents:   Nucleo_Zumo_BLE_IDB04A1 contest_IOT5 contest_IOT6 contest_IOT_10 ... more

Fork of X_NUCLEO_IDB0XA1 by ST Expansion SW Team

Arduino Connector Compatibility Warning

X-NUCLEO-IDB04A1 and X-NUCLEO-IDB05A1 are Arduino compatible with an exception: instead of using pin D13 for the SPI clock, they use pin D3. The default configuration for this library is having the SPI clock on pin D3.

To be fully Arduino compatible, X-NUCLEO-IDB04A1 and X-NUCLEO-IDB05A1 need a small HW patch.

For X-NUCLEO-IDB04A1 this patch consists in removing zero resistor R10 and instead soldering zero resistor R11. For X-NUCLEO-IDB05A1 this patch consists in removing zero resistor R4 and instead soldering zero resistor R6.

In case you patch your board, then you also have to configure this library to use pin D13 to drive the SPI clock (see macro IDB0XA1_D13_PATCH in file x_nucleo_idb0xa1_targets.h).

If you use pin D13 for the SPI clock, please be aware that on STM32 Nucleo boards you may not drive the LED, otherwise you will get a conflict: the LED on STM32 Nucleo boards is connected to pin D13.

Referring to the current list of tested platforms (see X-NUCLEO-IDB04A1 and X-NUCLEO-IDB05A1 pages), the patch is required by ST-Nucleo-F103RB; ST-Nucleo-F302R8; ST-Nucleo-F411RE; and ST-Nucleo-F446RE.

Committer:
Andrea Palmieri
Date:
Tue Dec 15 12:22:32 2015 +0100
Revision:
207:b9df918d6d5a
Parent:
204:6a6d2f041905
Child:
209:d7cb3b3d0295
Child:
229:9981f62cdb1a
Set UUIDs according to BLE API and other minor changes

Signed-off-by: Andrea Palmieri <andrea.palmieri@st.com>

Who changed what in which revision?

UserRevisionLine numberNew contents of line
Wolfgang Betz 130:770ce14d3d15 1 /* mbed Microcontroller Library
Wolfgang Betz 130:770ce14d3d15 2 * Copyright (c) 2006-2013 ARM Limited
Wolfgang Betz 130:770ce14d3d15 3 *
Wolfgang Betz 130:770ce14d3d15 4 * Licensed under the Apache License, Version 2.0 (the "License");
Wolfgang Betz 130:770ce14d3d15 5 * you may not use this file except in compliance with the License.
Wolfgang Betz 130:770ce14d3d15 6 * You may obtain a copy of the License at
Wolfgang Betz 130:770ce14d3d15 7 *
Wolfgang Betz 130:770ce14d3d15 8 * http://www.apache.org/licenses/LICENSE-2.0
Wolfgang Betz 130:770ce14d3d15 9 *
Wolfgang Betz 130:770ce14d3d15 10 * Unless required by applicable law or agreed to in writing, software
Wolfgang Betz 130:770ce14d3d15 11 * distributed under the License is distributed on an "AS IS" BASIS,
Wolfgang Betz 130:770ce14d3d15 12 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
Wolfgang Betz 130:770ce14d3d15 13 * See the License for the specific language governing permissions and
Wolfgang Betz 130:770ce14d3d15 14 * limitations under the License.
Wolfgang Betz 130:770ce14d3d15 15 */
Wolfgang Betz 130:770ce14d3d15 16 /**
Wolfgang Betz 130:770ce14d3d15 17 ******************************************************************************
Wolfgang Betz 130:770ce14d3d15 18 * @file BlueNRGGattServer.cpp
Wolfgang Betz 130:770ce14d3d15 19 * @author STMicroelectronics
Wolfgang Betz 130:770ce14d3d15 20 * @brief Implementation of BlueNRG BLE_API GattServer Class
Wolfgang Betz 130:770ce14d3d15 21 ******************************************************************************
Wolfgang Betz 130:770ce14d3d15 22 * @copy
Wolfgang Betz 130:770ce14d3d15 23 *
Wolfgang Betz 130:770ce14d3d15 24 * THE PRESENT FIRMWARE WHICH IS FOR GUIDANCE ONLY AIMS AT PROVIDING CUSTOMERS
Wolfgang Betz 130:770ce14d3d15 25 * WITH CODING INFORMATION REGARDING THEIR PRODUCTS IN ORDER FOR THEM TO SAVE
Wolfgang Betz 130:770ce14d3d15 26 * TIME. AS A RESULT, STMICROELECTRONICS SHALL NOT BE HELD LIABLE FOR ANY
Wolfgang Betz 130:770ce14d3d15 27 * DIRECT, INDIRECT OR CONSEQUENTIAL DAMAGES WITH RESPECT TO ANY CLAIMS ARISING
Wolfgang Betz 130:770ce14d3d15 28 * FROM THE CONTENT OF SUCH FIRMWARE AND/OR THE USE MADE BY CUSTOMERS OF THE
Wolfgang Betz 130:770ce14d3d15 29 * CODING INFORMATION CONTAINED HEREIN IN CONNECTION WITH THEIR PRODUCTS.
Wolfgang Betz 130:770ce14d3d15 30 *
Wolfgang Betz 130:770ce14d3d15 31 * <h2><center>&copy; COPYRIGHT 2013 STMicroelectronics</center></h2>
Wolfgang Betz 130:770ce14d3d15 32 */
Wolfgang Betz 130:770ce14d3d15 33
Wolfgang Betz 130:770ce14d3d15 34
Wolfgang Betz 130:770ce14d3d15 35 // ANDREA: Changed some types (e.g., tHalUint8 --> uint8_t)
Wolfgang Betz 130:770ce14d3d15 36
Wolfgang Betz 130:770ce14d3d15 37 /** @defgroup BlueNRGGATTSERVER
Wolfgang Betz 130:770ce14d3d15 38 * @brief BlueNRG BLE_API GattServer Adaptation
Wolfgang Betz 130:770ce14d3d15 39 * @{
Wolfgang Betz 130:770ce14d3d15 40 */
Wolfgang Betz 130:770ce14d3d15 41
Wolfgang Betz 130:770ce14d3d15 42 #include "BlueNRGGattServer.h"
Wolfgang Betz 144:bdf5e8432131 43 #include "mbed-drivers/mbed.h"
Wolfgang Betz 130:770ce14d3d15 44 #include "BlueNRGGap.h"
Wolfgang Betz 130:770ce14d3d15 45 #include "Utils.h"
Wolfgang Betz 132:51056160fa4a 46 #include "debug.h"
Wolfgang Betz 130:770ce14d3d15 47
Wolfgang Betz 130:770ce14d3d15 48 /**************************************************************************/
Wolfgang Betz 130:770ce14d3d15 49 /*!
Wolfgang Betz 130:770ce14d3d15 50 @brief Adds a new service to the GATT table on the peripheral
Wolfgang Betz 130:770ce14d3d15 51
Wolfgang Betz 130:770ce14d3d15 52 @params[in] service
Wolfgang Betz 130:770ce14d3d15 53 Pointer to instance of the Gatt Server to add
Wolfgang Betz 130:770ce14d3d15 54
Wolfgang Betz 130:770ce14d3d15 55 @returns ble_error_t
Wolfgang Betz 130:770ce14d3d15 56
Wolfgang Betz 130:770ce14d3d15 57 @retval BLE_ERROR_NONE
Wolfgang Betz 130:770ce14d3d15 58 Everything executed properly
Wolfgang Betz 130:770ce14d3d15 59
Wolfgang Betz 130:770ce14d3d15 60 @section EXAMPLE
Wolfgang Betz 130:770ce14d3d15 61
Wolfgang Betz 130:770ce14d3d15 62 @code
Wolfgang Betz 130:770ce14d3d15 63
Wolfgang Betz 130:770ce14d3d15 64 @endcode
Wolfgang Betz 130:770ce14d3d15 65 */
Wolfgang Betz 130:770ce14d3d15 66 /**************************************************************************/
Wolfgang Betz 130:770ce14d3d15 67 ble_error_t BlueNRGGattServer::addService(GattService &service)
Wolfgang Betz 130:770ce14d3d15 68 {
Wolfgang Betz 130:770ce14d3d15 69 /* ToDo: Make sure we don't overflow the array, etc. */
Wolfgang Betz 130:770ce14d3d15 70 /* ToDo: Make sure this service UUID doesn't already exist (?) */
Wolfgang Betz 130:770ce14d3d15 71 /* ToDo: Basic validation */
Wolfgang Betz 130:770ce14d3d15 72
Wolfgang Betz 130:770ce14d3d15 73 tBleStatus ret;
Wolfgang Betz 130:770ce14d3d15 74 uint8_t type;
Wolfgang Betz 130:770ce14d3d15 75 uint16_t short_uuid;
Wolfgang Betz 130:770ce14d3d15 76 uint8_t primary_short_uuid[2];
Wolfgang Betz 130:770ce14d3d15 77 uint8_t primary_base_uuid[16];
Wolfgang Betz 130:770ce14d3d15 78 uint8_t char_base_uuid[16];
Wolfgang Betz 130:770ce14d3d15 79 const uint8_t *base_uuid;
Wolfgang Betz 130:770ce14d3d15 80 const uint8_t *base_char_uuid;
Wolfgang Betz 130:770ce14d3d15 81
Wolfgang Betz 130:770ce14d3d15 82 uint8_t charsCount = 0;
Wolfgang Betz 130:770ce14d3d15 83 uint8_t maxAttrRecords = 0;
Wolfgang Betz 130:770ce14d3d15 84
Wolfgang Betz 130:770ce14d3d15 85 type = (service.getUUID()).shortOrLong();
Wolfgang Betz 132:51056160fa4a 86 PRINTF("AddService(): Type:%d\n\r", type);
Wolfgang Betz 130:770ce14d3d15 87
Wolfgang Betz 130:770ce14d3d15 88 /* Add the service to the BlueNRG */
Wolfgang Betz 130:770ce14d3d15 89 short_uuid = (service.getUUID()).getShortUUID();
Wolfgang Betz 130:770ce14d3d15 90 STORE_LE_16(primary_short_uuid, short_uuid);
Wolfgang Betz 130:770ce14d3d15 91
Wolfgang Betz 130:770ce14d3d15 92 if(type==UUID::UUID_TYPE_LONG) {
Wolfgang Betz 130:770ce14d3d15 93 base_uuid = (service.getUUID()).getBaseUUID();
Wolfgang Betz 130:770ce14d3d15 94
Andrea Palmieri 207:b9df918d6d5a 95 COPY_UUID_128(primary_base_uuid, base_uuid[15],base_uuid[14],primary_short_uuid[1],primary_short_uuid[0],base_uuid[11],base_uuid[10],base_uuid[9],base_uuid[8],base_uuid[7],base_uuid[6],base_uuid[5],base_uuid[4],base_uuid[3],base_uuid[2],base_uuid[1],base_uuid[0]);
Wolfgang Betz 130:770ce14d3d15 96 }
Wolfgang Betz 130:770ce14d3d15 97
Wolfgang Betz 130:770ce14d3d15 98 charsCount = service.getCharacteristicCount();
Wolfgang Betz 130:770ce14d3d15 99 //1(service record)+2records*char+1record*char_desc
Wolfgang Betz 130:770ce14d3d15 100 maxAttrRecords = 1+3*charsCount;
Wolfgang Betz 130:770ce14d3d15 101
Wolfgang Betz 130:770ce14d3d15 102 if(type==UUID::UUID_TYPE_SHORT) {
Wolfgang Betz 130:770ce14d3d15 103 ret = aci_gatt_add_serv(UUID_TYPE_16,
Wolfgang Betz 130:770ce14d3d15 104 primary_short_uuid,
Wolfgang Betz 130:770ce14d3d15 105 PRIMARY_SERVICE,
Wolfgang Betz 130:770ce14d3d15 106 maxAttrRecords/*7*/,
Wolfgang Betz 130:770ce14d3d15 107 &servHandle);
Wolfgang Betz 132:51056160fa4a 108 PRINTF("aci_gatt_add_serv UUID_TYPE_LONG ret=%d\n\r", ret);
Wolfgang Betz 130:770ce14d3d15 109 }
Wolfgang Betz 130:770ce14d3d15 110 else if(type==UUID::UUID_TYPE_LONG) {
Wolfgang Betz 130:770ce14d3d15 111 ret = aci_gatt_add_serv(UUID_TYPE_128,
Wolfgang Betz 130:770ce14d3d15 112 primary_base_uuid,
Wolfgang Betz 130:770ce14d3d15 113 PRIMARY_SERVICE,
Wolfgang Betz 130:770ce14d3d15 114 maxAttrRecords/*7*/,
Wolfgang Betz 130:770ce14d3d15 115 &servHandle);
Wolfgang Betz 132:51056160fa4a 116 PRINTF("aci_gatt_add_serv UUID_TYPE_LONG ret=%d\n\r", ret);
Wolfgang Betz 130:770ce14d3d15 117 }
Wolfgang Betz 130:770ce14d3d15 118
Wolfgang Betz 130:770ce14d3d15 119 service.setHandle(servHandle);
Wolfgang Betz 130:770ce14d3d15 120 //serviceHandleVector.push_back(servHandle);
Wolfgang Betz 132:51056160fa4a 121 PRINTF("added servHandle handle =%u\n\r", servHandle);
Wolfgang Betz 130:770ce14d3d15 122 uint16_t bleCharacteristic;
Wolfgang Betz 130:770ce14d3d15 123
Wolfgang Betz 130:770ce14d3d15 124 //iterate to include all characteristics
Wolfgang Betz 130:770ce14d3d15 125 for (uint8_t i = 0; i < charsCount; i++) {
Wolfgang Betz 130:770ce14d3d15 126 GattCharacteristic *p_char = service.getCharacteristic(i);
Wolfgang Betz 130:770ce14d3d15 127 uint16_t char_uuid = (p_char->getValueAttribute().getUUID()).getShortUUID();
Wolfgang Betz 130:770ce14d3d15 128
Wolfgang Betz 130:770ce14d3d15 129 uint8_t int_8_uuid[2];
Wolfgang Betz 130:770ce14d3d15 130 STORE_LE_16(int_8_uuid, char_uuid);
Wolfgang Betz 130:770ce14d3d15 131
Wolfgang Betz 130:770ce14d3d15 132 if(type==UUID::UUID_TYPE_LONG) {
Wolfgang Betz 130:770ce14d3d15 133 base_char_uuid = (p_char->getValueAttribute().getUUID()).getBaseUUID();
Wolfgang Betz 130:770ce14d3d15 134
Andrea Palmieri 207:b9df918d6d5a 135 COPY_UUID_128(char_base_uuid,base_char_uuid[15],base_char_uuid[14],int_8_uuid[1],int_8_uuid[0],base_char_uuid[11],base_char_uuid[10],base_char_uuid[9],base_char_uuid[8],base_char_uuid[7],base_char_uuid[6],base_char_uuid[5],base_char_uuid[4],base_char_uuid[3],base_char_uuid[2],base_char_uuid[1],base_char_uuid[0]);
Wolfgang Betz 130:770ce14d3d15 136 }
Wolfgang Betz 130:770ce14d3d15 137
Wolfgang Betz 132:51056160fa4a 138 PRINTF("Char Properties 0x%x\n\r", p_char->getProperties());
Wolfgang Betz 130:770ce14d3d15 139 /*
Wolfgang Betz 130:770ce14d3d15 140 * Gatt_Evt_Mask -> HardCoded (0)
Wolfgang Betz 130:770ce14d3d15 141 * Encryption_Key_Size -> Hardcoded (16)
Wolfgang Betz 130:770ce14d3d15 142 * isVariable (variable length value field) -> Hardcoded (1)
Wolfgang Betz 130:770ce14d3d15 143 */
Wolfgang Betz 130:770ce14d3d15 144 uint8_t Gatt_Evt_Mask = 0x0;
Wolfgang Betz 130:770ce14d3d15 145
Wolfgang Betz 130:770ce14d3d15 146 if((p_char->getProperties() &
Wolfgang Betz 130:770ce14d3d15 147 (GattCharacteristic::BLE_GATT_CHAR_PROPERTIES_WRITE_WITHOUT_RESPONSE|
Wolfgang Betz 130:770ce14d3d15 148 GattCharacteristic::BLE_GATT_CHAR_PROPERTIES_WRITE))) {
Wolfgang Betz 132:51056160fa4a 149 PRINTF("Setting up Gatt GATT_NOTIFY_ATTRIBUTE_WRITE Mask\n\r");
Wolfgang Betz 130:770ce14d3d15 150 Gatt_Evt_Mask = Gatt_Evt_Mask | GATT_NOTIFY_ATTRIBUTE_WRITE;
Wolfgang Betz 130:770ce14d3d15 151 }
Wolfgang Betz 130:770ce14d3d15 152 if((p_char->getProperties() &
Wolfgang Betz 130:770ce14d3d15 153 (GattCharacteristic::BLE_GATT_CHAR_PROPERTIES_READ|
Wolfgang Betz 130:770ce14d3d15 154 GattCharacteristic::BLE_GATT_CHAR_PROPERTIES_NOTIFY| GattCharacteristic::BLE_GATT_CHAR_PROPERTIES_INDICATE))) {
Wolfgang Betz 132:51056160fa4a 155 PRINTF("Setting up Gatt GATT_NOTIFY_READ_REQ_AND_WAIT_FOR_APPL_RESP Mask\n\r");
Wolfgang Betz 130:770ce14d3d15 156 Gatt_Evt_Mask = Gatt_Evt_Mask | GATT_NOTIFY_READ_REQ_AND_WAIT_FOR_APPL_RESP;
Wolfgang Betz 130:770ce14d3d15 157 } //This will support also GATT_SERVER_ATTR_READ_WRITE since it will be covered by previous if() check.
Wolfgang Betz 130:770ce14d3d15 158
Wolfgang Betz 130:770ce14d3d15 159 if(type==UUID::UUID_TYPE_SHORT) {
Wolfgang Betz 130:770ce14d3d15 160 ret = aci_gatt_add_char(service.getHandle(),
Wolfgang Betz 130:770ce14d3d15 161 UUID_TYPE_16,
Wolfgang Betz 130:770ce14d3d15 162 int_8_uuid,
Wolfgang Betz 130:770ce14d3d15 163 p_char->getValueAttribute().getMaxLength() /*2*/ /*Value Length*/,
Wolfgang Betz 130:770ce14d3d15 164 p_char->getProperties(),
Wolfgang Betz 130:770ce14d3d15 165 ATTR_PERMISSION_NONE,
Wolfgang Betz 130:770ce14d3d15 166 Gatt_Evt_Mask /*Gatt_Evt_Mask*/,
Wolfgang Betz 130:770ce14d3d15 167 16 /*Encryption_Key_Size*/,
Wolfgang Betz 130:770ce14d3d15 168 1 /*isVariable*/,
Wolfgang Betz 130:770ce14d3d15 169 &bleCharacteristic);
Wolfgang Betz 130:770ce14d3d15 170
Wolfgang Betz 132:51056160fa4a 171 PRINTF("aci_gatt_add_char UUID_TYPE_16 props=%d MaxLength=%d ret=%d\n\r", p_char->getProperties(), p_char->getValueAttribute().getMaxLength(), ret);
Wolfgang Betz 130:770ce14d3d15 172
Wolfgang Betz 130:770ce14d3d15 173 } else if(type==UUID::UUID_TYPE_LONG) {
Wolfgang Betz 130:770ce14d3d15 174 ret = aci_gatt_add_char(service.getHandle(),
Wolfgang Betz 130:770ce14d3d15 175 UUID_TYPE_128,
Wolfgang Betz 130:770ce14d3d15 176 char_base_uuid,
Wolfgang Betz 130:770ce14d3d15 177 p_char->getValueAttribute().getMaxLength() /*2*/ /*Value Length*/,
Wolfgang Betz 130:770ce14d3d15 178 p_char->getProperties(),
Wolfgang Betz 130:770ce14d3d15 179 ATTR_PERMISSION_NONE,
Wolfgang Betz 130:770ce14d3d15 180 Gatt_Evt_Mask /*Gatt_Evt_Mask*/,
Wolfgang Betz 130:770ce14d3d15 181 16 /*Encryption_Key_Size*/,
Wolfgang Betz 130:770ce14d3d15 182 1 /*isVariable*/,
Wolfgang Betz 130:770ce14d3d15 183 &bleCharacteristic);
Wolfgang Betz 130:770ce14d3d15 184
Wolfgang Betz 132:51056160fa4a 185 PRINTF("aci_gatt_add_char UUID_TYPE_128 props=%d MaxLength=%d ret=%d\n\r", p_char->getProperties(), p_char->getValueAttribute().getMaxLength(), ret);
Wolfgang Betz 130:770ce14d3d15 186 }
Wolfgang Betz 130:770ce14d3d15 187
Wolfgang Betz 130:770ce14d3d15 188 /* Update the characteristic handle */
Wolfgang Betz 130:770ce14d3d15 189 //uint16_t charHandle = characteristicCount;
Wolfgang Betz 130:770ce14d3d15 190
Wolfgang Betz 130:770ce14d3d15 191 bleCharHanldeMap.insert(std::pair<uint16_t, uint16_t>(bleCharacteristic, servHandle));
Wolfgang Betz 130:770ce14d3d15 192
Wolfgang Betz 130:770ce14d3d15 193 p_characteristics[characteristicCount++] = p_char;
Wolfgang Betz 130:770ce14d3d15 194 p_char->getValueAttribute().setHandle(bleCharacteristic); //Set the characteristic count as the corresponding char handle
Wolfgang Betz 132:51056160fa4a 195 PRINTF("added bleCharacteristic handle =%u\n\r", bleCharacteristic);
Wolfgang Betz 130:770ce14d3d15 196
Andrea Palmieri 202:caf4864292c1 197 if ((p_char->getValueAttribute().getValuePtr() != NULL) && (p_char->getValueAttribute().getLength() > 0)) {
Andrea Palmieri 202:caf4864292c1 198 write(p_char->getValueAttribute().getHandle(), p_char->getValueAttribute().getValuePtr(), p_char->getValueAttribute().getLength(), false /* localOnly */);
Wolfgang Betz 130:770ce14d3d15 199 }
Wolfgang Betz 130:770ce14d3d15 200
Wolfgang Betz 130:770ce14d3d15 201 // add descriptors now
Wolfgang Betz 130:770ce14d3d15 202 uint16_t descHandle = 0;
Wolfgang Betz 132:51056160fa4a 203 PRINTF("p_char->getDescriptorCount()=%d\n\r", p_char->getDescriptorCount());
Wolfgang Betz 130:770ce14d3d15 204
Wolfgang Betz 130:770ce14d3d15 205 for(uint8_t descIndex=0; descIndex<p_char->getDescriptorCount(); descIndex++) {
Wolfgang Betz 130:770ce14d3d15 206 GattAttribute *descriptor = p_char->getDescriptor(descIndex);
Wolfgang Betz 130:770ce14d3d15 207 uint16_t shortUUID = descriptor->getUUID().getShortUUID();
Wolfgang Betz 130:770ce14d3d15 208 const uint8_t uuidArray[] = {(uint8_t)((shortUUID>>8)&0xFF), (uint8_t)((shortUUID&0xFF))};
Wolfgang Betz 130:770ce14d3d15 209 ret = aci_gatt_add_char_desc(service.getHandle(), p_char->getValueAttribute().getHandle(),
Andrea Palmieri 202:caf4864292c1 210 CHAR_DESC_TYPE_16_BIT, uuidArray, descriptor->getMaxLength(), descriptor->getLength(),
Wolfgang Betz 130:770ce14d3d15 211 descriptor->getValuePtr(), CHAR_DESC_SECURITY_PERMISSION, CHAR_DESC_ACCESS_PERMISSION, GATT_NOTIFY_ATTRIBUTE_WRITE,
Wolfgang Betz 130:770ce14d3d15 212 MIN_ENCRY_KEY_SIZE, CHAR_ATTRIBUTE_LEN_IS_FIXED, &descHandle);
Wolfgang Betz 132:51056160fa4a 213 PRINTF("Adding Descriptor descriptor handle=%d ret=%d\n\r", descHandle, ret);
Wolfgang Betz 130:770ce14d3d15 214 if(ret==(tBleStatus)0) {
Wolfgang Betz 132:51056160fa4a 215 PRINTF("Descriptor added successfully, descriptor handle=%d\n\r", descHandle);
Wolfgang Betz 130:770ce14d3d15 216 descriptor->setHandle(descHandle);
Wolfgang Betz 130:770ce14d3d15 217 }
Wolfgang Betz 130:770ce14d3d15 218 }
Wolfgang Betz 130:770ce14d3d15 219
Wolfgang Betz 130:770ce14d3d15 220 }
Wolfgang Betz 130:770ce14d3d15 221
Wolfgang Betz 130:770ce14d3d15 222 serviceCount++;
Wolfgang Betz 130:770ce14d3d15 223
Wolfgang Betz 130:770ce14d3d15 224 //FIXME: There is no GattService pointer array in GattServer.
Wolfgang Betz 130:770ce14d3d15 225 // There should be one? (Only the user is aware of GattServices!) Report to forum.
Wolfgang Betz 130:770ce14d3d15 226
Wolfgang Betz 130:770ce14d3d15 227 return BLE_ERROR_NONE;
Wolfgang Betz 130:770ce14d3d15 228 }
Wolfgang Betz 130:770ce14d3d15 229
Wolfgang Betz 130:770ce14d3d15 230 /**************************************************************************/
Wolfgang Betz 130:770ce14d3d15 231 /*!
Wolfgang Betz 130:770ce14d3d15 232 @brief Reads the value of a characteristic, based on the service
Wolfgang Betz 130:770ce14d3d15 233 and characteristic index fields
Wolfgang Betz 130:770ce14d3d15 234
Wolfgang Betz 130:770ce14d3d15 235 @param[in] charHandle
Wolfgang Betz 130:770ce14d3d15 236 The handle of the GattCharacteristic to read from
Wolfgang Betz 130:770ce14d3d15 237 @param[in] buffer
Wolfgang Betz 130:770ce14d3d15 238 Buffer to hold the the characteristic's value
Wolfgang Betz 130:770ce14d3d15 239 (raw byte array in LSB format)
Wolfgang Betz 130:770ce14d3d15 240 @param[in] lengthP
Wolfgang Betz 130:770ce14d3d15 241 The number of bytes read into the buffer
Wolfgang Betz 130:770ce14d3d15 242
Wolfgang Betz 130:770ce14d3d15 243 @returns ble_error_t
Wolfgang Betz 130:770ce14d3d15 244
Wolfgang Betz 130:770ce14d3d15 245 @retval BLE_ERROR_NONE
Wolfgang Betz 130:770ce14d3d15 246 Everything executed properly
Wolfgang Betz 130:770ce14d3d15 247
Wolfgang Betz 130:770ce14d3d15 248 @section EXAMPLE
Wolfgang Betz 130:770ce14d3d15 249
Wolfgang Betz 130:770ce14d3d15 250 @code
Wolfgang Betz 130:770ce14d3d15 251
Wolfgang Betz 130:770ce14d3d15 252 @endcode
Wolfgang Betz 130:770ce14d3d15 253 */
Wolfgang Betz 130:770ce14d3d15 254 /**************************************************************************/
Andrea Palmieri 204:6a6d2f041905 255 ble_error_t BlueNRGGattServer::read(GattAttribute::Handle_t charHandle, uint8_t buffer[], uint16_t *lengthP)
Wolfgang Betz 130:770ce14d3d15 256 {
Andrea Palmieri 204:6a6d2f041905 257 tBleStatus ret;
Andrea Palmieri 204:6a6d2f041905 258
Andrea Palmieri 204:6a6d2f041905 259 ret = aci_gatt_read_handle_value(charHandle+CHAR_VALUE_OFFSET, *lengthP, lengthP, buffer);
Andrea Palmieri 142:adf1567d3900 260
Andrea Palmieri 204:6a6d2f041905 261 if(ret == BLE_STATUS_SUCCESS) {
Andrea Palmieri 204:6a6d2f041905 262 return BLE_ERROR_NONE;
Andrea Palmieri 204:6a6d2f041905 263 }
Andrea Palmieri 204:6a6d2f041905 264 switch (ret) {
Andrea Palmieri 204:6a6d2f041905 265 case ERR_INVALID_HCI_CMD_PARAMS:
Andrea Palmieri 204:6a6d2f041905 266 return BLE_ERROR_INVALID_PARAM;
Andrea Palmieri 204:6a6d2f041905 267 default:
Andrea Palmieri 204:6a6d2f041905 268 return BLE_ERROR_UNSPECIFIED;
Andrea Palmieri 204:6a6d2f041905 269 }
Wolfgang Betz 130:770ce14d3d15 270 }
Wolfgang Betz 130:770ce14d3d15 271
Wolfgang Betz 130:770ce14d3d15 272 /**************************************************************************/
Wolfgang Betz 130:770ce14d3d15 273 /*!
Wolfgang Betz 130:770ce14d3d15 274 @brief Updates the value of a characteristic, based on the service
Wolfgang Betz 130:770ce14d3d15 275 and characteristic index fields
Wolfgang Betz 130:770ce14d3d15 276
Wolfgang Betz 130:770ce14d3d15 277 @param[in] charHandle
Wolfgang Betz 130:770ce14d3d15 278 The handle of the GattCharacteristic to write to
Wolfgang Betz 130:770ce14d3d15 279 @param[in] buffer
Wolfgang Betz 130:770ce14d3d15 280 Data to use when updating the characteristic's value
Wolfgang Betz 130:770ce14d3d15 281 (raw byte array in LSB format)
Wolfgang Betz 130:770ce14d3d15 282 @param[in] len
Wolfgang Betz 130:770ce14d3d15 283 The number of bytes in buffer
Wolfgang Betz 130:770ce14d3d15 284
Wolfgang Betz 130:770ce14d3d15 285 @returns ble_error_t
Wolfgang Betz 130:770ce14d3d15 286
Wolfgang Betz 130:770ce14d3d15 287 @retval BLE_ERROR_NONE
Wolfgang Betz 130:770ce14d3d15 288 Everything executed properly
Wolfgang Betz 130:770ce14d3d15 289
Wolfgang Betz 130:770ce14d3d15 290 @section EXAMPLE
Wolfgang Betz 130:770ce14d3d15 291
Wolfgang Betz 130:770ce14d3d15 292 @code
Wolfgang Betz 130:770ce14d3d15 293
Wolfgang Betz 130:770ce14d3d15 294 @endcode
Wolfgang Betz 130:770ce14d3d15 295 */
Wolfgang Betz 130:770ce14d3d15 296 /**************************************************************************/
Wolfgang Betz 130:770ce14d3d15 297 // <<<ANDREA>>>
Andrea Palmieri 204:6a6d2f041905 298 ble_error_t BlueNRGGattServer::read(Gap::Handle_t connectionHandle, GattAttribute::Handle_t attributeHandle, uint8_t buffer[], uint16_t *lengthP) {
Andrea Palmieri 142:adf1567d3900 299
Andrea Palmieri 142:adf1567d3900 300 /* avoid compiler warnings about unused variables */
Andrea Palmieri 142:adf1567d3900 301 (void)connectionHandle;
Andrea Palmieri 142:adf1567d3900 302 (void)attributeHandle;
Andrea Palmieri 142:adf1567d3900 303 (void)buffer;
Andrea Palmieri 142:adf1567d3900 304 (void)lengthP;
Andrea Palmieri 142:adf1567d3900 305
Andrea Palmieri 142:adf1567d3900 306 return BLE_ERROR_NONE;
Wolfgang Betz 130:770ce14d3d15 307 }
Wolfgang Betz 130:770ce14d3d15 308
Wolfgang Betz 130:770ce14d3d15 309 ble_error_t BlueNRGGattServer::write(Gap::Handle_t connectionHandle, GattAttribute::Handle_t, const uint8_t[], uint16_t, bool localOnly) {
Andrea Palmieri 142:adf1567d3900 310 /* avoid compiler warnings about unused variables */
Andrea Palmieri 142:adf1567d3900 311 (void)connectionHandle;
Andrea Palmieri 142:adf1567d3900 312 (void)localOnly;
Andrea Palmieri 142:adf1567d3900 313
Andrea Palmieri 142:adf1567d3900 314 return BLE_ERROR_NONE;
Wolfgang Betz 130:770ce14d3d15 315 }
Wolfgang Betz 130:770ce14d3d15 316
Wolfgang Betz 130:770ce14d3d15 317 ble_error_t BlueNRGGattServer::write(GattAttribute::Handle_t charHandle, const uint8_t buffer[], uint16_t len, bool localOnly)
Wolfgang Betz 130:770ce14d3d15 318 {
Andrea Palmieri 142:adf1567d3900 319 /* avoid compiler warnings about unused variables */
Andrea Palmieri 142:adf1567d3900 320 (void)localOnly;
Andrea Palmieri 142:adf1567d3900 321
Andrea Palmieri 142:adf1567d3900 322 tBleStatus ret;
Wolfgang Betz 130:770ce14d3d15 323 //uint8_t buff[2];
Wolfgang Betz 130:770ce14d3d15 324
Wolfgang Betz 132:51056160fa4a 325 PRINTF("updating bleCharacteristic charHandle =%u, corresponding serviceHanle= %u len=%d\n\r", charHandle, bleCharHanldeMap.find(charHandle)->second, len);
Wolfgang Betz 130:770ce14d3d15 326 /*
Wolfgang Betz 130:770ce14d3d15 327 for(int i=0; i<len; i++) {
Wolfgang Betz 132:51056160fa4a 328 PRINTF("buffer[%d]=%d\n\r", i, buffer[i]);
Wolfgang Betz 130:770ce14d3d15 329 }
Wolfgang Betz 130:770ce14d3d15 330 */
Wolfgang Betz 130:770ce14d3d15 331 ret = aci_gatt_update_char_value(bleCharHanldeMap.find(charHandle)->second, charHandle, 0, len, buffer);
Wolfgang Betz 130:770ce14d3d15 332
Wolfgang Betz 130:770ce14d3d15 333 if (ret != BLE_STATUS_SUCCESS){
Andrea Palmieri 207:b9df918d6d5a 334 PRINTF("Error while updating characteristic (ret=0x%x).\n\r", ret);
Andrea Palmieri 207:b9df918d6d5a 335 switch (ret) {
Andrea Palmieri 207:b9df918d6d5a 336 case BLE_STATUS_INVALID_HANDLE:
Andrea Palmieri 207:b9df918d6d5a 337 case BLE_STATUS_INVALID_PARAMETER:
Andrea Palmieri 207:b9df918d6d5a 338 return BLE_ERROR_INVALID_PARAM;
Andrea Palmieri 207:b9df918d6d5a 339 default:
Andrea Palmieri 207:b9df918d6d5a 340 return BLE_STACK_BUSY;
Andrea Palmieri 207:b9df918d6d5a 341 }
Wolfgang Betz 130:770ce14d3d15 342 }
Wolfgang Betz 130:770ce14d3d15 343
Wolfgang Betz 130:770ce14d3d15 344 //Generate Data Sent Event Here? (GattServerEvents::GATT_EVENT_DATA_SENT) //FIXME: Is this correct?
Wolfgang Betz 130:770ce14d3d15 345 //Check if characteristic property is NOTIFY|INDICATE, if yes generate event
Wolfgang Betz 130:770ce14d3d15 346 GattCharacteristic *p_char = BlueNRGGattServer::getInstance().getCharacteristicFromHandle(charHandle);
Wolfgang Betz 130:770ce14d3d15 347 if(p_char->getProperties() & (GattCharacteristic::BLE_GATT_CHAR_PROPERTIES_NOTIFY
Wolfgang Betz 130:770ce14d3d15 348 | GattCharacteristic::BLE_GATT_CHAR_PROPERTIES_INDICATE)) {
Wolfgang Betz 132:51056160fa4a 349 PRINTF("Generate event after updating\n\r");
Wolfgang Betz 130:770ce14d3d15 350 BlueNRGGattServer::getInstance().handleEvent(GattServerEvents::GATT_EVENT_DATA_SENT, charHandle);
Wolfgang Betz 130:770ce14d3d15 351 }
Wolfgang Betz 130:770ce14d3d15 352
Wolfgang Betz 130:770ce14d3d15 353 return BLE_ERROR_NONE;
Wolfgang Betz 130:770ce14d3d15 354 }
Wolfgang Betz 130:770ce14d3d15 355
Wolfgang Betz 130:770ce14d3d15 356 /**************************************************************************/
Wolfgang Betz 130:770ce14d3d15 357 /*!
Wolfgang Betz 130:770ce14d3d15 358 @brief Reads a value according to the handle provided
Wolfgang Betz 130:770ce14d3d15 359
Wolfgang Betz 130:770ce14d3d15 360 @param[in] charHandle
Wolfgang Betz 130:770ce14d3d15 361 The handle of the GattCharacteristic to read from
Wolfgang Betz 130:770ce14d3d15 362
Wolfgang Betz 130:770ce14d3d15 363 @returns ble_error_t
Wolfgang Betz 130:770ce14d3d15 364
Wolfgang Betz 130:770ce14d3d15 365 @retval BLE_ERROR_NONE
Wolfgang Betz 130:770ce14d3d15 366 Everything executed properly
Wolfgang Betz 130:770ce14d3d15 367
Wolfgang Betz 130:770ce14d3d15 368 @section EXAMPLE
Wolfgang Betz 130:770ce14d3d15 369
Wolfgang Betz 130:770ce14d3d15 370 @code
Wolfgang Betz 130:770ce14d3d15 371
Wolfgang Betz 130:770ce14d3d15 372 @endcode
Wolfgang Betz 130:770ce14d3d15 373 */
Wolfgang Betz 130:770ce14d3d15 374 /**************************************************************************/
Wolfgang Betz 130:770ce14d3d15 375 ble_error_t BlueNRGGattServer::Read_Request_CB(uint16_t handle)
Wolfgang Betz 130:770ce14d3d15 376 {
Wolfgang Betz 130:770ce14d3d15 377 //signed short refvalue;
Wolfgang Betz 130:770ce14d3d15 378 uint16_t gapConnectionHandle = BlueNRGGap::getInstance().getConnectionHandle();
Wolfgang Betz 130:770ce14d3d15 379
Wolfgang Betz 130:770ce14d3d15 380 GattReadCallbackParams readParams;
Wolfgang Betz 130:770ce14d3d15 381 readParams.handle = handle;
Wolfgang Betz 130:770ce14d3d15 382
Wolfgang Betz 132:51056160fa4a 383 //PRINTF("readParams.charHandle = %d\n\r", readParams.charHandle);
Wolfgang Betz 130:770ce14d3d15 384 HCIDataReadEvent(&readParams);
Wolfgang Betz 130:770ce14d3d15 385
Wolfgang Betz 130:770ce14d3d15 386 //EXIT:
Wolfgang Betz 130:770ce14d3d15 387 if(gapConnectionHandle != 0){
Wolfgang Betz 132:51056160fa4a 388 //PRINTF("Calling aci_gatt_allow_read\n\r");
Wolfgang Betz 130:770ce14d3d15 389 aci_gatt_allow_read(gapConnectionHandle);
Wolfgang Betz 130:770ce14d3d15 390 }
Wolfgang Betz 130:770ce14d3d15 391
Wolfgang Betz 130:770ce14d3d15 392 return BLE_ERROR_NONE;
Wolfgang Betz 130:770ce14d3d15 393 }
Wolfgang Betz 130:770ce14d3d15 394
Wolfgang Betz 130:770ce14d3d15 395 /**************************************************************************/
Wolfgang Betz 130:770ce14d3d15 396 /*!
Wolfgang Betz 130:770ce14d3d15 397 @brief Returns the GattCharacteristic according to the handle provided
Wolfgang Betz 130:770ce14d3d15 398
Wolfgang Betz 130:770ce14d3d15 399 @param[in] charHandle
Wolfgang Betz 130:770ce14d3d15 400 The handle of the GattCharacteristic
Wolfgang Betz 130:770ce14d3d15 401
Wolfgang Betz 130:770ce14d3d15 402 @returns ble_error_t
Wolfgang Betz 130:770ce14d3d15 403
Wolfgang Betz 130:770ce14d3d15 404 @retval BLE_ERROR_NONE
Wolfgang Betz 130:770ce14d3d15 405 Everything executed properly
Wolfgang Betz 130:770ce14d3d15 406
Wolfgang Betz 130:770ce14d3d15 407 @section EXAMPLE
Wolfgang Betz 130:770ce14d3d15 408
Wolfgang Betz 130:770ce14d3d15 409 @code
Wolfgang Betz 130:770ce14d3d15 410
Wolfgang Betz 130:770ce14d3d15 411 @endcode
Wolfgang Betz 130:770ce14d3d15 412 */
Wolfgang Betz 130:770ce14d3d15 413 /**************************************************************************/
Wolfgang Betz 130:770ce14d3d15 414 GattCharacteristic* BlueNRGGattServer::getCharacteristicFromHandle(uint16_t attrHandle)
Wolfgang Betz 130:770ce14d3d15 415 {
Wolfgang Betz 130:770ce14d3d15 416 GattCharacteristic *p_char = NULL;
Wolfgang Betz 130:770ce14d3d15 417 int i;
Wolfgang Betz 130:770ce14d3d15 418 uint16_t handle, handle_1;
Wolfgang Betz 130:770ce14d3d15 419
Wolfgang Betz 132:51056160fa4a 420 PRINTF("BlueNRGGattServer::getCharacteristicFromHandle()>>Attribute Handle received %d\n\r",attrHandle);
Wolfgang Betz 130:770ce14d3d15 421 for(i=0; i<characteristicCount; i++)
Wolfgang Betz 130:770ce14d3d15 422 {
Wolfgang Betz 130:770ce14d3d15 423 handle = p_characteristics[i]->getValueAttribute().getHandle();
Wolfgang Betz 132:51056160fa4a 424 PRINTF("handle(%d)=%d\n\r", i, handle);
Wolfgang Betz 130:770ce14d3d15 425 if(i==characteristicCount-1)//Last Characteristic check
Wolfgang Betz 130:770ce14d3d15 426 {
Wolfgang Betz 130:770ce14d3d15 427 if(attrHandle>=handle)
Wolfgang Betz 130:770ce14d3d15 428 {
Wolfgang Betz 130:770ce14d3d15 429 p_char = p_characteristics[i];
Wolfgang Betz 132:51056160fa4a 430 PRINTF("Found Characteristic Properties 0x%x (handle=%d)\n\r",p_char->getProperties(), handle);
Wolfgang Betz 130:770ce14d3d15 431 break;
Wolfgang Betz 130:770ce14d3d15 432 }
Wolfgang Betz 130:770ce14d3d15 433 }
Wolfgang Betz 130:770ce14d3d15 434 else {
Wolfgang Betz 130:770ce14d3d15 435 handle_1 = p_characteristics[i+1]->getValueAttribute().getHandle();
Wolfgang Betz 130:770ce14d3d15 436 //Testing if attribute handle is between two Characteristic Handles
Wolfgang Betz 130:770ce14d3d15 437 if(attrHandle>=handle && attrHandle<handle_1)
Wolfgang Betz 130:770ce14d3d15 438 {
Wolfgang Betz 130:770ce14d3d15 439 p_char = p_characteristics[i];
Wolfgang Betz 132:51056160fa4a 440 PRINTF("Found Characteristic Properties 0x%x (handle=%d handle_1=%d)\n\r",p_char->getProperties(), handle, handle_1);
Wolfgang Betz 130:770ce14d3d15 441 break;
Wolfgang Betz 130:770ce14d3d15 442 } else continue;
Wolfgang Betz 130:770ce14d3d15 443 }
Wolfgang Betz 130:770ce14d3d15 444 }
Wolfgang Betz 130:770ce14d3d15 445
Wolfgang Betz 130:770ce14d3d15 446 return p_char;
Wolfgang Betz 130:770ce14d3d15 447 }
Wolfgang Betz 130:770ce14d3d15 448
Wolfgang Betz 130:770ce14d3d15 449 void BlueNRGGattServer::HCIDataWrittenEvent(const GattWriteCallbackParams *params) {
Wolfgang Betz 130:770ce14d3d15 450 this->handleDataWrittenEvent(params);
Wolfgang Betz 130:770ce14d3d15 451 }
Wolfgang Betz 130:770ce14d3d15 452
Wolfgang Betz 130:770ce14d3d15 453 void BlueNRGGattServer::HCIDataReadEvent(const GattReadCallbackParams *params) {
Wolfgang Betz 132:51056160fa4a 454 PRINTF("Called HCIDataReadEvent\n\r");
Wolfgang Betz 130:770ce14d3d15 455 this->handleDataReadEvent(params);
Wolfgang Betz 130:770ce14d3d15 456 }
Wolfgang Betz 130:770ce14d3d15 457
Wolfgang Betz 130:770ce14d3d15 458 void BlueNRGGattServer::HCIEvent(GattServerEvents::gattEvent_e type, uint16_t charHandle) {
Wolfgang Betz 130:770ce14d3d15 459 this->handleEvent(type, charHandle);
Wolfgang Betz 130:770ce14d3d15 460 }
Wolfgang Betz 130:770ce14d3d15 461
Wolfgang Betz 130:770ce14d3d15 462 void BlueNRGGattServer::HCIDataSentEvent(unsigned count) {
Wolfgang Betz 130:770ce14d3d15 463 this->handleDataSentEvent(count);
Wolfgang Betz 130:770ce14d3d15 464 }
Wolfgang Betz 130:770ce14d3d15 465
Wolfgang Betz 130:770ce14d3d15 466
Wolfgang Betz 130:770ce14d3d15 467 ble_error_t BlueNRGGattServer::initializeGATTDatabase(void) {
Wolfgang Betz 130:770ce14d3d15 468 // <TODO>
Wolfgang Betz 130:770ce14d3d15 469 return (ble_error_t)0;
Wolfgang Betz 130:770ce14d3d15 470 }