/home/dko/projects/mobilec/tags/MobileC-v1.10.2/MobileC-v1.10.2/src/mxml-2.2.2/mxml-file.c

Go to the documentation of this file.

/* SVN FILE INFO
 * $Revision: 207 $ : Last Committed Revision
 * $Date: 2008-07-11 17:55:19 -0700 (Fri, 11 Jul 2008) $ : Last Committed Date */
/*
 * "$Id: mxml-file.c,v 1.1 2007/05/23 20:43:27 david_ko Exp $"
 *
 * File loading code for Mini-XML, a small XML-like file parsing library.
 *
 * Copyright 2003-2005 by Michael Sweet.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Library General Public
 * License as published by the Free Software Foundation; either
 * version 2, 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.
 *
 * Contents:
 *
 *   mxmlLoadFd()            - Load a file descriptor into an XML node tree.
 *   mxmlLoadFile()          - Load a file into an XML node tree.
 *   mxmlLoadString()        - Load a string into an XML node tree.
 *   mxmlSaveAllocString()   - Save an XML node tree to an allocated string.
 *   mxmlSaveFd()            - Save an XML tree to a file descriptor.
 *   mxmlSaveFile()          - Save an XML tree to a file.
 *   mxmlSaveString()        - Save an XML node tree to a string.
 *   mxmlSetCustomHandlers() - Set the handling functions for custom data.
 *   mxmlSetErrorCallback()  - Set the error message callback.
 *   mxml_add_char()         - Add a character to a buffer, expanding as needed.
 *   mxml_fd_getc()          - Read a character from a file descriptor.
 *   mxml_fd_putc()          - Write a character to a file descriptor.
 *   mxml_fd_read()          - Read a buffer of data from a file descriptor.
 *   mxml_fd_write()         - Write a buffer of data to a file descriptor.
 *   mxml_file_getc()        - Get a character from a file.
 *   mxml_file_putc()        - Write a character to a file.
 *   mxml_get_entity()       - Get the character corresponding to an entity...
 *   mxml_load_data()        - Load data into an XML node tree.
 *   mxml_parse_element()    - Parse an element for any attributes...
 *   mxml_string_getc()      - Get a character from a string.
 *   mxml_string_putc()      - Write a character to a string.
 *   mxml_write_name()       - Write a name string.
 *   mxml_write_node()       - Save an XML node to a file.
 *   mxml_write_string()     - Write a string, escaping & and < as needed.
 *   mxml_write_ws()         - Do whitespace callback...
 */

/*
 * Include necessary headers...
 */

#include "config.h"
#include "mxml.h"
#ifdef WIN32
#  include <io.h>
#else
#  include <unistd.h>
#endif /* WIN32 */


/*
 * Character encoding...
 */

#define ENCODE_UTF8     0               /* UTF-8 */
#define ENCODE_UTF16BE  1               /* UTF-16 Big-Endian */
#define ENCODE_UTF16LE  2               /* UTF-16 Little-Endian */


/*
 * Macro to test for a bad XML character...
 */

#define mxml_bad_char(ch) ((ch) < ' ' && (ch) != '\n' && (ch) != '\r' && (ch) != '\t')


/*
 * Structures...
 */

typedef struct mxml_fdbuf_s             /**** File descriptor buffer (@private) ****/
{
  int           fd;                     /* File descriptor */
  unsigned char *current,               /* Current position in buffer */
                *end,                   /* End of buffer */
                buffer[8192];           /* Character buffer */
} mxml_fdbuf_t;


/*
 * Global error handler...
 */

extern void     (*mxml_error_cb)(const char *);


/*
 * Custom data handlers...
 */

static mxml_custom_load_cb_t    mxml_custom_load_cb = NULL;
static mxml_custom_save_cb_t    mxml_custom_save_cb = NULL;


/*
 * Local functions...
 */

static int              mxml_add_char(int ch, char **ptr, char **buffer,
                                      int *bufsize);
static int              mxml_fd_getc(void *p, int *encoding);
static int              mxml_fd_putc(int ch, void *p);
static int              mxml_fd_read(mxml_fdbuf_t *buf);
static int              mxml_fd_write(mxml_fdbuf_t *buf);
static int              mxml_file_getc(void *p, int *encoding);
static int              mxml_file_putc(int ch, void *p);
static int              mxml_get_entity(mxml_node_t *parent, void *p,
                                        int *encoding,
                                        int (*getc_cb)(void *, int *));
static mxml_node_t      *mxml_load_data(mxml_node_t *top, void *p,
                                        mxml_type_t (*cb)(mxml_node_t *),
                                        int (*getc_cb)(void *, int *));
static int              mxml_parse_element(mxml_node_t *node, void *p,
                                           int *encoding,
                                           int (*getc_cb)(void *, int *));
static int              mxml_string_getc(void *p, int *encoding);
static int              mxml_string_putc(int ch, void *p);
static int              mxml_write_name(const char *s, void *p,
                                        int (*putc_cb)(int, void *));
static int              mxml_write_node(mxml_node_t *node, void *p,
                                        const char *(*cb)(mxml_node_t *, int),
                                        int col,
                                        int (*putc_cb)(int, void *));
static int              mxml_write_string(const char *s, void *p,
                                          int (*putc_cb)(int, void *));
static int              mxml_write_ws(mxml_node_t *node, void *p, 
                                      const char *(*cb)(mxml_node_t *, int), int ws,
                                      int col, int (*putc_cb)(int, void *));


/*
 * 'mxmlLoadFd()' - Load a file descriptor into an XML node tree.
 *
 * The nodes in the specified file are added to the specified top node.
 * If no top node is provided, the XML file MUST be well-formed with a
 * single parent node like <?xml> for the entire file. The callback
 * function returns the value type that should be used for child nodes.
 * If MXML_NO_CALLBACK is specified then all child nodes will be either
 * MXML_ELEMENT or MXML_TEXT nodes.
 *
 * The constants MXML_INTEGER_CALLBACK, MXML_OPAQUE_CALLBACK,
 * MXML_REAL_CALLBACK, and MXML_TEXT_CALLBACK are defined for loading
 * child nodes of the specified type.
 */

mxml_node_t *                           /* O - First node or NULL if the file could not be read. */
mxmlLoadFd(mxml_node_t *top,            /* I - Top node */
           int         fd,              /* I - File descriptor to read from */
           mxml_type_t (*cb)(mxml_node_t *node))
                                        /* I - Callback function or MXML_NO_CALLBACK */
{
  mxml_fdbuf_t  buf;                    /* File descriptor buffer */


 /*
  * Initialize the file descriptor buffer...
  */

  buf.fd      = fd;
  buf.current = buf.buffer;
  buf.end     = buf.buffer;

 /*
  * Read the XML data...
  */

  return (mxml_load_data(top, &buf, cb, mxml_fd_getc));
}


/*
 * 'mxmlLoadFile()' - Load a file into an XML node tree.
 *
 * The nodes in the specified file are added to the specified top node.
 * If no top node is provided, the XML file MUST be well-formed with a
 * single parent node like <?xml> for the entire file. The callback
 * function returns the value type that should be used for child nodes.
 * If MXML_NO_CALLBACK is specified then all child nodes will be either
 * MXML_ELEMENT or MXML_TEXT nodes.
 *
 * The constants MXML_INTEGER_CALLBACK, MXML_OPAQUE_CALLBACK,
 * MXML_REAL_CALLBACK, and MXML_TEXT_CALLBACK are defined for loading
 * child nodes of the specified type.
 */

mxml_node_t *                           /* O - First node or NULL if the file could not be read. */
mxmlLoadFile(mxml_node_t *top,          /* I - Top node */
             FILE        *fp,           /* I - File to read from */
             mxml_type_t (*cb)(mxml_node_t *node))
                                        /* I - Callback function or MXML_NO_CALLBACK */
{
 /*
  * Read the XML data...
  */

  return (mxml_load_data(top, fp, cb, mxml_file_getc));
}


/*
 * 'mxmlLoadString()' - Load a string into an XML node tree.
 *
 * The nodes in the specified string are added to the specified top node.
 * If no top node is provided, the XML string MUST be well-formed with a
 * single parent node like <?xml> for the entire string. The callback
 * function returns the value type that should be used for child nodes.
 * If MXML_NO_CALLBACK is specified then all child nodes will be either
 * MXML_ELEMENT or MXML_TEXT nodes.
 *
 * The constants MXML_INTEGER_CALLBACK, MXML_OPAQUE_CALLBACK,
 * MXML_REAL_CALLBACK, and MXML_TEXT_CALLBACK are defined for loading
 * child nodes of the specified type.
 */

