root/wiimote/util.c @ 00aa4948876dc0530d8a1e5ab8170a9befa9f14c

/* Copyright (C) 2007 L. Donnie Smith <cwiid@abstrakraft.org>
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 *
 *  ChangeLog:
 *  03/14/2007: L. Donnie Smith <cwiid@abstrakraft.org>
 *  * audited error checking (coda and error handler sections)
 *
 *  03/05/2007: L. Donnie Smith <cwiid@abstrakraft.org>
 *  * created wiimote_err_func variable
 *  * created wiimote_err_default
 *  * added wiimote parameter to wiimote_err definition and calls
 *
 *  03/01/2007: L. Donnie Smith <cwiid@abstrakraft.org>
 *  * Initial ChangeLog
 *  * type audit (stdint, const, char booleans)
 */

#include <stdarg.h>
#include <stdint.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <bluetooth/bluetooth.h>
#include <bluetooth/hci.h>
#include <bluetooth/hci_lib.h>
#include "wiimote_internal.h"

static wiimote_err_t wiimote_err_default;

static wiimote_err_t *wiimote_err_func = &wiimote_err_default;

int wiimote_set_err(wiimote_err_t *err)
{
        /* TODO: assuming pointer assignment is atomic operation */
        /* if it is, and the user doesn't care about race conditions, we don't
         * either */
        wiimote_err_func = err;
        return 0;
}

static void wiimote_err_default(int id, const char *str, ...)
{
        va_list ap;

        va_start(ap, str);
        vfprintf(stderr, str, ap);
        fprintf(stderr, "\n");
        va_end(ap);
}

void wiimote_err(struct wiimote *wiimote, const char *str, ...)
{
        va_list ap;

        if (wiimote_err_func) {
                va_start(ap, str);
                if (wiimote) {
                        (*wiimote_err_func)(wiimote->id, str, ap);
                }
                else {
                        (*wiimote_err_func)(-1, str, ap);
                }
                va_end(ap);
        }
}

int verify_handshake(struct wiimote *wiimote)
{
        unsigned char handshake;
        if (read(wiimote->ctl_socket, &handshake, 1) != 1) {
                wiimote_err(wiimote, "Error on read handshake");
                return -1;
        }
        else if ((handshake & BT_TRANS_MASK) != BT_TRANS_HANDSHAKE) {
                wiimote_err(wiimote, "Handshake expected, non-handshake received");
                return -1;
        }
        else if ((handshake & BT_PARAM_MASK) != BT_PARAM_SUCCESSFUL) {
                wiimote_err(wiimote, "Non-successful handshake");
                return -1;
        }

        return 0;
}

#define SEND_RPT_BUF_LEN        23
int send_report(struct wiimote *wiimote, uint8_t flags, uint8_t report,
                size_t len, const void *data)
{
        unsigned char buf[SEND_RPT_BUF_LEN];

        if ((len+2) > SEND_RPT_BUF_LEN) {
                return -1;
        }

        buf[0] = BT_TRANS_SET_REPORT | BT_PARAM_OUTPUT;
        buf[1] = report;
        memcpy(buf+2, data, len);
        if (!(flags & SEND_RPT_NO_RUMBLE)) {
                buf[2] |= wiimote->led_rumble_state & 0x01;
        }

        if (write(wiimote->ctl_socket, buf, len+2) != (len+2)) {
                return -1;
        }
        else if (verify_handshake(wiimote)) {
                return -1;
        }

        return 0;
}

int exec_write_seq(struct wiimote *wiimote, unsigned int len,
                   struct write_seq *seq)
{
        int i;

        for (i=0; i < len; i++) {
                switch (seq[i].type) {
                case WRITE_SEQ_RPT:
                        if (send_report(wiimote, seq[i].flags, seq[i].report_offset,
                                        seq[i].len, seq[i].data)) {
                                return -1;
                        }
                        break;
                case WRITE_SEQ_MEM:
                        if (wiimote_write(wiimote, seq[i].flags, seq[i].report_offset,
                                          seq[i].len, seq[i].data)) {
                                return -1;
                        }
                        break;
                }
        }

        return 0;
}

void free_mesg_array(struct mesg_array *array)
{
        int i;

        for (i=0; i < array->count; i++) {
                free(array->mesg[i]);
        }
        free(array);
}

#define MAX_RSP 256
int wiimote_findfirst(bdaddr_t *bdaddr)
{
        /* TODO: I suppose we'll have to sift through BlueZ source to properly
         * check errors here...
         */
        int dev_id;
        int sock = -1;
        inquiry_info *dev_list = NULL;
        int i;
        int dev_count;
        int ret = -1;
        char dev_name[WIIMOTE_CMP_LEN];

        /* Get the first available Bluetooth device */
        if ((dev_id = hci_get_route(NULL)) == -1) {
                wiimote_err(NULL, "No Bluetooth device found");
                ret = -1;
                goto CODA;
        }
        if ((sock = hci_open_dev(dev_id)) == -1) {
                wiimote_err(NULL, "Error opening Bluetooth device");
                ret = -1;
                goto CODA;
        }

        /* Get Device List */
        if ((dev_count = hci_inquiry(dev_id, 2, MAX_RSP, NULL, &dev_list,
                                     IREQ_CACHE_FLUSH)) == -1) {
                wiimote_err(NULL, "Error on device inquiry");
                ret = -1;
                goto CODA;
        }

        /* Check class and name for Wiimotes */
        for (i=0; i < dev_count; i++) {
                if ((dev_list[i].dev_class[0] == WIIMOTE_CLASS_0) &&
                  (dev_list[i].dev_class[1] == WIIMOTE_CLASS_1) &&
                  (dev_list[i].dev_class[2] == WIIMOTE_CLASS_2)) {
                        if (hci_remote_name(sock, &dev_list[i].bdaddr, WIIMOTE_CMP_LEN,
                                            dev_name, 5000)) {
                                wiimote_err(NULL, "Error reading device name");
                        }
                        else if (strncmp(dev_name, WIIMOTE_NAME, WIIMOTE_CMP_LEN) == 0) {
                                *bdaddr = dev_list[i].bdaddr;
                                ret = 0;
                                break;
                        }
                }
        }

CODA:
        if (sock != -1) {
                hci_close_dev(sock);
        }
        if (dev_list) {
                free(dev_list);
        }
        return ret;
}