/*
 * ng_btsocket_hci_raw.c
 */

/*-
 * SPDX-License-Identifier: BSD-2-Clause
 *
 * Copyright (c) 2001-2002 Maksim Yevmenkin <m_evmenkin@yahoo.com>
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 *
 * $Id: ng_btsocket_hci_raw.c,v 1.14 2003/09/14 23:29:06 max Exp $
 */

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/bitstring.h>
#include <sys/domain.h>
#include <sys/endian.h>
#include <sys/errno.h>
#include <sys/filedesc.h>
#include <sys/ioccom.h>
#include <sys/kernel.h>
#include <sys/lock.h>
#include <sys/malloc.h>
#include <sys/mbuf.h>
#include <sys/mutex.h>
#include <sys/priv.h>
#include <sys/protosw.h>
#include <sys/queue.h>
#include <sys/socket.h>
#include <sys/socketvar.h>
#include <sys/sysctl.h>
#include <sys/taskqueue.h>

#include <net/vnet.h>

#include <netgraph/ng_message.h>
#include <netgraph/netgraph.h>
#include <netgraph/bluetooth/include/ng_bluetooth.h>
#include <netgraph/bluetooth/include/ng_hci.h>
#include <netgraph/bluetooth/include/ng_l2cap.h>
#include <netgraph/bluetooth/include/ng_btsocket.h>
#include <netgraph/bluetooth/include/ng_btsocket_hci_raw.h>

/* MALLOC define */
#ifdef NG_SEPARATE_MALLOC
static MALLOC_DEFINE(M_NETGRAPH_BTSOCKET_HCI_RAW, "netgraph_btsocks_hci_raw",
        "Netgraph Bluetooth raw HCI sockets");
#else
#define M_NETGRAPH_BTSOCKET_HCI_RAW M_NETGRAPH
#endif /* NG_SEPARATE_MALLOC */

/* Netgraph node methods */
static ng_constructor_t ng_btsocket_hci_raw_node_constructor;
static ng_rcvmsg_t      ng_btsocket_hci_raw_node_rcvmsg;
static ng_shutdown_t    ng_btsocket_hci_raw_node_shutdown;
static ng_newhook_t     ng_btsocket_hci_raw_node_newhook;
static ng_connect_t     ng_btsocket_hci_raw_node_connect;
static ng_rcvdata_t     ng_btsocket_hci_raw_node_rcvdata;
static ng_disconnect_t  ng_btsocket_hci_raw_node_disconnect;

static void             ng_btsocket_hci_raw_input (void *, int);
static void             ng_btsocket_hci_raw_output(node_p, hook_p, void *, int);
static void             ng_btsocket_hci_raw_savctl(ng_btsocket_hci_raw_pcb_p, 
                                                   struct mbuf **,
                                                   struct mbuf *); 
static int              ng_btsocket_hci_raw_filter(ng_btsocket_hci_raw_pcb_p,
                                                   struct mbuf *, int);

#define ng_btsocket_hci_raw_wakeup_input_task() \
        taskqueue_enqueue(taskqueue_swi, &ng_btsocket_hci_raw_task)

/* Security filter */
struct ng_btsocket_hci_raw_sec_filter {
        bitstr_t        bit_decl(events, 0xff);
        bitstr_t        bit_decl(commands[0x3f], 0x3ff);
};

/* Netgraph type descriptor */
static struct ng_type typestruct = {
        .version =      NG_ABI_VERSION,
        .name =         NG_BTSOCKET_HCI_RAW_NODE_TYPE,
        .constructor =  ng_btsocket_hci_raw_node_constructor,
        .rcvmsg =       ng_btsocket_hci_raw_node_rcvmsg,
        .shutdown =     ng_btsocket_hci_raw_node_shutdown,
        .newhook =      ng_btsocket_hci_raw_node_newhook,
        .connect =      ng_btsocket_hci_raw_node_connect,
        .rcvdata =      ng_btsocket_hci_raw_node_rcvdata,
        .disconnect =   ng_btsocket_hci_raw_node_disconnect,
};

/* Globals */
static u_int32_t                                ng_btsocket_hci_raw_debug_level;
static u_int32_t                                ng_btsocket_hci_raw_ioctl_timeout;
static node_p                                   ng_btsocket_hci_raw_node;
static struct ng_bt_itemq                       ng_btsocket_hci_raw_queue;
static struct mtx                               ng_btsocket_hci_raw_queue_mtx;
static struct task                              ng_btsocket_hci_raw_task;
static LIST_HEAD(, ng_btsocket_hci_raw_pcb)     ng_btsocket_hci_raw_sockets;
static struct mtx                               ng_btsocket_hci_raw_sockets_mtx;
static u_int32_t                                ng_btsocket_hci_raw_token;
static struct mtx                               ng_btsocket_hci_raw_token_mtx;
static struct ng_btsocket_hci_raw_sec_filter    *ng_btsocket_hci_raw_sec_filter;
static struct timeval                           ng_btsocket_hci_raw_lasttime;
static int                                      ng_btsocket_hci_raw_curpps;

/* Sysctl tree */
SYSCTL_DECL(_net_bluetooth_hci_sockets);
static SYSCTL_NODE(_net_bluetooth_hci_sockets, OID_AUTO, raw,
    CTLFLAG_RW | CTLFLAG_MPSAFE, 0,
    "Bluetooth raw HCI sockets family");
SYSCTL_UINT(_net_bluetooth_hci_sockets_raw, OID_AUTO, debug_level, CTLFLAG_RW,
        &ng_btsocket_hci_raw_debug_level, NG_BTSOCKET_WARN_LEVEL,
        "Bluetooth raw HCI sockets debug level");
SYSCTL_UINT(_net_bluetooth_hci_sockets_raw, OID_AUTO, ioctl_timeout, CTLFLAG_RW,
        &ng_btsocket_hci_raw_ioctl_timeout, 5,
        "Bluetooth raw HCI sockets ioctl timeout");
SYSCTL_UINT(_net_bluetooth_hci_sockets_raw, OID_AUTO, queue_len, CTLFLAG_RD,
        &ng_btsocket_hci_raw_queue.len, 0,
        "Bluetooth raw HCI sockets input queue length");
SYSCTL_UINT(_net_bluetooth_hci_sockets_raw, OID_AUTO, queue_maxlen, CTLFLAG_RD,
        &ng_btsocket_hci_raw_queue.maxlen, 0,
        "Bluetooth raw HCI sockets input queue max. length");
SYSCTL_UINT(_net_bluetooth_hci_sockets_raw, OID_AUTO, queue_drops, CTLFLAG_RD,
        &ng_btsocket_hci_raw_queue.drops, 0,
        "Bluetooth raw HCI sockets input queue drops");

/* Debug */
#define NG_BTSOCKET_HCI_RAW_INFO \
        if (ng_btsocket_hci_raw_debug_level >= NG_BTSOCKET_INFO_LEVEL && \
            ppsratecheck(&ng_btsocket_hci_raw_lasttime, &ng_btsocket_hci_raw_curpps, 1)) \
                printf

#define NG_BTSOCKET_HCI_RAW_WARN \
        if (ng_btsocket_hci_raw_debug_level >= NG_BTSOCKET_WARN_LEVEL && \
            ppsratecheck(&ng_btsocket_hci_raw_lasttime, &ng_btsocket_hci_raw_curpps, 1)) \
                printf

#define NG_BTSOCKET_HCI_RAW_ERR \
        if (ng_btsocket_hci_raw_debug_level >= NG_BTSOCKET_ERR_LEVEL && \
            ppsratecheck(&ng_btsocket_hci_raw_lasttime, &ng_btsocket_hci_raw_curpps, 1)) \
                printf

#define NG_BTSOCKET_HCI_RAW_ALERT \
        if (ng_btsocket_hci_raw_debug_level >= NG_BTSOCKET_ALERT_LEVEL && \
            ppsratecheck(&ng_btsocket_hci_raw_lasttime, &ng_btsocket_hci_raw_curpps, 1)) \
                printf

