// SPDX-License-Identifier: GPL-2.0-or-later
/*
 *      ALSA driver for ICEnsemble VT1724 (Envy24HT)
 *
 *      Lowlevel functions for Ego Sys Waveterminal 192M
 *
 *              Copyright (c) 2006 Guedez Clement <klem.dev@gmail.com>
 *              Some functions are taken from the Prodigy192 driver
 *              source
 */



#include <linux/delay.h>
#include <linux/interrupt.h>
#include <linux/init.h>
#include <sound/core.h>
#include <sound/tlv.h>
#include <linux/slab.h>

#include "ice1712.h"
#include "envy24ht.h"
#include "wtm.h"
#include "stac946x.h"

struct wtm_spec {
        /* rate change needs atomic mute/unmute of all dacs*/
        struct mutex mute_mutex;
};


/*
 *      2*ADC 6*DAC no1 ringbuffer r/w on i2c bus
 */
static inline void stac9460_put(struct snd_ice1712 *ice, int reg,
                                                unsigned char val)
{
        snd_vt1724_write_i2c(ice, STAC9460_I2C_ADDR, reg, val);
}

static inline unsigned char stac9460_get(struct snd_ice1712 *ice, int reg)
{
        return snd_vt1724_read_i2c(ice, STAC9460_I2C_ADDR, reg);
}

/*
 *      2*ADC 2*DAC no2 ringbuffer r/w on i2c bus
 */
static inline void stac9460_2_put(struct snd_ice1712 *ice, int reg,
                                                unsigned char val)
{
        snd_vt1724_write_i2c(ice, STAC9460_2_I2C_ADDR, reg, val);
}

static inline unsigned char stac9460_2_get(struct snd_ice1712 *ice, int reg)
{
        return snd_vt1724_read_i2c(ice, STAC9460_2_I2C_ADDR, reg);
}


/*
 *      DAC mute control
 */
static void stac9460_dac_mute_all(struct snd_ice1712 *ice, unsigned char mute,
                                unsigned short int *change_mask)
{
        unsigned char new, old;
        int id, idx, change;

        /*stac9460 1*/
        for (id = 0; id < 7; id++) {
                if (*change_mask & (0x01 << id)) {
                        if (id == 0)
                                idx = STAC946X_MASTER_VOLUME;
                        else
                                idx = STAC946X_LF_VOLUME - 1 + id;
                        old = stac9460_get(ice, idx);
                        new = (~mute << 7 & 0x80) | (old & ~0x80);
                        change = (new != old);
                        if (change) {
                                stac9460_put(ice, idx, new);
                                *change_mask = *change_mask | (0x01 << id);
                        } else {
                                *change_mask = *change_mask & ~(0x01 << id);
                        }
                }
        }

        /*stac9460 2*/
        for (id = 0; id < 3; id++) {
                if (*change_mask & (0x01 << (id + 7))) {
                        if (id == 0)
                                idx = STAC946X_MASTER_VOLUME;
                        else
                                idx = STAC946X_LF_VOLUME - 1 + id;
                        old = stac9460_2_get(ice, idx);
                        new = (~mute << 7 & 0x80) | (old & ~0x80);
                        change = (new != old);
                        if (change) {
                                stac9460_2_put(ice, idx, new);
                                *change_mask = *change_mask | (0x01 << id);
                        } else {
                                *change_mask = *change_mask & ~(0x01 << id);
                        }
                }
        }
}



#define stac9460_dac_mute_info          snd_ctl_boolean_mono_info

static int stac9460_dac_mute_get(struct snd_kcontrol *kcontrol,
                                struct snd_ctl_elem_value *ucontrol)
{
        struct snd_ice1712 *ice = snd_kcontrol_chip(kcontrol);
        struct wtm_spec *spec = ice->spec;
        unsigned char val;
        int idx, id;

        guard(mutex)(&spec->mute_mutex);

        if (kcontrol->private_value) {
                idx = STAC946X_MASTER_VOLUME;
                id = 0;
        } else {
                id = snd_ctl_get_ioffidx(kcontrol, &ucontrol->id);
                idx = id + STAC946X_LF_VOLUME;
        }
        if (id < 6)
                val = stac9460_get(ice, idx);
        else
                val = stac9460_2_get(ice, idx - 6);
        ucontrol->value.integer.value[0] = (~val >> 7) & 0x1;

        return 0;
}

static int stac9460_dac_mute_put(struct snd_kcontrol *kcontrol,
                                struct snd_ctl_elem_value *ucontrol)
{
        struct snd_ice1712 *ice = snd_kcontrol_chip(kcontrol);
        unsigned char new, old;
        int id, idx;
        int change;

