/*	$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);
}