/*
   BlueZ - Bluetooth protocol stack for Linux
   Copyright (C) 2000-2001 Qualcomm Incorporated
   Copyright (C) 2011 ProFUSION Embedded Systems

   Written 2000,2001 by Maxim Krasnyansky <maxk@qualcomm.com>

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License version 2 as
   published by the Free Software Foundation;

   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
   OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
   FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT OF THIRD PARTY RIGHTS.
   IN NO EVENT SHALL THE COPYRIGHT HOLDER(S) AND AUTHOR(S) BE LIABLE FOR ANY
   CLAIM, OR ANY SPECIAL INDIRECT OR CONSEQUENTIAL DAMAGES, OR ANY DAMAGES
   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

   ALL LIABILITY, INCLUDING LIABILITY FOR INFRINGEMENT OF ANY PATENTS,
   COPYRIGHTS, TRADEMARKS OR OTHER RIGHTS, RELATING TO USE OF THIS
   SOFTWARE IS DISCLAIMED.
*/

/* Bluetooth HCI core. */

#include <linux/export.h>
#include <linux/idr.h>

#include <linux/rfkill.h>

#include <net/bluetooth/bluetooth.h>
#include <net/bluetooth/hci_core.h>

static void hci_rx_work(struct work_struct *work);
static void hci_cmd_work(struct work_struct *work);
static void hci_tx_work(struct work_struct *work);

/* HCI device list */
LIST_HEAD(hci_dev_list);
DEFINE_RWLOCK(hci_dev_list_lock);

/* HCI callback list */
LIST_HEAD(hci_cb_list);
DEFINE_RWLOCK(hci_cb_list_lock);

/* HCI ID Numbering */
static DEFINE_IDA(hci_index_ida);

/* ---- HCI notifications ---- */

static void hci_notify(struct hci_dev *hdev, int event)
{
        hci_sock_dev_event(hdev, event);
}

/* ---- HCI requests ---- */

static void hci_req_sync_complete(struct hci_dev *hdev, u8 result)
{
        BT_DBG("%s result 0x%2.2x", hdev->name, result);

        if (hdev->req_status == HCI_REQ_PEND) {
                hdev->req_result = result;
                hdev->req_status = HCI_REQ_DONE;
                wake_up_interruptible(&hdev->req_wait_q);
        }
}

static void hci_req_cancel(struct hci_dev *hdev, int err)
{
        BT_DBG("%s err 0x%2.2x", hdev->name, err);

        if (hdev->req_status == HCI_REQ_PEND) {
                hdev->req_result = err;
                hdev->req_status = HCI_REQ_CANCELED;
                wake_up_interruptible(&hdev->req_wait_q);
        }
}

static struct sk_buff *hci_get_cmd_complete(struct hci_dev *hdev, u16 opcode,
                                            u8 event)
{
        struct hci_ev_cmd_complete *ev;
        struct hci_event_hdr *hdr;
        struct sk_buff *skb;

        hci_dev_lock(hdev);

        skb = hdev->recv_evt;
        hdev->recv_evt = NULL;

        hci_dev_unlock(hdev);

        if (!skb)
                return ERR_PTR(-ENODATA);

        if (skb->len < sizeof(*hdr)) {
                BT_ERR("Too short HCI event");
                goto failed;
        }

        hdr = (void *) skb->data;
        skb_pull(skb, HCI_EVENT_HDR_SIZE);

        if (event) {
                if (hdr->evt != event)
                        goto failed;
                return skb;
        }

        if (hdr->evt != HCI_EV_CMD_COMPLETE) {
                BT_DBG("Last event is not cmd complete (0x%2.2x)", hdr->evt);
                goto failed;
        }

        if (skb->len < sizeof(*ev)) {
                BT_ERR("Too short cmd_complete event");
                goto failed;
        }

        ev = (void *) skb->data;
        skb_pull(skb, sizeof(*ev));

        if (opcode == __le16_to_cpu(ev->opcode))
                return skb;

        BT_DBG("opcode doesn't match (0x%2.2x != 0x%2.2x)", opcode,
               __le16_to_cpu(ev->opcode));

failed:
        kfree_skb(skb);
        return ERR_PTR(-ENODATA);
}

struct sk_buff *__hci_cmd_sync_ev(struct hci_dev *hdev, u16 opcode, u32 plen,
                                  const void *param, u8 event, u32 timeout)
{
        DECLARE_WAITQUEUE(wait, current);
        struct hci_request req;
        int err = 0;

        BT_DBG("%s", hdev->name);

        hci_req_init(&req, hdev);

        hci_req_add_ev(&req, opcode, plen, param, event);

        hdev->req_status = HCI_REQ_PEND;

        err = hci_req_run(&req, hci_req_sync_complete);
        if (err < 0)
                return ERR_PTR(err);

        add_wait_queue(&hdev->req_wait_q, &wait);
        set_current_state(TASK_INTERRUPTIBLE);

        schedule_timeout(timeout);

        remove_wait_queue(&hdev->req_wait_q, &wait);

        if (signal_pending(current))
                return ERR_PTR(-EINTR);

        switch (hdev->req_status) {
        case HCI_REQ_DONE:
                err = -bt_to_errno(hdev->req_result);
                break;

        case HCI_REQ_CANCELED:
                err = -hdev->req_result;
                break;

        default:
                err = -ETIMEDOUT;
                break;
        }

        hdev->req_status = hdev->req_result = 0;

        BT_DBG("%s end: err %d", hdev->name, err);

        if (err < 0)
                return ERR_PTR(err);

        return hci_get_cmd_complete(hdev, opcode, event);
}
EXPORT_SYMBOL(__hci_cmd_sync_ev);

struct sk_buff *__hci_cmd_sync(struct hci_dev *hdev, u16 opcode, u32 plen,
                               const void *param, u32 timeout)
{
        return __hci_cmd_sync_ev(hdev, opcode, plen, param, 0, timeout);
}
EXPORT_SYMBOL(__hci_cmd_sync);

/* Execute request and wait for completion. */
static int __hci_req_sync(struct hci_dev *hdev,
                          void (*func)(struct hci_request *req,
                                      unsigned long opt),
                          unsigned long opt, __u32 timeout)
{
        struct hci_request req;
        DECLARE_WAITQUEUE(wait, current);
        int err = 0;

        BT_DBG("%s start", hdev->name);

        hci_req_init(&req, hdev);

        hdev->req_status = HCI_REQ_PEND;

        func(&req, opt);

        err = hci_req_run(&req, hci_req_sync_complete);
        if (err < 0) {
                hdev->req_status = 0;

                /* ENODATA means the HCI request command queue is empty.
                 * This can happen when a request with conditionals doesn't
                 * trigger any commands to be sent. This is normal behavior
                 * and should not trigger an error return.
                 */
                if (err == -ENODATA)
                        return 0;

                return err;
        }

        add_wait_queue(&hdev->req_wait_q, &wait);
        set_current_state(TASK_INTERRUPTIBLE);

        schedule_timeout(timeout);

        remove_wait_queue(&hdev->req_wait_q, &wait);

        if (signal_pending(current))
                return -EINTR;

        switch (hdev->req_status) {
        case HCI_REQ_DONE:
                err = -bt_to_errno(hdev->req_result);
                break;

        case HCI_REQ_CANCELED:
                err = -hdev->req_result;
                break;

        default:
                err = -ETIMEDOUT;
                break;
        }

        hdev->req_status = hdev->req_result = 0;

        BT_DBG("%s end: err %d", hdev->name, err);

        return err;
}

static int hci_req_sync(struct hci_dev *hdev,
                        void (*req)(struct hci_request *req,
                                    unsigned long opt),
                        unsigned long opt, __u32 timeout)
{
        int ret;

        if (!test_bit(HCI_UP, &hdev->flags))
                return -ENETDOWN;

        /* Serialize all requests */
        hci_req_lock(hdev);
        ret = __hci_req_sync(hdev, req, opt, timeout);
        hci_req_unlock(hdev);

        return ret;
}

static void hci_reset_req(struct hci_request *req, unsigned long opt)
{
        BT_DBG("%s %ld", req->hdev->name, opt);

        /* Reset device */
        set_bit(HCI_RESET, &req->hdev->flags);
        hci_req_add(req, HCI_OP_RESET, 0, NULL);
}

static void bredr_init(struct hci_request *req)
{
        req->hdev->flow_ctl_mode = HCI_FLOW_CTL_MODE_PACKET_BASED;

        /* Read Local Supported Features */
        hci_req_add(req, HCI_OP_READ_LOCAL_FEATURES, 0, NULL);

        /* Read Local Version */
        hci_req_add(req, HCI_OP_READ_LOCAL_VERSION, 0, NULL);

        /* Read BD Address */
        hci_req_add(req, HCI_OP_READ_BD_ADDR, 0, NULL);
}

static void amp_init(struct hci_request *req)
{
        req->hdev->flow_ctl_mode = HCI_FLOW_CTL_MODE_BLOCK_BASED;

        /* Read Local Version */
        hci_req_add(req, HCI_OP_READ_LOCAL_VERSION, 0, NULL);

        /* Read Local AMP Info */
        hci_req_add(req, HCI_OP_READ_LOCAL_AMP_INFO, 0, NULL);

        /* Read Data Blk size */
        hci_req_add(req, HCI_OP_READ_DATA_BLOCK_SIZE, 0, NULL);
}

static void hci_init1_req(struct hci_request *req, unsigned long opt)
{
        struct hci_dev *hdev = req->hdev;

        BT_DBG("%s %ld", hdev->name, opt);

        /* Reset */
        if (!test_bit(HCI_QUIRK_RESET_ON_CLOSE, &hdev->quirks))
                hci_reset_req(req, 0);

        switch (hdev->dev_type) {
        case HCI_BREDR:
                bredr_init(req);
                break;

        case HCI_AMP:
                amp_init(req);
                break;

        default:
                BT_ERR("Unknown device type %d", hdev->dev_type);
                break;
        }
}

static void bredr_setup(struct hci_request *req)
{
        __le16 param;
        __u8 flt_type;

        /* Read Buffer Size (ACL mtu, max pkt, etc.) */
        hci_req_add(req, HCI_OP_READ_BUFFER_SIZE, 0, NULL);

        /* Read Class of Device */
        hci_req_add(req, HCI_OP_READ_CLASS_OF_DEV, 0, NULL);

        /* Read Local Name */
        hci_req_add(req, HCI_OP_READ_LOCAL_NAME, 0, NULL);

        /* Read Voice Setting */
        hci_req_add(req, HCI_OP_READ_VOICE_SETTING, 0, NULL);

        /* Clear Event Filters */
        flt_type = HCI_FLT_CLEAR_ALL;
        hci_req_add(req, HCI_OP_SET_EVENT_FLT, 1, &flt_type);

        /* Connection accept timeout ~20 secs */
        param = __constant_cpu_to_le16(0x7d00);
        hci_req_add(req, HCI_OP_WRITE_CA_TIMEOUT, 2, &param);

        /* Read page scan parameters */
        if (req->hdev->hci_ver > BLUETOOTH_VER_1_1) {
                hci_req_add(req, HCI_OP_READ_PAGE_SCAN_ACTIVITY, 0, NULL);
                hci_req_add(req, HCI_OP_READ_PAGE_SCAN_TYPE, 0, NULL);
        }
}

