/******************************************************************************
 *
 *  Copyright (C) 2014 Google, Inc.
 *
 *  Licensed under the Apache License, Version 2.0 (the "License");
 *  you may not use this file except in compliance with the License.
 *  You may obtain a copy of the License at:
 *
 *  http://www.apache.org/licenses/LICENSE-2.0
 *
 *  Unless required by applicable law or agreed to in writing, software
 *  distributed under the License is distributed on an "AS IS" BASIS,
 *  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 *  See the License for the specific language governing permissions and
 *  limitations under the License.
 *
 ******************************************************************************/
#include <stdbool.h>
#include "common/bt_target.h"
#include "common/bt_trace.h"
#include "device/bdaddr.h"
#include "stack/bt_types.h"
#include "device/controller.h"
#include "device/event_mask.h"
#include "stack/hcimsgs.h"
#include "hci/hci_layer.h"
#include "hci/hci_packet_factory.h"
#include "hci/hci_packet_parser.h"
#include "stack/btm_ble_api.h"
#include "device/version.h"
#include "osi/future.h"

const bt_event_mask_t BLE_EVENT_MASK = { "\x00\x00\x00\x00\x00\x00\x06\x7f" };

#if (BLE_INCLUDED)
const bt_event_mask_t CLASSIC_EVENT_MASK = { HCI_DUMO_EVENT_MASK_EXT };
#else
const bt_event_mask_t CLASSIC_EVENT_MASK = { HCI_LISBON_EVENT_MASK_EXT };
#endif

// TODO(zachoverflow): factor out into common module
const uint8_t SCO_HOST_BUFFER_SIZE = 0xff;

#define HCI_SUPPORTED_COMMANDS_ARRAY_SIZE 64
#define MAX_FEATURES_CLASSIC_PAGE_COUNT 3
#define BLE_SUPPORTED_STATES_SIZE         8
#define BLE_SUPPORTED_FEATURES_SIZE       8

static const hci_t *hci;
static const hci_packet_factory_t *packet_factory;
static const hci_packet_parser_t *packet_parser;

static bt_bdaddr_t address;
static bt_version_t bt_version;

static uint8_t supported_commands[HCI_SUPPORTED_COMMANDS_ARRAY_SIZE];
static bt_device_features_t features_classic[MAX_FEATURES_CLASSIC_PAGE_COUNT];
static uint8_t last_features_classic_page_index;

static uint16_t acl_data_size_classic;
static uint16_t acl_data_size_ble;
static uint16_t acl_buffer_count_classic;
static uint8_t acl_buffer_count_ble;

static uint8_t sco_data_size;
static uint16_t sco_buffer_count;

static uint8_t ble_white_list_size;
static uint8_t ble_resolving_list_max_size;
static uint8_t ble_supported_states[BLE_SUPPORTED_STATES_SIZE];
static bt_device_features_t features_ble;
static uint16_t ble_suggested_default_data_length;
static uint16_t ble_suggested_default_data_txtime;

static bool readable;
static bool ble_supported;
static bool simple_pairing_supported;
static bool secure_connections_supported;

#define AWAIT_COMMAND(command) future_await(hci->transmit_command_futured(command))

// Module lifecycle functions

