/*
 *  Digital Audio (PCM) abstract layer
 *  Copyright (c) by Jaroslav Kysela <perex@suse.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 <sound/driver.h>
#include <sound/minors.h>
#include <sound/pcm.h>
#include <sound/control.h>
#include <sound/info.h>

MODULE_AUTHOR("Jaroslav Kysela <perex@suse.cz>, Abramo Bagnara <abramo@alsa-project.org>");
MODULE_DESCRIPTION("Midlevel PCM code for ALSA.");
MODULE_LICENSE("GPL");

snd_pcm_t *snd_pcm_devices[SNDRV_CARDS * SNDRV_PCM_DEVICES];
static LIST_HEAD(snd_pcm_notify_list);
static DECLARE_MUTEX(register_mutex);
static int snd_pcm_free(snd_pcm_t *pcm);
static int snd_pcm_dev_free(struct snd_device *device);
static int snd_pcm_dev_register(struct snd_device *device);
static int snd_pcm_dev_disconnect(struct snd_device *device);
static int snd_pcm_dev_unregister(struct snd_device *device);

static int snd_pcm_control_ioctl(snd_card_t * card,
                                 snd_ctl_file_t * control,
                                 unsigned int cmd, unsigned long arg)
{
    unsigned int tmp;

    tmp = card->number * SNDRV_PCM_DEVICES;
    switch (cmd) {
    case SNDRV_CTL_IOCTL_PCM_NEXT_DEVICE:
        {
            int device;

            if (get_user(device, (int *)arg))
                return -EFAULT;
            device = device < 0 ? 0 : device + 1;
            while (device < SNDRV_PCM_DEVICES) {
                if (snd_pcm_devices[tmp + device])
                    break;
                device++;
            }
            if (device == SNDRV_PCM_DEVICES)
                device = -1;
            if (put_user(device, (int *)arg))
                return -EFAULT;
            return 0;
        }
    case SNDRV_CTL_IOCTL_PCM_INFO:
        {
            snd_pcm_info_t *info = (snd_pcm_info_t *)arg;
            unsigned int device, subdevice;
            int stream;
            snd_pcm_t *pcm;
            snd_pcm_str_t *pstr;
            snd_pcm_substream_t *substream;
            if (get_user(device, &info->device))
                return -EFAULT;
            if (device >= SNDRV_PCM_DEVICES)
                return -ENXIO;
            pcm = snd_pcm_devices[tmp + device];
            if (pcm == NULL)
                return -ENXIO;
            if (get_user(stream, &info->stream))
                return -EFAULT;
            if (stream < 0 || stream > 1)
                return -EINVAL;
            pstr = &pcm->streams[stream];
            if (pstr->substream_count == 0)
                return -ENOENT;
            if (get_user(subdevice, &info->subdevice))
                return -EFAULT;
            if (subdevice >= pstr->substream_count)
                return -ENXIO;
            for (substream = pstr->substream; substream; substream = substream->next)
                if (substream->number == (int)subdevice)
                    break;
            if (substream == NULL)
                return -ENXIO;
            return snd_pcm_info_user(substream, info);
        }
    case SNDRV_CTL_IOCTL_PCM_PREFER_SUBDEVICE:
        {
            int val;

            if (get_user(val, (int *)arg))
                return -EFAULT;
            control->prefer_pcm_subdevice = val;
            return 0;
        }
    }
    return -ENOIOCTLCMD;
}
#define STATE(v) [SNDRV_PCM_STATE_##v] = #v
#define STREAM(v) [SNDRV_PCM_STREAM_##v] = #v
#define READY(v) [SNDRV_PCM_READY_##v] = #v
#define XRUN(v) [SNDRV_PCM_XRUN_##v] = #v
#define SILENCE(v) [SNDRV_PCM_SILENCE_##v] = #v
#define TSTAMP(v) [SNDRV_PCM_TSTAMP_##v] = #v
#define ACCESS(v) [SNDRV_PCM_ACCESS_##v] = #v
#define START(v) [SNDRV_PCM_START_##v] = #v
#define FORMAT(v) [SNDRV_PCM_FORMAT_##v] = #v
#define SUBFORMAT(v) [SNDRV_PCM_SUBFORMAT_##v] = #v

char *snd_pcm_stream_names[] = {
    "PLAYBACK",
    "CAPTURE",
};

char *snd_pcm_state_names[] = {
    "OPEN",
    "SETUP",
    "PREPARED",
    "RUNNING",
    "XRUN",
    "DRAINING",
    "PAUSED",
    "SUSPENDED",
};

char *snd_pcm_access_names[] = {
    "MMAP_INTERLEAVED",
    "MMAP_NONINTERLEAVED",
    "MMAP_COMPLEX",
    "RW_INTERLEAVED",
    "RW_NONINTERLEAVED",
};

char *snd_pcm_format_names[] = {
    "S8",
    "U8",
    "S16_LE",
    "S16_BE",
    "U16_LE",
    "U16_BE",
    "S24_LE",
    "S24_BE",
    "U24_LE",
    "U24_BE",
    "S32_LE",
    "S32_BE",
    "U32_LE",
    "U32_BE",
    "FLOAT_LE",
    "FLOAT_BE",
    "FLOAT64_LE",
    "FLOAT64_BE",
    "IEC958_SUBFRAME_LE",
    "IEC958_SUBFRAME_BE",
    "MU_LAW",
    "A_LAW",
    "IMA_ADPCM",
    "MPEG",
    "GSM",
    "SPECIAL",
    "S24_3LE",
    "S24_3BE",
    "U24_3LE",
    "U24_3BE",
    "S20_3LE",
    "S20_3BE",
    "U20_3LE",
    "U20_3BE",
    "S18_3LE",
    "S18_3BE",
    "U18_3LE",
    "U18_3BE",
};

char *snd_pcm_subformat_names[] = {
    "STD",
};

char *snd_pcm_tstamp_mode_names[] = {
    "NONE",
    "MMAP",
};

const char *snd_pcm_stream_name(int stream)
{
    snd_assert(stream <= SNDRV_PCM_STREAM_LAST, return 0);
    return snd_pcm_stream_names[stream];
}

const char *snd_pcm_access_name(snd_pcm_access_t access)
{
    snd_assert(access <= SNDRV_PCM_ACCESS_LAST, return 0);
    return snd_pcm_access_names[access];
}

const char *snd_pcm_format_name(snd_pcm_format_t format)
{
    snd_assert(format <= SNDRV_PCM_FORMAT_LAST, return 0);
    return snd_pcm_format_names[format];
}

const char *snd_pcm_subformat_name(snd_pcm_subformat_t subformat)
{
    snd_assert(subformat <= SNDRV_PCM_SUBFORMAT_LAST, return 0);
    return snd_pcm_subformat_names[subformat];
}

const char *snd_pcm_tstamp_mode_name(int mode)
{
    snd_assert(mode <= SNDRV_PCM_TSTAMP_LAST, return 0);
    return snd_pcm_tstamp_mode_names[mode];
}

const char *snd_pcm_state_name(snd_pcm_state_t state)
{
    snd_assert(state <= SNDRV_PCM_STATE_LAST, return 0);
    return snd_pcm_state_names[state];
}

#if defined(CONFIG_SND_PCM_OSS) || defined(CONFIG_SND_PCM_OSS_MODULE)
#include <linux/soundcard.h>
const char *snd_pcm_oss_format_name(int format)
{
    switch (format) {
    case AFMT_MU_LAW:
        return "MU_LAW";
    case AFMT_A_LAW:
        return "A_LAW";
    case AFMT_IMA_ADPCM:
        return "IMA_ADPCM";
    case AFMT_U8:
        return "U8";
    case AFMT_S16_LE:
        return "S16_LE";
    case AFMT_S16_BE:
        return "S16_BE";
    case AFMT_S8:
        return "S8";
    case AFMT_U16_LE:
        return "U16_LE";
    case AFMT_U16_BE:
        return "U16_BE";
    case AFMT_MPEG:
        return "MPEG";
    default:
        return "unknown";
    }
}
#endif

#ifdef CONFIG_PROC_FS
static void snd_pcm_proc_info_read(snd_pcm_substream_t *substream, snd_info_buffer_t *buffer)
{
    snd_pcm_info_t info;
    int err;
    snd_runtime_check(substream, return);
    err = snd_pcm_info(substream, &info);
    if (err < 0) {
        snd_iprintf(buffer, "error %d\n", err);
        return;
    }
    snd_iprintf(buffer, "card: %d\n", info.card);
    snd_iprintf(buffer, "device: %d\n", info.device);
    snd_iprintf(buffer, "subdevice: %d\n", info.subdevice);
    snd_iprintf(buffer, "stream: %s\n", snd_pcm_stream_name(info.stream));
    snd_iprintf(buffer, "id: %s\n", info.id);
    snd_iprintf(buffer, "name: %s\n", info.name);
    snd_iprintf(buffer, "subname: %s\n", info.subname);
    snd_iprintf(buffer, "class: %d\n", info.dev_class);
    snd_iprintf(buffer, "subclass: %d\n", info.dev_subclass);
    snd_iprintf(buffer, "subdevices_count: %d\n", info.subdevices_count);
    snd_iprintf(buffer, "subdevices_avail: %d\n", info.subdevices_avail);
}

static void snd_pcm_stream_proc_info_read(snd_info_entry_t *entry, snd_info_buffer_t *buffer)
{
    snd_pcm_proc_info_read(((snd_pcm_str_t *)entry->private_data)->substream, buffer);
}

static void snd_pcm_substream_proc_info_read(snd_info_entry_t *entry, snd_info_buffer_t *buffer)
{
    snd_pcm_proc_info_read((snd_pcm_substream_t *)entry->private_data, buffer);
}

static void snd_pcm_substream_proc_hw_params_read(snd_info_entry_t *entry, snd_info_buffer_t *buffer)
{
    snd_pcm_substream_t *substream = (snd_pcm_substream_t *)entry->private_data;
    snd_pcm_runtime_t *runtime = substream->runtime;
    if (!runtime) {
        snd_iprintf(buffer, "closed\n");
        return;
    }
    snd_pcm_stream_lock_irq(substream);
    if (runtime->status->state == SNDRV_PCM_STATE_OPEN) {
        snd_iprintf(buffer, "no setup\n");
        snd_pcm_stream_unlock_irq(substream);
        return;
    }
    snd_iprintf(buffer, "access: %s\n", snd_pcm_access_name(runtime->access));
    snd_iprintf(buffer, "format: %s\n", snd_pcm_format_name(runtime->format));
    snd_iprintf(buffer, "subformat: %s\n", snd_pcm_subformat_name(runtime->subformat));
    snd_iprintf(buffer, "channels: %u\n", runtime->channels);
    snd_iprintf(buffer, "rate: %u (%u/%u)\n", runtime->rate, runtime->rate_num, runtime->rate_den);
    snd_iprintf(buffer, "period_size: %lu\n", runtime->period_size);
    snd_iprintf(buffer, "buffer_size: %lu\n", runtime->buffer_size);
    snd_iprintf(buffer, "tick_time: %u\n", runtime->tick_time);
#if defined(CONFIG_SND_PCM_OSS) || defined(CONFIG_SND_PCM_OSS_MODULE)
    if (substream->oss.oss) {
        snd_iprintf(buffer, "OSS format: %s\n", snd_pcm_oss_format_name(runtime->oss.format));
        snd_iprintf(buffer, "OSS channels: %u\n", runtime->oss.channels);
        snd_iprintf(buffer, "OSS rate: %u\n", runtime->oss.rate);
        snd_iprintf(buffer, "OSS period bytes: %lu\n", (unsigned long)runtime->oss.period_bytes);
        snd_iprintf(buffer, "OSS periods: %u\n", runtime->oss.periods);
    }
#endif
    snd_pcm_stream_unlock_irq(substream);
}

static void snd_pcm_substream_proc_sw_params_read(snd_info_entry_t *entry, snd_info_buffer_t *buffer)
{
    snd_pcm_substream_t *substream = (snd_pcm_substream_t *)entry->private_data;
    snd_pcm_runtime_t *runtime = substream->runtime;
    if (!runtime) {
        snd_iprintf(buffer, "closed\n");
        return;
    }
    snd_pcm_stream_lock_irq(substream);
    if (runtime->status->state == SNDRV_PCM_STATE_OPEN) {
        snd_iprintf(buffer, "no setup\n");
        snd_pcm_stream_unlock_irq(substream);
        return;
    }
    snd_iprintf(buffer, "tstamp_mode: %s\n", snd_pcm_tstamp_mode_name(runtime->tstamp_mode));
    snd_iprintf(buffer, "period_step: %u\n", runtime->period_step);
    snd_iprintf(buffer, "sleep_min: %u\n", runtime->sleep_min);
    snd_iprintf(buffer, "avail_min: %lu\n", runtime->control->avail_min);
    snd_iprintf(buffer, "xfer_align: %lu\n", runtime->xfer_align);
    snd_iprintf(buffer, "start_threshold: %lu\n", runtime->start_threshold);
    snd_iprintf(buffer, "stop_threshold: %lu\n", runtime->stop_threshold);
    snd_iprintf(buffer, "silence_threshold: %lu\n", runtime->silence_threshold);
    snd_iprintf(buffer, "silence_size: %lu\n", runtime->silence_size);
    snd_iprintf(buffer, "boundary: %lu\n", runtime->boundary);
    snd_pcm_stream_unlock_irq(substream);
}

static void snd_pcm_substream_proc_status_read(snd_info_entry_t *entry, snd_info_buffer_t *buffer)
{
    snd_pcm_substream_t *substream = (snd_pcm_substream_t *)entry->private_data;
    snd_pcm_runtime_t *runtime = substream->runtime;
    snd_pcm_status_t status;
    int err;
    if (!runtime) {
        snd_iprintf(buffer, "closed\n");
        return;
    }
    memset(&status, 0, sizeof(status));
    err = snd_pcm_status(substream, &status);
    if (err < 0) {
        snd_iprintf(buffer, "error %d\n", err);
        return;
    }
    snd_iprintf(buffer, "state: %s\n", snd_pcm_state_name(status.state));
#ifndef TARGET_OS2
    snd_iprintf(buffer, "trigger_time: %ld.%09ld\n",
                status.trigger_tstamp.tv_sec, status.trigger_tstamp.tv_nsec);
    snd_iprintf(buffer, "tstamp      : %ld.%09ld\n",
                status.tstamp.tv_sec, status.tstamp.tv_nsec);
#endif
    snd_iprintf(buffer, "delay       : %ld\n", status.delay);
    snd_iprintf(buffer, "avail       : %ld\n", status.avail);
    snd_iprintf(buffer, "avail_max   : %ld\n", status.avail_max);
    snd_iprintf(buffer, "-----\n");
    snd_iprintf(buffer, "hw_ptr      : %ld\n", runtime->status->hw_ptr);
    snd_iprintf(buffer, "appl_ptr    : %ld\n", runtime->control->appl_ptr);
}
#endif

#ifdef CONFIG_SND_DEBUG
static void snd_pcm_xrun_debug_read(snd_info_entry_t *entry, snd_info_buffer_t *buffer)
{
    snd_pcm_str_t *pstr = (snd_pcm_str_t *)entry->private_data;
    snd_iprintf(buffer, "%d\n", pstr->xrun_debug);
}

static void snd_pcm_xrun_debug_write(snd_info_entry_t *entry, snd_info_buffer_t *buffer)
{
    snd_pcm_str_t *pstr = (snd_pcm_str_t *)entry->private_data;
    char line[64];
    if (!snd_info_get_line(buffer, line, sizeof(line)))
        pstr->xrun_debug = !!simple_strtoul(line, NULL, 10);
}
#endif

static int snd_pcm_stream_proc_init(snd_pcm_str_t *pstr)
{
    snd_pcm_t *pcm = pstr->pcm;
    snd_info_entry_t *entry;
    char name[16];

    sprintf(name, "pcm%i%c", pcm->device,
            pstr->stream == SNDRV_PCM_STREAM_PLAYBACK ? 'p' : 'c');
    if ((entry = snd_info_create_card_entry(pcm->card, name, pcm->card->proc_root)) == NULL)
        return -ENOMEM;
    entry->mode = S_IFDIR | S_IRUGO | S_IXUGO;
    if (snd_info_register(entry) < 0) {
        snd_info_free_entry(entry);
        return -ENOMEM;
    }
    pstr->proc_root = entry;

    if ((entry = snd_info_create_card_entry(pcm->card, "info", pstr->proc_root)) != NULL) {
        snd_info_set_text_ops(entry, pstr, 256, snd_pcm_stream_proc_info_read);
        if (snd_info_register(entry) < 0) {
            snd_info_free_entry(entry);
            entry = NULL;
        }
    }
    pstr->proc_info_entry = entry;

#ifdef CONFIG_SND_DEBUG
    if ((entry = snd_info_create_card_entry(pcm->card, "xrun_debug", pstr->proc_root)) != NULL) {
        entry->c.text.read_size = 64;
        entry->c.text.read = snd_pcm_xrun_debug_read;
        entry->c.text.write_size = 64;
        entry->c.text.write = snd_pcm_xrun_debug_write;
        entry->private_data = pstr;
        if (snd_info_register(entry) < 0) {
            snd_info_free_entry(entry);
            entry = NULL;
        }
    }
    pstr->proc_xrun_debug_entry = entry;
#endif
    return 0;
}

static int snd_pcm_stream_proc_done(snd_pcm_str_t *pstr)
{
#ifdef CONFIG_SND_DEBUG
    if (pstr->proc_xrun_debug_entry) {
        snd_info_unregister(pstr->proc_xrun_debug_entry);
        pstr->proc_xrun_debug_entry = NULL;
    }
#endif
    if (pstr->proc_info_entry) {
        snd_info_unregister(pstr->proc_info_entry);
        pstr->proc_info_entry = NULL;
    }
    if (pstr->proc_root) {
        snd_info_unregister(pstr->proc_root);
        pstr->proc_root = NULL;
    }
    return 0;
}

static int snd_pcm_substream_proc_init(snd_pcm_substream_t *substream)
{
    snd_info_entry_t *entry;
    snd_card_t *card;
    char name[16];

    card = substream->pcm->card;

    sprintf(name, "sub%i", substream->number);
    if ((entry = snd_info_create_card_entry(card, name, substream->pstr->proc_root)) == NULL)
        return -ENOMEM;
    entry->mode = S_IFDIR | S_IRUGO | S_IXUGO;
    if (snd_info_register(entry) < 0) {
        snd_info_free_entry(entry);
        return -ENOMEM;
    }
    substream->proc_root = entry;

    if ((entry = snd_info_create_card_entry(card, "info", substream->proc_root)) != NULL) {
        snd_info_set_text_ops(entry, substream, 256, snd_pcm_substream_proc_info_read);
        if (snd_info_register(entry) < 0) {
            snd_info_free_entry(entry);
            entry = NULL;
        }
    }
    substream->proc_info_entry = entry;

    if ((entry = snd_info_create_card_entry(card, "hw_params", substream->proc_root)) != NULL) {
        snd_info_set_text_ops(entry, substream, 256, snd_pcm_substream_proc_hw_params_read);
        if (snd_info_register(entry) < 0) {
            snd_info_free_entry(entry);
            entry = NULL;
        }
    }
    substream->proc_hw_params_entry = entry;

    if ((entry = snd_info_create_card_entry(card, "sw_params", substream->proc_root)) != NULL) {
        snd_info_set_text_ops(entry, substream, 256, snd_pcm_substream_proc_sw_params_read);
        if (snd_info_register(entry) < 0) {
            snd_info_free_entry(entry);
            entry = NULL;
        }
    }
    substream->proc_sw_params_entry = entry;

    if ((entry = snd_info_create_card_entry(card, "status", substream->proc_root)) != NULL) {
        snd_info_set_text_ops(entry, substream, 256, snd_pcm_substream_proc_status_read);
        if (snd_info_register(entry) < 0) {
            snd_info_free_entry(entry);
            entry = NULL;
        }
    }
    substream->proc_status_entry = entry;

    return 0;
}

static int snd_pcm_substream_proc_done(snd_pcm_substream_t *substream)
{
    if (substream->proc_info_entry) {
        snd_info_unregister(substream->proc_info_entry);
        substream->proc_info_entry = NULL;
    }
    if (substream->proc_hw_params_entry) {
        snd_info_unregister(substream->proc_hw_params_entry);
        substream->proc_hw_params_entry = NULL;
    }
    if (substream->proc_sw_params_entry) {
        snd_info_unregister(substream->proc_sw_params_entry);
        substream->proc_sw_params_entry = NULL;
    }
    if (substream->proc_status_entry) {
        snd_info_unregister(substream->proc_status_entry);
        substream->proc_status_entry = NULL;
    }
    if (substream->proc_root) {
        snd_info_unregister(substream->proc_root);
        substream->proc_root = NULL;
    }
    return 0;
}

/**
 * snd_pcm_new_stream - create a new PCM stream
 * @pcm: the pcm instance
 * @stream: the stream direction, SNDRV_PCM_STREAM_XXX
 * @substream_count: the number of substreams
 *
 * Creates a new stream for the pcm.
 * The corresponding stream on the pcm must have been empty before
 * calling this, i.e. zero must be given to the argument of
 * snd_pcm_new().
 *
 * Returns zero if successful, or a negative error code on failure.
 */
