/**

 * \file pcm/pcm_route.c

 * \ingroup PCM_Plugins

 * \brief PCM Route & Volume Plugin Interface

 * \author Abramo Bagnara <abramo@alsa-project.org>

 * \date 2000-2001

 */

/*

 *  PCM - Route & Volume Plugin

 *  Copyright (c) 2000 by Abramo Bagnara <abramo@alsa-project.org>

 *

 *

 *   This library is free software; you can redistribute it and/or modify

 *   it under the terms of the GNU Lesser General Public License as

 *   published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details.

 *

 *   You should have received a copy of the GNU Lesser General Public

 *   License along with this library; if not, write to the Free Software

 *   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

 *

 */

#include "bswap.h"

#include <math.h>

#include "pcm_local.h"

#include "pcm_plugin.h"

#include "plugin_ops.h"

#ifndef PIC

/* entry for static linking */

const char *_snd_module_pcm_route = "";

#endif

#ifndef DOC_HIDDEN

/* The best possible hack to support missing optimization in gcc 2.7.2.3 */

#if SND_PCM_PLUGIN_ROUTE_RESOLUTION & (SND_PCM_PLUGIN_ROUTE_RESOLUTION - 1) != 0

#define div(a) a /= SND_PCM_PLUGIN_ROUTE_RESOLUTION

#elif SND_PCM_PLUGIN_ROUTE_RESOLUTION == 16

#define div(a) a >>= 4

#else

#error "Add some code here"

#endif

typedef struct {

	int channel;

	int as_int;

#if SND_PCM_PLUGIN_ROUTE_FLOAT

	float as_float;

#endif

} snd_pcm_route_ttable_src_t;

typedef struct snd_pcm_route_ttable_dst snd_pcm_route_ttable_dst_t;

typedef struct {

	enum {UINT64, FLOAT} sum_idx;

	unsigned int get_idx;

	unsigned int put_idx;

	unsigned int conv_idx;

	int use_getput;

	unsigned int src_size;

	snd_pcm_format_t dst_sfmt;

	unsigned int nsrcs;

	unsigned int ndsts;

	snd_pcm_route_ttable_dst_t *dsts;

} snd_pcm_route_params_t;

typedef void (*route_f)(const snd_pcm_channel_area_t *dst_area,

			snd_pcm_uframes_t dst_offset,

			const snd_pcm_channel_area_t *src_areas,

			snd_pcm_uframes_t src_offset,

			unsigned int src_channels,

			snd_pcm_uframes_t frames,

			const snd_pcm_route_ttable_dst_t *ttable,

			const snd_pcm_route_params_t *params);

struct snd_pcm_route_ttable_dst {

	int att;	/* Attenuated */

	unsigned int nsrcs;

	snd_pcm_route_ttable_src_t* srcs;

	route_f func;

};

typedef union {

	int32_t as_sint32;

	int64_t as_sint64;

#if SND_PCM_PLUGIN_ROUTE_FLOAT

	float as_float;

#endif

} sum_t;

typedef struct {

	/* This field need to be the first */

	snd_pcm_plugin_t plug;

	snd_pcm_format_t sformat;

	int schannels;

	snd_pcm_route_params_t params;

	snd_pcm_chmap_t *chmap;

} snd_pcm_route_t;

#endif /* DOC_HIDDEN */

static void snd_pcm_route_convert1_zero(const snd_pcm_channel_area_t *dst_area,

					snd_pcm_uframes_t dst_offset,

					const snd_pcm_channel_area_t *src_areas ATTRIBUTE_UNUSED,

					snd_pcm_uframes_t src_offset ATTRIBUTE_UNUSED,

					unsigned int src_channels ATTRIBUTE_UNUSED,

					snd_pcm_uframes_t frames,

					const snd_pcm_route_ttable_dst_t* ttable ATTRIBUTE_UNUSED,

					const snd_pcm_route_params_t *params)

{

	snd_pcm_area_silence(dst_area, dst_offset, frames, params->dst_sfmt);

}

#ifndef DOC_HIDDEN