        if (kcontrol->private_value) {
                idx = STAC946X_MASTER_VOLUME;
                old = stac9460_get(ice, idx);
                new = (~ucontrol->value.integer.value[0] << 7 & 0x80) |
                                                        (old & ~0x80);
                change = (new != old);
                if (change) {
                        stac9460_put(ice, idx, new);
                        stac9460_2_put(ice, idx, new);
                }
        } else {
                id = snd_ctl_get_ioffidx(kcontrol, &ucontrol->id);
                idx = id + STAC946X_LF_VOLUME;
                if (id < 6)
                        old = stac9460_get(ice, idx);
                else
                        old = stac9460_2_get(ice, idx - 6);
                new = (~ucontrol->value.integer.value[0] << 7 & 0x80) |
                                                        (old & ~0x80);
                change = (new != old);
                if (change) {
                        if (id < 6)
                                stac9460_put(ice, idx, new);
                        else
                                stac9460_2_put(ice, idx - 6, new);
                }
        }
        return change;
}

/*
 *      DAC volume attenuation mixer control
 */
static int stac9460_dac_vol_info(struct snd_kcontrol *kcontrol,
                                struct snd_ctl_elem_info *uinfo)
{
        uinfo->type = SNDRV_CTL_ELEM_TYPE_INTEGER;
        uinfo->count = 1;
        uinfo->value.integer.min = 0;                   /* mute */
        uinfo->value.integer.max = 0x7f;                /* 0dB */
        return 0;
}

static int stac9460_dac_vol_get(struct snd_kcontrol *kcontrol,
                                struct snd_ctl_elem_value *ucontrol)
{
        struct snd_ice1712 *ice = snd_kcontrol_chip(kcontrol);
        int idx, id;
        unsigned char vol;

        if (kcontrol->private_value) {
                idx = STAC946X_MASTER_VOLUME;
                id = 0;
        } else {
                id = snd_ctl_get_ioffidx(kcontrol, &ucontrol->id);
                idx = id + STAC946X_LF_VOLUME;
        }
        if (id < 6)
                vol = stac9460_get(ice, idx) & 0x7f;
        else
                vol = stac9460_2_get(ice, idx - 6) & 0x7f;
        ucontrol->value.integer.value[0] = 0x7f - vol;
        return 0;
}

static int stac9460_dac_vol_put(struct snd_kcontrol *kcontrol,
                                struct snd_ctl_elem_value *ucontrol)
{
        struct snd_ice1712 *ice = snd_kcontrol_chip(kcontrol);
        int idx, id;
        unsigned char tmp, ovol, nvol;
        int change;

        if (kcontrol->private_value) {
                idx = STAC946X_MASTER_VOLUME;
                nvol = ucontrol->value.integer.value[0] & 0x7f;
                tmp = stac9460_get(ice, idx);
                ovol = 0x7f - (tmp & 0x7f);
                change = (ovol != nvol);
                if (change) {
                        stac9460_put(ice, idx, (0x7f - nvol) | (tmp & 0x80));
                        stac9460_2_put(ice, idx, (0x7f - nvol) | (tmp & 0x80));
                }
        } else {
                id = snd_ctl_get_ioffidx(kcontrol, &ucontrol->id);
                idx = id + STAC946X_LF_VOLUME;
                nvol = ucontrol->value.integer.value[0] & 0x7f;
                if (id < 6)
                        tmp = stac9460_get(ice, idx);
                else
                        tmp = stac9460_2_get(ice, idx - 6);
                ovol = 0x7f - (tmp & 0x7f);
                change = (ovol != nvol);
                if (change) {
                        if (id < 6)
                                stac9460_put(ice, idx, (0x7f - nvol) |
                                                        (tmp & 0x80));
                        else
                                stac9460_2_put(ice, idx-6, (0x7f - nvol) |
                                                        (tmp & 0x80));
                }
        }
        return change;
}

/*
 * ADC mute control
 */
#define stac9460_adc_mute_info          snd_ctl_boolean_stereo_info

static int stac9460_adc_mute_get(struct snd_kcontrol *kcontrol,
                                struct snd_ctl_elem_value *ucontrol)
{
        struct snd_ice1712 *ice = snd_kcontrol_chip(kcontrol);
        unsigned char val;
        int i, id;

