BLE test

Fork of X_NUCLEO_IDB0XA1 by ST

Committer:
Andrea Palmieri
Date:
Wed Nov 18 15:48:31 2015 +0100
Revision:
177:65d9b1b75fca
Parent:
144:bdf5e8432131
Child:
203:5b9c78101d45
Provide mbed classic compatibility

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"
Andrea Palmieri 177:65d9b1b75fca 43 #include "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
Wolfgang Betz 130:770ce14d3d15 95 COPY_UUID_128(primary_base_uuid, base_uuid[15],base_uuid[14],base_uuid[13],base_uuid[12],base_uuid[11],base_uuid[10],base_uuid[9],
Wolfgang Betz 130:770ce14d3d15 96 base_uuid[8],base_uuid[7],base_uuid[6],base_uuid[5],base_uuid[4],primary_short_uuid[1],primary_short_uuid[0],base_uuid[1],base_uuid[0]);
Wolfgang Betz 130:770ce14d3d15 97 }
Wolfgang Betz 130:770ce14d3d15 98
Wolfgang Betz 130:770ce14d3d15 99 charsCount = service.getCharacteristicCount();
Wolfgang Betz 130:770ce14d3d15 100 //1(service record)+2records*char+1record*char_desc
Wolfgang Betz 130:770ce14d3d15 101 maxAttrRecords = 1+3*charsCount;
Wolfgang Betz 130:770ce14d3d15 102
Wolfgang Betz 130:770ce14d3d15 103 if(type==UUID::UUID_TYPE_SHORT) {
Wolfgang Betz 130:770ce14d3d15 104 ret = aci_gatt_add_serv(UUID_TYPE_16,
Wolfgang Betz 130:770ce14d3d15 105 primary_short_uuid,
Wolfgang Betz 130:770ce14d3d15 106 PRIMARY_SERVICE,
Wolfgang Betz 130:770ce14d3d15 107 maxAttrRecords/*7*/,
Wolfgang Betz 130:770ce14d3d15 108 &servHandle);
Wolfgang Betz 132:51056160fa4a 109 PRINTF("aci_gatt_add_serv UUID_TYPE_LONG ret=%d\n\r", ret);
Wolfgang Betz 130:770ce14d3d15 110 }
Wolfgang Betz 130:770ce14d3d15 111 else if(type==UUID::UUID_TYPE_LONG) {
Wolfgang Betz 130:770ce14d3d15 112 ret = aci_gatt_add_serv(UUID_TYPE_128,
Wolfgang Betz 130:770ce14d3d15 113 primary_base_uuid,
Wolfgang Betz 130:770ce14d3d15 114 PRIMARY_SERVICE,
Wolfgang Betz 130:770ce14d3d15 115 maxAttrRecords/*7*/,
Wolfgang Betz 130:770ce14d3d15 116 &servHandle);
Wolfgang Betz 132:51056160fa4a 117 PRINTF("aci_gatt_add_serv UUID_TYPE_LONG ret=%d\n\r", ret);
Wolfgang Betz 130:770ce14d3d15 118 }
Wolfgang Betz 130:770ce14d3d15 119
Wolfgang Betz 130:770ce14d3d15 120 service.setHandle(servHandle);
Wolfgang Betz 130:770ce14d3d15 121 //serviceHandleVector.push_back(servHandle);
Wolfgang Betz 132:51056160fa4a 122 PRINTF("added servHandle handle =%u\n\r", servHandle);
Wolfgang Betz 130:770ce14d3d15 123 uint16_t bleCharacteristic;
Wolfgang Betz 130:770ce14d3d15 124
Wolfgang Betz 130:770ce14d3d15 125 //iterate to include all characteristics
Wolfgang Betz 130:770ce14d3d15 126 for (uint8_t i = 0; i < charsCount; i++) {
Wolfgang Betz 130:770ce14d3d15 127 GattCharacteristic *p_char = service.getCharacteristic(i);
Wolfgang Betz 130:770ce14d3d15 128 uint16_t char_uuid = (p_char->getValueAttribute().getUUID()).getShortUUID();
Wolfgang Betz 130:770ce14d3d15 129
Wolfgang Betz 130:770ce14d3d15 130 uint8_t int_8_uuid[2];
Wolfgang Betz 130:770ce14d3d15 131 STORE_LE_16(int_8_uuid, char_uuid);
Wolfgang Betz 130:770ce14d3d15 132
Wolfgang Betz 130:770ce14d3d15 133 if(type==UUID::UUID_TYPE_LONG) {
Wolfgang Betz 130:770ce14d3d15 134 base_char_uuid = (p_char->getValueAttribute().getUUID()).getBaseUUID();
Wolfgang Betz 130:770ce14d3d15 135
Wolfgang Betz 130:770ce14d3d15 136 COPY_UUID_128(char_base_uuid, base_char_uuid[15],base_char_uuid[14],base_char_uuid[13],base_char_uuid[12],base_char_uuid[11],base_char_uuid[10],base_char_uuid[9],
Wolfgang Betz 130:770ce14d3d15 137 base_char_uuid[8],base_char_uuid[7],base_char_uuid[6],base_char_uuid[5],base_char_uuid[4],int_8_uuid[1],int_8_uuid[0],base_char_uuid[1],base_char_uuid[0]);
Wolfgang Betz 130:770ce14d3d15 138 }
Wolfgang Betz 130:770ce14d3d15 139
Wolfgang Betz 132:51056160fa4a 140 PRINTF("Char Properties 0x%x\n\r", p_char->getProperties());
Wolfgang Betz 130:770ce14d3d15 141 /*
Wolfgang Betz 130:770ce14d3d15 142 * Gatt_Evt_Mask -> HardCoded (0)
Wolfgang Betz 130:770ce14d3d15 143 * Encryption_Key_Size -> Hardcoded (16)
Wolfgang Betz 130:770ce14d3d15 144 * isVariable (variable length value field) -> Hardcoded (1)
Wolfgang Betz 130:770ce14d3d15 145 */
Wolfgang Betz 130:770ce14d3d15 146 uint8_t Gatt_Evt_Mask = 0x0;
Wolfgang Betz 130:770ce14d3d15 147
Wolfgang Betz 130:770ce14d3d15 148 if((p_char->getProperties() &
Wolfgang Betz 130:770ce14d3d15 149 (GattCharacteristic::BLE_GATT_CHAR_PROPERTIES_WRITE_WITHOUT_RESPONSE|
Wolfgang Betz 130:770ce14d3d15 150 GattCharacteristic::BLE_GATT_CHAR_PROPERTIES_WRITE))) {
Wolfgang Betz 132:51056160fa4a 151 PRINTF("Setting up Gatt GATT_NOTIFY_ATTRIBUTE_WRITE Mask\n\r");
Wolfgang Betz 130:770ce14d3d15 152 Gatt_Evt_Mask = Gatt_Evt_Mask | GATT_NOTIFY_ATTRIBUTE_WRITE;
Wolfgang Betz 130:770ce14d3d15 153 }
Wolfgang Betz 130:770ce14d3d15 154 if((p_char->getProperties() &
Wolfgang Betz 130:770ce14d3d15 155 (GattCharacteristic::BLE_GATT_CHAR_PROPERTIES_READ|
Wolfgang Betz 130:770ce14d3d15 156 GattCharacteristic::BLE_GATT_CHAR_PROPERTIES_NOTIFY| GattCharacteristic::BLE_GATT_CHAR_PROPERTIES_INDICATE))) {
Wolfgang Betz 132:51056160fa4a 157 PRINTF("Setting up Gatt GATT_NOTIFY_READ_REQ_AND_WAIT_FOR_APPL_RESP Mask\n\r");
Wolfgang Betz 130:770ce14d3d15 158 Gatt_Evt_Mask = Gatt_Evt_Mask | GATT_NOTIFY_READ_REQ_AND_WAIT_FOR_APPL_RESP;
Wolfgang Betz 130:770ce14d3d15 159 } //This will support also GATT_SERVER_ATTR_READ_WRITE since it will be covered by previous if() check.
Wolfgang Betz 130:770ce14d3d15 160
Wolfgang Betz 130:770ce14d3d15 161 if(type==UUID::UUID_TYPE_SHORT) {
Wolfgang Betz 130:770ce14d3d15 162 ret = aci_gatt_add_char(service.getHandle(),
Wolfgang Betz 130:770ce14d3d15 163 UUID_TYPE_16,
Wolfgang Betz 130:770ce14d3d15 164 int_8_uuid,
Wolfgang Betz 130:770ce14d3d15 165 p_char->getValueAttribute().getMaxLength() /*2*/ /*Value Length*/,
Wolfgang Betz 130:770ce14d3d15 166 p_char->getProperties(),
Wolfgang Betz 130:770ce14d3d15 167 ATTR_PERMISSION_NONE,
Wolfgang Betz 130:770ce14d3d15 168 Gatt_Evt_Mask /*Gatt_Evt_Mask*/,
Wolfgang Betz 130:770ce14d3d15 169 16 /*Encryption_Key_Size*/,
Wolfgang Betz 130:770ce14d3d15 170 1 /*isVariable*/,
Wolfgang Betz 130:770ce14d3d15 171 &bleCharacteristic);
Wolfgang Betz 130:770ce14d3d15 172
Wolfgang Betz 132:51056160fa4a 173 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 174
Wolfgang Betz 130:770ce14d3d15 175 } else if(type==UUID::UUID_TYPE_LONG) {
Wolfgang Betz 130:770ce14d3d15 176 ret = aci_gatt_add_char(service.getHandle(),
Wolfgang Betz 130:770ce14d3d15 177 UUID_TYPE_128,
Wolfgang Betz 130:770ce14d3d15 178 char_base_uuid,
Wolfgang Betz 130:770ce14d3d15 179 p_char->getValueAttribute().getMaxLength() /*2*/ /*Value Length*/,
Wolfgang Betz 130:770ce14d3d15 180 p_char->getProperties(),
Wolfgang Betz 130:770ce14d3d15 181 ATTR_PERMISSION_NONE,
Wolfgang Betz 130:770ce14d3d15 182 Gatt_Evt_Mask /*Gatt_Evt_Mask*/,
Wolfgang Betz 130:770ce14d3d15 183 16 /*Encryption_Key_Size*/,
Wolfgang Betz 130:770ce14d3d15 184 1 /*isVariable*/,
Wolfgang Betz 130:770ce14d3d15 185 &bleCharacteristic);
Wolfgang Betz 130:770ce14d3d15 186
Wolfgang Betz 132:51056160fa4a 187 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 188 }
Wolfgang Betz 130:770ce14d3d15 189
Wolfgang Betz 130:770ce14d3d15 190 /* Update the characteristic handle */
Wolfgang Betz 130:770ce14d3d15 191 //uint16_t charHandle = characteristicCount;
Wolfgang Betz 130:770ce14d3d15 192
Wolfgang Betz 130:770ce14d3d15 193 bleCharHanldeMap.insert(std::pair<uint16_t, uint16_t>(bleCharacteristic, servHandle));
Wolfgang Betz 130:770ce14d3d15 194
Wolfgang Betz 130:770ce14d3d15 195 p_characteristics[characteristicCount++] = p_char;
Wolfgang Betz 130:770ce14d3d15 196 p_char->getValueAttribute().setHandle(bleCharacteristic); //Set the characteristic count as the corresponding char handle
Wolfgang Betz 132:51056160fa4a 197 PRINTF("added bleCharacteristic handle =%u\n\r", bleCharacteristic);
Wolfgang Betz 130:770ce14d3d15 198
Wolfgang Betz 130:770ce14d3d15 199 if ((p_char->getValueAttribute().getValuePtr() != NULL) && (p_char->getValueAttribute().getInitialLength() > 0)) {
Wolfgang Betz 130:770ce14d3d15 200 write(p_char->getValueAttribute().getHandle(), p_char->getValueAttribute().getValuePtr(), p_char->getValueAttribute().getInitialLength(), false /* localOnly */);
Wolfgang Betz 130:770ce14d3d15 201 }
Wolfgang Betz 130:770ce14d3d15 202
Wolfgang Betz 130:770ce14d3d15 203 // add descriptors now
Wolfgang Betz 130:770ce14d3d15 204 uint16_t descHandle = 0;
Wolfgang Betz 132:51056160fa4a 205 PRINTF("p_char->getDescriptorCount()=%d\n\r", p_char->getDescriptorCount());
Wolfgang Betz 130:770ce14d3d15 206
Wolfgang Betz 130:770ce14d3d15 207 for(uint8_t descIndex=0; descIndex<p_char->getDescriptorCount(); descIndex++) {
Wolfgang Betz 130:770ce14d3d15 208 GattAttribute *descriptor = p_char->getDescriptor(descIndex);
Wolfgang Betz 130:770ce14d3d15 209 uint16_t shortUUID = descriptor->getUUID().getShortUUID();
Wolfgang Betz 130:770ce14d3d15 210 const uint8_t uuidArray[] = {(uint8_t)((shortUUID>>8)&0xFF), (uint8_t)((shortUUID&0xFF))};
Wolfgang Betz 130:770ce14d3d15 211 ret = aci_gatt_add_char_desc(service.getHandle(), p_char->getValueAttribute().getHandle(),
Wolfgang Betz 130:770ce14d3d15 212 CHAR_DESC_TYPE_16_BIT, uuidArray, descriptor->getMaxLength(), descriptor->getInitialLength(),
Wolfgang Betz 130:770ce14d3d15 213 descriptor->getValuePtr(), CHAR_DESC_SECURITY_PERMISSION, CHAR_DESC_ACCESS_PERMISSION, GATT_NOTIFY_ATTRIBUTE_WRITE,
Wolfgang Betz 130:770ce14d3d15 214 MIN_ENCRY_KEY_SIZE, CHAR_ATTRIBUTE_LEN_IS_FIXED, &descHandle);
Wolfgang Betz 132:51056160fa4a 215 PRINTF("Adding Descriptor descriptor handle=%d ret=%d\n\r", descHandle, ret);
Wolfgang Betz 130:770ce14d3d15 216 if(ret==(tBleStatus)0) {
Wolfgang Betz 132:51056160fa4a 217 PRINTF("Descriptor added successfully, descriptor handle=%d\n\r", descHandle);
Wolfgang Betz 130:770ce14d3d15 218 descriptor->setHandle(descHandle);
Wolfgang Betz 130:770ce14d3d15 219 }
Wolfgang Betz 130:770ce14d3d15 220 }
Wolfgang Betz 130:770ce14d3d15 221
Wolfgang Betz 130:770ce14d3d15 222 }
Wolfgang Betz 130:770ce14d3d15 223
Wolfgang Betz 130:770ce14d3d15 224 serviceCount++;
Wolfgang Betz 130:770ce14d3d15 225
Wolfgang Betz 130:770ce14d3d15 226 //FIXME: There is no GattService pointer array in GattServer.
Wolfgang Betz 130:770ce14d3d15 227 // There should be one? (Only the user is aware of GattServices!) Report to forum.
Wolfgang Betz 130:770ce14d3d15 228
Wolfgang Betz 130:770ce14d3d15 229 return BLE_ERROR_NONE;
Wolfgang Betz 130:770ce14d3d15 230 }
Wolfgang Betz 130:770ce14d3d15 231
Wolfgang Betz 130:770ce14d3d15 232 /**************************************************************************/
Wolfgang Betz 130:770ce14d3d15 233 /*!
Wolfgang Betz 130:770ce14d3d15 234 @brief Reads the value of a characteristic, based on the service
Wolfgang Betz 130:770ce14d3d15 235 and characteristic index fields
Wolfgang Betz 130:770ce14d3d15 236
Wolfgang Betz 130:770ce14d3d15 237 @param[in] charHandle
Wolfgang Betz 130:770ce14d3d15 238 The handle of the GattCharacteristic to read from
Wolfgang Betz 130:770ce14d3d15 239 @param[in] buffer
Wolfgang Betz 130:770ce14d3d15 240 Buffer to hold the the characteristic's value
Wolfgang Betz 130:770ce14d3d15 241 (raw byte array in LSB format)
Wolfgang Betz 130:770ce14d3d15 242 @param[in] lengthP
Wolfgang Betz 130:770ce14d3d15 243 The number of bytes read into the buffer
Wolfgang Betz 130:770ce14d3d15 244
Wolfgang Betz 130:770ce14d3d15 245 @returns ble_error_t
Wolfgang Betz 130:770ce14d3d15 246
Wolfgang Betz 130:770ce14d3d15 247 @retval BLE_ERROR_NONE
Wolfgang Betz 130:770ce14d3d15 248 Everything executed properly
Wolfgang Betz 130:770ce14d3d15 249
Wolfgang Betz 130:770ce14d3d15 250 @section EXAMPLE
Wolfgang Betz 130:770ce14d3d15 251
Wolfgang Betz 130:770ce14d3d15 252 @code
Wolfgang Betz 130:770ce14d3d15 253
Wolfgang Betz 130:770ce14d3d15 254 @endcode
Wolfgang Betz 130:770ce14d3d15 255 */
Wolfgang Betz 130:770ce14d3d15 256 /**************************************************************************/
Wolfgang Betz 130:770ce14d3d15 257 ble_error_t BlueNRGGattServer::readValue(uint16_t charHandle, uint8_t buffer[], uint16_t *const lengthP)
Wolfgang Betz 130:770ce14d3d15 258 {
Andrea Palmieri 142:adf1567d3900 259 PRINTF("ReadValue() Not Supported\n\r");
Andrea Palmieri 142:adf1567d3900 260
Andrea Palmieri 142:adf1567d3900 261 /* avoid compiler warnings about unused variables */
Andrea Palmieri 142:adf1567d3900 262 (void)charHandle;
Andrea Palmieri 142:adf1567d3900 263 (void)buffer;
Andrea Palmieri 142:adf1567d3900 264 (void)lengthP;
Andrea Palmieri 142:adf1567d3900 265
Andrea Palmieri 142:adf1567d3900 266 return BLE_ERROR_NONE;
Wolfgang Betz 130:770ce14d3d15 267 }
Wolfgang Betz 130:770ce14d3d15 268
Wolfgang Betz 130:770ce14d3d15 269 /**************************************************************************/
Wolfgang Betz 130:770ce14d3d15 270 /*!
Wolfgang Betz 130:770ce14d3d15 271 @brief Updates the value of a characteristic, based on the service
Wolfgang Betz 130:770ce14d3d15 272 and characteristic index fields
Wolfgang Betz 130:770ce14d3d15 273
Wolfgang Betz 130:770ce14d3d15 274 @param[in] charHandle
Wolfgang Betz 130:770ce14d3d15 275 The handle of the GattCharacteristic to write to
Wolfgang Betz 130:770ce14d3d15 276 @param[in] buffer
Wolfgang Betz 130:770ce14d3d15 277 Data to use when updating the characteristic's value
Wolfgang Betz 130:770ce14d3d15 278 (raw byte array in LSB format)
Wolfgang Betz 130:770ce14d3d15 279 @param[in] len
Wolfgang Betz 130:770ce14d3d15 280 The number of bytes in buffer
Wolfgang Betz 130:770ce14d3d15 281
Wolfgang Betz 130:770ce14d3d15 282 @returns ble_error_t
Wolfgang Betz 130:770ce14d3d15 283
Wolfgang Betz 130:770ce14d3d15 284 @retval BLE_ERROR_NONE
Wolfgang Betz 130:770ce14d3d15 285 Everything executed properly
Wolfgang Betz 130:770ce14d3d15 286
Wolfgang Betz 130:770ce14d3d15 287 @section EXAMPLE
Wolfgang Betz 130:770ce14d3d15 288
Wolfgang Betz 130:770ce14d3d15 289 @code
Wolfgang Betz 130:770ce14d3d15 290
Wolfgang Betz 130:770ce14d3d15 291 @endcode
Wolfgang Betz 130:770ce14d3d15 292 */
Wolfgang Betz 130:770ce14d3d15 293 /**************************************************************************/
Wolfgang Betz 130:770ce14d3d15 294 // <<<ANDREA>>>
Wolfgang Betz 130:770ce14d3d15 295 ble_error_t BlueNRGGattServer::readValue(Gap::Handle_t connectionHandle, GattAttribute::Handle_t attributeHandle, uint8_t buffer[], uint16_t *lengthP) {
Andrea Palmieri 142:adf1567d3900 296
Andrea Palmieri 142:adf1567d3900 297 /* avoid compiler warnings about unused variables */
Andrea Palmieri 142:adf1567d3900 298 (void)connectionHandle;
Andrea Palmieri 142:adf1567d3900 299 (void)attributeHandle;
Andrea Palmieri 142:adf1567d3900 300 (void)buffer;
Andrea Palmieri 142:adf1567d3900 301 (void)lengthP;
Andrea Palmieri 142:adf1567d3900 302
Andrea Palmieri 142:adf1567d3900 303 return BLE_ERROR_NONE;
Wolfgang Betz 130:770ce14d3d15 304 }
Wolfgang Betz 130:770ce14d3d15 305
Wolfgang Betz 130:770ce14d3d15 306 ble_error_t BlueNRGGattServer::write(Gap::Handle_t connectionHandle, GattAttribute::Handle_t, const uint8_t[], uint16_t, bool localOnly) {
Andrea Palmieri 142:adf1567d3900 307 /* avoid compiler warnings about unused variables */
Andrea Palmieri 142:adf1567d3900 308 (void)connectionHandle;
Andrea Palmieri 142:adf1567d3900 309 (void)localOnly;
Andrea Palmieri 142:adf1567d3900 310
Andrea Palmieri 142:adf1567d3900 311 return BLE_ERROR_NONE;
Wolfgang Betz 130:770ce14d3d15 312 }
Wolfgang Betz 130:770ce14d3d15 313
Wolfgang Betz 130:770ce14d3d15 314 ble_error_t BlueNRGGattServer::write(GattAttribute::Handle_t charHandle, const uint8_t buffer[], uint16_t len, bool localOnly)
Wolfgang Betz 130:770ce14d3d15 315 {
Andrea Palmieri 142:adf1567d3900 316 /* avoid compiler warnings about unused variables */
Andrea Palmieri 142:adf1567d3900 317 (void)localOnly;
Andrea Palmieri 142:adf1567d3900 318
Andrea Palmieri 142:adf1567d3900 319 tBleStatus ret;
Wolfgang Betz 130:770ce14d3d15 320 //uint8_t buff[2];
Wolfgang Betz 130:770ce14d3d15 321
Wolfgang Betz 132:51056160fa4a 322 PRINTF("updating bleCharacteristic charHandle =%u, corresponding serviceHanle= %u len=%d\n\r", charHandle, bleCharHanldeMap.find(charHandle)->second, len);
Wolfgang Betz 130:770ce14d3d15 323 /*
Wolfgang Betz 130:770ce14d3d15 324 for(int i=0; i<len; i++) {
Wolfgang Betz 132:51056160fa4a 325 PRINTF("buffer[%d]=%d\n\r", i, buffer[i]);
Wolfgang Betz 130:770ce14d3d15 326 }
Wolfgang Betz 130:770ce14d3d15 327 */
Wolfgang Betz 130:770ce14d3d15 328 ret = aci_gatt_update_char_value(bleCharHanldeMap.find(charHandle)->second, charHandle, 0, len, buffer);
Wolfgang Betz 130:770ce14d3d15 329
Wolfgang Betz 130:770ce14d3d15 330 if (ret != BLE_STATUS_SUCCESS){
Wolfgang Betz 132:51056160fa4a 331 PRINTF("Error while updating characteristic (ret=0x%x).\n\r", ret) ;
Wolfgang Betz 130:770ce14d3d15 332 return BLE_ERROR_PARAM_OUT_OF_RANGE ; //Not correct Error Value
Wolfgang Betz 130:770ce14d3d15 333 //FIXME: Define Error values equivalent to BlueNRG Error Codes.
Wolfgang Betz 130:770ce14d3d15 334 }
Wolfgang Betz 130:770ce14d3d15 335
Wolfgang Betz 130:770ce14d3d15 336 //Generate Data Sent Event Here? (GattServerEvents::GATT_EVENT_DATA_SENT) //FIXME: Is this correct?
Wolfgang Betz 130:770ce14d3d15 337 //Check if characteristic property is NOTIFY|INDICATE, if yes generate event
Wolfgang Betz 130:770ce14d3d15 338 GattCharacteristic *p_char = BlueNRGGattServer::getInstance().getCharacteristicFromHandle(charHandle);
Wolfgang Betz 130:770ce14d3d15 339 if(p_char->getProperties() & (GattCharacteristic::BLE_GATT_CHAR_PROPERTIES_NOTIFY
Wolfgang Betz 130:770ce14d3d15 340 | GattCharacteristic::BLE_GATT_CHAR_PROPERTIES_INDICATE)) {
Wolfgang Betz 132:51056160fa4a 341 PRINTF("Generate event after updating\n\r");
Wolfgang Betz 130:770ce14d3d15 342 BlueNRGGattServer::getInstance().handleEvent(GattServerEvents::GATT_EVENT_DATA_SENT, charHandle);
Wolfgang Betz 130:770ce14d3d15 343 }
Wolfgang Betz 130:770ce14d3d15 344
Wolfgang Betz 130:770ce14d3d15 345 return BLE_ERROR_NONE;
Wolfgang Betz 130:770ce14d3d15 346 }
Wolfgang Betz 130:770ce14d3d15 347
Wolfgang Betz 130:770ce14d3d15 348 /**************************************************************************/
Wolfgang Betz 130:770ce14d3d15 349 /*!
Wolfgang Betz 130:770ce14d3d15 350 @brief Reads a value according to the handle provided
Wolfgang Betz 130:770ce14d3d15 351
Wolfgang Betz 130:770ce14d3d15 352 @param[in] charHandle
Wolfgang Betz 130:770ce14d3d15 353 The handle of the GattCharacteristic to read from
Wolfgang Betz 130:770ce14d3d15 354
Wolfgang Betz 130:770ce14d3d15 355 @returns ble_error_t
Wolfgang Betz 130:770ce14d3d15 356
Wolfgang Betz 130:770ce14d3d15 357 @retval BLE_ERROR_NONE
Wolfgang Betz 130:770ce14d3d15 358 Everything executed properly
Wolfgang Betz 130:770ce14d3d15 359
Wolfgang Betz 130:770ce14d3d15 360 @section EXAMPLE
Wolfgang Betz 130:770ce14d3d15 361
Wolfgang Betz 130:770ce14d3d15 362 @code
Wolfgang Betz 130:770ce14d3d15 363
Wolfgang Betz 130:770ce14d3d15 364 @endcode
Wolfgang Betz 130:770ce14d3d15 365 */
Wolfgang Betz 130:770ce14d3d15 366 /**************************************************************************/
Wolfgang Betz 130:770ce14d3d15 367 ble_error_t BlueNRGGattServer::Read_Request_CB(uint16_t handle)
Wolfgang Betz 130:770ce14d3d15 368 {
Wolfgang Betz 130:770ce14d3d15 369 //signed short refvalue;
Wolfgang Betz 130:770ce14d3d15 370 uint16_t gapConnectionHandle = BlueNRGGap::getInstance().getConnectionHandle();
Wolfgang Betz 130:770ce14d3d15 371
Wolfgang Betz 130:770ce14d3d15 372 GattReadCallbackParams readParams;
Wolfgang Betz 130:770ce14d3d15 373 readParams.handle = handle;
Wolfgang Betz 130:770ce14d3d15 374
Wolfgang Betz 132:51056160fa4a 375 //PRINTF("readParams.charHandle = %d\n\r", readParams.charHandle);
Wolfgang Betz 130:770ce14d3d15 376 HCIDataReadEvent(&readParams);
Wolfgang Betz 130:770ce14d3d15 377
Wolfgang Betz 130:770ce14d3d15 378 //EXIT:
Wolfgang Betz 130:770ce14d3d15 379 if(gapConnectionHandle != 0){
Wolfgang Betz 132:51056160fa4a 380 //PRINTF("Calling aci_gatt_allow_read\n\r");
Wolfgang Betz 130:770ce14d3d15 381 aci_gatt_allow_read(gapConnectionHandle);
Wolfgang Betz 130:770ce14d3d15 382 }
Wolfgang Betz 130:770ce14d3d15 383
Wolfgang Betz 130:770ce14d3d15 384 return BLE_ERROR_NONE;
Wolfgang Betz 130:770ce14d3d15 385 }
Wolfgang Betz 130:770ce14d3d15 386
Wolfgang Betz 130:770ce14d3d15 387 /**************************************************************************/
Wolfgang Betz 130:770ce14d3d15 388 /*!
Wolfgang Betz 130:770ce14d3d15 389 @brief Returns the GattCharacteristic according to the handle provided
Wolfgang Betz 130:770ce14d3d15 390
Wolfgang Betz 130:770ce14d3d15 391 @param[in] charHandle
Wolfgang Betz 130:770ce14d3d15 392 The handle of the GattCharacteristic
Wolfgang Betz 130:770ce14d3d15 393
Wolfgang Betz 130:770ce14d3d15 394 @returns ble_error_t
Wolfgang Betz 130:770ce14d3d15 395
Wolfgang Betz 130:770ce14d3d15 396 @retval BLE_ERROR_NONE
Wolfgang Betz 130:770ce14d3d15 397 Everything executed properly
Wolfgang Betz 130:770ce14d3d15 398
Wolfgang Betz 130:770ce14d3d15 399 @section EXAMPLE
Wolfgang Betz 130:770ce14d3d15 400
Wolfgang Betz 130:770ce14d3d15 401 @code
Wolfgang Betz 130:770ce14d3d15 402
Wolfgang Betz 130:770ce14d3d15 403 @endcode
Wolfgang Betz 130:770ce14d3d15 404 */
Wolfgang Betz 130:770ce14d3d15 405 /**************************************************************************/
Wolfgang Betz 130:770ce14d3d15 406 GattCharacteristic* BlueNRGGattServer::getCharacteristicFromHandle(uint16_t attrHandle)
Wolfgang Betz 130:770ce14d3d15 407 {
Wolfgang Betz 130:770ce14d3d15 408 GattCharacteristic *p_char = NULL;
Wolfgang Betz 130:770ce14d3d15 409 int i;
Wolfgang Betz 130:770ce14d3d15 410 uint16_t handle, handle_1;
Wolfgang Betz 130:770ce14d3d15 411
Wolfgang Betz 132:51056160fa4a 412 PRINTF("BlueNRGGattServer::getCharacteristicFromHandle()>>Attribute Handle received %d\n\r",attrHandle);
Wolfgang Betz 130:770ce14d3d15 413 for(i=0; i<characteristicCount; i++)
Wolfgang Betz 130:770ce14d3d15 414 {
Wolfgang Betz 130:770ce14d3d15 415 handle = p_characteristics[i]->getValueAttribute().getHandle();
Wolfgang Betz 132:51056160fa4a 416 PRINTF("handle(%d)=%d\n\r", i, handle);
Wolfgang Betz 130:770ce14d3d15 417 if(i==characteristicCount-1)//Last Characteristic check
Wolfgang Betz 130:770ce14d3d15 418 {
Wolfgang Betz 130:770ce14d3d15 419 if(attrHandle>=handle)
Wolfgang Betz 130:770ce14d3d15 420 {
Wolfgang Betz 130:770ce14d3d15 421 p_char = p_characteristics[i];
Wolfgang Betz 132:51056160fa4a 422 PRINTF("Found Characteristic Properties 0x%x (handle=%d)\n\r",p_char->getProperties(), handle);
Wolfgang Betz 130:770ce14d3d15 423 break;
Wolfgang Betz 130:770ce14d3d15 424 }
Wolfgang Betz 130:770ce14d3d15 425 }
Wolfgang Betz 130:770ce14d3d15 426 else {
Wolfgang Betz 130:770ce14d3d15 427 handle_1 = p_characteristics[i+1]->getValueAttribute().getHandle();
Wolfgang Betz 130:770ce14d3d15 428 //Testing if attribute handle is between two Characteristic Handles
Wolfgang Betz 130:770ce14d3d15 429 if(attrHandle>=handle && attrHandle<handle_1)
Wolfgang Betz 130:770ce14d3d15 430 {
Wolfgang Betz 130:770ce14d3d15 431 p_char = p_characteristics[i];
Wolfgang Betz 132:51056160fa4a 432 PRINTF("Found Characteristic Properties 0x%x (handle=%d handle_1=%d)\n\r",p_char->getProperties(), handle, handle_1);
Wolfgang Betz 130:770ce14d3d15 433 break;
Wolfgang Betz 130:770ce14d3d15 434 } else continue;
Wolfgang Betz 130:770ce14d3d15 435 }
Wolfgang Betz 130:770ce14d3d15 436 }
Wolfgang Betz 130:770ce14d3d15 437
Wolfgang Betz 130:770ce14d3d15 438 return p_char;
Wolfgang Betz 130:770ce14d3d15 439 }
Wolfgang Betz 130:770ce14d3d15 440
Wolfgang Betz 130:770ce14d3d15 441 void BlueNRGGattServer::HCIDataWrittenEvent(const GattWriteCallbackParams *params) {
Wolfgang Betz 130:770ce14d3d15 442 this->handleDataWrittenEvent(params);
Wolfgang Betz 130:770ce14d3d15 443 }
Wolfgang Betz 130:770ce14d3d15 444
Wolfgang Betz 130:770ce14d3d15 445 void BlueNRGGattServer::HCIDataReadEvent(const GattReadCallbackParams *params) {
Wolfgang Betz 132:51056160fa4a 446 PRINTF("Called HCIDataReadEvent\n\r");
Wolfgang Betz 130:770ce14d3d15 447 this->handleDataReadEvent(params);
Wolfgang Betz 130:770ce14d3d15 448 }
Wolfgang Betz 130:770ce14d3d15 449
Wolfgang Betz 130:770ce14d3d15 450 void BlueNRGGattServer::HCIEvent(GattServerEvents::gattEvent_e type, uint16_t charHandle) {
Wolfgang Betz 130:770ce14d3d15 451 this->handleEvent(type, charHandle);
Wolfgang Betz 130:770ce14d3d15 452 }
Wolfgang Betz 130:770ce14d3d15 453
Wolfgang Betz 130:770ce14d3d15 454 void BlueNRGGattServer::HCIDataSentEvent(unsigned count) {
Wolfgang Betz 130:770ce14d3d15 455 this->handleDataSentEvent(count);
Wolfgang Betz 130:770ce14d3d15 456 }
Wolfgang Betz 130:770ce14d3d15 457
Wolfgang Betz 130:770ce14d3d15 458
Wolfgang Betz 130:770ce14d3d15 459 ble_error_t BlueNRGGattServer::initializeGATTDatabase(void) {
Wolfgang Betz 130:770ce14d3d15 460 // <TODO>
Wolfgang Betz 130:770ce14d3d15 461 return (ble_error_t)0;
Wolfgang Betz 130:770ce14d3d15 462 }