mirror of
https://github.com/michaelrsweet/mxml.git
synced 2024-11-14 15:55:30 +00:00
350 lines
7.6 KiB
C
350 lines
7.6 KiB
C
/*
|
||
* Attribute support code for Mini-XML, a small XML file parsing library.
|
||
*
|
||
* https://www.msweet.org/mxml
|
||
*
|
||
* Copyright © 2003-2021 by Michael R Sweet.
|
||
*
|
||
* Licensed under Apache License v2.0. See the file "LICENSE" for more
|
||
* information.
|
||
*/
|
||
|
||
/*
|
||
* Include necessary headers...
|
||
*/
|
||
|
||
#include "config.h"
|
||
#include "mxml-private.h"
|
||
|
||
|
||
/*
|
||
* Local functions...
|
||
*/
|
||
|
||
static int mxml_set_attr(mxml_node_t *node, const char *name, char *value);
|
||
|
||
|
||
/*
|
||
* 'mxmlElementDeleteAttr()' - Delete an attribute.
|
||
*
|
||
* @since Mini-XML 2.4@
|
||
*/
|
||
|
||
void
|
||
mxmlElementDeleteAttr(mxml_node_t *node,/* I - Element */
|
||
const char *name)/* I - Attribute name */
|
||
{
|
||
int i; /* Looping var */
|
||
_mxml_attr_t *attr; /* Cirrent attribute */
|
||
|
||
|
||
#ifdef DEBUG
|
||
fprintf(stderr, "mxmlElementDeleteAttr(node=%p, name=\"%s\")\n",
|
||
node, name ? name : "(null)");
|
||
#endif /* DEBUG */
|
||
|
||
/*
|
||
* Range check input...
|
||
*/
|
||
|
||
if (!node || node->type != MXML_ELEMENT || !name)
|
||
return;
|
||
|
||
/*
|
||
* Look for the attribute...
|
||
*/
|
||
|
||
for (i = node->value.element.num_attrs, attr = node->value.element.attrs;
|
||
i > 0;
|
||
i --, attr ++)
|
||
{
|
||
#ifdef DEBUG
|
||
printf(" %s=\"%s\"\n", attr->name, attr->value);
|
||
#endif /* DEBUG */
|
||
|
||
if (!strcmp(attr->name, name))
|
||
{
|
||
/*
|
||
* Delete this attribute...
|
||
*/
|
||
|
||
free(attr->name);
|
||
free(attr->value);
|
||
|
||
i --;
|
||
if (i > 0)
|
||
memmove(attr, attr + 1, i * sizeof(_mxml_attr_t));
|
||
|
||
node->value.element.num_attrs --;
|
||
|
||
if (node->value.element.num_attrs == 0)
|
||
free(node->value.element.attrs);
|
||
return;
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
/*
|
||
* 'mxmlElementGetAttr()' - Get an attribute.
|
||
*
|
||
* This function returns @code NULL@ if the node is not an element or the
|
||
* named attribute does not exist.
|
||
*/
|
||
|
||
const char * /* O - Attribute value or @code NULL@ */
|
||
mxmlElementGetAttr(mxml_node_t *node, /* I - Element node */
|
||
const char *name) /* I - Name of attribute */
|
||
{
|
||
int i; /* Looping var */
|
||
_mxml_attr_t *attr; /* Cirrent attribute */
|
||
|
||
|
||
#ifdef DEBUG
|
||
fprintf(stderr, "mxmlElementGetAttr(node=%p, name=\"%s\")\n",
|
||
node, name ? name : "(null)");
|
||
#endif /* DEBUG */
|
||
|
||
/*
|
||
* Range check input...
|
||
*/
|
||
|
||
if (!node || node->type != MXML_ELEMENT || !name)
|
||
return (NULL);
|
||
|
||
/*
|
||
* Look for the attribute...
|
||
*/
|
||
|
||
for (i = node->value.element.num_attrs, attr = node->value.element.attrs;
|
||
i > 0;
|
||
i --, attr ++)
|
||
{
|
||
#ifdef DEBUG
|
||
printf(" %s=\"%s\"\n", attr->name, attr->value);
|
||
#endif /* DEBUG */
|
||
|
||
if (!strcmp(attr->name, name))
|
||
{
|
||
#ifdef DEBUG
|
||
printf(" Returning \"%s\"!\n", attr->value);
|
||
#endif /* DEBUG */
|
||
return (attr->value);
|
||
}
|
||
}
|
||
|
||
/*
|
||
* Didn't find attribute, so return NULL...
|
||
*/
|
||
|
||
#ifdef DEBUG
|
||
puts(" Returning NULL!\n");
|
||
#endif /* DEBUG */
|
||
|
||
return (NULL);
|
||
}
|
||
|
||
|
||
/*
|
||
* 'mxmlElementGetAttrByIndex()' - Get an element attribute by index.
|
||
*
|
||
* The index ("idx") is 0-based. @code NULL@ is returned if the specified index
|
||
* is out of range.
|
||
*
|
||
* @since Mini-XML 2.11@
|
||
*/
|
||
|
||
const char * /* O - Attribute value */
|
||
mxmlElementGetAttrByIndex(
|
||
mxml_node_t *node, /* I - Node */
|
||
int idx, /* I - Attribute index, starting at 0 */
|
||
const char **name) /* O - Attribute name */
|
||
{
|
||
if (!node || node->type != MXML_ELEMENT || idx < 0 || idx >= node->value.element.num_attrs)
|
||
return (NULL);
|
||
|
||
if (name)
|
||
*name = node->value.element.attrs[idx].name;
|
||
|
||
return (node->value.element.attrs[idx].value);
|
||
}
|
||
|
||
|
||
/*
|
||
* 'mxmlElementGetAttrCount()' - Get the number of element attributes.
|
||
*
|
||
* @since Mini-XML 2.11@
|
||
*/
|
||
|
||
int /* O - Number of attributes */
|
||
mxmlElementGetAttrCount(
|
||
mxml_node_t *node) /* I - Node */
|
||
{
|
||
if (node && node->type == MXML_ELEMENT)
|
||
return (node->value.element.num_attrs);
|
||
else
|
||
return (0);
|
||
}
|
||
|
||
|
||
/*
|
||
* 'mxmlElementSetAttr()' - Set an attribute.
|
||
*
|
||
* If the named attribute already exists, the value of the attribute
|
||
* is replaced by the new string value. The string value is copied
|
||
* into the element node. This function does nothing if the node is
|
||
* not an element.
|
||
*/
|
||
|
||
void
|
||
mxmlElementSetAttr(mxml_node_t *node, /* I - Element node */
|
||
const char *name, /* I - Name of attribute */
|
||
const char *value) /* I - Attribute value */
|
||
{
|
||
char *valuec; /* Copy of value */
|
||
|
||
|
||
#ifdef DEBUG
|
||
fprintf(stderr, "mxmlElementSetAttr(node=%p, name=\"%s\", value=\"%s\")\n",
|
||
node, name ? name : "(null)", value ? value : "(null)");
|
||
#endif /* DEBUG */
|
||
|
||
/*
|
||
* Range check input...
|
||
*/
|
||
|
||
if (!node || node->type != MXML_ELEMENT || !name)
|
||
return;
|
||
|
||
if (value)
|
||
{
|
||
if ((valuec = strdup(value)) == NULL)
|
||
{
|
||
mxml_error("Unable to allocate memory for attribute '%s' in element %s.", name, node->value.element.name);
|
||
return;
|
||
}
|
||
}
|
||
else
|
||
valuec = NULL;
|
||
|
||
if (mxml_set_attr(node, name, valuec))
|
||
free(valuec);
|
||
}
|
||
|
||
|
||
/*
|
||
* 'mxmlElementSetAttrf()' - Set an attribute with a formatted value.
|
||
*
|
||
* If the named attribute already exists, the value of the attribute
|
||
* is replaced by the new formatted string. The formatted string value is
|
||
* copied into the element node. This function does nothing if the node
|
||
* is not an element.
|
||
*
|
||
* @since Mini-XML 2.3@
|
||
*/
|
||
|
||
void
|
||
mxmlElementSetAttrf(mxml_node_t *node, /* I - Element node */
|
||
const char *name, /* I - Name of attribute */
|
||
const char *format,/* I - Printf-style attribute value */
|
||
...) /* I - Additional arguments as needed */
|
||
{
|
||
va_list ap; /* Argument pointer */
|
||
char *value; /* Value */
|
||
|
||
|
||
#ifdef DEBUG
|
||
fprintf(stderr,
|
||
"mxmlElementSetAttrf(node=%p, name=\"%s\", format=\"%s\", ...)\n",
|
||
node, name ? name : "(null)", format ? format : "(null)");
|
||
#endif /* DEBUG */
|
||
|
||
/*
|
||
* Range check input...
|
||
*/
|
||
|
||
if (!node || node->type != MXML_ELEMENT || !name || !format)
|
||
return;
|
||
|
||
/*
|
||
* Format the value...
|
||
*/
|
||
|
||
va_start(ap, format);
|
||
value = _mxml_vstrdupf(format, ap);
|
||
va_end(ap);
|
||
|
||
if (!value)
|
||
mxml_error("Unable to allocate memory for attribute '%s' in element %s.",
|
||
name, node->value.element.name);
|
||
else if (mxml_set_attr(node, name, value))
|
||
free(value);
|
||
}
|
||
|
||
|
||
/*
|
||
* 'mxml_set_attr()' - Set or add an attribute name/value pair.
|
||
*/
|
||
|
||
static int /* O - 0 on success, -1 on failure */
|
||
mxml_set_attr(mxml_node_t *node, /* I - Element node */
|
||
const char *name, /* I - Attribute name */
|
||
char *value) /* I - Attribute value */
|
||
{
|
||
int i; /* Looping var */
|
||
_mxml_attr_t *attr; /* New attribute */
|
||
|
||
|
||
/*
|
||
* Look for the attribute...
|
||
*/
|
||
|
||
for (i = node->value.element.num_attrs, attr = node->value.element.attrs;
|
||
i > 0;
|
||
i --, attr ++)
|
||
if (!strcmp(attr->name, name))
|
||
{
|
||
/*
|
||
* Free the old value as needed...
|
||
*/
|
||
|
||
free(attr->value);
|
||
attr->value = value;
|
||
|
||
return (0);
|
||
}
|
||
|
||
/*
|
||
* Add a new attribute...
|
||
*/
|
||
|
||
if (node->value.element.num_attrs == 0)
|
||
attr = malloc(sizeof(_mxml_attr_t));
|
||
else
|
||
attr = realloc(node->value.element.attrs,
|
||
(node->value.element.num_attrs + 1) * sizeof(_mxml_attr_t));
|
||
|
||
if (!attr)
|
||
{
|
||
mxml_error("Unable to allocate memory for attribute '%s' in element %s.",
|
||
name, node->value.element.name);
|
||
return (-1);
|
||
}
|
||
|
||
node->value.element.attrs = attr;
|
||
attr += node->value.element.num_attrs;
|
||
|
||
if ((attr->name = strdup(name)) == NULL)
|
||
{
|
||
mxml_error("Unable to allocate memory for attribute '%s' in element %s.",
|
||
name, node->value.element.name);
|
||
return (-1);
|
||
}
|
||
|
||
attr->value = value;
|
||
|
||
node->value.element.num_attrs ++;
|
||
|
||
return (0);
|
||
}
|