alsa-lib/src/pcm/pcm_surr.c

/*
 *  PCM - Surround plugin
 *  Copyright (c) 2001 by Jaroslav Kysela <perex@suse.cz>
 *
 *  This plugin offers 4.0 and 5.1 surround devices with these routing:
 *
 *   1st channel - front left speaker
 *   2nd channel - front rear speaker
 *   3rd channel - rear left speaker
 *   4th channel - rear right speaker
 *   5th channel - center speaker
 *   6th channel - LFE channel (woofer)
 *
 *
 *   This library is free software; you can redistribute it and/or modify
 *   it under the terms of the GNU Library 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 Library General Public License for more details.
 *
 *   You should have received a copy of the GNU Library General Public
 *   License along with this library; if not, write to the Free Software
 *   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 */
  
#include <byteswap.h>
#include <limits.h>
#include <sys/shm.h>
#include "../control/control_local.h"
#include "pcm_local.h"
#include "pcm_plugin.h"

#define SURR_FLG_CAPTURE	(1<<0)
#define SURR_FLG_NO_4CH		(1<<1)
#define SURR_FLG_NO_6CH		(1<<2)
#define SURR_FLG_NO_CTL_CLOSE	(1<<3)
#define SURR_FLG_FD1		(1<<4)

typedef struct _snd_pcm_surround snd_pcm_surround_t;

typedef struct {
	snd_card_type_t type;
	unsigned int flags;
	int (*scount)(snd_ctl_t *ctl, snd_ctl_card_info_t *info, snd_pcm_surround_type_t type);
	int (*sopen)(snd_pcm_surround_t *surr,
		     snd_ctl_card_info_t *info,
		     snd_pcm_surround_type_t type,
		     snd_pcm_stream_t stream,
		     int mode);
	void (*sclose)(snd_pcm_surround_t *surr);
} surround_open_t;

struct _snd_pcm_surround {
	int card;		/* card number */
	int device;		/* device number */
	unsigned int channels;	/* count of channels (4 or 6) */
	int pcms;		/* count of PCM channels */
	snd_pcm_t *pcm[3];	/* up to three PCM stereo streams */	
	int linked[3];		/* streams are linked */
	snd_ctl_t *ctl;		/* CTL handle */
	surround_open_t *po;
	union {
		struct {
			snd_ctl_elem_value_t *sw4ch;
			snd_ctl_elem_value_t *sw_pcm;
		} ens1370;
		struct {
			snd_ctl_elem_value_t *rear_path;
		} trid4nx;
	} s;
};

static int snd_pcm_surround_free(snd_pcm_surround_t *surr);

static int snd_pcm_surround_close(snd_pcm_t *pcm)
{
	snd_pcm_surround_t *surr = pcm->private_data;
	return snd_pcm_surround_free(surr);
}

static int snd_pcm_surround_nonblock(snd_pcm_t *pcm, int nonblock)
{
	int i, err = 0, err1;
	snd_pcm_surround_t *surr = pcm->private_data;
	for (i = 0; i < surr->pcms; i++) {
		err1 = snd_pcm_nonblock(surr->pcm[i], nonblock);
		if (err1 && !err)
			err = err1;
	}
	return err;
}

static int snd_pcm_surround_async(snd_pcm_t *pcm, int sig, pid_t pid)
{
	snd_pcm_surround_t *surr = pcm->private_data;
	return snd_pcm_async(surr->pcm[0], sig, pid);
}

static int snd_pcm_surround_info(snd_pcm_t *pcm, snd_pcm_info_t * info)
{
	snd_pcm_surround_t *surr = pcm->private_data;
	memset(info, 0, sizeof(*info));
	info->stream = snd_enum_to_int(pcm->stream);
	info->card = surr->card;
	strncpy(info->id, "Surround", sizeof(info->id));
	strncpy(info->name, "Surround", sizeof(info->name));
	strncpy(info->subname, "Surround", sizeof(info->subname));
	info->subdevices_count = 1;
	return 0;
}

static int snd_pcm_surround_channel_info(snd_pcm_t *pcm, snd_pcm_channel_info_t * info)
{
	snd_pcm_surround_t *surr = pcm->private_data;
	int err;
	if (surr->pcms == 1 || info->channel == 0 || info->channel == 1)
		return snd_pcm_channel_info(surr->pcm[0], info);
	if (surr->pcms > 1 && (info->channel == 2 || info->channel == 3)) {
		info->channel -= 2;
		err = snd_pcm_channel_info(surr->pcm[1], info);
		info->channel += 2;
		return err;
	}
	if (surr->pcms > 2 && (info->channel == 4 || info->channel == 5)) {
		info->channel -= 4;
		err = snd_pcm_channel_info(surr->pcm[2], info);
		info->channel += 4;
		return err;
	}
	return -EINVAL;
}