mxml_node_t *                           /* O - First node or NULL if the string has errors. */
mxmlLoadString(mxml_node_t *top,        /* I - Top node */
               const char  *s,          /* I - String to load */
               mxml_type_t (*cb)(mxml_node_t *node))
                                        /* I - Callback function or MXML_NO_CALLBACK */
{
 /*
  * Read the XML data...
  */

  return (mxml_load_data(top, &s, cb, mxml_string_getc));
}


/*
 * 'mxmlSaveAllocString()' - Save an XML node tree to an allocated string.
 *
 * This function returns a pointer to a string containing the textual
 * representation of the XML node tree.  The string should be freed
 * using the free() function when you are done with it.  NULL is returned
 * if the node would produce an empty string or if the string cannot be
 * allocated.
 *
 * The callback argument specifies a function that returns a whitespace
 * string or NULL before and after each element. If MXML_NO_CALLBACK
 * is specified, whitespace will only be added before MXML_TEXT nodes
 * with leading whitespace and before attribute names inside opening
 * element tags.
 */

char *                                  /* O - Allocated string or NULL */
mxmlSaveAllocString(mxml_node_t *node,  /* I - Node to write */
                    const char  *(*cb)(mxml_node_t *node, int ws))
                                        /* I - Whitespace callback or MXML_NO_CALLBACK */
{
  int   bytes;                          /* Required bytes */
  char  buffer[8192];                   /* Temporary buffer */
  char  *s;                             /* Allocated string */


 /*
  * Write the node to the temporary buffer...
  */

  bytes = mxmlSaveString(node, buffer, sizeof(buffer), cb);

  if (bytes <= 0)
    return (NULL);

  if (bytes < (int)(sizeof(buffer) - 1))
  {
   /*
    * Node fit inside the buffer, so just duplicate that string and
    * return...
    */

    return (strdup(buffer));
  }

 /*
  * Allocate a buffer of the required size and save the node to the
  * new buffer...
  */

  if ((s = malloc(bytes + 1)) == NULL)
    return (NULL);

  mxmlSaveString(node, s, bytes + 1, cb);

 /*
  * Return the allocated string...
  */

  return (s);
}


/*
 * 'mxmlSaveFd()' - Save an XML tree to a file descriptor.
 *
 * The callback argument specifies a function that returns a whitespace
 * string or NULL before and after each element. If MXML_NO_CALLBACK
 * is specified, whitespace will only be added before MXML_TEXT nodes
 * with leading whitespace and before attribute names inside opening
 * element tags.
 */

int                                     /* O - 0 on success, -1 on error. */
mxmlSaveFd(mxml_node_t *node,           /* I - Node to write */
           int         fd,              /* I - File descriptor to write to */
           const char  *(*cb)(mxml_node_t *node, int ws))
                                        /* I - Whitespace callback or MXML_NO_CALLBACK */
{
  int           col;                    /* Final column */
  mxml_fdbuf_t  buf;                    /* File descriptor buffer */


 /*
  * Initialize the file descriptor buffer...
  */

  buf.fd      = fd;
  buf.current = buf.buffer;
  buf.end     = buf.buffer + sizeof(buf.buffer) - 4;

 /*
  * Write the node...
  */

  if ((col = mxml_write_node(node, &buf, cb, 0, mxml_fd_putc)) < 0)
    return (-1);

  if (col > 0)
    if (mxml_fd_putc('\n', &buf) < 0)
      return (-1);

 /*
  * Flush and return...
  */

  return (mxml_fd_write(&buf));
}


/*
 * 'mxmlSaveFile()' - Save an XML tree to a file.
 *
 * The callback argument specifies a function that returns a whitespace
 * string or NULL before and after each element. If MXML_NO_CALLBACK
 * is specified, whitespace will only be added before MXML_TEXT nodes
 * with leading whitespace and before attribute names inside opening
 * element tags.
 */

int                                     /* O - 0 on success, -1 on error. */
mxmlSaveFile(mxml_node_t *node,         /* I - Node to write */
             FILE        *fp,           /* I - File to write to */
             const char  *(*cb)(mxml_node_t *node, int ws))
                                        /* I - Whitespace callback or MXML_NO_CALLBACK */
{
  int   col;                            /* Final column */


 /*
  * Write the node...
  */

  if ((col = mxml_write_node(node, fp, cb, 0, mxml_file_putc)) < 0)
    return (-1);

  if (col > 0)
    if (putc('\n', fp) < 0)
      return (-1);

 /*
  * Return 0 (success)...
  */

  return (0);
}


/*
 * 'mxmlSaveString()' - Save an XML node tree to a string.
 *
 * This function returns the total number of bytes that would be
 * required for the string but only copies (bufsize - 1) characters
 * into the specified buffer.
 *
 * The callback argument specifies a function that returns a whitespace
 * string or NULL before and after each element. If MXML_NO_CALLBACK
 * is specified, whitespace will only be added before MXML_TEXT nodes
 * with leading whitespace and before attribute names inside opening
 * element tags.
 */

int                                     /* O - Size of string */
mxmlSaveString(mxml_node_t *node,       /* I - Node to write */
               char        *buffer,     /* I - String buffer */
               int         bufsize,     /* I - Size of string buffer */
               const char  *(*cb)(mxml_node_t *node, int ws))
                                        /* I - Whitespace callback or MXML_NO_CALLBACK */
{
  int   col;                            /* Final column */
  char  *ptr[2];                        /* Pointers for putc_cb */


 /*
  * Write the node...
  */

  ptr[0] = buffer;
  ptr[1] = buffer + bufsize;

  if ((col = mxml_write_node(node, ptr, cb, 0, mxml_string_putc)) < 0)
    return (-1);

  if (col > 0)
    mxml_string_putc('\n', ptr);

 /*
  * Nul-terminate the buffer...
  */

  if (ptr[0] >= ptr[1])
    buffer[bufsize - 1] = '\0';
  else
    ptr[0][0] = '\0';

 /*
  * Return the number of characters...
  */

  return (ptr[0] - buffer);
}


/*
 * 'mxmlSetCustomHandlers()' - Set the handling functions for custom data.
 *
 * The load function accepts a node pointer and a data string and must
 * return 0 on success and non-zero on error.
 *
 * The save function accepts a node pointer and must return a malloc'd
 * string on success and NULL on error.
 * 
 */

void
mxmlSetCustomHandlers(mxml_custom_load_cb_t load,
                                        /* I - Load function */
                      mxml_custom_save_cb_t save)
                                        /* I - Save function */
{
  mxml_custom_load_cb = load;
  mxml_custom_save_cb = save;
}


/*
 * 'mxmlSetErrorCallback()' - Set the error message callback.
 */

void
mxmlSetErrorCallback(void (*cb)(const char *))
                                        /* I - Error callback function */
{
  mxml_error_cb = cb;
}


/*
 * 'mxml_add_char()' - Add a character to a buffer, expanding as needed.
 */

static int                              /* O  - 0 on success, -1 on error */
mxml_add_char(int  ch,                  /* I  - Character to add */
              char **bufptr,            /* IO - Current position in buffer */
              char **buffer,            /* IO - Current buffer */
              int  *bufsize)            /* IO - Current buffer size */
{
  char  *newbuffer;                     /* New buffer value */


  if (*bufptr >= (*buffer + *bufsize - 4))
  {
   /*
    * Increase the size of the buffer...
    */

    if (*bufsize < 1024)
      (*bufsize) *= 2;
    else
      (*bufsize) += 1024;

    if ((newbuffer = realloc(*buffer, *bufsize)) == NULL)
    {
      free(*buffer);

      mxml_error("Unable to expand string buffer to %d bytes!", *bufsize);

      return (-1);
    }

    *bufptr = newbuffer + (*bufptr - *buffer);
    *buffer = newbuffer;
  }

  if (ch < 0x80)
  {
   /*
    * Single byte ASCII...
    */

    *(*bufptr)++ = ch;
  }
  else if (ch < 0x800)
  {
   /*
    * Two-byte UTF-8...
    */

    *(*bufptr)++ = 0xc0 | (ch >> 6);
    *(*bufptr)++ = 0x80 | (ch & 0x3f);
  }
  else if (ch < 0x10000)
  {
   /*
    * Three-byte UTF-8...
    */

    *(*bufptr)++ = 0xe0 | (ch >> 12);
    *(*bufptr)++ = 0x80 | ((ch >> 6) & 0x3f);
    *(*bufptr)++ = 0x80 | (ch & 0x3f);
  }
  else
  {
   /*
    * Four-byte UTF-8...
    */

    *(*bufptr)++ = 0xf0 | (ch >> 18);
    *(*bufptr)++ = 0x80 | ((ch >> 12) & 0x3f);
    *(*bufptr)++ = 0x80 | ((ch >> 6) & 0x3f);
    *(*bufptr)++ = 0x80 | (ch & 0x3f);
  }

  return (0);
}


/*
 * 'mxml_fd_getc()' - Read a character from a file descriptor.
 */