/****************************************************************************
 ****************************************************************************
 **                          Netgraph specific
 ****************************************************************************
 ****************************************************************************/

/*
 * Netgraph node constructor. Do not allow to create node of this type.
 */

static int
ng_btsocket_hci_raw_node_constructor(node_p node)
{
        return (EINVAL);
} /* ng_btsocket_hci_raw_node_constructor */

/*
 * Netgraph node destructor. Just let old node go and create new fresh one.
 */

static int
ng_btsocket_hci_raw_node_shutdown(node_p node)
{
        int     error = 0;

        NG_NODE_UNREF(node);

        error = ng_make_node_common(&typestruct, &ng_btsocket_hci_raw_node);
        if (error  != 0) {
                NG_BTSOCKET_HCI_RAW_ALERT(
"%s: Could not create Netgraph node, error=%d\n", __func__, error);

                ng_btsocket_hci_raw_node = NULL;

                return (ENOMEM);
        }

        error = ng_name_node(ng_btsocket_hci_raw_node,
                                NG_BTSOCKET_HCI_RAW_NODE_TYPE);
        if (error != 0) {
                NG_BTSOCKET_HCI_RAW_ALERT(
"%s: Could not name Netgraph node, error=%d\n", __func__, error);

                NG_NODE_UNREF(ng_btsocket_hci_raw_node);
                ng_btsocket_hci_raw_node = NULL;

                return (EINVAL);
        }

        return (0);
} /* ng_btsocket_hci_raw_node_shutdown */

/*
 * Create new hook. Just say "yes"
 */

static int
ng_btsocket_hci_raw_node_newhook(node_p node, hook_p hook, char const *name)
{
        return (0);
} /* ng_btsocket_hci_raw_node_newhook */

/*
 * Connect hook. Just say "yes"
 */

static int
ng_btsocket_hci_raw_node_connect(hook_p hook)
{
        return (0);
} /* ng_btsocket_hci_raw_node_connect */

/*
 * Disconnect hook
 */

static int
ng_btsocket_hci_raw_node_disconnect(hook_p hook)
{
        return (0);
} /* ng_btsocket_hci_raw_node_disconnect */

/*
 * Receive control message.
 * Make sure it is a message from HCI node and it is a response.
 * Enqueue item and schedule input task.
 */

static int
ng_btsocket_hci_raw_node_rcvmsg(node_p node, item_p item, hook_p lasthook) 
{
        struct ng_mesg  *msg = NGI_MSG(item); /* item still has message */
        int              error = 0;

        /*
         * Check for empty sockets list creates LOR when both sender and
         * receiver device are connected to the same host, so remove it
         * for now
         */

        if (msg != NULL &&
            (msg->header.typecookie == NGM_HCI_COOKIE ||
             msg->header.typecookie == NGM_GENERIC_COOKIE) &&
            msg->header.flags & NGF_RESP) {
                if (msg->header.token == 0) {
                        NG_FREE_ITEM(item);
                        return (0);
                }

                mtx_lock(&ng_btsocket_hci_raw_queue_mtx);
                if (NG_BT_ITEMQ_FULL(&ng_btsocket_hci_raw_queue)) {
                        NG_BTSOCKET_HCI_RAW_ERR(
"%s: Input queue is full\n", __func__);

                        NG_BT_ITEMQ_DROP(&ng_btsocket_hci_raw_queue);
                        NG_FREE_ITEM(item);
                        error = ENOBUFS;
                } else {
                        NG_BT_ITEMQ_ENQUEUE(&ng_btsocket_hci_raw_queue, item);
                        error = ng_btsocket_hci_raw_wakeup_input_task();
                }
                mtx_unlock(&ng_btsocket_hci_raw_queue_mtx);
        } else {
                NG_FREE_ITEM(item);
                error = EINVAL;
        }

        return (error);
} /* ng_btsocket_hci_raw_node_rcvmsg */

/*
 * Receive packet from the one of our hook.
 * Prepend every packet with sockaddr_hci and record sender's node name.
 * Enqueue item and schedule input task.
 */

static int
ng_btsocket_hci_raw_node_rcvdata(hook_p hook, item_p item)
{
        struct mbuf     *nam = NULL;
        int              error;

        /*
         * Check for empty sockets list creates LOR when both sender and
         * receiver device are connected to the same host, so remove it
         * for now
         */

        MGET(nam, M_NOWAIT, MT_SONAME);
        if (nam != NULL) {
                struct sockaddr_hci     *sa = mtod(nam, struct sockaddr_hci *);

                nam->m_len = sizeof(struct sockaddr_hci);

                sa->hci_len = sizeof(*sa);
                sa->hci_family = AF_BLUETOOTH;
                strlcpy(sa->hci_node, NG_PEER_NODE_NAME(hook),
                        sizeof(sa->hci_node));

                NGI_GET_M(item, nam->m_next);
                NGI_M(item) = nam;

                mtx_lock(&ng_btsocket_hci_raw_queue_mtx);
                if (NG_BT_ITEMQ_FULL(&ng_btsocket_hci_raw_queue)) {
                        NG_BTSOCKET_HCI_RAW_ERR(
"%s: Input queue is full\n", __func__);

                        NG_BT_ITEMQ_DROP(&ng_btsocket_hci_raw_queue);
                        NG_FREE_ITEM(item);
                        error = ENOBUFS;
                } else {
                        NG_BT_ITEMQ_ENQUEUE(&ng_btsocket_hci_raw_queue, item);
                        error = ng_btsocket_hci_raw_wakeup_input_task();
                }
                mtx_unlock(&ng_btsocket_hci_raw_queue_mtx);
        } else {
                NG_BTSOCKET_HCI_RAW_ERR(
"%s: Failed to allocate address mbuf\n", __func__);

                NG_FREE_ITEM(item);
                error = ENOBUFS;
        }

        return (error);
} /* ng_btsocket_hci_raw_node_rcvdata */

/****************************************************************************
 ****************************************************************************
 **                              Sockets specific
 ****************************************************************************
 ****************************************************************************/

/*
 * Get next token. We need token to avoid theoretical race where process
 * submits ioctl() message then interrupts ioctl() and re-submits another
 * ioctl() on the same socket *before* first ioctl() complete.
 */

static void
ng_btsocket_hci_raw_get_token(u_int32_t *token)
{
        mtx_lock(&ng_btsocket_hci_raw_token_mtx);
  
        if (++ ng_btsocket_hci_raw_token == 0)
                ng_btsocket_hci_raw_token = 1;

        *token = ng_btsocket_hci_raw_token;

        mtx_unlock(&ng_btsocket_hci_raw_token_mtx);
} /* ng_btsocket_hci_raw_get_token */

/*
 * Send Netgraph message to the node - do not expect reply
 */

static int
ng_btsocket_hci_raw_send_ngmsg(char *path, int cmd, void *arg, int arglen)
{
        struct ng_mesg  *msg = NULL;
        int              error = 0;

        NG_MKMESSAGE(msg, NGM_HCI_COOKIE, cmd, arglen, M_NOWAIT);
        if (msg == NULL)
                return (ENOMEM);

        if (arg != NULL && arglen > 0)
                bcopy(arg, msg->data, arglen);

        NG_SEND_MSG_PATH(error, ng_btsocket_hci_raw_node, msg, path, 0);

        return (error);
} /* ng_btsocket_hci_raw_send_ngmsg */

/*
 * Send Netgraph message to the node (no data) and wait for reply 
 */

