/*      $OpenBSD: udsbr.c,v 1.28 2022/03/21 19:22:42 miod Exp $ */
/*      $NetBSD: udsbr.c,v 1.7 2002/07/11 21:14:27 augustss Exp $       */

/*
 * Copyright (c) 2002 The NetBSD Foundation, Inc.
 * All rights reserved.
 *
 * This code is derived from software contributed to The NetBSD Foundation
 * by Lennart Augustsson (lennart@augustsson.net).
 *
 * 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 NETBSD FOUNDATION, INC. AND CONTRIBUTORS
 * ``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 FOUNDATION OR CONTRIBUTORS
 * 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.
 */

/*
 * Driver for the D-Link DSB-R100 FM radio.
 * I apologize for the magic hex constants, but this is what happens
 * when you have to reverse engineer the driver.
 * Parts of the code borrowed from Linux and parts from Warner Losh's
 * FreeBSD driver.
 */

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/device.h>

#include <sys/radioio.h>
#include <dev/radio_if.h>

#include <dev/usb/usb.h>
#include <dev/usb/usbdi.h>
#include <dev/usb/usbdi_util.h>

#include <dev/usb/usbdevs.h>

#ifdef UDSBR_DEBUG
#define DPRINTF(x)      do { if (udsbrdebug) printf x; } while (0)
#define DPRINTFN(n,x)   do { if (udsbrdebug>(n)) printf x; } while (0)
int     udsbrdebug = 0;
#else
#define DPRINTF(x)
#define DPRINTFN(n,x)
#endif

#define UDSBR_CONFIG_NO         1

int     udsbr_get_info(void *, struct radio_info *);
int     udsbr_set_info(void *, struct radio_info *);

const struct radio_hw_if udsbr_hw_if = {
        NULL, /* open */
        NULL, /* close */
        udsbr_get_info,
        udsbr_set_info,
        NULL
};

struct udsbr_softc {
        struct device            sc_dev;
        struct usbd_device      *sc_udev;

        char                     sc_mute;
        char                     sc_vol;
        u_int32_t                sc_freq;

        struct device           *sc_child;
};

int     udsbr_req(struct udsbr_softc *sc, int ureq, int value, int index);
void    udsbr_start(struct udsbr_softc *sc);
void    udsbr_stop(struct udsbr_softc *sc);
void    udsbr_setfreq(struct udsbr_softc *sc, int freq);
int     udsbr_status(struct udsbr_softc *sc);

int udsbr_match(struct device *, void *, void *); 
void udsbr_attach(struct device *, struct device *, void *); 
int udsbr_detach(struct device *, int); 
int udsbr_activate(struct device *, int); 

struct cfdriver udsbr_cd = { 
        NULL, "udsbr", DV_DULL 
}; 

const struct cfattach udsbr_ca = { 
        sizeof(struct udsbr_softc), 
        udsbr_match, 
        udsbr_attach, 
        udsbr_detach, 
        udsbr_activate, 
};

int
udsbr_match(struct device *parent, void *match, void *aux)
{
        struct usb_attach_arg   *uaa = aux;

        DPRINTFN(50,("udsbr_match\n"));

        if (uaa->iface == NULL || uaa->configno != UDSBR_CONFIG_NO)
                return (UMATCH_NONE);

        if (uaa->vendor != USB_VENDOR_CYPRESS ||
            uaa->product != USB_PRODUCT_CYPRESS_FMRADIO)
                return (UMATCH_NONE);
        return (UMATCH_VENDOR_PRODUCT);
}

void
udsbr_attach(struct device *parent, struct device *self, void *aux)
{
        struct udsbr_softc      *sc = (struct udsbr_softc *)self;
        struct usb_attach_arg   *uaa = aux;
        struct usbd_device      *dev = uaa->device;

        sc->sc_udev = dev;
        sc->sc_child = radio_attach_mi(&udsbr_hw_if, sc, &sc->sc_dev);
}

int
udsbr_detach(struct device *self, int flags)
{
        struct udsbr_softc *sc = (struct udsbr_softc *)self;
        int rv = 0;

        if (sc->sc_child != NULL)
                rv = config_detach(sc->sc_child, flags);

        return (rv);
}

int
udsbr_activate(struct device *self, int act)
{
        struct udsbr_softc *sc = (struct udsbr_softc *)self;
        int rv = 0;

        switch (act) {
        case DVACT_DEACTIVATE:
                if (sc->sc_child != NULL)
                        rv = config_deactivate(sc->sc_child);
                break;
        }
        return (rv);
}

int
udsbr_req(struct udsbr_softc *sc, int ureq, int value, int index)
{
        usb_device_request_t req;
        usbd_status err;
        u_char data;

        DPRINTFN(1,("udsbr_req: ureq=0x%02x value=0x%04x index=0x%04x\n",
                    ureq, value, index));
        req.bmRequestType = UT_READ_VENDOR_DEVICE;
        req.bRequest = ureq;
        USETW(req.wValue, value);
        USETW(req.wIndex, index);
        USETW(req.wLength, 1);
        err = usbd_do_request(sc->sc_udev, &req, &data);
        if (err) {
                printf("%s: request failed err=%d\n", sc->sc_dev.dv_xname,
                       err);
        }
        return !(data & 1);
}

void
udsbr_start(struct udsbr_softc *sc)
{
        (void)udsbr_req(sc, 0x00, 0x0000, 0x00c7);
        (void)udsbr_req(sc, 0x02, 0x0001, 0x0000);
}

void
udsbr_stop(struct udsbr_softc *sc)
{
        (void)udsbr_req(sc, 0x00, 0x0016, 0x001c);
        (void)udsbr_req(sc, 0x02, 0x0000, 0x0000);
}

void
udsbr_setfreq(struct udsbr_softc *sc, int freq)
{
        DPRINTF(("udsbr_setfreq: setfreq=%d\n", freq));
        /*
         * Freq now is in Hz.  We need to convert it to the frequency
         * that the radio wants.  This frequency is 10.7MHz above
         * the actual frequency.  We then need to convert to
         * units of 12.5kHz.  We add one to the IFM to make rounding
         * easier.
         */
        freq = (freq * 1000 + 10700001) / 12500;
        (void)udsbr_req(sc, 0x01, (freq >> 8) & 0xff, freq & 0xff);
        (void)udsbr_req(sc, 0x00, 0x0096, 0x00b7);
        usbd_delay_ms(sc->sc_udev, 240); /* wait for signal to settle */
}

int
udsbr_status(struct udsbr_softc *sc)
{
        return (udsbr_req(sc, 0x00, 0x0000, 0x0024));
}


int
udsbr_get_info(void *v, struct radio_info *ri)
{
        struct udsbr_softc *sc = v;

        ri->mute = sc->sc_mute;
        ri->volume = sc->sc_vol ? 255 : 0;
        ri->caps = RADIO_CAPS_DETECT_STEREO;
        ri->rfreq = 0;
        ri->lock = 0;
        ri->freq = sc->sc_freq;
        ri->info = udsbr_status(sc) ? RADIO_INFO_STEREO : 0;

        return (0);
}

int
udsbr_set_info(void *v, struct radio_info *ri)
{
        struct udsbr_softc *sc = v;

        sc->sc_mute = ri->mute != 0;
        sc->sc_vol = ri->volume != 0;
        sc->sc_freq = ri->freq;
        udsbr_setfreq(sc, sc->sc_freq);

        if (sc->sc_mute || sc->sc_vol == 0)
                udsbr_stop(sc);
        else
                udsbr_start(sc);

        return (0);
}