static void le_setup(struct hci_request *req)
{
        struct hci_dev *hdev = req->hdev;

        /* Read LE Buffer Size */
        hci_req_add(req, HCI_OP_LE_READ_BUFFER_SIZE, 0, NULL);

        /* Read LE Local Supported Features */
        hci_req_add(req, HCI_OP_LE_READ_LOCAL_FEATURES, 0, NULL);

        /* Read LE Advertising Channel TX Power */
        hci_req_add(req, HCI_OP_LE_READ_ADV_TX_POWER, 0, NULL);

        /* Read LE White List Size */
        hci_req_add(req, HCI_OP_LE_READ_WHITE_LIST_SIZE, 0, NULL);

        /* Read LE Supported States */
        hci_req_add(req, HCI_OP_LE_READ_SUPPORTED_STATES, 0, NULL);

        /* LE-only controllers have LE implicitly enabled */
        if (!lmp_bredr_capable(hdev))
                set_bit(HCI_LE_ENABLED, &hdev->dev_flags);
}

static u8 hci_get_inquiry_mode(struct hci_dev *hdev)
{
        if (lmp_ext_inq_capable(hdev))
                return 0x02;

        if (lmp_inq_rssi_capable(hdev))
                return 0x01;

        if (hdev->manufacturer == 11 && hdev->hci_rev == 0x00 &&
            hdev->lmp_subver == 0x0757)
                return 0x01;

        if (hdev->manufacturer == 15) {
                if (hdev->hci_rev == 0x03 && hdev->lmp_subver == 0x6963)
                        return 0x01;
                if (hdev->hci_rev == 0x09 && hdev->lmp_subver == 0x6963)
                        return 0x01;
                if (hdev->hci_rev == 0x00 && hdev->lmp_subver == 0x6965)
                        return 0x01;
        }

        if (hdev->manufacturer == 31 && hdev->hci_rev == 0x2005 &&
            hdev->lmp_subver == 0x1805)
                return 0x01;

        return 0x00;
}

static void hci_setup_inquiry_mode(struct hci_request *req)
{
        u8 mode;

        mode = hci_get_inquiry_mode(req->hdev);

        hci_req_add(req, HCI_OP_WRITE_INQUIRY_MODE, 1, &mode);
}

static void hci_setup_event_mask(struct hci_request *req)
{
        struct hci_dev *hdev = req->hdev;

        /* The second byte is 0xff instead of 0x9f (two reserved bits
         * disabled) since a Broadcom 1.2 dongle doesn't respond to the
         * command otherwise.
         */
        u8 events[8] = { 0xff, 0xff, 0xfb, 0xff, 0x00, 0x00, 0x00, 0x00 };

        /* CSR 1.1 dongles does not accept any bitfield so don't try to set
         * any event mask for pre 1.2 devices.
         */
        if (hdev->hci_ver < BLUETOOTH_VER_1_2)
                return;

        if (lmp_bredr_capable(hdev)) {
                events[4] |= 0x01; /* Flow Specification Complete */
                events[4] |= 0x02; /* Inquiry Result with RSSI */
                events[4] |= 0x04; /* Read Remote Extended Features Complete */
                events[5] |= 0x08; /* Synchronous Connection Complete */
                events[5] |= 0x10; /* Synchronous Connection Changed */
        }

        if (lmp_inq_rssi_capable(hdev))
                events[4] |= 0x02; /* Inquiry Result with RSSI */

        if (lmp_sniffsubr_capable(hdev))
                events[5] |= 0x20; /* Sniff Subrating */

        if (lmp_pause_enc_capable(hdev))
                events[5] |= 0x80; /* Encryption Key Refresh Complete */

        if (lmp_ext_inq_capable(hdev))
                events[5] |= 0x40; /* Extended Inquiry Result */

        if (lmp_no_flush_capable(hdev))
                events[7] |= 0x01; /* Enhanced Flush Complete */

        if (lmp_lsto_capable(hdev))
                events[6] |= 0x80; /* Link Supervision Timeout Changed */

        if (lmp_ssp_capable(hdev)) {
                events[6] |= 0x01;      /* IO Capability Request */
                events[6] |= 0x02;      /* IO Capability Response */
                events[6] |= 0x04;      /* User Confirmation Request */
                events[6] |= 0x08;      /* User Passkey Request */
                events[6] |= 0x10;      /* Remote OOB Data Request */
                events[6] |= 0x20;      /* Simple Pairing Complete */
                events[7] |= 0x04;      /* User Passkey Notification */
                events[7] |= 0x08;      /* Keypress Notification */
                events[7] |= 0x10;      /* Remote Host Supported
                                         * Features Notification
                                         */
        }

        if (lmp_le_capable(hdev))
                events[7] |= 0x20;      /* LE Meta-Event */

        hci_req_add(req, HCI_OP_SET_EVENT_MASK, sizeof(events), events);

        if (lmp_le_capable(hdev)) {
                memset(events, 0, sizeof(events));
                events[0] = 0x1f;
                hci_req_add(req, HCI_OP_LE_SET_EVENT_MASK,
                            sizeof(events), events);
        }
}

static void hci_init2_req(struct hci_request *req, unsigned long opt)
{
        struct hci_dev *hdev = req->hdev;

        if (lmp_bredr_capable(hdev))
                bredr_setup(req);

        if (lmp_le_capable(hdev))
                le_setup(req);

        hci_setup_event_mask(req);

        /* AVM Berlin (31), aka "BlueFRITZ!", doesn't support the read
         * local supported commands HCI command.
         */
        if (hdev->manufacturer != 31 && hdev->hci_ver > BLUETOOTH_VER_1_1)
                hci_req_add(req, HCI_OP_READ_LOCAL_COMMANDS, 0, NULL);

        if (lmp_ssp_capable(hdev)) {
                if (test_bit(HCI_SSP_ENABLED, &hdev->dev_flags)) {
                        u8 mode = 0x01;
                        hci_req_add(req, HCI_OP_WRITE_SSP_MODE,
                                    sizeof(mode), &mode);
                } else {
                        struct hci_cp_write_eir cp;

                        memset(hdev->eir, 0, sizeof(hdev->eir));
                        memset(&cp, 0, sizeof(cp));

                        hci_req_add(req, HCI_OP_WRITE_EIR, sizeof(cp), &cp);
                }
        }

        if (lmp_inq_rssi_capable(hdev))
                hci_setup_inquiry_mode(req);

        if (lmp_inq_tx_pwr_capable(hdev))
                hci_req_add(req, HCI_OP_READ_INQ_RSP_TX_POWER, 0, NULL);

        if (lmp_ext_feat_capable(hdev)) {
                struct hci_cp_read_local_ext_features cp;

                cp.page = 0x01;
                hci_req_add(req, HCI_OP_READ_LOCAL_EXT_FEATURES,
                            sizeof(cp), &cp);
        }

        if (test_bit(HCI_LINK_SECURITY, &hdev->dev_flags)) {
                u8 enable = 1;
                hci_req_add(req, HCI_OP_WRITE_AUTH_ENABLE, sizeof(enable),
                            &enable);
        }
}

static void hci_setup_link_policy(struct hci_request *req)
{
        struct hci_dev *hdev = req->hdev;
        struct hci_cp_write_def_link_policy cp;
        u16 link_policy = 0;

        if (lmp_rswitch_capable(hdev))
                link_policy |= HCI_LP_RSWITCH;
        if (lmp_hold_capable(hdev))
                link_policy |= HCI_LP_HOLD;
        if (lmp_sniff_capable(hdev))
                link_policy |= HCI_LP_SNIFF;
        if (lmp_park_capable(hdev))
                link_policy |= HCI_LP_PARK;

        cp.policy = cpu_to_le16(link_policy);
        hci_req_add(req, HCI_OP_WRITE_DEF_LINK_POLICY, sizeof(cp), &cp);
}

static void hci_set_le_support(struct hci_request *req)
{
        struct hci_dev *hdev = req->hdev;
        struct hci_cp_write_le_host_supported cp;

        /* LE-only devices do not support explicit enablement */
        if (!lmp_bredr_capable(hdev))
                return;

        memset(&cp, 0, sizeof(cp));

        if (test_bit(HCI_LE_ENABLED, &hdev->dev_flags)) {
                cp.le = 0x01;
                cp.simul = lmp_le_br_capable(hdev);
        }

        if (cp.le != lmp_host_le_capable(hdev))
                hci_req_add(req, HCI_OP_WRITE_LE_HOST_SUPPORTED, sizeof(cp),
                            &cp);
}

static void hci_init3_req(struct hci_request *req, unsigned long opt)
{
        struct hci_dev *hdev = req->hdev;
        u8 p;

        /* Some Broadcom based Bluetooth controllers do not support the
         * Delete Stored Link Key command. They are clearly indicating its
         * absence in the bit mask of supported commands.
         *
         * Check the supported commands and only if the the command is marked
         * as supported send it. If not supported assume that the controller
         * does not have actual support for stored link keys which makes this
         * command redundant anyway.
         */
        if (hdev->commands[6] & 0x80) {
                struct hci_cp_delete_stored_link_key cp;

                bacpy(&cp.bdaddr, BDADDR_ANY);
                cp.delete_all = 0x01;
                hci_req_add(req, HCI_OP_DELETE_STORED_LINK_KEY,
                            sizeof(cp), &cp);
        }

        if (hdev->commands[5] & 0x10)
                hci_setup_link_policy(req);

        if (lmp_le_capable(hdev)) {
                hci_set_le_support(req);
                hci_update_ad(req);
        }

        /* Read features beyond page 1 if available */
        for (p = 2; p < HCI_MAX_PAGES && p <= hdev->max_page; p++) {
                struct hci_cp_read_local_ext_features cp;

                cp.page = p;
                hci_req_add(req, HCI_OP_READ_LOCAL_EXT_FEATURES,
                            sizeof(cp), &cp);
        }
}

static int __hci_init(struct hci_dev *hdev)
{
        int err;

        err = __hci_req_sync(hdev, hci_init1_req, 0, HCI_INIT_TIMEOUT);
        if (err < 0)
                return err;

        /* HCI_BREDR covers both single-mode LE, BR/EDR and dual-mode
         * BR/EDR/LE type controllers. AMP controllers only need the
         * first stage init.
         */
        if (hdev->dev_type != HCI_BREDR)
                return 0;

        err = __hci_req_sync(hdev, hci_init2_req, 0, HCI_INIT_TIMEOUT);
        if (err < 0)
                return err;

        return __hci_req_sync(hdev, hci_init3_req, 0, HCI_INIT_TIMEOUT);
}

static void hci_scan_req(struct hci_request *req, unsigned long opt)
{
        __u8 scan = opt;

        BT_DBG("%s %x", req->hdev->name, scan);

        /* Inquiry and Page scans */
        hci_req_add(req, HCI_OP_WRITE_SCAN_ENABLE, 1, &scan);
}

static void hci_auth_req(struct hci_request *req, unsigned long opt)
{
        __u8 auth = opt;

        BT_DBG("%s %x", req->hdev->name, auth);

        /* Authentication */
        hci_req_add(req, HCI_OP_WRITE_AUTH_ENABLE, 1, &auth);
}

static void hci_encrypt_req(struct hci_request *req, unsigned long opt)
{
        __u8 encrypt = opt;

        BT_DBG("%s %x", req->hdev->name, encrypt);

        /* Encryption */
        hci_req_add(req, HCI_OP_WRITE_ENCRYPT_MODE, 1, &encrypt);
}