static int snd_pcm_surround_status(snd_pcm_t *pcm, snd_pcm_status_t * status)
{
	snd_pcm_surround_t *surr = pcm->private_data;
	return snd_pcm_status(surr->pcm[0], status);
}

static snd_pcm_state_t snd_pcm_surround_state(snd_pcm_t *pcm)
{
	snd_pcm_surround_t *surr = pcm->private_data;
	return snd_pcm_state(surr->pcm[0]);
}

static int snd_pcm_surround_delay(snd_pcm_t *pcm, snd_pcm_sframes_t *delayp)
{
	snd_pcm_surround_t *surr = pcm->private_data;
	return snd_pcm_delay(surr->pcm[0], delayp);
}

static int snd_pcm_surround_prepare(snd_pcm_t *pcm)
{
	snd_pcm_surround_t *surr = pcm->private_data;
	return snd_pcm_prepare(surr->pcm[0]);
}

static int snd_pcm_surround_reset(snd_pcm_t *pcm)
{
	snd_pcm_surround_t *surr = pcm->private_data;
	return snd_pcm_reset(surr->pcm[0]);
}

static int snd_pcm_surround_start(snd_pcm_t *pcm)
{
	snd_pcm_surround_t *surr = pcm->private_data;
	return snd_pcm_start(surr->pcm[0]);
}

static int snd_pcm_surround_drop(snd_pcm_t *pcm)
{
	snd_pcm_surround_t *surr = pcm->private_data;
	return snd_pcm_drop(surr->pcm[0]);
}

static int snd_pcm_surround_drain(snd_pcm_t *pcm)
{
	snd_pcm_surround_t *surr = pcm->private_data;
	return snd_pcm_drain(surr->pcm[0]);
}

static int snd_pcm_surround_pause(snd_pcm_t *pcm, int enable)
{
	snd_pcm_surround_t *surr = pcm->private_data;
	return snd_pcm_pause(surr->pcm[0], enable);
}

static snd_pcm_sframes_t snd_pcm_surround_rewind(snd_pcm_t *pcm, snd_pcm_uframes_t frames)
{
	snd_pcm_surround_t *surr = pcm->private_data;
	return snd_pcm_rewind(surr->pcm[0], frames);
}

static snd_pcm_sframes_t snd_pcm_surround_writei(snd_pcm_t *pcm, const void *buffer, snd_pcm_uframes_t size)
{
	snd_pcm_surround_t *surr = pcm->private_data;
	if (surr->pcms == 1)
		return snd_pcm_writei(surr->pcm[0], buffer, size);
	if (pcm->running_areas == NULL) {
		int err;
		if ((err = snd_pcm_mmap(pcm)) < 0)
			return err;
	}
	return snd_pcm_mmap_writei(pcm, buffer, size);
}

static snd_pcm_sframes_t snd_pcm_surround_writen(snd_pcm_t *pcm, void **bufs, snd_pcm_uframes_t size)
{
	int i;
	snd_pcm_sframes_t res = -1, res1;
	snd_pcm_surround_t *surr = pcm->private_data;
	for (i = 0; i < surr->pcms; i++, bufs += 2) {
		res1 = snd_pcm_writen(pcm, bufs, size);
		if (res1 < 0)
			return res1;
		if (res < 0)
			res = res1;
		else if (res != res1)
			return -EPIPE;
	}
	return res;
}

static snd_pcm_sframes_t snd_pcm_surround_readi(snd_pcm_t *pcm, void *buffer, snd_pcm_uframes_t size)
{
	snd_pcm_surround_t *surr = pcm->private_data;
	if (surr->pcms == 1)
		return snd_pcm_readi(surr->pcm[0], buffer, size);
	if (pcm->running_areas == NULL) {
		int err;
		if ((err = snd_pcm_mmap(pcm)) < 0)
			return err;
	}
	return snd_pcm_mmap_readi(pcm, buffer, size);
}

static snd_pcm_sframes_t snd_pcm_surround_readn(snd_pcm_t *pcm, void **bufs, snd_pcm_uframes_t size)
{
	int i;
	snd_pcm_sframes_t res = -1, res1;
	snd_pcm_surround_t *surr = pcm->private_data;
	for (i = 0; i < surr->pcms; i++) {
		res1 = snd_pcm_writen(pcm, bufs, size);
		if (res1 < 0)
			return res1;
		if (res < 0) {
			res = size = res1;
		} else if (res != res1)
			return -EPIPE;
	}
	return res;
}

static snd_pcm_sframes_t snd_pcm_surround_mmap_commit(snd_pcm_t *pcm, snd_pcm_uframes_t offset, snd_pcm_uframes_t size)
{
	int i;
	snd_pcm_sframes_t res = -1, res1;
	snd_pcm_surround_t *surr = pcm->private_data;
	for (i = 0; i < surr->pcms; i++) {
		res1 = snd_pcm_mmap_commit(surr->pcm[i], offset, size);
		if (res1 < 0)
			return res1;
		if (res < 0) {
			res = size = res1;
		} else if (res != res1)
			return -EPIPE;
	}
	return res;
}