static void start_up(void)
{
    BT_HDR *response;

    // Send the initial reset command
    response = AWAIT_COMMAND(packet_factory->make_reset());
    packet_parser->parse_generic_command_complete(response);

    // Request the classic buffer size next
    response = AWAIT_COMMAND(packet_factory->make_read_buffer_size());
    packet_parser->parse_read_buffer_size_response(
        response, &acl_data_size_classic, &acl_buffer_count_classic,
        &sco_data_size, &sco_buffer_count);

#if (C2H_FLOW_CONTROL_INCLUDED == TRUE)
    // Enable controller to host flow control
    response = AWAIT_COMMAND(packet_factory->make_set_c2h_flow_control(HCI_HOST_FLOW_CTRL_ACL_ON));
    packet_parser->parse_generic_command_complete(response);
#endif ///C2H_FLOW_CONTROL_INCLUDED == TRUE

    // Tell the controller about our buffer sizes and buffer counts next
    // TODO(zachoverflow): factor this out. eww l2cap contamination. And why just a hardcoded 10?
    response = AWAIT_COMMAND(
                   packet_factory->make_host_buffer_size(
                       L2CAP_MTU_SIZE,
                       SCO_HOST_BUFFER_SIZE,
                       L2CAP_HOST_FC_ACL_BUFS,
                       10
                   )
               );

    packet_parser->parse_generic_command_complete(response);

    // Read the local version info off the controller next, including
    // information such as manufacturer and supported HCI version
    response = AWAIT_COMMAND(packet_factory->make_read_local_version_info());
    packet_parser->parse_read_local_version_info_response(response, &bt_version);

    // Read the bluetooth address off the controller next
    response = AWAIT_COMMAND(packet_factory->make_read_bd_addr());
    packet_parser->parse_read_bd_addr_response(response, &address);

    // Request the controller's supported commands next
    response = AWAIT_COMMAND(packet_factory->make_read_local_supported_commands());
    packet_parser->parse_read_local_supported_commands_response(
        response,
        supported_commands,
        HCI_SUPPORTED_COMMANDS_ARRAY_SIZE
    );

    // Read page 0 of the controller features next
    uint8_t page_number = 0;
    response = AWAIT_COMMAND(packet_factory->make_read_local_extended_features(page_number));
    packet_parser->parse_read_local_extended_features_response(
        response,
        &page_number,
        &last_features_classic_page_index,
        features_classic,
        MAX_FEATURES_CLASSIC_PAGE_COUNT
    );

    assert(page_number == 0);
    page_number++;

    // Inform the controller what page 0 features we support, based on what
    // it told us it supports. We need to do this first before we request the
    // next page, because the controller's response for page 1 may be
    // dependent on what we configure from page 0
    simple_pairing_supported = HCI_SIMPLE_PAIRING_SUPPORTED(features_classic[0].as_array);
    if (simple_pairing_supported) {
        response = AWAIT_COMMAND(packet_factory->make_write_simple_pairing_mode(HCI_SP_MODE_ENABLED));
        packet_parser->parse_generic_command_complete(response);
    }

#if (BLE_INCLUDED == TRUE)
    if (HCI_LE_SPT_SUPPORTED(features_classic[0].as_array)) {
        uint8_t simultaneous_le_host = HCI_SIMUL_LE_BREDR_SUPPORTED(features_classic[0].as_array) ? BTM_BLE_SIMULTANEOUS_HOST : 0;
        response = AWAIT_COMMAND(
                       packet_factory->make_ble_write_host_support(BTM_BLE_HOST_SUPPORT, simultaneous_le_host)
                   );

        packet_parser->parse_generic_command_complete(response);
    }
#endif

    // Done telling the controller about what page 0 features we support
    // Request the remaining feature pages
    while (page_number <= last_features_classic_page_index &&
            page_number < MAX_FEATURES_CLASSIC_PAGE_COUNT) {
        response = AWAIT_COMMAND(packet_factory->make_read_local_extended_features(page_number));
        packet_parser->parse_read_local_extended_features_response(
            response,
            &page_number,
            &last_features_classic_page_index,
            features_classic,
            MAX_FEATURES_CLASSIC_PAGE_COUNT
        );

        page_number++;
    }

#if (SC_MODE_INCLUDED == TRUE)
    secure_connections_supported = HCI_SC_CTRLR_SUPPORTED(features_classic[2].as_array);
    if (secure_connections_supported) {
        response = AWAIT_COMMAND(packet_factory->make_write_secure_connections_host_support(HCI_SC_MODE_ENABLED));
        packet_parser->parse_generic_command_complete(response);
    }
#endif

#if (BLE_INCLUDED == TRUE)
    ble_supported = last_features_classic_page_index >= 1 && HCI_LE_HOST_SUPPORTED(features_classic[1].as_array);
    if (ble_supported) {
        // Request the ble white list size next
        response = AWAIT_COMMAND(packet_factory->make_ble_read_white_list_size());
        packet_parser->parse_ble_read_white_list_size_response(response, &ble_white_list_size);

        // Request the ble buffer size next
        response = AWAIT_COMMAND(packet_factory->make_ble_read_buffer_size());
        packet_parser->parse_ble_read_buffer_size_response(
            response,
            &acl_data_size_ble,
            &acl_buffer_count_ble
        );

        // Response of 0 indicates ble has the same buffer size as classic
        if (acl_data_size_ble == 0) {
            acl_data_size_ble = acl_data_size_classic;
        }

        // Request the ble supported states next
        response = AWAIT_COMMAND(packet_factory->make_ble_read_supported_states());
        packet_parser->parse_ble_read_supported_states_response(
            response,
            ble_supported_states,
            sizeof(ble_supported_states)
        );

        // Request the ble supported features next
        response = AWAIT_COMMAND(packet_factory->make_ble_read_local_supported_features());
        packet_parser->parse_ble_read_local_supported_features_response(
            response,
            &features_ble
        );

        if (HCI_LE_ENHANCED_PRIVACY_SUPPORTED(features_ble.as_array)) {
            response = AWAIT_COMMAND(packet_factory->make_ble_read_resolving_list_size());
            packet_parser->parse_ble_read_resolving_list_size_response(
                response,
                &ble_resolving_list_max_size);
        }

        if (HCI_LE_DATA_LEN_EXT_SUPPORTED(features_ble.as_array)) {
            /* set default tx data length to MAX 251 */
            response = AWAIT_COMMAND(packet_factory->make_ble_write_suggested_default_data_length(BTM_BLE_DATA_SIZE_MAX, BTM_BLE_DATA_TX_TIME_MAX));
            packet_parser->parse_generic_command_complete(response);

            response = AWAIT_COMMAND(packet_factory->make_ble_read_suggested_default_data_length());
            packet_parser->parse_ble_read_suggested_default_data_length_response(
                response,
                &ble_suggested_default_data_length,
                &ble_suggested_default_data_txtime);
        }

        // Set the ble event mask next
        response = AWAIT_COMMAND(packet_factory->make_ble_set_event_mask(&BLE_EVENT_MASK));
        packet_parser->parse_generic_command_complete(response);
    }
#endif

    if (simple_pairing_supported) {
        response = AWAIT_COMMAND(packet_factory->make_set_event_mask(&CLASSIC_EVENT_MASK));
        packet_parser->parse_generic_command_complete(response);
    }

#if (BTM_SCO_HCI_INCLUDED == TRUE)
    response = AWAIT_COMMAND(packet_factory->make_write_sync_flow_control_enable(1));
    packet_parser->parse_generic_command_complete(response);

    response = AWAIT_COMMAND(packet_factory->make_write_default_erroneous_data_report(1));
    packet_parser->parse_generic_command_complete(response);
#endif
    readable = true;
    // return future_new_immediate(FUTURE_SUCCESS);
    return;
}