static void snd_pcm_route_convert1_one(const snd_pcm_channel_area_t *dst_area,

				       snd_pcm_uframes_t dst_offset,

				       const snd_pcm_channel_area_t *src_areas,

				       snd_pcm_uframes_t src_offset,

				       unsigned int src_channels,

				       snd_pcm_uframes_t frames,

				       const snd_pcm_route_ttable_dst_t* ttable,

				       const snd_pcm_route_params_t *params)

{

#define CONV_LABELS

#include "plugin_ops.h"

#undef CONV_LABELS

	void *conv;

	const snd_pcm_channel_area_t *src_area = 0;

	unsigned int srcidx;

	const char *src;

	char *dst;

	int src_step, dst_step;

	for (srcidx = 0; srcidx < ttable->nsrcs && srcidx < src_channels; ++srcidx) {

		unsigned int channel = ttable->srcs[srcidx].channel;

		if (channel >= src_channels)

			continue;

		src_area = &src_areas[channel];

		if (src_area->addr != NULL)

			break;

	}

	if (srcidx == ttable->nsrcs || srcidx == src_channels) {

		snd_pcm_route_convert1_zero(dst_area, dst_offset,

					    src_areas, src_offset,

					    src_channels,

					    frames, ttable, params);

		return;

	}

	conv = conv_labels[params->conv_idx];

	src = snd_pcm_channel_area_addr(src_area, src_offset);

	dst = snd_pcm_channel_area_addr(dst_area, dst_offset);

	src_step = snd_pcm_channel_area_step(src_area);

	dst_step = snd_pcm_channel_area_step(dst_area);

	while (frames-- > 0) {

		goto *conv;

#define CONV_END after

#include "plugin_ops.h"

#undef CONV_END

	after:

		src += src_step;

		dst += dst_step;

	}

}

static void snd_pcm_route_convert1_one_getput(const snd_pcm_channel_area_t *dst_area,

					      snd_pcm_uframes_t dst_offset,

					      const snd_pcm_channel_area_t *src_areas,

					      snd_pcm_uframes_t src_offset,

					      unsigned int src_channels,

					      snd_pcm_uframes_t frames,

					      const snd_pcm_route_ttable_dst_t* ttable,

					      const snd_pcm_route_params_t *params)

{

#define CONV24_LABELS

#include "plugin_ops.h"

#undef CONV24_LABELS

	void *get, *put;

	const snd_pcm_channel_area_t *src_area = 0;

	unsigned int srcidx;

	const char *src;

	char *dst;

	int src_step, dst_step;

	uint32_t sample = 0;

	for (srcidx = 0; srcidx < ttable->nsrcs && srcidx < src_channels; ++srcidx) {

		unsigned int channel = ttable->srcs[srcidx].channel;

		if (channel >= src_channels)

			continue;

		src_area = &src_areas[channel];

		if (src_area->addr != NULL)

			break;

	}

	if (srcidx == ttable->nsrcs || srcidx == src_channels) {

		snd_pcm_route_convert1_zero(dst_area, dst_offset,

					    src_areas, src_offset,

					    src_channels,

					    frames, ttable, params);

		return;

	}

	get = get32_labels[params->get_idx];

	put = put32_labels[params->put_idx];

	src = snd_pcm_channel_area_addr(src_area, src_offset);

	dst = snd_pcm_channel_area_addr(dst_area, dst_offset);

	src_step = snd_pcm_channel_area_step(src_area);

	dst_step = snd_pcm_channel_area_step(dst_area);

	while (frames-- > 0) {

		goto *get;

#define CONV24_END after

#include "plugin_ops.h"

#undef CONV24_END

	after:

		src += src_step;

		dst += dst_step;

	}

}

static void snd_pcm_route_convert1_many(const snd_pcm_channel_area_t *dst_area,

					snd_pcm_uframes_t dst_offset,

					const snd_pcm_channel_area_t *src_areas,

					snd_pcm_uframes_t src_offset,

					unsigned int src_channels,

					snd_pcm_uframes_t frames,

					const snd_pcm_route_ttable_dst_t* ttable,

					const snd_pcm_route_params_t *params)