static snd_pcm_sframes_t snd_pcm_surround_avail_update(snd_pcm_t *pcm)
{
	snd_pcm_surround_t *surr = pcm->private_data;
	return snd_pcm_avail_update(surr->pcm[0]);
}

static int snd_pcm_surround_interval_channels(snd_pcm_surround_t *surr,
					      snd_pcm_hw_params_t *params,
					      int refine)
{
	snd_interval_t *interval;
	interval = &params->intervals[SND_PCM_HW_PARAM_CHANNELS-SNDRV_PCM_HW_PARAM_FIRST_INTERVAL];
	if (interval->empty)
		return -EINVAL;
	if (interval->openmin) {
		if (!refine) {
			interval->empty = 1;
			return -EINVAL;
		}
		interval->min = surr->channels;
		interval->openmin = 0;
	}
	if (interval->openmax) {
		if (!refine) {
			interval->empty = 1;
			return -EINVAL;
		}
		interval->max = surr->channels;
		interval->openmax = 0;
	}
	if (refine && interval->min <= surr->channels && interval->max >= surr->channels)
		interval->min = interval->max = surr->channels;
	if (interval->min != interval->max || interval->min != surr->channels) {
		interval->empty = 1;
		return -EINVAL;
	}
	if (surr->pcms != 1)
		interval->min = interval->max = 2;
	return 0;
}

static void snd_pcm_surround_interval_channels_fixup(snd_pcm_surround_t *surr,
						     snd_pcm_hw_params_t *params)
{
	snd_interval_t *interval;
	interval = &params->intervals[SND_PCM_HW_PARAM_CHANNELS-SNDRV_PCM_HW_PARAM_FIRST_INTERVAL];
	interval->min = interval->max = surr->channels;
}

static int snd_pcm_surround_hw_refine(snd_pcm_t *pcm, snd_pcm_hw_params_t *params)
{
	snd_pcm_surround_t *surr = pcm->private_data;
	snd_pcm_access_mask_t *access_mask;
	snd_pcm_access_mask_t *access_mask1;
	int i, err;

	err = snd_pcm_surround_interval_channels(surr, params, 1);
	if (err < 0)
		return err;
	if (surr->pcms == 1)
		return snd_pcm_hw_refine(surr->pcm[0], params);
	access_mask = (snd_pcm_access_mask_t *)snd_pcm_hw_param_get_mask(params, SND_PCM_HW_PARAM_ACCESS);
	snd_pcm_access_mask_alloca(&access_mask1);
	snd_pcm_access_mask_copy(access_mask1, access_mask);
	snd_pcm_access_mask_reset(access_mask, SND_PCM_ACCESS_RW_INTERLEAVED);
	if (snd_pcm_access_mask_test(access_mask1, SND_PCM_ACCESS_RW_INTERLEAVED))
		snd_pcm_access_mask_set(access_mask, SND_PCM_ACCESS_MMAP_INTERLEAVED);
	for (i = 0; i < surr->pcms; i++) {
		err = snd_pcm_hw_refine(surr->pcm[i], params);
		if (err < 0)
			goto __error;
	}
	err = 0;
      __error:
	snd_pcm_access_mask_copy(access_mask, access_mask1);
	snd_pcm_surround_interval_channels_fixup(surr, params);
	return err;
}

static int snd_pcm_surround_hw_params(snd_pcm_t *pcm, snd_pcm_hw_params_t * params)
{
	snd_pcm_surround_t *surr = pcm->private_data;
	snd_pcm_access_mask_t *access_mask;
	snd_pcm_access_mask_t *access_mask1;
	int i, err;
	
	err = snd_pcm_surround_interval_channels(surr, params, 0);
	if (err < 0)
		return err;
	if (surr->pcms == 1)
		return snd_pcm_hw_params(surr->pcm[0], params);
	access_mask = (snd_pcm_access_mask_t *)snd_pcm_hw_param_get_mask(params, SND_PCM_HW_PARAM_ACCESS);
	snd_pcm_access_mask_alloca(&access_mask1);
	snd_pcm_access_mask_copy(access_mask1, access_mask);
	snd_pcm_access_mask_reset(access_mask, SND_PCM_ACCESS_RW_INTERLEAVED);
	if (snd_pcm_access_mask_test(access_mask1, SND_PCM_ACCESS_RW_INTERLEAVED))
		snd_pcm_access_mask_set(access_mask, SND_PCM_ACCESS_MMAP_INTERLEAVED);
	for (i = 0; i < surr->pcms; i++) {
		err = snd_pcm_hw_params(surr->pcm[i], params);
		if (err < 0) {
			snd_pcm_access_mask_copy(access_mask, access_mask1);
			snd_pcm_surround_interval_channels_fixup(surr, params);
			return err;
		}
	}
	snd_pcm_access_mask_copy(access_mask, access_mask1);
	snd_pcm_surround_interval_channels_fixup(surr, params);
	surr->linked[0] = 0;
	for (i = 1; i < surr->pcms; i++) {
		err = snd_pcm_link(surr->pcm[0], surr->pcm[i]);
		if ((surr->linked[i] = (err >= 0)) == 0)
			return err;
	}
	return 0;
}