static void shut_down(void)
{
    readable = false;
}

static bool get_is_ready(void)
{
    return readable;
}

static const bt_bdaddr_t *get_address(void)
{
    assert(readable);
    return &address;
}

static const bt_version_t *get_bt_version(void)
{
    assert(readable);
    return &bt_version;
}

// TODO(zachoverflow): hide inside, move decoder inside too
static const bt_device_features_t *get_features_classic(int index)
{
    assert(readable);
    assert(index < MAX_FEATURES_CLASSIC_PAGE_COUNT);
    return &features_classic[index];
}

static uint8_t get_last_features_classic_index(void)
{
    assert(readable);
    return last_features_classic_page_index;
}

static const bt_device_features_t *get_features_ble(void)
{
    assert(readable);
    assert(ble_supported);
    return &features_ble;
}

static const uint8_t *get_ble_supported_states(void)
{
    assert(readable);
    assert(ble_supported);
    return ble_supported_states;
}

static bool supports_simple_pairing(void)
{
    assert(readable);
    return simple_pairing_supported;
}

static bool supports_secure_connections(void)
{
    assert(readable);
    return secure_connections_supported;
}

static bool supports_simultaneous_le_bredr(void)
{
    assert(readable);
    return HCI_SIMUL_LE_BREDR_SUPPORTED(features_classic[0].as_array);
}

static bool supports_reading_remote_extended_features(void)
{
    assert(readable);
    return HCI_READ_REMOTE_EXT_FEATURES_SUPPORTED(supported_commands);
}

static bool supports_interlaced_inquiry_scan(void)
{
    assert(readable);
    return HCI_LMP_INTERLACED_INQ_SCAN_SUPPORTED(features_classic[0].as_array);
}

static bool supports_rssi_with_inquiry_results(void)
{
    assert(readable);
    return HCI_LMP_INQ_RSSI_SUPPORTED(features_classic[0].as_array);
}

static bool supports_extended_inquiry_response(void)
{
    assert(readable);
    return HCI_EXT_INQ_RSP_SUPPORTED(features_classic[0].as_array);
}

static bool supports_master_slave_role_switch(void)
{
    assert(readable);
    return HCI_SWITCH_SUPPORTED(features_classic[0].as_array);
}