static void hci_linkpol_req(struct hci_request *req, unsigned long opt)
{
        __le16 policy = cpu_to_le16(opt);

        BT_DBG("%s %x", req->hdev->name, policy);

        /* Default link policy */
        hci_req_add(req, HCI_OP_WRITE_DEF_LINK_POLICY, 2, &policy);
}

/* Get HCI device by index.
 * Device is held on return. */
struct hci_dev *hci_dev_get(int index)
{
        struct hci_dev *hdev = NULL, *d;

        BT_DBG("%d", index);

        if (index < 0)
                return NULL;

        read_lock(&hci_dev_list_lock);
        list_for_each_entry(d, &hci_dev_list, list) {
                if (d->id == index) {
                        hdev = hci_dev_hold(d);
                        break;
                }
        }
        read_unlock(&hci_dev_list_lock);
        return hdev;
}

/* ---- Inquiry support ---- */

bool hci_discovery_active(struct hci_dev *hdev)
{
        struct discovery_state *discov = &hdev->discovery;

        switch (discov->state) {
        case DISCOVERY_FINDING:
        case DISCOVERY_RESOLVING:
                return true;

        default:
                return false;
        }
}

void hci_discovery_set_state(struct hci_dev *hdev, int state)
{
        BT_DBG("%s state %u -> %u", hdev->name, hdev->discovery.state, state);

        if (hdev->discovery.state == state)
                return;

        switch (state) {
        case DISCOVERY_STOPPED:
                if (hdev->discovery.state != DISCOVERY_STARTING)
                        mgmt_discovering(hdev, 0);
                break;
        case DISCOVERY_STARTING:
                break;
        case DISCOVERY_FINDING:
                mgmt_discovering(hdev, 1);
                break;
        case DISCOVERY_RESOLVING:
                break;
        case DISCOVERY_STOPPING:
                break;
        }

        hdev->discovery.state = state;
}

void hci_inquiry_cache_flush(struct hci_dev *hdev)
{
        struct discovery_state *cache = &hdev->discovery;
        struct inquiry_entry *p, *n;

        list_for_each_entry_safe(p, n, &cache->all, all) {
                list_del(&p->all);
                kfree(p);
        }

        INIT_LIST_HEAD(&cache->unknown);
        INIT_LIST_HEAD(&cache->resolve);
}

struct inquiry_entry *hci_inquiry_cache_lookup(struct hci_dev *hdev,
                                               bdaddr_t *bdaddr)
{
        struct discovery_state *cache = &hdev->discovery;
        struct inquiry_entry *e;

        BT_DBG("cache %p, %pMR", cache, bdaddr);

        list_for_each_entry(e, &cache->all, all) {
                if (!bacmp(&e->data.bdaddr, bdaddr))
                        return e;
        }

        return NULL;
}

struct inquiry_entry *hci_inquiry_cache_lookup_unknown(struct hci_dev *hdev,
                                                       bdaddr_t *bdaddr)
{
        struct discovery_state *cache = &hdev->discovery;
        struct inquiry_entry *e;

        BT_DBG("cache %p, %pMR", cache, bdaddr);

        list_for_each_entry(e, &cache->unknown, list) {
                if (!bacmp(&e->data.bdaddr, bdaddr))
                        return e;
        }

        return NULL;
}

struct inquiry_entry *hci_inquiry_cache_lookup_resolve(struct hci_dev *hdev,
                                                       bdaddr_t *bdaddr,
                                                       int state)
{
        struct discovery_state *cache = &hdev->discovery;
        struct inquiry_entry *e;

        BT_DBG("cache %p bdaddr %pMR state %d", cache, bdaddr, state);

        list_for_each_entry(e, &cache->resolve, list) {
                if (!bacmp(bdaddr, BDADDR_ANY) && e->name_state == state)
                        return e;
                if (!bacmp(&e->data.bdaddr, bdaddr))
                        return e;
        }

        return NULL;
}

void hci_inquiry_cache_update_resolve(struct hci_dev *hdev,
                                      struct inquiry_entry *ie)
{
        struct discovery_state *cache = &hdev->discovery;
        struct list_head *pos = &cache->resolve;
        struct inquiry_entry *p;

        list_del(&ie->list);

        list_for_each_entry(p, &cache->resolve, list) {
                if (p->name_state != NAME_PENDING &&
                    abs(p->data.rssi) >= abs(ie->data.rssi))
                        break;
                pos = &p->list;
        }

        list_add(&ie->list, pos);
}

bool hci_inquiry_cache_update(struct hci_dev *hdev, struct inquiry_data *data,
                              bool name_known, bool *ssp)
{
        struct discovery_state *cache = &hdev->discovery;
        struct inquiry_entry *ie;

        BT_DBG("cache %p, %pMR", cache, &data->bdaddr);

        hci_remove_remote_oob_data(hdev, &data->bdaddr);

        if (ssp)
                *ssp = data->ssp_mode;

        ie = hci_inquiry_cache_lookup(hdev, &data->bdaddr);
        if (ie) {
                if (ie->data.ssp_mode && ssp)
                        *ssp = true;

                if (ie->name_state == NAME_NEEDED &&
                    data->rssi != ie->data.rssi) {
                        ie->data.rssi = data->rssi;
                        hci_inquiry_cache_update_resolve(hdev, ie);
                }

                goto update;
        }

        /* Entry not in the cache. Add new one. */
        ie = kzalloc(sizeof(struct inquiry_entry), GFP_ATOMIC);
        if (!ie)
                return false;

        list_add(&ie->all, &cache->all);

        if (name_known) {
                ie->name_state = NAME_KNOWN;
        } else {
                ie->name_state = NAME_NOT_KNOWN;
                list_add(&ie->list, &cache->unknown);
        }

update:
        if (name_known && ie->name_state != NAME_KNOWN &&
            ie->name_state != NAME_PENDING) {
                ie->name_state = NAME_KNOWN;
                list_del(&ie->list);
        }

        memcpy(&ie->data, data, sizeof(*data));
        ie->timestamp = jiffies;
        cache->timestamp = jiffies;

        if (ie->name_state == NAME_NOT_KNOWN)
                return false;

        return true;
}

static int inquiry_cache_dump(struct hci_dev *hdev, int num, __u8 *buf)
{
        struct discovery_state *cache = &hdev->discovery;
        struct inquiry_info *info = (struct inquiry_info *) buf;
        struct inquiry_entry *e;
        int copied = 0;

        list_for_each_entry(e, &cache->all, all) {
                struct inquiry_data *data = &e->data;

                if (copied >= num)
                        break;

                bacpy(&info->bdaddr, &data->bdaddr);
                info->pscan_rep_mode    = data->pscan_rep_mode;
                info->pscan_period_mode = data->pscan_period_mode;
                info->pscan_mode        = data->pscan_mode;
                memcpy(info->dev_class, data->dev_class, 3);
                info->clock_offset      = data->clock_offset;

                info++;
                copied++;
        }

        BT_DBG("cache %p, copied %d", cache, copied);
        return copied;
}

static void hci_inq_req(struct hci_request *req, unsigned long opt)
{
        struct hci_inquiry_req *ir = (struct hci_inquiry_req *) opt;
        struct hci_dev *hdev = req->hdev;
        struct hci_cp_inquiry cp;

        BT_DBG("%s", hdev->name);

        if (test_bit(HCI_INQUIRY, &hdev->flags))
                return;

        /* Start Inquiry */
        memcpy(&cp.lap, &ir->lap, 3);
        cp.length  = ir->length;
        cp.num_rsp = ir->num_rsp;
        hci_req_add(req, HCI_OP_INQUIRY, sizeof(cp), &cp);
}

static int wait_inquiry(void *word)
{
        schedule();
        return signal_pending(current);
}

int hci_inquiry(void __user *arg)
{
        __u8 __user *ptr = arg;
        struct hci_inquiry_req ir;
        struct hci_dev *hdev;
        int err = 0, do_inquiry = 0, max_rsp;
        long timeo;
        __u8 *buf;

        if (copy_from_user(&ir, ptr, sizeof(ir)))
                return -EFAULT;

        hdev = hci_dev_get(ir.dev_id);
        if (!hdev)
                return -ENODEV;

        hci_dev_lock(hdev);
        if (inquiry_cache_age(hdev) > INQUIRY_CACHE_AGE_MAX ||
            inquiry_cache_empty(hdev) || ir.flags & IREQ_CACHE_FLUSH) {
                hci_inquiry_cache_flush(hdev);
                do_inquiry = 1;
        }
        hci_dev_unlock(hdev);

        timeo = ir.length * msecs_to_jiffies(2000);

        if (do_inquiry) {
                err = hci_req_sync(hdev, hci_inq_req, (unsigned long) &ir,
                                   timeo);
                if (err < 0)
                        goto done;

                /* Wait until Inquiry procedure finishes (HCI_INQUIRY flag is
                 * cleared). If it is interrupted by a signal, return -EINTR.
                 */
                if (wait_on_bit(&hdev->flags, HCI_INQUIRY, wait_inquiry,
                                TASK_INTERRUPTIBLE))
                        return -EINTR;
        }

        /* for unlimited number of responses we will use buffer with
         * 255 entries

         */
        max_rsp = (ir.num_rsp == 0) ? 255 : ir.num_rsp;

        /* cache_dump can't sleep. Therefore we allocate temp buffer and then
         * copy it to the user space.
         */
        buf = kmalloc(sizeof(struct inquiry_info) * max_rsp, GFP_KERNEL);
        if (!buf) {
                err = -ENOMEM;
                goto done;
        }

        hci_dev_lock(hdev);
        ir.num_rsp = inquiry_cache_dump(hdev, max_rsp, buf);
        hci_dev_unlock(hdev);

        BT_DBG("num_rsp %d", ir.num_rsp);

        if (!copy_to_user(ptr, &ir, sizeof(ir))) {
                ptr += sizeof(ir);
                if (copy_to_user(ptr, buf, sizeof(struct inquiry_info) *
                                 ir.num_rsp))
                        err = -EFAULT;
        } else
                err = -EFAULT;

        kfree(buf);

done:
        hci_dev_put(hdev);
        return err;
}

static u8 create_ad(struct hci_dev *hdev, u8 *ptr)
{
        u8 ad_len = 0, flags = 0;
        size_t name_len;

        if (test_bit(HCI_LE_PERIPHERAL, &hdev->dev_flags))
                flags |= LE_AD_GENERAL;

        if (!lmp_bredr_capable(hdev))
                flags |= LE_AD_NO_BREDR;

        if (lmp_le_br_capable(hdev))
                flags |= LE_AD_SIM_LE_BREDR_CTRL;

        if (lmp_host_le_br_capable(hdev))
                flags |= LE_AD_SIM_LE_BREDR_HOST;

        if (flags) {
                BT_DBG("adv flags 0x%02x", flags);

                ptr[0] = 2;
                ptr[1] = EIR_FLAGS;
                ptr[2] = flags;

                ad_len += 3;
                ptr += 3;
        }

        if (hdev->adv_tx_power != HCI_TX_POWER_INVALID) {
                ptr[0] = 2;
                ptr[1] = EIR_TX_POWER;
                ptr[2] = (u8) hdev->adv_tx_power;

                ad_len += 3;
                ptr += 3;
        }

        name_len = strlen(hdev->dev_name);
        if (name_len > 0) {
                size_t max_len = HCI_MAX_AD_LENGTH - ad_len - 2;

                if (name_len > max_len) {
                        name_len = max_len;
                        ptr[1] = EIR_NAME_SHORT;
                } else
                        ptr[1] = EIR_NAME_COMPLETE;

                ptr[0] = name_len + 1;

                memcpy(ptr + 2, hdev->dev_name, name_len);

                ad_len += (name_len + 2);
                ptr += (name_len + 2);
        }

        return ad_len;
}