int snd_pcm_new_stream(snd_pcm_t *pcm, int stream, int substream_count)
{
    int idx, err;
    snd_pcm_str_t *pstr = &pcm->streams[stream];
    struct snd_pcm_substream *substream, *prev;

#if defined(CONFIG_SND_PCM_OSS) || defined(CONFIG_SND_PCM_OSS_MODULE)
    init_MUTEX(&pstr->oss.setup_mutex);
#endif
    pstr->stream = stream;
    pstr->pcm = pcm;
    pstr->substream_count = substream_count;
    pstr->reg = &snd_pcm_reg[stream];
    if (substream_count > 0) {
        err = snd_pcm_stream_proc_init(pstr);
        if (err < 0)
            return err;
    }
    prev = NULL;
    for (idx = 0, prev = NULL; idx < substream_count; idx++) {
        substream = (struct snd_pcm_substream *)kzalloc(sizeof(*substream), GFP_KERNEL);
        if (substream == NULL)
            return -ENOMEM;
        substream->pcm = pcm;
        substream->pstr = pstr;
        substream->number = idx;
        substream->stream = stream;
        sprintf(substream->name, "subdevice #%i", idx);
        substream->buffer_bytes_max = UINT_MAX;
        if (prev == NULL)
            pstr->substream = substream;
        else
            prev->next = substream;
        err = snd_pcm_substream_proc_init(substream);
        if (err < 0) {
            kfree(substream);
            return err;
        }
        substream->group = &substream->self_group;
        spin_lock_init(&substream->self_group.lock);
        INIT_LIST_HEAD(&substream->self_group.substreams);
        list_add_tail(&substream->link_list, &substream->self_group.substreams);
        spin_lock_init(&substream->timer_lock);
        prev = substream;
    }
    return 0;
}