static int                              /* O  - Character or EOF */
mxml_fd_getc(void *p,                   /* I  - File descriptor buffer */
             int  *encoding)            /* IO - Encoding */
{
  mxml_fdbuf_t  *buf;                   /* File descriptor buffer */
  int           ch,                     /* Current character */
                temp;                   /* Temporary character */


 /*
  * Grab the next character in the buffer...
  */

  buf = (mxml_fdbuf_t *)p;

  if (buf->current >= buf->end)
    if (mxml_fd_read(buf) < 0)
      return (EOF);

  ch = *(buf->current)++;

  switch (*encoding)
  {
    case ENCODE_UTF8 :
       /*
        * Got a UTF-8 character; convert UTF-8 to Unicode and return...
        */

        if (!(ch & 0x80))
        {
#if DEBUG > 1
          printf("mxml_fd_getc: %c (0x%04x)\n", ch < ' ' ? '.' : ch, ch);
#endif /* DEBUG > 1 */

          if (mxml_bad_char(ch))
          {
            mxml_error("Bad control character 0x%02x not allowed by XML standard!",
                       ch);
            return (EOF);
          }

          return (ch);
        }
        else if (ch == 0xfe)
        {
         /*
          * UTF-16 big-endian BOM?
          */

          if (buf->current >= buf->end)
            if (mxml_fd_read(buf) < 0)
              return (EOF);

          ch = *(buf->current)++;
          
          if (ch != 0xff)
            return (EOF);

          *encoding = ENCODE_UTF16BE;

          return (mxml_fd_getc(p, encoding));
        }
        else if (ch == 0xff)
        {
         /*
          * UTF-16 little-endian BOM?
          */

          if (buf->current >= buf->end)
            if (mxml_fd_read(buf) < 0)
              return (EOF);

          ch = *(buf->current)++;
          
          if (ch != 0xfe)
            return (EOF);

          *encoding = ENCODE_UTF16LE;

          return (mxml_fd_getc(p, encoding));
        }
        else if ((ch & 0xe0) == 0xc0)
        {
         /*
          * Two-byte value...
          */

          if (buf->current >= buf->end)
            if (mxml_fd_read(buf) < 0)
              return (EOF);

          temp = *(buf->current)++;

          if ((temp & 0xc0) != 0x80)
            return (EOF);

          ch = ((ch & 0x1f) << 6) | (temp & 0x3f);

          if (ch < 0x80)
            return (EOF);
        }
        else if ((ch & 0xf0) == 0xe0)
        {
         /*
          * Three-byte value...
          */

          if (buf->current >= buf->end)
            if (mxml_fd_read(buf) < 0)
              return (EOF);

          temp = *(buf->current)++;

          if ((temp & 0xc0) != 0x80)
            return (EOF);

          ch = ((ch & 0x0f) << 6) | (temp & 0x3f);

          if (buf->current >= buf->end)
            if (mxml_fd_read(buf) < 0)
              return (EOF);

          temp = *(buf->current)++;

          if ((temp & 0xc0) != 0x80)
            return (EOF);

          ch = (ch << 6) | (temp & 0x3f);

          if (ch < 0x800)
            return (EOF);
        }
        else if ((ch & 0xf8) == 0xf0)
        {
         /*
          * Four-byte value...
          */

          if (buf->current >= buf->end)
            if (mxml_fd_read(buf) < 0)
              return (EOF);

          temp = *(buf->current)++;

          if ((temp & 0xc0) != 0x80)
            return (EOF);

          ch = ((ch & 0x07) << 6) | (temp & 0x3f);

          if (buf->current >= buf->end)
            if (mxml_fd_read(buf) < 0)
              return (EOF);

          temp = *(buf->current)++;

          if ((temp & 0xc0) != 0x80)
            return (EOF);

          ch = (ch << 6) | (temp & 0x3f);

          if (buf->current >= buf->end)
            if (mxml_fd_read(buf) < 0)
              return (EOF);

          temp = *(buf->current)++;

          if ((temp & 0xc0) != 0x80)
            return (EOF);

          ch = (ch << 6) | (temp & 0x3f);

          if (ch < 0x10000)
            return (EOF);
        }
        else
          return (EOF);
        break;

    case ENCODE_UTF16BE :
       /*
        * Read UTF-16 big-endian char...
        */

        if (buf->current >= buf->end)
          if (mxml_fd_read(buf) < 0)
            return (EOF);

        temp = *(buf->current)++;

        ch = (ch << 8) | temp;

        if (mxml_bad_char(ch))
        {
          mxml_error("Bad control character 0x%02x not allowed by XML standard!",
                     ch);
          return (EOF);
        }
        else if (ch >= 0xd800 && ch <= 0xdbff)
        {
         /*
          * Multi-word UTF-16 char...
          */

          int lch;

          if (buf->current >= buf->end)
            if (mxml_fd_read(buf) < 0)
              return (EOF);

          lch = *(buf->current)++;

          if (buf->current >= buf->end)
            if (mxml_fd_read(buf) < 0)
              return (EOF);

          temp = *(buf->current)++;

          lch = (lch << 8) | temp;

          if (lch < 0xdc00 || lch >= 0xdfff)
            return (EOF);

          ch = (((ch & 0x3ff) << 10) | (lch & 0x3ff)) + 0x10000;
        }
        break;

    case ENCODE_UTF16LE :
       /*
        * Read UTF-16 little-endian char...
        */

        if (buf->current >= buf->end)
          if (mxml_fd_read(buf) < 0)
            return (EOF);

        temp = *(buf->current)++;

        ch |= (temp << 8);

        if (mxml_bad_char(ch))
        {
          mxml_error("Bad control character 0x%02x not allowed by XML standard!",
                     ch);
          return (EOF);
        }
        else if (ch >= 0xd800 && ch <= 0xdbff)
        {
         /*
          * Multi-word UTF-16 char...
          */

          int lch;

          if (buf->current >= buf->end)
            if (mxml_fd_read(buf) < 0)
              return (EOF);

          lch = *(buf->current)++;

          if (buf->current >= buf->end)
            if (mxml_fd_read(buf) < 0)
              return (EOF);

          temp = *(buf->current)++;

          lch |= (temp << 8);

          if (lch < 0xdc00 || lch >= 0xdfff)
            return (EOF);

          ch = (((ch & 0x3ff) << 10) | (lch & 0x3ff)) + 0x10000;
        }
        break;
  }

#if DEBUG > 1
  printf("mxml_fd_getc: %c (0x%04x)\n", ch < ' ' ? '.' : ch, ch);
#endif /* DEBUG > 1 */

  return (ch);
}


/*
 * 'mxml_fd_putc()' - Write a character to a file descriptor.
 */

static int                              /* O - 0 on success, -1 on error */
mxml_fd_putc(int  ch,                   /* I - Character */
             void *p)                   /* I - File descriptor buffer */
{
  mxml_fdbuf_t  *buf;                   /* File descriptor buffer */


 /*
  * Flush the write buffer as needed - note above that "end" still leaves
  * 4 characters at the end so that we can avoid a lot of extra tests...
  */

  buf = (mxml_fdbuf_t *)p;

  if (buf->current >= buf->end)
    if (mxml_fd_write(buf) < 0)
      return (-1);

  if (ch < 0x80)
  {
   /*
    * Write ASCII character directly...
    */

    *(buf->current)++ = ch;
  }
  else if (ch < 0x800)
  {
   /*
    * Two-byte UTF-8 character...
    */

    *(buf->current)++ = 0xc0 | (ch >> 6);
    *(buf->current)++ = 0x80 | (ch & 0x3f);
  }
  else if (ch < 0x10000)
  {
   /*
    * Three-byte UTF-8 character...
    */

    *(buf->current)++ = 0xe0 | (ch >> 12);
    *(buf->current)++ = 0x80 | ((ch >> 6) & 0x3f);
    *(buf->current)++ = 0x80 | (ch & 0x3f);
  }
  else
  {
   /*
    * Four-byte UTF-8 character...
    */

    *(buf->current)++ = 0xf0 | (ch >> 18);
    *(buf->current)++ = 0x80 | ((ch >> 12) & 0x3f);
    *(buf->current)++ = 0x80 | ((ch >> 6) & 0x3f);
    *(buf->current)++ = 0x80 | (ch & 0x3f);
  }

 /*
  * Return successfully...
  */

  return (0);
}


/*
 * 'mxml_fd_read()' - Read a buffer of data from a file descriptor.
 */

static int                              /* O - 0 on success, -1 on error */
mxml_fd_read(mxml_fdbuf_t *buf)         /* I - File descriptor buffer */
{
  int   bytes;                          /* Bytes read... */


 /*
  * Range check input...
  */

  if (!buf)
    return (-1);

 /*
  * Read from the file descriptor...
  */

  while ((bytes = read(buf->fd, buf->buffer, sizeof(buf->buffer))) < 0)
    if (errno != EAGAIN && errno != EINTR)
      return (-1);

  if (bytes == 0)
    return (-1);

 /*
  * Update the pointers and return success...
  */

  buf->current = buf->buffer;
  buf->end     = buf->buffer + bytes;

  return (0);
}