static int
ng_btsocket_hci_raw_send_sync_ngmsg(ng_btsocket_hci_raw_pcb_p pcb, char *path,
                int cmd, void *rsp, int rsplen)
{
        struct ng_mesg  *msg = NULL;
        int              error = 0;

        mtx_assert(&pcb->pcb_mtx, MA_OWNED);

        NG_MKMESSAGE(msg, NGM_HCI_COOKIE, cmd, 0, M_NOWAIT);
        if (msg == NULL)
                return (ENOMEM);

        ng_btsocket_hci_raw_get_token(&msg->header.token);
        pcb->token = msg->header.token;
        pcb->msg = NULL;

        NG_SEND_MSG_PATH(error, ng_btsocket_hci_raw_node, msg, path, 0);
        if (error != 0) {
                pcb->token = 0;
                return (error);
        }

        error = msleep(&pcb->msg, &pcb->pcb_mtx, PZERO|PCATCH, "hcictl", 
                        ng_btsocket_hci_raw_ioctl_timeout * hz);
        pcb->token = 0;

        if (error != 0)
                return (error);

        if (pcb->msg != NULL && pcb->msg->header.cmd == cmd)
                bcopy(pcb->msg->data, rsp, rsplen);
        else
                error = EINVAL;

        NG_FREE_MSG(pcb->msg); /* checks for != NULL */

        return (0);
} /* ng_btsocket_hci_raw_send_sync_ngmsg */

/*
 * Create control information for the packet
 */

static void
ng_btsocket_hci_raw_savctl(ng_btsocket_hci_raw_pcb_p pcb, struct mbuf **ctl,
                struct mbuf *m) 
{
        int             dir;
        struct timeval  tv;

        mtx_assert(&pcb->pcb_mtx, MA_OWNED);

        if (pcb->flags & NG_BTSOCKET_HCI_RAW_DIRECTION) {
                dir = (m->m_flags & M_PROTO1)? 1 : 0;
                *ctl = sbcreatecontrol(&dir, sizeof(dir),
                    SCM_HCI_RAW_DIRECTION, SOL_HCI_RAW, M_NOWAIT);
                if (*ctl != NULL)
                        ctl = &((*ctl)->m_next);
        }

        if (pcb->so->so_options & SO_TIMESTAMP) {
                microtime(&tv);
                *ctl = sbcreatecontrol(&tv, sizeof(tv), SCM_TIMESTAMP,
                    SOL_SOCKET, M_NOWAIT);
                if (*ctl != NULL)
                        ctl = &((*ctl)->m_next);
        }
} /* ng_btsocket_hci_raw_savctl */

/*
 * Raw HCI sockets data input routine
 */

static void
ng_btsocket_hci_raw_data_input(struct mbuf *nam)
{
        ng_btsocket_hci_raw_pcb_p        pcb = NULL;
        struct mbuf                     *m0 = NULL, *m = NULL;
        struct sockaddr_hci             *sa = NULL;

        m0 = nam->m_next;
        nam->m_next = NULL;

        KASSERT((nam->m_type == MT_SONAME),
                ("%s: m_type=%d\n", __func__, nam->m_type));
        KASSERT((m0->m_flags & M_PKTHDR),
                ("%s: m_flags=%#x\n", __func__, m0->m_flags));

        sa = mtod(nam, struct sockaddr_hci *);

        mtx_lock(&ng_btsocket_hci_raw_sockets_mtx);

        LIST_FOREACH(pcb, &ng_btsocket_hci_raw_sockets, next) {
                mtx_lock(&pcb->pcb_mtx);

                /*
                 * If socket was bound then check address and
                 *  make sure it matches.
                 */

                if (pcb->addr.hci_node[0] != 0 &&
                    strcmp(sa->hci_node, pcb->addr.hci_node) != 0)
                        goto next;

                /*
                 * Check packet against filters
                 * XXX do we have to call m_pullup() here?
                 */

                if (ng_btsocket_hci_raw_filter(pcb, m0, 1) != 0)
                        goto next;

                /*
                 * Make a copy of the packet, append to the socket's
                 * receive queue and wakeup socket. sbappendaddr()
                 * will check if socket has enough buffer space.
                 */

                m = m_dup(m0, M_NOWAIT);
                if (m != NULL) {
                        struct mbuf     *ctl = NULL;

                        ng_btsocket_hci_raw_savctl(pcb, &ctl, m);

                        if (sbappendaddr(&pcb->so->so_rcv, 
                                        (struct sockaddr *) sa, m, ctl))
                                sorwakeup(pcb->so);
                        else {
                                NG_BTSOCKET_HCI_RAW_INFO(
"%s: sbappendaddr() failed\n", __func__);

                                NG_FREE_M(m);
                                NG_FREE_M(ctl);
                                soroverflow(pcb->so);
                        }
                }
next:
                mtx_unlock(&pcb->pcb_mtx);
        }

        mtx_unlock(&ng_btsocket_hci_raw_sockets_mtx);

        NG_FREE_M(nam);
        NG_FREE_M(m0);
} /* ng_btsocket_hci_raw_data_input */ 

/*
 * Raw HCI sockets message input routine
 */

static void
ng_btsocket_hci_raw_msg_input(struct ng_mesg *msg)
{
        ng_btsocket_hci_raw_pcb_p       pcb = NULL;

        mtx_lock(&ng_btsocket_hci_raw_sockets_mtx);

        LIST_FOREACH(pcb, &ng_btsocket_hci_raw_sockets, next) {
                mtx_lock(&pcb->pcb_mtx);

                if (msg->header.token == pcb->token) {
                        pcb->msg = msg;
                        wakeup(&pcb->msg);

                        mtx_unlock(&pcb->pcb_mtx);
                        mtx_unlock(&ng_btsocket_hci_raw_sockets_mtx);

                        return;
                }

                mtx_unlock(&pcb->pcb_mtx);
        }

        mtx_unlock(&ng_btsocket_hci_raw_sockets_mtx);

        NG_FREE_MSG(msg); /* checks for != NULL */
} /* ng_btsocket_hci_raw_msg_input */

/*
 * Raw HCI sockets input routines
 */

static void
ng_btsocket_hci_raw_input(void *context, int pending)
{
        item_p  item = NULL;

        for (;;) {
                mtx_lock(&ng_btsocket_hci_raw_queue_mtx);
                NG_BT_ITEMQ_DEQUEUE(&ng_btsocket_hci_raw_queue, item);
                mtx_unlock(&ng_btsocket_hci_raw_queue_mtx);

                if (item == NULL)
                        break;

                switch(item->el_flags & NGQF_TYPE) {
                case NGQF_DATA: {
                        struct mbuf     *m = NULL;

                        NGI_GET_M(item, m);
                        ng_btsocket_hci_raw_data_input(m);
                        } break;

                case NGQF_MESG: {
                        struct ng_mesg  *msg = NULL;

                        NGI_GET_MSG(item, msg);
                        ng_btsocket_hci_raw_msg_input(msg);
                        } break;

                default:
                        KASSERT(0, 
("%s: invalid item type=%ld\n", __func__, (item->el_flags & NGQF_TYPE)));
                        break;
                }

                NG_FREE_ITEM(item);
        }
} /* ng_btsocket_hci_raw_input */

/*
 * Raw HCI sockets output routine
 */

static void
ng_btsocket_hci_raw_output(node_p node, hook_p hook, void *arg1, int arg2)
{
        struct mbuf             *nam = (struct mbuf *) arg1, *m = NULL;
        struct sockaddr_hci     *sa = NULL;
        int                      error;

        m = nam->m_next;
        nam->m_next = NULL;

        KASSERT((nam->m_type == MT_SONAME),
                ("%s: m_type=%d\n", __func__, nam->m_type));
        KASSERT((m->m_flags & M_PKTHDR),
                ("%s: m_flags=%#x\n", __func__, m->m_flags));

        sa = mtod(nam, struct sockaddr_hci *);

        /*
         * Find downstream hook
         * XXX For now access node hook list directly. Should be safe because
         * we used ng_send_fn() and we should have exclusive lock on the node.
         */

        LIST_FOREACH(hook, &node->nd_hooks, hk_hooks) {
                if (hook == NULL || NG_HOOK_NOT_VALID(hook) || 
                    NG_NODE_NOT_VALID(NG_PEER_NODE(hook)))
                        continue;

                if (strcmp(sa->hci_node, NG_PEER_NODE_NAME(hook)) == 0) {
                        NG_SEND_DATA_ONLY(error, hook, m); /* sets m to NULL */
                        break;
                }
        }

        NG_FREE_M(nam); /* check for != NULL */
        NG_FREE_M(m);
} /* ng_btsocket_hci_raw_output */