/**
 * snd_pcm_new - create a new PCM instance
 * @card: the card instance
 * @id: the id string
 * @device: the device index (zero based)
 * @playback_count: the number of substreams for playback
 * @capture_count: the number of substreams for capture
 * @rpcm: the pointer to store the new pcm instance
 *
 * Creates a new PCM instance.
 *
 * The pcm operators have to be set afterwards to the new instance
 * via snd_pcm_set_ops().
 *
 * Returns zero if successful, or a negative error code on failure.
 */
int snd_pcm_new(snd_card_t * card, char *id, int device,
                int playback_count, int capture_count,
                snd_pcm_t ** rpcm)
{
    snd_pcm_t *pcm;
    int err;
    static snd_device_ops_t ops = {
        snd_pcm_dev_free,
        snd_pcm_dev_register,
        snd_pcm_dev_disconnect,
        snd_pcm_dev_unregister
    };

    snd_assert(rpcm != NULL, return -EINVAL);
    *rpcm = NULL;
    snd_assert(card != NULL, return -ENXIO);
    pcm = kzalloc(sizeof(*pcm), GFP_KERNEL);
    if (pcm == NULL)
        return -ENOMEM;
    pcm->card = card;
    pcm->device = device;
    if (id) {
        strlcpy(pcm->id, id, sizeof(pcm->id));
    }
    if ((err = snd_pcm_new_stream(pcm, SNDRV_PCM_STREAM_PLAYBACK, playback_count)) < 0) {
        snd_pcm_free(pcm);
        return err;
    }
    if ((err = snd_pcm_new_stream(pcm, SNDRV_PCM_STREAM_CAPTURE, capture_count)) < 0) {
        snd_pcm_free(pcm);
        return err;
    }
    init_MUTEX(&pcm->open_mutex);
    init_waitqueue_head(&pcm->open_wait);
    if ((err = snd_device_new(card, SNDRV_DEV_PCM, pcm, &ops)) < 0) {
        snd_pcm_free(pcm);
        return err;
    }
    *rpcm = pcm;
    return 0;
}

