/* $OpenBSD: bt_proto.c,v 1.4 2007/06/24 20:55:27 uwe Exp $ */

/*
 * Copyright (c) 2004 Alexander Yurchenko <grange@openbsd.org>
 *
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, 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.
 */

#include <sys/param.h>
#include <sys/domain.h>
#include <sys/protosw.h>
#include <sys/socket.h>
#include <sys/socketvar.h>
#include <sys/queue.h>
#include <sys/kernel.h>
#include <sys/mbuf.h>
#include <sys/sysctl.h>
#include <sys/bus.h>
#include <sys/malloc.h>
#include <net/if.h>

#include <netbt/bluetooth.h>
#include <netbt/hci.h>
#include <netbt/l2cap.h>
#include <netbt/rfcomm.h>
#include <netbt/sco.h>

MALLOC_DEFINE(M_BLUETOOTH, "Bluetooth", "Bluetooth system memory");

extern struct pr_usrreqs hci_usrreqs;

static int
netbt_modevent(module_t mod, int type, void *data)
{
        switch (type) {
        case MOD_LOAD:
                break;
        case MOD_UNLOAD:
                return EBUSY;
                break;
        default:
                break;
        }
        return 0;
}

static moduledata_t netbt_mod = {
        "netbt",
        netbt_modevent,
        NULL
};

DECLARE_MODULE(netbt, netbt_mod, SI_SUB_EXEC, SI_ORDER_ANY);
MODULE_VERSION(netbt, 1);

struct domain btdomain;

struct protosw btsw[] = {
        { /* raw HCI commands */
                .pr_type = SOCK_RAW,
                .pr_domain = &btdomain,
                .pr_protocol = BTPROTO_HCI,
                .pr_flags = (PR_ADDR | PR_ATOMIC),
                .pr_input = 0,
                .pr_output = 0,
                .pr_ctlinput = 0,
                .pr_ctloutput = hci_ctloutput,
                .pr_ctlport = NULL,
                .pr_init = 0,
                .pr_drain = 0,
                .pr_usrreqs = &hci_usrreqs
        },
        { /* HCI SCO data (audio) */
                .pr_type = SOCK_SEQPACKET,
                .pr_domain = &btdomain,
                .pr_protocol = BTPROTO_SCO,
                .pr_flags = (PR_CONNREQUIRED | PR_ATOMIC ),
                .pr_input = 0,
                .pr_output = 0,
                .pr_ctlinput = 0,
                .pr_ctloutput = sco_ctloutput,
                .pr_ctlport = NULL,
                .pr_init = 0,
                .pr_drain = 0,
                .pr_usrreqs = &sco_usrreqs

        },
        { /* L2CAP Connection Oriented */
                .pr_type = SOCK_SEQPACKET,
                .pr_domain = &btdomain,
                .pr_protocol = BTPROTO_L2CAP,
                .pr_flags = (PR_CONNREQUIRED | PR_ATOMIC ),
                .pr_input = 0,
                .pr_output = 0,
                .pr_ctlinput = 0,
                .pr_ctloutput = l2cap_ctloutput,
                .pr_ctlport = NULL,
                .pr_init = 0,
                .pr_drain = 0,
                .pr_usrreqs = &l2cap_usrreqs
        },
        { /* RFCOMM */
                .pr_type = SOCK_STREAM,
                .pr_domain = &btdomain,
                .pr_protocol = BTPROTO_RFCOMM,
                .pr_flags = (PR_CONNREQUIRED | PR_WANTRCVD),
                .pr_input = 0,
                .pr_output = 0,
                .pr_ctlinput = 0,
                .pr_ctloutput = rfcomm_ctloutput,
                .pr_ctlport = NULL,
                .pr_init = 0,
                .pr_drain = 0,
                .pr_usrreqs = &rfcomm_usrreqs
        },
};

static void
netbt_dispose(struct mbuf* m)
{
        zdestroy(l2cap_pdu_pool);
        zdestroy(l2cap_req_pool);
        zdestroy(rfcomm_credit_pool);
}

static void
netbt_init(void)
{
        l2cap_pdu_pool = zinit("l2cap_pdu", sizeof(struct l2cap_pdu), 1,
                               ZONE_DESTROYABLE);
        if (l2cap_pdu_pool == NULL)
                goto fail;
        l2cap_req_pool = zinit("l2cap_req", sizeof(struct l2cap_req), 1,
                               ZONE_DESTROYABLE);
        if (l2cap_req_pool == NULL)
                goto fail;
        rfcomm_credit_pool = zinit("rfcomm_credit",
                                   sizeof(struct rfcomm_credit), 1,
                                   ZONE_DESTROYABLE);
        if (rfcomm_credit_pool == NULL)
                goto fail;
        return;
fail:
        netbt_dispose(NULL);
        panic("Can't create vm_zones");
}