{

#define GET32_LABELS

#define PUT32_LABELS

#include "plugin_ops.h"

#undef GET32_LABELS

#undef PUT32_LABELS

	static void *const zero_labels[2] = {

		&&zero_int64,

#if SND_PCM_PLUGIN_ROUTE_FLOAT

		&&zero_float

#endif

	};

	/* sum_type att */

	static void *const add_labels[2 * 2] = {

		&&add_int64_noatt, &&add_int64_att,

#if SND_PCM_PLUGIN_ROUTE_FLOAT

		&&add_float_noatt, &&add_float_att

#endif

	};

	/* sum_type att */

	static void *const norm_labels[2 * 2] = {

		&&norm_int64_noatt,

		&&norm_int64_att,

#if SND_PCM_PLUGIN_ROUTE_FLOAT

		&&norm_float,

		&&norm_float,

#endif

	};

	void *zero, *get32, *add, *norm, *put32;

	int nsrcs = ttable->nsrcs;

	char *dst;

	int dst_step;

	const char *srcs[nsrcs];

	int src_steps[nsrcs];

	snd_pcm_route_ttable_src_t src_tt[nsrcs];

	int32_t sample = 0;

	int srcidx, srcidx1 = 0;

	for (srcidx = 0; srcidx < nsrcs && (unsigned)srcidx < src_channels; ++srcidx) {

		const snd_pcm_channel_area_t *src_area;

		unsigned int channel = ttable->srcs[srcidx].channel;

		if (channel >= src_channels)

			continue;

		src_area = &src_areas[channel];

		srcs[srcidx1] = snd_pcm_channel_area_addr(src_area, src_offset);

		src_steps[srcidx1] = snd_pcm_channel_area_step(src_area);

		src_tt[srcidx1] = ttable->srcs[srcidx];

		srcidx1++;

	}

	nsrcs = srcidx1;

	if (nsrcs == 0) {

		snd_pcm_route_convert1_zero(dst_area, dst_offset,

					    src_areas, src_offset,

					    src_channels,

					    frames, ttable, params);

		return;

	} else if (nsrcs == 1 && src_tt[0].as_int == SND_PCM_PLUGIN_ROUTE_RESOLUTION) {

		if (params->use_getput)

			snd_pcm_route_convert1_one_getput(dst_area, dst_offset,

							  src_areas, src_offset,

							  src_channels,

							  frames, ttable, params);

		else

			snd_pcm_route_convert1_one(dst_area, dst_offset,

						   src_areas, src_offset,

						   src_channels,

						   frames, ttable, params);

		return;

	}

	zero = zero_labels[params->sum_idx];

	get32 = get32_labels[params->get_idx];

	add = add_labels[params->sum_idx * 2 + ttable->att];

	norm = norm_labels[params->sum_idx * 2 + ttable->att];

	put32 = put32_labels[params->put_idx];

	dst = snd_pcm_channel_area_addr(dst_area, dst_offset);

	dst_step = snd_pcm_channel_area_step(dst_area);

	while (frames-- > 0) {

		snd_pcm_route_ttable_src_t *ttp = src_tt;

		sum_t sum;

		/* Zero sum */

		goto *zero;

	zero_int64: 

		sum.as_sint64 = 0;

		goto zero_end;

#if SND_PCM_PLUGIN_ROUTE_FLOAT

	zero_float:

		sum.as_float = 0.0;

		goto zero_end;

#endif

	zero_end:

		for (srcidx = 0; srcidx < nsrcs; ++srcidx) {

			const char *src = srcs[srcidx];

			/* Get sample */

			goto *get32;

#define GET32_END after_get

#include "plugin_ops.h"

#undef GET32_END

		after_get:

			/* Sum */

			goto *add;

		add_int64_att:

			sum.as_sint64 += (int64_t) sample * ttp->as_int;

			goto after_sum;

		add_int64_noatt:

			if (ttp->as_int)

				sum.as_sint64 += sample;

			goto after_sum;

#if SND_PCM_PLUGIN_ROUTE_FLOAT

		add_float_att:

			sum.as_float += sample * ttp->as_float;

			goto after_sum;

		add_float_noatt:

			if (ttp->as_int)

				sum.as_float += sample;

			goto after_sum;

#endif

		after_sum:

			srcs[srcidx] += src_steps[srcidx];

			ttp++;

		}

		/* Normalization */

		goto *norm;

	norm_int64_att:

		div(sum.as_sint64);

		/* fallthru */

	norm_int64_noatt:

		if (sum.as_sint64 > (int64_t)0x7fffffff)

			sample = 0x7fffffff;	/* maximum positive value */

		else if (sum.as_sint64 < -(int64_t)0x80000000)

			sample = 0x80000000;	/* maximum negative value */

		else

			sample = sum.as_sint64;

		goto after_norm;

#if SND_PCM_PLUGIN_ROUTE_FLOAT

	norm_float:

		sum.as_float = rint(sum.as_float);

		if (sum.as_float > (int64_t)0x7fffffff)

			sample = 0x7fffffff;	/* maximum positive value */

		else if (sum.as_float < -(int64_t)0x80000000)

			sample = 0x80000000;	/* maximum negative value */

		else

			sample = sum.as_float;

		goto after_norm;

#endif

	after_norm:

		/* Put sample */

		goto *put32;

#define PUT32_END after_put32

#include "plugin_ops.h"

#undef PUT32_END

	after_put32:

		dst += dst_step;

	}

}