/*
 * Check frame against security and socket filters. 
 * d (direction bit) == 1 means incoming frame.
 */

static int
ng_btsocket_hci_raw_filter(ng_btsocket_hci_raw_pcb_p pcb, struct mbuf *m, int d)
{
        int     type, event, opcode;

        mtx_assert(&pcb->pcb_mtx, MA_OWNED);

        switch ((type = *mtod(m, u_int8_t *))) {
        case NG_HCI_CMD_PKT:
                if (!(pcb->flags & NG_BTSOCKET_HCI_RAW_PRIVILEGED)) {
                        opcode = le16toh(mtod(m, ng_hci_cmd_pkt_t *)->opcode);
                
                        if (!bit_test(
ng_btsocket_hci_raw_sec_filter->commands[NG_HCI_OGF(opcode) - 1],
NG_HCI_OCF(opcode) - 1))
                                return (EPERM);
                }

                if (d && !bit_test(pcb->filter.packet_mask, NG_HCI_CMD_PKT - 1))
                        return (EPERM);
                break;

        case NG_HCI_ACL_DATA_PKT:
        case NG_HCI_SCO_DATA_PKT:
                if (!(pcb->flags & NG_BTSOCKET_HCI_RAW_PRIVILEGED) ||
                    !bit_test(pcb->filter.packet_mask, type - 1) ||
                    !d)
                        return (EPERM);
                break;

        case NG_HCI_EVENT_PKT:
                if (!d)
                        return (EINVAL);

                event = mtod(m, ng_hci_event_pkt_t *)->event - 1;

                if (!(pcb->flags & NG_BTSOCKET_HCI_RAW_PRIVILEGED))
                        if (!bit_test(ng_btsocket_hci_raw_sec_filter->events, event))
                                return (EPERM);

                if (!bit_test(pcb->filter.event_mask, event))
                        return (EPERM);
                break;

        default:
                return (EINVAL);
        }

        return (0);
} /* ng_btsocket_hci_raw_filter */

/*
 * Initialize everything
 */

static void
ng_btsocket_hci_raw_init(void *arg __unused)
{
        bitstr_t        *f = NULL;
        int              error = 0;

        ng_btsocket_hci_raw_node = NULL;
        ng_btsocket_hci_raw_debug_level = NG_BTSOCKET_WARN_LEVEL;
        ng_btsocket_hci_raw_ioctl_timeout = 5;

        /* Register Netgraph node type */
        error = ng_newtype(&typestruct);
        if (error != 0) {
                NG_BTSOCKET_HCI_RAW_ALERT(
"%s: Could not register Netgraph node type, error=%d\n", __func__, error);

                return;
        }

        /* Create Netgrapg node */
        error = ng_make_node_common(&typestruct, &ng_btsocket_hci_raw_node);
        if (error != 0) {
                NG_BTSOCKET_HCI_RAW_ALERT(
"%s: Could not create Netgraph node, error=%d\n", __func__, error);

                ng_btsocket_hci_raw_node = NULL;

                return;
        }

        error = ng_name_node(ng_btsocket_hci_raw_node,
                                NG_BTSOCKET_HCI_RAW_NODE_TYPE);
        if (error != 0) {
                NG_BTSOCKET_HCI_RAW_ALERT(
"%s: Could not name Netgraph node, error=%d\n", __func__, error);

                NG_NODE_UNREF(ng_btsocket_hci_raw_node);
                ng_btsocket_hci_raw_node = NULL;

                return;
        }

        /* Create input queue */
        NG_BT_ITEMQ_INIT(&ng_btsocket_hci_raw_queue, 300);
        mtx_init(&ng_btsocket_hci_raw_queue_mtx,
                "btsocks_hci_raw_queue_mtx", NULL, MTX_DEF);
        TASK_INIT(&ng_btsocket_hci_raw_task, 0,
                ng_btsocket_hci_raw_input, NULL);

        /* Create list of sockets */
        LIST_INIT(&ng_btsocket_hci_raw_sockets);
        mtx_init(&ng_btsocket_hci_raw_sockets_mtx,
                "btsocks_hci_raw_sockets_mtx", NULL, MTX_DEF);

        /* Tokens */
        ng_btsocket_hci_raw_token = 0;
        mtx_init(&ng_btsocket_hci_raw_token_mtx,
                "btsocks_hci_raw_token_mtx", NULL, MTX_DEF);

        /* 
         * Security filter
         * XXX never free()ed
         */
        ng_btsocket_hci_raw_sec_filter =
            malloc(sizeof(struct ng_btsocket_hci_raw_sec_filter), 
                M_NETGRAPH_BTSOCKET_HCI_RAW, M_NOWAIT|M_ZERO);
        if (ng_btsocket_hci_raw_sec_filter == NULL) {
                printf("%s: Could not allocate security filter!\n", __func__);
                return;
        }

        /*
         * XXX How paranoid can we get? 
         *
         * Initialize security filter. If bit is set in the mask then
         * unprivileged socket is allowed to send (receive) this command
         * (event).
         */

        /* Enable all events */
        memset(&ng_btsocket_hci_raw_sec_filter->events, 0xff,
                sizeof(ng_btsocket_hci_raw_sec_filter->events));

        /* Disable some critical events */
        f = ng_btsocket_hci_raw_sec_filter->events;
        bit_clear(f, NG_HCI_EVENT_RETURN_LINK_KEYS - 1);
        bit_clear(f, NG_HCI_EVENT_LINK_KEY_NOTIFICATION - 1);
        bit_clear(f, NG_HCI_EVENT_VENDOR - 1);

        /* Commands - Link control */
        f = ng_btsocket_hci_raw_sec_filter->commands[NG_HCI_OGF_LINK_CONTROL-1];
        bit_set(f, NG_HCI_OCF_INQUIRY - 1);
        bit_set(f, NG_HCI_OCF_INQUIRY_CANCEL - 1);
        bit_set(f, NG_HCI_OCF_PERIODIC_INQUIRY - 1);
        bit_set(f, NG_HCI_OCF_EXIT_PERIODIC_INQUIRY - 1);
        bit_set(f, NG_HCI_OCF_REMOTE_NAME_REQ - 1);
        bit_set(f, NG_HCI_OCF_READ_REMOTE_FEATURES - 1);
        bit_set(f, NG_HCI_OCF_READ_REMOTE_VER_INFO - 1);
        bit_set(f, NG_HCI_OCF_READ_CLOCK_OFFSET - 1);

        /* Commands - Link policy */
        f = ng_btsocket_hci_raw_sec_filter->commands[NG_HCI_OGF_LINK_POLICY-1];
        bit_set(f, NG_HCI_OCF_ROLE_DISCOVERY - 1);
        bit_set(f, NG_HCI_OCF_READ_LINK_POLICY_SETTINGS - 1);

        /* Commands - Host controller and baseband */
        f = ng_btsocket_hci_raw_sec_filter->commands[NG_HCI_OGF_HC_BASEBAND-1];
        bit_set(f, NG_HCI_OCF_READ_PIN_TYPE - 1);
        bit_set(f, NG_HCI_OCF_READ_LOCAL_NAME - 1);
        bit_set(f, NG_HCI_OCF_READ_CON_ACCEPT_TIMO - 1);
        bit_set(f, NG_HCI_OCF_READ_PAGE_TIMO - 1);
        bit_set(f, NG_HCI_OCF_READ_SCAN_ENABLE - 1);
        bit_set(f, NG_HCI_OCF_READ_PAGE_SCAN_ACTIVITY - 1);
        bit_set(f, NG_HCI_OCF_READ_INQUIRY_SCAN_ACTIVITY - 1);
        bit_set(f, NG_HCI_OCF_READ_AUTH_ENABLE - 1);
        bit_set(f, NG_HCI_OCF_READ_ENCRYPTION_MODE - 1);
        bit_set(f, NG_HCI_OCF_READ_UNIT_CLASS - 1);
        bit_set(f, NG_HCI_OCF_READ_VOICE_SETTINGS - 1);
        bit_set(f, NG_HCI_OCF_READ_AUTO_FLUSH_TIMO - 1);
        bit_set(f, NG_HCI_OCF_READ_NUM_BROADCAST_RETRANS - 1);
        bit_set(f, NG_HCI_OCF_READ_HOLD_MODE_ACTIVITY - 1);
        bit_set(f, NG_HCI_OCF_READ_XMIT_LEVEL - 1);
        bit_set(f, NG_HCI_OCF_READ_SCO_FLOW_CONTROL - 1);
        bit_set(f, NG_HCI_OCF_READ_LINK_SUPERVISION_TIMO - 1);
        bit_set(f, NG_HCI_OCF_READ_SUPPORTED_IAC_NUM - 1);
        bit_set(f, NG_HCI_OCF_READ_IAC_LAP - 1);
        bit_set(f, NG_HCI_OCF_READ_PAGE_SCAN_PERIOD - 1);
        bit_set(f, NG_HCI_OCF_READ_PAGE_SCAN - 1);
        bit_set(f, NG_HCI_OCF_READ_LE_HOST_SUPPORTED -1);

        /* Commands - Informational */
        f = ng_btsocket_hci_raw_sec_filter->commands[NG_HCI_OGF_INFO - 1];
        bit_set(f, NG_HCI_OCF_READ_LOCAL_VER - 1);
        bit_set(f, NG_HCI_OCF_READ_LOCAL_FEATURES - 1);
        bit_set(f, NG_HCI_OCF_READ_BUFFER_SIZE - 1);
        bit_set(f, NG_HCI_OCF_READ_COUNTRY_CODE - 1);
        bit_set(f, NG_HCI_OCF_READ_BDADDR - 1);

        /* Commands - Status */
        f = ng_btsocket_hci_raw_sec_filter->commands[NG_HCI_OGF_STATUS - 1];
        bit_set(f, NG_HCI_OCF_READ_FAILED_CONTACT_CNTR - 1);
        bit_set(f, NG_HCI_OCF_GET_LINK_QUALITY - 1);
        bit_set(f, NG_HCI_OCF_READ_RSSI - 1);

        /* Commands - Testing */
        f = ng_btsocket_hci_raw_sec_filter->commands[NG_HCI_OGF_TESTING - 1];
        bit_set(f, NG_HCI_OCF_READ_LOOPBACK_MODE - 1);
        /*Commands - LE*/
        f = ng_btsocket_hci_raw_sec_filter->commands[NG_HCI_OGF_LE -1];
        bit_set(f, NG_HCI_OCF_LE_SET_SCAN_ENABLE - 1);
        bit_set(f, NG_HCI_OCF_LE_SET_SCAN_PARAMETERS - 1);
        bit_set(f, NG_HCI_OCF_LE_READ_LOCAL_SUPPORTED_FEATURES - 1);
        bit_set(f, NG_HCI_OCF_LE_READ_BUFFER_SIZE - 1);
        bit_set(f, NG_HCI_OCF_LE_READ_WHITE_LIST_SIZE - 1);

} /* ng_btsocket_hci_raw_init */
SYSINIT(ng_btsocket_hci_raw_init, SI_SUB_PROTO_DOMAIN, SI_ORDER_THIRD,
    ng_btsocket_hci_raw_init, NULL);