        id = snd_ctl_get_ioffidx(kcontrol, &ucontrol->id);
        if (id == 0) {
                for (i = 0; i < 2; ++i) {
                        val = stac9460_get(ice, STAC946X_MIC_L_VOLUME + i);
                        ucontrol->value.integer.value[i] = ~val>>7 & 0x1;
                }
        } else {
                for (i = 0; i < 2; ++i) {
                        val = stac9460_2_get(ice, STAC946X_MIC_L_VOLUME + i);
                        ucontrol->value.integer.value[i] = ~val>>7 & 0x1;
                }
        }
        return 0;
}

static int stac9460_adc_mute_put(struct snd_kcontrol *kcontrol,
                                struct snd_ctl_elem_value *ucontrol)
{
        struct snd_ice1712 *ice = snd_kcontrol_chip(kcontrol);
        unsigned char new, old;
        int i, reg, id;
        int change;

        id = snd_ctl_get_ioffidx(kcontrol, &ucontrol->id);
        if (id == 0) {
                for (i = 0; i < 2; ++i) {
                        reg = STAC946X_MIC_L_VOLUME + i;
                        old = stac9460_get(ice, reg);
                        new = (~ucontrol->value.integer.value[i]<<7&0x80) |
                                                                (old&~0x80);
                        change = (new != old);
                        if (change)
                                stac9460_put(ice, reg, new);
                }
        } else {
                for (i = 0; i < 2; ++i) {
                        reg = STAC946X_MIC_L_VOLUME + i;
                        old = stac9460_2_get(ice, reg);
                        new = (~ucontrol->value.integer.value[i]<<7&0x80) |
                                                                (old&~0x80);
                        change = (new != old);
                        if (change)
                                stac9460_2_put(ice, reg, new);
                }
        }
        return change;
}

/*
 *ADC gain mixer control
 */
static int stac9460_adc_vol_info(struct snd_kcontrol *kcontrol,
                                struct snd_ctl_elem_info *uinfo)
{
        uinfo->type = SNDRV_CTL_ELEM_TYPE_INTEGER;
        uinfo->count = 2;
        uinfo->value.integer.min = 0;           /* 0dB */
        uinfo->value.integer.max = 0x0f;        /* 22.5dB */
        return 0;
}

static int stac9460_adc_vol_get(struct snd_kcontrol *kcontrol,
                                struct snd_ctl_elem_value *ucontrol)
{
        struct snd_ice1712 *ice = snd_kcontrol_chip(kcontrol);
        int i, reg, id;
        unsigned char vol;

        id = snd_ctl_get_ioffidx(kcontrol, &ucontrol->id);
        if (id == 0) {
                for (i = 0; i < 2; ++i) {
                        reg = STAC946X_MIC_L_VOLUME + i;
                        vol = stac9460_get(ice, reg) & 0x0f;
                        ucontrol->value.integer.value[i] = 0x0f - vol;
                }
        } else {
                for (i = 0; i < 2; ++i) {
                        reg = STAC946X_MIC_L_VOLUME + i;
                        vol = stac9460_2_get(ice, reg) & 0x0f;
                        ucontrol->value.integer.value[i] = 0x0f - vol;
                }
        }
        return 0;
}

static int stac9460_adc_vol_put(struct snd_kcontrol *kcontrol,
                                struct snd_ctl_elem_value *ucontrol)
{
        struct snd_ice1712 *ice = snd_kcontrol_chip(kcontrol);
        int i, reg, id;
        unsigned char ovol, nvol;
        int change;

        id = snd_ctl_get_ioffidx(kcontrol, &ucontrol->id);
        if (id == 0) {
                for (i = 0; i < 2; ++i) {
                        reg = STAC946X_MIC_L_VOLUME + i;
                        nvol = ucontrol->value.integer.value[i] & 0x0f;
                        ovol = 0x0f - stac9460_get(ice, reg);
                        change = ((ovol & 0x0f) != nvol);
                        if (change)
                                stac9460_put(ice, reg, (0x0f - nvol) |
                                                        (ovol & ~0x0f));
                }
        } else {
                for (i = 0; i < 2; ++i) {
                        reg = STAC946X_MIC_L_VOLUME + i;
                        nvol = ucontrol->value.integer.value[i] & 0x0f;
                        ovol = 0x0f - stac9460_2_get(ice, reg);
                        change = ((ovol & 0x0f) != nvol);
                        if (change)
                                stac9460_2_put(ice, reg, (0x0f - nvol) |
                                                        (ovol & ~0x0f));
                }
        }
        return change;
}

/*
 * MIC / LINE switch fonction
 */
static int stac9460_mic_sw_info(struct snd_kcontrol *kcontrol,
                                struct snd_ctl_elem_info *uinfo)
{
        static const char * const texts[2] = { "Line In", "Mic" };

