Bumped to 0.4.0. Added bt deps.

47 files changed, 21341 insertions, 0 deletions

diff --git a/deps/bt/.gitignore b/deps/bt/.gitignore
new file mode 100644
index 0000000..b25c15b
--- /dev/null
+++ b/deps/bt/.gitignore
@@ -0,0 +1 @@
+*~
diff --git a/deps/bt/README.md b/deps/bt/README.md
new file mode 100644
index 0000000..3c32f92
--- /dev/null
+++ b/deps/bt/README.md
@@ -0,0 +1,5 @@
+Bluetooth API for Erlang
+========================
+
+Currently mac os x only.
+
diff --git a/deps/bt/c_src/.gitignore b/deps/bt/c_src/.gitignore
new file mode 100644
index 0000000..6142305
--- /dev/null
+++ b/deps/bt/c_src/.gitignore
@@ -0,0 +1,2 @@
+*.o
+*.d
diff --git a/deps/bt/c_src/bt_drv.h b/deps/bt/c_src/bt_drv.h
new file mode 100644
index 0000000..623f77e
--- /dev/null
+++ b/deps/bt/c_src/bt_drv.h
@@ -0,0 +1,96 @@
+#ifndef __BT_DRV_H__
+#define __BT_DRV_H__
+
+#include <stdint.h>
+
+#include "bt_sub.h"
+
+#define CMD_PING              1
+#define CMD_RECENT_DEVICES    2
+#define CMD_PAIRED_DEVICES    3
+#define CMD_FAVORITE_DEVICES  4
+#define CMD_INQUIRY_START     5
+#define CMD_INQUIRY_STOP      6
+#define CMD_REMOTE_NAME       7
+#define CMD_CONNECT           8
+#define CMD_DISCONNECT        9
+#define CMD_DEVICE_INFO      10
+#define CMD_SERVICE_INFO     11
+#define CMD_SERVICE_QUERY    12
+#define CMD_SERVICE_ADD      13
+#define CMD_SERVICE_DEL      14
+#define CMD_SERVICE_RFCOMM   15
+#define CMD_LOCAL_INFO       16
+#define CMD_DEBUG            17
+
+/* RCCOMM Channels */
+#define CMD_RFCOMM_OPEN      20
+#define CMD_RFCOMM_CLOSE     21
+#define CMD_RFCOMM_LISTEN    22
+#define CMD_RFCOMM_SEND      23
+#define CMD_RFCOMM_ACCEPT    24
+#define CMD_RFCOMM_MTU       25
+#define CMD_RFCOMM_ADDRESS   26
+#define CMD_RFCOMM_CHANNEL   27
+
+/* L2CAP */
+#define CMD_L2CAP_OPEN        30
+#define CMD_L2CAP_CLOSE       31
+#define CMD_L2CAP_LISTEN      32
+#define CMD_L2CAP_SEND        33
+#define CMD_L2CAP_ACCEPT      34
+#define CMD_L2CAP_MTU         35
+#define CMD_L2CAP_ADDRESS     36
+#define CMD_L2CAP_PSM         37
+
+/* device info codes */
+#define NFO_DEVICE_NAME             1  /* string */
+#define NFO_DEVICE_CLASS            2  /* uint32 */
+#define NFO_DEVICE_CLOCK            3  /* uint16 */
+#define NFO_DEVICE_INQUIRY          4  /* date */
+#define NFO_DEVICE_ACCESS           5  /* date */
+#define NFO_DEVICE_UPDATE           6  /* date */
+#define NFO_DEVICE_IS_FAVORITE      7  /* Boolean */
+#define NFO_DEVICE_IS_PAIRED        8  /* Boolean */
+#define NFO_DEVICE_IS_CONNECTED     9  /* Boolean */
+
+/* local info codes */
+#define NFO_LOCAL_NAME              1 /* string */
+#define NFO_LOCAL_CLASS             2  /* uint32 */
+#define NFO_LOCAL_ADDRESS           3 /* addr */
+#define NFO_LOCAL_DISCOVERABLE      4 /* Boolean */
+#define NFO_LOCAL_POWER_STATE       5 /* on | off */
+/* add more */
+
+#define REPLY_OK            1
+#define REPLY_ERROR         2
+#define REPLY_EVENT         3
+
+/* extension data types */
+#define ADDR           100  /* bluetooth address 6 bytes */
+#define DATE           101  /* uint32 seconds since 1970 unix-time */
+
+typedef struct _bt_ctx_t
+{
+    size_t  pbuf_len;        // number of bytes in pbuf
+    uint8_t pbuf[4];         // packet length bytes
+    const uint8_t* ptr;       // data ptr
+    size_t len;             // length of data
+    size_t remain;          // remaining bytes to read
+    uint8_t* packet;          // the data packet being built
+    subscription_list_t list;
+    void* drv_data;            // Extra, per-driver specific data.
+} bt_ctx_t;
+
+#define LISTEN_QUEUE_LENGTH 8  /* max connections can only be 7 ? */
+
+typedef struct {
+    bt_ctx_t* ctx;  // access to subscription list
+    int qh;
+    int qt;
+    void* qelem[LISTEN_QUEUE_LENGTH];
+    subscription_list_t wait;
+} listen_queue_t;
+
+#endif
+
diff --git a/deps/bt/c_src/bt_linux_drv.c b/deps/bt/c_src/bt_linux_drv.c
new file mode 100644
index 0000000..9dc54b9
--- /dev/null
+++ b/deps/bt/c_src/bt_linux_drv.c
@@ -0,0 +1,1088 @@
+//
+// Work in progress (linux) bluetooth driver
+//
+
+#include <sys/types.h>
+#include <sys/wait.h>
+#include <signal.h>
+#include <stdlib.h>
+#include <stddef.h>
+#include <unistd.h>
+#include <string.h>
+#include <memory.h>
+#include <poll.h>
+#include <errno.h>
+#include <fcntl.h>
+
+#include <bluetooth/bluetooth.h>
+#include <bluetooth/l2cap.h>
+#include <bluetooth/rfcomm.h>
+#include <bluetooth/hci.h>
+#include <bluetooth/hci_lib.h>
+
+#include "dthread/include/dlog.h"
+#include "dthread/include/ddata.h"
+#include "bt_drv.h"
+#include "bt_poll.h"
+
+#define RFCOMM_CHANNEL_ID_IS_VALID(x) (((x) >= 1) && ((x) <= 30))
+#define PSM_IS_VALID(x) (((x) >= 0) && ((x) <= 0xffff))
+
+#define PTR2INT(x) ((int)((long)(x)))
+#define INT2PTR(x) ((void*)((long)(x)))
+
+#define alloc_type(type) calloc(1, sizeof(type))
+
+typedef struct _drv_data_t {
+    int dev_id;
+    int mgmt_sock;
+    int dev_sock;
+    int inquiry_pid;
+    int inquiry_fd;
+} drv_data_t;
+
+int set_nonblock(int fd)
+{
+   int flags;
+#if defined(O_NONBLOCK)
+    if (-1 == (flags = fcntl(fd, F_GETFL, 0)))
+        flags = 0;
+    return fcntl(fd, F_SETFL, flags | O_NONBLOCK);
+#else
+    flags = 1;
+    return ioctl(fd, FIOBIO, &flags);
+#endif
+}
+
+
+#define ERR_SHORT 1
+#define ERR_LONG  2
+
+
+
+static int mgmt_open(void)
+{
+	struct sockaddr_hci addr;
+	int sk;
+
+	sk = socket(AF_BLUETOOTH, SOCK_RAW, BTPROTO_HCI);
+	if (sk < 0) {
+		fprintf(stderr, "socket: %s\n", strerror(errno));
+		return sk;
+	}
+
+	memset(&addr, 0, sizeof(addr));
+	addr.hci_family = AF_BLUETOOTH;
+	addr.hci_dev = HCI_DEV_NONE;
+	addr.hci_channel = HCI_CHANNEL_CONTROL;
+
+	if (bind(sk, (struct sockaddr *) &addr, sizeof(addr)) < 0) {
+	    fprintf(stderr, "bind: %s\n", strerror(errno));
+	    close(sk);
+	    return -1;
+	}
+
+	return sk;
+}
+
+
+static inline int get_address(ddata_t* data, bdaddr_t* val)
+{
+    if (ddata_r_avail(data) >= sizeof(bdaddr_t)) {
+	// For some reason, the address is reversed when it
+	// hits bt_linux_drv.
+	val->b[0] = *(data->rd+5);
+	val->b[1] = *(data->rd+4);
+	val->b[2] = *(data->rd+3);
+	val->b[3] = *(data->rd+2);
+	val->b[4] = *(data->rd+1);
+	val->b[5] = *(data->rd+0);
+
+	// Was: memcpy(val, data->rd, sizeof(bdaddr_t));
+	data->rd += sizeof(bdaddr_t);
+	return 1;
+    }
+    return 0;
+}
+
+static inline void ddata_put_addr(ddata_t* data, bdaddr_t* addr)
+{
+    uint8_t* ptr = ddata_alloc(data, sizeof(bdaddr_t)+1);
+    *ptr++ = ADDR;
+    *ptr++ = addr->b[5];
+    *ptr++ = addr->b[4];
+    *ptr++ = addr->b[3];
+    *ptr++ = addr->b[2];
+    *ptr++ = addr->b[1];
+    *ptr++ = addr->b[0];
+}
+
+
+static void bt_local_info(drv_data_t* lctx, ddata_t* data_in, ddata_t* data_out)
+{
+    uint8_t op_code;
+
+    ddata_put_tag(data_out, LIST);
+
+    while(ddata_get_uint8(data_in, &op_code)) {
+	switch(op_code) {
+	case NFO_LOCAL_NAME: {
+	    struct hci_dev_info di;
+
+	    DEBUGF("local_info: local name");
+
+	    hci_devinfo(lctx->dev_id, &di);
+
+	    ddata_put_string(data_out, di.name);
+	    break;
+	}
+
+	case NFO_LOCAL_CLASS: {
+	    uint8_t cls_str[4];	    
+	    uint32_t cls;
+
+	    memset(cls_str, 0, sizeof(cls_str));
+	    // Send in the lowest three bytes of the uint32 to 
+	    // retrieve the three byte class
+	    if (hci_read_class_of_dev(lctx->dev_sock, cls_str+1, 0) == -1) {
+		DEBUGF("hci_read_class_of_dev() failed: %s", strerror(errno));
+		break;
+	    }
+	    
+	    cls = *((int*)cls_str);
+
+	    DEBUGF("local_info: local class: %X", cls);
+	    ddata_put_uint32(data_out, cls);
+	    break;
+	}
+
+	case NFO_LOCAL_ADDRESS: {
+	    struct hci_dev_info di;
+	    DEBUGF("local_info: local address");
+	    hci_devinfo(lctx->dev_id, &di);
+	    ddata_put_addr(data_out, &(di.bdaddr));
+	    break;
+	}
+	    
+	case NFO_LOCAL_DISCOVERABLE: {
+	    // Boolean value;
+	    // if (IOBluetoothLocalDeviceGetDiscoverable(&value) == kIOReturnSuccess)
+	    DEBUGF("local_info: discoverable");
+	    ddata_put_boolean(data_out, 1);
+	    break;
+	}
+
+	case NFO_LOCAL_POWER_STATE: {
+	    /* BluetoothHCIPowerState powerState = */
+	    /* 	[[IOBluetoothHostController defaultController] powerState]; */
+	    /* if (powerState == kBluetoothHCIPowerStateON) */
+	    /* 	ddata_put_atom(data_out, "on"); */
+	    /* else if (powerState == kBluetoothHCIPowerStateOFF) */
+	    /* 	ddata_put_atom(data_out, "off"); */
+	    /* else if (powerState == kBluetoothHCIPowerStateUnintialized) */
+	    /* 	ddata_put_atom(data_out, "unintialized"); */
+	    /* else  */
+	    DEBUGF("local_info: power_state");
+	    ddata_put_atom(data_out, "on");
+
+	    break;
+	}
+	default:
+	    break;
+	}
+    }
+    ddata_put_tag(data_out, LIST_END);
+}
+
+
+static void launch_inquiry_proc(drv_data_t *lctx, uint32_t max_seconds) {
+    inquiry_info *ii = NULL;
+    int32_t max_rsp;
+    int32_t num_rsp;
+    int dev_id, sock, len, flags;
+    int i;
+    int pfd[2];
+    int child_pid;
+
+    pipe(pfd);
+    if ((child_pid = fork()) > 0) {
+	close(pfd[1]);
+	lctx->inquiry_pid = child_pid;
+	lctx->inquiry_fd = pfd[0];
+	return ;
+    }
+
+    // We are child
+    close(pfd[0]);
+	
+    // Open a new socket to the adapter
+    // just so that we don't mess up something in the stack
+    // by accessing the same fd from two different processes.
+    dev_id = hci_get_route(NULL);
+    sock = hci_open_dev( dev_id );
+
+    if (dev_id < 0 || sock < 0) {
+	num_rsp = -1;
+	write(pfd[1], &num_rsp, sizeof(num_rsp));
+	close(pfd[1]);
+	close(sock);
+	exit(0);
+
+    }
+
+    len = (int32_t) ((float) max_seconds / 1.28); // 1.28 second per length unit
+    max_rsp = 255;
+    flags = IREQ_CACHE_FLUSH;
+
+    ii = (inquiry_info*)malloc(max_rsp * sizeof(inquiry_info));
+    
+    num_rsp = hci_inquiry(dev_id, len, max_rsp, NULL, &ii, flags);
+
+    if( num_rsp < 0 )  {
+	num_rsp = 0;
+	write(pfd[1], &num_rsp, sizeof(num_rsp));
+	close(pfd[1]);
+	free( ii );
+	close( sock );
+	exit(0);
+    }
+
+    bdaddr_t resp[num_rsp];
+
+    // Retrieve address and remote name
+    for (i = 0; i < num_rsp; i++) 
+	resp[i] = (ii+i)->bdaddr;
+
+    // Write number of responses that we have.
+    printf("Num_resp: %d\n", num_rsp);
+    write(pfd[1], &num_rsp, sizeof(num_rsp));
+    write(pfd[1], resp, sizeof(resp));
+
+    close(pfd[1]);
+    free( ii );
+    close( sock );
+    exit(0);
+}
+
+
+
+/* type: 1=short-atom  2=string-long  3=both (encapsule in LIST ot TUPLE) */
+static void ddata_put_io_error(ddata_t* data, int errnum, int type)
+{
+    if (errnum == 0) {
+	if (type&1) ddata_put_atom(data, "Success");
+	if (type&2) ddata_put_string(data, "OK");
+    }
+    else {
+	if (type&1) ddata_put_atom(data, "Error"); // fixme
+	if (type&2) ddata_put_string(data, strerror(errnum));	
+    }
+}
+
+
+static void cleanup(subscription_t* s)
+{
+    DEBUGF("cleanup: %s", format_subscription(s));
+    drv_data_t* lctx = (drv_data_t*) s->handle;
+
+    switch(s->type) {
+    case INQUIRY: {
+	bt_poll_del(lctx->inquiry_fd);
+	close(lctx->inquiry_fd);
+
+	kill(lctx->inquiry_pid, SIGHUP);
+	lctx->inquiry_pid = -1;
+	lctx->inquiry_fd = -1;
+	wait(0);
+	break;
+    }
+
+    case REMOTE_NAME: break;
+    case CONNECT: break;
+    case SDP_QUERY: break;
+    case SDP: break;
+    case RFCOMM: {
+	bt_poll_del(PTR2INT(s->handle));
+	close(PTR2INT(s->handle));
+	break;
+    }
+    case RFCOMM_LISTEN: {
+	bt_poll_del(PTR2INT(s->handle));
+	close(PTR2INT(s->handle));
+	break;
+    }
+    case L2CAP: break;
+    case L2CAP_LISTEN: break;
+    default:  // warn?
+	break;
+    }
+}
+
+// setup "standard" reply buf, with initial 32 but size 
+static void mesg_setup(ddata_t* data, uint8_t* buf, size_t size)
+{
+    ddata_init(data, buf, size, 0);
+    ddata_put_UINT32(data, 0);
+}
+
+/* Send OK reply */
+static void reply_ok(uint32_t cmdid)
+{
+    uint8_t buf[16];
+    ddata_t data;
+
+    mesg_setup(&data, buf, sizeof(buf));
+    ddata_put_tag(&data, REPLY_OK);
+    ddata_put_UINT32(&data, cmdid);
+    ddata_send(&data, 1);
+    ddata_final(&data);
+}
+
+/* Send ERROR reply */
+static void reply_error(uint32_t cmdid, int err)
+{
+    uint8_t buf[128];
+    ddata_t data;
+
+    mesg_setup(&data, buf, sizeof(buf));
+    ddata_put_tag(&data, REPLY_ERROR);
+    ddata_put_UINT32(&data, cmdid);
+    ddata_put_io_error(&data, err, ERR_SHORT);
+    ddata_send(&data, 1);
+    ddata_final(&data);
+}
+
+// simple event
+static void send_event(uint32_t sid, const char* evtname)
+{
+    uint8_t buf[64];
+    ddata_t data;
+
+    mesg_setup(&data, buf, sizeof(buf));
+    ddata_put_tag(&data, REPLY_EVENT);
+    ddata_put_UINT32(&data, sid);
+    ddata_put_atom(&data, evtname);
+    ddata_send(&data, 1);
+    ddata_final(&data);
+}
+
+
+// CALLBACK 
+static void rfcomm_running(struct pollfd* pfd, void* arg)
+{
+    subscription_t* s = arg;
+    uint8_t buf[1024];
+    uint8_t bt_data[800];
+    int32_t bt_data_len;
+    ddata_t data;
+
+
+    if (pfd->revents & POLLIN) {  // input ready
+	DEBUGF("rfcomm_running: %d has input", PTR2INT(s->handle));
+
+	bt_data_len = read(pfd->fd, bt_data, sizeof(bt_data));
+	
+	ddata_init(&data, buf, sizeof(buf), 0);
+	ddata_put_UINT32(&data, 0);
+	ddata_put_tag(&data, REPLY_EVENT);
+	ddata_put_UINT32(&data, s->id);
+	ddata_put_tag(&data, TUPLE);
+	ddata_put_atom(&data, "data");
+	ddata_put_binary(&data, bt_data, bt_data_len);
+	ddata_put_tag(&data, TUPLE_END);
+	ddata_send(&data, 1);
+	ddata_final(&data);
+    }
+
+    if (pfd->revents & POLLHUP) {  // close
+	DEBUGF("rfcomm_running: %d Hangup", PTR2INT(s->handle));
+ 	ddata_init(&data, buf, sizeof(buf), 0);
+	ddata_put_UINT32(&data, 0);
+	ddata_put_tag(&data, REPLY_EVENT);
+	ddata_put_UINT32(&data, s->id);
+	ddata_put_atom(&data, "closed");
+	ddata_send(&data, 1);
+	ddata_final(&data);
+
+	release_subscription(s);
+	bt_poll_del(pfd->fd);
+	shutdown(pfd->fd, 2);
+	close(pfd->fd);
+    }
+    if (pfd->revents & POLLOUT) {  // output ready
+	DEBUGF("rfcomm_running: %d may output", PTR2INT(s->handle));
+	// FIXME: Send additional pending data.
+    }
+}
+
+// CALLBACK 
+static void rfcomm_connected(struct pollfd* pfd, void* arg)
+{
+    subscription_t* s = arg;
+    (void) pfd;
+    DEBUGF("rfcomm_connected: %d", PTR2INT(s->handle));
+    reply_ok(s->cmdid);
+    // FIXME: check error
+    s->cmdid = 0;
+    bt_poll_set_cb(PTR2INT(s->handle),  rfcomm_running);
+    bt_poll_set_events(PTR2INT(s->handle), POLLIN);
+}
+
+
+
+// CALLBACK 
+static void rfcomm_accept(struct pollfd* pfd, void* arg)
+{
+    subscription_t *accept_s = (subscription_t*) arg;
+
+    // We have a pending client connection
+    struct sockaddr_rc rem_addr = { 0 };	
+    int client;
+    socklen_t alen = sizeof(rem_addr);
+    uint8_t buf[64];
+    ddata_t data;
+
+    client = accept(pfd->fd, (struct sockaddr *)&rem_addr, &alen);
+
+    /* send EVENT id {accept,Address,Channel} */
+	
+    bt_poll_add(client, POLLIN | POLLHUP, rfcomm_running, accept_s);
+    accept_s->handle = INT2PTR(client);
+
+    ddata_init(&data, buf, sizeof(buf), 0);
+    ddata_put_UINT32(&data, 0);
+    ddata_put_tag(&data, REPLY_EVENT);
+    ddata_put_UINT32(&data, accept_s->id);
+    ddata_put_tag(&data, TUPLE);
+    ddata_put_atom(&data, "accept");
+    ddata_put_addr(&data, &rem_addr.rc_bdaddr);
+    ddata_put_uint8(&data, PTR2INT(accept_s->handle));
+    ddata_put_tag(&data, TUPLE_END);
+    ddata_send(&data, 1);
+    ddata_final(&data);
+}
+
+
+// 
+static void hci_inquiry_result(struct pollfd* pfd, void* arg)
+{
+    subscription_t* s = arg;
+    uint8_t  out_buf[2048];
+    ddata_t data_out;
+
+    DEBUGF("hci_inquiry_result: %d", PTR2INT(s->handle));
+    int32_t count;
+
+
+    // Read count, which may be -1.
+    read(pfd->fd, &count, sizeof(count));
+
+    DEBUGF("hci_inquiry_res: %d addresses\n", count);
+
+    ddata_init(&data_out, out_buf, sizeof(out_buf), 0);
+
+    ddata_put_tag(&data_out, REPLY_OK);
+    ddata_put_UINT32(&data_out, s->cmdid);
+    ddata_put_tag(&data_out, LIST);
+
+    while(count-- > 0) {
+	bdaddr_t resp;
+	read(pfd->fd, &resp, sizeof(resp));
+	ddata_put_addr(&data_out, &resp);
+    }
+
+    ddata_put_tag(&data_out, LIST_END);
+
+    bt_poll_del(pfd->fd);
+    
+    close(pfd->fd);
+
+    // Wait for child process to die.
+    wait(0);
+
+    ddata_send(&data_out, 1);
+    ddata_final(&data_out);
+
+    s->cmdid = 0;
+
+    // only for Inquiry objects
+    release_subscription(s);
+}
+
+
+void bt_command(bt_ctx_t* ctx, const uint8_t* src, uint32_t src_len)
+{
+    uint8_t  op = 0;
+    uint32_t cmdid = 0;
+    int      bt_error = 0;
+    uint8_t  out_buf[2048];
+    ddata_t data_in;
+    ddata_t data_out;
+    drv_data_t* lctx = (drv_data_t*) ctx->drv_data;
+
+    // dump subscription list
+    if (dlog_debug_level == DLOG_DEBUG) {
+	subscription_link_t* p = ctx->list.first;
+	fprintf(stderr, "ctx.list = {");
+	while(p) {
+	    fprintf(stderr, " %s,", format_subscription(p->s));
+	    p = p->next;
+	}
+	fprintf(stderr, "}\r\n");
+    }
+
+    ddata_r_init(&data_in, (uint8_t*)src, src_len, 0);
+    mesg_setup(&data_out, out_buf, sizeof(out_buf));
+
+    if (!ddata_get_uint8(&data_in, &op))
+	goto badarg;
+    if (!ddata_get_uint32(&data_in, &cmdid))
+	goto badarg;
+
+    switch (op) {
+    case CMD_PING: {
+	DEBUGF("CMD_PING cmdid=%d", cmdid);
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	ddata_put_string(&data_out, "pong");
+	goto reply;
+    }
+    case CMD_DEBUG: {  // <<level>>
+	int level;
+	DEBUGF("CMD_DEBUG cmdid=%d", cmdid);
+	if (!ddata_get_int32(&data_in, &level))
+	    goto badarg;
+	dlog_set_debug(level);
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	goto reply;
+    }	
+
+
+    case CMD_RFCOMM_OPEN: { /* id:32 bt-address(6) channel-id:8 */
+	uint32_t sid;
+	bdaddr_t bt_addr;
+	struct sockaddr_rc addr;
+	int sock;
+	int r;
+	uint8_t channel_id;
+	subscription_t* s;
+	char addrstr[40];
+
+	DEBUGF("CMD_RFCOMM_OPEN cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if(!get_address(&data_in, &bt_addr))
+	    goto badarg;
+	if(!ddata_get_uint8(&data_in, &channel_id))
+	    goto badarg;
+	if (!RFCOMM_CHANNEL_ID_IS_VALID(channel_id))
+	    goto badarg;
+	if (ddata_r_avail(&data_in) != 0)
+	    goto badarg;
+
+	if ((sock = socket(AF_BLUETOOTH, SOCK_STREAM, BTPROTO_RFCOMM)) < 0)
+	    goto bt_error;
+
+	addr.rc_family = AF_BLUETOOTH;
+	addr.rc_channel = channel_id;
+	bacpy(&addr.rc_bdaddr, &bt_addr);
+	ba2str(&bt_addr, addrstr );
+	DEBUGF("Will connect to %s channel %d", addrstr, channel_id);
+	if (set_nonblock(sock) < 0) {
+	    bt_error = errno;
+	    close(sock);
+	    goto bt_error;
+	}
+	if ((r = connect(sock, (struct sockaddr*)&addr, sizeof(addr))) < 0) {
+	    if (errno != EINPROGRESS) {
+		bt_error = errno;
+		close(sock);
+		goto bt_error;
+	    }
+	}
+
+	if ((s = new_subscription(RFCOMM,sid,cmdid,0,cleanup)) == NULL) {
+	    close(sock);
+	    goto mem_error;
+	}
+	if (r < 0) // inprogress
+	    bt_poll_add(sock, POLLOUT, rfcomm_connected, s);
+	else
+	    bt_poll_add(sock, POLLIN, rfcomm_running, s);
+	s->handle = INT2PTR(sock);
+	insert_last(&ctx->list, s);
+	break;
+    }
+
+
+    case CMD_RFCOMM_LISTEN: { /* id:32,  channel:8 */
+	uint32_t sid = 0;
+	uint8_t channel = 0;
+	subscription_t* listen_sub = 0;
+//	listen_queue_t* lq = 0;
+	int listen_desc = 0;
+	struct sockaddr_rc loc_addr = { 0 };
+	int dev_id;
+	struct hci_dev_info dev_info;
+	char buf[32];
+
+	DEBUGF("CMD_RFCOMM_LISTEN cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+
+	if(!ddata_get_uint8(&data_in, &channel))
+	    goto badarg;	
+
+	// Fixme auto-allocated channel ID.
+	if ((channel == 0) || !RFCOMM_CHANNEL_ID_IS_VALID(channel))
+	    goto badarg;
+
+	if (ddata_r_avail(&data_in) != 0)
+	    goto badarg;
+
+
+	if ((listen_sub = new_subscription(RFCOMM_LISTEN,
+					   sid,
+					   cmdid,
+					   NULL,
+					   cleanup)) == NULL)
+	    goto mem_error;
+
+	dev_id = hci_get_route(NULL);
+	hci_devinfo(dev_id, &dev_info);
+	ba2str( &dev_info.bdaddr, buf );
+
+	DEBUGF("Listening on device %s\n", buf);
+
+	// allocate socket
+	listen_desc = socket(AF_BLUETOOTH, SOCK_STREAM, BTPROTO_RFCOMM);
+
+	// bind socket to port 1 of the first available 
+	// local bluetooth adapter
+	loc_addr.rc_family = AF_BLUETOOTH;
+	loc_addr.rc_bdaddr = *BDADDR_ANY;
+	loc_addr.rc_channel = (uint8_t) channel;
+
+	if (bind(listen_desc, 
+		 (struct sockaddr *) &loc_addr, 
+		 sizeof(loc_addr)) == -1) {
+	    DEBUGF("bind(%d) failed: %s", channel, strerror(errno));
+	    goto error;
+	}
+	
+	// put socket into listening mode
+	if (listen(listen_desc, 1) == -1) {
+	    DEBUGF("listen(%d) failed: %s", channel, strerror(errno));
+	    goto error;
+	}
+
+	listen_sub->handle = INT2PTR(listen_desc);
+	listen_sub->opaque = INT2PTR(channel);
+	insert_last(&ctx->list, listen_sub);
+
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	goto reply;
+    }
+
+
+    case CMD_RFCOMM_ACCEPT: { /* id:32 listen_id:32 */
+	uint32_t sid = 0;
+	uint32_t listen_id = 0;
+//	listen_queue_t* lq = 0;
+	subscription_t* listen = 0;
+	subscription_t* s = 0;
+
+	DEBUGF("CMD_RFCOMM_ACCEPT cmdid=%d", cmdid);
+
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+
+	if (!ddata_get_uint32(&data_in, &listen_id))
+	    goto badarg;
+
+	if (ddata_r_avail(&data_in) != 0)
+	    goto badarg;
+
+	if (find_subscription(&ctx->list,RFCOMM, sid) != NULL) {
+	    DEBUGF("subscription %d already exists", sid);
+	    goto badarg;
+	}
+
+	if ((listen = find_subscription(&ctx->list,
+					RFCOMM_LISTEN,listen_id))==NULL) {
+	    DEBUGF("listen subscription %d does not exists", listen_id);
+	    goto badarg;
+	}
+
+	if ((s = new_subscription(RFCOMM,sid,cmdid,NULL,cleanup)) == NULL)
+	    goto mem_error;
+
+	// s->accept = listen;  // mark that we are accepting
+
+	bt_poll_add(PTR2INT(listen->handle), POLLIN, rfcomm_accept, s); 
+	s->handle = listen->opaque;
+	insert_last(&ctx->list, s);
+
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	ddata_send(&data_out, 1);
+	goto done;
+    }
+
+    case CMD_RFCOMM_CLOSE: { /* arguments: id:32 */
+	uint32_t sid;
+	subscription_link_t* link;
+
+	DEBUGF("CMD_RFCOMM_CLOSE cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if (ddata_r_avail(&data_in) != 0)
+	    goto badarg;
+
+	if ((link = find_subscription_link(&ctx->list,RFCOMM,sid)) != NULL) {
+	    subscription_t* s = link->s;
+	    int sock;
+	    s->cmdid = cmdid;
+	    sock = PTR2INT(s->handle);
+	    if (sock >= 0) {
+		DEBUGF("RFCOMM_CLOSE: channel=%d", sock);
+		bt_poll_del(sock);
+		close(sock);
+		unlink_subscription(link);
+		goto done;
+	    }
+	    /* else if (s->accept != NULL) { */
+	    /* 	listen_queue_t* lq = (listen_queue_t*)((s->accept)->opaque); */
+	    /* 	remove_subscription(&lq->wait,RFCOMM,sid); */
+	    /* 	unlink_subscription(link); */
+	    /* 	goto ok; */
+	    /* } */
+	}
+	else if ((link = find_subscription_link(&ctx->list,RFCOMM_LISTEN,sid)) != NULL) {
+	    /* subscription_t* listen = link->s; */
+	    /* listen_queue_t* lq = (listen_queue_t*)listen->opaque; */
+	    /* subscription_link_t* link1; */
+	    /* /\* remove all waiters *\/ */
+	    /* while((link1=lq->wait.first) != NULL) { */
+	    /* 	send_event(link1->s->id, "closed"); */
+	    /* 	unlink_subscription(link1); */
+	    /* } */
+	    /* unlink_subscription(link); */
+	    goto ok;
+	}
+	goto error;
+    }
+
+
+    case CMD_RFCOMM_SEND: { /* id:32, data/rest */
+	uint32_t sid;
+	subscription_t* s;
+	int r;
+	int len;
+	int sock;
+
+	DEBUGF("CMD_RFCOMM_SEND cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if ((s = find_subscription(&ctx->list,RFCOMM,sid)) == NULL)
+	    goto badarg;
+	if ((sock = PTR2INT(s->handle)) < 0)
+	    goto badarg;
+	s->cmdid = cmdid;
+
+	if ((len = ddata_r_avail(&data_in)) > 0) {
+	    if (s->out == NULL)
+		s->out = ddata_new(data_in.rd, len);
+	    else
+		ddata_add(s->out, data_in.rd, len);
+	    r = write(sock, s->out->rd, ddata_r_avail(s->out));
+	    if (r != -1)
+		DEBUGF("CMD_RFCOMM_SEND wrote=%d", r);
+	    else
+		DEBUGF("CMD_RFCOMM_SEND failed: %s", strerror(errno));
+		
+	    if ((r >= 0) || ((r < 0) && (errno == EINPROGRESS))) {
+		if (r < 0) r = 0;
+		s->out->rd += r;
+		if (ddata_r_avail(s->out) > 0)
+		    bt_poll_set_events(PTR2INT(s->handle), POLLIN|POLLOUT);
+		else {
+		    ddata_reset(s->out);
+		    s->cmdid = 0;
+		    goto ok;
+		}
+	    }
+	    else {
+		s->cmdid = 0;
+		goto error;
+	    }
+	}
+	else {
+	    s->cmdid = 0;
+	    goto ok;
+	}
+	goto done;
+    }
+
+
+    case CMD_INQUIRY_START: { /* arguments: id:32 secs:32 */
+	uint32_t sid;
+	uint32_t secs;
+
+	subscription_t* s;
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+
+	if (!ddata_get_uint32(&data_in, &secs))
+	    goto badarg;
+	
+	DEBUGF("CMD_INQUIRY_START: %d", sid); 
+	if (lctx->inquiry_pid != -1) { 
+	    DEBUGF("CMD_INQUIRY_START: Already in progress"); 
+	    goto error; 
+	} 
+
+	// hci_inquiry() is very, very blocking. We need to run it in a separate  
+	// process in order to maintain asynchronicity. 
+	// Will set ctx->drv_data->inquriry_pid and inquiry_fd
+	launch_inquiry_proc(lctx, secs); 
+	DEBUGF("CMD_INQUIRY_START: process launched"); 
+
+	if ((s = new_subscription(INQUIRY,sid,0,lctx, cleanup)) == NULL)  
+	    goto mem_error; 
+
+	
+	bt_poll_add(lctx->inquiry_fd, POLLIN, hci_inquiry_result, ctx); 
+	insert_last(&ctx->list, s); 
+	DEBUGF("CMD_INQUIRY_START: Done");
+
+	goto ok;
+    }
+
+    case CMD_INQUIRY_STOP: { /* arguments: id:32 secs:32 */
+	uint32_t sid;
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+
+	// Will call cleanup, which will handle correct shutdown 
+	// of inquiry process.
+	remove_subscription(&ctx->list,INQUIRY,sid);
+
+	goto ok;
+    }
+
+    case CMD_RECENT_DEVICES: {  
+	DEBUGF("CMD_RECENT_DEVICES cmdid=%d: Not supported under linux", cmdid);
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	ddata_put_tag(&data_out, LIST);
+	ddata_put_tag(&data_out, LIST_END);
+	goto reply;
+    }	
+
+    case CMD_PAIRED_DEVICES: {  
+	DEBUGF("CMD_PAIRED_DEVICES cmdid=%d: Not supported under linux", cmdid);
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	ddata_put_tag(&data_out, LIST);
+	ddata_put_tag(&data_out, LIST_END);
+	goto reply;
+    }	
+
+    case CMD_FAVORITE_DEVICES: {  
+	DEBUGF("CMD_FAVORITE_DEVICES cmdid=%d: Not supported under linux", cmdid);
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	ddata_put_tag(&data_out, LIST);
+	ddata_put_tag(&data_out, LIST_END);
+	goto reply;
+    }	
+
+    case CMD_DEVICE_INFO: {  
+	bdaddr_t bt_addr;
+	DEBUGF("CMD_DEVICE_INFO cmdid=%d", cmdid);
+
+	if(!get_address(&data_in, &bt_addr))
+	    goto badarg;
+
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	ddata_put_tag(&data_out, LIST);
+	ddata_put_tag(&data_out, LIST_END);
+	
+	goto reply;
+    }	
+
+    case CMD_LOCAL_INFO: {  
+	DEBUGF("CMD_LOCAL_INFO cmdid=%d", cmdid);
+
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+
+	bt_local_info(lctx, &data_in, &data_out);
+	
+	goto reply;
+    }	
+
+    default:
+	DEBUGF("CMD_UNKNOWN = %d cmdid=%d", op, cmdid);
+	goto badarg;
+    }
+
+    goto done;
+
+ok:
+    if (cmdid == 0)
+	goto done;
+    ddata_put_tag(&data_out, REPLY_OK);
+    ddata_put_UINT32(&data_out, cmdid);
+    goto reply;
+
+mem_error:
+    if (cmdid == 0)
+	goto done;
+    bt_error = ENOMEM;
+    goto bt_error;
+
+badarg:
+    if (cmdid == 0)
+	goto done;
+    bt_error = EINVAL;
+    goto bt_error;
+
+error:
+    bt_error = errno;
+bt_error:
+/* reset, just in case something was inserted */
+    ddata_reset(&data_out);
+    ddata_put_UINT32(&data_out, 0);
+    ddata_put_tag(&data_out, REPLY_ERROR);
+    ddata_put_UINT32(&data_out, cmdid);
+    ddata_put_io_error(&data_out, bt_error, ERR_SHORT);
+reply:
+    ddata_send(&data_out, 1);
+done:
+    ddata_final(&data_out);
+}
+
+// CALLBACK 
+void read_callback(struct pollfd* pfd, void* data)
+{
+    bt_ctx_t* ctx = (bt_ctx_t*) data;
+    int fd = pfd->fd;
+    int n;
+
+    DEBUGF("read_callback: %d", pfd->fd);
+    if (pfd->revents & POLLHUP)  {
+	DEBUGF("hangup");
+	goto closed;
+    }
+
+    if (ctx->pbuf_len < sizeof(ctx->pbuf)) {
+	int r = sizeof(ctx->pbuf) - ctx->pbuf_len;
+	if ((n = read(fd, ctx->pbuf+ctx->pbuf_len, r)) < 0)
+	    goto error;
+	if (n == 0)
+	    goto closed;
+	ctx->pbuf_len += n;
+	DEBUGF("READ: %d pbuf_len=%d", n, ctx->pbuf_len);
+	if (ctx->pbuf_len == sizeof(ctx->pbuf)) {
+	    ctx->len = (ctx->pbuf[0]<<24) + (ctx->pbuf[1]<<16) +
+		(ctx->pbuf[2]<<8) + ctx->pbuf[3];
+	    DEBUGF("READ: %d packet len=%d", n, ctx->len);
+	    if (ctx->len > 0) {
+		ctx->remain = ctx->len;
+		ctx->packet = (uint8_t*) malloc(ctx->len);
+		ctx->ptr = ctx->packet;
+	    }
+	    else {
+		ctx->remain = 0;
+		ctx->pbuf_len = 0;
+	    }
+	}
+    }
+    else {
+	if ((n = read(fd, (void*)ctx->ptr, ctx->remain)) < 0)
+	    goto error;
+	if (n == 0)
+	    goto closed;
+	DEBUGF("READ: %d packet bytes", n);
+	ctx->remain -= n;
+	DEBUGF("PACKET: remain=%d", ctx->remain);
+	ctx->ptr += n;
+	if (ctx->remain == 0) {
+	    bt_command(ctx, ctx->packet, ctx->len);
+	    free(ctx->packet);
+	    ctx->packet = NULL;
+	    ctx->len = 0;
+	    ctx->pbuf_len = 0;
+	}
+    }
+    return;
+
+error:
+    DEBUGF("pipe read error",0);
+    exit(1);
+
+closed:
+    DEBUGF("eof clean-up",0);
+    exit(0);
+}
+
+static void  main_loop(bt_ctx_t* ctx)
+{
+    int dev_id = 0;
+    int sock = 0;
+    drv_data_t local_context;
+    
+    // FIXME: How the hell do we handle more than one BT adapter.
+    dev_id = hci_get_route(NULL);
+    sock = hci_open_dev(dev_id);
+    if (sock == -1) {
+	fprintf(stderr, "Failed to open BT device %d: %s\n", dev_id, strerror(errno));
+	exit(0);
+    }
+    
+    // Setup local context
+//    local_context.mgmt_sock = mgmt_open();
+    local_context.mgmt_sock = -1;
+    local_context.dev_id = dev_id;
+    local_context.dev_sock = sock;
+    local_context.inquiry_fd = -1;
+    local_context.inquiry_pid = -1;
+
+    ctx->drv_data = &local_context;
+    
+    while(1) {
+	int r = bt_poll(-1);
+	if (r < 0) {
+	    DEBUGF("poll error %s", strerror(errno));
+	}
+    }
+}
+
+int main(int argc, char** argv)
+{
+    bt_ctx_t bt_info;
+    (void) argc;
+    (void) argv;
+
+    dlog_init();
+    dlog_set_debug(DLOG_DEFAULT);
+    memset(&bt_info, 0, sizeof(bt_ctx_t));
+    
+    bt_poll_add(0, POLLIN | POLLERR | POLLHUP, read_callback, &bt_info);
+    main_loop(&bt_info);
+
+    dlog_finish();
+    DEBUGF("terminate",0);
+    exit(0);
+}
diff --git a/deps/bt/c_src/bt_macos_drv.c b/deps/bt/c_src/bt_macos_drv.c
new file mode 100644
index 0000000..81c9a3e
--- /dev/null
+++ b/deps/bt/c_src/bt_macos_drv.c
@@ -0,0 +1,3066 @@
+/*
+ * BT driver for Erlang
+ *
+ */
+#include <AvailabilityMacros.h>
+#include <sys/types.h>
+#include <string.h>
+#include <memory.h>
+#include <CoreFoundation/CoreFoundation.h>
+#include <IOBluetooth/IOBluetoothUtilities.h>
+#include <IOBluetooth/IOBluetoothUserLib.h>
+#include <IOBluetooth/objc/IOBluetoothDevice.h>
+#include <IOBluetooth/objc/IOBluetoothSDPServiceRecord.h>
+#include <IOBluetooth/objc/IOBluetoothDeviceInquiry.h>
+#include <IOBluetooth/objc/IOBluetoothRFCOMMChannel.h>
+#include <IOBluetooth/objc/IOBluetoothL2CAPChannel.h>
+#include <IOBluetooth/objc/IOBluetoothSDPDataElement.h>
+#include <IOBluetooth/objc/IOBluetoothSDPUUID.h>
+#include <IOBluetooth/objc/IOBluetoothHostController.h>
+
+#include "dthread/include/dlog.h"
+#include "dthread/include/ddata.h"
+#include "bt_drv.h"
+
+#define alloc_type(type) calloc(1, sizeof(type))
+
+//  Object structure
+// +----------+-------------------------------------------v
+// |          |     +----------+     +----------+     +----------+
+// | ctx.list | <-> | sub_link | <-> | sub_link | <-> | sub_link |
+// +----------+     +----+-----+     +-----+----+     +----------+
+//                       |                 |
+//                  +----v-------+   +-----v------+
+//                  | subscriber1|   | subscriber2|
+//                  |   INQUIRY  |   |   RFCOMM   |
+//                  +----+-------+   +-------+----+
+//                       | handle            | handle
+//      +----------------v---------+   +-----v--------------------+
+//      | IOBluetoothDeviceInquiry |   | IOBluetoothRFCOMMChannel |
+//      +-------+------------------+   +-----+--------------------+
+//              |                            |
+//      +-------v---------+            +-----v--------------------+
+//      | InquiryDelegate |            | RFCOMMChannelDelegate    |
+//      +-------+---------+            +----------+---------------+
+//              |                                 |
+//              v                                 v
+//            subscriber1 !                   subscriber2 ! 
+//
+
+// -----------------------------------------------------------------------
+//   Delgate classes
+// -----------------------------------------------------------------------
+
+@interface InquiryDelegate : NSObject <IOBluetoothDeviceInquiryDelegate> {
+    subscription_t* mSub;
+}
+- (instancetype)initWithSub:(subscription_t*)s;
+- (void) dealloc;
+@end
+
+@interface RemoteNameDelegate : NSObject <IOBluetoothDeviceInquiryDelegate> {
+    subscription_t* mSub;
+}
+- (instancetype)initWithSub:(subscription_t*) s;
+- (void) dealloc;
+@end
+
+@interface ConnectDelegate : NSObject <IOBluetoothDeviceInquiryDelegate> {
+    subscription_t* mSub;
+}
+- (instancetype)initWithSub:(subscription_t*) s;
+- (void) dealloc;
+@end
+
+@interface SDPQueryDelegate : NSObject <IOBluetoothDeviceInquiryDelegate> {
+    subscription_t* mSub;
+    IOBluetoothSDPUUID* mUUID;
+}
+- (instancetype)initWithSub:(subscription_t*) s andUUID:(IOBluetoothSDPUUID*)uuid;
+- (void) dealloc;
+@end
+
+@interface RFCOMMChannelDelegate : NSObject <IOBluetoothRFCOMMChannelDelegate> {
+    subscription_t* mSub;
+    bt_ctx_t* mCtx;
+}
+- (instancetype)initWithSub:(subscription_t*) s andCtx:(bt_ctx_t*) ctx;
+- (void) dealloc;
+@end
+
+@interface L2CAPChannelDelegate : NSObject <IOBluetoothL2CAPChannelDelegate> {
+    subscription_t* mSub;
+    bt_ctx_t* mCtx;
+}
+- (instancetype)initWithSub:(subscription_t*) s andCtx:(bt_ctx_t*) ctx;
+- (void) dealloc;
+@end
+
+static inline void put_date(ddata_t* data, NSDate* date)
+{
+    uint8_t* ptr = ddata_alloc(data, 5);
+    NSTimeInterval at = 0;
+    uint32_t secs;
+
+    if (date != NULL)
+	at = [date timeIntervalSince1970];
+    secs = (uint32_t) at;
+    *ptr++ = DATE;
+    DDATA_PUT_UINT32(ptr, secs);
+}
+
+static inline void put_ns_string(ddata_t* data, NSString* str)
+{
+    char buffer[1024];
+    if ([str getCString:buffer maxLength:1024 encoding:NSUTF8StringEncoding])
+	ddata_put_string(data, buffer);
+    else
+	ddata_put_string(data, "?");
+}
+
+static inline void ddata_put_addr(ddata_t* data, const BluetoothDeviceAddress* addr)
+{
+    uint8_t* ptr = ddata_alloc(data, sizeof(BluetoothDeviceAddress)+1);
+    *ptr++ = ADDR;
+    memcpy(ptr, addr, sizeof(BluetoothDeviceAddress));
+}
+
+static inline int get_address(ddata_t* data, BluetoothDeviceAddress* val)
+{
+    if (ddata_r_avail(data) >= sizeof(BluetoothDeviceAddress)) {
+	memcpy(val, data->rd, sizeof(BluetoothDeviceAddress));
+	data->rd += sizeof(BluetoothDeviceAddress);
+	return 1;
+    }
+    return 0;
+}
+
+
+#define ERR_SHORT 1
+#define ERR_LONG  2
+
+/* type: 1=short-atom  2=string-long  3=both (encapsule in LIST ot TUPLE) */
+static void ddata_put_io_error(ddata_t* data, IOReturn error, int type)
+{
+    switch(error) {
+    case kIOReturnSuccess:
+	if (type&1) ddata_put_atom(data, "Success");
+	if (type&2) ddata_put_string(data, "OK");
+	break;
+    case kIOReturnError:
+	if (type&1) ddata_put_atom(data, "Error");
+	if (type&2) ddata_put_string(data, "general error");
+	break;
+    case kIOReturnNoMemory:
+        if (type&1) ddata_put_atom(data, "NoMemory");
+	if (type&2) ddata_put_string(data, "can't allocate memory");
+	break;
+    case kIOReturnNoResources:
+	if (type&1) ddata_put_atom(data, "NoResources");
+	if (type&2) ddata_put_string(data, "resource shortage ");
+	break;
+    case kIOReturnIPCError:
+        if (type&1) ddata_put_atom(data, "IPCError");
+	if (type&2) ddata_put_string(data, "error during IPC ");
+	break;
+    case kIOReturnNoDevice:
+        if (type&1) ddata_put_atom(data, "NoDevice");
+	if (type&2) ddata_put_string(data, "no such device ");
+	break;
+    case kIOReturnNotPrivileged:
+	if (type&1) ddata_put_atom(data, "NotPrivileged");
+	if (type&2) ddata_put_string(data, "privilege violation ");
+	break;
+    case kIOReturnBadArgument:
+	if (type&1) ddata_put_atom(data, "BadArgument");
+	if (type&2) ddata_put_string(data, "invalid argument ");
+	break;
+    case kIOReturnLockedRead:
+	if (type&1) ddata_put_atom(data, "LockedRead");
+	if (type&2) ddata_put_string(data, "device read locked ");
+	break;
+    case kIOReturnLockedWrite:
+	if (type&1) ddata_put_atom(data, "LockedWrite");
+	if (type&2) ddata_put_string(data, "device write locked ");
+	break;
+    case kIOReturnExclusiveAccess:
+	if (type&1) ddata_put_atom(data, "ExclusiveAccess");
+	if (type&2) ddata_put_string(data, "exclusive access and device already open");
+	break;
+    case kIOReturnBadMessageID:
+	if (type&1) ddata_put_atom(data, "BadMessageID");
+	if (type&2) ddata_put_string(data, "sent/received messages had different msg_id");
+	break;
+    case kIOReturnUnsupported:
+	if (type&1) ddata_put_atom(data, "Unsupported");
+	if (type&2) ddata_put_string(data, "unsupported function");
+	break;
+    case kIOReturnVMError:
+	if (type&1) ddata_put_atom(data, "VMError");
+	if (type&2) ddata_put_string(data, "misc. VM failure ");
+	break;
+    case kIOReturnInternalError:
+	if (type&1) ddata_put_atom(data, "InternalError");
+	if (type&2) ddata_put_string(data, "internal error ");
+	break;
+    case kIOReturnIOError:
+	if (type&1) ddata_put_atom(data, "IOError");
+	if (type&2) ddata_put_string(data, "General I/O error ");
+	break;
+    case kIOReturnCannotLock:
+	if (type&1) ddata_put_atom(data, "CannotLock");
+	if (type&2) ddata_put_string(data, "can't acquire lock");
+	break;
+    case kIOReturnNotOpen:
+	if (type&1) ddata_put_atom(data, "NotOpen");
+	if (type&2) ddata_put_string(data, "device not open ");
+	break;
+    case kIOReturnNotReadable:
+	if (type&1) ddata_put_atom(data, "NotReadable");
+	if (type&2) ddata_put_string(data, "read not supported ");
+	break;
+    case kIOReturnNotWritable:
+	if (type&1) ddata_put_atom(data, "NotWritable");
+	if (type&2) ddata_put_string(data, "write not supported");
+	break;
+    case kIOReturnNotAligned:
+	if (type&1) ddata_put_atom(data, "NotAligned");
+	if (type&2) ddata_put_string(data, "alignment error");
+	break;
+    case kIOReturnBadMedia:
+        if (type&1) ddata_put_atom(data, "BadMedia");
+	if (type&2) ddata_put_string(data, "Media Error");
+	break;
+    case kIOReturnStillOpen:
+	if (type&1) ddata_put_atom(data, "StillOpen");
+	if (type&2) ddata_put_string(data, "device(s) still open");
+	break;
+    case kIOReturnRLDError:
+        if (type&1) ddata_put_atom(data, "RLDError");
+	if (type&2) ddata_put_string(data, "rld failure");
+	break;
+    case kIOReturnDMAError:
+        if (type&1) ddata_put_atom(data, "DMAError");
+	if (type&2) ddata_put_string(data, "DMA failure");
+	break;
+    case kIOReturnBusy:
+	if (type&1) ddata_put_atom(data, "Busy");
+	if (type&2) ddata_put_string(data, "Device Busy");
+	break;
+    case kIOReturnTimeout:
+	if (type&1) ddata_put_atom(data, "Timeout");
+	if (type&2) ddata_put_string(data, "I/O Timeout");
+	break;
+    case kIOReturnOffline:
+	if (type&1) ddata_put_atom(data, "Offline");
+	if (type&2) ddata_put_string(data, "device offline");
+	break;
+    case kIOReturnNotReady:
+        if (type&1) ddata_put_atom(data, "NotReady");
+	if (type&2) ddata_put_string(data, "not ready");
+	break;
+    case kIOReturnNotAttached:
+	if (type&1) ddata_put_atom(data, "NotAttached");
+	if (type&2) ddata_put_string(data, "device not attached");
+	break;
+    case kIOReturnNoChannels:
+	if (type&1) ddata_put_atom(data, "NoChannels");
+	if (type&2) ddata_put_string(data, "no DMA channels left");
+	break;
+    case kIOReturnNoSpace:
+	if (type&1) ddata_put_atom(data, "NoSpace");
+	if (type&2) ddata_put_string(data, "no space for data");
+	break;
+    case kIOReturnPortExists:
+	if (type&1) ddata_put_atom(data, "PortExists");
+	if (type&2) ddata_put_string(data, "port already exists");
+	break;
+    case kIOReturnCannotWire:
+	if (type&1) ddata_put_atom(data, "CannotWire");
+	if (type&2) ddata_put_string(data, "can't wire down physical memory");
+	break;
+    case kIOReturnNoInterrupt:
+	if (type&1) ddata_put_atom(data, "NoInterrupt");
+	if (type&2) ddata_put_string(data, "no interrupt attached");
+	break;
+    case kIOReturnNoFrames:
+        if (type&1) ddata_put_atom(data, "NoFrames");
+	if (type&2) ddata_put_string(data, "no DMA frames enqueued");
+	break;
+    case kIOReturnMessageTooLarge:
+	if (type&1) ddata_put_atom(data, "MessageTooLarge");
+	if (type&2) ddata_put_string(data, "oversized msg received");
+	break;
+    case kIOReturnNotPermitted:
+	if (type&1) ddata_put_atom(data, "NotPermitted");
+	if (type&2) ddata_put_string(data, "not permitted");
+	break;
+    case kIOReturnNoPower:
+	if (type&1) ddata_put_atom(data, "NoPower");
+	if (type&2) ddata_put_string(data, "no power to device");
+	break;
+    case kIOReturnNoMedia:
+	if (type&1) ddata_put_atom(data, "NoMedia");
+	if (type&2) ddata_put_string(data, "media not present");
+	break;
+    case kIOReturnUnformattedMedia:
+	if (type&1) ddata_put_atom(data, "UnformattedMedia");
+	if (type&2) ddata_put_string(data, "media not formatted");
+	break;
+    case kIOReturnUnsupportedMode:
+	if (type&1) ddata_put_atom(data, "UnsupportedMode");
+	if (type&2) ddata_put_string(data, "no such mode");
+	break;
+    case kIOReturnUnderrun:
+        if (type&1) ddata_put_atom(data, "Underrun");
+	if (type&2) ddata_put_string(data, "data underrun");
+	break;
+    case kIOReturnOverrun:
+	if (type&1) ddata_put_atom(data, "Overrun");
+	if (type&2) ddata_put_string(data, "data overrun");
+	break;
+    case kIOReturnDeviceError:
+	if (type&1) ddata_put_atom(data, "DeviceError");
+	if (type&2) ddata_put_string(data, "the device is not working properly!");
+	break;
+    case kIOReturnNoCompletion:
+	if (type&1) ddata_put_atom(data, "NoCompletion");
+	if (type&2) ddata_put_string(data, "a completion routine is required");
+	break;
+     case kIOReturnAborted:
+	 if (type&1) ddata_put_atom(data, "Aborted");
+	 if (type&2) ddata_put_string(data, "operation aborted");
+	break;
+    case kIOReturnNoBandwidth:
+	if (type&1) ddata_put_atom(data, "NoBandwidth");
+	if (type&2) ddata_put_string(data, "bus bandwidth would be exceeded");
+	break;
+    case kIOReturnNotResponding:
+	if (type&1) ddata_put_atom(data, "NotResponding");
+	if (type&2) ddata_put_string(data, "device not responding");
+	break;
+    case kIOReturnIsoTooOld:
+	if (type&1) ddata_put_atom(data, "IsoTooOld");
+	if (type&2) ddata_put_string(data, "isochronous I/O request for distant past!");
+	break;
+    case kIOReturnIsoTooNew:
+	if (type&1) ddata_put_atom(data, "IsoTooNew");
+	if (type&2) ddata_put_string(data, "isochronous I/O request for distant future");
+	break;
+    case kIOReturnNotFound:
+	if (type&1) ddata_put_atom(data, "NotFound");
+	if (type&2) ddata_put_string(data, "data was not found");
+	break;
+    case kIOReturnInvalid:
+	if (type&1) ddata_put_atom(data, "Invalid");
+	if (type&2) ddata_put_string(data, "should never be seen");
+	break;
+	/* Add HCI error codes */
+    default:
+	DEBUGF("ERROR: code=%d, sub=%d, system=%d",
+	    err_get_code(error), 
+	    err_get_sub(error), 
+	    err_get_system(error));
+	if (type&1) ddata_put_atom(data, "Unknown");
+	if (type&2) ddata_put_string(data, "do not know about this error");
+	break;
+    }
+}
+
+static void cleanup(subscription_t* s)
+{
+    DEBUGF("cleanup: %s", format_subscription(s));
+    if (s->handle != NULL) {
+	switch(s->type) {
+	case INQUIRY: {
+	    IOBluetoothDeviceInquiry* obj = s->handle;
+	    if (obj) {
+		InquiryDelegate* delegate = [obj delegate];
+		[delegate release];
+		[obj release];
+	    }
+	    break;
+	}
+
+	case REMOTE_NAME: {
+	    IOBluetoothDeviceInquiry* obj = s->handle;
+	    if (obj) {
+		RemoteNameDelegate* delegate = [obj delegate];
+		[delegate release];
+		[obj release];
+	    }
+	    break;
+	}
+
+	case CONNECT: {
+	    IOBluetoothDeviceInquiry* obj = s->handle;
+	    if (obj) {
+		ConnectDelegate* delegate = [obj delegate];
+		[delegate release];
+		[obj release];
+	    }
+	    break;
+	}
+
+	case SDP_QUERY: {
+	    IOBluetoothDeviceInquiry* obj = s->handle;
+	    if (obj) {
+		SDPQueryDelegate* delegate = [obj delegate];
+		[delegate release];
+		[obj release];
+	    }
+	    break;
+	}
+
+	case SDP: {
+	    IOBluetoothSDPServiceRecord* serviceRecord = s->handle;
+	    [serviceRecord removeServiceRecord];
+	    [serviceRecord release];
+	    break;
+	}
+	case RFCOMM: {
+	    IOBluetoothRFCOMMChannel* obj = s->handle;
+	    if (obj) {
+		RFCOMMChannelDelegate* delegate = [obj delegate];
+		[delegate release];
+		[obj release];
+	    }
+	    break;
+	}
+	case RFCOMM_LISTEN: {
+	    IOBluetoothUserNotification* obj = s->handle;
+	    if (obj)
+		[obj unregister];
+	    // check all acceptors here?
+	    [obj release];
+	    break;
+	}
+	case L2CAP: {
+	    IOBluetoothL2CAPChannel* obj = s->handle;
+	    if (obj) {
+		L2CAPChannelDelegate* delegate = [obj delegate];
+		[delegate release];
+		[obj release];
+	    }
+	    break;
+	}
+	case L2CAP_LISTEN: {
+	    IOBluetoothUserNotification* obj = s->handle;
+	    if (obj)
+		[obj unregister];
+	    [obj release];
+	    break;
+	}
+	default:  // warn?
+	    break;
+	}
+    }
+}
+
+
+/* Send OK reply */
+void bt_ok(uint32_t cmdid)
+{
+    uint8_t buf[16];
+    ddata_t data;
+
+    ddata_init(&data, buf, sizeof(buf), 0);
+    ddata_put_UINT32(&data, 0);    
+    ddata_put_tag(&data, REPLY_OK);
+    ddata_put_UINT32(&data, cmdid);
+    ddata_send(&data, 1);
+    ddata_final(&data);
+}
+
+/* Send ERROR reply */
+void bt_error(uint32_t cmdid, IOReturn err)
+{
+    uint8_t buf[128];
+    ddata_t data;
+
+    ddata_init(&data, buf, sizeof(buf), 0);
+    ddata_put_UINT32(&data, 0);
+    ddata_put_tag(&data, REPLY_ERROR);
+    ddata_put_UINT32(&data, cmdid);
+    ddata_put_io_error(&data, err, ERR_SHORT);
+    ddata_send(&data, 1);
+    ddata_final(&data);
+}
+
+// simple event
+void bt_event(uint32_t sid, const char* evtname)
+{
+    uint8_t buf[64];
+    ddata_t data;
+    ddata_init(&data, buf, sizeof(buf), 0);
+    ddata_put_UINT32(&data, 0);
+    ddata_put_tag(&data, REPLY_EVENT);
+    ddata_put_UINT32(&data, sid);
+    ddata_put_atom(&data, evtname);
+    ddata_send(&data, 1);
+    ddata_final(&data);
+}
+
+/*
+ * Given array of devices reply with
+ *  OK LIST ADDR <addr> ...  LIST_END
+ */
+void bt_device_list(NSArray* devices, ddata_t* data_out)
+{
+    NSUInteger i, n;
+
+    if (devices == NULL)
+	n = 0;
+    else
+	n = [devices count];
+    /* reply:8 cmdid:32 LIST ADDR <addr> ADDR <addr> LIST_END */
+    DEBUGF("bt_device_list n=%d", n);
+
+    ddata_put_tag(data_out, LIST);
+    for (i = 0; i < n; i++) {
+	DEBUGF("bt_device_list i=%d, n=%d", n);
+	IOBluetoothDevice* device = (IOBluetoothDevice*)
+	    [devices objectAtIndex:i];
+	const BluetoothDeviceAddress* bt_addr = [device getAddress];
+	ddata_put_addr(data_out, bt_addr);
+	i++;
+    }
+    ddata_put_tag(data_out, LIST_END);
+}
+
+/*
+ * Given a IOBluetoothSDPDataElementRef produce a SDP attribute value element
+ * Format a binary version of SDP Element
+ */
+	
+int ddata_put_sdp_elem(IOBluetoothSDPDataElement* value, ddata_t* data_out, int level)
+{
+    BluetoothSDPDataElementTypeDescriptor sdp_type;
+    BluetoothSDPDataElementSizeDescriptor sdp_size;
+    uint32_t byte_size;
+
+    sdp_type = [value getTypeDescriptor];
+    sdp_size = [value getSizeDescriptor];
+    byte_size = [value getSize];
+    DEBUGF("    %d: sdp:tag=%d,size=%d, avail=%d",
+	   level,sdp_type<<3|(sdp_size&7),byte_size,
+	   ddata_r_avail(data_out));
+
+    switch(sdp_type) {
+    case kBluetoothSDPDataElementTypeNil: /* only a tag byte */
+	ddata_put_UINT8(data_out, ((sdp_type<<3)|(sdp_size&0x7)));
+	break;
+    case kBluetoothSDPDataElementTypeUnsignedInt:
+    case kBluetoothSDPDataElementTypeSignedInt: {
+	ddata_put_UINT8(data_out, ((sdp_type<<3)|(sdp_size&0x7)));
+	switch(sdp_size) {
+	case 0: {
+	    NSNumber* num = [value getNumberValue];
+	    ddata_put_UINT8(data_out, num.unsignedCharValue);
+	    break;
+	}
+	case 1: {
+	    NSNumber* num = [value getNumberValue];
+	    ddata_put_UINT16(data_out, num.unsignedShortValue); 
+	    break;
+	}
+	case 2: {
+	    NSNumber* num = [value getNumberValue];
+	    ddata_put_UINT32(data_out, num.unsignedLongValue); 
+	    break;
+	}
+	case 3: {
+	    NSNumber* num = [value getNumberValue];
+	    ddata_put_UINT64(data_out, num.unsignedLongLongValue); 
+	    break;
+	}
+	case 4: {
+	    NSData* data = [value getDataValue];
+	    NSUInteger len = [data length];
+	    const void* ptr = [data bytes];
+	    ddata_add(data_out, (uint8_t*)ptr, len);
+	    break;
+	}
+	default:
+	    return -1;
+	}
+	break;
+    }
+
+    case kBluetoothSDPDataElementTypeUUID: {
+	IOBluetoothSDPUUID* uuid = [value getUUIDValue];
+	NSUInteger len = [uuid length];
+	const void* ptr = [uuid bytes];
+	ddata_put_UINT8(data_out, ((sdp_type<<3)|(sdp_size&0x7)));
+	switch(sdp_size) {
+	case 1:
+	    ddata_add(data_out, (uint8_t*)ptr, len);
+	    break;
+	case 2:
+	    ddata_add(data_out, (uint8_t*)ptr, len);
+	    break;
+	case 4:
+	    ddata_add(data_out, (uint8_t*)ptr, len);
+	    break;
+	default:
+	    return -1;
+	}
+	break;
+    }
+
+    case kBluetoothSDPDataElementTypeURL:
+    case kBluetoothSDPDataElementTypeString: {
+	NSString* str = [value getStringValue];
+	NSUInteger size = [str lengthOfBytesUsingEncoding:NSUTF8StringEncoding];
+	NSUInteger len = [str length];
+	NSUInteger ulen;
+	NSRange range = NSMakeRange(0, len);
+	uint8_t* ptr;
+
+	if (size < 256) {
+	    ddata_put_UINT8(data_out, ((sdp_type<<3)|5));
+	    ptr = ddata_alloc(data_out, 1+size);
+	    DDATA_PUT_UINT8(ptr, size); ptr += 1;
+	    [str getBytes:(void*)ptr  maxLength:size
+	       usedLength:&ulen encoding:NSUTF8StringEncoding
+		  options:0 range:range remainingRange:NULL];
+	}
+	else if (size < 65536) {
+	    ddata_put_UINT8(data_out, ((sdp_type<<3)|6));
+	    ptr = ddata_alloc(data_out, 2+size);
+	    DDATA_PUT_UINT16(ptr, size); ptr += 2;
+	    [str getBytes:(void*)ptr maxLength:size
+	     usedLength:&ulen encoding:NSUTF8StringEncoding
+	     options:0 range:range remainingRange:NULL];
+	}
+	else {
+	    ddata_put_UINT8(data_out, ((sdp_type<<3)|7));
+	    ptr = ddata_alloc(data_out, 4+size);
+	    DDATA_PUT_UINT32(ptr, size); ptr += 4;
+	    [str getBytes:(void*)ptr maxLength:size
+	       usedLength:&ulen encoding:NSUTF8StringEncoding
+		  options:0 range:range remainingRange:NULL];
+	}
+	break;
+    }
+
+    case kBluetoothSDPDataElementTypeBoolean: {
+	NSNumber* num = [value getNumberValue];
+	ddata_put_UINT8(data_out, ((sdp_type<<3)|(sdp_size&0x7)));
+	ddata_put_UINT8(data_out, num.unsignedCharValue);
+	break;
+    }
+
+    case kBluetoothSDPDataElementTypeDataElementSequence:
+    case kBluetoothSDPDataElementTypeDataElementAlternative: {
+	NSArray* array = [value getArrayValue];
+	NSUInteger n = array.count;
+	NSUInteger i;
+	size_t bin_size;
+	size_t used_size;
+	intptr_t patch_offset;
+
+	// always use 4 byte header so we can patch 
+	ddata_put_UINT8(data_out, ((sdp_type<<3)|(7)));
+	patch_offset = ddata_used(data_out);  /* keep offset */
+	ddata_put_UINT32(data_out, 0);             /* patch this later */
+
+	used_size = ddata_used(data_out);    // size before
+	for (i = 0; i < n; i++) {
+	    IOBluetoothSDPDataElement* elem = 
+		(IOBluetoothSDPDataElement*) [array objectAtIndex:i];
+	    if (ddata_put_sdp_elem(elem, data_out, level+1) < 0)
+		return -1;
+	}
+	bin_size = (ddata_used(data_out) - used_size);  // size after
+	DDATA_PUT_UINT32(data_out->base+patch_offset, bin_size);
+	break;
+    }
+    default:
+	return -1;
+    }
+    return 0;
+}
+
+/*
+ * Ouput a SDP service record
+ * LIST ServiceAttributes LIST_END
+ */
+void ddata_put_sdp_service(IOBluetoothSDPServiceRecord* serv, ddata_t* data_out)
+{
+    NSDictionary* dict;
+    NSNumber* key;
+
+    ddata_put_tag(data_out, LIST);
+    dict = [serv attributes];
+
+    for (key in dict) {
+	uint16_t aid;
+	size_t bin_size;
+	size_t used_size;
+	intptr_t patch_offset;
+	uint8_t type;
+	IOBluetoothSDPDataElement* value = [dict objectForKey:key];
+
+	ddata_put_UINT8(data_out, BINARY);
+	patch_offset = ddata_used(data_out);  /* keep offset */
+	ddata_put_UINT32(data_out, 0);             /* patch this later */
+    
+	// FIXME: do not assume key is a number?
+	aid = key.unsignedShortValue;
+	type=((kBluetoothSDPDataElementTypeUnsignedInt << 3) | 1);
+	ddata_put_UINT8(data_out, type);
+	ddata_put_UINT16(data_out, aid);
+	DEBUGF("  type:%d id=%d avail=%d", type, aid, ddata_r_avail(data_out));
+	used_size = ddata_used(data_out); // size before
+	ddata_put_sdp_elem(value, data_out, 0);
+	bin_size = 3 + (ddata_used(data_out) - used_size);  // size after
+	DDATA_PUT_UINT32(data_out->base+patch_offset, bin_size);
+    }
+    ddata_put_tag(data_out, LIST_END);
+}
+
+/* read a UUID from data_in
+ * if data_in == 0 then all records are returned
+ *    data_in == 2  UUID16 is assumed and searched for
+ *    data_in == 4  UUID32 is assumed and searched for
+ *    data_in == 16 UUID is assumed and searched
+ */
+
+int get_uuid(ddata_t* data_in, IOBluetoothSDPUUID** uuid)
+{
+    switch(ddata_r_avail(data_in)) {
+    case 2: {
+	BluetoothSDPUUID16 uuid16;
+	ddata_get_uint16(data_in, &uuid16);
+	*uuid = [IOBluetoothSDPUUID uuid16:uuid16];
+	break;
+    }
+    case 4: {
+	BluetoothSDPUUID32 uuid32;
+	ddata_get_uint32(data_in, &uuid32);
+	*uuid = [IOBluetoothSDPUUID uuid32:uuid32];
+	break;
+    }
+    case 16: {
+	*uuid = [IOBluetoothSDPUUID uuidWithBytes:data_in->rd length:16];
+	break;
+    }
+    case 0:
+	*uuid = NULL;
+	break;
+    default:
+	return 0;
+    }
+    return 1;
+}
+
+
+void bt_sdp_info(IOBluetoothDevice* device, IOBluetoothSDPUUID* uuid,
+		 ddata_t* data_out)
+{
+    if (uuid != NULL) {
+	IOBluetoothSDPServiceRecord* serv =
+	    [device getServiceRecordForUUID:uuid];
+	if (serv != NULL)
+	    ddata_put_sdp_service(serv, data_out);
+	[uuid release];
+    }
+    else {
+	NSArray* services;
+
+	ddata_put_tag(data_out, LIST);
+
+	services = [device services];
+	if (services != NULL) {
+	    NSUInteger i, n;
+
+	    n = [services count];
+	    DEBUGF("bt_sdp_info: %lu services found", n);
+	    for (i = 0; i < n; i++) {
+		IOBluetoothSDPServiceRecord* serv = [services objectAtIndex:i];
+		DEBUGF("bt_sdp_info: service %lu %p", i, serv);
+		ddata_put_sdp_service(serv, data_out);
+	    }
+	    DEBUGF("bt_sdp_info: %lu services done", n);
+	}
+	ddata_put_tag(data_out, LIST_END);
+    }
+}
+
+/* construct a NSDictionary that makes up a Bluetooth service entry 
+ * the input format MUST be on form
+ * LIST
+ * BINARY <sdp-attribute> <sdp-value>
+ * BINARY <sdp-attribute> <spd-value>
+ * BINARY <sdp-attribute> <sdp-value>
+ * LIST_END
+ * 
+ */
+NSDictionary* bt_type_dict(int sdp_type)
+{
+    id keys[1];
+    id objects[1];
+
+    keys[0] = [NSString stringWithUTF8String:"DataElementType"];
+    objects[0] = [NSNumber numberWithInt:sdp_type];
+
+    return [NSDictionary dictionaryWithObjects:objects forKeys:keys count:1];
+}
+
+NSDictionary* bt_data_dict(int sdp_type, void* value)
+{
+    id keys[2];
+    id objects[2];
+
+    keys[0] = [NSString stringWithUTF8String:"DataElementType"];
+    objects[0] = [NSNumber numberWithInt:sdp_type];
+
+    keys[1] = [NSString stringWithUTF8String:"DataElementValue"]; 
+    objects[1] = value;
+
+    return [NSDictionary dictionaryWithObjects:objects forKeys:keys count:2];
+}
+
+NSDictionary* bt_value_dict(int sdp_type, int sdp_size, void* value)
+{
+    id keys[3];
+    id objects[3];
+
+    if (value == NULL)
+	return NULL;
+    
+    keys[0] = [NSString stringWithUTF8String:"DataElementSize"];
+    objects[0] = [NSNumber numberWithInt:sdp_size];
+    
+    keys[1] = [NSString stringWithUTF8String:"DataElementType"];
+    objects[1] = [NSNumber numberWithInt:sdp_type];
+
+    keys[2] = [NSString stringWithUTF8String:"DataElementValue"]; 
+    objects[2] = value;
+
+    return [NSDictionary dictionaryWithObjects:objects forKeys:keys count:3];
+}
+
+
+int bt_dynamic_len(ddata_t* data_in, int sdp_size, NSUInteger* length)
+{
+    switch(sdp_size) {
+    case 5: {
+	uint8_t len;
+	if (!ddata_get_uint8(data_in, &len)) return 0;
+	*length = (NSUInteger) len;
+	return 1;
+    }
+    case 6: {
+	uint16_t len;
+	if (!ddata_get_uint16(data_in, &len)) return 0;
+	*length = (NSUInteger) len;
+	return 1;
+    }
+    case 7: {
+	uint32_t len;
+	if (!ddata_get_uint32(data_in, &len)) return 0;
+	*length = (NSUInteger) len;
+	return 1;
+    }
+    default:
+	return 0;
+    }
+}
+
+int bt_fixed_len(int sdp_size, NSUInteger* length)
+{
+    switch(sdp_size) {
+    case 0: *length=1; return 1;
+    case 1: *length=2; return 1;
+    case 2: *length=4; return 1;
+    case 3: *length=8; return 1;
+    case 4: *length=16; return 1;
+    default: return 0;
+    }
+}
+
+
+NSObject* bt_get_sdp_value(ddata_t* data_in)
+{
+    uint8_t  sdp_tag;
+    int  sdp_type;
+    int  sdp_size;
+
+    ddata_get_uint8(data_in, &sdp_tag);
+    sdp_type = (sdp_tag >> 3);
+    sdp_size = sdp_tag & 0x7;
+
+    switch(sdp_type) {
+    case kBluetoothSDPDataElementTypeNil:
+	return bt_type_dict(sdp_type);
+
+    case kBluetoothSDPDataElementTypeUnsignedInt:
+    case kBluetoothSDPDataElementTypeSignedInt: {
+	void* value;
+	switch(sdp_size) {
+	case 0: {
+	    uint8_t uval;
+	    int val;
+	    ddata_get_uint8(data_in, &uval);
+	    val = uval;
+	    value = [NSNumber numberWithInt:val];
+	    return bt_value_dict(sdp_type,1,value);
+	}
+	case 1: {
+	    uint16_t uval;
+	    int val;
+	    if (!ddata_get_uint16(data_in, &uval)) return NULL;
+	    val = uval;
+	    value = [NSNumber numberWithInt:val];
+	    return bt_value_dict(sdp_type,2,value);
+	}
+	case 2: {
+	    uint32_t uval;
+	    int val;
+	    if (!ddata_get_uint32(data_in, &uval)) return NULL;
+	    val = uval;
+	    value = [NSNumber numberWithInt:val];
+	    if (sdp_type == kBluetoothSDPDataElementTypeUnsignedInt)
+		return value;  /* Special case ... */
+	    else 
+		return bt_value_dict(sdp_type,4,value);
+	}
+
+	case 3: {
+	    value = [NSData dataWithBytes:data_in->rd length:8];
+	    ddata_forward(data_in, 8);
+	    return bt_data_dict(sdp_type,value);
+	}
+	case 4: {
+	    value = [NSData dataWithBytes:data_in->rd length:16];
+	    ddata_forward(data_in, 16);
+	    return bt_data_dict(sdp_type,value);
+	}
+	default:
+	    return NULL;
+	}
+    }
+
+
+    case kBluetoothSDPDataElementTypeUUID: {
+	NSData* data;
+	NSUInteger len;
+	if (!bt_fixed_len(sdp_size, &len)) return NULL;
+	if ((len == 8) || (len==1)) return NULL;
+	data = [NSData dataWithBytes:data_in->rd length:len];
+	ddata_forward(data_in, len);
+	return (void*) data;
+    }
+
+    case kBluetoothSDPDataElementTypeURL:
+    case kBluetoothSDPDataElementTypeString: {
+	NSUInteger len;
+	void* value;
+
+	if (!bt_dynamic_len(data_in, sdp_size, &len)) return NULL;
+
+	value = [[NSString alloc]initWithBytes:(const void*)data_in->rd 
+		 length:len
+		 encoding:NSUTF8StringEncoding];
+	ddata_forward(data_in, len);
+	if (sdp_type == kBluetoothSDPDataElementTypeURL)
+	    return bt_value_dict(sdp_type, sdp_size, value);
+	else
+	    return value;
+    }
+
+    case kBluetoothSDPDataElementTypeBoolean: {
+	uint8_t bval;
+	int val;
+	void* value;
+	
+	ddata_get_uint8(data_in, &bval);
+	val = bval;
+	value = [NSNumber numberWithInt:val];
+	return bt_value_dict(sdp_type,1,value);
+    }
+
+    case kBluetoothSDPDataElementTypeDataElementSequence:
+    case kBluetoothSDPDataElementTypeDataElementAlternative: {
+	NSMutableArray* array;
+	NSUInteger len;
+	uint8_t* end_ptr;
+
+	if (!bt_dynamic_len(data_in, sdp_size, &len)) return NULL;
+
+	end_ptr = data_in->rd + len;
+	
+	array = [[NSMutableArray alloc] init];
+	while(data_in->rd < end_ptr) {
+	    id value = bt_get_sdp_value(data_in);
+	    if (value == NULL) {
+		[array release];
+		return NULL;
+	    }
+	    [array addObject:value];
+	}
+	if (sdp_type==kBluetoothSDPDataElementTypeDataElementAlternative) 
+	    return bt_data_dict(sdp_type, array);
+	else
+	    return array;
+    }
+
+    default:
+	return NULL;
+    }
+}
+
+NSDictionary* bt_make_sdp_dict(ddata_t* data_in)
+{
+    uint8_t tag;
+    NSMutableDictionary* servDict;
+    void* value;
+
+    if (!ddata_get_uint8(data_in, &tag) || (tag != LIST))
+	return NULL;
+    if ((servDict = [[NSMutableDictionary alloc] initWithCapacity:10]) == NULL)
+	return NULL;
+    
+    DEBUGF("Service add: found LIST tag", 0);
+    
+    while(ddata_get_uint8(data_in, &tag)) {
+	if (tag == LIST_END) {
+	    DEBUGF("Service add: found LIST_END tag", 0);
+	    return servDict;
+	}
+	else if (tag == BINARY) {
+	    uint32_t bin_sz;
+	    uint8_t  sdp_tag;
+	    uint8_t  sdp_type;
+	    uint8_t  sdp_size;
+	    uint16_t attributeID;
+	    NSString* key;
+	    char attr[5];
+
+	    if (!ddata_get_uint32(data_in, &bin_sz)) goto error;
+	    DEBUGF("Service add: found BINARY size=%d", bin_sz);
+	    if (!ddata_get_uint8(data_in, &sdp_tag)) goto error;
+	    sdp_type = (sdp_tag >> 3);
+	    sdp_size = sdp_tag & 0x7;
+	    if (sdp_type != kBluetoothSDPDataElementTypeUnsignedInt) goto error;
+	    if (sdp_size != 1) goto error;
+	    if (!ddata_get_uint16(data_in, &attributeID)) goto error;
+
+	    /* Generate the attribute ID as Hex String Key 4 digits */
+	    snprintf(attr, 5, "%04X", attributeID);
+	    DEBUGF("Service add: found attribute %s", attr);
+	    key = [[NSString alloc]initWithBytes:(const void*)attr 
+		   length:4 encoding:NSUTF8StringEncoding];
+	    value = bt_get_sdp_value(data_in);
+	    [servDict setObject:value forKey:key];
+	}
+	else
+	    goto error;
+    }
+
+error:
+    return NULL;
+}
+
+void bt_local_info(ddata_t* data_in, ddata_t* data_out)
+{
+    uint8_t op_code;
+
+    ddata_put_tag(data_out, LIST);
+
+    while(ddata_get_uint8(data_in, &op_code)) {
+	switch(op_code) {
+	case NFO_LOCAL_NAME: {
+	    NSString* name =
+		[[IOBluetoothHostController defaultController] nameAsString];
+	    put_ns_string(data_out, name);
+	    break;
+	}
+
+	case NFO_LOCAL_CLASS: {
+	    BluetoothClassOfDevice value =
+		[[IOBluetoothHostController defaultController] classOfDevice];
+	    ddata_put_uint32(data_out, value);
+	    break;
+	}
+
+	case NFO_LOCAL_ADDRESS: {
+	    BluetoothDeviceAddress addr;
+	    NSString* addrStr =
+		[[IOBluetoothHostController defaultController] addressAsString];
+	    IOBluetoothNSStringToDeviceAddress(addrStr, &addr);
+	    ddata_put_addr(data_out, &addr);
+	    break;
+	}
+	    
+	case NFO_LOCAL_DISCOVERABLE: {
+	    // Boolean value;
+	    // if (IOBluetoothLocalDeviceGetDiscoverable(&value) == kIOReturnSuccess)
+	    ddata_put_boolean(data_out, true);
+	    break;
+	}
+
+	case NFO_LOCAL_POWER_STATE: {
+	    BluetoothHCIPowerState powerState =
+		[[IOBluetoothHostController defaultController] powerState];
+	    if (powerState == kBluetoothHCIPowerStateON)
+		ddata_put_atom(data_out, "on");
+	    else if (powerState == kBluetoothHCIPowerStateOFF)
+		ddata_put_atom(data_out, "off");
+	    else if (powerState == kBluetoothHCIPowerStateUnintialized)
+		ddata_put_atom(data_out, "unintialized");
+	    else 
+		ddata_put_atom(data_out, "unknown");
+	    break;
+	}
+	default:
+	    break;
+	}
+    }
+    ddata_put_tag(data_out, LIST_END);
+}
+
+
+void bt_device_info(IOBluetoothDevice* device, ddata_t* data_in, ddata_t* data_out)
+{
+    uint8_t op_code;
+
+    ddata_put_tag(data_out, LIST);
+
+    while(ddata_get_uint8(data_in, &op_code)) {
+	switch(op_code) {
+	case NFO_DEVICE_NAME: {
+	    NSString* name = [device name];
+	    put_ns_string(data_out, name);
+	    break;
+	}
+
+	case NFO_DEVICE_CLASS: {
+	    BluetoothClassOfDevice value = [device classOfDevice];
+	    ddata_put_uint32(data_out, value);
+	    break;
+	}
+
+	case NFO_DEVICE_CLOCK: {
+	    BluetoothClockOffset value = [device getClockOffset];
+	    ddata_put_uint16(data_out, value);
+	    break;		
+	}
+
+	case NFO_DEVICE_IS_FAVORITE: {
+	    Boolean value = [device isFavorite];
+	    ddata_put_boolean(data_out, value);
+	    break;
+	    
+	}
+
+	case NFO_DEVICE_IS_PAIRED:  {
+	    Boolean value = [device isPaired];
+	    ddata_put_boolean(data_out, value);
+	    break;
+	}
+
+	case NFO_DEVICE_IS_CONNECTED:  {
+	    Boolean value = [device isConnected];
+	    ddata_put_boolean(data_out, value);
+	    break;
+	}
+
+	case NFO_DEVICE_INQUIRY: {
+	    NSDate* date = [device getLastInquiryUpdate];
+	    put_date(data_out, date);
+	    break;
+	}
+	case NFO_DEVICE_ACCESS: {
+	    NSDate* date = [device recentAccessDate];
+	    put_date(data_out, date);
+	    break;
+	}
+	case NFO_DEVICE_UPDATE: {
+	    NSDate* date = [device getLastServicesUpdate];
+	    put_date(data_out, date);
+	    break;
+	}
+	default:
+	    break;
+	}
+    }
+    ddata_put_tag(data_out, LIST_END);
+
+}
+
+// -----------------------------------------------------------------------
+//   InquiryDelegate
+// -----------------------------------------------------------------------
+
+@implementation InquiryDelegate
+
+- (instancetype)initWithSub:(subscription_t*)s
+{
+    if (self = [super init]) {
+	mSub = s; // weak!
+    }
+    return self;
+}
+
+- (void) dealloc
+{
+    DEBUGF("InquiryDelegate: dealloc");
+    [super dealloc];
+}
+
+- (void) deviceInquiryStarted:(IOBluetoothDeviceInquiry*)sender
+{
+    (void) sender;
+    uint8_t buf[64];
+    ddata_t data;
+
+    DEBUGF("InquiryDelegate: started");
+
+    ddata_init(&data, buf, sizeof(buf), 0);
+    ddata_put_UINT32(&data, 0);
+    ddata_put_tag(&data, REPLY_EVENT);
+    ddata_put_UINT32(&data, mSub->id);
+    ddata_put_atom(&data, "started");
+
+    ddata_send(&data, 1);
+    ddata_final(&data);
+}
+
+- (void) deviceInquiryDeviceFound:(IOBluetoothDeviceInquiry*)sender 
+device:(IOBluetoothDevice*)device
+{
+    (void) sender;
+    const BluetoothDeviceAddress* bt_addr = [device getAddress];
+    uint8_t buf[64];
+    ddata_t data;
+
+    DEBUGF("InquiryDelegate: device found");
+
+    ddata_init(&data, buf, sizeof(buf), 0);
+    ddata_put_UINT32(&data, 0);
+    ddata_put_tag(&data, REPLY_EVENT);
+    ddata_put_UINT32(&data, mSub->id);
+    ddata_put_tag(&data, TUPLE);
+    ddata_put_atom(&data, "device");
+    ddata_put_addr(&data, bt_addr);
+    ddata_put_tag(&data, TUPLE_END);
+
+    ddata_send(&data, 1);
+    ddata_final(&data);
+}
+
+- (void) deviceInquiryUpdatingDeviceNamesStarted:(IOBluetoothDeviceInquiry*)sender devicesRemaining:(uint32_t)devicesRemaining
+{
+    (void) sender;
+    (void) devicesRemaining;
+
+    DEBUGF("InquiryDelegate: %d name started: devicesRemaining=%d",
+	   mSub->id, devicesRemaining);
+}
+
+
+- (void) deviceInquiryDeviceNameUpdated:(IOBluetoothDeviceInquiry*)sender device:(IOBluetoothDevice*)device devicesRemaining:(uint32_t)devicesRemaining
+{
+    (void) sender;
+    (void) device;
+    (void) devicesRemaining;
+
+    DEBUGF("InquiryDelegate: %d device name updated: deviceRemaining=%d",
+	   mSub->id, devicesRemaining);
+}
+
+- (void) deviceInquiryComplete:(IOBluetoothDeviceInquiry*)sender error:(IOReturn)error aborted:(BOOL)aborted
+{
+    (void) sender;
+    (void) error;
+
+    DEBUGF("InquiryDelegate: %d stopped",mSub->id);
+
+    if (!aborted) { /* no need to send event on user abort */
+	uint8_t buf[64];
+	ddata_t data;
+
+	ddata_init(&data, buf, sizeof(buf), 0);
+	ddata_put_UINT32(&data, 0);
+	ddata_put_tag(&data, REPLY_EVENT);
+	ddata_put_UINT32(&data, mSub->id);
+	ddata_put_atom(&data, "stopped");
+	ddata_send(&data, 1);
+	ddata_final(&data);
+    }
+}
+
+@end
+
+// -----------------------------------------------------------------------
+//   RemoteNameDelegate
+// -----------------------------------------------------------------------
+
+@implementation RemoteNameDelegate
+
+- (instancetype)initWithSub:(subscription_t*) s
+{
+    if (self = [super init]) {
+	mSub = s; // weak
+    }
+    return self;
+}
+
+- (void) dealloc
+{
+    DEBUGF("RemoteNameDelegate dealloc");
+    [super dealloc];
+}
+
+- (void)remoteNameRequestComplete:(IOBluetoothDevice *)device status:(IOReturn)status
+{
+    if (status == kIOReturnSuccess) {
+	uint8_t buf[265];
+	ddata_t data;
+	NSString* name = [device name];
+
+	ddata_init(&data, buf, sizeof(buf), 0);
+	ddata_put_UINT32(&data, 0);
+	
+	ddata_put_tag(&data, REPLY_OK);
+	ddata_put_UINT32(&data, mSub->cmdid);
+	put_ns_string(&data, name);
+	ddata_send(&data, 1);
+	ddata_final(&data);
+    }
+    else
+	bt_error(mSub->cmdid, status);
+    // only for Inquiry objects
+    release_subscription(mSub);
+}
+
+@end
+
+// -----------------------------------------------------------------------
+//   SDPQueryDelegate
+// -----------------------------------------------------------------------
+
+@implementation SDPQueryDelegate
+
+- (instancetype)initWithSub:(subscription_t*) s andUUID:(IOBluetoothSDPUUID*) uuid
+{
+    DEBUGF("SDPQueryDelegate: alloc");
+    if (self = [super init]) {
+	mSub = s; // weak
+	mUUID = [uuid retain];
+    }
+    return self;
+}
+
+- (void) dealloc 
+{
+    DEBUGF("SDPQueryDelegate: dealloc");
+    [mUUID release];
+    [super dealloc];
+}
+
+- (void)sdpQueryComplete:(IOBluetoothDevice *)device status:(IOReturn)status
+{
+    uint8_t  out_buf[2048];
+    ddata_t data_out;
+
+    if (status == kIOReturnSuccess) {
+	ddata_init(&data_out, out_buf, sizeof(out_buf), 0);
+	ddata_put_UINT32(&data_out, 0);
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, mSub->cmdid);
+	bt_sdp_info(device, mUUID, &data_out);
+	ddata_send(&data_out, 1);
+	ddata_final(&data_out);
+    }
+    else
+	bt_error(mSub->cmdid, status);
+    // only for Inquiry objects
+    release_subscription(mSub);
+}
+@end
+
+// -----------------------------------------------------------------------
+//   Connectelegate
+// -----------------------------------------------------------------------
+
+@implementation ConnectDelegate
+
+- (instancetype)initWithSub:(subscription_t*) s
+{
+    if (self = [super init]) {
+	mSub = s; // weak
+    }
+    return self;
+}
+
+- (void) dealloc 
+{
+    DEBUGF("Connectelegate: dealloc");
+    [super dealloc];
+}
+
+
+- (void)connectionComplete:(IOBluetoothDevice *)device status:(IOReturn)status
+{
+    (void) device;
+    if (status == kIOReturnSuccess)
+	bt_ok(mSub->cmdid);
+    else
+	bt_error(mSub->cmdid, status);
+    release_subscription(mSub);
+}
+@end
+
+// -----------------------------------------------------------------------
+//   RFCOMMChannelDelegate
+// -----------------------------------------------------------------------
+
+@implementation RFCOMMChannelDelegate
+
+- (instancetype)initWithSub:(subscription_t*) s andCtx:(bt_ctx_t*) ctx
+{
+    if (self = [super init]) {
+	mSub = s; // weak
+	mCtx = ctx;
+    }
+    return self;
+}
+
+- (void) dealloc
+{
+    DEBUGF("RFCOMMChannelDelegate: dealloc");
+    [super dealloc];
+}
+
+- (void)rfcommChannelData:(IOBluetoothRFCOMMChannel*)rfcommChannel data:(void *)dataPointer length:(size_t)dataLength
+{
+    uint8_t buf[128];
+    ddata_t data;
+    (void) rfcommChannel;
+
+    DEBUGF("RFCOMMChannelDelegate: Data size=%d", dataLength);
+    ddata_init(&data, buf, sizeof(buf), 0);
+    ddata_put_UINT32(&data, 0);
+    ddata_put_tag(&data, REPLY_EVENT);
+    ddata_put_UINT32(&data, mSub->id);
+    ddata_put_tag(&data, TUPLE);
+    ddata_put_atom(&data, "data");
+    ddata_put_binary(&data, dataPointer, dataLength);
+    ddata_put_tag(&data, TUPLE_END);
+    ddata_send(&data, 1);
+    ddata_final(&data);
+}
+
+- (void)rfcommChannelOpenComplete:(IOBluetoothRFCOMMChannel*)rfcommChannel status:(IOReturn)error
+{
+    (void) rfcommChannel;
+    (void) error;
+    DEBUGF("RFCOMMChannelDelegate: OpenComplete error=%d", error);
+    bt_ok(mSub->cmdid);
+    mSub->cmdid = 0;
+}
+
+- (void)rfcommChannelClosed:(IOBluetoothRFCOMMChannel*)rfcommChannel
+{
+    (void) rfcommChannel;
+    DEBUGF("RFCOMMChannelDelegate: Closed");
+    if (mSub->cmdid == 0) {
+	uint8_t buf[64];
+	ddata_t data;
+	ddata_init(&data, buf, sizeof(buf), 0);
+	ddata_put_UINT32(&data, 0);
+	ddata_put_tag(&data, REPLY_EVENT);
+	ddata_put_UINT32(&data, mSub->id);
+	ddata_put_atom(&data, "closed");
+	ddata_send(&data, 1);
+	ddata_final(&data);
+    }
+    else {
+	bt_ok(mSub->cmdid);
+	mSub->cmdid = 0;
+    }
+    remove_subscription(&mCtx->list,RFCOMM,mSub->id);
+}
+
+- (void)rfcommChannelControlSignalsChanged:(IOBluetoothRFCOMMChannel*)rfcommChannel
+{
+    (void) rfcommChannel;
+    DEBUGF("RFCOMMChannelDelegate: ControlSignalsChanged");
+}
+
+- (void)rfcommChannelFlowControlChanged:(IOBluetoothRFCOMMChannel*)rfcommChannel
+{
+    if ([rfcommChannel isTransmissionPaused])
+	DEBUGF("RFCOMMChannelDelegate: FlowControlChanged OFF");
+    else
+	DEBUGF("RFCOMMChannelDelegate: FlowControlChanged ON");
+}
+
+- (void)rfcommChannelWriteComplete:(IOBluetoothRFCOMMChannel*)rfcommChannel refcon:(void*)refcon status:(IOReturn)error
+{
+    ddata_t* out = (ddata_t*) refcon;
+    uint32_t len;
+    (void) error;
+
+    // FIXME: handle error!
+
+    DEBUGF("RFCOMMChannelDelegate: WriteComplete");
+    if ((len=ddata_r_avail(out)) == 0) {
+	ddata_free(out);
+	bt_ok(mSub->cmdid);
+	mSub->cmdid = 0;
+    }
+    else {
+	BluetoothRFCOMMMTU mtu = [rfcommChannel getMTU];
+	uint8_t* ptr = out->wr;
+	IOReturn err;
+	if (len > mtu) len = mtu;
+	ddata_forward(out, len); /* move to next block */
+	err = [rfcommChannel writeAsync:ptr length:len refcon:out];
+	if (err != kIOReturnSuccess) {
+	    bt_error(mSub->cmdid, err);
+	    mSub->cmdid = 0;
+	    ddata_free(out);
+	}
+    }
+}
+
+- (void)rfcommChannelQueueSpaceAvailable:(IOBluetoothRFCOMMChannel*)rfcommChannel
+{
+    (void) rfcommChannel;
+    // FIXME: probably a good place to fill output data here ?
+    DEBUGF("RFCOMMChannelDelegate: QueueSpaceAvailable");
+}
+
+@end
+
+// -----------------------------------------------------------------------
+//   L2CAPChannelDelegate
+// -----------------------------------------------------------------------
+
+@implementation L2CAPChannelDelegate
+
+- (instancetype)initWithSub:(subscription_t*) s andCtx:(bt_ctx_t*) ctx
+{
+    if (self = [super init]) {
+	mSub = s; // weak
+	mCtx = ctx;
+    }
+    return self;
+}
+
+- (void) dealloc
+{
+    DEBUGF("L2CAPDelegate: dealloc");
+    [super dealloc];
+}
+
+- (void)l2capChannelData:(IOBluetoothL2CAPChannel*)l2capChannel data:(void *)dataPointer length:(size_t)dataLength
+{
+    uint8_t buf[128];
+    ddata_t data;
+    (void) l2capChannel;
+
+    DEBUGF("L2CAPChannelDelegate: Data size=%d", dataLength);
+    ddata_init(&data, buf, sizeof(buf), 0);
+    ddata_put_UINT32(&data, 0);
+    ddata_put_tag(&data, REPLY_EVENT);
+    ddata_put_UINT32(&data, mSub->id);
+    ddata_put_tag(&data, TUPLE);
+    ddata_put_atom(&data, "data");
+    ddata_put_binary(&data, dataPointer, dataLength);
+    ddata_put_tag(&data, TUPLE_END);
+    ddata_send(&data, 1);
+    ddata_final(&data);
+}
+
+- (void)l2capChannelOpenComplete:(IOBluetoothL2CAPChannel*)l2capChannel status:(IOReturn)error
+{
+    (void) l2capChannel;
+    (void) error;  // fixme check this
+    DEBUGF("L2CAPChannelDelegate: OpenComplete");
+    bt_ok(mSub->cmdid);
+    mSub->cmdid = 0;
+}
+
+- (void)l2capChannelClosed:(IOBluetoothL2CAPChannel*)l2capChannel
+{
+    (void) l2capChannel;
+    DEBUGF("L2CAPChannelDelegate: Closed this");
+    if (mSub->cmdid == 0) {
+	uint8_t buf[64];
+	ddata_t data;
+	    
+	ddata_init(&data, buf, sizeof(buf), 0);
+	ddata_put_UINT32(&data, 0);
+	ddata_put_tag(&data, REPLY_EVENT);
+	ddata_put_UINT32(&data, mSub->id);
+	ddata_put_atom(&data, "closed");
+	ddata_send(&data, 1);
+	ddata_final(&data);
+    }
+    else {
+	bt_ok(mSub->cmdid);
+    }
+    remove_subscription(&mCtx->list,L2CAP,mSub->id);
+}
+
+- (void)l2capChannelReconfigured:(IOBluetoothL2CAPChannel*)l2capChannel
+{
+    (void) l2capChannel;
+    DEBUGF("L2CAPChannelDelegate: Reconfigured");
+}
+
+- (void)l2capChannelWriteComplete:(IOBluetoothL2CAPChannel*)l2capChannel refcon:(void*)refcon status:(IOReturn)error
+{
+    ddata_t* out = (ddata_t*) refcon;
+    uint32_t len;
+    (void)error;
+
+    DEBUGF("L2CAPChannelDelegate: WriteComplete");
+    if ((len=ddata_r_avail(out)) == 0) {
+	ddata_free(out);
+	bt_ok(mSub->cmdid);
+	mSub->cmdid = 0;
+    }
+    else {
+	BluetoothL2CAPMTU mtu = [l2capChannel outgoingMTU];
+	uint8_t* ptr = out->wr;
+	IOReturn err;
+	if (len > mtu) len = mtu;
+	ddata_forward(out, len); /* move to next block */
+	err = [l2capChannel writeAsync:ptr length:len refcon:out];
+	if (err != kIOReturnSuccess) {
+	    bt_error(mSub->cmdid, err);
+	    mSub->cmdid=0;
+	    ddata_free(out);
+	}
+    }
+}
+
+- (void)l2capChannelQueueSpaceAvailable:(IOBluetoothL2CAPChannel*)l2capChannel
+{
+    (void) l2capChannel;
+    DEBUGF("L2CAPChannelDelegate: QueueSpaceAvailable");
+}
+
+@end
+
+// -----------------------------------------------------------------------
+
+
+/* check if we have a listner setup channel event listner */
+void rfcomm_accept(subscription_t* listen)
+{
+    listen_queue_t*  lq = (listen_queue_t*) listen->opaque;
+    bt_ctx_t* ctx = lq->ctx;
+
+    if (listen->type != RFCOMM_LISTEN) {
+	DEBUGF("RFCOMM: not a listen subscription", 0);
+    }
+    else if (lq->qh == lq->qt) {
+	DEBUGF("RFCOMM: listen queue empty");
+    }
+    else {
+	subscription_link_t* link;
+	
+	if ((link = lq->wait.last) == NULL) {  // peek
+	    DEBUGF("RFCOMM: no acceptor");
+	}
+	else {
+	    RFCOMMChannelDelegate* delegate;
+	    subscription_t* s = link->s;
+
+	    delegate = [[RFCOMMChannelDelegate alloc] initWithSub:s andCtx:ctx];
+
+	    /* loop until we find a working channel */
+	    while (lq->qh != lq->qt) {
+		IOBluetoothRFCOMMChannel* channel = 
+		    (IOBluetoothRFCOMMChannel*) lq->qelem[lq->qt];
+		IOReturn err;
+
+		lq->qelem[lq->qt] = NULL;
+		lq->qt = (lq->qt+1) % LISTEN_QUEUE_LENGTH;
+
+		err = [channel setDelegate:delegate];
+
+		if (err != kIOReturnSuccess) {
+		    DEBUGF("RFCOMM: accept error %d:", err);
+		    [channel closeChannel];
+		}
+		else {
+		    const BluetoothDeviceAddress* addr;
+		    BluetoothRFCOMMChannelID channel_id;
+		    IOBluetoothDevice* device;
+		    uint8_t buf[64];
+		    ddata_t data;
+		    
+		    if ((device = [channel getDevice]) == NULL) {
+			DEBUGF("RFCOMM: accept no device");
+			[channel closeChannel];
+			[channel release];
+			continue;
+		    }
+		    if ((addr = [device getAddress]) == NULL) {
+			DEBUGF("RFCOMM: accept no address");
+			[channel closeChannel];
+			[channel release];
+			continue;
+		    }
+		    s->handle = channel;
+		    s->accept = NULL;
+		    channel_id = [channel getChannelID];
+
+		    DEBUGF("RFCOMM: accept on %d", channel_id);
+
+		    unlink_subscription(link);
+
+		    /* send EVENT id {accept,Address,Channel} */
+		    ddata_init(&data, buf, sizeof(buf), 0);
+		    ddata_put_UINT32(&data, 0);
+		    ddata_put_tag(&data, REPLY_EVENT);
+		    ddata_put_UINT32(&data, s->id);
+		    ddata_put_tag(&data, TUPLE);
+		    ddata_put_atom(&data, "accept");
+		    ddata_put_addr(&data, addr);
+		    ddata_put_uint8(&data, channel_id);
+		    ddata_put_tag(&data, TUPLE_END);
+		    ddata_send(&data, 1);
+		    ddata_final(&data);
+		    return;
+		}
+	    }
+	    [delegate release];  // no working channel found
+	}
+    }
+}
+
+// special open callback ! 
+void cb_rfcomm_open(void * userRefCon, IOBluetoothUserNotificationRef inRef, IOBluetoothObjectRef objectRef )
+{
+    IOBluetoothRFCOMMChannel* channel = (IOBluetoothRFCOMMChannel*) objectRef;
+    subscription_t* listen = (subscription_t*) userRefCon;
+    listen_queue_t* lq = (listen_queue_t*) listen->opaque;
+    int qh_next;
+    (void) inRef;
+
+    DEBUGF("RFCOMM: OpenNotification", 0);
+    qh_next = (lq->qh+1) % LISTEN_QUEUE_LENGTH;
+    if (qh_next == lq->qt) {
+	DEBUGF("RFCOMM: listen queue full");
+	/* If queue is full possibly delete the oldest/newest ? */
+	// close it?
+	return;
+    }
+    else {
+	lq->qelem[lq->qh] = channel;
+	lq->qh = qh_next;
+	[channel retain];
+	rfcomm_accept(listen);
+    }
+}
+
+/* check if we have a listner setup channel event listner */
+void l2cap_accept(subscription_t* listen)
+{
+    listen_queue_t*  lq = (listen_queue_t*) listen->opaque;
+    bt_ctx_t* ctx = lq->ctx;
+
+    if (listen->type != L2CAP_LISTEN) {
+	DEBUGF("L2CAP: not a listen subscription", 0);
+    }
+    else if (lq->qh == lq->qt) {
+	DEBUGF("L2CAP: listen queue empty", 0);
+    }
+    else {
+	subscription_link_t* link;
+	
+	if ((link = lq->wait.last) == NULL) {  // peek
+	    DEBUGF("L2CAP: no acceptor");
+	}
+	else {
+	    L2CAPChannelDelegate* delegate;
+	    subscription_t* s = link->s;
+
+	    delegate = [[L2CAPChannelDelegate alloc] initWithSub:s andCtx:ctx];
+
+	    /* loop until we find a working channel */
+	    while (lq->qh != lq->qt) {
+		IOBluetoothL2CAPChannel* channel = 
+		    (IOBluetoothL2CAPChannel*) lq->qelem[lq->qt];
+		IOReturn err;
+		
+		lq->qelem[lq->qt] = NULL;
+		lq->qt = (lq->qt+1) % LISTEN_QUEUE_LENGTH;
+
+		err = [channel setDelegate:delegate];
+
+		if (err != kIOReturnSuccess) {
+		    DEBUGF("L2CAP: accept error %d:", err);
+		    [channel closeChannel];
+		    [channel release];
+		}
+		else {
+		    const BluetoothDeviceAddress* addr;
+		    BluetoothL2CAPPSM psm;
+		    IOBluetoothDevice* device;
+		    uint8_t buf[64];
+		    ddata_t data;
+		
+		    if ((device = [channel device]) == NULL) {
+			DEBUGF("L2CAP: accept no device", 0);
+			[channel closeChannel];
+			[channel release];
+			continue;
+		    }
+		    psm = [channel PSM];
+		    if ((addr = [device getAddress]) == NULL) {
+			DEBUGF("L2CAP: accept no address", 0);
+			[channel closeChannel];
+			[channel release];
+			continue;
+		    }
+		    DEBUGF("L2CAP: accept psm=%d", psm);
+		    s->handle = channel;
+		    s->accept = NULL;
+		    unlink_subscription(link);
+
+		    /* send EVENT id {accept,Address,Psm} */
+		    ddata_init(&data, buf, sizeof(buf), 0);
+		    ddata_put_UINT32(&data, 0);
+		    ddata_put_tag(&data, REPLY_EVENT);
+		    ddata_put_UINT32(&data, s->id);
+		    ddata_put_tag(&data, TUPLE);
+		    ddata_put_atom(&data, "accept");
+		    ddata_put_addr(&data, addr);
+		    ddata_put_uint16(&data, psm);
+		    ddata_put_tag(&data, TUPLE_END);
+		    ddata_send(&data, 1);
+		    ddata_final(&data);
+		    return;
+		}
+	    }
+	    [delegate release];  // no working channel found
+	}
+    }
+}
+
+void cb_l2cap_open(void * userRefCon, IOBluetoothUserNotificationRef inRef, IOBluetoothObjectRef objectRef )
+{
+    IOBluetoothL2CAPChannel* l2capChannel = 
+	(IOBluetoothL2CAPChannel*) objectRef;
+    subscription_t* listen = (subscription_t*) userRefCon;
+    listen_queue_t* lq = (listen_queue_t*) listen->opaque;
+    int qh_next;
+    (void) inRef;
+
+    DEBUGF("L2CAP: OpenNotification", 0);
+    qh_next = (lq->qh+1) % LISTEN_QUEUE_LENGTH;
+    if (qh_next == lq->qt) {
+	DEBUGF("L2CAP: listen queue full", 0);
+	/* If queue is full possibly delete the oldest/newest ? */
+	// close?
+	return;
+    }
+    else {
+	lq->qelem[lq->qh] = l2capChannel;
+	lq->qh = qh_next;
+	[l2capChannel retain];
+	l2cap_accept(listen);
+    }
+}
+
+
+void bt_command(bt_ctx_t* ctx, const uint8_t* src, uint32_t src_len)
+{
+    uint8_t  op = 0;
+    uint32_t cmdid = 0;
+    IOReturn bt_error = kIOReturnSuccess;
+    uint8_t  out_buf[2048];
+    ddata_t data_in;
+    ddata_t data_out;
+
+    // dump subscription list
+    if (dlog_debug_level == DLOG_DEBUG) {
+	subscription_link_t* p = ctx->list.first;
+	fprintf(stderr, "ctx.list = {");
+	while(p) {
+	    fprintf(stderr, " %s,", format_subscription(p->s));
+	    p = p->next;
+	}
+	fprintf(stderr, "}\r\n");
+    }
+
+    ddata_r_init(&data_in, (uint8_t*)src, src_len, 0);
+    ddata_init(&data_out, out_buf, sizeof(out_buf), 0);
+    ddata_put_UINT32(&data_out, 0);
+
+    if (!ddata_get_uint8(&data_in, &op))
+	goto badarg;
+    if (!ddata_get_uint32(&data_in, &cmdid))
+	goto badarg;
+
+    switch (op) {
+    case CMD_PING: {
+	DEBUGF("CMD_PING cmdid=%d", cmdid);
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	ddata_put_string(&data_out, "pong");
+	goto reply;
+    }
+
+    case CMD_DEBUG: {  // <<level>>
+	int level;
+	DEBUGF("CMD_DEBUG cmdid=%d", cmdid);
+	if (!ddata_get_int32(&data_in, &level))
+	    goto badarg;
+	dlog_set_debug(level);
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	goto reply;
+    }	
+
+    case CMD_PAIRED_DEVICES: {
+	NSArray* devices = [IOBluetoothDevice pairedDevices];
+	DEBUGF("CMD_PAIRED_DEVICE cmdid=%d", cmdid);
+
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	bt_device_list(devices, &data_out);
+	[devices release];
+	goto reply;
+    }
+
+    case CMD_FAVORITE_DEVICES: {
+	NSArray* devices = [IOBluetoothDevice favoriteDevices];
+
+	DEBUGF("CMD_FAVORITE_DEVICE cmdid=%d", cmdid);
+
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	bt_device_list(devices, &data_out);
+	[devices release];
+	goto reply;
+    }
+
+    case CMD_RECENT_DEVICES: {
+	NSArray* devices = [IOBluetoothDevice recentDevices:0];
+
+	DEBUGF("CMD_RECENT_DEVICES cmdid=%d", cmdid);
+	
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	bt_device_list(devices, &data_out);
+	[devices release];
+	goto reply;
+    }
+
+    case CMD_INQUIRY_START: { /* arguments: id:32 secs:32 */
+	/* FIXME: check that no inquery is running !!! */
+	uint32_t sid;
+	uint32_t secs;
+	InquiryDelegate* delegate;
+	IOBluetoothDeviceInquiry* inquiry;
+	subscription_t* s;
+	
+	/* NOTE: The behavior when running multiple inquery is
+	 * random (buggy, undefined?) use one at the time as
+	 * a work around 
+	 */
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if (!ddata_get_uint32(&data_in, &secs))
+	    goto badarg;
+
+	DEBUGF("CMD_INQUIRY_START cmdid=%d id=%u secs=%u", 
+	       cmdid, sid, secs);
+
+	if ((s = new_subscription(INQUIRY,sid,0,NULL,cleanup)) == NULL)
+	    goto mem_error;
+
+	delegate = [[InquiryDelegate alloc] initWithSub:s];
+	inquiry = [[IOBluetoothDeviceInquiry alloc] initWithDelegate:delegate];
+
+	s->handle = inquiry;
+	inquiry.inquiryLength = secs;
+	inquiry.updateNewDeviceNames = FALSE;
+	
+	bt_error=[inquiry start];
+	if (bt_error == kIOReturnSuccess) {
+	    insert_last(&ctx->list, s);
+	    goto ok;
+	}
+	else {
+	    release_subscription(s);
+	    [inquiry release];
+	    [delegate release];
+	    goto error;
+	}
+	break;
+    }
+
+    case CMD_INQUIRY_STOP: { /* arguments: id:32 */
+	uint32_t sid;
+	IOBluetoothDeviceInquiry* inquiry;
+	subscription_t* s;
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+
+	DEBUGF("CMD_INQUIRY_STOP cmdid=%d, sid=%u", cmdid, sid);
+
+	if ((s = find_subscription(&ctx->list,INQUIRY,sid)) == NULL)
+	    goto badarg;
+	inquiry = (IOBluetoothDeviceInquiry*)(s->handle);
+	[inquiry stop];
+	remove_subscription(&ctx->list,INQUIRY,sid);
+	goto ok;
+    }
+
+    case CMD_CONNECT: { /* arg = bt-address(6) [timeout:32 [auth:8]] */
+	BluetoothDeviceAddress bt_addr;
+	IOBluetoothDevice* device;
+	BluetoothHCIPageTimeout timeout = 0;
+	Boolean auth = FALSE;
+	Boolean opts = FALSE;
+	uint32_t milli;
+	ConnectDelegate* delegate;
+	subscription_t* s;
+
+	DEBUGF("CMD_CONNECT cmdid=%d", cmdid);
+
+	if(!get_address(&data_in, &bt_addr))
+	    goto badarg;
+	if (ddata_get_uint32(&data_in, &milli)) {
+	    opts = TRUE;
+	    if (milli == 0)
+		timeout = 0;
+	    else {
+		uint32_t t;
+		if (milli > 40960) 
+		    milli = 40960;
+		t = ((milli*1600) / 1000);
+		timeout = t;
+	    }
+	    if (!ddata_get_boolean(&data_in, &auth))
+		auth = FALSE;
+	    if (ddata_r_avail(&data_in) != 0)
+		goto badarg;
+	}
+	if ((s = new_subscription(CONNECT,0,cmdid,NULL,cleanup)) == NULL)
+	    goto mem_error;
+	if ((device = [IOBluetoothDevice deviceWithAddress:&bt_addr]) == NULL)
+	    goto badarg;
+	delegate = [[ConnectDelegate alloc] initWithSub:s];
+	if (opts)
+	    bt_error = [device openConnection:delegate
+			withPageTimeout:timeout
+			authenticationRequired: auth];
+	else
+	    bt_error = [device openConnection:delegate];
+	if (bt_error != kIOReturnSuccess) {
+	    [delegate release];
+	    release_subscription(s);
+	    goto error;
+	}
+	/* callback will do the rest */
+	break;
+    }
+
+    case CMD_DISCONNECT: { /* arg = bt-address(6)  */
+	BluetoothDeviceAddress bt_addr;
+	IOBluetoothDevice* device;
+
+	DEBUGF("CMD_DISCONNECT cmdid=%d", cmdid);
+
+	if(!get_address(&data_in, &bt_addr))
+	    goto badarg;
+	if (ddata_r_avail(&data_in) != 0)
+	    goto badarg;
+	if ((device = [IOBluetoothDevice deviceWithAddress:&bt_addr]) == NULL)
+	    goto badarg;
+	bt_error = [device closeConnection];
+	if (bt_error != kIOReturnSuccess)
+	    goto error;
+	goto ok;
+    }
+
+    case CMD_REMOTE_NAME: { /* arg = bt-address(6) timeout:32 */
+	/* FIXME: check that no inquery is running !!! */
+	BluetoothDeviceAddress bt_addr;
+	IOBluetoothDevice* device;
+	Boolean opts = FALSE;
+	uint32_t milli;
+	BluetoothHCIPageTimeout timeout;
+	RemoteNameDelegate* delegate;
+	subscription_t* s;
+
+	DEBUGF("CMD_REMOTE_NAME cmdid=%d", cmdid);
+
+	if(!get_address(&data_in, &bt_addr))
+	    goto badarg;
+
+	if (ddata_get_uint32(&data_in, &milli)) {
+	    opts = TRUE;
+
+	    if (milli == 0)
+		timeout = 0;
+	    else {
+		uint32_t t;
+		if (milli > 40960) 
+		    milli = 40960;
+		t = ((milli*1600) / 1000);
+		timeout = t;
+	    }
+	}
+
+	if (ddata_r_avail(&data_in) != 0)
+	    goto badarg;
+	if ((s = new_subscription(REMOTE_NAME,0,cmdid,NULL,cleanup)) == NULL)
+	    goto mem_error;
+	if ((device = [IOBluetoothDevice deviceWithAddress:&bt_addr]) == NULL)
+	    goto badarg;
+	delegate = [[RemoteNameDelegate alloc] initWithSub:s];
+	if (opts && (timeout != 0))
+	    bt_error = [device remoteNameRequest:delegate withPageTimeout:timeout];
+	else 
+	    bt_error = [device remoteNameRequest:delegate];
+	if (bt_error != kIOReturnSuccess) {
+	    [delegate release];
+	    release_subscription(s);
+	    goto error;
+	}
+	/* callback will do the rest */
+	break;
+    }
+
+    case CMD_DEVICE_INFO: { /* arg = bt-address(6) info-items */
+	BluetoothDeviceAddress bt_addr;
+	IOBluetoothDevice* device;
+
+	DEBUGF("CMD_DEVICE_INFO cmdid=%d", cmdid);
+
+	if(!get_address(&data_in, &bt_addr))
+	    goto badarg;
+	if ((device = [IOBluetoothDevice deviceWithAddress:&bt_addr]) == NULL)
+	    goto badarg;
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	bt_device_info(device, &data_in, &data_out);
+	goto reply;
+    }
+
+    case CMD_LOCAL_INFO: { /* arg = info-items */
+	DEBUGF("CMD_LOCAL_INFO cmdid=%d", cmdid);
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	bt_local_info(&data_in, &data_out);
+	goto reply;
+    }
+       
+    case CMD_SERVICE_INFO: { /* addr:48 [uuid:16|uuid:32|uuid:128] */
+	BluetoothDeviceAddress bt_addr;
+	IOBluetoothDevice* device;
+	IOBluetoothSDPUUID* uuid;
+	uint32_t n;
+
+	DEBUGF("CMD_SERVICE_INFO cmdid=%d", cmdid);
+
+	if(!get_address(&data_in, &bt_addr))
+	    goto badarg;
+	if ((device = [IOBluetoothDevice deviceWithAddress:&bt_addr]) == NULL)
+	    goto badarg;
+	n = ddata_r_avail(&data_in);
+	DEBUGF("SERVICE_INFO: avail=%d", n);
+	if (get_uuid(&data_in, &uuid)) {
+	    ddata_put_tag(&data_out, REPLY_OK);
+	    ddata_put_UINT32(&data_out, cmdid);
+	    bt_sdp_info(device, uuid, &data_out);
+	    goto reply;
+	}
+	goto badarg;
+    }
+
+    case CMD_SERVICE_QUERY: { /* addr:48 [uuid:16|uuid:32|uuid:128]*/
+	BluetoothDeviceAddress bt_addr;
+	IOBluetoothDevice* device;
+	IOBluetoothSDPUUID* uuid;
+	SDPQueryDelegate* delegate;
+	subscription_t* s;
+
+	DEBUGF("CMD_SERVICE_QUERY cmdid=%d", cmdid);
+
+	if(!get_address(&data_in, &bt_addr))
+	    goto badarg;
+	if(!get_uuid(&data_in, &uuid))
+	    goto badarg;
+	if ((device = [IOBluetoothDevice deviceWithAddress:&bt_addr]) == NULL)
+	    goto badarg;
+	if (ddata_r_avail(&data_in) != 0)
+	    goto badarg;
+
+	if ((s = new_subscription(SDP_QUERY,0,cmdid,NULL,cleanup)) == NULL)
+	    goto mem_error;
+	delegate = [[SDPQueryDelegate alloc] initWithSub:s andUUID:uuid];
+	// FIXME: add uuid match
+	bt_error = [device performSDPQuery:delegate];
+	if (bt_error != kIOReturnSuccess) {
+	    [delegate release];
+	    release_subscription(s);
+	    goto error;
+	}
+	goto done;
+    }
+
+    case CMD_SERVICE_DEL: { /* id:32 */
+	uint32_t sid;
+	subscription_link_t* link;
+
+	DEBUGF("CMD_SERVICE_DEL cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if (ddata_r_avail(&data_in) != 0)
+	    goto badarg;
+	DEBUGF("SERVICE_CLOSE: id=%d", sid);
+	if ((link=find_subscription_link(&ctx->list,SDP,sid)) != NULL) {
+	    unlink_subscription(link);
+	    goto ok;
+	}
+	goto badarg;
+    }
+
+    case CMD_SERVICE_ADD: { /* id:32 sdp-service-data/binary */
+	uint32_t sid;
+	NSDictionary* serviceDict;
+	IOBluetoothSDPServiceRecord* serviceRecord;
+
+	DEBUGF("CMD_SERVICE_ADD cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+
+	if ((serviceDict = bt_make_sdp_dict(&data_in)) == NULL)
+	    goto badarg;
+// #ifdef debug
+	/* DEBUG print the plist to file for debugging */
+	{
+	    id plist = serviceDict;       // Assume this property list exists.
+	    NSData *xmlData;
+	    NSError *error;
+	    NSString *path = [NSString stringWithUTF8String:"Service.plist"];
+	    xmlData = [NSPropertyListSerialization 
+		       dataWithPropertyList:plist
+		       format:NSPropertyListXMLFormat_v1_0
+		       options:0
+		       error:&error];
+	    if(xmlData) {
+		[xmlData writeToFile:path atomically:YES];
+	    }
+	    else {
+		NSLog(@"xmlData error %@", error);
+		[error release];
+	    }
+	}
+// #endif
+	// fixme: add "LocalAttributes"
+	// "Persistent" boolean()/integer(), 
+	// "TargetApplication"
+	serviceRecord = [IOBluetoothSDPServiceRecord
+			 publishedServiceRecordWithDictionary:serviceDict];
+	if (serviceRecord == NULL) {
+	    bt_error = kIOReturnNoMemory;
+	    goto error;
+	}
+	else {
+	    subscription_t* s;
+	    BluetoothSDPServiceRecordHandle serviceRecordHandle;
+
+	    if ((s = new_subscription(SDP,sid,cmdid,serviceRecord,cleanup)) 
+		== NULL)
+		goto mem_error;
+	    if (insert_last(&ctx->list, s) < 0)
+		goto mem_error;
+	    bt_error = [serviceRecord 
+			getServiceRecordHandle:&serviceRecordHandle];
+	    if (bt_error != kIOReturnSuccess)
+		goto error;
+	    ddata_put_tag(&data_out, REPLY_OK);
+	    ddata_put_UINT32(&data_out, cmdid);
+	    ddata_put_uint32(&data_out, serviceRecordHandle);
+	    goto reply;
+	}
+    }
+
+    case CMD_SERVICE_RFCOMM: { /* id:32 */
+	uint32_t sid;
+	subscription_t* s;
+
+	DEBUGF("CMD_SERVICE_RFCOMM cmdid=%d", cmdid);
+	
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if (ddata_r_avail(&data_in) != 0)
+	    goto badarg;
+	if ((s = find_subscription(&ctx->list,SDP,sid)) != NULL) { 
+	    BluetoothRFCOMMChannelID channelID;
+	    IOBluetoothSDPServiceRecord* serviceRecord = 
+		(IOBluetoothSDPServiceRecord*) s->handle;
+	    bt_error = [serviceRecord getRFCOMMChannelID:&channelID];
+	    if (bt_error == kIOReturnSuccess) {
+		ddata_put_tag(&data_out, REPLY_OK);
+		ddata_put_UINT32(&data_out, cmdid);
+		ddata_put_uint8(&data_out, channelID);
+		goto reply;
+	    }
+	    goto error;
+	}
+	goto badarg;
+    }
+
+    case CMD_RFCOMM_OPEN: { /* id:32 bt-address(6) channel-id:8 */
+	uint32_t sid;
+	BluetoothDeviceAddress bt_addr;
+	IOBluetoothDevice* device;
+	IOBluetoothRFCOMMChannel* channel;
+	BluetoothRFCOMMChannelID channel_id;
+	RFCOMMChannelDelegate* delegate;
+	subscription_t* s;
+
+	DEBUGF("CMD_RFCOMM_OPEN cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if(!get_address(&data_in, &bt_addr))
+	    goto badarg;
+	if(!ddata_get_uint8(&data_in, &channel_id))
+	    goto badarg;
+	if (!RFCOMM_CHANNEL_ID_IS_VALID(channel_id))
+	    goto badarg;
+	if (ddata_r_avail(&data_in) != 0)
+	    goto badarg;
+	if ((device = [IOBluetoothDevice deviceWithAddress:&bt_addr]) == NULL)
+	    goto badarg;
+
+	if ((s = new_subscription(RFCOMM,sid,cmdid,NULL,cleanup)) == NULL)
+	    goto mem_error;
+	delegate = [[RFCOMMChannelDelegate alloc] initWithSub:s andCtx:ctx];
+	bt_error = [device openRFCOMMChannelAsync:&channel
+				    withChannelID:channel_id 
+					 delegate:delegate];
+	if (bt_error == kIOReturnSuccess) {
+	    s->handle = channel;
+	    insert_last(&ctx->list, s);
+	    goto done;
+	}
+	else {
+	    [delegate release];
+	    release_subscription(s);
+	    goto error;
+	}
+	break;
+    }
+	
+    case CMD_RFCOMM_CLOSE: { /* arguments: id:32 */
+	uint32_t sid;
+	subscription_link_t* link;
+
+	DEBUGF("CMD_RFCOMM_CLOSE cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if (ddata_r_avail(&data_in) != 0)
+	    goto badarg;
+
+	if ((link = find_subscription_link(&ctx->list,RFCOMM,sid)) != NULL) {
+	    IOBluetoothRFCOMMChannel* rfcommChannel;
+	    subscription_t* s = link->s;
+	    s->cmdid = cmdid;
+	    rfcommChannel = (IOBluetoothRFCOMMChannel*) (s->handle);
+	    if (rfcommChannel != NULL) {
+		DEBUGF("RFCOMM_CLOSE: channel=%p", rfcommChannel);	       
+		bt_error = [rfcommChannel closeChannel];
+		if (bt_error == kIOReturnSuccess)
+		    goto done;
+	    }
+	    else if (s->accept != NULL) {
+		listen_queue_t* lq = (listen_queue_t*)((s->accept)->opaque);
+		remove_subscription(&lq->wait,RFCOMM,sid);
+		unlink_subscription(link);
+		goto ok;
+	    }
+	}
+	else if ((link = find_subscription_link(&ctx->list,RFCOMM_LISTEN,sid)) != NULL) {
+	    subscription_t* listen = link->s;
+	    listen_queue_t* lq = (listen_queue_t*)listen->opaque;
+	    subscription_link_t* link1;
+
+	    /* remove all waiters */
+	    while((link1=lq->wait.first) != NULL) {
+		bt_event(link1->s->id, "closed");
+		unlink_subscription(link1);
+	    }
+	    unlink_subscription(link);
+	    goto ok;
+	}
+	goto error;
+    }
+
+    case CMD_RFCOMM_LISTEN: { /* id:32,  channel:8 */
+	uint32_t sid;
+	BluetoothRFCOMMChannelID channel_id;
+	IOBluetoothUserNotificationRef ref;
+	subscription_t* listen;
+	listen_queue_t* lq;
+
+	DEBUGF("CMD_RFCOMM_LISTEN cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if(!ddata_get_uint8(&data_in, &channel_id))
+	    goto badarg;	
+	if ((channel_id != 0) && !RFCOMM_CHANNEL_ID_IS_VALID(channel_id))
+	    goto badarg;
+	if (ddata_r_avail(&data_in) != 0)
+	    goto badarg;
+
+	if ((listen = new_subscription(RFCOMM_LISTEN,sid,cmdid,NULL,cleanup))
+	    == NULL)
+	    goto mem_error;
+	if ((lq = alloc_type(listen_queue_t)) == NULL) {
+	    release_subscription(listen);
+	    goto mem_error;
+	}
+	lq->ctx = ctx;
+	listen->opaque = (void*) lq;
+
+	if (channel_id == 0)
+	    ref = IOBluetoothRegisterForRFCOMMChannelOpenNotifications(cb_rfcomm_open, (void*)listen);
+	else
+	    ref = IOBluetoothRegisterForFilteredRFCOMMChannelOpenNotifications(
+		cb_rfcomm_open, (void*) listen, channel_id,
+		kIOBluetoothUserNotificationChannelDirectionIncoming);
+	if (ref == NULL) {
+	    release_subscription(listen);
+	    goto mem_error;
+	}
+	listen->handle = ref;
+	insert_last(&ctx->list, listen);
+	goto ok;
+    }
+
+    case CMD_RFCOMM_ACCEPT: { /* id:32 listen_id:32 */
+	uint32_t sid;
+	uint32_t listen_id;
+	listen_queue_t* lq;
+	subscription_t* listen;
+	subscription_t* s;
+
+	DEBUGF("CMD_RFCOMM_ACCEPT cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if (!ddata_get_uint32(&data_in, &listen_id))
+	    goto badarg;
+	if (ddata_r_avail(&data_in) != 0)
+	    goto badarg;
+
+	if (find_subscription(&ctx->list,RFCOMM,sid) != NULL) {
+	    DEBUGF("subscription %d already exists", sid);
+	    goto badarg;
+	}
+	if ((listen = find_subscription(&ctx->list,
+					RFCOMM_LISTEN,listen_id))==NULL) {
+	    DEBUGF("listen subscription %d does not exists", listen_id);
+	    goto badarg;
+	}
+	if ((s = new_subscription(RFCOMM,sid,cmdid,NULL,cleanup)) == NULL)
+	    goto mem_error;
+	s->accept = listen;  // mark that we are accepting
+	lq = (listen_queue_t*) listen->opaque;
+	insert_last(&lq->wait, s);
+	insert_last(&ctx->list, s);
+
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	ddata_send(&data_out, 1);
+	rfcomm_accept(listen);
+	goto done;
+    }
+
+    case CMD_RFCOMM_SEND: { /* id:32, data/rest */
+	uint32_t sid;
+	subscription_t* s;
+	IOBluetoothRFCOMMChannel* rfcommChannel;
+	uint32_t len;
+	ddata_t* out;
+	uint8_t* ptr;
+	BluetoothRFCOMMMTU mtu;
+
+	DEBUGF("CMD_RFCOMM_SEND cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if ((s = find_subscription(&ctx->list,RFCOMM,sid)) == NULL)
+	    goto badarg;
+	rfcommChannel = (IOBluetoothRFCOMMChannel*)(s->handle);
+	if (rfcommChannel == NULL)
+	    goto badarg;
+	s->cmdid = cmdid;
+	/* we may have to retain the data while sending !!!
+	 * create a Data and pace the sending MTU wise...
+	 */
+	out = ddata_new(data_in.rd, ddata_r_avail(&data_in));
+	mtu = [rfcommChannel getMTU];
+	if ((len = ddata_r_avail(out)) > mtu)
+	    len = mtu;
+	ptr = out->wr;
+	ddata_forward(out, len); /* move to next block */
+	bt_error = [rfcommChannel writeAsync:ptr length:len refcon:out];
+	if (bt_error != kIOReturnSuccess)
+	    goto error;
+	/* event call back will do the rest ? */
+	goto done;
+    }
+
+    case CMD_RFCOMM_MTU: { /* id:32 */
+	uint32_t sid;
+	subscription_t* s;
+	IOBluetoothRFCOMMChannel* rfcommChannel;
+	BluetoothRFCOMMMTU mtu;
+
+	DEBUGF("CMD_RFCOMM_MTU cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if ((s = find_subscription(&ctx->list,RFCOMM,sid)) == NULL)
+	    goto badarg;
+	rfcommChannel = (IOBluetoothRFCOMMChannel*) (s->handle);
+	if (rfcommChannel == NULL)
+	    goto badarg;
+	mtu = [rfcommChannel getMTU];
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	ddata_put_uint16(&data_out, mtu);
+	goto reply;
+    }
+
+    case CMD_RFCOMM_ADDRESS: { /* id:32 */
+	uint32_t sid;
+	subscription_t* s;
+	IOBluetoothRFCOMMChannel* rfcommChannel;
+	const BluetoothDeviceAddress* addr;
+	IOBluetoothDevice* device;
+
+	DEBUGF("CMD_RFCOMM_ADDRESS cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if ((s = find_subscription(&ctx->list,RFCOMM,sid)) == NULL)
+	    goto badarg;
+	rfcommChannel = (IOBluetoothRFCOMMChannel*)(s->handle);
+	if (rfcommChannel == NULL)
+	    goto badarg;
+	if ((device = [rfcommChannel getDevice]) == NULL)
+	    goto badarg;
+	if ((addr = [device getAddress]) == NULL)
+	    goto badarg;
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	ddata_put_addr(&data_out, addr);
+	goto reply;
+    }
+
+    case CMD_RFCOMM_CHANNEL: { /* id:32 */
+	uint32_t sid;
+	subscription_t* s;
+	IOBluetoothRFCOMMChannel* rfcommChannel;
+	BluetoothRFCOMMChannelID channel_id;
+
+	DEBUGF("CMD_RFCOMM_CHANNEL cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if ((s = find_subscription(&ctx->list,RFCOMM,sid)) == NULL)
+	    goto badarg;
+	rfcommChannel = (IOBluetoothRFCOMMChannel*)(s->handle);
+	channel_id = [rfcommChannel getChannelID];
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	ddata_put_uint8(&data_out, channel_id);
+	goto reply;
+    }
+
+    case CMD_L2CAP_OPEN: { /* id:32 bt-address(6) psm:16 */
+	uint32_t sid;
+	BluetoothDeviceAddress bt_addr;
+	IOBluetoothDevice* device;
+	IOBluetoothL2CAPChannel* channel;
+	BluetoothL2CAPPSM psm;
+	subscription_t* s;
+	L2CAPChannelDelegate* delegate;
+
+	DEBUGF("CMD_L2CAP_OPEN cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if(!get_address(&data_in, &bt_addr))
+	    goto badarg;
+	if(!ddata_get_uint16(&data_in, &psm))
+	    goto badarg;
+	if (ddata_r_avail(&data_in) != 0)
+	    goto badarg;
+
+	if ((device = [IOBluetoothDevice deviceWithAddress:&bt_addr]) == NULL)
+	    goto badarg;
+
+	DEBUGF("L2CAP_OPEN; %d psm=%d", sid, psm);
+	
+	if ((s = new_subscription(L2CAP,sid,cmdid,NULL,cleanup)) == NULL)
+	    goto mem_error;
+	delegate = [[L2CAPChannelDelegate alloc] initWithSub:s andCtx:ctx];
+	bt_error = [device openL2CAPChannelAsync:&channel
+					 withPSM:psm
+					delegate:delegate];
+	if (bt_error == kIOReturnSuccess) {
+	    s->handle = channel;
+	    insert_last(&ctx->list, s);
+	    goto done;
+	}
+	else {
+	    [delegate release];
+	    release_subscription(s);
+	    goto error;
+	}
+	break;
+    }
+
+    case CMD_L2CAP_CLOSE: { /* arguments: id:32 */
+	uint32_t sid;
+	subscription_link_t* link;
+
+	DEBUGF("CMD_L2CAP_CLOSE cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if (ddata_r_avail(&data_in) != 0)
+	    goto badarg;
+	DEBUGF("L2CAP_CLOSE: id=%d", sid);
+	if ((link = find_subscription_link(&ctx->list,L2CAP,sid)) != NULL) {
+	    IOBluetoothL2CAPChannel* l2capChannel;
+	    subscription_t* s = link->s;
+	    s->cmdid = cmdid;
+	    l2capChannel = (IOBluetoothL2CAPChannel*)(s->handle);
+	    if (l2capChannel != NULL) {
+		DEBUGF("L2CAP_CLOSE: channel=%p", l2capChannel);
+		bt_error = [l2capChannel closeChannel];
+		if (bt_error == kIOReturnSuccess)
+		    goto done;
+		
+	    }
+	    else if (s->accept != NULL) {
+		listen_queue_t* lq = (listen_queue_t*)(s->accept)->opaque;
+		remove_subscription(&lq->wait,L2CAP,sid);
+		unlink_subscription(link);
+		goto ok;
+	    }
+	}
+	else if ((link = find_subscription_link(&ctx->list,L2CAP_LISTEN,sid))
+		 != NULL) {
+	    subscription_t* listen = link->s;
+	    listen_queue_t* lq = (listen_queue_t*)listen->opaque;
+	    subscription_link_t* link1;
+	    
+	    // move this code to free subscription ?
+	    /* remove all waiters */
+	    while((link1=lq->wait.first) != NULL) {
+		uint8_t buf[64];
+		ddata_t data;
+
+		ddata_init(&data, buf, sizeof(buf), 0);
+		ddata_put_UINT32(&data, 0);
+		ddata_put_tag(&data, REPLY_EVENT);
+		ddata_put_UINT32(&data, link1->s->id);
+		ddata_put_atom(&data, "closed");
+		ddata_send(&data, 1);
+		ddata_final(&data);
+		unlink_subscription(link1);
+	    }
+	    unlink_subscription(link);
+	    goto ok;
+	}
+	goto error;
+    }
+
+    case  CMD_L2CAP_LISTEN: { /* id:32, psm:16 */
+	uint32_t sid;
+	BluetoothL2CAPPSM psm;
+	IOBluetoothUserNotificationRef ref;
+	subscription_t* listen;
+	listen_queue_t* lq;
+
+	DEBUGF("CMD_L2CAP_LISTEN cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if(!ddata_get_uint16(&data_in, &psm))
+	    goto badarg;
+	if (ddata_r_avail(&data_in) != 0)
+	    goto badarg;
+
+	if ((listen = new_subscription(L2CAP_LISTEN,sid,cmdid,NULL,cleanup))
+	    == NULL)
+	    goto mem_error;
+	if ((lq = alloc_type(listen_queue_t)) == NULL) {
+	    release_subscription(listen);
+	    goto mem_error;
+	}
+	lq->ctx = ctx;
+	listen->opaque = (void*) lq;
+	if (psm == 0)
+	    ref = IOBluetoothRegisterForL2CAPChannelOpenNotifications(cb_l2cap_open, (void*) listen);
+	else
+	    ref = IOBluetoothRegisterForFilteredL2CAPChannelOpenNotifications(
+		cb_l2cap_open, (void*) listen, psm,
+		kIOBluetoothUserNotificationChannelDirectionIncoming);
+	if (ref == NULL) {
+	    release_subscription(listen);
+	    goto mem_error;
+	}
+	listen->handle = ref;
+	insert_last(&ctx->list, listen);
+	goto ok;
+    }
+
+    case  CMD_L2CAP_SEND: { /* id:32, data/rest */
+	uint32_t sid;
+	subscription_t* s;
+	IOBluetoothL2CAPChannel* l2capChannel;
+	uint32_t len;
+	ddata_t* out;
+	uint8_t* ptr;
+	BluetoothL2CAPMTU mtu;
+
+	DEBUGF("CMD_L2CAP_SEND cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if ((s = find_subscription(&ctx->list,L2CAP,sid)) == NULL)
+	    goto badarg;
+	l2capChannel = (IOBluetoothL2CAPChannel*)(s->handle);
+	if (l2capChannel == NULL)
+	    goto badarg;
+	s->cmdid = cmdid;
+	/* we may have to retain the data while sending !!!
+	 * create a Data and pace the sending MTU wise...
+	 */
+	out = ddata_new(data_in.rd, ddata_r_avail(&data_in));
+	mtu = [l2capChannel outgoingMTU];
+	if ((len = ddata_r_avail(out)) > mtu)
+	    len = mtu;
+	ptr = out->wr;
+	ddata_forward(out, len); /* move to next block */
+	bt_error = [l2capChannel writeAsync:ptr length:len refcon:out];
+	if (bt_error != kIOReturnSuccess)
+	    goto error;
+	/* event call back will do the rest ? */
+	goto done;
+    }
+
+    case  CMD_L2CAP_ACCEPT: { /* id:32 listen_id:32 */
+	uint32_t sid;
+	uint32_t listen_id;
+	listen_queue_t* lq;
+	subscription_t* listen;
+	subscription_t* s;
+
+	DEBUGF("CMD_L2CAP_ACCEPT cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if (!ddata_get_uint32(&data_in, &listen_id))
+	    goto badarg;
+	if (ddata_r_avail(&data_in) != 0)
+	    goto badarg;
+
+	if (find_subscription(&ctx->list,L2CAP,sid) != NULL) {
+	    DEBUGF("subscription %d already exists", sid);
+	    goto badarg;
+	}
+	if ((listen = find_subscription(&ctx->list,L2CAP_LISTEN,listen_id))
+	    ==NULL) {
+	    DEBUGF("listen subscription %d does not exists", listen_id);
+	    goto badarg;
+	}
+	if ((s = new_subscription(L2CAP,sid,cmdid,NULL,cleanup)) == NULL)
+	    goto mem_error;
+	s->accept = listen;  // mark that we are accepting
+	lq = (listen_queue_t*) listen->opaque;
+	insert_last(&lq->wait, s);
+	insert_last(&ctx->list, s);
+
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);	
+	ddata_send(&data_out, 1);
+	l2cap_accept(listen);
+	goto done;
+    }
+
+    case  CMD_L2CAP_MTU: {/* id:32 */
+	uint32_t sid;
+	subscription_t* s;
+	IOBluetoothL2CAPChannel* l2capChannel;
+	BluetoothL2CAPMTU mtu;
+
+	DEBUGF("CMD_L2CAP_MTU cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if ((s = find_subscription(&ctx->list,L2CAP,sid)) == NULL)
+	    goto badarg;
+	l2capChannel = (IOBluetoothL2CAPChannel*)(s->handle);
+	if (l2capChannel == NULL)
+	    goto badarg;
+	mtu = [l2capChannel outgoingMTU];
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	ddata_put_uint16(&data_out, mtu);
+	goto reply;
+    }
+
+    case  CMD_L2CAP_ADDRESS: { /* id:32 */
+	uint32_t sid;
+	subscription_t* s;
+	IOBluetoothL2CAPChannel* l2capChannel;
+	const BluetoothDeviceAddress* addr;
+	IOBluetoothDevice* device;
+
+	DEBUGF("CMD_L2CAP_ADDRESS cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if ((s = find_subscription(&ctx->list,L2CAP,sid)) == NULL)
+	    goto badarg;
+	l2capChannel = (IOBluetoothL2CAPChannel*) (s->handle);
+	if (l2capChannel == NULL)
+	    goto badarg;
+	if ((device = [l2capChannel device]) == NULL)
+	    goto badarg;
+	if ((addr = [device getAddress]) == NULL)
+	    goto badarg;
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	ddata_put_addr(&data_out, addr);
+	goto reply;
+    }
+
+    case  CMD_L2CAP_PSM: {/* id:32 */
+	uint32_t sid;
+	subscription_t* s;
+	IOBluetoothL2CAPChannel* l2capChannel;
+	BluetoothL2CAPPSM psm;
+
+	DEBUGF("CMD_L2CAP_PSM cmdid=%d", cmdid);
+
+	if (!ddata_get_uint32(&data_in, &sid))
+	    goto badarg;
+	if ((s = find_subscription(&ctx->list,L2CAP,sid)) == NULL)
+	    goto badarg;
+	l2capChannel = (IOBluetoothL2CAPChannel*) (s->handle);
+	psm = [l2capChannel PSM];
+	ddata_put_tag(&data_out, REPLY_OK);
+	ddata_put_UINT32(&data_out, cmdid);
+	ddata_put_uint16(&data_out, psm);
+	goto reply;
+    }
+
+    default:
+	DEBUGF("CMD_UNKNOWN = %d cmdid=%d", op, cmdid);
+	goto badarg;
+    }
+
+    goto done;
+
+ok:
+    if (cmdid == 0)
+	goto done;
+    ddata_put_tag(&data_out, REPLY_OK);
+    ddata_put_UINT32(&data_out, cmdid);
+    goto reply;
+
+mem_error:
+    if (cmdid == 0)
+	goto done;
+    bt_error = kIOReturnNoMemory;
+    goto error;
+
+badarg:
+    if (cmdid == 0)
+	goto done;
+    bt_error = kIOReturnBadArgument;
+
+error:
+/* reset, just in case something was inserted */
+    ddata_reset(&data_out);
+    ddata_put_UINT32(&data_out, 0);
+    ddata_put_tag(&data_out, REPLY_ERROR);
+    ddata_put_UINT32(&data_out, cmdid);
+    ddata_put_io_error(&data_out, bt_error, ERR_SHORT);
+reply:
+    ddata_send(&data_out, 1);
+done:
+    ddata_final(&data_out);
+}
+
+typedef CFSocketNativeHandle PipeNativeHandle;
+typedef CFSocketCallBack PipeCallBack;
+typedef CFSocketCallBackType PipeCallBackType;
+typedef CFSocketContext PipeContext;
+typedef CFSocketRef PipeRef;
+
+#define kPipeNoCallBack kCGSocketNoCallBack
+#define kPipeReadCallBack kCFSocketReadCallBack
+#define kPipeDataCallBack kCFSocketDataCallBack
+#define kPipeWriteCallBack kCFSocketWriteCallBack
+
+PipeRef PipeCreateWithNative(CFAllocatorRef allocator, 
+			     PipeNativeHandle pipe, 
+			     CFOptionFlags callBackTypes, 
+			     PipeCallBack callback, const PipeContext *context)
+{
+    return CFSocketCreateWithNative(allocator, pipe, 
+				    callBackTypes,
+				    callback,
+				    context);
+}
+
+CFRunLoopSourceRef PipeCreateRunLoopSource(CFAllocatorRef allocator, 
+					   PipeRef pipe, CFIndex order)
+{
+    return CFSocketCreateRunLoopSource(allocator, pipe, order);
+}
+
+
+/*
+ * Handle input commands from Erlang (or other program)
+ */
+
+void pipe_callback(PipeRef pipe, PipeCallBackType type, CFDataRef address,
+		   const void *data, void *info)
+{
+    bt_ctx_t* ctx = (bt_ctx_t*) info;
+    (void) address;
+    (void) data;
+
+    // DEBUGF("PIPE: callback type=%d", type);
+    if (type == kPipeReadCallBack) {
+	int fd = CFSocketGetNative(pipe);
+	int n;
+
+	if (ctx->pbuf_len < sizeof(ctx->pbuf)) {
+	    int r = sizeof(ctx->pbuf) - ctx->pbuf_len;
+	    if ((n = read(fd, ctx->pbuf+ctx->pbuf_len, r)) < 0)
+		goto error;
+	    if (n == 0)
+		goto closed;
+	    ctx->pbuf_len += n;
+	    // DEBUGF("READ: %d pbuf_len=%d", n, ctx->pbuf_len);
+	    if (ctx->pbuf_len == sizeof(ctx->pbuf)) {
+		ctx->len = (ctx->pbuf[0]<<24) + (ctx->pbuf[1]<<16) +
+		    (ctx->pbuf[2]<<8) + ctx->pbuf[3];
+		// DEBUGF("READ: %d packet len=%d", n, ctx->len);
+		if (ctx->len > 0) {
+		    ctx->remain = ctx->len;
+		    ctx->packet = (uint8_t*) malloc(ctx->len);
+		    ctx->ptr = ctx->packet;
+		}
+		else {
+		    ctx->remain = 0;
+		    ctx->pbuf_len = 0;
+		}
+	    }
+	}
+	else {
+	    if ((n = read(fd, (void*)ctx->ptr, ctx->remain)) < 0)
+		goto error;
+	    if (n == 0)
+		goto closed;
+	    // DEBUGF("READ: %d packet bytes", n);
+	    ctx->remain -= n;
+	    // DEBUGF("PACKET: remain=%d", ctx->remain);
+	    ctx->ptr += n;
+	    if (ctx->remain == 0) {
+		bt_command(ctx, ctx->packet, ctx->len);
+		free(ctx->packet);
+		ctx->packet = NULL;
+		ctx->len = 0;
+		ctx->pbuf_len = 0;
+	    }
+	}
+    }
+    // DEBUGF("PIPE: callback done",0);
+    return;
+
+error:
+    DEBUGF("pipe read error",0);
+    exit(1);
+
+closed:
+    DEBUGF("eof clean-up",0);
+    CFRunLoopStop(CFRunLoopGetCurrent());
+}
+
+
+
+int main(int argc, char** argv)
+{
+    PipeRef pipe_in;
+    PipeRef pipe_out;
+    PipeNativeHandle in_fd = 0;
+    PipeNativeHandle out_fd = 1;
+    CFRunLoopSourceRef pipe_ref;
+    NSAutoreleasePool *pool = [[NSAutoreleasePool alloc] init];
+    (void) argc;
+    (void) argv;
+// The global context (fixme - remove this)
+    bt_ctx_t bt_info;
+    PipeContext in_ctx;
+    PipeContext out_ctx;
+
+    dlog_init();
+
+    memset(&bt_info, 0, sizeof(bt_ctx_t));
+    memset(&in_ctx, 0, sizeof(PipeContext));
+    memset(&out_ctx, 0, sizeof(PipeContext));
+
+    in_ctx.info = &bt_info;
+    out_ctx.info = &bt_info;
+
+    // kCFSocketWriteCallBack
+
+    pipe_in = PipeCreateWithNative(0, in_fd, 
+				   kCFSocketReadCallBack,
+				   pipe_callback,
+				   &in_ctx);
+
+    pipe_out = PipeCreateWithNative(0, out_fd, 
+				    kCFSocketWriteCallBack,
+				    pipe_callback,
+				    &out_ctx);
+
+    pipe_ref = PipeCreateRunLoopSource(0, pipe_in, 0);
+
+    CFRunLoopAddSource(CFRunLoopGetCurrent(), pipe_ref, kCFRunLoopDefaultMode);
+
+    CFRunLoopRun();
+
+    [pool release];
+
+    dlog_finish();
+    DEBUGF("terminate",0);
+    exit(0);
+}
diff --git a/deps/bt/c_src/bt_poll.c b/deps/bt/c_src/bt_poll.c
new file mode 100644
index 0000000..306af01
--- /dev/null
+++ b/deps/bt/c_src/bt_poll.c
@@ -0,0 +1,142 @@
+//
+//  Utility to handle multiple poll and callbacks
+//
+
+#include <stdio.h>
+#include <stdlib.h>
+
+#include "dthread/include/dlog.h"
+#include "bt_poll.h"
+
+static int            poll_sz  = 0;     // allocated size
+static int            poll_n = 0;       // used len
+static int            poll_fdmapsz = 0; // size of fdmap
+static struct pollfd* poll_fds   = NULL;
+static event_cb_t*    poll_cb    = NULL;
+static void**         poll_data  = NULL;
+static int*           poll_fdmap = NULL;  // fd -> poll_fds index
+
+static inline int fd_to_pollix(int fd) 
+{
+    if ((fd < 0) || (fd >= poll_fdmapsz))
+	return -1;
+    return poll_fdmap[fd];
+}
+
+// change pollfd data
+int bt_poll_set_events(int fd, short events)
+{
+    int i;
+    if ((i = fd_to_pollix(fd)) < 0) return -1;
+    poll_fds[i].events = events;
+    return 0;
+}
+
+int bt_poll_set_cb(int fd, event_cb_t cb)
+{
+    int i;
+    if ((i = fd_to_pollix(fd)) < 0) return -1;
+    poll_cb[i] = cb;
+    return 0;
+}
+
+int bt_poll_set_data(int fd, void* data)
+{
+    int i;
+    if ((i = fd_to_pollix(fd)) < 0) return -1;
+    poll_data[i] = data;
+    return 0;
+}
+
+int bt_poll_add(int fd, short events,
+		void (*cb)(struct pollfd* pfd,void* data), 
+		void* data)
+{
+    int i = poll_n;
+    if (i == poll_sz) {
+	size_t new_sz = 2*poll_sz+1;
+	poll_fds  = realloc(poll_fds, new_sz*sizeof(struct pollfd));
+	if (poll_fds == NULL) return -1;
+	poll_cb   = realloc(poll_cb, new_sz*sizeof(event_cb_t));
+	if (poll_cb == NULL) return -1;
+	poll_data = realloc(poll_data, new_sz*sizeof(void*));
+	if (poll_data == NULL) return -1;
+	poll_sz = new_sz;
+    }
+    if (fd >= poll_fdmapsz) {
+	int new_sz = fd+64;  // add some extra
+	int j;
+	poll_fdmap = realloc(poll_fdmap, new_sz*sizeof(int));
+	if (poll_fdmap == NULL) return -1;
+	for (j = poll_fdmapsz; j < new_sz; j++)
+	    poll_fdmap[j] = -1;
+	poll_fdmapsz = new_sz;
+    }
+    poll_fdmap[fd] = i;
+    poll_cb[i] = cb;
+    poll_data[i] = data;
+    poll_fds[i].fd = fd;
+    poll_fds[i].events = events;
+    poll_n++;
+    return 0;
+}
+
+static void bt_poll_swap(int i, int j)
+{
+    if (i != j) {
+	int fdi = poll_fds[i].fd;
+	int fdj = poll_fds[j].fd;
+	struct pollfd fds = poll_fds[i];
+	event_cb_t cb     = poll_cb[i];
+	void* data        = poll_data[i];
+
+	poll_fds[i]  = poll_fds[j];
+	poll_cb[i]   = poll_cb[j];
+	poll_data[i] = poll_data[j];
+	
+	poll_fds[j]  = fds;
+	poll_cb[j]   = cb;
+	poll_data[j] = data;
+	// remap indices
+	poll_fdmap[fdi] = j;
+	poll_fdmap[fdj] = i;
+    }
+}
+
+// find and remove the pollfd
+int bt_poll_del(int fd)
+{
+    int i;
+
+    if ((i = fd_to_pollix(fd)) < 0) return -1;
+    bt_poll_swap(i, poll_n-1);
+    poll_n--;
+    poll_fdmap[fd] = -1;  // not mapped any more
+    return 0;
+}
+
+int bt_poll(int timeout)
+{
+    int r,r0;
+
+    r = r0 = poll(poll_fds, poll_n, timeout);
+    if (r > 0) {
+	int i = 0;
+	while((r > 0) && (i < (int)poll_n)) {
+	    if ((poll_fds[i].revents & poll_fds[i].events) != 0) {
+		int j = poll_n-1;
+		// swap i and the last item, this makes the poll set less
+		// sensitive to starvation, the bt_poll_del may also be
+		// called in the callback without wory, note that 
+		// you can not del any fd in a callback and expect to 
+		// get a poll on all fds in the same loop (yet)
+		bt_poll_swap(i, j);
+		(*poll_cb[j])(&poll_fds[j], poll_data[j]);
+		r--;
+	    }
+	    else
+		i++;
+	}
+    }
+    return r0;
+}
diff --git a/deps/bt/c_src/bt_poll.h b/deps/bt/c_src/bt_poll.h
new file mode 100644
index 0000000..bd92479
--- /dev/null
+++ b/deps/bt/c_src/bt_poll.h
@@ -0,0 +1,17 @@
+#ifndef __BT_POLL_H__
+#define __BT_POLL_H__
+
+#include <poll.h>
+
+typedef void (*event_cb_t)(struct pollfd*, void*);
+
+extern int bt_poll_add(int fd, short events, event_cb_t cb, void* data);
+extern int bt_poll_del(int fd);
+
+extern int bt_poll_set_events(int fd, short events);
+extern int bt_poll_set_cb(int fd, event_cb_t cb);
+extern int bt_poll_set_data(int fd, void* data);
+
+extern int bt_poll(int timeout);
+
+#endif
diff --git a/deps/bt/c_src/bt_sub.c b/deps/bt/c_src/bt_sub.c
new file mode 100644
index 0000000..2da8e02
--- /dev/null
+++ b/deps/bt/c_src/bt_sub.c
@@ -0,0 +1,236 @@
+//
+// Subscription handling
+//
+
+#include <stdio.h>
+#include <string.h>
+
+#include "dthread/include/dlog.h"
+#include "bt_sub.h"
+
+#define alloc_type(type) calloc(1, sizeof(type))
+
+static char* format_subscription_type(subscription_type_t type)
+{
+    switch(type) {
+    case INQUIRY: return "INQUIRY";
+    case REMOTE_NAME: return "REMOTE_NAME";
+    case CONNECT: return "CONNECT";
+    case SDP_QUERY: return "SPD_QUERY";
+    case SDP: return "SDP";
+    case RFCOMM: return "RFCOMM";
+    case RFCOMM_LISTEN: return "RFCOMM_LISTEN";
+    case L2CAP: return "LPCAP";
+    case L2CAP_LISTEN: return "LPCAP_LISTEN";
+    default: return "????";
+    }
+}
+
+char* format_subscription(subscription_t* s)
+{
+    static char format_buf[128];
+
+    snprintf(format_buf, sizeof(format_buf), 
+	     "%s id=%u,handle=%p ref=%u", 
+	     format_subscription_type(s->type),
+	     s->id, s->handle, s->ref);
+    return format_buf;
+}
+
+
+subscription_t* new_subscription(subscription_type_t type,
+				 uint32_t id, uint32_t cmdid,
+				 void* handle,
+				 void (*cleanup)(subscription_t* s))
+{
+    subscription_t* s = alloc_type(subscription_t);
+    s->type = type;
+    s->id = id;
+    s->cmdid = cmdid;
+    s->handle = handle;
+    s->opaque = NULL;
+    s->ref = 0;
+    s->accept = NULL;
+    s->cleanup = cleanup;
+    return s;
+}
+
+subscription_list_t* new_subscription_list()
+{
+    subscription_list_t* list = alloc_type(subscription_list_t);
+    return list;
+}
+
+subscription_t* retain_subscription(subscription_t* s)
+{
+    if (s == NULL) {
+	DEBUGF("retain_subscription: NULL");
+    }
+    else {
+	DEBUGF("retain_subscription: %s", format_subscription(s));
+	s->ref++;
+    }
+    return s;
+}
+
+subscription_link_t* new_subscription_link(subscription_list_t* list,
+					   subscription_t* s)
+{
+    subscription_link_t* link = alloc_type(subscription_link_t);
+    if (link) {
+	link->list = list;
+	link->s    = retain_subscription(s);
+    }
+    return link;
+}
+
+subscription_t* release_subscription(subscription_t* s)
+{
+    DEBUGF("release_subscription: %s", format_subscription(s));
+    if (s->ref <= 1) {
+	if (s->cleanup)
+	    (*s->cleanup)(s);
+	if (s->opaque != NULL)
+	    free(s->opaque);
+	free(s);
+	return NULL;
+    }
+    else  {
+	s->ref--;
+	return s;
+    }
+}
+
+subscription_link_t* insert_after_link(subscription_link_t* link,
+				       subscription_link_t* after_link)
+{
+    subscription_list_t* list = after_link->list;
+    link->next = after_link->next;
+    link->prev = after_link;
+    link->list = list;
+    after_link->next = link;
+    if (link->next == NULL)
+        list->last = link;
+    else
+        link->next->prev = link;
+    list->length++;
+    return link;
+}
+
+subscription_link_t* insert_before_link(subscription_link_t* link,
+					subscription_link_t* before_link)
+{
+    if (before_link->prev != NULL)
+        return insert_after_link(link, before_link->prev);
+    else {
+	subscription_list_t* list = before_link->list;
+        link->next = before_link;
+	link->list = list;
+        before_link->prev = link;
+        list->first = link;
+	list->length++;
+    }
+    return link;
+}
+
+int insert_link_first(subscription_link_t* link)
+{
+    if (link != NULL) {
+	subscription_list_t* list = link->list;
+	link->next = list->first;
+	link->prev = NULL;
+	if (list->first != NULL)
+	    list->first->prev = link;
+	else
+	    list->last = link;
+	list->first = link;
+	list->length++;
+	return 0;
+    }
+    return -1;
+}
+
+int insert_first(subscription_list_t* list, subscription_t* s)
+{
+    subscription_link_t* link = new_subscription_link(list,s);
+    return insert_link_first(link);
+}
+
+int insert_link_last(subscription_link_t* link)
+{
+    if (link != NULL) {
+	subscription_list_t* list = link->list;
+	link->next = NULL;
+	link->prev = list->last;
+	if (list->last)
+	    list->last->next = link;
+	else
+	    list->first = link;
+	list->last = link;
+	list->length++;
+	return 0;
+    }
+    return -1;
+}
+
+
+int insert_last(subscription_list_t* list, subscription_t*s)
+{
+    subscription_link_t* link = new_subscription_link(list,s);
+    return insert_link_last(link);
+}
+
+subscription_link_t* find_subscription_link(subscription_list_t* list,
+					    subscription_type_t type, 
+					    uint32_t sid)
+{
+    subscription_link_t* p = list->first;
+    DEBUGF("find_subscription_link: %s id=%u",
+	   format_subscription_type(type), sid);
+    while(p) {
+	if ((p->s->id == sid) && (p->s->type == type))
+	    return p;
+	p = p->next;
+    }
+    return NULL;
+}
+
+subscription_t* find_subscription(subscription_list_t* list,
+				  subscription_type_t type, 
+				  uint32_t sid)
+{
+    subscription_link_t* p = find_subscription_link(list, type, sid);
+    if (p != NULL)
+	return p->s;
+    return NULL;
+}
+
+void unlink_subscription(subscription_link_t* link)
+{
+    subscription_list_t* list = link->list;
+    DEBUGF("unlink_subscription: %s", format_subscription(link->s));
+    if (link->prev != NULL)
+	link->prev->next = link->next;
+    else
+	list->first = link->next;
+
+    if (link->next != NULL)
+	link->next->prev = link->prev;
+    else
+	list->last = link->prev;
+    list->length--;
+    release_subscription(link->s);
+    free(link);
+}
+
+int remove_subscription(subscription_list_t* list,
+			subscription_type_t type, uint32_t sid)
+{
+    subscription_link_t* link;
+
+    if ((link = find_subscription_link(list, type, sid)) != NULL) {
+	unlink_subscription(link);
+	return 1;
+    }
+    return 0;
+}
diff --git a/deps/bt/c_src/bt_sub.h b/deps/bt/c_src/bt_sub.h
new file mode 100644
index 0000000..75aed8a
--- /dev/null
+++ b/deps/bt/c_src/bt_sub.h
@@ -0,0 +1,82 @@
+#ifndef __BT_SUB_H__
+#define __BT_SUB_H__
+
+#include <stdlib.h>
+#include <stdint.h>
+
+#include "dthread/include/ddata.h"
+
+typedef enum { 
+    INQUIRY,
+    REMOTE_NAME,
+    CONNECT,
+    SDP_QUERY,
+    SDP,
+    RFCOMM,
+    RFCOMM_LISTEN,
+    L2CAP,
+    L2CAP_LISTEN
+} subscription_type_t;
+
+typedef struct _subscription_t
+{
+    uint32_t              ref;       // ref count
+    subscription_type_t   type;      // type of subscription
+    uint32_t              id;        // subscription id
+    uint32_t              cmdid;     // current async cmdid (if any)
+    void*                 handle;    // Bluetooth object handle
+    void*                 opaque;    // subscription data
+    ddata_t*              out;       // send buffer
+    void (*cleanup)(struct _subscription_t* s); // clean up callback
+    struct _subscription_t* accept;  // if on accept list
+} subscription_t;
+
+typedef struct _subscription_link_t
+{
+    struct _subscription_list_t* list;
+    struct _subscription_link_t* next;
+    struct _subscription_link_t* prev;
+    subscription_t* s;
+} subscription_link_t;
+
+typedef struct _subscription_list_t
+{
+    subscription_link_t* first;
+    subscription_link_t* last;
+    size_t length;
+} subscription_list_t;
+
+extern char* format_subscription(subscription_t* s);
+extern subscription_t* new_subscription(subscription_type_t type,
+					uint32_t id, uint32_t cmdid,
+					void* handle,
+					void (*cleanup)(subscription_t* s));
+extern subscription_list_t* new_subscription_list(void);
+extern subscription_t* retain_subscription(subscription_t* s);
+extern subscription_link_t* new_subscription_link(subscription_list_t* list,
+						  subscription_t* s);
+extern void free_subscription(subscription_t* s);
+extern subscription_t* release_subscription(subscription_t* s);
+extern subscription_link_t* insert_after_link(subscription_link_t* link,
+					      subscription_link_t* after_link);
+extern subscription_link_t* insert_before_link(subscription_link_t* link,
+					       subscription_link_t* before_link);
+extern int insert_link_first(subscription_link_t* link);
+extern int insert_first(subscription_list_t* list, subscription_t* s);
+extern int insert_link_last(subscription_link_t* link);
+extern int insert_last(subscription_list_t* list, subscription_t*s);
+extern subscription_link_t* find_subscription_link(subscription_list_t* list,
+						   subscription_type_t type, 
+						   uint32_t sid);
+extern subscription_t* find_subscription(subscription_list_t* list,
+					 subscription_type_t type, 
+					 uint32_t sid);
+extern void unlink_subscription(subscription_link_t* link);
+extern int remove_subscription(subscription_list_t* list,
+			       subscription_type_t type, uint32_t sid);
+
+
+
+
+
+#endif
diff --git a/deps/bt/c_src/hci_drv.c b/deps/bt/c_src/hci_drv.c
new file mode 100644
index 0000000..e3e9359
--- /dev/null
+++ b/deps/bt/c_src/hci_drv.c
@@ -0,0 +1,1009 @@
+/**** BEGIN COPYRIGHT ********************************************************
+ *
+ * Copyright (C) 2015 Rogvall Invest AB, <tony@rogvall.se>
+ *
+ * This software is licensed as described in the file COPYRIGHT, which
+ * you should have received as part of this distribution. The terms
+ * are also available at http://www.rogvall.se/docs/copyright.txt.
+ *
+ * You may opt to use, copy, modify, merge, publish, distribute and/or sell
+ * copies of the Software, and permit persons to whom the Software is
+ * furnished to do so, under the terms of the COPYRIGHT file.
+ *
+ * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+ * KIND, either express or implied.
+ *
+ **** END COPYRIGHT **********************************************************/
+
+#include <stdio.h>
+#include <stdarg.h>
+#include <stdint.h>
+#include <string.h>
+#include <unistd.h>
+#include <errno.h>
+#include <fcntl.h>
+#include <sys/ioctl.h>
+#include <sys/socket.h>
+#include <asm/types.h>
+#include <bluetooth/bluetooth.h>
+#include <bluetooth/hci.h>
+
+#include "erl_driver.h"
+
+#define ATOM(NAME) am_ ## NAME
+#define INIT_ATOM(NAME) am_ ## NAME = driver_mk_atom(#NAME)
+
+// Hack to handle R15 driver used with pre R15 driver
+#if ERL_DRV_EXTENDED_MAJOR_VERSION == 1
+typedef int  ErlDrvSizeT;
+typedef int  ErlDrvSSizeT;
+#endif
+
+#if (ERL_DRV_EXTENDED_MAJOR_VERSION > 2) || ((ERL_DRV_EXTENDED_MAJOR_VERSION == 2) && (ERL_DRV_EXTENDED_MINOR_VERSION >= 1))
+#define SEND_TERM(ctx, to, message, len) erl_drv_send_term((ctx)->dport,(to),(message),(len))
+#else
+#define SEND_TERM(ctx, to, message, len) driver_send_term((ctx)->port,(to),(message),(len))
+#endif
+
+#define PORT_CONTROL_BINARY
+
+#define INT_EVENT(ptr)   ((int)((long)(ptr)))
+
+typedef struct _hci_drv_ctx_t {
+    ErlDrvPort       port;
+    ErlDrvTermData   dport;
+    ErlDrvTermData   owner;
+    ErlDrvEvent      fd;       // socket
+    int              protocol;  // bt protocol
+    int              active;    
+    int              is_selecting;
+    int              is_sending;
+    int              dev_id;        // bound device id 
+    void*            hcibuf;
+    size_t           hcibuf_len;
+} hci_drv_ctx_t;
+
+
+#define CMD_ACTIVE         1
+#define CMD_DEBUG          2
+#define CMD_BIND           3
+#define CMD_GETFILTER      4
+#define CMD_SETFILTER      5
+
+#define CMD_HCIDEVUP	   201
+#define CMD_HCIDEVDOWN	   202
+#define CMD_HCIDEVRESET	   203
+#define CMD_HCIDEVRESTAT   204
+#define CMD_HCIGETDEVLIST  210
+#define CMD_HCIGETDEVINFO  211
+#define CMD_HCIGETCONNLIST 212
+#define CMD_HCIGETCONNINFO 213
+#define CMD_HCIGETAUTHINFO 215
+#define CMD_HCISETRAW	   220
+#define CMD_HCISETSCAN	   221
+#define CMD_HCISETAUTH	   222
+#define CMD_HCISETENCRYPT  223
+#define CMD_HCISETPTYPE	   224
+#define CMD_HCISETLINKPOL  225
+#define CMD_HCISETLINKMODE 226
+#define CMD_HCISETACLMTU   227
+#define CMD_HCISETSCOMTU   228
+#define CMD_HCIBLOCKADDR   230
+#define CMD_HCIUNBLOCKADDR 231
+#define CMD_HCIINQUIRY	   240
+
+#define CTL_OK     0
+#define CTL_INT    1
+#define CTL_PAIR   2
+#define CTL_BIN    3
+#define CTL_LIST   4
+#define CTL_ERR    255
+#define CTL_STRERR 254
+
+#define MIN_HCI_BUFSIZE (32*1024)
+#define MAX_HCI_BUFSIZE (512*1024)
+
+#define MAX_CONN 10
+
+#define MAX_VSIZE 16
+
+ErlDrvTermData am_ok;
+ErlDrvTermData am_error;
+ErlDrvTermData am_undefined;
+ErlDrvTermData am_true;
+ErlDrvTermData am_false;
+
+#define push_atom(atm) do {			\
+	message[i++] = ERL_DRV_ATOM;		\
+	message[i++] = (atm);			\
+    } while(0)
+
+#define push_port(prt) do {			\
+	message[i++] = ERL_DRV_PORT;		\
+	message[i++] = (prt);			\
+    } while(0)
+
+#define push_pid(pid) do {			\
+	message[i++] = ERL_DRV_PID;		\
+	message[i++] = (pid);			\
+    } while(0)
+
+#define push_bin(buf,len) do {			\
+	message[i++] = ERL_DRV_BUF2BINARY;	\
+	message[i++] = (ErlDrvTermData)(buf);	\
+	message[i++] = (ErlDrvTermData)(len);	\
+    } while(0)
+
+#define push_nil() do {			\
+	message[i++] = ERL_DRV_NIL;	\
+    } while(0)
+
+#define push_string(str) do {			\
+	message[i++] = ERL_DRV_STRING;		\
+	message[i++] = (ErlDrvTermData) (str);	\
+	message[i++] = strlen(str);		\
+    } while(0)
+
+#define push_int(val) do {			\
+	message[i++] = ERL_DRV_INT;		\
+	message[i++] = (val);			\
+    } while(0)
+
+#define push_tuple(n) do {			\
+	message[i++] = ERL_DRV_TUPLE;		\
+	message[i++] = (n);			\
+    } while(0)
+
+#define push_list(n) do {			\
+	message[i++] = ERL_DRV_LIST;		\
+	message[i++] = (n);			\
+    } while(0)
+
+
+ErlDrvEntry hci_drv_entry;
+
+static inline uint32_t get_uint32(uint8_t* ptr)
+{
+  uint32_t value = (ptr[0]<<24) | (ptr[1]<<16) | (ptr[2]<<8) | (ptr[3]<<0);
+  return value;
+}
+
+static inline int32_t get_int32(uint8_t* ptr)
+{
+  uint32_t value = (ptr[0]<<24) | (ptr[1]<<16) | (ptr[2]<<8) | (ptr[3]<<0);
+  return (int32_t) value;
+}
+
+static inline uint16_t get_uint16(uint8_t* ptr)
+{
+  uint16_t value = (ptr[0]<<8) | (ptr[1]<<0);
+  return value;
+}
+
+static inline uint8_t get_uint8(uint8_t* ptr)
+{
+  return ptr[0];
+}
+
+static inline int8_t get_int8(uint8_t* ptr)
+{
+  return (int8_t) ptr[0];
+}
+
+static inline void put_uint8(uint8_t* ptr, uint8_t v)
+{
+  ptr[0] = v;
+}
+
+static inline void put_uint16(uint8_t* ptr, uint16_t v)
+{
+  ptr[0] = v>>8;
+  ptr[1] = v;
+}
+
+static inline void put_uint32(uint8_t* ptr, uint32_t v)
+{
+  ptr[0] = v>>24;
+  ptr[1] = v>>16;
+  ptr[2] = v>>8;
+  ptr[3] = v;
+}
+
+static uint8_t* put_hci_dev_stats(uint8_t* ptr, struct hci_dev_stats* sp)
+{
+  put_uint32(ptr, sp->err_rx); ptr += sizeof(sp->err_rx);
+  put_uint32(ptr, sp->err_tx); ptr += sizeof(sp->err_tx);
+  put_uint32(ptr, sp->cmd_tx); ptr += sizeof(sp->cmd_tx);
+  put_uint32(ptr, sp->evt_rx); ptr += sizeof(sp->evt_rx);
+  put_uint32(ptr, sp->acl_tx); ptr += sizeof(sp->acl_tx);
+  put_uint32(ptr, sp->acl_rx); ptr += sizeof(sp->acl_rx);
+  put_uint32(ptr, sp->sco_tx); ptr += sizeof(sp->sco_tx);
+  put_uint32(ptr, sp->sco_rx); ptr += sizeof(sp->sco_rx);
+  put_uint32(ptr, sp->byte_tx); ptr += sizeof(sp->byte_tx);
+  put_uint32(ptr, sp->byte_rx); ptr += sizeof(sp->byte_rx);
+  return ptr;
+};
+
+static uint8_t* put_hci_dev_info(uint8_t* ptr, struct hci_dev_info* di)
+{
+  put_uint16(ptr, di->dev_id); ptr += sizeof(di->dev_id);
+  memcpy(ptr, di->name, sizeof(di->name)); ptr += sizeof(di->name);
+  memcpy(ptr, &di->bdaddr, sizeof(di->bdaddr)); ptr += sizeof(di->bdaddr);
+  put_uint32(ptr, di->flags); ptr += sizeof(di->flags);
+  put_uint8(ptr, di->type); ptr += sizeof(di->type);
+  memcpy(ptr, di->features, sizeof(di->features)); ptr += sizeof(di->features);
+  put_uint32(ptr, di->pkt_type); ptr += sizeof(di->pkt_type);
+  put_uint32(ptr, di->link_policy); ptr += sizeof(di->link_policy);
+  put_uint32(ptr, di->link_mode); ptr += sizeof(di->link_mode);
+
+  put_uint16(ptr, di->acl_mtu); ptr += sizeof(di->acl_mtu);
+  put_uint16(ptr, di->acl_pkts); ptr += sizeof(di->acl_pkts);
+  put_uint16(ptr, di->sco_mtu); ptr += sizeof(di->sco_mtu);
+  put_uint16(ptr, di->sco_pkts); ptr += sizeof(di->sco_pkts);
+
+  return put_hci_dev_stats(ptr, &di->stat);
+}
+
+static uint8_t* put_hci_conn_info(uint8_t* ptr, struct hci_conn_info* ci)
+{
+  put_uint16(ptr, ci->handle);
+  ptr += sizeof(ci->handle);
+  memcpy(ptr, &ci->bdaddr, sizeof(ci->bdaddr));
+  ptr += sizeof(ci->bdaddr);
+  put_uint8(ptr, ci->type);
+  ptr += sizeof(ci->type);
+  put_uint8(ptr, ci->out);
+  ptr += sizeof(ci->out);
+  put_uint16(ptr, ci->state);
+  ptr += sizeof(ci->state);
+  put_uint32(ptr, ci->link_mode);
+  ptr += sizeof(ci->link_mode);
+  return ptr;
+}
+
+static uint8_t* put_hci_filter(uint8_t* ptr, struct hci_filter* fp)
+{
+  put_uint32(ptr, fp->type_mask); ptr += sizeof(fp->type_mask);
+  put_uint32(ptr, fp->event_mask[0]); ptr += sizeof(fp->event_mask[0]);
+  put_uint32(ptr, fp->event_mask[1]); ptr += sizeof(fp->event_mask[1]);
+  put_uint16(ptr, fp->opcode); ptr += sizeof(fp->opcode);
+  return ptr;
+}
+
+static uint8_t* get_hci_filter(uint8_t* ptr, struct hci_filter* fp)
+{
+
+  fp->type_mask = get_uint32(ptr); ptr += sizeof(fp->type_mask);
+  fp->event_mask[0] = get_uint32(ptr); ptr += sizeof(fp->event_mask[0]);
+  fp->event_mask[1] = get_uint32(ptr); ptr += sizeof(fp->event_mask[1]);
+  fp->opcode = get_uint16(ptr); ptr += sizeof(fp->opcode);
+  return ptr;
+}
+
+static int        hci_drv_init(void);
+static void       hci_drv_finish(void);
+static void       hci_drv_stop(ErlDrvData);
+static void       hci_drv_output(ErlDrvData,char*,ErlDrvSizeT);
+#if 0
+static void       hci_drv_outputv(ErlDrvData, ErlIOVec*);
+#endif
+static void       hci_drv_ready_input(ErlDrvData, ErlDrvEvent);
+static void       hci_drv_ready_output(ErlDrvData data, ErlDrvEvent event);
+static ErlDrvData hci_drv_start(ErlDrvPort, char* command);
+static ErlDrvSSizeT hci_drv_ctl(ErlDrvData,unsigned int,char*,ErlDrvSizeT,char**,ErlDrvSizeT);
+static void       hci_drv_timeout(ErlDrvData);
+static void       hci_drv_stop_select(ErlDrvEvent event, void* arg);
+
+#define DLOG_DEBUG     7
+#define DLOG_INFO      6
+#define DLOG_NOTICE    5
+#define DLOG_WARNING   4
+#define DLOG_ERROR     3
+#define DLOG_CRITICAL  2
+#define DLOG_ALERT     1
+#define DLOG_EMERGENCY 0
+#define DLOG_NONE     -1
+
+#ifndef DLOG_DEFAULT
+#define DLOG_DEFAULT DLOG_NONE
+#endif
+
+#define DLOG(level,file,line,args...) do {				\
+	if (((level) == DLOG_EMERGENCY) ||				\
+	    ((debug_level >= 0) && ((level) <= debug_level))) {		\
+	    emit_log((level),(file),(line),args);			\
+	}								\
+    } while(0)
+
+#define DEBUGF(args...) DLOG(DLOG_DEBUG,__FILE__,__LINE__,args)
+#define INFOF(args...)  DLOG(DLOG_INFO,__FILE__,__LINE__,args)
+#define NOTICEF(args...)  DLOG(DLOG_NOTICE,__FILE__,__LINE__,args)
+#define WARNINGF(args...)  DLOG(DLOG_WARNING,__FILE__,__LINE__,args)
+#define ERRORF(args...)  DLOG(DLOG_ERROR,__FILE__,__LINE__,args)
+#define CRITICALF(args...)  DLOG(DLOG_CRITICAL,__FILE__,__LINE__,args)
+#define ALERTF(args...)  DLOG(DLOG_ALERT,__FILE__,__LINE__,args)
+#define EMERGENCYF(args...)  DLOG(DLOG_EMERGENCY,__FILE__,__LINE__,args)
+
+static int debug_level = DLOG_DEFAULT;
+
+static void emit_log(int level, char* file, int line, ...)
+{
+    va_list ap;
+    char* fmt;
+
+    if ((level == DLOG_EMERGENCY) ||
+	((debug_level >= 0) && (level <= debug_level))) {
+	int save_errno = errno;
+	va_start(ap, line);
+	fmt = va_arg(ap, char*);
+	fprintf(stderr, "%s:%d: ", file, line); 
+	vfprintf(stderr, fmt, ap);
+	fprintf(stderr, "\r\n");
+	va_end(ap);
+	errno = save_errno;
+    }
+}
+
+/* general control reply function */
+static ErlDrvSSizeT ctl_reply(int rep, void* buf, ErlDrvSizeT len,
+			      char** rbuf, ErlDrvSizeT rsize)
+{
+    char* ptr;
+
+    if ((len+1) > rsize) {
+#ifdef PORT_CONTROL_BINARY
+	ErlDrvBinary* bin = driver_alloc_binary(len+1);
+	if (bin == NULL) 
+	    return -1;
+	ptr = bin->orig_bytes;	
+	*rbuf = (char*) bin;
+#else
+	if ((ptr = driver_alloc(len+1)) == NULL)
+	    return -1;
+	*rbuf = ptr;
+#endif
+    }
+    else
+	ptr = *rbuf;
+    *ptr++ = rep;
+    memcpy(ptr, buf, len);
+    return len+1;
+}
+
+static void* hci_drv_realloc_buffer(hci_drv_ctx_t* ctx, size_t len)
+{
+    if (ctx->hcibuf_len < len) {
+      ctx->hcibuf = driver_realloc(ctx->hcibuf, len);
+      ctx->hcibuf_len = len;
+    }
+    return ctx->hcibuf;
+}
+
+static int hci_drv_init(void)
+{
+    INIT_ATOM(ok);
+    INIT_ATOM(error);
+    INIT_ATOM(undefined);
+    INIT_ATOM(true);
+    INIT_ATOM(false);
+    return 0;
+}
+
+static void hci_drv_finish(void)
+{
+}
+
+static void hci_drv_stop(ErlDrvData d)
+{
+  hci_drv_ctx_t* ctx = (hci_drv_ctx_t*) d;
+
+  if (ctx) {
+    if (ctx->is_selecting)
+      driver_select(ctx->port, ctx->fd, ERL_DRV_READ, 0);
+    if (ctx->is_sending)
+      driver_select(ctx->port, ctx->fd, ERL_DRV_WRITE, 0);
+    driver_select(ctx->port, ctx->fd, ERL_DRV_USE, 0);
+    driver_free(ctx);
+  }
+}
+
+// #define USE_WRITEV
+
+static void hci_drv_output(ErlDrvData d, char* buf,ErlDrvSizeT len)
+{
+  hci_drv_ctx_t* ctx = (hci_drv_ctx_t*) d;
+  int n;
+
+  if ((n = driver_sizeq(ctx->port)) > 0) {
+    driver_enq(ctx->port, buf, len);
+    DEBUGF("hci_drv_tput: put on queue pending=%d", n+len);
+  }
+  else  {  // try send directly
+    // data format must be 
+    // <<HCI_COMMAND_PKT,Opcode:16,Plen:8,Param:Plen/binary>>
+#ifdef USE_WRITEV
+    struct iovec iv[3];
+    int ivn;
+    // try write with writev !!!
+    iv[0].iov_base = buf;
+    iv[0].iov_len  = 1;
+    iv[1].iov_base = buf+1;
+    iv[1].iov_len  = HCI_COMMAND_HDR_SIZE;
+    iv[2].iov_base = buf+4;
+    iv[2].iov_len  = buf[3];
+    ivn = buf[3] ? 3 : 2;
+    DEBUGF("writev = %d, len=%d", 1+HCI_COMMAND_HDR_SIZE+buf[3], len);
+
+    n = writev(INT_EVENT(ctx->fd), iv, ivn);
+#else
+    n = write(INT_EVENT(ctx->fd), buf, len);
+#endif
+    if (n < 0) {
+      ERRORF("write error=%s", strerror(errno));
+      if ((errno == EAGAIN) || (errno = ENOBUFS)) {
+	DEBUGF("hci_drv: put %d bytes on queue", n);
+	driver_enq(ctx->port, buf, len);
+	driver_select(ctx->port, ctx->fd, ERL_DRV_WRITE, 1);
+	ctx->is_sending = 1;
+      }
+    }
+    else if (n < (int)len) {
+      driver_enq(ctx->port, buf+n, len+n);
+      driver_select(ctx->port, ctx->fd, ERL_DRV_WRITE, 1);
+      ctx->is_sending = 1;
+    }
+    else {
+      DEBUGF("hci_drv: wrote %d bytes", n);
+    }
+  }
+}
+
+// hci socket triggered process data
+static void hci_drv_ready_input(ErlDrvData d, ErlDrvEvent event)
+{
+  hci_drv_ctx_t* ctx = (hci_drv_ctx_t*) d;
+  uint8_t buf[HCI_MAX_EVENT_SIZE];
+  int n;
+  (void) event;
+
+  if ((n = read(INT_EVENT(ctx->fd), buf, sizeof(buf))) < 0) {
+    if ((errno == EAGAIN) || (errno == EINTR))
+      return;
+    DEBUGF("hci_drv_ready_input: read error %d, %s",
+	   errno, strerror(errno));
+    return;
+  }
+  DEBUGF("hci_drv_ready_input: got %d bytes", n);
+  if (n > 0)
+    driver_output(ctx->port, (char*) buf, n);
+}
+
+static void hci_drv_ready_output(ErlDrvData d, ErlDrvEvent event)
+{
+    hci_drv_ctx_t* ctx = (hci_drv_ctx_t*) d;
+    int vsize;
+    SysIOVec* iovp;
+    int n;
+
+    DEBUGF("hci_drv_ready_output called");
+
+    if (ctx->fd != event) {
+	DEBUGF("hci_drv_ready_output bad event");
+	return;
+    }
+
+    if ((iovp = driver_peekq(ctx->port, &vsize)) == NULL) {
+	driver_select(ctx->port, ctx->fd, ERL_DRV_WRITE, 0);
+	ctx->is_sending = 0;
+	return;
+    }
+    vsize = vsize > MAX_VSIZE ? MAX_VSIZE : vsize;
+    
+    DEBUGF("hci_drv_ready_output: try send vsize=%d", vsize);    
+    n = writev(INT_EVENT(ctx->fd), (const struct iovec*) iovp, vsize);
+    if (n < 0) {
+	if ((errno == EAGAIN) || (errno == ENOBUFS))
+	    return;
+	ERRORF("write error=%s", strerror(errno));
+	return;
+    }
+    DEBUGF("hci_drv_ready_output: sent %d bytes", n);
+    if (driver_deq(ctx->port, n) == 0) {
+	driver_select(ctx->port, ctx->fd, ERL_DRV_WRITE, 0);
+	ctx->is_sending = 0;
+    }
+}
+
+
+static ErlDrvSSizeT hci_drv_ctl(ErlDrvData d,unsigned int cmd,char* buf0,
+			       ErlDrvSizeT len,char** rbuf,ErlDrvSizeT rsize)
+{
+    uint8_t* buf = (uint8_t*) buf0;
+    hci_drv_ctx_t* ctx = (hci_drv_ctx_t*) d;
+
+    DEBUGF("hci_drv_ctl cmd=%d", cmd);
+
+    switch(cmd) {
+    case CMD_ACTIVE: {
+	int active;
+
+	if (len != 4)
+	    goto badarg;
+	active = get_int32(buf);
+	if (active) {
+	  if (!ctx->is_selecting) {
+		driver_select(ctx->port, ctx->fd, ERL_DRV_READ, 1);
+		DEBUGF("selecting %d for read\n", ctx->fd);
+	  }
+	  ctx->is_selecting = 1;
+	  ctx->active = active;
+	}
+	else {
+	  if (ctx->is_selecting) {
+		driver_select(ctx->port, ctx->fd, ERL_DRV_READ, 0);
+		DEBUGF("deselecting %d for read\n", ctx->fd);
+	  }
+	  ctx->is_selecting = 0;
+	  ctx->active = 0;
+	}
+	goto ok;
+	break;
+    }
+
+    case CMD_DEBUG: {
+	if (len != 4)
+	    goto badarg;
+	debug_level = get_int32(buf);
+	goto ok;
+    }
+
+    case CMD_BIND: {
+      struct sockaddr_hci a;
+      int dev_id;
+
+      if (len != 4)
+	goto badarg;
+      if ((dev_id = get_int32(buf)) < 0) {
+	errno = ENODEV;
+	goto error;
+      }
+      memset(&a, 0, sizeof(a));
+      a.hci_family = AF_BLUETOOTH;
+      a.hci_dev = dev_id;
+
+      if (bind(INT_EVENT(ctx->fd), (struct sockaddr *) &a, sizeof(a)) < 0)
+	goto error;
+      ctx->dev_id = dev_id;
+      goto ok;
+    }
+
+    case CMD_GETFILTER: {
+      struct hci_filter filt;
+      socklen_t flen;
+      uint8_t lbuf[sizeof(struct hci_filter)];
+      uint8_t* lptr;      
+
+      flen = sizeof(filt);
+      if (getsockopt(INT_EVENT(ctx->fd), SOL_HCI, HCI_FILTER, &filt, &flen) < 0)
+	goto error;
+      lptr = put_hci_filter(lbuf, &filt);
+      return ctl_reply(CTL_BIN, lbuf, lptr-lbuf, rbuf, rsize);
+    }
+
+    case CMD_SETFILTER: {
+      struct hci_filter filt;
+
+      if (len != 14)
+	goto badarg;
+      (void) get_hci_filter(buf, &filt);
+      if (setsockopt(INT_EVENT(ctx->fd), SOL_HCI, HCI_FILTER, &filt,
+		     sizeof(filt)) < 0)
+	goto error;
+      goto ok;
+    }
+
+    case CMD_HCIDEVUP: {
+      int dev_id;
+      if (len != 4)
+	goto badarg;
+      dev_id = get_int32(buf);
+      if (ioctl(INT_EVENT(ctx->fd), HCIDEVUP, dev_id) < 0)
+	goto error;
+      goto ok;
+    }
+
+    case CMD_HCIDEVDOWN: {
+      int dev_id;
+      if (len != 4)
+	goto badarg;
+      dev_id = get_int32(buf);
+      if (ioctl(INT_EVENT(ctx->fd), HCIDEVDOWN, dev_id) < 0)
+	goto error;
+      goto ok;
+    }
+
+    case CMD_HCIDEVRESET: {
+      int dev_id;
+      if (len != 4)
+	goto badarg;
+      dev_id = get_int32(buf);
+      if (ioctl(INT_EVENT(ctx->fd), HCIDEVRESET, dev_id) < 0)
+	goto error;
+      goto ok;
+    }
+
+    case CMD_HCIDEVRESTAT: {
+      int dev_id;
+      if (len != 4)
+	goto badarg;
+      dev_id = get_int32(buf);
+      if (ioctl(INT_EVENT(ctx->fd), HCIDEVRESTAT, dev_id) < 0)
+	goto error;
+      goto ok;
+    }
+
+    case CMD_HCIGETDEVLIST: {
+      struct hci_dev_list_req *dl;
+      size_t sz = HCI_MAX_DEV*sizeof(struct hci_dev_req) +
+	sizeof(struct hci_dev_list_req);
+      uint8_t lbuf[HCI_MAX_DEV*sizeof(struct hci_dev_req)];
+      uint8_t* lptr;
+      int i;
+
+      if ((dl = hci_drv_realloc_buffer(ctx, sz)) == NULL)
+	goto error;
+      memset(dl, 0, sz);
+      dl->dev_num = HCI_MAX_DEV;
+      
+      if (ioctl(INT_EVENT(ctx->fd), HCIGETDEVLIST, (void *) dl) < 0)
+	goto error;
+      
+      lptr = lbuf;
+      for (i = 0; i < dl->dev_num; i++) {
+	put_uint16(lptr, dl->dev_req[i].dev_id); 
+	lptr += sizeof(dl->dev_req[i].dev_id);
+	put_uint32(lptr, dl->dev_req[i].dev_opt);
+	lptr += sizeof(dl->dev_req[i].dev_opt);
+      }
+      return ctl_reply(CTL_BIN, lbuf, lptr-lbuf, rbuf, rsize);
+    }
+
+    case CMD_HCIGETDEVINFO: {
+      size_t sz = sizeof(struct hci_dev_info);
+      uint8_t lbuf[sizeof(struct hci_dev_info)];
+      uint8_t* lptr;
+      struct hci_dev_info* di;
+      int dev_id;
+
+      if (len != 4)
+	goto badarg;
+      dev_id = get_int32(buf);
+
+      if ((di = hci_drv_realloc_buffer(ctx, sz)) == NULL)
+	goto error;
+      memset(di, 0, sz);
+      
+      di->dev_id = dev_id;
+      if (ioctl(INT_EVENT(ctx->fd), HCIGETDEVINFO, (void *) di) < 0)
+	goto error;
+      lptr = put_hci_dev_info(lbuf, di);
+      return ctl_reply(CTL_BIN, lbuf, lptr-lbuf, rbuf, rsize);
+    }
+
+    case CMD_HCIGETCONNLIST: {
+      struct hci_conn_list_req *cl;
+      size_t sz = sizeof(struct hci_conn_list_req) +
+	MAX_CONN*sizeof(struct hci_conn_info);
+      uint8_t lbuf[MAX_CONN*sizeof(struct hci_conn_info)];
+      uint8_t* lptr;
+      int dev_id;
+      int i;
+
+      if (len != 4)
+	goto badarg;
+      dev_id  = get_int32(buf);
+
+      if ((cl = hci_drv_realloc_buffer(ctx, sz)) == NULL)
+	goto error;
+      memset(cl, 0, sz);
+      cl->dev_id = dev_id;
+      cl->conn_num = MAX_CONN;
+
+      if (ioctl(INT_EVENT(ctx->fd), HCIGETCONNLIST, (void *)cl) < 0)
+	goto error;
+	
+      lptr = lbuf;
+      for (i=0; i< cl->conn_num; i++)
+	lptr = put_hci_conn_info(lptr, &cl->conn_info[i]);
+      return ctl_reply(CTL_BIN, lbuf, lptr-lbuf, rbuf, rsize);
+    }
+
+    case CMD_HCIGETCONNINFO: {
+      struct hci_conn_info_req *ci;
+      size_t sz = sizeof(struct hci_conn_info_req) +
+	sizeof(struct hci_conn_info);
+      uint8_t lbuf[sizeof(struct hci_conn_info)];
+      uint8_t* lptr;
+
+      if (len != 7)
+	goto badarg;
+      
+      if ((ci = hci_drv_realloc_buffer(ctx, sz)) == NULL)
+	goto error;
+      memset(ci, 0, sz);
+      memcpy(&ci->bdaddr, buf, sizeof(bdaddr_t));
+      ci->type = buf[6];
+
+      if (ioctl(INT_EVENT(ctx->fd), HCIGETCONNINFO, (void *)ci) < 0)
+	goto error;
+      lptr = put_hci_conn_info(lbuf, &ci->conn_info[0]);
+      return ctl_reply(CTL_BIN, lbuf, lptr-lbuf, rbuf, rsize);
+    }
+
+    case CMD_HCIGETAUTHINFO: {
+      struct hci_auth_info_req ai;
+      if (len != 6)
+	goto badarg;
+      memcpy(&ai.bdaddr, buf, sizeof(ai.bdaddr));
+      if (ioctl(INT_EVENT(ctx->fd), HCIGETAUTHINFO, (void *)&ai) < 0)
+	goto error;
+      return ctl_reply(CTL_BIN, &ai.type, 1, rbuf, rsize);
+    }
+
+    case CMD_HCISETRAW: { // guessing...
+      int dev_id;
+      if (len != 4)
+	goto badarg;
+      dev_id = get_int32(buf);
+      if (ioctl(INT_EVENT(ctx->fd), HCISETRAW, dev_id) < 0)
+	goto error;
+      goto ok;
+    }
+
+    case CMD_HCISETSCAN: {
+      struct hci_dev_req dr;
+      if (len != 8)
+	goto badarg;
+      dr.dev_id  = get_int32(buf);
+      dr.dev_opt = get_uint32(buf+4);
+      if (ioctl(INT_EVENT(ctx->fd), HCISETSCAN, (void*) &dr) < 0)
+	goto error;
+      goto ok;
+    }
+
+    case CMD_HCISETAUTH: {
+      struct hci_dev_req dr;
+      if (len != 5)
+	goto badarg;
+      dr.dev_id = get_int32(buf);
+      dr.dev_opt = buf[4] ? AUTH_ENABLED : AUTH_DISABLED;
+      if (ioctl(INT_EVENT(ctx->fd), HCISETAUTH, (void*) &dr) < 0)
+	goto error;
+      goto ok;
+    }
+      
+    case CMD_HCISETENCRYPT: {
+      struct hci_dev_req dr;
+      if (len != 5)
+	goto badarg;
+      dr.dev_id = get_int32(buf);
+      dr.dev_opt = buf[4] ? ENCRYPT_P2P : ENCRYPT_DISABLED;
+      if (ioctl(INT_EVENT(ctx->fd), HCISETAUTH, (void*) &dr) < 0)
+	goto error;
+      goto ok;
+    }
+
+    case CMD_HCISETPTYPE: {
+      struct hci_dev_req dr;
+      if (len != 8)
+	goto badarg;
+      dr.dev_id  = get_int32(buf);
+      dr.dev_opt = get_uint32(buf+4);
+      if (ioctl(INT_EVENT(ctx->fd), HCISETPTYPE, (void*) &dr) < 0)
+	goto error;
+      goto ok;
+    }
+
+    case CMD_HCISETLINKPOL: {
+      struct hci_dev_req dr;
+      if (len != 8)
+	goto badarg;
+      dr.dev_id  = get_int32(buf);
+      dr.dev_opt = get_uint32(buf+4);
+      if (ioctl(INT_EVENT(ctx->fd), HCISETLINKPOL, (void*) &dr) < 0)
+	goto error;
+      goto ok;
+    }
+
+    case CMD_HCISETLINKMODE: {
+      struct hci_dev_req dr;
+      if (len != 8)
+	goto badarg;
+      dr.dev_id  = get_int32(buf);
+      dr.dev_opt = get_uint32(buf+4);
+      if (ioctl(INT_EVENT(ctx->fd), HCISETLINKMODE, (void*) &dr) < 0)
+	goto error;
+      goto ok;
+    }
+
+    case CMD_HCISETACLMTU: {
+      struct hci_dev_req dr;
+      uint16_t mtu, mpkt;
+       
+      if (len != 8)
+	goto badarg;
+      dr.dev_id  = get_int32(buf);
+      mtu  = get_uint16(buf+4);
+      mpkt = get_uint16(buf+6);
+      dr.dev_opt = htobl(htobs(mpkt) | (htobs(mtu) << 16));
+      if (ioctl(INT_EVENT(ctx->fd), HCISETACLMTU, (void*) &dr) < 0)
+	goto error;
+      goto ok;
+    }
+
+    case CMD_HCISETSCOMTU: {
+      struct hci_dev_req dr;
+      uint16_t mtu, mpkt;
+
+      if (len != 8)
+	goto badarg;
+      dr.dev_id  = get_int32(buf);
+      mtu  = get_uint16(buf+4);
+      mpkt = get_uint16(buf+6);
+      dr.dev_opt = htobl(htobs(mpkt) | (htobs(mtu) << 16));
+      if (ioctl(INT_EVENT(ctx->fd), HCISETSCOMTU, (void*) &dr) < 0)
+	goto error;
+      goto ok;
+    }
+
+    case CMD_HCIBLOCKADDR: {  // bound
+      bdaddr_t bdaddr;
+      if (len != 6)
+	goto badarg;
+      memcpy(&bdaddr, buf, 6);
+      if (ioctl(INT_EVENT(ctx->fd), HCIBLOCKADDR, (void*) &bdaddr) < 0)
+	goto error;
+      goto ok;
+    }
+
+    case CMD_HCIUNBLOCKADDR: {  // bound, bdaddr={0,0,0,0,0,0} => all
+      bdaddr_t bdaddr;
+      if (len != 6)
+	goto badarg;
+      memcpy(&bdaddr, buf, 6);
+      if (ioctl(INT_EVENT(ctx->fd), HCIUNBLOCKADDR, (void*) &bdaddr) < 0)
+	goto error;
+      goto ok;
+    }
+
+    case CMD_HCIINQUIRY: {
+      // blocking! must be in a thread or use the async api
+      uint8_t ibuf[sizeof(struct hci_inquiry_req)+sizeof(inquiry_info)*255];
+      struct hci_inquiry_req* ir;
+
+      if (len != 9)
+	goto badarg;
+      ir = (struct hci_inquiry_req *) ibuf;
+      ir->length = get_uint8(buf);
+      ir->num_rsp = get_uint8(buf+1);
+      ir->lap[0]  = get_uint8(buf+2);
+      ir->lap[1]  = get_uint8(buf+3);
+      ir->lap[2]  = get_uint8(buf+4);
+      ir->flags   = get_uint32(buf+5);
+      ir->dev_id  = ctx->dev_id;
+
+      if (ioctl(INT_EVENT(ctx->fd), HCIINQUIRY, (unsigned long) ibuf) < 0)
+	goto error;
+
+      // return size is sizoef(inquiry_info) * ir->num_rsp
+      return ctl_reply(CTL_BIN, ibuf + sizeof(struct hci_inquiry_req),
+		       sizeof(inquiry_info) * ir->num_rsp, rbuf, rsize);
+    }
+
+    default:
+	return -1;
+    }
+
+ok:
+    return ctl_reply(CTL_OK, NULL, 0, rbuf, rsize);
+badarg:
+    errno = EINVAL;
+error: {
+    char* err_str = erl_errno_id(errno);
+    return ctl_reply(CTL_ERR, err_str, strlen(err_str), rbuf, rsize);
+}
+}
+
+
+static void hci_drv_timeout(ErlDrvData d)
+{
+    (void) d;
+    fprintf(stderr, "hci_drv_timeout called!!!\r\n");
+}
+
+static void hci_drv_stop_select(ErlDrvEvent event, void* arg)
+{    
+    (void) arg;
+    DEBUGF("eth_drv: stop_select event=%d", INT_EVENT(event));
+    close(INT_EVENT(event));
+}
+
+
+static ErlDrvData hci_drv_start(ErlDrvPort port, char* command)
+{
+    (void) command;
+    hci_drv_ctx_t* ctx;
+    int fd;
+    int protocol;
+    char* ptr;
+    // char* arg;
+
+    ptr = command;
+    while(*ptr && (*ptr != ' '))  ptr++;   // skip command
+    while(*ptr && (*ptr == ' '))  ptr++;   // and blanks
+    // arg = ptr;
+    // while(*ptr && (*ptr >= '0') && (*ptr <= '9')) ptr++;
+    // if ((arg == ptr) || (*ptr != '\0')) {
+    //   errno = EINVAL;
+    //   return ERL_DRV_ERROR_ERRNO;
+    // }
+    // protocol = atoi(arg);
+    protocol = BTPROTO_HCI;
+    if ((fd = socket(PF_BLUETOOTH,
+		     SOCK_NONBLOCK| SOCK_RAW | SOCK_CLOEXEC,
+		     protocol)) < 0)
+      return ERL_DRV_ERROR_ERRNO;
+
+    // flags = fcntl(fd, F_GETFL, 0);
+    // fcntl(fd, F_SETFL, flags | O_NONBLOCK);
+
+    if (!(ctx = driver_alloc(sizeof(hci_drv_ctx_t))))
+      return ERL_DRV_ERROR_ERRNO;
+    memset(ctx, 0, sizeof(hci_drv_ctx_t));
+    ctx->port = port;
+    ctx->dport = driver_mk_port(port);
+    ctx->owner = driver_caller(port);
+    ctx->protocol = protocol;
+    ctx->fd       = (ErlDrvEvent)((long)fd);
+    ctx->active = 0;
+    ctx->is_selecting = 0;
+    ctx->is_sending = 0;
+
+    // create i/o buffer
+    hci_drv_realloc_buffer(ctx, MIN_HCI_BUFSIZE);
+#ifdef PORT_CONTROL_BINARY
+    set_port_control_flags(port, PORT_CONTROL_FLAG_BINARY);
+#endif
+    return (ErlDrvData) ctx;
+}
+
+DRIVER_INIT(hci_drv)
+{
+    ErlDrvEntry* ptr = &hci_drv_entry;
+
+    ptr->driver_name = "hci_drv";
+    ptr->init  = hci_drv_init;
+    ptr->start = hci_drv_start;
+    ptr->stop  = hci_drv_stop;
+    ptr->output = hci_drv_output;
+    ptr->ready_input  = hci_drv_ready_input;
+    ptr->ready_output = hci_drv_ready_output;
+    ptr->finish = hci_drv_finish;
+    ptr->control = hci_drv_ctl;
+    ptr->timeout = hci_drv_timeout;
+#if 0
+    ptr->outputv = hci_drv_outputv;
+#endif
+    ptr->ready_async = 0;
+    ptr->flush = 0;
+    ptr->call = 0;
+    ptr->event = 0;
+    ptr->extended_marker = ERL_DRV_EXTENDED_MARKER;
+    ptr->major_version = ERL_DRV_EXTENDED_MAJOR_VERSION;
+    ptr->minor_version = ERL_DRV_EXTENDED_MINOR_VERSION;
+    ptr->driver_flags = ERL_DRV_FLAG_USE_PORT_LOCKING;
+    ptr->process_exit = 0;
+    ptr->stop_select = hci_drv_stop_select;
+
+    return (ErlDrvEntry*) ptr;
+}
diff --git a/deps/bt/ebin/.gitignore b/deps/bt/ebin/.gitignore
new file mode 100644
index 0000000..120fe3a
--- /dev/null
+++ b/deps/bt/ebin/.gitignore
@@ -0,0 +1,2 @@
+*.beam
+*.app
diff --git a/deps/bt/include/bt.hrl b/deps/bt/include/bt.hrl
new file mode 100644
index 0000000..4e8878a
--- /dev/null
+++ b/deps/bt/include/bt.hrl
@@ -0,0 +1,67 @@
+%%%---- BEGIN COPYRIGHT -------------------------------------------------------
+%%%
+%%% Copyright (C) 2006 - 2014, Rogvall Invest AB, <tony@rogvall.se>
+%%%
+%%% This software is licensed as described in the file COPYRIGHT, which
+%%% you should have received as part of this distribution. The terms
+%%% are also available at http://www.rogvall.se/docs/copyright.txt.
+%%%
+%%% You may opt to use, copy, modify, merge, publish, distribute and/or sell
+%%% copies of the Software, and permit persons to whom the Software is
+%%% furnished to do so, under the terms of the COPYRIGHT file.
+%%%
+%%% This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+%%% KIND, either express or implied.
+%%%
+%%%---- END COPYRIGHT ---------------------------------------------------------
+
+%%
+%% Some none-guard macros
+%%
+-ifndef(BT_HRL).
+-define(BT_HRL, true).
+
+-include("uuid.hrl").
+
+%% Bluetooth base uuid = ?BT_UUID(0)
+-define(BT_UUID32(N),
+	?UUID(N,16#0000,16#1000,16#8000,16#00805f9b34fb)).
+
+%% Speical UUID match for 16 bit BT uuid
+-define(BT_UUID16(N),
+     <<16#0000:16,N:16,16#0000:16,16#1000:16,16#8000:16,16#00805f9b34fb:48>>).
+
+
+-define(is_bt_address(A),
+	is_tuple((A)), size((A)) == 6,
+	((element(1,(A)) bor element(2,(A)) bor  element(3,(A)) bor
+	  element(4,(A)) bor element(5,(A)) bor  element(6,(A))) band
+	 -16#100 == 0)).
+
+-define(never, {{0,0,0},{0,0,0}}).
+
+-define(L2CAP_PSM_None,		  16#0000).
+
+%% Range < 0x1000 reserved.
+-define(L2CAP_PSM_ReservedStart,    16#0001).
+-define(L2CAP_PSM_ReservedEnd,	  16#1000).
+
+-define(L2CAP_PSM_SDP,             16#0001).
+-define(L2CAP_PSM_RFCOMM,           16#0003).
+-define(L2CAP_PSM_TCS_BIN,          16#0005).  %% Telephony Control Specifictation / TCS Binary
+
+-define(L2CAP_PSM_TCS_BIN_Cordless, 16#0007).  %% Telephony Control Specifictation / TCS Binary
+-define(L2CAP_PSM_BNEP,             16#000F).  %% Bluetooth Network Encapsulation Protocol
+-define(L2CAP_PSM_HIDControl,       16#0011).  %% HID profile - control interface
+-define(L2CAP_PSM_HIDInterrupt,     16#0013).  %% HID profile - interrupt interface
+-define(L2CAP_PSM_AVCTP,            16#0017).  %% Audio/Video Control Transport Protocol
+-define(L2CAP_PSM_AVDTP,            16#0019).  %% Audio/Video Distribution Transport Protocol
+-define(L2CAP_PSM_UID_C_Plane,      16#001D).  %% Unrestricted Digital Information Profile (UDI)
+	
+%% Range 0x1001-0xFFFF dynamically assigned.
+-define(L2CAP_PSM_DynamicStart,     16#1001).
+-define(L2CAP_PSM_DynamicEnd,	    16#FFFF).
+    
+-endif.
+
+	 
diff --git a/deps/bt/include/hci_drv.hrl b/deps/bt/include/hci_drv.hrl
new file mode 100644
index 0000000..c13c50c
--- /dev/null
+++ b/deps/bt/include/hci_drv.hrl
@@ -0,0 +1,260 @@
+
+-ifndef(__HCI_DRV_HRL__).
+-define(__HCI_DRV_HRL__, true).
+
+-type bdaddr_t() :: binary().  %% 6 bytes
+-type uint8_t() :: 0..16#ff.
+-type uint16_t() :: 0..16#ffff.
+-type uint32_t() :: 0..16#ffffffff.
+-type uint64_t() :: 0..16#ffffffffffffffff.
+
+%% HCI Packet types
+-define(HCI_COMMAND_PKT,	16#01).
+-define(HCI_ACLDATA_PKT,	16#02).
+-define(HCI_SCODATA_PKT,	16#03).
+-define(HCI_EVENT_PKT,		16#04).
+-define(HCI_VENDOR_PKT,		16#ff).
+
+%% Command opcode pack/unpack
+-define(cmd_opcode_pack(OGF, OCF), (((OCF) band 16#03ff)bor((OGF) bsl 10))).
+-define(cmd_opcode_ogf(OP),	((OP) bsr 10)).
+-define(cmd_opcode_ocf(OP),	((OP) band 16#03ff)).
+
+%% ACL handle and flags pack/unpack
+-define(acl_handle_pack(H, F),	(((H) band 16#0fff) bor ((F) bsl 12))).
+-define(acl_handle(H),		((H) band 16#0fff)).
+-define(acl_flags(H),		((H) bsr 12)).
+
+-record(hci_dev_stats,
+	{
+	  err_rx::uint32_t(),
+	  err_tx::uint32_t(),
+	  cmd_tx::uint32_t(),
+	  evt_rx::uint32_t(),
+	  acl_tx::uint32_t(),
+	  acl_rx::uint32_t(),
+	  sco_tx::uint32_t(),
+	  sco_rx::uint32_t(),
+	  byte_rx::uint32_t(),
+	  byte_tx::uint32_t()
+	}).
+
+%% HCI device flags
+-define(HCI_UP, 0).
+-define(HCI_INIT, 1).
+-define(HCI_RUNNING, 2).
+-define(HCI_PSCAN, 3).
+-define(HCI_ISCAN, 4).
+-define(HCI_AUTH, 5).
+-define(HCI_ENCRYPT, 6).
+-define(HCI_INQUIRY, 7).
+-define(HCI_RAW, 8).
+
+%% LE address type
+-define(LE_PUBLIC_ADDRESS, 16#00).
+-define(LE_RANDOM_ADDRESS, 16#01).
+
+%% HCI Packet types
+-define(HCI_2DH1,	16#0002).
+-define(HCI_3DH1,	16#0004).
+-define(HCI_DM1,	16#0008).
+-define(HCI_DH1,	16#0010).
+-define(HCI_2DH3,	16#0100).
+-define(HCI_3DH3,	16#0200).
+-define(HCI_DM3,	16#0400).
+-define(HCI_DH3,	16#0800).
+-define(HCI_2DH5,	16#1000).
+-define(HCI_3DH5,	16#2000).
+-define(HCI_DM5,	16#4000).
+-define(HCI_DH5,	16#8000).
+
+-define(HCI_HV1,	16#0020).
+-define(HCI_HV2,	16#0040).
+-define(HCI_HV3,	16#0080).
+
+-define(HCI_EV3,	16#0008).
+-define(HCI_EV4,	16#0010).
+-define(HCI_EV5,	16#0020).
+-define(HCI_2EV3,	16#0040).
+-define(HCI_3EV3,	16#0080).
+-define(HCI_2EV5,	16#0100).
+-define(HCI_3EV5,	16#0200).
+
+-define(SCO_PTYPE_MASK,	(?HCI_HV1 bor ?HCI_HV2 bor ?HCI_HV3)).
+-define(ACL_PTYPE_MASK,	(?HCI_DM1 bor ?HCI_DH1 bor ?HCI_DM3 bor ?HCI_DH3 bor ?HCI_DM5 bor ?HCI_DH5)).
+
+%% HCI controller types
+-define(HCI_BREDR,	16#00).
+-define(HCI_AMP,	16#01).
+
+
+%% HCI bus types
+-define(HCI_VIRTUAL,	0).
+-define(HCI_USB,	1).
+-define(HCI_PCCARD,	2).
+-define(HCI_UART,	3).
+-define(HCI_RS232,	4).
+-define(HCI_PCI,	5).
+-define(HCI_SDIO,	6).
+
+%% Link policies
+-define(HCI_LP_RSWITCH,	16#0001).
+-define(HCI_LP_HOLD,	16#0002).
+-define(HCI_LP_SNIFF,	16#0004).
+-define(HCI_LP_PARK,	16#0008).
+
+%% Link mode
+-define(HCI_LM_ACCEPT,	 16#8000).
+-define(HCI_LM_MASTER,	 16#0001).
+-define(HCI_LM_AUTH,	 16#0002).
+-define(HCI_LM_ENCRYPT,	 16#0004).
+-define(HCI_LM_TRUSTED,	 16#0008).
+-define(HCI_LM_RELIABLE, 16#0010).
+-define(HCI_LM_SECURE,	 16#0020).
+
+%% Link Key types
+-define(HCI_LK_COMBINATION,	    16#00).
+-define(HCI_LK_LOCAL_UNIT,	    16#01).
+-define(HCI_LK_REMOTE_UNIT,	    16#02).
+-define(HCI_LK_DEBUG_COMBINATION,   16#03).
+-define(HCI_LK_UNAUTH_COMBINATION,  16#04).
+-define(HCI_LK_AUTH_COMBINATION,    16#05).
+-define(HCI_LK_CHANGED_COMBINATION, 16#06).
+-define(HCI_LK_INVALID,		    16#FF).
+
+
+%% ACL flags
+-define(ACL_START_NO_FLUSH,	16#00).
+-define(ACL_CONT,		16#01).
+-define(ACL_START,		16#02).
+-define(ACL_ACTIVE_BCAST,	16#04).
+-define(ACL_PICO_BCAST,		16#08).
+
+%% Baseband links
+-define(SCO_LINK,	16#00).
+-define(ACL_LINK,	16#01).
+-define(ESCO_LINK,	16#02).
+
+%% LMP features
+-define(LMP_3SLOT,	16#01).
+-define(LMP_5SLOT,	16#02).
+-define(LMP_ENCRYPT,	16#04).
+-define(LMP_SOFFSET,	16#08).
+-define(LMP_TACCURACY,	16#10).
+-define(LMP_RSWITCH,	16#20).
+-define(LMP_HOLD,	16#40).
+-define(LMP_SNIFF,	16#80).
+
+-define(LMP_PARK,	 16#01).
+-define(LMP_RSSI,	 16#02).
+-define(LMP_QUALITY,	 16#04).
+-define(LMP_SCO,	 16#08).
+-define(LMP_HV2,	 16#10).
+-define(LMP_HV3,	 16#20).
+-define(LMP_ULAW,	 16#40).
+-define(LMP_ALAW,	 16#80).
+
+-define(LMP_CVSD,	 16#01).
+-define(LMP_PSCHEME,	 16#02).
+-define(LMP_PCONTROL,	 16#04).
+-define(LMP_TRSP_SCO,	 16#08).
+-define(LMP_BCAST_ENC,	 16#80).
+
+-define(LMP_EDR_ACL_2M,	 16#02).
+-define(LMP_EDR_ACL_3M,	 16#04).
+-define(LMP_ENH_ISCAN,	 16#08).
+-define(LMP_ILACE_ISCAN, 16#10).
+-define(LMP_ILACE_PSCAN, 16#20).
+-define(LMP_RSSI_INQ,	 16#40).
+-define(LMP_ESCO,	 16#80).
+
+-define(LMP_EV4,	 16#01).
+-define(LMP_EV5,	 16#02).
+-define(LMP_AFH_CAP_SLV, 16#08).
+-define(LMP_AFH_CLS_SLV, 16#10).
+-define(LMP_NO_BREDR,	 16#20).
+-define(LMP_LE,		 16#40).
+-define(LMP_EDR_3SLOT,	 16#80).
+
+-define(LMP_EDR_5SLOT,	 16#01).
+-define(LMP_SNIFF_SUBR,	 16#02).
+-define(LMP_PAUSE_ENC,	 16#04).
+-define(LMP_AFH_CAP_MST, 16#08).
+-define(LMP_AFH_CLS_MST, 16#10).
+-define(LMP_EDR_ESCO_2M, 16#20).
+-define(LMP_EDR_ESCO_3M, 16#40).
+-define(LMP_EDR_3S_ESCO, 16#80).
+
+-define(LMP_EXT_INQ,	 16#01).
+-define(LMP_LE_BREDR,	 16#02).
+-define(LMP_SIMPLE_PAIR, 16#08).
+-define(LMP_ENCAPS_PDU,	 16#10).
+-define(LMP_ERR_DAT_REP, 16#20).
+-define(LMP_NFLUSH_PKTS, 16#40).
+
+-define(LMP_LSTO,	16#01).
+-define(LMP_INQ_TX_PWR,	16#02).
+-define(LMP_EPC,	16#04).
+-define(LMP_EXT_FEAT,	16#80).
+
+%% Extended LMP features
+-define(LMP_HOST_SSP,	   16#01).
+-define(LMP_HOST_LE,	   16#02).
+-define(LMP_HOST_LE_BREDR, 16#04).
+
+%% Scan flags used by HCISETSCAN/WRITE_SCAN_ENABLE
+-define(SCAN_DISABLED,     16#00).
+-define(SCAN_INQUIRY,      16#01).
+-define(SCAN_PAGE,         16#02).
+
+
+-record(hci_dev_info, 
+	{
+	  dev_id::uint16_t(),
+	  name::binary(),     %% 8 bytes
+	  bdaddr::bdaddr_t(), %% 6 bytes [2 pad bytes]
+	  flags::uint32_t(),
+	  type::uint8_t(),
+	  features::binary(),  %% 64 bits
+
+	  pkt_type::uint32_t(),
+	  link_policy::uint32_t(),
+	  link_mode::uint32_t(),
+	  acl_mtu::uint16_t(),
+	  acl_pkts::uint16_t(),
+	  sco_mtu::uint16_t(),
+	  sco_pkts::uint16_t(),
+	  stat::#hci_dev_stats{}
+	}).
+
+-record(hci_conn_info,
+	{
+	  handle::uint16_t(),
+	  bdaddr::bdaddr_t(),
+	  type::uint8_t(),
+	  out::uint8_t(),
+	  state::uint16_t(),
+	  link_mode::uint32_t()
+	}).
+
+-record(hci_filter,
+	{
+	  type_mask  :: uint32_t(),
+	  event_mask :: uint64_t(),  %% encoded as 2*uint32_t()
+	  opcode     :: uint16_t()
+	}).
+
+
+-define(HCI_FLT_TYPE_BITS,	31).
+-define(HCI_FLT_EVENT_BITS,	63).
+-define(HCI_FLT_OGF_BITS,	63).
+-define(HCI_FLT_OCF_BITS,	127).
+
+-type hci_socket_t() :: port().
+-type hci_devid_t()  :: integer().
+-type posix() :: atom().
+-type level_t() :: boolean() | debug | info | notice | warning | error |
+		   critical | alert | emergency | none.
+
+
+-endif.
diff --git a/deps/bt/include/obex.hrl b/deps/bt/include/obex.hrl
new file mode 100644
index 0000000..d92019d
--- /dev/null
+++ b/deps/bt/include/obex.hrl
@@ -0,0 +1,146 @@
+%%%---- BEGIN COPYRIGHT -------------------------------------------------------
+%%%
+%%% Copyright (C) 2006 - 2014, Rogvall Invest AB, <tony@rogvall.se>
+%%%
+%%% This software is licensed as described in the file COPYRIGHT, which
+%%% you should have received as part of this distribution. The terms
+%%% are also available at http://www.rogvall.se/docs/copyright.txt.
+%%%
+%%% You may opt to use, copy, modify, merge, publish, distribute and/or sell
+%%% copies of the Software, and permit persons to whom the Software is
+%%% furnished to do so, under the terms of the COPYRIGHT file.
+%%%
+%%% This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+%%% KIND, either express or implied.
+%%%
+%%%---- END COPYRIGHT ---------------------------------------------------------
+
+-ifndef(OBEX_HRL).
+-define(OBEX_HRL, true).
+
+-define(OBEX_VERSION,           16#10).
+
+%% 0x - Request codes
+-define(OBEX_CMD_CONNECT,       16#00).
+-define(OBEX_CMD_DISCONNECT,    16#01).
+-define(OBEX_CMD_PUT,           16#02).
+-define(OBEX_CMD_GET,           16#03).
+-define(OBEX_CMD_COMMAND,       16#04).
+-define(OBEX_CMD_SETPATH,       16#05).
+
+%% 1x
+-define(OBEX_RSP_CONTINUE,              16#10).
+-define(OBEX_RSP_SWITCH_PRO,            16#11).
+
+%% 2x
+-define(OBEX_RSP_SUCCESS,               16#20).
+-define(OBEX_RSP_CREATED,               16#21).
+-define(OBEX_RSP_ACCEPTED,              16#22).
+-define(OBEX_RSP_NON_AUTHORITATIVE,     16#23).
+-define(OBEX_RSP_NO_CONTENT,            16#24).
+-define(OBEX_RSP_RESET_CONTENT,         16#25).
+-define(OBEX_RSP_PARTIAL_CONTENT,       16#26).
+
+%% 3x
+-define(OBEX_RSP_MULTIPLE_CHOICES,      16#30).
+-define(OBEX_RSP_MOVED_PERMANENTLY,     16#31).
+-define(OBEX_RSP_MOVED_TEMPORARILY,     16#32).
+-define(OBEX_RSP_SEE_OTHER,             16#33).
+-define(OBEX_RSP_NOT_MODIFIED,          16#34).
+-define(OBEX_RSP_USE_PROXY,             16#35).
+
+%% 4x
+-define(OBEX_RSP_BAD_REQUEST,           16#40).
+-define(OBEX_RSP_UNAUTHORIZED,          16#41).
+-define(OBEX_RSP_PAYMENT_REQUIRED,      16#42).
+-define(OBEX_RSP_FORBIDDEN,             16#43).
+-define(OBEX_RSP_NOT_FOUND,             16#44).
+-define(OBEX_RSP_METHOD_NOT_ALLOWED,    16#45).
+-define(OBEX_RSP_NOT_ACCEPTABLE,        16#46).
+-define(OBEX_RSP_PROXY_AUTH,            16#47).
+-define(OBEX_RSP_REQUEST_TIMEOUT,       16#48).
+-define(OBEX_RSP_CONFLICT,              16#49).
+-define(OBEX_RSP_GONE,                  16#4A).
+-define(OBEX_RSP_LENGTH_REQUIRED,       16#4B).
+-define(OBEX_RSP_PRECONDITION_FAILED,   16#4C).
+-define(OBEX_RSP_ENTITY_TOO_LARGE,      16#4D).
+-define(OBEX_RSP_URL_TOO_LARGE,         16#4E).
+-define(OBEX_RSP_UNSUPPORTED_MEDIA,     16#4F).
+
+%% 5x
+-define(OBEX_RSP_INTERNAL_SERVER_ERROR, 16#50).
+-define(OBEX_RSP_NOT_IMPLEMENTED,       16#51).
+-define(OBEX_RSP_BAD_GATEWAY,           16#52).
+-define(OBEX_RSP_SERVICE_UNAVAILABLE,   16#53).
+-define(OBEX_RSP_GATEWAY_TIMEOUT,       16#54).
+-define(OBEX_RSP_HTTP_VERSION_NOT_SUPPORTED, 16#55).
+
+%% 6x
+-define(OBEX_RSP_DATABASE_FULL,         16#60).
+-define(OBEX_RSP_DATABASE_LOCKED,       16#61).
+
+%% 7x - command/response
+-define(OBEX_CMD_ABORT,                 16#7f).
+	
+-define(TARGET_FOLDER_BROWSING,
+	?UUID(16#F9EC7BC4,16#953C,16#11D2,16#984E,16#525400DC9E09)).
+-define(TARGET_SYNCML_DM, "SYNCML-DM").
+-define(TARGET_SYNCML_SYNC, "SYNCML-SYNC").
+
+%% NOKIA SYNCML-SYNC ????
+-define(UUID_SYNCML_SYNC,
+	?UUID(16#00005601,16#0000,16#1000,16#8000,16#0002EE000002)).
+
+%% Min, Max and default transport MTU
+-define(OBEX_DEFAULT_MTU,       1024).
+-define(OBEX_MINIMUM_MTU,       255).
+-define(OBEX_MAXIMUM_MTU,       32768).
+
+-define(OBEX_HDR_MASK, 16#C0).
+-define(OBEX_V0,    2#00).
+-define(OBEX_Vn,    2#01).
+-define(OBEX_I1,    2#10).
+-define(OBEX_I4,    2#11).
+
+%% Standard headers
+
+%% null terminated values
+-define(OBEX_HDR_NAME,          16#01).  %% Name of the object.
+-define(OBEX_HDR_DESCRIPTION,   16#05). %% Description of object 
+
+-define(OBEX_HDR_RESERVED_RANGE_START,    16#10).
+-define(OBEX_HDR_RESERVED_RANGE_END,      16#2F).
+
+-define(OBEX_HDR_USER_DEFINED_RANGE_START, 16#30).
+-define(OBEX_HDR_USER_DEFINED_RANGE_END,   16#3F).
+
+%% bytes sequence values
+-define(OBEX_HDR_TYPE,          16#42). %% Type of the object 
+-define(OBEX_HDR_TIME,          16#44). %% Last modification time of (ISO8601) 
+-define(OBEX_HDR_TARGET,        16#46). %% Identifies the target for the object 
+-define(OBEX_HDR_HTTP,          16#47). %% Data part of the object 
+-define(OBEX_HDR_BODY,          16#48). %% Data part of the object 
+-define(OBEX_HDR_BODY_END,      16#49). %% Last data part of the object 
+-define(OBEX_HDR_WHO,           16#4a). %% Identifies the sender of the object 
+-define(OBEX_HDR_APPARAM,       16#4c). %% Application parameters 
+-define(OBEX_HDR_AUTHCHAL,      16#4d). %% Authentication challenge 
+-define(OBEX_HDR_AUTHRESP,      16#4e). %% Authentication response 
+-define(OBEX_HDR_OBJCLASS,      16#4f). %% OBEX Object class of object 
+
+%% 4 bytes values
+-define(OBEX_HDR_COUNT,         16#c0). %% Number of objects (used by connect) 
+-define(OBEX_HDR_CONNECTION_ID, 16#cb). %% Connection identifier 
+-define(OBEX_HDR_LENGTH,        16#c3). %% Total lenght of object 
+-define(OBEX_HDR_TIME2,         16#C4). %% Deprecated use HDR_TIME instead 
+
+%% vCard charsets
+-define(OBEX_CHARSET_STRING_ISO88591,	"CHARSET=ISO-8859-1").
+-define(OBEX_CHARSET_STRING_UTF8,	"UTF-8").
+
+%% vEvent encodings
+-define(OBEX_ENCODING_STRING_QUOTED_PRINTABLE, "QUOTED-PRINTABLE").
+-define(OBEX_ENCODING_STRING_BASE64, "BASE-64").
+-define(OBEX_ENCODING_STRING_8BIT, "8BIT").
+
+
+-endif.
diff --git a/deps/bt/include/sdp.hrl b/deps/bt/include/sdp.hrl
new file mode 100644
index 0000000..830c2d7
--- /dev/null
+++ b/deps/bt/include/sdp.hrl
@@ -0,0 +1,262 @@
+%%%---- BEGIN COPYRIGHT -------------------------------------------------------
+%%%
+%%% Copyright (C) 2006 - 2014, Rogvall Invest AB, <tony@rogvall.se>
+%%%
+%%% This software is licensed as described in the file COPYRIGHT, which
+%%% you should have received as part of this distribution. The terms
+%%% are also available at http://www.rogvall.se/docs/copyright.txt.
+%%%
+%%% You may opt to use, copy, modify, merge, publish, distribute and/or sell
+%%% copies of the Software, and permit persons to whom the Software is
+%%% furnished to do so, under the terms of the COPYRIGHT file.
+%%%
+%%% This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+%%% KIND, either express or implied.
+%%%
+%%%---- END COPYRIGHT ---------------------------------------------------------
+-ifndef(SDP_HRL).
+-define(SDP_HRL, true).
+
+%% ATTRIBUTES
+-define(ATTR_ServiceRecordHandle,  16#0000).
+-define(ATTR_ServiceClassIDList,  16#0001).
+-define(ATTR_ServiceRecordState, 16#0002).
+-define(ATTR_ServiceID,  16#0003).
+-define(ATTR_ProtocolDescriptorList, 16#0004).
+-define(ATTR_BrowseGroupList,  16#0005).
+-define(ATTR_LanguageBaseAttributeIDList, 16#0006).
+-define(ATTR_ServiceInfoTimeToLive, 16#0007).
+-define(ATTR_ServiceAvailability, 16#0008).
+-define(ATTR_BluetoothProfileDescriptorList, 16#0009).
+-define(ATTR_DocumentationURL, 16#000A).
+-define(ATTR_ClientExecutableURL, 16#000B).
+-define(ATTR_IconURL,  16#000C).
+-define(ATTR_AdditionalProtocolsDescriptorList, 16#000D).
+
+%% ATTRIBUTE
+-define(ATTR_ServiceName,        16#0000).
+-define(ATTR_ServiceDescription, 16#0001).
+-define(ATTR_ProviderName,       16#0002).
+
+%% SDP
+-define(ATTR_SDP_VersionNumberList,    16#0200).
+-define(ATTR_SDP_ServiceDatabaseState, 16#0201).
+
+%% PAN 
+-define(ATTR_PAN_IPSubnet, 16#0200).
+
+%% BIP
+-define(ATTR_BIP_GoepL2capPsm, 16#0200).
+-define(ATTR_BIP_SupportedCapabilities, 16#0310).
+-define(ATTR_BIP_SupportedFeatures,	16#0311).
+-define(ATTR_BIP_SupportedFunctions,	16#0312).
+-define(ATTR_BIP_TotalImagingDataCapacity, 16#0313).
+
+%% AVRCP
+-define(ATTR_ACRCP_SupportedFeatures,	16#0311).
+
+%% BPP - basic printing profile, Direct Printing(1119), ReferencePrinting(1119), 
+%% DirectPrintingReferenceObjectsService(1120),ReflectedUI(1121),PrintingStatus(1123)
+
+%% UUID Def's
+
+%% PROTOCOLS
+-define(UUID_SDP, <<16#0001:16>>).
+-define(UUID_UDP, <<16#0002:16>>).
+-define(UUID_RFCOMM, <<16#0003:16>>).
+-define(UUID_TCP, <<16#0004:16>>).
+-define(UUID_TCS_BIN, <<16#0005:16>>).
+-define(UUID_TCS_AT, <<16#0006:16>>).
+-define(UUID_OBEX, <<16#0008:16>>).
+-define(UUID_IP, <<16#0009:16>>).
+-define(UUID_FTP, <<16#000A:16>>).
+-define(UUID_HTTP, <<16#000C:16>>).
+-define(UUID_WSP, <<16#000E:16>>).
+-define(UUID_BNEP, <<16#000F:16>>).
+-define(UUID_UPNP, <<16#0010:16>>).
+-define(UUID_HIDP, <<16#0011:16>>).
+-define(UUID_HCRP_CTRL, <<16#0012:16>>).
+-define(UUID_HCRP_DATA, <<16#0014:16>>).
+-define(UUID_HCRP_NOTE, <<16#0016:16>>).
+-define(UUID_AVCTP, <<16#0017:16>>).
+-define(UUID_AVDTP, <<16#0019:16>>).
+-define(UUID_CMPT,  <<16#001B:16>>).
+-define(UUID_UDI,   <<16#001D:16>>).
+-define(UUID_MCAP_CTRL, <<16#001E:16>>).
+-define(UUID_MCAP_DATA, <<16#001F:16>>).
+-define(UUID_L2CAP, <<16#0100:16>>).
+
+%% SERVICE Classes
+-define(UUID_ServiceDiscoveryServer, <<16#1000:16>>).
+-define(UUID_BrowseGroupDescriptor, <<16#1001:16>>).
+-define(UUID_PublicBrowseGroup, <<16#1002:16>>).
+-define(UUID_SerialPort, <<16#1101:16>>).
+-define(UUID_LANAccessUsingPPP, <<16#1102:16>>).
+-define(UUID_DialupNetworking, <<16#1103:16>>).
+-define(UUID_IrMCSync, <<16#1104:16>>).
+-define(UUID_OBEXObjectPush, <<16#1105:16>>).
+-define(UUID_OBEXFileTransfer, <<16#1106:16>>).
+-define(UUID_IrMCSyncCommand, <<16#1107:16>>).
+-define(UUID_Headset, <<16#1108:16>>).
+-define(UUID_CordlessTelephony, <<16#1109:16>>).
+-define(UUID_AudioSource, <<16#110A:16>>).
+-define(UUID_AudioSink, <<16#110B:16>>).
+-define(UUID_AVRemoteControlTarget, <<16#110C:16>>).
+-define(UUID_AdvancedAudioDistribution, <<16#110D:16>>).
+-define(UUID_AVRemoteControl, <<16#110E:16>>).
+-define(UUID_VideoConferencing, <<16#110F:16>>).  %% fixme RemoteControlController?
+-define(UUID_Intercom, <<16#1110:16>>).
+-define(UUID_Fax, <<16#1111:16>>).
+-define(UUID_HeadsetAudioGateway, <<16#1112:16>>).
+-define(UUID_WAP, <<16#1113:16>>).
+-define(UUID_WAPClient, <<16#1114:16>>).
+-define(UUID_PANU, <<16#1115:16>>).
+-define(UUID_NAP, <<16#1116:16>>).
+-define(UUID_GN, <<16#1117:16>>).
+-define(UUID_DirectPrinting, <<16#1118:16>>).
+-define(UUID_ReferencePrinting, <<16#1119:16>>).
+-define(UUID_Imaging, <<16#111A:16>>).
+-define(UUID_ImagingResponder, <<16#111B:16>>).
+-define(UUID_ImagingAutomaticArchive, <<16#111C:16>>).
+-define(UUID_ImagingReferencedObjects, <<16#111D:16>>).
+-define(UUID_Handsfree, <<16#111E:16>>).
+-define(UUID_HandsfreeAudioGateway, <<16#111F:16>>).
+-define(UUID_DirectPrintingReferenceObjectsService, <<16#1120:16>>).
+-define(UUID_ReflectedUI, <<16#1121:16>>).
+-define(UUID_BasicPrinting, <<16#1122:16>>).
+-define(UUID_PrintingStatus, <<16#1123:16>>).
+-define(UUID_HumanInterfaceDeviceService, <<16#1124:16>>).
+-define(UUID_HardcopyCableReplacement, <<16#1125:16>>).
+-define(UUID_HCR_Print, <<16#1126:16>>).
+-define(UUID_HCR_Scan, <<16#1127:16>>).
+-define(UUID_CommonISDNAccess, <<16#1128:16>>).
+-define(UUID_VideoConferencingGW, <<16#1129:16>>).
+-define(UUID_UDI_MT, <<16#112A:16>>).
+-define(UUID_UDI_TA, <<16#112B:16>>).
+-define(UUID_Audio_Video, <<16#112C:16>>).
+-define(UUID_SIM_Access, <<16#112D:16>>).
+-define(UUID_PhonebookAccess_PCE, <<16#112E:16>>). %% Phonebook Access Profile
+-define(UUID_PhonebookAccess_PSE, <<16#112F:16>>). %%Phonebook Access Profile
+-define(UUID_PhonebookAccess, <<16#1130:16>>). %% Phonebook Access Profile
+-define(UUID_Headset_HS, <<16#1131:16>>).           %% Headset Profile (HSP)
+-define(UUID_Message_Access_Server, <<16#1132>>).   %%	Message Access Profile (MAP)
+-define(UUID_Message_Notification_Server, <<16#1133>>).	%% Message Access Profile (MAP)
+-define(UUID_Message_Access_Profile, <<16#1134>>).  %% Message Access Profile (MAP)
+-define(UUID_GNSS, <<16#1135>>).  %% Global Navigation Satellite System Profile (GNSS)
+-define(UUID_GNSS_Server, <<16#1136>>). %%	Global Navigation Satellite System Profile (GNSS)
+-define(UUID_3D_Display, <<16#1137>>).	%% 3D Synchronization Profile (3DSP)
+-define(UUID_3D_Glasses, <<16#1138>>).	 %% 3D Synchronization Profile (3DSP)
+-define(UUID_3D_Synchronization, <<16#1139>>). %% 3D Synchronization Profile (3DSP)
+-define(UUID_MPS_Profile, <<16#113A>>). %% Multi-Profile Specification (MPS)
+-define(UUID_MPS_SC, <<16#113B>>). %% Multi-Profile Specification (MPS)
+-define(UUID_CTN_Access_Service, <<16#113C>>). %% Calendar, Task, and Notes (CTN)
+-define(UUID_CTN_Notification_Service, <<16#113D>>). %%	Calendar Tasks and Notes (CTN)
+-define(UUID_CTN_Profile, <<16#113E>>). %% Calendar Tasks and Notes (CTN) Profile
+-define(UUID_PnPInformation, <<16#1200:16>>).
+-define(UUID_GenericNetworking, <<16#1201:16>>).
+-define(UUID_GenericFileTransfer, <<16#1202:16>>).
+-define(UUID_GenericAudio, <<16#1203:16>>).
+-define(UUID_GenericTelephony, <<16#1204:16>>).
+-define(UUID_UPNP_Service, <<16#1205:16>>).
+-define(UUID_UPNP_IP_Service, <<16#1206:16>>).
+-define(UUID_ESDP_UPNP_IP_PAN, <<16#1300:16>>).
+-define(UUID_ESDP_UPNP_IP_LAP, <<16#1301:16>>).
+-define(UUID_ESDP_UPNP_L2CAP, <<16#1302:16>>).
+-define(UUID_VideoSource, <<16#1303:16>>).
+-define(UUID_VideoSink, <<16#1304:16>>).
+-define(UUID_VideoDistribution, <<16#1305:16>>).
+-define(UUID_HDP, <<16#1400:16>>).  %% Health Device Profile
+-define(UUID_HDP_Source, <<16#1401:16>>).  %% Health Device Profile (HDP)
+-define(UUID_HDP_Sink, <<16#1402:16>>).  %% Health Device Profile (HDP)
+
+-define(UUID_SyncMLServer, 
+	<<16#00000001:32,16#0000:16,16#1000:16,16#8000:16,16#0002EE000002:48>>).
+-define(UUID_SyncMLClient,
+	<<16#00000002:32,16#0000:16,16#1000:16,16#8000:16,16#0002EE000002:48>>).
+-define(UUID_SyncMLDMServer, 
+	<<16#00000003:32,16#0000:16,16#1000:16,16#8000:16,16#0002EE000002:48>>).
+-define(UUID_SyncMLDMClient, 
+	<<16#00000004:32,16#0000:16,16#1000:16,16#8000:16,16#0002EE000002:48>>).
+
+%% NOKIA
+-define(UUID_NokiaSyncMLServer,
+	?UUID(16#00005601,16#0000,16#1000,16#8000,16#0002EE000001)).
+-define(UUID_NokiaObexPcSuiteServices,
+	?UUID(16#00005005,16#0000,16#1000,16#8000,16#0002EE000001)).
+
+%% 00005557-0000-1000-8000-0002EE000001    What is this? E60!
+
+%% SONY-ERICSSON	
+-define(UUID_Z520a_SyncMLClient,
+	<<16#00001111:32,16#0000:16,16#0000:16,16#0000:16,16#000222000000:48>>).
+	
+
+-define(LANGUAGE(L1,L2), (((L1) bsl 8) + (L2))).
+
+-define(ENCODING_UTF8, 106).
+
+%%
+%% SDP Request/Response codes
+%%
+-define(SDP_ErrorResponse,                  16#01).
+-define(SDP_ServiceSearchRequest,           16#02).
+-define(SDP_ServiceSearchResponse,          16#03).
+-define(SDP_ServiceAttributeRequest,        16#04).
+-define(SDP_ServiceAttributeResponse,       16#05).
+-define(SDP_ServiceSearchAttributeRequest,  16#06).
+-define(SDP_ServiceSearchAttributeResponse, 16#07).
+
+-define(SDP_ErrorInvalidVersion,        16#0001).
+-define(SDP_ErrorInvalidHandle,         16#0002).
+-define(SDP_ErrorInvalidSyntax,         16#0003).
+-define(SDP_ErrorInvaludPduSize,        16#0004).
+-define(SDP_ErrorInvalidContinuation,   16#0005).
+-define(SDP_ErrorInsufficientResources, 16#0006).
+
+
+-record(sdpErrorResponse,
+	{
+	  errorCode,
+	  errorInfo
+	 }).
+
+-record(sdpServiceSearchRequest,
+	{ 
+	  serviceSearchPattern,
+	  maximumServiceRecordCount
+	 }).
+
+-record(sdpServiceSearchResponse,
+	{ 
+	  totalServiceRecordCount,
+	  currentServiceRecordCount,
+	  serviceRecordHandleList
+	 }).
+
+-record(sdpServiceAttributeRequest,
+	{ 
+	  serviceRecordHandle,
+	  maximumAttributeByteCount,
+	  attributeIDList
+	 }).
+
+-record(sdpServiceAttributeResponse,
+	{ 
+	  attributeListByteCount,
+	  attributeList
+	 }).
+
+-record(sdpServiceSearchAttributeRequest,
+	{ 
+	  serviceSearchPattern,
+	  maximumAttributeByteCount,
+	  attributeIDList
+	 }).
+
+-record(sdpServiceSearchAttributeResponse,
+	{ 	  
+	  attributeListByteCount,
+	  attributeList
+	 }).
+
+-endif.
diff --git a/deps/bt/include/uuid.hrl b/deps/bt/include/uuid.hrl
new file mode 100644
index 0000000..b7f4bd0
--- /dev/null
+++ b/deps/bt/include/uuid.hrl
@@ -0,0 +1,52 @@
+%%%---- BEGIN COPYRIGHT -------------------------------------------------------
+%%%
+%%% Copyright (C) 2007 - 2014, Rogvall Invest AB, <tony@rogvall.se>
+%%%
+%%% This software is licensed as described in the file COPYRIGHT, which
+%%% you should have received as part of this distribution. The terms
+%%% are also available at http://www.rogvall.se/docs/copyright.txt.
+%%%
+%%% You may opt to use, copy, modify, merge, publish, distribute and/or sell
+%%% copies of the Software, and permit persons to whom the Software is
+%%% furnished to do so, under the terms of the COPYRIGHT file.
+%%%
+%%% This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+%%% KIND, either express or implied.
+%%%
+%%%---- END COPYRIGHT ---------------------------------------------------------
+%%
+%% Some UUID macros
+%%
+-ifndef(UUID_HRL).
+-define(UUID_HRL, true).
+
+-define(is_uuid(UUID), is_binary(UUID), size(UUID) == 16).
+
+-define(is_ieee_802(A),
+	is_tuple((A)), size((A)) == 6,
+	((element(1,(A)) bor element(2,(A)) bor  element(3,(A)) bor
+	  element(4,(A)) bor element(5,(A)) bor  element(6,(A))) band
+	 -16#100 == 0)).
+
+%% UUID all components
+-define(UUIDx(Ver,TimeLow,TimeMid,TimeHi,Var,Clock,Node),
+	<<(TimeLow):32,(TimeMid):16,(Ver):4,(TimeHi):12,
+	 (Var):2,(Clock):14,(Node):48>>).
+
+%% UUID major components - for formating etc
+-define(UUID(TimeLow,TimeMid,TimeHigh,Clock,Node),
+	<<TimeLow:32,TimeMid:16,TimeHigh:16, Clock:16, Node:48>>).
+
+-define(NameSpace_DNS,
+	?UUID(16#6ba7b810, 16#9dad, 16#11d1, 16#80b4, 16#00c04fd430c8)).
+
+-define(NameSpace_URL,
+	?UUID(16#6ba7b811, 16#9dad, 16#11d1, 16#80b4, 16#00c04fd430c8)).
+
+-define(NameSpace_OID,
+	?UUID(16#6ba7b812, 16#9dad, 16#11d1, 16#80b4, 16#00c04fd430c8)).
+
+-define(NameSpace_X500,
+	?UUID(16#6ba7b814, 16#9dad, 16#11d1, 16#80b4, 16#00c04fd430c8)).
+
+-endif.
diff --git a/deps/bt/priv/.gitignore b/deps/bt/priv/.gitignore
new file mode 100644
index 0000000..4b2ef59
--- /dev/null
+++ b/deps/bt/priv/.gitignore
@@ -0,0 +1,2 @@
+bt
+*.so
diff --git a/deps/bt/priv/hci.def b/deps/bt/priv/hci.def
new file mode 100644
index 0000000..f63e1e6
--- /dev/null
+++ b/deps/bt/priv/hci.def
@@ -0,0 +1,2250 @@
+%% -*- erlang -*-
+
+{define, 'HCI_MAX_DEV',	16}.
+
+{define, 'HCI_MAX_ACL_SIZE',	1024}.
+{define, 'HCI_MAX_SCO_SIZE',	255}.
+{define, 'HCI_MAX_EVENT_SIZE',	260}.
+{define, 'HCI_MAX_FRAME_SIZE',	"(?HCI_MAX_ACL_SIZE + 4)"}.
+
+%% HCI dev events
+{define, 'HCI_DEV_REG',	    1}.
+{define, 'HCI_DEV_UNREG',   2}.
+{define, 'HCI_DEV_UP',	    3}.
+{define, 'HCI_DEV_DOWN',    4}.
+{define, 'HCI_DEV_SUSPEND', 5}.
+{define, 'HCI_DEV_RESUME',  6}.
+
+%% HCI Error codes 
+{define, 'HCI_UNKNOWN_COMMAND',			16#01}.
+{define, 'HCI_NO_CONNECTION',			16#02}.
+{define, 'HCI_HARDWARE_FAILURE',		16#03}.
+{define, 'HCI_PAGE_TIMEOUT',			16#04}.
+{define, 'HCI_AUTHENTICATION_FAILURE',		16#05}.
+{define, 'HCI_PIN_OR_KEY_MISSING',		16#06}.
+{define, 'HCI_MEMORY_FULL',			16#07}.
+{define, 'HCI_CONNECTION_TIMEOUT',		16#08}.
+{define, 'HCI_MAX_NUMBER_OF_CONNECTIONS',	16#09}.
+{define, 'HCI_MAX_NUMBER_OF_SCO_CONNECTIONS',	16#0a}.
+{define, 'HCI_ACL_CONNECTION_EXISTS',		16#0b}.
+{define, 'HCI_COMMAND_DISALLOWED',		16#0c}.
+{define, 'HCI_REJECTED_LIMITED_RESOURCES',	16#0d}.
+{define, 'HCI_REJECTED_SECURITY',		16#0e}.
+{define, 'HCI_REJECTED_PERSONAL',		16#0f}.
+{define, 'HCI_HOST_TIMEOUT',			16#10}.
+{define, 'HCI_UNSUPPORTED_FEATURE',		16#11}.
+{define, 'HCI_INVALID_PARAMETERS',		16#12}.
+{define, 'HCI_OE_USER_ENDED_CONNECTION',	16#13}.
+{define, 'HCI_OE_LOW_RESOURCES',		16#14}.
+{define, 'HCI_OE_POWER_OFF',			16#15}.
+{define, 'HCI_CONNECTION_TERMINATED',		16#16}.
+{define, 'HCI_REPEATED_ATTEMPTS',		16#17}.
+{define, 'HCI_PAIRING_NOT_ALLOWED',		16#18}.
+{define, 'HCI_UNKNOWN_LMP_PDU',			16#19}.
+{define, 'HCI_UNSUPPORTED_REMOTE_FEATURE',	16#1a}.
+{define, 'HCI_SCO_OFFSET_REJECTED',		16#1b}.
+{define, 'HCI_SCO_INTERVAL_REJECTED',		16#1c}.
+{define, 'HCI_AIR_MODE_REJECTED',		16#1d}.
+{define, 'HCI_INVALID_LMP_PARAMETERS',		16#1e}.
+{define, 'HCI_UNSPECIFIED_ERROR',		16#1f}.
+{define, 'HCI_UNSUPPORTED_LMP_PARAMETER_VALUE',	16#20}.
+{define, 'HCI_ROLE_CHANGE_NOT_ALLOWED',		16#21}.
+{define, 'HCI_LMP_RESPONSE_TIMEOUT',		16#22}.
+{define, 'HCI_LMP_ERROR_TRANSACTION_COLLISION',	16#23}.
+{define, 'HCI_LMP_PDU_NOT_ALLOWED',		16#24}.
+{define, 'HCI_ENCRYPTION_MODE_NOT_ACCEPTED',	16#25}.
+{define, 'HCI_UNIT_LINK_KEY_USED',		16#26}.
+{define, 'HCI_QOS_NOT_SUPPORTED',		16#27}.
+{define, 'HCI_INSTANT_PASSED',			16#28}.
+{define, 'HCI_PAIRING_NOT_SUPPORTED',		16#29}.
+{define, 'HCI_TRANSACTION_COLLISION',		16#2a}.
+{define, 'HCI_QOS_UNACCEPTABLE_PARAMETER',	16#2c}.
+{define, 'HCI_QOS_REJECTED',			16#2d}.
+{define, 'HCI_CLASSIFICATION_NOT_SUPPORTED',	16#2e}.
+{define, 'HCI_INSUFFICIENT_SECURITY',		16#2f}.
+{define, 'HCI_PARAMETER_OUT_OF_RANGE',		16#30}.
+{define, 'HCI_ROLE_SWITCH_PENDING',		16#32}.
+{define, 'HCI_SLOT_VIOLATION',			16#34}.
+{define, 'HCI_ROLE_SWITCH_FAILED',		16#35}.
+{define, 'HCI_EIR_TOO_LARGE',			16#36}.
+{define, 'HCI_SIMPLE_PAIRING_NOT_SUPPORTED',	16#37}.
+{define, 'HCI_HOST_BUSY_PAIRING',		16#38}.
+
+%% Types
+{type, bdaddr_t,    {uint8_t,6}}.
+{type, hci_qos_t,   {uint8_t,17}}.
+%% {type, dev_class_t, {uint8_t,3}}.
+%% {type, lap_t,       {uint8_t,3}}.
+
+
+%% -----  HCI Commands ----- 
+
+%% Link Control 
+{define, 'OGF_LINK_CTL',		16#01}.
+
+{define, 'OCF_INQUIRY',			16#0001}.
+{struct,inquiry_cp,
+ [
+	{{uint8_t,3}, lap},
+	{uint8_t, length},		%% 1.28s units 
+	{uint8_t, num_rsp}
+ ]}.
+{define, 'INQUIRY_CP_SIZE', 5}.
+
+{struct, status_bdaddr_rp,
+ [
+	{uint8_t,	status},
+	{bdaddr_t, 	bdaddr}
+]}.
+{define, 'STATUS_BDADDR_RP_SIZE', 7}.
+
+{define, 'OCF_INQUIRY_CANCEL',		16#0002}.
+
+{define, 'OCF_PERIODIC_INQUIRY',		16#0003}.
+{struct, periodic_inquiry_cp,
+ [
+	{uint16_t,	max_period},	%% 1.28s units 
+	{uint16_t,	min_period},	%% 1.28s units 
+	{{uint8_t,3},	lap},
+	{uint8_t,	length},		%% 1.28s units 
+	{uint8_t,	num_rsp}
+]}.
+{define, 'PERIODIC_INQUIRY_CP_SIZE', 9}.
+
+{define, 'OCF_EXIT_PERIODIC_INQUIRY',	16#0004}.
+
+{define, 'OCF_CREATE_CONN',			16#0005}.
+{struct, create_conn_cp,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint16_t,	pkt_type},
+	{uint8_t,	pscan_rep_mode},
+	{uint8_t,	pscan_mode},
+	{uint16_t,	clock_offset},
+	{uint8_t,	role_switch}
+]}.
+{define, 'CREATE_CONN_CP_SIZE', 13}.
+
+{define, 'OCF_DISCONNECT',			16#0006}.
+{struct, disconnect_cp,
+ [
+	{uint16_t,	handle},
+	{uint8_t,	reason}
+]}.
+{define, 'DISCONNECT_CP_SIZE', 3}.
+
+{define, 'OCF_ADD_SCO',			16#0007}.
+{struct, add_sco_cp,
+ [
+	{uint16_t,	handle},
+	{uint16_t,	pkt_type}
+]}.
+{define, 'ADD_SCO_CP_SIZE', 4}.
+
+{define, 'OCF_CREATE_CONN_CANCEL',		16#0008}.
+{struct, create_conn_cancel_cp,
+ [
+	{bdaddr_t, 	bdaddr}
+]}.
+{define, 'CREATE_CONN_CANCEL_CP_SIZE', 6}.
+
+{define, 'OCF_ACCEPT_CONN_REQ',		16#0009}.
+{struct, accept_conn_req_cp,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	role}
+]}.
+{define, 'ACCEPT_CONN_REQ_CP_SIZE',	7}.
+
+{define, 'OCF_REJECT_CONN_REQ',		16#000A}.
+{struct, reject_conn_req_cp,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	reason}
+]}.
+{define, 'REJECT_CONN_REQ_CP_SIZE',	7}.
+
+{define, 'OCF_LINK_KEY_REPLY',		16#000B}.
+{struct, link_key_reply_cp,
+ [
+	{bdaddr_t, 	bdaddr},
+        {{uint8_t,16},	link_key}
+]}.
+{define, 'LINK_KEY_REPLY_CP_SIZE', 22}.
+
+{define, 'OCF_LINK_KEY_NEG_REPLY',		16#000C}.
+{struct, link_key_neg_reply_cp,
+ [
+        {bdaddr_t, bdaddr}
+ ]}.
+{define, 'LINK_KEY_NEG_REPLY_CP_SIZE', 6}.
+
+{define, 'OCF_PIN_CODE_REPLY',		16#000D}.
+{struct, pin_code_reply_cp,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	pin_len},
+	{{uint8_t,16},	pin_code}
+]}.
+{define, 'PIN_CODE_REPLY_CP_SIZE', 23}.
+
+{define, 'OCF_PIN_CODE_NEG_REPLY',		16#000E}.
+
+{define, 'OCF_SET_CONN_PTYPE',		16#000F}.
+{struct, set_conn_ptype_cp,
+ [
+	{uint16_t,	 handle},
+	{uint16_t,	 pkt_type}
+]}.
+{define, 'SET_CONN_PTYPE_CP_SIZE', 4}.
+
+{define, 'OCF_AUTH_REQUESTED',		16#0011}.
+{struct, auth_requested_cp,
+ [
+	{uint16_t,	 handle}
+]}.
+{define, 'AUTH_REQUESTED_CP_SIZE', 2}.
+
+{define, 'OCF_SET_CONN_ENCRYPT',		16#0013}.
+{struct, set_conn_encrypt_cp,
+ [
+	{uint16_t,	handle},
+	{uint8_t,	encrypt}
+]}.
+{define, 'SET_CONN_ENCRYPT_CP_SIZE', 3}.
+
+{define, 'OCF_CHANGE_CONN_LINK_KEY',	16#0015}.
+{struct, change_conn_link_key_cp,
+ [
+	{uint16_t,	handle}
+]}.
+{define, 'CHANGE_CONN_LINK_KEY_CP_SIZE', 2}.
+
+{define, 'OCF_MASTER_LINK_KEY',		16#0017}.
+{struct, master_link_key_cp,
+ [
+	{uint8_t,	key_flag}
+]}.
+{define, 'MASTER_LINK_KEY_CP_SIZE', 1}.
+
+{define, 'OCF_REMOTE_NAME_REQ',		16#0019}.
+{struct, remote_name_req_cp,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	pscan_rep_mode},
+	{uint8_t,	pscan_mode},
+	{uint16_t,	clock_offset}
+]}.
+{define, 'REMOTE_NAME_REQ_CP_SIZE', 10}.
+
+{define, 'OCF_REMOTE_NAME_REQ_CANCEL',	16#001A}.
+{struct, remote_name_req_cancel_cp,
+ [
+	{bdaddr_t, 	bdaddr}
+]}.
+{define, 'REMOTE_NAME_REQ_CANCEL_CP_SIZE', 6}.
+
+{define, 'OCF_READ_REMOTE_FEATURES',	16#001B}.
+{struct, read_remote_features_cp,
+ [
+	{uint16_t,	handle}
+]}.
+{define, 'READ_REMOTE_FEATURES_CP_SIZE', 2}.
+
+{define, 'OCF_READ_REMOTE_EXT_FEATURES',	16#001C}.
+{struct, read_remote_ext_features_cp,
+ [
+	{uint16_t,	handle},
+	{uint8_t,	page_num}
+]}.
+{define, 'READ_REMOTE_EXT_FEATURES_CP_SIZE', 3}.
+
+{define, 'OCF_READ_REMOTE_VERSION',		16#001D}.
+{struct, read_remote_version_cp,
+ [
+	{uint16_t,	handle}
+]}.
+{define, 'READ_REMOTE_VERSION_CP_SIZE', 2}.
+
+{define, 'OCF_READ_CLOCK_OFFSET',		16#001F}.
+{struct, read_clock_offset_cp,
+ [
+	{uint16_t,	handle}
+]}.
+{define, 'READ_CLOCK_OFFSET_CP_SIZE', 2}.
+
+{define, 'OCF_READ_LMP_HANDLE',		16#0020}.
+
+{define, 'OCF_SETUP_SYNC_CONN',		16#0028}.
+{struct, setup_sync_conn_cp,
+ [
+	{uint16_t,	handle},
+	{uint32_t,	tx_bandwith},
+	{uint32_t,	rx_bandwith},
+	{uint16_t,	max_latency},
+	{uint16_t,	voice_setting},
+	{uint8_t,	retrans_effort},
+	{uint16_t,	pkt_type}
+]}.
+{define, 'SETUP_SYNC_CONN_CP_SIZE', 17}.
+
+{define, 'OCF_ACCEPT_SYNC_CONN_REQ',	16#0029}.
+{struct, accept_sync_conn_req_cp,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint32_t,	tx_bandwith},
+	{uint32_t,	rx_bandwith},
+	{uint16_t,	max_latency},
+	{uint16_t,	voice_setting},
+	{uint8_t,	retrans_effort},
+	{uint16_t,	pkt_type}
+]}.
+{define, 'ACCEPT_SYNC_CONN_REQ_CP_SIZE', 21}.
+
+{define, 'OCF_REJECT_SYNC_CONN_REQ',	16#002A}.
+{struct, reject_sync_conn_req_cp,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	reason}
+]}.
+{define, 'REJECT_SYNC_CONN_REQ_CP_SIZE', 7}.
+
+{define, 'OCF_IO_CAPABILITY_REPLY',		16#002B}.
+{struct, io_capability_reply_cp,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	capability},
+	{uint8_t,	oob_data},
+	{uint8_t,	authentication}
+]}.
+{define, 'IO_CAPABILITY_REPLY_CP_SIZE', 9}.
+
+{define, 'OCF_USER_CONFIRM_REPLY',		16#002C}.
+{struct, user_confirm_reply_cp,
+ [
+	{bdaddr_t, 	bdaddr}
+]}.
+{define, 'USER_CONFIRM_REPLY_CP_SIZE', 6}.
+
+{define, 'OCF_USER_CONFIRM_NEG_REPLY',	16#002D}.
+
+{define, 'OCF_USER_PASSKEY_REPLY',		16#002E}.
+{struct, user_passkey_reply_cp,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint32_t,	passkey}
+]}.
+{define, 'USER_PASSKEY_REPLY_CP_SIZE', 10}.
+
+{define, 'OCF_USER_PASSKEY_NEG_REPLY',	16#002F}.
+
+{define, 'OCF_REMOTE_OOB_DATA_REPLY',	16#0030}.
+{struct, remote_oob_data_reply_cp,
+ [
+	{bdaddr_t, 	bdaddr},
+	{{uint8_t,16},	hash},
+	{{uint8_t,16},	randomizer}
+]}.
+{define, 'REMOTE_OOB_DATA_REPLY_CP_SIZE', 38}.
+
+{define, 'OCF_REMOTE_OOB_DATA_NEG_REPLY',	16#0033}.
+
+{define, 'OCF_IO_CAPABILITY_NEG_REPLY',	16#0034}.
+{struct, io_capability_neg_reply_cp,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	reason}
+]}.
+{define, 'IO_CAPABILITY_NEG_REPLY_CP_SIZE', 7}.
+
+{define, 'OCF_CREATE_PHYSICAL_LINK',		16#0035}.
+{struct, create_physical_link_cp,
+ [
+	{uint8_t,	handle},
+	{uint8_t,	key_length},
+	{uint8_t,	key_type},
+	{{uint8_t,32},	key}
+]}.
+{define, 'CREATE_PHYSICAL_LINK_CP_SIZE', 35}.
+
+{define, 'OCF_ACCEPT_PHYSICAL_LINK',		16#0036}.
+
+{define, 'OCF_DISCONNECT_PHYSICAL_LINK',		16#0037}.
+{struct, disconnect_physical_link_cp,
+ [
+	{uint8_t,	handle},
+	{uint8_t,	reason}
+]}.
+{define, 'DISCONNECT_PHYSICAL_LINK_CP_SIZE', 2}.
+
+{define, 'OCF_CREATE_LOGICAL_LINK',		16#0038}.
+{struct, create_logical_link_cp,
+ [
+	{uint8_t,	handle},
+	{{uint8_t,16},	tx_flow},
+	{{uint8_t,16},	rx_flow}
+]}.
+{define, 'CREATE_LOGICAL_LINK_CP_SIZE', 33}.
+
+{define, 'OCF_ACCEPT_LOGICAL_LINK',		16#0039}.
+
+{define, 'OCF_DISCONNECT_LOGICAL_LINK',		16#003A}.
+{struct, disconnect_logical_link_cp,
+ [
+	{uint16_t,	handle}
+]}.
+{define, 'DISCONNECT_LOGICAL_LINK_CP_SIZE', 2}.
+
+{define, 'OCF_LOGICAL_LINK_CANCEL',		16#003B}.
+{struct, cancel_logical_link_cp,
+ [
+	{uint8_t,	handle},
+	{uint8_t,	tx_flow_id}
+]}.
+{define, 'LOGICAL_LINK_CANCEL_CP_SIZE', 2}.
+{struct, cancel_logical_link_rp,
+ [
+	{uint8_t,	status},
+	{uint8_t,	handle},
+	{uint8_t,	tx_flow_id}
+]}.
+{define, 'LOGICAL_LINK_CANCEL_RP_SIZE', 3}.
+
+{define, 'OCF_FLOW_SPEC_MODIFY',		16#003C}.
+
+%% Link Policy 
+{define, 'OGF_LINK_POLICY',		16#02}.
+
+{define, 'OCF_HOLD_MODE',			16#0001}.
+{struct, hold_mode_cp,
+ [
+	{uint16_t,	handle},
+	{uint16_t,	max_interval},
+	{uint16_t,	min_interval}
+]}.
+{define, 'HOLD_MODE_CP_SIZE', 6}.
+
+{define, 'OCF_SNIFF_MODE',			16#0003}.
+{struct, sniff_mode_cp,
+ [
+	{uint16_t,	handle},
+	{uint16_t,	max_interval},
+	{uint16_t,	min_interval},
+	{uint16_t,	attempt},
+	{uint16_t,	timeout}
+]}.
+{define, 'SNIFF_MODE_CP_SIZE', 10}.
+
+{define, 'OCF_EXIT_SNIFF_MODE',		16#0004}.
+{struct, exit_sniff_mode_cp,
+ [
+	{uint16_t,	handle}
+]}.
+{define, 'EXIT_SNIFF_MODE_CP_SIZE', 2}.
+
+{define, 'OCF_PARK_MODE',			16#0005}.
+{struct, park_mode_cp,
+ [
+	{uint16_t,	handle},
+	{uint16_t,	max_interval},
+	{uint16_t,	min_interval}
+]}.
+{define, 'PARK_MODE_CP_SIZE', 6}.
+
+{define, 'OCF_EXIT_PARK_MODE',		16#0006}.
+{struct, exit_park_mode_cp,
+ [
+	{uint16_t,	handle}
+]}.
+{define, 'EXIT_PARK_MODE_CP_SIZE', 2}.
+
+{define, 'OCF_QOS_SETUP',			16#0007}.
+{struct, hci_qos,
+ [
+	{uint8_t,	service_type},		%% 1 = best effort 
+	{uint32_t,	token_rate},		%% Byte per seconds 
+	{uint32_t,	peak_bandwidth},		%% Byte per seconds 
+	{uint32_t,	latency},		%% Microseconds 
+	{uint32_t,	delay_variation}	%% Microseconds 
+]}.
+{define, 'HCI_QOS_CP_SIZE', 17}.
+{struct, qos_setup_cp,
+ [
+	{uint16_t, 	handle},
+	{uint8_t,	flags},			%% Reserved 
+	{hci_qos_t, 	qos}
+]}.
+{define, 'QOS_SETUP_CP_SIZE', "(3 + ?HCI_QOS_CP_SIZE)"}.
+
+{define, 'OCF_ROLE_DISCOVERY',		16#0009}.
+{struct, role_discovery_cp,
+ [
+	{uint16_t,	handle}
+]}.
+{define, 'ROLE_DISCOVERY_CP_SIZE', 2}.
+{struct, role_discovery_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{uint8_t,	role}
+]}.
+{define, 'ROLE_DISCOVERY_RP_SIZE', 4}.
+
+{define, 'OCF_SWITCH_ROLE',			16#000B}.
+{struct, switch_role_cp,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	role}
+]}.
+{define, 'SWITCH_ROLE_CP_SIZE', 7}.
+
+{define, 'OCF_READ_LINK_POLICY',		16#000C}.
+{struct, read_link_policy_cp,
+ [
+	{uint16_t,	handle}
+]}.
+{define, 'READ_LINK_POLICY_CP_SIZE', 2}.
+{struct, read_link_policy_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{uint16_t,	policy}
+]}.
+{define, 'READ_LINK_POLICY_RP_SIZE', 5}.
+
+{define, 'OCF_WRITE_LINK_POLICY',		16#000D}.
+{struct, write_link_policy_cp,
+ [
+	{uint16_t,	handle},
+	{uint16_t,	policy}
+]}.
+{define, 'WRITE_LINK_POLICY_CP_SIZE', 4}.
+{struct, write_link_policy_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle}
+]}.
+{define, 'WRITE_LINK_POLICY_RP_SIZE', 3}.
+
+{define, 'OCF_READ_DEFAULT_LINK_POLICY',	16#000E}.
+
+{define, 'OCF_WRITE_DEFAULT_LINK_POLICY',	16#000F}.
+
+{define, 'OCF_FLOW_SPECIFICATION',		16#0010}.
+
+{define, 'OCF_SNIFF_SUBRATING',		16#0011}.
+{struct, sniff_subrating_cp,
+ [
+	{uint16_t,	handle},
+	{uint16_t,	max_latency},
+	{uint16_t,	min_remote_timeout},
+	{uint16_t,	min_local_timeout}
+]}.
+{define, 'SNIFF_SUBRATING_CP_SIZE', 8}.
+
+%% Host Controller and Baseband 
+{define, 'OGF_HOST_CTL',		16#03}.
+
+{define, 'OCF_SET_EVENT_MASK',		16#0001}.
+{struct, set_event_mask_cp,
+ [
+	{{uint8_t,8},	mask}
+]}.
+{define, 'SET_EVENT_MASK_CP_SIZE', 8}.
+
+{define, 'OCF_RESET',			16#0003}.
+
+{define, 'OCF_SET_EVENT_FLT',		16#0005}.
+{struct, set_event_flt_cp,
+ [
+	{uint8_t,	flt_type},
+	{uint8_t,	cond_type},
+	{{uint8_t,0},	condition}
+]}.
+{define, 'SET_EVENT_FLT_CP_SIZE', 2}.
+
+%% Filter types 
+{define, 'FLT_CLEAR_ALL',			16#00}.
+{define, 'FLT_INQ_RESULT',			16#01}.
+{define, 'FLT_CONN_SETUP',			16#02}.
+%% INQ_RESULT Condition types 
+{define, 'INQ_RESULT_RETURN_ALL',		16#00}.
+{define, 'INQ_RESULT_RETURN_CLASS',		16#01}.
+{define, 'INQ_RESULT_RETURN_BDADDR',	16#02}.
+%% CONN_SETUP Condition types 
+{define, 'CONN_SETUP_ALLOW_ALL',		16#00}.
+{define, 'CONN_SETUP_ALLOW_CLASS',		16#01}.
+{define, 'CONN_SETUP_ALLOW_BDADDR',		16#02}.
+%% CONN_SETUP Conditions 
+{define, 'CONN_SETUP_AUTO_OFF',		16#01}.
+{define, 'CONN_SETUP_AUTO_ON',		16#02}.
+
+{define, 'OCF_FLUSH',			16#0008}.
+
+{define, 'OCF_READ_PIN_TYPE',		16#0009}.
+{struct, read_pin_type_rp,
+ [
+	{uint8_t,	status},
+	{uint8_t,	pin_type}
+]}.
+{define, 'READ_PIN_TYPE_RP_SIZE', 2}.
+
+{define, 'OCF_WRITE_PIN_TYPE',		16#000A}.
+{struct, write_pin_type_cp,
+ [
+	{uint8_t,	pin_type}
+]}.
+{define, 'WRITE_PIN_TYPE_CP_SIZE', 1}.
+
+{define, 'OCF_CREATE_NEW_UNIT_KEY',		16#000B}.
+
+{define, 'OCF_READ_STORED_LINK_KEY',	16#000D}.
+{struct, read_stored_link_key_cp,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	read_all}
+]}.
+{define, 'READ_STORED_LINK_KEY_CP_SIZE', 7}.
+{struct, read_stored_link_key_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	max_keys},
+	{uint16_t,	num_keys}
+]}.
+{define, 'READ_STORED_LINK_KEY_RP_SIZE', 5}.
+
+{define, 'OCF_WRITE_STORED_LINK_KEY',	16#0011}.
+{struct, write_stored_link_key_cp,
+ [
+	{uint8_t,	num_keys}
+	%% variable length part 
+]}.
+{define, 'WRITE_STORED_LINK_KEY_CP_SIZE', 1}.
+{struct, write_stored_link_key_rp,
+ [
+	{uint8_t,	status},
+	{uint8_t,	num_keys}
+]}.
+{define, 'READ_WRITE_LINK_KEY_RP_SIZE', 2}.
+
+{define, 'OCF_DELETE_STORED_LINK_KEY',	16#0012}.
+{struct, delete_stored_link_key_cp,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	delete_all}
+]}.
+{define, 'DELETE_STORED_LINK_KEY_CP_SIZE', 7}.
+{struct, delete_stored_link_key_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	num_keys}
+]}.
+{define, 'DELETE_STORED_LINK_KEY_RP_SIZE', 3}.
+
+{define, 'HCI_MAX_NAME_LENGTH',		248}.
+
+{define, 'OCF_CHANGE_LOCAL_NAME',		16#0013}.
+{struct, change_local_name_cp,
+ [
+	{{char,"?HCI_MAX_NAME_LENGTH"},	name}
+]}.
+{define, 'CHANGE_LOCAL_NAME_CP_SIZE', 248}.
+
+{define, 'OCF_READ_LOCAL_NAME',		16#0014}.
+{struct, read_local_name_rp,
+ [
+	{uint8_t,	status},
+        {{char, "?HCI_MAX_NAME_LENGTH"}, name}
+]}.
+{define, 'READ_LOCAL_NAME_RP_SIZE', 249}.
+
+{define, 'OCF_READ_CONN_ACCEPT_TIMEOUT',	16#0015}.
+{struct, read_conn_accept_timeout_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	timeout}
+]}.
+{define, 'READ_CONN_ACCEPT_TIMEOUT_RP_SIZE', 3}.
+
+{define, 'OCF_WRITE_CONN_ACCEPT_TIMEOUT',	16#0016}.
+{struct, write_conn_accept_timeout_cp,
+ [
+	{uint16_t,	timeout}
+]}.
+{define, 'WRITE_CONN_ACCEPT_TIMEOUT_CP_SIZE', 2}.
+
+{define, 'OCF_READ_PAGE_TIMEOUT',		16#0017}.
+{struct, read_page_timeout_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	timeout}
+]}.
+{define, 'READ_PAGE_TIMEOUT_RP_SIZE', 3}.
+
+{define, 'OCF_WRITE_PAGE_TIMEOUT',		16#0018}.
+{struct, write_page_timeout_cp,
+ [
+	{uint16_t,	timeout}
+]}.
+{define, 'WRITE_PAGE_TIMEOUT_CP_SIZE', 2}.
+
+{define, 'OCF_READ_SCAN_ENABLE',		16#0019}.
+{struct, read_scan_enable_rp,
+ [
+	{uint8_t,	status},
+	{uint8_t,	enable}
+]}.
+{define, 'READ_SCAN_ENABLE_RP_SIZE', 2}.
+
+{define, 'OCF_WRITE_SCAN_ENABLE',		16#001A}.
+%%	{define, 'SCAN_DISABLED',		16#00}.
+%%	{define, 'SCAN_INQUIRY',		16#01}.
+%%	{define, 'SCAN_PAGE',		16#02}.
+
+{define, 'OCF_READ_PAGE_ACTIVITY',		16#001B}.
+{struct, read_page_activity_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	interval},
+	{uint16_t,	window}
+]}.
+{define, 'READ_PAGE_ACTIVITY_RP_SIZE', 5}.
+
+{define, 'OCF_WRITE_PAGE_ACTIVITY',		16#001C}.
+{struct, write_page_activity_cp,
+ [
+	{uint16_t,	interval},
+	{uint16_t,	window}
+]}.
+{define, 'WRITE_PAGE_ACTIVITY_CP_SIZE', 4}.
+
+{define, 'OCF_READ_INQ_ACTIVITY',		16#001D}.
+{struct, read_inq_activity_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	interval},
+	{uint16_t,	window}
+]}.
+{define, 'READ_INQ_ACTIVITY_RP_SIZE', 5}.
+
+{define, 'OCF_WRITE_INQ_ACTIVITY',		16#001E}.
+{struct, write_inq_activity_cp,
+ [
+	{uint16_t,	interval},
+	{uint16_t,	window}
+]}.
+{define, 'WRITE_INQ_ACTIVITY_CP_SIZE', 4}.
+
+{define, 'OCF_READ_AUTH_ENABLE',		16#001F}.
+
+{define, 'OCF_WRITE_AUTH_ENABLE',		16#0020}.
+    {define, 'AUTH_DISABLED',  16#00}.
+    {define, 'AUTH_ENABLED',   16#01}.
+
+{define, 'OCF_READ_ENCRYPT_MODE',		16#0021}.
+
+{define, 'OCF_WRITE_ENCRYPT_MODE',		16#0022}.
+    {define, 'ENCRYPT_DISABLED',	16#00}.
+    {define, 'ENCRYPT_P2P',		16#01}.
+    {define, 'ENCRYPT_BOTH',		16#02}.
+
+{define, 'OCF_READ_CLASS_OF_DEV',		16#0023}.
+{struct, read_class_of_dev_rp,
+ [
+	{uint8_t,	status},
+	{{uint8_t,3},	dev_class}
+]}.
+{define, 'READ_CLASS_OF_DEV_RP_SIZE', 4}.
+
+{define, 'OCF_WRITE_CLASS_OF_DEV',		16#0024}.
+{struct, write_class_of_dev_cp,
+ [
+	{{uint8_t,3},	dev_class}
+]}.
+{define, 'WRITE_CLASS_OF_DEV_CP_SIZE', 3}.
+
+{define, 'OCF_READ_VOICE_SETTING',		16#0025}.
+{struct, read_voice_setting_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	voice_setting}
+]}.
+{define, 'READ_VOICE_SETTING_RP_SIZE', 3}.
+
+{define, 'OCF_WRITE_VOICE_SETTING',		16#0026}.
+{struct, write_voice_setting_cp,
+ [
+	{uint16_t,	voice_setting}
+]}.
+{define, 'WRITE_VOICE_SETTING_CP_SIZE', 2}.
+
+{define, 'OCF_READ_AUTOMATIC_FLUSH_TIMEOUT',	16#0027}.
+
+{define, 'OCF_WRITE_AUTOMATIC_FLUSH_TIMEOUT',	16#0028}.
+
+{define, 'OCF_READ_NUM_BROADCAST_RETRANS',	16#0029}.
+
+{define, 'OCF_WRITE_NUM_BROADCAST_RETRANS',	16#002A}.
+
+{define, 'OCF_READ_HOLD_MODE_ACTIVITY',	16#002B}.
+
+{define, 'OCF_WRITE_HOLD_MODE_ACTIVITY',	16#002C}.
+
+{define, 'OCF_READ_TRANSMIT_POWER_LEVEL',	16#002D}.
+{struct, read_transmit_power_level_cp,
+ [
+	{uint16_t,	handle},
+	{uint8_t,	type}
+]}.
+{define, 'READ_TRANSMIT_POWER_LEVEL_CP_SIZE', 3}.
+{struct, read_transmit_power_level_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{int8_t,	level}
+]}.
+{define, 'READ_TRANSMIT_POWER_LEVEL_RP_SIZE', 4}.
+
+{define, 'OCF_READ_SYNC_FLOW_ENABLE',	16#002E}.
+
+{define, 'OCF_WRITE_SYNC_FLOW_ENABLE',	16#002F}.
+
+{define, 'OCF_SET_CONTROLLER_TO_HOST_FC',	16#0031}.
+
+{define, 'OCF_HOST_BUFFER_SIZE',		16#0033}.
+{struct, host_buffer_size_cp,
+ [
+	{uint16_t,	acl_mtu},
+	{uint8_t,	sco_mtu},
+	{uint16_t,	acl_max_pkt},
+	{uint16_t,	sco_max_pkt}
+]}.
+{define, 'HOST_BUFFER_SIZE_CP_SIZE', 7}.
+
+{define, 'OCF_HOST_NUM_COMP_PKTS',		16#0035}.
+{struct, host_num_comp_pkts_cp,
+ [
+	{uint8_t,	num_hndl}
+        %% variable length part
+        %% {list, num_hndl, uint16_t, hndls}
+]}.
+{define, 'HOST_NUM_COMP_PKTS_CP_SIZE', 1}.
+
+{define, 'OCF_READ_LINK_SUPERVISION_TIMEOUT',	16#0036}.
+{struct, read_link_supervision_timeout_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{uint16_t,	timeout}
+]}.
+{define, 'READ_LINK_SUPERVISION_TIMEOUT_RP_SIZE', 5}.
+
+{define, 'OCF_WRITE_LINK_SUPERVISION_TIMEOUT',	16#0037}.
+{struct, write_link_supervision_timeout_cp,
+ [
+	{uint16_t,	handle},
+	{uint16_t,	timeout}
+]}.
+{define, 'WRITE_LINK_SUPERVISION_TIMEOUT_CP_SIZE', 4}.
+{struct, write_link_supervision_timeout_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle}
+]}.
+{define, 'WRITE_LINK_SUPERVISION_TIMEOUT_RP_SIZE', 3}.
+
+{define, 'OCF_READ_NUM_SUPPORTED_IAC',	16#0038}.
+
+{define, 'MAX_IAC_LAP', 16#40}.
+{define, 'OCF_READ_CURRENT_IAC_LAP',	16#0039}.
+{struct, read_current_iac_lap_rp,
+ [
+	{uint8_t,       status},
+        {uint8_t,       num_current_iac},
+        %% {list,num_current_iac,{binary,3},"?MAX_IAC_LAP",lap}
+        {{uint8_t,"3*?MAX_IAC_LAP"},	lap}
+]}.
+{define, 'READ_CURRENT_IAC_LAP_RP_SIZE', "2+3*?MAX_IAC_LAP"}.
+
+{define, 'OCF_WRITE_CURRENT_IAC_LAP',	16#003A}.
+{struct, write_current_iac_lap_cp,
+ [
+	{uint8_t,	num_current_iac},
+        %% {list,num_current_iac,{binary,3},"?MAX_IAC_LAP",lap}
+	{{uint8_t,"3*?MAX_IAC_LAP"},	lap}
+]}.
+{define, 'WRITE_CURRENT_IAC_LAP_CP_SIZE', "1+3*?MAX_IAC_LAP"}.
+
+{define, 'OCF_READ_PAGE_SCAN_PERIOD_MODE',	16#003B}.
+
+{define, 'OCF_WRITE_PAGE_SCAN_PERIOD_MODE',	16#003C}.
+
+{define, 'OCF_READ_PAGE_SCAN_MODE',		16#003D}.
+
+{define, 'OCF_WRITE_PAGE_SCAN_MODE',	16#003E}.
+
+{define, 'OCF_SET_AFH_CLASSIFICATION',	16#003F}.
+{struct, set_afh_classification_cp,
+ [
+	{{uint8_t,10},	map}
+]}.
+{define, 'SET_AFH_CLASSIFICATION_CP_SIZE', 10}.
+{struct, set_afh_classification_rp,
+ [
+	{uint8_t,	status}
+]}.
+{define, 'SET_AFH_CLASSIFICATION_RP_SIZE', 1}.
+
+{define, 'OCF_READ_INQUIRY_SCAN_TYPE',	16#0042}.
+{struct, read_inquiry_scan_type_rp,
+ [
+	{uint8_t,	status},
+	{uint8_t,	type}
+]}.
+{define, 'READ_INQUIRY_SCAN_TYPE_RP_SIZE', 2}.
+
+{define, 'OCF_WRITE_INQUIRY_SCAN_TYPE',	16#0043}.
+{struct, write_inquiry_scan_type_cp,
+ [
+	{uint8_t,	type}
+]}.
+{define, 'WRITE_INQUIRY_SCAN_TYPE_CP_SIZE', 1}.
+{struct, write_inquiry_scan_type_rp,
+ [
+	{uint8_t,	status}
+]}.
+{define, 'WRITE_INQUIRY_SCAN_TYPE_RP_SIZE', 1}.
+
+{define, 'OCF_READ_INQUIRY_MODE',		16#0044}.
+{struct, read_inquiry_mode_rp,
+ [
+	{uint8_t,	status},
+	{uint8_t,	mode}
+]}.
+{define, 'READ_INQUIRY_MODE_RP_SIZE', 2}.
+
+{define, 'OCF_WRITE_INQUIRY_MODE',		16#0045}.
+{struct, write_inquiry_mode_cp,
+ [
+	{uint8_t,	mode}
+]}.
+{define, 'WRITE_INQUIRY_MODE_CP_SIZE', 1}.
+{struct, write_inquiry_mode_rp,
+ [
+	{uint8_t,	status}
+]}.
+{define, 'WRITE_INQUIRY_MODE_RP_SIZE', 1}.
+
+{define, 'OCF_READ_PAGE_SCAN_TYPE',		16#0046}.
+
+{define, 'OCF_WRITE_PAGE_SCAN_TYPE',	16#0047}.
+{define, 'PAGE_SCAN_TYPE_STANDARD',	16#00}.
+{define, 'PAGE_SCAN_TYPE_INTERLACED',	16#01}.
+
+{define, 'OCF_READ_AFH_MODE',		16#0048}.
+{struct, read_afh_mode_rp,
+ [
+	{uint8_t,	status},
+	{uint8_t,	mode}
+]}.
+{define, 'READ_AFH_MODE_RP_SIZE', 2}.
+
+{define, 'OCF_WRITE_AFH_MODE',		16#0049}.
+{struct, write_afh_mode_cp,
+ [
+	{uint8_t,	mode}
+]}.
+{define, 'WRITE_AFH_MODE_CP_SIZE', 1}.
+{struct, write_afh_mode_rp,
+ [
+	{uint8_t,	status}
+]}.
+{define, 'WRITE_AFH_MODE_RP_SIZE', 1}.
+
+{define, 'HCI_MAX_EIR_LENGTH',		240}.
+
+{define, 'OCF_READ_EXT_INQUIRY_RESPONSE',	16#0051}.
+{struct, read_ext_inquiry_response_rp,
+ [
+	{uint8_t,	status},
+	{uint8_t,	fec},
+	{{uint8_t,"?HCI_MAX_EIR_LENGTH"}, data}
+]}.
+{define, 'READ_EXT_INQUIRY_RESPONSE_RP_SIZE', 242}.
+
+{define, 'OCF_WRITE_EXT_INQUIRY_RESPONSE',	16#0052}.
+{struct, write_ext_inquiry_response_cp,
+ [
+	{uint8_t,       fec},
+	{{uint8_t,"?HCI_MAX_EIR_LENGTH"}, data}
+]}.
+{define, 'WRITE_EXT_INQUIRY_RESPONSE_CP_SIZE', 241}.
+{struct, write_ext_inquiry_response_rp,
+ [
+	{uint8_t,       status}
+]}.
+{define, 'WRITE_EXT_INQUIRY_RESPONSE_RP_SIZE', 1}.
+
+{define, 'OCF_REFRESH_ENCRYPTION_KEY',	16#0053}.
+{struct, refresh_encryption_key_cp,
+ [
+	{uint16_t,	handle}
+]}.
+{define, 'REFRESH_ENCRYPTION_KEY_CP_SIZE', 2}.
+{struct, refresh_encryption_key_rp,
+ [
+	{uint8_t,	status}
+]}.
+{define, 'REFRESH_ENCRYPTION_KEY_RP_SIZE', 1}.
+
+{define, 'OCF_READ_SIMPLE_PAIRING_MODE',	16#0055}.
+{struct, read_simple_pairing_mode_rp,
+ [
+	{uint8_t,	status},
+	{uint8_t,	mode}
+]}.
+{define, 'READ_SIMPLE_PAIRING_MODE_RP_SIZE', 2}.
+
+{define, 'OCF_WRITE_SIMPLE_PAIRING_MODE',	16#0056}.
+{struct, write_simple_pairing_mode_cp,
+ [
+	{uint8_t,	mode}
+]}.
+{define, 'WRITE_SIMPLE_PAIRING_MODE_CP_SIZE', 1}.
+{struct, write_simple_pairing_mode_rp,
+ [
+	{uint8_t,	status}
+]}.
+{define, 'WRITE_SIMPLE_PAIRING_MODE_RP_SIZE', 1}.
+
+{define, 'OCF_READ_LOCAL_OOB_DATA',		16#0057}.
+{struct, read_local_oob_data_rp,
+ [
+	{uint8_t,	status},
+	{{uint8_t,16},	hash},
+	{{uint8_t,16},	randomizer}
+]}.
+{define, 'READ_LOCAL_OOB_DATA_RP_SIZE', 33}.
+
+{define, 'OCF_READ_INQ_RESPONSE_TX_POWER_LEVEL',	16#0058}.
+{struct, read_inq_response_tx_power_level_rp,
+ [
+	{uint8_t,	status},
+	{int8_t,	level}
+]}.
+{define, 'READ_INQ_RESPONSE_TX_POWER_LEVEL_RP_SIZE', 2}.
+
+{define, 'OCF_READ_INQUIRY_TRANSMIT_POWER_LEVEL',	16#0058}.
+{struct, read_inquiry_transmit_power_level_rp,
+ [
+	{uint8_t,	status},
+        {int8_t,	level}
+]}.
+{define, 'READ_INQUIRY_TRANSMIT_POWER_LEVEL_RP_SIZE', 2}.
+
+{define, 'OCF_WRITE_INQUIRY_TRANSMIT_POWER_LEVEL',	16#0059}.
+{struct, write_inquiry_transmit_power_level_cp,
+ [
+	{int8_t,	level}
+]}.
+{define, 'WRITE_INQUIRY_TRANSMIT_POWER_LEVEL_CP_SIZE', 1}.
+{struct, write_inquiry_transmit_power_level_rp,
+ [
+	{uint8_t,	status}
+]}.
+{define, 'WRITE_INQUIRY_TRANSMIT_POWER_LEVEL_RP_SIZE', 1}.
+
+{define, 'OCF_READ_DEFAULT_ERROR_DATA_REPORTING',	16#005A}.
+{struct, read_default_error_data_reporting_rp,
+ [
+	{uint8_t,	status},
+	{uint8_t,	reporting}
+]}.
+{define, 'READ_DEFAULT_ERROR_DATA_REPORTING_RP_SIZE', 2}.
+
+{define, 'OCF_WRITE_DEFAULT_ERROR_DATA_REPORTING',	16#005B}.
+{struct, write_default_error_data_reporting_cp,
+ [
+	{uint8_t,	reporting}
+]}.
+{define, 'WRITE_DEFAULT_ERROR_DATA_REPORTING_CP_SIZE', 1}.
+{struct, write_default_error_data_reporting_rp,
+ [
+	{uint8_t,	status}
+]}.
+{define, 'WRITE_DEFAULT_ERROR_DATA_REPORTING_RP_SIZE', 1}.
+
+{define, 'OCF_ENHANCED_FLUSH',		16#005F}.
+{struct, enhanced_flush_cp,
+ [
+	{uint16_t,	handle},
+	{uint8_t,	type}
+]}.
+{define, 'ENHANCED_FLUSH_CP_SIZE', 3}.
+
+{define, 'OCF_SEND_KEYPRESS_NOTIFY',	16#0060}.
+{struct, send_keypress_notify_cp,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	type}
+]}.
+{define, 'SEND_KEYPRESS_NOTIFY_CP_SIZE', 7}.
+{struct, send_keypress_notify_rp,
+ [
+	{uint8_t,	status}
+]}.
+{define, 'SEND_KEYPRESS_NOTIFY_RP_SIZE', 1}.
+
+{define, 'OCF_READ_LOGICAL_LINK_ACCEPT_TIMEOUT',	 16#0061}.
+{struct, read_log_link_accept_timeout_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	timeout}
+]}.
+{define, 'READ_LOGICAL_LINK_ACCEPT_TIMEOUT_RP_SIZE', 3}.
+
+{define, 'OCF_WRITE_LOGICAL_LINK_ACCEPT_TIMEOUT',	16#0062}.
+{struct, write_log_link_accept_timeout_cp,
+ [
+	{uint16_t,	timeout}
+]}.
+{define, 'WRITE_LOGICAL_LINK_ACCEPT_TIMEOUT_CP_SIZE', 2}.
+
+{define, 'OCF_SET_EVENT_MASK_PAGE_2',	16#0063}.
+
+{define, 'OCF_READ_LOCATION_DATA',		16#0064}.
+
+{define, 'OCF_WRITE_LOCATION_DATA',	16#0065}.
+
+{define, 'OCF_READ_FLOW_CONTROL_MODE',	16#0066}.
+
+{define, 'OCF_WRITE_FLOW_CONTROL_MODE',	16#0067}.
+
+{define, 'OCF_READ_ENHANCED_TRANSMIT_POWER_LEVEL',	16#0068}.
+{struct, read_enhanced_transmit_power_level_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{int8_t,	level_gfsk},
+	{int8_t,	level_dqpsk},
+	{int8_t,	level_8dpsk}
+]}.
+{define, 'READ_ENHANCED_TRANSMIT_POWER_LEVEL_RP_SIZE', 6}.
+
+{define, 'OCF_READ_BEST_EFFORT_FLUSH_TIMEOUT',	16#0069}.
+{struct, read_best_effort_flush_timeout_rp,
+ [
+	{uint8_t,	status},
+	{uint32_t,	timeout}
+]}.
+{define, 'READ_BEST_EFFORT_FLUSH_TIMEOUT_RP_SIZE', 5}.
+
+{define, 'OCF_WRITE_BEST_EFFORT_FLUSH_TIMEOUT',	16#006A}.
+{struct, write_best_effort_flush_timeout_cp,
+ [
+	{uint16_t,	handle},
+	{uint32_t,	timeout}
+]}.
+{define, 'WRITE_BEST_EFFORT_FLUSH_TIMEOUT_CP_SIZE', 6}.
+{struct, write_best_effort_flush_timeout_rp,
+ [
+	{uint8_t,	status}
+]}.
+{define, 'WRITE_BEST_EFFORT_FLUSH_TIMEOUT_RP_SIZE', 1}.
+
+{define, 'OCF_READ_LE_HOST_SUPPORTED',	16#006C}.
+{struct, read_le_host_supported_rp,
+ [
+	{uint8_t,	status},
+	{uint8_t,	le},
+	{uint8_t,	simul}
+]}.
+{define, 'READ_LE_HOST_SUPPORTED_RP_SIZE', 3}.
+
+{define, 'OCF_WRITE_LE_HOST_SUPPORTED',	16#006D}.
+{struct, write_le_host_supported_cp,
+ [
+	{uint8_t,	le},
+	{uint8_t,	simul}
+]}.
+{define, 'WRITE_LE_HOST_SUPPORTED_CP_SIZE', 2}.
+
+%% Informational Parameters 
+{define, 'OGF_INFO_PARAM',		16#04}.
+
+{define, 'OCF_READ_LOCAL_VERSION',		16#0001}.
+{struct, read_local_version_rp,
+ [
+	{uint8_t,	status},
+	{uint8_t,	hci_ver},
+	{uint16_t,	hci_rev},
+	{uint8_t,	lmp_ver},
+	{uint16_t,	manufacturer},
+	{uint16_t,	lmp_subver}
+]}.
+{define, 'READ_LOCAL_VERSION_RP_SIZE', 9}.
+
+{define, 'OCF_READ_LOCAL_COMMANDS',		16#0002}.
+{struct, read_local_commands_rp,
+ [
+	{uint8_t,	status},
+	{{uint8_t,64},	commands}
+]}.
+{define, 'READ_LOCAL_COMMANDS_RP_SIZE', 65}.
+
+{define, 'OCF_READ_LOCAL_FEATURES',		16#0003}.
+{struct, read_local_features_rp,
+ [
+	{uint8_t,	status},
+	{{uint8_t,8},	features}
+]}.
+{define, 'READ_LOCAL_FEATURES_RP_SIZE', 9}.
+
+{define, 'OCF_READ_LOCAL_EXT_FEATURES',	16#0004}.
+{struct, read_local_ext_features_cp,
+ [
+	{uint8_t,	page_num}
+]}.
+{define, 'READ_LOCAL_EXT_FEATURES_CP_SIZE', 1}.
+{struct, read_local_ext_features_rp,
+ [
+	{uint8_t,	status},
+	{uint8_t,	page_num},
+	{uint8_t,	max_page_num},
+	{{uint8_t,8},	features}
+]}.
+{define, 'READ_LOCAL_EXT_FEATURES_RP_SIZE', 11}.
+
+{define, 'OCF_READ_BUFFER_SIZE',		16#0005}.
+{struct, read_buffer_size_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	acl_mtu},
+	{uint8_t,	sco_mtu},
+	{uint16_t,	acl_max_pkt},
+	{uint16_t,	sco_max_pkt}
+]}.
+{define, 'READ_BUFFER_SIZE_RP_SIZE', 8}.
+
+{define, 'OCF_READ_COUNTRY_CODE',		16#0007}.
+
+{define, 'OCF_READ_BD_ADDR',		16#0009}.
+{struct, read_bd_addr_rp,
+ [
+	{uint8_t,	status},
+	{bdaddr_t, 	bdaddr}
+]}.
+{define, 'READ_BD_ADDR_RP_SIZE', 7}.
+
+%% Status params 
+{define, 'OGF_STATUS_PARAM',	16#05}.
+
+{define, 'OCF_READ_FAILED_CONTACT_COUNTER',		16#0001}.
+{struct, read_failed_contact_counter_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{uint8_t,	counter}
+]}.
+{define, 'READ_FAILED_CONTACT_COUNTER_RP_SIZE', 4}.
+
+{define, 'OCF_RESET_FAILED_CONTACT_COUNTER',	16#0002}.
+{struct, reset_failed_contact_counter_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle}
+]}.
+{define, 'RESET_FAILED_CONTACT_COUNTER_RP_SIZE', 4}.
+
+{define, 'OCF_READ_LINK_QUALITY',		16#0003}.
+{struct, read_link_quality_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{uint8_t,	link_quality}
+]}.
+{define, 'READ_LINK_QUALITY_RP_SIZE', 4}.
+
+{define, 'OCF_READ_RSSI',			16#0005}.
+{struct, read_rssi_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{int8_t,	rssi}
+]}.
+{define, 'READ_RSSI_RP_SIZE', 4}.
+
+{define, 'OCF_READ_AFH_MAP',		16#0006}.
+{struct, read_afh_map_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{uint8_t,	mode},
+	{{uint8_t,10},	map}
+]}.
+{define, 'READ_AFH_MAP_RP_SIZE', 14}.
+
+{define, 'OCF_READ_CLOCK',			16#0007}.
+{struct, read_clock_cp,
+ [
+	{uint16_t,	handle},
+	{uint8_t,	which_clock}
+]}.
+{define, 'READ_CLOCK_CP_SIZE', 3}.
+{struct, read_clock_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{uint32_t,	clock},
+	{uint16_t,	accuracy}
+]}.
+{define, 'READ_CLOCK_RP_SIZE', 9}.
+
+{define, 'OCF_READ_LOCAL_AMP_INFO',	16#0009}.
+{struct, read_local_amp_info_rp,
+ [
+	{uint8_t,	status},
+	{uint8_t,	amp_status},
+	{uint32_t,	total_bandwidth},
+	{uint32_t,	max_guaranteed_bandwidth},
+	{uint32_t,	min_latency},
+	{uint32_t,	max_pdu_size},
+	{uint8_t,	controller_type},
+	{uint16_t,	pal_caps},
+	{uint16_t,	max_amp_assoc_length},
+	{uint32_t,	max_flush_timeout},
+	{uint32_t,	best_effort_flush_timeout}
+]}.
+{define, 'READ_LOCAL_AMP_INFO_RP_SIZE', 31}.
+
+{define, 'OCF_READ_LOCAL_AMP_ASSOC',	16#000A}.
+{struct, read_local_amp_assoc_cp,
+ [
+	{uint8_t,	handle},
+	{uint16_t,	len_so_far},
+	{uint16_t,	max_len}
+]}.
+
+{struct, read_local_amp_assoc_rp,
+ [
+	{uint8_t,	status},
+	{uint8_t,	handle},
+	{uint16_t,	rem_len},
+	{{uint8_t,0},	frag}
+]}.
+
+{define, 'OCF_WRITE_REMOTE_AMP_ASSOC',	16#000B}.
+{struct, write_remote_amp_assoc_cp,
+ [
+	{uint8_t,	handle},
+	{uint16_t,	length_so_far},
+	{uint16_t,	assoc_length},
+	{{char, "?HCI_MAX_NAME_LENGTH"}, fragment}
+]}.
+{define, 'WRITE_REMOTE_AMP_ASSOC_CP_SIZE', 253}.
+{struct, write_remote_amp_assoc_rp,
+ [
+	{uint8_t,	status},
+	{uint8_t,	handle}
+]}.
+{define, 'WRITE_REMOTE_AMP_ASSOC_RP_SIZE', 2}.
+
+%% Testing commands 
+{define, 'OGF_TESTING_CMD',		16#3e}.
+
+{define, 'OCF_READ_LOOPBACK_MODE',	16#0001}.
+
+{define, 'OCF_WRITE_LOOPBACK_MODE',	16#0002}.
+
+{define, 'OCF_ENABLE_DEVICE_UNDER_TEST_MODE',	16#0003}.
+
+{define, 'OCF_WRITE_SIMPLE_PAIRING_DEBUG_MODE',	16#0004}.
+{struct, write_simple_pairing_debug_mode_cp,
+ [
+	{uint8_t,	mode}
+]}.
+{define, 'WRITE_SIMPLE_PAIRING_DEBUG_MODE_CP_SIZE', 1}.
+{struct, write_simple_pairing_debug_mode_rp,
+ [
+	{uint8_t,	status}
+]}.
+{define, 'WRITE_SIMPLE_PAIRING_DEBUG_MODE_RP_SIZE', 1}.
+
+%% LE commands 
+{define, 'OGF_LE_CTL',		16#08}.
+
+{define, 'OCF_LE_SET_EVENT_MASK',			16#0001}.
+{struct, le_set_event_mask_cp,
+ [
+	{{uint8_t,8},	mask}
+]}.
+{define, 'LE_SET_EVENT_MASK_CP_SIZE', 8}.
+
+{define, 'OCF_LE_READ_BUFFER_SIZE',			16#0002}.
+{struct, le_read_buffer_size_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	pkt_len},
+	{uint8_t,	max_pkt}
+]}.
+{define, 'LE_READ_BUFFER_SIZE_RP_SIZE', 4}.
+
+{define, 'OCF_LE_READ_LOCAL_SUPPORTED_FEATURES',	16#0003}.
+{struct, le_read_local_supported_features_rp,
+ [
+	{uint8_t,	status},
+	{{uint8_t,8},	features}
+]}.
+{define, 'LE_READ_LOCAL_SUPPORTED_FEATURES_RP_SIZE', 9}.
+
+{define, 'OCF_LE_SET_RANDOM_ADDRESS',		16#0005}.
+{struct, le_set_random_address_cp,
+ [
+	{bdaddr_t, 	bdaddr}
+]}.
+{define, 'LE_SET_RANDOM_ADDRESS_CP_SIZE', 6}.
+
+{define, 'OCF_LE_SET_ADVERTISING_PARAMETERS',	16#0006}.
+{struct, le_set_advertising_parameters_cp,
+ [
+	{uint16_t,	min_interval},
+	{uint16_t,	max_interval},
+	{uint8_t,	advtype},
+	{uint8_t,	own_bdaddr_type},
+	{uint8_t,	direct_bdaddr_type},
+	{bdaddr_t, 	direct_bdaddr},
+	{uint8_t,	chan_map},
+	{uint8_t,	filter}
+]}.
+{define, 'LE_SET_ADVERTISING_PARAMETERS_CP_SIZE', 15}.
+
+{define, 'OCF_LE_READ_ADVERTISING_CHANNEL_TX_POWER',	16#0007}.
+{struct, le_read_advertising_channel_tx_power_rp,
+ [
+	{uint8_t,	status},
+	{uint8_t,	level}
+]}.
+{define, 'LE_READ_ADVERTISING_CHANNEL_TX_POWER_RP_SIZE', 2}.
+
+{define, 'OCF_LE_SET_ADVERTISING_DATA',		16#0008}.
+{struct, le_set_advertising_data_cp,
+ [
+	{uint8_t,	length},
+	{{uint8_t,31},	data}
+]}.
+{define, 'LE_SET_ADVERTISING_DATA_CP_SIZE', 32}.
+
+{define, 'OCF_LE_SET_SCAN_RESPONSE_DATA',		16#0009}.
+{struct, le_set_scan_response_data_cp,
+ [
+	{uint8_t,	length},
+	{{uint8_t,31},	data}
+]}.
+{define, 'LE_SET_SCAN_RESPONSE_DATA_CP_SIZE', 32}.
+
+{define, 'OCF_LE_SET_ADVERTISE_ENABLE',		16#000A}.
+{struct, le_set_advertise_enable_cp,
+ [
+	{uint8_t,	enable}
+]}.
+{define, 'LE_SET_ADVERTISE_ENABLE_CP_SIZE', 1}.
+
+{define, 'OCF_LE_SET_SCAN_PARAMETERS',		16#000B}.
+{struct, le_set_scan_parameters_cp,
+ [
+	{uint8_t,	type},
+	{uint16_t,	interval},
+	{uint16_t,	window},
+	{uint8_t,	own_bdaddr_type},
+	{uint8_t,	filter}
+]}.
+{define, 'LE_SET_SCAN_PARAMETERS_CP_SIZE', 7}.
+
+{define, 'OCF_LE_SET_SCAN_ENABLE',			16#000C}.
+{struct, le_set_scan_enable_cp,
+ [
+	{uint8_t,	enable},
+	{uint8_t,	filter_dup}
+]}.
+{define, 'LE_SET_SCAN_ENABLE_CP_SIZE', 2}.
+
+{define, 'OCF_LE_CREATE_CONN',			16#000D}.
+{struct, le_create_connection_cp,
+ [
+	{uint16_t,	interval},
+	{uint16_t,	window},
+	{uint8_t,	initiator_filter},
+	{uint8_t,	peer_bdaddr_type},
+	{bdaddr_t, 	peer_bdaddr},
+	{uint8_t,	own_bdaddr_type},
+	{uint16_t,	min_interval},
+	{uint16_t,	max_interval},
+	{uint16_t,	latency},
+	{uint16_t,	supervision_timeout},
+	{uint16_t,	min_ce_length},
+	{uint16_t,	max_ce_length}
+]}.
+{define, 'LE_CREATE_CONN_CP_SIZE', 25}.
+
+{define, 'OCF_LE_CREATE_CONN_CANCEL',		16#000E}.
+
+{define, 'OCF_LE_READ_WHITE_LIST_SIZE',		16#000F}.
+{struct, le_read_white_list_size_rp,
+ [
+	{uint8_t,	status},
+	{uint8_t,	size}
+]}.
+{define, 'LE_READ_WHITE_LIST_SIZE_RP_SIZE', 2}.
+
+{define, 'OCF_LE_CLEAR_WHITE_LIST',			16#0010}.
+
+{define, 'OCF_LE_ADD_DEVICE_TO_WHITE_LIST',		16#0011}.
+{struct, le_add_device_to_white_list_cp,
+ [
+	{uint8_t,	bdaddr_type},
+	{bdaddr_t, 	bdaddr}
+]}.
+{define, 'LE_ADD_DEVICE_TO_WHITE_LIST_CP_SIZE', 7}.
+
+{define, 'OCF_LE_REMOVE_DEVICE_FROM_WHITE_LIST',	16#0012}.
+{struct, le_remove_device_from_white_list_cp,
+ [
+	{uint8_t,	bdaddr_type},
+	{bdaddr_t, 	bdaddr}
+]}.
+{define, 'LE_REMOVE_DEVICE_FROM_WHITE_LIST_CP_SIZE', 7}.
+
+{define, 'OCF_LE_CONN_UPDATE',			16#0013}.
+{struct, le_connection_update_cp,
+ [
+	{uint16_t,	handle},
+	{uint16_t,	min_interval},
+	{uint16_t,	max_interval},
+	{uint16_t,	latency},
+	{uint16_t,	supervision_timeout},
+	{uint16_t,	min_ce_length},
+	{uint16_t,	max_ce_length}
+]}.
+{define, 'LE_CONN_UPDATE_CP_SIZE', 14}.
+
+{define, 'OCF_LE_SET_HOST_CHANNEL_CLASSIFICATION',	16#0014}.
+{struct, le_set_host_channel_classification_cp,
+ [
+	{{uint8_t,5},	map}
+]}.
+{define, 'LE_SET_HOST_CHANNEL_CLASSIFICATION_CP_SIZE', 5}.
+
+{define, 'OCF_LE_READ_CHANNEL_MAP',			16#0015}.
+{struct, le_read_channel_map_cp,
+ [
+	{uint16_t,	handle}
+]}.
+{define, 'LE_READ_CHANNEL_MAP_CP_SIZE', 2}.
+{struct, le_read_channel_map_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{{uint8_t,5},	map}
+]}.
+{define, 'LE_READ_CHANNEL_MAP_RP_SIZE', 8}.
+
+{define, 'OCF_LE_READ_REMOTE_USED_FEATURES',	16#0016}.
+{struct, le_read_remote_used_features_cp,
+ [
+	{uint16_t,	handle}
+]}.
+{define, 'LE_READ_REMOTE_USED_FEATURES_CP_SIZE', 2}.
+
+{define, 'OCF_LE_ENCRYPT',				16#0017}.
+{struct, le_encrypt_cp,
+ [
+	{{uint8_t,16},	key},
+	{{uint8_t,16},	plaintext}
+]}.
+{define, 'LE_ENCRYPT_CP_SIZE', 32}.
+{struct, le_encrypt_rp,
+ [
+	{uint8_t,	status},
+	{{uint8_t,16},	data}
+]}.
+{define, 'LE_ENCRYPT_RP_SIZE', 17}.
+
+{define, 'OCF_LE_RAND',				16#0018}.
+{struct, le_rand_rp,
+ [
+	{uint8_t,	status},
+	{uint64_t,	random}
+]}.
+{define, 'LE_RAND_RP_SIZE', 9}.
+
+{define, 'OCF_LE_START_ENCRYPTION',			16#0019}.
+{struct, le_start_encryption_cp,
+ [
+	{uint16_t,	handle},
+	{uint64_t,	random},
+	{uint16_t,	diversifier},
+	{{uint8_t,16},	key}
+]}.
+{define, 'LE_START_ENCRYPTION_CP_SIZE', 28}.
+
+{define, 'OCF_LE_LTK_REPLY',			16#001A}.
+{struct, le_ltk_reply_cp,
+ [
+	{uint16_t,	handle},
+	{{uint8_t,16},	key}
+]}.
+{define, 'LE_LTK_REPLY_CP_SIZE', 18}.
+{struct, le_ltk_reply_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle}
+]}.
+{define, 'LE_LTK_REPLY_RP_SIZE', 3}.
+
+{define, 'OCF_LE_LTK_NEG_REPLY',			16#001B}.
+{struct, le_ltk_neg_reply_cp,
+ [
+	{uint16_t,	handle}
+]}.
+{define, 'LE_LTK_NEG_REPLY_CP_SIZE', 2}.
+{struct, le_ltk_neg_reply_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle}
+]}.
+{define, 'LE_LTK_NEG_REPLY_RP_SIZE', 3}.
+
+{define, 'OCF_LE_READ_SUPPORTED_STATES',		16#001C}.
+{struct, le_read_supported_states_rp,
+ [
+	{uint8_t,	status},
+	{uint64_t,	states}
+]}.
+{define, 'LE_READ_SUPPORTED_STATES_RP_SIZE', 9}.
+
+{define, 'OCF_LE_RECEIVER_TEST',			16#001D}.
+{struct, le_receiver_test_cp,
+ [
+	{uint8_t,	frequency}
+]}.
+{define, 'LE_RECEIVER_TEST_CP_SIZE', 1}.
+
+{define, 'OCF_LE_TRANSMITTER_TEST',			16#001E}.
+{struct, le_transmitter_test_cp,
+ [
+	{uint8_t,	frequency},
+	{uint8_t,	length},
+	{uint8_t,	payload}
+]}.
+{define, 'LE_TRANSMITTER_TEST_CP_SIZE', 3}.
+
+{define, 'OCF_LE_TEST_END',				16#001F}.
+{struct, le_test_end_rp,
+ [
+	{uint8_t,	status},
+	{uint16_t,	num_pkts}
+]}.
+{define, 'LE_TEST_END_RP_SIZE', 3}.
+
+%% Vendor specific commands 
+{define, 'OGF_VENDOR_CMD',		16#3f}.
+
+%% ---- HCI Events ---- 
+
+{define, 'EVT_INQUIRY_COMPLETE',		16#01}.
+
+{define, 'EVT_INQUIRY_RESULT',		16#02}.
+{struct, inquiry_info,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	pscan_rep_mode},
+	{uint8_t,	pscan_period_mode},
+	{uint8_t,	pscan_mode},
+	{{uint8_t,3},	dev_class},
+	{uint16_t,	clock_offset}
+]}.
+{define, 'INQUIRY_INFO_SIZE', 14}.
+
+{define, 'EVT_CONN_COMPLETE',		16#03}.
+{struct, evt_conn_complete,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	link_type},
+	{uint8_t,	encr_mode}
+]}.
+{define, 'EVT_CONN_COMPLETE_SIZE', 13}.  %% should be 11?
+
+{define, 'EVT_CONN_REQUEST',		16#04}.
+{struct, evt_conn_request,
+ [
+	{bdaddr_t, 	bdaddr},
+	{{uint8_t,3},	dev_class},
+	{uint8_t,	link_type}
+]}.
+{define, 'EVT_CONN_REQUEST_SIZE', 10}.
+
+{define, 'EVT_DISCONN_COMPLETE',		16#05}.
+{struct, evt_disconn_complete,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{uint8_t,	reason}
+]}.
+{define, 'EVT_DISCONN_COMPLETE_SIZE', 4}.
+
+{define, 'EVT_AUTH_COMPLETE',		16#06}.
+{struct, evt_auth_complete,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle}
+]}.
+{define, 'EVT_AUTH_COMPLETE_SIZE', 3}.
+
+{define, 'EVT_REMOTE_NAME_REQ_COMPLETE',	16#07}.
+{struct, evt_remote_name_req_complete,
+ [
+	{uint8_t,	status},
+	{bdaddr_t, 	bdaddr},
+	{{char,"?HCI_MAX_NAME_LENGTH"}, name}
+]}.
+{define, 'EVT_REMOTE_NAME_REQ_COMPLETE_SIZE', 255}.
+
+{define, 'EVT_ENCRYPT_CHANGE',		16#08}.
+{struct, evt_encrypt_change,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{uint8_t,	encrypt}
+]}.
+{define, 'EVT_ENCRYPT_CHANGE_SIZE', 5}.
+
+{define, 'EVT_CHANGE_CONN_LINK_KEY_COMPLETE',	16#09}.
+{struct,  evt_change_conn_link_key_complete,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle}
+]}.
+{define, 'EVT_CHANGE_CONN_LINK_KEY_COMPLETE_SIZE', 3}.
+
+{define, 'EVT_MASTER_LINK_KEY_COMPLETE',		16#0A}.
+{struct, evt_master_link_key_complete,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{uint8_t,	key_flag}
+]}.
+{define, 'EVT_MASTER_LINK_KEY_COMPLETE_SIZE', 4}.
+
+{define, 'EVT_READ_REMOTE_FEATURES_COMPLETE',	16#0B}.
+{struct, evt_read_remote_features_complete,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{{uint8_t,8},	features}
+]}.
+{define, 'EVT_READ_REMOTE_FEATURES_COMPLETE_SIZE', 11}.
+
+{define, 'EVT_READ_REMOTE_VERSION_COMPLETE',	16#0C}.
+{struct, evt_read_remote_version_complete,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{uint8_t,	lmp_ver},
+	{uint16_t,	manufacturer},
+	{uint16_t,	lmp_subver}
+]}.
+{define, 'EVT_READ_REMOTE_VERSION_COMPLETE_SIZE', 8}.
+
+{define, 'EVT_QOS_SETUP_COMPLETE',		16#0D}.
+{struct, evt_qos_setup_complete,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{uint8_t,	flags},			%% Reserved 
+	{hci_qos_t,	qos}
+]}.
+{define, 'EVT_QOS_SETUP_COMPLETE_SIZE', "(4 + ?HCI_QOS_CP_SIZE)"}.
+
+{define, 'EVT_CMD_COMPLETE', 		16#0E}.
+{struct, evt_cmd_complete,
+ [
+	{uint8_t,	ncmd},
+	{uint16_t,	opcode}
+]}.
+{define, 'EVT_CMD_COMPLETE_SIZE', 3}.
+
+{define, 'EVT_CMD_STATUS', 			16#0F}.
+{struct, evt_cmd_status,
+ [
+	{uint8_t,	status},
+	{uint8_t,	ncmd},
+	{uint16_t,	opcode}
+]}.
+{define, 'EVT_CMD_STATUS_SIZE', 4}.
+
+{define, 'EVT_HARDWARE_ERROR',		16#10}.
+{struct, evt_hardware_error,
+ [
+	{uint8_t,	code}
+]}.
+{define, 'EVT_HARDWARE_ERROR_SIZE', 1}.
+
+{define, 'EVT_FLUSH_OCCURRED',		16#11}.
+{struct, evt_flush_occured,
+ [
+	{uint16_t,	handle}
+]}.
+{define, 'EVT_FLUSH_OCCURRED_SIZE', 2}.
+
+{define, 'EVT_ROLE_CHANGE',			16#12}.
+{struct, evt_role_change,
+ [
+	{uint8_t,	status},
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	role}
+]}.
+{define, 'EVT_ROLE_CHANGE_SIZE', 8}.
+
+{define, 'EVT_NUM_COMP_PKTS',		16#13}.
+{struct, evt_num_comp_pkts,
+ [
+	{uint8_t,	num_hndl}
+	%% variable length part 
+        %% {list, num_hndl, uint16_t, hndls}
+]}.
+{define, 'EVT_NUM_COMP_PKTS_SIZE', 1}.
+
+{define, 'EVT_MODE_CHANGE',			16#14}.
+{struct, evt_mode_change,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{uint8_t,	mode},
+	{uint16_t,	interval}
+]}.
+{define, 'EVT_MODE_CHANGE_SIZE', 6}.
+
+{define, 'EVT_RETURN_LINK_KEYS',		16#15}.
+{struct, evt_return_link_keys,
+ [
+	{uint8_t,	num_keys}
+	%% variable length part
+        %% {list, num_keys, {binary,16}, keys}
+]}.
+{define, 'EVT_RETURN_LINK_KEYS_SIZE', 1}.
+
+{define, 'EVT_PIN_CODE_REQ',		16#16}.
+{struct, evt_pin_code_req,
+ [
+	{bdaddr_t, 	bdaddr}
+]}.
+{define, 'EVT_PIN_CODE_REQ_SIZE', 6}.
+
+{define, 'EVT_LINK_KEY_REQ',		16#17}.
+{struct, evt_link_key_req,
+ [
+	{bdaddr_t, 	bdaddr}
+]}.
+{define, 'EVT_LINK_KEY_REQ_SIZE', 6}.
+
+{define, 'EVT_LINK_KEY_NOTIFY',		16#18}.
+{struct, evt_link_key_notify,
+ [
+	{bdaddr_t, 	bdaddr},
+	{{uint8_t,16},	link_key},
+	{uint8_t,	key_type}
+]}.
+{define, 'EVT_LINK_KEY_NOTIFY_SIZE', 23}.
+
+{define, 'EVT_LOOPBACK_COMMAND',		16#19}.
+
+{define, 'EVT_DATA_BUFFER_OVERFLOW',	16#1A}.
+{struct, evt_data_buffer_overflow,
+ [
+	{uint8_t,	link_type}
+]}.
+{define, 'EVT_DATA_BUFFER_OVERFLOW_SIZE', 1}.
+
+{define, 'EVT_MAX_SLOTS_CHANGE',		16#1B}.
+{struct, evt_max_slots_change,
+ [
+	{uint16_t,	handle},
+	{uint8_t,	max_slots}
+]}.
+{define, 'EVT_MAX_SLOTS_CHANGE_SIZE', 3}.
+
+{define, 'EVT_READ_CLOCK_OFFSET_COMPLETE',	16#1C}.
+{struct, evt_read_clock_offset_complete,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{uint16_t,	clock_offset}
+]}.
+{define, 'EVT_READ_CLOCK_OFFSET_COMPLETE_SIZE', 5}.
+
+{define, 'EVT_CONN_PTYPE_CHANGED',		16#1D}.
+{struct, evt_conn_ptype_changed,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{uint16_t,	ptype}
+]}.
+{define, 'EVT_CONN_PTYPE_CHANGED_SIZE', 5}.
+
+{define, 'EVT_QOS_VIOLATION',		16#1E}.
+{struct, evt_qos_violation,
+ [
+	{uint16_t,	handle}
+]}.
+{define, 'EVT_QOS_VIOLATION_SIZE', 2}.
+
+{define, 'EVT_PSCAN_REP_MODE_CHANGE',	16#20}.
+{struct, evt_pscan_rep_mode_change,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	pscan_rep_mode}
+]}.
+{define, 'EVT_PSCAN_REP_MODE_CHANGE_SIZE', 7}.
+
+{define, 'EVT_FLOW_SPEC_COMPLETE',		16#21}.
+{struct, evt_flow_spec_complete,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{uint8_t,	flags},
+	{uint8_t,	direction},
+	{hci_qos_t,	qos}
+]}.
+{define, 'EVT_FLOW_SPEC_COMPLETE_SIZE', "(5 + ?HCI_QOS_CP_SIZE)"}.
+
+{define, 'EVT_INQUIRY_RESULT_WITH_RSSI',	16#22}.
+{struct, inquiry_info_with_rssi,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	pscan_rep_mode},
+	{uint8_t,	pscan_period_mode},
+	{{uint8_t,3},	dev_class},
+	{uint16_t,	clock_offset},
+	{int8_t,	rssi}
+]}.
+{define, 'INQUIRY_INFO_WITH_RSSI_SIZE', 14}.
+{struct, inquiry_info_with_rssi_and_pscan_mode,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	pscan_rep_mode},
+	{uint8_t,	pscan_period_mode},
+	{uint8_t,	pscan_mode},
+	{{uint8_t,3},	dev_class},
+	{uint16_t,	clock_offset},
+	{int8_t,	rssi}
+]}.
+{define, 'INQUIRY_INFO_WITH_RSSI_AND_PSCAN_MODE_SIZE', 15}.
+
+{define, 'EVT_READ_REMOTE_EXT_FEATURES_COMPLETE',	16#23}.
+{struct, evt_read_remote_ext_features_complete,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{uint8_t,	page_num},
+	{uint8_t,	max_page_num},
+	{{uint8_t,8},	features}
+]}.
+{define, 'EVT_READ_REMOTE_EXT_FEATURES_COMPLETE_SIZE', 13}.
+
+{define, 'EVT_SYNC_CONN_COMPLETE',		16#2C}.
+{struct, evt_sync_conn_complete,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	link_type},
+	{uint8_t,	trans_interval},
+	{uint8_t,	retrans_window},
+	{uint16_t,	rx_pkt_len},
+	{uint16_t,	tx_pkt_len},
+	{uint8_t,	air_mode}
+]}.
+{define, 'EVT_SYNC_CONN_COMPLETE_SIZE', 17}.
+
+{define, 'EVT_SYNC_CONN_CHANGED',		16#2D}.
+{struct, evt_sync_conn_changed,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{uint8_t,	trans_interval},
+	{uint8_t,	retrans_window},
+	{uint16_t,	rx_pkt_len},
+	{uint16_t,	tx_pkt_len}
+]}.
+{define, 'EVT_SYNC_CONN_CHANGED_SIZE', 9}.
+
+{define, 'EVT_SNIFF_SUBRATING',		16#2E}.
+{struct, evt_sniff_subrating,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{uint16_t,	max_tx_latency},
+	{uint16_t,	max_rx_latency},
+	{uint16_t,	min_remote_timeout},
+	{uint16_t,	min_local_timeout}
+]}.
+{define, 'EVT_SNIFF_SUBRATING_SIZE', 11}.
+
+{define, 'EVT_EXTENDED_INQUIRY_RESULT',	16#2F}.
+{struct, extended_inquiry_info,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	pscan_rep_mode},
+	{uint8_t,	pscan_period_mode},
+	{{uint8_t,3},	dev_class},
+	{uint16_t,	clock_offset},
+	{int8_t,	rssi},
+	{{uint8_t,"?HCI_MAX_EIR_LENGTH"}, data}
+]}.
+{define, 'EXTENDED_INQUIRY_INFO_SIZE', 254}.
+
+{define, 'EVT_ENCRYPTION_KEY_REFRESH_COMPLETE',	16#30}.
+{struct, evt_encryption_key_refresh_complete,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle}
+]}.
+{define, 'EVT_ENCRYPTION_KEY_REFRESH_COMPLETE_SIZE', 3}.
+
+{define, 'EVT_IO_CAPABILITY_REQUEST',	16#31}.
+{struct, evt_io_capability_request,
+ [
+	{bdaddr_t, 	bdaddr}
+]}.
+{define, 'EVT_IO_CAPABILITY_REQUEST_SIZE', 6}.
+
+{define, 'EVT_IO_CAPABILITY_RESPONSE',	16#32}.
+{struct, evt_io_capability_response,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	capability},
+	{uint8_t,	oob_data},
+	{uint8_t,	authentication}
+]}.
+{define, 'EVT_IO_CAPABILITY_RESPONSE_SIZE', 9}.
+
+{define, 'EVT_USER_CONFIRM_REQUEST',	16#33}.
+{struct, evt_user_confirm_request,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint32_t,	passkey}
+]}.
+{define, 'EVT_USER_CONFIRM_REQUEST_SIZE', 10}.
+
+{define, 'EVT_USER_PASSKEY_REQUEST',	16#34}.
+{struct, evt_user_passkey_request,
+ [
+	{bdaddr_t, 	bdaddr}
+]}.
+{define, 'EVT_USER_PASSKEY_REQUEST_SIZE', 6}.
+
+{define, 'EVT_REMOTE_OOB_DATA_REQUEST',	16#35}.
+{struct, evt_remote_oob_data_request,
+ [
+	{bdaddr_t, 	bdaddr}
+]}.
+{define, 'EVT_REMOTE_OOB_DATA_REQUEST_SIZE', 6}.
+
+{define, 'EVT_SIMPLE_PAIRING_COMPLETE',	16#36}.
+{struct, evt_simple_pairing_complete,
+ [
+	{uint8_t,	status},
+	{bdaddr_t, 	bdaddr}
+]}.
+{define, 'EVT_SIMPLE_PAIRING_COMPLETE_SIZE', 7}.
+
+{define, 'EVT_LINK_SUPERVISION_TIMEOUT_CHANGED',	16#38}.
+{struct, evt_link_supervision_timeout_changed,
+ [
+	{uint16_t,	handle},
+	{uint16_t,	timeout}
+]}.
+{define, 'EVT_LINK_SUPERVISION_TIMEOUT_CHANGED_SIZE', 4}.
+
+{define, 'EVT_ENHANCED_FLUSH_COMPLETE',	16#39}.
+{struct, evt_enhanced_flush_complete,
+ [
+	{uint16_t,	handle}
+]}.
+{define, 'EVT_ENHANCED_FLUSH_COMPLETE_SIZE', 2}.
+
+{define, 'EVT_USER_PASSKEY_NOTIFY',		16#3B}.
+{struct, evt_user_passkey_notify,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint32_t,	passkey},
+	{uint8_t,	entered}
+]}.
+{define, 'EVT_USER_PASSKEY_NOTIFY_SIZE', 11}.
+
+{define, 'EVT_KEYPRESS_NOTIFY',		16#3C}.
+{struct, evt_keypress_notify,
+ [
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	type}
+]}.
+{define, 'EVT_KEYPRESS_NOTIFY_SIZE', 7}.
+
+{define, 'EVT_REMOTE_HOST_FEATURES_NOTIFY',	16#3D}.
+{struct, evt_remote_host_features_notify,
+ [
+	{bdaddr_t, 	bdaddr},
+	{{uint8_t,8},	features}
+]}.
+{define, 'EVT_REMOTE_HOST_FEATURES_NOTIFY_SIZE', 14}.
+
+{define, 'EVT_LE_META_EVENT',	16#3E}.
+{struct, evt_le_meta_event,
+ [
+	{uint8_t,	subevent},
+	{{uint8_t,0},	data}
+]}.
+{define, 'EVT_LE_META_EVENT_SIZE', 1}.
+
+{define, 'EVT_LE_CONN_COMPLETE',	16#01}.
+{struct, evt_le_connection_complete,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{uint8_t,	role},
+	{uint8_t,	peer_bdaddr_type},
+	{bdaddr_t, 	peer_bdaddr},
+	{uint16_t,	interval},
+	{uint16_t,	latency},
+	{uint16_t,	supervision_timeout},
+	{uint8_t,	master_clock_accuracy}
+]}.
+{define, 'EVT_LE_CONN_COMPLETE_SIZE', 18}.
+
+{define, 'EVT_LE_ADVERTISING_REPORT',	16#02}.
+{struct, le_advertising_info,
+ [
+	{uint8_t,	evt_type},
+	{uint8_t,	bdaddr_type},
+	{bdaddr_t, 	bdaddr},
+	{uint8_t,	length},
+	{{uint8_t,0},	data}
+]}.
+{define, 'LE_ADVERTISING_INFO_SIZE', 9}.
+
+{define, 'EVT_LE_CONN_UPDATE_COMPLETE',	16#03}.
+{struct, evt_le_connection_update_complete,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{uint16_t,	interval},
+	{uint16_t,	latency},
+	{uint16_t,	supervision_timeout}
+]}.
+{define, 'EVT_LE_CONN_UPDATE_COMPLETE_SIZE', 9}.
+
+{define, 'EVT_LE_READ_REMOTE_USED_FEATURES_COMPLETE',	16#04}.
+{struct, evt_le_read_remote_used_features_complete,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle},
+	{{uint8_t,8},	features}
+]}.
+{define, 'EVT_LE_READ_REMOTE_USED_FEATURES_COMPLETE_SIZE', 11}.
+
+{define, 'EVT_LE_LTK_REQUEST',	16#05}.
+{struct, evt_le_long_term_key_request,
+ [
+	{uint16_t,	handle},
+	{uint64_t,	random},
+	{uint16_t,	diversifier}
+]}.
+{define, 'EVT_LE_LTK_REQUEST_SIZE', 12}.
+
+{define, 'EVT_PHYSICAL_LINK_COMPLETE',		16#40}.
+{struct, evt_physical_link_complete,
+ [
+	{uint8_t,	status},
+	{uint8_t,	handle}
+]}.
+{define, 'EVT_PHYSICAL_LINK_COMPLETE_SIZE', 2}.
+
+{define, 'EVT_CHANNEL_SELECTED',		16#41}.
+
+{define, 'EVT_DISCONNECT_PHYSICAL_LINK_COMPLETE',	16#42}.
+{struct, evt_disconn_physical_link_complete,
+ [
+	{uint8_t,	status},
+	{uint8_t,	handle},
+	{uint8_t,	reason}
+]}.
+{define, 'EVT_DISCONNECT_PHYSICAL_LINK_COMPLETE_SIZE', 3}.
+
+{define, 'EVT_PHYSICAL_LINK_LOSS_EARLY_WARNING',	16#43}.
+{struct, evt_physical_link_loss_warning,
+ [
+	{uint8_t,	handle},
+	{uint8_t,	reason}
+]}.
+{define, 'EVT_PHYSICAL_LINK_LOSS_WARNING_SIZE', 2}.
+
+{define, 'EVT_PHYSICAL_LINK_RECOVERY',		16#44}.
+{struct, evt_physical_link_recovery,
+ [
+	{uint8_t,	handle}
+]}.
+{define, 'EVT_PHYSICAL_LINK_RECOVERY_SIZE', 1}.
+
+{define, 'EVT_LOGICAL_LINK_COMPLETE',		16#45}.
+{struct, evt_logical_link_complete,
+ [
+	{uint8_t,	status},
+	{uint16_t,	log_handle},
+	{uint8_t,	handle},
+	{uint8_t,	tx_flow_id}
+]}.
+{define, 'EVT_LOGICAL_LINK_COMPLETE_SIZE', 5}.
+
+{define, 'EVT_DISCONNECT_LOGICAL_LINK_COMPLETE',	16#46}.
+
+{define, 'EVT_FLOW_SPEC_MODIFY_COMPLETE',		16#47}.
+{struct, evt_flow_spec_modify_complete,
+ [
+	{uint8_t,	status},
+	{uint16_t,	handle}
+]}.
+{define, 'EVT_FLOW_SPEC_MODIFY_COMPLETE_SIZE', 3}.
+
+{define, 'EVT_NUMBER_COMPLETED_BLOCKS',		16#48}.
+
+{define, 'EVT_AMP_STATUS_CHANGE',			16#4D}.
+{struct, evt_amp_status_change,
+ [
+	{uint8_t,	status},
+	{uint8_t,	amp_status}
+]}.
+{define, 'EVT_AMP_STATUS_CHANGE_SIZE', 2}.
+
+{define, 'EVT_TESTING',			16#FE}.
+
+{define, 'EVT_VENDOR',			16#FF}.
+
+%% Internal events generated by BlueZ stack 
+{define, 'EVT_STACK_INTERNAL',		16#FD}.
+{struct, evt_stack_internal,
+ [
+	{uint16_t,	type},
+	{{uint8_t,0},	data}
+]}.
+{define, 'EVT_STACK_INTERNAL_SIZE', 2}.
+
+{define, 'EVT_SI_DEVICE',	16#01}.
+{struct, evt_si_device,
+ [
+	{uint16_t,	event},
+	{uint16_t,	dev_id}
+]}.
+{define, 'EVT_SI_DEVICE_SIZE', 4}.
+
diff --git a/deps/bt/rebar.config b/deps/bt/rebar.config
new file mode 100644
index 0000000..b9f2f2a
--- /dev/null
+++ b/deps/bt/rebar.config
@@ -0,0 +1,37 @@
+%% -*- erlang -*-
+%% Config file for bt-application
+%%
+%%
+{deps, [ {dthread, ".*", {git, "https://github.com/tonyrog/dthread.git"}}]}.
+{erl_opts, [debug_info, fail_on_warning]}.
+
+{port_env, [
+	    {"CFLAGS", "$CFLAGS -DDLOG_DEFAULT=DLOG_INFO -Wall -Wextra -Wswitch-default -Wswitch-enum -fno-common -DNO_ERL_DRIVER -I $REBAR_DEPS_DIR"},
+	    {"(darwin)", "CFLAGS", "$CFLAGS -ObjC"},
+	    {"(darwin)", "LDFLAGS", "$LDFLAGS -framework IOBluetooth -framework CoreFoundation -framework Foundation $REBAR_DEPS_DIR/dthread/c_src/dlog.o"},
+
+	    {"(linux)", "LDFLAGS", "$LDFLAGS -lbluetooth $REBAR_DEPS_DIR/dthread/c_src/dlog.o"}
+	    ]}.
+
+%% first version is a regular port program
+{port_specs, [
+	      {"(darwin)", "priv/bt", [ "c_src/bt_macos_drv.c",
+					"c_src/bt_sub.c"
+				      ]},
+	      {"(linux)", "priv/bt",  [ "c_src/bt_linux_drv.c",
+					"c_src/bt_sub.c",
+					"c_src/bt_poll.c"
+				      ]},
+
+	      {"(linux)", "priv/hci_drv.so",
+	       [ "c_src/hci_drv.c" ]}
+	      
+	     ]}.
+
+{erl_first_files, 
+ [
+  "src/bt_make_hci_api.erl"
+ ]}.
+
+		   
+ 
diff --git a/deps/bt/src/bt.app.src b/deps/bt/src/bt.app.src
new file mode 100644
index 0000000..bbc29a0
--- /dev/null
+++ b/deps/bt/src/bt.app.src
@@ -0,0 +1,11 @@
+
+{application, bt,
+ [{description, "Bluetooth driver"},
+  {vsn, git},
+  {registered, [bt_drv]},
+  {mod,{bt_app,[]}},
+  {env, []},
+  {applications,[kernel,stdlib]}
+  ]}.
+
+  
diff --git a/deps/bt/src/bt.erl b/deps/bt/src/bt.erl
new file mode 100644
index 0000000..06beb35
--- /dev/null
+++ b/deps/bt/src/bt.erl
@@ -0,0 +1,355 @@
+%%%---- BEGIN COPYRIGHT -------------------------------------------------------
+%%%
+%%% Copyright (C) 2006 - 2014, Rogvall Invest AB, <tony@rogvall.se>
+%%%
+%%% This software is licensed as described in the file COPYRIGHT, which
+%%% you should have received as part of this distribution. The terms
+%%% are also available at http://www.rogvall.se/docs/copyright.txt.
+%%%
+%%% You may opt to use, copy, modify, merge, publish, distribute and/or sell
+%%% copies of the Software, and permit persons to whom the Software is
+%%% furnished to do so, under the terms of the COPYRIGHT file.
+%%%
+%%% This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+%%% KIND, either express or implied.
+%%%
+%%%---- END COPYRIGHT ---------------------------------------------------------
+%%% File    : bt.erl
+%%% Author  : Tony Rogvall <tony@iMac.local>
+%%% Description : Bluetooth utilities
+%%% Created : 31 Jan 2006 by Tony Rogvall <tony@iMac.local>
+
+-module(bt).
+
+-export([start/0, stop/0]).
+-export([i/0, i/1]).
+-export([li/0]).
+-export([s/1, s/2]).
+-export([debug/0, debug/1]).
+-export([scan/1, scan/3]).
+-export([getaddr/1, getaddr_by_name/1]).
+-export([format_address/1]).
+-export([service_info/1, service_info/2]).
+-export([rfcomm_channel/2]).
+-export([decode_service/1]).
+
+-import(lists, [foreach/2, map/2]).
+
+-include("../include/bt.hrl").
+-include("../include/uuid.hrl").
+-include("../include/sdp.hrl").
+
+start() ->
+    application:start(bt).
+
+stop() -> %% restart=
+    bt_drv:stop().
+
+
+debug() ->
+    bt_drv:debug(debug).
+
+debug(true) ->
+    bt_drv:debug(debug);
+debug(false) ->
+    bt_drv:debug(none);
+debug(Level) ->
+    bt_drv:debug(Level).
+
+%%
+%% Dump device information
+%%
+i() ->
+    {ok,Devices} = bt_drv:devices(),
+    foreach(fun(A) -> i(A) end, Devices).
+
+i(paired) ->
+    {ok, Devices} = bt_drv:paired_devices(),
+    foreach(fun(A) -> i(A) end, Devices);
+i(favorite) ->
+    {ok, Devices} = bt_drv:favorite_devices(),
+    foreach(fun(A) -> i(A) end, Devices);
+i(BtAddr) ->
+    {ok,A} = getaddr(BtAddr),
+    case bt_drv:device_info(A, [inquiry,update]) of
+	{ok, [{inquiry,?never},{update,_}]} ->
+	    io:format("Address: ~s\n", [format_address(A)]);
+	{ok, [{inquiry,_InQuiry},{update,Update}]}->
+	    io:format("Address: ~s\n", [format_address(A)]),
+	    {ok,DevInfo} = bt_drv:device_info(A,[name,
+						 is_paired,
+						 is_favorite,
+						 is_connected,
+						 class]),
+	    foreach(fun({class,Value}) ->
+			    {Service,Major,Minor} = bt_drv:decode_class(Value),
+			    io:format("   major: ~p\n", [Major]),
+			    io:format("   minor: ~p\n", [Minor]),
+			    io:format(" service: ~p\n", [Service]);
+		       ({name,Name}) ->
+			    io:format("  name: ~s\n", [Name]);
+		       ({What,Value}) ->
+			    io:format("  ~p: ~p\n", [What,Value])
+		    end, DevInfo),
+	    if Update == ?never ->
+		    ok;
+	       true ->
+		    {ok,SdpInfo} = bt_drv:service_info(A),
+		    io:format("  Profiles:"),
+		    foreach(
+		      fun(Service) ->
+			      As = map(fun(A1) -> 
+					       bt_sdp:decode(A1) 
+				       end, Service),
+			      case lists:keysearch(256, 1, As) of
+				  false -> ok;
+				  {value,{_,{text,Name}}} -> 
+				      io:format(" ~s,", [Name])
+			      end
+		      end, SdpInfo),
+		    io:format("\n")
+	    end;
+	Error -> Error
+    end.
+
+%%
+%% Dump information about the local bluetooth adapter
+%%
+li() ->
+    case bt_drv:local_info([name,class,address,discoverable,power_state]) of
+	{ok,Info} ->
+	    io:format("Local Adapter:\n",[]),
+	    foreach(fun({class,Value}) ->
+			    {Service,Major,Minor} = bt_drv:decode_class(Value),
+			    io:format("   major: ~p\n", [Major]),
+			    io:format("   minor: ~p\n", [Minor]),
+			    io:format(" service: ~p\n", [Service]);
+		       ({name,Name}) ->
+			    io:format("  name: ~s\n", [Name]);
+		       ({address,Addr}) ->
+			    io:format("  addr: ~s\n", [format_address(Addr)]);
+		       ({What,Value}) ->
+			    io:format("  ~p: ~p\n", [What,Value])
+		    end, Info);
+	Error ->
+	    Error
+    end.
+
+%%
+%% Dump service information
+%% s(Addr [UUID])
+%%
+%% Addr is either the Bluetooth address (as string or tuple) or
+%%  the name of the device (a bit slow)
+%% UUID is UUID16 | UUID32 | UUID128 | Symbolic-Name
+%%
+s(Addr) ->
+    case bt_drv:service_info(Addr,<<>>) of
+	{ok, Info} when is_list(Info) ->
+	    foreach(
+	      fun(Service) when is_list(Service) ->
+		      s_serv(Service),
+		      io:format("\n")
+	      end, Info);
+	Error ->
+	    Error
+    end.
+
+s(Addr, UUID) when is_binary(UUID), size(UUID) > 0 ->
+    case bt_drv:service_info(Addr,UUID) of
+	{ok, Service} ->
+	    s_serv(Service);
+	Error ->
+	    Error
+    end;
+s(Addr, Name) when is_list(Name) ->
+    UUID = bt_sdp:string_to_uuid(Name),
+    case bt_drv:service_info(Addr,UUID) of
+	{ok, Service} ->
+	    s_serv(Service);
+	Error ->
+	    Error
+    end.
+
+s_serv(Attributes=[A1|_]) when is_binary(A1) ->
+    Attrs0 = map(fun(A) -> bt_sdp:decode(A) end, Attributes),
+    LangList = [{_,_,Base}|_] = get_language_base(Attrs0, 256),
+    UUID = case lists:keysearch(?ATTR_ServiceClassIDList, 1, Attrs0) of
+	       false -> <<>>;
+	       {value,{_,{sequence,[{uuid,UUID0}|_]}}} -> UUID0
+	   end,
+    %% Fixme: present ServiceName,ServiceDescription,ProviderName with language base
+    %% and delete them before printing further data.
+    ServiceNames = s_attr(?ATTR_ServiceName, LangList, Attrs0, []),
+    ServiceDescs = s_attr(?ATTR_ServiceDescription, LangList, Attrs0, []),
+    ProviderNames = s_attr(?ATTR_ProviderName, LangList, Attrs0, []),
+    
+    case ServiceNames of
+	[{_,{text,Name}}|_] -> io:format("Service Name: ~s\n", [Name]);
+	[] -> io:format("Service Name: None\n", [])
+    end,
+
+    case ServiceDescs of
+	[{_,{text,Desc}}|_] -> io:format("  Service Description: ~s\n", [Desc]);
+	[] -> ok
+    end,
+
+    case ProviderNames of
+	[{_,{text,Prov}}|_] -> io:format("  Provider Name: ~s\n", [Prov]);
+	[] -> ok
+    end,
+    Attrs1 = Attrs0 -- (ServiceNames++ServiceDescs++ProviderNames),
+    Attrs = lists:keydelete(?ATTR_LanguageBaseAttributeIDList, 1, Attrs1),
+    foreach(
+      fun ({ID,Value}) ->
+	      AttrName = bt_sdp:attribute_to_string(ID,Base,UUID),
+	      io:format("  ~s: ~s\n", [AttrName, bt_sdp:value_to_string(Value)])
+      end, Attrs).
+
+s_attr(Attr, [{_Lang,_Env,Base}|Ls], As, Acc) ->
+    case lists:keysearch(Attr+Base, 1, As) of
+	false ->
+	    s_attr(Attr, Ls, As, Acc);
+	{value,Value} ->
+	    s_attr(Attr, Ls, As, [Value|Acc])
+    end;
+s_attr(_Attr, [], _As, Acc) ->
+    lists:reverse(Acc).
+
+
+get_language_base(Attrs,Default) ->
+    case get_languages(Attrs) of
+	[] -> [{25966,106,Default}];
+	Ls -> Ls
+    end.
+
+get_languages(Attrs) ->
+    case lists:keysearch(?ATTR_LanguageBaseAttributeIDList, 1, Attrs) of
+	{value,{_,{sequence,Seq}}} -> get_lang3(Seq);
+	_ -> []
+    end.
+
+get_lang3([{uint16,Lang},{uint16,Encoding},{uint16,Base}|Ls]) ->
+    [{Lang,Encoding,Base} | get_lang3(Ls)];
+get_lang3([]) ->
+    [].
+
+    
+%%
+%% Decode all services on a device
+%%
+
+service_info(Addr) ->
+    case bt_drv:service_info(Addr,<<>>) of
+	{ok, ServiceList} when is_list(hd(ServiceList)) ->
+	    map(fun(Attributes) ->
+			decode_service(Attributes)
+		end, ServiceList);
+	Error ->
+	    Error
+    end.
+%%
+%% 
+%%
+service_info(Addr, Service) when is_list(Service) ->
+    service_info(Addr, bt_sdp:string_to_uuid(Service));
+service_info(Addr, UUID) when is_binary(UUID), size(UUID) > 0 ->
+    case bt_drv:service_info(Addr,UUID) of
+	{ok, Service} when is_binary(hd(Service)) ->
+	    decode_service(Service);
+	Error ->
+	    Error
+    end.
+%%
+%% Extract rfcomm channel for the given service 
+%%
+rfcomm_channel(Addr, Service) when is_list(Service) ->
+    rfcomm_channel(Addr, bt_sdp:string_to_uuid(Service));
+rfcomm_channel(Addr, UUID) when is_binary(UUID), size(UUID) > 0 ->
+    case bt_drv:service_info(Addr,UUID) of
+	{ok, Service} when is_binary(hd(Service)) ->
+	    As = decode_service(Service),
+	    case lists:keysearch(?ATTR_ProtocolDescriptorList, 1, As) of
+		{value,{_, {sequence,[{sequence,["L2CAP"]},
+				      {sequence,["RFCOMM",Channel]}|_]}}} ->
+		    {ok,Channel};
+		_ ->
+		    {error, no_channel}
+	    end;
+	Error -> Error
+    end.
+    
+%%
+%% Decode a binary encoded SDP list:
+%% [ binary(<attribute><value>) ] in SDP format
+%%    
+
+decode_service(Attributes) when is_binary(hd(Attributes)) ->
+    Attrs = map(fun(A) -> bt_sdp:decode(A) end, Attributes),
+    map(fun({ID,Value}) -> 
+		{ID, bt_sdp:decode_sdp_value(Value)}
+	end, Attrs).
+
+getaddr(Name) ->
+    bt_util:getaddr(Name).
+
+getaddr_by_name(Name) ->
+    bt_util:getaddr_by_name(Name).
+
+%%
+%% Inquiry scan: 
+%%   Note that the Fun can not make meaningfull remote calls
+%%   while inquiry is running.
+%% 
+%%
+scan(Timeout) ->
+    scan(Timeout, fun(Addr,Acc) -> {continue,[Addr|Acc]} end, []).
+
+scan(Timeout, Fun, Acc) ->
+    case bt_drv:inquiry_start(Timeout) of
+	{ok,Ref} ->
+	    receive
+		{bt,Ref,started} ->
+		    scan_loop(Ref, Fun, Acc)
+	    end;
+	Error ->
+	    Error
+    end.
+
+scan_loop(Ref, Fun, Acc) ->
+    receive
+	{bt,Ref,{device,Addr}} ->
+	    case Fun(Addr,Acc) of
+		{continue,Acc1} -> 
+		    scan_loop(Ref, Fun, Acc1);
+		{stop,Acc1} ->
+		    bt_drv:inquiry_stop(Ref),
+		    {ok,Acc1}
+	    end;
+	{bt,Ref, stopped} ->
+	    bt_drv:inquiry_stop(Ref),
+	    {ok,Acc}
+    end.
+
+%%
+%% Format bluetooth address into a hex string
+%%
+format_address(A) when ?is_bt_address(A) ->
+    case os:type() of
+	{unix,darwin} ->
+	    format_address_(A, $-);
+	_ ->
+	    format_address_(A, $:)
+    end;
+format_address(<<F,E,D,C,B,A>>) -> %% binary is reverse format
+    format_address({A,B,C,D,E,F}).
+		
+format_address_({A,B,C,D,E,F}, S) ->
+    [hexh(A),hexl(A),S,hexh(B),hexl(B),S,hexh(C),hexl(C),S,
+     hexh(D),hexl(D),S,hexh(E),hexl(E),S,hexh(F),hexl(F)].
+
+hexl(A) -> hex1(A band 16#f).
+hexh(A) -> hex1((A bsr 4) band 16#f).
+
+hex1(A) when A < 10 -> A+$0;
+hex1(A) -> (A-10)+$a.
diff --git a/deps/bt/src/bt_app.erl b/deps/bt/src/bt_app.erl
new file mode 100644
index 0000000..7862c56
--- /dev/null
+++ b/deps/bt/src/bt_app.erl
@@ -0,0 +1,33 @@
+%%%---- BEGIN COPYRIGHT -------------------------------------------------------
+%%%
+%%% Copyright (C) 2006 - 2014, Rogvall Invest AB, <tony@rogvall.se>
+%%%
+%%% This software is licensed as described in the file COPYRIGHT, which
+%%% you should have received as part of this distribution. The terms
+%%% are also available at http://www.rogvall.se/docs/copyright.txt.
+%%%
+%%% You may opt to use, copy, modify, merge, publish, distribute and/or sell
+%%% copies of the Software, and permit persons to whom the Software is
+%%% furnished to do so, under the terms of the COPYRIGHT file.
+%%%
+%%% This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+%%% KIND, either express or implied.
+%%%
+%%%---- END COPYRIGHT ---------------------------------------------------------
+%%% File    : bt_app.erl
+%%% Author  : Tony Rogvall <tony@pbook.synap.se>
+%%% Description : 
+%%% Created :  2 Feb 2006 by Tony Rogvall <tony@pbook.synap.se>
+
+-module(bt_app).
+
+-behaviour(application).
+-export([start/2,stop/1]).
+
+%% start
+start(_Type, _StartArgs) ->
+    bt_sup:start_link().
+
+%% stop FIXME
+stop(_State) ->
+  ok.
diff --git a/deps/bt/src/bt_drv.erl b/deps/bt/src/bt_drv.erl
new file mode 100644
index 0000000..6f44ac9
--- /dev/null
+++ b/deps/bt/src/bt_drv.erl
@@ -0,0 +1,1398 @@
+%%%---- BEGIN COPYRIGHT -------------------------------------------------------
+%%%
+%%% Copyright (C) 2006 - 2014, Rogvall Invest AB, <tony@rogvall.se>
+%%%
+%%% This software is licensed as described in the file COPYRIGHT, which
+%%% you should have received as part of this distribution. The terms
+%%% are also available at http://www.rogvall.se/docs/copyright.txt.
+%%%
+%%% You may opt to use, copy, modify, merge, publish, distribute and/or sell
+%%% copies of the Software, and permit persons to whom the Software is
+%%% furnished to do so, under the terms of the COPYRIGHT file.
+%%%
+%%% This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+%%% KIND, either express or implied.
+%%%
+%%%---- END COPYRIGHT ---------------------------------------------------------
+%%%-------------------------------------------------------------------
+%%% File    : bt_drv.erl
+%%% Author  : Tony Rogvall <tony@iMac.local>
+%%% Description : Bluetooth driver control
+%%%
+%%% Created : 28 Jan 2006 by Tony Rogvall <tony@iMac.local>
+%%%-------------------------------------------------------------------
+-module(bt_drv).
+
+-behaviour(gen_server).
+
+-include("../include/bt.hrl").
+
+%% API
+-export([start_link/0, start/0, stop/0]).
+-export([ping/0]).
+-export([register/2, unregister/1]).
+-export([devices/0]).
+-export([recent_devices/0]).
+-export([paired_devices/0]).
+-export([favorite_devices/0]).
+-export([device_info/2]).
+-export([local_info/1]).
+-export([service_info/1, service_info/2]).
+-export([service_query/1, service_query/2]).
+-export([service_add/1, service_add_persist/1]).
+-export([service_del/1]).
+-export([service_rfcomm/1]).
+-export([connect/1, connect/2, connect/3, disconnect/1]).
+-export([remote_name/1, remote_name/2]).
+
+-export([inquiry_start/1,
+	 inquiry_stop/1,
+	 inquiry_flush/1]).
+
+-export([rfcomm_open/2,
+	 rfcomm_close/1,
+	 rfcomm_send/2,
+	 rfcomm_listen/1,
+	 rfcomm_accept/1,
+	 rfcomm_accept/2,
+	 rfcomm_accept/3,
+	 rfcomm_mtu/1,
+	 rfcomm_channel/1,
+	 rfcomm_address/1]).
+
+-export([l2cap_open/2,
+	 l2cap_close/1,
+	 l2cap_send/2,
+	 l2cap_listen/1,
+	 l2cap_accept/1,
+	 l2cap_mtu/1,
+	 l2cap_psm/1,
+	 l2cap_address/1]).
+
+-export([debug/1]).
+
+%% utils
+-export([decode_class/1,
+	 encode/1, decode/1]).
+
+%% gen_server callbacks
+-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
+	 terminate/2, code_change/3]).
+
+%% -define(debug, true).
+
+-ifdef(debug).
+-define(dbg(Fmt,As), io:format("~s:~w:" Fmt "\n", [?FILE,?LINE | As])).
+-else.
+-define(dbg(Fmt,As), ok).
+-endif.
+
+-define(SERVER, bt_drv).
+
+%% -record(session,
+%% 	{
+%% 	  id,
+%% 	  owner,
+%% 	  tag,
+%% 	  data
+%% 	 }).
+
+%% event subscriptions
+-record(subscription,
+	{
+	  id,          %% subscription id (32 bit)
+	  subscriber,  %% event subsriber 
+	  monitor,     %% monitor on subscriber
+	  ref,         %% event reference
+	  tag,         %% event tag
+	  data         %% subscription data
+	 }).
+
+-record(wait,
+	{
+	  from,    %% gen_server From
+	  id,      %% command id
+	  data     %% reply style
+	 }).
+
+-record(state, 
+	{
+	  bt_port,
+	  cmd_id = 1,         %% 1..16#ffffffff   command id
+	  evt_id = 1,         %% 1..16#ffffffff   event id
+	  wait = [],          %% #wait
+	  subscription = [],  %% #subscription
+	  sessions = [],      %% #session
+	  reg                 %% table of registrations
+	 }).
+
+-define(CMD_PING,             1).
+-define(CMD_RECENT_DEVICES,   2).
+-define(CMD_PAIRED_DEVICES,   3).
+-define(CMD_FAVORITE_DEVICES, 4).
+-define(CMD_INQUIRY_START,    5).
+-define(CMD_INQUIRY_STOP,     6).
+-define(CMD_REMOTE_NAME,      7).
+-define(CMD_CONNECT,          8).
+-define(CMD_DISCONNECT,       9).
+
+-define(CMD_DEVICE_INFO,      10).
+-define(CMD_SERVICE_INFO,     11).
+-define(CMD_SERVICE_QUERY,    12).
+-define(CMD_SERVICE_ADD,      13).
+-define(CMD_SERVICE_DEL,      14).
+-define(CMD_SERVICE_RFCOMM,   15).
+-define(CMD_LOCAL_INFO,       16).
+-define(CMD_DEBUG,            17).
+
+%% RCCOMM Channels
+-define(CMD_RFCOMM_OPEN,      20).
+-define(CMD_RFCOMM_CLOSE,     21).
+-define(CMD_RFCOMM_LISTEN,    22).
+-define(CMD_RFCOMM_SEND,      23).
+-define(CMD_RFCOMM_ACCEPT,    24).
+-define(CMD_RFCOMM_MTU,       25).
+-define(CMD_RFCOMM_ADDRESS,   26).
+-define(CMD_RFCOMM_CHANNEL,   27).
+
+
+%% L2CAP 
+-define(CMD_L2CAP_OPEN,       30).
+-define(CMD_L2CAP_CLOSE,      31).
+-define(CMD_L2CAP_LISTEN,     32).
+-define(CMD_L2CAP_SEND,       33).
+-define(CMD_L2CAP_ACCEPT,     34).
+-define(CMD_L2CAP_MTU,        35).
+-define(CMD_L2CAP_ADDRESS,    36).
+-define(CMD_L2CAP_PSM,        37).
+
+
+-define(REPLY_OK,    1).
+-define(REPLY_ERROR, 2).
+-define(REPLY_EVENT, 3).
+
+-define(BOOLEAN,        0).
+-define(UINT8,          1).
+-define(UINT16,         2).
+-define(UINT32,         3).
+-define(UINT64,         4).
+-define(STRING1,        5).
+-define(LIST,           6).
+-define(LIST_END,       7).
+-define(TUPLE,          8).
+-define(TUPLE_END,      9).
+-define(ATOM,           10).
+-define(BINARY,         11).
+-define(INT8,           12).
+-define(INT16,          13).
+-define(INT32,          14).
+-define(INT64,          15).
+-define(FLOAT32,        16).
+-define(FLOAT64,        17).
+-define(STRING4,        18).
+
+-define(ADDR,           100).
+-define(DATE,           101).
+
+
+%% device info codes 
+-define(NFO_DEVICE_NAME,             1).
+-define(NFO_DEVICE_CLASS,            2).
+-define(NFO_DEVICE_CLOCK,            3).
+-define(NFO_DEVICE_INQUIRY,          4).
+-define(NFO_DEVICE_ACCESS,           5).
+-define(NFO_DEVICE_UPDATE,           6).
+-define(NFO_DEVICE_IS_FAVORITE,      7).
+-define(NFO_DEVICE_IS_PAIRED,        8).
+-define(NFO_DEVICE_IS_CONNECTED,     9).
+
+%% local info
+-define(NFO_LOCAL_NAME,              1).
+-define(NFO_LOCAL_CLASS,             2).
+-define(NFO_LOCAL_ADDRESS,           3).
+-define(NFO_LOCAL_DISCOVERABLE,      4).
+-define(NFO_LOCAL_POWER_STATE,       5).
+
+%% Service Classes
+-define(CLASS_LIMITED_DISCOVERABLE, 2#00000000001).
+-define(CLASS_POSITIONING,          2#00000001000).
+-define(CLASS_NETWORKING,           2#00000010000).
+-define(CLASS_RENDERING,            2#00000100000).
+-define(CLASS_CAPTURING,            2#00001000000).
+-define(CLASS_OBJECT_TRANSFER,      2#00010000000).
+-define(CLASS_AUDIO,                2#00100000000).
+-define(CLASS_TELEPHONY,            2#01000000000).
+-define(CLASS_INFORMATION,          2#10000000000).
+
+%% Miscellaneous
+-define(CLASS_MAJOR_MISCELLANEOUS, 16#00). 
+%% Desktop, Notebook, PDA, Organizers, etc...
+-define(CLASS_MAJOR_COMPUTER, 16#01).
+%% Cellular, Cordless, Payphone, Modem, etc...
+-define(CLASS_MAJOR_PHONE, 16#02).
+%% LAN Access Point
+-define(CLASS_MAJOR_LAN_ACCESSPOINT, 16#03).
+%% Headset, Speaker, Stereo, etc...
+-define(CLASS_MAJOR_AUDIO, 16#04).
+%% Mouse, Joystick, Keyboards, etc...
+-define(CLASS_MAJOR_PERIPHERAL, 16#05).
+%% Printing, scanner, camera, display, etc...
+-define(CLASS_MAJOR_IMAGING, 16#06).
+
+%% FIXME: Add minor per major ..
+
+-define(NEXT_ID(N),
+	if (N)==16#ffffffff -> 1;
+	   true -> (N)+1
+	end).
+
+-define(DLOG_DEBUG,     7).
+-define(DLOG_INFO,      6).
+-define(DLOG_NOTICE,    5).
+-define(DLOG_WARNING,   4).
+-define(DLOG_ERROR,     3).
+-define(DLOG_CRITICAL,  2).
+-define(DLOG_ALERT,     1).
+-define(DLOG_EMERGENCY, 0).
+-define(DLOG_NONE,     -1).
+	
+%%====================================================================
+%% API
+%%====================================================================
+
+ping() ->
+    gen_server:call(?SERVER, ping).
+
+debug(Level) when is_atom(Level) ->
+    gen_server:call(?SERVER, {debug, level(Level)}).
+
+register(Type, MFA={M,F,As}) when is_atom(M),is_atom(F),is_list(As) ->
+    ets:insert(btreg, {Type,MFA}).
+
+unregister(Type) ->
+    ets:delete(btreg, Type).
+
+devices() ->
+    {ok,D1} = recent_devices(),
+    {ok,D2} = paired_devices(),
+    {ok,D3} = favorite_devices(),
+    {ok,ordsets:to_list(ordsets:union([ordsets:from_list(D1),
+				       ordsets:from_list(D2),
+				       ordsets:from_list(D3)]))}.
+
+recent_devices() ->
+    gen_server:call(?SERVER, recent_devices).
+
+paired_devices() ->
+    gen_server:call(?SERVER, paired_devices).
+
+favorite_devices() ->
+    gen_server:call(?SERVER, favorite_devices).
+
+device_info(Address, Info) ->
+    {ok,Addr} = bt_util:getaddr(Address),
+    case gen_server:call(?SERVER, {device_info, Addr, Info}) of
+	{ok,InfoReply} ->
+	    {ok, map2(fun(A,B) -> {A,B} end, Info, InfoReply)};
+	Error ->
+	    Error
+    end.
+
+local_info(Info) ->
+    case gen_server:call(?SERVER, {local_info, Info}) of
+	{ok,InfoReply} ->
+	    {ok, map2(fun(A,B) -> {A,B} end, Info, InfoReply)};
+	Error ->
+	    Error
+    end.
+    
+
+service_info(Address) ->
+    service_info(Address,<<>>).
+
+service_info(Address, UUID) ->
+    case bt_util:getaddr(Address) of
+	{ok,Addr} ->
+	    gen_server:call(?SERVER, {service_info, Addr, UUID});
+	Error -> Error
+    end.
+
+service_query(Address) ->
+    service_query(Address, << >>).
+
+service_query(Address, UUID) ->
+    case bt_util:getaddr(Address) of
+	{ok,Addr} ->
+	    gen_server:call(?SERVER, {service_query, Addr, UUID}, 20000);
+	Error -> Error
+    end.
+
+%% add a "bound" service  
+service_add(ServiceRecord) when is_list(ServiceRecord) ->
+    Service = lists:map(fun({ID,Value}) -> bt_sdp:encode(ID,Value) end,
+			ServiceRecord),
+    gen_server:call(?SERVER, {service_add,self(),Service}, 10000).
+
+%% add persistent service (i.e no owner)
+service_add_persist(ServiceRecord) when is_list(ServiceRecord) ->
+    Service = lists:map(fun({ID,Value}) -> bt_sdp:encode(ID,Value) end,
+			ServiceRecord),
+    gen_server:call(?SERVER, {service_add,undefined,Service}, 10000).
+
+service_del(Handle) when is_integer(Handle) ->
+    gen_server:call(?SERVER, {service_del, Handle}, 10000).
+
+service_rfcomm(Handle) when is_integer(Handle) ->
+    gen_server:call(?SERVER, {service_rfcomm, Handle}, 10000). 
+    
+
+connect(Address) ->
+    {ok,Addr} = bt_util:getaddr(Address),
+    gen_server:call(?SERVER, {connect, Addr}, 20000).
+
+connect(Address,Timeout) ->
+    {ok,Addr} = bt_util:getaddr(Address),
+    gen_server:call(?SERVER, {connect, Addr, Timeout, false}, 20000).
+
+connect(Address,Timeout,Auth) ->
+    {ok,Addr} = bt_util:getaddr(Address),
+    gen_server:call(?SERVER, {connect, Addr, Timeout, Auth}, 20000).
+
+disconnect(Address) ->
+    {ok,Addr} = bt_util:getaddr(Address),
+    gen_server:call(?SERVER, {disconnect, Addr}, 10000).
+
+remote_name(Address) ->
+    remote_name(Address, 0).
+
+remote_name(Address, Timeout) when is_integer(Timeout), Timeout >= 0 ->
+    gen_server:call(?SERVER, {remote_name, Address, Timeout}, 20000).
+
+%%
+%% start bluetooth scan return {ok, Ref} or {error, Reason}
+%% events sent to caller are:
+%%   {bt, Ref, started}
+%%   {bt, Ref, {device, Address}}
+%%   {bt, Ref, stopped}
+%% 
+inquiry_start(Secs) ->
+    gen_server:call(?SERVER, {inquiry_start,self(),Secs}).
+
+%%
+%% Stop bluetooth scanning (early)  possibly
+%%
+inquiry_stop(Ref) ->
+    Res = gen_server:call(?SERVER, {inquiry_stop,Ref}),
+    inquiry_flush(Ref),
+    Res.
+
+%% remove (only) stopped messages!
+inquiry_flush(Ref) ->
+    receive
+	{bt,Ref,stopped} ->
+	    ok
+    after 0 ->
+	    ok
+    end.
+
+rfcomm_open(Address, Channel) ->
+    {ok,Addr} = bt_util:getaddr(Address),
+    gen_server:call(?SERVER, {rfcomm_open, self(), Addr, Channel}, 20000).
+
+rfcomm_close(Ref) ->
+    gen_server:call(?SERVER, {rfcomm_close, Ref}).
+
+rfcomm_send(Ref, Data) ->    
+    gen_server:call(?SERVER, {rfcomm_send, Ref, Data}).
+
+rfcomm_listen(Channel) ->
+    gen_server:call(?SERVER, {rfcomm_listen,self(),Channel}).
+
+rfcomm_accept(ListenRef) ->
+    rfcomm_accept(ListenRef, infinity).
+
+rfcomm_accept(ListenRef, Timeout) ->
+    rfcomm_accept(ListenRef, Timeout, self()).
+
+rfcomm_accept(ListenRef, Timeout, CtlPid) ->
+    gen_server:call(?SERVER, {rfcomm_accept, CtlPid, ListenRef, Timeout}).
+
+rfcomm_mtu(Ref) ->
+    gen_server:call(?SERVER, {rfcomm_mtu, Ref}).    
+
+rfcomm_channel(Ref) ->
+    gen_server:call(?SERVER, {rfcomm_channel, Ref}).
+
+rfcomm_address(Ref) ->
+    gen_server:call(?SERVER, {rfcomm_address, Ref}).
+
+%% L2CAP
+l2cap_open(Address, Psm) ->
+    {ok,Addr} = bt_util:getaddr(Address),
+    gen_server:call(?SERVER, {l2cap_open, self(), Addr, Psm}, 20000).
+
+l2cap_close(Ref) ->
+    gen_server:call(?SERVER, {l2cap_close, Ref}).
+
+l2cap_send(Ref, Data) ->    
+    gen_server:call(?SERVER, {l2cap_send, Ref, Data}).
+
+l2cap_listen(Psm) ->
+    gen_server:call(?SERVER, {l2cap_listen,self(),Psm}).
+
+l2cap_accept(ListenRef) ->
+    l2cap_accept(ListenRef, infinity).
+
+l2cap_accept(ListenRef, Timeout) ->
+    gen_server:call(?SERVER, {l2cap_accept,self(),ListenRef,Timeout}).
+
+l2cap_mtu(Ref) ->
+    gen_server:call(?SERVER, {l2cap_mtu, Ref}).    
+
+l2cap_psm(Ref) ->
+    gen_server:call(?SERVER, {l2cap_psm, Ref}).
+
+l2cap_address(Ref) ->
+    gen_server:call(?SERVER, {l2cap_address, Ref}).
+
+
+%%--------------------------------------------------------------------
+%% Function: start_link() -> {ok,Pid} | ignore | {error,Error}
+%% Description: Starts the server
+%%--------------------------------------------------------------------
+start() ->
+    gen_server:start({local, ?SERVER}, ?MODULE, [], []).
+
+start_link() ->
+    gen_server:start_link({local, ?SERVER}, ?MODULE, [], []).
+
+stop() ->
+    gen_server:call(?SERVER, stop).
+
+%%====================================================================
+%% gen_server callbacks
+%%====================================================================
+
+%%--------------------------------------------------------------------
+%% Function: init(Args) -> {ok, State} |
+%%                         {ok, State, Timeout} |
+%%                         ignore               |
+%%                         {stop, Reason}
+%% Description: Initiates the server
+%%--------------------------------------------------------------------
+init([]) ->
+    PD = case code:priv_dir(bt) of
+	     { error, bad_name } -> "./priv/";
+	     Res -> Res
+	 end,
+	     
+    Driver = filename:join([PD,"bt"]),
+    Port = open_port({spawn, Driver}, [{packet,4},binary,eof]),
+    Reg = ets:new(btreg, [public, set, named_table]),
+    {ok, #state{ bt_port = Port, reg = Reg }}.
+
+%%--------------------------------------------------------------------
+%% Function: %% handle_call(Request, From, State) -> {reply, Reply, State} |
+%%                                      {reply, Reply, State, Timeout} |
+%%                                      {noreply, State} |
+%%                                      {noreply, State, Timeout} |
+%%                                      {stop, Reason, Reply, State} |
+%%                                      {stop, Reason, State}
+%% Description: Handling call messages
+%%--------------------------------------------------------------------
+handle_call(ping, From, State) ->
+    CmdId = State#state.cmd_id,
+    State1 = bt_command(From, State, ?CMD_PING,  CmdId, []),
+    {noreply, State1};
+handle_call({debug,Level}, From, State) ->
+    CmdId = State#state.cmd_id,
+    State1 = bt_command(From, State, ?CMD_DEBUG,  CmdId, <<Level:32/signed>>),
+    {noreply, State1};
+handle_call(recent_devices, From, State) ->
+    CmdId = State#state.cmd_id,
+    State1 = bt_command(From, State, ?CMD_RECENT_DEVICES,  CmdId, []),
+    {noreply, State1};
+handle_call(paired_devices, From, State) ->
+    CmdId = State#state.cmd_id,
+    State1 = bt_command(From, State, ?CMD_PAIRED_DEVICES,  CmdId, []),
+    {noreply, State1};
+handle_call(favorite_devices, From, State) ->
+    CmdId = State#state.cmd_id,
+    State1 = bt_command(From, State, ?CMD_FAVORITE_DEVICES,  CmdId, []),
+    {noreply, State1};
+handle_call({device_info,Address,Info}, From, State) ->
+    case is_address(Address) of
+	true ->
+	    AddrArg = tuple_to_list(Address),
+	    case catch encode_info(Info) of
+		{'EXIT', _} ->
+		    {reply, {error, einval}, State};
+		InfoArg ->
+		    CmdId = State#state.cmd_id,
+		    State1 = bt_command(From, State, ?CMD_DEVICE_INFO,  CmdId, 
+					[AddrArg, InfoArg]),
+		    {noreply, State1}
+	    end;
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+handle_call({local_info,Info}, From, State) ->
+    case catch encode_linfo(Info) of
+	{'EXIT', _} ->
+	    {reply, {error, einval}, State};
+	InfoArg ->
+	    CmdId = State#state.cmd_id,
+	    State1 = bt_command(From, State, ?CMD_LOCAL_INFO,  CmdId, 
+				[InfoArg]),
+	    {noreply, State1}
+    end;
+handle_call({service_info,Address,UUID}, From, State) ->
+    case is_address(Address) andalso is_binary(UUID) of
+	true ->
+	    AddrArg = tuple_to_list(Address),
+	    CmdId = State#state.cmd_id,
+	    State1 = bt_command(From, State, ?CMD_SERVICE_INFO,  CmdId, 
+				[AddrArg, UUID]),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+handle_call({service_query,Address,UUID}, From, State) ->
+    case is_address(Address) andalso is_binary(UUID) of
+	true ->
+	    AddrArg = tuple_to_list(Address),
+	    CmdId = State#state.cmd_id,
+	    State1 = bt_command(From, State, ?CMD_SERVICE_QUERY,  CmdId, 
+				[AddrArg, UUID]),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+
+handle_call({service_add,Owner,Service}, From, State) ->
+    case lists:all(fun(B) -> is_binary(B) end, Service) of
+	true ->
+	    CmdId = State#state.cmd_id,
+	    EvtId = State#state.evt_id,
+	    Args = [<< EvtId:32 >>,encode(Service)],
+	    EvtRef = make_ref(),
+	    Mon = if is_pid(Owner) ->erlang:monitor(process, Owner);
+		     true -> undefined
+		  end,
+	    SList = [#subscription { ref=EvtRef,
+				     id=EvtId,
+				     subscriber=Owner,
+				     monitor=Mon,
+				     tag  = sdp,
+				     data = sdp
+				    } | State#state.subscription],
+	    State1 = bt_command(From, 
+				State#state { evt_id = ?NEXT_ID(EvtId),
+					      subscription = SList
+					     },
+				?CMD_SERVICE_ADD, CmdId, Args,
+				{reply, EvtRef}),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+handle_call({service_del, Handle}, From, State) ->
+    if is_integer(Handle) ->
+	    case lists:keysearch(Handle, #subscription.data,State#state.subscription) of
+		{value, S} when S#subscription.tag == sdp ->
+		    SList = State#state.subscription -- [S],
+		    unmon(S#subscription.monitor),
+		    CmdId = State#state.cmd_id,
+		    State1 = bt_command(From,
+					State#state { subscription = SList },
+					?CMD_SERVICE_DEL, CmdId,
+					<<(S#subscription.id):32>>),
+		    {noreply, State1};
+		false ->
+		    {reply, {error, einval}, State}
+	    end;
+       true ->
+	    {reply, {error, einval}, State}
+    end;
+handle_call({service_rfcomm, Handle}, From, State) ->
+    if is_integer(Handle) ->
+	    case lists:keysearch(Handle, #subscription.data,State#state.subscription) of
+		{value, S} when S#subscription.tag == sdp ->
+		    CmdId = State#state.cmd_id,
+		    State1 = bt_command(From,State,?CMD_SERVICE_RFCOMM,CmdId,[<<(S#subscription.id):32>>]),
+		    {noreply, State1};
+		_ ->
+		    {reply, {error, einval}, State}
+	    end;
+       true ->
+	    {reply, {error, einval}, State}
+    end;
+handle_call({inquiry_start,Pid,Timeout},From,State) ->
+    case is_pid(Pid) andalso is_timeout(Timeout) of 
+	true ->
+	    CmdId = State#state.cmd_id,
+	    EvtId = State#state.evt_id,
+	    EvtRef = make_ref(),
+	    Mon = erlang:monitor(process, Pid),
+	    SList = [#subscription { ref=EvtRef, 
+				     id=EvtId, 
+				     subscriber=Pid,
+				     monitor=Mon,
+				     tag = bt,
+				     data = inquiry
+				    } | State#state.subscription],
+	    State1 = bt_command(From, 
+				State#state { evt_id = ?NEXT_ID(EvtId),
+					      subscription = SList
+					     },
+				?CMD_INQUIRY_START, CmdId,
+				<<EvtId:32, Timeout:32>>,
+				{reply, EvtRef}),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+handle_call({inquiry_stop,Ref}, From, State) ->
+    case lists:keysearch(Ref,#subscription.ref,State#state.subscription) of
+	false ->
+	    {reply, {error, einval}, State};
+	{value,S} ->
+	    unmon(S#subscription.monitor),
+	    SList = State#state.subscription -- [S],
+	    State1 = bt_command(From, 
+				State#state { subscription = SList },
+				?CMD_INQUIRY_STOP, 
+				State#state.cmd_id,
+				<<(S#subscription.id):32>>),
+	    {noreply, State1}
+    end;
+handle_call({remote_name,Address,Timeout},From,State) ->
+    case is_address(Address) andalso
+	is_timeout(Timeout) of 
+	true ->
+	    AddrArg = tuple_to_list(Address),
+	    CmdId = State#state.cmd_id,
+	    State1 = bt_command(From, State, ?CMD_REMOTE_NAME,  CmdId, 
+				[AddrArg, <<Timeout:32>>]),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;    
+handle_call({connect, Address},From,State) ->
+    case is_address(Address) of
+	true ->
+	    AddrArg = tuple_to_list(Address),
+	    CmdId = State#state.cmd_id,
+	    State1 = bt_command(From, State, ?CMD_CONNECT, CmdId, [AddrArg]),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+handle_call({connect, Address, Timeout, Auth},From,State) ->
+    case is_address(Address) andalso
+	is_timeout(Timeout) andalso 
+	(Auth == true orelse Auth == false) of
+	true ->
+	    AddrArg = tuple_to_list(Address),
+	    AuthArg = if Auth == true -> 1; Auth == false -> 0 end,
+	    CmdId = State#state.cmd_id,
+	    State1 = bt_command(From, State, ?CMD_CONNECT, CmdId, 
+				[AddrArg, <<Timeout:32, AuthArg:8>>]),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+handle_call({disconnect, Address},From,State) ->
+    case is_address(Address) of
+	true ->
+	    AddrArg = tuple_to_list(Address),
+	    CmdId = State#state.cmd_id,
+	    State1 = bt_command(From, State, ?CMD_DISCONNECT, CmdId, [AddrArg]),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+%% RFCOMM
+handle_call({rfcomm_open, Owner, Address, Channel}, From, State) ->
+    case is_pid(Owner) andalso 
+	is_address(Address) andalso
+	is_channel(Channel) of
+	true ->
+	    CmdId = State#state.cmd_id,
+	    EvtId = State#state.evt_id,
+	    AddrArg = tuple_to_list(Address),
+	    Args = [<< EvtId:32 >>,AddrArg,<<Channel:8>>],
+	    EvtRef = make_ref(),
+	    Mon = erlang:monitor(process, Owner),
+	    SList = [#subscription { ref=EvtRef, 
+				     id=EvtId, 
+				     subscriber=Owner,
+				     monitor=Mon,
+				     tag = rfcomm,
+				     data = rfcomm
+				    } | State#state.subscription],
+	    State1 = bt_command(From, 
+				State#state { evt_id = ?NEXT_ID(EvtId),
+					      subscription = SList
+					     },
+				?CMD_RFCOMM_OPEN, CmdId, Args,
+				{reply, EvtRef}),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+
+handle_call({rfcomm_listen, Owner, Channel}, From, State) ->
+    case is_pid(Owner) andalso 
+	(is_channel(Channel) orelse (Channel==0)) of
+	true ->
+	    CmdId = State#state.cmd_id,
+	    EvtId = State#state.evt_id,
+	    Args = [<< EvtId:32 >>,<<Channel:8>>],
+	    EvtRef = make_ref(),
+	    Mon = erlang:monitor(process, Owner),
+	    SList = [#subscription { ref=EvtRef, 
+				     id=EvtId, 
+				     subscriber=Owner,
+				     monitor=Mon,
+				     tag = rfcomm_listen,
+				     data = rfcomm_listen
+				    } | State#state.subscription],
+	    State1 = bt_command(From, 
+				State#state { evt_id = ?NEXT_ID(EvtId),
+					      subscription = SList
+					     },
+				?CMD_RFCOMM_LISTEN, CmdId, Args,
+				{reply, EvtRef}),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+
+handle_call({rfcomm_accept,Owner,Ref,_Timeout}, From, State) ->
+    case lists:keysearch(Ref,#subscription.ref,State#state.subscription) of
+	{value,S} when S#subscription.tag == rfcomm_listen ->
+	    CmdId = State#state.cmd_id,
+	    EvtId = State#state.evt_id,
+	    Args = [<<EvtId:32, (S#subscription.id):32 >>],
+	    EvtRef = make_ref(),
+	    Mon = erlang:monitor(process, Owner),
+	    SList = [#subscription { ref=EvtRef, 
+				     id=EvtId, 
+				     subscriber=Owner,
+				     monitor=Mon,
+				     tag = rfcomm,
+				     data = rfcomm
+				    } | State#state.subscription],
+	    State1 = bt_command(From, 
+				State#state { evt_id = ?NEXT_ID(EvtId),
+					      subscription = SList
+					     },
+				?CMD_RFCOMM_ACCEPT, CmdId, Args,
+				{reply, EvtRef}),
+	    {noreply, State1};
+	_ ->
+	    {reply, {error, einval}, State}
+    end;
+
+handle_call({rfcomm_close, Ref}, From, State) ->	    
+    case lists:keysearch(Ref,#subscription.ref,State#state.subscription) of    
+	{value,S} when S#subscription.tag == rfcomm; S#subscription.tag == rfcomm_listen ->
+	    unmon(S#subscription.monitor),
+	    SList = State#state.subscription -- [S],
+	    State1 = bt_command(From, 
+				State#state { subscription = SList },
+				?CMD_RFCOMM_CLOSE,
+				State#state.cmd_id,
+				<<(S#subscription.id):32>>),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+handle_call({rfcomm_send, Ref, Data}, From, State) ->
+    case lists:keysearch(Ref,#subscription.ref,State#state.subscription) of    
+	{value,S} when S#subscription.tag == rfcomm ->
+	    State1 = bt_command(From, 
+				State,
+				?CMD_RFCOMM_SEND,
+				State#state.cmd_id,
+				[ <<(S#subscription.id):32 >> , Data]),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+handle_call({rfcomm_channel, Ref}, From, State) ->
+    case lists:keysearch(Ref,#subscription.ref,State#state.subscription) of    
+	{value,S} when S#subscription.tag == rfcomm ->
+	    State1 = bt_command(From, 
+				State,
+				?CMD_RFCOMM_CHANNEL,
+				State#state.cmd_id,
+				[ <<(S#subscription.id):32 >>]),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+handle_call({rfcomm_mtu, Ref}, From, State) ->
+    case lists:keysearch(Ref,#subscription.ref,State#state.subscription) of    
+	{value,S} when S#subscription.tag == rfcomm ->
+	    State1 = bt_command(From, 
+				State,
+				?CMD_RFCOMM_MTU,
+				State#state.cmd_id,
+				[ <<(S#subscription.id):32 >>]),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+handle_call({rfcomm_address, Ref}, From, State) ->
+    case lists:keysearch(Ref,#subscription.ref,State#state.subscription) of    
+	{value,S} when S#subscription.tag == rfcomm ->
+	    State1 = bt_command(From, 
+				State,
+				?CMD_RFCOMM_ADDRESS,
+				State#state.cmd_id,
+				[ <<(S#subscription.id):32 >>]),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+%% L2CAP
+handle_call({l2cap_open, Owner, Address, Psm}, From, State) ->
+    case is_pid(Owner) andalso 
+	is_address(Address) andalso
+	is_psm(Psm) of
+	true ->
+	    CmdId = State#state.cmd_id,
+	    EvtId = State#state.evt_id,
+	    AddrArg = tuple_to_list(Address),
+	    Args = [<< EvtId:32 >>,AddrArg,<<Psm:16>>],
+	    EvtRef = make_ref(),
+	    Mon = erlang:monitor(process, Owner),
+	    SList = [#subscription { ref=EvtRef,
+				     id=EvtId,
+				     subscriber=Owner,
+				     monitor=Mon,
+				     tag = l2cap,
+				     data = l2cap
+				    } | State#state.subscription],
+	    State1 = bt_command(From, 
+				State#state { evt_id = ?NEXT_ID(EvtId),
+					      subscription = SList
+					     },
+				?CMD_L2CAP_OPEN, CmdId, Args,
+				{reply, EvtRef}),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+
+handle_call({l2cap_listen, Owner, Psm}, From, State) ->
+    case is_pid(Owner) andalso 
+	(is_psm(Psm) orelse (Psm=:=0)) of
+	true ->
+	    CmdId = State#state.cmd_id,
+	    EvtId = State#state.evt_id,
+	    Args = [<< EvtId:32 >>,<<Psm:16>>],
+	    EvtRef = make_ref(),
+	    Mon = erlang:monitor(process, Owner),
+	    SList = [#subscription { ref=EvtRef,
+				     id=EvtId,
+				     subscriber=Owner,
+				     monitor=Mon,
+				     tag = l2cap_listen,
+				     data = l2cap_listen
+				    } | State#state.subscription],
+	    State1 = bt_command(From,
+				State#state { evt_id = ?NEXT_ID(EvtId),
+					      subscription = SList
+					     },
+				?CMD_L2CAP_LISTEN, CmdId, Args,
+				{reply, EvtRef}),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+
+handle_call({l2cap_accept,Owner,Ref,_Timeout}, From, State) ->
+    case lists:keysearch(Ref,#subscription.ref,State#state.subscription) of
+	{value,S} when S#subscription.tag == l2cap_listen ->
+	    CmdId = State#state.cmd_id,
+	    EvtId = State#state.evt_id,
+	    Args = [<<EvtId:32, (S#subscription.id):32 >>],
+	    EvtRef = make_ref(),
+	    Mon = erlang:monitor(process, Owner),
+	    SList = [#subscription { ref=EvtRef,
+				     id=EvtId,
+				     subscriber=Owner,
+				     monitor=Mon,
+				     tag = l2cap,
+				     data = l2cap
+				    } | State#state.subscription],
+	    State1 = bt_command(From, 
+				State#state { evt_id = ?NEXT_ID(EvtId),
+					      subscription = SList
+					     },
+				?CMD_L2CAP_ACCEPT, CmdId, Args,
+				{reply, EvtRef}),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+
+handle_call({l2cap_close, Ref}, From, State) ->	    
+    case lists:keysearch(Ref,#subscription.ref,State#state.subscription) of    
+	{value,S} when S#subscription.tag == l2cap; S#subscription.tag == l2cap_listen ->
+	    unmon(S#subscription.monitor),
+	    SList = State#state.subscription -- [S],
+	    State1 = bt_command(From, 
+				State#state { subscription = SList },
+				?CMD_L2CAP_CLOSE,
+				State#state.cmd_id,
+				<<(S#subscription.id):32>>),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+handle_call({l2cap_send, Ref, Data}, From, State) ->
+    case lists:keysearch(Ref,#subscription.ref,State#state.subscription) of    
+	{value,S} when S#subscription.tag == l2cap ->
+	    State1 = bt_command(From,
+				State,
+				?CMD_L2CAP_SEND,
+				State#state.cmd_id,
+				[ <<(S#subscription.id):32 >> , Data]),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+handle_call({l2cap_psm, Ref}, From, State) ->
+    case lists:keysearch(Ref,#subscription.ref,State#state.subscription) of    
+	{value,S} when S#subscription.tag == l2cap ->
+	    State1 = bt_command(From, 
+				State,
+				?CMD_L2CAP_PSM,
+				State#state.cmd_id,
+				[ <<(S#subscription.id):32 >>]),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+handle_call({l2cap_mtu, Ref}, From, State) ->
+    case lists:keysearch(Ref,#subscription.ref,State#state.subscription) of    
+	{value,S} when S#subscription.tag == l2cap ->
+	    State1 = bt_command(From,
+				State,
+				?CMD_L2CAP_MTU,
+				State#state.cmd_id,
+				[ <<(S#subscription.id):32 >>]),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+handle_call({l2cap_address, Ref}, From, State) ->
+    case lists:keysearch(Ref,#subscription.ref,State#state.subscription) of    
+	{value,S} when S#subscription.tag == l2cap ->
+	    State1 = bt_command(From, 
+				State,
+				?CMD_L2CAP_ADDRESS,
+				State#state.cmd_id,
+				[ <<(S#subscription.id):32 >>]),
+	    {noreply, State1};
+	false ->
+	    {reply, {error, einval}, State}
+    end;
+%% 
+handle_call(stop, _From, State) ->
+    erlang:port_close(State#state.bt_port),
+    {stop, normal, ok, State};    
+handle_call(_Request, _From, State) ->
+    {reply, {error, bad_call}, State}.
+
+%%--------------------------------------------------------------------
+%% Function: handle_cast(Msg, State) -> {noreply, State} |
+%%                                      {noreply, State, Timeout} |
+%%                                      {stop, Reason, State}
+%% Description: Handling cast messages
+%%--------------------------------------------------------------------
+handle_cast(_Msg, State) ->
+    {noreply, State}.
+
+%%--------------------------------------------------------------------
+%% Function: handle_info(Info, State) -> {noreply, State} |
+%%                                       {noreply, State, Timeout} |
+%%                                       {stop, Reason, State}
+%% Description: Handling all non call/cast messages
+%%--------------------------------------------------------------------
+handle_info({Port,{data,Data}},State) when Port == State#state.bt_port ->
+    ?dbg("Port: data=~p", [Data]),
+    case Data of
+	<<?REPLY_OK, CmdId:32, ReplyData/binary>> ->
+	    ?dbg("Got: OK cmdid=~w, data=~p", [CmdId,ReplyData]),
+	    State1 = case decode(ReplyData) of
+			 false ->
+			     bt_reply(CmdId, ok, State);
+			 {value,Decoded} ->
+			     bt_reply(CmdId, {ok,Decoded}, State)
+		     end,
+	    {noreply, State1};
+	<<?REPLY_ERROR, CmdId:32, ReplyData/binary>> ->
+	    ?dbg("Got: ERROR cmdid=~w, data=~p", [CmdId,ReplyData]),
+	    State1 = case decode(ReplyData) of
+			 false ->
+			     bt_reply(CmdId, error, State);
+			 {value,Decoded} ->
+			     bt_reply(CmdId, {error,Decoded}, State)
+		     end,			 
+	    {noreply, State1};
+	<<?REPLY_EVENT, EvtId:32, EventData/binary>> ->
+	    ?dbg("Got: EVENT evtid=~w, data=~p", [EvtId,EventData]),
+	    case lists:keysearch(EvtId,#subscription.id, 
+				 State#state.subscription) of
+		false ->
+		    ?dbg("no receipient for evtid=~p data=~p", 
+			 [EvtId, decode(EventData)]),
+		    {noreply, State};
+		{value,S} ->
+		    case decode(EventData) of
+			false ->
+			    ?dbg("bad event data ~p", [EventData]),
+			    {noreply, State};
+			{value, Decoded} ->
+			    S#subscription.subscriber !
+				{S#subscription.tag,S#subscription.ref,Decoded},
+			    if Decoded == closed ->
+				    unmon(S#subscription.monitor),
+				    SList = State#state.subscription -- [S],
+				    State1 = State#state { subscription = SList },
+				    {noreply, State1};
+			       true ->
+				    {noreply, State}
+			    end
+		    end
+	    end;
+	_Other ->
+	    ?dbg("Unexpected data=~999p", [_Other]),
+    	    {noreply, State}
+    end;
+handle_info({Port,eof}, State) when Port == State#state.bt_port ->
+    ?dbg("bt_drv closed",[]),
+    erlang:port_close(Port),
+    {stop, closed, State};
+handle_info({'DOWN', Ref, process, _Pid, _Reason}, State) ->
+    case lists:keysearch(Ref, #subscription.monitor,State#state.subscription) of
+	false ->
+	    ?dbg("handle_info: Down process ~p not subsribing\n", [_Pid]),
+	    {noreply, State};
+	{value, S} ->
+	    SList = State#state.subscription -- [S],
+	    State1 = 
+		if S#subscription.data == inquiry ->
+			bt_command(undefined,
+				   State#state { subscription = SList },
+				   ?CMD_INQUIRY_STOP, 0,
+				   <<(S#subscription.id):32>>);
+		   S#subscription.data == rfcomm ->
+			bt_command(undefined,
+				   State#state { subscription = SList },
+				   ?CMD_RFCOMM_CLOSE, 0,
+				   <<(S#subscription.id):32>>);
+		   S#subscription.data == rfcomm_listen ->
+			bt_command(undefined,
+				   State#state { subscription = SList },
+				   ?CMD_RFCOMM_CLOSE, 0,
+				   <<(S#subscription.id):32>>);
+		   S#subscription.data == l2cap ->
+			bt_command(undefined,
+				   State#state { subscription = SList },
+				   ?CMD_L2CAP_CLOSE, 0,
+				   <<(S#subscription.id):32>>);
+		   S#subscription.data == l2cap_listen ->
+			bt_command(undefined,
+				   State#state { subscription = SList },
+				   ?CMD_L2CAP_CLOSE, 0,
+				   <<(S#subscription.id):32>>);
+		   true ->
+			State#state { subscription = SList }
+		end,
+	    {noreply, State1}
+    end;
+handle_info(Info, State) ->
+    io:format("handle_info: got ~p\n", [Info]),
+    {noreply, State}.
+
+%%--------------------------------------------------------------------
+%% Function: terminate(Reason, State) -> void()
+%% Description: This function is called by a gen_server when it is about to
+%% terminate. It should be the opposite of Module:init/1 and do any necessary
+%% cleaning up. When it returns, the gen_server terminates with Reason.
+%% The return value is ignored.
+%%--------------------------------------------------------------------
+terminate(_Reason, _State) ->
+    ok.
+
+%%--------------------------------------------------------------------
+%% Func: code_change(OldVsn, State, Extra) -> {ok, NewState}
+%% Description: Convert process state when code is changed
+%%--------------------------------------------------------------------
+code_change(_OldVsn, State, _Extra) ->
+    {ok, State}.
+
+%%--------------------------------------------------------------------
+%%% Internal functions
+%%--------------------------------------------------------------------
+bt_command(From, State, OpCode, CmdId, Data) ->
+    bt_command(From, State, OpCode, CmdId, Data, reply).
+    
+bt_command(From, State, OpCode, CmdId, Data, ReplyData) ->
+    ?dbg("Command: ~w ~w ~w", [OpCode, CmdId, Data]),
+    erlang:port_command(State#state.bt_port, [OpCode, <<CmdId:32>>, Data]),
+    if CmdId == 0 -> %% no reply expected
+	    State;
+       true ->
+	    Wait = [#wait { from=From, id=CmdId, data=ReplyData} | 
+		    State#state.wait],
+	    State#state { cmd_id = ?NEXT_ID(CmdId), wait = Wait }
+    end.
+
+bt_reply(0, _Reply, State) -> %% global reply
+    ?dbg("bt_drv: error:  ~p", [_Reply]),
+    %% maybe send this error to all, and terminate ?
+    State;
+bt_reply(CmdId, Reply, State) ->
+    case lists:keysearch(CmdId, #wait.id, State#state.wait) of
+	{value,W = #wait { data = reply }} ->
+	    gen_server:reply(W#wait.from, Reply),
+	    Wait = State#state.wait -- [W],
+	    State#state { wait = Wait };
+
+	{value,W = #wait { data={reply,EvtRef} }} ->
+	    case Reply of
+		ok ->
+		    gen_server:reply(W#wait.from, {ok,EvtRef}),
+		    Wait = State#state.wait -- [W],
+		    State#state { wait = Wait };
+		Other ->
+		    ?dbg("other reply: ~p", [Other]),
+		    Wait = State#state.wait -- [W],
+		    case lists:keysearch(EvtRef, #subscription.ref,
+					 State#state.subscription) of
+			false ->
+			    gen_server:reply(W#wait.from, Other),
+			    State#state { wait = Wait };
+			{value,S} when S#subscription.data == sdp ->
+			    %% special case
+			    case Other of 
+				{ok,Handle} ->
+				    S1 = S#subscription { data = Handle },  %% switch to handle
+				    gen_server:reply(W#wait.from, Other),
+				    SList = lists:keyreplace(EvtRef, #subscription.ref, 
+							     State#state.subscription, S1),
+				    State#state { wait = Wait, subscription = SList };
+				_  ->
+				    gen_server:reply(W#wait.from, Other),
+				    unmon(S#subscription.monitor),
+				    SList = State#state.subscription -- [S],
+				    State#state { wait = Wait, subscription = SList }
+			    end;
+			{value,S} ->
+			    gen_server:reply(W#wait.from, Other),
+			    unmon(S#subscription.monitor),
+			    SList = State#state.subscription -- [S],
+			    State#state { wait = Wait, subscription = SList }
+		    end
+	    end;
+	false ->
+	    io:format("Did not find waiter for cmdid ~w\n", [CmdId]),
+	    State
+    end.
+
+%% unmon - ignore if reference is undefined
+unmon(undefined) -> ok;
+unmon(Ref) -> erlang:demonitor(Ref, [flush]).
+
+encode_info([What | Info]) ->
+    case What of
+	name  ->  [?NFO_DEVICE_NAME | encode_info(Info)];
+	class ->  [?NFO_DEVICE_CLASS | encode_info(Info)];
+	clock   -> [?NFO_DEVICE_CLOCK | encode_info(Info)];
+	inquiry -> [?NFO_DEVICE_INQUIRY | encode_info(Info)];
+	access  -> [?NFO_DEVICE_ACCESS | encode_info(Info)];
+	update  -> [?NFO_DEVICE_UPDATE | encode_info(Info)];
+	is_favorite  -> [?NFO_DEVICE_IS_FAVORITE | encode_info(Info)];
+	is_paired -> [?NFO_DEVICE_IS_PAIRED | encode_info(Info)];
+	is_connected -> [?NFO_DEVICE_IS_CONNECTED | encode_info(Info)]
+    end;
+encode_info([]) -> [].
+
+encode_linfo([What | Info]) ->
+    case What of
+	name    ->  [?NFO_LOCAL_NAME | encode_linfo(Info)];
+	class   ->  [?NFO_LOCAL_CLASS | encode_linfo(Info)];
+	address ->  [?NFO_LOCAL_ADDRESS | encode_linfo(Info)];
+	discoverable ->  [?NFO_LOCAL_DISCOVERABLE | encode_linfo(Info)];
+	power_state ->  [?NFO_LOCAL_POWER_STATE | encode_linfo(Info)]
+    end;
+encode_linfo([]) -> [].
+
+
+decode_class(Class) ->    
+    <<Service:11, Major:5, Minor:6,_:2>> = <<Class:24>>,
+    {Service,Major,Minor}.
+
+%% encode into Data format
+encode(Term) ->
+    list_to_binary([enc(Term)]).
+
+enc(true) ->   
+    <<?BOOLEAN, 1>>;
+enc(false) ->  
+    <<?BOOLEAN, 0>>;
+enc(X) when is_atom(X) ->
+    Val = atom_to_list(X),
+    [<<?ATOM, (length(Val)):8>>, Val];
+enc(X) when is_integer(X) ->
+    if X =< 16#ffffffff -> <<?UINT32, X:32>> ;
+       X >= -16#8000000 -> <<?INT32, X:32>> ;
+       X > 0 -> <<?UINT64, X:64>>;
+       true -> (<<?INT64, X:64>>)
+    end;
+enc(X) when is_float(X) -> 
+    <<?FLOAT64, X:64>>;
+enc(X) when is_list(X) ->
+    case is_string(X) of
+	true ->
+	    Len = length(X),
+	    if Len =< 255 ->
+		    [<<?STRING1, Len:8>>, X];
+	       true ->
+		    [<<?STRING4, Len:32>>, X]
+	    end;
+	false ->
+	    [?LIST, lists:map(fun(E) -> enc(E) end, X), ?LIST_END]
+    end;
+enc(X) when is_tuple(X) ->
+    [?TUPLE, lists:map(fun(E) -> enc(E) end, tuple_to_list(X)), ?TUPLE_END];
+enc(X) when is_binary(X) ->
+    [<<?BINARY,(size(X)):32>>, X].
+     
+is_string([X|Xs]) when X >= 0, X =< 255 -> is_string(Xs);
+is_string([]) -> true;
+is_string(_) -> false.
+
+
+%% decode reply data
+decode(<<>>) -> false;
+decode(Data) -> {value, decode(Data, [])}.
+    
+decode(<<>>, [Hd]) -> Hd;
+decode(Data, Stack) ->
+    case Data of
+	<<?LIST, Rest/binary>> -> 
+	    ?dbg("LIST",[]),
+	    decode(Rest, [list|Stack]);
+	<<?TUPLE, Rest/binary>> ->
+	    ?dbg("TUPLE",[]),
+	    decode(Rest, [tuple|Stack]);
+	<<?BOOLEAN, B, Rest/binary>> -> 
+	    ?dbg("BOOLEAN:~w",[B]),
+	    decode(Rest, [B =/= 0 | Stack]);
+	<<?UINT8, I:8, Rest/binary>> -> 
+	    ?dbg("UINT8:~w",[I]),
+	    decode(Rest, [I|Stack]);
+	<<?UINT16, I:16, Rest/binary>> ->
+	    ?dbg("UINT16:~w",[I]),
+	    decode(Rest, [I|Stack]);
+	<<?UINT32, I:32, Rest/binary>> ->
+	    ?dbg("UINT32:~w",[I]),
+	    decode(Rest, [I|Stack]);
+	<<?UINT64, I:64, Rest/binary>> ->
+	    ?dbg("UINT64:~w",[I]),
+	    decode(Rest, [I|Stack]);
+	<<?INT8, I:8/signed, Rest/binary>> ->
+	    ?dbg("INT8:~w",[I]),
+	    decode(Rest, [I|Stack]);
+	<<?INT16, I:16/signed, Rest/binary>> ->
+	    ?dbg("INT16:~w",[I]),
+	    decode(Rest, [I|Stack]);
+	<<?INT32, I:32/signed, Rest/binary>> -> 
+	    ?dbg("INT32:~w",[I]),
+	    decode(Rest, [I|Stack]);
+	<<?INT64, I:64/signed, Rest/binary>> ->
+	    ?dbg("INT64:~w",[I]),
+	    decode(Rest, [I|Stack]);
+	<<?FLOAT32, F:32/float, Rest/binary>> ->
+	    ?dbg("FLOAT32:~w",[F]),
+	    decode(Rest, [F|Stack]);
+	<<?FLOAT64, F:64/float, Rest/binary>> -> 
+	    ?dbg("FLOAT64:~w",[F]),
+	    decode(Rest, [F|Stack]);
+	<<?STRING1, Len:8, String:Len/binary, Rest/binary>> -> 
+	    ?dbg("STRING1: len=~w, ~w",[Len,String]),
+	    decode(Rest, [binary_to_list(String)  | Stack]);
+	<<?STRING4, Len:32, String:Len/binary, Rest/binary>> ->
+	    ?dbg("STRING4: len=~w, ~w",[Len,String]),
+	    decode(Rest, [binary_to_list(String)  | Stack]);
+	<<?BINARY, Len:32, Bin:Len/binary, Rest/binary>> -> 
+	    ?dbg("BINARY: len=~w, ~w",[Len,Bin]),
+	    decode(Rest, [Bin | Stack]);
+	<<?ATOM, Len:8, Atom:Len/binary, Rest/binary>> -> 
+	    ?dbg("ATOM: len=~w, ~w",[Len,Atom]),
+	    decode(Rest, [list_to_atom(binary_to_list(Atom)) | Stack]);
+	<<?LIST_END, Rest/binary>> ->
+	    ?dbg("LIST_END",[]),
+	    {L,[_|Stack1]} = lists:splitwith(fun(X) -> X =/= list end, Stack),
+	    decode(Rest, [lists:reverse(L) | Stack1]);
+	<<?TUPLE_END, Rest/binary>> ->
+	    ?dbg("TUPLE_END",[]),
+	    {L,[_|Stack1]}=lists:splitwith(fun(X) -> X =/= tuple end, Stack),
+	    decode(Rest, [list_to_tuple(lists:reverse(L)) | Stack1]);
+	%% EXTENSIONS
+	<<?DATE, Date:32, Rest/binary>> ->
+	    ?dbg("DATE: ~w",[Date]),
+	    DateTime = if Date == 0 -> {{0,0,0},{0,0,0}};
+			  true ->
+			       Now = {Date div 1000000, Date rem 1000000, 0},
+			       calendar:now_to_datetime(Now)
+		       end,
+	    decode(Rest,[DateTime|Stack]);
+	<<?ADDR, Addr:6/binary, Rest/binary>> -> 
+	    ?dbg("ADDR: ~w",[Addr]),
+	    decode(Rest, [list_to_tuple(binary_to_list(Addr)) | Stack])
+    end.
+
+map2(Fun, [A|As], [B|Bs]) ->
+    [ Fun(A, B) | map2(Fun, As, Bs)];
+map2(_Fun, [], []) ->
+    [].
+
+is_address(Addr) ->
+    if ?is_bt_address(Addr) -> true;
+       true -> false
+    end.
+	    
+is_channel(C) when is_integer(C), C >= 1, C =< 30 ->
+    true;
+is_channel(_) -> false.
+
+is_psm(C) when is_integer(C), C >= 0, C =< 16#ffff ->
+    true;
+is_psm(_) -> false.
+
+
+is_timeout(T) when is_integer(T), T>=0 ->
+    true;
+is_timeout(_) -> false.
+
+%% convert symbolic to numeric level
+level(true)  -> ?DLOG_DEBUG;
+level(false) -> ?DLOG_NONE;
+level(debug) -> ?DLOG_DEBUG;
+level(info)  -> ?DLOG_INFO;
+level(notice) -> ?DLOG_NOTICE;
+level(warning) -> ?DLOG_WARNING;
+level(error) -> ?DLOG_ERROR;
+level(critical) -> ?DLOG_CRITICAL;
+level(alert) -> ?DLOG_ALERT;
+level(emergency) -> ?DLOG_EMERGENCY;
+level(none) -> ?DLOG_NONE.
diff --git a/deps/bt/src/bt_erl_server.erl b/deps/bt/src/bt_erl_server.erl
new file mode 100644
index 0000000..f879c92
--- /dev/null
+++ b/deps/bt/src/bt_erl_server.erl
@@ -0,0 +1,108 @@
+%%% @author Tony Rogvall <tony@rogvall.se>
+%%% @copyright (C) 2014, Tony Rogvall
+%%% @doc
+%%%    Bluetooth distribution
+%%% @end
+%%% Created :  3 Dec 2014 by Tony Rogvall <tony@rogvall.se>
+
+-module(bt_erl_server).
+
+-export([sdp_info/2]).
+-compile(export_all).
+
+-include("../include/sdp.hrl").
+
+-define(UUID_ErlangNode,
+	<<16#0f1662dc:32,16#0c1e:16,16#4e18:16,16#acd7:16,16#da61165bcd29:48>>).
+
+sdp_info(NodeName,Channel) ->
+    Base1 = 16#0100,
+    [
+     {?ATTR_ServiceRecordHandle, {uint32,0}},   %% Should not be needed ?
+     {?ATTR_ServiceClassIDList, {sequence,[{uuid,?UUID_ErlangNode}]}},
+     {?ATTR_ProtocolDescriptorList,
+      {sequence,[{sequence,[{uuid,?UUID_L2CAP}]},
+		 {sequence,[{uuid,?UUID_RFCOMM},{uint8,Channel}]}]}},
+     {?ATTR_BrowseGroupList,
+      {sequence,[{uuid,?UUID_PublicBrowseGroup}]}},
+     {?ATTR_LanguageBaseAttributeIDList,
+      {sequence, [{uint16, ?LANGUAGE($e,$n)},
+		  {uint16, ?ENCODING_UTF8},
+		  {uint16, Base1}]}},
+     {?ATTR_ServiceName+Base1, {text,NodeName}}].
+
+
+start(NodeName) ->
+    start(NodeName,1).
+start(NodeName, ChannelHint) ->
+    spawn(fun() -> init(NodeName,ChannelHint) end).
+
+init(NodeName, ChannelHint) ->
+    case bt_drv:service_add(sdp_info(NodeName,ChannelHint)) of
+	{ok,Handle} ->
+	    case bt_drv:service_rfcomm(Handle) of
+		{ok,RealChannel} ->
+		    io:format("Registered server: ~p rfcomm=~p\n",
+			      [Handle,RealChannel]),
+		    init_rfcomm(RealChannel);
+		Error ->
+		    Error
+	    end;
+	Error ->
+	    Error
+    end.
+
+init_rfcomm(Channel) ->
+    process_flag(trap_exit, true),
+    case rfcomm:listen(Channel) of
+	{ok,ListenRef} ->
+	    listen_loop(ListenRef);
+	Error ->
+	    Error
+    end.
+
+listen_loop(ListenRef) ->
+    Pid = spawn_link(?MODULE, accept, [self(), ListenRef]),
+    receive
+	{accept,Pid,ok} ->
+	    listen_loop(ListenRef);
+	{accept,Pid,{error,Reason}} ->
+	    io:format("Accept error ~p\n", [Reason]),
+	    listen_loop(ListenRef)
+    end.
+
+accept(Listen, ListenRef) ->
+    case rfcomm:accept(ListenRef) of
+	{ok,ARef} ->
+	    receive
+		{rfcomm,ARef,{accept,Address,Channel}} ->
+		    Listen ! {accept, self(), ok},
+		    io:format("connection from ~w:~w\n", [Address,Channel]),
+		    main(ARef,Address,Channel);
+		{rfcomm,ARef,{data,_Data}} ->
+		    io:format("error: got data ~p\n", [_Data]),
+		    rfcomm:close(ARef),
+		    Listen ! {accept, self(), {error,data}},
+		    error;
+		{rfcomm,ARef,closed} ->
+		    rfcomm:close(ARef),
+		    Listen ! {accept, self(), {error,closed}},
+		    closed
+	    end;
+	Error ->
+	    Error
+    end.
+
+
+main(Ref,Address,Channel) ->
+    receive
+	{rfcomm,Ref,{data,Data}} ->
+	    rfcomm:send(Ref, ["Echo:",Data]),
+	    main(Ref,Address,Channel);
+	{rfcomm,Ref,closed} ->
+	    rfcomm:close(Ref),
+	    normal;
+	Other ->
+	    io:format("bt_erl_server: main other ~w\n", [Other]),
+	    main(Ref,Address,Channel)
+    end.
diff --git a/deps/bt/src/bt_iset.erl b/deps/bt/src/bt_iset.erl
new file mode 100644
index 0000000..32c7137
--- /dev/null
+++ b/deps/bt/src/bt_iset.erl
@@ -0,0 +1,457 @@
+%%%---- BEGIN COPYRIGHT -------------------------------------------------------
+%%%
+%%% Copyright (C) 2006 - 2014, Rogvall Invest AB, <tony@rogvall.se>
+%%%
+%%% This software is licensed as described in the file COPYRIGHT, which
+%%% you should have received as part of this distribution. The terms
+%%% are also available at http://www.rogvall.se/docs/copyright.txt.
+%%%
+%%% You may opt to use, copy, modify, merge, publish, distribute and/or sell
+%%% copies of the Software, and permit persons to whom the Software is
+%%% furnished to do so, under the terms of the COPYRIGHT file.
+%%%
+%%% This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+%%% KIND, either express or implied.
+%%%
+%%%---- END COPYRIGHT ---------------------------------------------------------
+%%% File    : iset.erl
+%%% Author  : Tony Rogvall <tony@iMac.local>
+%%% Description : Integer Set operations
+%%% Created : 26 Jan 2006 by Tony Rogvall <tony@iMac.local>
+
+-module(bt_iset).
+
+%%
+%% bt_iset:
+%%
+%% representation:
+%%  List of interval and points
+%%
+%%  Points
+%%       A sorted list of values and/or closed intervals where
+%%       intervals are represented as pairs with as {Low,High}.
+%%       It may also be the empty list if no specific points are
+%%       given even though Max and Min has values.
+%%
+%%  operations:
+%%       new() -> ISet
+%%       from_list([Integer|{RangeStart,RangeStop}]) -> ISet
+%%       to_list(ISet) -> List
+%%
+%%       add_element(Element, ISet) -> ISet U [Element]
+%%       del_element(Element, ISet) -> ISet - [Element]
+%%       intersection(ISet1, ISet2) -> (ISet1 ^ ISet2)
+%%       subtract(ISet1, ISet2) -> (ISet1 - ISet2)
+%%       union(ISet1, ISet2)  -> (ISet1 U ISet2)
+%%       is_subset(ISet1, ISet2) ->  boolean()
+%%       is_psubset(ISet1,ISet2) -> boolean()
+%%       size(ISet) -> integer()
+%%       is_element(Element, ISet) -> boolean()
+%%       first(ISet) -> integer() | 'EXIT'
+%%       last(ISet)  -> integer() | 'EXIT'
+%%       format(ISet)
+%%
+
+-export([new/0]).
+-export([add_element/2, del_element/2]).
+-export([add_elements/2, del_elements/2]).
+-export([from_list/1, to_list/1]).
+-export([is_element/2, size/1, is_subset/2, is_psubset/2]).
+-export([first/1, last/1]).
+-export([format/1]).
+-export([union/2, intersection/2, subtract/2]).
+-export([sum/2, product/2, negate/1]).
+-export([map/2, fold/3, filter/2]).
+
+-import(lists, [reverse/1]).
+
+%%
+%% Create a new iset
+%%
+new()      ->  [].
+
+%%
+%% is_element(N, Domain)
+%%
+%% returns:
+%%   true if N is a member of Domain
+%%   false otherwise
+%%
+is_element(N, [N | _]) -> true;
+is_element(N, [V | _]) when is_integer(V), N < V -> false;
+is_element(N, [V | L]) when is_integer(V), N > V -> is_element(N,L);
+is_element(N, [{Low,High}|_]) when N >= Low, N =< High -> true;
+is_element(N, [{Low,_High} | _]) when N < Low -> false;
+is_element(N, [{_Low,High} | L]) when N  > High -> is_element(N, L);
+is_element(_N, []) -> false.
+
+%%
+%% Calculate size of domain
+%%
+%% returns:
+%%       0 if empty set
+%%       N number of members
+%%  
+size(L) ->
+    size(L, 0).
+
+size([V | L], N) when is_integer(V) -> size(L, N+1);
+size([{Low, High}|L], N) -> size(L, N+(High-Low)+1);
+size([], N) -> N.
+
+%%
+%% Get maximum and minimum value
+%%
+first([{V,_} | _]) -> V;
+first([V | _]) -> V.
+
+last(D) ->
+    case lists:reverse(D) of
+	[{_,V} | _] -> V;
+	[V | _]     -> V
+    end.
+
+%%
+%% Map over iset
+%%
+map(_F, []) ->
+    [];
+map(F, [D|Ds]) when is_integer(D) ->
+    [F(D) | map(F,Ds)];
+map(F, [{L,H}|Ds]) ->
+    map_range(F, L, H, Ds).
+
+map_range(F, I, N, Ds) when I > N ->
+    map(F, Ds);
+map_range(F, I, N, Ds) ->
+    [F(I) | map_range(F,I+1,N,Ds)].
+
+fold(F, Acc, [{A,B}|Es]) ->
+    fold(F,fold_range(F, Acc, A, B),Es);
+fold(F, Acc, [A|Es]) ->
+    fold(F, F(A,Acc), Es);
+fold(_F, Acc, []) ->
+    Acc.
+
+fold_range(_Fun, Acc, I, N) when I > N ->
+    Acc;
+fold_range(Fun, Acc, I, N) ->
+    fold_range(Fun, Fun(I,Acc), I+1, N).
+
+
+filter(F, ISet) ->
+    filter(F, ISet, new()).
+
+filter(F, [{A,B}|Es], ISet) ->
+    filter(F,Es,filter_range(F,A,B,ISet));
+filter(F, [A|Es], ISet) ->
+    case F(A) of
+	true ->
+	    filter(F, Es, add_element(A,ISet));
+	false ->
+	    filter(F, Es, ISet)
+    end;
+filter(_F, [], ISet) ->
+    ISet.
+
+filter_range(_F, I, N, ISet) when I > N ->
+    ISet;
+filter_range(F,  I, N, ISet) ->
+    case F(I) of
+	true -> filter_range(F, I+1, N, add_element(I, ISet));
+	false -> filter_range(F, I+1, N, ISet)
+    end.
+
+%%
+%% Utilities:
+%%
+%% value(A,B)   make A-B a domain value
+%% min(A,B)     return the minimum of A and B
+%% max(A,B)     return the maximum of A and B
+%% min_max(A,B) returns {Min,Max}
+%%
+-define(low(X), if is_tuple((X)) -> element(1,(X));
+		   true -> (X)
+		end).
+-define(high(X), if is_tuple((X)) -> element(2,(X));
+		    true -> (X)
+		 end).
+		       
+value(N,N) -> N;
+value(Low, High) -> {Low,High}.
+
+min_max(A,B) when A < B -> {A,B};
+min_max(A,B) -> {B,A}.
+
+%%
+%% Check if D1 is a subset D2
+%%
+is_subset(D1,D2) ->
+    case intersection(D1, D2) of
+	D1 -> true;
+	_  -> false
+    end.
+
+%%
+%% Check if D1 is a proper subset of D2
+%%
+is_psubset(D1, D1) -> false;
+is_psubset(D1, D2) -> is_subset(D1,D2).
+
+
+%%
+%% from_list(List, ISet)
+%%
+%% description:
+%%   Updates a domain given a list of integers and
+%%   intervals and simplifies them as much as possible
+%%
+%% returns:
+%%   Domain
+%%
+from_list(List) ->
+    add_elements(List, new()).
+
+to_list(ISet) ->
+    ISet.
+
+add_elements([E|List], ISet) ->
+    add_elements(List, add_element(E,ISet));
+add_elements([], ISet) ->
+    ISet.
+
+%%
+%% add_element(Element, ISet) -> ISet'
+%%
+add_element(E={A,B},ISet) when is_integer(A),is_integer(B),A<B ->
+    union([E], ISet);
+add_element({A,A},ISet) when is_integer(A) ->
+    union([A], ISet);
+add_element(A,ISet) when is_integer(A) ->
+    union([A], ISet).
+
+%%
+%% delete(Points, Domain)
+%%
+%% description:
+%%   Remove values from a domain given a list of integers and
+%%   intervals and simplifies them as much as possible
+%%
+%% returns:
+%%   Domain
+%%
+
+del_elements([E|List], ISet) ->
+    del_elements(List, del_element(E,ISet));
+del_elements([], ISet) -> ISet.
+
+del_element(E={A,B},ISet) when is_integer(A),is_integer(B),A<B ->
+    subtract(ISet, [E]);
+del_element({A,A},ISet) when is_integer(A) ->
+    subtract(ISet, [A]);
+del_element(A,ISet) when is_integer(A) ->
+    subtract(ISet, [A]).
+
+%%
+%% union(Domain1, Domain2)
+%%
+%% description:
+%%  Create a union of two domains
+%% 
+%%
+union(D,D) -> D;
+union(D1,D2) ->
+    union(D1,D2,new()).
+
+union(D, [], U) -> cons(U,D);
+union([],D, U)  -> cons(U,D);
+union(S1=[D1 | D1s], S2=[D2 | D2s], U) ->
+    Min1 = ?low(D1),
+    Max1 = ?high(D1),
+    Min2 = ?low(D2),
+    Max2 = ?high(D2),
+    if Min2 == Max1+1 ->
+	    union(D1s,[value(Min1,Max2) | D2s], U);
+       Min1 == Max2+1 ->
+	    union([value(Min2,Max1)|D1s], D2s, U);
+       Min2 > Max1 ->
+	    union(D1s, S2, [D1|U]);
+       Min1 > Max2 ->
+	    union(S1, D2s, [D2|U]);
+       Max1 > Max2 ->
+	    union([value(min(Min1,Min2),Max1)|D1s], D2s, U);
+       true ->
+	    union(D1s,[value(min(Min1,Min2),Max2)|D2s], U)
+    end.
+
+%%
+%% intersection(ISet1, ISet2)
+%%
+%% description:
+%%   Create the intersection between two domains
+%%
+%%
+
+intersection([], _) -> [];
+intersection(_, []) -> [];
+intersection(D1, D2) ->
+    intersection(D1, D2, new()).
+
+intersection(_D, [], I) -> reverse(I);
+intersection([], _D, I) -> reverse(I);
+intersection(S1=[D1|D1s], S2=[D2|D2s], I) ->
+    Min1 = ?low(D1),
+    Max1 = ?high(D1),
+    Min2 = ?low(D2),
+    Max2 = ?high(D2),
+    if Min2 > Max1 ->
+ 	    intersection(D1s, S2, I);
+       Min1 > Max2 ->
+	    intersection(S1, D2s, I);
+       Max1<Max2 ->
+	    intersection(D1s,S2,
+			 [value(max(Min1,Min2),Max1)|I]);
+       true ->
+	    intersection(S1, D2s,
+			 [value(max(Min1,Min2),Max2)|I])
+    end.
+
+%%
+%% subtract(ISet1,ISet2)
+%%
+%% returns:
+%%   The difference between Iset1 and ISet2, by removeing the
+%%   values in ISet1 from ISet2 i.e D1 - D2.
+%%   
+%%
+
+subtract(D, []) -> D;
+subtract([], _) -> [];
+subtract(D1, D2) ->
+    subtract(D1,D2,new()).
+
+subtract(D1s,[],Diff) -> cons(Diff,D1s);
+subtract(D1s,[D2|D2s],Diff) ->
+    Min2 = ?low(D2),
+    Max2 = ?high(D2),
+    ddiff(D1s, Min2, Max2, D2, D2s, Diff).
+
+ddiff([], _Min2, _Max2, _D2, _D2s, Diff) ->
+    reverse(Diff);
+ddiff([D1 | D1s], Min2, Max2, D2, D2s, Diff) ->
+    Min1 = ?low(D1),
+    Max1 = ?high(D1),
+    ddiffer(Min1, Max1, Min2, Max2, D1, D2, D1s,D2s,Diff).
+
+ddiffer(Min1,Max1,Min2,Max2,D1,D2,D1s,D2s,Diff) ->
+    if Min2 > Max1 ->
+	    ddiff(D1s, Min2, Max2, D2, D2s, [D1 | Diff]);
+       Min1 > Max2 ->
+	    subtract([D1 | D1s], D2s, Diff);
+       Min1<Min2 ->
+	    D = value(Min1, Min2-1),
+	    NewD1 = value(Min2, Max1),
+	    ddiffer(Min2, Max1, Min2, Max2, 
+		    NewD1, D2, D1s, D2s, [D|Diff]);
+       Max1 > Max2 ->
+	    NewD1 = value(Max2+1, Max1),
+	    ddiffer(Max2+1, Max1, Min2, Max2, 
+		    NewD1, D2, D1s, D2s, Diff);
+       true ->
+	    ddiff(D1s, Min2, Max2, D2, D2s, Diff)
+    end.
+
+%%
+%% Arithmetic in universe
+%%
+%% negate(A)      Integer negate values in domain A
+%% sum(A,B)       Integer addition of values in domains A and B
+%% multiply(A,B)  Integer multiplication of values in domains A and B
+%% divide(A,B)    Integer division of values in domain A with values in B
+%%
+
+%%
+%% Negate domain
+%% returns:
+%%  { x | x = -a, a in A}
+%%
+negate(A) ->
+    negate(A, new()).
+
+negate([{I,J} | As], Neg) ->
+    negate(As, [value(-J,-I)|Neg]);    
+negate([I | As], Neg) ->
+    negate(As, [-I|Neg]);
+negate([], Neg) ->
+    Neg.
+
+%%
+%% Sum of domains
+%% returns:
+%%   { x | x = a+b, a in A, b in B }
+%%
+sum(A, B) ->
+    sum(A,B,new()).
+
+sum([A|As], Bs, Sum) ->
+    MinA = ?low(A),
+    MaxA = ?high(A),
+    sum(As,Bs,union(sum1(Bs,MinA,MaxA,new()), Sum));
+sum([], _, Sum) ->
+    Sum.
+
+sum1([B|Bs],MinA,MaxA,Sum) ->
+    MinB = ?low(B),
+    MaxB = ?high(B),
+    sum1(Bs, MinA, MaxA, union([value(MinA+MinB,MaxA+MaxB)], Sum));
+sum1([],_,_,Sum) ->
+    Sum.
+
+%%
+%% Product of domains
+%% returns:
+%%   { x | x = a*b, a in A, b in B }
+%%
+product(A, B) ->
+    product(A,B,new()).
+
+product([A|As], Bs, Prod) ->
+    product(As,Bs,union(prod(Bs,A,new()), Prod));
+product([], _, Prod) ->
+    Prod.
+
+prod([B|Bs],A,Prod) ->
+    MinA = ?low(A),
+    MaxA = ?high(A),
+    MinB = ?low(B),
+    MaxB = ?high(B),
+    P1 = MinA*MinB,
+    P2 = MinA*MaxB,
+    P3 = MaxA*MinB,
+    P4 = MaxA*MaxB,
+    {Min1,Max1} = min_max(P1,P2),
+    {Min2,Max2} = min_max(P3,P4),
+    N = add_element({min(Min1,Min2),max(Max1,Max2)}, new()),
+    prod(Bs, A, union(N, Prod));
+prod([],_, Prod) ->
+    Prod.
+
+
+cons([E | L1], L2) ->
+    cons(L1, [E | L2]);
+cons([], L) ->
+    L.
+
+%%
+%% format(D)
+%%
+%% output a domain
+%%
+format([]) -> "{}";
+format([D]) -> ["{", format1(D), "}"];
+format([D|Ds]) -> 
+    ["{", format1(D), lists:map(fun(D1) -> [",",format1(D1)] end, Ds), "}"].
+
+format1({Low,High}) -> [$[,integer_to_list(Low),"..",integer_to_list(High),$]];
+format1(Value)      -> [integer_to_list(Value)].
+
diff --git a/deps/bt/src/bt_make_hci_api.erl b/deps/bt/src/bt_make_hci_api.erl
new file mode 100644
index 0000000..e108494
--- /dev/null
+++ b/deps/bt/src/bt_make_hci_api.erl
@@ -0,0 +1,408 @@
+%%% @author Tony Rogvall <tony@up13>
+%%% @copyright (C) 2015, Tony Rogvall
+%%% @doc
+%%%    Create header/erlang file from def file
+%%% @end
+%%% Created :  3 Apr 2015 by Tony Rogvall <tony@up13>
+
+-module(bt_make_hci_api).
+
+-compile(export_all).
+
+%%
+%% the def file content consist of:
+%%
+%% {define, Name::atom(), Value::integer() | string()}
+%%
+%% <NAME>_SIZE are really not needed since the size may be 
+%% computed from the struct?
+%% OGF_<Group?-Name>
+%% OCF_<Command-Name>
+%% 
+%% A command OCG_<COMMAND-NAME> is also in company with
+%% command structure: <command_name>_cp or <command_name>_rp
+%%
+%% {type, name(), type()}   type definition
+%% 
+%% {enum, [name()]} | {enum, [{name(),value()}]}
+%%
+%% {struct,name(),[{type(),name()}]}
+%% {struct,name(),[{type(),size(),name()}]}
+%%
+%% <name>_cp  is command struct
+%% <name>_rp  is reply struct
+%%
+%% 
+%%
+%% Generate include file hrl
+%% Generate source file erl
+%%
+main() ->
+    {ok,Defs0} = file:consult(filename:join(code:priv_dir(bt), "hci.def")),
+    {ok,Erl} = file:open("hci_api.erl", [write]),
+    {ok,Hrl} = file:open("hci_api.hrl", [write]),
+    write_erl_header(Erl),
+    write_hrl_header(Hrl),
+    R = try write(Hrl, Erl, Defs0, Defs0, "", "", [], [], []) of
+	    Result -> Result
+	catch
+	    error:Reason ->
+		io:format("crash: ~p\n", [erlang:get_stacktrace()]),
+		{error,Reason}
+	end,
+    file:close(Erl),
+    write_hrl_footer(Hrl),
+    file:close(Hrl),
+    R.
+
+write_erl_header(Erl) ->
+    io:format(Erl, "%% -*- erlang -*-\n", []),
+    io:format(Erl, "-module(hci_api).\n", []),
+    io:format(Erl, "-compile(export_all).\n", []),
+    io:format(Erl, "-include(\"hci_api.hrl\").\n", []),
+    io:format(Erl, "\n", []),
+    io:format(Erl, "~s\n\n", ["
+cname(<<0,_/binary>>) -> [];
+cname(<<C,Cs/binary>>) -> [C|cname(Cs)];
+cname(<<>>) -> [].
+"]),
+    ok.
+
+write_hrl_header(Hrl) ->
+    io:format(Hrl, "%% -*- erlang -*-\n", []),
+    io:format(Hrl, "-ifndef(__HCI_HRL__).\n", []),
+    io:format(Hrl, "-define(__HCI_HRL__,true).\n", []),
+    io:format(Hrl, "\n\n", []),
+    ok.
+
+write_hrl_footer(Erl) ->
+    io:format(Erl, "-endif.\n", []),
+    ok.
+
+%%
+%% Generate erlang files
+%%
+write(Hrl,Erl,[Def|Defs],Defs0,OGF0,OCF0,EVTs,Funcs,Ds) ->
+    case write_def(Hrl,Erl,Def,Defs0) of
+	{ogf,OGF} -> write(Hrl,Erl,Defs,Defs0,OGF,OCF0,EVTs,Funcs,Ds);
+	{ocf,OCF} -> write(Hrl,Erl,Defs,Defs0,OGF0,OCF,EVTs,
+			   [{OGF0,OCF}|Funcs],Ds);
+	{evt,EVT} -> write(Hrl,Erl,Defs,Defs0,OGF0,OCF0,[EVT|EVTs],Funcs,Ds);
+	{evt_decode,Name} ->
+	    D = [{Evt,Name} || Evt <- EVTs],
+	    Ds1 = lists:reverse(D, Ds),
+	    write(Hrl,Erl,Defs,Defs0,OGF0,OCF0,[],Funcs,Ds1);
+	_ -> write(Hrl,Erl,Defs,Defs0,OGF0,OCF0,EVTs,Funcs,Ds)
+    end;
+write(_Hrl,Erl,[],Defs0,_OGF0,_OCF0,_EVTs,Funcs,Ds) ->
+    %% do "normal" events
+    io:format(Erl,
+	     "decode(Evt,_Data) ->\n"
+	     "  case Evt of\n", []),
+    lists:foreach(
+      fun({"EVT_TESTING", _Name}) -> ok;
+	 ({"EVT_VENDOR", _Name})  -> ok;
+	 ({"EVT_SI_"++_, _Name})  -> ok;
+	 ({Evt="EVT_INQUIRY_COMPLETE", _Name}) ->
+	      write_clause(Erl, Evt, inquiry_info);
+	 ({Evt="EVT_INQUIRY_RESULT", _Name}) ->
+	      write_clause(Erl, Evt, inquiry_info);
+	 ({Evt="EVT_LE_META_EVENT",Name}) ->
+	      write_clause(Erl, Evt, Name);
+	 ({"EVT_LE"++_,_Name}) -> ok;
+	 ({Evt,Name}) ->
+	      write_clause(Erl, Evt, Name)
+      end, Ds),
+    io:format(Erl,
+	      "    _ -> erlang:error(bad_event)\n", []),
+    io:format(Erl,
+	      "  end.\n\n", []),
+    %% do "LE" events
+    io:format(Erl,
+	      "decode_le(Evt,_Data) ->\n"
+	      "  case Evt of\n", []),
+    lists:foreach(
+      fun({"EVT_LE_META_EVENT",_Name}) -> ok;
+	 ({Evt="EVT_LE"++_,Name}) ->
+	      write_clause(Erl, Evt, Name);
+	 ({_, _}) -> ok
+      end, Ds),
+    io:format(Erl, 
+	      "    _ -> erlang:error(bad_event)\n", []),
+    io:format(Erl,
+	      "  end.\n\n", []),
+    %% Do hci calls
+    write_calls(Erl, Funcs, Defs0),
+    ok.
+
+write_clause(Erl, Evt, Name) ->
+    io:format(Erl, "    ?~s -> decode_~s(_Data);\n",
+	      [Evt,Name]).
+
+%% Generate send function
+write_send(Erl,OGF,OCF,Defs) ->
+    "ocf_"++ FuncName = string:to_lower(atom_to_list(OCF)),
+    Cp = list_to_atom(FuncName++"_cp"),
+    case find_struct(Cp, Defs) of
+	false ->
+	    io:format(Erl, "send_~s(Socket) ->\n",
+		      [FuncName]),
+	    io:format(Erl, "  hci_socket:send(Socket,?~s,?~s,<<>>).\n\n",
+		      [OGF,OCF]);
+	{struct,Cp,Fields} ->
+	    FieldNames = field_names(Fields),
+	    MacroArgs = [ var_name(F) || F <- FieldNames ],
+	    %% generate the argument structure 
+	    io:format(Erl,
+		      "send_~s(Socket,~s) ->\n",
+		      [FuncName, join(MacroArgs,",")]),
+	    io:format(Erl,
+		      "  hci_socket:send(Socket,?~s,?~s,<<?~s_bin(~s)>>).\n\n",
+		      [OGF,OCF,Cp,join(MacroArgs,",")])
+    end.
+
+%% For each {OGF, OCF} generate a send_<ocf>
+%% and also generate a call_<ocf>
+write_calls(Erl,[{OGF,OCF}|Funcs],Defs) ->
+    write_call(Erl, OGF, OCF, Defs),
+    write_calls(Erl,Funcs,Defs);
+write_calls(_Erl,[],_Defs) ->
+    ok.
+
+%% Emit call function
+write_call(Erl,OGF,OCF,Defs) ->
+    "ocf_"++ FuncName = string:to_lower(atom_to_list(OCF)),
+    Cp = list_to_atom(FuncName++"_cp"),
+    Rp = list_to_atom(FuncName++"_rp"),
+    Decoder = case find_struct(Rp, Defs) of
+		  false -> "undefined";
+		  {struct,Rp,_} -> "fun decode_"++FuncName++"_rp/1"
+	      end,
+    case find_struct(Cp, Defs) of
+	false ->
+	    io:format(Erl, "~s(Socket) ->\n",
+		      [FuncName]),
+	    io:format(Erl, "  hci_socket:call(Socket,?~s,?~s,<<>>,~s).\n\n",
+		      [OGF,OCF,Decoder]);
+	{struct,Cp,Fields} ->
+	    FieldNames = field_names(Fields),
+	    MacroArgs = [ var_name(F) || F <- FieldNames ],
+	    %% generate the argument structure 
+	    io:format(Erl,
+		      "~s(Socket,~s) ->\n",
+		      [FuncName, join(MacroArgs,",")]),
+	    io:format(Erl,
+		      "  hci_socket:call(Socket,?~s,?~s,<<?~s_bin(~s)>>,~s).\n\n",
+		      [OGF,OCF,Cp,join(MacroArgs,","),Decoder])
+    end.
+
+%%
+%% Write definition to header file.
+%% Write decode functions to erlang file.
+%%    
+write_def(Hrl, Erl, Def, Defs0) ->
+    io:format("Def = ~p\n", [Def]),
+    case Def of
+	{define,Name,Value} when is_integer(Value) ->
+	    NameString = atom_to_list(Name),
+	    io:format(Hrl, "-define(~s, ~w).\n", [NameString, Value]),
+	    case NameString of
+		"OGF_"++_ -> {ogf,Name};
+		"OCF_"++_ -> {ocf,Name};
+		"EVT_"++_ ->
+		    case lists:suffix("_SIZE", NameString) of
+			true -> ok;
+			false ->  {evt,NameString}
+		    end;
+		_ -> ok
+	    end;
+	{define,Name,Value} when is_list(Value) ->
+	    NameString = atom_to_list(Name),
+	    io:format(Hrl, "-define(~s, ~s).\n", [NameString, Value]),
+	    case NameString of
+		"OGF_"++_ -> {ogf,Name};
+		"OCF_"++_ -> {ocf,Name};
+		"EVT_"++_ ->
+		    case lists:suffix("_SIZE", NameString) of
+			true -> ok;
+			false ->  {evt,NameString}
+		    end;
+		_ -> ok
+	    end;
+
+	{type, _Name, _Type} -> %% used internally
+	    ok;
+
+	{enum,Es} ->
+	    lists:foreach(
+	      fun({Name,Value}) when is_integer(Value) ->
+		      io:format(Hrl, "-define(~s, ~w).\n", [Name, Value])
+	      end, enum_es(Es));
+
+	{struct,Name,Fields} ->
+	    NameString = atom_to_list(Name),
+	    %% generate a record
+	    io:format(Hrl, "-record(~s, {\n  ", [Name]),
+	    FieldNames = field_names(Fields),
+	    StrFieldNames = [atom_to_list(Nm) || Nm <- FieldNames],
+	    io:format(Hrl, "~s", [join(StrFieldNames, ",\n  ")]),
+	    io:format(Hrl, "\n}).\n", []),
+	    %% generate a binary match sequence
+	    MacroArgs = [ var_name(F) || F <- FieldNames ],
+	    BinBody = field_match_list(Fields, Defs0),
+	    io:format(Hrl, "-define(~s_bin(~s),~s).\n",
+		      [Name, join(MacroArgs,","), 
+		       join(BinBody,",")]),
+	    case lists:reverse(NameString) of
+		"pc_"++_ -> %% <name>_cp async command
+		    ok;
+		"pr_" ++ _ -> %% reply data structure
+		    decode_function(Erl, Name, Fields, MacroArgs);
+		"ofni_yriuqni" ->
+		    decode_function(Erl, Name, Fields, MacroArgs);
+		_ ->
+		    case lists:prefix("evt_", NameString) of
+			true ->
+			    decode_function(Erl, Name, Fields, MacroArgs),
+			    {evt_decode, Name};
+			false ->
+			    ok
+		    end
+	    end
+    end.
+
+decode_function(Erl, Name,  Fields, MacroArgs) ->
+    FsList = format_field_assign_list(Fields, MacroArgs),
+    %% generate a decode function
+    io:format(Erl, "decode_~s(_Data) ->\n", [Name]),
+    io:format(Erl,
+	      "  case _Data of\n"
+	      "    <<?~s_bin(~s)>> ->\n"
+	      "      #~s { ~s }\n"
+	      "  end.\n\n",
+	      [Name,
+	       join(MacroArgs,","),
+	       Name,
+	       FsList]).
+
+
+format_field_assign_list([F], [Arg]) ->
+    format_field_assign(F, Arg);
+format_field_assign_list([F|Fs], [Arg|As]) ->
+    [format_field_assign(F, Arg), ",", 
+     format_field_assign_list(Fs,As)];
+format_field_assign_list([], []) ->
+    [].
+
+format_field_assign({char,_,Name}, Arg) ->
+    [atom_to_list(Name)," = cname(", Arg, ")"];
+format_field_assign({_Type,Name}, Arg) ->
+    [atom_to_list(Name)," = ", Arg];
+format_field_assign({_Type,_,Name}, Arg) ->
+    [atom_to_list(Name)," = ", Arg].
+    
+
+var_name(Name) when is_atom(Name) ->
+    var_name_(atom_to_list(Name));
+var_name(Name) when is_list(Name) ->
+    var_name_(Name).
+
+var_name_([H|T]) ->
+    [string:to_upper(H) | T].
+
+remove_suffix(Suffix, List) ->
+    RSuffix = lists:reverse(Suffix),
+    RList   = lists:reverse(List),
+    case lists:prefix(RSuffix, RList) of
+	true ->
+	    lists:reverse(lists:nthtail(length(RSuffix), RList));
+	false ->
+	    List
+    end.
+
+find_define(Name,[Def={define,Name,_}|_Defs]) ->
+    Def;
+find_define(Name,[_|Defs]) ->
+    find_define(Name,Defs);
+find_define(_, []) ->
+    false.
+
+find_struct(Name,[Def={struct,Name,_}|_Defs]) ->
+    Def;
+find_struct(Name,[_|Defs]) ->
+    find_struct(Name,Defs);
+find_struct(_, []) ->
+    false.
+
+find_type(char,_)     -> true;
+find_type(uint8_t,_)  -> true;
+find_type(int8_t,_)   -> true;
+find_type(uint16_t,_) -> true;
+find_type(uint32_t,_) -> true;
+find_type(uint64_t,_) -> true;
+find_type(Name,[TypeDef={type,Name,_}|_Defs]) ->
+    TypeDef;
+find_type(Name,[_|Defs]) ->
+    find_type(Name,Defs);
+find_type(_, []) ->
+    false.
+
+field_match_list([{Type,Name}|Fs], Defs) ->
+    [ field_match(Type,Name,Defs) | field_match_list(Fs,Defs)];
+field_match_list([], _Defs) ->
+    [].
+
+field_match(Type,Name,Defs) when is_atom(Type) ->
+    case find_type(Type,Defs) of
+	true -> %% basic type
+	    var_name(Name)++type_unit(Type);
+	{type,_,Type1} ->
+	    field_match(Type1,Name,Defs)
+    end;
+field_match({Type,Size},Name,Defs) when is_atom(Type) ->
+    case find_type(Type,Defs) of
+	true ->
+	    var_name(Name)++":"++
+		if is_integer(Size) ->
+			integer_to_list(Size);
+		   is_list(Size) ->
+			"("++Size++")"
+		end ++ "/" ++ unit(Type)++"-binary";
+	{type,_,Type1} ->
+	    field_match({Type1,Size}, Name, Defs)
+    end.
+%% more cases are neede here at some point
+
+type_unit(char)     -> ":1/unsigned-unit:8";
+type_unit(uint8_t)  -> ":1/unsigned-unit:8";
+type_unit(int8_t)   -> ":1/signed-unit:8";
+type_unit(uint16_t) -> ":1/little-unsigned-unit:16";
+type_unit(uint32_t) -> ":1/little-unsigned-unit:32";
+type_unit(uint64_t) -> ":1/little-unsigned-unit:64".
+
+%% element unit
+unit(char)     -> "unit:8";
+unit(uint8_t)  -> "unit:8";
+unit(int8_t)   -> "unit:8";
+unit(uint16_t) -> "unit:16";
+unit(uint32_t) -> "unit:32";
+unit(uint64_t) -> "unit:64".
+
+    
+field_names(Fs) ->
+    [ Name || {_Type, Name} <- Fs].
+
+join([], _Sep) -> [];
+join([A], _Sep) -> [A];
+join([A|As], Sep) -> [A,Sep|join(As,Sep)].
+
+
+enum_es(Enums) ->
+    enum_es(Enums, 0).
+
+enum_es([Name|Enums], I) when is_atom(Name) ->
+    [{Name,I} | enum_es(Enums, I+1)];
+enum_es([{Name,Value}|Enums], I) ->
+    [{Name,Value}|enum_es(Enums, erlang:max(Value,I)+1)];
+enum_es([], _) ->
+    [].
diff --git a/deps/bt/src/bt_sdp.erl b/deps/bt/src/bt_sdp.erl
new file mode 100644
index 0000000..3d77dae
--- /dev/null
+++ b/deps/bt/src/bt_sdp.erl
@@ -0,0 +1,1108 @@
+%%%---- BEGIN COPYRIGHT -------------------------------------------------------
+%%%
+%%% Copyright (C) 2006 - 2014, Rogvall Invest AB, <tony@rogvall.se>
+%%%
+%%% This software is licensed as described in the file COPYRIGHT, which
+%%% you should have received as part of this distribution. The terms
+%%% are also available at http://www.rogvall.se/docs/copyright.txt.
+%%%
+%%% You may opt to use, copy, modify, merge, publish, distribute and/or sell
+%%% copies of the Software, and permit persons to whom the Software is
+%%% furnished to do so, under the terms of the COPYRIGHT file.
+%%%
+%%% This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+%%% KIND, either express or implied.
+%%%
+%%%---- END COPYRIGHT ---------------------------------------------------------
+%%% File    : bt_sdp.erl
+%%% Author  : Tony Rogvall <tony@PBook.local>
+%%% Description : SDP functions
+%%% Created : 28 May 2006 by Tony Rogvall <tony@PBook.local>
+
+-module(bt_sdp).
+
+-export([attribute_to_string/1, attribute_to_string/2,  attribute_to_string/3]).
+-export([string_to_attribute/1, string_to_attribute/2]).
+-export([value_to_string/1]).
+-export([uuid_to_string/1, string_to_uuid/1]).
+
+-export([is_value/1, encode_value/1, decode_value/1, decode_value/2]).
+-export([fold_value/3]).
+-export([encode/2, decode/1]).
+-export([uuid_128/1]).
+-export([decode_sdp_value/1]).
+
+%% Native Client SDP/L2CAP API
+-export([service_search/2,
+	 service_attribute/3,
+	 service_search_attribute/3
+	]).
+-export([encode_pdu/2,encode_pdu/3,
+	 decode_pdu/1]).
+
+-import(lists, [reverse/1, map/2]).
+
+-include("../include/bt.hrl").
+-include("../include/sdp.hrl").
+
+
+-define(SDP_NIL,         0).
+-define(SDP_UNSIGNED,    1).
+-define(SDP_SIGNED,      2).
+-define(SDP_UUID,        3).
+-define(SDP_TEXT,        4).
+-define(SDP_BOOLEAN,     5).
+-define(SDP_SEQUENCE,    6).
+-define(SDP_ALTERNATIVE, 7).
+-define(SDP_URL,         8).
+
+
+%% L2CAP implementation of SDP query (will be)
+service_search(Address, UUIDList) ->
+    SearchPattern = cvt_uuid_list(UUIDList),
+    PDU = #sdpServiceSearchRequest { serviceSearchPattern=SearchPattern,
+				     maximumServiceRecordCount=16#ffff
+				   },
+    sdp_request(Address, PDU).
+
+service_attribute(Address, Handle, AttributeList) ->
+    AttributeIDList= cvt_attribute_id_list(AttributeList),
+    PDU = #sdpServiceAttributeRequest { serviceRecordHandle=Handle,
+					maximumAttributeByteCount=16#ffff,
+					attributeIDList=AttributeIDList },
+    sdp_request(Address, PDU).
+    
+service_search_attribute(Address, UUIDList, AttributeList) ->
+    SearchPattern = cvt_uuid_list(UUIDList),
+    AttributeIDList= cvt_attribute_id_list(AttributeList),
+    PDU=#sdpServiceSearchAttributeRequest { serviceSearchPattern=SearchPattern,
+					    maximumAttributeByteCount=16#ffff,
+					    attributeIDList=AttributeIDList },
+    sdp_request(Address, PDU).
+    
+
+sdp_request(Address, PDU) ->
+    case l2cap:open(Address, ?L2CAP_PSM_SDP) of
+	{ok,L2CAP} ->
+	    Result = sdp_l2cap_request(L2CAP,<<>>,[],PDU),
+	    l2cap:close(L2CAP),
+	    Result;
+	Error -> Error
+    end.
+
+sdp_l2cap_request(L2CAP,Continuation,Acc,Request) ->
+    Transaction = next_transaction_id(),
+    io:format("Transaction ~w\n", [Transaction]),
+    Bin = encode_pdu(Transaction,Continuation,Request),
+    l2cap:send(L2CAP, Bin),
+    receive
+	{l2cap, L2CAP, {data,Data}} ->
+	    case decode_pdu(Data,Acc) of
+		{ok,{Transaction,<<>>,_Acc1,
+		     #sdpErrorResponse { errorCode=ErrorCode,
+					 errorInfo=ErrorInfo }}} ->
+		    {error,{ErrorCode,ErrorInfo}};
+		{ok,{Transaction,<<>>,_Acc1,Response}} ->
+		    {ok,Response};
+		{ok,{Transaction,Continuation1,Acc1,_Response}} ->
+		    io:format("get more\n",[]),
+		    sdp_l2cap_request(L2CAP,Continuation1,Acc1,Request);
+		Error ->
+		    Error
+	    end;
+	{l2cap, L2CAP, closed} ->
+	    {error, closed}
+    end.
+	    
+%%
+%% Encode PDU
+%%
+encode_pdu(Transaction,PDU) ->
+    encode_pdu(Transaction,<<>>,PDU).
+
+encode_pdu(Transaction,Continuation,
+	   #sdpServiceSearchRequest
+	   { serviceSearchPattern=ServiceSearchPattern,
+	     maximumServiceRecordCount=MaximumServiceRecordCount
+	    })  ->
+    EServiceSearchPattern = encode_value(ServiceSearchPattern),
+    ParameterLen = size(EServiceSearchPattern)+2+1+size(Continuation),
+    <<?SDP_ServiceSearchRequest,
+     Transaction:16/unsigned-integer,
+     ParameterLen:16/unsigned-integer,
+     EServiceSearchPattern/binary,
+     MaximumServiceRecordCount:16/unsigned-integer,
+     (size(Continuation)):8/unsigned-integer, Continuation/binary>>;
+encode_pdu(Transaction,Continuation,
+	   #sdpServiceSearchResponse
+	   { totalServiceRecordCount=TotalServiceRecordCount,
+	     currentServiceRecordCount=CurrentServiceRecordCount,
+	     serviceRecordHandleList=Handles
+	    }) ->
+    ParameterLen = 2+2+4*length(Handles),
+    ServiceRecordHandleList = 
+	list_to_binary(map(fun(H) -> <<H:32/unsigned-integer>> end, Handles)),
+    <<?SDP_ServiceSearchResponse,
+     Transaction:16/unsigned-integer,
+     ParameterLen:16/unsigned-integer,
+     TotalServiceRecordCount:16/unsigned-integer,
+     CurrentServiceRecordCount:16/unsigned-integer,
+     ServiceRecordHandleList/binary,
+     (size(Continuation)):8, Continuation/binary>>;
+encode_pdu(Transaction,Continuation,
+	   #sdpServiceAttributeRequest
+	   { serviceRecordHandle=Handle,
+	     maximumAttributeByteCount=MaximumAttributeByteCount,
+	     attributeIDList=AttributeIDList
+	    }) ->
+    EAttributeIDList = encode_value(AttributeIDList),
+    ParameterLen = 4+2+size(EAttributeIDList)+1+size(Continuation),
+    <<?SDP_ServiceAttributeRequest,
+     Transaction:16/unsigned-integer,
+     ParameterLen:16/unsigned-integer,
+     Handle:32/unsigned-integer,
+     MaximumAttributeByteCount:16/unsigned-integer,     
+     EAttributeIDList/binary,
+     (size(Continuation)):8/unsigned-integer, Continuation/binary>>;
+encode_pdu(Transaction,Continuation,
+	   #sdpServiceAttributeResponse 
+	   { attributeListByteCount=AttributeListByteCount,
+	     attributeList=AttributeList }) ->
+    ParameterLen = 2 + size(AttributeList)+1+size(Continuation),
+    <<?SDP_ServiceAttributeResponse,
+     Transaction:16/unsigned-integer,
+     ParameterLen:16/unsigned-integer,
+     AttributeListByteCount:16/unsigned-integer,
+     AttributeList/binary,
+     (size(Continuation)):8, Continuation/binary>>;
+encode_pdu(Transaction,Continuation,
+	   #sdpServiceSearchAttributeRequest
+	   { serviceSearchPattern=ServiceSearchPattern,
+	     maximumAttributeByteCount=MaximumAttributeByteCount,
+	     attributeIDList=AttributeIDList
+	    }) ->
+    EServiceSearchPattern = encode_value(ServiceSearchPattern),
+    EAttributeIDList = encode_value(AttributeIDList),    
+    ParameterLen = size(EServiceSearchPattern)+2+
+	size(EAttributeIDList)+1+size(Continuation),
+    <<?SDP_ServiceSearchAttributeRequest,
+     Transaction:16/unsigned-integer,
+     ParameterLen:16/unsigned-integer,
+     EServiceSearchPattern/binary,
+     MaximumAttributeByteCount:16/unsigned-integer,
+     EAttributeIDList/binary,
+     (size(Continuation)):8/unsigned-integer, Continuation/binary>>;
+encode_pdu(Transaction,Continuation,
+	   #sdpServiceSearchAttributeResponse 
+	   { attributeListByteCount=AttributeListByteCount,
+	     attributeList=AttributeList }) ->
+    ParameterLen = 2+size(AttributeList)+1+size(Continuation),
+    <<?SDP_ServiceSearchAttributeResponse,
+     Transaction:16/unsigned-integer,
+     ParameterLen:16/unsigned-integer,
+     AttributeListByteCount:16/unsigned-integer,
+     AttributeList/binary,
+     (size(Continuation)):8, Continuation/binary>>;
+encode_pdu(Transaction,_Continuation,
+	   #sdpErrorResponse { errorCode=ECode,
+			       errorInfo=ErrorInfo }) ->
+    ErrorCode = 
+	case ECode of
+	    invalid_version -> ?SDP_ErrorInvalidVersion;
+	    invalid_handle -> ?SDP_ErrorInvalidHandle;
+	    invalid_syntax -> ?SDP_ErrorInvalidSyntax;
+	    invalid_pdu_size -> ?SDP_ErrorInvaludPduSize;
+	    invalid_continuation -> ?SDP_ErrorInvalidContinuation;
+	    insufficient_resources ->?SDP_ErrorInsufficientResources;
+	    _ when is_integer(ECode) -> ECode
+	end,
+    ParameterLen = 2+size(ErrorInfo),
+    <<?SDP_ErrorResponse,
+     Transaction:16/unsigned-integer,
+     ParameterLen:16/unsigned-integer,
+     ErrorCode:16/unsigned-integer,
+     ErrorInfo/binary>>;
+
+encode_pdu(_Transaction,_Continuation,PDU) ->
+    %% add response pdus.
+    erlang:error({bad_pdu, PDU}).
+
+decode_pdu(Bin) ->
+    decode_pdu(Bin, []).
+
+decode_pdu(<<ID,
+	    Transaction:16/unsigned-integer,
+	    ParameterLen:16/unsigned-integer,
+	    Parameters:ParameterLen/binary>>, Acc) ->
+    case catch decode_pdu(ID,Transaction,Parameters,Acc) of
+	{'EXIT',_} ->
+	    {error,invalid_request_syntax};
+	Result -> Result
+    end;
+decode_pdu(PDU, _Acc) ->
+    erlang:error({bad_pdu,PDU}).
+
+%% decode pdu return {Transaction,Continuation,Pdu}
+decode_pdu(?SDP_ServiceSearchRequest,Transaction,Parameters,_Acc) ->
+    PatternSize = sizeof(Parameters,0),
+
+    <<Patterns:PatternSize/binary,
+     MaximumServiceRecordCount:16/unsigned-integer,
+     CSize:8, Continuation:CSize/binary>> = Parameters,
+
+    {ok,{Transaction,Continuation
+	 #sdpServiceSearchRequest 
+	 { serviceSearchPattern=decode(Patterns),
+	   maximumServiceRecordCount=MaximumServiceRecordCount}}};
+
+decode_pdu(?SDP_ServiceSearchResponse,Transaction,
+	   <<TotalServiceRecordCount:16/unsigned-integer,
+	    CurrentServiceRecordCount:16/unsigned-integer,
+	    ServiceRecordHandleList:CurrentServiceRecordCount/binary-unit:32,
+	    CSize:8, Continuation:CSize/binary>>, Acc) ->
+    HandleList = uint32_list(ServiceRecordHandleList),
+    if Continuation == <<>> ->
+	    {ok,{Transaction,Continuation,[],
+		 #sdpServiceSearchResponse 
+		 { totalServiceRecordCount=TotalServiceRecordCount,
+		   currentServiceRecordCount=CurrentServiceRecordCount,
+		   serviceRecordHandleList=Acc++HandleList}}};
+       true ->
+	    {ok,{Transaction,Continuation,Acc++HandleList,
+		 #sdpServiceSearchResponse 
+		 { totalServiceRecordCount=TotalServiceRecordCount,
+		   currentServiceRecordCount=CurrentServiceRecordCount,
+		   serviceRecordHandleList=HandleList}}}
+    end;
+
+decode_pdu(?SDP_ServiceAttributeRequest,Transaction,Parameters,_Acc) ->
+    AttributeIDSize = sizeof(Parameters,6),
+    <<Handle:32/unsigned-integer,
+     MaximumAttributeByteCount:16/unsigned-integer,     
+     AttributeIDList:AttributeIDSize/binary,
+     CSize:8, Continuation:CSize/binary>> = Parameters,
+    {ok,{Transaction,Continuation,[],
+	 #sdpServiceAttributeRequest 
+	 { serviceRecordHandle=Handle,
+	   maximumAttributeByteCount=MaximumAttributeByteCount,
+	   attributeIDList = decode(AttributeIDList) }}};
+
+decode_pdu(?SDP_ServiceAttributeResponse,Transaction,
+	   <<AttributeListByteCount:16/unsigned-integer,
+	    AttributeList:AttributeListByteCount/binary,
+	    CSize:8, Continuation:CSize/binary>>, Acc) ->
+    if Continuation == <<>> ->
+	    TotalAttributeList = list_to_binary([Acc,AttributeList]),
+	    AList = decode_value(TotalAttributeList),
+	    IAttributeList=attribute_id_list(AList),
+	    {ok,{Transaction,Continuation,[],
+		 #sdpServiceAttributeResponse 
+		 { attributeListByteCount=size(TotalAttributeList),
+		   attributeList=IAttributeList}}};
+       true ->
+	    {ok,{Transaction,Continuation,Acc++[AttributeList],
+		 #sdpServiceAttributeResponse 
+		 { attributeListByteCount=AttributeListByteCount,
+		   attributeList=AttributeList}}}
+    end;
+decode_pdu(?SDP_ServiceSearchAttributeRequest,Transaction, Parameters, _Acc) ->
+    PatternSize = sizeof(Parameters,0),
+    AttributeIDSize = sizeof(Parameters,PatternSize+2),
+    <<Pattern:PatternSize/binary,
+     MaximumAttributeByteCount:16/unsigned-integer,
+     AttributeIDList:AttributeIDSize/binary,
+     CSize:8, Continuation:CSize/binary>> = Parameters,
+
+    {ok,{Transaction,Continuation,[],
+	 #sdpServiceSearchAttributeRequest 
+	 { serviceSearchPattern=decode(Pattern),
+	   maximumAttributeByteCount=MaximumAttributeByteCount,
+	   attributeIDList = decode(AttributeIDList) }}};
+
+decode_pdu(?SDP_ServiceSearchAttributeResponse,Transaction,
+	   <<AttributeListByteCount:16/unsigned-integer,
+	    AttributeList:AttributeListByteCount/binary,
+	    CSize:8, Continuation:CSize/binary>> , Acc) ->
+    if Continuation == <<>> ->
+	    TotalAttributeList = list_to_binary([Acc,AttributeList]),
+	    AList = decode_value(TotalAttributeList),
+	    RAttributeList = service_id_list(AList),
+	    {ok,{Transaction,Continuation,[],
+		 #sdpServiceSearchAttributeResponse 
+		 { attributeListByteCount=size(TotalAttributeList),
+		   attributeList=RAttributeList}}};
+       true ->
+	    {ok,{Transaction,Continuation,Acc++[AttributeList],
+		 #sdpServiceSearchAttributeResponse 
+		 { attributeListByteCount=AttributeListByteCount,
+		   attributeList=AttributeList}}}
+    end;
+decode_pdu(?SDP_ErrorResponse,Transaction,
+	   <<ErrorCode:16/unsigned-integer,
+	    ErrorInfo/binary>>, _Acc) ->
+    ECode = 
+	case ErrorCode of
+	    ?SDP_ErrorInvalidVersion -> invalid_version;
+	    ?SDP_ErrorInvalidHandle  -> invalid_handle;
+	    ?SDP_ErrorInvalidSyntax  -> invalid_syntax;
+	    ?SDP_ErrorInvaludPduSize -> invalid_pdu_size;
+	    ?SDP_ErrorInvalidContinuation -> invalid_continuation;
+	    ?SDP_ErrorInsufficientResources -> insufficient_resources;
+	    _ -> ErrorCode
+	end,
+    {ok,{Transaction,<<>>,[],
+	 #sdpErrorResponse { errorCode=ECode,
+			     errorInfo=ErrorInfo }}};
+decode_pdu(_ID, _Transaction, _Parameters, _Acc) ->
+    {error, invalid_pdu}.
+
+
+
+
+uint32_list(<<X:32/unsigned-integer, T/binary>>) ->
+    [X | uint32_list(T)];
+uint32_list(<<>>) ->
+    [].
+
+%% convert search attribute response into attribute list
+service_id_list({sequence,List}) ->
+    map(fun(H) -> attribute_id_list(H) end, List);
+service_id_list(_) ->
+    [].
+		
+    
+%% convert attribute response into attribute list
+attribute_id_list({sequence,List}) ->
+    attribute_id_list1(List);
+attribute_id_list(_) -> [].
+
+attribute_id_list1([{uint16,ID},Elem|T]) ->
+    [{ID,Elem} | attribute_id_list1(T)];
+attribute_id_list1([{uint16,ID}]) ->
+    [{ID,nil}];
+attribute_id_list1([]) ->
+    [];
+attribute_id_list1(_) ->
+    [].
+
+    
+
+cvt_uuid_list(UUIDList) ->
+    {sequence,
+     map(
+       fun(UUID) when is_binary(UUID) -> 
+	       {uuid,UUID};
+	  (UUID) when is_list(UUID); is_atom(UUID) ->
+	       {uuid,string_to_uuid(UUID)}
+       end,
+       UUIDList)}.
+
+cvt_attribute_id_list(AttributeList) ->
+	{sequence,
+	 map(
+	   fun({A1,A2}) ->
+		   A11 = if is_list(A1); is_atom(A1) ->
+				 string_to_attribute(A1);
+			    is_integer(A1) ->
+				 A1 band 16#ffff
+			 end,
+		   A22 = if is_list(A2); is_atom(A2) ->
+				 string_to_attribute(A2);
+			    is_integer(A2) ->
+				 A2 band 16#ffff
+			 end,
+		   {uint32, (A11 bsl 16) + A22};
+	      (A) when is_list(A); is_atom(A) ->
+		   {uint16, string_to_attribute(A)};
+	      (A) when is_integer(A) ->
+		   {uint16, A band 16#ffff}
+	   end, AttributeList)}.
+    
+
+next_transaction_id() ->    
+    N = case get('$sdp_transaction_id') of
+	    undefined -> 1;
+	    T -> T
+	end,
+    put('$sdp_transaction_id', N+1),
+    N.
+
+	
+
+encode(Attribute, Value) ->
+    <<?SDP_UNSIGNED:5, 1:3, Attribute:16, (encode_value(Value))/binary>>.
+
+decode(Bin = <<?SDP_UNSIGNED:5,1:3,Attribute:16,_/binary>>) ->
+    {Attribute, decode_value(Bin, 3)}.
+
+
+%%
+%% return size of tag & value (including length bytes if present)
+%%
+sizeof(Bin, Offs) ->
+    case Bin of
+	<<_:Offs/binary, ?SDP_NIL:5, 0:3, _/binary>> -> 1;
+	<<_:Offs/binary, _:5, 0:3, _/binary>> -> 2;
+	<<_:Offs/binary, _:5, 1:3, _/binary>> -> 3;
+	<<_:Offs/binary, _:5, 2:3, _/binary>> -> 5;
+	<<_:Offs/binary, _:5, 3:3, _/binary>> -> 9;
+	<<_:Offs/binary, _:5, 4:3, _/binary>> -> 17;
+	<<_:Offs/binary, _:5, 5:3, Len:8, _/binary>> -> Len+2;
+	<<_:Offs/binary, _:5, 6:3, Len:16, _/binary>> -> Len+3;
+	<<_:Offs/binary, _:5, 7:3, Len:32, _/binary>> -> Len+5
+    end.
+
+decode_value(Bin) ->
+    decode_value(Bin, 0).
+
+decode_value(Bin, Offs) ->
+    case Bin of
+	<<_:Offs/binary,?SDP_NIL:5, 0:3,_/binary>> -> nil;
+	%% type=1 unsigned integer
+	<<_:Offs/binary,?SDP_UNSIGNED:5, 0:3, X:8/unsigned,_/binary>>   -> 
+	    {uint8,X};
+	<<_:Offs/binary,?SDP_UNSIGNED:5, 1:3, X:16/unsigned,_/binary>>  -> 
+	    {uint16,X};
+	<<_:Offs/binary,?SDP_UNSIGNED:5, 2:3, X:32/unsigned,_/binary>>  -> 
+	    {uint32,X};
+	<<_:Offs/binary,?SDP_UNSIGNED:5, 3:3, X:64/unsigned,_/binary>>  -> 
+	    {uint64,X};
+	<<_:Offs/binary,?SDP_UNSIGNED:5, 4:3, X:128/unsigned,_/binary>> -> 
+	    {uint128,X};
+	%% type=2 signed integer
+	<<_:Offs/binary,?SDP_SIGNED:5, 0:3, X:8/signed,_/binary>>   ->
+	    {int8,X};
+	<<_:Offs/binary,?SDP_SIGNED:5, 1:3, X:16/signed,_/binary>>  -> 
+	    {int16,X};
+	<<_:Offs/binary,?SDP_SIGNED:5, 2:3, X:32/signed,_/binary>>  -> 
+	    {int32,X};
+	<<_:Offs/binary,?SDP_SIGNED:5, 3:3, X:64/signed,_/binary>>  -> 
+	    {int64,X};
+	<<_:Offs/binary,?SDP_SIGNED:5, 4:3, X:128/signed,_/binary>> -> 
+	    {int128,X};
+	%% type=3 UUID
+	<<_:Offs/binary,?SDP_UUID:5, 1:3, X:2/binary,_/binary>>   -> 
+	    {uuid,X};
+	<<_:Offs/binary,?SDP_UUID:5, 2:3, X:4/binary,_/binary>>   -> 
+	    {uuid,X};
+	<<_:Offs/binary,?SDP_UUID:5, 4:3, X:16/binary,_/binary>>  -> 
+	    {uuid,X};
+	%% type=4 Text string
+	<<_:Offs/binary,?SDP_TEXT:5, 5:3, Len:8, X:Len/binary,_/binary>> ->
+	    {text,binary_to_list(X)};
+	<<_:Offs/binary,?SDP_TEXT:5, 6:3, Len:16, X:Len/binary,_/binary>> ->
+	    {text,binary_to_list(X)};
+	<<_:Offs/binary,?SDP_TEXT:5, 7:3, Len:32, X:Len/binary,_/binary>> ->
+	    {text,binary_to_list(X)};
+	%% type=5 Boolean
+	<<_:Offs/binary,?SDP_BOOLEAN:5, 0:3, 0,_/binary>> -> 
+	    {boolean,false};
+	<<_:Offs/binary,?SDP_BOOLEAN:5, 0:3, _,_/binary>> -> 
+	    {boolean,true};
+	%% type=6 Sequence
+	<<_:Offs/binary,?SDP_SEQUENCE:5, 5:3, Len:8, _/binary>> ->
+	    {sequence, decode_sequence(Bin,Offs+2, Len, [])};
+	<<_:Offs/binary,?SDP_SEQUENCE:5, 6:3, Len:16, _/binary>> ->
+	    {sequence, decode_sequence(Bin,Offs+3, Len, [])};
+	<<_:Offs/binary,?SDP_SEQUENCE:5, 7:3, Len:32, _/binary>> ->
+	    {sequence, decode_sequence(Bin,Offs+5, Len, [])};
+	%% type=7 Alternative
+	<<_:Offs/binary,?SDP_ALTERNATIVE:5, 5:3, Len:8, _/binary>> ->
+	    {alternative, decode_sequence(Bin,Offs+2, Len, [])};
+	<<_:Offs/binary,?SDP_ALTERNATIVE:5, 6:3, Len:16, _/binary>> ->
+	    {alternative, decode_sequence(Bin,Offs+3, Len, [])};
+	<<_:Offs/binary,?SDP_ALTERNATIVE:5, 7:3, Len:32, _/binary>> ->
+	    {alternative, decode_sequence(Bin,Offs+5, Len, [])};
+	%% type=8 URL
+	<<_:Offs/binary,?SDP_URL:5, 5:3, Len:8, X:Len/binary,_/binary>> ->
+	    {url,binary_to_list(X)};
+	<<_:Offs/binary,?SDP_URL:5, 6:3, Len:16, X:Len/binary,_/binary>> ->
+	    {url,binary_to_list(X)};
+	<<_:Offs/binary,?SDP_URL:5, 7:3, Len:32, X:Len/binary,_/binary>> ->
+	    {url,binary_to_list(X)};
+	%% 9-31 reserved
+	<<_:Offs/binary,Code:5, _:3, _/binary>> when Code >= 9 ->
+	    Sz = sizeof(Bin, Offs),
+	    <<_:Offs/binary,_,Reserved:Sz/binary,_/binary>> = Bin,
+	    %% The reserved includes the tag byte
+	    {reserved, Code, Reserved}
+    end.
+
+decode_sequence(Bin,Offset,Len,Acc) when Len > 0 ->
+    Elem = decode_value(Bin, Offset),
+    Sz = sizeof(Bin, Offset),
+    decode_sequence(Bin,Offset+Sz,Len-Sz,[Elem|Acc]);
+decode_sequence(_Bin,_Offset,0,Acc) ->
+    reverse(Acc).
+
+encode_value(nil) ->   <<?SDP_NIL:5, 0:3>>;
+
+encode_value({uint8,X}) ->   <<?SDP_UNSIGNED:5, 0:3, X:8>>;
+encode_value({uint16,X}) ->  <<?SDP_UNSIGNED:5, 1:3, X:16>>;
+encode_value({uint32,X}) ->  <<?SDP_UNSIGNED:5, 2:3, X:32>>;
+encode_value({uint64,X}) ->  <<?SDP_UNSIGNED:5, 3:3, X:64>>;
+encode_value({uint128,X}) -> <<?SDP_UNSIGNED:5, 4:3, X:128>>;
+encode_value({uint,X}) when X>=0 ->
+    if X<16#100 -> <<?SDP_UNSIGNED:5, 0:3, X:8>>;
+       X<16#10000 -> <<?SDP_UNSIGNED:5, 1:3, X:16>>;
+       X<16#100000000 -> <<?SDP_UNSIGNED:5, 2:3, X:32>>;
+       X<16#10000000000000000 -> <<?SDP_UNSIGNED:5, 3:3, X:64>>;
+       true -> (<<?SDP_UNSIGNED:5, 4:3, X:128>>)
+    end;
+encode_value({int8,X}) ->   <<?SDP_SIGNED:5, 0:3, X:8>>;
+encode_value({int16,X}) ->  <<?SDP_SIGNED:5, 1:3, X:16>>;
+encode_value({int32,X}) ->  <<?SDP_SIGNED:5, 2:3, X:32>>;
+encode_value({int64,X}) ->  <<?SDP_SIGNED:5, 3:3, X:64>>;
+encode_value({int128,X}) -> <<?SDP_SIGNED:5, 4:3, X:128>>;
+encode_value({int,X}) ->
+    if X >= -16#100, X<16#100 -> 
+	    <<?SDP_SIGNED:5, 0:3, X:8>>;
+       X >= -16#10000, X<16#10000 -> 
+	    <<?SDP_SIGNED:5, 1:3, X:16>>;
+       X >= -16#100000000, X<16#100000000 -> 
+	    <<?SDP_SIGNED:5, 2:3, X:32>>;
+       X >= -16#10000000000000000, X<16#10000000000000000 ->
+	    <<?SDP_SIGNED:5,3:3,X:64>>;
+       true -> (<<?SDP_SIGNED:5, 4:3, X:128>>)
+    end;
+encode_value({uuid,UUID}) when is_binary(UUID) ->
+    case size(UUID) of
+	2  -> <<?SDP_UUID:5, 1:3, UUID/binary>>;
+	4  -> <<?SDP_UUID:5, 2:3, UUID/binary>>;
+	16 -> (<<?SDP_UUID:5, 4:3, UUID/binary>>)
+    end;
+encode_value({text,Text}) when is_list(Text) ->
+    Bin = list_to_binary(Text),
+    Len = size(Bin),
+    if Len =< 16#100 ->
+	    <<?SDP_TEXT:5, 5:3, Len:8, Bin/binary>>;
+       Len =< 16#10000 ->
+	    <<?SDP_TEXT:5, 6:3, Len:16, Bin/binary>>;
+       true ->
+	    (<<?SDP_TEXT:5, 6:3, Len:32, Bin/binary>>)
+    end;
+encode_value({boolean,Bool}) ->
+    case Bool of
+	true  -> <<?SDP_BOOLEAN:5, 0:3, 1>>;
+	false -> (<<?SDP_BOOLEAN:5, 0:3, 0>>)
+    end;
+encode_value({url,URL}) when is_list(URL) ->
+    Bin = list_to_binary(URL),
+    Len = size(Bin),
+    if Len =< 16#100 ->
+	    <<?SDP_URL:5, 5:3, Len:8, Bin/binary>>;
+       Len =< 16#10000 ->
+	    <<?SDP_URL:5, 6:3, Len:16, Bin/binary>>;
+       true ->
+	    (<<?SDP_URL:5, 6:3, Len:32, Bin/binary>>)
+    end;
+encode_value({sequence, List}) ->
+    Bin = list_to_binary(map(fun(E) -> encode_value(E) end, List)),
+    Len = size(Bin),
+    if Len =< 16#100 ->
+	    <<?SDP_SEQUENCE:5, 5:3, Len:8, Bin/binary>>;
+       Len =< 16#10000 ->
+	    <<?SDP_SEQUENCE:5, 6:3, Len:16, Bin/binary>>;
+       true ->
+	    (<<?SDP_SEQUENCE:5, 6:3, Len:32, Bin/binary>>)
+    end;    
+encode_value({alternative, List}) ->
+    Bin = list_to_binary(map(fun(E) -> encode_value(E) end, List)),
+    Len = size(Bin),
+    if Len =< 16#100 ->
+	    <<?SDP_ALTERNATIVE:5, 5:3, Len:8, Bin/binary>>;
+       Len =< 16#10000 ->
+	    <<?SDP_ALTERNATIVE:5, 6:3, Len:16, Bin/binary>>;
+       true ->
+	    (<<?SDP_ALTERNATIVE:5, 6:3, Len:32, Bin/binary>>)
+    end;
+encode_value({reserved,_Code,Bin}) when is_binary(Bin) ->
+    Bin.
+
+fold_value(Fun, Acc, Value={alternative,List}) ->
+    fold_value(Fun, Fun(Value,Acc), List);
+fold_value(Fun, Acc, Value={sequence,List}) ->
+    fold_value(Fun, Fun(Value,Acc), List);
+fold_value(Fun, Acc,[H|T]) ->
+    fold_value(Fun, fold_value(H, Fun, Acc), T);
+fold_value(_Fun, Acc, []) ->
+    Acc;
+fold_value(Fun, Acc, Value) ->
+    Fun(Value, Acc).
+
+
+
+%% make a "decode" of binary sdp value
+decode_sdp_value({uuid,Bin}) when is_binary(Bin) ->  uuid_to_string(Bin);
+decode_sdp_value({uint8,Int}) when is_integer(Int) ->   Int;
+decode_sdp_value({uint16,Int}) when is_integer(Int) ->  Int;
+decode_sdp_value({uint32,Int}) when is_integer(Int) ->  Int;
+decode_sdp_value({uint64,Int}) when is_integer(Int) ->  Int;
+decode_sdp_value({uint128,Int}) when is_integer(Int) -> Int;
+decode_sdp_value({int8,Int}) when is_integer(Int) ->    Int;
+decode_sdp_value({int16,Int}) when is_integer(Int) ->   Int;
+decode_sdp_value({int32,Int}) when is_integer(Int) ->   Int;
+decode_sdp_value({int64,Int}) when is_integer(Int) ->   Int;
+decode_sdp_value({int128,Int}) when is_integer(Int) ->  Int;
+decode_sdp_value({boolean,Bool}) -> Bool;
+decode_sdp_value({text,Text}) -> Text;
+decode_sdp_value({url,Url}) -> Url;
+decode_sdp_value({sequence,Seq}) ->
+    {sequence,map(fun decode_sdp_value/1, Seq)};
+decode_sdp_value({alternative,Alt}) ->
+    {alternative,map(fun decode_sdp_value/1, Alt)}.
+
+is_value(nil) -> true;
+is_value({uint8,X}) when is_integer(X), X>=0 -> true;
+is_value({uint16,X}) when is_integer(X), X>=0 -> true;
+is_value({uint32,X}) when is_integer(X), X>=0 -> true;
+is_value({uint64,X}) when is_integer(X), X>=0 -> true;
+is_value({uint128,X}) when is_integer(X), X>=0 -> true;
+is_value({uint,X}) when is_integer(X), X>=0 -> true;
+is_value({int8,X}) when is_integer(X) -> true;
+is_value({int16,X}) when is_integer(X) -> true;
+is_value({int32,X}) when is_integer(X) -> true;
+is_value({int64,X}) when is_integer(X) -> true;
+is_value({int128,X}) when is_integer(X) -> true;
+is_value({int,X}) when is_integer(X) -> true;
+is_value({uuid,UUID}) when is_binary(UUID) ->
+    case size(UUID) of
+	2  -> true;
+	4  -> true;
+	16 -> true;
+	_ -> false
+    end;
+is_value({text,Text}) when is_list(Text) -> 
+    lists:all(fun(X) -> is_integer(X) end, Text);
+is_value({boolean,true}) -> true;
+is_value({boolean,false}) -> true;
+is_value({url,URL}) when is_list(URL) ->
+    case catch list_to_binary(URL) of
+	{'EXIT', _} -> false;
+	_ -> true
+    end;
+is_value({sequence, List}) ->
+    lists:all(fun is_value/1, List);
+is_value({alternative, List}) ->
+    lists:all(fun is_value/1, List);
+is_value({reserved,_Code,Bin}) when is_binary(Bin) ->
+    Bin;
+is_value(_) -> false.
+
+
+
+
+value_to_string({uuid,Bin}) -> uuid_to_string(Bin);
+value_to_string({uint8,Int}) -> integer_to_list(Int);
+value_to_string({uint16,Int}) -> integer_to_list(Int);
+value_to_string({uint32,Int}) -> integer_to_list(Int);
+value_to_string({uint64,Int}) -> integer_to_list(Int);
+value_to_string({uint128,Int}) -> integer_to_list(Int);
+value_to_string({int8,Int}) -> integer_to_list(Int);
+value_to_string({int16,Int}) -> integer_to_list(Int);
+value_to_string({int32,Int}) -> integer_to_list(Int);
+value_to_string({int64,Int}) -> integer_to_list(Int);
+value_to_string({int128,Int}) -> integer_to_list(Int);
+value_to_string({boolean,Bool}) -> atom_to_list(Bool);
+value_to_string({sequence,Seq}) ->
+    map_fmt(fun value_to_string/1, ",", Seq);
+value_to_string({alternative,Alt}) ->
+    map_fmt(fun value_to_string/1, "|", Alt);
+value_to_string({url,URL}) -> URL;
+value_to_string({text,Text}) -> [$\",Text, $\"].
+
+map_fmt(Fun, _Sep, [H]) ->  Fun(H);
+map_fmt(Fun, Sep, [H|T]) -> [Fun(H),Sep | map_fmt(Fun, Sep, T)];
+map_fmt(_Fun, _Sep, []) ->  [].
+
+%% convert to full uuid
+uuid_128(<<UUID:16>>) -> ?BT_UUID16(UUID);
+uuid_128(<<UUID:32>>) -> ?BT_UUID32(UUID);
+uuid_128(<<>>) -> <<>>;
+uuid_128(UUID) when ?is_uuid(UUID) ->  UUID.
+
+%% Try convert UUID into symboic name
+uuid_to_string(UUID) ->
+    case uuid_128(UUID) of
+	UUID128 = ?BT_UUID16(UUID16) ->
+	    case <<UUID16:16>> of
+		%% PROTOCOLS
+		?UUID_SDP -> "SDP";
+		?UUID_UDP -> "UDP";
+		?UUID_RFCOMM -> "RFCOMM";
+		?UUID_TCP -> "TCP";
+		?UUID_TCS_BIN -> "TCS_BIN";
+		?UUID_TCS_AT -> "TCS_AT";
+		?UUID_OBEX -> "OBEX";
+		?UUID_IP -> "IP";
+		?UUID_FTP -> "FTP";
+		?UUID_HTTP -> "HTTP";
+		?UUID_WSP -> "WSP";
+		?UUID_BNEP -> "BNEP";
+		?UUID_UPNP -> "UPNP";
+		?UUID_HIDP -> "HIDP";
+		?UUID_HCRP_CTRL -> "HCRP_CTRL";
+		?UUID_HCRP_DATA -> "HCRP_DATA";
+		?UUID_HCRP_NOTE -> "HRCP_NOTE";
+		?UUID_AVCTP -> "AVCTP";
+		?UUID_AVDTP -> "AVDTP";
+		?UUID_CMPT -> "CMPT";
+		?UUID_UDI -> "UDI";
+		?UUID_MCAP_CTRL -> "MCAP_CTRL";
+		?UUID_MCAP_DATA -> "MCAP_DATA";
+		?UUID_L2CAP -> "L2CAP";
+
+		%% SERVICE Classes
+		?UUID_ServiceDiscoveryServer -> "ServiceDiscoveryServer";
+		?UUID_BrowseGroupDescriptor -> "BrowseGroupDescriptor";
+		?UUID_PublicBrowseGroup -> "PublicBrowseGroup";
+		?UUID_SerialPort -> "SerialPort";
+		?UUID_LANAccessUsingPPP -> "LANAccessUsingPPP";
+		?UUID_DialupNetworking -> "DialupNetworking";
+		?UUID_IrMCSync -> "IrMCSync";
+		?UUID_OBEXObjectPush -> "OBEXObjectPush";
+		?UUID_OBEXFileTransfer -> "OBEXFileTransfer";
+		?UUID_IrMCSyncCommand -> "IrMCSyncCommand";
+		?UUID_Headset -> "Headset";
+		?UUID_CordlessTelephony -> "CordlessTelephony";
+		?UUID_AudioSource -> "AudioSource";
+		?UUID_AudioSink -> "AudioSink";
+		?UUID_AVRemoteControlTarget -> "AVRemoteControlTarget";
+		?UUID_AdvancedAudioDistribution -> "AdvancedAudioDistribution";
+		?UUID_AVRemoteControl -> "AVRemoteControl";
+		?UUID_VideoConferencing -> "VideoConferencing";
+		?UUID_Intercom -> "Intercom";
+		?UUID_Fax -> "Fax";
+		?UUID_HeadsetAudioGateway -> "HeadsetAudioGateway";
+		?UUID_WAP -> "WAP";
+		?UUID_WAPClient -> "WAPClient";
+		?UUID_PANU -> "PANU";
+		?UUID_NAP -> "NAP";
+		?UUID_GN -> "GN";
+		?UUID_DirectPrinting -> "DirectPrinting";
+		?UUID_ReferencePrinting -> "ReferencePrinting";
+		?UUID_Imaging -> "Imaging";
+		?UUID_ImagingResponder -> "ImagingResponder";
+		?UUID_ImagingAutomaticArchive -> "ImagingAutomaticArchive";
+		?UUID_ImagingReferencedObjects -> "ImagingReferencedObjects";
+		?UUID_Handsfree -> "Handsfree";
+		?UUID_HandsfreeAudioGateway -> "HandsfreeAudioGateway";
+		?UUID_DirectPrintingReferenceObjectsService -> "DirectPrintingReferenceObjectsService";
+		?UUID_ReflectedUI -> "ReflectedUI";
+		?UUID_BasicPrinting -> "BasicPrinting";
+		?UUID_PrintingStatus -> "PrintingStatus";
+		?UUID_HumanInterfaceDeviceService -> "HumanInterfaceDeviceService";
+		?UUID_HardcopyCableReplacement -> "HardcopyCableReplacement";
+		?UUID_HCR_Print -> "HCR_Print";
+		?UUID_HCR_Scan -> "HCR_Scan";
+		?UUID_CommonISDNAccess -> "CommonISDNAccess";
+		?UUID_VideoConferencingGW -> "VideoConferencingGW";
+		?UUID_UDI_MT -> "UDI_MT";
+		?UUID_UDI_TA -> "UDI_TA";
+		?UUID_Audio_Video -> "Audio/Video";
+		?UUID_SIM_Access -> "SIM_Access";
+		?UUID_PhonebookAccess_PCE -> "PhonebookAccess-PCE";
+		?UUID_PhonebookAccess_PSE -> "PhonebookAccess-PSE";
+
+		?UUID_PhonebookAccess -> "PhonebookAccessProfile";
+		?UUID_Headset_HS -> "Headset Profile";
+		?UUID_Message_Access_Server -> "MessageAccessProfile";
+		?UUID_Message_Notification_Server -> "MessageNotificationServer";
+		?UUID_Message_Access_Profile -> "MessageAccessProfile";
+		?UUID_GNSS -> "GNSSProfile";
+		?UUID_GNSS_Server -> "GNSSSever";
+		?UUID_3D_Display -> "3D-Display";
+		?UUID_3D_Glasses -> "3D-Glasses";
+		?UUID_3D_Synchronization -> "3D-Synchronization";
+		?UUID_MPS_Profile -> "MPS";
+		?UUID_MPS_SC -> "MPS-SC";
+		?UUID_CTN_Access_Service -> "CTNAccessService";
+		?UUID_CTN_Notification_Service ->"CTNNotificationService";
+		?UUID_CTN_Profile -> "CTNProfile";
+		?UUID_PnPInformation -> "PnPInformation";
+		?UUID_GenericNetworking -> "GenericNetworking";
+		?UUID_GenericFileTransfer -> "GenericFileTransfer";
+		?UUID_GenericAudio -> "GenericAudio";
+		?UUID_GenericTelephony -> "GenericTelephony";
+		?UUID_UPNP_Service -> "UPNP_Service";
+		?UUID_UPNP_IP_Service -> "UPNP_IP_Service";
+		?UUID_ESDP_UPNP_IP_PAN -> "ESDP_UPNP_IP_PAN";
+		?UUID_ESDP_UPNP_IP_LAP -> "ESDP_UPNP_IP_LAP";
+		?UUID_ESDP_UPNP_L2CAP -> "ESDP_UPNP_L2CAP";
+		?UUID_VideoSource -> "VideoSource";
+		?UUID_VideoSink -> "VideoSink";
+		?UUID_VideoDistribution -> "VideoDistribution";
+		?UUID_HDP -> "HDP";
+		?UUID_HDP_Source -> "HDP-Source";
+		?UUID_HDP_Sink ->  "HDP-Sink";
+		_ -> bt_util:uuid_to_string(UUID128)
+	    end;
+	?UUID_SyncMLServer   -> "SyncMLServer";
+	?UUID_SyncMLClient   -> "SyncMLClient";
+	?UUID_SyncMLDMServer -> "SyncMLDMServer";
+	?UUID_SyncMLDMClient -> "SyncMLDMClient";
+	?UUID_NokiaSyncMLServer -> "NokiaSyncMLServer";
+	?UUID_NokiaObexPcSuiteServices -> "NokiaObexPcSuiteService";
+	UUID128 -> bt_util:uuid_to_string(UUID128)
+    end.
+
+	     
+
+%% Try convert symboic name into UUID
+string_to_uuid(Name) when is_list(Name) ->
+    case tolower(Name) of
+	%% PROTOCOLS
+	"sdp" -> ?UUID_SDP;
+	"udp" -> ?UUID_UDP;
+	"rfcomm" -> ?UUID_RFCOMM;
+	"tcp" -> ?UUID_TCP;
+	"tcs_bin" -> ?UUID_TCS_BIN;
+	"tcs_at" -> ?UUID_TCS_AT;
+	"obex" -> ?UUID_OBEX;
+	"ip" -> ?UUID_IP;
+	"ftp" -> ?UUID_FTP;
+	"http" -> ?UUID_HTTP;
+	"wsp" -> ?UUID_WSP;
+	"bnep" -> ?UUID_BNEP;
+	"upnp" -> ?UUID_UPNP;
+	"hidp" -> ?UUID_HIDP;
+	"hardcopycontrolchannel" -> ?UUID_HCRP_CTRL;
+	"hardcopydatachannel"    -> ?UUID_HCRP_DATA;
+	"hardcopynotification"   -> ?UUID_HCRP_NOTE;
+	"avctp" -> ?UUID_AVCTP;
+	"avdtp" -> ?UUID_AVDTP;
+	"cmpt" -> ?UUID_CMPT;
+	"udi" -> ?UUID_UDI;
+	"l2cap" -> ?UUID_L2CAP;
+		%% SERVICE Classes
+	"servicediscoveryserver" -> ?UUID_ServiceDiscoveryServer;
+	"browsegroupdescriptor" -> ?UUID_BrowseGroupDescriptor;
+	"publicbrowsegroup" -> ?UUID_PublicBrowseGroup;
+	"serialport" -> ?UUID_SerialPort;
+	"lanaccessusingppp" -> ?UUID_LANAccessUsingPPP;
+	"dialupnetworking" -> ?UUID_DialupNetworking;
+	"irmcsync" -> ?UUID_IrMCSync;
+	"obexobjectpush" -> ?UUID_OBEXObjectPush;
+	"obexfiletransfer" -> ?UUID_OBEXFileTransfer;
+	"irmcsynccommand" -> ?UUID_IrMCSyncCommand;
+	"headset" -> ?UUID_Headset;
+	"cordlesstelephony" -> ?UUID_CordlessTelephony;
+	"audiosource" -> ?UUID_AudioSource;
+	"audiosink" -> ?UUID_AudioSink;
+	"avremotecontroltarget" -> ?UUID_AVRemoteControlTarget;
+	"advancedaudiodistribution" -> ?UUID_AdvancedAudioDistribution;
+	"avremotecontrol" -> ?UUID_AVRemoteControl;
+	"videoconferencing" -> ?UUID_VideoConferencing;
+	"intercom" -> ?UUID_Intercom;
+	"fax" -> ?UUID_Fax;
+	"headsetaudiogateway" -> ?UUID_HeadsetAudioGateway;
+	"wap" -> ?UUID_WAP;
+	"wapclient" -> ?UUID_WAPClient;
+	"panu" -> ?UUID_PANU;
+	"nap" -> ?UUID_NAP;
+	"gn" -> ?UUID_GN;
+	"directprinting" -> ?UUID_DirectPrinting;
+	"referenceprinting" -> ?UUID_ReferencePrinting;
+	"imaging" -> ?UUID_Imaging;
+	"imagingresponder" -> ?UUID_ImagingResponder;
+	"imagingautomaticarchive" -> ?UUID_ImagingAutomaticArchive;
+	"imagingreferencedobjects" -> ?UUID_ImagingReferencedObjects;
+	"handsfree" -> ?UUID_Handsfree;
+	"handsfreeaudiogateway" -> ?UUID_HandsfreeAudioGateway;
+	"directprintingreferenceobjectsservice" -> ?UUID_DirectPrintingReferenceObjectsService;
+	"reflectedui" -> ?UUID_ReflectedUI;
+	"basicprinting" -> ?UUID_BasicPrinting;
+	"printingstatus" -> ?UUID_PrintingStatus;
+	"humaninterfacedeviceservice" -> ?UUID_HumanInterfaceDeviceService;
+	"hardcopycablereplacement" -> ?UUID_HardcopyCableReplacement;
+	"hcr_print" -> ?UUID_HCR_Print;
+	"hcr_scan" -> ?UUID_HCR_Scan;
+	"commonisdnaccess" -> ?UUID_CommonISDNAccess;
+	"videoconferencinggw" -> ?UUID_VideoConferencingGW;
+	"udi_mt" -> ?UUID_UDI_MT;
+	"udi_ta" -> ?UUID_UDI_TA;
+	"audio/video" -> ?UUID_Audio_Video;
+	"sim_access" -> ?UUID_SIM_Access;
+	"phonebookaccess-pce" -> ?UUID_PhonebookAccess_PCE;
+	"phonebookaccess-pse" -> ?UUID_PhonebookAccess_PSE;
+	"pnpinformation" -> ?UUID_PnPInformation;
+	"genericnetworking" -> ?UUID_GenericNetworking;
+	"genericfiletransfer" -> ?UUID_GenericFileTransfer;
+	"genericaudio" -> ?UUID_GenericAudio;
+	"generictelephony" -> ?UUID_GenericTelephony;
+	"upnp_service" -> ?UUID_UPNP_Service;
+	"upnp_ip_service" -> ?UUID_UPNP_IP_Service;
+	"esdp_upnp_ip_pan" -> ?UUID_ESDP_UPNP_IP_PAN;
+	"esdp_upnp_ip_lap" -> ?UUID_ESDP_UPNP_IP_LAP;
+	"esdp_upnp_l2cap" -> ?UUID_ESDP_UPNP_L2CAP;
+	"videosource" -> ?UUID_VideoSource;
+	"videosink" -> ?UUID_VideoSink;
+	"videodistribution" -> ?UUID_VideoDistribution;
+
+	%% SyncML
+	"syncmlserver" -> ?UUID_SyncMLServer;
+	"syncmlclient" -> ?UUID_SyncMLClient;
+	"syncmldmserver" -> ?UUID_SyncMLDMServer;
+	"syncmldmclient" -> ?UUID_SyncMLDMClient;
+	_ -> bt_util:string_to_uuid(Name)
+    end;
+string_to_uuid(Name) when is_atom(Name) ->
+    string_to_uuid(atom_to_list(Name)).
+
+
+string_to_attribute(Name) ->
+    string_to_attribute(Name, 16#0100).
+
+string_to_attribute(Name,LanguageBase) when is_list(Name) ->
+    case tolower(Name) of
+	"servicerecordhandle"    -> ?ATTR_ServiceRecordHandle;
+	"serviceclassidlist"     -> ?ATTR_ServiceClassIDList;
+	"servicerecordstate"     -> ?ATTR_ServiceRecordState;
+	"serviceid"              -> ?ATTR_ServiceID;
+	"protocoldescriptorlist" -> ?ATTR_ProtocolDescriptorList;
+	"browsegrouplist"        -> ?ATTR_BrowseGroupList;
+	"languagebaseattributeidlist" -> 
+	    ?ATTR_LanguageBaseAttributeIDList;
+	"serviceinfotimetolive"  -> ?ATTR_ServiceInfoTimeToLive;
+	"serviceavailability"    -> ?ATTR_ServiceAvailability;
+	"bluetoothprofiledescriptorlist" -> 
+	    ?ATTR_BluetoothProfileDescriptorList;
+	"documentationurl"       -> ?ATTR_DocumentationURL;
+	"clientexecutableurl"    -> ?ATTR_ClientExecutableURL;
+	"iconurl"                -> ?ATTR_IconURL;
+	"additionalprotocolsdescriptorlist" -> 
+	    ?ATTR_AdditionalProtocolsDescriptorList;
+	%% 
+	"servicename"        -> ?ATTR_ServiceName+LanguageBase;
+	"servicedescription" -> ?ATTR_ServiceDescription+LanguageBase;
+	"providername"       -> ?ATTR_ProviderName+LanguageBase;
+	
+	%% SDP
+	"servicedatabasestate" -> 16#0201;
+	%% PAN 
+	"ipsubnet" -> 16#0200;
+	%% OTHER
+	"externalnetwork" -> 16#0301;
+	"network"         -> 16#0301;
+	"supporteddatastoreslist" -> 16#0301;
+	"faxclass1support" -> 16#0302;
+	"faxclass2support" -> 16#0303;
+	"remoteaudiovolumecontrol" -> 16#0302;
+	"supporterformatslist" -> 16#0303;
+	%% Check hex
+	_ ->
+	    case catch erlang:list_to_integer(Name, 16) of
+		{'EXIT',_} ->
+		    erlang:error(badarg);
+		ID -> ID band 16#ffff
+	    end
+    end;
+string_to_attribute(Name,LanguageBase) when is_atom(Name) ->
+    string_to_attribute(atom_to_list(Name),LanguageBase).
+
+	
+attribute_to_string(ID) ->
+    attribute_to_string(ID,16#0100).
+
+attribute_to_string(ID,LanguageBase) ->
+    attribute_to_string(ID,LanguageBase,<<>>).
+
+attribute_to_string(ID,LanguageBase,UUID) ->
+    case uuid_128(UUID) of
+	?BT_UUID16(UUID16) ->
+	    case UUID16-LanguageBase of
+		16#0000 -> "ServiceName";
+		16#0001 -> "ServiceDescription";
+		16#0002 -> "ProviderName";
+		_ -> attr16(ID,<<UUID16:16>>)
+	    end;
+	UUID128 ->
+	    attr(ID, LanguageBase,UUID128)
+    end.
+
+attr(ID,_LanuageBase,_UUID) ->
+    attr16_id(ID).
+    
+%%
+%% Universal Attributes
+%%
+attr16(?ATTR_ServiceRecordHandle,_UUID) -> "ServiceRecordHandle";
+attr16(?ATTR_ServiceClassIDList,_UUID) -> "ServiceClassIDList";
+attr16(?ATTR_ServiceRecordState,_UUID) -> "ServiceRecordState";
+attr16(?ATTR_ServiceID,_UUID) -> "ServiceID";
+attr16(?ATTR_ProtocolDescriptorList,_UUID) -> "ProtocolDescriptorList";
+attr16(?ATTR_BrowseGroupList,_UUID) -> "BrowseGroupList";
+attr16(?ATTR_LanguageBaseAttributeIDList,_UUID) -> "LanguageBaseAttributeIDList";
+attr16(?ATTR_ServiceInfoTimeToLive,_UUID) -> "ServiceInfoTimeToLive";
+attr16(?ATTR_ServiceAvailability,_UUID) -> "ServiceAvailability";
+attr16(?ATTR_BluetoothProfileDescriptorList,_UUID) -> "BluetoothProfileDescriptorList";
+attr16(?ATTR_DocumentationURL,_UUID) -> "DocumentationURL";
+attr16(?ATTR_ClientExecutableURL,_UUID) -> "ClientExecutableURL";
+attr16(?ATTR_IconURL,_UUID) -> "IconURL";
+attr16(?ATTR_AdditionalProtocolsDescriptorList,_UUID) ->"AdditionalProtocolsDescriptorList";
+
+attr16(16#0200, ?UUID_BrowseGroupDescriptor) -> "GroupID";
+
+%% SDP 1000
+attr16(ID,?UUID_ServiceDiscoveryServer) -> attr16_sdp(ID);
+
+%% AVRCP
+attr16(ID,?UUID_AVRemoteControlTarget) -> attr16_avrcp(ID);
+attr16(ID,?UUID_AVRemoteControl) -> attr16_avrcp(ID);
+attr16(ID,?UUID_VideoConferencing) -> attr16_avrcp(ID);
+
+%% PAN 
+attr16(ID,?UUID_PANU) -> attr16_pan(ID);
+attr16(ID,?UUID_NAP) -> attr16_pan(ID);
+attr16(ID,?UUID_GN) -> attr16_pan(ID);
+
+%% BIP 0x111B, 0x111C, 0x111D
+attr16(ID,?UUID_ImagingResponder) -> attr16_bip(ID);
+attr16(ID,?UUID_ImagingAutomaticArchive) -> attr16_bip(ID);
+attr16(ID,?UUID_ImagingReferencedObjects) -> attr16_bip(ID);
+
+attr16(ID,?UUID_PnPInformation) -> attr16_pn(ID);
+
+attr16(ID,_UUID) -> attr16_id(ID).
+    
+
+attr16_sdp(?ATTR_SDP_VersionNumberList) -> "VersionNumberList";
+attr16_sdp(?ATTR_SDP_ServiceDatabaseState) -> "ServiceDatabaseState";
+attr16_sdp(ID) -> attr16_id(ID).
+
+attr16_bip(?ATTR_BIP_GoepL2capPsm) -> "GoepL2capPsm";
+attr16_bip(?ATTR_BIP_SupportedCapabilities) -> "SupportedCapabilities";
+attr16_bip(?ATTR_BIP_SupportedFeatures) -> "SupportedFeatures";
+attr16_bip(?ATTR_BIP_SupportedFunctions) -> "SupportedFunctions";
+attr16_bip(?ATTR_BIP_TotalImagingDataCapacity) -> "TotalImagingDataCapacity";
+attr16_bip(ID) ->  attr16_id(ID).
+
+attr16_pan(16#0200) -> "IpSubnet";
+attr16_pan(16#030A) -> "SecurityDescription";
+attr16_pan(16#030B) -> "NetAccessType";
+attr16_pan(16#030C) -> "MaxNetAccessrate";
+attr16_pan(16#030D) -> "IPv4Subnet";
+attr16_pan(16#030E) -> "IPv6Subnet";
+attr16_pan(ID) -> attr16_id(ID).
+
+attr16_avrcp(16#0311) -> "SupportedFeatures";
+attr16_avrcp(ID) -> attr16_id(ID).
+    
+attr16_pn(16#0200) -> "SpecificationID";
+attr16_pn(16#0201) -> "VendorID";
+attr16_pn(16#0202) -> "ProductID";
+attr16_pn(16#0203) -> "Version";
+attr16_pn(16#0204) -> "PrimaryRecord";
+attr16_pn(16#0205) -> "VendorIDSource";
+attr16_pn(ID) ->  attr16_id(ID).
+
+%% convert to 0xABCD format
+attr16_id(ID) ->
+    "0x"++tl(integer_to_list((ID band 16#ffff) bor 16#10000, 16)).
+
+tolower([H|T]) when H>=$A, H=<$Z ->
+    [(H-$A)+$a | tolower(T)];
+tolower([H|T]) ->
+    [H|tolower(T)];
+tolower([]) ->
+    [].
diff --git a/deps/bt/src/bt_sdp_srv.erl b/deps/bt/src/bt_sdp_srv.erl
new file mode 100644
index 0000000..05530c4
--- /dev/null
+++ b/deps/bt/src/bt_sdp_srv.erl
@@ -0,0 +1,608 @@
+%%%---- BEGIN COPYRIGHT -------------------------------------------------------
+%%%
+%%% Copyright (C) 2006 - 2014, Rogvall Invest AB, <tony@rogvall.se>
+%%%
+%%% This software is licensed as described in the file COPYRIGHT, which
+%%% you should have received as part of this distribution. The terms
+%%% are also available at http://www.rogvall.se/docs/copyright.txt.
+%%%
+%%% You may opt to use, copy, modify, merge, publish, distribute and/or sell
+%%% copies of the Software, and permit persons to whom the Software is
+%%% furnished to do so, under the terms of the COPYRIGHT file.
+%%%
+%%% This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+%%% KIND, either express or implied.
+%%%
+%%%---- END COPYRIGHT ---------------------------------------------------------
+%%%-------------------------------------------------------------------
+%%% File    : bt_sdp_srv.erl
+%%% Author  : Tony Rogvall <tony@PBook.local>
+%%% Description : BLuetooth SDP server
+%%%
+%%% Created : 31 Jul 2006 by Tony Rogvall <tony@PBook.local>
+%%%-------------------------------------------------------------------
+-module(bt_sdp_srv).
+
+-behaviour(gen_server).
+
+-include("../include/bt.hrl").
+-include("../include/sdp.hrl").
+
+-compile(export_all).
+
+%% API
+-export([start/0, start_link/0, stop/0]).
+
+-export([service_add/1,
+	 service_add_persist/1,
+	 service_del/1]).
+
+-export([rfcomm_channel/1,
+	 service_search/1,
+	 service_attribute/2,
+	 service_search_attribute/2]).
+
+
+%% gen_server callbacks
+-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
+	 terminate/2, code_change/3]).
+
+-import(lists, [reverse/1, map/2, foldl/3, filter/2]).
+
+-record(serviceRecord,
+	{
+	  handle,          %% generated 32 bit handle
+	  monitor,         %% creator monitor (or undefined for persist)
+	  uuid_set=[],     %% list of uuid included in this record
+	  rfcomm_list=[],  %% list of used rfcomm channels
+	  psm_list=[],     %% list of used psm (dynamic)
+	  attributes=[]
+	 }).
+
+-record(state,
+	{
+	  %% rfcomm free list (iset)
+	  rfcomm =  [],
+	  %% dynamic psm free list (iset)
+	  psm    =  [],
+	  records = []
+	 }).
+
+-define(SERVER, bt_sdp_srv).
+%%====================================================================
+%% API
+%%====================================================================
+%%--------------------------------------------------------------------
+%% Function: start_link() -> {ok,Pid} | ignore | {error,Error}
+%% Description: Starts the server
+%%--------------------------------------------------------------------
+start_link() ->
+    gen_server:start_link({local, ?SERVER}, ?MODULE, [], []).
+
+start() ->
+    gen_server:start({local, ?SERVER}, ?MODULE, [], []).
+
+stop() ->
+    gen_server:call(?SERVER, stop).
+
+service_add(ServiceRecord) when is_list(ServiceRecord) ->
+    gen_server:call(?SERVER, {service_add,self(),ServiceRecord}).
+
+service_add_persist(ServiceRecord) when is_list(ServiceRecord) ->
+    gen_server:call(?SERVER, {service_add,undefined,ServiceRecord}).
+
+service_del(Handle) when is_integer(Handle) ->
+    gen_server:call(?SERVER, {service_del, Handle}).
+
+rfcomm_channel(UUID) when is_binary(UUID) ->
+    gen_server:call(?SERVER, {rfcomm_channel, UUID});
+rfcomm_channel(Handle) when is_integer(Handle) ->
+    gen_server:call(?SERVER, {rfcomm_channel, Handle}). 
+
+service_search(UUIDList) when is_list(UUIDList) ->    
+    gen_server:call(?SERVER, {service_search, uuid_set(UUIDList)}).
+
+service_attribute(Handle, AttributeList) 
+  when is_integer(Handle), is_list(AttributeList) ->
+    gen_server:call(?SERVER, {service_attribute,Handle,
+			      attribute_iset(AttributeList)}).
+
+service_search_attribute(UUIDList,AttributeList) 
+  when is_list(UUIDList), is_list(AttributeList) ->
+    gen_server:call(?SERVER, {service_search_attribute,
+			      uuid_set(UUIDList),
+			      attribute_iset(AttributeList)}).
+
+
+%%====================================================================
+%% gen_server callbacks
+%%====================================================================
+
+%%--------------------------------------------------------------------
+%% Function: init(Args) -> {ok, State} |
+%%                         {ok, State, Timeout} |
+%%                         ignore               |
+%%                         {stop, Reason}
+%% Description: Initiates the server
+%%--------------------------------------------------------------------
+init([]) ->
+    {A,B,C} = now(),
+    random:seed(A,B,C),
+    SDP = #serviceRecord { handle = 0,
+			   monitor = undefined,
+			   uuid_set=uuid_set(
+				      [?UUID_ServiceDiscoveryServer,
+				       ?UUID_L2CAP]),
+			   rfcomm_list=[],
+			   psm_list=[],
+			   attributes=
+			   [{?ATTR_ServiceRecordHandle,{uint32,0}},
+			    {?ATTR_ServiceClassIDList,
+			     {sequence,[{uuid,?UUID_ServiceDiscoveryServer}]}},
+			    {?ATTR_ServiceRecordState,{uint32,0}},
+			    {?ATTR_ProtocolDescriptorList,
+			     {sequence,
+			      [{sequence,[{uuid,?UUID_L2CAP}]}]}},
+			    {?ATTR_BrowseGroupList,
+			     {sequence,[{uuid,?UUID_ServiceDiscoveryServer}]}},
+			    {?ATTR_LanguageBaseAttributeIDList,
+			     {sequence, [{uint16, ?LANGUAGE($e,$n)}, 
+					 {uint16, ?ENCODING_UTF8}, 
+					 {uint16, 16#0100}]}},
+			    {?ATTR_ServiceInfoTimeToLive,
+			     {uint32, 1200}},
+			    {?ATTR_ServiceAvailability,
+			     {uint8, 255}},
+			    {?ATTR_ServiceName+16#0100, {text,"SDP Server"}}
+			   ]},
+    {ok,
+     #state { rfcomm = bt_iset:from_list([{1,30}]),
+	      psm    = bt_iset:from_list([{?L2CAP_PSM_DynamicStart, 
+					   ?L2CAP_PSM_DynamicEnd}]),
+	      records = [SDP]
+	     }}.
+
+%%--------------------------------------------------------------------
+%% Function: %% handle_call(Request, From, State) -> {reply, Reply, State} |
+%%                                      {reply, Reply, State, Timeout} |
+%%                                      {noreply, State} |
+%%                                      {noreply, State, Timeout} |
+%%                                      {stop, Reason, Reply, State} |
+%%                                      {stop, Reason, State}
+%% Description: Handling call messages
+%%--------------------------------------------------------------------
+
+handle_call({service_add,Pid,ServiceRecord}, _From, State) ->
+    case is_service_record(ServiceRecord) of
+	true ->
+	    case add_service(ServiceRecord, Pid, State) of
+		{ok,{Handle,State1}} ->
+		    {reply,{ok,Handle},State1};
+		{Error,State1} ->
+		    {reply,Error,State1}
+	    end;
+	false ->
+	    {reply,{error,einval},State}
+    end;
+handle_call({service_del,Handle}, _From, State) ->
+    {reply, ok, remove_service(Handle, State)};
+handle_call(stop, _From, State) ->
+    {stop, normal, ok, State};
+
+handle_call({rfcomm_channel,UUID},_From,State) when is_binary(UUID) ->
+    case match_service(ordsets:from_list([UUID]), State#state.records) of
+	[] ->
+	    {reply, {error, not_found}, State};
+	[R] ->
+	    {reply,{ok,get_rfcomm_channels(R#serviceRecord.attributes)},State};
+	_Rs ->
+	    {reply, {error,multiple_match},State}
+    end;
+handle_call({rfcomm_channel,Handle},_From,State) when is_integer(Handle) ->
+    case lists:keysearch(Handle,#serviceRecord.handle,State#state.records) of
+	false ->
+	    {reply, {error, not_found}, State};
+	{value,R} ->
+	    {reply,{ok,get_rfcomm_channels(R#serviceRecord.attributes)},State}
+    end;
+handle_call({service_search, UUIDSet}, _From, State) ->
+    Rs = match_service(UUIDSet, State#state.records),
+    {reply, {ok,map(fun(R) -> R#serviceRecord.handle end,Rs)}, State};
+handle_call({service_attribute,Handle,AttributeISet}, _From, State) ->
+    case lists:keysearch(Handle,#serviceRecord.handle,State#state.records) of
+	false ->
+	    {reply,{error,bad_handle},State};
+	{value,R} ->
+	    Is = filter(fun({ID,_}) ->
+				bt_iset:is_element(ID, AttributeISet)
+			end, R#serviceRecord.attributes),
+	    {reply,{ok,Is},State}
+    end;
+handle_call({service_search_attribute,UUIDSet,AttributeISet}, _From, State) ->
+    Rs = match_service(UUIDSet, State#state.records),
+    IRs = 
+	map(fun(R) ->
+		    filter(fun({ID,_}) ->
+				   bt_iset:is_element(ID, AttributeISet)
+			   end, R#serviceRecord.attributes)
+	    end, Rs),
+    {reply,{ok,IRs},State};
+handle_call(_Request, _From, State) ->
+    {reply, {error,bad_call}, State}.
+
+%%--------------------------------------------------------------------
+%% Function: handle_cast(Msg, State) -> {noreply, State} |
+%%                                      {noreply, State, Timeout} |
+%%                                      {stop, Reason, State}
+%% Description: Handling cast messages
+%%--------------------------------------------------------------------
+handle_cast(_Msg, State) ->
+    {noreply, State}.
+
+%%--------------------------------------------------------------------
+%% Function: handle_info(Info, State) -> {noreply, State} |
+%%                                       {noreply, State, Timeout} |
+%%                                       {stop, Reason, State}
+%% Description: Handling all non call/cast messages
+%%--------------------------------------------------------------------
+handle_info({'DOWN',Ref,_Pid,process,_Reason}, State) ->
+    State1 = remove_service(Ref, State),
+    {noreply, State1};
+handle_info(_Info, State) ->
+    {noreply, State}.
+
+%%--------------------------------------------------------------------
+%% Function: terminate(Reason, State) -> void()
+%% Description: This function is called by a gen_server when it is about to
+%% terminate. It should be the opposite of Module:init/1 and do any necessary
+%% cleaning up. When it returns, the gen_server terminates with Reason.
+%% The return value is ignored.
+%%--------------------------------------------------------------------
+terminate(_Reason, _State) ->
+    ok.
+
+%%--------------------------------------------------------------------
+%% Func: code_change(OldVsn, State, Extra) -> {ok, NewState}
+%% Description: Convert process state when code is changed
+%%--------------------------------------------------------------------
+code_change(_OldVsn, State, _Extra) ->
+    {ok, State}.
+
+%%--------------------------------------------------------------------
+%%% Internal functions
+%%--------------------------------------------------------------------
+
+add_monitor(undefined) ->
+    undefined;
+add_monitor(Pid) when is_pid(Pid) ->
+    erlang:monitor(process, Pid).
+
+del_monitor(undefined) ->
+    undefined;
+del_monitor(Mon) when is_reference(Mon) ->
+    erlang:demonitor(Mon).
+
+new_handle(State) ->
+    Handle = random:uniform(16#100000000)-1,
+    case lists:keysearch(Handle,#serviceRecord.handle,State#state.records) of
+	false ->
+	    Handle;
+	{value,_} ->
+	    new_handle(State)
+    end.
+
+%% match all services that have the UUIDSet as a subset.
+match_service(UUIDSet, Records) ->
+    lists:filter(fun(R) ->
+			 ordsets:is_subset(UUIDSet, R#serviceRecord.uuid_set)
+		 end, Records).
+
+%%
+%% Add a service 
+%%
+add_service(ServiceRecord, Pid, State) ->
+    %% Collect all UUID's for search operations
+    UUIDSet =
+	foldl(fun({_ID,Value}, Acc) ->
+		      bt_sdp:fold_value(
+			fun({uuid,UUID},Acc1) when is_binary(UUID) ->
+				UUID128 = bt_sdp:uuid_128(UUID),
+				ordsets:add_element(UUID128,Acc1);
+			   ({uuid,UUID},Acc1) when 
+				  is_list(UUID); is_atom(UUID) ->
+				UUID1 = bt_sdp:string_to_uuid(UUID),
+				UUID128 = bt_sdp:uuid_128(UUID1),
+				ordsets:add_element(UUID128,Acc1);
+			   (_, Acc1) -> Acc1
+			end, Acc, Value)
+	      end, ordsets:new(), ServiceRecord),
+    RequestCn = get_rfcomm_channels(ServiceRecord),
+    RequestPsm = get_l2cap_psms(ServiceRecord),
+    case avail(RequestCn, State#state.rfcomm) andalso
+	 avail(RequestPsm, State#state.psm) of
+	true ->
+	    {CnMap,RfComm} = allocate(RequestCn, State#state.rfcomm),
+	    ServiceRecord1 = set_rfcomm_channels(ServiceRecord, CnMap),
+
+	    {PsmMap,Psm} = allocate(RequestPsm, State#state.psm),
+	    ServiceRecord2 = set_l2cap_psms(ServiceRecord1, PsmMap),
+
+	    Handle = new_handle(State),
+	    ServiceRecord3 = set_attribute({?ATTR_ServiceRecordHandle,
+					    {uint32,Handle}},
+					   ServiceRecord2),
+	    R = #serviceRecord { handle = Handle,
+				 monitor = add_monitor(Pid),
+				 uuid_set = UUIDSet,
+				 rfcomm_list = map(fun({_,CN}) -> CN end, CnMap),
+				 psm_list = map(fun({_,PSM}) -> PSM end, PsmMap),
+				 attributes = ServiceRecord3 },
+	    Rs = [R | State#state.records],
+	    {ok,{Handle,State#state { records = Rs,
+				      rfcomm = RfComm,
+				      psm = Psm }}};
+	false ->
+	    {{error,insufficient_resources},State}
+    end.
+      
+
+remove_service(Handle, State) when is_integer(Handle) ->
+    remove_service(Handle, #serviceRecord.handle, State);
+remove_service(Monitor, State) when is_reference(Monitor) ->
+    remove_service(Monitor, #serviceRecord.monitor, State).
+
+remove_service(Key, Pos, State) ->
+    case lists:keysearch(Key, Pos, State#state.records) of
+	false ->
+	    State;
+	{value,R} ->
+	    del_monitor(R#serviceRecord.monitor),
+	    RFComm = bt_iset:add_elements(R#serviceRecord.rfcomm_list, 
+					  State#state.rfcomm),
+	    PSM    = bt_iset:add_elements(R#serviceRecord.psm_list,
+					  State#state.psm),
+	    Rs = lists:keydelete(Key, Pos, State#state.records),
+	    State#state { rfcomm=RFComm, psm=PSM, records = Rs }
+    end.
+
+%% find attribute
+lookup_attribute(ID, ServiceRecord) ->
+    lists:keysearch(ID,1,ServiceRecord).
+
+%% add or replace an attribute
+set_attribute(Attribute={ID,_}, ServiceRecord) ->
+    case lists:keysearch(ID, 1, ServiceRecord) of
+	false ->
+	    [Attribute | ServiceRecord];
+	{value,_} ->
+	    lists:keyreplace(ID,1,ServiceRecord,Attribute)
+    end.
+
+del_attribute(ID, ServiceRecord) ->
+    lists:keydelete(ID, 1, ServiceRecord).
+
+is_service_record([{ID,Elem}|IDList]) when ID>=0,ID=<16#ffff ->
+    case bt_sdp:is_value(Elem) of
+	true ->
+	    is_service_record(IDList);
+	false -> false
+    end;
+is_service_record([_|_]) -> false;
+is_service_record([]) -> true.
+
+
+    
+    
+
+avail(Channels, FreeSet) ->
+    Sz = bt_iset:size(FreeSet),
+    Len = length(Channels),
+    if Sz < Len ->
+	    false;
+       true -> true
+    end.
+
+allocate(Channels,FreeSet) ->
+    %% make dynamic channals (0) last in list
+    RSortedChannels = reverse(lists:sort(Channels)),
+    Sz = bt_iset:size(FreeSet),
+    Len = length(RSortedChannels),
+    if Sz < Len ->
+	    io:format("Warning: can not allocate all channels\n");
+       true ->
+	    ok
+    end,
+    allocate(RSortedChannels,[],FreeSet).
+    
+allocate([0|Cns],Map,FreeSet) ->
+    case bt_iset:size(FreeSet) of
+	0 -> Map;
+	_ -> 
+	    Cn1 = bt_iset:first(FreeSet),
+	    allocate(Cns,[{0,Cn1}|Map],bt_iset:del_element(Cn1,FreeSet))
+    end;
+allocate([Cn|Cns],Map,FreeSet) ->
+    case bt_iset:is_element(Cn,FreeSet) of
+	true ->
+	    allocate(Cns,[{Cn,Cn}|Map],bt_iset:del_element(Cn,FreeSet));
+	false ->
+	    case bt_iset:size(FreeSet) of
+		0 -> Map;
+		_ -> 
+		    Cn1 = bt_iset:first(FreeSet),
+		    allocate(Cns,[{Cn,Cn1}|Map],bt_iset:del_element(Cn1,FreeSet))
+	    end
+    end;
+allocate([], Map, FreeSet) ->
+    {Map,FreeSet}.
+
+    
+
+get_rfcomm_channels(ServiceRecord) ->
+    case lookup_attribute(?ATTR_ProtocolDescriptorList,ServiceRecord) of
+	false -> [];
+	{value,{_,Value}} ->
+	    get_cn(Value)
+    end.
+
+
+set_rfcomm_channels(ServiceRecord, CnMap) ->
+    case lookup_attribute(?ATTR_ProtocolDescriptorList,ServiceRecord) of
+	false ->
+	    ServiceRecord;
+	{value,{_,Value}} ->
+	    case set_cn(Value, CnMap) of
+		{Value1,[]} ->
+		    set_attribute({?ATTR_ProtocolDescriptorList,Value1},
+				  ServiceRecord);
+		{Value1,CnMap1} ->
+		    io:format("Warning: unable to assign cn's=~p to ~p\n",
+			      [CnMap1, Value1]),
+		    set_attribute({?ATTR_ProtocolDescriptorList,Value1},
+				  ServiceRecord)
+	    end
+    end.
+
+
+get_l2cap_psms(ServiceRecord) ->
+    case lookup_attribute(?ATTR_ProtocolDescriptorList,ServiceRecord) of
+	false -> [];
+	{value,{_,Value}} ->
+	    get_psm(Value)
+    end.
+
+set_l2cap_psms(ServiceRecord, PsmMap) ->
+    case lookup_attribute(?ATTR_ProtocolDescriptorList,ServiceRecord) of
+	false ->
+	    ServiceRecord;
+	{value,{_,Value}} ->
+	    case set_psm(Value, PsmMap) of
+		{Value1,[]} ->
+		    set_attribute({?ATTR_ProtocolDescriptorList,Value1},
+				  ServiceRecord);
+		{Value1,PsmMap1} ->
+		    io:format("Warning: unable to assign psm's=~p to ~p\n",
+			      [PsmMap1, Value1]),
+		    set_attribute({?ATTR_ProtocolDescriptorList,Value1},
+				  ServiceRecord)
+	    end
+    end.
+
+
+
+%% locate rfcomm channels (0 = allocate)
+get_cn({alternative,List}) ->
+    lists:flatmap(fun(E) -> get_cn(E) end, List);
+get_cn({sequence,[{sequence,[{uuid,?UUID_L2CAP}|_]},
+		  {sequence,[{uuid,?UUID_RFCOMM},
+			     {uint8,Channel}|_]} | _]}) ->
+    [Channel];
+get_cn({sequence,[{sequence,[{uuid,?UUID_L2CAP}|_]},
+		  {sequence,[{uuid,?UUID_RFCOMM}]} | _]}) ->
+    %% need allocation
+    [0];
+get_cn(_) ->
+    [].
+
+
+%% assign rfcomm channels
+set_cn({alternative,List}, CnMap) ->
+    {List1, CnMap1} = set_cn_list(List,[],CnMap),
+    {{alternative,List1},CnMap1};
+set_cn(Value=
+       {sequence,[{sequence,L2CAP}, %% assume L2CAP
+		  {sequence,[{uuid,?UUID_RFCOMM},
+			     {uint8,Cn}|RFParam]} | T]}, CnMap) ->
+    case lists:keysearch(Cn,1,CnMap) of
+	{value,{Cn,Cn1}} ->
+	    {{sequence,[{sequence,L2CAP},
+			{sequence,[{uuid,?UUID_RFCOMM},
+				   {uint8,Cn1}|RFParam]} | T]}, 
+	     lists:keydelete(Cn,1,CnMap)};
+	false ->
+	    {Value, CnMap}
+    end;
+set_cn(Value={sequence,[{sequence,L2CAP}, %% assume L2CAP
+			{sequence,[{uuid,?UUID_RFCOMM}]} | T]},CnMap) ->
+    case lists:keysearch(0,1,CnMap) of
+	{value,{0,Cn1}} ->	
+	    {{sequence,[{sequence,L2CAP},
+			{sequence,[{uuid,?UUID_RFCOMM},
+				   {uint8,Cn1}]} | T]}, 
+	     lists:keydelete(0,1,CnMap)};
+	false ->
+	    {Value,CnMap}
+    end;
+set_cn(Value,CnMap) ->
+    {Value,CnMap}.
+
+set_cn_list([V|Vs],Acc,CnMap) ->
+    {V1, CnMap1} = set_cn(V, CnMap),
+    set_cn_list(Vs,[V1|Acc],CnMap1);
+set_cn_list([],Acc,CnMap) ->
+    {reverse(Acc), CnMap}.
+
+
+%% locate l2cap psm (0 = allocate)
+get_psm({alternative,List}) ->
+    lists:flatmap(fun(E) -> get_psm(E) end, List);
+get_psm({sequence,[{sequence,[{uuid,?UUID_L2CAP},{uint16,PSM}|_]} | _]}) ->
+    [PSM];
+get_psm(_) ->
+    [].
+
+
+%% assign psm 
+set_psm({alternative,List}, PsmMap) ->
+    {List1, PsmMap1} = set_psm_list(List,[],PsmMap),
+    {{alternative,List1},PsmMap1};
+set_psm(Value={sequence,[{sequence,[{uuid,?UUID_L2CAP},
+				    {uint16,PSM}|L2CAP]} | T]},PsmMap) ->
+    case lists:keysearch(PSM,1,PsmMap) of
+	{value,{PSM,PSM1}} ->
+	    {{sequence,[{sequence,[{uuid,?UUID_L2CAP},
+				   {uint16,PSM1}|L2CAP]} | T]},
+	     lists:keydelete(PSM,1,PsmMap)};
+	false ->
+	    {Value, PsmMap}
+    end;
+set_psm(Value,PsmMap) ->
+    {Value,PsmMap}.
+
+set_psm_list([V|Vs],Acc,PsmMap) ->
+    {V1, PsmMap1} = set_psm(V, PsmMap),
+    set_psm_list(Vs,[V1|Acc],PsmMap1);
+set_psm_list([],Acc,PsmMap) ->
+    {reverse(Acc), PsmMap}.
+
+
+%% convert a list of UUID (Mix of binary|string|atom) into 
+%% a list of 128 full UUID
+uuid_set(UUIDList) ->
+    ordsets:from_list(
+      map(
+	fun(UUID) when is_binary(UUID) -> 
+		bt_sdp:uuid_128(UUID);
+	   (UUID) when is_list(UUID); is_atom(UUID) -> 
+		bt_sdp:uuid_128(bt_sdp:string_to_uuid(UUID))
+	end, UUIDList)).
+
+attribute_iset(AttributeList) ->
+    bt_iset:from_list(
+      map(
+	fun({A1,A2}) ->
+		{if is_list(A1); is_atom(A1) ->
+			 bt_sdp:string_to_attribute(A1);
+		    is_integer(A1) ->
+			 A1 band 16#ffff
+		 end,
+		 if is_list(A2); is_atom(A2) ->
+			 bt_sdp:string_to_attribute(A2);
+		    is_integer(A2) ->
+			 A2 band 16#ffff
+		 end};
+	   (A) when is_list(A); is_atom(A) ->
+		bt_sdp:string_to_attribute(A);
+	   (A) when is_integer(A) ->
+		A band 16#ffff
+	end, AttributeList)).
diff --git a/deps/bt/src/bt_sup.erl b/deps/bt/src/bt_sup.erl
new file mode 100644
index 0000000..c23cbdc
--- /dev/null
+++ b/deps/bt/src/bt_sup.erl
@@ -0,0 +1,47 @@
+%%%---- BEGIN COPYRIGHT -------------------------------------------------------
+%%%
+%%% Copyright (C) 2006 - 2014, Rogvall Invest AB, <tony@rogvall.se>
+%%%
+%%% This software is licensed as described in the file COPYRIGHT, which
+%%% you should have received as part of this distribution. The terms
+%%% are also available at http://www.rogvall.se/docs/copyright.txt.
+%%%
+%%% You may opt to use, copy, modify, merge, publish, distribute and/or sell
+%%% copies of the Software, and permit persons to whom the Software is
+%%% furnished to do so, under the terms of the COPYRIGHT file.
+%%%
+%%% This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+%%% KIND, either express or implied.
+%%%
+%%%---- END COPYRIGHT ---------------------------------------------------------
+%%% File    : bt_sup.erl
+%%% Author  : Tony Rogvall <tony@pbook.synap.se>
+%%% Description : bt supervisor
+%%% Created :  2 Feb 2006 by Tony Rogvall <tony@pbook.synap.se>
+
+-module(bt_sup).
+
+-behaviour(supervisor).
+
+%% External exports
+-export([start_link/0]).
+
+%% supervisor callbacks
+-export([init/1]).
+
+%%%----------------------------------------------------------------------
+%%% API
+%%%----------------------------------------------------------------------
+start_link() ->
+    supervisor:start_link({local, ?MODULE}, ?MODULE, []).
+
+%%%----------------------------------------------------------------------
+%%% Callback functions from supervisor
+%%%----------------------------------------------------------------------
+
+%%----------------------------------------------------------------------
+%%----------------------------------------------------------------------
+init([]) ->
+    BtDrv = {bt_drv, {bt_drv, start_link, []},
+	     permanent, 5000, worker, [bt_drv]},
+    {ok,{{one_for_all,0,300}, [BtDrv]}}.
diff --git a/deps/bt/src/bt_util.erl b/deps/bt/src/bt_util.erl
new file mode 100644
index 0000000..e4a2821
--- /dev/null
+++ b/deps/bt/src/bt_util.erl
@@ -0,0 +1,101 @@
+%%%---- BEGIN COPYRIGHT -------------------------------------------------------
+%%%
+%%% Copyright (C) 2006 - 2014, Rogvall Invest AB, <tony@rogvall.se>
+%%%
+%%% This software is licensed as described in the file COPYRIGHT, which
+%%% you should have received as part of this distribution. The terms
+%%% are also available at http://www.rogvall.se/docs/copyright.txt.
+%%%
+%%% You may opt to use, copy, modify, merge, publish, distribute and/or sell
+%%% copies of the Software, and permit persons to whom the Software is
+%%% furnished to do so, under the terms of the COPYRIGHT file.
+%%%
+%%% This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+%%% KIND, either express or implied.
+%%%
+%%%---- END COPYRIGHT ---------------------------------------------------------
+%%% File    : bt.erl
+%%% Author  : Tony Rogvall <tony@iMac.local>
+%%% Description : Bluetooth utilities
+%%% Created : 31 Jan 2006 by Tony Rogvall <tony@iMac.local>
+
+-module(bt_util).
+
+-export([getaddr/1]).
+-export([getaddr_by_name/1]).
+-export([uuid_to_string/1]).
+-export([string_to_uuid/1]).
+
+-include("../include/bt.hrl").
+%%
+%% getaddr(Name) -> {ok,Addr} | {error, Reason}
+%%
+%% Convert address into a bluetooth address
+%% either {A,B,C,D,E,F}
+%%    or  "AA-BB-CC-DD-EE-FF"  (hex)
+%%    or  "AA:BB:CC:DD:EE:FF"  (hex)
+%%    or  "Name" in case the name is resolve
+%%
+getaddr(Addr) when ?is_bt_address(Addr) ->
+    {ok, Addr};
+getaddr(Addr) when is_list(Addr) ->
+    case string:tokens(Addr, ":-") of
+	[As,Bs,Cs,Ds,Es,Fs] ->
+	    Res = (catch lists:map(fun(Hx) -> erlang:list_to_integer(Hx,16) end,
+				   [As,Bs,Cs,Ds,Es,Fs])),
+	    case Res of
+		{'EXIT',_} ->
+		    getaddr_by_name(Addr);
+		[A,B,C,D,E,F] ->
+		    {ok,{A,B,C,D,E,F}}
+	    end;
+	_ ->
+	    getaddr_by_name(Addr)
+    end;
+getaddr(Addr) when is_list(Addr) ->
+    getaddr_by_name(Addr);
+getaddr(_) ->
+    {error, einval}.
+
+
+%%
+%% getaddr_by_name(Name) -> {ok,Addr} | {error, Reason}
+%% Find address by name (may be wastlty improved)
+%%
+getaddr_by_name(Name) ->
+    {ok,Devices} = bt_drv:devices(),
+    getaddr_by_name(Devices, Name).
+
+getaddr_by_name([A|As], Name) ->
+    case bt_drv:device_info(A, [name]) of
+	{ok,[{name,Name}]} ->
+	    {ok, A};
+	_ ->
+	    getaddr_by_name(As, Name)
+    end;
+getaddr_by_name([], _Name) ->
+    {error, einval}.
+
+%% convert uuid to string format
+uuid_to_string(UUID) when ?is_uuid(UUID) ->
+    ?UUID(TLow,TMid,THigh,Clock,Node) = UUID,
+    Fmt = 
+	io_lib:format("~8.16.0B-~4.16.0B-~4.16.0B-~4.16.0B-~12.16.0B",
+		      [TLow,TMid,THigh,Clock,Node]),
+    lists:flatten(Fmt).
+
+%% convert uuid string format to bina
+string_to_uuid([X1,X2,X3,X4,X5,X6,X7,X8,$-,
+		Y1,Y2,Y3,Y4,$-,
+		Z1,Z2,Z3,Z4,$-,
+		C1,C2,C3,C4,$-,
+		N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12]) ->
+    TimeLow = erlang:list_to_integer([X1,X2,X3,X4,X5,X6,X7,X8],16),
+    TimeMid  = erlang:list_to_integer([Y1,Y2,Y3,Y4],16),
+    TimeHigh = erlang:list_to_integer([Z1,Z2,Z3,Z4],16),
+    Clock    = erlang:list_to_integer([C1,C2,C3,C4],16),
+    Node     = erlang:list_to_integer([N1,N2,N3,N4,N5,N6,N7,N8,
+				       N9,N10,N11,N12],16),
+    ?UUID(TimeLow,TimeMid,TimeHigh,Clock,Node);
+string_to_uuid(_) ->
+    erlang:error(bad_arg).
diff --git a/deps/bt/src/hci.erl b/deps/bt/src/hci.erl
new file mode 100644
index 0000000..8e12125
--- /dev/null
+++ b/deps/bt/src/hci.erl
@@ -0,0 +1,307 @@
+%%% @author Tony Rogvall <tony@up13>
+%%% @copyright (C) 2015, Tony Rogvall
+%%% @doc
+%%%    HCI commands
+%%% @end
+%%% Created : 18 Apr 2015 by Tony Rogvall <tony@up13>
+
+-module(hci).
+
+-compile(export_all).
+
+-include("../include/hci_drv.hrl").
+-include("hci_api.hrl").
+
+-define(DEFAULT_TIMEOUT, 5000).
+-define(INQUIRY_TIMEOUT, 10000).
+
+open(DevID) ->
+    Hci = hci_drv:open(),
+    case hci_drv:bind(Hci, DevID) of
+	ok -> 
+	    hci_drv:activate(Hci),
+	    {ok,Hci};
+	Error -> Error
+    end.
+
+open() ->
+    Hci = hci_drv:open(),
+    case hci_drv:get_dev_list(Hci) of
+	{ok,[]} -> {error, enoent};
+	{ok,[{DevID,_}|_]} ->
+	    case hci_drv:bind(Hci, DevID) of
+		ok ->
+		    hci_drv:activate(Hci),
+		    {ok,Hci};
+		Error -> Error
+	    end;
+	Error ->
+	    Error
+    end.
+
+close(Hci) ->
+    hci_drv:close(Hci).
+
+%% dump information about bluetooth devices
+i() ->
+    Hci = hci_drv:open(),
+    case hci_drv:get_dev_list(Hci) of
+	{ok,Devs} ->
+	    lists:foreach(
+	      fun({DevID,_DevFlags}) ->
+		      case hci_drv:get_dev_info(Hci, DevID) of
+			  {ok, Info} ->
+			      io:format("~s\n", 
+					[hci_util:format_hci_dev_info(Info)]);
+			  Error ->
+			      io:format("error: ~p\n", [Error])
+		      end
+	      end, Devs);
+	Error ->
+	    Error
+    end.
+
+scan() ->    
+    scan(?INQUIRY_TIMEOUT).
+
+scan(Timeout) ->
+    {ok,Hci} = open(),
+    case hci_drv:inquiry(Hci, Timeout, 10, 0, 0) of
+	{ok,Is} ->
+	    lists:foreach(
+	      fun(I) ->
+		      io:format("~s: dev_class=~w, clock_offset=~w\n",
+				[bt:format_address(I#inquiry_info.bdaddr),
+				 I#inquiry_info.dev_class,
+				 I#inquiry_info.clock_offset]),
+		      io:format("     pscan_rep_mode:~w\n"
+				"     pscan_period_mode:~w\n"
+				"     pscan_mode:~w\n",
+				[ I#inquiry_info.pscan_rep_mode,
+				  I#inquiry_info.pscan_period_mode,
+				  I#inquiry_info.pscan_mode]),
+		      case read_remote_name(Hci, I, ?DEFAULT_TIMEOUT) of
+			  {ok,Name} ->
+			      io:format("    Name: ~s\n", [Name]);
+			  _Error ->
+			      ok
+		      end
+	      end, Is);
+	Error ->
+	    Error
+    end.
+
+    
+create_connection(Hci, Bdaddr, Pkt_type, Clock_offset, Role_switch, Timeout) ->
+    Pscan_rep_mode = 16#02,
+    Pscan_mode = 0,
+    case call(Hci,?OGF_LINK_CTL,?OCF_CREATE_CONN,
+	      <<?create_conn_cp_bin(Bdaddr,Pkt_type,Pscan_rep_mode,Pscan_mode,Clock_offset,Role_switch)>>,
+	      ?EVT_CONN_COMPLETE, Timeout) of
+	{ok, <<?evt_conn_complete_bin(0,Handle,_Bdaddr,_Link_type,_Encr_mode)>>} ->
+	    {ok, Handle};
+	{ok, <<?evt_conn_complete_bin(Status,_Handle,_Bdaddr,_Link_type,_Encr_mode)>>} ->
+	    %% fixme: decode status
+	    {error, Status};
+	Error ->
+	    Error
+    end.
+
+disconnect(Hci, Handle, Reason, Timeout) ->
+    case call(Hci, ?OGF_LINK_CTL, ?OCF_DISCONNECT, 
+	      <<?disconnect_cp_bin(Handle,Reason)>>,
+	      ?EVT_DISCONN_COMPLETE, Timeout) of
+	{ok, <<?evt_disconn_complete_bin(0,Handle,Reason)>>} ->
+	    ok;
+	{ok, <<?evt_disconn_complete_bin(_Status,Handle,Reason)>>} ->
+	    {error,eio};
+	Error ->
+	    Error
+    end.
+
+read_remote_name(Bdaddr) ->
+    with_socket(fun(Hci) -> read_remote_name(Hci,Bdaddr,?DEFAULT_TIMEOUT) end).
+			
+
+read_remote_name(Hci,
+		 #inquiry_info {
+		    bdaddr=Bdaddr,
+		    pscan_rep_mode=Pscan_rep_mode,
+		    pscan_mode=Pscan_mode,
+		    clock_offset=Clock_offset }, Timeout) ->
+    read_remote_name(Hci,Bdaddr,Pscan_rep_mode,Pscan_mode,
+		     Clock_offset bor 16#8000,Timeout);
+read_remote_name(Hci, Bdaddr, Timeout) when is_binary(Bdaddr) ->
+    read_remote_name(Hci,Bdaddr,16#02,16#00,16#0000,Timeout);
+read_remote_name(Hci, Bdaddr, Timeout) when is_list(Bdaddr) ->
+    case bt:getaddr(Bdaddr) of
+	{ok,{A,B,C,D,E,F}} ->
+	    read_remote_name(Hci, <<F,E,D,C,B,A>>, Timeout);
+	Error ->
+	    Error
+    end.
+    
+read_remote_name(Hci,Bdaddr,Pscan_rep_mode,Pscan_mode,Clock_offset,Timeout) ->
+    case call(Hci,?OGF_LINK_CTL,?OCF_REMOTE_NAME_REQ,
+	      <<?remote_name_req_cp_bin(Bdaddr,Pscan_rep_mode,Pscan_mode,
+					Clock_offset)>>,
+	      ?EVT_REMOTE_NAME_REQ_COMPLETE,Timeout) of
+	{ok, <<?evt_remote_name_req_complete_bin(0,_Bdaddr,Name)>>} ->
+	    {ok,hci_util:c_string(Name)};
+	{ok, <<?evt_remote_name_req_complete_bin(_Status,_Bdaddr,_Name)>>} ->
+	    {error, eio};
+	Error -> Error
+    end.
+
+read_local_name() ->
+    with_socket(fun(Hci) -> read_local_name(Hci, ?DEFAULT_TIMEOUT) end).
+
+read_local_name(Hci, Timeout) ->
+    case call(Hci,?OGF_HOST_CTL,?OCF_READ_LOCAL_NAME,<<>>,0,Timeout) of
+	{ok, <<?read_local_name_rp_bin(0,Name)>>} ->
+	    {ok, hci_util:c_string(Name)};
+	{ok, <<?read_local_name_rp_bin(_Status,_Name)>>} ->
+	    {error, eio};
+	Error ->
+	    Error
+    end.
+
+
+%% sending data and calling procedures over HCI socket
+
+send(Hci,Opcode,Data) ->
+    Pkt = <<?HCI_COMMAND_PKT,Opcode:16/little,
+	    (byte_size(Data)):8,Data/binary>>,
+    R = hci_drv:send(Hci,Pkt),
+    io:format("send ~p = ~p\n", [Pkt,R]),
+    R.
+
+send(Hci, OGF, OCF, Data) ->
+    send(Hci, ?cmd_opcode_pack(OGF,OCF), Data).
+
+call(Hci,OGF,OCF,Data,Event,Timeout) ->
+    Opcode = ?cmd_opcode_pack(OGF,OCF),
+    {ok,OldFilter} = hci_drv:get_filter(Hci),
+    %% io:format("call: saved_filter = ~p\n", [OldFilter]),
+    NewFilter = hci_drv:make_filter(Opcode,
+				    [?HCI_EVENT_PKT],
+				    [?EVT_CMD_STATUS,
+				     ?EVT_CMD_COMPLETE,
+				     ?EVT_LE_META_EVENT,
+				     Event]),
+    %% io:format("call: new_filter = ~p\n", [NewFilter]),
+    case hci_drv:set_filter(Hci, NewFilter) of
+	ok ->
+	    true = send(Hci,Opcode,Data),
+	    Reply = wait(Hci,Opcode,Event,10,Timeout),
+	    hci_drv:set_filter(Hci, OldFilter),
+	    Reply;
+	Error ->
+	    Error
+    end.
+
+wait(Hci,Opcode,Event,Try,Timeout) ->
+    TRef = start_timer(Timeout),
+    Result = wait_(Hci,Opcode,Event,Try,TRef),
+    case Result of
+	timeout ->
+	    cancel_timer(TRef),
+	    {error, timedout};
+	Result ->
+	    Result
+    end.
+
+wait_(_Hci,_Opcode,_Event,0,TRef) ->
+    cancel_timer(TRef),
+    {error, timedout};
+
+wait_(Hci,Opcode,Event,Try,TRef) ->
+    receive
+	{Hci,Data0={data,<<_:8,Evt:8,Plen:8,Packet:Plen/binary,_/binary>>}} ->
+	    io:format("Got data ~p\n", [Data0]),
+	    case Evt of
+		?EVT_CMD_STATUS ->
+		    io:format("got cmd_status\n", []),
+		    case Packet of
+			<<?evt_cmd_status_bin(0,_Ncmd,Opcode),R/binary>> ->
+			    if Evt =/= Event ->
+				    wait_(Hci,Opcode,Event,Try-1,TRef);
+			       true ->
+				    {ok,R}
+			    end;
+			<<?evt_cmd_status_bin(_Status,_Ncmd,Opcode),_R/binary>> ->
+			    {error, eio};  %% other status?
+			<<?evt_cmd_status_bin(_S,_Ncmd,_Opcode),_R/binary>> ->
+			    wait_(Hci,Opcode,Event,Try-1,TRef)
+		    end;
+		?EVT_CMD_COMPLETE ->
+		    io:format("got cmd_complete\n", []),
+		    case Packet of
+			<<?evt_cmd_complete_bin(_Ncmd,Opcode),R/binary>> ->
+			    {ok,R};
+			<<?evt_cmd_complete_bin(_Ncmd,_Opcode),_R/binary>> ->
+			    wait_(Hci,Opcode,Event,Try-1,TRef)
+		    end;
+
+		?EVT_REMOTE_NAME_REQ_COMPLETE when Evt =:= Event ->
+		    io:format("got remote_name_req_complete\n", []),
+		    case Packet of
+			<<?evt_remote_name_req_complete_bin(_Status,_Bdaddr,_Name)>> ->
+			    %% fixme: check Bdaddr!
+			    {ok,Packet}
+		    end;
+		?EVT_LE_META_EVENT ->
+		    io:format("got evt_le_meta_event\n", []),
+		    case Packet of
+			<<?evt_le_meta_event_bin(SEvt,_D1),LePacket/binary>> ->
+			    if SEvt =:= Event ->
+				    {ok,LePacket};
+			       true ->
+				    wait_(Hci,Opcode,Event,Try-1,TRef)
+			    end
+		    end;
+		_ ->
+		    io:format("got event ~p\n", [Evt]),
+		    {ok,Packet}
+	    end;
+
+	{timeout,TRef,_} ->
+	    timeout
+    end.
+
+rev_bin(Bin) ->
+    list_to_binary(lists:reverse(binary_to_list(Bin))).
+
+start_timer(0) -> undefined;
+start_timer(Timeout) -> erlang:start_timer(Timeout, self(), timeout).
+
+cancel_timer(undefined) -> false;
+cancel_timer(TRef) ->
+    erlang:cancel_timer(TRef),
+    receive {timeout,TRef,_} -> ok
+    after 0 -> ok
+    end.
+
+with_socket(Fun) ->
+    {ok,S} = open(),
+    try Fun(S) of
+	Result ->
+	    Result
+    catch
+	error:Error ->
+	    io:format("hci: with_socket crash: ~p\n", [Error]),
+	    lists:foreach(fun(Item) -> print_item(Item) end,
+			  erlang:get_stacktrace()),
+	    {error,Error}
+    after
+	close(S)
+    end.
+
+print_item({Module,Function,ArityArgs,Location}) ->
+    File = proplists:get_value(file,Location,""),
+    Line = proplists:get_value(line,Location,0),
+    {Arity,Args} = 
+	if is_list(ArityArgs) -> {length(ArityArgs),ArityArgs};
+	   is_integer(ArityArgs) -> {ArityArgs, []}
+	end,
+    io:format("  ~s:~w: ~s:~s/~w ~p\n", [File,Line,Module,Function,Arity,Args]).
diff --git a/deps/bt/src/hci_api.erl b/deps/bt/src/hci_api.erl
new file mode 100644
index 0000000..a923a71
--- /dev/null
+++ b/deps/bt/src/hci_api.erl
@@ -0,0 +1,1462 @@
+%% -*- erlang -*-
+-module(hci_api).
+-compile(export_all).
+-include("hci_api.hrl").
+
+
+cname(<<0,_/binary>>) -> [];
+cname(<<C,Cs/binary>>) -> [C|cname(Cs)];
+cname(<<>>) -> [].
+
+
+decode_status_bdaddr_rp(_Data) ->
+  case _Data of
+    <<?status_bdaddr_rp_bin(Status,Bdaddr)>> ->
+      #status_bdaddr_rp { status = Status,bdaddr = Bdaddr }
+  end.
+
+decode_cancel_logical_link_rp(_Data) ->
+  case _Data of
+    <<?cancel_logical_link_rp_bin(Status,Handle,Tx_flow_id)>> ->
+      #cancel_logical_link_rp { status = Status,handle = Handle,tx_flow_id = Tx_flow_id }
+  end.
+
+decode_role_discovery_rp(_Data) ->
+  case _Data of
+    <<?role_discovery_rp_bin(Status,Handle,Role)>> ->
+      #role_discovery_rp { status = Status,handle = Handle,role = Role }
+  end.
+
+decode_read_link_policy_rp(_Data) ->
+  case _Data of
+    <<?read_link_policy_rp_bin(Status,Handle,Policy)>> ->
+      #read_link_policy_rp { status = Status,handle = Handle,policy = Policy }
+  end.
+
+decode_write_link_policy_rp(_Data) ->
+  case _Data of
+    <<?write_link_policy_rp_bin(Status,Handle)>> ->
+      #write_link_policy_rp { status = Status,handle = Handle }
+  end.
+
+decode_read_pin_type_rp(_Data) ->
+  case _Data of
+    <<?read_pin_type_rp_bin(Status,Pin_type)>> ->
+      #read_pin_type_rp { status = Status,pin_type = Pin_type }
+  end.
+
+decode_read_stored_link_key_rp(_Data) ->
+  case _Data of
+    <<?read_stored_link_key_rp_bin(Status,Max_keys,Num_keys)>> ->
+      #read_stored_link_key_rp { status = Status,max_keys = Max_keys,num_keys = Num_keys }
+  end.
+
+decode_write_stored_link_key_rp(_Data) ->
+  case _Data of
+    <<?write_stored_link_key_rp_bin(Status,Num_keys)>> ->
+      #write_stored_link_key_rp { status = Status,num_keys = Num_keys }
+  end.
+
+decode_delete_stored_link_key_rp(_Data) ->
+  case _Data of
+    <<?delete_stored_link_key_rp_bin(Status,Num_keys)>> ->
+      #delete_stored_link_key_rp { status = Status,num_keys = Num_keys }
+  end.
+
+decode_read_local_name_rp(_Data) ->
+  case _Data of
+    <<?read_local_name_rp_bin(Status,Name)>> ->
+      #read_local_name_rp { status = Status,name = Name }
+  end.
+
+decode_read_conn_accept_timeout_rp(_Data) ->
+  case _Data of
+    <<?read_conn_accept_timeout_rp_bin(Status,Timeout)>> ->
+      #read_conn_accept_timeout_rp { status = Status,timeout = Timeout }
+  end.
+
+decode_read_page_timeout_rp(_Data) ->
+  case _Data of
+    <<?read_page_timeout_rp_bin(Status,Timeout)>> ->
+      #read_page_timeout_rp { status = Status,timeout = Timeout }
+  end.
+
+decode_read_scan_enable_rp(_Data) ->
+  case _Data of
+    <<?read_scan_enable_rp_bin(Status,Enable)>> ->
+      #read_scan_enable_rp { status = Status,enable = Enable }
+  end.
+
+decode_read_page_activity_rp(_Data) ->
+  case _Data of
+    <<?read_page_activity_rp_bin(Status,Interval,Window)>> ->
+      #read_page_activity_rp { status = Status,interval = Interval,window = Window }
+  end.
+
+decode_read_inq_activity_rp(_Data) ->
+  case _Data of
+    <<?read_inq_activity_rp_bin(Status,Interval,Window)>> ->
+      #read_inq_activity_rp { status = Status,interval = Interval,window = Window }
+  end.
+
+decode_read_class_of_dev_rp(_Data) ->
+  case _Data of
+    <<?read_class_of_dev_rp_bin(Status,Dev_class)>> ->
+      #read_class_of_dev_rp { status = Status,dev_class = Dev_class }
+  end.
+
+decode_read_voice_setting_rp(_Data) ->
+  case _Data of
+    <<?read_voice_setting_rp_bin(Status,Voice_setting)>> ->
+      #read_voice_setting_rp { status = Status,voice_setting = Voice_setting }
+  end.
+
+decode_read_transmit_power_level_rp(_Data) ->
+  case _Data of
+    <<?read_transmit_power_level_rp_bin(Status,Handle,Level)>> ->
+      #read_transmit_power_level_rp { status = Status,handle = Handle,level = Level }
+  end.
+
+decode_read_link_supervision_timeout_rp(_Data) ->
+  case _Data of
+    <<?read_link_supervision_timeout_rp_bin(Status,Handle,Timeout)>> ->
+      #read_link_supervision_timeout_rp { status = Status,handle = Handle,timeout = Timeout }
+  end.
+
+decode_write_link_supervision_timeout_rp(_Data) ->
+  case _Data of
+    <<?write_link_supervision_timeout_rp_bin(Status,Handle)>> ->
+      #write_link_supervision_timeout_rp { status = Status,handle = Handle }
+  end.
+
+decode_read_current_iac_lap_rp(_Data) ->
+  case _Data of
+    <<?read_current_iac_lap_rp_bin(Status,Num_current_iac,Lap)>> ->
+      #read_current_iac_lap_rp { status = Status,num_current_iac = Num_current_iac,lap = Lap }
+  end.
+
+decode_set_afh_classification_rp(_Data) ->
+  case _Data of
+    <<?set_afh_classification_rp_bin(Status)>> ->
+      #set_afh_classification_rp { status = Status }
+  end.
+
+decode_read_inquiry_scan_type_rp(_Data) ->
+  case _Data of
+    <<?read_inquiry_scan_type_rp_bin(Status,Type)>> ->
+      #read_inquiry_scan_type_rp { status = Status,type = Type }
+  end.
+
+decode_write_inquiry_scan_type_rp(_Data) ->
+  case _Data of
+    <<?write_inquiry_scan_type_rp_bin(Status)>> ->
+      #write_inquiry_scan_type_rp { status = Status }
+  end.
+
+decode_read_inquiry_mode_rp(_Data) ->
+  case _Data of
+    <<?read_inquiry_mode_rp_bin(Status,Mode)>> ->
+      #read_inquiry_mode_rp { status = Status,mode = Mode }
+  end.
+
+decode_write_inquiry_mode_rp(_Data) ->
+  case _Data of
+    <<?write_inquiry_mode_rp_bin(Status)>> ->
+      #write_inquiry_mode_rp { status = Status }
+  end.
+
+decode_read_afh_mode_rp(_Data) ->
+  case _Data of
+    <<?read_afh_mode_rp_bin(Status,Mode)>> ->
+      #read_afh_mode_rp { status = Status,mode = Mode }
+  end.
+
+decode_write_afh_mode_rp(_Data) ->
+  case _Data of
+    <<?write_afh_mode_rp_bin(Status)>> ->
+      #write_afh_mode_rp { status = Status }
+  end.
+
+decode_read_ext_inquiry_response_rp(_Data) ->
+  case _Data of
+    <<?read_ext_inquiry_response_rp_bin(Status,Fec,Data)>> ->
+      #read_ext_inquiry_response_rp { status = Status,fec = Fec,data = Data }
+  end.
+
+decode_write_ext_inquiry_response_rp(_Data) ->
+  case _Data of
+    <<?write_ext_inquiry_response_rp_bin(Status)>> ->
+      #write_ext_inquiry_response_rp { status = Status }
+  end.
+
+decode_refresh_encryption_key_rp(_Data) ->
+  case _Data of
+    <<?refresh_encryption_key_rp_bin(Status)>> ->
+      #refresh_encryption_key_rp { status = Status }
+  end.
+
+decode_read_simple_pairing_mode_rp(_Data) ->
+  case _Data of
+    <<?read_simple_pairing_mode_rp_bin(Status,Mode)>> ->
+      #read_simple_pairing_mode_rp { status = Status,mode = Mode }
+  end.
+
+decode_write_simple_pairing_mode_rp(_Data) ->
+  case _Data of
+    <<?write_simple_pairing_mode_rp_bin(Status)>> ->
+      #write_simple_pairing_mode_rp { status = Status }
+  end.
+
+decode_read_local_oob_data_rp(_Data) ->
+  case _Data of
+    <<?read_local_oob_data_rp_bin(Status,Hash,Randomizer)>> ->
+      #read_local_oob_data_rp { status = Status,hash = Hash,randomizer = Randomizer }
+  end.
+
+decode_read_inq_response_tx_power_level_rp(_Data) ->
+  case _Data of
+    <<?read_inq_response_tx_power_level_rp_bin(Status,Level)>> ->
+      #read_inq_response_tx_power_level_rp { status = Status,level = Level }
+  end.
+
+decode_read_inquiry_transmit_power_level_rp(_Data) ->
+  case _Data of
+    <<?read_inquiry_transmit_power_level_rp_bin(Status,Level)>> ->
+      #read_inquiry_transmit_power_level_rp { status = Status,level = Level }
+  end.
+
+decode_write_inquiry_transmit_power_level_rp(_Data) ->
+  case _Data of
+    <<?write_inquiry_transmit_power_level_rp_bin(Status)>> ->
+      #write_inquiry_transmit_power_level_rp { status = Status }
+  end.
+
+decode_read_default_error_data_reporting_rp(_Data) ->
+  case _Data of
+    <<?read_default_error_data_reporting_rp_bin(Status,Reporting)>> ->
+      #read_default_error_data_reporting_rp { status = Status,reporting = Reporting }
+  end.
+
+decode_write_default_error_data_reporting_rp(_Data) ->
+  case _Data of
+    <<?write_default_error_data_reporting_rp_bin(Status)>> ->
+      #write_default_error_data_reporting_rp { status = Status }
+  end.
+
+decode_send_keypress_notify_rp(_Data) ->
+  case _Data of
+    <<?send_keypress_notify_rp_bin(Status)>> ->
+      #send_keypress_notify_rp { status = Status }
+  end.
+
+decode_read_log_link_accept_timeout_rp(_Data) ->
+  case _Data of
+    <<?read_log_link_accept_timeout_rp_bin(Status,Timeout)>> ->
+      #read_log_link_accept_timeout_rp { status = Status,timeout = Timeout }
+  end.
+
+decode_read_enhanced_transmit_power_level_rp(_Data) ->
+  case _Data of
+    <<?read_enhanced_transmit_power_level_rp_bin(Status,Handle,Level_gfsk,Level_dqpsk,Level_8dpsk)>> ->
+      #read_enhanced_transmit_power_level_rp { status = Status,handle = Handle,level_gfsk = Level_gfsk,level_dqpsk = Level_dqpsk,level_8dpsk = Level_8dpsk }
+  end.
+
+decode_read_best_effort_flush_timeout_rp(_Data) ->
+  case _Data of
+    <<?read_best_effort_flush_timeout_rp_bin(Status,Timeout)>> ->
+      #read_best_effort_flush_timeout_rp { status = Status,timeout = Timeout }
+  end.
+
+decode_write_best_effort_flush_timeout_rp(_Data) ->
+  case _Data of
+    <<?write_best_effort_flush_timeout_rp_bin(Status)>> ->
+      #write_best_effort_flush_timeout_rp { status = Status }
+  end.
+
+decode_read_le_host_supported_rp(_Data) ->
+  case _Data of
+    <<?read_le_host_supported_rp_bin(Status,Le,Simul)>> ->
+      #read_le_host_supported_rp { status = Status,le = Le,simul = Simul }
+  end.
+
+decode_read_local_version_rp(_Data) ->
+  case _Data of
+    <<?read_local_version_rp_bin(Status,Hci_ver,Hci_rev,Lmp_ver,Manufacturer,Lmp_subver)>> ->
+      #read_local_version_rp { status = Status,hci_ver = Hci_ver,hci_rev = Hci_rev,lmp_ver = Lmp_ver,manufacturer = Manufacturer,lmp_subver = Lmp_subver }
+  end.
+
+decode_read_local_commands_rp(_Data) ->
+  case _Data of
+    <<?read_local_commands_rp_bin(Status,Commands)>> ->
+      #read_local_commands_rp { status = Status,commands = Commands }
+  end.
+
+decode_read_local_features_rp(_Data) ->
+  case _Data of
+    <<?read_local_features_rp_bin(Status,Features)>> ->
+      #read_local_features_rp { status = Status,features = Features }
+  end.
+
+decode_read_local_ext_features_rp(_Data) ->
+  case _Data of
+    <<?read_local_ext_features_rp_bin(Status,Page_num,Max_page_num,Features)>> ->
+      #read_local_ext_features_rp { status = Status,page_num = Page_num,max_page_num = Max_page_num,features = Features }
+  end.
+
+decode_read_buffer_size_rp(_Data) ->
+  case _Data of
+    <<?read_buffer_size_rp_bin(Status,Acl_mtu,Sco_mtu,Acl_max_pkt,Sco_max_pkt)>> ->
+      #read_buffer_size_rp { status = Status,acl_mtu = Acl_mtu,sco_mtu = Sco_mtu,acl_max_pkt = Acl_max_pkt,sco_max_pkt = Sco_max_pkt }
+  end.
+
+decode_read_bd_addr_rp(_Data) ->
+  case _Data of
+    <<?read_bd_addr_rp_bin(Status,Bdaddr)>> ->
+      #read_bd_addr_rp { status = Status,bdaddr = Bdaddr }
+  end.
+
+decode_read_failed_contact_counter_rp(_Data) ->
+  case _Data of
+    <<?read_failed_contact_counter_rp_bin(Status,Handle,Counter)>> ->
+      #read_failed_contact_counter_rp { status = Status,handle = Handle,counter = Counter }
+  end.
+
+decode_reset_failed_contact_counter_rp(_Data) ->
+  case _Data of
+    <<?reset_failed_contact_counter_rp_bin(Status,Handle)>> ->
+      #reset_failed_contact_counter_rp { status = Status,handle = Handle }
+  end.
+
+decode_read_link_quality_rp(_Data) ->
+  case _Data of
+    <<?read_link_quality_rp_bin(Status,Handle,Link_quality)>> ->
+      #read_link_quality_rp { status = Status,handle = Handle,link_quality = Link_quality }
+  end.
+
+decode_read_rssi_rp(_Data) ->
+  case _Data of
+    <<?read_rssi_rp_bin(Status,Handle,Rssi)>> ->
+      #read_rssi_rp { status = Status,handle = Handle,rssi = Rssi }
+  end.
+
+decode_read_afh_map_rp(_Data) ->
+  case _Data of
+    <<?read_afh_map_rp_bin(Status,Handle,Mode,Map)>> ->
+      #read_afh_map_rp { status = Status,handle = Handle,mode = Mode,map = Map }
+  end.
+
+decode_read_clock_rp(_Data) ->
+  case _Data of
+    <<?read_clock_rp_bin(Status,Handle,Clock,Accuracy)>> ->
+      #read_clock_rp { status = Status,handle = Handle,clock = Clock,accuracy = Accuracy }
+  end.
+
+decode_read_local_amp_info_rp(_Data) ->
+  case _Data of
+    <<?read_local_amp_info_rp_bin(Status,Amp_status,Total_bandwidth,Max_guaranteed_bandwidth,Min_latency,Max_pdu_size,Controller_type,Pal_caps,Max_amp_assoc_length,Max_flush_timeout,Best_effort_flush_timeout)>> ->
+      #read_local_amp_info_rp { status = Status,amp_status = Amp_status,total_bandwidth = Total_bandwidth,max_guaranteed_bandwidth = Max_guaranteed_bandwidth,min_latency = Min_latency,max_pdu_size = Max_pdu_size,controller_type = Controller_type,pal_caps = Pal_caps,max_amp_assoc_length = Max_amp_assoc_length,max_flush_timeout = Max_flush_timeout,best_effort_flush_timeout = Best_effort_flush_timeout }
+  end.
+
+decode_read_local_amp_assoc_rp(_Data) ->
+  case _Data of
+    <<?read_local_amp_assoc_rp_bin(Status,Handle,Rem_len,Frag)>> ->
+      #read_local_amp_assoc_rp { status = Status,handle = Handle,rem_len = Rem_len,frag = Frag }
+  end.
+
+decode_write_remote_amp_assoc_rp(_Data) ->
+  case _Data of
+    <<?write_remote_amp_assoc_rp_bin(Status,Handle)>> ->
+      #write_remote_amp_assoc_rp { status = Status,handle = Handle }
+  end.
+
+decode_write_simple_pairing_debug_mode_rp(_Data) ->
+  case _Data of
+    <<?write_simple_pairing_debug_mode_rp_bin(Status)>> ->
+      #write_simple_pairing_debug_mode_rp { status = Status }
+  end.
+
+decode_le_read_buffer_size_rp(_Data) ->
+  case _Data of
+    <<?le_read_buffer_size_rp_bin(Status,Pkt_len,Max_pkt)>> ->
+      #le_read_buffer_size_rp { status = Status,pkt_len = Pkt_len,max_pkt = Max_pkt }
+  end.
+
+decode_le_read_local_supported_features_rp(_Data) ->
+  case _Data of
+    <<?le_read_local_supported_features_rp_bin(Status,Features)>> ->
+      #le_read_local_supported_features_rp { status = Status,features = Features }
+  end.
+
+decode_le_read_advertising_channel_tx_power_rp(_Data) ->
+  case _Data of
+    <<?le_read_advertising_channel_tx_power_rp_bin(Status,Level)>> ->
+      #le_read_advertising_channel_tx_power_rp { status = Status,level = Level }
+  end.
+
+decode_le_read_white_list_size_rp(_Data) ->
+  case _Data of
+    <<?le_read_white_list_size_rp_bin(Status,Size)>> ->
+      #le_read_white_list_size_rp { status = Status,size = Size }
+  end.
+
+decode_le_read_channel_map_rp(_Data) ->
+  case _Data of
+    <<?le_read_channel_map_rp_bin(Status,Handle,Map)>> ->
+      #le_read_channel_map_rp { status = Status,handle = Handle,map = Map }
+  end.
+
+decode_le_encrypt_rp(_Data) ->
+  case _Data of
+    <<?le_encrypt_rp_bin(Status,Data)>> ->
+      #le_encrypt_rp { status = Status,data = Data }
+  end.
+
+decode_le_rand_rp(_Data) ->
+  case _Data of
+    <<?le_rand_rp_bin(Status,Random)>> ->
+      #le_rand_rp { status = Status,random = Random }
+  end.
+
+decode_le_ltk_reply_rp(_Data) ->
+  case _Data of
+    <<?le_ltk_reply_rp_bin(Status,Handle)>> ->
+      #le_ltk_reply_rp { status = Status,handle = Handle }
+  end.
+
+decode_le_ltk_neg_reply_rp(_Data) ->
+  case _Data of
+    <<?le_ltk_neg_reply_rp_bin(Status,Handle)>> ->
+      #le_ltk_neg_reply_rp { status = Status,handle = Handle }
+  end.
+
+decode_le_read_supported_states_rp(_Data) ->
+  case _Data of
+    <<?le_read_supported_states_rp_bin(Status,States)>> ->
+      #le_read_supported_states_rp { status = Status,states = States }
+  end.
+
+decode_le_test_end_rp(_Data) ->
+  case _Data of
+    <<?le_test_end_rp_bin(Status,Num_pkts)>> ->
+      #le_test_end_rp { status = Status,num_pkts = Num_pkts }
+  end.
+
+decode_inquiry_info(_Data) ->
+  case _Data of
+    <<?inquiry_info_bin(Bdaddr,Pscan_rep_mode,Pscan_period_mode,Pscan_mode,Dev_class,Clock_offset)>> ->
+      #inquiry_info { bdaddr = Bdaddr,pscan_rep_mode = Pscan_rep_mode,pscan_period_mode = Pscan_period_mode,pscan_mode = Pscan_mode,dev_class = Dev_class,clock_offset = Clock_offset }
+  end.
+
+decode_evt_conn_complete(_Data) ->
+  case _Data of
+    <<?evt_conn_complete_bin(Status,Handle,Bdaddr,Link_type,Encr_mode)>> ->
+      #evt_conn_complete { status = Status,handle = Handle,bdaddr = Bdaddr,link_type = Link_type,encr_mode = Encr_mode }
+  end.
+
+decode_evt_conn_request(_Data) ->
+  case _Data of
+    <<?evt_conn_request_bin(Bdaddr,Dev_class,Link_type)>> ->
+      #evt_conn_request { bdaddr = Bdaddr,dev_class = Dev_class,link_type = Link_type }
+  end.
+
+decode_evt_disconn_complete(_Data) ->
+  case _Data of
+    <<?evt_disconn_complete_bin(Status,Handle,Reason)>> ->
+      #evt_disconn_complete { status = Status,handle = Handle,reason = Reason }
+  end.
+
+decode_evt_auth_complete(_Data) ->
+  case _Data of
+    <<?evt_auth_complete_bin(Status,Handle)>> ->
+      #evt_auth_complete { status = Status,handle = Handle }
+  end.
+
+decode_evt_remote_name_req_complete(_Data) ->
+  case _Data of
+    <<?evt_remote_name_req_complete_bin(Status,Bdaddr,Name)>> ->
+      #evt_remote_name_req_complete { status = Status,bdaddr = Bdaddr,name = Name }
+  end.
+
+decode_evt_encrypt_change(_Data) ->
+  case _Data of
+    <<?evt_encrypt_change_bin(Status,Handle,Encrypt)>> ->
+      #evt_encrypt_change { status = Status,handle = Handle,encrypt = Encrypt }
+  end.
+
+decode_evt_change_conn_link_key_complete(_Data) ->
+  case _Data of
+    <<?evt_change_conn_link_key_complete_bin(Status,Handle)>> ->
+      #evt_change_conn_link_key_complete { status = Status,handle = Handle }
+  end.
+
+decode_evt_master_link_key_complete(_Data) ->
+  case _Data of
+    <<?evt_master_link_key_complete_bin(Status,Handle,Key_flag)>> ->
+      #evt_master_link_key_complete { status = Status,handle = Handle,key_flag = Key_flag }
+  end.
+
+decode_evt_read_remote_features_complete(_Data) ->
+  case _Data of
+    <<?evt_read_remote_features_complete_bin(Status,Handle,Features)>> ->
+      #evt_read_remote_features_complete { status = Status,handle = Handle,features = Features }
+  end.
+
+decode_evt_read_remote_version_complete(_Data) ->
+  case _Data of
+    <<?evt_read_remote_version_complete_bin(Status,Handle,Lmp_ver,Manufacturer,Lmp_subver)>> ->
+      #evt_read_remote_version_complete { status = Status,handle = Handle,lmp_ver = Lmp_ver,manufacturer = Manufacturer,lmp_subver = Lmp_subver }
+  end.
+
+decode_evt_qos_setup_complete(_Data) ->
+  case _Data of
+    <<?evt_qos_setup_complete_bin(Status,Handle,Flags,Qos)>> ->
+      #evt_qos_setup_complete { status = Status,handle = Handle,flags = Flags,qos = Qos }
+  end.
+
+decode_evt_cmd_complete(_Data) ->
+  case _Data of
+    <<?evt_cmd_complete_bin(Ncmd,Opcode)>> ->
+      #evt_cmd_complete { ncmd = Ncmd,opcode = Opcode }
+  end.
+
+decode_evt_cmd_status(_Data) ->
+  case _Data of
+    <<?evt_cmd_status_bin(Status,Ncmd,Opcode)>> ->
+      #evt_cmd_status { status = Status,ncmd = Ncmd,opcode = Opcode }
+  end.
+
+decode_evt_hardware_error(_Data) ->
+  case _Data of
+    <<?evt_hardware_error_bin(Code)>> ->
+      #evt_hardware_error { code = Code }
+  end.
+
+decode_evt_flush_occured(_Data) ->
+  case _Data of
+    <<?evt_flush_occured_bin(Handle)>> ->
+      #evt_flush_occured { handle = Handle }
+  end.
+
+decode_evt_role_change(_Data) ->
+  case _Data of
+    <<?evt_role_change_bin(Status,Bdaddr,Role)>> ->
+      #evt_role_change { status = Status,bdaddr = Bdaddr,role = Role }
+  end.
+
+decode_evt_num_comp_pkts(_Data) ->
+  case _Data of
+    <<?evt_num_comp_pkts_bin(Num_hndl)>> ->
+      #evt_num_comp_pkts { num_hndl = Num_hndl }
+  end.
+
+decode_evt_mode_change(_Data) ->
+  case _Data of
+    <<?evt_mode_change_bin(Status,Handle,Mode,Interval)>> ->
+      #evt_mode_change { status = Status,handle = Handle,mode = Mode,interval = Interval }
+  end.
+
+decode_evt_return_link_keys(_Data) ->
+  case _Data of
+    <<?evt_return_link_keys_bin(Num_keys)>> ->
+      #evt_return_link_keys { num_keys = Num_keys }
+  end.
+
+decode_evt_pin_code_req(_Data) ->
+  case _Data of
+    <<?evt_pin_code_req_bin(Bdaddr)>> ->
+      #evt_pin_code_req { bdaddr = Bdaddr }
+  end.
+
+decode_evt_link_key_req(_Data) ->
+  case _Data of
+    <<?evt_link_key_req_bin(Bdaddr)>> ->
+      #evt_link_key_req { bdaddr = Bdaddr }
+  end.
+
+decode_evt_link_key_notify(_Data) ->
+  case _Data of
+    <<?evt_link_key_notify_bin(Bdaddr,Link_key,Key_type)>> ->
+      #evt_link_key_notify { bdaddr = Bdaddr,link_key = Link_key,key_type = Key_type }
+  end.
+
+decode_evt_data_buffer_overflow(_Data) ->
+  case _Data of
+    <<?evt_data_buffer_overflow_bin(Link_type)>> ->
+      #evt_data_buffer_overflow { link_type = Link_type }
+  end.
+
+decode_evt_max_slots_change(_Data) ->
+  case _Data of
+    <<?evt_max_slots_change_bin(Handle,Max_slots)>> ->
+      #evt_max_slots_change { handle = Handle,max_slots = Max_slots }
+  end.
+
+decode_evt_read_clock_offset_complete(_Data) ->
+  case _Data of
+    <<?evt_read_clock_offset_complete_bin(Status,Handle,Clock_offset)>> ->
+      #evt_read_clock_offset_complete { status = Status,handle = Handle,clock_offset = Clock_offset }
+  end.
+
+decode_evt_conn_ptype_changed(_Data) ->
+  case _Data of
+    <<?evt_conn_ptype_changed_bin(Status,Handle,Ptype)>> ->
+      #evt_conn_ptype_changed { status = Status,handle = Handle,ptype = Ptype }
+  end.
+
+decode_evt_qos_violation(_Data) ->
+  case _Data of
+    <<?evt_qos_violation_bin(Handle)>> ->
+      #evt_qos_violation { handle = Handle }
+  end.
+
+decode_evt_pscan_rep_mode_change(_Data) ->
+  case _Data of
+    <<?evt_pscan_rep_mode_change_bin(Bdaddr,Pscan_rep_mode)>> ->
+      #evt_pscan_rep_mode_change { bdaddr = Bdaddr,pscan_rep_mode = Pscan_rep_mode }
+  end.
+
+decode_evt_flow_spec_complete(_Data) ->
+  case _Data of
+    <<?evt_flow_spec_complete_bin(Status,Handle,Flags,Direction,Qos)>> ->
+      #evt_flow_spec_complete { status = Status,handle = Handle,flags = Flags,direction = Direction,qos = Qos }
+  end.
+
+decode_evt_read_remote_ext_features_complete(_Data) ->
+  case _Data of
+    <<?evt_read_remote_ext_features_complete_bin(Status,Handle,Page_num,Max_page_num,Features)>> ->
+      #evt_read_remote_ext_features_complete { status = Status,handle = Handle,page_num = Page_num,max_page_num = Max_page_num,features = Features }
+  end.
+
+decode_evt_sync_conn_complete(_Data) ->
+  case _Data of
+    <<?evt_sync_conn_complete_bin(Status,Handle,Bdaddr,Link_type,Trans_interval,Retrans_window,Rx_pkt_len,Tx_pkt_len,Air_mode)>> ->
+      #evt_sync_conn_complete { status = Status,handle = Handle,bdaddr = Bdaddr,link_type = Link_type,trans_interval = Trans_interval,retrans_window = Retrans_window,rx_pkt_len = Rx_pkt_len,tx_pkt_len = Tx_pkt_len,air_mode = Air_mode }
+  end.
+
+decode_evt_sync_conn_changed(_Data) ->
+  case _Data of
+    <<?evt_sync_conn_changed_bin(Status,Handle,Trans_interval,Retrans_window,Rx_pkt_len,Tx_pkt_len)>> ->
+      #evt_sync_conn_changed { status = Status,handle = Handle,trans_interval = Trans_interval,retrans_window = Retrans_window,rx_pkt_len = Rx_pkt_len,tx_pkt_len = Tx_pkt_len }
+  end.
+
+decode_evt_sniff_subrating(_Data) ->
+  case _Data of
+    <<?evt_sniff_subrating_bin(Status,Handle,Max_tx_latency,Max_rx_latency,Min_remote_timeout,Min_local_timeout)>> ->
+      #evt_sniff_subrating { status = Status,handle = Handle,max_tx_latency = Max_tx_latency,max_rx_latency = Max_rx_latency,min_remote_timeout = Min_remote_timeout,min_local_timeout = Min_local_timeout }
+  end.
+
+decode_evt_encryption_key_refresh_complete(_Data) ->
+  case _Data of
+    <<?evt_encryption_key_refresh_complete_bin(Status,Handle)>> ->
+      #evt_encryption_key_refresh_complete { status = Status,handle = Handle }
+  end.
+
+decode_evt_io_capability_request(_Data) ->
+  case _Data of
+    <<?evt_io_capability_request_bin(Bdaddr)>> ->
+      #evt_io_capability_request { bdaddr = Bdaddr }
+  end.
+
+decode_evt_io_capability_response(_Data) ->
+  case _Data of
+    <<?evt_io_capability_response_bin(Bdaddr,Capability,Oob_data,Authentication)>> ->
+      #evt_io_capability_response { bdaddr = Bdaddr,capability = Capability,oob_data = Oob_data,authentication = Authentication }
+  end.
+
+decode_evt_user_confirm_request(_Data) ->
+  case _Data of
+    <<?evt_user_confirm_request_bin(Bdaddr,Passkey)>> ->
+      #evt_user_confirm_request { bdaddr = Bdaddr,passkey = Passkey }
+  end.
+
+decode_evt_user_passkey_request(_Data) ->
+  case _Data of
+    <<?evt_user_passkey_request_bin(Bdaddr)>> ->
+      #evt_user_passkey_request { bdaddr = Bdaddr }
+  end.
+
+decode_evt_remote_oob_data_request(_Data) ->
+  case _Data of
+    <<?evt_remote_oob_data_request_bin(Bdaddr)>> ->
+      #evt_remote_oob_data_request { bdaddr = Bdaddr }
+  end.
+
+decode_evt_simple_pairing_complete(_Data) ->
+  case _Data of
+    <<?evt_simple_pairing_complete_bin(Status,Bdaddr)>> ->
+      #evt_simple_pairing_complete { status = Status,bdaddr = Bdaddr }
+  end.
+
+decode_evt_link_supervision_timeout_changed(_Data) ->
+  case _Data of
+    <<?evt_link_supervision_timeout_changed_bin(Handle,Timeout)>> ->
+      #evt_link_supervision_timeout_changed { handle = Handle,timeout = Timeout }
+  end.
+
+decode_evt_enhanced_flush_complete(_Data) ->
+  case _Data of
+    <<?evt_enhanced_flush_complete_bin(Handle)>> ->
+      #evt_enhanced_flush_complete { handle = Handle }
+  end.
+
+decode_evt_user_passkey_notify(_Data) ->
+  case _Data of
+    <<?evt_user_passkey_notify_bin(Bdaddr,Passkey,Entered)>> ->
+      #evt_user_passkey_notify { bdaddr = Bdaddr,passkey = Passkey,entered = Entered }
+  end.
+
+decode_evt_keypress_notify(_Data) ->
+  case _Data of
+    <<?evt_keypress_notify_bin(Bdaddr,Type)>> ->
+      #evt_keypress_notify { bdaddr = Bdaddr,type = Type }
+  end.
+
+decode_evt_remote_host_features_notify(_Data) ->
+  case _Data of
+    <<?evt_remote_host_features_notify_bin(Bdaddr,Features)>> ->
+      #evt_remote_host_features_notify { bdaddr = Bdaddr,features = Features }
+  end.
+
+decode_evt_le_meta_event(_Data) ->
+  case _Data of
+    <<?evt_le_meta_event_bin(Subevent,Data)>> ->
+      #evt_le_meta_event { subevent = Subevent,data = Data }
+  end.
+
+decode_evt_le_connection_complete(_Data) ->
+  case _Data of
+    <<?evt_le_connection_complete_bin(Status,Handle,Role,Peer_bdaddr_type,Peer_bdaddr,Interval,Latency,Supervision_timeout,Master_clock_accuracy)>> ->
+      #evt_le_connection_complete { status = Status,handle = Handle,role = Role,peer_bdaddr_type = Peer_bdaddr_type,peer_bdaddr = Peer_bdaddr,interval = Interval,latency = Latency,supervision_timeout = Supervision_timeout,master_clock_accuracy = Master_clock_accuracy }
+  end.
+
+decode_evt_le_connection_update_complete(_Data) ->
+  case _Data of
+    <<?evt_le_connection_update_complete_bin(Status,Handle,Interval,Latency,Supervision_timeout)>> ->
+      #evt_le_connection_update_complete { status = Status,handle = Handle,interval = Interval,latency = Latency,supervision_timeout = Supervision_timeout }
+  end.
+
+decode_evt_le_read_remote_used_features_complete(_Data) ->
+  case _Data of
+    <<?evt_le_read_remote_used_features_complete_bin(Status,Handle,Features)>> ->
+      #evt_le_read_remote_used_features_complete { status = Status,handle = Handle,features = Features }
+  end.
+
+decode_evt_le_long_term_key_request(_Data) ->
+  case _Data of
+    <<?evt_le_long_term_key_request_bin(Handle,Random,Diversifier)>> ->
+      #evt_le_long_term_key_request { handle = Handle,random = Random,diversifier = Diversifier }
+  end.
+
+decode_evt_physical_link_complete(_Data) ->
+  case _Data of
+    <<?evt_physical_link_complete_bin(Status,Handle)>> ->
+      #evt_physical_link_complete { status = Status,handle = Handle }
+  end.
+
+decode_evt_disconn_physical_link_complete(_Data) ->
+  case _Data of
+    <<?evt_disconn_physical_link_complete_bin(Status,Handle,Reason)>> ->
+      #evt_disconn_physical_link_complete { status = Status,handle = Handle,reason = Reason }
+  end.
+
+decode_evt_physical_link_loss_warning(_Data) ->
+  case _Data of
+    <<?evt_physical_link_loss_warning_bin(Handle,Reason)>> ->
+      #evt_physical_link_loss_warning { handle = Handle,reason = Reason }
+  end.
+
+decode_evt_physical_link_recovery(_Data) ->
+  case _Data of
+    <<?evt_physical_link_recovery_bin(Handle)>> ->
+      #evt_physical_link_recovery { handle = Handle }
+  end.
+
+decode_evt_logical_link_complete(_Data) ->
+  case _Data of
+    <<?evt_logical_link_complete_bin(Status,Log_handle,Handle,Tx_flow_id)>> ->
+      #evt_logical_link_complete { status = Status,log_handle = Log_handle,handle = Handle,tx_flow_id = Tx_flow_id }
+  end.
+
+decode_evt_flow_spec_modify_complete(_Data) ->
+  case _Data of
+    <<?evt_flow_spec_modify_complete_bin(Status,Handle)>> ->
+      #evt_flow_spec_modify_complete { status = Status,handle = Handle }
+  end.
+
+decode_evt_amp_status_change(_Data) ->
+  case _Data of
+    <<?evt_amp_status_change_bin(Status,Amp_status)>> ->
+      #evt_amp_status_change { status = Status,amp_status = Amp_status }
+  end.
+
+decode_evt_stack_internal(_Data) ->
+  case _Data of
+    <<?evt_stack_internal_bin(Type,Data)>> ->
+      #evt_stack_internal { type = Type,data = Data }
+  end.
+
+decode_evt_si_device(_Data) ->
+  case _Data of
+    <<?evt_si_device_bin(Event,Dev_id)>> ->
+      #evt_si_device { event = Event,dev_id = Dev_id }
+  end.
+
+decode(Evt,_Data) ->
+  case Evt of
+    ?EVT_STACK_INTERNAL -> decode_evt_stack_internal(_Data);
+    ?EVT_NUMBER_COMPLETED_BLOCKS -> decode_evt_amp_status_change(_Data);
+    ?EVT_AMP_STATUS_CHANGE -> decode_evt_amp_status_change(_Data);
+    ?EVT_DISCONNECT_LOGICAL_LINK_COMPLETE -> decode_evt_flow_spec_modify_complete(_Data);
+    ?EVT_FLOW_SPEC_MODIFY_COMPLETE -> decode_evt_flow_spec_modify_complete(_Data);
+    ?EVT_LOGICAL_LINK_COMPLETE -> decode_evt_logical_link_complete(_Data);
+    ?EVT_PHYSICAL_LINK_RECOVERY -> decode_evt_physical_link_recovery(_Data);
+    ?EVT_PHYSICAL_LINK_LOSS_EARLY_WARNING -> decode_evt_physical_link_loss_warning(_Data);
+    ?EVT_CHANNEL_SELECTED -> decode_evt_disconn_physical_link_complete(_Data);
+    ?EVT_DISCONNECT_PHYSICAL_LINK_COMPLETE -> decode_evt_disconn_physical_link_complete(_Data);
+    ?EVT_PHYSICAL_LINK_COMPLETE -> decode_evt_physical_link_complete(_Data);
+    ?EVT_LE_META_EVENT -> decode_evt_le_meta_event(_Data);
+    ?EVT_REMOTE_HOST_FEATURES_NOTIFY -> decode_evt_remote_host_features_notify(_Data);
+    ?EVT_KEYPRESS_NOTIFY -> decode_evt_keypress_notify(_Data);
+    ?EVT_USER_PASSKEY_NOTIFY -> decode_evt_user_passkey_notify(_Data);
+    ?EVT_ENHANCED_FLUSH_COMPLETE -> decode_evt_enhanced_flush_complete(_Data);
+    ?EVT_LINK_SUPERVISION_TIMEOUT_CHANGED -> decode_evt_link_supervision_timeout_changed(_Data);
+    ?EVT_SIMPLE_PAIRING_COMPLETE -> decode_evt_simple_pairing_complete(_Data);
+    ?EVT_REMOTE_OOB_DATA_REQUEST -> decode_evt_remote_oob_data_request(_Data);
+    ?EVT_USER_PASSKEY_REQUEST -> decode_evt_user_passkey_request(_Data);
+    ?EVT_USER_CONFIRM_REQUEST -> decode_evt_user_confirm_request(_Data);
+    ?EVT_IO_CAPABILITY_RESPONSE -> decode_evt_io_capability_response(_Data);
+    ?EVT_IO_CAPABILITY_REQUEST -> decode_evt_io_capability_request(_Data);
+    ?EVT_EXTENDED_INQUIRY_RESULT -> decode_evt_encryption_key_refresh_complete(_Data);
+    ?EVT_ENCRYPTION_KEY_REFRESH_COMPLETE -> decode_evt_encryption_key_refresh_complete(_Data);
+    ?EVT_SNIFF_SUBRATING -> decode_evt_sniff_subrating(_Data);
+    ?EVT_SYNC_CONN_CHANGED -> decode_evt_sync_conn_changed(_Data);
+    ?EVT_SYNC_CONN_COMPLETE -> decode_evt_sync_conn_complete(_Data);
+    ?EVT_INQUIRY_RESULT_WITH_RSSI -> decode_evt_read_remote_ext_features_complete(_Data);
+    ?EVT_READ_REMOTE_EXT_FEATURES_COMPLETE -> decode_evt_read_remote_ext_features_complete(_Data);
+    ?EVT_FLOW_SPEC_COMPLETE -> decode_evt_flow_spec_complete(_Data);
+    ?EVT_PSCAN_REP_MODE_CHANGE -> decode_evt_pscan_rep_mode_change(_Data);
+    ?EVT_QOS_VIOLATION -> decode_evt_qos_violation(_Data);
+    ?EVT_CONN_PTYPE_CHANGED -> decode_evt_conn_ptype_changed(_Data);
+    ?EVT_READ_CLOCK_OFFSET_COMPLETE -> decode_evt_read_clock_offset_complete(_Data);
+    ?EVT_MAX_SLOTS_CHANGE -> decode_evt_max_slots_change(_Data);
+    ?EVT_LOOPBACK_COMMAND -> decode_evt_data_buffer_overflow(_Data);
+    ?EVT_DATA_BUFFER_OVERFLOW -> decode_evt_data_buffer_overflow(_Data);
+    ?EVT_LINK_KEY_NOTIFY -> decode_evt_link_key_notify(_Data);
+    ?EVT_LINK_KEY_REQ -> decode_evt_link_key_req(_Data);
+    ?EVT_PIN_CODE_REQ -> decode_evt_pin_code_req(_Data);
+    ?EVT_RETURN_LINK_KEYS -> decode_evt_return_link_keys(_Data);
+    ?EVT_MODE_CHANGE -> decode_evt_mode_change(_Data);
+    ?EVT_NUM_COMP_PKTS -> decode_evt_num_comp_pkts(_Data);
+    ?EVT_ROLE_CHANGE -> decode_evt_role_change(_Data);
+    ?EVT_FLUSH_OCCURRED -> decode_evt_flush_occured(_Data);
+    ?EVT_HARDWARE_ERROR -> decode_evt_hardware_error(_Data);
+    ?EVT_CMD_STATUS -> decode_evt_cmd_status(_Data);
+    ?EVT_CMD_COMPLETE -> decode_evt_cmd_complete(_Data);
+    ?EVT_QOS_SETUP_COMPLETE -> decode_evt_qos_setup_complete(_Data);
+    ?EVT_READ_REMOTE_VERSION_COMPLETE -> decode_evt_read_remote_version_complete(_Data);
+    ?EVT_READ_REMOTE_FEATURES_COMPLETE -> decode_evt_read_remote_features_complete(_Data);
+    ?EVT_MASTER_LINK_KEY_COMPLETE -> decode_evt_master_link_key_complete(_Data);
+    ?EVT_CHANGE_CONN_LINK_KEY_COMPLETE -> decode_evt_change_conn_link_key_complete(_Data);
+    ?EVT_ENCRYPT_CHANGE -> decode_evt_encrypt_change(_Data);
+    ?EVT_REMOTE_NAME_REQ_COMPLETE -> decode_evt_remote_name_req_complete(_Data);
+    ?EVT_AUTH_COMPLETE -> decode_evt_auth_complete(_Data);
+    ?EVT_DISCONN_COMPLETE -> decode_evt_disconn_complete(_Data);
+    ?EVT_CONN_REQUEST -> decode_evt_conn_request(_Data);
+    ?EVT_INQUIRY_COMPLETE -> decode_inquiry_info(_Data);
+    ?EVT_INQUIRY_RESULT -> decode_inquiry_info(_Data);
+    ?EVT_CONN_COMPLETE -> decode_evt_conn_complete(_Data);
+    _ -> erlang:error(bad_event)
+  end.
+
+decode_le(Evt,_Data) ->
+  case Evt of
+    ?EVT_LE_LTK_REQUEST -> decode_evt_le_long_term_key_request(_Data);
+    ?EVT_LE_READ_REMOTE_USED_FEATURES_COMPLETE -> decode_evt_le_read_remote_used_features_complete(_Data);
+    ?EVT_LE_ADVERTISING_REPORT -> decode_evt_le_connection_update_complete(_Data);
+    ?EVT_LE_CONN_UPDATE_COMPLETE -> decode_evt_le_connection_update_complete(_Data);
+    ?EVT_LE_CONN_COMPLETE -> decode_evt_le_connection_complete(_Data);
+    _ -> erlang:error(bad_event)
+  end.
+
+le_test_end(Socket) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_TEST_END,<<>>,fun decode_le_test_end_rp/1).
+
+le_transmitter_test(Socket,Frequency,Length,Payload) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_TRANSMITTER_TEST,<<?le_transmitter_test_cp_bin(Frequency,Length,Payload)>>,undefined).
+
+le_receiver_test(Socket,Frequency) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_RECEIVER_TEST,<<?le_receiver_test_cp_bin(Frequency)>>,undefined).
+
+le_read_supported_states(Socket) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_READ_SUPPORTED_STATES,<<>>,fun decode_le_read_supported_states_rp/1).
+
+le_ltk_neg_reply(Socket,Handle) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_LTK_NEG_REPLY,<<?le_ltk_neg_reply_cp_bin(Handle)>>,fun decode_le_ltk_neg_reply_rp/1).
+
+le_ltk_reply(Socket,Handle,Key) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_LTK_REPLY,<<?le_ltk_reply_cp_bin(Handle,Key)>>,fun decode_le_ltk_reply_rp/1).
+
+le_start_encryption(Socket,Handle,Random,Diversifier,Key) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_START_ENCRYPTION,<<?le_start_encryption_cp_bin(Handle,Random,Diversifier,Key)>>,undefined).
+
+le_rand(Socket) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_RAND,<<>>,fun decode_le_rand_rp/1).
+
+le_encrypt(Socket,Key,Plaintext) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_ENCRYPT,<<?le_encrypt_cp_bin(Key,Plaintext)>>,fun decode_le_encrypt_rp/1).
+
+le_read_remote_used_features(Socket,Handle) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_READ_REMOTE_USED_FEATURES,<<?le_read_remote_used_features_cp_bin(Handle)>>,undefined).
+
+le_read_channel_map(Socket,Handle) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_READ_CHANNEL_MAP,<<?le_read_channel_map_cp_bin(Handle)>>,fun decode_le_read_channel_map_rp/1).
+
+le_set_host_channel_classification(Socket,Map) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_SET_HOST_CHANNEL_CLASSIFICATION,<<?le_set_host_channel_classification_cp_bin(Map)>>,undefined).
+
+le_conn_update(Socket) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_CONN_UPDATE,<<>>,undefined).
+
+le_remove_device_from_white_list(Socket,Bdaddr_type,Bdaddr) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_REMOVE_DEVICE_FROM_WHITE_LIST,<<?le_remove_device_from_white_list_cp_bin(Bdaddr_type,Bdaddr)>>,undefined).
+
+le_add_device_to_white_list(Socket,Bdaddr_type,Bdaddr) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_ADD_DEVICE_TO_WHITE_LIST,<<?le_add_device_to_white_list_cp_bin(Bdaddr_type,Bdaddr)>>,undefined).
+
+le_clear_white_list(Socket) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_CLEAR_WHITE_LIST,<<>>,undefined).
+
+le_read_white_list_size(Socket) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_READ_WHITE_LIST_SIZE,<<>>,fun decode_le_read_white_list_size_rp/1).
+
+le_create_conn_cancel(Socket) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_CREATE_CONN_CANCEL,<<>>,undefined).
+
+le_create_conn(Socket) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_CREATE_CONN,<<>>,undefined).
+
+le_set_scan_enable(Socket,Enable,Filter_dup) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_SET_SCAN_ENABLE,<<?le_set_scan_enable_cp_bin(Enable,Filter_dup)>>,undefined).
+
+le_set_scan_parameters(Socket,Type,Interval,Window,Own_bdaddr_type,Filter) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_SET_SCAN_PARAMETERS,<<?le_set_scan_parameters_cp_bin(Type,Interval,Window,Own_bdaddr_type,Filter)>>,undefined).
+
+le_set_advertise_enable(Socket,Enable) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_SET_ADVERTISE_ENABLE,<<?le_set_advertise_enable_cp_bin(Enable)>>,undefined).
+
+le_set_scan_response_data(Socket,Length,Data) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_SET_SCAN_RESPONSE_DATA,<<?le_set_scan_response_data_cp_bin(Length,Data)>>,undefined).
+
+le_set_advertising_data(Socket,Length,Data) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_SET_ADVERTISING_DATA,<<?le_set_advertising_data_cp_bin(Length,Data)>>,undefined).
+
+le_read_advertising_channel_tx_power(Socket) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_READ_ADVERTISING_CHANNEL_TX_POWER,<<>>,fun decode_le_read_advertising_channel_tx_power_rp/1).
+
+le_set_advertising_parameters(Socket,Min_interval,Max_interval,Advtype,Own_bdaddr_type,Direct_bdaddr_type,Direct_bdaddr,Chan_map,Filter) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_SET_ADVERTISING_PARAMETERS,<<?le_set_advertising_parameters_cp_bin(Min_interval,Max_interval,Advtype,Own_bdaddr_type,Direct_bdaddr_type,Direct_bdaddr,Chan_map,Filter)>>,undefined).
+
+le_set_random_address(Socket,Bdaddr) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_SET_RANDOM_ADDRESS,<<?le_set_random_address_cp_bin(Bdaddr)>>,undefined).
+
+le_read_local_supported_features(Socket) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_READ_LOCAL_SUPPORTED_FEATURES,<<>>,fun decode_le_read_local_supported_features_rp/1).
+
+le_read_buffer_size(Socket) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_READ_BUFFER_SIZE,<<>>,fun decode_le_read_buffer_size_rp/1).
+
+le_set_event_mask(Socket,Mask) ->
+  hci_socket:call(Socket,?OGF_LE_CTL,?OCF_LE_SET_EVENT_MASK,<<?le_set_event_mask_cp_bin(Mask)>>,undefined).
+
+write_simple_pairing_debug_mode(Socket,Mode) ->
+  hci_socket:call(Socket,?OGF_TESTING_CMD,?OCF_WRITE_SIMPLE_PAIRING_DEBUG_MODE,<<?write_simple_pairing_debug_mode_cp_bin(Mode)>>,fun decode_write_simple_pairing_debug_mode_rp/1).
+
+enable_device_under_test_mode(Socket) ->
+  hci_socket:call(Socket,?OGF_TESTING_CMD,?OCF_ENABLE_DEVICE_UNDER_TEST_MODE,<<>>,undefined).
+
+write_loopback_mode(Socket) ->
+  hci_socket:call(Socket,?OGF_TESTING_CMD,?OCF_WRITE_LOOPBACK_MODE,<<>>,undefined).
+
+read_loopback_mode(Socket) ->
+  hci_socket:call(Socket,?OGF_TESTING_CMD,?OCF_READ_LOOPBACK_MODE,<<>>,undefined).
+
+write_remote_amp_assoc(Socket,Handle,Length_so_far,Assoc_length,Fragment) ->
+  hci_socket:call(Socket,?OGF_STATUS_PARAM,?OCF_WRITE_REMOTE_AMP_ASSOC,<<?write_remote_amp_assoc_cp_bin(Handle,Length_so_far,Assoc_length,Fragment)>>,fun decode_write_remote_amp_assoc_rp/1).
+
+read_local_amp_assoc(Socket,Handle,Len_so_far,Max_len) ->
+  hci_socket:call(Socket,?OGF_STATUS_PARAM,?OCF_READ_LOCAL_AMP_ASSOC,<<?read_local_amp_assoc_cp_bin(Handle,Len_so_far,Max_len)>>,fun decode_read_local_amp_assoc_rp/1).
+
+read_local_amp_info(Socket) ->
+  hci_socket:call(Socket,?OGF_STATUS_PARAM,?OCF_READ_LOCAL_AMP_INFO,<<>>,fun decode_read_local_amp_info_rp/1).
+
+read_clock(Socket,Handle,Which_clock) ->
+  hci_socket:call(Socket,?OGF_STATUS_PARAM,?OCF_READ_CLOCK,<<?read_clock_cp_bin(Handle,Which_clock)>>,fun decode_read_clock_rp/1).
+
+read_afh_map(Socket) ->
+  hci_socket:call(Socket,?OGF_STATUS_PARAM,?OCF_READ_AFH_MAP,<<>>,fun decode_read_afh_map_rp/1).
+
+read_rssi(Socket) ->
+  hci_socket:call(Socket,?OGF_STATUS_PARAM,?OCF_READ_RSSI,<<>>,fun decode_read_rssi_rp/1).
+
+read_link_quality(Socket) ->
+  hci_socket:call(Socket,?OGF_STATUS_PARAM,?OCF_READ_LINK_QUALITY,<<>>,fun decode_read_link_quality_rp/1).
+
+reset_failed_contact_counter(Socket) ->
+  hci_socket:call(Socket,?OGF_STATUS_PARAM,?OCF_RESET_FAILED_CONTACT_COUNTER,<<>>,fun decode_reset_failed_contact_counter_rp/1).
+
+read_failed_contact_counter(Socket) ->
+  hci_socket:call(Socket,?OGF_STATUS_PARAM,?OCF_READ_FAILED_CONTACT_COUNTER,<<>>,fun decode_read_failed_contact_counter_rp/1).
+
+read_bd_addr(Socket) ->
+  hci_socket:call(Socket,?OGF_INFO_PARAM,?OCF_READ_BD_ADDR,<<>>,fun decode_read_bd_addr_rp/1).
+
+read_country_code(Socket) ->
+  hci_socket:call(Socket,?OGF_INFO_PARAM,?OCF_READ_COUNTRY_CODE,<<>>,undefined).
+
+read_buffer_size(Socket) ->
+  hci_socket:call(Socket,?OGF_INFO_PARAM,?OCF_READ_BUFFER_SIZE,<<>>,fun decode_read_buffer_size_rp/1).
+
+read_local_ext_features(Socket,Page_num) ->
+  hci_socket:call(Socket,?OGF_INFO_PARAM,?OCF_READ_LOCAL_EXT_FEATURES,<<?read_local_ext_features_cp_bin(Page_num)>>,fun decode_read_local_ext_features_rp/1).
+
+read_local_features(Socket) ->
+  hci_socket:call(Socket,?OGF_INFO_PARAM,?OCF_READ_LOCAL_FEATURES,<<>>,fun decode_read_local_features_rp/1).
+
+read_local_commands(Socket) ->
+  hci_socket:call(Socket,?OGF_INFO_PARAM,?OCF_READ_LOCAL_COMMANDS,<<>>,fun decode_read_local_commands_rp/1).
+
+read_local_version(Socket) ->
+  hci_socket:call(Socket,?OGF_INFO_PARAM,?OCF_READ_LOCAL_VERSION,<<>>,fun decode_read_local_version_rp/1).
+
+write_le_host_supported(Socket,Le,Simul) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_LE_HOST_SUPPORTED,<<?write_le_host_supported_cp_bin(Le,Simul)>>,undefined).
+
+read_le_host_supported(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_LE_HOST_SUPPORTED,<<>>,fun decode_read_le_host_supported_rp/1).
+
+write_best_effort_flush_timeout(Socket,Handle,Timeout) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_BEST_EFFORT_FLUSH_TIMEOUT,<<?write_best_effort_flush_timeout_cp_bin(Handle,Timeout)>>,fun decode_write_best_effort_flush_timeout_rp/1).
+
+read_best_effort_flush_timeout(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_BEST_EFFORT_FLUSH_TIMEOUT,<<>>,fun decode_read_best_effort_flush_timeout_rp/1).
+
+read_enhanced_transmit_power_level(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_ENHANCED_TRANSMIT_POWER_LEVEL,<<>>,fun decode_read_enhanced_transmit_power_level_rp/1).
+
+write_flow_control_mode(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_FLOW_CONTROL_MODE,<<>>,undefined).
+
+read_flow_control_mode(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_FLOW_CONTROL_MODE,<<>>,undefined).
+
+write_location_data(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_LOCATION_DATA,<<>>,undefined).
+
+read_location_data(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_LOCATION_DATA,<<>>,undefined).
+
+set_event_mask_page_2(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_SET_EVENT_MASK_PAGE_2,<<>>,undefined).
+
+write_logical_link_accept_timeout(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_LOGICAL_LINK_ACCEPT_TIMEOUT,<<>>,undefined).
+
+read_logical_link_accept_timeout(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_LOGICAL_LINK_ACCEPT_TIMEOUT,<<>>,undefined).
+
+send_keypress_notify(Socket,Bdaddr,Type) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_SEND_KEYPRESS_NOTIFY,<<?send_keypress_notify_cp_bin(Bdaddr,Type)>>,fun decode_send_keypress_notify_rp/1).
+
+enhanced_flush(Socket,Handle,Type) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_ENHANCED_FLUSH,<<?enhanced_flush_cp_bin(Handle,Type)>>,undefined).
+
+write_default_error_data_reporting(Socket,Reporting) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_DEFAULT_ERROR_DATA_REPORTING,<<?write_default_error_data_reporting_cp_bin(Reporting)>>,fun decode_write_default_error_data_reporting_rp/1).
+
+read_default_error_data_reporting(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_DEFAULT_ERROR_DATA_REPORTING,<<>>,fun decode_read_default_error_data_reporting_rp/1).
+
+write_inquiry_transmit_power_level(Socket,Level) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_INQUIRY_TRANSMIT_POWER_LEVEL,<<?write_inquiry_transmit_power_level_cp_bin(Level)>>,fun decode_write_inquiry_transmit_power_level_rp/1).
+
+read_inquiry_transmit_power_level(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_INQUIRY_TRANSMIT_POWER_LEVEL,<<>>,fun decode_read_inquiry_transmit_power_level_rp/1).
+
+read_inq_response_tx_power_level(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_INQ_RESPONSE_TX_POWER_LEVEL,<<>>,fun decode_read_inq_response_tx_power_level_rp/1).
+
+read_local_oob_data(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_LOCAL_OOB_DATA,<<>>,fun decode_read_local_oob_data_rp/1).
+
+write_simple_pairing_mode(Socket,Mode) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_SIMPLE_PAIRING_MODE,<<?write_simple_pairing_mode_cp_bin(Mode)>>,fun decode_write_simple_pairing_mode_rp/1).
+
+read_simple_pairing_mode(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_SIMPLE_PAIRING_MODE,<<>>,fun decode_read_simple_pairing_mode_rp/1).
+
+refresh_encryption_key(Socket,Handle) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_REFRESH_ENCRYPTION_KEY,<<?refresh_encryption_key_cp_bin(Handle)>>,fun decode_refresh_encryption_key_rp/1).
+
+write_ext_inquiry_response(Socket,Fec,Data) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_EXT_INQUIRY_RESPONSE,<<?write_ext_inquiry_response_cp_bin(Fec,Data)>>,fun decode_write_ext_inquiry_response_rp/1).
+
+read_ext_inquiry_response(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_EXT_INQUIRY_RESPONSE,<<>>,fun decode_read_ext_inquiry_response_rp/1).
+
+write_afh_mode(Socket,Mode) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_AFH_MODE,<<?write_afh_mode_cp_bin(Mode)>>,fun decode_write_afh_mode_rp/1).
+
+read_afh_mode(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_AFH_MODE,<<>>,fun decode_read_afh_mode_rp/1).
+
+write_page_scan_type(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_PAGE_SCAN_TYPE,<<>>,undefined).
+
+read_page_scan_type(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_PAGE_SCAN_TYPE,<<>>,undefined).
+
+write_inquiry_mode(Socket,Mode) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_INQUIRY_MODE,<<?write_inquiry_mode_cp_bin(Mode)>>,fun decode_write_inquiry_mode_rp/1).
+
+read_inquiry_mode(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_INQUIRY_MODE,<<>>,fun decode_read_inquiry_mode_rp/1).
+
+write_inquiry_scan_type(Socket,Type) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_INQUIRY_SCAN_TYPE,<<?write_inquiry_scan_type_cp_bin(Type)>>,fun decode_write_inquiry_scan_type_rp/1).
+
+read_inquiry_scan_type(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_INQUIRY_SCAN_TYPE,<<>>,fun decode_read_inquiry_scan_type_rp/1).
+
+set_afh_classification(Socket,Map) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_SET_AFH_CLASSIFICATION,<<?set_afh_classification_cp_bin(Map)>>,fun decode_set_afh_classification_rp/1).
+
+write_page_scan_mode(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_PAGE_SCAN_MODE,<<>>,undefined).
+
+read_page_scan_mode(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_PAGE_SCAN_MODE,<<>>,undefined).
+
+write_page_scan_period_mode(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_PAGE_SCAN_PERIOD_MODE,<<>>,undefined).
+
+read_page_scan_period_mode(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_PAGE_SCAN_PERIOD_MODE,<<>>,undefined).
+
+write_current_iac_lap(Socket,Num_current_iac,Lap) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_CURRENT_IAC_LAP,<<?write_current_iac_lap_cp_bin(Num_current_iac,Lap)>>,undefined).
+
+read_current_iac_lap(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_CURRENT_IAC_LAP,<<>>,fun decode_read_current_iac_lap_rp/1).
+
+read_num_supported_iac(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_NUM_SUPPORTED_IAC,<<>>,undefined).
+
+write_link_supervision_timeout(Socket,Handle,Timeout) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_LINK_SUPERVISION_TIMEOUT,<<?write_link_supervision_timeout_cp_bin(Handle,Timeout)>>,fun decode_write_link_supervision_timeout_rp/1).
+
+read_link_supervision_timeout(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_LINK_SUPERVISION_TIMEOUT,<<>>,fun decode_read_link_supervision_timeout_rp/1).
+
+host_num_comp_pkts(Socket,Num_hndl) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_HOST_NUM_COMP_PKTS,<<?host_num_comp_pkts_cp_bin(Num_hndl)>>,undefined).
+
+host_buffer_size(Socket,Acl_mtu,Sco_mtu,Acl_max_pkt,Sco_max_pkt) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_HOST_BUFFER_SIZE,<<?host_buffer_size_cp_bin(Acl_mtu,Sco_mtu,Acl_max_pkt,Sco_max_pkt)>>,undefined).
+
+set_controller_to_host_fc(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_SET_CONTROLLER_TO_HOST_FC,<<>>,undefined).
+
+write_sync_flow_enable(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_SYNC_FLOW_ENABLE,<<>>,undefined).
+
+read_sync_flow_enable(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_SYNC_FLOW_ENABLE,<<>>,undefined).
+
+read_transmit_power_level(Socket,Handle,Type) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_TRANSMIT_POWER_LEVEL,<<?read_transmit_power_level_cp_bin(Handle,Type)>>,fun decode_read_transmit_power_level_rp/1).
+
+write_hold_mode_activity(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_HOLD_MODE_ACTIVITY,<<>>,undefined).
+
+read_hold_mode_activity(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_HOLD_MODE_ACTIVITY,<<>>,undefined).
+
+write_num_broadcast_retrans(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_NUM_BROADCAST_RETRANS,<<>>,undefined).
+
+read_num_broadcast_retrans(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_NUM_BROADCAST_RETRANS,<<>>,undefined).
+
+write_automatic_flush_timeout(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_AUTOMATIC_FLUSH_TIMEOUT,<<>>,undefined).
+
+read_automatic_flush_timeout(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_AUTOMATIC_FLUSH_TIMEOUT,<<>>,undefined).
+
+write_voice_setting(Socket,Voice_setting) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_VOICE_SETTING,<<?write_voice_setting_cp_bin(Voice_setting)>>,undefined).
+
+read_voice_setting(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_VOICE_SETTING,<<>>,fun decode_read_voice_setting_rp/1).
+
+write_class_of_dev(Socket,Dev_class) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_CLASS_OF_DEV,<<?write_class_of_dev_cp_bin(Dev_class)>>,undefined).
+
+read_class_of_dev(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_CLASS_OF_DEV,<<>>,fun decode_read_class_of_dev_rp/1).
+
+write_encrypt_mode(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_ENCRYPT_MODE,<<>>,undefined).
+
+read_encrypt_mode(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_ENCRYPT_MODE,<<>>,undefined).
+
+write_auth_enable(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_AUTH_ENABLE,<<>>,undefined).
+
+read_auth_enable(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_AUTH_ENABLE,<<>>,undefined).
+
+write_inq_activity(Socket,Interval,Window) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_INQ_ACTIVITY,<<?write_inq_activity_cp_bin(Interval,Window)>>,undefined).
+
+read_inq_activity(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_INQ_ACTIVITY,<<>>,fun decode_read_inq_activity_rp/1).
+
+write_page_activity(Socket,Interval,Window) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_PAGE_ACTIVITY,<<?write_page_activity_cp_bin(Interval,Window)>>,undefined).
+
+read_page_activity(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_PAGE_ACTIVITY,<<>>,fun decode_read_page_activity_rp/1).
+
+write_scan_enable(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_SCAN_ENABLE,<<>>,undefined).
+
+read_scan_enable(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_SCAN_ENABLE,<<>>,fun decode_read_scan_enable_rp/1).
+
+write_page_timeout(Socket,Timeout) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_PAGE_TIMEOUT,<<?write_page_timeout_cp_bin(Timeout)>>,undefined).
+
+read_page_timeout(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_PAGE_TIMEOUT,<<>>,fun decode_read_page_timeout_rp/1).
+
+write_conn_accept_timeout(Socket,Timeout) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_CONN_ACCEPT_TIMEOUT,<<?write_conn_accept_timeout_cp_bin(Timeout)>>,undefined).
+
+read_conn_accept_timeout(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_CONN_ACCEPT_TIMEOUT,<<>>,fun decode_read_conn_accept_timeout_rp/1).
+
+read_local_name(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_LOCAL_NAME,<<>>,fun decode_read_local_name_rp/1).
+
+change_local_name(Socket,Name) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_CHANGE_LOCAL_NAME,<<?change_local_name_cp_bin(Name)>>,undefined).
+
+delete_stored_link_key(Socket,Bdaddr,Delete_all) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_DELETE_STORED_LINK_KEY,<<?delete_stored_link_key_cp_bin(Bdaddr,Delete_all)>>,fun decode_delete_stored_link_key_rp/1).
+
+write_stored_link_key(Socket,Num_keys) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_STORED_LINK_KEY,<<?write_stored_link_key_cp_bin(Num_keys)>>,fun decode_write_stored_link_key_rp/1).
+
+read_stored_link_key(Socket,Bdaddr,Read_all) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_STORED_LINK_KEY,<<?read_stored_link_key_cp_bin(Bdaddr,Read_all)>>,fun decode_read_stored_link_key_rp/1).
+
+create_new_unit_key(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_CREATE_NEW_UNIT_KEY,<<>>,undefined).
+
+write_pin_type(Socket,Pin_type) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_WRITE_PIN_TYPE,<<?write_pin_type_cp_bin(Pin_type)>>,undefined).
+
+read_pin_type(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_READ_PIN_TYPE,<<>>,fun decode_read_pin_type_rp/1).
+
+flush(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_FLUSH,<<>>,undefined).
+
+set_event_flt(Socket,Flt_type,Cond_type,Condition) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_SET_EVENT_FLT,<<?set_event_flt_cp_bin(Flt_type,Cond_type,Condition)>>,undefined).
+
+reset(Socket) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_RESET,<<>>,undefined).
+
+set_event_mask(Socket,Mask) ->
+  hci_socket:call(Socket,?OGF_HOST_CTL,?OCF_SET_EVENT_MASK,<<?set_event_mask_cp_bin(Mask)>>,undefined).
+
+sniff_subrating(Socket,Handle,Max_latency,Min_remote_timeout,Min_local_timeout) ->
+  hci_socket:call(Socket,?OGF_LINK_POLICY,?OCF_SNIFF_SUBRATING,<<?sniff_subrating_cp_bin(Handle,Max_latency,Min_remote_timeout,Min_local_timeout)>>,undefined).
+
+flow_specification(Socket) ->
+  hci_socket:call(Socket,?OGF_LINK_POLICY,?OCF_FLOW_SPECIFICATION,<<>>,undefined).
+
+write_default_link_policy(Socket) ->
+  hci_socket:call(Socket,?OGF_LINK_POLICY,?OCF_WRITE_DEFAULT_LINK_POLICY,<<>>,undefined).
+
+read_default_link_policy(Socket) ->
+  hci_socket:call(Socket,?OGF_LINK_POLICY,?OCF_READ_DEFAULT_LINK_POLICY,<<>>,undefined).
+
+write_link_policy(Socket,Handle,Policy) ->
+  hci_socket:call(Socket,?OGF_LINK_POLICY,?OCF_WRITE_LINK_POLICY,<<?write_link_policy_cp_bin(Handle,Policy)>>,fun decode_write_link_policy_rp/1).
+
+read_link_policy(Socket,Handle) ->
+  hci_socket:call(Socket,?OGF_LINK_POLICY,?OCF_READ_LINK_POLICY,<<?read_link_policy_cp_bin(Handle)>>,fun decode_read_link_policy_rp/1).
+
+switch_role(Socket,Bdaddr,Role) ->
+  hci_socket:call(Socket,?OGF_LINK_POLICY,?OCF_SWITCH_ROLE,<<?switch_role_cp_bin(Bdaddr,Role)>>,undefined).
+
+role_discovery(Socket,Handle) ->
+  hci_socket:call(Socket,?OGF_LINK_POLICY,?OCF_ROLE_DISCOVERY,<<?role_discovery_cp_bin(Handle)>>,fun decode_role_discovery_rp/1).
+
+qos_setup(Socket,Handle,Flags,Qos) ->
+  hci_socket:call(Socket,?OGF_LINK_POLICY,?OCF_QOS_SETUP,<<?qos_setup_cp_bin(Handle,Flags,Qos)>>,undefined).
+
+exit_park_mode(Socket,Handle) ->
+  hci_socket:call(Socket,?OGF_LINK_POLICY,?OCF_EXIT_PARK_MODE,<<?exit_park_mode_cp_bin(Handle)>>,undefined).
+
+park_mode(Socket,Handle,Max_interval,Min_interval) ->
+  hci_socket:call(Socket,?OGF_LINK_POLICY,?OCF_PARK_MODE,<<?park_mode_cp_bin(Handle,Max_interval,Min_interval)>>,undefined).
+
+exit_sniff_mode(Socket,Handle) ->
+  hci_socket:call(Socket,?OGF_LINK_POLICY,?OCF_EXIT_SNIFF_MODE,<<?exit_sniff_mode_cp_bin(Handle)>>,undefined).
+
+sniff_mode(Socket,Handle,Max_interval,Min_interval,Attempt,Timeout) ->
+  hci_socket:call(Socket,?OGF_LINK_POLICY,?OCF_SNIFF_MODE,<<?sniff_mode_cp_bin(Handle,Max_interval,Min_interval,Attempt,Timeout)>>,undefined).
+
+hold_mode(Socket,Handle,Max_interval,Min_interval) ->
+  hci_socket:call(Socket,?OGF_LINK_POLICY,?OCF_HOLD_MODE,<<?hold_mode_cp_bin(Handle,Max_interval,Min_interval)>>,undefined).
+
+flow_spec_modify(Socket) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_FLOW_SPEC_MODIFY,<<>>,undefined).
+
+logical_link_cancel(Socket) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_LOGICAL_LINK_CANCEL,<<>>,undefined).
+
+disconnect_logical_link(Socket,Handle) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_DISCONNECT_LOGICAL_LINK,<<?disconnect_logical_link_cp_bin(Handle)>>,undefined).
+
+accept_logical_link(Socket) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_ACCEPT_LOGICAL_LINK,<<>>,undefined).
+
+create_logical_link(Socket,Handle,Tx_flow,Rx_flow) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_CREATE_LOGICAL_LINK,<<?create_logical_link_cp_bin(Handle,Tx_flow,Rx_flow)>>,undefined).
+
+disconnect_physical_link(Socket,Handle,Reason) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_DISCONNECT_PHYSICAL_LINK,<<?disconnect_physical_link_cp_bin(Handle,Reason)>>,undefined).
+
+accept_physical_link(Socket) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_ACCEPT_PHYSICAL_LINK,<<>>,undefined).
+
+create_physical_link(Socket,Handle,Key_length,Key_type,Key) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_CREATE_PHYSICAL_LINK,<<?create_physical_link_cp_bin(Handle,Key_length,Key_type,Key)>>,undefined).
+
+io_capability_neg_reply(Socket,Bdaddr,Reason) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_IO_CAPABILITY_NEG_REPLY,<<?io_capability_neg_reply_cp_bin(Bdaddr,Reason)>>,undefined).
+
+remote_oob_data_neg_reply(Socket) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_REMOTE_OOB_DATA_NEG_REPLY,<<>>,undefined).
+
+remote_oob_data_reply(Socket,Bdaddr,Hash,Randomizer) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_REMOTE_OOB_DATA_REPLY,<<?remote_oob_data_reply_cp_bin(Bdaddr,Hash,Randomizer)>>,undefined).
+
+user_passkey_neg_reply(Socket) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_USER_PASSKEY_NEG_REPLY,<<>>,undefined).
+
+user_passkey_reply(Socket,Bdaddr,Passkey) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_USER_PASSKEY_REPLY,<<?user_passkey_reply_cp_bin(Bdaddr,Passkey)>>,undefined).
+
+user_confirm_neg_reply(Socket) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_USER_CONFIRM_NEG_REPLY,<<>>,undefined).
+
+user_confirm_reply(Socket,Bdaddr) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_USER_CONFIRM_REPLY,<<?user_confirm_reply_cp_bin(Bdaddr)>>,undefined).
+
+io_capability_reply(Socket,Bdaddr,Capability,Oob_data,Authentication) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_IO_CAPABILITY_REPLY,<<?io_capability_reply_cp_bin(Bdaddr,Capability,Oob_data,Authentication)>>,undefined).
+
+reject_sync_conn_req(Socket,Bdaddr,Reason) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_REJECT_SYNC_CONN_REQ,<<?reject_sync_conn_req_cp_bin(Bdaddr,Reason)>>,undefined).
+
+accept_sync_conn_req(Socket,Bdaddr,Tx_bandwith,Rx_bandwith,Max_latency,Voice_setting,Retrans_effort,Pkt_type) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_ACCEPT_SYNC_CONN_REQ,<<?accept_sync_conn_req_cp_bin(Bdaddr,Tx_bandwith,Rx_bandwith,Max_latency,Voice_setting,Retrans_effort,Pkt_type)>>,undefined).
+
+setup_sync_conn(Socket,Handle,Tx_bandwith,Rx_bandwith,Max_latency,Voice_setting,Retrans_effort,Pkt_type) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_SETUP_SYNC_CONN,<<?setup_sync_conn_cp_bin(Handle,Tx_bandwith,Rx_bandwith,Max_latency,Voice_setting,Retrans_effort,Pkt_type)>>,undefined).
+
+read_lmp_handle(Socket) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_READ_LMP_HANDLE,<<>>,undefined).
+
+read_clock_offset(Socket,Handle) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_READ_CLOCK_OFFSET,<<?read_clock_offset_cp_bin(Handle)>>,undefined).
+
+read_remote_version(Socket,Handle) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_READ_REMOTE_VERSION,<<?read_remote_version_cp_bin(Handle)>>,undefined).
+
+read_remote_ext_features(Socket,Handle,Page_num) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_READ_REMOTE_EXT_FEATURES,<<?read_remote_ext_features_cp_bin(Handle,Page_num)>>,undefined).
+
+read_remote_features(Socket,Handle) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_READ_REMOTE_FEATURES,<<?read_remote_features_cp_bin(Handle)>>,undefined).
+
+remote_name_req_cancel(Socket,Bdaddr) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_REMOTE_NAME_REQ_CANCEL,<<?remote_name_req_cancel_cp_bin(Bdaddr)>>,undefined).
+
+remote_name_req(Socket,Bdaddr,Pscan_rep_mode,Pscan_mode,Clock_offset) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_REMOTE_NAME_REQ,<<?remote_name_req_cp_bin(Bdaddr,Pscan_rep_mode,Pscan_mode,Clock_offset)>>,undefined).
+
+master_link_key(Socket,Key_flag) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_MASTER_LINK_KEY,<<?master_link_key_cp_bin(Key_flag)>>,undefined).
+
+change_conn_link_key(Socket,Handle) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_CHANGE_CONN_LINK_KEY,<<?change_conn_link_key_cp_bin(Handle)>>,undefined).
+
+set_conn_encrypt(Socket,Handle,Encrypt) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_SET_CONN_ENCRYPT,<<?set_conn_encrypt_cp_bin(Handle,Encrypt)>>,undefined).
+
+auth_requested(Socket,Handle) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_AUTH_REQUESTED,<<?auth_requested_cp_bin(Handle)>>,undefined).
+
+set_conn_ptype(Socket,Handle,Pkt_type) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_SET_CONN_PTYPE,<<?set_conn_ptype_cp_bin(Handle,Pkt_type)>>,undefined).
+
+pin_code_neg_reply(Socket) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_PIN_CODE_NEG_REPLY,<<>>,undefined).
+
+pin_code_reply(Socket,Bdaddr,Pin_len,Pin_code) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_PIN_CODE_REPLY,<<?pin_code_reply_cp_bin(Bdaddr,Pin_len,Pin_code)>>,undefined).
+
+link_key_neg_reply(Socket,Bdaddr) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_LINK_KEY_NEG_REPLY,<<?link_key_neg_reply_cp_bin(Bdaddr)>>,undefined).
+
+link_key_reply(Socket,Bdaddr,Link_key) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_LINK_KEY_REPLY,<<?link_key_reply_cp_bin(Bdaddr,Link_key)>>,undefined).
+
+reject_conn_req(Socket,Bdaddr,Reason) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_REJECT_CONN_REQ,<<?reject_conn_req_cp_bin(Bdaddr,Reason)>>,undefined).
+
+accept_conn_req(Socket,Bdaddr,Role) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_ACCEPT_CONN_REQ,<<?accept_conn_req_cp_bin(Bdaddr,Role)>>,undefined).
+
+create_conn_cancel(Socket,Bdaddr) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_CREATE_CONN_CANCEL,<<?create_conn_cancel_cp_bin(Bdaddr)>>,undefined).
+
+add_sco(Socket,Handle,Pkt_type) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_ADD_SCO,<<?add_sco_cp_bin(Handle,Pkt_type)>>,undefined).
+
+disconnect(Socket,Handle,Reason) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_DISCONNECT,<<?disconnect_cp_bin(Handle,Reason)>>,undefined).
+
+create_conn(Socket,Bdaddr,Pkt_type,Pscan_rep_mode,Pscan_mode,Clock_offset,Role_switch) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_CREATE_CONN,<<?create_conn_cp_bin(Bdaddr,Pkt_type,Pscan_rep_mode,Pscan_mode,Clock_offset,Role_switch)>>,undefined).
+
+exit_periodic_inquiry(Socket) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_EXIT_PERIODIC_INQUIRY,<<>>,undefined).
+
+periodic_inquiry(Socket,Max_period,Min_period,Lap,Length,Num_rsp) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_PERIODIC_INQUIRY,<<?periodic_inquiry_cp_bin(Max_period,Min_period,Lap,Length,Num_rsp)>>,undefined).
+
+inquiry_cancel(Socket) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_INQUIRY_CANCEL,<<>>,undefined).
+
+inquiry(Socket,Lap,Length,Num_rsp) ->
+  hci_socket:call(Socket,?OGF_LINK_CTL,?OCF_INQUIRY,<<?inquiry_cp_bin(Lap,Length,Num_rsp)>>,undefined).
+
diff --git a/deps/bt/src/hci_api.hrl b/deps/bt/src/hci_api.hrl
new file mode 100644
index 0000000..4cf89d6
--- /dev/null
+++ b/deps/bt/src/hci_api.hrl
@@ -0,0 +1,1935 @@
+%% -*- erlang -*-
+-ifndef(__HCI_HRL__).
+-define(__HCI_HRL__,true).
+
+
+-define(HCI_MAX_DEV, 16).
+-define(HCI_MAX_ACL_SIZE, 1024).
+-define(HCI_MAX_SCO_SIZE, 255).
+-define(HCI_MAX_EVENT_SIZE, 260).
+-define(HCI_MAX_FRAME_SIZE, (?HCI_MAX_ACL_SIZE + 4)).
+-define(HCI_DEV_REG, 1).
+-define(HCI_DEV_UNREG, 2).
+-define(HCI_DEV_UP, 3).
+-define(HCI_DEV_DOWN, 4).
+-define(HCI_DEV_SUSPEND, 5).
+-define(HCI_DEV_RESUME, 6).
+-define(HCI_UNKNOWN_COMMAND, 1).
+-define(HCI_NO_CONNECTION, 2).
+-define(HCI_HARDWARE_FAILURE, 3).
+-define(HCI_PAGE_TIMEOUT, 4).
+-define(HCI_AUTHENTICATION_FAILURE, 5).
+-define(HCI_PIN_OR_KEY_MISSING, 6).
+-define(HCI_MEMORY_FULL, 7).
+-define(HCI_CONNECTION_TIMEOUT, 8).
+-define(HCI_MAX_NUMBER_OF_CONNECTIONS, 9).
+-define(HCI_MAX_NUMBER_OF_SCO_CONNECTIONS, 10).
+-define(HCI_ACL_CONNECTION_EXISTS, 11).
+-define(HCI_COMMAND_DISALLOWED, 12).
+-define(HCI_REJECTED_LIMITED_RESOURCES, 13).
+-define(HCI_REJECTED_SECURITY, 14).
+-define(HCI_REJECTED_PERSONAL, 15).
+-define(HCI_HOST_TIMEOUT, 16).
+-define(HCI_UNSUPPORTED_FEATURE, 17).
+-define(HCI_INVALID_PARAMETERS, 18).
+-define(HCI_OE_USER_ENDED_CONNECTION, 19).
+-define(HCI_OE_LOW_RESOURCES, 20).
+-define(HCI_OE_POWER_OFF, 21).
+-define(HCI_CONNECTION_TERMINATED, 22).
+-define(HCI_REPEATED_ATTEMPTS, 23).
+-define(HCI_PAIRING_NOT_ALLOWED, 24).
+-define(HCI_UNKNOWN_LMP_PDU, 25).
+-define(HCI_UNSUPPORTED_REMOTE_FEATURE, 26).
+-define(HCI_SCO_OFFSET_REJECTED, 27).
+-define(HCI_SCO_INTERVAL_REJECTED, 28).
+-define(HCI_AIR_MODE_REJECTED, 29).
+-define(HCI_INVALID_LMP_PARAMETERS, 30).
+-define(HCI_UNSPECIFIED_ERROR, 31).
+-define(HCI_UNSUPPORTED_LMP_PARAMETER_VALUE, 32).
+-define(HCI_ROLE_CHANGE_NOT_ALLOWED, 33).
+-define(HCI_LMP_RESPONSE_TIMEOUT, 34).
+-define(HCI_LMP_ERROR_TRANSACTION_COLLISION, 35).
+-define(HCI_LMP_PDU_NOT_ALLOWED, 36).
+-define(HCI_ENCRYPTION_MODE_NOT_ACCEPTED, 37).
+-define(HCI_UNIT_LINK_KEY_USED, 38).
+-define(HCI_QOS_NOT_SUPPORTED, 39).
+-define(HCI_INSTANT_PASSED, 40).
+-define(HCI_PAIRING_NOT_SUPPORTED, 41).
+-define(HCI_TRANSACTION_COLLISION, 42).
+-define(HCI_QOS_UNACCEPTABLE_PARAMETER, 44).
+-define(HCI_QOS_REJECTED, 45).
+-define(HCI_CLASSIFICATION_NOT_SUPPORTED, 46).
+-define(HCI_INSUFFICIENT_SECURITY, 47).
+-define(HCI_PARAMETER_OUT_OF_RANGE, 48).
+-define(HCI_ROLE_SWITCH_PENDING, 50).
+-define(HCI_SLOT_VIOLATION, 52).
+-define(HCI_ROLE_SWITCH_FAILED, 53).
+-define(HCI_EIR_TOO_LARGE, 54).
+-define(HCI_SIMPLE_PAIRING_NOT_SUPPORTED, 55).
+-define(HCI_HOST_BUSY_PAIRING, 56).
+-define(OGF_LINK_CTL, 1).
+-define(OCF_INQUIRY, 1).
+-record(inquiry_cp, {
+  lap,
+  length,
+  num_rsp
+}).
+-define(inquiry_cp_bin(Lap,Length,Num_rsp),Lap:3/unit:8-binary,Length:1/unsigned-unit:8,Num_rsp:1/unsigned-unit:8).
+-define(INQUIRY_CP_SIZE, 5).
+-record(status_bdaddr_rp, {
+  status,
+  bdaddr
+}).
+-define(status_bdaddr_rp_bin(Status,Bdaddr),Status:1/unsigned-unit:8,Bdaddr:6/unit:8-binary).
+-define(STATUS_BDADDR_RP_SIZE, 7).
+-define(OCF_INQUIRY_CANCEL, 2).
+-define(OCF_PERIODIC_INQUIRY, 3).
+-record(periodic_inquiry_cp, {
+  max_period,
+  min_period,
+  lap,
+  length,
+  num_rsp
+}).
+-define(periodic_inquiry_cp_bin(Max_period,Min_period,Lap,Length,Num_rsp),Max_period:1/little-unsigned-unit:16,Min_period:1/little-unsigned-unit:16,Lap:3/unit:8-binary,Length:1/unsigned-unit:8,Num_rsp:1/unsigned-unit:8).
+-define(PERIODIC_INQUIRY_CP_SIZE, 9).
+-define(OCF_EXIT_PERIODIC_INQUIRY, 4).
+-define(OCF_CREATE_CONN, 5).
+-record(create_conn_cp, {
+  bdaddr,
+  pkt_type,
+  pscan_rep_mode,
+  pscan_mode,
+  clock_offset,
+  role_switch
+}).
+-define(create_conn_cp_bin(Bdaddr,Pkt_type,Pscan_rep_mode,Pscan_mode,Clock_offset,Role_switch),Bdaddr:6/unit:8-binary,Pkt_type:1/little-unsigned-unit:16,Pscan_rep_mode:1/unsigned-unit:8,Pscan_mode:1/unsigned-unit:8,Clock_offset:1/little-unsigned-unit:16,Role_switch:1/unsigned-unit:8).
+-define(CREATE_CONN_CP_SIZE, 13).
+-define(OCF_DISCONNECT, 6).
+-record(disconnect_cp, {
+  handle,
+  reason
+}).
+-define(disconnect_cp_bin(Handle,Reason),Handle:1/little-unsigned-unit:16,Reason:1/unsigned-unit:8).
+-define(DISCONNECT_CP_SIZE, 3).
+-define(OCF_ADD_SCO, 7).
+-record(add_sco_cp, {
+  handle,
+  pkt_type
+}).
+-define(add_sco_cp_bin(Handle,Pkt_type),Handle:1/little-unsigned-unit:16,Pkt_type:1/little-unsigned-unit:16).
+-define(ADD_SCO_CP_SIZE, 4).
+-define(OCF_CREATE_CONN_CANCEL, 8).
+-record(create_conn_cancel_cp, {
+  bdaddr
+}).
+-define(create_conn_cancel_cp_bin(Bdaddr),Bdaddr:6/unit:8-binary).
+-define(CREATE_CONN_CANCEL_CP_SIZE, 6).
+-define(OCF_ACCEPT_CONN_REQ, 9).
+-record(accept_conn_req_cp, {
+  bdaddr,
+  role
+}).
+-define(accept_conn_req_cp_bin(Bdaddr,Role),Bdaddr:6/unit:8-binary,Role:1/unsigned-unit:8).
+-define(ACCEPT_CONN_REQ_CP_SIZE, 7).
+-define(OCF_REJECT_CONN_REQ, 10).
+-record(reject_conn_req_cp, {
+  bdaddr,
+  reason
+}).
+-define(reject_conn_req_cp_bin(Bdaddr,Reason),Bdaddr:6/unit:8-binary,Reason:1/unsigned-unit:8).
+-define(REJECT_CONN_REQ_CP_SIZE, 7).
+-define(OCF_LINK_KEY_REPLY, 11).
+-record(link_key_reply_cp, {
+  bdaddr,
+  link_key
+}).
+-define(link_key_reply_cp_bin(Bdaddr,Link_key),Bdaddr:6/unit:8-binary,Link_key:16/unit:8-binary).
+-define(LINK_KEY_REPLY_CP_SIZE, 22).
+-define(OCF_LINK_KEY_NEG_REPLY, 12).
+-record(link_key_neg_reply_cp, {
+  bdaddr
+}).
+-define(link_key_neg_reply_cp_bin(Bdaddr),Bdaddr:6/unit:8-binary).
+-define(LINK_KEY_NEG_REPLY_CP_SIZE, 6).
+-define(OCF_PIN_CODE_REPLY, 13).
+-record(pin_code_reply_cp, {
+  bdaddr,
+  pin_len,
+  pin_code
+}).
+-define(pin_code_reply_cp_bin(Bdaddr,Pin_len,Pin_code),Bdaddr:6/unit:8-binary,Pin_len:1/unsigned-unit:8,Pin_code:16/unit:8-binary).
+-define(PIN_CODE_REPLY_CP_SIZE, 23).
+-define(OCF_PIN_CODE_NEG_REPLY, 14).
+-define(OCF_SET_CONN_PTYPE, 15).
+-record(set_conn_ptype_cp, {
+  handle,
+  pkt_type
+}).
+-define(set_conn_ptype_cp_bin(Handle,Pkt_type),Handle:1/little-unsigned-unit:16,Pkt_type:1/little-unsigned-unit:16).
+-define(SET_CONN_PTYPE_CP_SIZE, 4).
+-define(OCF_AUTH_REQUESTED, 17).
+-record(auth_requested_cp, {
+  handle
+}).
+-define(auth_requested_cp_bin(Handle),Handle:1/little-unsigned-unit:16).
+-define(AUTH_REQUESTED_CP_SIZE, 2).
+-define(OCF_SET_CONN_ENCRYPT, 19).
+-record(set_conn_encrypt_cp, {
+  handle,
+  encrypt
+}).
+-define(set_conn_encrypt_cp_bin(Handle,Encrypt),Handle:1/little-unsigned-unit:16,Encrypt:1/unsigned-unit:8).
+-define(SET_CONN_ENCRYPT_CP_SIZE, 3).
+-define(OCF_CHANGE_CONN_LINK_KEY, 21).
+-record(change_conn_link_key_cp, {
+  handle
+}).
+-define(change_conn_link_key_cp_bin(Handle),Handle:1/little-unsigned-unit:16).
+-define(CHANGE_CONN_LINK_KEY_CP_SIZE, 2).
+-define(OCF_MASTER_LINK_KEY, 23).
+-record(master_link_key_cp, {
+  key_flag
+}).
+-define(master_link_key_cp_bin(Key_flag),Key_flag:1/unsigned-unit:8).
+-define(MASTER_LINK_KEY_CP_SIZE, 1).
+-define(OCF_REMOTE_NAME_REQ, 25).
+-record(remote_name_req_cp, {
+  bdaddr,
+  pscan_rep_mode,
+  pscan_mode,
+  clock_offset
+}).
+-define(remote_name_req_cp_bin(Bdaddr,Pscan_rep_mode,Pscan_mode,Clock_offset),Bdaddr:6/unit:8-binary,Pscan_rep_mode:1/unsigned-unit:8,Pscan_mode:1/unsigned-unit:8,Clock_offset:1/little-unsigned-unit:16).
+-define(REMOTE_NAME_REQ_CP_SIZE, 10).
+-define(OCF_REMOTE_NAME_REQ_CANCEL, 26).
+-record(remote_name_req_cancel_cp, {
+  bdaddr
+}).
+-define(remote_name_req_cancel_cp_bin(Bdaddr),Bdaddr:6/unit:8-binary).
+-define(REMOTE_NAME_REQ_CANCEL_CP_SIZE, 6).
+-define(OCF_READ_REMOTE_FEATURES, 27).
+-record(read_remote_features_cp, {
+  handle
+}).
+-define(read_remote_features_cp_bin(Handle),Handle:1/little-unsigned-unit:16).
+-define(READ_REMOTE_FEATURES_CP_SIZE, 2).
+-define(OCF_READ_REMOTE_EXT_FEATURES, 28).
+-record(read_remote_ext_features_cp, {
+  handle,
+  page_num
+}).
+-define(read_remote_ext_features_cp_bin(Handle,Page_num),Handle:1/little-unsigned-unit:16,Page_num:1/unsigned-unit:8).
+-define(READ_REMOTE_EXT_FEATURES_CP_SIZE, 3).
+-define(OCF_READ_REMOTE_VERSION, 29).
+-record(read_remote_version_cp, {
+  handle
+}).
+-define(read_remote_version_cp_bin(Handle),Handle:1/little-unsigned-unit:16).
+-define(READ_REMOTE_VERSION_CP_SIZE, 2).
+-define(OCF_READ_CLOCK_OFFSET, 31).
+-record(read_clock_offset_cp, {
+  handle
+}).
+-define(read_clock_offset_cp_bin(Handle),Handle:1/little-unsigned-unit:16).
+-define(READ_CLOCK_OFFSET_CP_SIZE, 2).
+-define(OCF_READ_LMP_HANDLE, 32).
+-define(OCF_SETUP_SYNC_CONN, 40).
+-record(setup_sync_conn_cp, {
+  handle,
+  tx_bandwith,
+  rx_bandwith,
+  max_latency,
+  voice_setting,
+  retrans_effort,
+  pkt_type
+}).
+-define(setup_sync_conn_cp_bin(Handle,Tx_bandwith,Rx_bandwith,Max_latency,Voice_setting,Retrans_effort,Pkt_type),Handle:1/little-unsigned-unit:16,Tx_bandwith:1/little-unsigned-unit:32,Rx_bandwith:1/little-unsigned-unit:32,Max_latency:1/little-unsigned-unit:16,Voice_setting:1/little-unsigned-unit:16,Retrans_effort:1/unsigned-unit:8,Pkt_type:1/little-unsigned-unit:16).
+-define(SETUP_SYNC_CONN_CP_SIZE, 17).
+-define(OCF_ACCEPT_SYNC_CONN_REQ, 41).
+-record(accept_sync_conn_req_cp, {
+  bdaddr,
+  tx_bandwith,
+  rx_bandwith,
+  max_latency,
+  voice_setting,
+  retrans_effort,
+  pkt_type
+}).
+-define(accept_sync_conn_req_cp_bin(Bdaddr,Tx_bandwith,Rx_bandwith,Max_latency,Voice_setting,Retrans_effort,Pkt_type),Bdaddr:6/unit:8-binary,Tx_bandwith:1/little-unsigned-unit:32,Rx_bandwith:1/little-unsigned-unit:32,Max_latency:1/little-unsigned-unit:16,Voice_setting:1/little-unsigned-unit:16,Retrans_effort:1/unsigned-unit:8,Pkt_type:1/little-unsigned-unit:16).
+-define(ACCEPT_SYNC_CONN_REQ_CP_SIZE, 21).
+-define(OCF_REJECT_SYNC_CONN_REQ, 42).
+-record(reject_sync_conn_req_cp, {
+  bdaddr,
+  reason
+}).
+-define(reject_sync_conn_req_cp_bin(Bdaddr,Reason),Bdaddr:6/unit:8-binary,Reason:1/unsigned-unit:8).
+-define(REJECT_SYNC_CONN_REQ_CP_SIZE, 7).
+-define(OCF_IO_CAPABILITY_REPLY, 43).
+-record(io_capability_reply_cp, {
+  bdaddr,
+  capability,
+  oob_data,
+  authentication
+}).
+-define(io_capability_reply_cp_bin(Bdaddr,Capability,Oob_data,Authentication),Bdaddr:6/unit:8-binary,Capability:1/unsigned-unit:8,Oob_data:1/unsigned-unit:8,Authentication:1/unsigned-unit:8).
+-define(IO_CAPABILITY_REPLY_CP_SIZE, 9).
+-define(OCF_USER_CONFIRM_REPLY, 44).
+-record(user_confirm_reply_cp, {
+  bdaddr
+}).
+-define(user_confirm_reply_cp_bin(Bdaddr),Bdaddr:6/unit:8-binary).
+-define(USER_CONFIRM_REPLY_CP_SIZE, 6).
+-define(OCF_USER_CONFIRM_NEG_REPLY, 45).
+-define(OCF_USER_PASSKEY_REPLY, 46).
+-record(user_passkey_reply_cp, {
+  bdaddr,
+  passkey
+}).
+-define(user_passkey_reply_cp_bin(Bdaddr,Passkey),Bdaddr:6/unit:8-binary,Passkey:1/little-unsigned-unit:32).
+-define(USER_PASSKEY_REPLY_CP_SIZE, 10).
+-define(OCF_USER_PASSKEY_NEG_REPLY, 47).
+-define(OCF_REMOTE_OOB_DATA_REPLY, 48).
+-record(remote_oob_data_reply_cp, {
+  bdaddr,
+  hash,
+  randomizer
+}).
+-define(remote_oob_data_reply_cp_bin(Bdaddr,Hash,Randomizer),Bdaddr:6/unit:8-binary,Hash:16/unit:8-binary,Randomizer:16/unit:8-binary).
+-define(REMOTE_OOB_DATA_REPLY_CP_SIZE, 38).
+-define(OCF_REMOTE_OOB_DATA_NEG_REPLY, 51).
+-define(OCF_IO_CAPABILITY_NEG_REPLY, 52).
+-record(io_capability_neg_reply_cp, {
+  bdaddr,
+  reason
+}).
+-define(io_capability_neg_reply_cp_bin(Bdaddr,Reason),Bdaddr:6/unit:8-binary,Reason:1/unsigned-unit:8).
+-define(IO_CAPABILITY_NEG_REPLY_CP_SIZE, 7).
+-define(OCF_CREATE_PHYSICAL_LINK, 53).
+-record(create_physical_link_cp, {
+  handle,
+  key_length,
+  key_type,
+  key
+}).
+-define(create_physical_link_cp_bin(Handle,Key_length,Key_type,Key),Handle:1/unsigned-unit:8,Key_length:1/unsigned-unit:8,Key_type:1/unsigned-unit:8,Key:32/unit:8-binary).
+-define(CREATE_PHYSICAL_LINK_CP_SIZE, 35).
+-define(OCF_ACCEPT_PHYSICAL_LINK, 54).
+-define(OCF_DISCONNECT_PHYSICAL_LINK, 55).
+-record(disconnect_physical_link_cp, {
+  handle,
+  reason
+}).
+-define(disconnect_physical_link_cp_bin(Handle,Reason),Handle:1/unsigned-unit:8,Reason:1/unsigned-unit:8).
+-define(DISCONNECT_PHYSICAL_LINK_CP_SIZE, 2).
+-define(OCF_CREATE_LOGICAL_LINK, 56).
+-record(create_logical_link_cp, {
+  handle,
+  tx_flow,
+  rx_flow
+}).
+-define(create_logical_link_cp_bin(Handle,Tx_flow,Rx_flow),Handle:1/unsigned-unit:8,Tx_flow:16/unit:8-binary,Rx_flow:16/unit:8-binary).
+-define(CREATE_LOGICAL_LINK_CP_SIZE, 33).
+-define(OCF_ACCEPT_LOGICAL_LINK, 57).
+-define(OCF_DISCONNECT_LOGICAL_LINK, 58).
+-record(disconnect_logical_link_cp, {
+  handle
+}).
+-define(disconnect_logical_link_cp_bin(Handle),Handle:1/little-unsigned-unit:16).
+-define(DISCONNECT_LOGICAL_LINK_CP_SIZE, 2).
+-define(OCF_LOGICAL_LINK_CANCEL, 59).
+-record(cancel_logical_link_cp, {
+  handle,
+  tx_flow_id
+}).
+-define(cancel_logical_link_cp_bin(Handle,Tx_flow_id),Handle:1/unsigned-unit:8,Tx_flow_id:1/unsigned-unit:8).
+-define(LOGICAL_LINK_CANCEL_CP_SIZE, 2).
+-record(cancel_logical_link_rp, {
+  status,
+  handle,
+  tx_flow_id
+}).
+-define(cancel_logical_link_rp_bin(Status,Handle,Tx_flow_id),Status:1/unsigned-unit:8,Handle:1/unsigned-unit:8,Tx_flow_id:1/unsigned-unit:8).
+-define(LOGICAL_LINK_CANCEL_RP_SIZE, 3).
+-define(OCF_FLOW_SPEC_MODIFY, 60).
+-define(OGF_LINK_POLICY, 2).
+-define(OCF_HOLD_MODE, 1).
+-record(hold_mode_cp, {
+  handle,
+  max_interval,
+  min_interval
+}).
+-define(hold_mode_cp_bin(Handle,Max_interval,Min_interval),Handle:1/little-unsigned-unit:16,Max_interval:1/little-unsigned-unit:16,Min_interval:1/little-unsigned-unit:16).
+-define(HOLD_MODE_CP_SIZE, 6).
+-define(OCF_SNIFF_MODE, 3).
+-record(sniff_mode_cp, {
+  handle,
+  max_interval,
+  min_interval,
+  attempt,
+  timeout
+}).
+-define(sniff_mode_cp_bin(Handle,Max_interval,Min_interval,Attempt,Timeout),Handle:1/little-unsigned-unit:16,Max_interval:1/little-unsigned-unit:16,Min_interval:1/little-unsigned-unit:16,Attempt:1/little-unsigned-unit:16,Timeout:1/little-unsigned-unit:16).
+-define(SNIFF_MODE_CP_SIZE, 10).
+-define(OCF_EXIT_SNIFF_MODE, 4).
+-record(exit_sniff_mode_cp, {
+  handle
+}).
+-define(exit_sniff_mode_cp_bin(Handle),Handle:1/little-unsigned-unit:16).
+-define(EXIT_SNIFF_MODE_CP_SIZE, 2).
+-define(OCF_PARK_MODE, 5).
+-record(park_mode_cp, {
+  handle,
+  max_interval,
+  min_interval
+}).
+-define(park_mode_cp_bin(Handle,Max_interval,Min_interval),Handle:1/little-unsigned-unit:16,Max_interval:1/little-unsigned-unit:16,Min_interval:1/little-unsigned-unit:16).
+-define(PARK_MODE_CP_SIZE, 6).
+-define(OCF_EXIT_PARK_MODE, 6).
+-record(exit_park_mode_cp, {
+  handle
+}).
+-define(exit_park_mode_cp_bin(Handle),Handle:1/little-unsigned-unit:16).
+-define(EXIT_PARK_MODE_CP_SIZE, 2).
+-define(OCF_QOS_SETUP, 7).
+-record(hci_qos, {
+  service_type,
+  token_rate,
+  peak_bandwidth,
+  latency,
+  delay_variation
+}).
+-define(hci_qos_bin(Service_type,Token_rate,Peak_bandwidth,Latency,Delay_variation),Service_type:1/unsigned-unit:8,Token_rate:1/little-unsigned-unit:32,Peak_bandwidth:1/little-unsigned-unit:32,Latency:1/little-unsigned-unit:32,Delay_variation:1/little-unsigned-unit:32).
+-define(HCI_QOS_CP_SIZE, 17).
+-record(qos_setup_cp, {
+  handle,
+  flags,
+  qos
+}).
+-define(qos_setup_cp_bin(Handle,Flags,Qos),Handle:1/little-unsigned-unit:16,Flags:1/unsigned-unit:8,Qos:17/unit:8-binary).
+-define(QOS_SETUP_CP_SIZE, (3 + ?HCI_QOS_CP_SIZE)).
+-define(OCF_ROLE_DISCOVERY, 9).
+-record(role_discovery_cp, {
+  handle
+}).
+-define(role_discovery_cp_bin(Handle),Handle:1/little-unsigned-unit:16).
+-define(ROLE_DISCOVERY_CP_SIZE, 2).
+-record(role_discovery_rp, {
+  status,
+  handle,
+  role
+}).
+-define(role_discovery_rp_bin(Status,Handle,Role),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Role:1/unsigned-unit:8).
+-define(ROLE_DISCOVERY_RP_SIZE, 4).
+-define(OCF_SWITCH_ROLE, 11).
+-record(switch_role_cp, {
+  bdaddr,
+  role
+}).
+-define(switch_role_cp_bin(Bdaddr,Role),Bdaddr:6/unit:8-binary,Role:1/unsigned-unit:8).
+-define(SWITCH_ROLE_CP_SIZE, 7).
+-define(OCF_READ_LINK_POLICY, 12).
+-record(read_link_policy_cp, {
+  handle
+}).
+-define(read_link_policy_cp_bin(Handle),Handle:1/little-unsigned-unit:16).
+-define(READ_LINK_POLICY_CP_SIZE, 2).
+-record(read_link_policy_rp, {
+  status,
+  handle,
+  policy
+}).
+-define(read_link_policy_rp_bin(Status,Handle,Policy),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Policy:1/little-unsigned-unit:16).
+-define(READ_LINK_POLICY_RP_SIZE, 5).
+-define(OCF_WRITE_LINK_POLICY, 13).
+-record(write_link_policy_cp, {
+  handle,
+  policy
+}).
+-define(write_link_policy_cp_bin(Handle,Policy),Handle:1/little-unsigned-unit:16,Policy:1/little-unsigned-unit:16).
+-define(WRITE_LINK_POLICY_CP_SIZE, 4).
+-record(write_link_policy_rp, {
+  status,
+  handle
+}).
+-define(write_link_policy_rp_bin(Status,Handle),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16).
+-define(WRITE_LINK_POLICY_RP_SIZE, 3).
+-define(OCF_READ_DEFAULT_LINK_POLICY, 14).
+-define(OCF_WRITE_DEFAULT_LINK_POLICY, 15).
+-define(OCF_FLOW_SPECIFICATION, 16).
+-define(OCF_SNIFF_SUBRATING, 17).
+-record(sniff_subrating_cp, {
+  handle,
+  max_latency,
+  min_remote_timeout,
+  min_local_timeout
+}).
+-define(sniff_subrating_cp_bin(Handle,Max_latency,Min_remote_timeout,Min_local_timeout),Handle:1/little-unsigned-unit:16,Max_latency:1/little-unsigned-unit:16,Min_remote_timeout:1/little-unsigned-unit:16,Min_local_timeout:1/little-unsigned-unit:16).
+-define(SNIFF_SUBRATING_CP_SIZE, 8).
+-define(OGF_HOST_CTL, 3).
+-define(OCF_SET_EVENT_MASK, 1).
+-record(set_event_mask_cp, {
+  mask
+}).
+-define(set_event_mask_cp_bin(Mask),Mask:8/unit:8-binary).
+-define(SET_EVENT_MASK_CP_SIZE, 8).
+-define(OCF_RESET, 3).
+-define(OCF_SET_EVENT_FLT, 5).
+-record(set_event_flt_cp, {
+  flt_type,
+  cond_type,
+  condition
+}).
+-define(set_event_flt_cp_bin(Flt_type,Cond_type,Condition),Flt_type:1/unsigned-unit:8,Cond_type:1/unsigned-unit:8,Condition:0/unit:8-binary).
+-define(SET_EVENT_FLT_CP_SIZE, 2).
+-define(FLT_CLEAR_ALL, 0).
+-define(FLT_INQ_RESULT, 1).
+-define(FLT_CONN_SETUP, 2).
+-define(INQ_RESULT_RETURN_ALL, 0).
+-define(INQ_RESULT_RETURN_CLASS, 1).
+-define(INQ_RESULT_RETURN_BDADDR, 2).
+-define(CONN_SETUP_ALLOW_ALL, 0).
+-define(CONN_SETUP_ALLOW_CLASS, 1).
+-define(CONN_SETUP_ALLOW_BDADDR, 2).
+-define(CONN_SETUP_AUTO_OFF, 1).
+-define(CONN_SETUP_AUTO_ON, 2).
+-define(OCF_FLUSH, 8).
+-define(OCF_READ_PIN_TYPE, 9).
+-record(read_pin_type_rp, {
+  status,
+  pin_type
+}).
+-define(read_pin_type_rp_bin(Status,Pin_type),Status:1/unsigned-unit:8,Pin_type:1/unsigned-unit:8).
+-define(READ_PIN_TYPE_RP_SIZE, 2).
+-define(OCF_WRITE_PIN_TYPE, 10).
+-record(write_pin_type_cp, {
+  pin_type
+}).
+-define(write_pin_type_cp_bin(Pin_type),Pin_type:1/unsigned-unit:8).
+-define(WRITE_PIN_TYPE_CP_SIZE, 1).
+-define(OCF_CREATE_NEW_UNIT_KEY, 11).
+-define(OCF_READ_STORED_LINK_KEY, 13).
+-record(read_stored_link_key_cp, {
+  bdaddr,
+  read_all
+}).
+-define(read_stored_link_key_cp_bin(Bdaddr,Read_all),Bdaddr:6/unit:8-binary,Read_all:1/unsigned-unit:8).
+-define(READ_STORED_LINK_KEY_CP_SIZE, 7).
+-record(read_stored_link_key_rp, {
+  status,
+  max_keys,
+  num_keys
+}).
+-define(read_stored_link_key_rp_bin(Status,Max_keys,Num_keys),Status:1/unsigned-unit:8,Max_keys:1/little-unsigned-unit:16,Num_keys:1/little-unsigned-unit:16).
+-define(READ_STORED_LINK_KEY_RP_SIZE, 5).
+-define(OCF_WRITE_STORED_LINK_KEY, 17).
+-record(write_stored_link_key_cp, {
+  num_keys
+}).
+-define(write_stored_link_key_cp_bin(Num_keys),Num_keys:1/unsigned-unit:8).
+-define(WRITE_STORED_LINK_KEY_CP_SIZE, 1).
+-record(write_stored_link_key_rp, {
+  status,
+  num_keys
+}).
+-define(write_stored_link_key_rp_bin(Status,Num_keys),Status:1/unsigned-unit:8,Num_keys:1/unsigned-unit:8).
+-define(READ_WRITE_LINK_KEY_RP_SIZE, 2).
+-define(OCF_DELETE_STORED_LINK_KEY, 18).
+-record(delete_stored_link_key_cp, {
+  bdaddr,
+  delete_all
+}).
+-define(delete_stored_link_key_cp_bin(Bdaddr,Delete_all),Bdaddr:6/unit:8-binary,Delete_all:1/unsigned-unit:8).
+-define(DELETE_STORED_LINK_KEY_CP_SIZE, 7).
+-record(delete_stored_link_key_rp, {
+  status,
+  num_keys
+}).
+-define(delete_stored_link_key_rp_bin(Status,Num_keys),Status:1/unsigned-unit:8,Num_keys:1/little-unsigned-unit:16).
+-define(DELETE_STORED_LINK_KEY_RP_SIZE, 3).
+-define(HCI_MAX_NAME_LENGTH, 248).
+-define(OCF_CHANGE_LOCAL_NAME, 19).
+-record(change_local_name_cp, {
+  name
+}).
+-define(change_local_name_cp_bin(Name),Name:(?HCI_MAX_NAME_LENGTH)/unit:8-binary).
+-define(CHANGE_LOCAL_NAME_CP_SIZE, 248).
+-define(OCF_READ_LOCAL_NAME, 20).
+-record(read_local_name_rp, {
+  status,
+  name
+}).
+-define(read_local_name_rp_bin(Status,Name),Status:1/unsigned-unit:8,Name:(?HCI_MAX_NAME_LENGTH)/unit:8-binary).
+-define(READ_LOCAL_NAME_RP_SIZE, 249).
+-define(OCF_READ_CONN_ACCEPT_TIMEOUT, 21).
+-record(read_conn_accept_timeout_rp, {
+  status,
+  timeout
+}).
+-define(read_conn_accept_timeout_rp_bin(Status,Timeout),Status:1/unsigned-unit:8,Timeout:1/little-unsigned-unit:16).
+-define(READ_CONN_ACCEPT_TIMEOUT_RP_SIZE, 3).
+-define(OCF_WRITE_CONN_ACCEPT_TIMEOUT, 22).
+-record(write_conn_accept_timeout_cp, {
+  timeout
+}).
+-define(write_conn_accept_timeout_cp_bin(Timeout),Timeout:1/little-unsigned-unit:16).
+-define(WRITE_CONN_ACCEPT_TIMEOUT_CP_SIZE, 2).
+-define(OCF_READ_PAGE_TIMEOUT, 23).
+-record(read_page_timeout_rp, {
+  status,
+  timeout
+}).
+-define(read_page_timeout_rp_bin(Status,Timeout),Status:1/unsigned-unit:8,Timeout:1/little-unsigned-unit:16).
+-define(READ_PAGE_TIMEOUT_RP_SIZE, 3).
+-define(OCF_WRITE_PAGE_TIMEOUT, 24).
+-record(write_page_timeout_cp, {
+  timeout
+}).
+-define(write_page_timeout_cp_bin(Timeout),Timeout:1/little-unsigned-unit:16).
+-define(WRITE_PAGE_TIMEOUT_CP_SIZE, 2).
+-define(OCF_READ_SCAN_ENABLE, 25).
+-record(read_scan_enable_rp, {
+  status,
+  enable
+}).
+-define(read_scan_enable_rp_bin(Status,Enable),Status:1/unsigned-unit:8,Enable:1/unsigned-unit:8).
+-define(READ_SCAN_ENABLE_RP_SIZE, 2).
+-define(OCF_WRITE_SCAN_ENABLE, 26).
+-define(OCF_READ_PAGE_ACTIVITY, 27).
+-record(read_page_activity_rp, {
+  status,
+  interval,
+  window
+}).
+-define(read_page_activity_rp_bin(Status,Interval,Window),Status:1/unsigned-unit:8,Interval:1/little-unsigned-unit:16,Window:1/little-unsigned-unit:16).
+-define(READ_PAGE_ACTIVITY_RP_SIZE, 5).
+-define(OCF_WRITE_PAGE_ACTIVITY, 28).
+-record(write_page_activity_cp, {
+  interval,
+  window
+}).
+-define(write_page_activity_cp_bin(Interval,Window),Interval:1/little-unsigned-unit:16,Window:1/little-unsigned-unit:16).
+-define(WRITE_PAGE_ACTIVITY_CP_SIZE, 4).
+-define(OCF_READ_INQ_ACTIVITY, 29).
+-record(read_inq_activity_rp, {
+  status,
+  interval,
+  window
+}).
+-define(read_inq_activity_rp_bin(Status,Interval,Window),Status:1/unsigned-unit:8,Interval:1/little-unsigned-unit:16,Window:1/little-unsigned-unit:16).
+-define(READ_INQ_ACTIVITY_RP_SIZE, 5).
+-define(OCF_WRITE_INQ_ACTIVITY, 30).
+-record(write_inq_activity_cp, {
+  interval,
+  window
+}).
+-define(write_inq_activity_cp_bin(Interval,Window),Interval:1/little-unsigned-unit:16,Window:1/little-unsigned-unit:16).
+-define(WRITE_INQ_ACTIVITY_CP_SIZE, 4).
+-define(OCF_READ_AUTH_ENABLE, 31).
+-define(OCF_WRITE_AUTH_ENABLE, 32).
+-define(AUTH_DISABLED, 0).
+-define(AUTH_ENABLED, 1).
+-define(OCF_READ_ENCRYPT_MODE, 33).
+-define(OCF_WRITE_ENCRYPT_MODE, 34).
+-define(ENCRYPT_DISABLED, 0).
+-define(ENCRYPT_P2P, 1).
+-define(ENCRYPT_BOTH, 2).
+-define(OCF_READ_CLASS_OF_DEV, 35).
+-record(read_class_of_dev_rp, {
+  status,
+  dev_class
+}).
+-define(read_class_of_dev_rp_bin(Status,Dev_class),Status:1/unsigned-unit:8,Dev_class:3/unit:8-binary).
+-define(READ_CLASS_OF_DEV_RP_SIZE, 4).
+-define(OCF_WRITE_CLASS_OF_DEV, 36).
+-record(write_class_of_dev_cp, {
+  dev_class
+}).
+-define(write_class_of_dev_cp_bin(Dev_class),Dev_class:3/unit:8-binary).
+-define(WRITE_CLASS_OF_DEV_CP_SIZE, 3).
+-define(OCF_READ_VOICE_SETTING, 37).
+-record(read_voice_setting_rp, {
+  status,
+  voice_setting
+}).
+-define(read_voice_setting_rp_bin(Status,Voice_setting),Status:1/unsigned-unit:8,Voice_setting:1/little-unsigned-unit:16).
+-define(READ_VOICE_SETTING_RP_SIZE, 3).
+-define(OCF_WRITE_VOICE_SETTING, 38).
+-record(write_voice_setting_cp, {
+  voice_setting
+}).
+-define(write_voice_setting_cp_bin(Voice_setting),Voice_setting:1/little-unsigned-unit:16).
+-define(WRITE_VOICE_SETTING_CP_SIZE, 2).
+-define(OCF_READ_AUTOMATIC_FLUSH_TIMEOUT, 39).
+-define(OCF_WRITE_AUTOMATIC_FLUSH_TIMEOUT, 40).
+-define(OCF_READ_NUM_BROADCAST_RETRANS, 41).
+-define(OCF_WRITE_NUM_BROADCAST_RETRANS, 42).
+-define(OCF_READ_HOLD_MODE_ACTIVITY, 43).
+-define(OCF_WRITE_HOLD_MODE_ACTIVITY, 44).
+-define(OCF_READ_TRANSMIT_POWER_LEVEL, 45).
+-record(read_transmit_power_level_cp, {
+  handle,
+  type
+}).
+-define(read_transmit_power_level_cp_bin(Handle,Type),Handle:1/little-unsigned-unit:16,Type:1/unsigned-unit:8).
+-define(READ_TRANSMIT_POWER_LEVEL_CP_SIZE, 3).
+-record(read_transmit_power_level_rp, {
+  status,
+  handle,
+  level
+}).
+-define(read_transmit_power_level_rp_bin(Status,Handle,Level),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Level:1/signed-unit:8).
+-define(READ_TRANSMIT_POWER_LEVEL_RP_SIZE, 4).
+-define(OCF_READ_SYNC_FLOW_ENABLE, 46).
+-define(OCF_WRITE_SYNC_FLOW_ENABLE, 47).
+-define(OCF_SET_CONTROLLER_TO_HOST_FC, 49).
+-define(OCF_HOST_BUFFER_SIZE, 51).
+-record(host_buffer_size_cp, {
+  acl_mtu,
+  sco_mtu,
+  acl_max_pkt,
+  sco_max_pkt
+}).
+-define(host_buffer_size_cp_bin(Acl_mtu,Sco_mtu,Acl_max_pkt,Sco_max_pkt),Acl_mtu:1/little-unsigned-unit:16,Sco_mtu:1/unsigned-unit:8,Acl_max_pkt:1/little-unsigned-unit:16,Sco_max_pkt:1/little-unsigned-unit:16).
+-define(HOST_BUFFER_SIZE_CP_SIZE, 7).
+-define(OCF_HOST_NUM_COMP_PKTS, 53).
+-record(host_num_comp_pkts_cp, {
+  num_hndl
+}).
+-define(host_num_comp_pkts_cp_bin(Num_hndl),Num_hndl:1/unsigned-unit:8).
+-define(HOST_NUM_COMP_PKTS_CP_SIZE, 1).
+-define(OCF_READ_LINK_SUPERVISION_TIMEOUT, 54).
+-record(read_link_supervision_timeout_rp, {
+  status,
+  handle,
+  timeout
+}).
+-define(read_link_supervision_timeout_rp_bin(Status,Handle,Timeout),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Timeout:1/little-unsigned-unit:16).
+-define(READ_LINK_SUPERVISION_TIMEOUT_RP_SIZE, 5).
+-define(OCF_WRITE_LINK_SUPERVISION_TIMEOUT, 55).
+-record(write_link_supervision_timeout_cp, {
+  handle,
+  timeout
+}).
+-define(write_link_supervision_timeout_cp_bin(Handle,Timeout),Handle:1/little-unsigned-unit:16,Timeout:1/little-unsigned-unit:16).
+-define(WRITE_LINK_SUPERVISION_TIMEOUT_CP_SIZE, 4).
+-record(write_link_supervision_timeout_rp, {
+  status,
+  handle
+}).
+-define(write_link_supervision_timeout_rp_bin(Status,Handle),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16).
+-define(WRITE_LINK_SUPERVISION_TIMEOUT_RP_SIZE, 3).
+-define(OCF_READ_NUM_SUPPORTED_IAC, 56).
+-define(MAX_IAC_LAP, 64).
+-define(OCF_READ_CURRENT_IAC_LAP, 57).
+-record(read_current_iac_lap_rp, {
+  status,
+  num_current_iac,
+  lap
+}).
+-define(read_current_iac_lap_rp_bin(Status,Num_current_iac,Lap),Status:1/unsigned-unit:8,Num_current_iac:1/unsigned-unit:8,Lap:(3*?MAX_IAC_LAP)/unit:8-binary).
+-define(READ_CURRENT_IAC_LAP_RP_SIZE, 2+3*?MAX_IAC_LAP).
+-define(OCF_WRITE_CURRENT_IAC_LAP, 58).
+-record(write_current_iac_lap_cp, {
+  num_current_iac,
+  lap
+}).
+-define(write_current_iac_lap_cp_bin(Num_current_iac,Lap),Num_current_iac:1/unsigned-unit:8,Lap:(3*?MAX_IAC_LAP)/unit:8-binary).
+-define(WRITE_CURRENT_IAC_LAP_CP_SIZE, 1+3*?MAX_IAC_LAP).
+-define(OCF_READ_PAGE_SCAN_PERIOD_MODE, 59).
+-define(OCF_WRITE_PAGE_SCAN_PERIOD_MODE, 60).
+-define(OCF_READ_PAGE_SCAN_MODE, 61).
+-define(OCF_WRITE_PAGE_SCAN_MODE, 62).
+-define(OCF_SET_AFH_CLASSIFICATION, 63).
+-record(set_afh_classification_cp, {
+  map
+}).
+-define(set_afh_classification_cp_bin(Map),Map:10/unit:8-binary).
+-define(SET_AFH_CLASSIFICATION_CP_SIZE, 10).
+-record(set_afh_classification_rp, {
+  status
+}).
+-define(set_afh_classification_rp_bin(Status),Status:1/unsigned-unit:8).
+-define(SET_AFH_CLASSIFICATION_RP_SIZE, 1).
+-define(OCF_READ_INQUIRY_SCAN_TYPE, 66).
+-record(read_inquiry_scan_type_rp, {
+  status,
+  type
+}).
+-define(read_inquiry_scan_type_rp_bin(Status,Type),Status:1/unsigned-unit:8,Type:1/unsigned-unit:8).
+-define(READ_INQUIRY_SCAN_TYPE_RP_SIZE, 2).
+-define(OCF_WRITE_INQUIRY_SCAN_TYPE, 67).
+-record(write_inquiry_scan_type_cp, {
+  type
+}).
+-define(write_inquiry_scan_type_cp_bin(Type),Type:1/unsigned-unit:8).
+-define(WRITE_INQUIRY_SCAN_TYPE_CP_SIZE, 1).
+-record(write_inquiry_scan_type_rp, {
+  status
+}).
+-define(write_inquiry_scan_type_rp_bin(Status),Status:1/unsigned-unit:8).
+-define(WRITE_INQUIRY_SCAN_TYPE_RP_SIZE, 1).
+-define(OCF_READ_INQUIRY_MODE, 68).
+-record(read_inquiry_mode_rp, {
+  status,
+  mode
+}).
+-define(read_inquiry_mode_rp_bin(Status,Mode),Status:1/unsigned-unit:8,Mode:1/unsigned-unit:8).
+-define(READ_INQUIRY_MODE_RP_SIZE, 2).
+-define(OCF_WRITE_INQUIRY_MODE, 69).
+-record(write_inquiry_mode_cp, {
+  mode
+}).
+-define(write_inquiry_mode_cp_bin(Mode),Mode:1/unsigned-unit:8).
+-define(WRITE_INQUIRY_MODE_CP_SIZE, 1).
+-record(write_inquiry_mode_rp, {
+  status
+}).
+-define(write_inquiry_mode_rp_bin(Status),Status:1/unsigned-unit:8).
+-define(WRITE_INQUIRY_MODE_RP_SIZE, 1).
+-define(OCF_READ_PAGE_SCAN_TYPE, 70).
+-define(OCF_WRITE_PAGE_SCAN_TYPE, 71).
+-define(PAGE_SCAN_TYPE_STANDARD, 0).
+-define(PAGE_SCAN_TYPE_INTERLACED, 1).
+-define(OCF_READ_AFH_MODE, 72).
+-record(read_afh_mode_rp, {
+  status,
+  mode
+}).
+-define(read_afh_mode_rp_bin(Status,Mode),Status:1/unsigned-unit:8,Mode:1/unsigned-unit:8).
+-define(READ_AFH_MODE_RP_SIZE, 2).
+-define(OCF_WRITE_AFH_MODE, 73).
+-record(write_afh_mode_cp, {
+  mode
+}).
+-define(write_afh_mode_cp_bin(Mode),Mode:1/unsigned-unit:8).
+-define(WRITE_AFH_MODE_CP_SIZE, 1).
+-record(write_afh_mode_rp, {
+  status
+}).
+-define(write_afh_mode_rp_bin(Status),Status:1/unsigned-unit:8).
+-define(WRITE_AFH_MODE_RP_SIZE, 1).
+-define(HCI_MAX_EIR_LENGTH, 240).
+-define(OCF_READ_EXT_INQUIRY_RESPONSE, 81).
+-record(read_ext_inquiry_response_rp, {
+  status,
+  fec,
+  data
+}).
+-define(read_ext_inquiry_response_rp_bin(Status,Fec,Data),Status:1/unsigned-unit:8,Fec:1/unsigned-unit:8,Data:(?HCI_MAX_EIR_LENGTH)/unit:8-binary).
+-define(READ_EXT_INQUIRY_RESPONSE_RP_SIZE, 242).
+-define(OCF_WRITE_EXT_INQUIRY_RESPONSE, 82).
+-record(write_ext_inquiry_response_cp, {
+  fec,
+  data
+}).
+-define(write_ext_inquiry_response_cp_bin(Fec,Data),Fec:1/unsigned-unit:8,Data:(?HCI_MAX_EIR_LENGTH)/unit:8-binary).
+-define(WRITE_EXT_INQUIRY_RESPONSE_CP_SIZE, 241).
+-record(write_ext_inquiry_response_rp, {
+  status
+}).
+-define(write_ext_inquiry_response_rp_bin(Status),Status:1/unsigned-unit:8).
+-define(WRITE_EXT_INQUIRY_RESPONSE_RP_SIZE, 1).
+-define(OCF_REFRESH_ENCRYPTION_KEY, 83).
+-record(refresh_encryption_key_cp, {
+  handle
+}).
+-define(refresh_encryption_key_cp_bin(Handle),Handle:1/little-unsigned-unit:16).
+-define(REFRESH_ENCRYPTION_KEY_CP_SIZE, 2).
+-record(refresh_encryption_key_rp, {
+  status
+}).
+-define(refresh_encryption_key_rp_bin(Status),Status:1/unsigned-unit:8).
+-define(REFRESH_ENCRYPTION_KEY_RP_SIZE, 1).
+-define(OCF_READ_SIMPLE_PAIRING_MODE, 85).
+-record(read_simple_pairing_mode_rp, {
+  status,
+  mode
+}).
+-define(read_simple_pairing_mode_rp_bin(Status,Mode),Status:1/unsigned-unit:8,Mode:1/unsigned-unit:8).
+-define(READ_SIMPLE_PAIRING_MODE_RP_SIZE, 2).
+-define(OCF_WRITE_SIMPLE_PAIRING_MODE, 86).
+-record(write_simple_pairing_mode_cp, {
+  mode
+}).
+-define(write_simple_pairing_mode_cp_bin(Mode),Mode:1/unsigned-unit:8).
+-define(WRITE_SIMPLE_PAIRING_MODE_CP_SIZE, 1).
+-record(write_simple_pairing_mode_rp, {
+  status
+}).
+-define(write_simple_pairing_mode_rp_bin(Status),Status:1/unsigned-unit:8).
+-define(WRITE_SIMPLE_PAIRING_MODE_RP_SIZE, 1).
+-define(OCF_READ_LOCAL_OOB_DATA, 87).
+-record(read_local_oob_data_rp, {
+  status,
+  hash,
+  randomizer
+}).
+-define(read_local_oob_data_rp_bin(Status,Hash,Randomizer),Status:1/unsigned-unit:8,Hash:16/unit:8-binary,Randomizer:16/unit:8-binary).
+-define(READ_LOCAL_OOB_DATA_RP_SIZE, 33).
+-define(OCF_READ_INQ_RESPONSE_TX_POWER_LEVEL, 88).
+-record(read_inq_response_tx_power_level_rp, {
+  status,
+  level
+}).
+-define(read_inq_response_tx_power_level_rp_bin(Status,Level),Status:1/unsigned-unit:8,Level:1/signed-unit:8).
+-define(READ_INQ_RESPONSE_TX_POWER_LEVEL_RP_SIZE, 2).
+-define(OCF_READ_INQUIRY_TRANSMIT_POWER_LEVEL, 88).
+-record(read_inquiry_transmit_power_level_rp, {
+  status,
+  level
+}).
+-define(read_inquiry_transmit_power_level_rp_bin(Status,Level),Status:1/unsigned-unit:8,Level:1/signed-unit:8).
+-define(READ_INQUIRY_TRANSMIT_POWER_LEVEL_RP_SIZE, 2).
+-define(OCF_WRITE_INQUIRY_TRANSMIT_POWER_LEVEL, 89).
+-record(write_inquiry_transmit_power_level_cp, {
+  level
+}).
+-define(write_inquiry_transmit_power_level_cp_bin(Level),Level:1/signed-unit:8).
+-define(WRITE_INQUIRY_TRANSMIT_POWER_LEVEL_CP_SIZE, 1).
+-record(write_inquiry_transmit_power_level_rp, {
+  status
+}).
+-define(write_inquiry_transmit_power_level_rp_bin(Status),Status:1/unsigned-unit:8).
+-define(WRITE_INQUIRY_TRANSMIT_POWER_LEVEL_RP_SIZE, 1).
+-define(OCF_READ_DEFAULT_ERROR_DATA_REPORTING, 90).
+-record(read_default_error_data_reporting_rp, {
+  status,
+  reporting
+}).
+-define(read_default_error_data_reporting_rp_bin(Status,Reporting),Status:1/unsigned-unit:8,Reporting:1/unsigned-unit:8).
+-define(READ_DEFAULT_ERROR_DATA_REPORTING_RP_SIZE, 2).
+-define(OCF_WRITE_DEFAULT_ERROR_DATA_REPORTING, 91).
+-record(write_default_error_data_reporting_cp, {
+  reporting
+}).
+-define(write_default_error_data_reporting_cp_bin(Reporting),Reporting:1/unsigned-unit:8).
+-define(WRITE_DEFAULT_ERROR_DATA_REPORTING_CP_SIZE, 1).
+-record(write_default_error_data_reporting_rp, {
+  status
+}).
+-define(write_default_error_data_reporting_rp_bin(Status),Status:1/unsigned-unit:8).
+-define(WRITE_DEFAULT_ERROR_DATA_REPORTING_RP_SIZE, 1).
+-define(OCF_ENHANCED_FLUSH, 95).
+-record(enhanced_flush_cp, {
+  handle,
+  type
+}).
+-define(enhanced_flush_cp_bin(Handle,Type),Handle:1/little-unsigned-unit:16,Type:1/unsigned-unit:8).
+-define(ENHANCED_FLUSH_CP_SIZE, 3).
+-define(OCF_SEND_KEYPRESS_NOTIFY, 96).
+-record(send_keypress_notify_cp, {
+  bdaddr,
+  type
+}).
+-define(send_keypress_notify_cp_bin(Bdaddr,Type),Bdaddr:6/unit:8-binary,Type:1/unsigned-unit:8).
+-define(SEND_KEYPRESS_NOTIFY_CP_SIZE, 7).
+-record(send_keypress_notify_rp, {
+  status
+}).
+-define(send_keypress_notify_rp_bin(Status),Status:1/unsigned-unit:8).
+-define(SEND_KEYPRESS_NOTIFY_RP_SIZE, 1).
+-define(OCF_READ_LOGICAL_LINK_ACCEPT_TIMEOUT, 97).
+-record(read_log_link_accept_timeout_rp, {
+  status,
+  timeout
+}).
+-define(read_log_link_accept_timeout_rp_bin(Status,Timeout),Status:1/unsigned-unit:8,Timeout:1/little-unsigned-unit:16).
+-define(READ_LOGICAL_LINK_ACCEPT_TIMEOUT_RP_SIZE, 3).
+-define(OCF_WRITE_LOGICAL_LINK_ACCEPT_TIMEOUT, 98).
+-record(write_log_link_accept_timeout_cp, {
+  timeout
+}).
+-define(write_log_link_accept_timeout_cp_bin(Timeout),Timeout:1/little-unsigned-unit:16).
+-define(WRITE_LOGICAL_LINK_ACCEPT_TIMEOUT_CP_SIZE, 2).
+-define(OCF_SET_EVENT_MASK_PAGE_2, 99).
+-define(OCF_READ_LOCATION_DATA, 100).
+-define(OCF_WRITE_LOCATION_DATA, 101).
+-define(OCF_READ_FLOW_CONTROL_MODE, 102).
+-define(OCF_WRITE_FLOW_CONTROL_MODE, 103).
+-define(OCF_READ_ENHANCED_TRANSMIT_POWER_LEVEL, 104).
+-record(read_enhanced_transmit_power_level_rp, {
+  status,
+  handle,
+  level_gfsk,
+  level_dqpsk,
+  level_8dpsk
+}).
+-define(read_enhanced_transmit_power_level_rp_bin(Status,Handle,Level_gfsk,Level_dqpsk,Level_8dpsk),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Level_gfsk:1/signed-unit:8,Level_dqpsk:1/signed-unit:8,Level_8dpsk:1/signed-unit:8).
+-define(READ_ENHANCED_TRANSMIT_POWER_LEVEL_RP_SIZE, 6).
+-define(OCF_READ_BEST_EFFORT_FLUSH_TIMEOUT, 105).
+-record(read_best_effort_flush_timeout_rp, {
+  status,
+  timeout
+}).
+-define(read_best_effort_flush_timeout_rp_bin(Status,Timeout),Status:1/unsigned-unit:8,Timeout:1/little-unsigned-unit:32).
+-define(READ_BEST_EFFORT_FLUSH_TIMEOUT_RP_SIZE, 5).
+-define(OCF_WRITE_BEST_EFFORT_FLUSH_TIMEOUT, 106).
+-record(write_best_effort_flush_timeout_cp, {
+  handle,
+  timeout
+}).
+-define(write_best_effort_flush_timeout_cp_bin(Handle,Timeout),Handle:1/little-unsigned-unit:16,Timeout:1/little-unsigned-unit:32).
+-define(WRITE_BEST_EFFORT_FLUSH_TIMEOUT_CP_SIZE, 6).
+-record(write_best_effort_flush_timeout_rp, {
+  status
+}).
+-define(write_best_effort_flush_timeout_rp_bin(Status),Status:1/unsigned-unit:8).
+-define(WRITE_BEST_EFFORT_FLUSH_TIMEOUT_RP_SIZE, 1).
+-define(OCF_READ_LE_HOST_SUPPORTED, 108).
+-record(read_le_host_supported_rp, {
+  status,
+  le,
+  simul
+}).
+-define(read_le_host_supported_rp_bin(Status,Le,Simul),Status:1/unsigned-unit:8,Le:1/unsigned-unit:8,Simul:1/unsigned-unit:8).
+-define(READ_LE_HOST_SUPPORTED_RP_SIZE, 3).
+-define(OCF_WRITE_LE_HOST_SUPPORTED, 109).
+-record(write_le_host_supported_cp, {
+  le,
+  simul
+}).
+-define(write_le_host_supported_cp_bin(Le,Simul),Le:1/unsigned-unit:8,Simul:1/unsigned-unit:8).
+-define(WRITE_LE_HOST_SUPPORTED_CP_SIZE, 2).
+-define(OGF_INFO_PARAM, 4).
+-define(OCF_READ_LOCAL_VERSION, 1).
+-record(read_local_version_rp, {
+  status,
+  hci_ver,
+  hci_rev,
+  lmp_ver,
+  manufacturer,
+  lmp_subver
+}).
+-define(read_local_version_rp_bin(Status,Hci_ver,Hci_rev,Lmp_ver,Manufacturer,Lmp_subver),Status:1/unsigned-unit:8,Hci_ver:1/unsigned-unit:8,Hci_rev:1/little-unsigned-unit:16,Lmp_ver:1/unsigned-unit:8,Manufacturer:1/little-unsigned-unit:16,Lmp_subver:1/little-unsigned-unit:16).
+-define(READ_LOCAL_VERSION_RP_SIZE, 9).
+-define(OCF_READ_LOCAL_COMMANDS, 2).
+-record(read_local_commands_rp, {
+  status,
+  commands
+}).
+-define(read_local_commands_rp_bin(Status,Commands),Status:1/unsigned-unit:8,Commands:64/unit:8-binary).
+-define(READ_LOCAL_COMMANDS_RP_SIZE, 65).
+-define(OCF_READ_LOCAL_FEATURES, 3).
+-record(read_local_features_rp, {
+  status,
+  features
+}).
+-define(read_local_features_rp_bin(Status,Features),Status:1/unsigned-unit:8,Features:8/unit:8-binary).
+-define(READ_LOCAL_FEATURES_RP_SIZE, 9).
+-define(OCF_READ_LOCAL_EXT_FEATURES, 4).
+-record(read_local_ext_features_cp, {
+  page_num
+}).
+-define(read_local_ext_features_cp_bin(Page_num),Page_num:1/unsigned-unit:8).
+-define(READ_LOCAL_EXT_FEATURES_CP_SIZE, 1).
+-record(read_local_ext_features_rp, {
+  status,
+  page_num,
+  max_page_num,
+  features
+}).
+-define(read_local_ext_features_rp_bin(Status,Page_num,Max_page_num,Features),Status:1/unsigned-unit:8,Page_num:1/unsigned-unit:8,Max_page_num:1/unsigned-unit:8,Features:8/unit:8-binary).
+-define(READ_LOCAL_EXT_FEATURES_RP_SIZE, 11).
+-define(OCF_READ_BUFFER_SIZE, 5).
+-record(read_buffer_size_rp, {
+  status,
+  acl_mtu,
+  sco_mtu,
+  acl_max_pkt,
+  sco_max_pkt
+}).
+-define(read_buffer_size_rp_bin(Status,Acl_mtu,Sco_mtu,Acl_max_pkt,Sco_max_pkt),Status:1/unsigned-unit:8,Acl_mtu:1/little-unsigned-unit:16,Sco_mtu:1/unsigned-unit:8,Acl_max_pkt:1/little-unsigned-unit:16,Sco_max_pkt:1/little-unsigned-unit:16).
+-define(READ_BUFFER_SIZE_RP_SIZE, 8).
+-define(OCF_READ_COUNTRY_CODE, 7).
+-define(OCF_READ_BD_ADDR, 9).
+-record(read_bd_addr_rp, {
+  status,
+  bdaddr
+}).
+-define(read_bd_addr_rp_bin(Status,Bdaddr),Status:1/unsigned-unit:8,Bdaddr:6/unit:8-binary).
+-define(READ_BD_ADDR_RP_SIZE, 7).
+-define(OGF_STATUS_PARAM, 5).
+-define(OCF_READ_FAILED_CONTACT_COUNTER, 1).
+-record(read_failed_contact_counter_rp, {
+  status,
+  handle,
+  counter
+}).
+-define(read_failed_contact_counter_rp_bin(Status,Handle,Counter),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Counter:1/unsigned-unit:8).
+-define(READ_FAILED_CONTACT_COUNTER_RP_SIZE, 4).
+-define(OCF_RESET_FAILED_CONTACT_COUNTER, 2).
+-record(reset_failed_contact_counter_rp, {
+  status,
+  handle
+}).
+-define(reset_failed_contact_counter_rp_bin(Status,Handle),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16).
+-define(RESET_FAILED_CONTACT_COUNTER_RP_SIZE, 4).
+-define(OCF_READ_LINK_QUALITY, 3).
+-record(read_link_quality_rp, {
+  status,
+  handle,
+  link_quality
+}).
+-define(read_link_quality_rp_bin(Status,Handle,Link_quality),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Link_quality:1/unsigned-unit:8).
+-define(READ_LINK_QUALITY_RP_SIZE, 4).
+-define(OCF_READ_RSSI, 5).
+-record(read_rssi_rp, {
+  status,
+  handle,
+  rssi
+}).
+-define(read_rssi_rp_bin(Status,Handle,Rssi),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Rssi:1/signed-unit:8).
+-define(READ_RSSI_RP_SIZE, 4).
+-define(OCF_READ_AFH_MAP, 6).
+-record(read_afh_map_rp, {
+  status,
+  handle,
+  mode,
+  map
+}).
+-define(read_afh_map_rp_bin(Status,Handle,Mode,Map),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Mode:1/unsigned-unit:8,Map:10/unit:8-binary).
+-define(READ_AFH_MAP_RP_SIZE, 14).
+-define(OCF_READ_CLOCK, 7).
+-record(read_clock_cp, {
+  handle,
+  which_clock
+}).
+-define(read_clock_cp_bin(Handle,Which_clock),Handle:1/little-unsigned-unit:16,Which_clock:1/unsigned-unit:8).
+-define(READ_CLOCK_CP_SIZE, 3).
+-record(read_clock_rp, {
+  status,
+  handle,
+  clock,
+  accuracy
+}).
+-define(read_clock_rp_bin(Status,Handle,Clock,Accuracy),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Clock:1/little-unsigned-unit:32,Accuracy:1/little-unsigned-unit:16).
+-define(READ_CLOCK_RP_SIZE, 9).
+-define(OCF_READ_LOCAL_AMP_INFO, 9).
+-record(read_local_amp_info_rp, {
+  status,
+  amp_status,
+  total_bandwidth,
+  max_guaranteed_bandwidth,
+  min_latency,
+  max_pdu_size,
+  controller_type,
+  pal_caps,
+  max_amp_assoc_length,
+  max_flush_timeout,
+  best_effort_flush_timeout
+}).
+-define(read_local_amp_info_rp_bin(Status,Amp_status,Total_bandwidth,Max_guaranteed_bandwidth,Min_latency,Max_pdu_size,Controller_type,Pal_caps,Max_amp_assoc_length,Max_flush_timeout,Best_effort_flush_timeout),Status:1/unsigned-unit:8,Amp_status:1/unsigned-unit:8,Total_bandwidth:1/little-unsigned-unit:32,Max_guaranteed_bandwidth:1/little-unsigned-unit:32,Min_latency:1/little-unsigned-unit:32,Max_pdu_size:1/little-unsigned-unit:32,Controller_type:1/unsigned-unit:8,Pal_caps:1/little-unsigned-unit:16,Max_amp_assoc_length:1/little-unsigned-unit:16,Max_flush_timeout:1/little-unsigned-unit:32,Best_effort_flush_timeout:1/little-unsigned-unit:32).
+-define(READ_LOCAL_AMP_INFO_RP_SIZE, 31).
+-define(OCF_READ_LOCAL_AMP_ASSOC, 10).
+-record(read_local_amp_assoc_cp, {
+  handle,
+  len_so_far,
+  max_len
+}).
+-define(read_local_amp_assoc_cp_bin(Handle,Len_so_far,Max_len),Handle:1/unsigned-unit:8,Len_so_far:1/little-unsigned-unit:16,Max_len:1/little-unsigned-unit:16).
+-record(read_local_amp_assoc_rp, {
+  status,
+  handle,
+  rem_len,
+  frag
+}).
+-define(read_local_amp_assoc_rp_bin(Status,Handle,Rem_len,Frag),Status:1/unsigned-unit:8,Handle:1/unsigned-unit:8,Rem_len:1/little-unsigned-unit:16,Frag:0/unit:8-binary).
+-define(OCF_WRITE_REMOTE_AMP_ASSOC, 11).
+-record(write_remote_amp_assoc_cp, {
+  handle,
+  length_so_far,
+  assoc_length,
+  fragment
+}).
+-define(write_remote_amp_assoc_cp_bin(Handle,Length_so_far,Assoc_length,Fragment),Handle:1/unsigned-unit:8,Length_so_far:1/little-unsigned-unit:16,Assoc_length:1/little-unsigned-unit:16,Fragment:(?HCI_MAX_NAME_LENGTH)/unit:8-binary).
+-define(WRITE_REMOTE_AMP_ASSOC_CP_SIZE, 253).
+-record(write_remote_amp_assoc_rp, {
+  status,
+  handle
+}).
+-define(write_remote_amp_assoc_rp_bin(Status,Handle),Status:1/unsigned-unit:8,Handle:1/unsigned-unit:8).
+-define(WRITE_REMOTE_AMP_ASSOC_RP_SIZE, 2).
+-define(OGF_TESTING_CMD, 62).
+-define(OCF_READ_LOOPBACK_MODE, 1).
+-define(OCF_WRITE_LOOPBACK_MODE, 2).
+-define(OCF_ENABLE_DEVICE_UNDER_TEST_MODE, 3).
+-define(OCF_WRITE_SIMPLE_PAIRING_DEBUG_MODE, 4).
+-record(write_simple_pairing_debug_mode_cp, {
+  mode
+}).
+-define(write_simple_pairing_debug_mode_cp_bin(Mode),Mode:1/unsigned-unit:8).
+-define(WRITE_SIMPLE_PAIRING_DEBUG_MODE_CP_SIZE, 1).
+-record(write_simple_pairing_debug_mode_rp, {
+  status
+}).
+-define(write_simple_pairing_debug_mode_rp_bin(Status),Status:1/unsigned-unit:8).
+-define(WRITE_SIMPLE_PAIRING_DEBUG_MODE_RP_SIZE, 1).
+-define(OGF_LE_CTL, 8).
+-define(OCF_LE_SET_EVENT_MASK, 1).
+-record(le_set_event_mask_cp, {
+  mask
+}).
+-define(le_set_event_mask_cp_bin(Mask),Mask:8/unit:8-binary).
+-define(LE_SET_EVENT_MASK_CP_SIZE, 8).
+-define(OCF_LE_READ_BUFFER_SIZE, 2).
+-record(le_read_buffer_size_rp, {
+  status,
+  pkt_len,
+  max_pkt
+}).
+-define(le_read_buffer_size_rp_bin(Status,Pkt_len,Max_pkt),Status:1/unsigned-unit:8,Pkt_len:1/little-unsigned-unit:16,Max_pkt:1/unsigned-unit:8).
+-define(LE_READ_BUFFER_SIZE_RP_SIZE, 4).
+-define(OCF_LE_READ_LOCAL_SUPPORTED_FEATURES, 3).
+-record(le_read_local_supported_features_rp, {
+  status,
+  features
+}).
+-define(le_read_local_supported_features_rp_bin(Status,Features),Status:1/unsigned-unit:8,Features:8/unit:8-binary).
+-define(LE_READ_LOCAL_SUPPORTED_FEATURES_RP_SIZE, 9).
+-define(OCF_LE_SET_RANDOM_ADDRESS, 5).
+-record(le_set_random_address_cp, {
+  bdaddr
+}).
+-define(le_set_random_address_cp_bin(Bdaddr),Bdaddr:6/unit:8-binary).
+-define(LE_SET_RANDOM_ADDRESS_CP_SIZE, 6).
+-define(OCF_LE_SET_ADVERTISING_PARAMETERS, 6).
+-record(le_set_advertising_parameters_cp, {
+  min_interval,
+  max_interval,
+  advtype,
+  own_bdaddr_type,
+  direct_bdaddr_type,
+  direct_bdaddr,
+  chan_map,
+  filter
+}).
+-define(le_set_advertising_parameters_cp_bin(Min_interval,Max_interval,Advtype,Own_bdaddr_type,Direct_bdaddr_type,Direct_bdaddr,Chan_map,Filter),Min_interval:1/little-unsigned-unit:16,Max_interval:1/little-unsigned-unit:16,Advtype:1/unsigned-unit:8,Own_bdaddr_type:1/unsigned-unit:8,Direct_bdaddr_type:1/unsigned-unit:8,Direct_bdaddr:6/unit:8-binary,Chan_map:1/unsigned-unit:8,Filter:1/unsigned-unit:8).
+-define(LE_SET_ADVERTISING_PARAMETERS_CP_SIZE, 15).
+-define(OCF_LE_READ_ADVERTISING_CHANNEL_TX_POWER, 7).
+-record(le_read_advertising_channel_tx_power_rp, {
+  status,
+  level
+}).
+-define(le_read_advertising_channel_tx_power_rp_bin(Status,Level),Status:1/unsigned-unit:8,Level:1/unsigned-unit:8).
+-define(LE_READ_ADVERTISING_CHANNEL_TX_POWER_RP_SIZE, 2).
+-define(OCF_LE_SET_ADVERTISING_DATA, 8).
+-record(le_set_advertising_data_cp, {
+  length,
+  data
+}).
+-define(le_set_advertising_data_cp_bin(Length,Data),Length:1/unsigned-unit:8,Data:31/unit:8-binary).
+-define(LE_SET_ADVERTISING_DATA_CP_SIZE, 32).
+-define(OCF_LE_SET_SCAN_RESPONSE_DATA, 9).
+-record(le_set_scan_response_data_cp, {
+  length,
+  data
+}).
+-define(le_set_scan_response_data_cp_bin(Length,Data),Length:1/unsigned-unit:8,Data:31/unit:8-binary).
+-define(LE_SET_SCAN_RESPONSE_DATA_CP_SIZE, 32).
+-define(OCF_LE_SET_ADVERTISE_ENABLE, 10).
+-record(le_set_advertise_enable_cp, {
+  enable
+}).
+-define(le_set_advertise_enable_cp_bin(Enable),Enable:1/unsigned-unit:8).
+-define(LE_SET_ADVERTISE_ENABLE_CP_SIZE, 1).
+-define(OCF_LE_SET_SCAN_PARAMETERS, 11).
+-record(le_set_scan_parameters_cp, {
+  type,
+  interval,
+  window,
+  own_bdaddr_type,
+  filter
+}).
+-define(le_set_scan_parameters_cp_bin(Type,Interval,Window,Own_bdaddr_type,Filter),Type:1/unsigned-unit:8,Interval:1/little-unsigned-unit:16,Window:1/little-unsigned-unit:16,Own_bdaddr_type:1/unsigned-unit:8,Filter:1/unsigned-unit:8).
+-define(LE_SET_SCAN_PARAMETERS_CP_SIZE, 7).
+-define(OCF_LE_SET_SCAN_ENABLE, 12).
+-record(le_set_scan_enable_cp, {
+  enable,
+  filter_dup
+}).
+-define(le_set_scan_enable_cp_bin(Enable,Filter_dup),Enable:1/unsigned-unit:8,Filter_dup:1/unsigned-unit:8).
+-define(LE_SET_SCAN_ENABLE_CP_SIZE, 2).
+-define(OCF_LE_CREATE_CONN, 13).
+-record(le_create_connection_cp, {
+  interval,
+  window,
+  initiator_filter,
+  peer_bdaddr_type,
+  peer_bdaddr,
+  own_bdaddr_type,
+  min_interval,
+  max_interval,
+  latency,
+  supervision_timeout,
+  min_ce_length,
+  max_ce_length
+}).
+-define(le_create_connection_cp_bin(Interval,Window,Initiator_filter,Peer_bdaddr_type,Peer_bdaddr,Own_bdaddr_type,Min_interval,Max_interval,Latency,Supervision_timeout,Min_ce_length,Max_ce_length),Interval:1/little-unsigned-unit:16,Window:1/little-unsigned-unit:16,Initiator_filter:1/unsigned-unit:8,Peer_bdaddr_type:1/unsigned-unit:8,Peer_bdaddr:6/unit:8-binary,Own_bdaddr_type:1/unsigned-unit:8,Min_interval:1/little-unsigned-unit:16,Max_interval:1/little-unsigned-unit:16,Latency:1/little-unsigned-unit:16,Supervision_timeout:1/little-unsigned-unit:16,Min_ce_length:1/little-unsigned-unit:16,Max_ce_length:1/little-unsigned-unit:16).
+-define(LE_CREATE_CONN_CP_SIZE, 25).
+-define(OCF_LE_CREATE_CONN_CANCEL, 14).
+-define(OCF_LE_READ_WHITE_LIST_SIZE, 15).
+-record(le_read_white_list_size_rp, {
+  status,
+  size
+}).
+-define(le_read_white_list_size_rp_bin(Status,Size),Status:1/unsigned-unit:8,Size:1/unsigned-unit:8).
+-define(LE_READ_WHITE_LIST_SIZE_RP_SIZE, 2).
+-define(OCF_LE_CLEAR_WHITE_LIST, 16).
+-define(OCF_LE_ADD_DEVICE_TO_WHITE_LIST, 17).
+-record(le_add_device_to_white_list_cp, {
+  bdaddr_type,
+  bdaddr
+}).
+-define(le_add_device_to_white_list_cp_bin(Bdaddr_type,Bdaddr),Bdaddr_type:1/unsigned-unit:8,Bdaddr:6/unit:8-binary).
+-define(LE_ADD_DEVICE_TO_WHITE_LIST_CP_SIZE, 7).
+-define(OCF_LE_REMOVE_DEVICE_FROM_WHITE_LIST, 18).
+-record(le_remove_device_from_white_list_cp, {
+  bdaddr_type,
+  bdaddr
+}).
+-define(le_remove_device_from_white_list_cp_bin(Bdaddr_type,Bdaddr),Bdaddr_type:1/unsigned-unit:8,Bdaddr:6/unit:8-binary).
+-define(LE_REMOVE_DEVICE_FROM_WHITE_LIST_CP_SIZE, 7).
+-define(OCF_LE_CONN_UPDATE, 19).
+-record(le_connection_update_cp, {
+  handle,
+  min_interval,
+  max_interval,
+  latency,
+  supervision_timeout,
+  min_ce_length,
+  max_ce_length
+}).
+-define(le_connection_update_cp_bin(Handle,Min_interval,Max_interval,Latency,Supervision_timeout,Min_ce_length,Max_ce_length),Handle:1/little-unsigned-unit:16,Min_interval:1/little-unsigned-unit:16,Max_interval:1/little-unsigned-unit:16,Latency:1/little-unsigned-unit:16,Supervision_timeout:1/little-unsigned-unit:16,Min_ce_length:1/little-unsigned-unit:16,Max_ce_length:1/little-unsigned-unit:16).
+-define(LE_CONN_UPDATE_CP_SIZE, 14).
+-define(OCF_LE_SET_HOST_CHANNEL_CLASSIFICATION, 20).
+-record(le_set_host_channel_classification_cp, {
+  map
+}).
+-define(le_set_host_channel_classification_cp_bin(Map),Map:5/unit:8-binary).
+-define(LE_SET_HOST_CHANNEL_CLASSIFICATION_CP_SIZE, 5).
+-define(OCF_LE_READ_CHANNEL_MAP, 21).
+-record(le_read_channel_map_cp, {
+  handle
+}).
+-define(le_read_channel_map_cp_bin(Handle),Handle:1/little-unsigned-unit:16).
+-define(LE_READ_CHANNEL_MAP_CP_SIZE, 2).
+-record(le_read_channel_map_rp, {
+  status,
+  handle,
+  map
+}).
+-define(le_read_channel_map_rp_bin(Status,Handle,Map),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Map:5/unit:8-binary).
+-define(LE_READ_CHANNEL_MAP_RP_SIZE, 8).
+-define(OCF_LE_READ_REMOTE_USED_FEATURES, 22).
+-record(le_read_remote_used_features_cp, {
+  handle
+}).
+-define(le_read_remote_used_features_cp_bin(Handle),Handle:1/little-unsigned-unit:16).
+-define(LE_READ_REMOTE_USED_FEATURES_CP_SIZE, 2).
+-define(OCF_LE_ENCRYPT, 23).
+-record(le_encrypt_cp, {
+  key,
+  plaintext
+}).
+-define(le_encrypt_cp_bin(Key,Plaintext),Key:16/unit:8-binary,Plaintext:16/unit:8-binary).
+-define(LE_ENCRYPT_CP_SIZE, 32).
+-record(le_encrypt_rp, {
+  status,
+  data
+}).
+-define(le_encrypt_rp_bin(Status,Data),Status:1/unsigned-unit:8,Data:16/unit:8-binary).
+-define(LE_ENCRYPT_RP_SIZE, 17).
+-define(OCF_LE_RAND, 24).
+-record(le_rand_rp, {
+  status,
+  random
+}).
+-define(le_rand_rp_bin(Status,Random),Status:1/unsigned-unit:8,Random:1/little-unsigned-unit:64).
+-define(LE_RAND_RP_SIZE, 9).
+-define(OCF_LE_START_ENCRYPTION, 25).
+-record(le_start_encryption_cp, {
+  handle,
+  random,
+  diversifier,
+  key
+}).
+-define(le_start_encryption_cp_bin(Handle,Random,Diversifier,Key),Handle:1/little-unsigned-unit:16,Random:1/little-unsigned-unit:64,Diversifier:1/little-unsigned-unit:16,Key:16/unit:8-binary).
+-define(LE_START_ENCRYPTION_CP_SIZE, 28).
+-define(OCF_LE_LTK_REPLY, 26).
+-record(le_ltk_reply_cp, {
+  handle,
+  key
+}).
+-define(le_ltk_reply_cp_bin(Handle,Key),Handle:1/little-unsigned-unit:16,Key:16/unit:8-binary).
+-define(LE_LTK_REPLY_CP_SIZE, 18).
+-record(le_ltk_reply_rp, {
+  status,
+  handle
+}).
+-define(le_ltk_reply_rp_bin(Status,Handle),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16).
+-define(LE_LTK_REPLY_RP_SIZE, 3).
+-define(OCF_LE_LTK_NEG_REPLY, 27).
+-record(le_ltk_neg_reply_cp, {
+  handle
+}).
+-define(le_ltk_neg_reply_cp_bin(Handle),Handle:1/little-unsigned-unit:16).
+-define(LE_LTK_NEG_REPLY_CP_SIZE, 2).
+-record(le_ltk_neg_reply_rp, {
+  status,
+  handle
+}).
+-define(le_ltk_neg_reply_rp_bin(Status,Handle),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16).
+-define(LE_LTK_NEG_REPLY_RP_SIZE, 3).
+-define(OCF_LE_READ_SUPPORTED_STATES, 28).
+-record(le_read_supported_states_rp, {
+  status,
+  states
+}).
+-define(le_read_supported_states_rp_bin(Status,States),Status:1/unsigned-unit:8,States:1/little-unsigned-unit:64).
+-define(LE_READ_SUPPORTED_STATES_RP_SIZE, 9).
+-define(OCF_LE_RECEIVER_TEST, 29).
+-record(le_receiver_test_cp, {
+  frequency
+}).
+-define(le_receiver_test_cp_bin(Frequency),Frequency:1/unsigned-unit:8).
+-define(LE_RECEIVER_TEST_CP_SIZE, 1).
+-define(OCF_LE_TRANSMITTER_TEST, 30).
+-record(le_transmitter_test_cp, {
+  frequency,
+  length,
+  payload
+}).
+-define(le_transmitter_test_cp_bin(Frequency,Length,Payload),Frequency:1/unsigned-unit:8,Length:1/unsigned-unit:8,Payload:1/unsigned-unit:8).
+-define(LE_TRANSMITTER_TEST_CP_SIZE, 3).
+-define(OCF_LE_TEST_END, 31).
+-record(le_test_end_rp, {
+  status,
+  num_pkts
+}).
+-define(le_test_end_rp_bin(Status,Num_pkts),Status:1/unsigned-unit:8,Num_pkts:1/little-unsigned-unit:16).
+-define(LE_TEST_END_RP_SIZE, 3).
+-define(OGF_VENDOR_CMD, 63).
+-define(EVT_INQUIRY_COMPLETE, 1).
+-define(EVT_INQUIRY_RESULT, 2).
+-record(inquiry_info, {
+  bdaddr,
+  pscan_rep_mode,
+  pscan_period_mode,
+  pscan_mode,
+  dev_class,
+  clock_offset
+}).
+-define(inquiry_info_bin(Bdaddr,Pscan_rep_mode,Pscan_period_mode,Pscan_mode,Dev_class,Clock_offset),Bdaddr:6/unit:8-binary,Pscan_rep_mode:1/unsigned-unit:8,Pscan_period_mode:1/unsigned-unit:8,Pscan_mode:1/unsigned-unit:8,Dev_class:3/unit:8-binary,Clock_offset:1/little-unsigned-unit:16).
+-define(INQUIRY_INFO_SIZE, 14).
+-define(EVT_CONN_COMPLETE, 3).
+-record(evt_conn_complete, {
+  status,
+  handle,
+  bdaddr,
+  link_type,
+  encr_mode
+}).
+-define(evt_conn_complete_bin(Status,Handle,Bdaddr,Link_type,Encr_mode),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Bdaddr:6/unit:8-binary,Link_type:1/unsigned-unit:8,Encr_mode:1/unsigned-unit:8).
+-define(EVT_CONN_COMPLETE_SIZE, 13).
+-define(EVT_CONN_REQUEST, 4).
+-record(evt_conn_request, {
+  bdaddr,
+  dev_class,
+  link_type
+}).
+-define(evt_conn_request_bin(Bdaddr,Dev_class,Link_type),Bdaddr:6/unit:8-binary,Dev_class:3/unit:8-binary,Link_type:1/unsigned-unit:8).
+-define(EVT_CONN_REQUEST_SIZE, 10).
+-define(EVT_DISCONN_COMPLETE, 5).
+-record(evt_disconn_complete, {
+  status,
+  handle,
+  reason
+}).
+-define(evt_disconn_complete_bin(Status,Handle,Reason),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Reason:1/unsigned-unit:8).
+-define(EVT_DISCONN_COMPLETE_SIZE, 4).
+-define(EVT_AUTH_COMPLETE, 6).
+-record(evt_auth_complete, {
+  status,
+  handle
+}).
+-define(evt_auth_complete_bin(Status,Handle),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16).
+-define(EVT_AUTH_COMPLETE_SIZE, 3).
+-define(EVT_REMOTE_NAME_REQ_COMPLETE, 7).
+-record(evt_remote_name_req_complete, {
+  status,
+  bdaddr,
+  name
+}).
+-define(evt_remote_name_req_complete_bin(Status,Bdaddr,Name),Status:1/unsigned-unit:8,Bdaddr:6/unit:8-binary,Name:(?HCI_MAX_NAME_LENGTH)/unit:8-binary).
+-define(EVT_REMOTE_NAME_REQ_COMPLETE_SIZE, 255).
+-define(EVT_ENCRYPT_CHANGE, 8).
+-record(evt_encrypt_change, {
+  status,
+  handle,
+  encrypt
+}).
+-define(evt_encrypt_change_bin(Status,Handle,Encrypt),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Encrypt:1/unsigned-unit:8).
+-define(EVT_ENCRYPT_CHANGE_SIZE, 5).
+-define(EVT_CHANGE_CONN_LINK_KEY_COMPLETE, 9).
+-record(evt_change_conn_link_key_complete, {
+  status,
+  handle
+}).
+-define(evt_change_conn_link_key_complete_bin(Status,Handle),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16).
+-define(EVT_CHANGE_CONN_LINK_KEY_COMPLETE_SIZE, 3).
+-define(EVT_MASTER_LINK_KEY_COMPLETE, 10).
+-record(evt_master_link_key_complete, {
+  status,
+  handle,
+  key_flag
+}).
+-define(evt_master_link_key_complete_bin(Status,Handle,Key_flag),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Key_flag:1/unsigned-unit:8).
+-define(EVT_MASTER_LINK_KEY_COMPLETE_SIZE, 4).
+-define(EVT_READ_REMOTE_FEATURES_COMPLETE, 11).
+-record(evt_read_remote_features_complete, {
+  status,
+  handle,
+  features
+}).
+-define(evt_read_remote_features_complete_bin(Status,Handle,Features),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Features:8/unit:8-binary).
+-define(EVT_READ_REMOTE_FEATURES_COMPLETE_SIZE, 11).
+-define(EVT_READ_REMOTE_VERSION_COMPLETE, 12).
+-record(evt_read_remote_version_complete, {
+  status,
+  handle,
+  lmp_ver,
+  manufacturer,
+  lmp_subver
+}).
+-define(evt_read_remote_version_complete_bin(Status,Handle,Lmp_ver,Manufacturer,Lmp_subver),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Lmp_ver:1/unsigned-unit:8,Manufacturer:1/little-unsigned-unit:16,Lmp_subver:1/little-unsigned-unit:16).
+-define(EVT_READ_REMOTE_VERSION_COMPLETE_SIZE, 8).
+-define(EVT_QOS_SETUP_COMPLETE, 13).
+-record(evt_qos_setup_complete, {
+  status,
+  handle,
+  flags,
+  qos
+}).
+-define(evt_qos_setup_complete_bin(Status,Handle,Flags,Qos),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Flags:1/unsigned-unit:8,Qos:17/unit:8-binary).
+-define(EVT_QOS_SETUP_COMPLETE_SIZE, (4 + ?HCI_QOS_CP_SIZE)).
+-define(EVT_CMD_COMPLETE, 14).
+-record(evt_cmd_complete, {
+  ncmd,
+  opcode
+}).
+-define(evt_cmd_complete_bin(Ncmd,Opcode),Ncmd:1/unsigned-unit:8,Opcode:1/little-unsigned-unit:16).
+-define(EVT_CMD_COMPLETE_SIZE, 3).
+-define(EVT_CMD_STATUS, 15).
+-record(evt_cmd_status, {
+  status,
+  ncmd,
+  opcode
+}).
+-define(evt_cmd_status_bin(Status,Ncmd,Opcode),Status:1/unsigned-unit:8,Ncmd:1/unsigned-unit:8,Opcode:1/little-unsigned-unit:16).
+-define(EVT_CMD_STATUS_SIZE, 4).
+-define(EVT_HARDWARE_ERROR, 16).
+-record(evt_hardware_error, {
+  code
+}).
+-define(evt_hardware_error_bin(Code),Code:1/unsigned-unit:8).
+-define(EVT_HARDWARE_ERROR_SIZE, 1).
+-define(EVT_FLUSH_OCCURRED, 17).
+-record(evt_flush_occured, {
+  handle
+}).
+-define(evt_flush_occured_bin(Handle),Handle:1/little-unsigned-unit:16).
+-define(EVT_FLUSH_OCCURRED_SIZE, 2).
+-define(EVT_ROLE_CHANGE, 18).
+-record(evt_role_change, {
+  status,
+  bdaddr,
+  role
+}).
+-define(evt_role_change_bin(Status,Bdaddr,Role),Status:1/unsigned-unit:8,Bdaddr:6/unit:8-binary,Role:1/unsigned-unit:8).
+-define(EVT_ROLE_CHANGE_SIZE, 8).
+-define(EVT_NUM_COMP_PKTS, 19).
+-record(evt_num_comp_pkts, {
+  num_hndl
+}).
+-define(evt_num_comp_pkts_bin(Num_hndl),Num_hndl:1/unsigned-unit:8).
+-define(EVT_NUM_COMP_PKTS_SIZE, 1).
+-define(EVT_MODE_CHANGE, 20).
+-record(evt_mode_change, {
+  status,
+  handle,
+  mode,
+  interval
+}).
+-define(evt_mode_change_bin(Status,Handle,Mode,Interval),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Mode:1/unsigned-unit:8,Interval:1/little-unsigned-unit:16).
+-define(EVT_MODE_CHANGE_SIZE, 6).
+-define(EVT_RETURN_LINK_KEYS, 21).
+-record(evt_return_link_keys, {
+  num_keys
+}).
+-define(evt_return_link_keys_bin(Num_keys),Num_keys:1/unsigned-unit:8).
+-define(EVT_RETURN_LINK_KEYS_SIZE, 1).
+-define(EVT_PIN_CODE_REQ, 22).
+-record(evt_pin_code_req, {
+  bdaddr
+}).
+-define(evt_pin_code_req_bin(Bdaddr),Bdaddr:6/unit:8-binary).
+-define(EVT_PIN_CODE_REQ_SIZE, 6).
+-define(EVT_LINK_KEY_REQ, 23).
+-record(evt_link_key_req, {
+  bdaddr
+}).
+-define(evt_link_key_req_bin(Bdaddr),Bdaddr:6/unit:8-binary).
+-define(EVT_LINK_KEY_REQ_SIZE, 6).
+-define(EVT_LINK_KEY_NOTIFY, 24).
+-record(evt_link_key_notify, {
+  bdaddr,
+  link_key,
+  key_type
+}).
+-define(evt_link_key_notify_bin(Bdaddr,Link_key,Key_type),Bdaddr:6/unit:8-binary,Link_key:16/unit:8-binary,Key_type:1/unsigned-unit:8).
+-define(EVT_LINK_KEY_NOTIFY_SIZE, 23).
+-define(EVT_LOOPBACK_COMMAND, 25).
+-define(EVT_DATA_BUFFER_OVERFLOW, 26).
+-record(evt_data_buffer_overflow, {
+  link_type
+}).
+-define(evt_data_buffer_overflow_bin(Link_type),Link_type:1/unsigned-unit:8).
+-define(EVT_DATA_BUFFER_OVERFLOW_SIZE, 1).
+-define(EVT_MAX_SLOTS_CHANGE, 27).
+-record(evt_max_slots_change, {
+  handle,
+  max_slots
+}).
+-define(evt_max_slots_change_bin(Handle,Max_slots),Handle:1/little-unsigned-unit:16,Max_slots:1/unsigned-unit:8).
+-define(EVT_MAX_SLOTS_CHANGE_SIZE, 3).
+-define(EVT_READ_CLOCK_OFFSET_COMPLETE, 28).
+-record(evt_read_clock_offset_complete, {
+  status,
+  handle,
+  clock_offset
+}).
+-define(evt_read_clock_offset_complete_bin(Status,Handle,Clock_offset),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Clock_offset:1/little-unsigned-unit:16).
+-define(EVT_READ_CLOCK_OFFSET_COMPLETE_SIZE, 5).
+-define(EVT_CONN_PTYPE_CHANGED, 29).
+-record(evt_conn_ptype_changed, {
+  status,
+  handle,
+  ptype
+}).
+-define(evt_conn_ptype_changed_bin(Status,Handle,Ptype),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Ptype:1/little-unsigned-unit:16).
+-define(EVT_CONN_PTYPE_CHANGED_SIZE, 5).
+-define(EVT_QOS_VIOLATION, 30).
+-record(evt_qos_violation, {
+  handle
+}).
+-define(evt_qos_violation_bin(Handle),Handle:1/little-unsigned-unit:16).
+-define(EVT_QOS_VIOLATION_SIZE, 2).
+-define(EVT_PSCAN_REP_MODE_CHANGE, 32).
+-record(evt_pscan_rep_mode_change, {
+  bdaddr,
+  pscan_rep_mode
+}).
+-define(evt_pscan_rep_mode_change_bin(Bdaddr,Pscan_rep_mode),Bdaddr:6/unit:8-binary,Pscan_rep_mode:1/unsigned-unit:8).
+-define(EVT_PSCAN_REP_MODE_CHANGE_SIZE, 7).
+-define(EVT_FLOW_SPEC_COMPLETE, 33).
+-record(evt_flow_spec_complete, {
+  status,
+  handle,
+  flags,
+  direction,
+  qos
+}).
+-define(evt_flow_spec_complete_bin(Status,Handle,Flags,Direction,Qos),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Flags:1/unsigned-unit:8,Direction:1/unsigned-unit:8,Qos:17/unit:8-binary).
+-define(EVT_FLOW_SPEC_COMPLETE_SIZE, (5 + ?HCI_QOS_CP_SIZE)).
+-define(EVT_INQUIRY_RESULT_WITH_RSSI, 34).
+-record(inquiry_info_with_rssi, {
+  bdaddr,
+  pscan_rep_mode,
+  pscan_period_mode,
+  dev_class,
+  clock_offset,
+  rssi
+}).
+-define(inquiry_info_with_rssi_bin(Bdaddr,Pscan_rep_mode,Pscan_period_mode,Dev_class,Clock_offset,Rssi),Bdaddr:6/unit:8-binary,Pscan_rep_mode:1/unsigned-unit:8,Pscan_period_mode:1/unsigned-unit:8,Dev_class:3/unit:8-binary,Clock_offset:1/little-unsigned-unit:16,Rssi:1/signed-unit:8).
+-define(INQUIRY_INFO_WITH_RSSI_SIZE, 14).
+-record(inquiry_info_with_rssi_and_pscan_mode, {
+  bdaddr,
+  pscan_rep_mode,
+  pscan_period_mode,
+  pscan_mode,
+  dev_class,
+  clock_offset,
+  rssi
+}).
+-define(inquiry_info_with_rssi_and_pscan_mode_bin(Bdaddr,Pscan_rep_mode,Pscan_period_mode,Pscan_mode,Dev_class,Clock_offset,Rssi),Bdaddr:6/unit:8-binary,Pscan_rep_mode:1/unsigned-unit:8,Pscan_period_mode:1/unsigned-unit:8,Pscan_mode:1/unsigned-unit:8,Dev_class:3/unit:8-binary,Clock_offset:1/little-unsigned-unit:16,Rssi:1/signed-unit:8).
+-define(INQUIRY_INFO_WITH_RSSI_AND_PSCAN_MODE_SIZE, 15).
+-define(EVT_READ_REMOTE_EXT_FEATURES_COMPLETE, 35).
+-record(evt_read_remote_ext_features_complete, {
+  status,
+  handle,
+  page_num,
+  max_page_num,
+  features
+}).
+-define(evt_read_remote_ext_features_complete_bin(Status,Handle,Page_num,Max_page_num,Features),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Page_num:1/unsigned-unit:8,Max_page_num:1/unsigned-unit:8,Features:8/unit:8-binary).
+-define(EVT_READ_REMOTE_EXT_FEATURES_COMPLETE_SIZE, 13).
+-define(EVT_SYNC_CONN_COMPLETE, 44).
+-record(evt_sync_conn_complete, {
+  status,
+  handle,
+  bdaddr,
+  link_type,
+  trans_interval,
+  retrans_window,
+  rx_pkt_len,
+  tx_pkt_len,
+  air_mode
+}).
+-define(evt_sync_conn_complete_bin(Status,Handle,Bdaddr,Link_type,Trans_interval,Retrans_window,Rx_pkt_len,Tx_pkt_len,Air_mode),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Bdaddr:6/unit:8-binary,Link_type:1/unsigned-unit:8,Trans_interval:1/unsigned-unit:8,Retrans_window:1/unsigned-unit:8,Rx_pkt_len:1/little-unsigned-unit:16,Tx_pkt_len:1/little-unsigned-unit:16,Air_mode:1/unsigned-unit:8).
+-define(EVT_SYNC_CONN_COMPLETE_SIZE, 17).
+-define(EVT_SYNC_CONN_CHANGED, 45).
+-record(evt_sync_conn_changed, {
+  status,
+  handle,
+  trans_interval,
+  retrans_window,
+  rx_pkt_len,
+  tx_pkt_len
+}).
+-define(evt_sync_conn_changed_bin(Status,Handle,Trans_interval,Retrans_window,Rx_pkt_len,Tx_pkt_len),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Trans_interval:1/unsigned-unit:8,Retrans_window:1/unsigned-unit:8,Rx_pkt_len:1/little-unsigned-unit:16,Tx_pkt_len:1/little-unsigned-unit:16).
+-define(EVT_SYNC_CONN_CHANGED_SIZE, 9).
+-define(EVT_SNIFF_SUBRATING, 46).
+-record(evt_sniff_subrating, {
+  status,
+  handle,
+  max_tx_latency,
+  max_rx_latency,
+  min_remote_timeout,
+  min_local_timeout
+}).
+-define(evt_sniff_subrating_bin(Status,Handle,Max_tx_latency,Max_rx_latency,Min_remote_timeout,Min_local_timeout),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Max_tx_latency:1/little-unsigned-unit:16,Max_rx_latency:1/little-unsigned-unit:16,Min_remote_timeout:1/little-unsigned-unit:16,Min_local_timeout:1/little-unsigned-unit:16).
+-define(EVT_SNIFF_SUBRATING_SIZE, 11).
+-define(EVT_EXTENDED_INQUIRY_RESULT, 47).
+-record(extended_inquiry_info, {
+  bdaddr,
+  pscan_rep_mode,
+  pscan_period_mode,
+  dev_class,
+  clock_offset,
+  rssi,
+  data
+}).
+-define(extended_inquiry_info_bin(Bdaddr,Pscan_rep_mode,Pscan_period_mode,Dev_class,Clock_offset,Rssi,Data),Bdaddr:6/unit:8-binary,Pscan_rep_mode:1/unsigned-unit:8,Pscan_period_mode:1/unsigned-unit:8,Dev_class:3/unit:8-binary,Clock_offset:1/little-unsigned-unit:16,Rssi:1/signed-unit:8,Data:(?HCI_MAX_EIR_LENGTH)/unit:8-binary).
+-define(EXTENDED_INQUIRY_INFO_SIZE, 254).
+-define(EVT_ENCRYPTION_KEY_REFRESH_COMPLETE, 48).
+-record(evt_encryption_key_refresh_complete, {
+  status,
+  handle
+}).
+-define(evt_encryption_key_refresh_complete_bin(Status,Handle),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16).
+-define(EVT_ENCRYPTION_KEY_REFRESH_COMPLETE_SIZE, 3).
+-define(EVT_IO_CAPABILITY_REQUEST, 49).
+-record(evt_io_capability_request, {
+  bdaddr
+}).
+-define(evt_io_capability_request_bin(Bdaddr),Bdaddr:6/unit:8-binary).
+-define(EVT_IO_CAPABILITY_REQUEST_SIZE, 6).
+-define(EVT_IO_CAPABILITY_RESPONSE, 50).
+-record(evt_io_capability_response, {
+  bdaddr,
+  capability,
+  oob_data,
+  authentication
+}).
+-define(evt_io_capability_response_bin(Bdaddr,Capability,Oob_data,Authentication),Bdaddr:6/unit:8-binary,Capability:1/unsigned-unit:8,Oob_data:1/unsigned-unit:8,Authentication:1/unsigned-unit:8).
+-define(EVT_IO_CAPABILITY_RESPONSE_SIZE, 9).
+-define(EVT_USER_CONFIRM_REQUEST, 51).
+-record(evt_user_confirm_request, {
+  bdaddr,
+  passkey
+}).
+-define(evt_user_confirm_request_bin(Bdaddr,Passkey),Bdaddr:6/unit:8-binary,Passkey:1/little-unsigned-unit:32).
+-define(EVT_USER_CONFIRM_REQUEST_SIZE, 10).
+-define(EVT_USER_PASSKEY_REQUEST, 52).
+-record(evt_user_passkey_request, {
+  bdaddr
+}).
+-define(evt_user_passkey_request_bin(Bdaddr),Bdaddr:6/unit:8-binary).
+-define(EVT_USER_PASSKEY_REQUEST_SIZE, 6).
+-define(EVT_REMOTE_OOB_DATA_REQUEST, 53).
+-record(evt_remote_oob_data_request, {
+  bdaddr
+}).
+-define(evt_remote_oob_data_request_bin(Bdaddr),Bdaddr:6/unit:8-binary).
+-define(EVT_REMOTE_OOB_DATA_REQUEST_SIZE, 6).
+-define(EVT_SIMPLE_PAIRING_COMPLETE, 54).
+-record(evt_simple_pairing_complete, {
+  status,
+  bdaddr
+}).
+-define(evt_simple_pairing_complete_bin(Status,Bdaddr),Status:1/unsigned-unit:8,Bdaddr:6/unit:8-binary).
+-define(EVT_SIMPLE_PAIRING_COMPLETE_SIZE, 7).
+-define(EVT_LINK_SUPERVISION_TIMEOUT_CHANGED, 56).
+-record(evt_link_supervision_timeout_changed, {
+  handle,
+  timeout
+}).
+-define(evt_link_supervision_timeout_changed_bin(Handle,Timeout),Handle:1/little-unsigned-unit:16,Timeout:1/little-unsigned-unit:16).
+-define(EVT_LINK_SUPERVISION_TIMEOUT_CHANGED_SIZE, 4).
+-define(EVT_ENHANCED_FLUSH_COMPLETE, 57).
+-record(evt_enhanced_flush_complete, {
+  handle
+}).
+-define(evt_enhanced_flush_complete_bin(Handle),Handle:1/little-unsigned-unit:16).
+-define(EVT_ENHANCED_FLUSH_COMPLETE_SIZE, 2).
+-define(EVT_USER_PASSKEY_NOTIFY, 59).
+-record(evt_user_passkey_notify, {
+  bdaddr,
+  passkey,
+  entered
+}).
+-define(evt_user_passkey_notify_bin(Bdaddr,Passkey,Entered),Bdaddr:6/unit:8-binary,Passkey:1/little-unsigned-unit:32,Entered:1/unsigned-unit:8).
+-define(EVT_USER_PASSKEY_NOTIFY_SIZE, 11).
+-define(EVT_KEYPRESS_NOTIFY, 60).
+-record(evt_keypress_notify, {
+  bdaddr,
+  type
+}).
+-define(evt_keypress_notify_bin(Bdaddr,Type),Bdaddr:6/unit:8-binary,Type:1/unsigned-unit:8).
+-define(EVT_KEYPRESS_NOTIFY_SIZE, 7).
+-define(EVT_REMOTE_HOST_FEATURES_NOTIFY, 61).
+-record(evt_remote_host_features_notify, {
+  bdaddr,
+  features
+}).
+-define(evt_remote_host_features_notify_bin(Bdaddr,Features),Bdaddr:6/unit:8-binary,Features:8/unit:8-binary).
+-define(EVT_REMOTE_HOST_FEATURES_NOTIFY_SIZE, 14).
+-define(EVT_LE_META_EVENT, 62).
+-record(evt_le_meta_event, {
+  subevent,
+  data
+}).
+-define(evt_le_meta_event_bin(Subevent,Data),Subevent:1/unsigned-unit:8,Data:0/unit:8-binary).
+-define(EVT_LE_META_EVENT_SIZE, 1).
+-define(EVT_LE_CONN_COMPLETE, 1).
+-record(evt_le_connection_complete, {
+  status,
+  handle,
+  role,
+  peer_bdaddr_type,
+  peer_bdaddr,
+  interval,
+  latency,
+  supervision_timeout,
+  master_clock_accuracy
+}).
+-define(evt_le_connection_complete_bin(Status,Handle,Role,Peer_bdaddr_type,Peer_bdaddr,Interval,Latency,Supervision_timeout,Master_clock_accuracy),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Role:1/unsigned-unit:8,Peer_bdaddr_type:1/unsigned-unit:8,Peer_bdaddr:6/unit:8-binary,Interval:1/little-unsigned-unit:16,Latency:1/little-unsigned-unit:16,Supervision_timeout:1/little-unsigned-unit:16,Master_clock_accuracy:1/unsigned-unit:8).
+-define(EVT_LE_CONN_COMPLETE_SIZE, 18).
+-define(EVT_LE_ADVERTISING_REPORT, 2).
+-record(le_advertising_info, {
+  evt_type,
+  bdaddr_type,
+  bdaddr,
+  length,
+  data
+}).
+-define(le_advertising_info_bin(Evt_type,Bdaddr_type,Bdaddr,Length,Data),Evt_type:1/unsigned-unit:8,Bdaddr_type:1/unsigned-unit:8,Bdaddr:6/unit:8-binary,Length:1/unsigned-unit:8,Data:0/unit:8-binary).
+-define(LE_ADVERTISING_INFO_SIZE, 9).
+-define(EVT_LE_CONN_UPDATE_COMPLETE, 3).
+-record(evt_le_connection_update_complete, {
+  status,
+  handle,
+  interval,
+  latency,
+  supervision_timeout
+}).
+-define(evt_le_connection_update_complete_bin(Status,Handle,Interval,Latency,Supervision_timeout),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Interval:1/little-unsigned-unit:16,Latency:1/little-unsigned-unit:16,Supervision_timeout:1/little-unsigned-unit:16).
+-define(EVT_LE_CONN_UPDATE_COMPLETE_SIZE, 9).
+-define(EVT_LE_READ_REMOTE_USED_FEATURES_COMPLETE, 4).
+-record(evt_le_read_remote_used_features_complete, {
+  status,
+  handle,
+  features
+}).
+-define(evt_le_read_remote_used_features_complete_bin(Status,Handle,Features),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16,Features:8/unit:8-binary).
+-define(EVT_LE_READ_REMOTE_USED_FEATURES_COMPLETE_SIZE, 11).
+-define(EVT_LE_LTK_REQUEST, 5).
+-record(evt_le_long_term_key_request, {
+  handle,
+  random,
+  diversifier
+}).
+-define(evt_le_long_term_key_request_bin(Handle,Random,Diversifier),Handle:1/little-unsigned-unit:16,Random:1/little-unsigned-unit:64,Diversifier:1/little-unsigned-unit:16).
+-define(EVT_LE_LTK_REQUEST_SIZE, 12).
+-define(EVT_PHYSICAL_LINK_COMPLETE, 64).
+-record(evt_physical_link_complete, {
+  status,
+  handle
+}).
+-define(evt_physical_link_complete_bin(Status,Handle),Status:1/unsigned-unit:8,Handle:1/unsigned-unit:8).
+-define(EVT_PHYSICAL_LINK_COMPLETE_SIZE, 2).
+-define(EVT_CHANNEL_SELECTED, 65).
+-define(EVT_DISCONNECT_PHYSICAL_LINK_COMPLETE, 66).
+-record(evt_disconn_physical_link_complete, {
+  status,
+  handle,
+  reason
+}).
+-define(evt_disconn_physical_link_complete_bin(Status,Handle,Reason),Status:1/unsigned-unit:8,Handle:1/unsigned-unit:8,Reason:1/unsigned-unit:8).
+-define(EVT_DISCONNECT_PHYSICAL_LINK_COMPLETE_SIZE, 3).
+-define(EVT_PHYSICAL_LINK_LOSS_EARLY_WARNING, 67).
+-record(evt_physical_link_loss_warning, {
+  handle,
+  reason
+}).
+-define(evt_physical_link_loss_warning_bin(Handle,Reason),Handle:1/unsigned-unit:8,Reason:1/unsigned-unit:8).
+-define(EVT_PHYSICAL_LINK_LOSS_WARNING_SIZE, 2).
+-define(EVT_PHYSICAL_LINK_RECOVERY, 68).
+-record(evt_physical_link_recovery, {
+  handle
+}).
+-define(evt_physical_link_recovery_bin(Handle),Handle:1/unsigned-unit:8).
+-define(EVT_PHYSICAL_LINK_RECOVERY_SIZE, 1).
+-define(EVT_LOGICAL_LINK_COMPLETE, 69).
+-record(evt_logical_link_complete, {
+  status,
+  log_handle,
+  handle,
+  tx_flow_id
+}).
+-define(evt_logical_link_complete_bin(Status,Log_handle,Handle,Tx_flow_id),Status:1/unsigned-unit:8,Log_handle:1/little-unsigned-unit:16,Handle:1/unsigned-unit:8,Tx_flow_id:1/unsigned-unit:8).
+-define(EVT_LOGICAL_LINK_COMPLETE_SIZE, 5).
+-define(EVT_DISCONNECT_LOGICAL_LINK_COMPLETE, 70).
+-define(EVT_FLOW_SPEC_MODIFY_COMPLETE, 71).
+-record(evt_flow_spec_modify_complete, {
+  status,
+  handle
+}).
+-define(evt_flow_spec_modify_complete_bin(Status,Handle),Status:1/unsigned-unit:8,Handle:1/little-unsigned-unit:16).
+-define(EVT_FLOW_SPEC_MODIFY_COMPLETE_SIZE, 3).
+-define(EVT_NUMBER_COMPLETED_BLOCKS, 72).
+-define(EVT_AMP_STATUS_CHANGE, 77).
+-record(evt_amp_status_change, {
+  status,
+  amp_status
+}).
+-define(evt_amp_status_change_bin(Status,Amp_status),Status:1/unsigned-unit:8,Amp_status:1/unsigned-unit:8).
+-define(EVT_AMP_STATUS_CHANGE_SIZE, 2).
+-define(EVT_TESTING, 254).
+-define(EVT_VENDOR, 255).
+-define(EVT_STACK_INTERNAL, 253).
+-record(evt_stack_internal, {
+  type,
+  data
+}).
+-define(evt_stack_internal_bin(Type,Data),Type:1/little-unsigned-unit:16,Data:0/unit:8-binary).
+-define(EVT_STACK_INTERNAL_SIZE, 2).
+-define(EVT_SI_DEVICE, 1).
+-record(evt_si_device, {
+  event,
+  dev_id
+}).
+-define(evt_si_device_bin(Event,Dev_id),Event:1/little-unsigned-unit:16,Dev_id:1/little-unsigned-unit:16).
+-define(EVT_SI_DEVICE_SIZE, 4).
+-endif.
diff --git a/deps/bt/src/hci_drv.erl b/deps/bt/src/hci_drv.erl
new file mode 100644
index 0000000..8f3d062
--- /dev/null
+++ b/deps/bt/src/hci_drv.erl
@@ -0,0 +1,514 @@
+%%% @author Tony Rogvall <tony@up13>
+%%% @copyright (C) 2015, Tony Rogvall
+%%% @doc
+%%%     hci_drv
+%%% @end
+%%% Created :  5 Apr 2015 by Tony Rogvall <tony@up13>
+
+-module(hci_drv).
+
+-export([open/0]).
+-export([bind/2]).
+-export([close/1]).
+-export([send/2]).
+-export([activate/1]).
+-export([deactivate/1]).
+-export([activate/2]).
+-export([debug/2]).
+-export([dev_up/2]).
+-export([dev_down/2]).
+-export([dev_reset/2]).  %% down,up?
+-export([dev_restat/2]). %% reset statistics
+-export([get_dev_list/1]).
+-export([get_dev_info/2]).
+-export([get_conn_list/2]).
+-export([get_conn_info/3]).
+-export([get_auth_info/2]).
+-export([set_raw/2]).
+-export([set_auth/3]).
+-export([set_encrypt/3]).
+-export([set_ptype/3]).
+-export([set_link_policy/3]).
+-export([set_link_mode/3]).
+-export([set_scan/3]).
+-export([set_acl_mtu/4]).
+-export([set_sco_mtu/4]).
+-export([block/2]).
+-export([unblock/2]).
+-export([inquiry/5]).
+
+-export([set_filter/2]).
+-export([get_filter/1]).
+-export([set_filter_ptype/2]).
+-export([clr_filter_ptype/2]).
+-export([set_filter_event/2]).
+-export([clr_filter_event/2]).
+-export([set_filter_opcode/2]).
+-export([make_filter/3]).
+
+-include("../include/hci_drv.hrl").
+-include("hci_api.hrl").
+
+%% deugging
+-compile(export_all).
+
+-define(CMD_ACTIVE,         1).
+-define(CMD_DEBUG,          2).
+-define(CMD_BIND,           3).
+-define(CMD_GETFILTER,      4).
+-define(CMD_SETFILTER,      5).
+
+-define(CMD_HCIDEVUP,	   201).
+-define(CMD_HCIDEVDOWN,	   202).
+-define(CMD_HCIDEVRESET,	   203).
+-define(CMD_HCIDEVRESTAT,   204).
+-define(CMD_HCIGETDEVLIST,  210).
+-define(CMD_HCIGETDEVINFO,  211).
+-define(CMD_HCIGETCONNLIST, 212).
+-define(CMD_HCIGETCONNINFO, 213).
+-define(CMD_HCIGETAUTHINFO, 215).
+-define(CMD_HCISETRAW,	   220).
+-define(CMD_HCISETSCAN,	   221).
+-define(CMD_HCISETAUTH,	   222).
+-define(CMD_HCISETENCRYPT,  223).
+-define(CMD_HCISETPTYPE,   224).
+-define(CMD_HCISETLINKPOL,  225).
+-define(CMD_HCISETLINKMODE, 226).
+-define(CMD_HCISETACLMTU,   227).
+-define(CMD_HCISETSCOMTU,   228).
+-define(CMD_HCIBLOCKADDR,   230).
+-define(CMD_HCIUNBLOCKADDR, 231).
+-define(CMD_HCIINQUIRY,	   240).
+
+
+-define(DLOG_DEBUG,     7).
+-define(DLOG_INFO,      6).
+-define(DLOG_NOTICE,    5).
+-define(DLOG_WARNING,   4).
+-define(DLOG_ERROR,     3).
+-define(DLOG_CRITICAL,  2).
+-define(DLOG_ALERT,     1).
+-define(DLOG_EMERGENCY, 0).
+-define(DLOG_NONE,     -1).
+
+
+-spec open() -> hci_socket_t().
+open() ->
+    Driver = "hci_drv",
+    Path = code:priv_dir(bt),
+    %% io:format("load_driver '~s' from: '~s'\n", [Driver, Path]),
+    case erl_ddll:load_driver(Path, Driver) of
+	ok ->
+	    erlang:open_port({spawn_driver, Driver}, [binary]);
+	{error,Error} ->
+	    io:format("Error: ~s\n", [erl_ddll:format_error_int(Error)]),
+	    erlang:error(Error)
+    end.
+
+%% Close the HCI socket
+-spec close(Hci::hci_socket_t()) -> boolean().
+close(Hci) when is_port(Hci) ->
+    erlang:port_close(Hci).
+
+%% Bind HCI socket to device
+-spec bind(Hci::hci_socket_t(), DevID::hci_devid_t()) -> ok | {error,posix()}.
+
+bind(Hci, DevID) when is_port(Hci), is_integer(DevID) ->
+    port_call(Hci, ?CMD_BIND, <<DevID:32/signed>>).
+
+%% Bring the device UP
+-spec dev_up(Hci::hci_socket_t(), DevID::hci_devid_t()) -> ok | {error,posix()}.
+
+dev_up(Hci,DevID) when is_port(Hci), is_integer(DevID) ->
+    port_call(Hci, ?CMD_HCIDEVUP, <<DevID:32/signed>>).
+
+%% Bring the device DOWN
+-spec dev_down(Hci::hci_socket_t(), DevID::hci_devid_t()) -> ok | {error,posix()}.
+
+dev_down(Hci,DevID) when is_port(Hci), is_integer(DevID) ->
+    port_call(Hci, ?CMD_HCIDEVDOWN, <<DevID:32/signed>>).
+
+%% Reset the device, maybe do down/up? as seen in library code elsewhere
+-spec dev_reset(Hci::hci_socket_t(), DevID::hci_devid_t()) -> ok | {error,posix()}.
+
+dev_reset(Hci,DevID) when is_port(Hci), is_integer(DevID) ->
+    port_call(Hci, ?CMD_HCIDEVRESET, <<DevID:32/signed>>).
+
+%% Reset device statistics
+-spec dev_restat(Hci::hci_socket_t(), DevID::hci_devid_t()) -> ok | {error,posix()}.
+
+dev_restat(Hci,DevID) when is_port(Hci), is_integer(DevID) ->
+    port_call(Hci, ?CMD_HCIDEVRESTAT, <<DevID:32/signed>>).
+
+%% Get list of [{device(),options()}] 
+-spec get_dev_list(Hci::hci_socket_t()) ->
+			  {ok,[{DevID::hci_devid_t(), Opt::integer()}]} |
+			  {error,posix()}.
+get_dev_list(Hci) when is_port(Hci) ->
+    case port_call(Hci, ?CMD_HCIGETDEVLIST, <<>>) of
+	{ok, DevList} ->
+	    {ok,
+	     [{DevID,DevOpt} || 
+		 <<DevID:16, DevOpt:32>>
+		     <= DevList  ]};
+	Error ->
+	    Error
+    end.
+
+%% get device info
+-spec get_dev_info(Hci::hci_socket_t(), DevID::hci_devid_t()) ->
+			  {ok,[#hci_dev_info{}]} | {error,posix()}.
+
+get_dev_info(Hci, DevID) ->
+    case port_call(Hci, ?CMD_HCIGETDEVINFO, <<DevID:32/signed>>) of
+	{ok, Info} ->
+	    {ok, decode_hci_dev_info(Info)};
+	Error ->
+	    Error
+    end.
+
+%% get device info
+-spec get_conn_list(Hci::hci_socket_t(), DevID::hci_devid_t()) ->
+			   {ok,[#hci_conn_info{}]} | {error,posix()}.
+get_conn_list(Hci, DevID) ->
+    case port_call(Hci, ?CMD_HCIGETCONNLIST, <<DevID:32/signed>>) of
+	{ok, Data} ->
+	    {ok, decode_hci_conn_list(Data)};
+	Error ->
+	    Error
+    end.
+
+-spec get_conn_info(Hci::hci_socket_t(), Addr::bdaddr_t(), Type::uint8_t()) ->
+			   {ok,#hci_conn_info{}} | {error,posix()}.
+
+get_conn_info(Hci, Addr, Type) when is_port(Hci) ->
+    case bt:getaddr(Addr) of
+	{ok,{A,B,C,D,E,F}} ->
+	    case port_call(Hci, ?CMD_HCIGETCONNINFO, <<F,E,D,C,B,A,Type>>) of
+		{ok, Info} ->
+		    {ok, decode_hci_conn_info(Info)};
+		Error ->
+		    Error
+	    end;
+	Error ->
+	    Error
+    end.
+
+-spec get_auth_info(Hci::hci_socket_t(), Addr::bdaddr_t()) ->
+			   {ok, Type::uint8_t()} | {error,posix()}.
+
+get_auth_info(Hci, Addr) when is_port(Hci) ->
+    case bt:getaddr(Addr) of
+	{ok,{A,B,C,D,E,F}} ->
+	    port_call(Hci, ?CMD_HCIGETAUTHINFO, <<F,E,D,C,B,A>>);
+	Error ->
+	    Error
+    end.
+
+%% Set raw processing?
+-spec set_raw(Hci::hci_socket_t(), DevID::hci_devid_t()) -> ok | {error,posix()}.
+
+set_raw(Hci,DevID) when is_port(Hci), is_integer(DevID) ->
+    port_call(Hci, ?CMD_HCISETRAW, <<DevID:32/signed>>).
+
+%% Enable/Disable authentication
+-spec set_auth(Hci::hci_socket_t(), DevID::hci_devid_t(), DoAuth::boolean()) ->
+		      ok | {error,posix()}.
+set_auth(Hci,DevID,DoAuth) when is_port(Hci), is_integer(DevID),
+				is_boolean(DoAuth) ->
+    port_call(Hci, ?CMD_HCISETAUTH, <<DevID:32/signed,DoAuth:8>>).
+
+%% Enable/Disable authentication
+-spec set_encrypt(Hci::hci_socket_t(), DevID::hci_devid_t(), DoAuth::boolean()) ->
+			 ok | {error,posix()}.
+set_encrypt(Hci,DevID,DoEncrypt) when is_port(Hci), is_integer(DevID),
+				      is_boolean(DoEncrypt) ->
+    port_call(Hci, ?CMD_HCISETENCRYPT, <<DevID:32/signed,DoEncrypt:8>>).
+
+%% Set device packet type
+-spec set_ptype(Hci::hci_socket_t(),DevID::hci_devid_t(),PType::[string()]) ->
+		       ok | {error,posix()}.
+set_ptype(Hci,DevID,PType0) when is_port(Hci), is_integer(DevID),
+				 is_list(PType0) ->
+    PType = set_bits(PType0, hci_util:kv_pkt_ptype()),
+    port_call(Hci, ?CMD_HCISETPTYPE, <<DevID:32/signed,PType:32>>).
+
+-spec set_link_policy(Hci::hci_socket_t(),DevID::hci_devid_t(),Pol::string()) ->
+			     ok | {error,posix()}.
+set_link_policy(Hci,DevID,Pol0) when is_port(Hci), is_integer(DevID) ->
+    LinkPolicy = hci_util:find_enum_value(Pol0, hci_util:kv_link_policy()),
+    port_call(Hci, ?CMD_HCISETLINKPOL, <<DevID:32/signed,LinkPolicy:32>>).
+
+-spec set_link_mode(Hci::hci_socket_t(),DevID::hci_devid_t(),Mode::string()) ->
+			     ok | {error,posix()}.
+set_link_mode(Hci,DevID,Mode0) when is_port(Hci), is_integer(DevID) ->
+    LinkMode = hci_util:find_enum_value(Mode0, hci_util:kv_link_mode()),
+    port_call(Hci, ?CMD_HCISETLINKMODE, <<DevID:32/signed,LinkMode:32>>).
+
+-spec set_scan(Hci::hci_socket_t(),DevID::hci_devid_t(),Scan::string()) ->
+		      ok | {error,posix()}.
+set_scan(Hci,DevID,Scan0) when is_port(Hci) ->
+    Scan = hci_util:find_enum_value(Scan0, hci_util:kv_scan()),
+    port_call(Hci, ?CMD_HCISETSCAN, <<DevID:32/signed,Scan:32>>).
+
+-spec set_acl_mtu(Hci::hci_socket_t(),DevID::hci_devid_t(),
+		  Mtu::integer(),Mpkt::integer()) ->
+			 ok | {error,posix()}.
+set_acl_mtu(Hci,DevID,Mtu,Mpkt) when is_port(Hci) ->
+    port_call(Hci, ?CMD_HCISETACLMTU, <<DevID:32/signed,Mtu:16,Mpkt:16>>).
+
+-spec set_sco_mtu(Hci::hci_socket_t(),DevID::hci_devid_t(),
+		  Mtu::integer(),Mpkt::integer()) ->
+			 ok | {error,posix()}.
+set_sco_mtu(Hci,DevID,Mtu,Mpkt) when is_port(Hci) ->
+    port_call(Hci, ?CMD_HCISETSCOMTU, <<DevID:32/signed,Mtu:16,Mpkt:16>>).
+
+%% The Hci socket must be bound before this operation
+-spec block(Hci::hci_socket_t(), Addr::bdaddr_t()) ->
+		   ok | {error,posix()}.
+block(Hci, Addr) when is_port(Hci) ->
+    case bt:getaddr(Addr) of
+	{ok,{A,B,C,D,E,F}} ->
+	    port_call(Hci, ?CMD_HCIBLOCKADDR, <<F,E,D,C,B,A>>);
+	Error ->
+	    Error
+    end.
+
+%% The Hci socket must be bound before this operation
+-spec unblock(Hci::hci_socket_t(), Addr:: all | bdaddr_t()) ->
+		     ok | {error,posix()}.
+unblock(Hci, all) when is_port(Hci) ->
+    unblock(Hci, {0,0,0,0,0,0});
+unblock(Hci,Addr) when is_port(Hci) ->
+    case bt:getaddr(Addr) of
+	{ok, {A,B,C,D,E,F}} ->
+	    port_call(Hci, ?CMD_HCIUNBLOCKADDR, <<F,E,D,C,B,A>>);
+	Error ->
+	    Error
+    end.
+
+%% Timeout is in millisecs but is converted into 1.28s units
+%% 1 len = 1.28s = 1280 ms
+inquiry(Hci, Timeout, NumRsp, Lap0, Flags) ->
+    Len = (Timeout div 1280) + (if Timeout rem 1280 =:= 0 -> 0; true -> 1 end),
+    Lap = if Lap0 =:= 0; Lap0 =:= <<>> -> <<16#33,16#8b,16#9e>>;
+	      byte_size(Lap0) =:= 3 -> Lap0
+	  end,
+    Args = <<Len, NumRsp, Lap/binary, Flags:32>>,
+    case port_call(Hci, ?CMD_HCIINQUIRY, Args) of
+	{ok, Bin} ->
+	    {ok, [hci_api:decode_inquiry_info(Info) ||
+		     <<Info:?INQUIRY_INFO_SIZE/binary>> <= Bin]};
+	Error ->
+	    Error
+    end.
+    
+
+-spec deactivate(Hci::hci_socket_t()) -> ok | {error,posix()}.
+
+deactivate(Hci) when is_port(Hci) ->
+    activate(Hci, 0).    
+
+-spec activate(Hci::hci_socket_t()) -> ok | {error,posix()}.
+activate(Hci) when is_port(Hci) ->
+    activate(Hci, -1).
+
+-spec activate(Hci::hci_socket_t(),N::integer()) -> ok | {error,posix()}.
+activate(Hci, N) when is_port(Hci),
+		      is_integer(N), N >= -1, N < 16#7fffffff ->
+    port_call(Hci, ?CMD_ACTIVE, <<N:32>>).
+
+-spec debug(Hci::hci_socket_t(), Level::level_t()) -> ok.
+debug(Hci,Level) when is_port(Hci), is_atom(Level) ->
+    L = level(Level),
+    port_call(Hci, ?CMD_DEBUG, <<L:32>>).
+
+set_filter_ptype(T, F = #hci_filter { type_mask = M}) ->
+    Bit = if T =:= ?HCI_VENDOR_PKT -> 1;
+	      true ->  1 bsl (T band ?HCI_FLT_TYPE_BITS)
+	   end,
+    F#hci_filter { type_mask = M bor Bit }.
+
+clr_filter_ptype(T, F = #hci_filter { type_mask = M}) ->
+    Bit = if T =:= ?HCI_VENDOR_PKT -> 1;
+	      true ->  1 bsl (T band ?HCI_FLT_TYPE_BITS)
+	   end,
+    F#hci_filter { type_mask = M band (bnot Bit) }.
+
+set_filter_event(E, F = #hci_filter { event_mask = M}) ->
+    Bit = 1 bsl (E band ?HCI_FLT_EVENT_BITS),
+    F#hci_filter { event_mask = M bor Bit }.
+
+clr_filter_event(E, F = #hci_filter { event_mask = M}) ->
+    Bit = 1 bsl (E band ?HCI_FLT_EVENT_BITS),
+    F#hci_filter { event_mask = M band (bnot Bit) }.
+
+set_filter_opcode(Opcode,  F = #hci_filter { }) ->
+    F#hci_filter { opcode = Opcode }.
+
+make_filter(Opcode, Ts, Es) when is_integer(Opcode),
+				 is_list(Ts),
+				 is_list(Es) ->
+    
+    Type_mask = make_bits(Ts, 0) band 16#ffffffff,
+    Event_mask = make_bits(Es, 0) band 16#ffffffffffffffff,
+    #hci_filter { type_mask = Type_mask,
+		  event_mask = Event_mask,
+		  opcode = Opcode }.
+
+make_bits([255|Ns], Bits) ->  %% ?HCI_VENDOR_PKT! -> 1
+    make_bits(Ns, Bits bor 1);
+make_bits([-1|_], _Bits) -> 16#ffffffffffffffff;
+make_bits([Nr|Ns], Bits) when is_integer(Nr), Nr >= 0 ->
+    make_bits(Ns, Bits bor (1 bsl Nr));
+make_bits([], Bits) ->
+    Bits.
+
+
+-spec set_filter(Hci::hci_socket_t(), Filter::#hci_filter{}) ->
+			ok | {error,posix()}.
+set_filter(Hci,Filter) when is_port(Hci), is_record(Filter, hci_filter) ->
+    port_call(Hci, ?CMD_SETFILTER, encode_hci_filter(Filter)).
+
+-spec get_filter(Hci::hci_socket_t()) ->
+			{ok, Filter::#hci_filter{}} | {error,posix()}.
+
+get_filter(Hci) when is_port(Hci) ->
+    case port_call(Hci, ?CMD_GETFILTER, <<>>) of
+	{ok, Data} -> {ok, decode_hci_filter(Data)};
+	Error -> Error
+    end.
+
+-spec send(Hci::hci_socket_t(), Command::iolist()) ->
+		  boolean().
+send(Hci, Command) ->
+    erlang:port_command(Hci, Command).
+
+port_call(Hci, Cmd, Data) ->
+    case erlang:port_control(Hci, Cmd, Data) of
+	<<0>> ->
+	    ok;
+	<<255,E/binary>> -> 
+	    {error, erlang:binary_to_atom(E, latin1)};
+	<<254,E/binary>> -> 
+	    {error, binary_to_list(E)};
+	<<1,Y:8>> -> {ok,Y};
+	<<1,Y:16/native-unsigned>> -> {ok, Y};
+	<<1,Y:32/native-unsigned>> -> {ok, Y};
+	<<1,Y:64/native-unsigned>> -> {ok, Y};
+	<<2,X:32/native-unsigned,Y:32/native-unsigned>> -> {ok,{X,Y}};
+	<<3,X/binary>> -> {ok,X};
+	<<4,X/binary>> -> {ok,binary_to_list(X)}
+    end.
+	
+%% convert symbolic to numeric level
+level(true)  -> ?DLOG_DEBUG;
+level(false) -> ?DLOG_NONE;
+level(debug) -> ?DLOG_DEBUG;
+level(info)  -> ?DLOG_INFO;
+level(notice) -> ?DLOG_NOTICE;
+level(warning) -> ?DLOG_WARNING;
+level(error) -> ?DLOG_ERROR;
+level(critical) -> ?DLOG_CRITICAL;
+level(alert) -> ?DLOG_ALERT;
+level(emergency) -> ?DLOG_EMERGENCY;
+level(none) -> ?DLOG_NONE.
+
+%% note: bluetooth addresses are reversed in hci
+decode_hci_dev_info(
+  <<Dev_id:16, Name0:8/binary, F,E,D,C,B,A,
+    Flags:32,  Type:8, Features:8/binary,
+    Pkt_type:32, Link_policy:32, Link_mode:32, 
+    Acl_mtu:16, Acl_pkts:16, 
+    Sco_mtu:16, Sco_pkts:16,
+    Stat/binary>>) ->
+    Name = hci_util:c_string(Name0),
+    BdAddr = {A,B,C,D,E,F},
+    S = decode_hci_dev_stats(Stat),
+    #hci_dev_info {
+       dev_id = Dev_id,
+       name = Name,
+       bdaddr = BdAddr,
+       flags = Flags,
+       type = Type,
+       features = Features,
+       pkt_type = Pkt_type,
+       link_policy = Link_policy,
+       link_mode = Link_mode,
+       acl_mtu = Acl_mtu,
+       acl_pkts = Acl_pkts,
+       sco_mtu = Sco_mtu,
+       sco_pkts = Sco_pkts,
+       stat = S
+      }.
+
+%% 10*4 = 40 bytes
+decode_hci_dev_stats(
+  << Err_rx:32, Err_tx:32,
+     Cmd_tx:32, Evt_rx:32,
+     Acl_tx:32, Acl_rx:32,
+     Sco_tx:32, Sco_rx:32,
+     Byte_rx:32,  Byte_tx:32>>) ->
+    #hci_dev_stats {
+       err_rx = Err_rx,
+       err_tx = Err_tx,
+       cmd_tx = Cmd_tx,
+       evt_rx = Evt_rx,
+       acl_tx = Acl_tx,
+       acl_rx = Acl_rx,
+       sco_tx = Sco_tx,
+       sco_rx = Sco_rx,
+       byte_rx = Byte_rx,
+       byte_tx = Byte_tx }.
+
+%% bdaddr is reverse in hci
+decode_hci_conn_info(<<Handle:16,
+		       F,E,D,C,B,A,
+		       Type:8, Out:8,
+		       State:16, Link_mode:32>>) ->
+    #hci_conn_info { handle=Handle, bdaddr={A,B,C,D,E,F},
+		     type=Type, out=Out,
+		     state=State, link_mode = Link_mode }.
+
+decode_hci_conn_list(<<Item:16/binary, List/binary>>) ->
+    [decode_hci_conn_info(Item) | decode_hci_conn_list(List)];
+decode_hci_conn_list(<<>>) ->
+    [].
+
+encode_hci_filter(#hci_filter { type_mask = Type_mask,
+				event_mask = Event_mask,
+				opcode = Opcode }) ->
+    Event0 = Event_mask band 16#ffffffff,
+    Event1 = (Event_mask bsr 32) band 16#ffffffff,
+    <<Type_mask:32, Event0:32, Event1:32, Opcode:16>>.
+
+decode_hci_filter(<<Type_mask:32, Event0:32, Event1:32, Opcode:16>>) ->
+    Event_mask = Event0 + (Event1 bsl 32),
+    #hci_filter { type_mask = Type_mask,
+		  event_mask = Event_mask,
+		  opcode = Opcode }.
+
+%% given a list of atoms/strings/integers
+%% build a bitmask from the values
+
+set_bits(Names, Flags) ->
+    set_bits(Names, Flags, 0).
+
+set_bits([Name|Names], Flags, Acc) when is_atom(Name) ->
+    case lists:keyfind(atom_to_list(Name), 1, Flags) of
+	false ->
+	    exit(badarg);
+	{_, Bit} ->
+	    set_bits(Names, Flags, Bit bor Acc)
+    end;
+set_bits([Name|Names], Flags, Acc) when is_list(Name) ->
+    case lists:keyfind(Name, 1, Flags) of
+	false ->
+	    exit(badarg);
+	{_, Bit} ->
+	    set_bits(Names, Flags, Bit bor Acc)
+    end;
+set_bits([Bits|Names], Flags, Acc) when is_integer(Bits) ->
+    set_bits(Names, Flags, Bits bor Acc);
+set_bits([], _Flags, Acc) ->
+    Acc.
diff --git a/deps/bt/src/hci_socket.erl b/deps/bt/src/hci_socket.erl
new file mode 100644
index 0000000..4549c44
--- /dev/null
+++ b/deps/bt/src/hci_socket.erl
@@ -0,0 +1,314 @@
+%%%-------------------------------------------------------------------
+%%% @author Tony Rogvall <tony@up13>
+%%% @copyright (C) 2015, Tony Rogvall
+%%% @doc
+%%%    HCI socket server
+%%% @end
+%%% Created :  6 Apr 2015 by Tony Rogvall <tony@up13>
+%%%-------------------------------------------------------------------
+-module(hci_socket).
+
+-behaviour(gen_server).
+
+%% API
+-export([open/1]).
+-export([close/1]).
+-export([send/4]).
+-export([call/5]).
+-export([get_info/1]).
+-export([get_conn_list/1]).
+-export([get_conn_info/3]).
+-export([get_auth_info/2]).
+-export([debug/2]).
+
+%% gen_server callbacks
+-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
+	 terminate/2, code_change/3]).
+
+-define(SERVER, ?MODULE).
+
+-include("../include/hci_drv.hrl").
+-include("hci_api.hrl").
+
+-record(state,
+	{
+	  hci :: hci_socket_t(),
+	  devid :: hci_devid_t(),
+	  from,
+	  saved_filter :: #hci_filter {},
+	  current_opcode :: uint16_t(),
+	  current_event :: uint16_t(),
+	  current_decode :: function()
+	}).
+
+%%%===================================================================
+%%% API
+%%%===================================================================
+
+%%--------------------------------------------------------------------
+%% @doc
+%% Starts the server
+%%
+%% @spec start_link() -> {ok, Pid} | ignore | {error, Error}
+%% @end
+%%--------------------------------------------------------------------
+open(DevID) ->
+    gen_server:start_link(?MODULE, [DevID], []).
+
+close(Pid) ->
+    gen_server:call(Pid, close).
+
+send(Pid, OGF, OCG, Data) ->
+    gen_server:call(Pid, {send, OGF, OCG, Data}).
+
+call(Pid, OGF, OCG, Data, Event) ->
+    gen_server:call(Pid, {call, OGF, OCG, Data, Event}).
+
+get_info(Pid) ->
+    gen_server:call(Pid, get_info).
+
+get_conn_list(Pid) ->
+    gen_server:call(Pid, get_conn_list).
+
+get_conn_info(Pid,Addr,Type) ->
+    gen_server:call(Pid, {get_conn_info,Addr,Type}).
+
+get_auth_info(Pid,Addr) ->
+    gen_server:call(Pid, {get_auth_info,Addr}).    
+
+debug(Pid, Level) ->
+    gen_server:call(Pid, {debug, Level}).
+    
+%%%===================================================================
+%%% gen_server callbacks
+%%%===================================================================
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Initializes the server
+%%
+%% @spec init(Args) -> {ok, State} |
+%%                     {ok, State, Timeout} |
+%%                     ignore |
+%%                     {stop, Reason}
+%% @end
+%%--------------------------------------------------------------------
+init([DevID]) ->
+    Hci = hci_drv:open(),
+    case hci_drv:bind(Hci, DevID) of
+	ok -> 
+	    hci_drv:activate(Hci),  %% receive async data
+	    {ok, #state{ hci = Hci, devid = DevID }};
+	Error -> {stop,Error}
+    end.
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Handling call messages
+%%
+%% @spec handle_call(Request, From, State) ->
+%%                                   {reply, Reply, State} |
+%%                                   {reply, Reply, State, Timeout} |
+%%                                   {noreply, State} |
+%%                                   {noreply, State, Timeout} |
+%%                                   {stop, Reason, Reply, State} |
+%%                                   {stop, Reason, State}
+%% @end
+%%--------------------------------------------------------------------
+handle_call({send,OGF,OCF,Data}, _From, State) ->
+    Pkt = [?HCI_COMMAND_PKT,
+	   <<(?cmd_opcode_pack(OGF,OCF)):16/little>>,
+	   <<(byte_size(Data)):8>>,
+	   Data],
+    R = hci_drv:send(State#state.hci,Pkt),
+    %% io:format("send pkt ~p = ~p\n", [Pkt,R]),
+    {reply, R, State};
+
+handle_call({call,OGF,OCF,Data,Decode}, From, State) ->
+    Opcode = ?cmd_opcode_pack(OGF,OCF),
+    {ok,OldFilter} = hci_drv:get_filter(State#state.hci),
+    %% io:format("call: saved_filter = ~p\n", [OldFilter]),
+    Event = 0,  %% fixme, use ?EVT_xxxx
+    NewFilter = hci_drv:make_filter(Opcode,
+				    [?HCI_EVENT_PKT],
+				    [?EVT_CMD_STATUS,
+				     ?EVT_CMD_COMPLETE,
+				     ?EVT_LE_META_EVENT,
+				     ?EVT_REMOTE_NAME_REQ_COMPLETE,
+				     Event]),
+    %% io:format("call: new_filter = ~p\n", [NewFilter]),
+    case hci_drv:set_filter(State#state.hci, NewFilter) of
+	ok ->
+	    Pkt = [?HCI_COMMAND_PKT,
+		   <<Opcode:16/little>>,
+		   <<(byte_size(Data)):8>>,
+		   Data],
+	    _R = hci_drv:send(State#state.hci,Pkt),
+	    %% io:format("send pkt ~p = ~p\n", [Pkt,_R]),
+	    {noreply, State#state { from = From,
+				    saved_filter = OldFilter,
+				    current_opcode = Opcode,
+				    current_event = Event,
+				    current_decode = Decode
+				  }};
+	Error ->
+	    {reply, Error, State}
+    end;
+
+handle_call(get_info, _From, State) ->
+    {reply, hci_drv:get_dev_info(State#state.hci, State#state.devid), State};
+handle_call(get_conn_list, _From, State) ->
+    {reply, hci_drv:get_conn_list(State#state.hci, State#state.devid), State};
+handle_call({get_conn_info,Addr,Type}, _From, State) ->
+    {reply, hci_drv:get_conn_info(State#state.hci,Addr,Type), State};
+handle_call({get_auth_info,Addr},_From, State) ->
+    {reply, hci_drv:get_auth_info(State#state.hci, Addr), State};
+handle_call(close, _From, State) ->
+    hci_drv:close(State#state.hci),
+    {stop, normal, ok, State#state { hci=undefined }};
+handle_call({debug,Level}, _From, State) ->
+    {reply, hci_drv:debug(State#state.hci, Level), State};
+handle_call(_Request, _From, State) ->
+    {reply, {error,bad_call}, State}.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Handling cast messages
+%%
+%% @spec handle_cast(Msg, State) -> {noreply, State} |
+%%                                  {noreply, State, Timeout} |
+%%                                  {stop, Reason, State}
+%% @end
+%%--------------------------------------------------------------------
+handle_cast(_Msg, State) ->
+    {noreply, State}.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Handling all non call/cast messages
+%%
+%% @spec handle_info(Info, State) -> {noreply, State} |
+%%                                   {noreply, State, Timeout} |
+%%                                   {stop, Reason, State}
+%% @end
+%%--------------------------------------------------------------------
+handle_info({Hci,{data,_D0= <<_:8,Evt:8,Plen:8,Packet:Plen/binary,_R/binary>>}},
+	    State) when Hci =:= State#state.hci ->
+    case Evt of
+	?EVT_CMD_COMPLETE -> %% Fixme: match opcode
+	    %%io:format("EVT_CMD_COMPLETE, data ~p, rest=~p\n", [_D0,_R]),
+	    <<?evt_cmd_complete_bin(_Ncmd,_Opcode),Reply/binary>> = Packet,
+	    %% io:format("Ncmd=~w,Opcode=~p,Reply=~p\n",[_Ncmd,_Opcode,Reply]),
+	    State1 = do_reply(Reply, State),
+	    {noreply, State1 };
+
+	?EVT_CMD_STATUS -> %% Fixme: match opcode
+	    %% io:format("EVT_CMD_STATUS, data ~p, rest=~p\n", [_D0,_R]),
+	    <<?evt_cmd_status_bin(_Status,_Ncmd,_Opcode),Reply/binary>> = Packet,
+	    %% io:format("Status=~w,Ncmd=~w,Opcode=~p,Reply=~p\n",[_Status,_Ncmd,_Opcode,Reply]),
+	    State1 = do_reply(Reply, State),
+	    {noreply, State1 };
+
+	?EVT_REMOTE_NAME_REQ_COMPLETE ->
+	    %% io:format("EVT_REMOTE_NAME_REQ_COMPLETE,data ~p,rest=~p\n", [_D0,_R]),
+	    <<?evt_remote_name_req_complete_bin(Status,Bdaddr,Name)>> = Packet,
+	    NameComplete = #evt_remote_name_req_complete { status=Status,
+							   bdaddr=Bdaddr,
+							   name=cname(Name)},
+	    gen_server:reply(State#state.from, {ok, NameComplete}),
+	    hci_drv:set_filter(State#state.hci, 
+			       State#state.saved_filter),
+	    {noreply, State#state { from = undefined,
+				    saved_filter = undefined }};
+	?EVT_LE_META_EVENT ->
+	    %% io:format("EVT_LE_META_EVENT, data ~p, rest=~p\n", [_D0,_R]),
+	    <<?evt_le_meta_event_bin(Subevent,_D1),LePacket/binary>> = Packet,
+	    Le = hci_api:decode_le(Subevent, LePacket),
+	    gen_server:reply(State#state.from, {ok, Le}),
+	    hci_drv:set_filter(State#state.hci,
+			       State#state.saved_filter),
+	    {noreply, State#state { from = undefined,
+				    saved_filter = undefined }};
+	_ ->
+	    try hci_api:decode(Evt,Packet) of
+		ReplyEvent ->
+		    %% io:format("ReplyEvent ~p\n", [ReplyEvent]),
+		    %% fixme: check that event match
+		    gen_server:reply(State#state.from, {ok, ReplyEvent}),
+		    hci_drv:set_filter(State#state.hci,
+				       State#state.saved_filter),
+		    {noreply, State#state { from = undefined,
+					    saved_filter = undefined }}
+	    catch
+		error:Reason ->
+		    io:format("decode error: ~p ~p\n", 
+			      [Reason, erlang:get_stacktrace()]),
+		    if State#state.from =:= undefined ->
+			    {noreply, State};
+		       true ->
+			    hci_drv:set_filter(State#state.hci, 
+					       State#state.saved_filter),
+			    gen_server:reply(State#state.from, {error, Reason}),
+			    {noreply, State#state { from = undefined,
+						    saved_filter = undefined }}
+		    end
+	    end
+    end;
+handle_info(_Info, State) ->
+    io:format("Got info: ~p\n", [_Info]),
+    {noreply, State}.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% This function is called by a gen_server when it is about to
+%% terminate. It should be the opposite of Module:init/1 and do any
+%% necessary cleaning up. When it returns, the gen_server terminates
+%% with Reason. The return value is ignored.
+%%
+%% @spec terminate(Reason, State) -> void()
+%% @end
+%%--------------------------------------------------------------------
+terminate(_Reason, _State) ->
+    ok.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Convert process state when code is changed
+%%
+%% @spec code_change(OldVsn, State, Extra) -> {ok, NewState}
+%% @end
+%%--------------------------------------------------------------------
+code_change(_OldVsn, State, _Extra) ->
+    {ok, State}.
+
+%%%===================================================================
+%%% Internal functions
+%%%===================================================================
+
+cname(<<0,_/binary>>) -> [];
+cname(<<C,Cs/binary>>) -> [C|cname(Cs)];
+cname(<<>>) -> [].
+    
+
+do_reply(Binary, State) ->
+    case State#state.current_decode of
+	undefined ->
+	    hci_drv:set_filter(State#state.hci, State#state.saved_filter),
+	    gen_server:reply(State#state.from, {ok, Binary}),
+	    State#state { from=undefined, saved_filter=undefined };
+	F when is_function(F,1) ->
+	    Decoded = F(Binary),
+	    gen_server:reply(State#state.from, {ok, Decoded}),
+	    hci_drv:set_filter(State#state.hci, State#state.saved_filter),
+	    State#state { from = undefined,
+			  current_event = undefined,
+			  current_opcode = undefined,
+			  current_decode = undefined,
+			  saved_filter = undefined
+			}
+    end.
diff --git a/deps/bt/src/hci_test.erl b/deps/bt/src/hci_test.erl
new file mode 100644
index 0000000..015e98f
--- /dev/null
+++ b/deps/bt/src/hci_test.erl
@@ -0,0 +1,48 @@
+%%% @author Tony Rogvall <tony@up13>
+%%% @copyright (C) 2015, Tony Rogvall
+%%% @doc
+%%%     Testing HCI socket
+%%% @end
+%%% Created : 14 Apr 2015 by Tony Rogvall <tony@up13>
+
+-module(hci_test).
+
+-compile(export_all).
+-include("hci_api.hrl").
+
+inquiry() ->
+    with_socket(0, fun(S) -> inquiry(S) end).
+
+pinquiry() ->
+    with_socket(0, fun(S) -> pinquiry(S) end).    
+
+%% scan for 10*1.28 seconds, wait for max 5 replies
+inquiry(Hci) ->
+    Lap = <<16#33,16#8b,16#9e>>,
+    hci_api:inquiry(Hci, Lap, 10, 5).
+
+%% scan for 10*1.28 seconds, wait for max 5 replies
+pinquiry(Hci) ->
+    Lap = <<16#33,16#8b,16#9e>>,
+    Max = 100, Min = 50, 
+    hci_api:periodic_inquiry(Hci, Max, Min, Lap, 10, 2).
+
+
+local_name() -> local_name(0).
+local_name(DevID) ->
+    with_socket(DevID, fun(S) -> hci_api:read_local_name(S) end).
+
+
+
+with_socket(DevID, Fun) ->	      
+    {ok,S} = hci_socket:open(DevID),
+    %% hci_socket:debug(S, debug),
+    try Fun(S) of
+	Result ->
+	    hci_socket:close(S),
+	    Result
+    catch
+	error:Error ->
+	    hci_socket:close(S),
+	    {error,Error}
+    end.
diff --git a/deps/bt/src/hci_util.erl b/deps/bt/src/hci_util.erl
new file mode 100644
index 0000000..626ab19
--- /dev/null
+++ b/deps/bt/src/hci_util.erl
@@ -0,0 +1,221 @@
+%%
+%% Utils used by HCI
+%%
+-module(hci_util).
+-compile(export_all).
+
+-include("include/hci_drv.hrl").
+
+
+c_string(Data) when is_binary(Data) ->
+    c_string_(binary_to_list(Data));
+c_string(Data) when is_list(Data) ->
+    c_string_(Data).
+
+c_string_([0|_]) -> [];
+c_string_([H|T]) -> [H|c_string_(T)].
+
+
+find_enum_name(Value, Flags, Default) when is_integer(Value) ->
+    case lists:keyfind(Value, 2, Flags) of
+	false -> Default;
+	{Name, _Value} -> Name
+    end.
+
+find_enum_name(Value, Flags) ->
+    case find_enum_name(Value, Flags, undefined) of
+	undefined -> erlang:error(badarg);
+	Name -> Name
+    end.
+
+find_enum_value(Name, Flags, Default) when is_atom(Name) ->
+    case lists:keyfind(atom_to_list(Name), 1, Flags) of
+	false -> Default;
+	{_, Value} -> Value
+    end;
+find_enum_value(Name, Flags, Default) when is_list(Name) ->
+    case lists:keyfind(Name, 1, Flags) of
+	false -> Default;
+	{_, Value} -> Value
+    end.
+
+find_enum_value(Name, Flags) ->
+    case find_enum_value(Name, Flags, undefined) of
+	undefined -> erlang:error(badarg);
+	Value -> Value
+    end.
+
+
+format_enum(Value, Kv) ->
+    case lists:keyfind(Value, 2, Kv) of
+        false -> "";
+        {Name, Value} -> Name
+    end.
+
+format_bits(Value, KvList) ->
+    format_bits_(Value, KvList, []).
+
+format_bits_(0, _Kv, Acc) ->
+    string:join(lists:reverse(Acc), ",");
+format_bits_(Value, [{Key,Bits}|Kv], Acc) ->
+    if Value band Bits =:= Bits ->
+            format_bits_(Value band (bnot Bits),Kv,[Key|Acc]);
+       true ->
+            format_bits_(Value, Kv, Acc)
+    end;
+format_bits_(Value, [], Acc) ->
+    Acc1 = [integer_to_list(Value) | Acc],
+    string:join(lists:reverse(Acc1), ",").
+
+format_hci_dev_info(#hci_dev_info {
+		      dev_id = _Dev_id,
+		      name = Name,
+		      bdaddr = BdAddr,
+		      flags = Flags,
+		      type = Type,
+		      features = _Features,
+		      pkt_type = _Pkt_type,
+		      link_policy = _Link_policy,
+		      link_mode = _Link_mode,
+		      acl_mtu = Acl_mtu,
+		      acl_pkts = Acl_pkts,
+		      sco_mtu = Sco_mtu,
+		      sco_pkts = Sco_pkts,
+		      stat = S}) ->
+    Bus = find_enum_name(Type band 16#0f,
+			 kv_dev_bus(), "UNKNOWN"), 
+    Type1 = find_enum_name((Type band 16#30) bsr 4,
+			   kv_dev_type(), "UNKNOWN"),
+    io_lib:format(
+      "~s:	Type: ~s  Bus: ~s\n"
+      "\tBD Address: ~s  ACL MTU: ~w:~w  SCO MTU: ~w:~w\n"
+      "\t~s\n"
+      "~s\n",
+      [Name, Type1, Bus,
+       bt:format_address(BdAddr),
+       Acl_mtu, Acl_pkts, Sco_mtu, Sco_pkts,
+       format_bits(Flags, kv_hci_dev_info_flags()),
+       format_hci_dev_stats(S)]).
+    
+format_hci_dev_stats(#hci_dev_stats {
+			 err_rx = Err_rx,
+			 err_tx = Err_tx,
+			 cmd_tx = Cmd_tx,
+			 evt_rx = Evt_rx,
+			 acl_tx = Acl_tx,
+			 acl_rx = Acl_rx,
+			 sco_tx = Sco_tx,
+			 sco_rx = Sco_rx,
+			 byte_rx = Byte_rx,
+			 byte_tx = Byte_tx }) ->
+    io_lib:format(
+      "\tRX bytes:~w acl:~w sco:~w events:~w errors:~w\n"
+      "\tTX bytes:~w acl:~w sco:~w commands:~w errors:~w",
+      [Byte_rx, Acl_rx, Sco_rx, Evt_rx, Err_rx,
+       Byte_tx, Acl_tx, Sco_tx, Cmd_tx, Err_tx]).
+
+bdaddr({A,B,C,D,E,F}) ->
+    {ok,<<F,E,D,C,B,A>>};
+bdaddr(Bin = <<_,_,_,_,_,_>>) -> {ok,Bin};  %% assume binary format is internal!
+bdaddr(Addr) when is_list(Addr) ->
+    case bt:getaddr(Addr) of
+	{ok,{A,B,C,D,E,F}} ->
+	    {ok,<<F,E,D,C,B,A>>};
+	Error ->
+	    Error
+    end.
+
+kv_dev_type() ->
+[
+ {"BR/EDR",      ?HCI_BREDR},
+ {"AMP",         ?HCI_AMP}
+].
+
+kv_dev_bus() ->
+[
+ {"VIRTUAL",?HCI_VIRTUAL},
+ {"USB", ?HCI_USB },
+ {"PCCARD", ?HCI_PCCARD },
+ {"UART", ?HCI_UART },
+ {"RS232",?HCI_RS232},
+ {"PCI", ?HCI_PCI},
+ {"SDIO", ?HCI_SDIO}
+].
+    
+
+%% scan modes
+kv_scan() ->
+[
+ { "OFF",       ?SCAN_DISABLED },
+ { "ISCAN",     ?SCAN_INQUIRY },
+ { "PSCAN",     ?SCAN_PAGE },
+ { "PISCAN",    ?SCAN_PAGE bor ?SCAN_INQUIRY }
+].
+
+%% HCI device flags
+kv_hci_dev_info_flags() ->
+[
+ { "UP",      (1 bsl ?HCI_UP) },
+ { "INIT",    (1 bsl ?HCI_INIT) },
+ { "RUNNING", (1 bsl ?HCI_RUNNING) },
+ { "PSCAN",   (1 bsl ?HCI_PSCAN) },
+ { "ISCAN",   (1 bsl ?HCI_ISCAN) },
+ { "AUTH",    (1 bsl ?HCI_AUTH) },
+ { "ENCRYPT", (1 bsl ?HCI_ENCRYPT) },
+ { "INQUIRY", (1 bsl ?HCI_INQUIRY) },
+ { "RAW",     (1 bsl ?HCI_RAW) }
+].
+
+kv_pkt_ptype() ->
+[
+ { "DM1",   ?HCI_DM1  },
+ { "DM3",   ?HCI_DM3  },
+ { "DM5",   ?HCI_DM5  },
+ { "DH1",   ?HCI_DH1  },
+ { "DH3",   ?HCI_DH3  },
+ { "DH5",   ?HCI_DH5  },
+ { "HV1",   ?HCI_HV1  },
+ { "HV2",   ?HCI_HV2  },
+ { "HV3",   ?HCI_HV3  },
+ { "2-DH1", ?HCI_2DH1 },
+ { "2-DH3", ?HCI_2DH3 },
+ { "2-DH5", ?HCI_2DH5 },
+ { "3-DH1", ?HCI_3DH1 },
+ { "3-DH3", ?HCI_3DH3 },
+ { "3-DH5", ?HCI_3DH5 }
+].
+
+kv_sco_ptype() ->
+[
+ { "HV1",   16#0001   },
+ { "HV2",   16#0002   },
+ { "HV3",   16#0004   },
+ { "EV3",   ?HCI_EV3  },
+ { "EV4",   ?HCI_EV4  },
+ { "EV5",   ?HCI_EV5  },
+ { "2-EV3", ?HCI_2EV3 },
+ { "2-EV5", ?HCI_2EV5 },
+ { "3-EV3", ?HCI_3EV3 },
+ { "3-EV5", ?HCI_3EV5 }
+].
+
+kv_link_policy() ->
+[
+ { "NONE",       0               },
+ { "RSWITCH",    ?HCI_LP_RSWITCH  },
+ { "HOLD",       ?HCI_LP_HOLD     },
+ { "SNIFF",      ?HCI_LP_SNIFF    },
+ { "PARK",       ?HCI_LP_PARK     }
+].
+
+kv_link_mode() ->
+[
+ { "NONE",       0               },
+ { "ACCEPT",     ?HCI_LM_ACCEPT   },
+ { "MASTER",     ?HCI_LM_MASTER   },
+ { "AUTH",       ?HCI_LM_AUTH     },
+ { "ENCRYPT",    ?HCI_LM_ENCRYPT  },
+ { "TRUSTED",    ?HCI_LM_TRUSTED  },
+ { "RELIABLE",   ?HCI_LM_RELIABLE },
+ { "SECURE",     ?HCI_LM_SECURE   }
+].
diff --git a/deps/bt/src/l2cap.erl b/deps/bt/src/l2cap.erl
new file mode 100644
index 0000000..3bdf96a
--- /dev/null
+++ b/deps/bt/src/l2cap.erl
@@ -0,0 +1,44 @@
+%%%---- BEGIN COPYRIGHT -------------------------------------------------------
+%%%
+%%% Copyright (C) 2006 - 2014, Rogvall Invest AB, <tony@rogvall.se>
+%%%
+%%% This software is licensed as described in the file COPYRIGHT, which
+%%% you should have received as part of this distribution. The terms
+%%% are also available at http://www.rogvall.se/docs/copyright.txt.
+%%%
+%%% You may opt to use, copy, modify, merge, publish, distribute and/or sell
+%%% copies of the Software, and permit persons to whom the Software is
+%%% furnished to do so, under the terms of the COPYRIGHT file.
+%%%
+%%% This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+%%% KIND, either express or implied.
+%%%
+%%%---- END COPYRIGHT ---------------------------------------------------------
+%%% File    : l2cap.erl
+%%% Author  : Tony Rogvall <tony@pbook.synap.se>
+%%% Description : L2CAP wrapper
+%%% Created :  19 Jul 2006 by Tony Rogvall <tony@pbook.synap.se>
+
+-module(l2cap).
+
+-export([open/2, close/1, send/2, listen/1, accept/1, accept/2]).
+
+open(Address, Psm) ->
+    bt_drv:l2cap_open(Address, Psm).
+
+close(L2CAP) ->
+    bt_drv:l2cap_close(L2CAP).
+
+send(L2CAP, Data) ->
+    bt_drv:l2cap_send(L2CAP, Data).
+
+listen(Psm) ->
+    bt_drv:l2cap_listen(Psm).
+
+accept(ListenRef) ->
+    bt_drv:l2cap_accept(ListenRef).
+
+accept(ListenRef,Timeout) when Timeout==infinity; 
+			       is_integer(Timeout),Timeout>0 ->
+    bt_drv:l2cap_accept(ListenRef,Timeout).
+
diff --git a/deps/bt/src/obex.erl b/deps/bt/src/obex.erl
new file mode 100644
index 0000000..c523413
--- /dev/null
+++ b/deps/bt/src/obex.erl
@@ -0,0 +1,1696 @@
+%%%---- BEGIN COPYRIGHT -------------------------------------------------------
+%%%
+%%% Copyright (C) 2006 - 2014, Rogvall Invest AB, <tony@rogvall.se>
+%%%
+%%% This software is licensed as described in the file COPYRIGHT, which
+%%% you should have received as part of this distribution. The terms
+%%% are also available at http://www.rogvall.se/docs/copyright.txt.
+%%%
+%%% You may opt to use, copy, modify, merge, publish, distribute and/or sell
+%%% copies of the Software, and permit persons to whom the Software is
+%%% furnished to do so, under the terms of the COPYRIGHT file.
+%%%
+%%% This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+%%% KIND, either express or implied.
+%%%
+%%%---- END COPYRIGHT ---------------------------------------------------------
+%%%-------------------------------------------------------------------
+%%% File    : obex.erl
+%%% Author  : Tony Rogvall <tony@PBook.local>
+%%% Description : OBEX implemenation
+%%%
+%%% Created : 19 May 2006 by Tony Rogvall <tony@PBook.local>
+%%%-------------------------------------------------------------------
+-module(obex).
+
+-behaviour(gen_server).
+
+%% API
+-export([open/2, open/3, close/1]).
+-export([connect/1, connect/2]).
+-export([disconnect/1, disconnect/2]).
+-export([put_chunk_start/2, put_chunk/2, put_chunk_end/2]).
+-export([put/3]).
+-export([get_chunk_start/2, get_chunk/1]).
+-export([get/2]).
+-export([abort/2]).
+-export([setpath/2, setpath/3]).
+-export([command/2]).
+%% SERVER API
+-export([server/2, server_link/2]).
+-export([server_init/6]).
+
+
+%% Xtra - API
+-export([connect_dm_client/1]).
+-export([connect_syncml_client/1]).
+-export([connect_folder_browsing/1]).
+-export([set_cwd/2, make_dir/2]).
+-export([list_dir/1]).
+-export([capability/1, object_profile/2]).
+-export([client/4, client_link/4]).
+-export([client/3, client_link/3]).
+-export([time_iso/1, utc_time_iso/1]).
+
+%% Debug
+-export([encode_headers/1, decode_headers/1, decode_packet/2]).
+-export([size_header/2, size_headers/1]).
+-export([encode_header/2]).
+-export([make_packets/4, make_get_packets/2]).
+
+-import(lists, [reverse/1, member/2, foldl/3]).
+
+-include("../include/obex.hrl").
+-include("../include/uuid.hrl").
+-include("../include/sdp.hrl").
+
+%% gen_server callbacks
+-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
+	 terminate/2, code_change/3]).
+
+-ifdef(debug).
+-define(dbg(Fmt,As), io:format("~s:~w:" Fmt "\n", [?FILE,?LINE | As])).
+-else.
+-define(dbg(Fmt,As), ok).
+-endif.
+
+
+-record(obex_packet,
+	{
+	  final,     %% 0 or 1
+	  opcode,    %% 7 bit opcode
+	  args,      %% extra args (list)
+	  headers,   %% headers
+	  callback   %% packet reply callback
+	 }).
+
+-record(s,
+	{
+	  role,       %% client | server
+	  transport,  %% transport module
+	  ref,        %% transport reference
+	  sref,       %% pid - server handle
+	  smod,       %% server module
+	  sstate,     %% server state
+	  channel,    %% channel/port number
+	  id,         %% connection ID when connected
+	  %% Host side info
+	  host_mtu = ?OBEX_DEFAULT_MTU,  %% our recieve buffer size
+	  host_flags = 0,                %% out Flags
+	  host_version = ?OBEX_VERSION,  %% our OBEX version
+	  %% Peer side info
+	  peer_mtu = ?OBEX_DEFAULT_MTU,   %% peer recive buffer size
+	  peer_flags = 0,                 %% peer flags
+	  peer_version = 0,               %% peer OBEX version
+	  %% Receive buffer
+	  recv_remain = -3,    %% data remain to be received
+	  recv_buffer = <<>>,  %% input buffer
+	  recv_queue = [],     %% input packet queue
+	  %% Send buffer
+	  send_queue = [],     %% output packet queue
+	  %% 
+	  opts=[]     %% obex options
+	 }).
+
+
+-define(size_byte_sequence(Value),
+	if is_binary((Value)) -> size((Value));
+	   is_list((Value)) -> length((Value))
+	end).
+
+-define(size_unicode(Value), 
+	if (Value) == "" -> 0;
+	   true -> 2*(length((Value))+1)
+	end).
+
+%% Note: The length field includes it self and the tag!
+-define(enc_byte_sequence(ID, Value),
+	if is_binary((Value)) ->
+		[<<(ID):8, (size((Value))+3):16>>, Value];
+	   is_list((Value)) ->
+		[<<(ID):8, (length((Value))+3):16>>, Value]
+	end).
+
+%% For null terminate byte-ascii sequences 
+-define(enc_null_sequence(ID, Value),
+	if is_binary((Value)) ->
+		[<<(ID):8, (size((Value))+4):16>>, Value, 0];
+	   is_list((Value)) ->
+		[<<(ID):8, (length((Value))+4):16>>, Value, 0]
+	end).
+
+%%====================================================================
+%% API
+%%====================================================================
+open(Address, Channel) ->
+    open(Address, Channel, [{transport,rfcomm}]).
+
+open(Address, Channel, Opts) ->
+    client_link(Address, Channel, Opts).
+
+close(Obex) ->
+    gen_server:call(Obex, close).
+
+%%
+%% OBEX CONNECT
+%%
+connect(Obex) ->
+    connect(Obex, []).
+
+connect(Obex, Headers) ->
+    gen_server:call(Obex, {connect,Headers}, 10000).
+
+%%
+%% OBEX DISCONNECT
+%%
+disconnect(Obex) ->
+    disconnect(Obex, []).
+
+disconnect(Obex, Headers) ->
+    gen_server:call(Obex, {disconnect,Headers}, 10000).
+
+%%
+%% OBEX PUT
+%%
+put_chunk_start(Obex, Headers) ->
+    gen_server:call(Obex, {put_chunk_start, Headers}, 10000).
+put_chunk(Obex, Data) ->
+    gen_server:call(Obex, {put_chunk, Data}, 10000).
+put_chunk_end(Obex, Data) -> 
+    gen_server:call(Obex, {put_chunk_end, Data}, 10000).
+
+put(Obex, Headers, Body) ->
+    case put_chunk_start(Obex, Headers) of
+	continue ->
+	    put_chunk_end(Obex,Body);
+	Error -> Error
+    end.
+
+%%
+%% OBEX GET
+%%
+get_chunk_start(Obex, Headers) ->
+    gen_server:call(Obex, {get_chunk_start, Headers}, 10000).
+get_chunk(Obex) ->
+    gen_server:call(Obex, get_chunk, 10000).
+    
+get(Obex, Headers) ->
+    case get_chunk_start(Obex, Headers) of
+	{continue,Hs} ->
+	    get_continue(Obex,[Hs]);
+	{ok,Hs} -> get_reply([Hs]);
+	Error -> Error
+    end.
+
+get_continue(Obex, Acc) ->
+    case get_chunk(Obex) of
+	{continue,Hs} -> get_continue(Obex,[Hs|Acc]);
+	{ok,Hs} ->	 get_reply([Hs|Acc]);
+	Error -> Error
+    end.
+
+%% Generate a sorted and useful combined reply
+get_reply([]) ->
+    {ok,[],<<>>};
+get_reply([Hs|HsList]) ->
+    get_reply(reverse(Hs),HsList,[],[]).
+
+get_reply([],[],HAcc,BAcc) ->
+    {ok,reverse(HAcc),list_to_binary(BAcc)};
+get_reply([{bodyEnd,B}|Hs],HsList,HAcc,BAcc) ->
+    get_reply(Hs, HsList, HAcc, [B | BAcc]);
+get_reply([{body,B}|Hs],HsList,HAcc,BAcc) ->
+    get_reply(Hs, HsList, HAcc, [B | BAcc]);
+get_reply([{H,V}|Hs],HsList,HAcc,BAcc) ->
+    get_reply(Hs, HsList, [{H,V}|HAcc], BAcc);
+get_reply([], [Hs|HsList], HAcc, BAcc) ->
+    get_reply(reverse(Hs), HsList, HAcc, BAcc).
+
+%%
+%% OBEX ABORT
+%%
+abort(Obex, Headers) ->
+    gen_server:call(Obex, {abort,Headers}, 10000).
+
+%%
+%% OBEX SETPATH
+%%
+setpath(Obex,Hs) ->
+    setpath(Obex,[],Hs).
+
+setpath(Obex,Opts,Hs) ->
+    gen_server:call(Obex, {setpath,Opts,Hs}, 10000).
+
+%%
+%% COMMAND
+%%
+command(Obex, Hs) ->
+    gen_server:call(Obex, {command, Hs}, 10000).
+
+%%
+%% UTIL COMMANDS
+%%
+
+%% Special - simpified connectes
+connect_dm_client(Obex) ->
+    connect(Obex, [{target,?TARGET_SYNCML_DM}]).
+
+connect_syncml_client(Obex) ->
+    connect(Obex, [{target,?TARGET_SYNCML_SYNC}]).
+
+connect_folder_browsing(Obex) ->
+    connect(Obex, [{target,?TARGET_FOLDER_BROWSING}]).
+
+%% requires - connect_folder_browsing
+set_cwd(Obex, "..") ->
+    setpath(Obex,[backup,dont_create],[]);
+set_cwd(Obex, Dir) ->
+    setpath(Obex,[dont_create],[{name,Dir}]).
+
+%% both connect_folder_browsing and file transfer
+make_dir(Obex, Dir) ->
+    setpath(Obex,[],[{name,Dir}]).
+
+%% requires - connect_folder_browsing
+list_dir(Obex) ->
+    case get(Obex, [{type,"x-obex/folder-listing"}]) of
+	{ok,_Hs,Bin} ->
+	    makeup:string(Bin);
+	Error ->
+	    Error
+    end.
+
+%% requires - connect []
+capability(Obex) -> 
+    get(Obex, [{type,"x-obex/capability"}]).
+
+%% requires - connect []
+object_profile(Obex, MimeType) ->
+    get(Obex, [{type,"x-obex/object-profile"},
+	       {name,MimeType}]).
+
+%%
+%% START Functions
+%%
+client(Address, Channel, Opts) ->
+    gen_server:start(?MODULE, [Address,Channel,Opts], []). 
+
+client(Name, Address, Channel, Opts) ->
+    gen_server:start({local,Name},?MODULE,[Address,Channel,Opts],[]).
+
+client_link(Address, Channel, Opts) ->
+    gen_server:start_link(?MODULE, [Address,Channel,Opts], []).     
+
+client_link(Name, Address, Channel, Opts) ->
+    gen_server:start_link({local,Name},?MODULE,[Address,Channel,Opts],[]).
+    
+%%====================================================================
+%% gen_server callbacks
+%%====================================================================
+
+%%--------------------------------------------------------------------
+%% Function: init(Args) -> {ok, State} |
+%%                         {ok, State, Timeout} |
+%%                         ignore               |
+%%                         {stop, Reason}
+%% Description: Initiates the server
+%%--------------------------------------------------------------------
+init([Address,Channel,Opts]) ->
+    case transport(Opts, Address) of
+	undefined -> {stop, {error, unknown_transport}};
+	Transport ->
+	    Mod = transport_module(Transport),
+	    S0 = #s { role = client,
+		      transport = Mod,
+		      host_version = ?OBEX_VERSION, 
+		      host_mtu = getopt(mtu,Opts,?OBEX_DEFAULT_MTU),
+		      host_flags = getopt(mtu,Opts,0),
+		      opts = Opts
+		     },
+	    TransOpts = getopt(transport_options, Opts, [binary]),
+	    case catch Mod:open(Address,Channel,TransOpts) of
+		{ok,Ref} ->
+		    {ok, S0#s{ ref=Ref }};
+		{'EXIT',Reason} ->
+		    {stop, {error, Reason}};
+		Error ->
+		    {stop, Error}
+	    end
+    end.
+
+%%--------------------------------------------------------------------
+%% Function: %% handle_call(Request, From, State) -> {reply, Reply, State} |
+%%                                      {reply, Reply, State, Timeout} |
+%%                                      {noreply, State} |
+%%                                      {noreply, State, Timeout} |
+%%                                      {stop, Reason, Reply, State} |
+%%                                      {stop, Reason, State}
+%% Description: Handling call messages
+%%--------------------------------------------------------------------
+
+handle_call({connect,Hs},From,S) ->
+    Args = [S#s.host_version, S#s.host_flags, S#s.host_mtu],
+    P = #obex_packet { final   = 1,
+		       opcode  = connect,
+		       args    = Args,
+		       headers = Hs,
+		       callback = fun(S0,#obex_packet { opcode={ok,What},
+							headers=Hs1,
+							args=[Version,Flags1,Mtu]
+						       }) ->
+					  %% Keep track on connectionID
+					  %% this simplifies alot...
+					  ID=getopt(connectionID,Hs1),
+					  gen_server:reply(From, {ok,What}),
+					  {noreply,S0#s { id = ID,
+							  peer_mtu = Mtu,
+							  peer_flags=Flags1,
+							  peer_version = Version }};
+				     (S0,#obex_packet { opcode=Error }) ->
+					  gen_server:reply(From, Error),
+					  {noreply, S0}
+				  end
+		      },
+    send_packet(P, S);
+
+handle_call({disconnect,Hs}, From, S) ->
+    P = #obex_packet { final = 1,
+		       opcode = disconnect,
+		       headers = prepare_headers(Hs,S),
+		       callback = fun(S0,#obex_packet { opcode=Reply }) ->
+					  gen_server:reply(From, Reply),
+					  {noreply,S0#s { id=undefined }}
+				  end
+		      },
+    send_packet(P, S);
+
+handle_call({abort,Hs}, From, S) ->
+    P = #obex_packet { final  = 1,
+		       opcode = abort,
+		       headers = prepare_headers(Hs,S), %% needed?
+		       callback = fun(S0,#obex_packet { opcode=Reply }) ->
+					  gen_server:reply(From, Reply),
+					  {noreply,S0}
+				  end
+		      },
+    send_packet(P, S);
+
+handle_call({get_chunk_start,Hs}, From, S) ->
+    Hs1 = prepare_headers(Hs, S),
+    handle_get_chunk_start(Hs1, From, S);
+ 
+handle_call(get_chunk, From, S) ->
+    handle_get_chunk(From, S);
+
+handle_call({put_chunk_start,Hs}, From, S) ->
+    Hs1 = prepare_headers(Hs, S),
+    handle_put_chunk_start(Hs1, From, S);
+
+handle_call({put_chunk,Data}, From, S) ->
+    handle_put_chunk(Data, From, S);
+
+handle_call({put_chunk_end,Data}, From, S) ->
+    handle_put_chunk_end(Data, From, S);
+
+handle_call({setpath,Opts,Hs}, From, S) ->
+    %% MUST FIT in one packet
+    Constants = 0,  %% reserved MUST be 0 (version=1.2)
+    Flags = case member(backup, Opts) of
+		true -> 16#01;
+		false -> 16#00
+	    end bor
+	case member(dont_create, Opts) of
+	    true -> 16#02;
+	    false -> 16#00
+	end,
+    P = #obex_packet { final = 1,
+		       opcode = setpath,
+		       args = [Flags, Constants],
+		       headers = prepare_headers(Hs, S),
+		       callback = fun(S0,#obex_packet { opcode=Reply }) ->
+					  gen_server:reply(From, Reply),
+					  {noreply,S0}
+				  end
+		      },
+    send_packet(P, S);
+
+handle_call({command,Hs}, From, S) ->
+    P = #obex_packet { final = 1,
+		       opcode = command,
+		       headers = prepare_headers(Hs, S),
+		       callback = fun (S0,_) ->
+					  gen_server:reply(From, ok),
+					  {noreply,S0} 
+				  end
+		      },
+    send_packet(P, S);
+    
+handle_call(close, From, S) ->
+    if S#s.ref == undefined ->
+	    {stop, normal, ok, S};
+       true ->
+	    Callback = fun(S0,_) ->
+			       gen_server:reply(From, ok),
+			       ?dbg("Transport close: ~w\n", [S#s.ref]),
+			       (S#s.transport):close(S#s.ref),
+			       {stop, normal, S0#s { ref=undefined }}
+		       end,
+	    P = #obex_packet { final     = 1,
+			       callback  = Callback,
+			       opcode = undefined,  %% sync packet
+			       headers = [] },
+	    send_packet(P, S)
+    end;
+    
+handle_call(_Request, _From, S) ->
+    {reply, {error, bad_call}, S}.
+
+%%--------------------------------------------------------------------
+%% Function: handle_cast(Msg, State) -> {noreply, State} |
+%%                                      {noreply, State, Timeout} |
+%%                                      {stop, Reason, State}
+%% Description: Handling cast messages
+%%--------------------------------------------------------------------
+handle_cast(_Msg, S) ->
+    {noreply, S}.
+
+%%--------------------------------------------------------------------
+%% Function: handle_info(Info, State) -> {noreply, State} |
+%%                                       {noreply, State, Timeout} |
+%%                                       {stop, Reason, State}
+%% Description: Handling all non call/cast messages
+%%--------------------------------------------------------------------
+
+handle_info({rfcomm,Ref,{data,Data}}, S) when S#s.ref == Ref ->
+    ?dbg("RFCOMM: Packet received: ~p\n", [Data]),
+    recv(Data, S);
+handle_info({tcp,Ref,Data}, S) when S#s.ref == Ref ->
+    ?dbg("TCP: Packet received: ~p\n", [Data]),
+    recv(Data, S);
+handle_info({rfcomm,Ref,closed}, S) when S#s.ref == Ref ->
+    ?dbg("RFCOMM: closed\n", []),
+    recv_closed(S);
+handle_info({tcp_closed,Ref}, S) when S#s.ref == Ref ->
+    ?dbg("TCP: closed\n", []),
+    recv_closed(S);
+handle_info(_Info, S) ->
+    ?dbg("Unhandled INFO ~p\n", [_Info]),
+    {noreply, S}.
+
+%%--------------------------------------------------------------------
+%% Function: terminate(Reason, State) -> void()
+%% Description: This function is called by a gen_server when it is about to
+%% terminate. It should be the opposite of Module:init/1 and do any necessary
+%% cleaning up. When it returns, the gen_server terminates with Reason.
+%% The return value is ignored.
+%%--------------------------------------------------------------------
+terminate(_Reason, S) ->
+    if S#s.ref == undefined ->
+	    ok;
+       true ->
+	    ?dbg("Transport close: ~w\n", [S#s.ref]),
+	    (S#s.transport):close(S#s.ref)
+    end.
+
+
+%%--------------------------------------------------------------------
+%% Func: code_change(OldVsn, State, Extra) -> {ok, NewState}
+%% Description: Convert process state when code is changed
+%%--------------------------------------------------------------------
+code_change(_OldVsn, State, _Extra) ->
+    {ok, State}.
+
+%%--------------------------------------------------------------------
+%%% Internal functions
+%%--------------------------------------------------------------------
+
+%% Get transport from options 
+transport(Opts) ->
+    transport(Opts, undefined).
+
+transport(Opts, Address) ->
+    case getopt(transport, Opts) of
+	undefined ->
+	    if Address == undefined -> rfcomm;
+	       true ->
+		    case inet_parse:address(Address) of
+			{ok, _} -> tcp;
+			_ ->
+			    case bt_util:getaddr(Address) of
+				{ok,_} -> rfcomm;
+				_ ->
+				    case inet_parse:domain(Address) of
+					true -> tcp;
+					_ -> undefined
+				    end
+			    end
+		    end
+	    end;
+	Transport when is_atom(Transport) -> Transport;
+	_ -> undefined
+    end.
+
+transport_module(rfcomm) -> obex_rfcomm;
+transport_module(tcp) -> obex_tcp;
+transport_module(T) -> list_to_atom("obex_" ++ atom_to_list(T)).
+
+server_link(Channel, Opts) ->
+    case transport(Opts) of
+	undefined ->
+	    {error, unknown_transport};
+	Transport ->
+	    Mod = transport_module(Transport),
+	    Mod:server_link(Channel, Opts)
+    end.    
+
+server(Channel, Opts) ->
+    case transport(Opts) of
+	undefined ->
+	    {error, unknown_transport};
+	Transport ->
+	    Mod = transport_module(Transport),
+	    Mod:server(Channel, Opts)
+    end.
+
+
+%% A new connection from Transport backend
+server_init(SrvHandle, Ref, _Address, Channel, Transport, Opts) ->
+    ?dbg("obex [~w] Accept from ~w on channel=~w\n", 
+	 [Transport,_Address,Channel]),
+    Wait = #obex_packet { final = 1, 
+			  opcode = wait, 
+			  callback = fun handle_connect/2 },
+    S = #s { role         = server,
+	     sref         = SrvHandle,
+	     transport    = Transport,
+	     ref          = Ref,
+	     channel      = Channel,
+	     host_mtu     = getopt(mtu,Opts,?OBEX_DEFAULT_MTU),
+	     host_flags   = getopt(flags,Opts,0),
+	     host_version = ?OBEX_VERSION,
+	     opts         = Opts,
+	     send_queue   = [Wait]
+	    },
+    gen_server:enter_loop(?MODULE, [], S).
+
+%% handle connect request
+handle_connect(S0,#obex_packet { opcode=connect,
+				 headers=Hs,
+				 args=[Version,Flags,Mtu] }) ->
+    ?dbg("handle_connect: version=~w, flags=~w, mtu=~w, hs=~w",
+	 [Version,Flags,Mtu,Hs]),
+    S = S0#s { peer_version=Version, peer_mtu=Mtu,peer_flags=Flags },
+    case lists:keysearch(target, 1, Hs) of
+	false ->
+	    handle_connect_target(S, undefined, obex_generic);
+	{value,{_,Target}} ->
+	    case (S#s.transport):lookup(S#s.sref, Target) of
+		{error, not_found} ->
+		    Packet = #obex_packet { final = 1,
+					    opcode = {error,not_found},
+					    headers = [],
+					    callback = fun handle_connect/2 },
+		    send_packet(Packet, S);
+		{ok,Module} ->
+		    handle_connect_target(S, Target, Module)
+	    end
+    end;
+handle_connect(S,P=#obex_packet { opcode=_Opcode }) ->
+    ?dbg("handle_connect: opcode ~w", [_Opcode]),
+    TS = obex_generic:init(S#s.sref, S#s.opts, S#s.peer_mtu),
+    handle_request(S#s { smod=obex_generic, sstate=TS},P).
+    
+%%
+%% Connected to target handled by Mod
+%%
+handle_connect_target(S, Target, Mod) ->
+    TS = Mod:init(S#s.sref, S#s.opts, S#s.peer_mtu),
+    case target_connect(Target, S#s { smod=Mod, sstate=TS}) of
+	{reply,{ok,Hs}, S1} ->
+	    Packet = #obex_packet { final = 1,
+				    opcode = connect_response,
+				    args=[S#s.host_version,
+					  S#s.host_flags,
+					  S#s.host_mtu],
+				    headers = Hs,
+				    callback = fun handle_request/2 },
+	    send_packet(Packet, S1);
+	{reply,Error,S1} ->
+	    Packet = #obex_packet { final = 1,
+				    opcode = Error,
+				    headers = [],
+				    callback = fun handle_request/2 },
+	    send_packet(Packet, S1)
+    end.
+
+%%
+%% Collect ALL get headers before doing the target callback
+%%
+next_get(HsAcc) ->
+    fun(S, #obex_packet { final=0, opcode=get, headers=Hs }) ->
+	    ?dbg("GET continue request ~p\n", [Hs]),
+	    Packet = #obex_packet { final=0, opcode=continue, headers=[],
+				    callback=next_get(HsAcc++Hs) },
+	    send_packet(Packet, S);
+       (S, P=#obex_packet { final=1, opcode=get, headers=Hs }) ->
+	    handle_request(S,P#obex_packet { headers=HsAcc++Hs });
+       (S, _P=#obex_packet { final=1, opcode=abort }) ->
+	    Packet = #obex_packet { final=0, opcode={ok,success}, headers=[],
+				    callback=fun handle_request/2 },
+	    send_packet(Packet, S);
+       (S, _P) ->
+	    ?dbg("Got ~p while collecting GET headers",[_P#obex_packet.opcode]),
+	    Packet = #obex_packet { final=0, opcode={error,conflict}, headers=[],
+				    callback=fun handle_request/2 },
+	    send_packet(Packet, S)
+    end.
+%%
+%% Collect ALL put headers before doing the target callback
+%%
+next_put(HsAcc) ->
+    fun(S, #obex_packet { final=0, opcode=put, headers=Hs }) ->
+	    ?dbg("PUT continue request ~p\n", [Hs]),
+	    continue_put(S,Hs,HsAcc);
+       (S, #obex_packet { final=1, opcode=put, headers=Hs }) ->
+	    final_put(S,Hs,HsAcc);
+       (S, _P=#obex_packet { final=1, opcode=abort }) ->
+	    Packet = #obex_packet { final=0, opcode={ok,success}, headers=[],
+				    callback=fun handle_request/2 },
+	    send_packet(Packet, S);
+       (S, _P) ->
+	    ?dbg("Got ~p while collecting PUT headers",[_P#obex_packet.opcode]),
+	    Packet = #obex_packet { final=0, opcode={error,conflict}, 
+				    headers=[],
+				    callback=fun handle_request/2 },
+	    send_packet(Packet, S)
+    end.
+
+
+continue_put(S,Hs,HsAcc) ->
+    case split_headers(Hs) of
+	{true,Hs1,Data} -> %% bodyEnd in non final? trailer?
+	    ?dbg("got bodyEnd in continue put packet!", []),
+	    {reply,Reply,S1} = target_put(HsAcc++Hs1, Data, S),
+	    Packet = #obex_packet { final=1, opcode=Reply,
+				    headers=[],
+				    callback=fun handle_request/2
+				   },
+	    send_packet(Packet, S1);
+	{false,Hs1,<<>>} -> %% no data no end
+	    Packet = #obex_packet { final=1, opcode=continue,
+				    headers=[],
+				    callback=next_put(HsAcc++Hs1)
+				   },
+	    send_packet(Packet,S);
+	{false,Hs1,Data} -> %% data found not end
+	    {reply,Reply,S1} = target_put(HsAcc++Hs1, Data, S),
+	    Packet = #obex_packet { final=1, opcode=Reply,
+				    headers=[],
+				    callback=fun handle_request/2 },
+	    send_packet(Packet,S1)
+    end.
+
+final_put(S,Hs,HsAcc) ->
+    case split_headers(Hs) of
+	{true,Hs1,Data} ->
+	    case target_put(HsAcc++Hs1, Data, S) of
+		{reply,continue,S1} ->
+		    {reply,Reply,S2} = target_put([],<<>>,S1),
+		    Packet = #obex_packet { final=1, opcode=Reply,
+					    headers=[],
+					    callback=fun handle_request/2
+					   },
+		    send_packet(Packet,S2);
+		{reply,Reply,S1} ->
+		    Packet = #obex_packet { final=1, opcode=Reply,
+					    headers=[],
+					    callback=fun handle_request/2
+					   },
+		    send_packet(Packet,S1)
+	    end;
+	{false,_Hs1,_Data} ->
+	    ?dbg("missing bodyEnd in final put packet!", []),
+	    Packet = #obex_packet { final=1, opcode={error,bad_request},
+				    headers=[],
+				    callback=fun handle_request/2},
+	    send_packet(Packet, S)
+    end.    
+
+%%
+%% Send GET reply packets
+%%
+send_reply_packets([], _End, S) ->
+    ?dbg("send_reply_packets: NO packets to send???",[]),
+    {noreply, S};
+send_reply_packets([P], End, S) ->
+    P1 = if End == true ->
+		 P#obex_packet { final=1,opcode={ok,success},
+				 callback=fun handle_request/2};
+	    true ->
+		 P#obex_packet { final=1, opcode=continue,
+				 callback=fun handle_request/2}
+	 end,
+    send_packet(P1, S);
+send_reply_packets([P|Ps], End, S) ->
+    Callback = fun(S0,_Pi=#obex_packet { opcode=get }) -> %% ignoring final!!!
+		       send_reply_packets(Ps, End, S0);
+		  (S0,Pi) ->
+		       handle_request(S0, Pi)
+	       end,
+    P1 = P#obex_packet { final=1, opcode=continue, callback=Callback },
+    send_packet(P1, S).
+
+%%
+%% Handle GET
+%%
+handle_request(S,#obex_packet { final=1, opcode=get, headers=Hs }) ->
+    ?dbg("GET final=1 request ~p\n", [Hs]),
+    case target_get(Hs, S) of
+	{reply,{continue,ReplyHs,Data},S1} ->
+	    Ps = make_packets(ReplyHs, Data, false, S1#s.peer_mtu),
+	    send_reply_packets(Ps, false, S1);
+	{reply,{ok,ReplyHs,Data},S1} ->
+	    Ps = make_packets(ReplyHs, Data, true, S1#s.peer_mtu),
+	    send_reply_packets(Ps, true, S1);
+	{reply,Error,S1} ->
+	    Packet = #obex_packet { final=1, 
+				    opcode=Error,
+				    headers=[],
+				    callback=fun handle_request/2},
+	    send_packet(Packet, S1)
+    end;
+handle_request(S,#obex_packet { final=0, opcode=get, headers=Hs }) ->
+    ?dbg("GET continue request ~p\n", [Hs]),
+    Packet = #obex_packet { final=0, opcode=continue, headers=[],
+			    callback=next_get(Hs) },
+    send_packet(Packet, S);
+%%
+%% Handle PUT (collect headers until we find body or bodyEnd)
+%%
+handle_request(S,#obex_packet { final=0, opcode=put, headers=Hs}) ->
+    ?dbg("PUT continue request ~p\n", [Hs]),
+    continue_put(S,Hs,[]);
+handle_request(S,#obex_packet { final=1, opcode=put, headers=Hs}) ->
+    ?dbg("PUT final request ~p\n", [Hs]),
+    final_put(S,Hs,[]);
+
+%%
+%% Handle SETPATH
+%%
+handle_request(S,#obex_packet { final=1, opcode=setpath, args=Args, headers=Hs }) ->
+    ?dbg("SETPATH hs=~p\n", [Hs]),
+    {reply,Reply,S1} = target_setpath(Hs,Args,S),
+    Packet = #obex_packet { final=1, opcode=Reply, headers=[],
+			    callback=fun handle_request/2 },
+    send_packet(Packet, S1);
+%%
+%% ABORT
+%%
+handle_request(S,#obex_packet { final=1, opcode=abort, headers=Hs }) ->
+    ?dbg("ABORT hs=~p\n", [Hs]),
+    {reply,Reply,S1} = target_abort(Hs, S),
+    Packet = #obex_packet { final=1, opcode=Reply, headers=[],
+			    callback=fun handle_request/2 },
+    send_packet(Packet, S1);
+%%
+%% DISCONNECT
+%%
+handle_request(S,#obex_packet { final=1, opcode=disconnect, headers=Hs }) ->
+    ?dbg("DISCONNECT hs=~p\n", [Hs]),
+    {reply,Reply,S1} = target_disconnect(Hs, S),
+    Packet = #obex_packet { final=1, opcode=Reply, headers=[],
+			    callback=fun handle_request/2 },
+    send_packet(Packet, S1);
+%%
+%% COMMAND
+%%
+handle_request(S,#obex_packet { final=1, opcode=command, headers=Hs }) ->
+    ?dbg("COMMAND hs=~p\n", [Hs]),
+    {reply,Reply,S1} = target_command(Hs, S), 
+    Packet = #obex_packet { final=1, opcode=Reply, headers=[],
+			    callback=fun handle_request/2 },
+    send_packet(Packet, S1);
+%%
+%% OTHER packets (final=0 strange opcodes etc)
+%%
+handle_request(S,_P) ->
+    ?dbg("OTHER packet=~p", [_P]),
+    Packet = #obex_packet { final=1, opcode={error,bad_request}, headers=[],
+			    callback=fun handle_request/2 },
+    send_packet(Packet, S).
+    
+
+%% Wrap calls to target
+target_connect(Target, S) ->
+    {reply,Reply,TS} = (S#s.smod):handle_connect(Target,S#s.sstate),
+    {reply,Reply,S#s { sstate = TS}}.
+
+target_disconnect(Hs, S) ->
+    {reply,Reply,TS} = (S#s.smod):handle_disconnect(Hs,S#s.sstate),
+    {reply,Reply,S#s { sstate = TS}}.
+
+target_get(Hs, S) ->
+    {reply,Reply,TS} = (S#s.smod):handle_get(Hs,S#s.sstate),
+    {reply,Reply,S#s { sstate = TS}}.
+
+target_put(Hs, Data, S) ->
+    {reply,Reply,TS} = (S#s.smod):handle_put(Hs,Data,S#s.sstate),
+    {reply,Reply,S#s { sstate = TS}}.
+
+target_abort(Hs, S) ->
+    {reply,Reply,TS} = (S#s.smod):handle_abort(Hs,S#s.sstate),
+    {reply,Reply,S#s { sstate = TS}}.
+
+target_setpath(Hs,Args,S) ->
+    {reply,Reply,TS} = (S#s.smod):handle_setpath(Hs,Args,S#s.sstate),
+    {reply,Reply,S#s { sstate = TS}}.
+
+target_command(Hs, S) ->
+    {reply,Reply,TS} = (S#s.smod):handle_command(Hs,S#s.sstate),
+    {reply,Reply,S#s { sstate = TS}}.
+
+
+%% update header with connection id 
+prepare_headers(Hs, S) ->
+    if S#s.id == undefined ->
+	    Hs;
+       true ->
+	    [{connectionID,S#s.id}|Hs]
+    end.
+
+handle_get_chunk_start(Hs, From, S) ->
+    Packets = make_get_packets(Hs, S#s.peer_mtu),
+    send_get_packets(Packets, From, S).
+
+handle_get_chunk(From, S) ->
+    send_get_packet_1(#obex_packet { opcode=get, headers=[] }, From, S).
+
+handle_put_chunk_start(Hs, From, S) ->
+    Packets = make_packets(Hs, <<>>, false, S#s.peer_mtu),
+    send_put_packets(Packets, 0, From, S).
+
+handle_put_chunk(Data, From, S) ->
+    Packets = make_packets([], Data, false, S#s.peer_mtu),
+    send_put_packets(Packets, 0, From, S).
+
+handle_put_chunk_end(Data, From, S) ->
+    Packets = make_packets([], Data, true, S#s.peer_mtu),
+    send_put_packets(Packets, 1, From, S).
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% send_get_packets:
+%%   Send the GET header packets util all packets have been sent
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+send_get_packets([], From, S) ->
+    %% send a empty get packet
+    send_get_packet_1(#obex_packet { opcode=get, headers=[] }, From, S);
+send_get_packets([P], From, S) ->
+    send_get_packet_1(P, From, S);
+send_get_packets([P|Ps], From, S) ->
+    Callback = fun(S0,_Pi=#obex_packet { final=0, opcode=_Reply}) ->
+		       ?dbg("send_get_packets: input=~p\n", [_Pi]),
+		       send_get_packets(Ps, From, S0);
+		  (S0, _Pi=#obex_packet { final=1, opcode=Reply}) ->
+		       ?dbg("send_get_packets: input=~p\n", [_Pi]),
+		       gen_server:reply(From, Reply),
+		       {noreply,S0}
+	       end,
+    Pout = P#obex_packet { final=0, callback=Callback},
+    send_packet(Pout, S).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%
+%% Send the GET final=1 packet
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+send_get_packet_1(P, From, S) ->
+    Callback = 
+	fun (S0,_P=#obex_packet { final=1,opcode=continue,headers=Hs}) ->
+		?dbg("send_get_packet_1: input=~p\n", [_P]),
+		gen_server:reply(From, {continue,Hs}),
+		{noreply,S0};
+	    (S0, _P=#obex_packet { final=1,opcode=Reply,headers=Hs}) ->
+		?dbg("send_get_packet_1: input=~p\n", [_P]),
+		case Reply of
+		    {ok,success} ->
+			gen_server:reply(From, {ok,Hs});
+		    Error ->
+			gen_server:reply(From, Error)
+		end,
+		{noreply,S0};
+	    (S0,_P=#obex_packet { final=0,opcode=_Reply,headers=Hs}) ->
+		?dbg("send_get_packet_1: input=~p\n", [_P]),
+		%% request more request headers !!!
+		gen_server:reply(From, {more, Hs}),
+		{noreply,S0}
+	end,
+    Packet = P#obex_packet { final= 1, callback = Callback },
+    send_packet(Packet, S).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% send_put_packets:
+%%   Send the PUT packets util all packets have been sent
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+    
+send_put_packets([], _Finally, _From, S) ->
+    {noreply, S};
+send_put_packets([P], Finally, From, S) ->
+    Callback = fun(S0,_Pi=#obex_packet { final=0, opcode=Reply}) ->
+		       ?dbg("handle_put: input=~p\n", [_Pi]),
+		       gen_server:reply(From, Reply),
+		       {noreply,S0};
+		  (S0, _Pi=#obex_packet { final=1, opcode=Reply}) ->
+		       ?dbg("handle_put: input=~p\n", [_Pi]),
+		       gen_server:reply(From, Reply),
+		       {noreply,S0}
+	       end,
+    Pout = P#obex_packet { opcode=put, final=Finally, callback=Callback},
+    send_packet(Pout, S);
+send_put_packets([P|Ps], Finally, From, S) ->
+    Callback = fun(S0,_Pi=#obex_packet { final=0, opcode=_Reply}) ->
+		       ?dbg("handle_put: input=~p\n", [_Pi]),
+		       send_put_packets(Ps, Finally, From, S0);
+		  (S0, _Pi=#obex_packet { final=1, opcode=Reply}) ->
+		       ?dbg("handle_put: input=~p\n", [_Pi]),
+		       gen_server:reply(From, Reply),
+		       {noreply,S0}
+	       end,
+    Pout = P#obex_packet { opcode=put, final=0, callback=Callback},
+    send_packet(Pout, S).
+    
+recv_closed(S) when S#s.role == server ->
+    ?dbg("server connection closed (normal)\n", []),
+    {stop, normal, S};
+recv_closed(S) when S#s.role == client ->
+    ?dbg("client connection closed\n", []),
+    {noreply, S#s { ref=undefined, id=undefined }}.
+
+recv(Data, S) ->
+    Buf = recv_concat(Data, S#s.recv_buffer),
+    BufLen = size(Buf),
+    Remain = S#s.recv_remain,
+    if Remain < 0 ->
+	    if BufLen + Remain < 0 ->
+		    {noreply, S#s { recv_remain=BufLen+Remain, 
+				    recv_buffer = Buf }};
+	       true ->
+		    <<_OP:8,PacketLen:16,_/binary>> = Buf,
+		    if BufLen < PacketLen ->
+			    {noreply, S#s { recv_remain=PacketLen-BufLen,
+					    recv_buffer=Buf }};
+		       BufLen >= PacketLen ->
+			    <<Packet:PacketLen/binary,Buf1/binary>> = Buf,
+			    recv_packet(Packet, Buf1, S#s { recv_remain=0,
+							    recv_buffer=(<<>>) 
+							   })
+		    end
+	    end;
+       Remain > 0 ->
+	    if BufLen < Remain ->
+		    {noreply, S#s { recv_remain=Remain - BufLen,
+				    recv_buffer=Buf }};
+	       true ->
+		    <<_OP:8,PacketLen:16,_/binary>> = Buf,
+		    <<Packet:PacketLen/binary, Buf1/binary>> = Buf,
+		    recv_packet(Packet, Buf1, S#s { recv_remain=0,
+						    recv_buffer=(<<>>) })
+	    end
+    end.
+
+recv_packet(Data, Buf, S) ->
+    Cmd = case S#s.send_queue of
+	      [P|_] -> P#obex_packet.opcode;
+	      [] -> undefined
+	  end,
+    Reply = decode_packet(Data, Cmd),
+    ?dbg("recv_packet: ~p\n", [Reply]),
+    S1 = push_packets(Buf, S),  %% push rest of packet data
+    case S1#s.send_queue of
+	[#obex_packet { callback=Callback }|_] ->
+	    %% Note that the callback may send packets, but they
+	    %% are queued after current packet.
+	    case Callback(S1, Reply) of
+		{noreply, S2} ->
+		    Q = tl(S2#s.send_queue),
+		    send_packet(S2#s { send_queue = Q });
+		{stop,Reason,Reply,S2} ->
+		    {stop,Reason,Reply,S2};
+		{stop,Reason,S2} ->
+		    {stop,Reason,S2}
+	    end;
+	[] ->
+	    ?dbg("Reply not expected\n",[]),
+	    {noreply, S1}
+    end.
+
+decode_opcode(Code) ->
+    case Code band 16#7f of
+	?OBEX_CMD_CONNECT -> connect;
+	?OBEX_CMD_DISCONNECT -> disconnect;
+	?OBEX_CMD_PUT -> put;
+	?OBEX_CMD_GET -> get;
+	?OBEX_CMD_COMMAND -> command;
+	?OBEX_CMD_SETPATH -> setpath;
+	?OBEX_CMD_ABORT -> abort;
+
+	%% 1x
+	?OBEX_RSP_CONTINUE   -> continue;
+	?OBEX_RSP_SWITCH_PRO -> switch_protocols;
+
+	%% 2x
+	?OBEX_RSP_SUCCESS   -> {ok,success};
+	?OBEX_RSP_CREATED  -> {ok,created};
+	?OBEX_RSP_ACCEPTED -> {ok,accepted};
+	?OBEX_RSP_NO_CONTENT -> {ok,no_content};
+	?OBEX_RSP_RESET_CONTENT -> {ok, reset_content};
+	?OBEX_RSP_PARTIAL_CONTENT -> {ok, partial_content};
+
+	%% 3x
+	?OBEX_RSP_MULTIPLE_CHOICES -> {error,multiple_choices};
+	?OBEX_RSP_MOVED_PERMANENTLY -> {error,moved_permanently};
+	?OBEX_RSP_MOVED_TEMPORARILY -> {error,moved_temporarily};
+	?OBEX_RSP_SEE_OTHER         -> {error,see_other};
+	?OBEX_RSP_NOT_MODIFIED      -> {error,not_modified};
+	?OBEX_RSP_USE_PROXY         -> {error,use_proxy};
+
+	%% 4x
+	?OBEX_RSP_BAD_REQUEST -> {error,bad_request};
+	?OBEX_RSP_UNAUTHORIZED -> {error,unauthorized};
+	?OBEX_RSP_PAYMENT_REQUIRED -> {error,payment_required};
+        ?OBEX_RSP_FORBIDDEN   -> {error, forbidden};
+        ?OBEX_RSP_NOT_FOUND   -> {error, not_found};
+        ?OBEX_RSP_METHOD_NOT_ALLOWED -> {error,not_allowed};
+        ?OBEX_RSP_CONFLICT -> {error, conflict};
+        ?OBEX_RSP_GONE -> {error, gone};
+	?OBEX_RSP_LENGTH_REQUIRED -> {error, length_required};
+	?OBEX_RSP_PRECONDITION_FAILED -> {error, precondition_failed};
+	?OBEX_RSP_ENTITY_TOO_LARGE -> {error, entity_too_large};
+	?OBEX_RSP_URL_TOO_LARGE -> {error, url_too_large};
+	?OBEX_RSP_UNSUPPORTED_MEDIA -> {error, unsupported_media};
+
+	%%
+	?OBEX_RSP_INTERNAL_SERVER_ERROR -> {error, internal_server_error};
+	?OBEX_RSP_NOT_IMPLEMENTED -> {error, not_implemented};
+	?OBEX_RSP_BAD_GATEWAY -> {error, bad_gateway};
+	?OBEX_RSP_SERVICE_UNAVAILABLE -> {error, service_unavailable};
+	?OBEX_RSP_GATEWAY_TIMEOUT -> {error, gateway_timeout};
+	?OBEX_RSP_HTTP_VERSION_NOT_SUPPORTED -> {error, http_version_not_supported};
+
+	%% 
+	?OBEX_RSP_DATABASE_FULL -> {error, database_full};
+	?OBEX_RSP_DATABASE_LOCKED -> {error, database_locked};
+	%%
+	Code1 ->
+	    case (Code1 bsr 4) of
+		2 -> {ok,Code1};
+		_ -> {error,Code1}
+	    end
+    end.
+
+
+encode_opcode(Code) ->
+    case Code of
+	%% 0x
+	connect -> ?OBEX_CMD_CONNECT;
+	disconnect -> ?OBEX_CMD_DISCONNECT;
+	put -> ?OBEX_CMD_PUT;
+	get -> ?OBEX_CMD_GET;
+	command -> ?OBEX_CMD_COMMAND;
+	setpath -> ?OBEX_CMD_SETPATH;
+	abort -> ?OBEX_CMD_ABORT;
+	%% 1x
+	continue -> ?OBEX_RSP_CONTINUE;
+	switch_protocols -> ?OBEX_RSP_SWITCH_PRO;
+	%% 2x
+	{ok,success} -> ?OBEX_RSP_SUCCESS;
+	{ok,created} -> ?OBEX_RSP_CREATED;
+	{ok,accetped} -> ?OBEX_RSP_ACCEPTED;
+	{ok,no_content} -> ?OBEX_RSP_NO_CONTENT;
+	%% 3x
+	{error,multiple_choices} -> ?OBEX_RSP_MULTIPLE_CHOICES;
+	{error,moved_permanently} -> ?OBEX_RSP_MOVED_PERMANENTLY;
+	{error,moved_temporarily} -> ?OBEX_RSP_MOVED_TEMPORARILY;
+	{error,see_other} -> ?OBEX_RSP_SEE_OTHER;
+	{error,not_modified} -> ?OBEX_RSP_NOT_MODIFIED;
+	{error,use_proxy} -> ?OBEX_RSP_USE_PROXY;
+
+	%% 4x
+	{error,bad_request} -> ?OBEX_RSP_BAD_REQUEST;
+	{error,unauthorized} -> ?OBEX_RSP_UNAUTHORIZED;
+	{error,payment_required} -> ?OBEX_RSP_PAYMENT_REQUIRED;
+        {error,forbidden} -> ?OBEX_RSP_FORBIDDEN;
+        {error,not_found} -> ?OBEX_RSP_NOT_FOUND;
+        {error,not_allowed} -> ?OBEX_RSP_METHOD_NOT_ALLOWED;
+        {error,conflict} -> ?OBEX_RSP_CONFLICT;
+        {error, gone} -> ?OBEX_RSP_GONE;
+	{error, length_required} -> ?OBEX_RSP_LENGTH_REQUIRED;
+	{error, precondition_failed} -> ?OBEX_RSP_PRECONDITION_FAILED;
+	{error, entity_too_large} -> ?OBEX_RSP_ENTITY_TOO_LARGE;
+	{error, url_too_large} -> ?OBEX_RSP_URL_TOO_LARGE;
+	{error, unsupported_media} -> ?OBEX_RSP_UNSUPPORTED_MEDIA;
+	%% 5x
+	{error,internal_server_error} -> ?OBEX_RSP_INTERNAL_SERVER_ERROR;
+	{error,not_implemented} -> ?OBEX_RSP_NOT_IMPLEMENTED;
+	%% 6x
+	{error,database_full} -> ?OBEX_RSP_DATABASE_FULL;
+	{error,database_locked} -> ?OBEX_RSP_DATABASE_LOCKED;
+	%%
+	{ok,Code} when Code >= 0, Code =< 15 -> Code;
+	{error,Code} -> Code
+    end.
+
+%% push back extra packet data (ABORT?)
+%% (should never happend but why should we not try to support pipelining ...)
+push_packets(Buf, S) when size(Buf) < 3 ->
+    S#s { recv_remain = -3 + size(Buf), recv_buffer = Buf }; 
+push_packets(Buf = <<_Op:8, PacketLen:16,_>>, S) ->
+    DataLen = size(Buf),
+    if DataLen >= PacketLen ->
+	    <<Packet:PacketLen/binary, Buf1/binary>> = Buf,
+	    Qs = S#s.recv_queue ++ [Packet],
+	    push_packets(Buf1, S#s { recv_queue = Qs });
+       true ->
+	    S#s { recv_remain = PacketLen-DataLen,
+		  recv_buffer = Buf }
+    end.
+
+%%
+%%  Generate a sequence of packets with 
+%%  Headers body and bodyEnd
+%%  End == false  - Do not generated bodyEnd headers
+%%  Hs  == []     - Only generate body or bodyEnd headers
+%%  Data == <<>>  - No data possible a empty dataEnd is generated
+%%
+make_packets(Hs, Data, End, Mtu) ->
+    make_headers(Hs,Mtu-3,Mtu-3,End,Data,[],[]).
+
+make_headers([{Key,Value}|Hs],Remain,Mtu,End,Data,HsAcc,PsAcc) ->
+    Sz = size_header(Key,Value),
+    if Sz =< Remain ->
+	    make_headers(Hs,Remain-Sz,Mtu,End,Data, 
+			 [{Key,Value}|HsAcc],PsAcc);
+       Sz > Mtu ->
+	    io:format("WARNING: SIZE(~p,~p)=~w,MTU=~w\n",[Key,Value,Sz,Mtu]),
+	    if HsAcc == [] ->
+		    P = #obex_packet { headers=[{Key,Value}]},
+		    make_headers(Hs,Mtu,Mtu,End,Data,[],[P|PsAcc]);
+	       true ->
+		    P1 = #obex_packet { headers=reverse(HsAcc) },
+		    P2 = #obex_packet { headers=[{Key,Value}]},
+		    make_headers(Hs,Mtu,Mtu,End,Data,[],[P2,P1|PsAcc])
+	    end;
+       true ->
+	    P = #obex_packet { headers=reverse(HsAcc) },
+	    make_headers(Hs,Mtu-Sz,Mtu,End,Data,[{Key,Value}],[P|PsAcc])
+    end;
+make_headers([],Remain,Mtu,End,Data,HsAcc,PsAcc) ->
+    make_data(Data,Remain,Mtu,End,HsAcc,PsAcc).
+
+make_data(Data,Remain,Mtu,End,HsAcc,PsAcc) ->
+    Sz = size(Data)+3, %% DataSize + Tag & length
+    if
+	Sz =< Remain ->
+	    if End == true ->
+		    HsAcc1 = [{bodyEnd,Data}|HsAcc],
+		    P = #obex_packet { headers=reverse(HsAcc1) }, 
+		    reverse([P|PsAcc]);
+	       Sz == 3, HsAcc == [] -> %% No data and No End
+		    reverse(PsAcc);
+	       Sz == 3 ->
+		    P = #obex_packet { headers=reverse(HsAcc) },
+		    reverse([P|PsAcc]);
+	       true ->  %% Data but not Last Chunk
+		    HsAcc1 = [{body,Data}|HsAcc],
+		    P = #obex_packet { headers=reverse(HsAcc1) },
+		    reverse([P|PsAcc])
+	    end;
+	Remain < 4 ->
+	    P = #obex_packet { headers=reverse(HsAcc) },
+	    make_data(Data,Mtu,Mtu,End,[],[P|PsAcc]);
+	Sz > Remain ->
+	    Len = Remain - 3,
+	    <<Data1:Len/binary, Data2/binary>> = Data,
+	    HsAcc1 = [{body,Data1} | HsAcc],
+	    P = #obex_packet { headers=reverse(HsAcc1) },
+	    make_data(Data2,Mtu,Mtu,End,[],[P|PsAcc])
+    end.
+
+%%
+%% Create a sequence of GET packets covering
+%% the sending of the initial headers
+%%
+make_get_packets(Hs, Mtu) ->
+    make_get_headers(Hs,Mtu-3,Mtu-3,[],[]).
+
+make_get_headers([{Key,Value}|Hs],Remain,Mtu,HsAcc,PsAcc) ->
+    Sz = size_header(Key,Value),
+    if Sz =< Remain ->
+	    make_get_headers(Hs,Remain-Sz,Mtu,
+			     [{Key,Value}|HsAcc],PsAcc);
+       Sz > Mtu ->
+	    io:format("WARNING: SIZE(~p,~p)=~w,MTU=~w\n", [Key,Value,Sz,Mtu]),
+	    if HsAcc == [] ->
+		    P = #obex_packet { opcode=get, headers=[{Key,Value}]},
+		    make_get_headers(Hs,Mtu,Mtu,[],[P|PsAcc]);
+	       true ->
+		    P1 = #obex_packet { opcode=get, headers=reverse(HsAcc) },
+		    P2 = #obex_packet { opcode=get, headers=[{Key,Value}]},
+		    make_get_headers(Hs,Mtu,Mtu,[],[P2,P1|PsAcc])
+	    end;
+       true ->
+	    P = #obex_packet { opcode=get, headers=reverse(HsAcc) },
+	    make_get_headers(Hs,Mtu-Sz,Mtu,[{Key,Value}],[P|PsAcc])
+    end;
+make_get_headers([],_Remain,_Mtu,[],PsAcc) ->
+    reverse(PsAcc);    
+make_get_headers([],_Remain,_Mtu,HsAcc,PsAcc) ->
+    P = #obex_packet { opcode=get,headers=reverse(HsAcc)},
+    reverse([P|PsAcc]).
+
+%%
+%% split headers info {Regular, Body}
+%%
+split_headers(Hs) ->
+    split_headers(Hs, [], [], false).
+
+split_headers([{body,Data}|Hs], Regular, Body, End) ->
+    split_headers(Hs, Regular, [Data|Body], End);
+split_headers([{bodyEnd,Data}|Hs], Regular, Body, _End) ->
+    split_headers(Hs, Regular, [Data|Body], true);
+split_headers([H | Hs], Regular, Body, End) ->
+    split_headers(Hs, [H|Regular], Body, End);
+split_headers([], Regular, Body, End) ->
+    {End, reverse(Regular), list_to_binary(reverse(Body))}.
+    
+%%
+%% Decode packet
+%%	    
+
+%% 0x - commands
+decode_packet(Data = <<Final:1,?OBEX_CMD_CONNECT:7,_:16,
+		      Version:8,Flags:8,MaxPacketLength:16,_/binary>>, _Cmd) ->
+    #obex_packet { final   = Final,
+		   opcode  = connect,
+		   args    = [Version,Flags,MaxPacketLength],
+		   headers = decode_headers(Data, 7) };
+decode_packet(Data = <<Final:1,?OBEX_CMD_SETPATH:7,_:16,
+		      Flags:8,Constants:8,_/binary>>, _Cmd) ->
+    #obex_packet { final   = Final,
+		   opcode  = setpath,
+		   args    = [Flags,Constants],
+		   headers = decode_headers(Data, 5) };
+%% 2x - ok (connect reply)
+decode_packet(Data = <<Final:1,Code:7,_:16,
+		      Version,Flags,MaxPacketLength:16,_/binary>>, connect) ->
+    #obex_packet { final=Final,
+		   opcode  = decode_opcode(Code),
+		   args    = [Version,Flags,MaxPacketLength],
+		   headers = decode_headers(Data, 7)};
+decode_packet(Data = <<Final:1,Code:7,_:16,_/binary>>,_Cmd) ->
+    #obex_packet { final   = Final,
+		   opcode  = decode_opcode(Code),
+		   headers = decode_headers(Data, 3)  }.
+
+
+recv_concat(Data, []) -> Data;
+recv_concat(Data, Buffer) -> <<Buffer/binary, Data/binary>>.
+
+%% send or buffer a packet
+send_packet(_P, S) when S#s.ref == undefined ->
+    ?dbg("send_packet: transport closed\n", []),
+    {reply, {error,closed}, S};
+send_packet(P, S) when is_record(P, obex_packet) ->
+    if S#s.send_queue == [] ->
+	    send_packet(S#s { send_queue = [P]});
+       true ->
+	    ?dbg("send_packet: queued ~p\n", [P]),
+	    Q = S#s.send_queue ++ [P],
+            {noreply, S#s { send_queue = Q }}
+    end.
+
+%% send the first packet on the queue
+send_packet(S) ->
+    case S#s.send_queue of
+	[] -> 
+	    {noreply, S};
+	[P=#obex_packet { opcode = undefined, callback=Callback } | Q] ->
+	    %% sync / close / packet
+	    Callback(S#s { send_queue=Q} , P);
+
+	[P=#obex_packet { final=Final, opcode=command, callback=Callback,
+			headers=Hs }| Q] ->
+	    ?dbg("send_packet: ~p\n", [P]),
+	    Data = encode_packet(Final, ?OBEX_CMD_COMMAND,<<>>, Hs, 
+				 S#s.peer_mtu),
+	    (S#s.transport):send(S#s.ref, Data),
+	    Callback(S#s { send_queue=Q }, P);
+	    
+	[_P=#obex_packet { final=Final, opcode=connect,
+			   args=[Version,Flags,MaxPacketLength],
+			   headers=Hs }|_Q] ->
+	    ?dbg("send_packet: ~p\n", [_P]),
+	    Data = encode_packet(Final, ?OBEX_CMD_CONNECT,
+				 <<Version:8,Flags:8,MaxPacketLength:16>>,
+				 Hs, 0),
+	    (S#s.transport):send(S#s.ref, Data),
+	    {noreply,S};
+	
+	%% Synthetic opcode!!!
+	[_P=#obex_packet { final=Final, opcode=connect_response,
+			   args=[Version,Flags,MaxPacketLength],
+			   headers=Hs }|_Q] ->
+	    ?dbg("send_packet: ~p\n", [_P]),
+	    Data = encode_packet(Final, ?OBEX_RSP_SUCCESS,
+				 <<Version:8,Flags:8,MaxPacketLength:16>>,
+				 Hs, 0),
+	    (S#s.transport):send(S#s.ref, Data),
+	    {noreply,S};
+
+	[_P=#obex_packet { final=Final, opcode=setpath, 
+			  args=[Flags,Constants],
+			  headers=Hs } | _Q] ->
+	    ?dbg("send_packet: ~p\n", [_P]),
+	    Data = encode_packet(Final, ?OBEX_CMD_SETPATH,
+				 <<Flags:8, Constants:8>>,
+				 Hs, S#s.peer_mtu),
+	    (S#s.transport):send(S#s.ref, Data),
+	    {noreply,S};
+
+
+
+	[_P=#obex_packet { final=Final, opcode=Op, 
+			   args=undefined,
+			   headers=Hs } | _Q] ->
+	    ?dbg("send_packet: ~p\n", [_P]),
+	    OpCode = encode_opcode(Op),
+	    Data = encode_packet(Final, OpCode, <<>>,
+				 Hs, S#s.peer_mtu),
+	    (S#s.transport):send(S#s.ref, Data),
+	    {noreply,S}
+    end.
+				 
+
+
+getopt(Key, Opts) ->
+    getopt(Key, Opts, undefined).
+
+getopt(Key, Opts, Default) ->
+    case lists:keysearch(Key, 1, Opts) of
+	{value, {_,Value}} ->
+	    Value;
+	false ->
+	    Default
+    end.
+
+decode_headers(Bin) ->
+    decode_headers(Bin, 0).
+
+decode_headers(Bin, Offset) ->
+    ?dbg("decode_headers: offset=~p\n", [Offset]),
+    decode_headers(Bin, Offset, []).
+
+decode_headers(Bin, Offset, Hs) when Offset >= size(Bin) ->
+    reverse(Hs);
+decode_headers(Bin, Offset, Hs) ->
+    ?dbg("decode_headers: offset=~p\n", [Offset]),
+    case Bin of
+	<<_:Offset/binary,?OBEX_V0:2, ID:6,HeaderLen:16,_/binary>> ->
+	    Offset1 = Offset+3,
+	    ValueLen = HeaderLen - 3,  %% not counting tag and length
+	    <<_:Offset1/binary, Value:ValueLen/binary, _/binary>> = Bin,
+	    Offset2 = Offset1+ValueLen,
+	    Val = decode_unicode(Value, 0, []),
+	    case ((?OBEX_V0 bsl 6) bor ID) of
+		?OBEX_HDR_NAME ->
+		    ?dbg("header: name=~p\n", [Val]),
+		    decode_headers(Bin,Offset2,
+				   [{name,Val}|Hs]);
+		?OBEX_HDR_DESCRIPTION ->
+		    ?dbg("header: desciption=~p\n", [Val]),
+		    decode_headers(Bin,Offset2,
+				   [{description,Val}|Hs]);
+		ID1 ->
+		    ?dbg("header: ~w=~p\n", [ID1,Val]),
+		    decode_headers(Bin,Offset2,
+				   [{ID1,Val}|Hs])
+	    end;
+
+	<<_:Offset/binary,?OBEX_Vn:2,ID:6,HeaderLen:16,_/binary>> ->
+	    Offset1 = Offset+3,
+	    ValueLen = HeaderLen - 3,
+	    <<_:Offset1/binary,Value:ValueLen/binary,_/binary>> = Bin,
+	    Offset2 = Offset1+ValueLen,
+	    case ((?OBEX_Vn bsl 6) bor ID) of
+		?OBEX_HDR_TYPE ->
+		    Val = decode_ascii(Value, 0, []),
+		    ?dbg("header: type=~p\n", [Val]),
+		    decode_headers(Bin,Offset2,[{type,Val}|Hs]);
+		?OBEX_HDR_TIME ->
+		    Val = binary_to_list(Value),
+		    ?dbg("header: time=~p\n", [Val]),
+		    decode_headers(Bin,Offset2,[{time,Val}|Hs]);
+		?OBEX_HDR_TARGET ->
+		    Val = binary_to_list(Value),
+		    ?dbg("header: target=~p\n", [Val]),
+		    decode_headers(Bin,Offset2,[{target,Val}|Hs]);
+		?OBEX_HDR_HTTP ->
+		    Val = binary_to_list(Value),
+		    ?dbg("header: http=~p\n", [Val]),		    
+		    decode_headers(Bin,Offset2,[{http,Val}|Hs]);
+		?OBEX_HDR_BODY ->
+		    ?dbg("header: body=~p\n", [Value]),
+		    decode_headers(Bin,Offset2,[{body,Value}|Hs]);
+		?OBEX_HDR_BODY_END ->
+		    ?dbg("header: bodyEnd=~p\n", [Value]),
+		    decode_headers(Bin,Offset2,[{bodyEnd,Value}|Hs]);
+		?OBEX_HDR_WHO ->
+		    Val = binary_to_list(Value),
+		    ?dbg("header: who=~p\n", [Val]),
+		    decode_headers(Bin,Offset2,[{who,Val}|Hs]);
+
+		?OBEX_HDR_APPARAM ->
+		    ?dbg("header: appparam=~p\n", [Value]),
+		    decode_headers(Bin,Offset2,
+				   [{appParameters,Value}|Hs]);
+
+		?OBEX_HDR_AUTHCHAL ->
+		    ?dbg("header: authChal=~p\n", [Value]),
+		    decode_headers(Bin,Offset2,
+				   [{authorizationChallange,Value}|Hs]);
+
+		?OBEX_HDR_AUTHRESP ->
+		    ?dbg("header: authResp=~p\n", [Value]),
+		    decode_headers(Bin,Offset2,
+				   [{authorizationResponse,Value}|Hs]);
+
+		?OBEX_HDR_OBJCLASS ->
+		    Val = binary_to_list(Value),
+		    ?dbg("header: objClass=~p\n", [Val]),
+		    decode_headers(Bin,Offset2,[{objectClass,Val}|Hs]);
+
+		ID1 ->
+		    ?dbg("header: ~p=~p\n", [ID1,Value]),
+		    decode_headers(Bin,Offset2, [{ID1,Value} | Hs])
+	    end;
+
+	<<_:Offset/binary,?OBEX_I4:2,ID:6,Value:32,_/binary>> ->
+	    Offset1 = Offset+1+4,
+	    case ((?OBEX_I4 bsl 6) bor ID)  of
+		?OBEX_HDR_COUNT ->
+		    ?dbg("header: count=~p\n", [Value]),
+		    decode_headers(Bin,Offset1,
+				   [{count,Value}|Hs]);
+		?OBEX_HDR_CONNECTION_ID ->
+		    ?dbg("header: connectionID=~p\n", [Value]),
+		    decode_headers(Bin,Offset1,
+				   [{connectionID,Value}|Hs]);
+		?OBEX_HDR_LENGTH ->
+		    ?dbg("header: length=~p\n", [Value]),
+		    decode_headers(Bin,Offset1,
+				   [{length,Value}|Hs]);
+		?OBEX_HDR_TIME2 ->
+		    ?dbg("header: time2=~p\n", [Value]),
+		    decode_headers(Bin,Offset1,
+				   [{time2,Value}|Hs]);
+		ID1 ->
+		    ?dbg("header: ~p=~p\n", [ID1,Value]),
+		    decode_headers(Bin,Offset1,
+				   [{ID1,Value} | Hs])
+	    end;
+
+	<<_:Offset/binary,?OBEX_I1:2,ID:6,Value:8,_/binary>> ->
+	    Offset1 = Offset+1+1,
+	    case ((?OBEX_I1 bsl 6) bor ID)  of
+		ID1 ->
+		    ?dbg("header: ~p=~p\n", [ID1,Value]),
+		    decode_headers(Bin,Offset1,
+				   [{ID1,Value} | Hs])
+	    end
+    end.
+
+
+decode_unicode(Bin, Offset, Acc) when Offset >= size(Bin)  ->
+    ?dbg("Warning: unicode string not null terminated\n", []),
+    reverse(Acc);
+decode_unicode(Bin, Offset, Acc) ->
+    case Bin of
+	<<_:Offset/binary, 0, 0>> -> reverse(Acc);
+	<<_:Offset/binary, Char:16, _/binary>> ->
+	    decode_unicode(Bin, Offset+2, [Char|Acc])
+    end.
+
+decode_ascii(Bin, Offset, Acc) when Offset >= size(Bin) ->
+    reverse(Acc);
+decode_ascii(Bin, Offset, Acc) ->
+    case Bin of
+	<<_:Offset/binary, 0>> ->
+	    reverse(Acc);
+	<<_:Offset/binary, Char:8, _/binary>> ->
+	    decode_ascii(Bin, Offset+1, [Char|Acc])
+    end.    
+
+encode_packet(Final, Opcode, BinArgs, Headers, Mtu) ->
+    BinHs = encode_headers(Headers),
+    PacketLen = 3+size(BinArgs)+size(BinHs),
+    if Mtu == 0 -> 
+	    ok;
+       PacketLen > Mtu ->
+	    ?dbg("Waring: packet bigger than peer mtu (~w)\n", [Mtu]);
+       true -> ok
+    end,
+    [<<Final:1, Opcode:7, PacketLen:16>>, BinArgs, BinHs].
+    
+
+encode_headers(Hs) ->
+    list_to_binary(enc_headers(Hs)).
+
+enc_headers([{Key,Value}|Hs]) ->
+    [encode_header(Key,Value) | enc_headers(Hs)];
+enc_headers([]) ->
+    [].
+    
+encode_header(Key,Value) ->
+    case Key of
+	%% null terminated unicode unicode
+	name ->
+	    encode_unicode(?OBEX_HDR_NAME, Value);
+	description ->
+	    encode_unicode(?OBEX_HDR_DESCRIPTION,Value);
+	ID when is_integer(ID), (ID band ?OBEX_HDR_MASK) == ?OBEX_V0 ->
+	    encode_unicode(ID,Value);
+	%% byte sequence
+	type ->
+	    ?enc_null_sequence(?OBEX_HDR_TYPE,Value);
+	time ->
+	    ?enc_byte_sequence(?OBEX_HDR_TIME,Value);
+	target ->
+	    ?enc_byte_sequence(?OBEX_HDR_TARGET,Value);
+	http ->
+	    ?enc_byte_sequence(?OBEX_HDR_HTTP,Value);
+	body ->
+	    ?enc_byte_sequence(?OBEX_HDR_BODY,Value);
+	bodyEnd ->
+	    ?enc_byte_sequence(?OBEX_HDR_BODY_END,Value);
+	who ->
+	    ?enc_byte_sequence(?OBEX_HDR_WHO,Value);
+	appParameters ->
+	    ?enc_byte_sequence(?OBEX_HDR_APPARAM,Value);
+	authorizationChallange ->
+	    ?enc_byte_sequence(?OBEX_HDR_AUTHCHAL,Value);
+	authorizationResponse ->
+	    ?enc_byte_sequence(?OBEX_HDR_AUTHRESP,Value);
+	objectClass ->
+	    ?enc_byte_sequence(?OBEX_HDR_OBJCLASS,Value);
+	ID when is_integer(ID), (ID band ?OBEX_HDR_MASK) == ?OBEX_Vn ->
+	    ?enc_byte_sequence(ID, Value);
+	%% 4 byte values
+	count -> <<?OBEX_HDR_COUNT,Value:32>>;
+	length -> <<?OBEX_HDR_LENGTH,Value:32>>;
+	time2 ->  <<?OBEX_HDR_TIME2, Value:32>>;
+	connectionID -> (<<?OBEX_HDR_CONNECTION_ID,Value:32>>);
+	ID when is_integer(ID), (ID band ?OBEX_HDR_MASK) == ?OBEX_I4 ->
+	    (<<ID, Value:32>>);
+	ID when is_integer(ID), (ID band ?OBEX_HDR_MASK) == ?OBEX_I1 ->
+	    (<<ID, Value:8>>)
+    end.
+
+%% time header should be in  UTC time
+utc_time_iso(Time) when is_list(Time) -> 
+    Time;
+utc_time_iso(Time={Ms,S,Us}) when is_integer(Ms),is_integer(S),is_integer(Us) ->
+    utc_time_iso(calendar:now_to_universal_time(Time));
+utc_time_iso({{YYYY,Mon,Day},{H,M,S}}) ->
+    lists:flatten(io_lib:format("~4..0w~2..0w~2..0wT~2..0w~2..0w~2..0wZ",
+				[YYYY,Mon,Day,H,M,S])).
+
+%% but here is a local version
+time_iso(Time) when is_list(Time) -> 
+    Time;
+time_iso(Time={Ms,S,Us}) 
+  when is_integer(Ms),is_integer(S),is_integer(Us) ->
+    time_iso(calendar:now_to_local_time(Time));
+time_iso({{YYYY,Mon,Day},{H,M,S}}) ->
+    lists:flatten(io_lib:format("~4..0w~2..0w~2..0wT~2..0w~2..0w~2..0w",
+				[YYYY,Mon,Day,H,M,S])).
+%%
+%% Calculate size for a header list
+%%
+size_headers(Hs) when is_list(Hs) ->
+    size_headers(Hs, 0).
+
+size_headers([{Key,Value}|Hs], Sz) ->
+    size_headers(Hs, size_header(Key,Value)+Sz);
+size_headers([], Sz) ->
+    Sz.
+
+%%
+%% Calculate the size of header
+%% Including  <tag> <len:16> <data>
+%%
+size_header(Key,Value) ->
+    case Key of
+	%% null terminates
+	name ->  3+?size_unicode(Value);
+	description -> 3+?size_unicode(Value);
+	ID when is_integer(ID), (ID band ?OBEX_HDR_MASK) == ?OBEX_V0 ->
+	    3+?size_unicode(Value);
+	%% byte sequence
+	type ->    4+?size_byte_sequence(Value);  %% (+1 for null termination)
+	time ->    3+?size_byte_sequence(Value);
+	target ->  3+?size_byte_sequence(Value);
+	http ->    3+?size_byte_sequence(Value);
+	body ->    3+?size_byte_sequence(Value);
+	bodyEnd -> 3+?size_byte_sequence(Value);
+	who ->     3+?size_byte_sequence(Value);
+	appParameters -> 3+?size_byte_sequence(Value);
+	authorizationChallange -> 3+?size_byte_sequence(Value);
+	authorizationResponse ->  3+?size_byte_sequence(Value);
+	objectClass ->  3+?size_byte_sequence(Value);
+	ID when is_integer(ID), (ID band ?OBEX_HDR_MASK) == ?OBEX_Vn ->
+	    3+?size_byte_sequence(Value);
+	%% 4 byte values
+	count -> 5;
+	length -> 5;
+	time2 -> 5;
+	connectionID -> 5;
+	ID when is_integer(ID), (ID band ?OBEX_HDR_MASK) == ?OBEX_I4 -> 5;
+	ID when is_integer(ID), (ID band ?OBEX_HDR_MASK) == ?OBEX_I1 -> 2
+    end.    
+
+%% Note: length field include it self and tag + unicode null termination 0,0
+encode_unicode(ID, "") ->  %% speical (test)
+    [ID, <<3:16>>];
+encode_unicode(ID, Value) ->
+    Len = (length(Value)+1)*2 + 3,
+    [ID, <<Len:16>> | encode_chars(Value)].
+
+encode_chars([H|T]) ->
+    [<<H:16>> | encode_chars(T)];
+encode_chars([]) ->
+    [<<0:16>>].
diff --git a/deps/bt/src/obex_bip.erl b/deps/bt/src/obex_bip.erl
new file mode 100644
index 0000000..c215c49
--- /dev/null
+++ b/deps/bt/src/obex_bip.erl
@@ -0,0 +1,243 @@
+%%%---- BEGIN COPYRIGHT -------------------------------------------------------
+%%%
+%%% Copyright (C) 2006 - 2014, Rogvall Invest AB, <tony@rogvall.se>
+%%%
+%%% This software is licensed as described in the file COPYRIGHT, which
+%%% you should have received as part of this distribution. The terms
+%%% are also available at http://www.rogvall.se/docs/copyright.txt.
+%%%
+%%% You may opt to use, copy, modify, merge, publish, distribute and/or sell
+%%% copies of the Software, and permit persons to whom the Software is
+%%% furnished to do so, under the terms of the COPYRIGHT file.
+%%%
+%%% This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+%%% KIND, either express or implied.
+%%%
+%%%---- END COPYRIGHT ---------------------------------------------------------
+%%% File    : obex_bip.erl
+%%% Author  : Tony Rogvall <tony@PBook.local>
+%%% Description : Basic Imaging profile
+%%% Created :  2 Jun 2006 by Tony Rogvall <tony@PBook.local>
+
+-module(obex_bip).
+
+-include("../include/uuid.hrl").
+-include("../include/obex.hrl").
+
+-compile(export_all).
+
+-export([start/0, start/1]).
+-export([init/3,
+	 terminate/1,
+	 handle_connect/2,
+	 handle_disconnect/2,
+	 handle_get/2,
+	 handle_put/3,
+	 handle_abort/2,
+	 handle_setpath/3,
+	 handle_command/2]).
+-export([sdp_info/1]).
+
+-include("../include/sdp.hrl").
+
+-record(s,
+	{
+	  sref,
+	  opts
+	 }).
+
+-ifdef(debug).
+-define(dbg(Fmt,As), io:format("~s:~w:" Fmt "\n", [?FILE,?LINE | As])).
+-else.
+-define(dbg(Fmt,As), ok).
+-endif.
+
+
+%% Basic Imaging primary session UUID 
+-define(Basic_Imaging_Image_Push,
+	?UUID(16#E33D9545,16#8374,16#4AD7,16#9EC5,16#C16BE31EDE8E)).
+-define(Basic_Imaging_Image_Pull,
+	?UUID(16#8EE9B3D0,16#4608,16#11D5,16#841A,16#0002A5325B4E)).
+%% Basic Imaging Advanced Image 
+-define(Basic_Imaging_Advanced_Image_Printing,
+	?UUID(16#92353350,16#4608,16#11D5,16#841A,16#0002A5325B4E)).
+-define(Basic_Imaging_Automatic_Archive,
+	?UUID(16#940126C0,16#4608,16#11D5,16#841A,16#0002A5325B4E)).
+-define(Basic_Imaging_Remote_Camera,
+	?UUID(16#947E7420,16#4608,16#11D5,16#841A,16#0002A5325B4E)).
+-define(Basic_Imaging_Remote_Display,
+	?UUID(16#94C7CD20,16#4608,16#11D5,16#841A,16#0002A5325B4E)).
+
+%% Basic Imaging secondary session UUID 
+-define(Basic_Imaging_Referenced_Objects,
+	?UUID(16#8E61F95D,16#1A79,16#11D4,16#8EA4,16#00805F9B9834)).
+-define(Basic_Imaging_Archived_Objects,
+	?UUID(16#8E61F95E,16#1A79,16#11D4,16#8EA4,16#00805F9B9834)).
+
+-define(BIP_HDR_IMG_HANDLE,     16#30). %% unicode null terminated
+-define(BIP_HDR_IMG_DESCRIPTOR, 16#71). %% bytes sequence 
+
+%% Capabilities
+-define(CAPA_GENERIC_IMAGING, 2#0001).
+-define(CAPA_CAPTURING,       2#0010).
+-define(CAPA_PRINING,         2#0100).
+-define(CAPA_DISPLAYING,      2#1000).
+
+%% Features
+-define(FEATURE_IMAGE_PUSH,             2#000000001).
+-define(FEATURE_IMAGE_PUSH_STORE,       2#000000010).
+-define(FEATURE_IMAGE_PUSH_PRINT,       2#000000100).
+-define(FEATURE_IMAGE_PUSH_DISPLAY,     2#000001000).
+-define(FEATURE_IMAGE_PULL,             2#000010000).
+-define(FEATURE_ADVANCED_IMAGE_PRINING, 2#000100000).
+-define(FEATURE_AUTOMATIC_ARCHIVE,      2#001000000).
+-define(FEATURE_REMOTE_CAMERA,          2#001000000).
+-define(FEATURE_REMOTE_DISPLAY,         2#010000000).
+
+%% Functions
+-define(FUNC_GetCapabilities,     2#00000000000000001).
+-define(FUNC_PutImage,            2#00000000000000010).
+-define(FUNC_PutLinkedAttachment, 2#00000000000000100).
+-define(FUNC_PutLinkedThumbnail,  2#00000000000001000).
+-define(FUNC_RemoteDisplay,       2#00000000000010000).
+-define(FUNC_GetImagesList,       2#00000000000100000).
+-define(FUNC_GetImageProperties,  2#00000000001000000).
+-define(FUNC_GetImage,            2#00000000010000000).
+-define(FUNC_GetLinkedThumbnail,  2#00000000100000000).
+-define(FUNC_GetLinkedAttachment, 2#00000001000000000).
+-define(FUNC_DeleteImage,         2#00000010000000000).
+-define(FUNC_StartPrint,          2#00000100000000000).
+-define(FUNC_Reserved_12,         2#00001000000000000).
+-define(FUNC_StartArchive,        2#00010000000000000).
+-define(FUNC_GetMonitoringImage,  2#00100000000000000).
+-define(FUNC_Reserved_15,         2#01000000000000000).
+-define(FUNC_GetStatus,           2#10000000000000000).
+
+
+sdp_info(Channel) ->
+    Base1 = 16#0100,
+    [{?ATTR_ServiceRecordHandle, {uint32, 65000}},   %% Should not be needed ?
+     {?ATTR_ServiceClassIDList, 
+      {sequence,[{uuid,?UUID_ImagingResponder}]}},
+     {?ATTR_ProtocolDescriptorList,
+      {sequence,[{sequence,[{uuid,?UUID_L2CAP}]},
+		 {sequence,[{uuid,?UUID_RFCOMM},{uint8,Channel}]},
+		 {sequence,[{uuid,?UUID_OBEX}]}]}},
+     {?ATTR_BrowseGroupList,
+      {sequence,[{uuid,?UUID_PublicBrowseGroup}]}},
+     {?ATTR_LanguageBaseAttributeIDList,
+      {sequence, [{uint16, ?LANGUAGE($e,$n)}, 
+		  {uint16, ?ENCODING_UTF8}, 
+		  {uint16, Base1}]}},
+     {?ATTR_ServiceName+Base1, {text,"Imaging"}},
+     {?ATTR_BluetoothProfileDescriptorList,
+      {sequence,[{uuid,?UUID_Imaging},
+		 {uint16, 16#0100}]}},
+     {?ATTR_BIP_SupportedCapabilities, 
+      {uint8, ?CAPA_GENERIC_IMAGING bor ?CAPA_DISPLAYING}},
+     {?ATTR_BIP_SupportedFeatures, 
+      {uint16, ?FEATURE_IMAGE_PUSH bor ?FEATURE_IMAGE_PUSH_DISPLAY}},
+     {?ATTR_BIP_SupportedFunctions, 
+      {uint32, ?FUNC_GetCapabilities bor ?FUNC_RemoteDisplay}},
+     {?ATTR_BIP_TotalImagingDataCapacity,{uint64, (1 bsl 32)}}
+    ].
+
+start() ->
+    start(15).
+
+start(Channel) ->
+    %% NOTE: The Channel number is just a hint, the
+    %%  number may be any in the range 1-30
+    obex:server(Channel, [{transport,rfcomm},
+			  {sdp, sdp_info(Channel)},
+			  {target,{?Basic_Imaging_Remote_Display,?MODULE}}]).
+
+
+
+
+%% Basic Imaging Image Push
+connect_push(Obex) ->
+    obex:connect(Obex, [{target, ?Basic_Imaging_Image_Push}]).
+
+connect_remote_display(Obex) ->
+    obex:connect(Obex, [{target, ?Basic_Imaging_Remote_Display}]).
+
+getCapabilites(Obex) ->
+    case obex:get(Obex, [{type,"x-bt/img-capabilities"}]) of
+	{ok,_Hs,Bin} ->
+	    makeup:string(Bin);
+	Error ->
+	    Error
+    end.
+
+getListing(Obex) ->
+    obex:get(Obex, [{type,"x-bt/img-listing"}]).
+
+getProperties(Obex,Name) ->
+    obex:get(Obex, [{type,"x-bt/img-properties"},{name,Name}]).
+
+getImage(Obex,Name) ->
+    obex:get(Obex, [{type,"x-bt/img-imq"},{name,Name}]).
+
+getThumbnail(Obex,Name) ->
+    obex:get(Obex, [{type,"x-bt/img-thm"},{name,Name}]).
+
+remoteDisplay(Obex) ->
+    obex:get(Obex, [{type,"x-bt/img-display"}]).
+
+
+putImage(Obex,Name,Descriptor,Image) ->
+    obex:put(Obex, [{type,"x-bt/img-img"},
+		    {name,Name},
+		    {?BIP_HDR_IMG_DESCRIPTOR, Descriptor}], Image).
+
+%%
+%% Imageing server functions
+%%
+
+
+init(SrvRef, SrvOpts, _Mtu) ->
+    ?dbg("init: ~p, opts=~p, peer_mtu=~p", [SrvRef, SrvOpts, _Mtu]),
+    #s { sref = SrvRef, opts = SrvOpts}.
+
+terminate(_S) ->
+    ?dbg("termiate", []),
+    ok.
+
+handle_connect(Target,S) ->
+    ?dbg("handle_connect: ~p", [Target]),
+    ID = 1235,  %% FIXME
+    {reply, {ok,[{connectionID,ID},{who,Target}]}, S}.
+
+handle_disconnect(_Hs, S) ->
+    ?dbg("handle_disconnect: ~p", [_Hs]),
+    {reply, {ok,success}, S}.
+
+handle_get(_Hs, S) ->
+    ?dbg("handle_get: ~p", [_Hs]),
+    {reply, {ok,[],<<"Hello">>}, S}.
+
+handle_put(_Hs,<<>>,S) ->
+    ?dbg("handle_put: ~p data=~p", [_Hs,<<>>]),
+    {reply, {ok,success}, S};
+handle_put(_Hs,_Data,S) ->
+    ?dbg("handle_put: ~p data=~p", [_Hs,_Data]),
+    {reply, continue, S}.
+
+handle_abort(_Hs, S) ->
+    ?dbg("handle_abort: ~p", [_Hs]),
+    {reply, {ok,success}, S}.
+
+handle_setpath(_Hs, _Args, S) ->
+    ?dbg("handle_setpath: ~p args=~p", [_Hs,_Args]),
+    {reply, {error,not_allowed}, S}.
+
+handle_command(_Hs, S) ->
+    ?dbg("handle_command: ~p", [_Hs]),
+    {reply, {error,not_allowed}, S}.
+
+
+
+
+
+
diff --git a/deps/bt/src/obex_dm_server.erl b/deps/bt/src/obex_dm_server.erl
new file mode 100644
index 0000000..99e5d68
--- /dev/null
+++ b/deps/bt/src/obex_dm_server.erl
@@ -0,0 +1,140 @@
+%%%---- BEGIN COPYRIGHT -------------------------------------------------------
+%%%
+%%% Copyright (C) 2006 - 2014, Rogvall Invest AB, <tony@rogvall.se>
+%%%
+%%% This software is licensed as described in the file COPYRIGHT, which
+%%% you should have received as part of this distribution. The terms
+%%% are also available at http://www.rogvall.se/docs/copyright.txt.
+%%%
+%%% You may opt to use, copy, modify, merge, publish, distribute and/or sell
+%%% copies of the Software, and permit persons to whom the Software is
+%%% furnished to do so, under the terms of the COPYRIGHT file.
+%%%
+%%% This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+%%% KIND, either express or implied.
+%%%
+%%%---- END COPYRIGHT ---------------------------------------------------------
+%%% File    : obex_dm_server.erl
+%%% Author  : Tony Rogvall <tony@PBook.local>
+%%% Description : OBEX DM Server
+%%% Created : 29 May 2006 by Tony Rogvall <tony@PBook.local>
+
+-module(obex_dm_server).
+
+-export([start/0, start/1]).
+-export([init/3,
+	 terminate/1,
+	 handle_connect/2,
+	 handle_disconnect/2,
+	 handle_get/2,
+	 handle_put/3,
+	 handle_abort/2,
+	 handle_setpath/3,
+	 handle_command/2]).
+-export([sdp_info/1]).
+
+-include("../include/sdp.hrl").
+
+-record(s,
+	{
+	  sref,
+	  opts
+	 }).
+
+-ifdef(debug).
+-define(dbg(Fmt,As), io:format("~s:~w:" Fmt "\n", [?FILE,?LINE | As])).
+-else.
+-define(dbg(Fmt,As), ok).
+-endif.
+
+
+sdp_info(Channel) ->
+    Base1 = 16#0100,
+    [{?ATTR_ServiceRecordHandle, {uint32, 65000}},   %% Should not be needed ?
+     {?ATTR_ServiceClassIDList, 
+      {sequence,[{uuid,?UUID_SyncMLDMServer}]}},
+     {?ATTR_ProtocolDescriptorList,
+      {sequence,[{sequence,[{uuid,?UUID_L2CAP}]},
+		 {sequence,[{uuid,?UUID_RFCOMM},{uint8,Channel}]},
+		 {sequence,[{uuid,?UUID_OBEX}]}]}},
+     {?ATTR_BrowseGroupList,
+      {sequence,[{uuid,?UUID_PublicBrowseGroup}]}},
+     {?ATTR_LanguageBaseAttributeIDList,
+      {sequence, [{uint16, ?LANGUAGE($e,$n)}, 
+		  {uint16, ?ENCODING_UTF8}, 
+		  {uint16, Base1}]}},
+     {?ATTR_ServiceName+Base1, {text,"SyncML DM Server"}}].
+
+
+start() ->
+    start(14).
+
+start(Channel) ->
+    %% NOTE: The Channel number is just a hint, the
+    %%  number may be any in the range 1-30
+    obex:server(Channel, [{transport,rfcomm},
+			  {sdp, sdp_info(Channel)},
+			  {target,{"SYNCML-DM",?MODULE}}]).
+
+%%
+%% Below is NOT server functions
+%%  but the connection side of the server
+%%
+
+%%
+%% Handle GET
+%%
+init(SrvRef, SrvOpts, _Mtu) ->
+    ?dbg("init: ~p, opts=~p, peer_mtu=~p", [SrvRef, SrvOpts, _Mtu]),
+    #s { sref = SrvRef, opts = SrvOpts}.
+
+terminate(_S) ->
+    ?dbg("termiate", []),
+    ok.
+
+handle_connect(Target,S) ->
+    ?dbg("handle_connect: ~p", [Target]),
+    ID = 1235,
+    {reply, {ok,[{connectionID,ID},{who,Target}]}, S}.
+
+handle_disconnect(_Hs, S) ->
+    ?dbg("handle_disconnect: ~p", [_Hs]),
+    {reply, {ok,success}, S}.
+
+handle_get(_Hs, S) ->
+    ?dbg("handle_get: ~p", [_Hs]),
+    {reply, {ok,[],<<"Hello">>}, S}.
+
+handle_put(_Hs,<<>>,S) ->
+    ?dbg("handle_put: ~p data=~p", [_Hs,<<>>]),
+    {reply, {ok,success}, S};
+handle_put(_Hs,_Data,S) ->
+    ?dbg("handle_put: ~p data=~p", [_Hs,_Data]),
+    {reply, continue, S}.
+
+
+handle_abort(_Hs, S) ->
+    ?dbg("handle_abort: ~p", [_Hs]),
+    {reply, {ok,success}, S}.
+
+handle_setpath(_Hs, _Args, S) ->
+    ?dbg("handle_setpath: ~p args=~p", [_Hs,_Args]),
+    {reply, {error,not_allowed}, S}.
+
+handle_command(_Hs, S) ->
+    ?dbg("handle_command: ~p", [_Hs]),
+    {reply, {error,not_allowed}, S}.
+
+
+
+
+
+
+    
+    
+    
+    
+
+
+     
+
diff --git a/deps/bt/src/obex_generic.erl b/deps/bt/src/obex_generic.erl
new file mode 100644
index 0000000..dca928a
--- /dev/null
+++ b/deps/bt/src/obex_generic.erl
@@ -0,0 +1,293 @@
+%%%---- BEGIN COPYRIGHT -------------------------------------------------------
+%%%
+%%% Copyright (C) 2006 - 2014, Rogvall Invest AB, <tony@rogvall.se>
+%%%
+%%% This software is licensed as described in the file COPYRIGHT, which
+%%% you should have received as part of this distribution. The terms
+%%% are also available at http://www.rogvall.se/docs/copyright.txt.
+%%%
+%%% You may opt to use, copy, modify, merge, publish, distribute and/or sell
+%%% copies of the Software, and permit persons to whom the Software is
+%%% furnished to do so, under the terms of the COPYRIGHT file.
+%%%
+%%% This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+%%% KIND, either express or implied.
+%%%
+%%%---- END COPYRIGHT ---------------------------------------------------------
+%%% File    : obex_generic.erl
+%%% Author  : Tony Rogvall <tony@PBook.local>
+%%% Description : Generic OBEX server
+%%% Created : 31 May 2006 by Tony Rogvall <tony@PBook.local>
+
+-module(obex_generic).
+
+-export([init/3,
+	 terminate/1,
+	 handle_connect/2,
+	 handle_disconnect/2,
+	 handle_get/2,
+	 handle_put/3,
+	 handle_abort/2,
+	 handle_setpath/3,
+	 handle_command/2]).
+
+-include_lib("kernel/include/file.hrl").
+
+-record(s,
+	{
+	  path,   %% current path
+	  id,     %% connection id
+	  sref,   %% server reference
+	  fd,     %% current file
+	  opts,   %% server options
+	  mtu     %% peer mtu
+	 }).
+
+-ifdef(debug).
+-define(dbg(Fmt,As), io:format("~s:~w:" Fmt "\n", [?FILE,?LINE | As])).
+-else.
+-define(dbg(Fmt,As), ok).
+-endif.
+
+%%
+%% init(SrvRef, SrvOpts) -> S
+%%
+init(SrvRef, SrvOpts, PeerMtu) ->
+    ?dbg("init: ~p, opts=~p, peer_mtu=~p", [SrvRef, SrvOpts, PeerMtu]),
+    {ok,Path} = file:get_cwd(),
+    #s { path=Path, sref = SrvRef, opts = SrvOpts, mtu=PeerMtu }.
+
+%%
+%% Terminate
+%%
+terminate(S) ->
+    ?dbg("termiate", []),
+    if S#s.fd == undefined ->
+	    ok;
+       true ->
+	    file:close(S#s.fd)
+    end.
+%%
+%% handle_connect(Target,S) -> 
+%%   {reply, {ok,ConnectHeaders}, S'}
+%% | {reply, {error,Reason}, S'}
+%%
+handle_connect(Target,S) ->
+    ?dbg("handle_connect: ~p", [Target]),
+    if Target == undefined ->
+	    {reply, {ok,[]}, S};
+       true ->
+	    ID = 1234,
+	    {reply, {ok,[{connectionID,ID}, {who,Target}]}, 
+	     S#s { id = ID }}
+    end.
+
+%%
+%% handle_disconnect(Headers,S) ->
+%%   {reply, {ok,success}, S'}
+%% | {reply, {error,Reason}, S'}
+%%
+handle_disconnect(_Hs, S) ->
+    ?dbg("handle_disconnect: ~p", [_Hs]),
+    {reply, {ok,success}, S}.
+    
+%%
+%% handle_get(Headers, S) -> 
+%%
+%%     {reply, {ok,Headers,Data}, S'}
+%%   | {reply, {continue,Headers,Data}, S'}
+%%   | {reply, {error,Reason}, S'}
+%%
+%% handle_get is called the first time after all request headers
+%%  has been read.
+%% After that handle_get will be until bodyEnd is returned
+%% 
+%%
+handle_get(Hs, S) ->
+    ?dbg("handle_get: ~p", [Hs]),
+    if S#s.fd == undefined ->
+	    get_init(Hs, S);
+       true ->
+	    get_continue(Hs, S)
+    end.
+
+%%
+%%  handle_put(Headers, Data, S) ->
+%%       {reply, continue, S'}
+%%    |  {reply, {error,Reason}, S'}
+%%    |  {reply, {ok,success}, S'}
+%%
+%% handle_put will be called after all request headers 
+%%   (not including body nor bodyEnd) 
+%% Data found among inital request headers are put in the Data field
+%%
+%% The last call will have Headers=[] and Data=<<>>
+%%
+handle_put(Hs, Data, S) ->
+    ?dbg("handle_put: ~p data=~p", [Hs,Data]),
+    if S#s.fd == undefined ->
+	    put_init(Hs, Data, S);
+       true ->
+	    put_continue(Hs,Data,S)
+    end.
+
+%%
+%%  handle_abort(Headers, S) ->
+%%     {reply, {ok,success}, S}
+%%   | {reply, {error,Reason}, S}
+%%
+handle_abort(_Hs, S) ->
+    ?dbg("handle_abort: ~p", [_Hs]),
+    if S#s.fd == undefined ->
+	    {reply, {ok,success}, S};
+       true ->
+	    file:close(S#s.fd),
+	    {reply, {ok,success}, S#s { fd = undefined} }
+    end.
+
+%%
+%%  handle_setpath(Header, Args, S) ->
+%%     {reply, {ok,success}, S}
+%%   | {reply, {error,Reason}, S}
+%%
+handle_setpath(Hs, _Args, S) ->
+    ?dbg("handle_setpath: ~p args=~p", [Hs,_Args]),
+    %% FIXME: use Args to create path and do ..
+    case lists:keysearch(name, 1, Hs) of
+	false ->
+	    {reply, {error, conflict}, S};
+	{value,{_,Path}} ->
+	    Path1 = filename:join(S#s.path, Path),
+	    {reply, {ok, success}, S#s { path=Path1}}
+    end.
+
+%%
+%% handle_command(Headers, S) ->
+%%   {reply, {ok,sucess}, S'}
+%% | {reply, {error,Reason}, S'}
+%%
+%% 
+%%
+handle_command(_Hs, S) ->
+    ?dbg("handle_command: ~p", [_Hs]),
+    {reply, {ok,success}, S}.
+
+%%
+%% Return first headers
+%% Normally return things like:
+%%       [{name, FileName},
+%%        {type,MimeType},
+%%        {length,Size},
+%%        {time,IsoTimeStamp},
+%%        {body,Data}, {bodyEnd,Data}]
+%% 
+get_init(Hs, S) ->
+    case lists:keysearch(name, 1, Hs) of
+	false ->
+	    {reply, {error, conflict}, S};
+	{value,{_,File}} ->
+	    Path = filename:join(S#s.path, File),
+	    case get_info(Path) of
+		{ok,Info} ->
+		    case file:open(Path, [read,binary]) of
+			{ok,Fd} ->
+			    Hs = [{name,File}|Info],
+			    RdSz = data_mtu(Hs, S#s.mtu),
+			    ?dbg("obex_generic: data_mtu: ~w\n", [RdSz]),
+			    case file:read(Fd, RdSz) of
+				eof ->
+				    file:close(Fd),
+				    {reply,{ok,Hs,<<>>},S};
+				{ok,Data} ->
+				    {reply,{continue,Hs,Data},S#s{fd=Fd}}
+			    end;
+			_Error ->
+			    {reply,{error,bad_request}, S}
+		    end;
+		Error ->
+		    {reply, Error, S}
+	    end
+    end.
+
+%%
+%% Continue 
+%%
+get_continue(_Hs, S) ->
+    RdSz = data_mtu([], S#s.mtu),
+    ?dbg("obex_generic: data_mtu: ~w\n", [RdSz]),
+    case file:read(S#s.fd, RdSz) of
+	eof ->
+	    file:close(S#s.fd),
+	    {reply,{ok,[],<<>>}, S#s { fd = undefined }};
+	{ok,Data} ->
+	    {reply,{continue,[],Data}, S}
+    end.
+
+%%
+%% Get info headers
+%%
+get_info(File) ->
+    case file:read_file_info(File) of
+	{error,enoent} ->
+	    {error,not_found};
+	{error,eaccess} ->
+	    {error, unauthorized};
+	{ok,I} ->
+	    if I#file_info.type =/= regular ->
+		    {error, not_allowed};
+	       I#file_info.access == none; I#file_info.access == write ->
+		    {error, unauthorized};
+	       true ->
+		    {ok,[{length,I#file_info.size},
+			 {time,obex:time_iso(I#file_info.mtime)}]}
+	    end
+    end.
+
+%%
+%% Calculate usable data MTU
+%%
+data_mtu(Hs, Mtu) ->
+    Sz = obex:size_headers(Hs),
+    %% remove 3 byte for data header and 3 byte for response header
+    (Mtu - (Sz rem Mtu))-6.
+    
+%%
+%% Put init: process initial put request
+%%
+put_init(Hs, Data, S) ->
+    case lists:keysearch(name, 1, Hs) of
+	false ->
+	    {reply, {error, conflict}, S};
+	{value, {_,File}} ->
+	    Path = filename:join(S#s.path, File),
+	    case file:open(Path, [write,binary]) of
+		{ok,Fd} ->
+		    put_write(Fd, Data, S);
+		_Error ->
+		    %% FIXME: check reason
+		    {reply, {error,unauthorized}, S}
+	    end
+    end.
+
+put_continue(_Hs, <<>>, S) ->
+    file:close(S#s.fd),
+    {reply, {ok,success}, S#s {fd = undefined}};
+put_continue(_Hs, Data, S) ->
+    put_write(S#s.fd, Data, S).
+    
+put_write(Fd, <<>>, S) ->
+    {reply, continue, S#s { fd=Fd }};
+put_write(Fd, Data, S) ->
+    file:write(Fd, Data), %% FIXME: handle error
+    {reply, continue, S#s { fd=Fd }}.
+
+
+    
+    
+
+	
+
+
+    
+
+
diff --git a/deps/bt/src/obex_rfcomm.erl b/deps/bt/src/obex_rfcomm.erl
new file mode 100644
index 0000000..cec5bb2
--- /dev/null
+++ b/deps/bt/src/obex_rfcomm.erl
@@ -0,0 +1,254 @@
+%%%---- BEGIN COPYRIGHT -------------------------------------------------------
+%%%
+%%% Copyright (C) 2006 - 2014, Rogvall Invest AB, <tony@rogvall.se>
+%%%
+%%% This software is licensed as described in the file COPYRIGHT, which
+%%% you should have received as part of this distribution. The terms
+%%% are also available at http://www.rogvall.se/docs/copyright.txt.
+%%%
+%%% You may opt to use, copy, modify, merge, publish, distribute and/or sell
+%%% copies of the Software, and permit persons to whom the Software is
+%%% furnished to do so, under the terms of the COPYRIGHT file.
+%%%
+%%% This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+%%% KIND, either express or implied.
+%%%
+%%%---- END COPYRIGHT ---------------------------------------------------------
+%%%-------------------------------------------------------------------
+%%% File    : obex_rfcomm.erl
+%%% Author  : Tony Rogvall <tony@PBook.local>
+%%% Description : OBEX RFCOMM API
+%%%
+%%% Created : 31 May 2006 by Tony Rogvall <tony@PBook.local>
+%%%-------------------------------------------------------------------
+-module(obex_rfcomm).
+
+-behaviour(gen_server).
+
+%% SERVER
+-export([server_link/2, server/2]).
+-export([stop/1]).
+-export([server_accept/3]).
+-export([register/3, unregister/2, lookup/2]).
+
+-export([open/3, close/1, listen/2, accept/1, send/2]).
+
+%% gen_server callbacks
+-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
+	 terminate/2, code_change/3]).
+
+-ifdef(debug).
+-define(dbg(Fmt,As), io:format("~s:~w:" Fmt "\n", [?FILE,?LINE | As])).
+-else.
+-define(dbg(Fmt,As), ok).
+-endif.
+
+-record(state,
+	{
+	  channel,     %% listen channel
+	  ref,         %% ListenRef
+	  apid,        %% Current accept process
+	  targets=[],  %% Targets associated
+	  opts         %% Options
+	 }).
+
+%%====================================================================
+%% API
+%%====================================================================
+
+open(Address, Channel, _Opts) ->
+    rfcomm:open(Address, Channel).
+
+listen(Channel, _Opts) ->
+    rfcomm:listen(Channel).
+
+accept(ListenRef) ->  %% async accept!!
+    rfcomm:accept(ListenRef).
+
+close(RFComm) ->
+    rfcomm:close(RFComm).
+
+send(RFComm, Data) ->
+    rfcomm:send(RFComm, Data).
+
+register(Server, Target, Module) ->
+    gen_server:call(Server, {register, Target, Module}).
+
+unregister(Server, Target) ->
+    gen_server:call(Server, {register, Target}).
+
+lookup(Server, Target) ->
+    gen_server:call(Server, {lookup, Target}).
+
+%%--------------------------------------------------------------------
+%% Function: start_link() -> {ok,Pid} | ignore | {error,Error}
+%% Description: Starts the server
+%%--------------------------------------------------------------------
+server_link(Port, Opts) ->
+    gen_server:start_link(?MODULE, [Port,Opts], []).
+
+server(Port, Opts) ->
+    gen_server:start(?MODULE, [Port,Opts], []).
+
+stop(Server) ->
+    gen_server:call(Server, stop).
+
+%%====================================================================
+%% gen_server callbacks
+%%====================================================================
+
+%%--------------------------------------------------------------------
+%% Function: init(Args) -> {ok, State} |
+%%                         {ok, State, Timeout} |
+%%                         ignore               |
+%%                         {stop, Reason}
+%% Description: Initiates the server
+%%--------------------------------------------------------------------
+init([Channel,Opts]) ->
+    Channel1 =
+	case lists:keysearch(sdp, 1, Opts) of
+	    false -> 
+		Channel;
+	    {value,{_,ServiceRecord}} ->
+		case bt_drv:service_add(ServiceRecord) of
+		    {ok,Handle} ->
+			case bt_drv:service_rfcomm(Handle) of
+			    {ok,RealChannel} ->
+				io:format("Registered server: ~p rfcomm=~p\n",
+					  [Handle,RealChannel]),
+				RealChannel;
+			    _Error ->
+				io:format("No RFCOMM channel found,handle=~p\n",
+					  [Handle]),
+				Channel
+			end;
+		    SdpError ->
+			io:format("Unable to registered DM server: ~p\n",
+				  [SdpError]),
+			Channel
+		end
+	end,
+    case listen(Channel1, [binary]) of
+	{ok,ListenRef} ->
+	    process_flag(trap_exit, true),
+	    APid = proc_lib:spawn_link(?MODULE, server_accept, 
+				       [self(), ListenRef,Opts]),
+	    {ok, #state { channel=Channel, 
+			  ref = ListenRef, 
+			  apid = APid,
+			  targets=opt_targets(Opts),
+			  opts = Opts }};
+	Error ->
+	    {stop, Error}
+    end.
+
+%%--------------------------------------------------------------------
+%% Function: %% handle_call(Request, From, State) -> {reply, Reply, State} |
+%%                                      {reply, Reply, State, Timeout} |
+%%                                      {noreply, State} |
+%%                                      {noreply, State, Timeout} |
+%%                                      {stop, Reason, Reply, State} |
+%%                                      {stop, Reason, State}
+%% Description: Handling call messages
+%%--------------------------------------------------------------------
+handle_call(stop, _From, State) ->
+    {stop, normal, ok, State};
+handle_call({register, Target, Module}, _From, State) ->
+    Targets = State#state.targets,
+    case lists:keysearch(Target, 1, Targets) of
+	false ->
+	    State1 = State#state { targets = [{Target,Module}|Targets]},
+	    {reply, ok, State1};
+	{value,_} ->
+	    {reply, {error, already_registered}, State}
+    end;
+handle_call({unregister, Target}, _From, State) ->
+    Targets = lists:keydelete(Target, 1, State#state.targets),
+    {reply, ok, State#state { targets = Targets }};
+handle_call({lookup, Target}, _From, State) ->
+    case lists:keysearch(Target, 1, State#state.targets) of    
+	false -> {reply, {error, not_found}, State};
+	{value,{_, Module}} -> {reply, {ok, Module}, State}
+    end;
+handle_call(_Request, _From, State) ->
+    {reply, {error, bad_call}, State}.
+
+%%--------------------------------------------------------------------
+%% Function: handle_cast(Msg, State) -> {noreply, State} |
+%%                                      {noreply, State, Timeout} |
+%%                                      {stop, Reason, State}
+%% Description: Handling cast messages
+%%--------------------------------------------------------------------
+handle_cast({accept,Pid,{error,closed}}, State) when Pid == State#state.apid ->
+    {stop, closed, State}; %% Listen socket has closed
+handle_cast({accept,Pid,Reason}, State) when Pid == State#state.apid ->
+    io:format("~s: accept ~p\n", [?MODULE, Reason]),
+    unlink(State#state.apid),
+    APid = proc_lib:spawn_link(?MODULE, server_accept, [self(), State#state.ref, State#state.opts]),
+    {noreply, State#state { apid = APid }};
+handle_cast({'EXIT',Pid,Reason}, State) when Pid == State#state.apid ->
+    io:format("~s: EXIT ~p\n", [?MODULE, Reason]),
+    APid = proc_lib:spawn_link(?MODULE, server_accept, [self(), State#state.ref, State#state.opts]),
+    {noreply, State#state { apid = APid }};
+handle_cast(_Msg, State) ->
+    {noreply, State}.
+
+%%--------------------------------------------------------------------
+%% Function: handle_info(Info, State) -> {noreply, State} |
+%%                                       {noreply, State, Timeout} |
+%%                                       {stop, Reason, State}
+%% Description: Handling all non call/cast messages
+%%--------------------------------------------------------------------
+handle_info(_Info, State) ->
+    {noreply, State}.
+
+%%--------------------------------------------------------------------
+%% Function: terminate(Reason, State) -> void()
+%% Description: This function is called by a gen_server when it is about to
+%% terminate. It should be the opposite of Module:init/1 and do any necessary
+%% cleaning up. When it returns, the gen_server terminates with Reason.
+%% The return value is ignored.
+%%--------------------------------------------------------------------
+terminate(_Reason, _State) ->
+    ok.
+
+%%--------------------------------------------------------------------
+%% Func: code_change(OldVsn, State, Extra) -> {ok, NewState}
+%% Description: Convert process state when code is changed
+%%--------------------------------------------------------------------
+code_change(_OldVsn, State, _Extra) ->
+    {ok, State}.
+
+%%--------------------------------------------------------------------
+%%% Internal functions
+%%--------------------------------------------------------------------
+
+opt_targets(Opts) ->
+    opt_targets(Opts,[]).
+
+opt_targets([{target,{Target,Module}}|Opts], Ts) 
+  when is_list(Target), is_atom(Module) ->
+    opt_targets(Opts, [{Target,Module}|Ts]);
+opt_targets([_|Opts], Ts) ->
+    opt_targets(Opts, Ts);
+opt_targets([], Ts) ->
+    Ts.
+
+
+server_accept(Server, ListenRef, Opts) ->
+    case accept(ListenRef) of
+	{ok,ARef} ->
+	    receive
+		{rfcomm,ARef,{accept,Address,Channel}} ->
+		    gen_server:cast(Server, {accept, self(), ok}),
+		    obex:server_init(Server, ARef, Address, Channel, ?MODULE, Opts);
+		{rfcomm,ARef,{data,_Data}} ->
+		    ?dbg("Error: got data ~p\n", [_Data]),
+		    close(ARef),
+		    gen_server:cast(Server, {accept, self(), ok});
+		{rfcomm,ARef,closed} ->
+		    gen_server:cast(Server, {accept, self(), {error,closed}})
+	    end;
+	Error ->
+	    gen_server:cast(Server, {accept, self(), Error})
+    end.
diff --git a/deps/bt/src/obex_sync_server.erl b/deps/bt/src/obex_sync_server.erl
new file mode 100644
index 0000000..f966a88
--- /dev/null
+++ b/deps/bt/src/obex_sync_server.erl
@@ -0,0 +1,137 @@
+%%%---- BEGIN COPYRIGHT -------------------------------------------------------
+%%%
+%%% Copyright (C) 2006 - 2014, Rogvall Invest AB, <tony@rogvall.se>
+%%%
+%%% This software is licensed as described in the file COPYRIGHT, which
+%%% you should have received as part of this distribution. The terms
+%%% are also available at http://www.rogvall.se/docs/copyright.txt.
+%%%
+%%% You may opt to use, copy, modify, merge, publish, distribute and/or sell
+%%% copies of the Software, and permit persons to whom the Software is
+%%% furnished to do so, under the terms of the COPYRIGHT file.
+%%%
+%%% This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+%%% KIND, either express or implied.
+%%%
+%%%---- END COPYRIGHT ---------------------------------------------------------
+%%% File    : obex_dm_server.erl
+%%% Author  : Tony Rogvall <tony@PBook.local>
+%%% Description : OBEX SYNCML Server
+%%% Created : 29 May 2006 by Tony Rogvall <tony@PBook.local>
+
+-module(obex_sync_server).
+
+-export([start/0, start/1]).
+-export([init/3,
+	 terminate/1,
+	 handle_connect/2,
+	 handle_disconnect/2,
+	 handle_get/2,
+	 handle_put/3,
+	 handle_abort/2,
+	 handle_setpath/3,
+	 handle_command/2]).
+-export([sdp_info/1]).
+
+-include("../include/sdp.hrl").
+
+-record(s,
+	{
+	  sref,
+	  opts
+	 }).
+
+-ifdef(debug).
+-define(dbg(Fmt,As), io:format("~s:~w:" Fmt "\n", [?FILE,?LINE | As])).
+-else.
+-define(dbg(Fmt,As), ok).
+-endif.
+
+
+sdp_info(Channel) ->
+    Base1 = 16#0100,
+    [{?ATTR_ServiceRecordHandle, {uint32, 65000}},   %% Should not be needed ?
+     {?ATTR_ServiceClassIDList, 
+      {sequence,[{uuid,?UUID_SyncMLServer}]}},
+     {?ATTR_ProtocolDescriptorList,
+      {sequence,[{sequence,[{uuid,?UUID_L2CAP}]},
+		 {sequence,[{uuid,?UUID_RFCOMM},{uint8,Channel}]},
+		 {sequence,[{uuid,?UUID_OBEX}]}]}},
+     {?ATTR_BrowseGroupList,
+      {sequence,[{uuid,?UUID_PublicBrowseGroup}]}},
+     {?ATTR_LanguageBaseAttributeIDList,
+      {sequence, [{uint16, ?LANGUAGE($e,$n)}, 
+		  {uint16, ?ENCODING_UTF8}, 
+		  {uint16, Base1}]}},
+     {?ATTR_ServiceName+Base1, {text,"SyncMLServer"}}].
+
+
+start() ->
+    start(14).
+
+start(Channel) ->
+    %% NOTE: The Channel number is just a hint, the
+    %%  number may be any in the range 1-30
+    obex:server(Channel, [{transport,rfcomm},
+			  {sdp, sdp_info(Channel)},
+			  {target,{"SYNCML-SYNC",?MODULE}}]).
+
+%%
+%% Below is NOT server functions
+%%  but the connection side of the server
+%%
+
+
+init(SrvRef, SrvOpts, _Mtu) ->
+    ?dbg("init: ~p, opts=~p, peer_mtu=~p", [SrvRef, SrvOpts, _Mtu]),
+    #s { sref = SrvRef, opts = SrvOpts}.
+
+terminate(_S) ->
+    ?dbg("termiate", []),
+    ok.
+
+handle_connect(Target,S) ->
+    ?dbg("handle_connect: ~p", [Target]),
+    ID = 1235,  %% FIXME
+    {reply, {ok,[{connectionID,ID},{who,Target}]}, S}.
+
+handle_disconnect(_Hs, S) ->
+    ?dbg("handle_disconnect: ~p", [_Hs]),
+    {reply, {ok,success}, S}.
+
+handle_get(_Hs, S) ->
+    ?dbg("handle_get: ~p", [_Hs]),
+    {reply, {ok,[],<<"Hello">>}, S}.
+
+handle_put(_Hs,<<>>,S) ->
+    ?dbg("handle_put: ~p data=~p", [_Hs,<<>>]),
+    {reply, {ok,success}, S};
+handle_put(_Hs,_Data,S) ->
+    ?dbg("handle_put: ~p data=~p", [_Hs,_Data]),
+    {reply, continue, S}.
+
+handle_abort(_Hs, S) ->
+    ?dbg("handle_abort: ~p", [_Hs]),
+    {reply, {ok,success}, S}.
+
+handle_setpath(_Hs, _Args, S) ->
+    ?dbg("handle_setpath: ~p args=~p", [_Hs,_Args]),
+    {reply, {error,not_allowed}, S}.
+
+handle_command(_Hs, S) ->
+    ?dbg("handle_command: ~p", [_Hs]),
+    {reply, {error,not_allowed}, S}.
+
+
+
+
+
+
+    
+    
+    
+    
+
+
+     
+
diff --git a/deps/bt/src/obex_tcp.erl b/deps/bt/src/obex_tcp.erl
new file mode 100644
index 0000000..9067a3d
--- /dev/null
+++ b/deps/bt/src/obex_tcp.erl
@@ -0,0 +1,224 @@
+%%%---- BEGIN COPYRIGHT -------------------------------------------------------
+%%%
+%%% Copyright (C) 2006 - 2014, Rogvall Invest AB, <tony@rogvall.se>
+%%%
+%%% This software is licensed as described in the file COPYRIGHT, which
+%%% you should have received as part of this distribution. The terms
+%%% are also available at http://www.rogvall.se/docs/copyright.txt.
+%%%
+%%% You may opt to use, copy, modify, merge, publish, distribute and/or sell
+%%% copies of the Software, and permit persons to whom the Software is
+%%% furnished to do so, under the terms of the COPYRIGHT file.
+%%%
+%%% This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+%%% KIND, either express or implied.
+%%%
+%%%---- END COPYRIGHT ---------------------------------------------------------
+%%%-------------------------------------------------------------------
+%%% File    : obex_tcp.erl
+%%% Author  : Tony Rogvall <tony@PBook.local>
+%%% Description : OBEX TCP API
+%%%
+%%% Created : 31 May 2006 by Tony Rogvall <tony@PBook.local>
+%%%-------------------------------------------------------------------
+-module(obex_tcp).
+
+-behaviour(gen_server).
+
+%% SERVER
+-export([server_link/2, server/2]).
+-export([stop/1]).
+-export([server_accept/3]).
+-export([register/3, unregister/2, lookup/2]).
+
+-export([open/3, close/1, listen/2, accept/1, send/2]).
+
+%% gen_server callbacks
+-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
+	 terminate/2, code_change/3]).
+
+-ifdef(debug).
+-define(dbg(Fmt,As), io:format("~s:~w:" Fmt "\n", [?FILE,?LINE | As])).
+-else.
+-define(dbg(Fmt,As), ok).
+-endif.
+
+
+-record(state,
+	{
+	  channel,     %% listen channel
+	  ref,         %% ListenRef
+	  apid,        %% Current accept process
+	  targets=[],  %% Targets associated
+	  opts         %% Options
+	 }).
+
+%%====================================================================
+%% API
+%%====================================================================
+
+open(Address, Port, Opts) ->
+    gen_tcp:connect(Address, Port, Opts).
+
+listen(Port, Opts) ->
+    gen_tcp:listen(Port, Opts).
+
+accept(Listen) ->
+    gen_tcp:accept(Listen).
+
+close(Tcp) ->
+    gen_tcp:close(Tcp).
+
+send(Tcp, Data) ->
+    gen_tcp:send(Tcp, Data).
+
+register(Server, Target, Module) ->
+    gen_server:call(Server, {register, Target, Module}).
+
+unregister(Server, Target) ->
+    gen_server:call(Server, {register, Target}).
+
+lookup(Server, Target) ->
+    gen_server:call(Server, {lookup, Target}).
+
+%%--------------------------------------------------------------------
+%% Function: start_link() -> {ok,Pid} | ignore | {error,Error}
+%% Description: Starts the server
+%%--------------------------------------------------------------------
+
+server_link(Port, Opts) ->
+    gen_server:start_link(?MODULE, [Port,Opts], []).
+
+server(Port, Opts) ->
+    gen_server:start(?MODULE, [Port,Opts], []).
+
+stop(Server) ->
+    gen_server:call(Server, stop).
+%%====================================================================
+%% gen_server callbacks
+%%====================================================================
+
+%%--------------------------------------------------------------------
+%% Function: init(Args) -> {ok, State} |
+%%                         {ok, State, Timeout} |
+%%                         ignore               |
+%%                         {stop, Reason}
+%% Description: Initiates the server
+%%--------------------------------------------------------------------
+init([Port,Opts]) ->
+    case listen(Port, [binary]) of
+	{ok,ListenRef} ->
+	    process_flag(trap_exit, true),
+	    APid = proc_lib:spawn_link(?MODULE, server_accept, [self(), ListenRef,Opts]),
+	    {ok, #state { channel=Port, 
+			  ref = ListenRef, 
+			  apid = APid,
+			  targets=opt_targets(Opts),
+			  opts = Opts }};
+	Error ->
+	    {stop, Error}
+    end.
+
+%%--------------------------------------------------------------------
+%% Function: %% handle_call(Request, From, State) -> {reply, Reply, State} |
+%%                                      {reply, Reply, State, Timeout} |
+%%                                      {noreply, State} |
+%%                                      {noreply, State, Timeout} |
+%%                                      {stop, Reason, Reply, State} |
+%%                                      {stop, Reason, State}
+%% Description: Handling call messages
+%%--------------------------------------------------------------------
+handle_call(stop, _From, State) ->
+    {stop, normal, ok, State};
+handle_call({register, Target, Module}, _From, State) ->
+    Targets = State#state.targets,
+    case lists:keysearch(Target, 1, Targets) of
+	false ->
+	    State1 = State#state { targets = [{Target,Module}|Targets]},
+	    {reply, ok, State1};
+	{value,_} ->
+	    {reply, {error, already_registered}, State}
+    end;
+handle_call({unregister, Target}, _From, State) ->
+    Targets = lists:keydelete(Target, 1, State#state.targets),
+    {reply, ok, State#state { targets = Targets }};
+handle_call({lookup, Target}, _From, State) ->
+    case lists:keysearch(Target, 1, State#state.targets) of    
+	false -> {reply, {error, not_found}, State};
+	{value,{_, Module}} -> {reply, {ok, Module}, State}
+    end;
+handle_call(_Request, _From, State) ->
+    {reply, {error, bad_call}, State}.
+
+%%--------------------------------------------------------------------
+%% Function: handle_cast(Msg, State) -> {noreply, State} |
+%%                                      {noreply, State, Timeout} |
+%%                                      {stop, Reason, State}
+%% Description: Handling cast messages
+%%--------------------------------------------------------------------
+handle_cast({accept,Pid,{error,closed}}, State) when Pid == State#state.apid ->
+    {stop, closed, State}; %% Listen socket has closed
+handle_cast({accept,Pid,Reason}, State) when Pid == State#state.apid ->
+    io:format("~s: accept ~p\n", [?MODULE, Reason]),
+    unlink(State#state.apid),
+    APid = proc_lib:spawn_link(?MODULE, server_accept, [self(), State#state.ref, State#state.opts]),
+    {noreply, State#state { apid = APid }};
+handle_cast({'EXIT',Pid,Reason}, State) when Pid == State#state.apid ->
+    io:format("~s: EXIT ~p\n", [?MODULE, Reason]),
+    APid = proc_lib:spawn_link(?MODULE, server_accept, [self(), State#state.ref, State#state.opts]),
+    {noreply, State#state { apid = APid }};
+handle_cast(_Msg, State) ->
+    {noreply, State}.
+
+%%--------------------------------------------------------------------
+%% Function: handle_info(Info, State) -> {noreply, State} |
+%%                                       {noreply, State, Timeout} |
+%%                                       {stop, Reason, State}
+%% Description: Handling all non call/cast messages
+%%--------------------------------------------------------------------
+handle_info(_Info, State) ->
+    {noreply, State}.
+
+%%--------------------------------------------------------------------
+%% Function: terminate(Reason, State) -> void()
+%% Description: This function is called by a gen_server when it is about to
+%% terminate. It should be the opposite of Module:init/1 and do any necessary
+%% cleaning up. When it returns, the gen_server terminates with Reason.
+%% The return value is ignored.
+%%--------------------------------------------------------------------
+terminate(_Reason, _State) ->
+    ok.
+
+%%--------------------------------------------------------------------
+%% Func: code_change(OldVsn, State, Extra) -> {ok, NewState}
+%% Description: Convert process state when code is changed
+%%--------------------------------------------------------------------
+code_change(_OldVsn, State, _Extra) ->
+    {ok, State}.
+
+%%--------------------------------------------------------------------
+%%% Internal functions
+%%--------------------------------------------------------------------
+
+opt_targets(Opts) ->
+    opt_targets(Opts,[]).
+
+opt_targets([{target,{Target,Module}}|Opts], Ts) 
+  when is_list(Target), is_atom(Module) ->
+    opt_targets(Opts, [{Target,Module}|Ts]);
+opt_targets([_|Opts], Ts) ->
+    opt_targets(Opts, Ts);
+opt_targets([], Ts) ->
+    Ts.
+
+
+server_accept(Server, ListenRef, Opts) ->
+    case accept(ListenRef) of
+	{ok,ARef} ->
+	    gen_server:cast(Server, {accept, self(), ok}),
+	    {ok,{Address,_Port}} = inet:peername(ARef),
+	    {ok,{_Address,Port}} = inet:sockname(ListenRef),
+	    obex:server_init(Server, ARef, Address, Port, ?MODULE, Opts);
+	Error ->
+	    gen_server:cast(Server, {accept, self(), Error})
+    end.
diff --git a/deps/bt/src/rfcomm.erl b/deps/bt/src/rfcomm.erl
new file mode 100644
index 0000000..9b15d72
--- /dev/null
+++ b/deps/bt/src/rfcomm.erl
@@ -0,0 +1,53 @@
+%%%---- BEGIN COPYRIGHT -------------------------------------------------------
+%%%
+%%% Copyright (C) 2006 - 2014, Rogvall Invest AB, <tony@rogvall.se>
+%%%
+%%% This software is licensed as described in the file COPYRIGHT, which
+%%% you should have received as part of this distribution. The terms
+%%% are also available at http://www.rogvall.se/docs/copyright.txt.
+%%%
+%%% You may opt to use, copy, modify, merge, publish, distribute and/or sell
+%%% copies of the Software, and permit persons to whom the Software is
+%%% furnished to do so, under the terms of the COPYRIGHT file.
+%%%
+%%% This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
+%%% KIND, either express or implied.
+%%%
+%%%---- END COPYRIGHT ---------------------------------------------------------
+%%% File    : rfcomm.erl
+%%% Author  : Tony Rogvall <tony@pbook.synap.se>
+%%% Description : RFCOMM wrapper
+%%% Created :  2 Feb 2006 by Tony Rogvall <tony@pbook.synap.se>
+
+-module(rfcomm).
+
+-export([open/2, 
+	 close/1, 
+	 send/2, 
+	 listen/1, 
+	 accept/1, 
+	 accept/2, 
+	 accept/3]).
+
+open(Address, Channel) ->
+    bt_drv:rfcomm_open(Address, Channel).
+
+close(RFComm) ->
+    bt_drv:rfcomm_close(RFComm).
+
+send(RFComm, Data) ->
+    bt_drv:rfcomm_send(RFComm, Data).
+
+listen(Channel) ->
+    bt_drv:rfcomm_listen(Channel).
+
+accept(ListenRef) ->
+    accept(ListenRef, infinity, self() ).
+
+accept(ListenRef, Timeout) ->
+    accept(ListenRef, Timeout, self()).
+
+accept(ListenRef,Timeout, CtlPid) when Timeout==infinity; 
+				       is_integer(Timeout),Timeout>0 ->
+    bt_drv:rfcomm_accept(ListenRef,Timeout, CtlPid).
+