/*
 * Driver for Sound Core PDAudioCF soundcards
 *
 * PCM part
 *
 * Copyright (c) 2003 by Jaroslav Kysela <perex@perex.cz>
 *
 *   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., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
 */

#include <linux/delay.h>
#include <sound/core.h>
#include <sound/asoundef.h>
#include "pdaudiocf.h"


/*
 * clear the SRAM contents
 */
static int pdacf_pcm_clear_sram(struct snd_pdacf *chip)
{
        int max_loop = 64 * 1024;

        while (inw(chip->port + PDAUDIOCF_REG_RDP) != inw(chip->port + PDAUDIOCF_REG_WDP)) {
                if (max_loop-- < 0)
                        return -EIO;
                inw(chip->port + PDAUDIOCF_REG_MD);
        }
        return 0;
}

/*
 * pdacf_pcm_trigger - trigger callback for capture
 */
static int pdacf_pcm_trigger(struct snd_pcm_substream *subs, int cmd)
{
        struct snd_pdacf *chip = snd_pcm_substream_chip(subs);
        struct snd_pcm_runtime *runtime = subs->runtime;
        int inc, ret = 0, rate;
        unsigned short mask, val, tmp;

        if (chip->chip_status & PDAUDIOCF_STAT_IS_STALE)
                return -EBUSY;

        switch (cmd) {
        case SNDRV_PCM_TRIGGER_START:
                chip->pcm_hwptr = 0;
                chip->pcm_tdone = 0;
                /* fall thru */
        case SNDRV_PCM_TRIGGER_PAUSE_RELEASE:
        case SNDRV_PCM_TRIGGER_RESUME:
                mask = 0;
                val = PDAUDIOCF_RECORD;
                inc = 1;
                rate = snd_ak4117_check_rate_and_errors(chip->ak4117, AK4117_CHECK_NO_STAT|AK4117_CHECK_NO_RATE);
                break;
        case SNDRV_PCM_TRIGGER_STOP:
        case SNDRV_PCM_TRIGGER_PAUSE_PUSH:
        case SNDRV_PCM_TRIGGER_SUSPEND:
                mask = PDAUDIOCF_RECORD;
                val = 0;
                inc = -1;
                rate = 0;
                break;
        default:
                return -EINVAL;
        }
        spin_lock(&chip->reg_lock);
        chip->pcm_running += inc;
        tmp = pdacf_reg_read(chip, PDAUDIOCF_REG_SCR);
        if (chip->pcm_running) {
                if ((chip->ak4117->rcs0 & AK4117_UNLCK) || runtime->rate != rate) {
                        chip->pcm_running -= inc;
                        ret = -EIO;
                        goto __end;
                }
        }
        tmp &= ~mask;
        tmp |= val;
        pdacf_reg_write(chip, PDAUDIOCF_REG_SCR, tmp);
      __end:
        spin_unlock(&chip->reg_lock);
        snd_ak4117_check_rate_and_errors(chip->ak4117, AK4117_CHECK_NO_RATE);
        return ret;
}

/*
 * pdacf_pcm_hw_params - hw_params callback for playback and capture
 */
static int pdacf_pcm_hw_params(struct snd_pcm_substream *subs,
                                     struct snd_pcm_hw_params *hw_params)
{
        return snd_pcm_lib_alloc_vmalloc_32_buffer
                                        (subs, params_buffer_bytes(hw_params));
}

/*
 * pdacf_pcm_hw_free - hw_free callback for playback and capture
 */
static int pdacf_pcm_hw_free(struct snd_pcm_substream *subs)
{
        return snd_pcm_lib_free_vmalloc_buffer(subs);
}

/*
 * pdacf_pcm_prepare - prepare callback for playback and capture
 */
static int pdacf_pcm_prepare(struct snd_pcm_substream *subs)
{
        struct snd_pdacf *chip = snd_pcm_substream_chip(subs);
        struct snd_pcm_runtime *runtime = subs->runtime;
        u16 val, nval, aval;

        if (chip->chip_status & PDAUDIOCF_STAT_IS_STALE)
                return -EBUSY;

        chip->pcm_channels = runtime->channels;

        chip->pcm_little = snd_pcm_format_little_endian(runtime->format) > 0;
#ifdef SNDRV_LITTLE_ENDIAN
        chip->pcm_swab = snd_pcm_format_big_endian(runtime->format) > 0;
#else
        chip->pcm_swab = chip->pcm_little;
#endif

        if (snd_pcm_format_unsigned(runtime->format))
                chip->pcm_xor = 0x80008000;

        if (pdacf_pcm_clear_sram(chip) < 0)
                return -EIO;
        
        val = nval = pdacf_reg_read(chip, PDAUDIOCF_REG_SCR);
        nval &= ~(PDAUDIOCF_DATAFMT0|PDAUDIOCF_DATAFMT1);
        switch (runtime->format) {
        case SNDRV_PCM_FORMAT_S16_LE:
        case SNDRV_PCM_FORMAT_S16_BE:
                break;
        default: /* 24-bit */
                nval |= PDAUDIOCF_DATAFMT0 | PDAUDIOCF_DATAFMT1;
                break;
        }
        aval = 0;
        chip->pcm_sample = 4;
        switch (runtime->format) {
        case SNDRV_PCM_FORMAT_S16_LE:
        case SNDRV_PCM_FORMAT_S16_BE:
                aval = AK4117_DIF_16R;
                chip->pcm_frame = 2;
                chip->pcm_sample = 2;
                break;
        case SNDRV_PCM_FORMAT_S24_3LE:
        case SNDRV_PCM_FORMAT_S24_3BE:
                chip->pcm_sample = 3;
                /* fall through */
        default: /* 24-bit */
                aval = AK4117_DIF_24R;
                chip->pcm_frame = 3;
                chip->pcm_xor &= 0xffff0000;
                break;
        }

        if (val != nval) {
                snd_ak4117_reg_write(chip->ak4117, AK4117_REG_IO, AK4117_DIF2|AK4117_DIF1|AK4117_DIF0, aval);
                pdacf_reg_write(chip, PDAUDIOCF_REG_SCR, nval);
        }

        val = pdacf_reg_read(chip,  PDAUDIOCF_REG_IER);
        val &= ~(PDAUDIOCF_IRQLVLEN1);
        val |= PDAUDIOCF_IRQLVLEN0;
        pdacf_reg_write(chip, PDAUDIOCF_REG_IER, val);

        chip->pcm_size = runtime->buffer_size;
        chip->pcm_period = runtime->period_size;
        chip->pcm_area = runtime->dma_area;

        return 0;
}