        return snd_ctl_enum_info(uinfo, 1, 2, texts);
}


static int stac9460_mic_sw_get(struct snd_kcontrol *kcontrol,
                                struct snd_ctl_elem_value *ucontrol)
{
        struct snd_ice1712 *ice = snd_kcontrol_chip(kcontrol);
        unsigned char val;
        int id;

        id = snd_ctl_get_ioffidx(kcontrol, &ucontrol->id);
        if (id == 0)
                val = stac9460_get(ice, STAC946X_GENERAL_PURPOSE);
        else
                val = stac9460_2_get(ice, STAC946X_GENERAL_PURPOSE);
        ucontrol->value.enumerated.item[0] = (val >> 7) & 0x1;
        return 0;
}

static int stac9460_mic_sw_put(struct snd_kcontrol *kcontrol,
                                struct snd_ctl_elem_value *ucontrol)
{
        struct snd_ice1712 *ice = snd_kcontrol_chip(kcontrol);
        unsigned char new, old;
        int change, id;

        id = snd_ctl_get_ioffidx(kcontrol, &ucontrol->id);
        if (id == 0)
                old = stac9460_get(ice, STAC946X_GENERAL_PURPOSE);
        else
                old = stac9460_2_get(ice, STAC946X_GENERAL_PURPOSE);
        new = (ucontrol->value.enumerated.item[0] << 7 & 0x80) | (old & ~0x80);
        change = (new != old);
        if (change) {
                if (id == 0)
                        stac9460_put(ice, STAC946X_GENERAL_PURPOSE, new);
                else
                        stac9460_2_put(ice, STAC946X_GENERAL_PURPOSE, new);
        }
        return change;
}


/*
 * Handler for setting correct codec rate - called when rate change is detected
 */
static void stac9460_set_rate_val(struct snd_ice1712 *ice, unsigned int rate)
{
        unsigned char old, new;
        unsigned short int changed;
        struct wtm_spec *spec = ice->spec;

        if (rate == 0)  /* no hint - S/PDIF input is master, simply return */
                return;
        else if (rate <= 48000)
                new = 0x08;     /* 256x, base rate mode */
        else if (rate <= 96000)
                new = 0x11;     /* 256x, mid rate mode */
        else
                new = 0x12;     /* 128x, high rate mode */

        old = stac9460_get(ice, STAC946X_MASTER_CLOCKING);
        if (old == new)
                return;
        /* change detected, setting master clock, muting first */
        /* due to possible conflicts with mute controls - mutexing */
        guard(mutex)(&spec->mute_mutex);
        /* we have to remember current mute status for each DAC */
        changed = 0xFFFF;
        stac9460_dac_mute_all(ice, 0, &changed);
        /*printk(KERN_DEBUG "Rate change: %d, new MC: 0x%02x\n", rate, new);*/
        stac9460_put(ice, STAC946X_MASTER_CLOCKING, new);
        stac9460_2_put(ice, STAC946X_MASTER_CLOCKING, new);
        udelay(10);
        /* unmuting - only originally unmuted dacs -
        * i.e. those changed when muting */
        stac9460_dac_mute_all(ice, 1, &changed);
}


/*Limits value in dB for fader*/
static const DECLARE_TLV_DB_SCALE(db_scale_dac, -19125, 75, 0);
static const DECLARE_TLV_DB_SCALE(db_scale_adc, 0, 150, 0);

/*
 * Control tabs
 */