/*
 * 'mxml_fd_write()' - Write a buffer of data to a file descriptor.
 */

static int                              /* O - 0 on success, -1 on error */
mxml_fd_write(mxml_fdbuf_t *buf)        /* I - File descriptor buffer */
{
  int           bytes;                  /* Bytes written */
  unsigned char *ptr;                   /* Pointer into buffer */


 /*
  * Range check...
  */

  if (!buf)
    return (-1);

 /*
  * Return 0 if there is nothing to write...
  */

  if (buf->current == buf->buffer)
    return (0);

 /*
  * Loop until we have written everything...
  */

  for (ptr = buf->buffer; ptr < buf->current; ptr += bytes)
    if ((bytes = write(buf->fd, ptr, buf->current - ptr)) < 0)
      return (-1);

 /*
  * All done, reset pointers and return success...
  */

  buf->current = buf->buffer;

  return (0);
}


/*
 * 'mxml_file_getc()' - Get a character from a file.
 */

static int                              /* O  - Character or EOF */
mxml_file_getc(void *p,                 /* I  - Pointer to file */
               int  *encoding)          /* IO - Encoding */
{
  int   ch,                             /* Character from file */
        temp;                           /* Temporary character */
  FILE  *fp;                            /* Pointer to file */


 /*
  * Read a character from the file and see if it is EOF or ASCII...
  */

  fp = (FILE *)p;
  ch = getc(fp);

  if (ch == EOF)
    return (EOF);

  switch (*encoding)
  {
    case ENCODE_UTF8 :
       /*
        * Got a UTF-8 character; convert UTF-8 to Unicode and return...
        */

        if (!(ch & 0x80))
        {
          if (mxml_bad_char(ch))
          {
            mxml_error("Bad control character 0x%02x not allowed by XML standard!",
                       ch);
            return (EOF);
          }

#if DEBUG > 1
          printf("mxml_file_getc: %c (0x%04x)\n", ch < ' ' ? '.' : ch, ch);
#endif /* DEBUG > 1 */

          return (ch);
        }
        else if (ch == 0xfe)
        {
         /*
          * UTF-16 big-endian BOM?
          */

          ch = getc(fp);
          if (ch != 0xff)
            return (EOF);

          *encoding = ENCODE_UTF16BE;

          return (mxml_file_getc(p, encoding));
        }
        else if (ch == 0xff)
        {
         /*
          * UTF-16 little-endian BOM?
          */

          ch = getc(fp);
          if (ch != 0xfe)
            return (EOF);

          *encoding = ENCODE_UTF16LE;

          return (mxml_file_getc(p, encoding));
        }
        else if ((ch & 0xe0) == 0xc0)
        {
         /*
          * Two-byte value...
          */

          if ((temp = getc(fp)) == EOF || (temp & 0xc0) != 0x80)
            return (EOF);

          ch = ((ch & 0x1f) << 6) | (temp & 0x3f);

          if (ch < 0x80)
            return (EOF);
        }
        else if ((ch & 0xf0) == 0xe0)
        {
         /*
          * Three-byte value...
          */

          if ((temp = getc(fp)) == EOF || (temp & 0xc0) != 0x80)
            return (EOF);

          ch = ((ch & 0x0f) << 6) | (temp & 0x3f);

          if ((temp = getc(fp)) == EOF || (temp & 0xc0) != 0x80)
            return (EOF);

          ch = (ch << 6) | (temp & 0x3f);

          if (ch < 0x800)
            return (EOF);
        }
        else if ((ch & 0xf8) == 0xf0)
        {
         /*
          * Four-byte value...
          */

          if ((temp = getc(fp)) == EOF || (temp & 0xc0) != 0x80)
            return (EOF);

          ch = ((ch & 0x07) << 6) | (temp & 0x3f);

          if ((temp = getc(fp)) == EOF || (temp & 0xc0) != 0x80)
            return (EOF);

          ch = (ch << 6) | (temp & 0x3f);

          if ((temp = getc(fp)) == EOF || (temp & 0xc0) != 0x80)
            return (EOF);

          ch = (ch << 6) | (temp & 0x3f);

          if (ch < 0x10000)
            return (EOF);
        }
        else
          return (EOF);
        break;

    case ENCODE_UTF16BE :
       /*
        * Read UTF-16 big-endian char...
        */

        ch = (ch << 8) | getc(fp);

        if (mxml_bad_char(ch))
        {
          mxml_error("Bad control character 0x%02x not allowed by XML standard!",
                     ch);
          return (EOF);
        }
        else if (ch >= 0xd800 && ch <= 0xdbff)
        {
         /*
          * Multi-word UTF-16 char...
          */

          int lch = (getc(fp) << 8) | getc(fp);

          if (lch < 0xdc00 || lch >= 0xdfff)
            return (EOF);

          ch = (((ch & 0x3ff) << 10) | (lch & 0x3ff)) + 0x10000;
        }
        break;

    case ENCODE_UTF16LE :
       /*
        * Read UTF-16 little-endian char...
        */

        ch |= (getc(fp) << 8);

        if (mxml_bad_char(ch))
        {
          mxml_error("Bad control character 0x%02x not allowed by XML standard!",
                     ch);
          return (EOF);
        }
        else if (ch >= 0xd800 && ch <= 0xdbff)
        {
         /*
          * Multi-word UTF-16 char...
          */

          int lch = getc(fp) | (getc(fp) << 8);

          if (lch < 0xdc00 || lch >= 0xdfff)
            return (EOF);

          ch = (((ch & 0x3ff) << 10) | (lch & 0x3ff)) + 0x10000;
        }
        break;
  }

#if DEBUG > 1
  printf("mxml_file_getc: %c (0x%04x)\n", ch < ' ' ? '.' : ch, ch);
#endif /* DEBUG > 1 */

  return (ch);
}


/*
 * 'mxml_file_putc()' - Write a character to a file.
 */

static int                              /* O - 0 on success, -1 on failure */
mxml_file_putc(int  ch,                 /* I - Character to write */
               void *p)                 /* I - Pointer to file */
{
  char  buffer[4],                      /* Buffer for character */
        *bufptr;                        /* Pointer into buffer */
  int   buflen;                         /* Number of bytes to write */


  if (ch < 0x80)
    return (putc(ch, (FILE *)p) == EOF ? -1 : 0);

  bufptr = buffer;

  if (ch < 0x800)
  {
   /*
    * Two-byte UTF-8 character...
    */

    *bufptr++ = 0xc0 | (ch >> 6);
    *bufptr++ = 0x80 | (ch & 0x3f);
  }
  else if (ch < 0x10000)
  {
   /*
    * Three-byte UTF-8 character...
    */

    *bufptr++ = 0xe0 | (ch >> 12);
    *bufptr++ = 0x80 | ((ch >> 6) & 0x3f);
    *bufptr++ = 0x80 | (ch & 0x3f);
  }
  else
  {
   /*
    * Four-byte UTF-8 character...
    */

    *bufptr++ = 0xf0 | (ch >> 18);
    *bufptr++ = 0x80 | ((ch >> 12) & 0x3f);
    *bufptr++ = 0x80 | ((ch >> 6) & 0x3f);
    *bufptr++ = 0x80 | (ch & 0x3f);
  }

  buflen = bufptr - buffer;

  return (fwrite(buffer, 1, buflen, (FILE *)p) < buflen ? -1 : 0);
}


/*
 * 'mxml_get_entity()' - Get the character corresponding to an entity...
 */

static int                              /* O  - Character value or EOF on error */
mxml_get_entity(mxml_node_t *parent,    /* I  - Parent node */
                void        *p,         /* I  - Pointer to source */
                int         *encoding,  /* IO - Character encoding */
                int         (*getc_cb)(void *, int *))
                                        /* I  - Get character function */
{
  int   ch;                             /* Current character */
  char  entity[64],                     /* Entity string */
        *entptr;                        /* Pointer into entity */


  entptr = entity;

  while ((ch = (*getc_cb)(p, encoding)) != EOF)
    if (ch > 126 || (!isalnum(ch) && ch != '#'))
      break;
    else if (entptr < (entity + sizeof(entity) - 1))
      *entptr++ = ch;
    else
    {
      mxml_error("Entity name too long under parent <%s>!",
                 parent ? parent->value.element.name : "null");
      break;
    }

  *entptr = '\0';

  if (ch != ';')
  {
    mxml_error("Character entity \"%s\" not terminated under parent <%s>!",
               entity, parent ? parent->value.element.name : "null");
    return (EOF);
  }

  if (entity[0] == '#')
  {
    if (entity[1] == 'x')
      ch = strtol(entity + 2, NULL, 16);
    else
      ch = strtol(entity + 1, NULL, 10);
  }
  else if ((ch = mxmlEntityGetValue(entity)) < 0)
    mxml_error("Entity name \"%s;\" not supported under parent <%s>!",
               entity, parent ? parent->value.element.name : "null");

  if (mxml_bad_char(ch))
  {
    mxml_error("Bad control character 0x%02x under parent <%s> not allowed by XML standard!",
               ch, parent ? parent->value.element.name : "null");
    return (EOF);
  }

  return (ch);
}