static void snd_pcm_free_stream(snd_pcm_str_t * pstr)
{
    snd_pcm_substream_t *substream, *substream_next;
#if defined(CONFIG_SND_PCM_OSS) || defined(CONFIG_SND_PCM_OSS_MODULE)
    snd_pcm_oss_setup_t *setup, *setupn;
#endif
    substream = pstr->substream;
    while (substream) {
        substream_next = substream->next;
        snd_pcm_substream_proc_done(substream);
        kfree(substream);
        substream = substream_next;
    }
    snd_pcm_stream_proc_done(pstr);
#if defined(CONFIG_SND_PCM_OSS) || defined(CONFIG_SND_PCM_OSS_MODULE)
    for (setup = pstr->oss.setup_list; setup; setup = setupn) {
        setupn = setup->next;
        kfree(setup->task_name);
        kfree(setup);
    }
#endif
}

static int snd_pcm_free(snd_pcm_t *pcm)
{
    snd_assert(pcm != NULL, return -ENXIO);
    if (pcm->private_free)
        pcm->private_free(pcm);
    snd_pcm_lib_preallocate_free_for_all(pcm);
    snd_pcm_free_stream(&pcm->streams[SNDRV_PCM_STREAM_PLAYBACK]);
    snd_pcm_free_stream(&pcm->streams[SNDRV_PCM_STREAM_CAPTURE]);
    kfree(pcm);
    return 0;
}

