X_NUCLEO_IDB0XA1

Dependents:   BLE_HeartRate_IDB0XA1

Fork of X_NUCLEO_IDB0XA1 by ST

Committer:
Wolfgang Betz
Date:
Thu Oct 08 15:16:30 2015 +0200
Revision:
140:0cd922dca83c
Parent:
138:32e3c4ca7a45
Child:
162:667f97a4db7f
Fine tune event handling & ble address

Who changed what in which revision?

UserRevisionLine numberNew contents of line
Wolfgang Betz 132:51056160fa4a 1 /**
Wolfgang Betz 132:51056160fa4a 2 ******************************************************************************
Wolfgang Betz 132:51056160fa4a 3 * @file hci.c
Wolfgang Betz 132:51056160fa4a 4 * @author AMS/HESA Application Team
Wolfgang Betz 132:51056160fa4a 5 * @brief Function for managing HCI interface.
Wolfgang Betz 132:51056160fa4a 6 ******************************************************************************
Wolfgang Betz 132:51056160fa4a 7 *
Wolfgang Betz 132:51056160fa4a 8 *
Wolfgang Betz 132:51056160fa4a 9 * THE PRESENT FIRMWARE WHICH IS FOR GUIDANCE ONLY AIMS AT PROVIDING CUSTOMERS
Wolfgang Betz 132:51056160fa4a 10 * WITH CODING INFORMATION REGARDING THEIR PRODUCTS IN ORDER FOR THEM TO SAVE
Wolfgang Betz 132:51056160fa4a 11 * TIME. AS A RESULT, STMICROELECTRONICS SHALL NOT BE HELD LIABLE FOR ANY
Wolfgang Betz 132:51056160fa4a 12 * DIRECT, INDIRECT OR CONSEQUENTIAL DAMAGES WITH RESPECT TO ANY CLAIMS ARISING
Wolfgang Betz 132:51056160fa4a 13 * FROM THE CONTENT OF SUCH FIRMWARE AND/OR THE USE MADE BY CUSTOMERS OF THE
Wolfgang Betz 132:51056160fa4a 14 * CODING INFORMATION CONTAINED HEREIN IN CONNECTION WITH THEIR PRODUCTS.
Wolfgang Betz 132:51056160fa4a 15 *
Wolfgang Betz 132:51056160fa4a 16 * <h2><center>&copy; COPYRIGHT 2013 STMicroelectronics</center></h2>
Wolfgang Betz 132:51056160fa4a 17 */
Wolfgang Betz 132:51056160fa4a 18
Wolfgang Betz 132:51056160fa4a 19 #include "hal_types.h"
Wolfgang Betz 132:51056160fa4a 20 #include "osal.h"
Wolfgang Betz 132:51056160fa4a 21 #include "ble_status.h"
Wolfgang Betz 132:51056160fa4a 22 #include "hal.h"
Wolfgang Betz 132:51056160fa4a 23 #include "hci_const.h"
Wolfgang Betz 132:51056160fa4a 24 #include "gp_timer.h"
Wolfgang Betz 133:1bb8df697f7f 25 #include "debug.h"
Wolfgang Betz 132:51056160fa4a 26
Wolfgang Betz 132:51056160fa4a 27 #include "stm32_bluenrg_ble.h"
Wolfgang Betz 132:51056160fa4a 28
Wolfgang Betz 132:51056160fa4a 29 #if BLE_CONFIG_DBG_ENABLE
Wolfgang Betz 135:f0b6cf8ac4fc 30 #undef PRINTF
Wolfgang Betz 132:51056160fa4a 31 #endif
Wolfgang Betz 132:51056160fa4a 32
Wolfgang Betz 132:51056160fa4a 33 #define HCI_LOG_ON 0
Wolfgang Betz 132:51056160fa4a 34
Wolfgang Betz 132:51056160fa4a 35 #define HCI_READ_PACKET_NUM_MAX (5)
Wolfgang Betz 132:51056160fa4a 36
Wolfgang Betz 132:51056160fa4a 37 #define MIN(a,b) ((a) < (b) )? (a) : (b)
Wolfgang Betz 132:51056160fa4a 38 #define MAX(a,b) ((a) > (b) )? (a) : (b)
Wolfgang Betz 132:51056160fa4a 39
Wolfgang Betz 132:51056160fa4a 40 tListNode hciReadPktPool;
Wolfgang Betz 132:51056160fa4a 41 tListNode hciReadPktRxQueue;
Wolfgang Betz 132:51056160fa4a 42 /* pool of hci read packets */
Wolfgang Betz 132:51056160fa4a 43 static tHciDataPacket hciReadPacketBuffer[HCI_READ_PACKET_NUM_MAX];
Wolfgang Betz 132:51056160fa4a 44
Wolfgang Betz 132:51056160fa4a 45 static volatile uint8_t readPacketListFull=FALSE;
Wolfgang Betz 132:51056160fa4a 46
Wolfgang Betz 132:51056160fa4a 47 static volatile uint8_t hci_timer_id;
Wolfgang Betz 132:51056160fa4a 48 static volatile uint8_t hci_timeout;
Wolfgang Betz 132:51056160fa4a 49
Wolfgang Betz 132:51056160fa4a 50 void hci_timeout_callback(void)
Wolfgang Betz 132:51056160fa4a 51 {
Wolfgang Betz 132:51056160fa4a 52 hci_timeout = 1;
Wolfgang Betz 132:51056160fa4a 53 return;
Wolfgang Betz 132:51056160fa4a 54 }
Wolfgang Betz 132:51056160fa4a 55
Wolfgang Betz 132:51056160fa4a 56 void HCI_Init(void)
Wolfgang Betz 132:51056160fa4a 57 {
Wolfgang Betz 132:51056160fa4a 58 uint8_t index;
Wolfgang Betz 132:51056160fa4a 59
Wolfgang Betz 132:51056160fa4a 60 /* Initialize list heads of ready and free hci data packet queues */
Wolfgang Betz 132:51056160fa4a 61 list_init_head (&hciReadPktPool);
Wolfgang Betz 132:51056160fa4a 62 list_init_head (&hciReadPktRxQueue);
Wolfgang Betz 132:51056160fa4a 63
Wolfgang Betz 132:51056160fa4a 64 /* Initialize the queue of free hci data packets */
Wolfgang Betz 132:51056160fa4a 65 for (index = 0; index < HCI_READ_PACKET_NUM_MAX; index++)
Wolfgang Betz 132:51056160fa4a 66 {
Wolfgang Betz 132:51056160fa4a 67 list_insert_tail(&hciReadPktPool, (tListNode *)&hciReadPacketBuffer[index]);
Wolfgang Betz 132:51056160fa4a 68 }
Wolfgang Betz 132:51056160fa4a 69 }
Wolfgang Betz 132:51056160fa4a 70
Wolfgang Betz 132:51056160fa4a 71 #define HCI_PCK_TYPE_OFFSET 0
Wolfgang Betz 132:51056160fa4a 72 #define EVENT_PARAMETER_TOT_LEN_OFFSET 2
Wolfgang Betz 132:51056160fa4a 73
Wolfgang Betz 132:51056160fa4a 74 /**
Wolfgang Betz 132:51056160fa4a 75 * Verify if HCI packet is correctly formatted..
Wolfgang Betz 132:51056160fa4a 76 *
Wolfgang Betz 132:51056160fa4a 77 * @param[in] hciReadPacket The packet that is received from HCI interface.
Wolfgang Betz 132:51056160fa4a 78 * @return 0 if HCI packet is as expected
Wolfgang Betz 132:51056160fa4a 79 */
Wolfgang Betz 132:51056160fa4a 80 int HCI_verify(const tHciDataPacket * hciReadPacket)
Wolfgang Betz 132:51056160fa4a 81 {
Wolfgang Betz 132:51056160fa4a 82 const uint8_t *hci_pckt = hciReadPacket->dataBuff;
Wolfgang Betz 132:51056160fa4a 83
Wolfgang Betz 132:51056160fa4a 84 if(hci_pckt[HCI_PCK_TYPE_OFFSET] != HCI_EVENT_PKT)
Wolfgang Betz 132:51056160fa4a 85 return 1; /* Incorrect type. */
Wolfgang Betz 132:51056160fa4a 86
Wolfgang Betz 132:51056160fa4a 87 if(hci_pckt[EVENT_PARAMETER_TOT_LEN_OFFSET] != hciReadPacket->data_len - (1+HCI_EVENT_HDR_SIZE))
Wolfgang Betz 132:51056160fa4a 88 return 2; /* Wrong length (packet truncated or too long). */
Wolfgang Betz 132:51056160fa4a 89
Wolfgang Betz 132:51056160fa4a 90 return 0;
Wolfgang Betz 132:51056160fa4a 91 }
Wolfgang Betz 132:51056160fa4a 92
Wolfgang Betz 132:51056160fa4a 93 void HCI_Process(void)
Wolfgang Betz 132:51056160fa4a 94 {
Wolfgang Betz 132:51056160fa4a 95 uint8_t data_len;
Wolfgang Betz 132:51056160fa4a 96 uint8_t buffer[HCI_READ_PACKET_SIZE];
Wolfgang Betz 132:51056160fa4a 97 tHciDataPacket * hciReadPacket = NULL;
Wolfgang Betz 132:51056160fa4a 98
Wolfgang Betz 132:51056160fa4a 99 Disable_SPI_IRQ();
Wolfgang Betz 132:51056160fa4a 100 uint8_t list_empty = list_is_empty(&hciReadPktRxQueue);
Wolfgang Betz 132:51056160fa4a 101 /* process any pending events read */
Wolfgang Betz 132:51056160fa4a 102 while(list_empty == FALSE)
Wolfgang Betz 132:51056160fa4a 103 {
Wolfgang Betz 132:51056160fa4a 104 list_remove_head (&hciReadPktRxQueue, (tListNode **)&hciReadPacket);
Wolfgang Betz 132:51056160fa4a 105 Enable_SPI_IRQ();
Wolfgang Betz 132:51056160fa4a 106 HCI_Event_CB(hciReadPacket->dataBuff);
Wolfgang Betz 132:51056160fa4a 107 Disable_SPI_IRQ();
Wolfgang Betz 132:51056160fa4a 108 list_insert_tail(&hciReadPktPool, (tListNode *)hciReadPacket);
Wolfgang Betz 132:51056160fa4a 109 list_empty = list_is_empty(&hciReadPktRxQueue);
Wolfgang Betz 132:51056160fa4a 110 }
Wolfgang Betz 132:51056160fa4a 111 if (readPacketListFull) {
Wolfgang Betz 132:51056160fa4a 112 while(BlueNRG_DataPresent()) {
Wolfgang Betz 132:51056160fa4a 113 data_len = BlueNRG_SPI_Read_All(buffer, HCI_READ_PACKET_SIZE);
Wolfgang Betz 132:51056160fa4a 114 if(data_len > 0)
Wolfgang Betz 132:51056160fa4a 115 HCI_Event_CB(buffer);
Wolfgang Betz 132:51056160fa4a 116 }
Wolfgang Betz 132:51056160fa4a 117 readPacketListFull = FALSE;
Wolfgang Betz 132:51056160fa4a 118 }
Wolfgang Betz 132:51056160fa4a 119
Wolfgang Betz 132:51056160fa4a 120 Enable_SPI_IRQ();
Wolfgang Betz 132:51056160fa4a 121 }
Wolfgang Betz 132:51056160fa4a 122
Wolfgang Betz 132:51056160fa4a 123 BOOL HCI_Queue_Empty(void)
Wolfgang Betz 132:51056160fa4a 124 {
Wolfgang Betz 132:51056160fa4a 125 return list_is_empty(&hciReadPktRxQueue);
Wolfgang Betz 132:51056160fa4a 126 }
Wolfgang Betz 132:51056160fa4a 127
Wolfgang Betz 132:51056160fa4a 128 void HCI_Isr(void)
Wolfgang Betz 132:51056160fa4a 129 {
Wolfgang Betz 132:51056160fa4a 130 tHciDataPacket * hciReadPacket = NULL;
Wolfgang Betz 132:51056160fa4a 131 uint8_t data_len;
Wolfgang Betz 132:51056160fa4a 132
Wolfgang Betz 132:51056160fa4a 133 Clear_SPI_EXTI_Flag();
Wolfgang Betz 132:51056160fa4a 134 while(BlueNRG_DataPresent()){
Wolfgang Betz 132:51056160fa4a 135 if (list_is_empty (&hciReadPktPool) == FALSE){
Wolfgang Betz 132:51056160fa4a 136
Wolfgang Betz 132:51056160fa4a 137 /* enqueueing a packet for read */
Wolfgang Betz 132:51056160fa4a 138 list_remove_head (&hciReadPktPool, (tListNode **)&hciReadPacket);
Wolfgang Betz 132:51056160fa4a 139
Wolfgang Betz 132:51056160fa4a 140 data_len = BlueNRG_SPI_Read_All(hciReadPacket->dataBuff, HCI_READ_PACKET_SIZE);
Wolfgang Betz 132:51056160fa4a 141 if(data_len > 0){
Wolfgang Betz 132:51056160fa4a 142 hciReadPacket->data_len = data_len;
Wolfgang Betz 140:0cd922dca83c 143 if(HCI_verify(hciReadPacket) == 0) {
Wolfgang Betz 132:51056160fa4a 144 list_insert_tail(&hciReadPktRxQueue, (tListNode *)hciReadPacket);
Wolfgang Betz 140:0cd922dca83c 145 #ifdef AST_FOR_MBED_OS
Wolfgang Betz 140:0cd922dca83c 146 Call_BTLE_Handler();
Wolfgang Betz 140:0cd922dca83c 147 #endif
Wolfgang Betz 140:0cd922dca83c 148 } else {
Wolfgang Betz 140:0cd922dca83c 149 list_insert_head(&hciReadPktPool, (tListNode *)hciReadPacket);
Wolfgang Betz 140:0cd922dca83c 150 }
Wolfgang Betz 132:51056160fa4a 151 }
Wolfgang Betz 132:51056160fa4a 152 else {
Wolfgang Betz 132:51056160fa4a 153 // Insert the packet back into the pool.
Wolfgang Betz 132:51056160fa4a 154 list_insert_head(&hciReadPktPool, (tListNode *)hciReadPacket);
Wolfgang Betz 140:0cd922dca83c 155 }
Wolfgang Betz 132:51056160fa4a 156 }
Wolfgang Betz 132:51056160fa4a 157 else{
Wolfgang Betz 132:51056160fa4a 158 // HCI Read Packet Pool is empty, wait for a free packet.
Wolfgang Betz 132:51056160fa4a 159 readPacketListFull = TRUE;
Wolfgang Betz 132:51056160fa4a 160 Clear_SPI_EXTI_Flag();
Wolfgang Betz 137:5baea3b414d9 161 return;
Wolfgang Betz 132:51056160fa4a 162 }
Wolfgang Betz 132:51056160fa4a 163 Clear_SPI_EXTI_Flag();
Wolfgang Betz 132:51056160fa4a 164 }
Wolfgang Betz 132:51056160fa4a 165 }
Wolfgang Betz 132:51056160fa4a 166
Wolfgang Betz 132:51056160fa4a 167 void hci_write(const void* data1, const void* data2, uint8_t n_bytes1, uint8_t n_bytes2){
Wolfgang Betz 132:51056160fa4a 168 #if HCI_LOG_ON
Wolfgang Betz 132:51056160fa4a 169 PRINTF("HCI <- ");
Wolfgang Betz 132:51056160fa4a 170 for(int i=0; i < n_bytes1; i++)
Wolfgang Betz 132:51056160fa4a 171 PRINTF("%02X ", *((uint8_t*)data1 + i));
Wolfgang Betz 132:51056160fa4a 172 for(int i=0; i < n_bytes2; i++)
Wolfgang Betz 132:51056160fa4a 173 PRINTF("%02X ", *((uint8_t*)data2 + i));
Wolfgang Betz 132:51056160fa4a 174 PRINTF("\n");
Wolfgang Betz 132:51056160fa4a 175 #endif
Wolfgang Betz 132:51056160fa4a 176
Wolfgang Betz 132:51056160fa4a 177 Hal_Write_Serial(data1, data2, n_bytes1, n_bytes2);
Wolfgang Betz 132:51056160fa4a 178 }
Wolfgang Betz 132:51056160fa4a 179
Wolfgang Betz 132:51056160fa4a 180 void hci_send_cmd(uint16_t ogf, uint16_t ocf, uint8_t plen, void *param)
Wolfgang Betz 132:51056160fa4a 181 {
Wolfgang Betz 132:51056160fa4a 182 hci_command_hdr hc;
Wolfgang Betz 132:51056160fa4a 183
Wolfgang Betz 132:51056160fa4a 184 hc.opcode = htobs(cmd_opcode_pack(ogf, ocf));
Wolfgang Betz 132:51056160fa4a 185 hc.plen= plen;
Wolfgang Betz 132:51056160fa4a 186
Wolfgang Betz 132:51056160fa4a 187 uint8_t header[HCI_HDR_SIZE + HCI_COMMAND_HDR_SIZE];
Wolfgang Betz 132:51056160fa4a 188 header[0] = HCI_COMMAND_PKT;
Wolfgang Betz 132:51056160fa4a 189 Osal_MemCpy(header+1, &hc, sizeof(hc));
Wolfgang Betz 132:51056160fa4a 190
Wolfgang Betz 132:51056160fa4a 191 hci_write(header, param, sizeof(header), plen);
Wolfgang Betz 132:51056160fa4a 192 }
Wolfgang Betz 132:51056160fa4a 193
Wolfgang Betz 132:51056160fa4a 194 static void move_list(tListNode * dest_list, tListNode * src_list)
Wolfgang Betz 132:51056160fa4a 195 {
Wolfgang Betz 132:51056160fa4a 196 pListNode tmp_node;
Wolfgang Betz 132:51056160fa4a 197
Wolfgang Betz 132:51056160fa4a 198 while(!list_is_empty(src_list)){
Wolfgang Betz 132:51056160fa4a 199 list_remove_head(src_list, &tmp_node);
Wolfgang Betz 132:51056160fa4a 200 list_insert_tail(dest_list, tmp_node);
Wolfgang Betz 132:51056160fa4a 201 }
Wolfgang Betz 132:51056160fa4a 202 }
Wolfgang Betz 132:51056160fa4a 203
Wolfgang Betz 132:51056160fa4a 204 int hci_send_req(struct hci_request *r, BOOL async)
Wolfgang Betz 132:51056160fa4a 205 {
Wolfgang Betz 132:51056160fa4a 206 uint8_t *ptr;
Wolfgang Betz 132:51056160fa4a 207 uint16_t opcode = htobs(cmd_opcode_pack(r->ogf, r->ocf));
Wolfgang Betz 132:51056160fa4a 208 hci_event_pckt *event_pckt;
Wolfgang Betz 132:51056160fa4a 209 hci_uart_pckt *hci_hdr;
Wolfgang Betz 132:51056160fa4a 210 int to = DEFAULT_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 211 struct timer t;
Wolfgang Betz 132:51056160fa4a 212 tHciDataPacket * hciReadPacket = NULL;
Wolfgang Betz 132:51056160fa4a 213 tListNode hciTempQueue;
Wolfgang Betz 132:51056160fa4a 214
Wolfgang Betz 132:51056160fa4a 215 list_init_head(&hciTempQueue);
Wolfgang Betz 132:51056160fa4a 216
Wolfgang Betz 132:51056160fa4a 217 hci_send_cmd(r->ogf, r->ocf, r->clen, r->cparam);
Wolfgang Betz 132:51056160fa4a 218
Wolfgang Betz 132:51056160fa4a 219 if(async){
Wolfgang Betz 132:51056160fa4a 220 goto done;
Wolfgang Betz 132:51056160fa4a 221 }
Wolfgang Betz 132:51056160fa4a 222
Wolfgang Betz 132:51056160fa4a 223 /* Minimum timeout is 1. */
Wolfgang Betz 132:51056160fa4a 224 if(to == 0)
Wolfgang Betz 132:51056160fa4a 225 to = 1;
Wolfgang Betz 132:51056160fa4a 226
Wolfgang Betz 132:51056160fa4a 227 Timer_Set(&t, to);
Wolfgang Betz 132:51056160fa4a 228
Wolfgang Betz 132:51056160fa4a 229 while(1) {
Wolfgang Betz 132:51056160fa4a 230 evt_cmd_complete *cc;
Wolfgang Betz 132:51056160fa4a 231 evt_cmd_status *cs;
Wolfgang Betz 132:51056160fa4a 232 evt_le_meta_event *me;
Wolfgang Betz 132:51056160fa4a 233 int len;
Wolfgang Betz 132:51056160fa4a 234
Wolfgang Betz 132:51056160fa4a 235 #if ENABLE_MICRO_SLEEP
Wolfgang Betz 132:51056160fa4a 236 while(1){
Wolfgang Betz 132:51056160fa4a 237 ATOMIC_SECTION_BEGIN();
Wolfgang Betz 132:51056160fa4a 238 if(Timer_Expired(&t)){
Wolfgang Betz 132:51056160fa4a 239 ATOMIC_SECTION_END();
Wolfgang Betz 132:51056160fa4a 240 goto failed;
Wolfgang Betz 132:51056160fa4a 241 }
Wolfgang Betz 132:51056160fa4a 242 if(!HCI_Queue_Empty()){
Wolfgang Betz 132:51056160fa4a 243 ATOMIC_SECTION_END();
Wolfgang Betz 132:51056160fa4a 244 break;
Wolfgang Betz 132:51056160fa4a 245 }
Wolfgang Betz 132:51056160fa4a 246 Enter_Sleep_Mode();
Wolfgang Betz 132:51056160fa4a 247 ATOMIC_SECTION_END();
Wolfgang Betz 132:51056160fa4a 248 }
Wolfgang Betz 132:51056160fa4a 249 #else
Wolfgang Betz 132:51056160fa4a 250 while(1){
Wolfgang Betz 132:51056160fa4a 251 if(Timer_Expired(&t)){
Wolfgang Betz 132:51056160fa4a 252 goto failed;
Wolfgang Betz 132:51056160fa4a 253 }
Wolfgang Betz 132:51056160fa4a 254 if(!HCI_Queue_Empty()){
Wolfgang Betz 132:51056160fa4a 255 break;
Wolfgang Betz 132:51056160fa4a 256 }
Wolfgang Betz 132:51056160fa4a 257 }
Wolfgang Betz 132:51056160fa4a 258 #endif
Wolfgang Betz 132:51056160fa4a 259
Wolfgang Betz 132:51056160fa4a 260 /* Extract packet from HCI event queue. */
Wolfgang Betz 132:51056160fa4a 261 Disable_SPI_IRQ();
Wolfgang Betz 132:51056160fa4a 262 list_remove_head(&hciReadPktRxQueue, (tListNode **)&hciReadPacket);
Wolfgang Betz 132:51056160fa4a 263
Wolfgang Betz 132:51056160fa4a 264 hci_hdr = (void *)hciReadPacket->dataBuff;
Wolfgang Betz 132:51056160fa4a 265 if(hci_hdr->type != HCI_EVENT_PKT){
Wolfgang Betz 132:51056160fa4a 266 list_insert_tail(&hciTempQueue, (tListNode *)hciReadPacket); // See comment below
Wolfgang Betz 132:51056160fa4a 267 Enable_SPI_IRQ();
Wolfgang Betz 132:51056160fa4a 268 continue;
Wolfgang Betz 132:51056160fa4a 269 }
Wolfgang Betz 132:51056160fa4a 270
Wolfgang Betz 132:51056160fa4a 271 event_pckt = (void *) (hci_hdr->data);
Wolfgang Betz 132:51056160fa4a 272
Wolfgang Betz 132:51056160fa4a 273 ptr = hciReadPacket->dataBuff + (1 + HCI_EVENT_HDR_SIZE);
Wolfgang Betz 132:51056160fa4a 274 len = hciReadPacket->data_len - (1 + HCI_EVENT_HDR_SIZE);
Wolfgang Betz 132:51056160fa4a 275
Wolfgang Betz 132:51056160fa4a 276 switch (event_pckt->evt) {
Wolfgang Betz 132:51056160fa4a 277
Wolfgang Betz 132:51056160fa4a 278 case EVT_CMD_STATUS:
Wolfgang Betz 132:51056160fa4a 279 cs = (void *) ptr;
Wolfgang Betz 132:51056160fa4a 280
Wolfgang Betz 132:51056160fa4a 281 if (cs->opcode != opcode)
Wolfgang Betz 132:51056160fa4a 282 goto failed;
Wolfgang Betz 132:51056160fa4a 283
Wolfgang Betz 132:51056160fa4a 284 if (r->event != EVT_CMD_STATUS) {
Wolfgang Betz 132:51056160fa4a 285 if (cs->status) {
Wolfgang Betz 132:51056160fa4a 286 goto failed;
Wolfgang Betz 132:51056160fa4a 287 }
Wolfgang Betz 132:51056160fa4a 288 break;
Wolfgang Betz 132:51056160fa4a 289 }
Wolfgang Betz 132:51056160fa4a 290
Wolfgang Betz 132:51056160fa4a 291 r->rlen = MIN(len, r->rlen);
Wolfgang Betz 132:51056160fa4a 292 Osal_MemCpy(r->rparam, ptr, r->rlen);
Wolfgang Betz 132:51056160fa4a 293 goto done;
Wolfgang Betz 132:51056160fa4a 294
Wolfgang Betz 132:51056160fa4a 295 case EVT_CMD_COMPLETE:
Wolfgang Betz 132:51056160fa4a 296 cc = (void *) ptr;
Wolfgang Betz 132:51056160fa4a 297
Wolfgang Betz 132:51056160fa4a 298 if (cc->opcode != opcode)
Wolfgang Betz 132:51056160fa4a 299 goto failed;
Wolfgang Betz 132:51056160fa4a 300
Wolfgang Betz 132:51056160fa4a 301 ptr += EVT_CMD_COMPLETE_SIZE;
Wolfgang Betz 132:51056160fa4a 302 len -= EVT_CMD_COMPLETE_SIZE;
Wolfgang Betz 132:51056160fa4a 303
Wolfgang Betz 132:51056160fa4a 304 r->rlen = MIN(len, r->rlen);
Wolfgang Betz 132:51056160fa4a 305 Osal_MemCpy(r->rparam, ptr, r->rlen);
Wolfgang Betz 132:51056160fa4a 306 goto done;
Wolfgang Betz 132:51056160fa4a 307
Wolfgang Betz 132:51056160fa4a 308 case EVT_LE_META_EVENT:
Wolfgang Betz 132:51056160fa4a 309 me = (void *) ptr;
Wolfgang Betz 132:51056160fa4a 310
Wolfgang Betz 132:51056160fa4a 311 if (me->subevent != r->event)
Wolfgang Betz 132:51056160fa4a 312 break;
Wolfgang Betz 132:51056160fa4a 313
Wolfgang Betz 132:51056160fa4a 314 len -= 1;
Wolfgang Betz 132:51056160fa4a 315 r->rlen = MIN(len, r->rlen);
Wolfgang Betz 132:51056160fa4a 316 Osal_MemCpy(r->rparam, me->data, r->rlen);
Wolfgang Betz 132:51056160fa4a 317 goto done;
Wolfgang Betz 132:51056160fa4a 318
Wolfgang Betz 132:51056160fa4a 319 case EVT_HARDWARE_ERROR:
Wolfgang Betz 132:51056160fa4a 320 goto failed;
Wolfgang Betz 132:51056160fa4a 321
Wolfgang Betz 132:51056160fa4a 322 default:
Wolfgang Betz 132:51056160fa4a 323 break;
Wolfgang Betz 132:51056160fa4a 324 }
Wolfgang Betz 132:51056160fa4a 325
Wolfgang Betz 132:51056160fa4a 326 /* In the meantime there could be other events from the controller.
Wolfgang Betz 132:51056160fa4a 327 In this case, insert the packet in a different queue. These packets will be
Wolfgang Betz 132:51056160fa4a 328 inserted back in the main queue just before exiting from send_req().
Wolfgang Betz 132:51056160fa4a 329 */
Wolfgang Betz 132:51056160fa4a 330 list_insert_tail(&hciTempQueue, (tListNode *)hciReadPacket);
Wolfgang Betz 132:51056160fa4a 331 /* Be sure there is at list one packet in the pool to process the expected event. */
Wolfgang Betz 132:51056160fa4a 332 if(list_is_empty(&hciReadPktPool)){
Wolfgang Betz 132:51056160fa4a 333 pListNode tmp_node;
Wolfgang Betz 132:51056160fa4a 334 list_remove_head(&hciReadPktRxQueue, &tmp_node);
Wolfgang Betz 132:51056160fa4a 335 list_insert_tail(&hciReadPktPool, tmp_node);
Wolfgang Betz 132:51056160fa4a 336 }
Wolfgang Betz 132:51056160fa4a 337
Wolfgang Betz 132:51056160fa4a 338 Enable_SPI_IRQ();
Wolfgang Betz 132:51056160fa4a 339
Wolfgang Betz 132:51056160fa4a 340 }
Wolfgang Betz 132:51056160fa4a 341
Wolfgang Betz 132:51056160fa4a 342 failed:
Wolfgang Betz 132:51056160fa4a 343 move_list(&hciReadPktRxQueue, &hciTempQueue);
Wolfgang Betz 132:51056160fa4a 344 Enable_SPI_IRQ();
Wolfgang Betz 132:51056160fa4a 345 return -1;
Wolfgang Betz 132:51056160fa4a 346
Wolfgang Betz 132:51056160fa4a 347 done:
Wolfgang Betz 132:51056160fa4a 348 // Insert the packet back into the pool.
Wolfgang Betz 132:51056160fa4a 349 list_insert_head(&hciReadPktPool, (tListNode *)hciReadPacket);
Wolfgang Betz 132:51056160fa4a 350 move_list(&hciReadPktRxQueue, &hciTempQueue);
Wolfgang Betz 132:51056160fa4a 351
Wolfgang Betz 132:51056160fa4a 352 Enable_SPI_IRQ();
Wolfgang Betz 132:51056160fa4a 353 return 0;
Wolfgang Betz 132:51056160fa4a 354 }
Wolfgang Betz 132:51056160fa4a 355
Wolfgang Betz 132:51056160fa4a 356 int hci_reset()
Wolfgang Betz 132:51056160fa4a 357 {
Wolfgang Betz 132:51056160fa4a 358 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 359 uint8_t status;
Wolfgang Betz 132:51056160fa4a 360
Wolfgang Betz 132:51056160fa4a 361 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 362 rq.ogf = OGF_HOST_CTL;
Wolfgang Betz 132:51056160fa4a 363 rq.ocf = OCF_RESET;
Wolfgang Betz 132:51056160fa4a 364 rq.rparam = &status;
Wolfgang Betz 132:51056160fa4a 365 rq.rlen = 1;
Wolfgang Betz 132:51056160fa4a 366
Wolfgang Betz 132:51056160fa4a 367 if (hci_send_req(&rq, FALSE) < 0)
Wolfgang Betz 132:51056160fa4a 368 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 369
Wolfgang Betz 132:51056160fa4a 370 return status;
Wolfgang Betz 132:51056160fa4a 371 }
Wolfgang Betz 132:51056160fa4a 372
Wolfgang Betz 132:51056160fa4a 373 int hci_disconnect(uint16_t handle, uint8_t reason)
Wolfgang Betz 132:51056160fa4a 374 {
Wolfgang Betz 132:51056160fa4a 375 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 376 disconnect_cp cp;
Wolfgang Betz 132:51056160fa4a 377 uint8_t status;
Wolfgang Betz 132:51056160fa4a 378
Wolfgang Betz 132:51056160fa4a 379 cp.handle = handle;
Wolfgang Betz 132:51056160fa4a 380 cp.reason = reason;
Wolfgang Betz 132:51056160fa4a 381
Wolfgang Betz 132:51056160fa4a 382 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 383 rq.ogf = OGF_LINK_CTL;
Wolfgang Betz 132:51056160fa4a 384 rq.ocf = OCF_DISCONNECT;
Wolfgang Betz 132:51056160fa4a 385 rq.cparam = &cp;
Wolfgang Betz 132:51056160fa4a 386 rq.clen = DISCONNECT_CP_SIZE;
Wolfgang Betz 132:51056160fa4a 387 rq.event = EVT_CMD_STATUS;
Wolfgang Betz 132:51056160fa4a 388 rq.rparam = &status;
Wolfgang Betz 132:51056160fa4a 389 rq.rlen = 1;
Wolfgang Betz 132:51056160fa4a 390
Wolfgang Betz 132:51056160fa4a 391 if (hci_send_req(&rq, FALSE) < 0)
Wolfgang Betz 132:51056160fa4a 392 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 393
Wolfgang Betz 132:51056160fa4a 394 return status;
Wolfgang Betz 132:51056160fa4a 395 }
Wolfgang Betz 132:51056160fa4a 396
Wolfgang Betz 132:51056160fa4a 397 int hci_le_read_local_version(uint8_t *hci_version, uint16_t *hci_revision, uint8_t *lmp_pal_version,
Wolfgang Betz 132:51056160fa4a 398 uint16_t *manufacturer_name, uint16_t *lmp_pal_subversion)
Wolfgang Betz 132:51056160fa4a 399 {
Wolfgang Betz 132:51056160fa4a 400 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 401 read_local_version_rp resp;
Wolfgang Betz 132:51056160fa4a 402
Wolfgang Betz 132:51056160fa4a 403 Osal_MemSet(&resp, 0, sizeof(resp));
Wolfgang Betz 132:51056160fa4a 404
Wolfgang Betz 132:51056160fa4a 405 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 406 rq.ogf = OGF_INFO_PARAM;
Wolfgang Betz 132:51056160fa4a 407 rq.ocf = OCF_READ_LOCAL_VERSION;
Wolfgang Betz 132:51056160fa4a 408 rq.cparam = NULL;
Wolfgang Betz 132:51056160fa4a 409 rq.clen = 0;
Wolfgang Betz 132:51056160fa4a 410 rq.rparam = &resp;
Wolfgang Betz 132:51056160fa4a 411 rq.rlen = READ_LOCAL_VERSION_RP_SIZE;
Wolfgang Betz 132:51056160fa4a 412
Wolfgang Betz 132:51056160fa4a 413 if (hci_send_req(&rq, FALSE) < 0)
Wolfgang Betz 132:51056160fa4a 414 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 415
Wolfgang Betz 132:51056160fa4a 416 if (resp.status) {
Wolfgang Betz 132:51056160fa4a 417 return resp.status;
Wolfgang Betz 132:51056160fa4a 418 }
Wolfgang Betz 132:51056160fa4a 419
Wolfgang Betz 132:51056160fa4a 420
Wolfgang Betz 132:51056160fa4a 421 *hci_version = resp.hci_version;
Wolfgang Betz 132:51056160fa4a 422 *hci_revision = btohs(resp.hci_revision);
Wolfgang Betz 132:51056160fa4a 423 *lmp_pal_version = resp.lmp_pal_version;
Wolfgang Betz 132:51056160fa4a 424 *manufacturer_name = btohs(resp.manufacturer_name);
Wolfgang Betz 132:51056160fa4a 425 *lmp_pal_subversion = btohs(resp.lmp_pal_subversion);
Wolfgang Betz 132:51056160fa4a 426
Wolfgang Betz 132:51056160fa4a 427 return 0;
Wolfgang Betz 132:51056160fa4a 428 }
Wolfgang Betz 132:51056160fa4a 429
Wolfgang Betz 132:51056160fa4a 430 int hci_le_read_buffer_size(uint16_t *pkt_len, uint8_t *max_pkt)
Wolfgang Betz 132:51056160fa4a 431 {
Wolfgang Betz 132:51056160fa4a 432 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 433 le_read_buffer_size_rp resp;
Wolfgang Betz 132:51056160fa4a 434
Wolfgang Betz 132:51056160fa4a 435 Osal_MemSet(&resp, 0, sizeof(resp));
Wolfgang Betz 132:51056160fa4a 436
Wolfgang Betz 132:51056160fa4a 437 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 438 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 439 rq.ocf = OCF_LE_READ_BUFFER_SIZE;
Wolfgang Betz 132:51056160fa4a 440 rq.cparam = NULL;
Wolfgang Betz 132:51056160fa4a 441 rq.clen = 0;
Wolfgang Betz 132:51056160fa4a 442 rq.rparam = &resp;
Wolfgang Betz 132:51056160fa4a 443 rq.rlen = LE_READ_BUFFER_SIZE_RP_SIZE;
Wolfgang Betz 132:51056160fa4a 444
Wolfgang Betz 132:51056160fa4a 445 if (hci_send_req(&rq, FALSE) < 0)
Wolfgang Betz 132:51056160fa4a 446 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 447
Wolfgang Betz 132:51056160fa4a 448 if (resp.status) {
Wolfgang Betz 132:51056160fa4a 449 return resp.status;
Wolfgang Betz 132:51056160fa4a 450 }
Wolfgang Betz 132:51056160fa4a 451
Wolfgang Betz 132:51056160fa4a 452 *pkt_len = resp.pkt_len;
Wolfgang Betz 132:51056160fa4a 453 *max_pkt = resp.max_pkt;
Wolfgang Betz 132:51056160fa4a 454
Wolfgang Betz 132:51056160fa4a 455 return 0;
Wolfgang Betz 132:51056160fa4a 456 }
Wolfgang Betz 132:51056160fa4a 457
Wolfgang Betz 132:51056160fa4a 458 int hci_le_set_advertising_parameters(uint16_t min_interval, uint16_t max_interval, uint8_t advtype,
Wolfgang Betz 132:51056160fa4a 459 uint8_t own_bdaddr_type, uint8_t direct_bdaddr_type, const tBDAddr direct_bdaddr, uint8_t chan_map,
Wolfgang Betz 132:51056160fa4a 460 uint8_t filter)
Wolfgang Betz 132:51056160fa4a 461 {
Wolfgang Betz 132:51056160fa4a 462 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 463 le_set_adv_parameters_cp adv_cp;
Wolfgang Betz 132:51056160fa4a 464 uint8_t status;
Wolfgang Betz 132:51056160fa4a 465
Wolfgang Betz 132:51056160fa4a 466 Osal_MemSet(&adv_cp, 0, sizeof(adv_cp));
Wolfgang Betz 132:51056160fa4a 467 adv_cp.min_interval = min_interval;
Wolfgang Betz 132:51056160fa4a 468 adv_cp.max_interval = max_interval;
Wolfgang Betz 132:51056160fa4a 469 adv_cp.advtype = advtype;
Wolfgang Betz 132:51056160fa4a 470 adv_cp.own_bdaddr_type = own_bdaddr_type;
Wolfgang Betz 132:51056160fa4a 471 adv_cp.direct_bdaddr_type = direct_bdaddr_type;
Wolfgang Betz 132:51056160fa4a 472 Osal_MemCpy(adv_cp.direct_bdaddr,direct_bdaddr,sizeof(adv_cp.direct_bdaddr));
Wolfgang Betz 132:51056160fa4a 473 adv_cp.chan_map = chan_map;
Wolfgang Betz 132:51056160fa4a 474 adv_cp.filter = filter;
Wolfgang Betz 132:51056160fa4a 475
Wolfgang Betz 132:51056160fa4a 476 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 477 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 478 rq.ocf = OCF_LE_SET_ADV_PARAMETERS;
Wolfgang Betz 132:51056160fa4a 479 rq.cparam = &adv_cp;
Wolfgang Betz 132:51056160fa4a 480 rq.clen = LE_SET_ADV_PARAMETERS_CP_SIZE;
Wolfgang Betz 132:51056160fa4a 481 rq.rparam = &status;
Wolfgang Betz 132:51056160fa4a 482 rq.rlen = 1;
Wolfgang Betz 132:51056160fa4a 483
Wolfgang Betz 132:51056160fa4a 484 if (hci_send_req(&rq, FALSE) < 0)
Wolfgang Betz 132:51056160fa4a 485 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 486
Wolfgang Betz 132:51056160fa4a 487 return status;
Wolfgang Betz 132:51056160fa4a 488 }
Wolfgang Betz 132:51056160fa4a 489
Wolfgang Betz 132:51056160fa4a 490 int hci_le_set_advertising_data(uint8_t length, const uint8_t data[])
Wolfgang Betz 132:51056160fa4a 491 {
Wolfgang Betz 132:51056160fa4a 492 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 493 le_set_adv_data_cp adv_cp;
Wolfgang Betz 132:51056160fa4a 494 uint8_t status;
Wolfgang Betz 132:51056160fa4a 495
Wolfgang Betz 132:51056160fa4a 496 Osal_MemSet(&adv_cp, 0, sizeof(adv_cp));
Wolfgang Betz 132:51056160fa4a 497 adv_cp.length = length;
Wolfgang Betz 132:51056160fa4a 498 Osal_MemCpy(adv_cp.data, data, MIN(31,length));
Wolfgang Betz 132:51056160fa4a 499
Wolfgang Betz 132:51056160fa4a 500 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 501 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 502 rq.ocf = OCF_LE_SET_ADV_DATA;
Wolfgang Betz 132:51056160fa4a 503 rq.cparam = &adv_cp;
Wolfgang Betz 132:51056160fa4a 504 rq.clen = LE_SET_ADV_DATA_CP_SIZE;
Wolfgang Betz 132:51056160fa4a 505 rq.rparam = &status;
Wolfgang Betz 132:51056160fa4a 506 rq.rlen = 1;
Wolfgang Betz 132:51056160fa4a 507
Wolfgang Betz 132:51056160fa4a 508 if (hci_send_req(&rq, FALSE) < 0)
Wolfgang Betz 132:51056160fa4a 509 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 510
Wolfgang Betz 132:51056160fa4a 511 return status;
Wolfgang Betz 132:51056160fa4a 512 }
Wolfgang Betz 132:51056160fa4a 513
Wolfgang Betz 132:51056160fa4a 514 int hci_le_set_advertise_enable(uint8_t enable)
Wolfgang Betz 132:51056160fa4a 515 {
Wolfgang Betz 132:51056160fa4a 516 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 517 le_set_advertise_enable_cp adv_cp;
Wolfgang Betz 132:51056160fa4a 518 uint8_t status;
Wolfgang Betz 132:51056160fa4a 519
Wolfgang Betz 132:51056160fa4a 520 Osal_MemSet(&adv_cp, 0, sizeof(adv_cp));
Wolfgang Betz 132:51056160fa4a 521 adv_cp.enable = enable?1:0;
Wolfgang Betz 132:51056160fa4a 522
Wolfgang Betz 132:51056160fa4a 523 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 524 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 525 rq.ocf = OCF_LE_SET_ADVERTISE_ENABLE;
Wolfgang Betz 132:51056160fa4a 526 rq.cparam = &adv_cp;
Wolfgang Betz 132:51056160fa4a 527 rq.clen = LE_SET_ADVERTISE_ENABLE_CP_SIZE;
Wolfgang Betz 132:51056160fa4a 528 rq.rparam = &status;
Wolfgang Betz 132:51056160fa4a 529 rq.rlen = 1;
Wolfgang Betz 132:51056160fa4a 530
Wolfgang Betz 132:51056160fa4a 531 if (hci_send_req(&rq, FALSE) < 0)
Wolfgang Betz 132:51056160fa4a 532 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 533
Wolfgang Betz 132:51056160fa4a 534 return status;
Wolfgang Betz 132:51056160fa4a 535 }
Wolfgang Betz 132:51056160fa4a 536
Wolfgang Betz 132:51056160fa4a 537 int hci_le_set_scan_parameters(uint8_t type, uint16_t interval,
Wolfgang Betz 132:51056160fa4a 538 uint16_t window, uint8_t own_bdaddr_type,
Wolfgang Betz 132:51056160fa4a 539 uint8_t filter)
Wolfgang Betz 132:51056160fa4a 540 {
Wolfgang Betz 132:51056160fa4a 541 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 542 le_set_scan_parameters_cp scan_cp;
Wolfgang Betz 132:51056160fa4a 543 uint8_t status;
Wolfgang Betz 132:51056160fa4a 544
Wolfgang Betz 132:51056160fa4a 545 Osal_MemSet(&scan_cp, 0, sizeof(scan_cp));
Wolfgang Betz 132:51056160fa4a 546 scan_cp.type = type;
Wolfgang Betz 132:51056160fa4a 547 scan_cp.interval = interval;
Wolfgang Betz 132:51056160fa4a 548 scan_cp.window = window;
Wolfgang Betz 132:51056160fa4a 549 scan_cp.own_bdaddr_type = own_bdaddr_type;
Wolfgang Betz 132:51056160fa4a 550 scan_cp.filter = filter;
Wolfgang Betz 132:51056160fa4a 551
Wolfgang Betz 132:51056160fa4a 552 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 553 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 554 rq.ocf = OCF_LE_SET_SCAN_PARAMETERS;
Wolfgang Betz 132:51056160fa4a 555 rq.cparam = &scan_cp;
Wolfgang Betz 132:51056160fa4a 556 rq.clen = LE_SET_SCAN_PARAMETERS_CP_SIZE;
Wolfgang Betz 132:51056160fa4a 557 rq.rparam = &status;
Wolfgang Betz 132:51056160fa4a 558 rq.rlen = 1;
Wolfgang Betz 132:51056160fa4a 559
Wolfgang Betz 132:51056160fa4a 560 if (hci_send_req(&rq, FALSE) < 0)
Wolfgang Betz 132:51056160fa4a 561 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 562
Wolfgang Betz 132:51056160fa4a 563 return status;
Wolfgang Betz 132:51056160fa4a 564 }
Wolfgang Betz 132:51056160fa4a 565
Wolfgang Betz 132:51056160fa4a 566 int hci_le_set_scan_enable(uint8_t enable, uint8_t filter_dup)
Wolfgang Betz 132:51056160fa4a 567 {
Wolfgang Betz 132:51056160fa4a 568 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 569 le_set_scan_enable_cp scan_cp;
Wolfgang Betz 132:51056160fa4a 570 uint8_t status;
Wolfgang Betz 132:51056160fa4a 571
Wolfgang Betz 132:51056160fa4a 572 Osal_MemSet(&scan_cp, 0, sizeof(scan_cp));
Wolfgang Betz 132:51056160fa4a 573 scan_cp.enable = enable?1:0;
Wolfgang Betz 132:51056160fa4a 574 scan_cp.filter_dup = filter_dup;
Wolfgang Betz 132:51056160fa4a 575
Wolfgang Betz 132:51056160fa4a 576 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 577 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 578 rq.ocf = OCF_LE_SET_SCAN_ENABLE;
Wolfgang Betz 132:51056160fa4a 579 rq.cparam = &scan_cp;
Wolfgang Betz 132:51056160fa4a 580 rq.clen = LE_SET_SCAN_ENABLE_CP_SIZE;
Wolfgang Betz 132:51056160fa4a 581 rq.rparam = &status;
Wolfgang Betz 132:51056160fa4a 582 rq.rlen = 1;
Wolfgang Betz 132:51056160fa4a 583
Wolfgang Betz 132:51056160fa4a 584 if (hci_send_req(&rq, FALSE) < 0)
Wolfgang Betz 132:51056160fa4a 585 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 586
Wolfgang Betz 132:51056160fa4a 587 return status;
Wolfgang Betz 132:51056160fa4a 588 }
Wolfgang Betz 132:51056160fa4a 589
Wolfgang Betz 132:51056160fa4a 590 int hci_le_rand(uint8_t random_number[8])
Wolfgang Betz 132:51056160fa4a 591 {
Wolfgang Betz 132:51056160fa4a 592 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 593 le_rand_rp resp;
Wolfgang Betz 132:51056160fa4a 594
Wolfgang Betz 132:51056160fa4a 595 Osal_MemSet(&resp, 0, sizeof(resp));
Wolfgang Betz 132:51056160fa4a 596
Wolfgang Betz 132:51056160fa4a 597 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 598 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 599 rq.ocf = OCF_LE_RAND;
Wolfgang Betz 132:51056160fa4a 600 rq.cparam = NULL;
Wolfgang Betz 132:51056160fa4a 601 rq.clen = 0;
Wolfgang Betz 132:51056160fa4a 602 rq.rparam = &resp;
Wolfgang Betz 132:51056160fa4a 603 rq.rlen = LE_RAND_RP_SIZE;
Wolfgang Betz 132:51056160fa4a 604
Wolfgang Betz 132:51056160fa4a 605 if (hci_send_req(&rq, FALSE) < 0)
Wolfgang Betz 132:51056160fa4a 606 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 607
Wolfgang Betz 132:51056160fa4a 608 if (resp.status) {
Wolfgang Betz 132:51056160fa4a 609 return resp.status;
Wolfgang Betz 132:51056160fa4a 610 }
Wolfgang Betz 132:51056160fa4a 611
Wolfgang Betz 132:51056160fa4a 612 Osal_MemCpy(random_number, resp.random, 8);
Wolfgang Betz 132:51056160fa4a 613
Wolfgang Betz 132:51056160fa4a 614 return 0;
Wolfgang Betz 132:51056160fa4a 615 }
Wolfgang Betz 132:51056160fa4a 616
Wolfgang Betz 132:51056160fa4a 617 int hci_le_set_scan_resp_data(uint8_t length, const uint8_t data[])
Wolfgang Betz 132:51056160fa4a 618 {
Wolfgang Betz 132:51056160fa4a 619 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 620 le_set_scan_response_data_cp scan_resp_cp;
Wolfgang Betz 132:51056160fa4a 621 uint8_t status;
Wolfgang Betz 132:51056160fa4a 622
Wolfgang Betz 132:51056160fa4a 623 Osal_MemSet(&scan_resp_cp, 0, sizeof(scan_resp_cp));
Wolfgang Betz 132:51056160fa4a 624 scan_resp_cp.length = length;
Wolfgang Betz 132:51056160fa4a 625 Osal_MemCpy(scan_resp_cp.data, data, MIN(31,length));
Wolfgang Betz 132:51056160fa4a 626
Wolfgang Betz 132:51056160fa4a 627 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 628 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 629 rq.ocf = OCF_LE_SET_SCAN_RESPONSE_DATA;
Wolfgang Betz 132:51056160fa4a 630 rq.cparam = &scan_resp_cp;
Wolfgang Betz 132:51056160fa4a 631 rq.clen = LE_SET_SCAN_RESPONSE_DATA_CP_SIZE;
Wolfgang Betz 132:51056160fa4a 632 rq.rparam = &status;
Wolfgang Betz 132:51056160fa4a 633 rq.rlen = 1;
Wolfgang Betz 132:51056160fa4a 634
Wolfgang Betz 132:51056160fa4a 635 if (hci_send_req(&rq, FALSE) < 0)
Wolfgang Betz 132:51056160fa4a 636 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 637
Wolfgang Betz 132:51056160fa4a 638 return status;
Wolfgang Betz 132:51056160fa4a 639 }
Wolfgang Betz 132:51056160fa4a 640
Wolfgang Betz 132:51056160fa4a 641 int hci_le_read_advertising_channel_tx_power(int8_t *tx_power_level)
Wolfgang Betz 132:51056160fa4a 642 {
Wolfgang Betz 132:51056160fa4a 643 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 644 le_read_adv_channel_tx_power_rp resp;
Wolfgang Betz 132:51056160fa4a 645
Wolfgang Betz 132:51056160fa4a 646 Osal_MemSet(&resp, 0, sizeof(resp));
Wolfgang Betz 132:51056160fa4a 647
Wolfgang Betz 132:51056160fa4a 648 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 649 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 650 rq.ocf = OCF_LE_READ_ADV_CHANNEL_TX_POWER;
Wolfgang Betz 132:51056160fa4a 651 rq.cparam = NULL;
Wolfgang Betz 132:51056160fa4a 652 rq.clen = 0;
Wolfgang Betz 132:51056160fa4a 653 rq.rparam = &resp;
Wolfgang Betz 132:51056160fa4a 654 rq.rlen = LE_RAND_RP_SIZE;
Wolfgang Betz 132:51056160fa4a 655
Wolfgang Betz 132:51056160fa4a 656 if (hci_send_req(&rq, FALSE) < 0)
Wolfgang Betz 132:51056160fa4a 657 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 658
Wolfgang Betz 132:51056160fa4a 659 if (resp.status) {
Wolfgang Betz 132:51056160fa4a 660 return resp.status;
Wolfgang Betz 132:51056160fa4a 661 }
Wolfgang Betz 132:51056160fa4a 662
Wolfgang Betz 132:51056160fa4a 663 *tx_power_level = resp.level;
Wolfgang Betz 132:51056160fa4a 664
Wolfgang Betz 132:51056160fa4a 665 return 0;
Wolfgang Betz 132:51056160fa4a 666 }
Wolfgang Betz 132:51056160fa4a 667
Wolfgang Betz 132:51056160fa4a 668 int hci_le_set_random_address(tBDAddr bdaddr)
Wolfgang Betz 132:51056160fa4a 669 {
Wolfgang Betz 132:51056160fa4a 670 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 671 le_set_random_address_cp set_rand_addr_cp;
Wolfgang Betz 132:51056160fa4a 672 uint8_t status;
Wolfgang Betz 132:51056160fa4a 673
Wolfgang Betz 132:51056160fa4a 674 Osal_MemSet(&set_rand_addr_cp, 0, sizeof(set_rand_addr_cp));
Wolfgang Betz 132:51056160fa4a 675 Osal_MemCpy(set_rand_addr_cp.bdaddr, bdaddr, sizeof(tBDAddr));
Wolfgang Betz 132:51056160fa4a 676
Wolfgang Betz 132:51056160fa4a 677 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 678 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 679 rq.ocf = OCF_LE_SET_RANDOM_ADDRESS;
Wolfgang Betz 132:51056160fa4a 680 rq.cparam = &set_rand_addr_cp;
Wolfgang Betz 132:51056160fa4a 681 rq.clen = LE_SET_RANDOM_ADDRESS_CP_SIZE;
Wolfgang Betz 132:51056160fa4a 682 rq.rparam = &status;
Wolfgang Betz 132:51056160fa4a 683 rq.rlen = 1;
Wolfgang Betz 132:51056160fa4a 684
Wolfgang Betz 132:51056160fa4a 685 if (hci_send_req(&rq, FALSE) < 0)
Wolfgang Betz 132:51056160fa4a 686 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 687
Wolfgang Betz 132:51056160fa4a 688 return status;
Wolfgang Betz 132:51056160fa4a 689 }
Wolfgang Betz 132:51056160fa4a 690
Wolfgang Betz 132:51056160fa4a 691 int hci_read_bd_addr(tBDAddr bdaddr)
Wolfgang Betz 132:51056160fa4a 692 {
Wolfgang Betz 132:51056160fa4a 693 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 694 read_bd_addr_rp resp;
Wolfgang Betz 132:51056160fa4a 695
Wolfgang Betz 132:51056160fa4a 696 Osal_MemSet(&resp, 0, sizeof(resp));
Wolfgang Betz 132:51056160fa4a 697
Wolfgang Betz 132:51056160fa4a 698 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 699 rq.ogf = OGF_INFO_PARAM;
Wolfgang Betz 132:51056160fa4a 700 rq.ocf = OCF_READ_BD_ADDR;
Wolfgang Betz 132:51056160fa4a 701 rq.cparam = NULL;
Wolfgang Betz 132:51056160fa4a 702 rq.clen = 0;
Wolfgang Betz 132:51056160fa4a 703 rq.rparam = &resp;
Wolfgang Betz 132:51056160fa4a 704 rq.rlen = READ_BD_ADDR_RP_SIZE;
Wolfgang Betz 132:51056160fa4a 705
Wolfgang Betz 132:51056160fa4a 706 if (hci_send_req(&rq, FALSE) < 0)
Wolfgang Betz 132:51056160fa4a 707 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 708
Wolfgang Betz 132:51056160fa4a 709 if (resp.status) {
Wolfgang Betz 132:51056160fa4a 710 return resp.status;
Wolfgang Betz 132:51056160fa4a 711 }
Wolfgang Betz 132:51056160fa4a 712 Osal_MemCpy(bdaddr, resp.bdaddr, sizeof(tBDAddr));
Wolfgang Betz 132:51056160fa4a 713
Wolfgang Betz 132:51056160fa4a 714 return 0;
Wolfgang Betz 132:51056160fa4a 715 }
Wolfgang Betz 132:51056160fa4a 716
Wolfgang Betz 132:51056160fa4a 717 int hci_le_create_connection(uint16_t interval, uint16_t window, uint8_t initiator_filter, uint8_t peer_bdaddr_type,
Wolfgang Betz 132:51056160fa4a 718 const tBDAddr peer_bdaddr, uint8_t own_bdaddr_type, uint16_t min_interval, uint16_t max_interval,
Wolfgang Betz 132:51056160fa4a 719 uint16_t latency, uint16_t supervision_timeout, uint16_t min_ce_length, uint16_t max_ce_length)
Wolfgang Betz 132:51056160fa4a 720 {
Wolfgang Betz 132:51056160fa4a 721 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 722 le_create_connection_cp create_cp;
Wolfgang Betz 132:51056160fa4a 723 uint8_t status;
Wolfgang Betz 132:51056160fa4a 724
Wolfgang Betz 132:51056160fa4a 725 Osal_MemSet(&create_cp, 0, sizeof(create_cp));
Wolfgang Betz 132:51056160fa4a 726 create_cp.interval = interval;
Wolfgang Betz 132:51056160fa4a 727 create_cp.window = window;
Wolfgang Betz 132:51056160fa4a 728 create_cp.initiator_filter = initiator_filter;
Wolfgang Betz 132:51056160fa4a 729 create_cp.peer_bdaddr_type = peer_bdaddr_type;
Wolfgang Betz 132:51056160fa4a 730 Osal_MemCpy(create_cp.peer_bdaddr, peer_bdaddr, sizeof(tBDAddr));
Wolfgang Betz 132:51056160fa4a 731 create_cp.own_bdaddr_type = own_bdaddr_type;
Wolfgang Betz 132:51056160fa4a 732 create_cp.min_interval=min_interval;
Wolfgang Betz 132:51056160fa4a 733 create_cp.max_interval=max_interval;
Wolfgang Betz 132:51056160fa4a 734 create_cp.latency = latency;
Wolfgang Betz 132:51056160fa4a 735 create_cp.supervision_timeout=supervision_timeout;
Wolfgang Betz 132:51056160fa4a 736 create_cp.min_ce_length=min_ce_length;
Wolfgang Betz 132:51056160fa4a 737 create_cp.max_ce_length=max_ce_length;
Wolfgang Betz 132:51056160fa4a 738
Wolfgang Betz 132:51056160fa4a 739 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 740 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 741 rq.ocf = OCF_LE_CREATE_CONN;
Wolfgang Betz 132:51056160fa4a 742 rq.cparam = &create_cp;
Wolfgang Betz 132:51056160fa4a 743 rq.clen = LE_CREATE_CONN_CP_SIZE;
Wolfgang Betz 132:51056160fa4a 744 rq.event = EVT_CMD_STATUS;
Wolfgang Betz 132:51056160fa4a 745 rq.rparam = &status;
Wolfgang Betz 132:51056160fa4a 746 rq.rlen = 1;
Wolfgang Betz 132:51056160fa4a 747
Wolfgang Betz 132:51056160fa4a 748 if (hci_send_req(&rq, FALSE) < 0)
Wolfgang Betz 132:51056160fa4a 749 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 750
Wolfgang Betz 132:51056160fa4a 751 return status;
Wolfgang Betz 132:51056160fa4a 752 }
Wolfgang Betz 132:51056160fa4a 753
Wolfgang Betz 132:51056160fa4a 754 int hci_le_encrypt(uint8_t key[16], uint8_t plaintextData[16], uint8_t encryptedData[16])
Wolfgang Betz 132:51056160fa4a 755 {
Wolfgang Betz 132:51056160fa4a 756 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 757 le_encrypt_cp params;
Wolfgang Betz 132:51056160fa4a 758 le_encrypt_rp resp;
Wolfgang Betz 132:51056160fa4a 759
Wolfgang Betz 132:51056160fa4a 760 Osal_MemSet(&resp, 0, sizeof(resp));
Wolfgang Betz 132:51056160fa4a 761
Wolfgang Betz 132:51056160fa4a 762 Osal_MemCpy(params.key, key, 16);
Wolfgang Betz 132:51056160fa4a 763 Osal_MemCpy(params.plaintext, plaintextData, 16);
Wolfgang Betz 132:51056160fa4a 764
Wolfgang Betz 132:51056160fa4a 765 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 766 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 767 rq.ocf = OCF_LE_ENCRYPT;
Wolfgang Betz 132:51056160fa4a 768 rq.cparam = &params;
Wolfgang Betz 132:51056160fa4a 769 rq.clen = LE_ENCRYPT_CP_SIZE;
Wolfgang Betz 132:51056160fa4a 770 rq.rparam = &resp;
Wolfgang Betz 132:51056160fa4a 771 rq.rlen = LE_ENCRYPT_RP_SIZE;
Wolfgang Betz 132:51056160fa4a 772
Wolfgang Betz 132:51056160fa4a 773 if (hci_send_req(&rq, FALSE) < 0){
Wolfgang Betz 132:51056160fa4a 774 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 775 }
Wolfgang Betz 132:51056160fa4a 776
Wolfgang Betz 132:51056160fa4a 777 if (resp.status) {
Wolfgang Betz 132:51056160fa4a 778 return resp.status;
Wolfgang Betz 132:51056160fa4a 779 }
Wolfgang Betz 132:51056160fa4a 780
Wolfgang Betz 132:51056160fa4a 781 Osal_MemCpy(encryptedData, resp.encdata, 16);
Wolfgang Betz 132:51056160fa4a 782
Wolfgang Betz 132:51056160fa4a 783 return 0;
Wolfgang Betz 132:51056160fa4a 784 }
Wolfgang Betz 132:51056160fa4a 785
Wolfgang Betz 132:51056160fa4a 786 int hci_le_ltk_request_reply(uint8_t key[16])
Wolfgang Betz 132:51056160fa4a 787 {
Wolfgang Betz 132:51056160fa4a 788 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 789 le_ltk_reply_cp params;
Wolfgang Betz 132:51056160fa4a 790 le_ltk_reply_rp resp;
Wolfgang Betz 132:51056160fa4a 791
Wolfgang Betz 132:51056160fa4a 792 Osal_MemSet(&resp, 0, sizeof(resp));
Wolfgang Betz 132:51056160fa4a 793
Wolfgang Betz 132:51056160fa4a 794 params.handle = 1;
Wolfgang Betz 132:51056160fa4a 795 Osal_MemCpy(params.key, key, 16);
Wolfgang Betz 132:51056160fa4a 796
Wolfgang Betz 132:51056160fa4a 797 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 798 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 799 rq.ocf = OCF_LE_LTK_REPLY;
Wolfgang Betz 132:51056160fa4a 800 rq.cparam = &params;
Wolfgang Betz 132:51056160fa4a 801 rq.clen = LE_LTK_REPLY_CP_SIZE;
Wolfgang Betz 132:51056160fa4a 802 rq.rparam = &resp;
Wolfgang Betz 132:51056160fa4a 803 rq.rlen = LE_LTK_REPLY_RP_SIZE;
Wolfgang Betz 132:51056160fa4a 804
Wolfgang Betz 132:51056160fa4a 805 if (hci_send_req(&rq, FALSE) < 0)
Wolfgang Betz 132:51056160fa4a 806 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 807
Wolfgang Betz 132:51056160fa4a 808 return resp.status;
Wolfgang Betz 132:51056160fa4a 809 }
Wolfgang Betz 132:51056160fa4a 810
Wolfgang Betz 132:51056160fa4a 811 int hci_le_ltk_request_neg_reply()
Wolfgang Betz 132:51056160fa4a 812 {
Wolfgang Betz 132:51056160fa4a 813 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 814 le_ltk_neg_reply_cp params;
Wolfgang Betz 132:51056160fa4a 815 le_ltk_neg_reply_rp resp;
Wolfgang Betz 132:51056160fa4a 816
Wolfgang Betz 132:51056160fa4a 817 Osal_MemSet(&resp, 0, sizeof(resp));
Wolfgang Betz 132:51056160fa4a 818
Wolfgang Betz 132:51056160fa4a 819 params.handle = 1;
Wolfgang Betz 132:51056160fa4a 820
Wolfgang Betz 132:51056160fa4a 821 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 822 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 823 rq.ocf = OCF_LE_LTK_NEG_REPLY;
Wolfgang Betz 132:51056160fa4a 824 rq.cparam = &params;
Wolfgang Betz 132:51056160fa4a 825 rq.clen = LE_LTK_NEG_REPLY_CP_SIZE;
Wolfgang Betz 132:51056160fa4a 826 rq.rparam = &resp;
Wolfgang Betz 132:51056160fa4a 827 rq.rlen = LE_LTK_NEG_REPLY_RP_SIZE;
Wolfgang Betz 132:51056160fa4a 828
Wolfgang Betz 132:51056160fa4a 829 if (hci_send_req(&rq, FALSE) < 0)
Wolfgang Betz 132:51056160fa4a 830 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 831
Wolfgang Betz 132:51056160fa4a 832 return resp.status;
Wolfgang Betz 132:51056160fa4a 833 }
Wolfgang Betz 132:51056160fa4a 834
Wolfgang Betz 132:51056160fa4a 835 int hci_le_read_white_list_size(uint8_t *size)
Wolfgang Betz 132:51056160fa4a 836 {
Wolfgang Betz 132:51056160fa4a 837 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 838 le_read_white_list_size_rp resp;
Wolfgang Betz 132:51056160fa4a 839
Wolfgang Betz 132:51056160fa4a 840 Osal_MemSet(&resp, 0, sizeof(resp));
Wolfgang Betz 132:51056160fa4a 841
Wolfgang Betz 132:51056160fa4a 842 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 843 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 844 rq.ocf = OCF_LE_READ_WHITE_LIST_SIZE;
Wolfgang Betz 132:51056160fa4a 845 rq.rparam = &resp;
Wolfgang Betz 132:51056160fa4a 846 rq.rlen = LE_READ_WHITE_LIST_SIZE_RP_SIZE;
Wolfgang Betz 132:51056160fa4a 847
Wolfgang Betz 132:51056160fa4a 848 if (hci_send_req(&rq, FALSE) < 0){
Wolfgang Betz 132:51056160fa4a 849 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 850 }
Wolfgang Betz 132:51056160fa4a 851
Wolfgang Betz 132:51056160fa4a 852 if (resp.status) {
Wolfgang Betz 132:51056160fa4a 853 return resp.status;
Wolfgang Betz 132:51056160fa4a 854 }
Wolfgang Betz 132:51056160fa4a 855
Wolfgang Betz 132:51056160fa4a 856 *size = resp.size;
Wolfgang Betz 132:51056160fa4a 857
Wolfgang Betz 132:51056160fa4a 858 return 0;
Wolfgang Betz 132:51056160fa4a 859 }
Wolfgang Betz 132:51056160fa4a 860
Wolfgang Betz 132:51056160fa4a 861 int hci_le_clear_white_list()
Wolfgang Betz 132:51056160fa4a 862 {
Wolfgang Betz 132:51056160fa4a 863 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 864 uint8_t status;
Wolfgang Betz 132:51056160fa4a 865
Wolfgang Betz 132:51056160fa4a 866 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 867 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 868 rq.ocf = OCF_LE_CLEAR_WHITE_LIST;
Wolfgang Betz 132:51056160fa4a 869 rq.rparam = &status;
Wolfgang Betz 132:51056160fa4a 870 rq.rlen = 1;
Wolfgang Betz 132:51056160fa4a 871
Wolfgang Betz 132:51056160fa4a 872 if (hci_send_req(&rq, FALSE) < 0){
Wolfgang Betz 132:51056160fa4a 873 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 874 }
Wolfgang Betz 132:51056160fa4a 875
Wolfgang Betz 132:51056160fa4a 876 return status;
Wolfgang Betz 132:51056160fa4a 877 }
Wolfgang Betz 132:51056160fa4a 878
Wolfgang Betz 132:51056160fa4a 879 int hci_le_add_device_to_white_list(uint8_t bdaddr_type, tBDAddr bdaddr)
Wolfgang Betz 132:51056160fa4a 880 {
Wolfgang Betz 132:51056160fa4a 881 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 882 le_add_device_to_white_list_cp params;
Wolfgang Betz 132:51056160fa4a 883 uint8_t status;
Wolfgang Betz 132:51056160fa4a 884
Wolfgang Betz 132:51056160fa4a 885 params.bdaddr_type = bdaddr_type;
Wolfgang Betz 132:51056160fa4a 886 Osal_MemCpy(params.bdaddr, bdaddr, 6);
Wolfgang Betz 132:51056160fa4a 887
Wolfgang Betz 132:51056160fa4a 888 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 889 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 890 rq.ocf = OCF_LE_ADD_DEVICE_TO_WHITE_LIST;
Wolfgang Betz 132:51056160fa4a 891 rq.cparam = &params;
Wolfgang Betz 132:51056160fa4a 892 rq.clen = LE_ADD_DEVICE_TO_WHITE_LIST_CP_SIZE;
Wolfgang Betz 132:51056160fa4a 893 rq.rparam = &status;
Wolfgang Betz 132:51056160fa4a 894 rq.rlen = 1;
Wolfgang Betz 132:51056160fa4a 895
Wolfgang Betz 132:51056160fa4a 896 if (hci_send_req(&rq, FALSE) < 0){
Wolfgang Betz 132:51056160fa4a 897 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 898 }
Wolfgang Betz 132:51056160fa4a 899
Wolfgang Betz 132:51056160fa4a 900 return status;
Wolfgang Betz 132:51056160fa4a 901 }
Wolfgang Betz 132:51056160fa4a 902
Wolfgang Betz 132:51056160fa4a 903 int hci_le_remove_device_from_white_list(uint8_t bdaddr_type, tBDAddr bdaddr)
Wolfgang Betz 132:51056160fa4a 904 {
Wolfgang Betz 132:51056160fa4a 905 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 906 le_remove_device_from_white_list_cp params;
Wolfgang Betz 132:51056160fa4a 907 uint8_t status;
Wolfgang Betz 132:51056160fa4a 908
Wolfgang Betz 132:51056160fa4a 909 params.bdaddr_type = bdaddr_type;
Wolfgang Betz 132:51056160fa4a 910 Osal_MemCpy(params.bdaddr, bdaddr, 6);
Wolfgang Betz 132:51056160fa4a 911
Wolfgang Betz 132:51056160fa4a 912 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 913 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 914 rq.ocf = OCF_LE_REMOVE_DEVICE_FROM_WHITE_LIST;
Wolfgang Betz 132:51056160fa4a 915 rq.cparam = &params;
Wolfgang Betz 132:51056160fa4a 916 rq.clen = LE_REMOVE_DEVICE_FROM_WHITE_LIST_CP_SIZE;
Wolfgang Betz 132:51056160fa4a 917 rq.rparam = &status;
Wolfgang Betz 132:51056160fa4a 918 rq.rlen = 1;
Wolfgang Betz 132:51056160fa4a 919
Wolfgang Betz 132:51056160fa4a 920 if (hci_send_req(&rq, FALSE) < 0){
Wolfgang Betz 132:51056160fa4a 921 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 922 }
Wolfgang Betz 132:51056160fa4a 923
Wolfgang Betz 132:51056160fa4a 924 return status;
Wolfgang Betz 132:51056160fa4a 925 }
Wolfgang Betz 132:51056160fa4a 926
Wolfgang Betz 132:51056160fa4a 927 int hci_read_transmit_power_level(uint16_t *conn_handle, uint8_t type, int8_t * tx_level)
Wolfgang Betz 132:51056160fa4a 928 {
Wolfgang Betz 132:51056160fa4a 929 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 930 read_transmit_power_level_cp params;
Wolfgang Betz 132:51056160fa4a 931 read_transmit_power_level_rp resp;
Wolfgang Betz 132:51056160fa4a 932
Wolfgang Betz 132:51056160fa4a 933 Osal_MemSet(&resp, 0, sizeof(resp));
Wolfgang Betz 132:51056160fa4a 934
Wolfgang Betz 132:51056160fa4a 935 params.handle = *conn_handle;
Wolfgang Betz 132:51056160fa4a 936 params.type = type;
Wolfgang Betz 132:51056160fa4a 937
Wolfgang Betz 132:51056160fa4a 938 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 939 rq.ogf = OGF_HOST_CTL;
Wolfgang Betz 132:51056160fa4a 940 rq.ocf = OCF_READ_TRANSMIT_POWER_LEVEL;
Wolfgang Betz 132:51056160fa4a 941 rq.cparam = &params;
Wolfgang Betz 132:51056160fa4a 942 rq.clen = READ_TRANSMIT_POWER_LEVEL_CP_SIZE;
Wolfgang Betz 132:51056160fa4a 943 rq.rparam = &resp;
Wolfgang Betz 132:51056160fa4a 944 rq.rlen = READ_TRANSMIT_POWER_LEVEL_RP_SIZE;
Wolfgang Betz 132:51056160fa4a 945
Wolfgang Betz 132:51056160fa4a 946 if (hci_send_req(&rq, FALSE) < 0){
Wolfgang Betz 132:51056160fa4a 947 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 948 }
Wolfgang Betz 132:51056160fa4a 949
Wolfgang Betz 132:51056160fa4a 950 if (resp.status) {
Wolfgang Betz 132:51056160fa4a 951 return resp.status;
Wolfgang Betz 132:51056160fa4a 952 }
Wolfgang Betz 132:51056160fa4a 953
Wolfgang Betz 132:51056160fa4a 954 *conn_handle = resp.handle;
Wolfgang Betz 132:51056160fa4a 955 *tx_level = resp.level;
Wolfgang Betz 132:51056160fa4a 956
Wolfgang Betz 132:51056160fa4a 957 return 0;
Wolfgang Betz 132:51056160fa4a 958 }
Wolfgang Betz 132:51056160fa4a 959
Wolfgang Betz 132:51056160fa4a 960 int hci_read_rssi(uint16_t *conn_handle, int8_t * rssi)
Wolfgang Betz 132:51056160fa4a 961 {
Wolfgang Betz 132:51056160fa4a 962 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 963 read_rssi_cp params;
Wolfgang Betz 132:51056160fa4a 964 read_rssi_rp resp;
Wolfgang Betz 132:51056160fa4a 965
Wolfgang Betz 132:51056160fa4a 966 Osal_MemSet(&resp, 0, sizeof(resp));
Wolfgang Betz 132:51056160fa4a 967
Wolfgang Betz 132:51056160fa4a 968 params.handle = *conn_handle;
Wolfgang Betz 132:51056160fa4a 969
Wolfgang Betz 132:51056160fa4a 970 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 971 rq.ogf = OGF_STATUS_PARAM;
Wolfgang Betz 132:51056160fa4a 972 rq.ocf = OCF_READ_RSSI;
Wolfgang Betz 132:51056160fa4a 973 rq.cparam = &params;
Wolfgang Betz 132:51056160fa4a 974 rq.clen = READ_RSSI_CP_SIZE;
Wolfgang Betz 132:51056160fa4a 975 rq.rparam = &resp;
Wolfgang Betz 132:51056160fa4a 976 rq.rlen = READ_RSSI_RP_SIZE;
Wolfgang Betz 132:51056160fa4a 977
Wolfgang Betz 132:51056160fa4a 978 if (hci_send_req(&rq, FALSE) < 0){
Wolfgang Betz 132:51056160fa4a 979 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 980 }
Wolfgang Betz 132:51056160fa4a 981
Wolfgang Betz 132:51056160fa4a 982 if (resp.status) {
Wolfgang Betz 132:51056160fa4a 983 return resp.status;
Wolfgang Betz 132:51056160fa4a 984 }
Wolfgang Betz 132:51056160fa4a 985
Wolfgang Betz 132:51056160fa4a 986 *conn_handle = resp.handle;
Wolfgang Betz 132:51056160fa4a 987 *rssi = resp.rssi;
Wolfgang Betz 132:51056160fa4a 988
Wolfgang Betz 132:51056160fa4a 989 return 0;
Wolfgang Betz 132:51056160fa4a 990 }
Wolfgang Betz 132:51056160fa4a 991
Wolfgang Betz 132:51056160fa4a 992 int hci_le_read_local_supported_features(uint8_t *features)
Wolfgang Betz 132:51056160fa4a 993 {
Wolfgang Betz 132:51056160fa4a 994 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 995 le_read_local_supported_features_rp resp;
Wolfgang Betz 132:51056160fa4a 996
Wolfgang Betz 132:51056160fa4a 997 Osal_MemSet(&resp, 0, sizeof(resp));
Wolfgang Betz 132:51056160fa4a 998
Wolfgang Betz 132:51056160fa4a 999 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 1000 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 1001 rq.ocf = OCF_LE_READ_LOCAL_SUPPORTED_FEATURES;
Wolfgang Betz 132:51056160fa4a 1002 rq.rparam = &resp;
Wolfgang Betz 132:51056160fa4a 1003 rq.rlen = LE_READ_LOCAL_SUPPORTED_FEATURES_RP_SIZE;
Wolfgang Betz 132:51056160fa4a 1004
Wolfgang Betz 132:51056160fa4a 1005 if (hci_send_req(&rq, FALSE) < 0){
Wolfgang Betz 132:51056160fa4a 1006 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 1007 }
Wolfgang Betz 132:51056160fa4a 1008
Wolfgang Betz 132:51056160fa4a 1009 if (resp.status) {
Wolfgang Betz 132:51056160fa4a 1010 return resp.status;
Wolfgang Betz 132:51056160fa4a 1011 }
Wolfgang Betz 132:51056160fa4a 1012
Wolfgang Betz 132:51056160fa4a 1013 Osal_MemCpy(features, resp.features, sizeof(resp.features));
Wolfgang Betz 132:51056160fa4a 1014
Wolfgang Betz 132:51056160fa4a 1015 return 0;
Wolfgang Betz 132:51056160fa4a 1016 }
Wolfgang Betz 132:51056160fa4a 1017
Wolfgang Betz 132:51056160fa4a 1018 int hci_le_read_channel_map(uint16_t conn_handle, uint8_t ch_map[5])
Wolfgang Betz 132:51056160fa4a 1019 {
Wolfgang Betz 132:51056160fa4a 1020 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 1021 le_read_channel_map_cp params;
Wolfgang Betz 132:51056160fa4a 1022 le_read_channel_map_rp resp;
Wolfgang Betz 132:51056160fa4a 1023
Wolfgang Betz 132:51056160fa4a 1024 Osal_MemSet(&resp, 0, sizeof(resp));
Wolfgang Betz 132:51056160fa4a 1025
Wolfgang Betz 132:51056160fa4a 1026 params.handle = conn_handle;
Wolfgang Betz 132:51056160fa4a 1027
Wolfgang Betz 132:51056160fa4a 1028 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 1029 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 1030 rq.ocf = OCF_LE_READ_CHANNEL_MAP;
Wolfgang Betz 132:51056160fa4a 1031 rq.cparam = &params;
Wolfgang Betz 132:51056160fa4a 1032 rq.clen = LE_READ_CHANNEL_MAP_CP_SIZE;
Wolfgang Betz 132:51056160fa4a 1033 rq.rparam = &resp;
Wolfgang Betz 132:51056160fa4a 1034 rq.rlen = LE_READ_CHANNEL_MAP_RP_SIZE;
Wolfgang Betz 132:51056160fa4a 1035
Wolfgang Betz 132:51056160fa4a 1036 if (hci_send_req(&rq, FALSE) < 0){
Wolfgang Betz 132:51056160fa4a 1037 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 1038 }
Wolfgang Betz 132:51056160fa4a 1039
Wolfgang Betz 132:51056160fa4a 1040 if (resp.status) {
Wolfgang Betz 132:51056160fa4a 1041 return resp.status;
Wolfgang Betz 132:51056160fa4a 1042 }
Wolfgang Betz 132:51056160fa4a 1043
Wolfgang Betz 132:51056160fa4a 1044 Osal_MemCpy(ch_map, resp.map, 5);
Wolfgang Betz 132:51056160fa4a 1045
Wolfgang Betz 132:51056160fa4a 1046 return 0;
Wolfgang Betz 132:51056160fa4a 1047 }
Wolfgang Betz 132:51056160fa4a 1048
Wolfgang Betz 132:51056160fa4a 1049 int hci_le_read_supported_states(uint8_t states[8])
Wolfgang Betz 132:51056160fa4a 1050 {
Wolfgang Betz 132:51056160fa4a 1051 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 1052 le_read_supported_states_rp resp;
Wolfgang Betz 132:51056160fa4a 1053
Wolfgang Betz 132:51056160fa4a 1054 Osal_MemSet(&resp, 0, sizeof(resp));
Wolfgang Betz 132:51056160fa4a 1055
Wolfgang Betz 132:51056160fa4a 1056 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 1057 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 1058 rq.ocf = OCF_LE_READ_SUPPORTED_STATES;
Wolfgang Betz 132:51056160fa4a 1059 rq.rparam = &resp;
Wolfgang Betz 132:51056160fa4a 1060 rq.rlen = LE_READ_SUPPORTED_STATES_RP_SIZE;
Wolfgang Betz 132:51056160fa4a 1061
Wolfgang Betz 132:51056160fa4a 1062 if (hci_send_req(&rq, FALSE) < 0){
Wolfgang Betz 132:51056160fa4a 1063 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 1064 }
Wolfgang Betz 132:51056160fa4a 1065
Wolfgang Betz 132:51056160fa4a 1066 if (resp.status) {
Wolfgang Betz 132:51056160fa4a 1067 return resp.status;
Wolfgang Betz 132:51056160fa4a 1068 }
Wolfgang Betz 132:51056160fa4a 1069
Wolfgang Betz 132:51056160fa4a 1070 Osal_MemCpy(states, resp.states, 8);
Wolfgang Betz 132:51056160fa4a 1071
Wolfgang Betz 132:51056160fa4a 1072 return 0;
Wolfgang Betz 132:51056160fa4a 1073 }
Wolfgang Betz 132:51056160fa4a 1074
Wolfgang Betz 132:51056160fa4a 1075 int hci_le_receiver_test(uint8_t frequency)
Wolfgang Betz 132:51056160fa4a 1076 {
Wolfgang Betz 132:51056160fa4a 1077 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 1078 le_receiver_test_cp params;
Wolfgang Betz 132:51056160fa4a 1079 uint8_t status;
Wolfgang Betz 132:51056160fa4a 1080
Wolfgang Betz 132:51056160fa4a 1081 params.frequency = frequency;
Wolfgang Betz 132:51056160fa4a 1082
Wolfgang Betz 132:51056160fa4a 1083 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 1084 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 1085 rq.ocf = OCF_LE_RECEIVER_TEST;
Wolfgang Betz 132:51056160fa4a 1086 rq.cparam = &params;
Wolfgang Betz 132:51056160fa4a 1087 rq.clen = LE_RECEIVER_TEST_CP_SIZE;
Wolfgang Betz 132:51056160fa4a 1088 rq.rparam = &status;
Wolfgang Betz 132:51056160fa4a 1089 rq.rlen = 1;
Wolfgang Betz 132:51056160fa4a 1090
Wolfgang Betz 132:51056160fa4a 1091 if (hci_send_req(&rq, FALSE) < 0){
Wolfgang Betz 132:51056160fa4a 1092 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 1093 }
Wolfgang Betz 132:51056160fa4a 1094
Wolfgang Betz 132:51056160fa4a 1095 return status;
Wolfgang Betz 132:51056160fa4a 1096 }
Wolfgang Betz 132:51056160fa4a 1097
Wolfgang Betz 132:51056160fa4a 1098 int hci_le_transmitter_test(uint8_t frequency, uint8_t length, uint8_t payload)
Wolfgang Betz 132:51056160fa4a 1099 {
Wolfgang Betz 132:51056160fa4a 1100 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 1101 le_transmitter_test_cp params;
Wolfgang Betz 132:51056160fa4a 1102 uint8_t status;
Wolfgang Betz 132:51056160fa4a 1103
Wolfgang Betz 132:51056160fa4a 1104 params.frequency = frequency;
Wolfgang Betz 132:51056160fa4a 1105 params.length = length;
Wolfgang Betz 132:51056160fa4a 1106 params.payload = payload;
Wolfgang Betz 132:51056160fa4a 1107
Wolfgang Betz 132:51056160fa4a 1108 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 1109 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 1110 rq.ocf = OCF_LE_TRANSMITTER_TEST;
Wolfgang Betz 132:51056160fa4a 1111 rq.cparam = &params;
Wolfgang Betz 132:51056160fa4a 1112 rq.clen = LE_TRANSMITTER_TEST_CP_SIZE;
Wolfgang Betz 132:51056160fa4a 1113 rq.rparam = &status;
Wolfgang Betz 132:51056160fa4a 1114 rq.rlen = 1;
Wolfgang Betz 132:51056160fa4a 1115
Wolfgang Betz 132:51056160fa4a 1116 if (hci_send_req(&rq, FALSE) < 0){
Wolfgang Betz 132:51056160fa4a 1117 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 1118 }
Wolfgang Betz 132:51056160fa4a 1119
Wolfgang Betz 132:51056160fa4a 1120 return status;
Wolfgang Betz 132:51056160fa4a 1121 }
Wolfgang Betz 132:51056160fa4a 1122
Wolfgang Betz 132:51056160fa4a 1123 int hci_le_test_end(uint16_t *num_pkts)
Wolfgang Betz 132:51056160fa4a 1124 {
Wolfgang Betz 132:51056160fa4a 1125 struct hci_request rq;
Wolfgang Betz 132:51056160fa4a 1126 le_test_end_rp resp;
Wolfgang Betz 132:51056160fa4a 1127
Wolfgang Betz 132:51056160fa4a 1128 Osal_MemSet(&resp, 0, sizeof(resp));
Wolfgang Betz 132:51056160fa4a 1129
Wolfgang Betz 132:51056160fa4a 1130 Osal_MemSet(&rq, 0, sizeof(rq));
Wolfgang Betz 132:51056160fa4a 1131 rq.ogf = OGF_LE_CTL;
Wolfgang Betz 132:51056160fa4a 1132 rq.ocf = OCF_LE_TEST_END;
Wolfgang Betz 132:51056160fa4a 1133 rq.rparam = &resp;
Wolfgang Betz 132:51056160fa4a 1134 rq.rlen = LE_TEST_END_RP_SIZE;
Wolfgang Betz 132:51056160fa4a 1135
Wolfgang Betz 132:51056160fa4a 1136 if (hci_send_req(&rq, FALSE) < 0){
Wolfgang Betz 132:51056160fa4a 1137 return BLE_STATUS_TIMEOUT;
Wolfgang Betz 132:51056160fa4a 1138 }
Wolfgang Betz 132:51056160fa4a 1139
Wolfgang Betz 132:51056160fa4a 1140 if (resp.status) {
Wolfgang Betz 132:51056160fa4a 1141 return resp.status;
Wolfgang Betz 132:51056160fa4a 1142 }
Wolfgang Betz 132:51056160fa4a 1143
Wolfgang Betz 132:51056160fa4a 1144 *num_pkts = resp.num_pkts;
Wolfgang Betz 132:51056160fa4a 1145
Wolfgang Betz 132:51056160fa4a 1146 return 0;
Wolfgang Betz 132:51056160fa4a 1147 }
Wolfgang Betz 132:51056160fa4a 1148