static int snd_pcm_surround_hw_free(snd_pcm_t *pcm ATTRIBUTE_UNUSED)
{
	int i, err, res = 0;
	snd_pcm_surround_t *surr = pcm->private_data;
	for (i = 0; i < surr->pcms; i++) {
		err = snd_pcm_hw_free(surr->pcm[i]);
		if (err < 0)
			res = err;
		if (!surr->linked[i])
			continue;
		surr->linked[i] = 0;
		err = snd_pcm_unlink(surr->pcm[i]);
		if (err < 0)
			res = err;
	}
	return res;
}

static int snd_pcm_surround_sw_params(snd_pcm_t *pcm, snd_pcm_sw_params_t * params)
{
	int i, err;
	snd_pcm_surround_t *surr = pcm->private_data;
	for (i = 0; i < surr->pcms; i++) {
		err = snd_pcm_sw_params(surr->pcm[i], params);
		if (err < 0)
			return err;
	}
	return 0;
}

static int snd_pcm_surround_mmap(snd_pcm_t *pcm ATTRIBUTE_UNUSED)
{
	// snd_pcm_surround_t *surr = pcm->private_data;
	return 0;
}

static int snd_pcm_surround_munmap(snd_pcm_t *pcm ATTRIBUTE_UNUSED)
{
	// snd_pcm_surround_t *surr = pcm->private_data;
	return 0;
}

static void snd_pcm_surround_dump(snd_pcm_t *pcm, snd_output_t *out)
{
	snd_output_printf(out, "Surround PCM\n");
	if (pcm->setup) {
		snd_output_printf(out, "Its setup is:\n");
		snd_pcm_dump_setup(pcm, out);
	}
}

snd_pcm_ops_t snd_pcm_surround_ops = {
	close: snd_pcm_surround_close,
	info: snd_pcm_surround_info,
	hw_refine: snd_pcm_surround_hw_refine,
	hw_params: snd_pcm_surround_hw_params,
	hw_free: snd_pcm_surround_hw_free,
	sw_params: snd_pcm_surround_sw_params,
	channel_info: snd_pcm_surround_channel_info,
	dump: snd_pcm_surround_dump,
	nonblock: snd_pcm_surround_nonblock,
	async: snd_pcm_surround_async,
	mmap: snd_pcm_surround_mmap,
	munmap: snd_pcm_surround_munmap,
};

snd_pcm_fast_ops_t snd_pcm_surround_fast_ops = {
	status: snd_pcm_surround_status,
	state: snd_pcm_surround_state,
	delay: snd_pcm_surround_delay,
	prepare: snd_pcm_surround_prepare,
	reset: snd_pcm_surround_reset,
	start: snd_pcm_surround_start,
	drop: snd_pcm_surround_drop,
	drain: snd_pcm_surround_drain,
	pause: snd_pcm_surround_pause,
	rewind: snd_pcm_surround_rewind,
	writei: snd_pcm_surround_writei,
	writen: snd_pcm_surround_writen,
	readi: snd_pcm_surround_readi,
	readn: snd_pcm_surround_readn,
	avail_update: snd_pcm_surround_avail_update,
	mmap_commit: snd_pcm_surround_mmap_commit,
};

static int snd_pcm_surround_free(snd_pcm_surround_t *surr)
{
	int i;

	assert(surr);
	for (i = 2; i >= 0; i--) {
		if (surr->pcm[i] == NULL)
			continue;
		snd_pcm_close(surr->pcm[i]);
		surr->pcm[i] = NULL;
	}
	if (surr->po && surr->po->sclose)
		surr->po->sclose(surr);
	if (surr->ctl)
		snd_ctl_close(surr->ctl);
	free(surr);
	return 0;
}

static int snd_pcm_surround_one_stream(snd_pcm_surround_t *surr,
				       snd_pcm_surround_type_t type ATTRIBUTE_UNUSED,
				       int card,
				       int dev, int subdev,
				       snd_pcm_stream_t stream, int mode)
{
	int err;

	if ((err = snd_pcm_hw_open(&surr->pcm[0], "Surround", card, dev,
				   subdev, stream, mode)) < 0)
		return err;
	surr->pcms++;
	return 0;
}