#endif /* DOC_HIDDEN */

static void snd_pcm_route_convert(const snd_pcm_channel_area_t *dst_areas,

				  snd_pcm_uframes_t dst_offset,

				  const snd_pcm_channel_area_t *src_areas,

				  snd_pcm_uframes_t src_offset,

				  unsigned int src_channels,

				  unsigned int dst_channels,

				  snd_pcm_uframes_t frames,

				  snd_pcm_route_params_t *params)

{

	unsigned int dst_channel;

	snd_pcm_route_ttable_dst_t *dstp;

	const snd_pcm_channel_area_t *dst_area;

	dstp = params->dsts;

	dst_area = dst_areas;

	for (dst_channel = 0; dst_channel < dst_channels; ++dst_channel) {

		if (dst_channel >= params->ndsts)

			snd_pcm_route_convert1_zero(dst_area, dst_offset,

						    src_areas, src_offset,

						    src_channels,

						    frames, dstp, params);

		else

			dstp->func(dst_area, dst_offset,

				   src_areas, src_offset,

				   src_channels,

				   frames, dstp, params);

		dstp++;

		dst_area++;

	}

}

static int snd_pcm_route_close(snd_pcm_t *pcm)

{

	snd_pcm_route_t *route = pcm->private_data;

	snd_pcm_route_params_t *params = &route->params;

	unsigned int dst_channel;

	if (params->dsts) {

		for (dst_channel = 0; dst_channel < params->ndsts; ++dst_channel) {

			free(params->dsts[dst_channel].srcs);

		}

		free(params->dsts);

	}

	free(route->chmap);

	return snd_pcm_generic_close(pcm);

}

static int snd_pcm_route_hw_refine_cprepare(snd_pcm_t *pcm ATTRIBUTE_UNUSED, snd_pcm_hw_params_t *params)

{

	int err;

	snd_pcm_access_mask_t access_mask = { SND_PCM_ACCBIT_SHM };

	snd_pcm_format_mask_t format_mask = { SND_PCM_FMTBIT_LINEAR };

	err = _snd_pcm_hw_param_set_mask(params, SND_PCM_HW_PARAM_ACCESS,

					 &access_mask);

	if (err < 0)

		return err;

	err = _snd_pcm_hw_param_set_mask(params, SND_PCM_HW_PARAM_FORMAT,

					 &format_mask);

	if (err < 0)

		return err;

	err = _snd_pcm_hw_params_set_subformat(params, SND_PCM_SUBFORMAT_STD);

	if (err < 0)

		return err;

	err = _snd_pcm_hw_param_set_min(params, SND_PCM_HW_PARAM_CHANNELS, 1, 0);

	if (err < 0)

		return err;

	params->info &= ~(SND_PCM_INFO_MMAP | SND_PCM_INFO_MMAP_VALID);

	return 0;

}