void hci_update_ad(struct hci_request *req)
{
        struct hci_dev *hdev = req->hdev;
        struct hci_cp_le_set_adv_data cp;
        u8 len;

        if (!lmp_le_capable(hdev))
                return;

        memset(&cp, 0, sizeof(cp));

        len = create_ad(hdev, cp.data);

        if (hdev->adv_data_len == len &&
            memcmp(cp.data, hdev->adv_data, len) == 0)
                return;

        memcpy(hdev->adv_data, cp.data, sizeof(cp.data));
        hdev->adv_data_len = len;

        cp.length = len;

        hci_req_add(req, HCI_OP_LE_SET_ADV_DATA, sizeof(cp), &cp);
}

/* ---- HCI ioctl helpers ---- */

int hci_dev_open(__u16 dev)
{
        struct hci_dev *hdev;
        int ret = 0;

        hdev = hci_dev_get(dev);
        if (!hdev)
                return -ENODEV;

        BT_DBG("%s %p", hdev->name, hdev);

        hci_req_lock(hdev);

        if (test_bit(HCI_UNREGISTER, &hdev->dev_flags)) {
                ret = -ENODEV;
                goto done;
        }

        if (hdev->rfkill && rfkill_blocked(hdev->rfkill)) {
                ret = -ERFKILL;
                goto done;
        }

        if (test_bit(HCI_UP, &hdev->flags)) {
                ret = -EALREADY;
                goto done;
        }

        if (hdev->open(hdev)) {
                ret = -EIO;
                goto done;
        }

        atomic_set(&hdev->cmd_cnt, 1);
        set_bit(HCI_INIT, &hdev->flags);

        if (hdev->setup && test_bit(HCI_SETUP, &hdev->dev_flags))
                ret = hdev->setup(hdev);

        if (!ret) {
                /* Treat all non BR/EDR controllers as raw devices if
                 * enable_hs is not set.
                 */
                if (hdev->dev_type != HCI_BREDR && !enable_hs)
                        set_bit(HCI_RAW, &hdev->flags);

                if (test_bit(HCI_QUIRK_RAW_DEVICE, &hdev->quirks))
                        set_bit(HCI_RAW, &hdev->flags);

                if (!test_bit(HCI_RAW, &hdev->flags))
                        ret = __hci_init(hdev);
        }

        clear_bit(HCI_INIT, &hdev->flags);

        if (!ret) {
                hci_dev_hold(hdev);
                set_bit(HCI_UP, &hdev->flags);
                hci_notify(hdev, HCI_DEV_UP);
                if (!test_bit(HCI_SETUP, &hdev->dev_flags) &&
                    mgmt_valid_hdev(hdev)) {
                        hci_dev_lock(hdev);
                        mgmt_powered(hdev, 1);
                        hci_dev_unlock(hdev);
                }
        } else {
                /* Init failed, cleanup */
                flush_work(&hdev->tx_work);
                flush_work(&hdev->cmd_work);
                flush_work(&hdev->rx_work);

                skb_queue_purge(&hdev->cmd_q);
                skb_queue_purge(&hdev->rx_q);

                if (hdev->flush)
                        hdev->flush(hdev);

                if (hdev->sent_cmd) {
                        kfree_skb(hdev->sent_cmd);
                        hdev->sent_cmd = NULL;
                }

                hdev->close(hdev);
                hdev->flags = 0;
        }

done:
        hci_req_unlock(hdev);
        hci_dev_put(hdev);
        return ret;
}

static int hci_dev_do_close(struct hci_dev *hdev)
{
        BT_DBG("%s %p", hdev->name, hdev);

        cancel_delayed_work(&hdev->power_off);

        hci_req_cancel(hdev, ENODEV);
        hci_req_lock(hdev);

        if (!test_and_clear_bit(HCI_UP, &hdev->flags)) {
                del_timer_sync(&hdev->cmd_timer);
                hci_req_unlock(hdev);
                return 0;
        }

        /* Flush RX and TX works */
        flush_work(&hdev->tx_work);
        flush_work(&hdev->rx_work);

        if (hdev->discov_timeout > 0) {
                cancel_delayed_work(&hdev->discov_off);
                hdev->discov_timeout = 0;
                clear_bit(HCI_DISCOVERABLE, &hdev->dev_flags);
        }

        if (test_and_clear_bit(HCI_SERVICE_CACHE, &hdev->dev_flags))
                cancel_delayed_work(&hdev->service_cache);

        cancel_delayed_work_sync(&hdev->le_scan_disable);

        hci_dev_lock(hdev);
        hci_inquiry_cache_flush(hdev);
        hci_conn_hash_flush(hdev);
        hci_dev_unlock(hdev);

        hci_notify(hdev, HCI_DEV_DOWN);

        if (hdev->flush)
                hdev->flush(hdev);

        /* Reset device */
        skb_queue_purge(&hdev->cmd_q);
        atomic_set(&hdev->cmd_cnt, 1);
        if (!test_bit(HCI_RAW, &hdev->flags) &&
            test_bit(HCI_QUIRK_RESET_ON_CLOSE, &hdev->quirks)) {
                set_bit(HCI_INIT, &hdev->flags);
                __hci_req_sync(hdev, hci_reset_req, 0, HCI_CMD_TIMEOUT);
                clear_bit(HCI_INIT, &hdev->flags);
        }

        /* flush cmd  work */
        flush_work(&hdev->cmd_work);

        /* Drop queues */
        skb_queue_purge(&hdev->rx_q);
        skb_queue_purge(&hdev->cmd_q);
        skb_queue_purge(&hdev->raw_q);

        /* Drop last sent command */
        if (hdev->sent_cmd) {
                del_timer_sync(&hdev->cmd_timer);
                kfree_skb(hdev->sent_cmd);
                hdev->sent_cmd = NULL;
        }

        kfree_skb(hdev->recv_evt);
        hdev->recv_evt = NULL;

        /* After this point our queues are empty
         * and no tasks are scheduled. */
        hdev->close(hdev);

        /* Clear flags */
        hdev->flags = 0;
        hdev->dev_flags &= ~HCI_PERSISTENT_MASK;

        if (!test_and_clear_bit(HCI_AUTO_OFF, &hdev->dev_flags) &&
            mgmt_valid_hdev(hdev)) {
                hci_dev_lock(hdev);
                mgmt_powered(hdev, 0);
                hci_dev_unlock(hdev);
        }

        /* Controller radio is available but is currently powered down */
        hdev->amp_status = 0;

        memset(hdev->eir, 0, sizeof(hdev->eir));
        memset(hdev->dev_class, 0, sizeof(hdev->dev_class));

        hci_req_unlock(hdev);

        hci_dev_put(hdev);
        return 0;
}

int hci_dev_close(__u16 dev)
{
        struct hci_dev *hdev;
        int err;

        hdev = hci_dev_get(dev);
        if (!hdev)
                return -ENODEV;

        if (test_and_clear_bit(HCI_AUTO_OFF, &hdev->dev_flags))
                cancel_delayed_work(&hdev->power_off);

        err = hci_dev_do_close(hdev);

        hci_dev_put(hdev);
        return err;
}

int hci_dev_reset(__u16 dev)
{
        struct hci_dev *hdev;
        int ret = 0;

        hdev = hci_dev_get(dev);
        if (!hdev)
                return -ENODEV;

        hci_req_lock(hdev);

        if (!test_bit(HCI_UP, &hdev->flags))
                goto done;

        /* Drop queues */
        skb_queue_purge(&hdev->rx_q);
        skb_queue_purge(&hdev->cmd_q);

        hci_dev_lock(hdev);
        hci_inquiry_cache_flush(hdev);
        hci_conn_hash_flush(hdev);
        hci_dev_unlock(hdev);

        if (hdev->flush)
                hdev->flush(hdev);

        atomic_set(&hdev->cmd_cnt, 1);
        hdev->acl_cnt = 0; hdev->sco_cnt = 0; hdev->le_cnt = 0;

        if (!test_bit(HCI_RAW, &hdev->flags))
                ret = __hci_req_sync(hdev, hci_reset_req, 0, HCI_INIT_TIMEOUT);

done:
        hci_req_unlock(hdev);
        hci_dev_put(hdev);
        return ret;
}

int hci_dev_reset_stat(__u16 dev)
{
        struct hci_dev *hdev;
        int ret = 0;

        hdev = hci_dev_get(dev);
        if (!hdev)
                return -ENODEV;

        memset(&hdev->stat, 0, sizeof(struct hci_dev_stats));

        hci_dev_put(hdev);

        return ret;
}

int hci_dev_cmd(unsigned int cmd, void __user *arg)
{
        struct hci_dev *hdev;
        struct hci_dev_req dr;
        int err = 0;

        if (copy_from_user(&dr, arg, sizeof(dr)))
                return -EFAULT;

        hdev = hci_dev_get(dr.dev_id);
        if (!hdev)
                return -ENODEV;

        switch (cmd) {
        case HCISETAUTH:
                err = hci_req_sync(hdev, hci_auth_req, dr.dev_opt,
                                   HCI_INIT_TIMEOUT);
                break;

        case HCISETENCRYPT:
                if (!lmp_encrypt_capable(hdev)) {
                        err = -EOPNOTSUPP;
                        break;
                }

                if (!test_bit(HCI_AUTH, &hdev->flags)) {
                        /* Auth must be enabled first */
                        err = hci_req_sync(hdev, hci_auth_req, dr.dev_opt,
                                           HCI_INIT_TIMEOUT);
                        if (err)
                                break;
                }

                err = hci_req_sync(hdev, hci_encrypt_req, dr.dev_opt,
                                   HCI_INIT_TIMEOUT);
                break;

        case HCISETSCAN:
                err = hci_req_sync(hdev, hci_scan_req, dr.dev_opt,
                                   HCI_INIT_TIMEOUT);
                break;

        case HCISETLINKPOL:
                err = hci_req_sync(hdev, hci_linkpol_req, dr.dev_opt,
                                   HCI_INIT_TIMEOUT);
                break;

        case HCISETLINKMODE:
                hdev->link_mode = ((__u16) dr.dev_opt) &
                                        (HCI_LM_MASTER | HCI_LM_ACCEPT);
                break;

        case HCISETPTYPE:
                hdev->pkt_type = (__u16) dr.dev_opt;
                break;

        case HCISETACLMTU:
                hdev->acl_mtu  = *((__u16 *) &dr.dev_opt + 1);
                hdev->acl_pkts = *((__u16 *) &dr.dev_opt + 0);
                break;

        case HCISETSCOMTU:
                hdev->sco_mtu  = *((__u16 *) &dr.dev_opt + 1);
                hdev->sco_pkts = *((__u16 *) &dr.dev_opt + 0);
                break;

        default:
                err = -EINVAL;
                break;
        }

        hci_dev_put(hdev);
        return err;
}