static bool supports_ble(void)
{
    assert(readable);
    return ble_supported;
}

static bool supports_ble_privacy(void)
{
    assert(readable);
    assert(ble_supported);
    return HCI_LE_ENHANCED_PRIVACY_SUPPORTED(features_ble.as_array);
}

static bool supports_ble_packet_extension(void)
{
    assert(readable);
    assert(ble_supported);
    return HCI_LE_DATA_LEN_EXT_SUPPORTED(features_ble.as_array);
}

static bool supports_ble_connection_parameters_request(void)
{
    assert(readable);
    assert(ble_supported);
    return HCI_LE_CONN_PARAM_REQ_SUPPORTED(features_ble.as_array);
}

static uint16_t get_acl_data_size_classic(void)
{
    assert(readable);
    return acl_data_size_classic;
}

static uint16_t get_acl_data_size_ble(void)
{
    assert(readable);
    assert(ble_supported);
    return acl_data_size_ble;
}

static uint16_t get_acl_packet_size_classic(void)
{
    assert(readable);
    return acl_data_size_classic + HCI_DATA_PREAMBLE_SIZE;
}

static uint16_t get_acl_packet_size_ble(void)
{
    assert(readable);
    return acl_data_size_ble + HCI_DATA_PREAMBLE_SIZE;
}

static uint16_t get_ble_suggested_default_data_length(void)
{
    assert(readable);
    assert(ble_supported);
    return ble_suggested_default_data_length;
}

static uint16_t get_ble_suggested_default_data_txtime(void)
{
    assert(readable);
    assert(ble_supported);
    return ble_suggested_default_data_txtime;
}

static uint16_t get_acl_buffer_count_classic(void)
{
    assert(readable);
    return acl_buffer_count_classic;
}

static uint8_t get_acl_buffer_count_ble(void)
{
    assert(readable);
    assert(ble_supported);
    return acl_buffer_count_ble;
}

static uint8_t get_ble_white_list_size(void)
{
    assert(readable);
    assert(ble_supported);
    return ble_white_list_size;
}

static uint8_t get_ble_resolving_list_max_size(void)
{
    assert(readable);
    assert(ble_supported);
    return ble_resolving_list_max_size;
}

static void set_ble_resolving_list_max_size(int resolving_list_max_size)
{
    assert(readable);
    assert(ble_supported);
    ble_resolving_list_max_size = resolving_list_max_size;
}

#if (BTM_SCO_HCI_INCLUDED == TRUE)
static uint8_t get_sco_data_size(void)
{
    assert(readable);
    return sco_data_size;
}

static uint8_t get_sco_buffer_count(void)
{
    assert(readable);
    return sco_buffer_count;
}
#endif /* (BTM_SCO_HCI_INCLUDED == TRUE) */

static const controller_t interface = {
    start_up,
    shut_down,
    get_is_ready,

    get_address,
    get_bt_version,

    get_features_classic,
    get_last_features_classic_index,

    get_features_ble,
    get_ble_supported_states,

    supports_simple_pairing,
    supports_secure_connections,
    supports_simultaneous_le_bredr,
    supports_reading_remote_extended_features,
    supports_interlaced_inquiry_scan,
    supports_rssi_with_inquiry_results,
    supports_extended_inquiry_response,
    supports_master_slave_role_switch,

    supports_ble,
    supports_ble_packet_extension,
    supports_ble_connection_parameters_request,
    supports_ble_privacy,

    get_acl_data_size_classic,
    get_acl_data_size_ble,

    get_acl_packet_size_classic,
    get_acl_packet_size_ble,
    get_ble_suggested_default_data_length,
    get_ble_suggested_default_data_txtime,

    get_acl_buffer_count_classic,
    get_acl_buffer_count_ble,

    get_ble_white_list_size,

    get_ble_resolving_list_max_size,
    set_ble_resolving_list_max_size,
#if (BTM_SCO_HCI_INCLUDED == TRUE)
    get_sco_data_size,
    get_sco_buffer_count,
#endif /* (BTM_SCO_HCI_INCLUDED == TRUE) */
};

const controller_t *controller_get_interface()
{
    static bool loaded = false;
    if (!loaded) {
        loaded = true;

        hci = hci_layer_get_interface();
        packet_factory = hci_packet_factory_get_interface();
        packet_parser = hci_packet_parser_get_interface();
    }

    return &interface;
}