/*
 * 'mxml_load_data()' - Load data into an XML node tree.
 */

static mxml_node_t *                    /* O - First node or NULL if the file could not be read. */
mxml_load_data(mxml_node_t *top,        /* I - Top node */
               void        *p,          /* I - Pointer to data */
               mxml_type_t (*cb)(mxml_node_t *),
                                        /* I - Callback function or MXML_NO_CALLBACK */
               int         (*getc_cb)(void *, int *))
                                        /* I - Read function */
{
  mxml_node_t   *node,                  /* Current node */
                *first,                 /* First node added */
                *parent;                /* Current parent node */
  int           ch,                     /* Character from file */
                whitespace;             /* Non-zero if whitespace seen */
  char          *buffer,                /* String buffer */
                *bufptr;                /* Pointer into buffer */
  int           bufsize;                /* Size of buffer */
  mxml_type_t   type;                   /* Current node type */
  int           encoding;               /* Character encoding */
  static const char * const types[] =   /* Type strings... */
                {
                  "MXML_ELEMENT",       /* XML element with attributes */
                  "MXML_INTEGER",       /* Integer value */
                  "MXML_OPAQUE",        /* Opaque string */
                  "MXML_REAL",          /* Real value */
                  "MXML_TEXT",          /* Text fragment */
                  "MXML_CUSTOM"         /* Custom data */
                };


 /*
  * Read elements and other nodes from the file...
  */

  if ((buffer = malloc(64)) == NULL)
  {
    mxml_error("Unable to allocate string buffer!");
    return (NULL);
  }

  bufsize    = 64;
  bufptr     = buffer;
  parent     = top;
  first      = NULL;
  whitespace = 0;
  encoding   = ENCODE_UTF8;

  if (cb && parent)
    type = (*cb)(parent);
  else
    type = MXML_TEXT;

  while ((ch = (*getc_cb)(p, &encoding)) != EOF)
  {
    if ((ch == '<' ||
         (isspace(ch) && type != MXML_OPAQUE && type != MXML_CUSTOM)) &&
        bufptr > buffer)
    {
     /*
      * Add a new value node...
      */

      *bufptr = '\0';

      switch (type)
      {
        case MXML_INTEGER :
            node = mxmlNewInteger(parent, strtol(buffer, &bufptr, 0));
            break;

        case MXML_OPAQUE :
            node = mxmlNewOpaque(parent, buffer);
            break;

        case MXML_REAL :
            node = mxmlNewReal(parent, strtod(buffer, &bufptr));
            break;

        case MXML_TEXT :
            node = mxmlNewText(parent, whitespace, buffer);
            break;

        case MXML_CUSTOM :
            if (mxml_custom_load_cb)
            {
             /*
              * Use the callback to fill in the custom data...
              */

              node = mxmlNewCustom(parent, NULL, NULL);

              if ((*mxml_custom_load_cb)(node, buffer))
              {
                mxml_error("Bad custom value '%s' in parent <%s>!",
                           buffer, parent ? parent->value.element.name : "null");
                mxmlDelete(node);
                node = NULL;
              }
              break;
            }

        default : /* Should never happen... */
            node = NULL;
            break;
      }   

      if (*bufptr)
      {
       /*
        * Bad integer/real number value...
        */

        mxml_error("Bad %s value '%s' in parent <%s>!",
                   type == MXML_INTEGER ? "integer" : "real", buffer,
                   parent ? parent->value.element.name : "null");
        break;
      }

      bufptr     = buffer;
      whitespace = isspace(ch) && type == MXML_TEXT;

      if (!node)
      {
       /*
        * Print error and return...
        */

        mxml_error("Unable to add value node of type %s to parent <%s>!",
                   types[type], parent ? parent->value.element.name : "null");
        goto error;
      }

      if (!first)
        first = node;
    }
    else if (isspace(ch) && type == MXML_TEXT)
      whitespace = 1;

   /*
    * Add lone whitespace node if we have an element and existing
    * whitespace...
    */

    if (ch == '<' && whitespace && type == MXML_TEXT)
    {
      mxmlNewText(parent, whitespace, "");
      whitespace = 0;
    }

    if (ch == '<')
    {
     /*
      * Start of open/close tag...
      */

      bufptr = buffer;

      while ((ch = (*getc_cb)(p, &encoding)) != EOF)
        if (isspace(ch) || ch == '>' || (ch == '/' && bufptr > buffer))
          break;
        else if (ch == '&')
        {
          if ((ch = mxml_get_entity(parent, p, &encoding, getc_cb)) == EOF)
            goto error;

          if (mxml_add_char(ch, &bufptr, &buffer, &bufsize))
            goto error;
        }
        else if (mxml_add_char(ch, &bufptr, &buffer, &bufsize))
          goto error;
        else if (((bufptr - buffer) == 1 && buffer[0] == '?') ||
                 ((bufptr - buffer) == 3 && !strncmp(buffer, "!--", 3)) ||
                 ((bufptr - buffer) == 8 && !strncmp(buffer, "![CDATA[", 8)))
          break;

      *bufptr = '\0';

      if (!strcmp(buffer, "!--"))
      {
       /*
        * Gather rest of comment...
        */

        while ((ch = (*getc_cb)(p, &encoding)) != EOF)
        {
          if (ch == '>' && bufptr > (buffer + 4) &&
              bufptr[-3] != '-' && bufptr[-2] == '-' && bufptr[-1] == '-')
            break;
          else if (mxml_add_char(ch, &bufptr, &buffer, &bufsize))
            goto error;
        }

       /*
        * Error out if we didn't get the whole comment...
        */

        if (ch != '>')
        {
         /*
          * Print error and return...
          */

          mxml_error("Early EOF in comment node!");
          goto error;
        }


       /*
        * Otherwise add this as an element under the current parent...
        */

        *bufptr = '\0';

        if (!mxmlNewElement(parent, buffer))
        {
         /*
          * Just print error for now...
          */

          mxml_error("Unable to add comment node to parent <%s>!",
                     parent ? parent->value.element.name : "null");
          break;
        }
      }
      else if (!strcmp(buffer, "![CDATA["))
      {
       /*
        * Gather CDATA section...
        */

        while ((ch = (*getc_cb)(p, &encoding)) != EOF)
        {
          if (ch == '>' && !strncmp(bufptr - 2, "]]", 2))
            break;
          else if (mxml_add_char(ch, &bufptr, &buffer, &bufsize))
            goto error;
        }

       /*
        * Error out if we didn't get the whole comment...
        */

        if (ch != '>')
        {
         /*
          * Print error and return...
          */

          mxml_error("Early EOF in CDATA node!");
          goto error;
        }


       /*
        * Otherwise add this as an element under the current parent...
        */

        *bufptr = '\0';

        if (!mxmlNewElement(parent, buffer))
        {
         /*
          * Print error and return...
          */

          mxml_error("Unable to add CDATA node to parent <%s>!",
                     parent ? parent->value.element.name : "null");
          goto error;
        }
      }
      else if (buffer[0] == '?')
      {
       /*
        * Gather rest of processing instruction...
        */

        while ((ch = (*getc_cb)(p, &encoding)) != EOF)
        {
          if (ch == '>' && bufptr > buffer && bufptr[-1] == '?')
            break;
          else if (mxml_add_char(ch, &bufptr, &buffer, &bufsize))
            goto error;
        }

       /*
        * Error out if we didn't get the whole processing instruction...
        */

        if (ch != '>')
        {
         /*
          * Print error and return...
          */

          mxml_error("Early EOF in processing instruction node!");
          goto error;
        }


       /*
        * Otherwise add this as an element under the current parent...
        */

        *bufptr = '\0';

        if (!(parent = mxmlNewElement(parent, buffer)))
        {
         /*
          * Print error and return...
          */

          mxml_error("Unable to add processing instruction node to parent <%s>!",
                     parent ? parent->value.element.name : "null");
          goto error;
        }

        if (cb)
          type = (*cb)(parent);
      }
      else if (buffer[0] == '!')
      {
       /*
        * Gather rest of declaration...
        */

        do
        {
          if (ch == '>')
            break;
          else
          {
            if (ch == '&')
              if ((ch = mxml_get_entity(parent, p, &encoding, getc_cb)) == EOF)
                goto error;

            if (mxml_add_char(ch, &bufptr, &buffer, &bufsize))
              goto error;
          }
        }
        while ((ch = (*getc_cb)(p, &encoding)) != EOF);

       /*
        * Error out if we didn't get the whole declaration...
        */

        if (ch != '>')
        {
         /*
          * Print error and return...
          */

          mxml_error("Early EOF in declaration node!");
          goto error;
        }

       /*
        * Otherwise add this as an element under the current parent...
        */

        *bufptr = '\0';

        node = mxmlNewElement(parent, buffer);
        if (!node)
        {
         /*
          * Print error and return...
          */

          mxml_error("Unable to add declaration node to parent <%s>!",
                     parent ? parent->value.element.name : "null");
          goto error;
        }

       /*
        * Descend into this node, setting the value type as needed...
        */

        parent = node;

        if (cb)
          type = (*cb)(parent);
      }
      else if (buffer[0] == '/')
      {
       /*
        * Handle close tag...
        */

        if (!parent || strcmp(buffer + 1, parent->value.element.name))
        {
         /*
          * Close tag doesn't match tree; print an error for now...
          */

          mxml_error("Mismatched close tag <%s> under parent <%s>!",
                     buffer, parent->value.element.name);
          goto error;
        }

       /*
        * Keep reading until we see >...
        */

        while (ch != '>' && ch != EOF)
          ch = (*getc_cb)(p, &encoding);

       /*
        * Ascend into the parent and set the value type as needed...
        */

        parent = parent->parent;

        if (cb && parent)
          type = (*cb)(parent);
      }
      else
      {
       /*
        * Handle open tag...
        */

        node = mxmlNewElement(parent, buffer);

        if (!node)
        {
         /*
          * Just print error for now...
          */

          mxml_error("Unable to add element node to parent <%s>!",
                     parent ? parent->value.element.name : "null");
          goto error;
        }

        if (isspace(ch))
          ch = mxml_parse_element(node, p, &encoding, getc_cb);
        else if (ch == '/')
        {
          if ((ch = (*getc_cb)(p, &encoding)) != '>')
          {
            mxml_error("Expected > but got '%c' instead for element <%s/>!",
                       ch, buffer);
            goto error;
          }

          ch = '/';
        }

        if (ch == EOF)
          break;

        if (ch != '/')
        {
         /*
          * Descend into this node, setting the value type as needed...
          */

          parent = node;

          if (cb && parent)
            type = (*cb)(parent);
        }
      }

      bufptr  = buffer;
    }
    else if (ch == '&')
    {
     /*
      * Add character entity to current buffer...
      */

      if ((ch = mxml_get_entity(parent, p, &encoding, getc_cb)) == EOF)
        goto error;

      if (mxml_add_char(ch, &bufptr, &buffer, &bufsize))
        goto error;
    }
    else if (type == MXML_OPAQUE || type == MXML_CUSTOM || !isspace(ch))
    {
     /*
      * Add character to current buffer...
      */

      if (mxml_add_char(ch, &bufptr, &buffer, &bufsize))
        goto error;
    }
  }

 /*
  * Free the string buffer - we don't need it anymore...
  */

  free(buffer);

 /*
  * Find the top element and return it...
  */

  if (parent)
  {
    while (parent->parent != top && parent->parent)
      parent = parent->parent;
  }

  return (parent);

 /*
  * Common error return...
  */

error:

  mxmlDelete(first);

  free(buffer);

  return (NULL);
}


