mxml/mxml-attr.c
2024-04-21 17:08:39 -04:00

272 lines
7.1 KiB
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

//
// Attribute support code for Mini-XML, a small XML file parsing library.
//
// https://www.msweet.org/mxml
//
// Copyright © 2003-2024 by Michael R Sweet.
//
// Licensed under Apache License v2.0. See the file "LICENSE" for more
// information.
//
#include "mxml-private.h"
//
// Local functions...
//
static bool mxml_set_attr(mxml_node_t *node, const char *name, char *value);
//
// 'mxmlElementClearAttr()' - Remove an attribute from an element.
//
// This function removes the attribute `name` from the element `node`.
//
void
mxmlElementClearAttr(mxml_node_t *node, // I - Element
const char *name) // I - Attribute name
{
size_t i; // Looping var
_mxml_attr_t *attr; // Cirrent attribute
MXML_DEBUG("mxmlElementClearAttr(node=%p, name=\"%s\")\n", node, name ? name : "(null)");
// Range check input...
if (!node || node->type != MXML_TYPE_ELEMENT || !name)
return;
// Look for the attribute...
for (i = node->value.element.num_attrs, attr = node->value.element.attrs; i > 0; i --, attr ++)
{
MXML_DEBUG("mxmlElementClearAttr: %s=\"%s\"\n", attr->name, attr->value);
if (!strcmp(attr->name, name))
{
// Delete this attribute...
_mxml_strfree(attr->name);
_mxml_strfree(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 the value of an attribute.
//
// This function gets the value for the attribute `name` from the element
// `node`. `NULL` is returned if the node is not an element or the named
// attribute does not exist.
//
const char * // O - Attribute value or `NULL`
mxmlElementGetAttr(mxml_node_t *node, // I - Element node
const char *name) // I - Name of attribute
{
size_t i; // Looping var
_mxml_attr_t *attr; // Cirrent attribute
MXML_DEBUG("mxmlElementGetAttr(node=%p, name=\"%s\")\n", node, name ? name : "(null)");
// Range check input...
if (!node || node->type != MXML_TYPE_ELEMENT || !name)
return (NULL);
// Look for the attribute...
for (i = node->value.element.num_attrs, attr = node->value.element.attrs; i > 0; i --, attr ++)
{
MXML_DEBUG("mxmlElementGetAttr: %s=\"%s\"\n", attr->name, attr->value);
if (!strcmp(attr->name, name))
{
MXML_DEBUG("mxmlElementGetAttr: Returning \"%s\".\n", attr->value);
return (attr->value);
}
}
// Didn't find attribute, so return NULL...
MXML_DEBUG("mxmlElementGetAttr: Returning NULL.\n");
return (NULL);
}
//
// 'mxmlElementGetAttrByIndex()' - Get an attribute by index.
//
// This function returned the Nth (`idx`) attribute for element `node`. The
// attribute name is optionallly returned in the `name` argument. `NULL` is
// returned if node is not an element or the specified index is out of range.
//
const char * // O - Attribute value
mxmlElementGetAttrByIndex(
mxml_node_t *node, // I - Node
size_t idx, // I - Attribute index, starting at `0`
const char **name) // O - Attribute name or `NULL` to not return it
{
if (!node || node->type != MXML_TYPE_ELEMENT || 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.
//
// This function returns the number of attributes for the element `node`. `0`
// is returned if the node is not an element or there are no attributes for the
// element.
//
size_t // O - Number of attributes
mxmlElementGetAttrCount(
mxml_node_t *node) // I - Node
{
if (node && node->type == MXML_TYPE_ELEMENT)
return (node->value.element.num_attrs);
else
return (0);
}
//
// 'mxmlElementSetAttr()' - Set an attribute for an element.
//
// This function sets attribute `name` to the string `value` for the element
// `node`. If the named attribute already exists, the value of the attribute
// is replaced by the new string value. The string value is copied.
//
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
MXML_DEBUG("mxmlElementSetAttr(node=%p, name=\"%s\", value=\"%s\")\n", node, name ? name : "(null)", value ? value : "(null)");
// Range check input...
if (!node || node->type != MXML_TYPE_ELEMENT || !name)
return;
if (value)
{
if ((valuec = _mxml_strcopy(value)) == NULL)
return;
}
else
{
valuec = NULL;
}
if (!mxml_set_attr(node, name, valuec))
_mxml_strfree(valuec);
}
//
// 'mxmlElementSetAttrf()' - Set an attribute with a formatted value.
//
// This function sets attribute `name` to the formatted value of `format` for
// the element `node`. If the named attribute already exists, the value of the
// attribute is replaced by the new formatted string value.
//
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 buffer[16384]; // Format buffer
char *value; // Value
MXML_DEBUG("mxmlElementSetAttrf(node=%p, name=\"%s\", format=\"%s\", ...)\n", node, name ? name : "(null)", format ? format : "(null)");
// Range check input...
if (!node || node->type != MXML_TYPE_ELEMENT || !name || !format)
return;
// Format the value...
va_start(ap, format);
vsnprintf(buffer, sizeof(buffer), format, ap);
va_end(ap);
if ((value = _mxml_strcopy(buffer)) != NULL)
{
if (!mxml_set_attr(node, name, value))
_mxml_strfree(value);
}
}
//
// 'mxml_set_attr()' - Set or add an attribute name/value pair.
//
static bool // O - `true` on success, `false` 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...
_mxml_strfree(attr->value);
attr->value = value;
return (true);
}
}
// Add a new attribute...
if ((node->value.element.num_attrs % MXML_ALLOC_SIZE) == 0)
{
if ((attr = realloc(node->value.element.attrs, (node->value.element.num_attrs + MXML_ALLOC_SIZE) * sizeof(_mxml_attr_t))) == NULL)
return (false);
node->value.element.attrs = attr;
}
attr = node->value.element.attrs + node->value.element.num_attrs;
if ((attr->name = _mxml_strcopy(name)) == NULL)
return (false);
attr->value = value;
node->value.element.num_attrs ++;
return (true);
}