static int snd_pcm_dev_free(snd_device_t *device)
{
    snd_pcm_t *pcm = device->device_data;
    return snd_pcm_free(pcm);
}

static void snd_pcm_tick_timer_func(unsigned long data)
{
    snd_pcm_substream_t *substream = (snd_pcm_substream_t*) data;
    snd_pcm_tick_elapsed(substream);
}

int snd_pcm_open_substream(snd_pcm_t *pcm, int stream,
                           snd_pcm_substream_t **rsubstream)
{
    snd_pcm_str_t * pstr;
    snd_pcm_substream_t * substream;
    snd_pcm_runtime_t * runtime;
    snd_ctl_file_t *kctl;
    snd_card_t *card;
    struct list_head *list;
    int prefer_subdevice = -1;
    size_t size;

    snd_assert(rsubstream != NULL, return -EINVAL);
    *rsubstream = NULL;
    snd_assert(pcm != NULL, return -ENXIO);
    pstr = &pcm->streams[stream];
    if (pstr->substream == NULL)
        return -ENODEV;

    card = pcm->card;
    down_read(&card->controls_rwsem);
    list_for_each(list, &card->ctl_files) {
        kctl = snd_ctl_file(list);
        if (kctl->pid == current->pid) {
            prefer_subdevice = kctl->prefer_pcm_subdevice;
            break;
        }
    }
    up_read(&card->controls_rwsem);

    if (pstr->substream_count == 0)
        return -ENODEV;
    switch (stream) {
    case SNDRV_PCM_STREAM_PLAYBACK:
        if (pcm->info_flags & SNDRV_PCM_INFO_HALF_DUPLEX) {
            for (substream = pcm->streams[SNDRV_PCM_STREAM_CAPTURE].substream; substream; substream = substream->next) {
                if (SUBSTREAM_BUSY(substream))
                {
                    printk("substream %x bysy\n", substream);
                    return -EAGAIN;
                }
            }
        }
        break;
    case SNDRV_PCM_STREAM_CAPTURE:
        if (pcm->info_flags & SNDRV_PCM_INFO_HALF_DUPLEX) {
            for (substream = pcm->streams[SNDRV_PCM_STREAM_PLAYBACK].substream; substream; substream = substream->next) {
                if (SUBSTREAM_BUSY(substream))
                {
                    return -EAGAIN;
                }
            }
        }
        break;
    default:
        return -EINVAL;
    }

    if (prefer_subdevice >= 0) {
        for (substream = pstr->substream; substream; substream = substream->next)
            if (!SUBSTREAM_BUSY(substream) && substream->number == prefer_subdevice)
                goto __ok;
    }
    for (substream = pstr->substream; substream; substream = substream->next)
        if (!SUBSTREAM_BUSY(substream))
            break;
__ok:
    if (substream == NULL)
    {
        return -EAGAIN;
    }

    runtime = kzalloc(sizeof(*runtime), GFP_KERNEL);
    if (runtime == NULL)
        return -ENOMEM;

    size = PAGE_ALIGN(sizeof(snd_pcm_mmap_status_t));
    runtime->status = snd_malloc_pages(size, GFP_KERNEL);
    if (runtime->status == NULL) {
        kfree(runtime);
        return -ENOMEM;
    }
    memset((void*)runtime->status, 0, size);

    size = PAGE_ALIGN(sizeof(snd_pcm_mmap_control_t));
    runtime->control = snd_malloc_pages(size, GFP_KERNEL);
    if (runtime->control == NULL) {
        snd_free_pages((void*)runtime->status, PAGE_ALIGN(sizeof(snd_pcm_mmap_status_t)));
        kfree(runtime);
        return -ENOMEM;
    }
    memset((void*)runtime->control, 0, size);

    init_waitqueue_head(&runtime->sleep);
    atomic_set(&runtime->mmap_count, 0);
    init_timer(&runtime->tick_timer);
    runtime->tick_timer.function = snd_pcm_tick_timer_func;
    runtime->tick_timer.data = (unsigned long) substream;

    runtime->status->state = SNDRV_PCM_STATE_OPEN;

    substream->runtime = runtime;
    substream->private_data = pcm->private_data;
    pstr->substream_opened++;
    *rsubstream = substream;
    return 0;
}