static const struct snd_kcontrol_new stac9640_controls[] = {
        {
                .iface = SNDRV_CTL_ELEM_IFACE_MIXER,
                .access = (SNDRV_CTL_ELEM_ACCESS_READWRITE |
                            SNDRV_CTL_ELEM_ACCESS_TLV_READ),
                .name = "Master Playback Switch",
                .info = stac9460_dac_mute_info,
                .get = stac9460_dac_mute_get,
                .put = stac9460_dac_mute_put,
                .private_value = 1,
                .tlv = { .p = db_scale_dac }
        },
        {
                .iface = SNDRV_CTL_ELEM_IFACE_MIXER,
                .name = "Master Playback Volume",
                .info = stac9460_dac_vol_info,
                .get = stac9460_dac_vol_get,
                .put = stac9460_dac_vol_put,
                .private_value = 1,
        },
        {
                .iface = SNDRV_CTL_ELEM_IFACE_MIXER,
                .name = "MIC/Line Input Enum",
                .count = 2,
                .info = stac9460_mic_sw_info,
                .get = stac9460_mic_sw_get,
                .put = stac9460_mic_sw_put,

        },
        {
                .iface = SNDRV_CTL_ELEM_IFACE_MIXER,
                .name = "DAC Switch",
                .count = 8,
                .info = stac9460_dac_mute_info,
                .get = stac9460_dac_mute_get,
                .put = stac9460_dac_mute_put,
        },
        {
                .iface = SNDRV_CTL_ELEM_IFACE_MIXER,
                .access = (SNDRV_CTL_ELEM_ACCESS_READWRITE |
                            SNDRV_CTL_ELEM_ACCESS_TLV_READ),

                .name = "DAC Volume",
                .count = 8,
                .info = stac9460_dac_vol_info,
                .get = stac9460_dac_vol_get,
                .put = stac9460_dac_vol_put,
                .tlv = { .p = db_scale_dac }
        },
        {
                .iface = SNDRV_CTL_ELEM_IFACE_MIXER,
                .name = "ADC Switch",
                .count = 2,
                .info = stac9460_adc_mute_info,
                .get = stac9460_adc_mute_get,
                .put = stac9460_adc_mute_put,
        },
        {
                .iface = SNDRV_CTL_ELEM_IFACE_MIXER,
                .access = (SNDRV_CTL_ELEM_ACCESS_READWRITE |
                            SNDRV_CTL_ELEM_ACCESS_TLV_READ),

                .name = "ADC Volume",
                .count = 2,
                .info = stac9460_adc_vol_info,
                .get = stac9460_adc_vol_get,
                .put = stac9460_adc_vol_put,
                .tlv = { .p = db_scale_adc }
        }
};



/*INIT*/
static int wtm_add_controls(struct snd_ice1712 *ice)
{
        unsigned int i;
        int err;

        for (i = 0; i < ARRAY_SIZE(stac9640_controls); i++) {
                err = snd_ctl_add(ice->card,
                                snd_ctl_new1(&stac9640_controls[i], ice));
                if (err < 0)
                        return err;
        }
        return 0;
}

static int wtm_init(struct snd_ice1712 *ice)
{
        static const unsigned short stac_inits_wtm[] = {
                STAC946X_RESET, 0,
                STAC946X_MASTER_CLOCKING, 0x11,
                (unsigned short)-1
        };
        const unsigned short *p;
        struct wtm_spec *spec;

        /*WTM 192M*/
        ice->num_total_dacs = 8;
        ice->num_total_adcs = 4;
        ice->force_rdma1 = 1;

        /*init mutex for dac mute conflict*/
        spec = kzalloc_obj(*spec);
        if (!spec)
                return -ENOMEM;
        ice->spec = spec;
        mutex_init(&spec->mute_mutex);


        /*initialize codec*/
        p = stac_inits_wtm;
        for (; *p != (unsigned short)-1; p += 2) {
                stac9460_put(ice, p[0], p[1]);
                stac9460_2_put(ice, p[0], p[1]);
        }
        ice->gpio.set_pro_rate = stac9460_set_rate_val;
        return 0;
}


static const unsigned char wtm_eeprom[] = {
        [ICE_EEP2_SYSCONF]      = 0x67, /*SYSCONF: clock 192KHz, mpu401,
                                                        4ADC, 8DAC */
        [ICE_EEP2_ACLINK]       = 0x80, /* ACLINK : I2S */
        [ICE_EEP2_I2S]          = 0xf8, /* I2S: vol; 96k, 24bit, 192k */
        [ICE_EEP2_SPDIF]        = 0xc1, /*SPDIF: out-en, spidf ext out*/
        [ICE_EEP2_GPIO_DIR]     = 0x9f,
        [ICE_EEP2_GPIO_DIR1]    = 0xff,
        [ICE_EEP2_GPIO_DIR2]    = 0x7f,
        [ICE_EEP2_GPIO_MASK]    = 0x9f,
        [ICE_EEP2_GPIO_MASK1]   = 0xff,
        [ICE_EEP2_GPIO_MASK2]   = 0x7f,
        [ICE_EEP2_GPIO_STATE]   = 0x16,
        [ICE_EEP2_GPIO_STATE1]  = 0x80,
        [ICE_EEP2_GPIO_STATE2]  = 0x00,
};


/*entry point*/
struct snd_ice1712_card_info snd_vt1724_wtm_cards[] = {
        {
                .subvendor = VT1724_SUBDEVICE_WTM,
                .name = "ESI Waveterminal 192M",
                .model = "WT192M",
                .chip_init = wtm_init,
                .build_controls = wtm_add_controls,
                .eeprom_size = sizeof(wtm_eeprom),
                .eeprom_data = wtm_eeprom,
        },
        {} /*terminator*/
};