tc_set.c

Go to the documentation of this file.

/*
** Copyright (C) 2004, 2005 by Kevin L. Mitchell <klmitch@mit.edu>
**
** 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
**
** @(#)$Id: tc_set.c,v 1.5 2005/06/07 04:53:50 klmitch Exp $
*/
#include <errno.h>
#include <stdlib.h>
#include <string.h>

#include "treeconf_int.h"

RCSTAG("@(#)$Id: tc_set.c,v 1.5 2005/06/07 04:53:50 klmitch Exp $");

static unsigned int
_tc_set(treeconf_node_t *node, const char *value)
{
  if (!node->tn_value) /* make certain we're set... */
    node->tn_value = node->tn_default;

  /* Check to see if we're actually changing the value */
  if ((!value && tn_isdef(node)) ||
      (value && node->tn_value && !strcmp(node->tn_value, value)))
    return 0; /* setting to current value */

  /* Canonicalize value...allocating memory if necessary */
  if (!value || (node->tn_default && !strcmp(node->tn_default, value)))
    value = node->tn_default;
  else if (value && !(value = strdup(value)))
    return ENOMEM;

  /* If the current value is set and not to the default, release memory... */
  if (node->tn_value && !tn_isdef(node))
    free((void *)node->tn_value);

  node->tn_value = value; /* set the new value */

  _tn_call_change(node); /* notify of the setting change */

  return 0;
}

unsigned int
tc_set(treeconf_ctx_t *ctx, const char *name, const char *value,
       treeconf_node_t *parent)
{
  treeconf_node_t *node;
  struct result res;
  unsigned int err = 0;
  int i;

  initialize_trcf_error_table();

  /* Verify the arguments */
  if (!tx_verify(ctx) || !name ||
      (parent && (!tn_verify(parent) || parent->tn_context != ctx)))
    return EINVAL;

  /* OK, look up the node... */
  if ((err = _tc_lookup_node(ctx, name, parent, &res)))
    return err;

  /* Found the specific node... */
  if (res.r_node && res.r_count == res.r_startnew) {
    if (res.r_node->tn_type == (TC_NODETYPE_IMPLICIT | TC_NODETYPE_NODE)) {
      _tc_release_children(res.r_node); /* Release all the children... */
      res.r_node->tn_type = (res.r_node->tn_type & ~TC_NODETYPE_MASK) |
      TC_NODETYPE_VARIABLE; /* Make it into a variable... */
    }

    if ((res.r_node->tn_type & TC_NODETYPE_MASK) == TC_NODETYPE_VARIABLE)
      err = _tc_set(res.r_node, value); /* set the variable */
    else
      err = TC_ERR_MISMATCH; /* non-implicit internal node */
  } else if (_tn_call_nodown(res.r_node, &res.r_comps[res.r_startnew],
                       res.r_count - res.r_startnew)) {
    /* Create the nodes... */
    for (i = res.r_startnew, node = res.r_node; i < res.r_count; i++)
      /* All created nodes are implicit and default is 0 */
      if (!(node = _tc_create_node(ctx, node,
                           ((i == res.r_count - 1 ?
                             (TC_NODETYPE_VARIABLE) :
                             (TC_NODETYPE_NODE)) |
                            TC_NODETYPE_IMPLICIT),
                           res.r_comps[i].ts_string,
                           res.r_comps[i].ts_length, 0,
                           res.r_node->tn_nodown,
                           res.r_node->tn_change, 0)))
      _tc_doerror(ENOMEM);

    err = _tc_set(node, value); /* Set the node value */
  } else
    err = ENOENT;

 error:
  free(res.r_comps); /* Release temporarily allocated memory */

  return err;
}

---