static int snd_pcm_route_hw_refine_sprepare(snd_pcm_t *pcm, snd_pcm_hw_params_t *sparams)

{

	snd_pcm_route_t *route = pcm->private_data;

	snd_pcm_access_mask_t saccess_mask = { SND_PCM_ACCBIT_MMAP };

	_snd_pcm_hw_params_any(sparams);

	_snd_pcm_hw_param_set_mask(sparams, SND_PCM_HW_PARAM_ACCESS,

				   &saccess_mask);

	if (route->sformat != SND_PCM_FORMAT_UNKNOWN) {

		_snd_pcm_hw_params_set_format(sparams, route->sformat);

		_snd_pcm_hw_params_set_subformat(sparams, SND_PCM_SUBFORMAT_STD);

	}

	if (route->schannels >= 0) {

		_snd_pcm_hw_param_set(sparams, SND_PCM_HW_PARAM_CHANNELS,

				      (unsigned int) route->schannels, 0);

	}

	return 0;

}

static int snd_pcm_route_hw_refine_schange(snd_pcm_t *pcm, snd_pcm_hw_params_t *params,

					    snd_pcm_hw_params_t *sparams)

{

	snd_pcm_route_t *route = pcm->private_data;

	int err;

	unsigned int links = (SND_PCM_HW_PARBIT_RATE |

			      SND_PCM_HW_PARBIT_PERIODS |

			      SND_PCM_HW_PARBIT_PERIOD_SIZE |

			      SND_PCM_HW_PARBIT_PERIOD_TIME |

			      SND_PCM_HW_PARBIT_BUFFER_SIZE |

			      SND_PCM_HW_PARBIT_BUFFER_TIME |

			      SND_PCM_HW_PARBIT_TICK_TIME);

	if (route->sformat == SND_PCM_FORMAT_UNKNOWN)

		links |= (SND_PCM_HW_PARBIT_FORMAT | 

			  SND_PCM_HW_PARBIT_SUBFORMAT |

			  SND_PCM_HW_PARBIT_SAMPLE_BITS);

	if (route->schannels < 0)

		links |= SND_PCM_HW_PARBIT_CHANNELS;

	err = _snd_pcm_hw_params_refine(sparams, links, params);

	if (err < 0)

		return err;

	return 0;

}

static int snd_pcm_route_hw_refine_cchange(snd_pcm_t *pcm, snd_pcm_hw_params_t *params,

					    snd_pcm_hw_params_t *sparams)

{

	snd_pcm_route_t *route = pcm->private_data;

	int err;

	unsigned int links = (SND_PCM_HW_PARBIT_RATE |

			      SND_PCM_HW_PARBIT_PERIODS |

			      SND_PCM_HW_PARBIT_PERIOD_SIZE |

			      SND_PCM_HW_PARBIT_PERIOD_TIME |

			      SND_PCM_HW_PARBIT_BUFFER_SIZE |

			      SND_PCM_HW_PARBIT_BUFFER_TIME |

			      SND_PCM_HW_PARBIT_TICK_TIME);

	if (route->sformat == SND_PCM_FORMAT_UNKNOWN)

		links |= (SND_PCM_HW_PARBIT_FORMAT | 

			  SND_PCM_HW_PARBIT_SUBFORMAT |

			  SND_PCM_HW_PARBIT_SAMPLE_BITS);

	if (route->schannels < 0)

		links |= SND_PCM_HW_PARBIT_CHANNELS;

	err = _snd_pcm_hw_params_refine(params, links, sparams);

	if (err < 0)

		return err;

	return 0;

}

static int snd_pcm_route_hw_refine(snd_pcm_t *pcm, snd_pcm_hw_params_t *params)