static int snd_pcm_surround_three_streams(snd_pcm_surround_t *surr,
					  snd_pcm_surround_type_t type,
					  int card,
					  int dev0, int subdev0,
					  int dev1, int subdev1,
					  int dev2, int subdev2,
					  snd_pcm_stream_t stream, int mode)
{
	int err;

	if ((err = snd_pcm_hw_open(&surr->pcm[0], "Surround L/R", card, dev0,
				   subdev0, stream, mode)) < 0)
		return err;
	surr->pcms++;
	if ((err = snd_pcm_hw_open(&surr->pcm[1], "Surround Rear L/R", card, dev1,
				   subdev1, stream, mode)) < 0)
		return err;
	surr->pcms++;
	if (type == SND_PCM_SURROUND_51) {
		if ((err = snd_pcm_hw_open(&surr->pcm[2], "Surround Center/LFE", card, dev2,
					   subdev2, stream, mode)) < 0)
			return err;
		surr->pcms++;
	}
	return 0;
}

static int count_generic(snd_ctl_t *ctl ATTRIBUTE_UNUSED,
			 snd_ctl_card_info_t *info ATTRIBUTE_UNUSED,
			 snd_pcm_surround_type_t type ATTRIBUTE_UNUSED)
{
	return 1;
}

static int count_si7018(snd_ctl_t *ctl ATTRIBUTE_UNUSED,
			snd_ctl_card_info_t *info ATTRIBUTE_UNUSED,
			snd_pcm_surround_type_t type ATTRIBUTE_UNUSED)
{
	/* this card supports multiopen also for DVD !!! */
	return 32 / 2 / 3;	/* 32 stereo channels / 2 (one helper voice) / 3 (count of streams) */
}

static int open_si7018(snd_pcm_surround_t *surr,
		       snd_ctl_card_info_t *info,
		       snd_pcm_surround_type_t type,
		       snd_pcm_stream_t stream, int mode)
{
	int err;

	if ((err = snd_pcm_surround_three_streams(surr, type,
						  snd_ctl_card_info_get_card(info),
						  0, -1, 0, -1, 0, -1,
						  stream, mode)) < 0)
		return err;
	return 0;
}		       

static int open_fm801(snd_pcm_surround_t *surr,
		      snd_ctl_card_info_t *info,
		      snd_pcm_surround_type_t type,
		      snd_pcm_stream_t stream, int mode)
{
	int err;

	if ((err = snd_pcm_surround_one_stream(surr, type,
					       snd_ctl_card_info_get_card(info),
					       0, 0, stream, mode)) < 0)
		return err;
	return 0;
}		       

static int open_ens1370(snd_pcm_surround_t *surr,
		        snd_ctl_card_info_t *info,
		        snd_pcm_surround_type_t type,
		        snd_pcm_stream_t stream, int mode)
{
	int err;
	snd_ctl_elem_id_t *id;
	snd_ctl_elem_value_t *val, *value;

	if ((err = snd_pcm_surround_three_streams(surr, type,
						  snd_ctl_card_info_get_card(info),
						  1, 0, 0, 0, -1, -1,
						  stream, mode)) < 0)
		return err;
	snd_ctl_elem_id_alloca(&id);
	snd_ctl_elem_value_alloca(&val);

	/* OK, reroute PCM0 (rear) to Line-In Jack */
	snd_ctl_elem_id_set_interface(id, SNDRV_CTL_ELEM_IFACE_CARD);
	snd_ctl_elem_id_set_name(id, "PCM 0 Output also on Line-In Jack");
	snd_ctl_elem_id_set_index(id, 0);
	if ((err = snd_ctl_elem_lock(surr->ctl, id)) < 0)
		return err;
	snd_ctl_elem_value_malloc(&value);
	snd_ctl_elem_value_set_id(value, id);
	if ((err = snd_ctl_elem_read(surr->ctl, value)) < 0) {
		free(value);
		return err;
	}
	surr->s.ens1370.sw4ch = value;
	snd_ctl_elem_value_copy(val, value);
	snd_ctl_elem_value_set_boolean(val, 0, 1);
	if ((err = snd_ctl_elem_write(surr->ctl, val)) < 0)
		return err;

	/* Turn off the PCM volume, the second PCM (front speakers) uses the second PCM control */
	snd_ctl_elem_id_set_interface(id, SNDRV_CTL_ELEM_IFACE_MIXER);
	snd_ctl_elem_id_set_name(id, "PCM Switch");
	snd_ctl_elem_id_set_index(id, 0);
	if ((err = snd_ctl_elem_lock(surr->ctl, id)) < 0)
		return err;
	snd_ctl_elem_value_malloc(&value);
	snd_ctl_elem_value_set_id(value, id);
	if ((err = snd_ctl_elem_read(surr->ctl, value)) < 0) {
		free(value);
		return err;
	}
	surr->s.ens1370.sw_pcm = value;
	snd_ctl_elem_value_copy(val, value);
	snd_ctl_elem_value_set_boolean(val, 0, 0);
	snd_ctl_elem_value_set_boolean(val, 1, 0);
	if ((err = snd_ctl_elem_write(surr->ctl, val)) < 0)
		return err;

	return 0;
}		       