/*
 * 'mxml_parse_element()' - Parse an element for any attributes...
 */

static int                              /* O  - Terminating character */
mxml_parse_element(mxml_node_t *node,   /* I  - Element node */
                   void        *p,      /* I  - Data to read from */
                   int         *encoding,
                                        /* IO - Encoding */
                   int         (*getc_cb)(void *, int *))
                                        /* I  - Data callback */
{
  int   ch,                             /* Current character in file */
        quote;                          /* Quoting character */
  char  *name,                          /* Attribute name */
        *value,                         /* Attribute value */
        *ptr;                           /* Pointer into name/value */
  int   namesize,                       /* Size of name string */
        valsize;                        /* Size of value string */




 /*
  * Initialize the name and value buffers...
  */

  if ((name = malloc(64)) == NULL)
  {
    mxml_error("Unable to allocate memory for name!");
    return (EOF);
  }

  namesize = 64;

  if ((value = malloc(64)) == NULL)
  {
    free(name);
    mxml_error("Unable to allocate memory for value!");
    return (EOF);
  }

  valsize = 64;

 /*
  * Loop until we hit a >, /, ?, or EOF...
  */

  while ((ch = (*getc_cb)(p, encoding)) != EOF)
  {
#if DEBUG > 1
    fprintf(stderr, "parse_element: ch='%c'\n", ch);
#endif /* DEBUG > 1 */

   /*
    * Skip leading whitespace...
    */

    if (isspace(ch))
      continue;

   /*
    * Stop at /, ?, or >...
    */

    if (ch == '/' || ch == '?')
    {
     /*
      * Grab the > character and print an error if it isn't there...
      */

      quote = (*getc_cb)(p, encoding);

      if (quote != '>')
      {
        mxml_error("Expected '>' after '%c' for element %s, but got '%c'!",
                   ch, node->value.element.name, quote);
        ch = EOF;
      }

      break;
    }
    else if (ch == '>')
      break;

   /*
    * Read the attribute name...
    */

    name[0] = ch;
    ptr     = name + 1;

    if (ch == '\"' || ch == '\'')
    {
     /*
      * Name is in quotes, so get a quoted string...
      */

      quote = ch;

      while ((ch = (*getc_cb)(p, encoding)) != EOF)
      {
        if (ch == '&')
          if ((ch = mxml_get_entity(node, p, encoding, getc_cb)) == EOF)
            goto error;

        if (mxml_add_char(ch, &ptr, &name, &namesize))
          goto error;

        if (ch == quote)
          break;
      }
    }
    else
    {
     /*
      * Grab an normal, non-quoted name...
      */

      while ((ch = (*getc_cb)(p, encoding)) != EOF)
        if (isspace(ch) || ch == '=' || ch == '/' || ch == '>' || ch == '?')
          break;
        else
        {
          if (ch == '&')
            if ((ch = mxml_get_entity(node, p, encoding, getc_cb)) == EOF)
              goto error;

          if (mxml_add_char(ch, &ptr, &name, &namesize))
            goto error;
        }
    }

    *ptr = '\0';

    if (mxmlElementGetAttr(node, name))
      goto error;

    if (ch == '=')
    {
     /*
      * Read the attribute value...
      */

      if ((ch = (*getc_cb)(p, encoding)) == EOF)
      {
        mxml_error("Missing value for attribute '%s' in element %s!",
                   name, node->value.element.name);
        return (EOF);
      }

      if (ch == '\'' || ch == '\"')
      {
       /*
        * Read quoted value...
        */

        quote = ch;
        ptr   = value;

        while ((ch = (*getc_cb)(p, encoding)) != EOF)
          if (ch == quote)
            break;
          else
          {
            if (ch == '&')
              if ((ch = mxml_get_entity(node, p, encoding, getc_cb)) == EOF)
                goto error;
              
            if (mxml_add_char(ch, &ptr, &value, &valsize))
              goto error;
          }

        *ptr = '\0';
      }
      else
      {
       /*
        * Read unquoted value...
        */

        value[0] = ch;
        ptr      = value + 1;

        while ((ch = (*getc_cb)(p, encoding)) != EOF)
          if (isspace(ch) || ch == '=' || ch == '/' || ch == '>')
            break;
          else
          {
            if (ch == '&')
              if ((ch = mxml_get_entity(node, p, encoding, getc_cb)) == EOF)
                goto error;
              
            if (mxml_add_char(ch, &ptr, &value, &valsize))
              goto error;
          }

        *ptr = '\0';
      }

     /*
      * Set the attribute with the given string value...
      */

      mxmlElementSetAttr(node, name, value);
    }
    else
    {
     /*
      * Set the attribute with a NULL value...
      */

      mxmlElementSetAttr(node, name, NULL);
    }

   /*
    * Check the end character...
    */

    if (ch == '/' || ch == '?')
    {
     /*
      * Grab the > character and print an error if it isn't there...
      */

      quote = (*getc_cb)(p, encoding);

      if (quote != '>')
      {
        mxml_error("Expected '>' after '%c' for element %s, but got '%c'!",
                   ch, node->value.element.name, quote);
        ch = EOF;
      }

      break;
    }
    else if (ch == '>')
      break;
  }

 /*
  * Free the name and value buffers and return...
  */

  free(name);
  free(value);

  return (ch);

 /*
  * Common error return point...
  */

error:

  free(name);
  free(value);

  return (EOF);
}


/*
 * 'mxml_string_getc()' - Get a character from a string.
 */