{

	return snd_pcm_hw_refine_slave(pcm, params,

				       snd_pcm_route_hw_refine_cprepare,

				       snd_pcm_route_hw_refine_cchange,

				       snd_pcm_route_hw_refine_sprepare,

				       snd_pcm_route_hw_refine_schange,

				       snd_pcm_generic_hw_refine);

}

static int snd_pcm_route_hw_params(snd_pcm_t *pcm, snd_pcm_hw_params_t * params)

{

	snd_pcm_route_t *route = pcm->private_data;

	snd_pcm_t *slave = route->plug.gen.slave;

	snd_pcm_format_t src_format, dst_format;

	int err = snd_pcm_hw_params_slave(pcm, params,

					  snd_pcm_route_hw_refine_cchange,

					  snd_pcm_route_hw_refine_sprepare,

					  snd_pcm_route_hw_refine_schange,

					  snd_pcm_generic_hw_params);

	if (err < 0)

		return err;

	if (pcm->stream == SND_PCM_STREAM_PLAYBACK) {

		err = INTERNAL(snd_pcm_hw_params_get_format)(params, &src_format);

		dst_format = slave->format;

	} else {

		src_format = slave->format;

		err = INTERNAL(snd_pcm_hw_params_get_format)(params, &dst_format);

	}

	if (err < 0)

		return err;

	/* 3 bytes or 20-bit formats? */

	route->params.use_getput =

		(snd_pcm_format_physical_width(src_format) + 7) / 8 == 3 ||

		(snd_pcm_format_physical_width(dst_format) + 7) / 8 == 3 ||

		snd_pcm_format_width(src_format) == 20 ||

		snd_pcm_format_width(dst_format) == 20;

	route->params.get_idx = snd_pcm_linear_get_index(src_format, SND_PCM_FORMAT_S32);

	route->params.put_idx = snd_pcm_linear_put_index(SND_PCM_FORMAT_S32, dst_format);

	route->params.conv_idx = snd_pcm_linear_convert_index(src_format, dst_format);

	route->params.src_size = snd_pcm_format_width(src_format) / 8;

	route->params.dst_sfmt = dst_format;

#if SND_PCM_PLUGIN_ROUTE_FLOAT

	route->params.sum_idx = FLOAT;

#else

	route->params.sum_idx = UINT64;

#endif

	return 0;

}

static snd_pcm_uframes_t

snd_pcm_route_write_areas(snd_pcm_t *pcm,

			  const snd_pcm_channel_area_t *areas,

			  snd_pcm_uframes_t offset,

			  snd_pcm_uframes_t size,

			  const snd_pcm_channel_area_t *slave_areas,

			  snd_pcm_uframes_t slave_offset,

			  snd_pcm_uframes_t *slave_sizep)

{

	snd_pcm_route_t *route = pcm->private_data;

	snd_pcm_t *slave = route->plug.gen.slave;

	if (size > *slave_sizep)

		size = *slave_sizep;

	snd_pcm_route_convert(slave_areas, slave_offset,

			      areas, offset, 

			      pcm->channels,

			      slave->channels,

			      size, &route->params);

	*slave_sizep = size;

	return size;

}

static snd_pcm_uframes_t

snd_pcm_route_read_areas(snd_pcm_t *pcm,

			 const snd_pcm_channel_area_t *areas,

			 snd_pcm_uframes_t offset,

			 snd_pcm_uframes_t size,

			 const snd_pcm_channel_area_t *slave_areas,

			 snd_pcm_uframes_t slave_offset,

			 snd_pcm_uframes_t *slave_sizep)

{

	snd_pcm_route_t *route = pcm->private_data;

	snd_pcm_t *slave = route->plug.gen.slave;

	if (size > *slave_sizep)

		size = *slave_sizep;

	snd_pcm_route_convert(areas, offset, 

			      slave_areas, slave_offset,

			      slave->channels,

			      pcm->channels,

			      size, &route->params);

	*slave_sizep = size;

	return size;

}

static snd_pcm_chmap_t *snd_pcm_route_get_chmap(snd_pcm_t *pcm)