static void close_ens1370(snd_pcm_surround_t *surr)
{
	if (surr->s.ens1370.sw4ch) {
		snd_ctl_elem_write(surr->ctl, surr->s.ens1370.sw4ch);
		free(surr->s.ens1370.sw4ch);
	}
	if (surr->s.ens1370.sw_pcm) {
		snd_ctl_elem_write(surr->ctl, surr->s.ens1370.sw_pcm);
		free(surr->s.ens1370.sw_pcm);
	}
}

static int count_ymfpci(snd_ctl_t *ctl ATTRIBUTE_UNUSED,
			snd_ctl_card_info_t *info ATTRIBUTE_UNUSED,
			snd_pcm_surround_type_t type ATTRIBUTE_UNUSED)
{
	/* this card supports multiopen also for 4CH !!! */
	return 32 / 2 / 2;	/* 32 voices / 2 (stereo) / 2 (count of streams) */
}

static int open_ymfpci(snd_pcm_surround_t *surr,
		        snd_ctl_card_info_t *info,
		        snd_pcm_surround_type_t type,
		        snd_pcm_stream_t stream, int mode)
{
	int err;

	if ((err = snd_pcm_surround_three_streams(surr, type,
						  snd_ctl_card_info_get_card(info),
						  0, 0, 2, 0, -1, -1,
						  stream, mode)) < 0)
		return err;
	return 0;
}

static int count_trid4nx(snd_ctl_t *ctl ATTRIBUTE_UNUSED,
			 snd_ctl_card_info_t *info ATTRIBUTE_UNUSED,
			 snd_pcm_surround_type_t type ATTRIBUTE_UNUSED)
{
	/* this card supports multiopen also for 4CH !!! */
	return 32 / 2 / 2;	/* 32 voices / 2 (stereo) / 2 (count of streams) */
}

static int open_trid4nx(snd_pcm_surround_t *surr,
		        snd_ctl_card_info_t *info,
		        snd_pcm_surround_type_t type,
		        snd_pcm_stream_t stream, int mode)
{
	int err, subdevice;
	snd_pcm_info_t *pcm_info;
	snd_ctl_elem_id_t *id;
	snd_ctl_elem_value_t *val, *value;

	if ((err = snd_pcm_surround_three_streams(surr, type,
						  snd_ctl_card_info_get_card(info),
						  0, -1, 0, -1, -1, -1,
						  stream, mode)) < 0)
		return err;

	snd_pcm_info_alloca(&pcm_info);
	if ((err = snd_pcm_info(surr->pcm[1], pcm_info)) < 0)
		return err;
	subdevice = snd_pcm_info_get_subdevice(pcm_info);

	snd_ctl_elem_id_alloca(&id);
	snd_ctl_elem_value_alloca(&val);

	/* OK, Enable Rear Path */
	snd_ctl_elem_id_set_interface(id, SNDRV_CTL_ELEM_IFACE_MIXER);
	snd_ctl_elem_id_set_name(id, "Rear Path");
	snd_ctl_elem_id_set_index(id, subdevice);
	if ((err = snd_ctl_elem_lock(surr->ctl, id)) < 0)
		return err;
	snd_ctl_elem_value_malloc(&value);
	snd_ctl_elem_value_set_id(value, id);
	if ((err = snd_ctl_elem_read(surr->ctl, value)) < 0) {
		free(value);
		return err;
	}
	surr->s.trid4nx.rear_path = value;
	snd_ctl_elem_value_copy(val, value);
	snd_ctl_elem_value_set_boolean(val, 0, 1);
	if ((err = snd_ctl_elem_write(surr->ctl, val)) < 0)
		return err;

	/* set Front Volume to mute */
	snd_ctl_elem_id_set_interface(id, SNDRV_CTL_ELEM_IFACE_MIXER);
	snd_ctl_elem_id_set_name(id, "PCM Front Playback Volume");
	snd_ctl_elem_id_set_index(id, subdevice);
	if ((err = snd_ctl_elem_lock(surr->ctl, id)) < 0)
		return err;
	snd_ctl_elem_value_malloc(&value);
	snd_ctl_elem_value_set_id(value, id);
	if ((err = snd_ctl_elem_read(surr->ctl, value)) < 0) {
		free(value);
		return err;
	}
	snd_ctl_elem_value_copy(val, value);
	snd_ctl_elem_value_set_integer(val, 0, 0);
	snd_ctl_elem_value_set_integer(val, 1, 0);
	if ((err = snd_ctl_elem_write(surr->ctl, val)) < 0)
		return err;

	/* set Reverb (Rear) Volume */
	snd_ctl_elem_id_set_interface(id, SNDRV_CTL_ELEM_IFACE_MIXER);
	snd_ctl_elem_id_set_name(id, "PCM Reverb Playback Volume");
	snd_ctl_elem_id_set_index(id, subdevice);
	if ((err = snd_ctl_elem_lock(surr->ctl, id)) < 0)
		return err;
	snd_ctl_elem_value_malloc(&value);
	snd_ctl_elem_value_set_id(value, id);
	if ((err = snd_ctl_elem_read(surr->ctl, value)) < 0) {
		free(value);
		return err;
	}
	snd_ctl_elem_value_copy(val, value);
	snd_ctl_elem_value_set_integer(val, 0, 127);
	snd_ctl_elem_value_set_integer(val, 1, 127);
	if ((err = snd_ctl_elem_write(surr->ctl, val)) < 0)
		return err;

	/* set Chorus Volume to mute */
	snd_ctl_elem_id_set_interface(id, SNDRV_CTL_ELEM_IFACE_MIXER);
	snd_ctl_elem_id_set_name(id, "PCM Chorus Playback Volume");
	snd_ctl_elem_id_set_index(id, subdevice);
	if ((err = snd_ctl_elem_lock(surr->ctl, id)) < 0)
		return err;
	snd_ctl_elem_value_malloc(&value);
	snd_ctl_elem_value_set_id(value, id);
	if ((err = snd_ctl_elem_read(surr->ctl, value)) < 0) {
		free(value);
		return err;
	}
	snd_ctl_elem_value_copy(val, value);
	snd_ctl_elem_value_set_integer(val, 0, 0);
	snd_ctl_elem_value_set_integer(val, 1, 0);
	if ((err = snd_ctl_elem_write(surr->ctl, val)) < 0)
		return err;

	/* set Pan Control to middle */
	snd_ctl_elem_id_set_interface(id, SNDRV_CTL_ELEM_IFACE_MIXER);
	snd_ctl_elem_id_set_name(id, "PCM Pan Playback Control");
	snd_ctl_elem_id_set_index(id, subdevice);
	if ((err = snd_ctl_elem_lock(surr->ctl, id)) < 0)
		return err;
	snd_ctl_elem_value_malloc(&value);
	snd_ctl_elem_value_set_id(value, id);
	if ((err = snd_ctl_elem_read(surr->ctl, value)) < 0) {
		free(value);
		return err;
	}
	snd_ctl_elem_value_copy(val, value);
	snd_ctl_elem_value_set_integer(val, 0, 0);
	snd_ctl_elem_value_set_integer(val, 1, 0);
	if ((err = snd_ctl_elem_write(surr->ctl, val)) < 0)
		return err;

	return 0;
}		       