/*
 * Abort connection on socket
 */

void
ng_btsocket_hci_raw_abort(struct socket *so)
{
} /* ng_btsocket_hci_raw_abort */

void
ng_btsocket_hci_raw_close(struct socket *so)
{
} /* ng_btsocket_hci_raw_close */

/*
 * Create new raw HCI socket
 */

int
ng_btsocket_hci_raw_attach(struct socket *so, int proto, struct thread *td)
{
        ng_btsocket_hci_raw_pcb_p       pcb = so2hci_raw_pcb(so);
        int                             error = 0;

        if (pcb != NULL)
                return (EISCONN);

        if (ng_btsocket_hci_raw_node == NULL)
                return (EPROTONOSUPPORT);
        if (proto != BLUETOOTH_PROTO_HCI)
                return (EPROTONOSUPPORT);
        if (so->so_type != SOCK_RAW)
                return (ESOCKTNOSUPPORT);

        error = soreserve(so, NG_BTSOCKET_HCI_RAW_SENDSPACE,
                                NG_BTSOCKET_HCI_RAW_RECVSPACE);
        if (error != 0)
                return (error);

        pcb = malloc(sizeof(*pcb), 
                M_NETGRAPH_BTSOCKET_HCI_RAW, M_NOWAIT|M_ZERO);
        if (pcb == NULL)
                return (ENOMEM);

        so->so_pcb = (caddr_t) pcb;
        pcb->so = so;

        if (priv_check(td, PRIV_NETBLUETOOTH_RAW) == 0)
                pcb->flags |= NG_BTSOCKET_HCI_RAW_PRIVILEGED;

        /*
         * Set default socket filter. By default socket only accepts HCI
         * Command_Complete and Command_Status event packets.
         */

        bit_set(pcb->filter.event_mask, NG_HCI_EVENT_COMMAND_COMPL - 1);
        bit_set(pcb->filter.event_mask, NG_HCI_EVENT_COMMAND_STATUS - 1);

        mtx_init(&pcb->pcb_mtx, "btsocks_hci_raw_pcb_mtx", NULL, MTX_DEF);

        mtx_lock(&ng_btsocket_hci_raw_sockets_mtx);
        LIST_INSERT_HEAD(&ng_btsocket_hci_raw_sockets, pcb, next);
        mtx_unlock(&ng_btsocket_hci_raw_sockets_mtx);

        return (0);
} /* ng_btsocket_hci_raw_attach */

/*
 * Bind raw HCI socket
 */

int
ng_btsocket_hci_raw_bind(struct socket *so, struct sockaddr *nam,
                struct thread *td)
{
        ng_btsocket_hci_raw_pcb_p        pcb = so2hci_raw_pcb(so);
        struct sockaddr_hci             *sa = (struct sockaddr_hci *) nam;

        if (pcb == NULL)
                return (EINVAL);
        if (ng_btsocket_hci_raw_node == NULL)
                return (EINVAL);

        if (sa == NULL)
                return (EINVAL);
        if (sa->hci_family != AF_BLUETOOTH)
                return (EAFNOSUPPORT);
        if (sa->hci_len != sizeof(*sa))
                return (EINVAL);
        if (sa->hci_node[0] == 0)
                return (EINVAL);

        mtx_lock(&pcb->pcb_mtx);
        bcopy(sa, &pcb->addr, sizeof(pcb->addr));
        mtx_unlock(&pcb->pcb_mtx);

        return (0);
} /* ng_btsocket_hci_raw_bind */

/*
 * Connect raw HCI socket
 */

int
ng_btsocket_hci_raw_connect(struct socket *so, struct sockaddr *nam,
                struct thread *td)
{
        ng_btsocket_hci_raw_pcb_p        pcb = so2hci_raw_pcb(so);
        struct sockaddr_hci             *sa = (struct sockaddr_hci *) nam;

        if (pcb == NULL)
                return (EINVAL);
        if (ng_btsocket_hci_raw_node == NULL)
                return (EINVAL);

        if (sa == NULL)
                return (EINVAL);
        if (sa->hci_family != AF_BLUETOOTH)
                return (EAFNOSUPPORT);
        if (sa->hci_len != sizeof(*sa))
                return (EINVAL);
        if (sa->hci_node[0] == 0)
                return (EDESTADDRREQ);

        mtx_lock(&pcb->pcb_mtx);

        if (bcmp(sa, &pcb->addr, sizeof(pcb->addr)) != 0) {
                mtx_unlock(&pcb->pcb_mtx);
                return (EADDRNOTAVAIL);
        }

