xref: /btstack/example/ublox_spp_le_counter.c (revision 6c9a65edd99e54004436f580ec4ce27b0a3c86de)
1733ac1e8SMilanka Ringwald /*
2733ac1e8SMilanka Ringwald  * Copyright (C) 2014 BlueKitchen GmbH
3733ac1e8SMilanka Ringwald  *
4733ac1e8SMilanka Ringwald  * Redistribution and use in source and binary forms, with or without
5733ac1e8SMilanka Ringwald  * modification, are permitted provided that the following conditions
6733ac1e8SMilanka Ringwald  * are met:
7733ac1e8SMilanka Ringwald  *
8733ac1e8SMilanka Ringwald  * 1. Redistributions of source code must retain the above copyright
9733ac1e8SMilanka Ringwald  *    notice, this list of conditions and the following disclaimer.
10733ac1e8SMilanka Ringwald  * 2. Redistributions in binary form must reproduce the above copyright
11733ac1e8SMilanka Ringwald  *    notice, this list of conditions and the following disclaimer in the
12733ac1e8SMilanka Ringwald  *    documentation and/or other materials provided with the distribution.
13733ac1e8SMilanka Ringwald  * 3. Neither the name of the copyright holders nor the names of
14733ac1e8SMilanka Ringwald  *    contributors may be used to endorse or promote products derived
15733ac1e8SMilanka Ringwald  *    from this software without specific prior written permission.
16733ac1e8SMilanka Ringwald  * 4. Any redistribution, use, or modification is done solely for
17733ac1e8SMilanka Ringwald  *    personal benefit and not for any commercial purpose or for
18733ac1e8SMilanka Ringwald  *    monetary gain.
19733ac1e8SMilanka Ringwald  *
20733ac1e8SMilanka Ringwald  * THIS SOFTWARE IS PROVIDED BY BLUEKITCHEN GMBH AND CONTRIBUTORS
21733ac1e8SMilanka Ringwald  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
22733ac1e8SMilanka Ringwald  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
23733ac1e8SMilanka Ringwald  * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL MATTHIAS
24733ac1e8SMilanka Ringwald  * RINGWALD OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
25733ac1e8SMilanka Ringwald  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
26733ac1e8SMilanka Ringwald  * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS
27733ac1e8SMilanka Ringwald  * OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
28733ac1e8SMilanka Ringwald  * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
29733ac1e8SMilanka Ringwald  * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF
30733ac1e8SMilanka Ringwald  * THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31733ac1e8SMilanka Ringwald  * SUCH DAMAGE.
32733ac1e8SMilanka Ringwald  *
33733ac1e8SMilanka Ringwald  * Please inquire about commercial licensing options at
34733ac1e8SMilanka Ringwald  * [email protected]
35733ac1e8SMilanka Ringwald  *
36733ac1e8SMilanka Ringwald  */
37733ac1e8SMilanka Ringwald 
38733ac1e8SMilanka Ringwald #define __BTSTACK_FILE__ "ublox_le_counter.c"
39733ac1e8SMilanka Ringwald 
40733ac1e8SMilanka Ringwald // *****************************************************************************
41733ac1e8SMilanka Ringwald /* EXAMPLE_START(ublox_le_counter): LE Peripheral - Nordic SPP-like profile
42733ac1e8SMilanka Ringwald  *
43733ac1e8SMilanka Ringwald  */
44733ac1e8SMilanka Ringwald  // *****************************************************************************
45733ac1e8SMilanka Ringwald 
46733ac1e8SMilanka Ringwald #include <stdint.h>
47733ac1e8SMilanka Ringwald #include <stdio.h>
48733ac1e8SMilanka Ringwald #include <stdlib.h>
49733ac1e8SMilanka Ringwald #include <string.h>
50733ac1e8SMilanka Ringwald 
51733ac1e8SMilanka Ringwald #include "ublox_spp_le_counter.h"
52733ac1e8SMilanka Ringwald #include "btstack.h"
53*6c9a65edSMilanka Ringwald #include "ble/gatt-service/device_information_service_server.h"
54733ac1e8SMilanka Ringwald #include "ble/gatt-service/ublox_spp_service_server.h"
55733ac1e8SMilanka Ringwald 
56733ac1e8SMilanka Ringwald #define HEARTBEAT_PERIOD_MS 1000
57733ac1e8SMilanka Ringwald 
58733ac1e8SMilanka Ringwald /* @section Main Application Setup
59733ac1e8SMilanka Ringwald  *
60733ac1e8SMilanka Ringwald  * @text Listing MainConfiguration shows main application code.
61733ac1e8SMilanka Ringwald  * It initializes L2CAP, the Security Manager and configures the ATT Server with the pre-compiled
62733ac1e8SMilanka Ringwald  * ATT Database generated from $ublox_le_counter.gatt$.
63733ac1e8SMilanka Ringwald  * Additionally, it enables the Battery Service Server with the current battery level.
64733ac1e8SMilanka Ringwald  * Finally, it configures the advertisements
65733ac1e8SMilanka Ringwald  * and the heartbeat handler and boots the Bluetooth stack.
66733ac1e8SMilanka Ringwald  * In this example, the Advertisement contains the Flags attribute and the device name.
67733ac1e8SMilanka Ringwald  * The flag 0x06 indicates: LE General Discoverable Mode and BR/EDR not supported.
68733ac1e8SMilanka Ringwald  */
69733ac1e8SMilanka Ringwald 
70733ac1e8SMilanka Ringwald /* LISTING_START(MainConfiguration): Init L2CAP SM ATT Server and start heartbeat timer */
71733ac1e8SMilanka Ringwald static btstack_timer_source_t heartbeat;
72733ac1e8SMilanka Ringwald static hci_con_handle_t con_handle = HCI_CON_HANDLE_INVALID;
73733ac1e8SMilanka Ringwald static btstack_context_callback_registration_t send_request;
74733ac1e8SMilanka Ringwald static btstack_packet_callback_registration_t  hci_event_callback_registration;
75733ac1e8SMilanka Ringwald 
76733ac1e8SMilanka Ringwald const uint8_t adv_data[] = {
77733ac1e8SMilanka Ringwald     // Flags general discoverable, BR/EDR not supported
78733ac1e8SMilanka Ringwald     2, BLUETOOTH_DATA_TYPE_FLAGS, 0x06,
79733ac1e8SMilanka Ringwald     // Name
8040a35d0aSMilanka Ringwald     5, BLUETOOTH_DATA_TYPE_COMPLETE_LOCAL_NAME, '6', '-','5', '6',
81733ac1e8SMilanka Ringwald     // UUID ...
82733ac1e8SMilanka Ringwald     17, BLUETOOTH_DATA_TYPE_COMPLETE_LIST_OF_128_BIT_SERVICE_CLASS_UUIDS, 0x1, 0xd7, 0xe9, 0x1, 0x4f, 0xf3, 0x44, 0xe7, 0x83, 0x8f, 0xe2, 0x26, 0xb9, 0xe1, 0x56, 0x24,
83733ac1e8SMilanka Ringwald };
84733ac1e8SMilanka Ringwald 
85733ac1e8SMilanka Ringwald const uint8_t adv_data_len = sizeof(adv_data);
86733ac1e8SMilanka Ringwald 
87733ac1e8SMilanka Ringwald /* LISTING_END */
88733ac1e8SMilanka Ringwald 
89733ac1e8SMilanka Ringwald /*
90733ac1e8SMilanka Ringwald  * @section Heartbeat Handler
91733ac1e8SMilanka Ringwald  *
92733ac1e8SMilanka Ringwald  * @text The heartbeat handler updates the value of the single Characteristic provided in this example,
93733ac1e8SMilanka Ringwald  * and request a ATT_EVENT_CAN_SEND_NOW to send a notification if enabled see Listing heartbeat.
94733ac1e8SMilanka Ringwald  */
95733ac1e8SMilanka Ringwald 
96733ac1e8SMilanka Ringwald  /* LISTING_START(heartbeat): Hearbeat Handler */
97733ac1e8SMilanka Ringwald static int  counter = 0;
98733ac1e8SMilanka Ringwald static char counter_string[30];
99733ac1e8SMilanka Ringwald static int  counter_string_len;
100733ac1e8SMilanka Ringwald 
101733ac1e8SMilanka Ringwald static void beat(void){
102733ac1e8SMilanka Ringwald     counter++;
103733ac1e8SMilanka Ringwald     counter_string_len = sprintf(counter_string, "BTstack counter %03u", counter);
104733ac1e8SMilanka Ringwald }
105733ac1e8SMilanka Ringwald 
106733ac1e8SMilanka Ringwald static void ublox_can_send(void * context){
107733ac1e8SMilanka Ringwald     UNUSED(context);
108733ac1e8SMilanka Ringwald     beat();
109733ac1e8SMilanka Ringwald     printf("SEND: %s\n", counter_string);
110733ac1e8SMilanka Ringwald     ublox_spp_service_server_send(con_handle, (uint8_t*) counter_string, counter_string_len);
111733ac1e8SMilanka Ringwald }
112733ac1e8SMilanka Ringwald 
113733ac1e8SMilanka Ringwald static void heartbeat_handler(struct btstack_timer_source *ts){
114733ac1e8SMilanka Ringwald     if (con_handle != HCI_CON_HANDLE_INVALID) {
115733ac1e8SMilanka Ringwald         send_request.callback = &ublox_can_send;
116733ac1e8SMilanka Ringwald         ublox_spp_service_server_request_can_send_now(&send_request, con_handle);
117733ac1e8SMilanka Ringwald     }
118733ac1e8SMilanka Ringwald     btstack_run_loop_set_timer(ts, HEARTBEAT_PERIOD_MS);
119733ac1e8SMilanka Ringwald     btstack_run_loop_add_timer(ts);
120733ac1e8SMilanka Ringwald }
121733ac1e8SMilanka Ringwald /* LISTING_END */
122733ac1e8SMilanka Ringwald 
123733ac1e8SMilanka Ringwald static void ublox_data(hci_con_handle_t handle, const uint8_t * data, uint16_t size){
124733ac1e8SMilanka Ringwald     if (size == 0 && con_handle == HCI_CON_HANDLE_INVALID ){
125733ac1e8SMilanka Ringwald         con_handle = handle;
126733ac1e8SMilanka Ringwald         printf("Connected with handle 0x%04x\n", con_handle);
127733ac1e8SMilanka Ringwald     } else {
128733ac1e8SMilanka Ringwald         printf("RECV: ");
129733ac1e8SMilanka Ringwald         printf_hexdump(data, size);
130733ac1e8SMilanka Ringwald     }
131733ac1e8SMilanka Ringwald }
132733ac1e8SMilanka Ringwald 
133733ac1e8SMilanka Ringwald static void ublox_flow_control(hci_con_handle_t handle, uint16_t credits){
134733ac1e8SMilanka Ringwald     if (con_handle == HCI_CON_HANDLE_INVALID ){
135733ac1e8SMilanka Ringwald         con_handle = handle;
136733ac1e8SMilanka Ringwald         printf("Connected with handle 0x%04x\n", handle);
137733ac1e8SMilanka Ringwald     }
138733ac1e8SMilanka Ringwald     printf("credits %d\n", credits);
139733ac1e8SMilanka Ringwald }
140733ac1e8SMilanka Ringwald /*
141733ac1e8SMilanka Ringwald  * @section Packet Handler
142733ac1e8SMilanka Ringwald  *
143733ac1e8SMilanka Ringwald  * @text The packet handler is used to:
144733ac1e8SMilanka Ringwald  *        - stop the counter after a disconnect
145733ac1e8SMilanka Ringwald  */
146733ac1e8SMilanka Ringwald 
147733ac1e8SMilanka Ringwald /* LISTING_START(packetHandler): Packet Handler */
148733ac1e8SMilanka Ringwald static void packet_handler (uint8_t packet_type, uint16_t channel, uint8_t *packet, uint16_t size){
149733ac1e8SMilanka Ringwald     UNUSED(channel);
150733ac1e8SMilanka Ringwald     UNUSED(size);
151733ac1e8SMilanka Ringwald 
152733ac1e8SMilanka Ringwald     switch (packet_type) {
153733ac1e8SMilanka Ringwald         case HCI_EVENT_PACKET:
154733ac1e8SMilanka Ringwald             switch (hci_event_packet_get_type(packet)) {
155733ac1e8SMilanka Ringwald                 case HCI_EVENT_DISCONNECTION_COMPLETE:
156733ac1e8SMilanka Ringwald                     con_handle = HCI_CON_HANDLE_INVALID;
157733ac1e8SMilanka Ringwald                     break;
158733ac1e8SMilanka Ringwald                 default:
159733ac1e8SMilanka Ringwald                     break;
160733ac1e8SMilanka Ringwald             }
161733ac1e8SMilanka Ringwald             break;
162733ac1e8SMilanka Ringwald     }
163733ac1e8SMilanka Ringwald }
164733ac1e8SMilanka Ringwald /* LISTING_END */
165733ac1e8SMilanka Ringwald 
166733ac1e8SMilanka Ringwald 
167733ac1e8SMilanka Ringwald int btstack_main(void);
168733ac1e8SMilanka Ringwald int btstack_main(void)
169733ac1e8SMilanka Ringwald {
170733ac1e8SMilanka Ringwald     // register for HCI events
171733ac1e8SMilanka Ringwald     hci_event_callback_registration.callback = &packet_handler;
172733ac1e8SMilanka Ringwald     hci_add_event_handler(&hci_event_callback_registration);
173733ac1e8SMilanka Ringwald 
174733ac1e8SMilanka Ringwald     l2cap_init();
175733ac1e8SMilanka Ringwald 
176733ac1e8SMilanka Ringwald     // setup LE device DB
177733ac1e8SMilanka Ringwald     le_device_db_init();
178733ac1e8SMilanka Ringwald 
179733ac1e8SMilanka Ringwald     // setup SM: Display only
180733ac1e8SMilanka Ringwald     sm_init();
181733ac1e8SMilanka Ringwald 
182733ac1e8SMilanka Ringwald     // setup ATT server
183733ac1e8SMilanka Ringwald     att_server_init(profile_data, NULL, NULL);
18416e3e4afSMilanka Ringwald     // setup device information service
18516e3e4afSMilanka Ringwald     device_information_service_server_init();
186733ac1e8SMilanka Ringwald     // setup Nordic SPP service
187733ac1e8SMilanka Ringwald     ublox_spp_service_server_init(&ublox_data, &ublox_flow_control);
188733ac1e8SMilanka Ringwald 
189733ac1e8SMilanka Ringwald     // setup advertisements
190733ac1e8SMilanka Ringwald     uint16_t adv_int_min = 0x0030;
191733ac1e8SMilanka Ringwald     uint16_t adv_int_max = 0x0030;
192733ac1e8SMilanka Ringwald     uint8_t adv_type = 0;
193733ac1e8SMilanka Ringwald     bd_addr_t null_addr;
194733ac1e8SMilanka Ringwald     memset(null_addr, 0, 6);
195733ac1e8SMilanka Ringwald     gap_advertisements_set_params(adv_int_min, adv_int_max, adv_type, 0, null_addr, 0x07, 0x00);
196733ac1e8SMilanka Ringwald     gap_advertisements_set_data(adv_data_len, (uint8_t*) adv_data);
197733ac1e8SMilanka Ringwald     gap_advertisements_enable(1);
198733ac1e8SMilanka Ringwald 
199733ac1e8SMilanka Ringwald     // set one-shot timer
200733ac1e8SMilanka Ringwald     heartbeat.process = &heartbeat_handler;
201733ac1e8SMilanka Ringwald     btstack_run_loop_set_timer(&heartbeat, HEARTBEAT_PERIOD_MS);
202733ac1e8SMilanka Ringwald     btstack_run_loop_add_timer(&heartbeat);
203733ac1e8SMilanka Ringwald 
204733ac1e8SMilanka Ringwald     // beat once
205733ac1e8SMilanka Ringwald     beat();
206733ac1e8SMilanka Ringwald 
207733ac1e8SMilanka Ringwald     // turn on!
208733ac1e8SMilanka Ringwald 	hci_power_control(HCI_POWER_ON);
209733ac1e8SMilanka Ringwald 
210733ac1e8SMilanka Ringwald     return 0;
211733ac1e8SMilanka Ringwald }
212733ac1e8SMilanka Ringwald /* EXAMPLE_END */
213