static void close_trid4nx(snd_pcm_surround_t *surr)
{
	if (surr->s.trid4nx.rear_path) {
		snd_ctl_elem_write(surr->ctl, surr->s.trid4nx.rear_path);
		free(surr->s.trid4nx.rear_path);
	}
}


#define SND_CARD_TYPE_NONE	SNDRV_CARD_TYPE_SB_10	/* this card definitely doesn't support surround */

static surround_open_t open_table[] = {
	{ type: SND_CARD_TYPE_SI_7018, flags: 0, scount: count_si7018, sopen: open_si7018, sclose: NULL },
	{ type: SND_CARD_TYPE_FM801, flags: 0, scount: count_generic, sopen: open_fm801, sclose: NULL },
	{ type: SND_CARD_TYPE_ENS1370, flags: SURR_FLG_NO_6CH|SURR_FLG_NO_CTL_CLOSE|SURR_FLG_FD1, scount: count_generic, sopen: open_ens1370, sclose: close_ens1370 },
	{ type: SND_CARD_TYPE_YMFPCI, flags: SURR_FLG_NO_6CH, scount: count_ymfpci, sopen: open_ymfpci, sclose: NULL },
	{ type: SND_CARD_TYPE_TRID4DWAVENX, flags: SURR_FLG_NO_6CH|SURR_FLG_NO_CTL_CLOSE, scount: count_trid4nx, sopen: open_trid4nx, sclose: close_trid4nx },
	{ type: SND_CARD_TYPE_INTEL8X0, flags: 0, scount: count_generic, sopen: open_fm801, sclose: NULL },
	{ type: SND_CARD_TYPE_NONE, flags: 0, scount: NULL, sopen: NULL, sclose: NULL }
};