void snd_pcm_release_substream(snd_pcm_substream_t *substream)
{
    snd_pcm_runtime_t * runtime;
    substream->file = NULL;
    runtime = substream->runtime;
    snd_assert(runtime != NULL, return);
    if (runtime->private_free != NULL)
        runtime->private_free(runtime);
    snd_free_pages((void*)runtime->status, PAGE_ALIGN(sizeof(snd_pcm_mmap_status_t)));
    snd_free_pages((void*)runtime->control, PAGE_ALIGN(sizeof(snd_pcm_mmap_control_t)));
    if (runtime->hw_constraints.rules)
        kfree(runtime->hw_constraints.rules);
    kfree(runtime);
    substream->runtime = NULL;
    substream->pstr->substream_opened--;
}

static int snd_pcm_dev_register(snd_device_t *device)
{
    int idx, cidx, err;
    unsigned short minor;
    snd_pcm_substream_t *substream;
    struct list_head *list;
    char str[16];
    snd_pcm_t *pcm = device->device_data;

    snd_assert(pcm != NULL && device != NULL, return -ENXIO);
    down(&register_mutex);
    idx = (pcm->card->number * SNDRV_PCM_DEVICES) + pcm->device;
    if (snd_pcm_devices[idx]) {
        up(&register_mutex);
        return -EBUSY;
    }
    snd_pcm_devices[idx] = pcm;
    for (cidx = 0; cidx < 2; cidx++) {
        int devtype = -1;
        if (pcm->streams[cidx].substream == NULL)
            continue;
        switch (cidx) {
        case SNDRV_PCM_STREAM_PLAYBACK:
            sprintf(str, "pcmC%iD%ip", pcm->card->number, pcm->device);
            minor = SNDRV_MINOR_PCM_PLAYBACK + idx;
            devtype = SNDRV_DEVICE_TYPE_PCM_PLAYBACK;
            break;
        case SNDRV_PCM_STREAM_CAPTURE:
            sprintf(str, "pcmC%iD%ic", pcm->card->number, pcm->device);
            minor = SNDRV_MINOR_PCM_CAPTURE + idx;
            devtype = SNDRV_DEVICE_TYPE_PCM_CAPTURE;
            break;
        }
        if ((err = snd_register_device(devtype, pcm->card, pcm->device, pcm->streams[cidx].reg, str)) < 0) {
            snd_pcm_devices[idx] = NULL;
            up(&register_mutex);
            return err;
        }
        for (substream = pcm->streams[cidx].substream; substream; substream = substream->next)
            snd_pcm_timer_init(substream);
    }
    list_for_each(list, &snd_pcm_notify_list) {
        snd_pcm_notify_t *notify;
        notify = list_entry(list, snd_pcm_notify_t, list);
        notify->n_register(pcm);
    }
    up(&register_mutex);
    return 0;
}

