/* The node is not changed if it (or its first child) is not a real number node.  */
int mxmlSetReal(mxml_node_t *node, double real)
/* The node is not changed if it (or its first child) is not a real number node.  */
int mxmlSetReal(mxml_node_t *node, double real)
{
  if (node && node->type == MXML_ELEMENT &&
      node->child && node->child->type == MXML_REAL)
    node = node->child;
  if (!node || node->type != MXML_REAL)
    return (-1);
  node->value.real = real;
  return (0);
}