struct domain btdomain = {
        .dom_family = AF_BLUETOOTH,
        .dom_name = "bluetooth",
        .dom_init = netbt_init,
        .dom_externalize = NULL,
        .dom_dispose = netbt_dispose,
        .dom_protosw = btsw,
        .dom_protoswNPROTOSW = &btsw[NELEM(btsw)],
        .dom_next = SLIST_ENTRY_INITIALIZER,
        .dom_rtattach = NULL,
        .dom_rtoffset = 0,
        .dom_maxrtkey = sizeof(struct sockaddr_bt),
        .dom_ifattach = NULL,
        .dom_ifdetach = NULL,
};

DOMAIN_SET(bt);
SYSCTL_NODE(_net, OID_AUTO, bluetooth, CTLFLAG_RD, 0,
    "Bluetooth Protocol Family");

/* HCI sysctls */
SYSCTL_NODE(_net_bluetooth, OID_AUTO, hci, CTLFLAG_RD, 0,
    "Host Controller Interface");
SYSCTL_INT(_net_bluetooth_hci, OID_AUTO, sendspace, CTLFLAG_RW, &hci_sendspace,
    0, "Socket Send Buffer Size");
SYSCTL_INT(_net_bluetooth_hci, OID_AUTO, recvspace, CTLFLAG_RW, &hci_recvspace,
    0, "Socket Receive Buffer Size");
SYSCTL_INT(_net_bluetooth_hci, OID_AUTO, acl_expiry, CTLFLAG_RW,
    &hci_acl_expiry, 0, "ACL Connection Expiry Time");
SYSCTL_INT(_net_bluetooth_hci, OID_AUTO, memo_expiry, CTLFLAG_RW,
    &hci_memo_expiry, 0, "Memo Expiry Time");
SYSCTL_INT(_net_bluetooth_hci, OID_AUTO, eventq_max, CTLFLAG_RW,
    &hci_eventq_max, 0, "Max Event queue length");
SYSCTL_INT(_net_bluetooth_hci, OID_AUTO, aclrxq_max, CTLFLAG_RW,
    &hci_aclrxq_max, 0, "Max ACL rx queue length");
SYSCTL_INT(_net_bluetooth_hci, OID_AUTO, scorxq_max, CTLFLAG_RW,
    &hci_scorxq_max, 0, "Max SCO rx queue length");

/* L2CAP sysctls */
SYSCTL_NODE(_net_bluetooth, OID_AUTO, l2cap, CTLFLAG_RD, 0,
    "Logical Link Control & Adaptation Protocol");
SYSCTL_INT(_net_bluetooth_l2cap, OID_AUTO, sendspace, CTLFLAG_RW,
    &l2cap_sendspace, 0, "Socket Send Buffer Size");
SYSCTL_INT(_net_bluetooth_l2cap, OID_AUTO, recvspace, CTLFLAG_RW,
    &l2cap_recvspace, 0, "Socket Receive Buffer Size");
SYSCTL_INT(_net_bluetooth_l2cap, OID_AUTO, rtx, CTLFLAG_RW,
    &l2cap_response_timeout, 0, "Response Timeout");
SYSCTL_INT(_net_bluetooth_l2cap, OID_AUTO, ertx, CTLFLAG_RW,
    &l2cap_response_extended_timeout, 0, "Extended Response Timeout");

/* RFCOMM sysctls */
SYSCTL_NODE(_net_bluetooth, OID_AUTO, rfcomm, CTLFLAG_RD, 0,
    "Serial Cable Emulation");
SYSCTL_INT(_net_bluetooth_rfcomm, OID_AUTO, sendspace, CTLFLAG_RW,
    &rfcomm_sendspace, 0, "Socket Send Buffer Size");
SYSCTL_INT(_net_bluetooth_rfcomm, OID_AUTO, recvspace, CTLFLAG_RW,
    &rfcomm_recvspace, 0, "Socket Receive Buffer Size");
SYSCTL_INT(_net_bluetooth_rfcomm, OID_AUTO, mtu_default, CTLFLAG_RW,
    &rfcomm_mtu_default, 0, "Default MTU");
SYSCTL_INT(_net_bluetooth_rfcomm, OID_AUTO, ack_timeout, CTLFLAG_RW,
    &rfcomm_ack_timeout, 0, "Acknowledgement Timer");
SYSCTL_INT(_net_bluetooth_rfcomm, OID_AUTO, mcc_timeout, CTLFLAG_RW,
    &rfcomm_mcc_timeout, 0, "Response Timeout for Multiplexer Control Channel");

/* SCO sysctls */
SYSCTL_NODE(_net_bluetooth, OID_AUTO, sco, CTLFLAG_RD, 0, "SCO data");
SYSCTL_INT(_net_bluetooth_sco, OID_AUTO, sendspace, CTLFLAG_RW, &sco_sendspace,
    0, "Socket Send Buffer Size");
SYSCTL_INT(_net_bluetooth_sco, OID_AUTO, recvspace, CTLFLAG_RW, &sco_recvspace,
    0, "Socket Receive Buffer Size");

static void
netisr_netbt_setup(void *dummy __unused)
{
        netisr_register(NETISR_BLUETOOTH, btintr, NULL);
}

SYSINIT(netbt_setup, SI_BOOT2_KLD, SI_ORDER_ANY, netisr_netbt_setup, NULL);