{

	snd_pcm_route_t *route = pcm->private_data;

	snd_pcm_chmap_t *map, *slave_map;

	unsigned int src, dst, nsrcs;

	slave_map = snd_pcm_generic_get_chmap(pcm);

	if (!slave_map)

		return NULL;

	nsrcs = route->params.nsrcs;

	map = calloc(4, nsrcs + 1);

	if (!map) {

		free(slave_map);

		return NULL;

	}

	map->channels = nsrcs;

	for (src = 0; src < nsrcs; src++)

		map->pos[src] = SND_CHMAP_NA;

	for (dst = 0; dst < route->params.ndsts; dst++) {

		snd_pcm_route_ttable_dst_t *d = &route->params.dsts[dst];

		for (src = 0; src < d->nsrcs; src++) {

			unsigned int c = d->srcs[src].channel;

			if (c < nsrcs && map->pos[c] == SND_CHMAP_NA)

				map->pos[c] = slave_map->pos[dst];

		}

	}

	free(slave_map);

	return map;

}

static snd_pcm_chmap_query_t **snd_pcm_route_query_chmaps(snd_pcm_t *pcm)

{

	snd_pcm_chmap_query_t **maps;

	snd_pcm_chmap_t *map = snd_pcm_route_get_chmap(pcm);

	if (!map)

		return NULL;

	maps = _snd_pcm_make_single_query_chmaps(map);

	free(map);

	return maps;

}

static void snd_pcm_route_dump(snd_pcm_t *pcm, snd_output_t *out)

{

	snd_pcm_route_t *route = pcm->private_data;

	unsigned int dst;

	if (route->sformat == SND_PCM_FORMAT_UNKNOWN)

		snd_output_printf(out, "Route conversion PCM\n");

	else

		snd_output_printf(out, "Route conversion PCM (sformat=%s)\n", 

			snd_pcm_format_name(route->sformat));

	snd_output_puts(out, "  Transformation table:\n");

	for (dst = 0; dst < route->params.ndsts; dst++) {

		snd_pcm_route_ttable_dst_t *d = &route->params.dsts[dst];

		unsigned int src;

		snd_output_printf(out, "    %d <- ", dst);

		if (d->nsrcs == 0) {

			snd_output_printf(out, "none\n");

			continue;

		}

		src = 0;

		while (1) {

			snd_pcm_route_ttable_src_t *s = &d->srcs[src];

			if (d->att)

#if SND_PCM_PLUGIN_ROUTE_FLOAT

				snd_output_printf(out, "%d*%g", s->channel, s->as_float);

#else

				snd_output_printf(out, "%d*%g", s->channel, (double)s->as_int / (double)SND_PCM_PLUGIN_ROUTE_RESOLUTION);

#endif

			else

				snd_output_printf(out, "%d", s->channel);

			src++;

			if (src == d->nsrcs)

				break;

			snd_output_puts(out, " + ");

		}

		snd_output_putc(out, '\n');

	}

	if (pcm->setup) {

		snd_output_printf(out, "Its setup is:\n");

		snd_pcm_dump_setup(pcm, out);

	}

	snd_output_printf(out, "Slave: ");

	snd_pcm_dump(route->plug.gen.slave, out);

}

/*

 * Converts a string to an array of channel indices:

 * - Given a number, the result is an array with one element,

 *   containing that number

 * - Given a channel name (e g "FL") and a chmap,

 *   it will look this up in the chmap and return all matches

 * - Given a channel name and no chmap, the result is an array with one element,

     containing alsa standard channel map. Note that this might be a negative

     number in case of "UNKNOWN", "NA" or "MONO".

 * Return value is number of matches written.

 */

static int strtochannel(const char *id, snd_pcm_chmap_t *chmap,

			 long *channel, int channel_size)