/*
 * capture hw information
 */

static struct snd_pcm_hardware pdacf_pcm_capture_hw = {
        .info =                 (SNDRV_PCM_INFO_MMAP | SNDRV_PCM_INFO_INTERLEAVED |
                                 SNDRV_PCM_INFO_PAUSE | SNDRV_PCM_INFO_RESUME |
                                 SNDRV_PCM_INFO_MMAP_VALID |
                                 SNDRV_PCM_INFO_BATCH),
        .formats =              SNDRV_PCM_FMTBIT_S16_LE | SNDRV_PCM_FMTBIT_S16_BE |
                                SNDRV_PCM_FMTBIT_S24_3LE | SNDRV_PCM_FMTBIT_S24_3BE |
                                SNDRV_PCM_FMTBIT_S32_LE | SNDRV_PCM_FMTBIT_S32_BE,
        .rates =                SNDRV_PCM_RATE_32000 |
                                SNDRV_PCM_RATE_44100 |
                                SNDRV_PCM_RATE_48000 |
                                SNDRV_PCM_RATE_88200 |
                                SNDRV_PCM_RATE_96000 |
                                SNDRV_PCM_RATE_176400 |
                                SNDRV_PCM_RATE_192000,
        .rate_min =             32000,
        .rate_max =             192000,
        .channels_min =         1,
        .channels_max =         2,
        .buffer_bytes_max =     (512*1024),
        .period_bytes_min =     8*1024,
        .period_bytes_max =     (64*1024),
        .periods_min =          2,
        .periods_max =          128,
        .fifo_size =            0,
};


/*
 * pdacf_pcm_capture_open - open callback for capture
 */
static int pdacf_pcm_capture_open(struct snd_pcm_substream *subs)
{
        struct snd_pcm_runtime *runtime = subs->runtime;
        struct snd_pdacf *chip = snd_pcm_substream_chip(subs);

        if (chip->chip_status & PDAUDIOCF_STAT_IS_STALE)
                return -EBUSY;

        runtime->hw = pdacf_pcm_capture_hw;
        runtime->private_data = chip;
        chip->pcm_substream = subs;

        return 0;
}

/*
 * pdacf_pcm_capture_close - close callback for capture
 */
static int pdacf_pcm_capture_close(struct snd_pcm_substream *subs)
{
        struct snd_pdacf *chip = snd_pcm_substream_chip(subs);

        if (!chip)
                return -EINVAL;
        pdacf_reinit(chip, 0);
        chip->pcm_substream = NULL;
        return 0;
}


/*
 * pdacf_pcm_capture_pointer - pointer callback for capture
 */
static snd_pcm_uframes_t pdacf_pcm_capture_pointer(struct snd_pcm_substream *subs)
{
        struct snd_pdacf *chip = snd_pcm_substream_chip(subs);
        return chip->pcm_hwptr;
}

/*
 * operators for PCM capture
 */
static struct snd_pcm_ops pdacf_pcm_capture_ops = {
        .open =         pdacf_pcm_capture_open,
        .close =        pdacf_pcm_capture_close,
        .ioctl =        snd_pcm_lib_ioctl,
        .hw_params =    pdacf_pcm_hw_params,
        .hw_free =      pdacf_pcm_hw_free,
        .prepare =      pdacf_pcm_prepare,
        .trigger =      pdacf_pcm_trigger,
        .pointer =      pdacf_pcm_capture_pointer,
        .page =         snd_pcm_lib_get_vmalloc_page,
        .mmap =         snd_pcm_lib_mmap_vmalloc,
};


/*
 * snd_pdacf_pcm_new - create and initialize a pcm
 */
int snd_pdacf_pcm_new(struct snd_pdacf *chip)
{
        struct snd_pcm *pcm;
        int err;

        err = snd_pcm_new(chip->card, "PDAudioCF", 0, 0, 1, &pcm);
        if (err < 0)
                return err;
                
        snd_pcm_set_ops(pcm, SNDRV_PCM_STREAM_CAPTURE, &pdacf_pcm_capture_ops);

        pcm->private_data = chip;
        pcm->info_flags = 0;
        strcpy(pcm->name, chip->card->shortname);
        chip->pcm = pcm;
        
        err = snd_ak4117_build(chip->ak4117, pcm->streams[SNDRV_PCM_STREAM_CAPTURE].substream);
        if (err < 0)
                return err;

        return 0;
}