int snd_pcm_surround_open(snd_pcm_t **pcmp, const char *name, int card, int dev,
			  snd_pcm_surround_type_t type,
			  snd_pcm_stream_t stream, int mode)
{
	snd_pcm_t *pcm = NULL;
	snd_pcm_surround_t *surr;
	snd_ctl_t *ctl = NULL;
	snd_ctl_card_info_t *info;
	snd_card_type_t ctype;
	surround_open_t *po;
	int err;

	assert(pcmp);
	if (dev != 0)
		return -EINVAL;			/* not supported at the time */
	surr = calloc(1, sizeof(snd_pcm_surround_t));
	if (!surr)
		return -ENOMEM;
	switch (type) {
	case SND_PCM_SURROUND_40:
		surr->channels = 4;
		break;
	case SND_PCM_SURROUND_51:
		surr->channels = 6;
		break;
	default:
		snd_pcm_surround_free(surr);
		return -EINVAL;
	}
	if ((err = snd_ctl_hw_open(&ctl, "Surround", card, 0)) < 0) {
		snd_pcm_surround_free(surr);
		return err;
	}
	surr->ctl = ctl;
	snd_ctl_card_info_alloca(&info);
	if ((err = snd_ctl_card_info(ctl, info)) < 0)
		goto __error;
	ctype = snd_ctl_card_info_get_type(info);
	for (po = open_table; po->type != SND_CARD_TYPE_NONE; po++) {
		if (po->type == ctype) {
			surr->po = po;
			if (stream == SND_PCM_STREAM_CAPTURE && !(po->flags & SURR_FLG_CAPTURE)) {
				err = -ENODEV;
				goto __error;
			}
			switch (type) {
			case SND_PCM_SURROUND_40:
				if (po->flags & SURR_FLG_NO_4CH) {
					err = -ENODEV;
					goto __error;
				}
				break;
			case SND_PCM_SURROUND_51:
				if (po->flags & SURR_FLG_NO_6CH) {
					err = -ENODEV;
					goto __error;
				}
				break;
			}
			if ((err = po->sopen(surr, info, type, stream, mode)) < 0)
				goto __error;
			break;
		}
	}
	if (po->type == SND_CARD_TYPE_NONE) {
		err = -ENODEV;
		goto __error;
	}
	if (!(po->flags & SURR_FLG_NO_CTL_CLOSE)) {
		snd_ctl_close(ctl);
		surr->ctl = NULL;
	}
	ctl = NULL;
	pcm = calloc(1, sizeof(snd_pcm_t));
	if (!pcm) {
		err = -ENOMEM;
		goto __error;
	}
	if (name)
		pcm->name = strdup(name);
	pcm->type = SND_PCM_TYPE_SURROUND;
	pcm->stream = stream;
	pcm->mode = mode;
	pcm->ops = &snd_pcm_surround_ops;
	pcm->op_arg = pcm;
	pcm->fast_ops = &snd_pcm_surround_fast_ops;
	pcm->fast_op_arg = pcm;
	pcm->private_data = surr;
	pcm->poll_fd = surr->pcm[po->flags & SURR_FLG_FD1 ? 1 : 0]->poll_fd;
	pcm->hw_ptr = surr->pcm[po->flags & SURR_FLG_FD1 ? 1 : 0]->hw_ptr;
	pcm->appl_ptr = surr->pcm[po->flags & SURR_FLG_FD1 ? 1 : 0]->appl_ptr;
	
	*pcmp = pcm;

	return 0;

      __error:
	snd_pcm_surround_free(surr);
	return err;
}

int _snd_pcm_surround_open(snd_pcm_t **pcmp, const char *name, snd_config_t *conf,
			   snd_pcm_stream_t stream, int mode)
{
	snd_config_iterator_t i, next;
	long card = -1, device = 0;
	const char *str;
	int err;
	snd_pcm_surround_type_t type = SND_PCM_SURROUND_40;
	snd_config_for_each(i, next, conf) {
		snd_config_t *n = snd_config_iterator_entry(i);
		const char *id = snd_config_get_id(n);
		if (strcmp(id, "comment") == 0)
			continue;
		if (strcmp(id, "type") == 0)
			continue;
		if (strcmp(id, "card") == 0) {
			err = snd_config_get_integer(n, &card);
			if (err < 0) {
				err = snd_config_get_string(n, &str);
				if (err < 0) {
					SNDERR("Invalid type for %s", id);
					return -EINVAL;
				}
				card = snd_card_get_index(str);
				if (card < 0) {
					SNDERR("Invalid value for %s", id);
					return card;
				}
			}
			continue;
		}
		if (strcmp(id, "device") == 0) {
			err = snd_config_get_integer(n, &device);
			if (err < 0) {
				SNDERR("Invalid type for %s", id);
				return err;
			}
			continue;
		}
#if 0
		if (strcmp(id, "subdevice") == 0) {
			err = snd_config_get_integer(n, &subdevice);
			if (err < 0) {
				SNDERR("Invalid type for %s", id);
				return err;
			}
			continue;
		}
#endif
		if (strcmp(id, "stype") == 0) {
			err = snd_config_get_string(n, &str);
			if (strcmp(str, "40") == 0 || strcmp(str, "4.0") == 0)
				type = SND_PCM_SURROUND_40;
			else if (strcmp(str, "51") == 0 || strcmp(str, "5.1") == 0)
				type = SND_PCM_SURROUND_51;
			continue;
		}
		SNDERR("Unknown field %s", id);
		return -EINVAL;
	}
	if (card < 0) {
		SNDERR("card is not defined");
		return -EINVAL;
	}
	return snd_pcm_surround_open(pcmp, name, card, device, type, stream, mode);
}