int hci_get_dev_list(void __user *arg)
{
        struct hci_dev *hdev;
        struct hci_dev_list_req *dl;
        struct hci_dev_req *dr;
        int n = 0, size, err;
        __u16 dev_num;

        if (get_user(dev_num, (__u16 __user *) arg))
                return -EFAULT;

        if (!dev_num || dev_num > (PAGE_SIZE * 2) / sizeof(*dr))
                return -EINVAL;

        size = sizeof(*dl) + dev_num * sizeof(*dr);

        dl = kzalloc(size, GFP_KERNEL);
        if (!dl)
                return -ENOMEM;

        dr = dl->dev_req;

        read_lock(&hci_dev_list_lock);
        list_for_each_entry(hdev, &hci_dev_list, list) {
                if (test_and_clear_bit(HCI_AUTO_OFF, &hdev->dev_flags))
                        cancel_delayed_work(&hdev->power_off);

                if (!test_bit(HCI_MGMT, &hdev->dev_flags))
                        set_bit(HCI_PAIRABLE, &hdev->dev_flags);

                (dr + n)->dev_id  = hdev->id;
                (dr + n)->dev_opt = hdev->flags;

                if (++n >= dev_num)
                        break;
        }
        read_unlock(&hci_dev_list_lock);

        dl->dev_num = n;
        size = sizeof(*dl) + n * sizeof(*dr);

        err = copy_to_user(arg, dl, size);
        kfree(dl);

        return err ? -EFAULT : 0;
}

int hci_get_dev_info(void __user *arg)
{
        struct hci_dev *hdev;
        struct hci_dev_info di;
        int err = 0;

        if (copy_from_user(&di, arg, sizeof(di)))
                return -EFAULT;

        hdev = hci_dev_get(di.dev_id);
        if (!hdev)
                return -ENODEV;

        if (test_and_clear_bit(HCI_AUTO_OFF, &hdev->dev_flags))
                cancel_delayed_work_sync(&hdev->power_off);

        if (!test_bit(HCI_MGMT, &hdev->dev_flags))
                set_bit(HCI_PAIRABLE, &hdev->dev_flags);

        strcpy(di.name, hdev->name);
        di.bdaddr   = hdev->bdaddr;
        di.type     = (hdev->bus & 0x0f) | (hdev->dev_type << 4);
        di.flags    = hdev->flags;
        di.pkt_type = hdev->pkt_type;
        if (lmp_bredr_capable(hdev)) {
                di.acl_mtu  = hdev->acl_mtu;
                di.acl_pkts = hdev->acl_pkts;
                di.sco_mtu  = hdev->sco_mtu;
                di.sco_pkts = hdev->sco_pkts;
        } else {
                di.acl_mtu  = hdev->le_mtu;
                di.acl_pkts = hdev->le_pkts;
                di.sco_mtu  = 0;
                di.sco_pkts = 0;
        }
        di.link_policy = hdev->link_policy;
        di.link_mode   = hdev->link_mode;

        memcpy(&di.stat, &hdev->stat, sizeof(di.stat));
        memcpy(&di.features, &hdev->features, sizeof(di.features));

        if (copy_to_user(arg, &di, sizeof(di)))
                err = -EFAULT;

        hci_dev_put(hdev);

        return err;
}

/* ---- Interface to HCI drivers ---- */

static int hci_rfkill_set_block(void *data, bool blocked)
{
        struct hci_dev *hdev = data;

        BT_DBG("%p name %s blocked %d", hdev, hdev->name, blocked);

        if (!blocked)
                return 0;

        hci_dev_do_close(hdev);

        return 0;
}

static const struct rfkill_ops hci_rfkill_ops = {
        .set_block = hci_rfkill_set_block,
};

static void hci_power_on(struct work_struct *work)
{
        struct hci_dev *hdev = container_of(work, struct hci_dev, power_on);
        int err;

        BT_DBG("%s", hdev->name);

        err = hci_dev_open(hdev->id);
        if (err < 0) {
                mgmt_set_powered_failed(hdev, err);
                return;
        }

        if (test_bit(HCI_AUTO_OFF, &hdev->dev_flags))
                queue_delayed_work(hdev->req_workqueue, &hdev->power_off,
                                   HCI_AUTO_OFF_TIMEOUT);

        if (test_and_clear_bit(HCI_SETUP, &hdev->dev_flags))
                mgmt_index_added(hdev);
}

static void hci_power_off(struct work_struct *work)
{
        struct hci_dev *hdev = container_of(work, struct hci_dev,
                                            power_off.work);

        BT_DBG("%s", hdev->name);

        hci_dev_do_close(hdev);
}

static void hci_discov_off(struct work_struct *work)
{
        struct hci_dev *hdev;
        u8 scan = SCAN_PAGE;

        hdev = container_of(work, struct hci_dev, discov_off.work);

        BT_DBG("%s", hdev->name);

        hci_dev_lock(hdev);

        hci_send_cmd(hdev, HCI_OP_WRITE_SCAN_ENABLE, sizeof(scan), &scan);

        hdev->discov_timeout = 0;

        hci_dev_unlock(hdev);
}

int hci_uuids_clear(struct hci_dev *hdev)
{
        struct bt_uuid *uuid, *tmp;

        list_for_each_entry_safe(uuid, tmp, &hdev->uuids, list) {
                list_del(&uuid->list);
                kfree(uuid);
        }

        return 0;
}

int hci_link_keys_clear(struct hci_dev *hdev)
{
        struct list_head *p, *n;

        list_for_each_safe(p, n, &hdev->link_keys) {
                struct link_key *key;

                key = list_entry(p, struct link_key, list);

                list_del(p);
                kfree(key);
        }

        return 0;
}

int hci_smp_ltks_clear(struct hci_dev *hdev)
{
        struct smp_ltk *k, *tmp;

        list_for_each_entry_safe(k, tmp, &hdev->long_term_keys, list) {
                list_del(&k->list);
                kfree(k);
        }

        return 0;
}

struct link_key *hci_find_link_key(struct hci_dev *hdev, bdaddr_t *bdaddr)
{
        struct link_key *k;

        list_for_each_entry(k, &hdev->link_keys, list)
                if (bacmp(bdaddr, &k->bdaddr) == 0)
                        return k;

        return NULL;
}

static bool hci_persistent_key(struct hci_dev *hdev, struct hci_conn *conn,
                               u8 key_type, u8 old_key_type)
{
        /* Legacy key */
        if (key_type < 0x03)
                return true;

        /* Debug keys are insecure so don't store them persistently */
        if (key_type == HCI_LK_DEBUG_COMBINATION)
                return false;

        /* Changed combination key and there's no previous one */
        if (key_type == HCI_LK_CHANGED_COMBINATION && old_key_type == 0xff)
                return false;

        /* Security mode 3 case */
        if (!conn)
                return true;

        /* Neither local nor remote side had no-bonding as requirement */
        if (conn->auth_type > 0x01 && conn->remote_auth > 0x01)
                return true;

        /* Local side had dedicated bonding as requirement */
        if (conn->auth_type == 0x02 || conn->auth_type == 0x03)
                return true;

        /* Remote side had dedicated bonding as requirement */
        if (conn->remote_auth == 0x02 || conn->remote_auth == 0x03)
                return true;

        /* If none of the above criteria match, then don't store the key
         * persistently */
        return false;
}

struct smp_ltk *hci_find_ltk(struct hci_dev *hdev, __le16 ediv, u8 rand[8])
{
        struct smp_ltk *k;

        list_for_each_entry(k, &hdev->long_term_keys, list) {
                if (k->ediv != ediv ||
                    memcmp(rand, k->rand, sizeof(k->rand)))
                        continue;

                return k;
        }

        return NULL;
}

struct smp_ltk *hci_find_ltk_by_addr(struct hci_dev *hdev, bdaddr_t *bdaddr,
                                     u8 addr_type)
{
        struct smp_ltk *k;

        list_for_each_entry(k, &hdev->long_term_keys, list)
                if (addr_type == k->bdaddr_type &&
                    bacmp(bdaddr, &k->bdaddr) == 0)
                        return k;

        return NULL;
}

int hci_add_link_key(struct hci_dev *hdev, struct hci_conn *conn, int new_key,
                     bdaddr_t *bdaddr, u8 *val, u8 type, u8 pin_len)
{
        struct link_key *key, *old_key;
        u8 old_key_type;
        bool persistent;

        old_key = hci_find_link_key(hdev, bdaddr);
        if (old_key) {
                old_key_type = old_key->type;
                key = old_key;
        } else {
                old_key_type = conn ? conn->key_type : 0xff;
                key = kzalloc(sizeof(*key), GFP_ATOMIC);
                if (!key)
                        return -ENOMEM;
                list_add(&key->list, &hdev->link_keys);
        }

        BT_DBG("%s key for %pMR type %u", hdev->name, bdaddr, type);

        /* Some buggy controller combinations generate a changed
         * combination key for legacy pairing even when there's no
         * previous key */
        if (type == HCI_LK_CHANGED_COMBINATION &&
            (!conn || conn->remote_auth == 0xff) && old_key_type == 0xff) {
                type = HCI_LK_COMBINATION;
                if (conn)
                        conn->key_type = type;
        }

        bacpy(&key->bdaddr, bdaddr);
        memcpy(key->val, val, HCI_LINK_KEY_SIZE);
        key->pin_len = pin_len;

        if (type == HCI_LK_CHANGED_COMBINATION)
                key->type = old_key_type;
        else
                key->type = type;

        if (!new_key)
                return 0;

        persistent = hci_persistent_key(hdev, conn, type, old_key_type);

        mgmt_new_link_key(hdev, key, persistent);

        if (conn)
                conn->flush_key = !persistent;

        return 0;
}

int hci_add_ltk(struct hci_dev *hdev, bdaddr_t *bdaddr, u8 addr_type, u8 type,
                int new_key, u8 authenticated, u8 tk[16], u8 enc_size, __le16
                ediv, u8 rand[8])
{
        struct smp_ltk *key, *old_key;

        if (!(type & HCI_SMP_STK) && !(type & HCI_SMP_LTK))
                return 0;

        old_key = hci_find_ltk_by_addr(hdev, bdaddr, addr_type);
        if (old_key)
                key = old_key;
        else {
                key = kzalloc(sizeof(*key), GFP_ATOMIC);
                if (!key)
                        return -ENOMEM;
                list_add(&key->list, &hdev->long_term_keys);
        }

        bacpy(&key->bdaddr, bdaddr);
        key->bdaddr_type = addr_type;
        memcpy(key->val, tk, sizeof(key->val));
        key->authenticated = authenticated;
        key->ediv = ediv;
        key->enc_size = enc_size;
        key->type = type;
        memcpy(key->rand, rand, sizeof(key->rand));

        if (!new_key)
                return 0;

        if (type & HCI_SMP_LTK)
                mgmt_new_ltk(hdev, key, 1);

        return 0;
}

int hci_remove_link_key(struct hci_dev *hdev, bdaddr_t *bdaddr)
{
        struct link_key *key;

        key = hci_find_link_key(hdev, bdaddr);
        if (!key)
                return -ENOENT;

        BT_DBG("%s removing %pMR", hdev->name, bdaddr);

        list_del(&key->list);
        kfree(key);

        return 0;
}

