/*

 *  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 of the License, or (at your option) any later version.

 *

 *  This library 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

 *

 *  Support for the verb/device/modifier core logic and API,

 *  command line tool and file parser was kindly sponsored by

 *  Texas Instruments Inc.

 *  Support for multiple active modifiers and devices,

 *  transition sequences, multiple client access and user defined use

 *  cases was kindly sponsored by Wolfson Microelectronics PLC.

 *

 *  Copyright (C) 2008-2010 SlimLogic Ltd

 *  Copyright (C) 2010 Wolfson Microelectronics PLC

 *  Copyright (C) 2010 Texas Instruments Inc.

 *  Copyright (C) 2010 Red Hat Inc.

 *  Authors: Liam Girdwood <lrg@slimlogic.co.uk>

 *	         Stefan Schmidt <stefan@slimlogic.co.uk>

 *	         Justin Xu <justinx@slimlogic.co.uk>

 *               Jaroslav Kysela <perex@perex.cz>

 */

#include "ucm_local.h"

void uc_mgr_error(const char *fmt,...)

{

	va_list va;

	va_start(va, fmt);

	fprintf(stderr, "ucm: ");

	vfprintf(stderr, fmt, va);

	va_end(va);

}

void uc_mgr_stdout(const char *fmt,...)

{

	va_list va;

	va_start(va, fmt);

	vfprintf(stdout, fmt, va);

	va_end(va);

}

struct ctl_list *uc_mgr_get_master_ctl(snd_use_case_mgr_t *uc_mgr)

{

	struct list_head *pos;

	struct ctl_list *ctl_list = NULL, *ctl_list2;

	list_for_each(pos, &uc_mgr->ctl_list) {

		ctl_list2 = list_entry(pos, struct ctl_list, list);

		if (ctl_list2->slave)

			continue;

		if (ctl_list) {

			uc_error("multiple control device names were found!");

			return NULL;

		}

		ctl_list = ctl_list2;

	}

	return ctl_list;

}

struct ctl_list *uc_mgr_get_ctl_by_name(snd_use_case_mgr_t *uc_mgr, const char *name, int idx)

{

	struct list_head *pos;

	struct ctl_list *ctl_list = NULL;

	const char *s;

	char cname[32];

	int idx2, card, err;

	idx2 = idx;

	list_for_each(pos, &uc_mgr->ctl_list) {

		ctl_list = list_entry(pos, struct ctl_list, list);

		s = snd_ctl_card_info_get_name(ctl_list->ctl_info);

		if (s == NULL)

			continue;

		if (strcmp(s, name) == 0) {

			if (idx2 == 0)

				return ctl_list;

			idx2--;

		}

	}

	idx2 = idx;

	card = -1;

	if (snd_card_next(&card) < 0 || card < 0)

		return NULL;

	while (card >= 0) {

		sprintf(cname, "hw:%d", card);

		err = uc_mgr_open_ctl(uc_mgr, &ctl_list, cname, 1);

		if (err < 0)

			continue;	/* really? */

		s = snd_ctl_card_info_get_name(ctl_list->ctl_info);

		if (s && strcmp(s, name) == 0) {

			if (idx2 == 0)

				return ctl_list;

			idx2--;

		}

		if (snd_card_next(&card) < 0)

			break;

	}

	return NULL;

}

snd_ctl_t *uc_mgr_get_ctl(snd_use_case_mgr_t *uc_mgr)

{

	struct ctl_list *ctl_list;

	ctl_list = uc_mgr_get_master_ctl(uc_mgr);

	if (ctl_list)

		return ctl_list->ctl;

	return NULL;

}

static void uc_mgr_free_ctl(struct ctl_list *ctl_list)

{

	struct list_head *pos, *npos;

	struct ctl_dev *ctl_dev;

	list_for_each_safe(pos, npos, &ctl_list->dev_list) {

		ctl_dev = list_entry(pos, struct ctl_dev, list);

		free(ctl_dev->device);

		free(ctl_dev);

	}

	snd_ctl_card_info_free(ctl_list->ctl_info);

	free(ctl_list);

}

void uc_mgr_free_ctl_list(snd_use_case_mgr_t *uc_mgr)

{

	struct list_head *pos, *npos;

	struct ctl_list *ctl_list;

	list_for_each_safe(pos, npos, &uc_mgr->ctl_list) {

		ctl_list = list_entry(pos, struct ctl_list, list);

		snd_ctl_close(ctl_list->ctl);

		list_del(&ctl_list->list);

		uc_mgr_free_ctl(ctl_list);

	}

}