static int snd_pcm_dev_disconnect(snd_device_t *device)
{
    snd_pcm_t *pcm = device->device_data;
    struct list_head *list;
    snd_pcm_substream_t *substream;
    int idx, cidx;

    down(&register_mutex);
    idx = (pcm->card->number * SNDRV_PCM_DEVICES) + pcm->device;
    snd_pcm_devices[idx] = NULL;
    for (cidx = 0; cidx < 2; cidx++)
        for (substream = pcm->streams[cidx].substream; substream; substream = substream->next)
            if (substream->runtime)
                substream->runtime->status->state = SNDRV_PCM_STATE_DISCONNECTED;
    list_for_each(list, &snd_pcm_notify_list) {
        snd_pcm_notify_t *notify;
        notify = list_entry(list, snd_pcm_notify_t, list);
        notify->n_disconnect(pcm);
    }
    up(&register_mutex);
    return 0;
}

static int snd_pcm_dev_unregister(snd_device_t *device)
{
    int idx, cidx, devtype;
    snd_pcm_substream_t *substream;
    struct list_head *list;
    snd_pcm_t *pcm = device->device_data;

    snd_assert(pcm != NULL, return -ENXIO);
    down(&register_mutex);
    idx = (pcm->card->number * SNDRV_PCM_DEVICES) + pcm->device;
    snd_pcm_devices[idx] = NULL;
    for (cidx = 0; cidx < 2; cidx++) {
        devtype = -1;
        switch (cidx) {
        case SNDRV_PCM_STREAM_PLAYBACK:
            devtype = SNDRV_DEVICE_TYPE_PCM_PLAYBACK;
            break;
        case SNDRV_PCM_STREAM_CAPTURE:
            devtype = SNDRV_DEVICE_TYPE_PCM_CAPTURE;
            break;
        }
        snd_unregister_device(devtype, pcm->card, pcm->device);
        for (substream = pcm->streams[cidx].substream; substream; substream = substream->next)
            snd_pcm_timer_done(substream);
    }
    list_for_each(list, &snd_pcm_notify_list) {
        snd_pcm_notify_t *notify;
        notify = list_entry(list, snd_pcm_notify_t, list);
        notify->n_unregister(pcm);
    }
    up(&register_mutex);
    return snd_pcm_free(pcm);
}

int snd_pcm_notify(snd_pcm_notify_t *notify, int nfree)
{
    int idx;

    snd_assert(notify != NULL && notify->n_register != NULL && notify->n_unregister != NULL, return -EINVAL);
    down(&register_mutex);
    if (nfree) {
        list_del(&notify->list);
        for (idx = 0; idx < SNDRV_CARDS * SNDRV_PCM_DEVICES; idx++) {
            if (snd_pcm_devices[idx] == NULL)
                continue;
            notify->n_unregister(snd_pcm_devices[idx]);
        }
    } else {
        list_add_tail(&notify->list, &snd_pcm_notify_list);
        for (idx = 0; idx < SNDRV_CARDS * SNDRV_PCM_DEVICES; idx++) {
            if (snd_pcm_devices[idx] == NULL)
                continue;
            notify->n_register(snd_pcm_devices[idx]);
        }
    }
    up(&register_mutex);
    return 0;
}

/*
 *  Info interface
 */