        soisconnected(so);

        mtx_unlock(&pcb->pcb_mtx);

        return (0);
} /* ng_btsocket_hci_raw_connect */

/*
 * Process ioctl on socket
 */

int
ng_btsocket_hci_raw_control(struct socket *so, u_long cmd, void *data,
                struct ifnet *ifp, struct thread *td)
{
        ng_btsocket_hci_raw_pcb_p        pcb = so2hci_raw_pcb(so);
        char                             path[NG_NODESIZ + 1];
        struct ng_mesg                  *msg = NULL;
        int                              error = 0;

        if (pcb == NULL)
                return (EINVAL);
        if (ng_btsocket_hci_raw_node == NULL)
                return (EINVAL);

        mtx_lock(&pcb->pcb_mtx);

        /* Check if we have device name */
        if (pcb->addr.hci_node[0] == 0) {
                mtx_unlock(&pcb->pcb_mtx);
                return (EHOSTUNREACH);
        }

        /* Check if we have pending ioctl() */
        if (pcb->token != 0) {
                mtx_unlock(&pcb->pcb_mtx);
                return (EBUSY);
        }

        snprintf(path, sizeof(path), "%s:", pcb->addr.hci_node);

        switch (cmd) {
        case SIOC_HCI_RAW_NODE_GET_STATE: {
                struct ng_btsocket_hci_raw_node_state   *p =
                        (struct ng_btsocket_hci_raw_node_state *) data;

                error = ng_btsocket_hci_raw_send_sync_ngmsg(pcb, path, 
                                NGM_HCI_NODE_GET_STATE,
                                &p->state, sizeof(p->state));
                } break;

        case SIOC_HCI_RAW_NODE_INIT:
                if (pcb->flags & NG_BTSOCKET_HCI_RAW_PRIVILEGED)
                        error = ng_btsocket_hci_raw_send_ngmsg(path,
                                        NGM_HCI_NODE_INIT, NULL, 0);
                else
                        error = EPERM;
                break;

        case SIOC_HCI_RAW_NODE_GET_DEBUG: {
                struct ng_btsocket_hci_raw_node_debug   *p = 
                        (struct ng_btsocket_hci_raw_node_debug *) data;

                error = ng_btsocket_hci_raw_send_sync_ngmsg(pcb, path,
                                NGM_HCI_NODE_GET_DEBUG,
                                &p->debug, sizeof(p->debug));
                } break;

        case SIOC_HCI_RAW_NODE_SET_DEBUG: {
                struct ng_btsocket_hci_raw_node_debug   *p = 
                        (struct ng_btsocket_hci_raw_node_debug *) data;

                if (pcb->flags & NG_BTSOCKET_HCI_RAW_PRIVILEGED)
                        error = ng_btsocket_hci_raw_send_ngmsg(path,
                                        NGM_HCI_NODE_SET_DEBUG, &p->debug,
                                        sizeof(p->debug));
                else
                        error = EPERM;
                } break;

        case SIOC_HCI_RAW_NODE_GET_BUFFER: {
                struct ng_btsocket_hci_raw_node_buffer  *p = 
                        (struct ng_btsocket_hci_raw_node_buffer *) data;

                error = ng_btsocket_hci_raw_send_sync_ngmsg(pcb, path,
                                NGM_HCI_NODE_GET_BUFFER,
                                &p->buffer, sizeof(p->buffer));
                } break;

        case SIOC_HCI_RAW_NODE_GET_BDADDR: {
                struct ng_btsocket_hci_raw_node_bdaddr  *p = 
                        (struct ng_btsocket_hci_raw_node_bdaddr *) data;

                error = ng_btsocket_hci_raw_send_sync_ngmsg(pcb, path,
                                NGM_HCI_NODE_GET_BDADDR,
                                &p->bdaddr, sizeof(p->bdaddr));
                } break;

        case SIOC_HCI_RAW_NODE_GET_FEATURES: {
                struct ng_btsocket_hci_raw_node_features        *p = 
                        (struct ng_btsocket_hci_raw_node_features *) data;

                error = ng_btsocket_hci_raw_send_sync_ngmsg(pcb, path,
                                NGM_HCI_NODE_GET_FEATURES,
                                &p->features, sizeof(p->features));
                } break;

        case SIOC_HCI_RAW_NODE_GET_STAT: {
                struct ng_btsocket_hci_raw_node_stat    *p = 
                        (struct ng_btsocket_hci_raw_node_stat *) data;

                error = ng_btsocket_hci_raw_send_sync_ngmsg(pcb, path,
                                NGM_HCI_NODE_GET_STAT,
                                &p->stat, sizeof(p->stat));
                } break;

        case SIOC_HCI_RAW_NODE_RESET_STAT:
                if (pcb->flags & NG_BTSOCKET_HCI_RAW_PRIVILEGED)
                        error = ng_btsocket_hci_raw_send_ngmsg(path,
                                        NGM_HCI_NODE_RESET_STAT, NULL, 0);
                else
                        error = EPERM;
                break;

        case SIOC_HCI_RAW_NODE_FLUSH_NEIGHBOR_CACHE:
                if (pcb->flags & NG_BTSOCKET_HCI_RAW_PRIVILEGED)
                        error = ng_btsocket_hci_raw_send_ngmsg(path,
                                        NGM_HCI_NODE_FLUSH_NEIGHBOR_CACHE,
                                        NULL, 0);
                else
                        error = EPERM;
                break;

        case SIOC_HCI_RAW_NODE_GET_NEIGHBOR_CACHE:  {
                struct ng_btsocket_hci_raw_node_neighbor_cache  *p = 
                        (struct ng_btsocket_hci_raw_node_neighbor_cache *) data;
                ng_hci_node_get_neighbor_cache_ep               *p1 = NULL;
                ng_hci_node_neighbor_cache_entry_ep             *p2 = NULL;

                if (p->num_entries <= 0 || 
                    p->num_entries > NG_HCI_MAX_NEIGHBOR_NUM ||
                    p->entries == NULL) {
                        mtx_unlock(&pcb->pcb_mtx);
                        return (EINVAL);
                }

                NG_MKMESSAGE(msg, NGM_HCI_COOKIE,
                        NGM_HCI_NODE_GET_NEIGHBOR_CACHE, 0, M_NOWAIT);
                if (msg == NULL) {
                        mtx_unlock(&pcb->pcb_mtx);
                        return (ENOMEM);
                }
                ng_btsocket_hci_raw_get_token(&msg->header.token);
                pcb->token = msg->header.token;
                pcb->msg = NULL;

                NG_SEND_MSG_PATH(error, ng_btsocket_hci_raw_node, msg, path, 0);
                if (error != 0) {
                        pcb->token = 0;
                        mtx_unlock(&pcb->pcb_mtx);
                        return (error);
                }

                error = msleep(&pcb->msg, &pcb->pcb_mtx,
                                PZERO|PCATCH, "hcictl", 
                                ng_btsocket_hci_raw_ioctl_timeout * hz);
                pcb->token = 0;

                if (error != 0) {
                        mtx_unlock(&pcb->pcb_mtx);
                        return (error);
                }

                msg = pcb->msg;
                pcb->msg = NULL;

                mtx_unlock(&pcb->pcb_mtx);
                
                if (msg != NULL &&
                    msg->header.cmd == NGM_HCI_NODE_GET_NEIGHBOR_CACHE) {
                        /* Return data back to user space */
                        p1 = (ng_hci_node_get_neighbor_cache_ep *)(msg->data);
                        p2 = (ng_hci_node_neighbor_cache_entry_ep *)(p1 + 1);

                        p->num_entries = min(p->num_entries, p1->num_entries);
                        if (p->num_entries > 0)
                                error = copyout((caddr_t) p2, 
                                                (caddr_t) p->entries,
                                                p->num_entries * sizeof(*p2));
                } else
                        error = EINVAL;

                NG_FREE_MSG(msg); /* checks for != NULL */
                return (error);
                } /* NOTREACHED */

        case SIOC_HCI_RAW_NODE_GET_CON_LIST: {
                struct ng_btsocket_hci_raw_con_list     *p = 
                        (struct ng_btsocket_hci_raw_con_list *) data;
                ng_hci_node_con_list_ep                 *p1 = NULL;
                ng_hci_node_con_ep                      *p2 = NULL;

                if (p->num_connections == 0 ||
                    p->num_connections > NG_HCI_MAX_CON_NUM ||
                    p->connections == NULL) {
                        mtx_unlock(&pcb->pcb_mtx);
                        return (EINVAL);
                }

                NG_MKMESSAGE(msg, NGM_HCI_COOKIE, NGM_HCI_NODE_GET_CON_LIST,
                        0, M_NOWAIT);
                if (msg == NULL) {
                        mtx_unlock(&pcb->pcb_mtx);
                        return (ENOMEM);
                }
                ng_btsocket_hci_raw_get_token(&msg->header.token);
                pcb->token = msg->header.token;
                pcb->msg = NULL;

                NG_SEND_MSG_PATH(error, ng_btsocket_hci_raw_node, msg, path, 0);
                if (error != 0) {
                        pcb->token = 0;
                        mtx_unlock(&pcb->pcb_mtx);
                        return (error);
                }

                error = msleep(&pcb->msg, &pcb->pcb_mtx,
                                PZERO|PCATCH, "hcictl", 
                                ng_btsocket_hci_raw_ioctl_timeout * hz);
                pcb->token = 0;

                if (error != 0) {
                        mtx_unlock(&pcb->pcb_mtx);
                        return (error);
                }

                msg = pcb->msg;
                pcb->msg = NULL;

                mtx_unlock(&pcb->pcb_mtx);

                if (msg != NULL &&
                    msg->header.cmd == NGM_HCI_NODE_GET_CON_LIST) {
                        /* Return data back to user space */
                        p1 = (ng_hci_node_con_list_ep *)(msg->data);
                        p2 = (ng_hci_node_con_ep *)(p1 + 1);

                        p->num_connections = min(p->num_connections,
                                                p1->num_connections);
                        if (p->num_connections > 0)
                                error = copyout((caddr_t) p2, 
                                        (caddr_t) p->connections,
                                        p->num_connections * sizeof(*p2));
                } else
                        error = EINVAL;

                NG_FREE_MSG(msg); /* checks for != NULL */
                return (error);
                } /* NOTREACHED */

        case SIOC_HCI_RAW_NODE_GET_LINK_POLICY_MASK: {
                struct ng_btsocket_hci_raw_node_link_policy_mask        *p = 
                        (struct ng_btsocket_hci_raw_node_link_policy_mask *) 
                                data;

                error = ng_btsocket_hci_raw_send_sync_ngmsg(pcb, path,
                                NGM_HCI_NODE_GET_LINK_POLICY_SETTINGS_MASK,
                                &p->policy_mask, sizeof(p->policy_mask));
                } break;

        case SIOC_HCI_RAW_NODE_SET_LINK_POLICY_MASK: {
                struct ng_btsocket_hci_raw_node_link_policy_mask        *p = 
                        (struct ng_btsocket_hci_raw_node_link_policy_mask *) 
                                data;

                if (pcb->flags & NG_BTSOCKET_HCI_RAW_PRIVILEGED)
                        error = ng_btsocket_hci_raw_send_ngmsg(path,
                                        NGM_HCI_NODE_SET_LINK_POLICY_SETTINGS_MASK,
                                        &p->policy_mask,
                                        sizeof(p->policy_mask));
                else
                        error = EPERM;
                } break;

        case SIOC_HCI_RAW_NODE_GET_PACKET_MASK: {
                struct ng_btsocket_hci_raw_node_packet_mask     *p = 
                        (struct ng_btsocket_hci_raw_node_packet_mask *) data;

                error = ng_btsocket_hci_raw_send_sync_ngmsg(pcb, path,
                                NGM_HCI_NODE_GET_PACKET_MASK,
                                &p->packet_mask, sizeof(p->packet_mask));
                } break;

        case SIOC_HCI_RAW_NODE_SET_PACKET_MASK: {
                struct ng_btsocket_hci_raw_node_packet_mask     *p = 
                        (struct ng_btsocket_hci_raw_node_packet_mask *) data;

                if (pcb->flags & NG_BTSOCKET_HCI_RAW_PRIVILEGED)
                        error = ng_btsocket_hci_raw_send_ngmsg(path,
                                        NGM_HCI_NODE_SET_PACKET_MASK,
                                        &p->packet_mask,
                                        sizeof(p->packet_mask));
                else
                        error = EPERM;
                } break;

        case SIOC_HCI_RAW_NODE_GET_ROLE_SWITCH: {
                struct ng_btsocket_hci_raw_node_role_switch     *p = 
                        (struct ng_btsocket_hci_raw_node_role_switch *) data;

                error = ng_btsocket_hci_raw_send_sync_ngmsg(pcb, path,
                                NGM_HCI_NODE_GET_ROLE_SWITCH,
                                &p->role_switch, sizeof(p->role_switch));
                } break;

        case SIOC_HCI_RAW_NODE_SET_ROLE_SWITCH: {
                struct ng_btsocket_hci_raw_node_role_switch     *p = 
                        (struct ng_btsocket_hci_raw_node_role_switch *) data;

                if (pcb->flags & NG_BTSOCKET_HCI_RAW_PRIVILEGED)
                        error = ng_btsocket_hci_raw_send_ngmsg(path,
                                        NGM_HCI_NODE_SET_ROLE_SWITCH,
                                        &p->role_switch,
                                        sizeof(p->role_switch));
                else
                        error = EPERM;
                } break;

        case SIOC_HCI_RAW_NODE_LIST_NAMES: {
                struct ng_btsocket_hci_raw_node_list_names      *nl =
                        (struct ng_btsocket_hci_raw_node_list_names *) data;
                struct nodeinfo                                 *ni = nl->names;

                if (nl->num_names == 0) {
                        mtx_unlock(&pcb->pcb_mtx);
                        return (EINVAL);
                }

                NG_MKMESSAGE(msg, NGM_GENERIC_COOKIE, NGM_LISTNAMES,
                        0, M_NOWAIT);
                if (msg == NULL) {
                        mtx_unlock(&pcb->pcb_mtx);
                        return (ENOMEM);
                }
                ng_btsocket_hci_raw_get_token(&msg->header.token);
                pcb->token = msg->header.token;
                pcb->msg = NULL;

                NG_SEND_MSG_PATH(error, ng_btsocket_hci_raw_node, msg, ".:", 0);
                if (error != 0) {
                        pcb->token = 0;
                        mtx_unlock(&pcb->pcb_mtx);
                        return (error);
                }

                error = msleep(&pcb->msg, &pcb->pcb_mtx,
                                PZERO|PCATCH, "hcictl",
                                ng_btsocket_hci_raw_ioctl_timeout * hz);
                pcb->token = 0;

                if (error != 0) {
                        mtx_unlock(&pcb->pcb_mtx);
                        return (error);
                }

                msg = pcb->msg;
                pcb->msg = NULL;

                mtx_unlock(&pcb->pcb_mtx);

                if (msg != NULL && msg->header.cmd == NGM_LISTNAMES) {
                        /* Return data back to user space */
                        struct namelist *nl1 = (struct namelist *) msg->data;
                        struct nodeinfo *ni1 = &nl1->nodeinfo[0];

                        while (nl->num_names > 0 && nl1->numnames > 0) {
                                if (strcmp(ni1->type, NG_HCI_NODE_TYPE) == 0) {
                                        error = copyout((caddr_t) ni1,
                                                        (caddr_t) ni,
                                                        sizeof(*ni));
                                        if (error != 0)
                                                break;

                                        nl->num_names --;
                                        ni ++;
                                }

                                nl1->numnames --;
                                ni1 ++;
                        }

                        nl->num_names = ni - nl->names;
                } else
                        error = EINVAL;

                NG_FREE_MSG(msg); /* checks for != NULL */
                return (error);
                } /* NOTREACHED */

        default:
                error = EINVAL;
                break;
        }