{

	int ch;

	if (safe_strtol(id, channel) >= 0)

		return 1;

	ch = (int) snd_pcm_chmap_from_string(id);

	if (ch == -1)

		return -EINVAL;

	if (chmap) {

		int i, r = 0;

		/* Start with highest channel to simplify implementation of

		   determine ttable size */

		for (i = chmap->channels - 1; i >= 0; i--) {

			if ((int) chmap->pos[i] != ch)

				continue;

			if (r >= channel_size)

				continue;

			channel[r++] = i;

		}

		return r;

	}

	else {

		/* Assume ALSA standard channel mapping */

		*channel = ch - SND_CHMAP_FL;

		return 1;

	}

}

#define MAX_CHMAP_CHANNELS 256

static int determine_chmap(snd_config_t *tt, snd_pcm_chmap_t **tt_chmap)

{

	snd_config_iterator_t i, inext;

	snd_pcm_chmap_t *chmap;

	assert(tt && tt_chmap);

	chmap = malloc(sizeof(snd_pcm_chmap_t) +

		       MAX_CHMAP_CHANNELS * sizeof(unsigned int));

	chmap->channels = 0;

	snd_config_for_each(i, inext, tt) {

		const char *id;

		snd_config_iterator_t j, jnext;

		snd_config_t *in = snd_config_iterator_entry(i);

		if (snd_config_get_id(in, &id) < 0)

			continue;

		if (snd_config_get_type(in) != SND_CONFIG_TYPE_COMPOUND)

			goto err;

		snd_config_for_each(j, jnext, in) {

			int ch, k, found;

			long schannel;

			snd_config_t *jnode = snd_config_iterator_entry(j);

			if (snd_config_get_id(jnode, &id) < 0)

				continue;

			if (safe_strtol(id, &schannel) >= 0)

				continue;

			ch = (int) snd_pcm_chmap_from_string(id);

			if (ch == -1)

				goto err;

			found = 0;

			for (k = 0; k < (int) chmap->channels; k++)

				if (ch == (int) chmap->pos[k]) {

					found = 1;

					break;

				}

			if (found)

				continue;

			if (chmap->channels >= MAX_CHMAP_CHANNELS) {

				SNDERR("Too many channels in ttable chmap");

				goto err;

			}

			chmap->pos[chmap->channels++] = ch;

		}

	}

	if (chmap->channels == 0) {

		free(chmap);

		chmap = NULL;

	}

	*tt_chmap = chmap;

	return 0;

err:

	*tt_chmap = NULL;

	free(chmap);

	return -EINVAL;

}

static int find_matching_chmap(snd_pcm_t *spcm, snd_pcm_chmap_t *tt_chmap,

			       snd_pcm_chmap_t **found_chmap, int *schannels)

{

	snd_pcm_chmap_query_t** chmaps = snd_pcm_query_chmaps(spcm);

	int i;

	*found_chmap = NULL;

	if (chmaps == NULL)

		return 0; /* chmap API not supported for this slave */

	for (i = 0; chmaps[i]; i++) {

		unsigned int j, k;

		int match = 1;

		snd_pcm_chmap_t *c = &chmaps[i]->map;

		if (*schannels >= 0 && (int) c->channels != *schannels)

			continue;

		for (j = 0; j < tt_chmap->channels; j++) {

			int found = 0;

			unsigned int ch = tt_chmap->pos[j];

			for (k = 0; k < c->channels; k++)

				if (c->pos[k] == ch) {

					found = 1;

					break;

				}

			if (!found) {

				match = 0;

				break;

			}

		}

		if (match) {

			int size = sizeof(snd_pcm_chmap_t) + c->channels * sizeof(unsigned int);

			*found_chmap = malloc(size);

			if (!*found_chmap) {

				snd_pcm_free_chmaps(chmaps);

				return -ENOMEM;

			}

			memcpy(*found_chmap, c, size);

			*schannels = c->channels;

			break;

		}

	}

	snd_pcm_free_chmaps(chmaps);

	if (*found_chmap == NULL) {

		SNDERR("Found no matching channel map");

		return -EINVAL;

	}

	return 0;

}

static int route_chmap_init(snd_pcm_t *pcm)

{

	int set_map = 0;

	snd_pcm_chmap_t *current;

	snd_pcm_route_t *route = pcm->private_data;

	if (!route->chmap)