static void snd_pcm_proc_read(snd_info_entry_t *entry, snd_info_buffer_t * buffer)
{
    int idx;
    snd_pcm_t *pcm;

    down(&register_mutex);
    for (idx = 0; idx < SNDRV_CARDS * SNDRV_PCM_DEVICES; idx++) {
        pcm = snd_pcm_devices[idx];
        if (pcm == NULL)
            continue;
        snd_iprintf(buffer, "%02i-%02i: %s : %s", idx / SNDRV_PCM_DEVICES,
                    idx % SNDRV_PCM_DEVICES, pcm->id, pcm->name);
        if (pcm->streams[SNDRV_PCM_STREAM_PLAYBACK].substream)
            snd_iprintf(buffer, " : playback %i", pcm->streams[SNDRV_PCM_STREAM_PLAYBACK].substream_count);
        if (pcm->streams[SNDRV_PCM_STREAM_CAPTURE].substream)
            snd_iprintf(buffer, " : capture %i", pcm->streams[SNDRV_PCM_STREAM_CAPTURE].substream_count);
        snd_iprintf(buffer, "\n");

    }
    up(&register_mutex);
}

void pcm_info(void)
{
    int idx;
    snd_pcm_t *pcm;

    down(&register_mutex);
    for (idx = 0; idx < SNDRV_CARDS * SNDRV_PCM_DEVICES; idx++) {
        pcm = snd_pcm_devices[idx];
        if (pcm == NULL)
            continue;
        printk("%02i-%02i: %s : %s", idx / SNDRV_PCM_DEVICES,
               idx % SNDRV_PCM_DEVICES, pcm->id, pcm->name);
        if (pcm->streams[SNDRV_PCM_STREAM_PLAYBACK].substream)
            printk(" : playback %i", pcm->streams[SNDRV_PCM_STREAM_PLAYBACK].substream_count);
        if (pcm->streams[SNDRV_PCM_STREAM_CAPTURE].substream)
            printk(" : capture %i", pcm->streams[SNDRV_PCM_STREAM_CAPTURE].substream_count);
        printk("\n");
    }
    up(&register_mutex);
}
/* get number of pcm instance s for given card */
int pcm_instances(int card_id)
{
    int idx;
    int pcms = 0;
    snd_pcm_t *pcm;

    down(&register_mutex);
    for (idx = 0; idx < SNDRV_PCM_DEVICES; idx++) {
        pcm = snd_pcm_devices[(card_id*SNDRV_PCM_DEVICES)+idx];
        if (pcm == NULL)
            continue;
        pcms++;
    }
    up(&register_mutex);
    return pcms;
}

/*
 *  ENTRY functions
 */

static snd_info_entry_t *snd_pcm_proc_entry = NULL;

static int __init alsa_pcm_init(void)
{
    snd_info_entry_t *entry;

    snd_ctl_register_ioctl(snd_pcm_control_ioctl);
    if ((entry = snd_info_create_module_entry(THIS_MODULE, "pcm", NULL)) != NULL) {
        snd_info_set_text_ops(entry, NULL, SNDRV_CARDS * SNDRV_PCM_DEVICES * 128, snd_pcm_proc_read);
        if (snd_info_register(entry) < 0) {
            snd_info_free_entry(entry);
            entry = NULL;
        }
    }
    snd_pcm_proc_entry = entry;
    return 0;
}

static void __exit alsa_pcm_exit(void)
{
    snd_ctl_unregister_ioctl(snd_pcm_control_ioctl);
    if (snd_pcm_proc_entry) {
        snd_info_unregister(snd_pcm_proc_entry);
        snd_pcm_proc_entry = NULL;
    }
}

module_init(alsa_pcm_init)
module_exit(alsa_pcm_exit)

EXPORT_SYMBOL(snd_pcm_devices);
EXPORT_SYMBOL(snd_pcm_new);
EXPORT_SYMBOL(snd_pcm_new_stream);
EXPORT_SYMBOL(snd_pcm_notify);
EXPORT_SYMBOL(snd_pcm_open_substream);
EXPORT_SYMBOL(snd_pcm_release_substream);
EXPORT_SYMBOL(snd_pcm_format_name);
EXPORT_SYMBOL(snd_pcm_subformat_name);
/* pcm_native.c */
EXPORT_SYMBOL(snd_pcm_link_rwlock);
EXPORT_SYMBOL(snd_pcm_start);
#ifdef CONFIG_PM
EXPORT_SYMBOL(snd_pcm_suspend);
EXPORT_SYMBOL(snd_pcm_suspend_all);
#endif
EXPORT_SYMBOL(snd_pcm_kernel_playback_ioctl);
EXPORT_SYMBOL(snd_pcm_kernel_capture_ioctl);
EXPORT_SYMBOL(snd_pcm_kernel_ioctl);
EXPORT_SYMBOL(snd_pcm_open);
EXPORT_SYMBOL(snd_pcm_release);
EXPORT_SYMBOL(snd_pcm_playback_poll);
EXPORT_SYMBOL(snd_pcm_capture_poll);
EXPORT_SYMBOL(snd_pcm_mmap_data);
/* pcm_misc.c */
EXPORT_SYMBOL(snd_pcm_format_signed);
EXPORT_SYMBOL(snd_pcm_format_unsigned);
EXPORT_SYMBOL(snd_pcm_format_linear);
EXPORT_SYMBOL(snd_pcm_format_little_endian);
EXPORT_SYMBOL(snd_pcm_format_big_endian);
EXPORT_SYMBOL(snd_pcm_format_width);
EXPORT_SYMBOL(snd_pcm_format_physical_width);
EXPORT_SYMBOL(snd_pcm_format_size);
EXPORT_SYMBOL(snd_pcm_format_silence_64);
EXPORT_SYMBOL(snd_pcm_format_set_silence);
EXPORT_SYMBOL(snd_pcm_build_linear_format);
EXPORT_SYMBOL(snd_pcm_limit_hw_rates);