        mtx_unlock(&pcb->pcb_mtx);

        return (error);
} /* ng_btsocket_hci_raw_control */

/*
 * Process getsockopt/setsockopt system calls
 */

int
ng_btsocket_hci_raw_ctloutput(struct socket *so, struct sockopt *sopt)
{
        ng_btsocket_hci_raw_pcb_p               pcb = so2hci_raw_pcb(so);
        struct ng_btsocket_hci_raw_filter       filter;
        int                                     error = 0, dir;

        if (pcb == NULL)
                return (EINVAL);
        if (ng_btsocket_hci_raw_node == NULL)
                return (EINVAL);

        if (sopt->sopt_level != SOL_HCI_RAW)
                return (0);

        mtx_lock(&pcb->pcb_mtx);

        switch (sopt->sopt_dir) {
        case SOPT_GET:
                switch (sopt->sopt_name) {
                case SO_HCI_RAW_FILTER:
                        error = sooptcopyout(sopt, &pcb->filter,
                                                sizeof(pcb->filter));
                        break;

                case SO_HCI_RAW_DIRECTION:
                        dir = (pcb->flags & NG_BTSOCKET_HCI_RAW_DIRECTION)?1:0;
                        error = sooptcopyout(sopt, &dir, sizeof(dir));
                        break;

                default:
                        error = EINVAL;
                        break;
                }
                break;

        case SOPT_SET:
                switch (sopt->sopt_name) {
                case SO_HCI_RAW_FILTER:
                        error = sooptcopyin(sopt, &filter, sizeof(filter),
                                                sizeof(filter));
                        if (error == 0)
                                bcopy(&filter, &pcb->filter,
                                                sizeof(pcb->filter));
                        break;

                case SO_HCI_RAW_DIRECTION:
                        error = sooptcopyin(sopt, &dir, sizeof(dir),
                                                sizeof(dir));
                        if (error != 0)
                                break;

                        if (dir)
                                pcb->flags |= NG_BTSOCKET_HCI_RAW_DIRECTION;
                        else
                                pcb->flags &= ~NG_BTSOCKET_HCI_RAW_DIRECTION;
                        break;

                default:
                        error = EINVAL;
                        break;
                }
                break;

        default:
                error = EINVAL;
                break;
        }

        mtx_unlock(&pcb->pcb_mtx);

        return (error);
} /* ng_btsocket_hci_raw_ctloutput */

