/*
* 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) 2020 Red Hat Inc.
* Authors: Jaroslav Kysela <perex@perex.cz>
*/
#include "ucm_local.h"
static int get_string(snd_config_t *compound, const char *key, const char **str)
{
snd_config_t *node;
int err;
err = snd_config_search(compound, key, &node);
if (err < 0)
return err;
return snd_config_get_string(node, str);
}
static int include_eval_one(snd_use_case_mgr_t *uc_mgr,
snd_config_t *inc,
snd_config_t **result,
snd_config_t **before,
snd_config_t **after)
{
const char *file;
char *s;
int err;
*result = NULL;
if (snd_config_get_type(inc) != SND_CONFIG_TYPE_COMPOUND) {
uc_error("compound type expected for Include.1");
return -EINVAL;
}
err = get_string(inc, "File", &file);
if (err < 0) {
uc_error("file expected (Include)");
return -EINVAL;
}
err = snd_config_search(inc, "Before", before);
if (err < 0 && err != -ENOENT) {
uc_error("before block identifier error");
return -EINVAL;
}
err = snd_config_search(inc, "After", after);
if (err < 0 && err != -ENOENT) {
uc_error("before block identifier error");
return -EINVAL;
}
err = uc_mgr_get_substituted_value(uc_mgr, &s, file);
if (err < 0)
return err;
err = uc_mgr_config_load_file(uc_mgr, s, result);
free(s);
return err;
}
#if 0
static void config_dump(snd_config_t *cfg)
{
snd_output_t *out;
snd_output_stdio_attach(&out, stderr, 0);
snd_output_printf(out, "-----\n");
snd_config_save(cfg, out);
snd_output_close(out);
}
#endif
static int find_position_node(snd_config_t **res, snd_config_t *dst,
const char *id, snd_config_t *pos)
{
const char *s;
int err;
err = get_string(pos, id, &s);
if (err < 0 && err != -ENOENT)
return err;
if (err == 0) {
err = snd_config_search(dst, s, res);
if (err < 0 && err != -ENOENT)
return err;
}
return 0;
}
static int compound_merge(const char *id,
snd_config_t *dst, snd_config_t *src,
snd_config_t *before, snd_config_t *after)
{
snd_config_iterator_t i, next;
snd_config_t *n, *_before = NULL, *_after = NULL;
char tmpid[32];
int err, array, idx;
if (snd_config_get_type(src) != SND_CONFIG_TYPE_COMPOUND) {
uc_error("compound type expected for the merged block");
return -EINVAL;
}
if (before) {
err = find_position_node(&_before, dst, id, before);
if (err < 0)
return err;
}
if (after) {
err = find_position_node(&_after, dst, id, after);
if (err < 0)
return err;
}
if (_before && _after) {
uc_error("defined both before and after identifiers in the If or Include block");
return -EINVAL;
}
array = snd_config_is_array(dst);
if (array < 0) {
uc_error("destination configuration node is not a compound");
return array;
}
if (array && snd_config_is_array(src) <= 0) {
uc_error("source configuration node is not an array");
return -EINVAL;
}
idx = 0;
/* for array, use a temporary non-clashing identifier */
if (array > 0) {
snd_config_for_each(i, next, dst) {
n = snd_config_iterator_entry(i);
snprintf(tmpid, sizeof(tmpid), "_tmp_%d", idx++);
err = snd_config_set_id(n, tmpid);
if (err < 0)
return err;
}
}
snd_config_for_each(i, next, src) {
n = snd_config_iterator_entry(i);
err = snd_config_remove(n);
if (err < 0)
return err;
/* for array, use a temporary non-clashing identifier */
if (array > 0) {
snprintf(tmpid, sizeof(tmpid), "_tmp_%d", idx++);
err = snd_config_set_id(n, tmpid);
if (err < 0)
return err;
}
if (_before) {
err = snd_config_add_before(_before, n);
if (err < 0)
return err;
_before = NULL;
_after = n;
} else if (_after) {
err = snd_config_add_after(_after, n);
if (err < 0)
return err;
_after = n;
} else {
err = snd_config_add(dst, n);
if (err < 0)
return err;
}
}
/* set new indexes for the final array */
if (array > 0) {
idx = 0;
snd_config_for_each(i, next, dst) {
n = snd_config_iterator_entry(i);
snprintf(tmpid, sizeof(tmpid), "%d", idx++);
err = snd_config_set_id(n, tmpid);
if (err < 0)
return err;
}
}
return 0;
}
int uc_mgr_config_tree_merge(snd_use_case_mgr_t *uc_mgr,
snd_config_t *parent, snd_config_t *new_ctx,
snd_config_t *before, snd_config_t *after)
{
snd_config_iterator_t i, next;
snd_config_t *n, *parent2;
const char *id;
int err;
err = uc_mgr_substitute_tree(uc_mgr, new_ctx);
if (err < 0)
return err;
snd_config_for_each(i, next, new_ctx) {
n = snd_config_iterator_entry(i);
err = snd_config_remove(n);
if (err < 0)
return err;
err = snd_config_get_id(n, &id);
if (err < 0) {
__add:
err = snd_config_add(parent, n);
if (err < 0)
return err;
continue;
} else {
err = snd_config_search(parent, id, &parent2);
if (err == -ENOENT)
goto __add;
err = compound_merge(id, parent2, n, before, after);
if (err < 0)
return err;
}
snd_config_delete(n);
}
return 0;
}
/*
* put back the included configuration to the parent
*/
int uc_mgr_evaluate_include(snd_use_case_mgr_t *uc_mgr,
snd_config_t *parent,
snd_config_t *inc)
{
snd_config_iterator_t i, next;
snd_config_t *a, *n, *before, *after;
int err;
if (uc_mgr->conf_format < 3) {
uc_error("in-place include is supported in v3+ syntax");
return -EINVAL;
}
if (snd_config_get_type(inc) != SND_CONFIG_TYPE_COMPOUND) {
uc_error("compound type expected for Include");
return -EINVAL;
}
snd_config_for_each(i, next, inc) {
n = snd_config_iterator_entry(i);
before = after = NULL;
err = include_eval_one(uc_mgr, n, &a, &before, &after);
if (err < 0)
return err;
if (a == NULL)
continue;
err = uc_mgr_evaluate_inplace(uc_mgr, a);
if (err < 0)
return err;
err = uc_mgr_config_tree_merge(uc_mgr, parent, a, before, after);
if (err < 0)
return err;
snd_config_delete(a);
}
return 0;
}