static int uc_mgr_ctl_add_dev(struct ctl_list *ctl_list, const char *device)

{

	struct list_head *pos;

	struct ctl_dev *ctl_dev;

	/* skip duplicates */

	list_for_each(pos, &ctl_list->dev_list) {

		ctl_dev = list_entry(pos, struct ctl_dev, list);

		if (strcmp(ctl_dev->device, device) == 0)

			return 0;

	}

	/* allocate new device name */

	ctl_dev = malloc(sizeof(*ctl_dev));

	if (ctl_dev == NULL)

		return -ENOMEM;

	ctl_dev->device = strdup(device);

	if (ctl_dev->device == NULL) {

		free(ctl_dev);

		return -ENOMEM;

	}

	list_add_tail(&ctl_dev->list, &ctl_list->dev_list);

	return 0;

}

static int uc_mgr_ctl_add(snd_use_case_mgr_t *uc_mgr,

			  struct ctl_list **ctl_list,

			  snd_ctl_t *ctl, int card,

			  snd_ctl_card_info_t *info,

			  const char *device,

			  int slave)

{

	struct ctl_list *cl = NULL;

	const char *id = snd_ctl_card_info_get_id(info);

	char dev[MAX_CARD_LONG_NAME];

	int err, hit = 0;

	if (id == NULL || id[0] == '\0')

		return -ENOENT;

	if (!(*ctl_list)) {

		cl = malloc(sizeof(*cl));

		if (cl == NULL)

			return -ENOMEM;

		INIT_LIST_HEAD(&cl->dev_list);

		cl->ctl = ctl;

		if (snd_ctl_card_info_malloc(&cl->ctl_info) < 0) {

			free(cl);

			return -ENOMEM;

		}

		snd_ctl_card_info_copy(cl->ctl_info, info);

		cl->slave = slave;

		*ctl_list = cl;

	} else {

		if (!slave)

			(*ctl_list)->slave = slave;

	}

	if (card >= 0) {

		snprintf(dev, sizeof(dev), "hw:%d", card);

		hit |= !!(device && (strcmp(dev, device) == 0));

		err = uc_mgr_ctl_add_dev(*ctl_list, dev);

		if (err < 0)

			goto __nomem;

	}

	snprintf(dev, sizeof(dev), "hw:%s", id);

	hit |= !!(device && (strcmp(dev, device) == 0));

	err = uc_mgr_ctl_add_dev(*ctl_list, dev);

	if (err < 0)

		goto __nomem;

	/* the UCM name not based on the card name / id */

	if (!hit && device) {

		err = uc_mgr_ctl_add_dev(*ctl_list, device);

		if (err < 0)

			goto __nomem;

	}

	list_add_tail(&(*ctl_list)->list, &uc_mgr->ctl_list);

	return 0;

__nomem:

	if (*ctl_list == cl) {

		uc_mgr_free_ctl(cl);

		*ctl_list = NULL;

	}

	return -ENOMEM;

}

int uc_mgr_open_ctl(snd_use_case_mgr_t *uc_mgr,

		    struct ctl_list **ctll,

		    const char *device,

		    int slave)