int hci_remove_ltk(struct hci_dev *hdev, bdaddr_t *bdaddr)
{
        struct smp_ltk *k, *tmp;

        list_for_each_entry_safe(k, tmp, &hdev->long_term_keys, list) {
                if (bacmp(bdaddr, &k->bdaddr))
                        continue;

                BT_DBG("%s removing %pMR", hdev->name, bdaddr);

                list_del(&k->list);
                kfree(k);
        }

        return 0;
}

/* HCI command timer function */
static void hci_cmd_timeout(unsigned long arg)
{
        struct hci_dev *hdev = (void *) arg;

        if (hdev->sent_cmd) {
                struct hci_command_hdr *sent = (void *) hdev->sent_cmd->data;
                u16 opcode = __le16_to_cpu(sent->opcode);

                BT_ERR("%s command 0x%4.4x tx timeout", hdev->name, opcode);
        } else {
                BT_ERR("%s command tx timeout", hdev->name);
        }

        atomic_set(&hdev->cmd_cnt, 1);
        queue_work(hdev->workqueue, &hdev->cmd_work);
}

struct oob_data *hci_find_remote_oob_data(struct hci_dev *hdev,
                                          bdaddr_t *bdaddr)
{
        struct oob_data *data;

        list_for_each_entry(data, &hdev->remote_oob_data, list)
                if (bacmp(bdaddr, &data->bdaddr) == 0)
                        return data;

        return NULL;
}

int hci_remove_remote_oob_data(struct hci_dev *hdev, bdaddr_t *bdaddr)
{
        struct oob_data *data;

        data = hci_find_remote_oob_data(hdev, bdaddr);
        if (!data)
                return -ENOENT;

        BT_DBG("%s removing %pMR", hdev->name, bdaddr);

        list_del(&data->list);
        kfree(data);

        return 0;
}

int hci_remote_oob_data_clear(struct hci_dev *hdev)
{
        struct oob_data *data, *n;

        list_for_each_entry_safe(data, n, &hdev->remote_oob_data, list) {
                list_del(&data->list);
                kfree(data);
        }

        return 0;
}

int hci_add_remote_oob_data(struct hci_dev *hdev, bdaddr_t *bdaddr, u8 *hash,
                            u8 *randomizer)
{
        struct oob_data *data;

        data = hci_find_remote_oob_data(hdev, bdaddr);

        if (!data) {
                data = kmalloc(sizeof(*data), GFP_ATOMIC);
                if (!data)
                        return -ENOMEM;

                bacpy(&data->bdaddr, bdaddr);
                list_add(&data->list, &hdev->remote_oob_data);
        }

        memcpy(data->hash, hash, sizeof(data->hash));
        memcpy(data->randomizer, randomizer, sizeof(data->randomizer));

        BT_DBG("%s for %pMR", hdev->name, bdaddr);

        return 0;
}

struct bdaddr_list *hci_blacklist_lookup(struct hci_dev *hdev, bdaddr_t *bdaddr)
{
        struct bdaddr_list *b;

        list_for_each_entry(b, &hdev->blacklist, list)
                if (bacmp(bdaddr, &b->bdaddr) == 0)
                        return b;

        return NULL;
}

int hci_blacklist_clear(struct hci_dev *hdev)
{
        struct list_head *p, *n;

        list_for_each_safe(p, n, &hdev->blacklist) {
                struct bdaddr_list *b;

                b = list_entry(p, struct bdaddr_list, list);

                list_del(p);
                kfree(b);
        }

        return 0;
}

int hci_blacklist_add(struct hci_dev *hdev, bdaddr_t *bdaddr, u8 type)
{
        struct bdaddr_list *entry;

        if (bacmp(bdaddr, BDADDR_ANY) == 0)
                return -EBADF;

        if (hci_blacklist_lookup(hdev, bdaddr))
                return -EEXIST;

        entry = kzalloc(sizeof(struct bdaddr_list), GFP_KERNEL);
        if (!entry)
                return -ENOMEM;

        bacpy(&entry->bdaddr, bdaddr);

        list_add(&entry->list, &hdev->blacklist);

        return mgmt_device_blocked(hdev, bdaddr, type);
}

int hci_blacklist_del(struct hci_dev *hdev, bdaddr_t *bdaddr, u8 type)
{
        struct bdaddr_list *entry;

        if (bacmp(bdaddr, BDADDR_ANY) == 0)
                return hci_blacklist_clear(hdev);

        entry = hci_blacklist_lookup(hdev, bdaddr);
        if (!entry)
                return -ENOENT;

        list_del(&entry->list);
        kfree(entry);

        return mgmt_device_unblocked(hdev, bdaddr, type);

}

static void inquiry_complete(struct hci_dev *hdev, u8 status)
{
        if (status) {
                BT_ERR("Failed to start inquiry: status %d", status);

                hci_dev_lock(hdev);
                hci_discovery_set_state(hdev, DISCOVERY_STOPPED);
                hci_dev_unlock(hdev);
                return;
        }
}

static void le_scan_disable_work_complete(struct hci_dev *hdev, u8 status)
{
        /* General inquiry access code (GIAC) */
        u8 lap[3] = { 0x33, 0x8b, 0x9e };
        struct hci_request req;
        struct hci_cp_inquiry cp;
        int err;

        if (status) {
                BT_ERR("Failed to disable LE scanning: status %d", status);
                return;
        }

        switch (hdev->discovery.type) {
        case DISCOV_TYPE_LE:
                hci_dev_lock(hdev);
                hci_discovery_set_state(hdev, DISCOVERY_STOPPED);
                hci_dev_unlock(hdev);
                break;

        case DISCOV_TYPE_INTERLEAVED:
                hci_req_init(&req, hdev);

                memset(&cp, 0, sizeof(cp));
                memcpy(&cp.lap, lap, sizeof(cp.lap));
                cp.length = DISCOV_INTERLEAVED_INQUIRY_LEN;
                hci_req_add(&req, HCI_OP_INQUIRY, sizeof(cp), &cp);

                hci_dev_lock(hdev);

                hci_inquiry_cache_flush(hdev);

                err = hci_req_run(&req, inquiry_complete);
                if (err) {
                        BT_ERR("Inquiry request failed: err %d", err);
                        hci_discovery_set_state(hdev, DISCOVERY_STOPPED);
                }

                hci_dev_unlock(hdev);
                break;
        }
}

static void le_scan_disable_work(struct work_struct *work)
{
        struct hci_dev *hdev = container_of(work, struct hci_dev,
                                            le_scan_disable.work);
        struct hci_cp_le_set_scan_enable cp;
        struct hci_request req;
        int err;

        BT_DBG("%s", hdev->name);

        hci_req_init(&req, hdev);

        memset(&cp, 0, sizeof(cp));
        cp.enable = LE_SCAN_DISABLE;
        hci_req_add(&req, HCI_OP_LE_SET_SCAN_ENABLE, sizeof(cp), &cp);

        err = hci_req_run(&req, le_scan_disable_work_complete);
        if (err)
                BT_ERR("Disable LE scanning request failed: err %d", err);
}

/* Alloc HCI device */
struct hci_dev *hci_alloc_dev(void)
{
        struct hci_dev *hdev;

        hdev = kzalloc(sizeof(struct hci_dev), GFP_KERNEL);
        if (!hdev)
                return NULL;

        hdev->pkt_type  = (HCI_DM1 | HCI_DH1 | HCI_HV1);
        hdev->esco_type = (ESCO_HV1);
        hdev->link_mode = (HCI_LM_ACCEPT);
        hdev->io_capability = 0x03; /* No Input No Output */
        hdev->inq_tx_power = HCI_TX_POWER_INVALID;
        hdev->adv_tx_power = HCI_TX_POWER_INVALID;

        hdev->sniff_max_interval = 800;
        hdev->sniff_min_interval = 80;

        mutex_init(&hdev->lock);
        mutex_init(&hdev->req_lock);

        INIT_LIST_HEAD(&hdev->mgmt_pending);
        INIT_LIST_HEAD(&hdev->blacklist);
        INIT_LIST_HEAD(&hdev->uuids);
        INIT_LIST_HEAD(&hdev->link_keys);
        INIT_LIST_HEAD(&hdev->long_term_keys);
        INIT_LIST_HEAD(&hdev->remote_oob_data);
        INIT_LIST_HEAD(&hdev->conn_hash.list);

        INIT_WORK(&hdev->rx_work, hci_rx_work);
        INIT_WORK(&hdev->cmd_work, hci_cmd_work);
        INIT_WORK(&hdev->tx_work, hci_tx_work);
        INIT_WORK(&hdev->power_on, hci_power_on);

        INIT_DELAYED_WORK(&hdev->power_off, hci_power_off);
        INIT_DELAYED_WORK(&hdev->discov_off, hci_discov_off);
        INIT_DELAYED_WORK(&hdev->le_scan_disable, le_scan_disable_work);

        skb_queue_head_init(&hdev->rx_q);
        skb_queue_head_init(&hdev->cmd_q);
        skb_queue_head_init(&hdev->raw_q);

        init_waitqueue_head(&hdev->req_wait_q);

        setup_timer(&hdev->cmd_timer, hci_cmd_timeout, (unsigned long) hdev);

        hci_init_sysfs(hdev);
        discovery_init(hdev);

        return hdev;
}
EXPORT_SYMBOL(hci_alloc_dev);

/* Free HCI device */
void hci_free_dev(struct hci_dev *hdev)
{
        /* will free via device release */
        put_device(&hdev->dev);
}
EXPORT_SYMBOL(hci_free_dev);

/* Register HCI device */
int hci_register_dev(struct hci_dev *hdev)
{
        int id, error;

        if (!hdev->open || !hdev->close)
                return -EINVAL;

        /* Do not allow HCI_AMP devices to register at index 0,
         * so the index can be used as the AMP controller ID.
         */
        switch (hdev->dev_type) {
        case HCI_BREDR:
                id = ida_simple_get(&hci_index_ida, 0, 0, GFP_KERNEL);
                break;
        case HCI_AMP:
                id = ida_simple_get(&hci_index_ida, 1, 0, GFP_KERNEL);
                break;
        default:
                return -EINVAL;
        }

        if (id < 0)
                return id;

        sprintf(hdev->name, "hci%d", id);
        hdev->id = id;

        BT_DBG("%p name %s bus %d", hdev, hdev->name, hdev->bus);

        hdev->workqueue = alloc_workqueue("%s", WQ_HIGHPRI | WQ_UNBOUND |
                                          WQ_MEM_RECLAIM, 1, hdev->name);
        if (!hdev->workqueue) {
                error = -ENOMEM;
                goto err;
        }

        hdev->req_workqueue = alloc_workqueue("%s", WQ_HIGHPRI | WQ_UNBOUND |
                                              WQ_MEM_RECLAIM, 1, hdev->name);
        if (!hdev->req_workqueue) {
                destroy_workqueue(hdev->workqueue);
                error = -ENOMEM;
                goto err;
        }

        error = hci_add_sysfs(hdev);
        if (error < 0)
                goto err_wqueue;

        hdev->rfkill = rfkill_alloc(hdev->name, &hdev->dev,
                                    RFKILL_TYPE_BLUETOOTH, &hci_rfkill_ops,
                                    hdev);
        if (hdev->rfkill) {
                if (rfkill_register(hdev->rfkill) < 0) {
                        rfkill_destroy(hdev->rfkill);
                        hdev->rfkill = NULL;
                }
        }

        set_bit(HCI_SETUP, &hdev->dev_flags);

        if (hdev->dev_type != HCI_AMP)
                set_bit(HCI_AUTO_OFF, &hdev->dev_flags);

        write_lock(&hci_dev_list_lock);
        list_add(&hdev->list, &hci_dev_list);
        write_unlock(&hci_dev_list_lock);

        hci_notify(hdev, HCI_DEV_REG);
        hci_dev_hold(hdev);

        queue_work(hdev->req_workqueue, &hdev->power_on);

        return id;

err_wqueue:
        destroy_workqueue(hdev->workqueue);
        destroy_workqueue(hdev->req_workqueue);
err:
        ida_simple_remove(&hci_index_ida, hdev->id);

        return error;
}
EXPORT_SYMBOL(hci_register_dev);

