/*      $NetBSD: init_unistone.c,v 1.3 2015/06/16 23:54:58 christos Exp $       */
/*
* Copyright (c) 2009 KIYOHARA Takashi
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
*    notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
*    notice, this list of conditions and the following disclaimer in the
*    documentation and/or other materials provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
* DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
* INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
* STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
* ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*/
/*
* init information in this file gleaned from hciattach(8)
* command from Gumstix's patch for BlueZ.
*/

#include <sys/cdefs.h>
__RCSID("$NetBSD: init_unistone.c,v 1.3 2015/06/16 23:54:58 christos Exp $");

#include <bluetooth.h>
#include <err.h>
#include <errno.h>
#include <stdlib.h>
#include <termios.h>

#include <unistd.h>
#include <sys/ioctl.h>

#include "btattach.h"


#define HCI_CMD_INFINEON_SET_UART_BAUDRATE      \
       HCI_OPCODE(HCI_OGF_VENDOR, 0x006)


static int infineon_manufacturer_mode(int, int);

static int
infineon_manufacturer_mode(int fd, int enable)
{
       hci_status_rp rp;
       uint8_t cmd[2];
       int n;

       cmd[0] = enable;
       cmd[1] = 0;     /* No reset */

       uart_send_cmd(fd, 0xfc11, cmd, sizeof(cmd));
       n = uart_recv_cc(fd, 0xfc11, &rp, sizeof(rp));
       if (n != sizeof(rp) || rp.status != 0x00)
               errx(EXIT_FAILURE, "Manufacturer mode %s failed",
                   enable ? "enable" : "disable");

       return 0;
}

void
init_unistone(int fd, unsigned int speed)
{
       hci_command_status_ep cs;
       struct termios tio;
       uint8_t rate, v[2];
       int n;

       switch(speed) {
       case B9600:     rate = 0x00;    break;
       case B19200:    rate = 0x01;    break;
       case B38400:    rate = 0x02;    break;
       case B57600:    rate = 0x03;    break;
       case B115200:   rate = 0x04;    break;
       case B230400:   rate = 0x05;    break;
       case B460800:   rate = 0x06;    break;
       case B921600:   rate = 0x07;    break;
#if 0
       case B1843200:  rate = 0x08;    break;
#endif
       default:
               errx(EXIT_FAILURE, "invalid speed for infineon unistone: %u",
                   speed);
       }

       if (tcgetattr(fd, &tio) != 0)
               err(EXIT_FAILURE, "can't get baud rate");

       infineon_manufacturer_mode(fd, 1);

       uart_send_cmd(fd, HCI_CMD_INFINEON_SET_UART_BAUDRATE, &rate,
           sizeof(rate));

       n = uart_recv_ev(fd, HCI_EVENT_COMMAND_STATUS, &cs, sizeof(cs));
       if (n != sizeof(cs) ||
           cs.status != 0x00 ||
           cs.opcode != HCI_CMD_INFINEON_SET_UART_BAUDRATE)
               errx(EXIT_FAILURE, "Set_UART_Baudrate failed");

       if (cfsetspeed(&tio, speed) != 0 ||
           tcsetattr(fd, TCSANOW, &tio) != 0)
               err(EXIT_FAILURE, "can't change baud rate");

       n = uart_recv_ev(fd, HCI_EVENT_VENDOR, &v, sizeof(v));
       if (n != sizeof(v) ||
           v[0] != 0x12 ||
           v[1] != 0x00)
               errx(EXIT_FAILURE, "Set_UART_Baudrate not complete");

       infineon_manufacturer_mode(fd, 0);
}