static int                              /* O  - Character or EOF */
mxml_string_getc(void *p,               /* I  - Pointer to file */
                 int  *encoding)        /* IO - Encoding */
{
  int           ch;                     /* Character */
  const char    **s;                    /* Pointer to string pointer */


  s = (const char **)p;

  if ((ch = (*s)[0] & 255) != 0 || *encoding == ENCODE_UTF16LE)
  {
   /*
    * Got character; convert UTF-8 to integer and return...
    */

    (*s)++;

    switch (*encoding)
    {
      case ENCODE_UTF8 :
          if (!(ch & 0x80))
          {
#if DEBUG > 1
            printf("mxml_string_getc: %c (0x%04x)\n", ch < ' ' ? '.' : ch, ch);
#endif /* DEBUG > 1 */

            if (mxml_bad_char(ch))
            {
              mxml_error("Bad control character 0x%02x not allowed by XML standard!",
                         ch);
              return (EOF);
            }

            return (ch);
          }
          else if (ch == 0xfe)
          {
           /*
            * UTF-16 big-endian BOM?
            */

            if (((*s)[0] & 255) != 0xff)
              return (EOF);

            *encoding = ENCODE_UTF16BE;
            (*s)++;

            return (mxml_string_getc(p, encoding));
          }
          else if (ch == 0xff)
          {
           /*
            * UTF-16 little-endian BOM?
            */

            if (((*s)[0] & 255) != 0xfe)
              return (EOF);

            *encoding = ENCODE_UTF16LE;
            (*s)++;

            return (mxml_string_getc(p, encoding));
          }
          else if ((ch & 0xe0) == 0xc0)
          {
           /*
            * Two-byte value...
            */

            if (((*s)[0] & 0xc0) != 0x80)
              return (EOF);

            ch = ((ch & 0x1f) << 6) | ((*s)[0] & 0x3f);

            (*s)++;

            if (ch < 0x80)
              return (EOF);

#if DEBUG > 1
            printf("mxml_string_getc: %c (0x%04x)\n", ch < ' ' ? '.' : ch, ch);
#endif /* DEBUG > 1 */

            return (ch);
          }
          else if ((ch & 0xf0) == 0xe0)
          {
           /*
            * Three-byte value...
            */

            if (((*s)[0] & 0xc0) != 0x80 ||
                ((*s)[1] & 0xc0) != 0x80)
              return (EOF);

            ch = ((((ch & 0x0f) << 6) | ((*s)[0] & 0x3f)) << 6) | ((*s)[1] & 0x3f);

            (*s) += 2;

            if (ch < 0x800)
              return (EOF);

#if DEBUG > 1
            printf("mxml_string_getc: %c (0x%04x)\n", ch < ' ' ? '.' : ch, ch);
#endif /* DEBUG > 1 */

            return (ch);
          }
          else if ((ch & 0xf8) == 0xf0)
          {
           /*
            * Four-byte value...
            */

            if (((*s)[0] & 0xc0) != 0x80 ||
                ((*s)[1] & 0xc0) != 0x80 ||
                ((*s)[2] & 0xc0) != 0x80)
              return (EOF);

            ch = ((((((ch & 0x07) << 6) | ((*s)[0] & 0x3f)) << 6) |
                   ((*s)[1] & 0x3f)) << 6) | ((*s)[2] & 0x3f);

            (*s) += 3;

            if (ch < 0x10000)
              return (EOF);

#if DEBUG > 1
            printf("mxml_string_getc: %c (0x%04x)\n", ch < ' ' ? '.' : ch, ch);
#endif /* DEBUG > 1 */

            return (ch);
          }
          else
            return (EOF);

      case ENCODE_UTF16BE :
         /*
          * Read UTF-16 big-endian char...
          */

          ch = (ch << 8) | ((*s)[0] & 255);
          (*s) ++;

          if (mxml_bad_char(ch))
          {
            mxml_error("Bad control character 0x%02x not allowed by XML standard!",
                       ch);
            return (EOF);
          }
          else if (ch >= 0xd800 && ch <= 0xdbff)
          {
           /*
            * Multi-word UTF-16 char...
            */

            int lch;                    /* Lower word */


            if (!(*s)[0])
              return (EOF);

            lch = (((*s)[0] & 255) << 8) | ((*s)[1] & 255);
            (*s) += 2;

            if (lch < 0xdc00 || lch >= 0xdfff)
              return (EOF);

            ch = (((ch & 0x3ff) << 10) | (lch & 0x3ff)) + 0x10000;
          }

#if DEBUG > 1
          printf("mxml_string_getc: %c (0x%04x)\n", ch < ' ' ? '.' : ch, ch);
#endif /* DEBUG > 1 */

          return (ch);

      case ENCODE_UTF16LE :
         /*
          * Read UTF-16 little-endian char...
          */

          ch = ch | (((*s)[0] & 255) << 8);

          if (!ch)
          {
            (*s) --;
            return (EOF);
          }

          (*s) ++;

          if (mxml_bad_char(ch))
          {
            mxml_error("Bad control character 0x%02x not allowed by XML standard!",
                       ch);
            return (EOF);
          }
          else if (ch >= 0xd800 && ch <= 0xdbff)
          {
           /*
            * Multi-word UTF-16 char...
            */

            int lch;                    /* Lower word */


            if (!(*s)[1])
              return (EOF);

            lch = (((*s)[1] & 255) << 8) | ((*s)[0] & 255);
            (*s) += 2;

            if (lch < 0xdc00 || lch >= 0xdfff)
              return (EOF);

            ch = (((ch & 0x3ff) << 10) | (lch & 0x3ff)) + 0x10000;
          }

#if DEBUG > 1
          printf("mxml_string_getc: %c (0x%04x)\n", ch < ' ' ? '.' : ch, ch);
#endif /* DEBUG > 1 */

          return (ch);
    }
  }

  return (EOF);
}


/*
 * 'mxml_string_putc()' - Write a character to a string.
 */

static int                              /* O - 0 on success, -1 on failure */
mxml_string_putc(int  ch,               /* I - Character to write */
                 void *p)               /* I - Pointer to string pointers */
{
  char  **pp;                           /* Pointer to string pointers */


  pp = (char **)p;

  if (ch < 0x80)
  {
   /*
    * Plain ASCII doesn't need special encoding...
    */

    if (pp[0] < pp[1])
      pp[0][0] = ch;

    pp[0] ++;
  }
  else if (ch < 0x800)
  {
   /*
    * Two-byte UTF-8 character...
    */

    if ((pp[0] + 1) < pp[1])
    {
      pp[0][0] = 0xc0 | (ch >> 6);
      pp[0][1] = 0x80 | (ch & 0x3f);
    }

    pp[0] += 2;
  }
  else if (ch < 0x10000)
  {
   /*
    * Three-byte UTF-8 character...
    */

    if ((pp[0] + 2) < pp[1])
    {
      pp[0][0] = 0xe0 | (ch >> 12);
      pp[0][1] = 0x80 | ((ch >> 6) & 0x3f);
      pp[0][2] = 0x80 | (ch & 0x3f);
    }

    pp[0] += 3;
  }
  else
  {
   /*
    * Four-byte UTF-8 character...
    */

    if ((pp[0] + 2) < pp[1])
    {
      pp[0][0] = 0xf0 | (ch >> 18);
      pp[0][1] = 0x80 | ((ch >> 12) & 0x3f);
      pp[0][2] = 0x80 | ((ch >> 6) & 0x3f);
      pp[0][3] = 0x80 | (ch & 0x3f);
    }

    pp[0] += 4;
  }

  return (0);
}


/*
 * 'mxml_write_name()' - Write a name string.
 */

static int                              /* O - 0 on success, -1 on failure */
mxml_write_name(const char *s,          /* I - Name to write */
                void       *p,          /* I - Write pointer */
                int        (*putc_cb)(int, void *))
                                        /* I - Write callback */
{
  char          quote;                  /* Quote character */
  const char    *name;                  /* Entity name */


  if (*s == '\"' || *s == '\'')
  {
   /*
    * Write a quoted name string...
    */

    if ((*putc_cb)(*s, p) < 0)
      return (-1);

    quote = *s++;

    while (*s && *s != quote)
    {
      if ((name = mxmlEntityGetName(*s)) != NULL)
      {
        if ((*putc_cb)('&', p) < 0)
          return (-1);

        while (*name)
        {
          if ((*putc_cb)(*name, p) < 0)
            return (-1);

          name ++;
        }

        if ((*putc_cb)(';', p) < 0)
          return (-1);
      }
      else if ((*putc_cb)(*s, p) < 0)
        return (-1);

      s ++;
    }

   /*
    * Write the end quote...
    */

    if ((*putc_cb)(quote, p) < 0)
      return (-1);
  }
  else
  {
   /*
    * Write a non-quoted name string...
    */

    while (*s)
    {
      if ((*putc_cb)(*s, p) < 0)
        return (-1);

      s ++;
    }
  }

  return (0);
}