{

	struct list_head *pos1, *pos2;

	snd_ctl_t *ctl;

	struct ctl_list *ctl_list;

	struct ctl_dev *ctl_dev;

	snd_ctl_card_info_t *info;

	const char *id;

	int err, card;

	snd_ctl_card_info_alloca(&info;;

	/* cache lookup */

	list_for_each(pos1, &uc_mgr->ctl_list) {

		ctl_list = list_entry(pos1, struct ctl_list, list);

		list_for_each(pos2, &ctl_list->dev_list) {

			ctl_dev = list_entry(pos2, struct ctl_dev, list);

			if (strcmp(ctl_dev->device, device) == 0) {

				*ctll = ctl_list;

				if (!slave)

					ctl_list->slave = 0;

				return 0;

			}

		}

	}

	err = snd_ctl_open(&ctl, device, 0);

	if (err < 0)

		return err;

	id = NULL;

	err = snd_ctl_card_info(ctl, info);

	if (err == 0)

		id = snd_ctl_card_info_get_id(info);

	if (err < 0 || id == NULL || id[0] == '\0') {

		uc_error("control hardware info (%s): %s", device, snd_strerror(err));

		snd_ctl_close(ctl);

		return err >= 0 ? -EINVAL : err;

	}

	/* insert to cache, if just name differs */

	list_for_each(pos1, &uc_mgr->ctl_list) {

		ctl_list = list_entry(pos1, struct ctl_list, list);

		if (strcmp(id, snd_ctl_card_info_get_id(ctl_list->ctl_info)) == 0) {

			card = snd_card_get_index(id);

			err = uc_mgr_ctl_add(uc_mgr, &ctl_list, ctl, card, info, device, slave);

			if (err < 0)

				goto __nomem;

			snd_ctl_close(ctl);

			*ctll = ctl_list;

			return 0;

		}

	}

	ctl_list = NULL;

	err = uc_mgr_ctl_add(uc_mgr, &ctl_list, ctl, -1, info, device, slave);

	if (err < 0)

		goto __nomem;

	*ctll = ctl_list;

	return 0;

__nomem:

	snd_ctl_close(ctl);

	return -ENOMEM;

}

const char *uc_mgr_config_dir(int format)

{

	const char *path;

	if (format >= 2) {

		path = getenv(ALSA_CONFIG_UCM2_VAR);

		if (!path || path[0] == '\0')

			path = ALSA_CONFIG_DIR "/ucm2";

	} else {

		path = getenv(ALSA_CONFIG_UCM_VAR);

		if (!path || path[0] == '\0')

			path = ALSA_CONFIG_DIR "/ucm";

	}

	return path;

}

int uc_mgr_config_load(int format, const char *file, snd_config_t **cfg)

{

	FILE *fp;

	snd_input_t *in;

	snd_config_t *top;

	const char *default_paths[2];

	int err;

	fp = fopen(file, "r");

	if (!fp) {

		err = -errno;

  __err0:

		uc_error("could not open configuration file %s", file);

		return err;

	}

	err = snd_input_stdio_attach(&in, fp, 1);

	if (err < 0)

		goto __err0;

	err = snd_config_top(&top);

	if (err < 0)

		goto __err1;

	default_paths[0] = uc_mgr_config_dir(format);

	default_paths[1] = NULL;

	err = _snd_config_load_with_include(top, in, 0, default_paths);

	if (err < 0) {

		uc_error("could not load configuration file %s", file);

		goto __err2;

	}

	err = snd_input_close(in);

	if (err < 0) {

		in = NULL;

		goto __err2;

	}

	*cfg = top;

	return 0;

 __err2:

	snd_config_delete(top);

 __err1:

	if (in)

		snd_input_close(in);

	return err;

}

void uc_mgr_free_value(struct list_head *base)

{

	struct list_head *pos, *npos;

	struct ucm_value *val;

	list_for_each_safe(pos, npos, base) {

		val = list_entry(pos, struct ucm_value, list);

		free(val->name);

		free(val->data);

		list_del(&val->list);

		free(val);

	}

}

void uc_mgr_free_dev_list(struct dev_list *dev_list)

{

	struct list_head *pos, *npos;

	struct dev_list_node *dlist;

	list_for_each_safe(pos, npos, &dev_list->list) {

		dlist = list_entry(pos, struct dev_list_node, list);

		free(dlist->name);

		list_del(&dlist->list);

		free(dlist);

	}

}

int uc_mgr_put_to_dev_list(struct dev_list *dev_list, const char *name)

{

	struct list_head *pos;

	struct dev_list_node *dlist;

	char *n;

	list_for_each(pos, &dev_list->list) {

		dlist = list_entry(pos, struct dev_list_node, list);

		if (strcmp(dlist->name, name) == 0)

			return 0;

	}

	dlist = calloc(1, sizeof(*dlist));

	if (dlist == NULL)

		return -ENOMEM;

	n = strdup(name);

	if (n == NULL) {

		free(dlist);

		return -ENOMEM;

	}

	dlist->name = n;

	list_add(&dlist->list, &dev_list->list);

	return 0;

}

int uc_mgr_rename_in_dev_list(struct dev_list *dev_list, const char *src,

			      const char *dst)

{

	struct list_head *pos;

	struct dev_list_node *dlist;

	char *dst1;

	list_for_each(pos, &dev_list->list) {

		dlist = list_entry(pos, struct dev_list_node, list);

		if (strcmp(dlist->name, src) == 0) {

			dst1 = strdup(dst);

			if (dst1 == NULL)

				return -ENOMEM;

			free(dlist->name);

			dlist->name = dst1;

			return 0;

		}

	}

	return -ENODEV;

}

int uc_mgr_remove_from_dev_list(struct dev_list *dev_list, const char *name)

{

	struct list_head *pos;

	struct dev_list_node *dlist;

	list_for_each(pos, &dev_list->list) {

		dlist = list_entry(pos, struct dev_list_node, list);

		if (strcmp(dlist->name, name) == 0) {

			free(dlist->name);

			list_del(&dlist->list);

			free(dlist);

			return 0;

		}

	}

	return -ENODEV;

}

void uc_mgr_free_sequence_element(struct sequence_element *seq)

{

	if (seq == NULL)

		return;

	switch (seq->type) {

	case SEQUENCE_ELEMENT_TYPE_CDEV:

		free(seq->data.cdev);

		break;

	case SEQUENCE_ELEMENT_TYPE_CSET:

	case SEQUENCE_ELEMENT_TYPE_CSET_BIN_FILE:

	case SEQUENCE_ELEMENT_TYPE_CSET_TLV:

		free(seq->data.cset);

		break;

	case SEQUENCE_ELEMENT_TYPE_EXEC:

		free(seq->data.exec);

		break;

	default:

		break;

	}

	free(seq);

}

void uc_mgr_free_sequence(struct list_head *base)

{

	struct list_head *pos, *npos;

	struct sequence_element *seq;

	list_for_each_safe(pos, npos, base) {

		seq = list_entry(pos, struct sequence_element, list);

		list_del(&seq->list);

		uc_mgr_free_sequence_element(seq);

	}

}

void uc_mgr_free_transition_element(struct transition_sequence *tseq)

{

	free(tseq->name);

	uc_mgr_free_sequence(&tseq->transition_list);

	free(tseq);

}

void uc_mgr_free_transition(struct list_head *base)

{

	struct list_head *pos, *npos;

	struct transition_sequence *tseq;

	list_for_each_safe(pos, npos, base) {

		tseq = list_entry(pos, struct transition_sequence, list);

		list_del(&tseq->list);

		uc_mgr_free_transition_element(tseq);

	}

}

void uc_mgr_free_dev_name_list(struct list_head *base)

{

	struct list_head *pos, *npos;

	struct ucm_dev_name *dev;

	list_for_each_safe(pos, npos, base) {

		dev = list_entry(pos, struct ucm_dev_name, list);

		list_del(&dev->list);

		free(dev->name1);

		free(dev->name2);

		free(dev);

	}

}

void uc_mgr_free_modifier(struct list_head *base)

{

	struct list_head *pos, *npos;

	struct use_case_modifier *mod;

	list_for_each_safe(pos, npos, base) {

		mod = list_entry(pos, struct use_case_modifier, list);

		free(mod->name);

		free(mod->comment);

		uc_mgr_free_sequence(&mod->enable_list);

		uc_mgr_free_sequence(&mod->disable_list);

		uc_mgr_free_transition(&mod->transition_list);

		uc_mgr_free_dev_list(&mod->dev_list);

		uc_mgr_free_value(&mod->value_list);

		list_del(&mod->list);

		free(mod);

	}

}

void uc_mgr_free_device(struct use_case_device *dev)

{

	free(dev->name);

	free(dev->comment);

	uc_mgr_free_sequence(&dev->enable_list);

	uc_mgr_free_sequence(&dev->disable_list);

	uc_mgr_free_transition(&dev->transition_list);

	uc_mgr_free_dev_list(&dev->dev_list);

	uc_mgr_free_value(&dev->value_list);

	list_del(&dev->list);

	free(dev);

}

void uc_mgr_free_device_list(struct list_head *base)

{

	struct list_head *pos, *npos;

	struct use_case_device *dev;

	list_for_each_safe(pos, npos, base) {

		dev = list_entry(pos, struct use_case_device, list);

		uc_mgr_free_device(dev);

	}

}

int uc_mgr_rename_device(struct use_case_verb *verb, const char *src,

			 const char *dst)

{

	struct use_case_device *device;

	struct list_head *pos, *npos;

	char *dst1;

	/* no errors when device is not found */

	list_for_each_safe(pos, npos, &verb->device_list) {

		device = list_entry(pos, struct use_case_device, list);

		if (strcmp(device->name, src) == 0) {

			dst1 = strdup(dst);

			if (dst1 == NULL)

				return -ENOMEM;

			free(device->name);

			device->name = dst1;

			continue;

		}

		uc_mgr_rename_in_dev_list(&device->dev_list, src, dst);

	}

	return 0;

}

int uc_mgr_remove_device(struct use_case_verb *verb, const char *name)

{

	struct use_case_device *device;

	struct list_head *pos, *npos;

	int err, found = 0;

	list_for_each_safe(pos, npos, &verb->device_list) {

		device = list_entry(pos, struct use_case_device, list);

		if (strcmp(device->name, name) == 0) {

			uc_mgr_free_device(device);

			found++;

			continue;

		}

		err = uc_mgr_remove_from_dev_list(&device->dev_list, name);

		if (err < 0 && err != -ENODEV)

			return err;

		if (err == 0)

			found++;

	}

	return found == 0 ? -ENODEV : 0;

}

const char *uc_mgr_get_variable(snd_use_case_mgr_t *uc_mgr, const char *name)

{

	struct list_head *pos;

	struct ucm_value *value;

	list_for_each(pos, &uc_mgr->variable_list) {

		value = list_entry(pos, struct ucm_value, list);

		if (strcmp(value->name, name) == 0)

			return value->data;

	}

	return NULL;

}

int uc_mgr_set_variable(snd_use_case_mgr_t *uc_mgr, const char *name,

			const char *val)

{

	struct list_head *pos;

	struct ucm_value *curr;

	char *val2;

	list_for_each(pos, &uc_mgr->variable_list) {

		curr = list_entry(pos, struct ucm_value, list);

		if (strcmp(curr->name, name) == 0) {

			val2 = strdup(val);

			if (val2 == NULL)

				return -ENOMEM;

			free(curr->data);

			curr->data = val2;

			return 0;

		}

	}

	curr = calloc(1, sizeof(struct ucm_value));

	if (curr == NULL)

		return -ENOMEM;

	curr->name = strdup(name);

	if (curr->name == NULL) {

		free(curr);

		return -ENOMEM;

	}

	curr->data = strdup(val);

	if (curr->data == NULL) {

		free(curr->name);

		free(curr);

		return -ENOMEM;

	}

	list_add_tail(&curr->list, &uc_mgr->variable_list);

	return 0;

}

void uc_mgr_free_verb(snd_use_case_mgr_t *uc_mgr)

{

	struct list_head *pos, *npos;

	struct use_case_verb *verb;

	list_for_each_safe(pos, npos, &uc_mgr->verb_list) {

		verb = list_entry(pos, struct use_case_verb, list);

		free(verb->name);

		free(verb->comment);

		uc_mgr_free_sequence(&verb->enable_list);

		uc_mgr_free_sequence(&verb->disable_list);

		uc_mgr_free_transition(&verb->transition_list);

		uc_mgr_free_value(&verb->value_list);

		uc_mgr_free_device_list(&verb->device_list);

		uc_mgr_free_device_list(&verb->cmpt_device_list);

		uc_mgr_free_modifier(&verb->modifier_list);

		uc_mgr_free_dev_name_list(&verb->rename_list);

		uc_mgr_free_dev_name_list(&verb->remove_list);

		list_del(&verb->list);

		free(verb);

	}

	uc_mgr_free_sequence(&uc_mgr->boot_list);

	uc_mgr_free_sequence(&uc_mgr->default_list);

	uc_mgr_free_value(&uc_mgr->value_list);

	uc_mgr_free_value(&uc_mgr->variable_list);

	free(uc_mgr->comment);

	free(uc_mgr->conf_dir_name);

	free(uc_mgr->conf_file_name);

	uc_mgr->comment = NULL;

	uc_mgr->conf_dir_name = NULL;

	uc_mgr->conf_file_name = NULL;

	uc_mgr->active_verb = NULL;

	INIT_LIST_HEAD(&uc_mgr->active_devices);

	INIT_LIST_HEAD(&uc_mgr->active_modifiers);

}

void uc_mgr_free(snd_use_case_mgr_t *uc_mgr)

{

	uc_mgr_free_verb(uc_mgr);

	uc_mgr_free_ctl_list(uc_mgr);

	free(uc_mgr->card_name);

	free(uc_mgr);

}