/* Unregister HCI device */
void hci_unregister_dev(struct hci_dev *hdev)
{
        int i, id;

        BT_DBG("%p name %s bus %d", hdev, hdev->name, hdev->bus);

        set_bit(HCI_UNREGISTER, &hdev->dev_flags);

        id = hdev->id;

        write_lock(&hci_dev_list_lock);
        list_del(&hdev->list);
        write_unlock(&hci_dev_list_lock);

        hci_dev_do_close(hdev);

        for (i = 0; i < NUM_REASSEMBLY; i++)
                kfree_skb(hdev->reassembly[i]);

        cancel_work_sync(&hdev->power_on);

        if (!test_bit(HCI_INIT, &hdev->flags) &&
            !test_bit(HCI_SETUP, &hdev->dev_flags)) {
                hci_dev_lock(hdev);
                mgmt_index_removed(hdev);
                hci_dev_unlock(hdev);
        }

        /* mgmt_index_removed should take care of emptying the
         * pending list */
        BUG_ON(!list_empty(&hdev->mgmt_pending));

        hci_notify(hdev, HCI_DEV_UNREG);

        if (hdev->rfkill) {
                rfkill_unregister(hdev->rfkill);
                rfkill_destroy(hdev->rfkill);
        }

        hci_del_sysfs(hdev);

        destroy_workqueue(hdev->workqueue);
        destroy_workqueue(hdev->req_workqueue);

        hci_dev_lock(hdev);
        hci_blacklist_clear(hdev);
        hci_uuids_clear(hdev);
        hci_link_keys_clear(hdev);
        hci_smp_ltks_clear(hdev);
        hci_remote_oob_data_clear(hdev);
        hci_dev_unlock(hdev);

        hci_dev_put(hdev);

        ida_simple_remove(&hci_index_ida, id);
}
EXPORT_SYMBOL(hci_unregister_dev);

/* Suspend HCI device */
int hci_suspend_dev(struct hci_dev *hdev)
{
        hci_notify(hdev, HCI_DEV_SUSPEND);
        return 0;
}
EXPORT_SYMBOL(hci_suspend_dev);

/* Resume HCI device */
int hci_resume_dev(struct hci_dev *hdev)
{
        hci_notify(hdev, HCI_DEV_RESUME);
        return 0;
}
EXPORT_SYMBOL(hci_resume_dev);

/* Receive frame from HCI drivers */
int hci_recv_frame(struct sk_buff *skb)
{
        struct hci_dev *hdev = (struct hci_dev *) skb->dev;
        if (!hdev || (!test_bit(HCI_UP, &hdev->flags)
                      && !test_bit(HCI_INIT, &hdev->flags))) {
                kfree_skb(skb);
                return -ENXIO;
        }

        /* Incoming skb */
        bt_cb(skb)->incoming = 1;

        /* Time stamp */
        __net_timestamp(skb);

        skb_queue_tail(&hdev->rx_q, skb);
        queue_work(hdev->workqueue, &hdev->rx_work);

        return 0;
}
EXPORT_SYMBOL(hci_recv_frame);

static int hci_reassembly(struct hci_dev *hdev, int type, void *data,
                          int count, __u8 index)
{
        int len = 0;
        int hlen = 0;
        int remain = count;
        struct sk_buff *skb;
        struct bt_skb_cb *scb;

        if ((type < HCI_ACLDATA_PKT || type > HCI_EVENT_PKT) ||
            index >= NUM_REASSEMBLY)
                return -EILSEQ;

        skb = hdev->reassembly[index];

        if (!skb) {
                switch (type) {
                case HCI_ACLDATA_PKT:
                        len = HCI_MAX_FRAME_SIZE;
                        hlen = HCI_ACL_HDR_SIZE;
                        break;
                case HCI_EVENT_PKT:
                        len = HCI_MAX_EVENT_SIZE;
                        hlen = HCI_EVENT_HDR_SIZE;
                        break;
                case HCI_SCODATA_PKT:
                        len = HCI_MAX_SCO_SIZE;
                        hlen = HCI_SCO_HDR_SIZE;
                        break;
                }

                skb = bt_skb_alloc(len, GFP_ATOMIC);
                if (!skb)
                        return -ENOMEM;

                scb = (void *) skb->cb;
                scb->expect = hlen;
                scb->pkt_type = type;

                skb->dev = (void *) hdev;
                hdev->reassembly[index] = skb;
        }

        while (count) {
                scb = (void *) skb->cb;
                len = min_t(uint, scb->expect, count);

                memcpy(skb_put(skb, len), data, len);

                count -= len;
                data += len;
                scb->expect -= len;
                remain = count;

                switch (type) {
                case HCI_EVENT_PKT:
                        if (skb->len == HCI_EVENT_HDR_SIZE) {
                                struct hci_event_hdr *h = hci_event_hdr(skb);
                                scb->expect = h->plen;

                                if (skb_tailroom(skb) < scb->expect) {
                                        kfree_skb(skb);
                                        hdev->reassembly[index] = NULL;
                                        return -ENOMEM;
                                }
                        }
                        break;

                case HCI_ACLDATA_PKT:
                        if (skb->len  == HCI_ACL_HDR_SIZE) {
                                struct hci_acl_hdr *h = hci_acl_hdr(skb);
                                scb->expect = __le16_to_cpu(h->dlen);

                                if (skb_tailroom(skb) < scb->expect) {
                                        kfree_skb(skb);
                                        hdev->reassembly[index] = NULL;
                                        return -ENOMEM;
                                }
                        }
                        break;

                case HCI_SCODATA_PKT:
                        if (skb->len == HCI_SCO_HDR_SIZE) {
                                struct hci_sco_hdr *h = hci_sco_hdr(skb);
                                scb->expect = h->dlen;

                                if (skb_tailroom(skb) < scb->expect) {
                                        kfree_skb(skb);
                                        hdev->reassembly[index] = NULL;
                                        return -ENOMEM;
                                }
                        }
                        break;
                }

                if (scb->expect == 0) {
                        /* Complete frame */

                        bt_cb(skb)->pkt_type = type;
                        hci_recv_frame(skb);

                        hdev->reassembly[index] = NULL;
                        return remain;
                }
        }

        return remain;
}

int hci_recv_fragment(struct hci_dev *hdev, int type, void *data, int count)
{
        int rem = 0;

        if (type < HCI_ACLDATA_PKT || type > HCI_EVENT_PKT)
                return -EILSEQ;

        while (count) {
                rem = hci_reassembly(hdev, type, data, count, type - 1);
                if (rem < 0)
                        return rem;

                data += (count - rem);
                count = rem;
        }

        return rem;
}
EXPORT_SYMBOL(hci_recv_fragment);

#define STREAM_REASSEMBLY 0

int hci_recv_stream_fragment(struct hci_dev *hdev, void *data, int count)
{
        int type;
        int rem = 0;

        while (count) {
                struct sk_buff *skb = hdev->reassembly[STREAM_REASSEMBLY];

                if (!skb) {
                        struct { char type; } *pkt;

                        /* Start of the frame */
                        pkt = data;
                        type = pkt->type;

                        data++;
                        count--;
                } else
                        type = bt_cb(skb)->pkt_type;

                rem = hci_reassembly(hdev, type, data, count,
                                     STREAM_REASSEMBLY);
                if (rem < 0)
                        return rem;

                data += (count - rem);
                count = rem;
        }

        return rem;
}
EXPORT_SYMBOL(hci_recv_stream_fragment);

/* ---- Interface to upper protocols ---- */

int hci_register_cb(struct hci_cb *cb)
{
        BT_DBG("%p name %s", cb, cb->name);

        write_lock(&hci_cb_list_lock);
        list_add(&cb->list, &hci_cb_list);
        write_unlock(&hci_cb_list_lock);

        return 0;
}
EXPORT_SYMBOL(hci_register_cb);

int hci_unregister_cb(struct hci_cb *cb)
{
        BT_DBG("%p name %s", cb, cb->name);

        write_lock(&hci_cb_list_lock);
        list_del(&cb->list);
        write_unlock(&hci_cb_list_lock);

        return 0;
}
EXPORT_SYMBOL(hci_unregister_cb);

static int hci_send_frame(struct sk_buff *skb)
{
        struct hci_dev *hdev = (struct hci_dev *) skb->dev;

        if (!hdev) {
                kfree_skb(skb);
                return -ENODEV;
        }

        BT_DBG("%s type %d len %d", hdev->name, bt_cb(skb)->pkt_type, skb->len);

        /* Time stamp */
        __net_timestamp(skb);

        /* Send copy to monitor */
        hci_send_to_monitor(hdev, skb);

        if (atomic_read(&hdev->promisc)) {
                /* Send copy to the sockets */
                hci_send_to_sock(hdev, skb);
        }

        /* Get rid of skb owner, prior to sending to the driver. */
        skb_orphan(skb);

        return hdev->send(skb);
}

void hci_req_init(struct hci_request *req, struct hci_dev *hdev)
{
        skb_queue_head_init(&req->cmd_q);
        req->hdev = hdev;
        req->err = 0;
}

int hci_req_run(struct hci_request *req, hci_req_complete_t complete)
{
        struct hci_dev *hdev = req->hdev;
        struct sk_buff *skb;
        unsigned long flags;

        BT_DBG("length %u", skb_queue_len(&req->cmd_q));

        /* If an error occured during request building, remove all HCI
         * commands queued on the HCI request queue.
         */
        if (req->err) {
                skb_queue_purge(&req->cmd_q);
                return req->err;
        }

        /* Do not allow empty requests */
        if (skb_queue_empty(&req->cmd_q))
                return -ENODATA;

        skb = skb_peek_tail(&req->cmd_q);
        bt_cb(skb)->req.complete = complete;

        spin_lock_irqsave(&hdev->cmd_q.lock, flags);
        skb_queue_splice_tail(&req->cmd_q, &hdev->cmd_q);
        spin_unlock_irqrestore(&hdev->cmd_q.lock, flags);

        queue_work(hdev->workqueue, &hdev->cmd_work);

        return 0;
}

static struct sk_buff *hci_prepare_cmd(struct hci_dev *hdev, u16 opcode,
                                       u32 plen, const void *param)
{
        int len = HCI_COMMAND_HDR_SIZE + plen;
        struct hci_command_hdr *hdr;
        struct sk_buff *skb;

        skb = bt_skb_alloc(len, GFP_ATOMIC);
        if (!skb)
                return NULL;

        hdr = (struct hci_command_hdr *) skb_put(skb, HCI_COMMAND_HDR_SIZE);
        hdr->opcode = cpu_to_le16(opcode);
        hdr->plen   = plen;

        if (plen)
                memcpy(skb_put(skb, plen), param, plen);

        BT_DBG("skb len %d", skb->len);

        bt_cb(skb)->pkt_type = HCI_COMMAND_PKT;
        skb->dev = (void *) hdev;

        return skb;
}