/*
 * Detach raw HCI socket
 */

void
ng_btsocket_hci_raw_detach(struct socket *so)
{
        ng_btsocket_hci_raw_pcb_p       pcb = so2hci_raw_pcb(so);

        KASSERT(pcb != NULL, ("ng_btsocket_hci_raw_detach: pcb == NULL"));

        if (ng_btsocket_hci_raw_node == NULL)
                return;

        mtx_lock(&ng_btsocket_hci_raw_sockets_mtx);
        mtx_lock(&pcb->pcb_mtx);

        LIST_REMOVE(pcb, next);

        mtx_unlock(&pcb->pcb_mtx);
        mtx_unlock(&ng_btsocket_hci_raw_sockets_mtx);

        mtx_destroy(&pcb->pcb_mtx);

        bzero(pcb, sizeof(*pcb));
        free(pcb, M_NETGRAPH_BTSOCKET_HCI_RAW);

        so->so_pcb = NULL;
} /* ng_btsocket_hci_raw_detach */

/*
 * Disconnect raw HCI socket
 */

int
ng_btsocket_hci_raw_disconnect(struct socket *so)
{
        ng_btsocket_hci_raw_pcb_p        pcb = so2hci_raw_pcb(so);

        if (pcb == NULL)
                return (EINVAL);
        if (ng_btsocket_hci_raw_node == NULL)
                return (EINVAL);

        mtx_lock(&pcb->pcb_mtx);
        soisdisconnected(so);
        mtx_unlock(&pcb->pcb_mtx);

        return (0);
} /* ng_btsocket_hci_raw_disconnect */

/*
 * Send data
 */

int
ng_btsocket_hci_raw_send(struct socket *so, int flags, struct mbuf *m,
                struct sockaddr *sa, struct mbuf *control, struct thread *td)
{
        ng_btsocket_hci_raw_pcb_p        pcb = so2hci_raw_pcb(so);
        struct mbuf                     *nam = NULL;
        int                              error = 0;

        if (ng_btsocket_hci_raw_node == NULL) {
                error = ENETDOWN;
                goto drop;
        }
        if (pcb == NULL) {
                error = EINVAL;
                goto drop;
        }
        if (control != NULL) {
                error = EINVAL;
                goto drop;
        }

        if (m->m_pkthdr.len < sizeof(ng_hci_cmd_pkt_t) ||
            m->m_pkthdr.len > sizeof(ng_hci_cmd_pkt_t) + NG_HCI_CMD_PKT_SIZE) {
                error = EMSGSIZE;
                goto drop;
        }

        if (m->m_len < sizeof(ng_hci_cmd_pkt_t)) {
                if ((m = m_pullup(m, sizeof(ng_hci_cmd_pkt_t))) == NULL) {
                        error = ENOBUFS;
                        goto drop;
                }
        }
        if (*mtod(m, u_int8_t *) != NG_HCI_CMD_PKT) {
                error = ENOTSUP;
                goto drop;
        }

        if (sa != NULL) {
                if (sa->sa_family != AF_BLUETOOTH) {
                        error = EAFNOSUPPORT;
                        goto drop;
                }
                if (sa->sa_len != sizeof(struct sockaddr_hci)) {
                        error = EINVAL;
                        goto drop;
                }
        }

        mtx_lock(&pcb->pcb_mtx);

        error = ng_btsocket_hci_raw_filter(pcb, m, 0);
        if (error != 0) {
                mtx_unlock(&pcb->pcb_mtx);
                goto drop;
        }

        if (sa == NULL) {
                if (pcb->addr.hci_node[0] == 0) {
                        mtx_unlock(&pcb->pcb_mtx);
                        error = EDESTADDRREQ;
                        goto drop;
                }

                sa = (struct sockaddr *) &pcb->addr;
        }

        MGET(nam, M_NOWAIT, MT_SONAME);
        if (nam == NULL) {
                mtx_unlock(&pcb->pcb_mtx);
                error = ENOBUFS;
                goto drop;
        }

        nam->m_len = sizeof(struct sockaddr_hci);
        bcopy(sa,mtod(nam, struct sockaddr_hci *),sizeof(struct sockaddr_hci));

        nam->m_next = m;
        m = NULL;

        mtx_unlock(&pcb->pcb_mtx);

        return (ng_send_fn(ng_btsocket_hci_raw_node, NULL, 
                                ng_btsocket_hci_raw_output, nam, 0));
drop:
        NG_FREE_M(control); /* NG_FREE_M checks for != NULL */
        NG_FREE_M(nam);
        NG_FREE_M(m);

        return (error);
} /* ng_btsocket_hci_raw_send */

/*
 * Get socket address
 */

int
ng_btsocket_hci_raw_sockaddr(struct socket *so, struct sockaddr *sa)
{
        ng_btsocket_hci_raw_pcb_p       pcb = so2hci_raw_pcb(so);
        struct sockaddr_hci *hci = (struct sockaddr_hci *)sa;

        if (pcb == NULL)
                return (EINVAL);
        if (ng_btsocket_hci_raw_node == NULL)
                return (EINVAL);

        *hci = (struct sockaddr_hci ){
                .hci_len = sizeof(struct sockaddr_hci),
                .hci_family = AF_BLUETOOTH,
        };

        mtx_lock(&pcb->pcb_mtx);
        strlcpy(hci->hci_node, pcb->addr.hci_node, sizeof(hci->hci_node));
        mtx_unlock(&pcb->pcb_mtx);

        return (0);
}