/*
 * 'mxml_write_node()' - Save an XML node to a file.
 */

static int                              /* O - Column or -1 on error */
mxml_write_node(mxml_node_t *node,      /* I - Node to write */
                void        *p,         /* I - File to write to */
                const char  *(*cb)(mxml_node_t *, int),
                                        /* I - Whitespace callback */
                int         col,        /* I - Current column */
                int         (*putc_cb)(int, void *))
{
  int           i,                      /* Looping var */
                width;                  /* Width of attr + value */
  mxml_attr_t   *attr;                  /* Current attribute */
  char          s[255];                 /* Temporary string */


  while (node != NULL)
  {
   /*
    * Print the node value...
    */

    switch (node->type)
    {
      case MXML_ELEMENT :
          col = mxml_write_ws(node, p, cb, MXML_WS_BEFORE_OPEN, col, putc_cb);

          if ((*putc_cb)('<', p) < 0)
            return (-1);
          if (node->value.element.name[0] == '?' ||
              !strncmp(node->value.element.name, "!--", 3) ||
              !strncmp(node->value.element.name, "![CDATA[", 8))
          {
           /*
            * Comments, CDATA, and processing instructions do not
            * use character entities.
            */

            const char  *ptr;           /* Pointer into name */


            for (ptr = node->value.element.name; *ptr; ptr ++)
              if ((*putc_cb)(*ptr, p) < 0)
                return (-1);

           /*
            * Prefer a newline for whitespace after ?xml...
            */

            if (!strncmp(node->value.element.name, "?xml", 4))
              col = MXML_WRAP;
          }
          else if (mxml_write_name(node->value.element.name, p, putc_cb) < 0)
            return (-1);

          col += strlen(node->value.element.name) + 1;

          for (i = node->value.element.num_attrs, attr = node->value.element.attrs;
               i > 0;
               i --, attr ++)
          {
            width = strlen(attr->name);

            if (attr->value)
              width += strlen(attr->value) + 3;

            if ((col + width) > MXML_WRAP)
            {
              if ((*putc_cb)('\n', p) < 0)
                return (-1);

              col = 0;
            }
            else
            {
              if ((*putc_cb)(' ', p) < 0)
                return (-1);

              col ++;
            }

            if (mxml_write_name(attr->name, p, putc_cb) < 0)
              return (-1);

            if (attr->value)
            {
              if ((*putc_cb)('=', p) < 0)
                return (-1);
              if ((*putc_cb)('\"', p) < 0)
                return (-1);
              if (mxml_write_string(attr->value, p, putc_cb) < 0)
                return (-1);
              if ((*putc_cb)('\"', p) < 0)
                return (-1);
            }

            col += width;
          }

          if (node->child)
          {
           /*
            * Write children...
            */

            if ((*putc_cb)('>', p) < 0)
              return (-1);
            else
              col ++;

            col = mxml_write_ws(node, p, cb, MXML_WS_AFTER_OPEN, col, putc_cb);

            if ((col = mxml_write_node(node->child, p, cb, col, putc_cb)) < 0)
              return (-1);

           /*
            * The ? and ! elements are special-cases and have no end tags...
            */

            if (node->value.element.name[0] != '!' &&
                node->value.element.name[0] != '?')
            {
              col = mxml_write_ws(node, p, cb, MXML_WS_BEFORE_CLOSE, col, putc_cb);

              if ((*putc_cb)('<', p) < 0)
                return (-1);
              if ((*putc_cb)('/', p) < 0)
                return (-1);
              if (mxml_write_string(node->value.element.name, p, putc_cb) < 0)
                return (-1);
              if ((*putc_cb)('>', p) < 0)
                return (-1);

              col += strlen(node->value.element.name) + 3;

              col = mxml_write_ws(node, p, cb, MXML_WS_AFTER_CLOSE, col, putc_cb);
            }
          }
          else if (node->value.element.name[0] == '!' ||
                   node->value.element.name[0] == '?')
          {
           /*
            * The ? and ! elements are special-cases...
            */

            if ((*putc_cb)('>', p) < 0)
              return (-1);
            else
              col ++;

            col = mxml_write_ws(node, p, cb, MXML_WS_AFTER_OPEN, col, putc_cb);
          }
          else
          {
            if ((*putc_cb)(' ', p) < 0)
              return (-1);
            if ((*putc_cb)('/', p) < 0)
              return (-1);
            if ((*putc_cb)('>', p) < 0)
              return (-1);

            col += 3;

            col = mxml_write_ws(node, p, cb, MXML_WS_AFTER_OPEN, col, putc_cb);
          }
          break;

      case MXML_INTEGER :
          if (node->prev)
          {
            if (col > MXML_WRAP)
            {
              if ((*putc_cb)('\n', p) < 0)
                return (-1);

              col = 0;
            }
            else if ((*putc_cb)(' ', p) < 0)
              return (-1);
            else
              col ++;
          }

          sprintf(s, "%d", node->value.integer);
          if (mxml_write_string(s, p, putc_cb) < 0)
            return (-1);

          col += strlen(s);
          break;

      case MXML_OPAQUE :
          if (mxml_write_string(node->value.opaque, p, putc_cb) < 0)
            return (-1);

          col += strlen(node->value.opaque);
          break;

      case MXML_REAL :
          if (node->prev)
          {
            if (col > MXML_WRAP)
            {
              if ((*putc_cb)('\n', p) < 0)
                return (-1);

              col = 0;
            }
            else if ((*putc_cb)(' ', p) < 0)
              return (-1);
            else
              col ++;
          }

          sprintf(s, "%f", node->value.real);
          if (mxml_write_string(s, p, putc_cb) < 0)
            return (-1);

          col += strlen(s);
          break;

      case MXML_TEXT :
          if (node->value.text.whitespace && col > 0)
          {
            if (col > MXML_WRAP)
            {
              if ((*putc_cb)('\n', p) < 0)
                return (-1);

              col = 0;
            }
            else if ((*putc_cb)(' ', p) < 0)
              return (-1);
            else
              col ++;
          }

          if (mxml_write_string(node->value.text.string, p, putc_cb) < 0)
            return (-1);

          col += strlen(node->value.text.string);
          break;

      case MXML_CUSTOM :
          if (mxml_custom_save_cb)
          {
            char        *data;          /* Custom data string */
            const char  *newline;       /* Last newline in string */


            if ((data = (*mxml_custom_save_cb)(node)) == NULL)
              return (-1);

            if (mxml_write_string(data, p, putc_cb) < 0)
              return (-1);

            if ((newline = strrchr(data, '\n')) == NULL)
              col += strlen(data);
            else
              col = strlen(newline);

            free(data);
            break;
          }

      default : /* Should never happen */
          return (-1);
    }

   /*
    * Next node...
    */

    node = node->next;
  }

  return (col);
}


/*
 * 'mxml_write_string()' - Write a string, escaping & and < as needed.
 */

static int                              /* O - 0 on success, -1 on failure */
mxml_write_string(const char *s,        /* I - String to write */
                  void       *p,        /* I - Write pointer */
                  int        (*putc_cb)(int, void *))
                                        /* I - Write callback */
{
  const char    *name;                  /* Entity name, if any */


  while (*s)
  {
    if ((name = mxmlEntityGetName(*s)) != NULL)
    {
      if ((*putc_cb)('&', p) < 0)
        return (-1);

      while (*name)
      {
        if ((*putc_cb)(*name, p) < 0)
          return (-1);
        name ++;
      }

      if ((*putc_cb)(';', p) < 0)
        return (-1);
    }
    else if ((*putc_cb)(*s, p) < 0)
      return (-1);

    s ++;
  }

  return (0);
}


/*
 * 'mxml_write_ws()' - Do whitespace callback...
 */

static int                              /* O - New column */
mxml_write_ws(mxml_node_t *node,        /* I - Current node */
              void        *p,           /* I - Write pointer */
              const char  *(*cb)(mxml_node_t *, int),
                                        /* I - Callback function */
              int         ws,           /* I - Where value */
              int         col,          /* I - Current column */
              int         (*putc_cb)(int, void *))
                                        /* I - Write callback */
{
  const char    *s;                     /* Whitespace string */


  if (cb && (s = (*cb)(node, ws)) != NULL)
  {
    while (*s)
    {
      if ((*putc_cb)(*s, p) < 0)
        return (-1);
      else if (*s == '\n')
        col = 0;
      else if (*s == '\t')
      {
        col += MXML_TAB;
        col = col - (col % MXML_TAB);
      }
      else
        col ++;

      s ++;
    }
  }

  return (col);
}


/*
 * End of "$Id: mxml-file.c,v 1.1 2007/05/23 20:43:27 david_ko Exp $".
 */

---