/* Send HCI command */
int hci_send_cmd(struct hci_dev *hdev, __u16 opcode, __u32 plen,
                 const void *param)
{
        struct sk_buff *skb;

        BT_DBG("%s opcode 0x%4.4x plen %d", hdev->name, opcode, plen);

        skb = hci_prepare_cmd(hdev, opcode, plen, param);
        if (!skb) {
                BT_ERR("%s no memory for command", hdev->name);
                return -ENOMEM;
        }

        /* Stand-alone HCI commands must be flaged as
         * single-command requests.
         */
        bt_cb(skb)->req.start = true;

        skb_queue_tail(&hdev->cmd_q, skb);
        queue_work(hdev->workqueue, &hdev->cmd_work);

        return 0;
}

/* Queue a command to an asynchronous HCI request */
void hci_req_add_ev(struct hci_request *req, u16 opcode, u32 plen,
                    const void *param, u8 event)
{
        struct hci_dev *hdev = req->hdev;
        struct sk_buff *skb;

        BT_DBG("%s opcode 0x%4.4x plen %d", hdev->name, opcode, plen);

        /* If an error occured during request building, there is no point in
         * queueing the HCI command. We can simply return.
         */
        if (req->err)
                return;

        skb = hci_prepare_cmd(hdev, opcode, plen, param);
        if (!skb) {
                BT_ERR("%s no memory for command (opcode 0x%4.4x)",
                       hdev->name, opcode);
                req->err = -ENOMEM;
                return;
        }

        if (skb_queue_empty(&req->cmd_q))
                bt_cb(skb)->req.start = true;

        bt_cb(skb)->req.event = event;

        skb_queue_tail(&req->cmd_q, skb);
}

void hci_req_add(struct hci_request *req, u16 opcode, u32 plen,
                 const void *param)
{
        hci_req_add_ev(req, opcode, plen, param, 0);
}

/* Get data from the previously sent command */
void *hci_sent_cmd_data(struct hci_dev *hdev, __u16 opcode)
{
        struct hci_command_hdr *hdr;

        if (!hdev->sent_cmd)
                return NULL;

        hdr = (void *) hdev->sent_cmd->data;

        if (hdr->opcode != cpu_to_le16(opcode))
                return NULL;

        BT_DBG("%s opcode 0x%4.4x", hdev->name, opcode);

        return hdev->sent_cmd->data + HCI_COMMAND_HDR_SIZE;
}

/* Send ACL data */
static void hci_add_acl_hdr(struct sk_buff *skb, __u16 handle, __u16 flags)
{
        struct hci_acl_hdr *hdr;
        int len = skb->len;

        skb_push(skb, HCI_ACL_HDR_SIZE);
        skb_reset_transport_header(skb);
        hdr = (struct hci_acl_hdr *)skb_transport_header(skb);
        hdr->handle = cpu_to_le16(hci_handle_pack(handle, flags));
        hdr->dlen   = cpu_to_le16(len);
}

static void hci_queue_acl(struct hci_chan *chan, struct sk_buff_head *queue,
                          struct sk_buff *skb, __u16 flags)
{
        struct hci_conn *conn = chan->conn;
        struct hci_dev *hdev = conn->hdev;
        struct sk_buff *list;

        skb->len = skb_headlen(skb);
        skb->data_len = 0;

        bt_cb(skb)->pkt_type = HCI_ACLDATA_PKT;

        switch (hdev->dev_type) {
        case HCI_BREDR:
                hci_add_acl_hdr(skb, conn->handle, flags);
                break;
        case HCI_AMP:
                hci_add_acl_hdr(skb, chan->handle, flags);
                break;
        default:
                BT_ERR("%s unknown dev_type %d", hdev->name, hdev->dev_type);
                return;
        }

        list = skb_shinfo(skb)->frag_list;
        if (!list) {
                /* Non fragmented */
                BT_DBG("%s nonfrag skb %p len %d", hdev->name, skb, skb->len);

                skb_queue_tail(queue, skb);
        } else {
                /* Fragmented */
                BT_DBG("%s frag %p len %d", hdev->name, skb, skb->len);

                skb_shinfo(skb)->frag_list = NULL;

                /* Queue all fragments atomically */
                spin_lock(&queue->lock);

                __skb_queue_tail(queue, skb);

                flags &= ~ACL_START;
                flags |= ACL_CONT;
                do {
                        skb = list; list = list->next;

                        skb->dev = (void *) hdev;
                        bt_cb(skb)->pkt_type = HCI_ACLDATA_PKT;
                        hci_add_acl_hdr(skb, conn->handle, flags);

                        BT_DBG("%s frag %p len %d", hdev->name, skb, skb->len);

                        __skb_queue_tail(queue, skb);
                } while (list);

                spin_unlock(&queue->lock);
        }
}

void hci_send_acl(struct hci_chan *chan, struct sk_buff *skb, __u16 flags)
{
        struct hci_dev *hdev = chan->conn->hdev;

        BT_DBG("%s chan %p flags 0x%4.4x", hdev->name, chan, flags);

        skb->dev = (void *) hdev;

        hci_queue_acl(chan, &chan->data_q, skb, flags);

        queue_work(hdev->workqueue, &hdev->tx_work);
}

/* Send SCO data */
void hci_send_sco(struct hci_conn *conn, struct sk_buff *skb)
{
        struct hci_dev *hdev = conn->hdev;
        struct hci_sco_hdr hdr;

        BT_DBG("%s len %d", hdev->name, skb->len);

        hdr.handle = cpu_to_le16(conn->handle);
        hdr.dlen   = skb->len;

        skb_push(skb, HCI_SCO_HDR_SIZE);
        skb_reset_transport_header(skb);
        memcpy(skb_transport_header(skb), &hdr, HCI_SCO_HDR_SIZE);

        skb->dev = (void *) hdev;
        bt_cb(skb)->pkt_type = HCI_SCODATA_PKT;

        skb_queue_tail(&conn->data_q, skb);
        queue_work(hdev->workqueue, &hdev->tx_work);
}

/* ---- HCI TX task (outgoing data) ---- */

/* HCI Connection scheduler */
static struct hci_conn *hci_low_sent(struct hci_dev *hdev, __u8 type,
                                     int *quote)
{
        struct hci_conn_hash *h = &hdev->conn_hash;
        struct hci_conn *conn = NULL, *c;
        unsigned int num = 0, min = ~0;

        /* We don't have to lock device here. Connections are always
         * added and removed with TX task disabled. */

        rcu_read_lock();

        list_for_each_entry_rcu(c, &h->list, list) {
                if (c->type != type || skb_queue_empty(&c->data_q))
                        continue;

                if (c->state != BT_CONNECTED && c->state != BT_CONFIG)
                        continue;

                num++;

                if (c->sent < min) {
                        min  = c->sent;
                        conn = c;
                }

                if (hci_conn_num(hdev, type) == num)
                        break;
        }

        rcu_read_unlock();

        if (conn) {
                int cnt, q;

                switch (conn->type) {
                case ACL_LINK:
                        cnt = hdev->acl_cnt;
                        break;
                case SCO_LINK:
                case ESCO_LINK:
                        cnt = hdev->sco_cnt;
                        break;
                case LE_LINK:
                        cnt = hdev->le_mtu ? hdev->le_cnt : hdev->acl_cnt;
                        break;
                default:
                        cnt = 0;
                        BT_ERR("Unknown link type");
                }

                q = cnt / num;
                *quote = q ? q : 1;
        } else
                *quote = 0;

        BT_DBG("conn %p quote %d", conn, *quote);
        return conn;
}

static void hci_link_tx_to(struct hci_dev *hdev, __u8 type)
{
        struct hci_conn_hash *h = &hdev->conn_hash;
        struct hci_conn *c;

        BT_ERR("%s link tx timeout", hdev->name);

        rcu_read_lock();

        /* Kill stalled connections */
        list_for_each_entry_rcu(c, &h->list, list) {
                if (c->type == type && c->sent) {
                        BT_ERR("%s killing stalled connection %pMR",
                               hdev->name, &c->dst);
                        hci_disconnect(c, HCI_ERROR_REMOTE_USER_TERM);
                }
        }

        rcu_read_unlock();
}

static struct hci_chan *hci_chan_sent(struct hci_dev *hdev, __u8 type,
                                      int *quote)
{
        struct hci_conn_hash *h = &hdev->conn_hash;
        struct hci_chan *chan = NULL;
        unsigned int num = 0, min = ~0, cur_prio = 0;
        struct hci_conn *conn;
        int cnt, q, conn_num = 0;

        BT_DBG("%s", hdev->name);

        rcu_read_lock();

        list_for_each_entry_rcu(conn, &h->list, list) {
                struct hci_chan *tmp;

                if (conn->type != type)
                        continue;

                if (conn->state != BT_CONNECTED && conn->state != BT_CONFIG)
                        continue;

                conn_num++;

                list_for_each_entry_rcu(tmp, &conn->chan_list, list) {
                        struct sk_buff *skb;

                        if (skb_queue_empty(&tmp->data_q))
                                continue;

                        skb = skb_peek(&tmp->data_q);
                        if (skb->priority < cur_prio)
                                continue;

                        if (skb->priority > cur_prio) {
                                num = 0;
                                min = ~0;
                                cur_prio = skb->priority;
                        }

                        num++;

                        if (conn->sent < min) {
                                min  = conn->sent;
                                chan = tmp;
                        }
                }

                if (hci_conn_num(hdev, type) == conn_num)
                        break;
        }

        rcu_read_unlock();

        if (!chan)
                return NULL;

        switch (chan->conn->type) {
        case ACL_LINK:
                cnt = hdev->acl_cnt;
                break;
        case AMP_LINK:
                cnt = hdev->block_cnt;
                break;
        case SCO_LINK:
        case ESCO_LINK:
                cnt = hdev->sco_cnt;
                break;
        case LE_LINK:
                cnt = hdev->le_mtu ? hdev->le_cnt : hdev->acl_cnt;
                break;
        default:
                cnt = 0;
                BT_ERR("Unknown link type");
        }

        q = cnt / num;
        *quote = q ? q : 1;
        BT_DBG("chan %p quote %d", chan, *quote);
        return chan;
}

static void hci_prio_recalculate(struct hci_dev *hdev, __u8 type)
{
        struct hci_conn_hash *h = &hdev->conn_hash;
        struct hci_conn *conn;
        int num = 0;

        BT_DBG("%s", hdev->name);

        rcu_read_lock();

        list_for_each_entry_rcu(conn, &h->list, list) {
                struct hci_chan *chan;

                if (conn->type != type)
                        continue;

                if (conn->state != BT_CONNECTED && conn->state != BT_CONFIG)
                        continue;

                num++;

                list_for_each_entry_rcu(chan, &conn->chan_list, list) {
                        struct sk_buff *skb;

                        if (chan->sent) {
                                chan->sent = 0;
                                continue;
                        }

                        if (skb_queue_empty(&chan->data_q))
                                continue;

                        skb = skb_peek(&chan->data_q);
                        if (skb->priority >= HCI_PRIO_MAX - 1)
                                continue;

                        skb->priority = HCI_PRIO_MAX - 1;

                        BT_DBG("chan %p skb %p promoted to %d", chan, skb,
                               skb->priority);
                }