/src/libxml2/valid.c

Source
/*
 * valid.c : part of the code use to do the DTD handling and the validity
 *           checking
 *
 * See Copyright for the status of this software.
 *
 * Author: Daniel Veillard
 */

#define IN_LIBXML
#include "libxml.h"

#include <string.h>
#include <stdlib.h>

#include <libxml/xmlmemory.h>
#include <libxml/hash.h>
#include <libxml/uri.h>
#include <libxml/valid.h>
#include <libxml/parser.h>
#include <libxml/parserInternals.h>
#include <libxml/xmlerror.h>
#include <libxml/list.h>
#include <libxml/xmlsave.h>

#include "private/error.h"
#include "private/memory.h"
#include "private/parser.h"
#include "private/regexp.h"
#include "private/save.h"
#include "private/tree.h"

static xmlElementPtr
xmlGetDtdElementDesc2(xmlValidCtxtPtr ctxt, xmlDtdPtr dtd, const xmlChar *name);

#ifdef LIBXML_VALID_ENABLED
static int
xmlValidateAttributeValueInternal(xmlDocPtr doc, xmlAttributeType type,
                                  const xmlChar *value);
#endif
/************************************************************************
 *                  *
 *      Error handling routines       *
 *                  *
 ************************************************************************/

/**
 * Handle an out of memory error
 *
 * @param ctxt  an XML validation parser context
 */
static void
xmlVErrMemory(xmlValidCtxtPtr ctxt)
{
    if (ctxt != NULL) {
        if (ctxt->flags & XML_VCTXT_USE_PCTXT) {
            xmlCtxtErrMemory(ctxt->userData);
        } else {
            xmlRaiseMemoryError(NULL, ctxt->error, ctxt->userData,
                                XML_FROM_VALID, NULL);
        }
    } else {
        xmlRaiseMemoryError(NULL, NULL, NULL, XML_FROM_VALID, NULL);
    }
}

/*
 * @returns 0 on success, -1 if a memory allocation failed
 */
static int
xmlDoErrValid(xmlValidCtxtPtr ctxt, xmlNodePtr node,
              xmlParserErrors code, int level,
              const xmlChar *str1, const xmlChar *str2, const xmlChar *str3,
              int int1,
              const char *msg, ...) {
    xmlParserCtxtPtr pctxt = NULL;
    va_list ap;
    int ret = 0;

    if (ctxt == NULL)
        return -1;
    if (ctxt->flags & XML_VCTXT_USE_PCTXT)
        pctxt = ctxt->userData;

    va_start(ap, msg);
    if (pctxt != NULL) {
        xmlCtxtVErr(pctxt, node, XML_FROM_VALID, code, level,
                    str1, str2, str3, int1, msg, ap);
        if (pctxt->errNo == XML_ERR_NO_MEMORY)
            ret = -1;
    } else {
        xmlGenericErrorFunc channel = NULL;
        void *data = NULL;
        int res;

        if (ctxt != NULL) {
            channel = ctxt->error;
            data = ctxt->userData;
        }
        res = xmlVRaiseError(NULL, channel, data, NULL, node,
                             XML_FROM_VALID, code, level, NULL, 0,
                             (const char *) str1, (const char *) str2,
                             (const char *) str2, int1, 0,
                             msg, ap);
        if (res < 0) {
            xmlVErrMemory(ctxt);
            ret = -1;
        }
    }
    va_end(ap);

    return ret;
}

/**
 * Handle a validation error, provide contextual information
 *
 * @param ctxt  an XML validation parser context
 * @param node  the node raising the error
 * @param error  the error number
 * @param msg  the error message
 * @param str1  extra information
 * @param str2  extra information
 * @param str3  extra information
 */
static void LIBXML_ATTR_FORMAT(4,0)
xmlErrValidNode(xmlValidCtxtPtr ctxt,
                xmlNodePtr node, xmlParserErrors error,
                const char *msg, const xmlChar * str1,
                const xmlChar * str2, const xmlChar * str3)
{
    xmlDoErrValid(ctxt, node, error, XML_ERR_ERROR, str1, str2, str3, 0,
                  msg, str1, str2, str3);
}

#ifdef LIBXML_VALID_ENABLED
/**
 * Handle a validation error
 *
 * @param ctxt  an XML validation parser context
 * @param error  the error number
 * @param msg  the error message
 * @param extra  extra information
 */
static void LIBXML_ATTR_FORMAT(3,0)
xmlErrValid(xmlValidCtxtPtr ctxt, xmlParserErrors error,
            const char *msg, const char *extra)
{
    xmlDoErrValid(ctxt, NULL, error, XML_ERR_ERROR, (const xmlChar *) extra,
                  NULL, NULL, 0, msg, extra);
}

/**
 * Handle a validation error, provide contextual information
 *
 * @param ctxt  an XML validation parser context
 * @param node  the node raising the error
 * @param error  the error number
 * @param msg  the error message
 * @param str1  extra information
 * @param int2  extra information
 * @param str3  extra information
 */
static void LIBXML_ATTR_FORMAT(4,0)
xmlErrValidNodeNr(xmlValidCtxtPtr ctxt,
                xmlNodePtr node, xmlParserErrors error,
                const char *msg, const xmlChar * str1,
                int int2, const xmlChar * str3)
{
    xmlDoErrValid(ctxt, node, error, XML_ERR_ERROR, str1, str3, NULL, int2,
                  msg, str1, int2, str3);
}

/**
 * Handle a validation error, provide contextual information
 *
 * @param ctxt  an XML validation parser context
 * @param node  the node raising the error
 * @param error  the error number
 * @param msg  the error message
 * @param str1  extra information
 * @param str2  extra information
 * @param str3  extra information
 * @returns 0 on success, -1 if a memory allocation failed
 */
static int LIBXML_ATTR_FORMAT(4,0)
xmlErrValidWarning(xmlValidCtxtPtr ctxt,
                xmlNodePtr node, xmlParserErrors error,
                const char *msg, const xmlChar * str1,
                const xmlChar * str2, const xmlChar * str3)
{
    return xmlDoErrValid(ctxt, node, error, XML_ERR_WARNING, str1, str2, str3,
                         0, msg, str1, str2, str3);
}



#ifdef LIBXML_REGEXP_ENABLED
/*
 * If regexp are enabled we can do continuous validation without the
 * need of a tree to validate the content model. this is done in each
 * callbacks.
 * Each xmlValidState represent the validation state associated to the
 * set of nodes currently open from the document root to the current element.
 */


typedef struct _xmlValidState {
    xmlElementPtr  elemDecl;  /* pointer to the content model */
    xmlNodePtr           node;    /* pointer to the current node */
    xmlRegExecCtxtPtr    exec;    /* regexp runtime */
} _xmlValidState;


static int
vstateVPush(xmlValidCtxtPtr ctxt, xmlElementPtr elemDecl, xmlNodePtr node) {
    if (ctxt->vstateNr >= ctxt->vstateMax) {
        xmlValidState *tmp;
        int newSize;

        newSize = xmlGrowCapacity(ctxt->vstateMax, sizeof(tmp[0]),
                                  10, XML_MAX_ITEMS);
        if (newSize < 0) {
      xmlVErrMemory(ctxt);
      return(-1);
  }
  tmp = xmlRealloc(ctxt->vstateTab, newSize * sizeof(tmp[0]));
        if (tmp == NULL) {
      xmlVErrMemory(ctxt);
      return(-1);
  }
  ctxt->vstateTab = tmp;
  ctxt->vstateMax = newSize;
    }
    ctxt->vstate = &ctxt->vstateTab[ctxt->vstateNr];
    ctxt->vstateTab[ctxt->vstateNr].elemDecl = elemDecl;
    ctxt->vstateTab[ctxt->vstateNr].node = node;
    if ((elemDecl != NULL) && (elemDecl->etype == XML_ELEMENT_TYPE_ELEMENT)) {
  if (elemDecl->contModel == NULL)
      xmlValidBuildContentModel(ctxt, elemDecl);
  if (elemDecl->contModel != NULL) {
      ctxt->vstateTab[ctxt->vstateNr].exec =
    xmlRegNewExecCtxt(elemDecl->contModel, NULL, NULL);
            if (ctxt->vstateTab[ctxt->vstateNr].exec == NULL) {
                xmlVErrMemory(ctxt);
                return(-1);
            }
  } else {
      ctxt->vstateTab[ctxt->vstateNr].exec = NULL;
      xmlErrValidNode(ctxt, (xmlNodePtr) elemDecl,
                      XML_ERR_INTERNAL_ERROR,
          "Failed to build content model regexp for %s\n",
          node->name, NULL, NULL);
  }
    }
    return(ctxt->vstateNr++);
}

static int
vstateVPop(xmlValidCtxtPtr ctxt) {
    xmlElementPtr elemDecl;

    if (ctxt->vstateNr < 1) return(-1);
    ctxt->vstateNr--;
    elemDecl = ctxt->vstateTab[ctxt->vstateNr].elemDecl;
    ctxt->vstateTab[ctxt->vstateNr].elemDecl = NULL;
    ctxt->vstateTab[ctxt->vstateNr].node = NULL;
    if ((elemDecl != NULL) && (elemDecl->etype == XML_ELEMENT_TYPE_ELEMENT)) {
  xmlRegFreeExecCtxt(ctxt->vstateTab[ctxt->vstateNr].exec);
    }
    ctxt->vstateTab[ctxt->vstateNr].exec = NULL;
    if (ctxt->vstateNr >= 1)
  ctxt->vstate = &ctxt->vstateTab[ctxt->vstateNr - 1];
    else
  ctxt->vstate = NULL;
    return(ctxt->vstateNr);
}

#else /* not LIBXML_REGEXP_ENABLED */
/*
 * If regexp are not enabled, it uses a home made algorithm less
 * complex and easier to
 * debug/maintain than a generic NFA -> DFA state based algo. The
 * only restriction is on the deepness of the tree limited by the
 * size of the occurs bitfield
 *
 * this is the content of a saved state for rollbacks
 */

#define ROLLBACK_OR 0
#define ROLLBACK_PARENT 1

typedef struct _xmlValidState {
    xmlElementContentPtr cont;  /* pointer to the content model subtree */
    xmlNodePtr           node;  /* pointer to the current node in the list */
    long                 occurs;/* bitfield for multiple occurrences */
    unsigned char        depth; /* current depth in the overall tree */
    unsigned char        state; /* ROLLBACK_XXX */
} _xmlValidState;

#define MAX_RECURSE 25000
#define MAX_DEPTH ((sizeof(_xmlValidState.occurs)) * 8)
#define CONT ctxt->vstate->cont
#define NODE ctxt->vstate->node
#define DEPTH ctxt->vstate->depth
#define OCCURS ctxt->vstate->occurs
#define STATE ctxt->vstate->state

#define OCCURRENCE (ctxt->vstate->occurs & (1 << DEPTH))
#define PARENT_OCCURRENCE (ctxt->vstate->occurs & ((1 << DEPTH) - 1))

#define SET_OCCURRENCE ctxt->vstate->occurs |= (1 << DEPTH)
#define RESET_OCCURRENCE ctxt->vstate->occurs &= ((1 << DEPTH) - 1)

static int
vstateVPush(xmlValidCtxtPtr ctxt, xmlElementContentPtr cont,
      xmlNodePtr node, unsigned char depth, long occurs,
      unsigned char state) {
    int i = ctxt->vstateNr - 1;

    if (ctxt->vstateNr >= ctxt->vstateMax) {
        xmlValidState *tmp;
        int newSize;

        newSize = xmlGrowCapacity(ctxt->vstateMax, sizeof(tmp[0]),
                                  8, MAX_RECURSE);
        if (newSize < 0) {
            xmlVErrMemory(ctxt);
            return(-1);
        }
        tmp = xmlRealloc(ctxt->vstateTab, newSize * sizeof(tmp[0]));
        if (tmp == NULL) {
      xmlVErrMemory(ctxt);
      return(-1);
  }
  ctxt->vstateTab = tmp;
  ctxt->vstateMax = newSize;
  ctxt->vstate = &ctxt->vstateTab[0];
    }
    /*
     * Don't push on the stack a state already here
     */
    if ((i >= 0) && (ctxt->vstateTab[i].cont == cont) &&
  (ctxt->vstateTab[i].node == node) &&
  (ctxt->vstateTab[i].depth == depth) &&
  (ctxt->vstateTab[i].occurs == occurs) &&
  (ctxt->vstateTab[i].state == state))
  return(ctxt->vstateNr);
    ctxt->vstateTab[ctxt->vstateNr].cont = cont;
    ctxt->vstateTab[ctxt->vstateNr].node = node;
    ctxt->vstateTab[ctxt->vstateNr].depth = depth;
    ctxt->vstateTab[ctxt->vstateNr].occurs = occurs;
    ctxt->vstateTab[ctxt->vstateNr].state = state;
    return(ctxt->vstateNr++);
}

static int
vstateVPop(xmlValidCtxtPtr ctxt) {
    if (ctxt->vstateNr <= 1) return(-1);
    ctxt->vstateNr--;
    ctxt->vstate = &ctxt->vstateTab[0];
    ctxt->vstate->cont =  ctxt->vstateTab[ctxt->vstateNr].cont;
    ctxt->vstate->node = ctxt->vstateTab[ctxt->vstateNr].node;
    ctxt->vstate->depth = ctxt->vstateTab[ctxt->vstateNr].depth;
    ctxt->vstate->occurs = ctxt->vstateTab[ctxt->vstateNr].occurs;
    ctxt->vstate->state = ctxt->vstateTab[ctxt->vstateNr].state;
    return(ctxt->vstateNr);
}

#endif /* LIBXML_REGEXP_ENABLED */

static int
nodeVPush(xmlValidCtxtPtr ctxt, xmlNodePtr value)
{
    if (ctxt->nodeNr >= ctxt->nodeMax) {
        xmlNodePtr *tmp;
        int newSize;

        newSize = xmlGrowCapacity(ctxt->nodeMax, sizeof(tmp[0]),
                                  4, XML_MAX_ITEMS);
        if (newSize < 0) {
      xmlVErrMemory(ctxt);
            return (-1);
        }
        tmp = xmlRealloc(ctxt->nodeTab, newSize * sizeof(tmp[0]));
        if (tmp == NULL) {
      xmlVErrMemory(ctxt);
            return (-1);
        }
  ctxt->nodeTab = tmp;
        ctxt->nodeMax = newSize;
    }
    ctxt->nodeTab[ctxt->nodeNr] = value;
    ctxt->node = value;
    return (ctxt->nodeNr++);
}
static xmlNodePtr
nodeVPop(xmlValidCtxtPtr ctxt)
{
    xmlNodePtr ret;

    if (ctxt->nodeNr <= 0)
        return (NULL);
    ctxt->nodeNr--;
    if (ctxt->nodeNr > 0)
        ctxt->node = ctxt->nodeTab[ctxt->nodeNr - 1];
    else
        ctxt->node = NULL;
    ret = ctxt->nodeTab[ctxt->nodeNr];
    ctxt->nodeTab[ctxt->nodeNr] = NULL;
    return (ret);
}

/* TODO: use hash table for accesses to elem and attribute definitions */


#define CHECK_DTD           \
   if (doc == NULL) return(0);         \
   else if ((doc->intSubset == NULL) &&       \
      (doc->extSubset == NULL)) return(0)

#ifdef LIBXML_REGEXP_ENABLED

/************************************************************************
 *                  *
 *    Content model validation based on the regexps   *
 *                  *
 ************************************************************************/

/**
 * Generate the automata sequence needed for that type
 *
 * @param content  the content model
 * @param ctxt  the schema parser context
 * @param name  the element name whose content is being built
 * @returns 1 if successful or 0 in case of error.
 */
static int
xmlValidBuildAContentModel(xmlElementContentPtr content,
               xmlValidCtxtPtr ctxt,
               const xmlChar *name) {
    if (content == NULL) {
  xmlErrValidNode(ctxt, NULL, XML_ERR_INTERNAL_ERROR,
      "Found NULL content in content model of %s\n",
      name, NULL, NULL);
  return(0);
    }
    switch (content->type) {
  case XML_ELEMENT_CONTENT_PCDATA:
      xmlErrValidNode(ctxt, NULL, XML_ERR_INTERNAL_ERROR,
          "Found PCDATA in content model of %s\n",
                name, NULL, NULL);
      return(0);
      break;
  case XML_ELEMENT_CONTENT_ELEMENT: {
      xmlAutomataStatePtr oldstate = ctxt->state;
      xmlChar fn[50];
      xmlChar *fullname;

      fullname = xmlBuildQName(content->name, content->prefix, fn, 50);
      if (fullname == NULL) {
          xmlVErrMemory(ctxt);
    return(0);
      }

      switch (content->ocur) {
    case XML_ELEMENT_CONTENT_ONCE:
        ctxt->state = xmlAutomataNewTransition(ctxt->am,
          ctxt->state, NULL, fullname, NULL);
        break;
    case XML_ELEMENT_CONTENT_OPT:
        ctxt->state = xmlAutomataNewTransition(ctxt->am,
          ctxt->state, NULL, fullname, NULL);
        xmlAutomataNewEpsilon(ctxt->am, oldstate, ctxt->state);
        break;
    case XML_ELEMENT_CONTENT_PLUS:
        ctxt->state = xmlAutomataNewTransition(ctxt->am,
          ctxt->state, NULL, fullname, NULL);
        xmlAutomataNewTransition(ctxt->am, ctxt->state,
                           ctxt->state, fullname, NULL);
        break;
    case XML_ELEMENT_CONTENT_MULT:
        ctxt->state = xmlAutomataNewEpsilon(ctxt->am,
              ctxt->state, NULL);
        xmlAutomataNewTransition(ctxt->am,
          ctxt->state, ctxt->state, fullname, NULL);
        break;
      }
      if ((fullname != fn) && (fullname != content->name))
    xmlFree(fullname);
      break;
  }
  case XML_ELEMENT_CONTENT_SEQ: {
      xmlAutomataStatePtr oldstate, oldend;
      xmlElementContentOccur ocur;

      /*
       * Simply iterate over the content
       */
      oldstate = ctxt->state;
      ocur = content->ocur;
      if (ocur != XML_ELEMENT_CONTENT_ONCE) {
    ctxt->state = xmlAutomataNewEpsilon(ctxt->am, oldstate, NULL);
    oldstate = ctxt->state;
      }
      do {
    if (xmlValidBuildAContentModel(content->c1, ctxt, name) == 0)
                    return(0);
    content = content->c2;
      } while ((content->type == XML_ELEMENT_CONTENT_SEQ) &&
         (content->ocur == XML_ELEMENT_CONTENT_ONCE));
      if (xmlValidBuildAContentModel(content, ctxt, name) == 0)
                return(0);
      oldend = ctxt->state;
      ctxt->state = xmlAutomataNewEpsilon(ctxt->am, oldend, NULL);
      switch (ocur) {
    case XML_ELEMENT_CONTENT_ONCE:
        break;
    case XML_ELEMENT_CONTENT_OPT:
        xmlAutomataNewEpsilon(ctxt->am, oldstate, ctxt->state);
        break;
    case XML_ELEMENT_CONTENT_MULT:
        xmlAutomataNewEpsilon(ctxt->am, oldstate, ctxt->state);
        xmlAutomataNewEpsilon(ctxt->am, oldend, oldstate);
        break;
    case XML_ELEMENT_CONTENT_PLUS:
        xmlAutomataNewEpsilon(ctxt->am, oldend, oldstate);
        break;
      }
      break;
  }
  case XML_ELEMENT_CONTENT_OR: {
      xmlAutomataStatePtr oldstate, oldend;
      xmlElementContentOccur ocur;

      ocur = content->ocur;
      if ((ocur == XML_ELEMENT_CONTENT_PLUS) ||
    (ocur == XML_ELEMENT_CONTENT_MULT)) {
    ctxt->state = xmlAutomataNewEpsilon(ctxt->am,
      ctxt->state, NULL);
      }
      oldstate = ctxt->state;
      oldend = xmlAutomataNewState(ctxt->am);

      /*
       * iterate over the subtypes and remerge the end with an
       * epsilon transition
       */
      do {
    ctxt->state = oldstate;
    if (xmlValidBuildAContentModel(content->c1, ctxt, name) == 0)
                    return(0);
    xmlAutomataNewEpsilon(ctxt->am, ctxt->state, oldend);
    content = content->c2;
      } while ((content->type == XML_ELEMENT_CONTENT_OR) &&
         (content->ocur == XML_ELEMENT_CONTENT_ONCE));
      ctxt->state = oldstate;
      if (xmlValidBuildAContentModel(content, ctxt, name) == 0)
                return(0);
      xmlAutomataNewEpsilon(ctxt->am, ctxt->state, oldend);
      ctxt->state = xmlAutomataNewEpsilon(ctxt->am, oldend, NULL);
      switch (ocur) {
    case XML_ELEMENT_CONTENT_ONCE:
        break;
    case XML_ELEMENT_CONTENT_OPT:
        xmlAutomataNewEpsilon(ctxt->am, oldstate, ctxt->state);
        break;
    case XML_ELEMENT_CONTENT_MULT:
        xmlAutomataNewEpsilon(ctxt->am, oldstate, ctxt->state);
        xmlAutomataNewEpsilon(ctxt->am, oldend, oldstate);
        break;
    case XML_ELEMENT_CONTENT_PLUS:
        xmlAutomataNewEpsilon(ctxt->am, oldend, oldstate);
        break;
      }
      break;
  }
  default:
      xmlErrValid(ctxt, XML_ERR_INTERNAL_ERROR,
                  "ContentModel broken for element %s\n",
      (const char *) name);
      return(0);
    }
    return(1);
}
/**
 * (Re)Build the automata associated to the content model of this
 * element
 *
 * @deprecated Internal function, don't use.
 *
 * @param ctxt  a validation context
 * @param elem  an element declaration node
 * @returns 1 in case of success, 0 in case of error
 */
int
xmlValidBuildContentModel(xmlValidCtxt *ctxt, xmlElement *elem) {
    int ret = 0;

    if ((ctxt == NULL) || (elem == NULL))
  return(0);
    if (elem->type != XML_ELEMENT_DECL)
  return(0);
    if (elem->etype != XML_ELEMENT_TYPE_ELEMENT)
  return(1);
    /* TODO: should we rebuild in this case ? */
    if (elem->contModel != NULL) {
  if (!xmlRegexpIsDeterminist(elem->contModel)) {
      ctxt->valid = 0;
      return(0);
  }
  return(1);
    }

    ctxt->am = xmlNewAutomata();
    if (ctxt->am == NULL) {
        xmlVErrMemory(ctxt);
  return(0);
    }
    ctxt->state = xmlAutomataGetInitState(ctxt->am);
    if (xmlValidBuildAContentModel(elem->content, ctxt, elem->name) == 0)
        goto done;
    xmlAutomataSetFinalState(ctxt->am, ctxt->state);
    elem->contModel = xmlAutomataCompile(ctxt->am);
    if (elem->contModel == NULL) {
        xmlVErrMemory(ctxt);
        goto done;
    }
    if (xmlRegexpIsDeterminist(elem->contModel) != 1) {
  char expr[5000];
  expr[0] = 0;
  xmlSnprintfElementContent(expr, 5000, elem->content, 1);
  xmlErrValidNode(ctxt, (xmlNodePtr) elem,
                  XML_DTD_CONTENT_NOT_DETERMINIST,
         "Content model of %s is not deterministic: %s\n",
         elem->name, BAD_CAST expr, NULL);
        ctxt->valid = 0;
  goto done;
    }

    ret = 1;

done:
    ctxt->state = NULL;
    xmlFreeAutomata(ctxt->am);
    ctxt->am = NULL;
    return(ret);
}

#endif /* LIBXML_REGEXP_ENABLED */

/****************************************************************
 *                *
 *  Util functions for data allocation/deallocation   *
 *                *
 ****************************************************************/

/**
 * Allocate a validation context structure.
 *
 * @returns the new validation context or NULL if a memory
 * allocation failed.
 */
xmlValidCtxt *xmlNewValidCtxt(void) {
    xmlValidCtxtPtr ret;

    ret = xmlMalloc(sizeof (xmlValidCtxt));
    if (ret == NULL)
  return (NULL);

    (void) memset(ret, 0, sizeof (xmlValidCtxt));
    ret->flags |= XML_VCTXT_VALIDATE;

    return (ret);
}

/**
 * Free a validation context structure.
 *
 * @param cur  the validation context to free
 */
void
xmlFreeValidCtxt(xmlValidCtxt *cur) {
    if (cur == NULL)
        return;
    if (cur->vstateTab != NULL)
        xmlFree(cur->vstateTab);
    if (cur->nodeTab != NULL)
        xmlFree(cur->nodeTab);
    xmlFree(cur);
}

#endif /* LIBXML_VALID_ENABLED */

/**
 * Allocate an element content structure for the document.
 *
 * @deprecated Internal function, don't use.
 *
 * @param doc  the document
 * @param name  the subelement name or NULL
 * @param type  the type of element content decl
 * @returns the new element content structure or NULL on
 * error.
 */
xmlElementContent *
xmlNewDocElementContent(xmlDoc *doc, const xmlChar *name,
                        xmlElementContentType type) {
    xmlElementContentPtr ret;
    xmlDictPtr dict = NULL;

    if (doc != NULL)
        dict = doc->dict;

    ret = (xmlElementContentPtr) xmlMalloc(sizeof(xmlElementContent));
    if (ret == NULL)
  return(NULL);
    memset(ret, 0, sizeof(xmlElementContent));
    ret->type = type;
    ret->ocur = XML_ELEMENT_CONTENT_ONCE;
    if (name != NULL) {
        int l;
  const xmlChar *tmp;

  tmp = xmlSplitQName3(name, &l);
  if (tmp == NULL) {
      if (dict == NULL)
    ret->name = xmlStrdup(name);
      else
          ret->name = xmlDictLookup(dict, name, -1);
  } else {
      if (dict == NULL) {
    ret->prefix = xmlStrndup(name, l);
    ret->name = xmlStrdup(tmp);
      } else {
          ret->prefix = xmlDictLookup(dict, name, l);
    ret->name = xmlDictLookup(dict, tmp, -1);
      }
            if (ret->prefix == NULL)
                goto error;
  }
        if (ret->name == NULL)
            goto error;
    }
    return(ret);

error:
    xmlFreeDocElementContent(doc, ret);
    return(NULL);
}

/**
 * Allocate an element content structure.
 * Deprecated in favor of #xmlNewDocElementContent
 *
 * @deprecated Internal function, don't use.
 *
 * @param name  the subelement name or NULL
 * @param type  the type of element content decl
 * @returns the new element content structure or NULL on
 * error.
 */
xmlElementContent *
xmlNewElementContent(const xmlChar *name, xmlElementContentType type) {
    return(xmlNewDocElementContent(NULL, name, type));
}

/**
 * Build a copy of an element content description.
 *
 * @deprecated Internal function, don't use.
 *
 * @param doc  the document owning the element declaration
 * @param cur  An element content pointer.
 * @returns the new xmlElementContent or NULL in case of error.
 */
xmlElementContent *
xmlCopyDocElementContent(xmlDoc *doc, xmlElementContent *cur) {
    xmlElementContentPtr ret = NULL, prev = NULL, tmp;
    xmlDictPtr dict = NULL;

    if (cur == NULL) return(NULL);

    if (doc != NULL)
        dict = doc->dict;

    ret = (xmlElementContentPtr) xmlMalloc(sizeof(xmlElementContent));
    if (ret == NULL)
  return(NULL);
    memset(ret, 0, sizeof(xmlElementContent));
    ret->type = cur->type;
    ret->ocur = cur->ocur;
    if (cur->name != NULL) {
  if (dict)
      ret->name = xmlDictLookup(dict, cur->name, -1);
  else
      ret->name = xmlStrdup(cur->name);
        if (ret->name == NULL)
            goto error;
    }

    if (cur->prefix != NULL) {
  if (dict)
      ret->prefix = xmlDictLookup(dict, cur->prefix, -1);
  else
      ret->prefix = xmlStrdup(cur->prefix);
        if (ret->prefix == NULL)
            goto error;
    }
    if (cur->c1 != NULL) {
        ret->c1 = xmlCopyDocElementContent(doc, cur->c1);
        if (ret->c1 == NULL)
            goto error;
  ret->c1->parent = ret;
    }
    if (cur->c2 != NULL) {
        prev = ret;
  cur = cur->c2;
  while (cur != NULL) {
      tmp = (xmlElementContentPtr) xmlMalloc(sizeof(xmlElementContent));
      if (tmp == NULL)
                goto error;
      memset(tmp, 0, sizeof(xmlElementContent));
      tmp->type = cur->type;
      tmp->ocur = cur->ocur;
      prev->c2 = tmp;
      tmp->parent = prev;
      if (cur->name != NULL) {
    if (dict)
        tmp->name = xmlDictLookup(dict, cur->name, -1);
    else
        tmp->name = xmlStrdup(cur->name);
                if (tmp->name == NULL)
                    goto error;
      }

      if (cur->prefix != NULL) {
    if (dict)
        tmp->prefix = xmlDictLookup(dict, cur->prefix, -1);
    else
        tmp->prefix = xmlStrdup(cur->prefix);
                if (tmp->prefix == NULL)
                    goto error;
      }
      if (cur->c1 != NULL) {
          tmp->c1 = xmlCopyDocElementContent(doc,cur->c1);
          if (tmp->c1 == NULL)
                    goto error;
    tmp->c1->parent = tmp;
            }
      prev = tmp;
      cur = cur->c2;
  }
    }
    return(ret);

error:
    xmlFreeElementContent(ret);
    return(NULL);
}

/**
 * Build a copy of an element content description.
 * Deprecated, use #xmlCopyDocElementContent instead
 *
 * @deprecated Internal function, don't use.
 *
 * @param cur  An element content pointer.
 * @returns the new xmlElementContent or NULL in case of error.
 */
xmlElementContent *
xmlCopyElementContent(xmlElementContent *cur) {
    return(xmlCopyDocElementContent(NULL, cur));
}

/**
 * Free an element content structure. The whole subtree is removed.
 *
 * @deprecated Internal function, don't use.
 *
 * @param doc  the document owning the element declaration
 * @param cur  the element content tree to free
 */
void
xmlFreeDocElementContent(xmlDoc *doc, xmlElementContent *cur) {
    xmlDictPtr dict = NULL;
    size_t depth = 0;

    if (cur == NULL)
        return;
    if (doc != NULL)
        dict = doc->dict;

    while (1) {
        xmlElementContentPtr parent;

        while ((cur->c1 != NULL) || (cur->c2 != NULL)) {
            cur = (cur->c1 != NULL) ? cur->c1 : cur->c2;
            depth += 1;
        }

  if (dict) {
      if ((cur->name != NULL) && (!xmlDictOwns(dict, cur->name)))
          xmlFree((xmlChar *) cur->name);
      if ((cur->prefix != NULL) && (!xmlDictOwns(dict, cur->prefix)))
          xmlFree((xmlChar *) cur->prefix);
  } else {
      if (cur->name != NULL) xmlFree((xmlChar *) cur->name);
      if (cur->prefix != NULL) xmlFree((xmlChar *) cur->prefix);
  }
        parent = cur->parent;
        if ((depth == 0) || (parent == NULL)) {
            xmlFree(cur);
            break;
        }
        if (cur == parent->c1)
            parent->c1 = NULL;
        else
            parent->c2 = NULL;
  xmlFree(cur);

        if (parent->c2 != NULL) {
      cur = parent->c2;
        } else {
            depth -= 1;
            cur = parent;
        }
    }
}

/**
 * Free an element content structure. The whole subtree is removed.
 * Deprecated, use #xmlFreeDocElementContent instead
 *
 * @deprecated Internal function, don't use.
 *
 * @param cur  the element content tree to free
 */
void
xmlFreeElementContent(xmlElementContent *cur) {
    xmlFreeDocElementContent(NULL, cur);
}

#ifdef LIBXML_OUTPUT_ENABLED
/**
 * Deprecated, unsafe, use #xmlSnprintfElementContent
 *
 * @deprecated Internal function, don't use.
 *
 * @param buf  an output buffer
 * @param content  An element table
 * @param englob  1 if one must print the englobing parenthesis, 0 otherwise
 */
void
xmlSprintfElementContent(char *buf ATTRIBUTE_UNUSED,
                   xmlElementContent *content ATTRIBUTE_UNUSED,
       int englob ATTRIBUTE_UNUSED) {
}
#endif /* LIBXML_OUTPUT_ENABLED */

/**
 * This will dump the content of the element content definition
 * Intended just for the debug routine
 *
 * @deprecated Internal function, don't use.
 *
 * @param buf  an output buffer
 * @param size  the buffer size
 * @param content  An element table
 * @param englob  1 if one must print the englobing parenthesis, 0 otherwise
 */
void
xmlSnprintfElementContent(char *buf, int size, xmlElementContent *content, int englob) {
    int len;

    if (content == NULL) return;
    len = strlen(buf);
    if (size - len < 50) {
  if ((size - len > 4) && (buf[len - 1] != '.'))
      strcat(buf, " ...");
  return;
    }
    if (englob) strcat(buf, "(");
    switch (content->type) {
        case XML_ELEMENT_CONTENT_PCDATA:
            strcat(buf, "#PCDATA");
      break;
  case XML_ELEMENT_CONTENT_ELEMENT: {
            int qnameLen = xmlStrlen(content->name);

      if (content->prefix != NULL)
                qnameLen += xmlStrlen(content->prefix) + 1;
      if (size - len < qnameLen + 10) {
    strcat(buf, " ...");
    return;
      }
      if (content->prefix != NULL) {
    strcat(buf, (char *) content->prefix);
    strcat(buf, ":");
      }
      if (content->name != NULL)
    strcat(buf, (char *) content->name);
      break;
        }
  case XML_ELEMENT_CONTENT_SEQ:
      if ((content->c1->type == XML_ELEMENT_CONTENT_OR) ||
          (content->c1->type == XML_ELEMENT_CONTENT_SEQ))
    xmlSnprintfElementContent(buf, size, content->c1, 1);
      else
    xmlSnprintfElementContent(buf, size, content->c1, 0);
      len = strlen(buf);
      if (size - len < 50) {
    if ((size - len > 4) && (buf[len - 1] != '.'))
        strcat(buf, " ...");
    return;
      }
            strcat(buf, " , ");
      if (((content->c2->type == XML_ELEMENT_CONTENT_OR) ||
     (content->c2->ocur != XML_ELEMENT_CONTENT_ONCE)) &&
    (content->c2->type != XML_ELEMENT_CONTENT_ELEMENT))
    xmlSnprintfElementContent(buf, size, content->c2, 1);
      else
    xmlSnprintfElementContent(buf, size, content->c2, 0);
      break;
  case XML_ELEMENT_CONTENT_OR:
      if ((content->c1->type == XML_ELEMENT_CONTENT_OR) ||
          (content->c1->type == XML_ELEMENT_CONTENT_SEQ))
    xmlSnprintfElementContent(buf, size, content->c1, 1);
      else
    xmlSnprintfElementContent(buf, size, content->c1, 0);
      len = strlen(buf);
      if (size - len < 50) {
    if ((size - len > 4) && (buf[len - 1] != '.'))
        strcat(buf, " ...");
    return;
      }
            strcat(buf, " | ");
      if (((content->c2->type == XML_ELEMENT_CONTENT_SEQ) ||
     (content->c2->ocur != XML_ELEMENT_CONTENT_ONCE)) &&
    (content->c2->type != XML_ELEMENT_CONTENT_ELEMENT))
    xmlSnprintfElementContent(buf, size, content->c2, 1);
      else
    xmlSnprintfElementContent(buf, size, content->c2, 0);
      break;
    }
    if (size - strlen(buf) <= 2) return;
    if (englob)
        strcat(buf, ")");
    switch (content->ocur) {
        case XML_ELEMENT_CONTENT_ONCE:
      break;
        case XML_ELEMENT_CONTENT_OPT:
      strcat(buf, "?");
      break;
        case XML_ELEMENT_CONTENT_MULT:
      strcat(buf, "*");
      break;
        case XML_ELEMENT_CONTENT_PLUS:
      strcat(buf, "+");
      break;
    }
}

/****************************************************************
 *                *
 *  Registration of DTD declarations      *
 *                *
 ****************************************************************/

/**
 * Deallocate the memory used by an element definition
 *
 * @param elem  an element
 */
static void
xmlFreeElement(xmlElementPtr elem) {
    if (elem == NULL) return;
    xmlUnlinkNode((xmlNodePtr) elem);
    xmlFreeDocElementContent(elem->doc, elem->content);
    if (elem->name != NULL)
  xmlFree((xmlChar *) elem->name);
    if (elem->prefix != NULL)
  xmlFree((xmlChar *) elem->prefix);
#ifdef LIBXML_REGEXP_ENABLED
    if (elem->contModel != NULL)
  xmlRegFreeRegexp(elem->contModel);
#endif
    xmlFree(elem);
}


/**
 * Register a new element declaration.
 *
 * @param ctxt  the validation context (optional)
 * @param dtd  pointer to the DTD
 * @param name  the entity name
 * @param type  the element type
 * @param content  the element content tree or NULL
 * @returns the entity or NULL on error.
 */
xmlElement *
xmlAddElementDecl(xmlValidCtxt *ctxt,
                  xmlDtd *dtd, const xmlChar *name,
                  xmlElementTypeVal type,
      xmlElementContent *content) {
    xmlElementPtr ret;
    xmlElementTablePtr table;
    xmlAttributePtr oldAttributes = NULL;
    const xmlChar *localName;
    xmlChar *prefix = NULL;

    if ((dtd == NULL) || (name == NULL))
  return(NULL);

    switch (type) {
        case XML_ELEMENT_TYPE_EMPTY:
        case XML_ELEMENT_TYPE_ANY:
            if (content != NULL)
                return(NULL);
            break;
        case XML_ELEMENT_TYPE_MIXED:
        case XML_ELEMENT_TYPE_ELEMENT:
            if (content == NULL)
                return(NULL);
            break;
        default:
            return(NULL);
    }

    /*
     * check if name is a QName
     */
    localName = xmlSplitQName4(name, &prefix);
    if (localName == NULL)
        goto mem_error;

    /*
     * Create the Element table if needed.
     */
    table = (xmlElementTablePtr) dtd->elements;
    if (table == NULL) {
  xmlDictPtr dict = NULL;

  if (dtd->doc != NULL)
      dict = dtd->doc->dict;
        table = xmlHashCreateDict(0, dict);
        if (table == NULL)
            goto mem_error;
  dtd->elements = (void *) table;
    }

    /*
     * lookup old attributes inserted on an undefined element in the
     * internal subset.
     */
    if ((dtd->doc != NULL) && (dtd->doc->intSubset != NULL)) {
  ret = xmlHashLookup2(dtd->doc->intSubset->elements, localName, prefix);
  if ((ret != NULL) && (ret->etype == XML_ELEMENT_TYPE_UNDEFINED)) {
      oldAttributes = ret->attributes;
      ret->attributes = NULL;
      xmlHashRemoveEntry2(dtd->doc->intSubset->elements, localName, prefix,
                                NULL);
      xmlFreeElement(ret);
  }
    }

    /*
     * The element may already be present if one of its attribute
     * was registered first
     */
    ret = xmlHashLookup2(table, localName, prefix);
    if (ret != NULL) {
  if (ret->etype != XML_ELEMENT_TYPE_UNDEFINED) {
#ifdef LIBXML_VALID_ENABLED
      /*
       * The element is already defined in this DTD.
       */
            if ((ctxt != NULL) && (ctxt->flags & XML_VCTXT_VALIDATE))
                xmlErrValidNode(ctxt, (xmlNodePtr) dtd, XML_DTD_ELEM_REDEFINED,
                                "Redefinition of element %s\n",
                                name, NULL, NULL);
#endif /* LIBXML_VALID_ENABLED */
            if (prefix != NULL)
          xmlFree(prefix);
      return(NULL);
  }
  if (prefix != NULL) {
      xmlFree(prefix);
      prefix = NULL;
  }
    } else {
        int res;

  ret = (xmlElementPtr) xmlMalloc(sizeof(xmlElement));
  if (ret == NULL)
            goto mem_error;
  memset(ret, 0, sizeof(xmlElement));
  ret->type = XML_ELEMENT_DECL;

  /*
   * fill the structure.
   */
  ret->name = xmlStrdup(localName);
  if (ret->name == NULL) {
      xmlFree(ret);
      goto mem_error;
  }
  ret->prefix = prefix;
        prefix = NULL;

  /*
   * Validity Check:
   * Insertion must not fail
   */
        res = xmlHashAdd2(table, localName, ret->prefix, ret);
        if (res <= 0) {
      xmlFreeElement(ret);
            goto mem_error;
  }
  /*
   * For new element, may have attributes from earlier
   * definition in internal subset
   */
  ret->attributes = oldAttributes;
    }

    /*
     * Finish to fill the structure.
     */
    ret->etype = type;
    /*
     * Avoid a stupid copy when called by the parser
     * and flag it by setting a special parent value
     * so the parser doesn't unallocate it.
     */
    if (content != NULL) {
        if ((ctxt != NULL) && (ctxt->flags & XML_VCTXT_USE_PCTXT)) {
            ret->content = content;
            content->parent = (xmlElementContentPtr) 1;
        } else if (content != NULL){
            ret->content = xmlCopyDocElementContent(dtd->doc, content);
            if (ret->content == NULL)
                goto mem_error;
        }
    }

    /*
     * Link it to the DTD
     */
    ret->parent = dtd;
    ret->doc = dtd->doc;
    if (dtd->last == NULL) {
  dtd->children = dtd->last = (xmlNodePtr) ret;
    } else {
        dtd->last->next = (xmlNodePtr) ret;
  ret->prev = dtd->last;
  dtd->last = (xmlNodePtr) ret;
    }
    if (prefix != NULL)
  xmlFree(prefix);
    return(ret);

mem_error:
    xmlVErrMemory(ctxt);
    if (prefix != NULL)
        xmlFree(prefix);
    return(NULL);
}

static void
xmlFreeElementTableEntry(void *elem, const xmlChar *name ATTRIBUTE_UNUSED) {
    xmlFreeElement((xmlElementPtr) elem);
}

/**
 * Deallocate the memory used by an element hash table.
 *
 * @deprecated Internal function, don't use.
 *
 * @param table  An element table
 */
void
xmlFreeElementTable(xmlElementTable *table) {
    xmlHashFree(table, xmlFreeElementTableEntry);
}

/**
 * Build a copy of an element.
 *
 * @param payload  an element
 * @param name  unused
 * @returns the new xmlElement or NULL in case of error.
 */
static void *
xmlCopyElement(void *payload, const xmlChar *name ATTRIBUTE_UNUSED) {
    xmlElementPtr elem = (xmlElementPtr) payload;
    xmlElementPtr cur;

    cur = (xmlElementPtr) xmlMalloc(sizeof(xmlElement));
    if (cur == NULL)
  return(NULL);
    memset(cur, 0, sizeof(xmlElement));
    cur->type = XML_ELEMENT_DECL;
    cur->etype = elem->etype;
    if (elem->name != NULL) {
  cur->name = xmlStrdup(elem->name);
        if (cur->name == NULL)
            goto error;
    }
    if (elem->prefix != NULL) {
  cur->prefix = xmlStrdup(elem->prefix);
        if (cur->prefix == NULL)
            goto error;
    }
    if (elem->content != NULL) {
        cur->content = xmlCopyElementContent(elem->content);
        if (cur->content == NULL)
            goto error;
    }
    /* TODO : rebuild the attribute list on the copy */
    cur->attributes = NULL;
    return(cur);

error:
    xmlFreeElement(cur);
    return(NULL);
}

/**
 * Build a copy of an element table.
 *
 * @deprecated Internal function, don't use.
 *
 * @param table  An element table
 * @returns the new xmlElementTable or NULL in case of error.
 */
xmlElementTable *
xmlCopyElementTable(xmlElementTable *table) {
    return(xmlHashCopySafe(table, xmlCopyElement, xmlFreeElementTableEntry));
}

#ifdef LIBXML_OUTPUT_ENABLED
/**
 * This will dump the content of the element declaration as an XML
 * DTD definition.
 *
 * @deprecated Use #xmlSaveTree.
 *
 * @param buf  the XML buffer output
 * @param elem  An element table
 */
void
xmlDumpElementDecl(xmlBuffer *buf, xmlElement *elem) {
    xmlSaveCtxtPtr save;

    if ((buf == NULL) || (elem == NULL))
        return;

    save = xmlSaveToBuffer(buf, NULL, 0);
    xmlSaveTree(save, (xmlNodePtr) elem);
    if (xmlSaveFinish(save) != XML_ERR_OK)
        xmlFree(xmlBufferDetach(buf));
}

/**
 * This routine is used by the hash scan function.  It just reverses
 * the arguments.
 *
 * @param elem  an element declaration
 * @param save  a save context
 * @param name  unused
 */
static void
xmlDumpElementDeclScan(void *elem, void *save,
                       const xmlChar *name ATTRIBUTE_UNUSED) {
    xmlSaveTree(save, elem);
}

/**
 * This will dump the content of the element table as an XML DTD
 * definition.
 *
 * @deprecated Don't use.
 *
 * @param buf  the XML buffer output
 * @param table  An element table
 */
void
xmlDumpElementTable(xmlBuffer *buf, xmlElementTable *table) {
    xmlSaveCtxtPtr save;

    if ((buf == NULL) || (table == NULL))
        return;

    save = xmlSaveToBuffer(buf, NULL, 0);
    xmlHashScan(table, xmlDumpElementDeclScan, save);
    if (xmlSaveFinish(save) != XML_ERR_OK)
        xmlFree(xmlBufferDetach(buf));
}
#endif /* LIBXML_OUTPUT_ENABLED */

/**
 * Create and initialize an enumeration attribute node.
 *
 * @deprecated Internal function, don't use.
 *
 * @param name  the enumeration name or NULL
 * @returns the xmlEnumeration just created or NULL in case
 * of error.
 */
xmlEnumeration *
xmlCreateEnumeration(const xmlChar *name) {
    xmlEnumerationPtr ret;

    ret = (xmlEnumerationPtr) xmlMalloc(sizeof(xmlEnumeration));
    if (ret == NULL)
        return(NULL);
    memset(ret, 0, sizeof(xmlEnumeration));

    if (name != NULL) {
        ret->name = xmlStrdup(name);
        if (ret->name == NULL) {
            xmlFree(ret);
            return(NULL);
        }
    }

    return(ret);
}

/**
 * Free an enumeration attribute node (recursive).
 *
 * @param cur  the tree to free.
 */
void
xmlFreeEnumeration(xmlEnumeration *cur) {
    while (cur != NULL) {
        xmlEnumerationPtr next = cur->next;

        xmlFree((xmlChar *) cur->name);
        xmlFree(cur);

        cur = next;
    }
}

/**
 * Copy an enumeration attribute node (recursive).
 *
 * @deprecated Internal function, don't use.
 *
 * @param cur  the tree to copy.
 * @returns the xmlEnumeration just created or NULL in case
 * of error.
 */
xmlEnumeration *
xmlCopyEnumeration(xmlEnumeration *cur) {
    xmlEnumerationPtr ret = NULL;
    xmlEnumerationPtr last = NULL;

    while (cur != NULL) {
        xmlEnumerationPtr copy = xmlCreateEnumeration(cur->name);

        if (copy == NULL) {
            xmlFreeEnumeration(ret);
            return(NULL);
        }

        if (ret == NULL) {
            ret = last = copy;
        } else {
            last->next = copy;
            last = copy;
        }

        cur = cur->next;
    }

    return(ret);
}

#ifdef LIBXML_VALID_ENABLED
/**
 * Verify that the element doesn't have too many ID attributes
 * declared.
 *
 * @param ctxt  the validation context
 * @param elem  the element name
 * @param err  whether to raise errors here
 * @returns the number of ID attributes found.
 */
static int
xmlScanIDAttributeDecl(xmlValidCtxtPtr ctxt, xmlElementPtr elem, int err) {
    xmlAttributePtr cur;
    int ret = 0;

    if (elem == NULL) return(0);
    cur = elem->attributes;
    while (cur != NULL) {
        if (cur->atype == XML_ATTRIBUTE_ID) {
      ret ++;
      if ((ret > 1) && (err))
    xmlErrValidNode(ctxt, (xmlNodePtr) elem, XML_DTD_MULTIPLE_ID,
         "Element %s has too many ID attributes defined : %s\n",
           elem->name, cur->name, NULL);
  }
  cur = cur->nexth;
    }
    return(ret);
}
#endif /* LIBXML_VALID_ENABLED */

/**
 * Deallocate the memory used by an attribute definition.
 *
 * @param attr  an attribute
 */
static void
xmlFreeAttribute(xmlAttributePtr attr) {
    xmlDictPtr dict;

    if (attr == NULL) return;
    if (attr->doc != NULL)
  dict = attr->doc->dict;
    else
  dict = NULL;
    xmlUnlinkNode((xmlNodePtr) attr);
    if (attr->tree != NULL)
        xmlFreeEnumeration(attr->tree);
    if (dict) {
        if ((attr->elem != NULL) && (!xmlDictOwns(dict, attr->elem)))
      xmlFree((xmlChar *) attr->elem);
        if ((attr->name != NULL) && (!xmlDictOwns(dict, attr->name)))
      xmlFree((xmlChar *) attr->name);
        if ((attr->prefix != NULL) && (!xmlDictOwns(dict, attr->prefix)))
      xmlFree((xmlChar *) attr->prefix);
    } else {
  if (attr->elem != NULL)
      xmlFree((xmlChar *) attr->elem);
  if (attr->name != NULL)
      xmlFree((xmlChar *) attr->name);
  if (attr->prefix != NULL)
      xmlFree((xmlChar *) attr->prefix);
    }
    if (attr->defaultValue != NULL)
        xmlFree(attr->defaultValue);
    xmlFree(attr);
}


/**
 * Register a new attribute declaration.
 *
 * @param ctxt  the validation context (optional)
 * @param dtd  pointer to the DTD
 * @param elem  the element name
 * @param name  the attribute name
 * @param ns  the attribute namespace prefix
 * @param type  the attribute type
 * @param def  the attribute default type
 * @param defaultValue  the attribute default value
 * @param tree  if it's an enumeration, the associated list
 * @returns the attribute decl or NULL on error.
 */
xmlAttribute *
xmlAddAttributeDecl(xmlValidCtxt *ctxt,
                    xmlDtd *dtd, const xmlChar *elem,
                    const xmlChar *name, const xmlChar *ns,
        xmlAttributeType type, xmlAttributeDefault def,
        const xmlChar *defaultValue, xmlEnumeration *tree) {
    xmlAttributePtr ret = NULL;
    xmlAttributeTablePtr table;
    xmlElementPtr elemDef;
    xmlDictPtr dict = NULL;
    int res;

    if (dtd == NULL) {
  xmlFreeEnumeration(tree);
  return(NULL);
    }
    if (name == NULL) {
  xmlFreeEnumeration(tree);
  return(NULL);
    }
    if (elem == NULL) {
  xmlFreeEnumeration(tree);
  return(NULL);
    }
    if (dtd->doc != NULL)
  dict = dtd->doc->dict;

#ifdef LIBXML_VALID_ENABLED
    if ((ctxt != NULL) && (ctxt->flags & XML_VCTXT_VALIDATE) &&
        (defaultValue != NULL) &&
        (!xmlValidateAttributeValueInternal(dtd->doc, type, defaultValue))) {
  xmlErrValidNode(ctxt, (xmlNodePtr) dtd, XML_DTD_ATTRIBUTE_DEFAULT,
                  "Attribute %s of %s: invalid default value\n",
                  elem, name, defaultValue);
  defaultValue = NULL;
  if (ctxt != NULL)
      ctxt->valid = 0;
    }
#endif /* LIBXML_VALID_ENABLED */

    /*
     * Check first that an attribute defined in the external subset wasn't
     * already defined in the internal subset
     */
    if ((dtd->doc != NULL) && (dtd->doc->extSubset == dtd) &&
  (dtd->doc->intSubset != NULL) &&
  (dtd->doc->intSubset->attributes != NULL)) {
        ret = xmlHashLookup3(dtd->doc->intSubset->attributes, name, ns, elem);
  if (ret != NULL) {
      xmlFreeEnumeration(tree);
      return(NULL);
  }
    }

    /*
     * Create the Attribute table if needed.
     */
    table = (xmlAttributeTablePtr) dtd->attributes;
    if (table == NULL) {
        table = xmlHashCreateDict(0, dict);
  dtd->attributes = (void *) table;
    }
    if (table == NULL)
        goto mem_error;

    ret = (xmlAttributePtr) xmlMalloc(sizeof(xmlAttribute));
    if (ret == NULL)
        goto mem_error;
    memset(ret, 0, sizeof(xmlAttribute));
    ret->type = XML_ATTRIBUTE_DECL;

    /*
     * fill the structure.
     */
    ret->atype = type;
    /*
     * doc must be set before possible error causes call
     * to xmlFreeAttribute (because it's used to check on
     * dict use)
     */
    ret->doc = dtd->doc;
    if (dict) {
  ret->name = xmlDictLookup(dict, name, -1);
  ret->elem = xmlDictLookup(dict, elem, -1);
    } else {
  ret->name = xmlStrdup(name);
  ret->elem = xmlStrdup(elem);
    }
    if ((ret->name == NULL) || (ret->elem == NULL))
        goto mem_error;
    if (ns != NULL) {
        if (dict)
            ret->prefix = xmlDictLookup(dict, ns, -1);
        else
            ret->prefix = xmlStrdup(ns);
        if (ret->prefix == NULL)
            goto mem_error;
    }
    ret->def = def;
    ret->tree = tree;
    tree = NULL;
    if (defaultValue != NULL) {
  ret->defaultValue = xmlStrdup(defaultValue);
        if (ret->defaultValue == NULL)
            goto mem_error;
    }

    elemDef = xmlGetDtdElementDesc2(ctxt, dtd, elem);
    if (elemDef == NULL)
        goto mem_error;

    /*
     * Validity Check:
     * Search the DTD for previous declarations of the ATTLIST
     */
    res = xmlHashAdd3(table, ret->name, ret->prefix, ret->elem, ret);
    if (res <= 0) {
        if (res < 0)
            goto mem_error;
#ifdef LIBXML_VALID_ENABLED
        /*
         * The attribute is already defined in this DTD.
         */
        if ((ctxt != NULL) && (ctxt->flags & XML_VCTXT_VALIDATE))
            xmlErrValidWarning(ctxt, (xmlNodePtr) dtd,
                    XML_DTD_ATTRIBUTE_REDEFINED,
                    "Attribute %s of element %s: already defined\n",
                    name, elem, NULL);
#endif /* LIBXML_VALID_ENABLED */
  xmlFreeAttribute(ret);
  return(NULL);
    }

    /*
     * Insert namespace default def first they need to be
     * processed first.
     */
    if ((xmlStrEqual(ret->name, BAD_CAST "xmlns")) ||
        ((ret->prefix != NULL &&
         (xmlStrEqual(ret->prefix, BAD_CAST "xmlns"))))) {
        ret->nexth = elemDef->attributes;
        elemDef->attributes = ret;
    } else {
        xmlAttributePtr tmp = elemDef->attributes;

        while ((tmp != NULL) &&
               ((xmlStrEqual(tmp->name, BAD_CAST "xmlns")) ||
                ((ret->prefix != NULL &&
                 (xmlStrEqual(ret->prefix, BAD_CAST "xmlns")))))) {
            if (tmp->nexth == NULL)
                break;
            tmp = tmp->nexth;
        }
        if (tmp != NULL) {
            ret->nexth = tmp->nexth;
            tmp->nexth = ret;
        } else {
            ret->nexth = elemDef->attributes;
            elemDef->attributes = ret;
        }
    }

    /*
     * Link it to the DTD
     */
    ret->parent = dtd;
    if (dtd->last == NULL) {
  dtd->children = dtd->last = (xmlNodePtr) ret;
    } else {
        dtd->last->next = (xmlNodePtr) ret;
  ret->prev = dtd->last;
  dtd->last = (xmlNodePtr) ret;
    }
    return(ret);

mem_error:
    xmlVErrMemory(ctxt);
    xmlFreeEnumeration(tree);
    xmlFreeAttribute(ret);
    return(NULL);
}

static void
xmlFreeAttributeTableEntry(void *attr, const xmlChar *name ATTRIBUTE_UNUSED) {
    xmlFreeAttribute((xmlAttributePtr) attr);
}

/**
 * Deallocate the memory used by an entities hash table.
 *
 * @deprecated Internal function, don't use.
 *
 * @param table  An attribute table
 */
void
xmlFreeAttributeTable(xmlAttributeTable *table) {
    xmlHashFree(table, xmlFreeAttributeTableEntry);
}

/**
 * Build a copy of an attribute declaration.
 *
 * @param payload  an attribute declaration
 * @param name  unused
 * @returns the new xmlAttribute or NULL in case of error.
 */
static void *
xmlCopyAttribute(void *payload, const xmlChar *name ATTRIBUTE_UNUSED) {
    xmlAttributePtr attr = (xmlAttributePtr) payload;
    xmlAttributePtr cur;

    cur = (xmlAttributePtr) xmlMalloc(sizeof(xmlAttribute));
    if (cur == NULL)
  return(NULL);
    memset(cur, 0, sizeof(xmlAttribute));
    cur->type = XML_ATTRIBUTE_DECL;
    cur->atype = attr->atype;
    cur->def = attr->def;
    if (attr->tree != NULL) {
        cur->tree = xmlCopyEnumeration(attr->tree);
        if (cur->tree == NULL)
            goto error;
    }
    if (attr->elem != NULL) {
  cur->elem = xmlStrdup(attr->elem);
        if (cur->elem == NULL)
            goto error;
    }
    if (attr->name != NULL) {
  cur->name = xmlStrdup(attr->name);
        if (cur->name == NULL)
            goto error;
    }
    if (attr->prefix != NULL) {
  cur->prefix = xmlStrdup(attr->prefix);
        if (cur->prefix == NULL)
            goto error;
    }
    if (attr->defaultValue != NULL) {
  cur->defaultValue = xmlStrdup(attr->defaultValue);
        if (cur->defaultValue == NULL)
            goto error;
    }
    return(cur);

error:
    xmlFreeAttribute(cur);
    return(NULL);
}

/**
 * Build a copy of an attribute table.
 *
 * @deprecated Internal function, don't use.
 *
 * @param table  An attribute table
 * @returns the new xmlAttributeTable or NULL in case of error.
 */
xmlAttributeTable *
xmlCopyAttributeTable(xmlAttributeTable *table) {
    return(xmlHashCopySafe(table, xmlCopyAttribute,
                           xmlFreeAttributeTableEntry));
}

#ifdef LIBXML_OUTPUT_ENABLED
/**
 * This will dump the content of the attribute declaration as an XML
 * DTD definition.
 *
 * @deprecated Use #xmlSaveTree.
 *
 * @param buf  the XML buffer output
 * @param attr  An attribute declaration
 */
void
xmlDumpAttributeDecl(xmlBuffer *buf, xmlAttribute *attr) {
    xmlSaveCtxtPtr save;

    if ((buf == NULL) || (attr == NULL))
        return;

    save = xmlSaveToBuffer(buf, NULL, 0);
    xmlSaveTree(save, (xmlNodePtr) attr);
    if (xmlSaveFinish(save) != XML_ERR_OK)
        xmlFree(xmlBufferDetach(buf));
}

/**
 * This is used with the hash scan function - just reverses
 * arguments.
 *
 * @param attr  an attribute declaration
 * @param save  a save context
 * @param name  unused
 */
static void
xmlDumpAttributeDeclScan(void *attr, void *save,
                         const xmlChar *name ATTRIBUTE_UNUSED) {
    xmlSaveTree(save, attr);
}

/**
 * This will dump the content of the attribute table as an XML
 * DTD definition.
 *
 * @deprecated Don't use.
 *
 * @param buf  the XML buffer output
 * @param table  an attribute table
 */
void
xmlDumpAttributeTable(xmlBuffer *buf, xmlAttributeTable *table) {
    xmlSaveCtxtPtr save;

    if ((buf == NULL) || (table == NULL))
        return;

    save = xmlSaveToBuffer(buf, NULL, 0);
    xmlHashScan(table, xmlDumpAttributeDeclScan, save);
    if (xmlSaveFinish(save) != XML_ERR_OK)
        xmlFree(xmlBufferDetach(buf));
}
#endif /* LIBXML_OUTPUT_ENABLED */

/************************************************************************
 *                  *
 *        NOTATIONs       *
 *                  *
 ************************************************************************/
/**
 * Deallocate the memory used by an notation definition.
 *
 * @param nota  a notation
 */
static void
xmlFreeNotation(xmlNotationPtr nota) {
    if (nota == NULL) return;
    if (nota->name != NULL)
  xmlFree((xmlChar *) nota->name);
    if (nota->PublicID != NULL)
  xmlFree((xmlChar *) nota->PublicID);
    if (nota->SystemID != NULL)
  xmlFree((xmlChar *) nota->SystemID);
    xmlFree(nota);
}


/**
 * Register a new notation declaration.
 *
 * @param ctxt  the validation context (optional)
 * @param dtd  pointer to the DTD
 * @param name  the entity name
 * @param publicId  the public identifier or NULL
 * @param systemId  the system identifier or NULL
 * @returns the notation or NULL on error.
 */
xmlNotation *
xmlAddNotationDecl(xmlValidCtxt *ctxt, xmlDtd *dtd, const xmlChar *name,
                   const xmlChar *publicId, const xmlChar *systemId) {
    xmlNotationPtr ret = NULL;
    xmlNotationTablePtr table;
    int res;

    if (dtd == NULL) {
  return(NULL);
    }
    if (name == NULL) {
  return(NULL);
    }
    if ((publicId == NULL) && (systemId == NULL)) {
  return(NULL);
    }

    /*
     * Create the Notation table if needed.
     */
    table = (xmlNotationTablePtr) dtd->notations;
    if (table == NULL) {
  xmlDictPtr dict = NULL;
  if (dtd->doc != NULL)
      dict = dtd->doc->dict;

        dtd->notations = table = xmlHashCreateDict(0, dict);
        if (table == NULL)
            goto mem_error;
    }

    ret = (xmlNotationPtr) xmlMalloc(sizeof(xmlNotation));
    if (ret == NULL)
        goto mem_error;
    memset(ret, 0, sizeof(xmlNotation));

    /*
     * fill the structure.
     */
    ret->name = xmlStrdup(name);
    if (ret->name == NULL)
        goto mem_error;
    if (systemId != NULL) {
        ret->SystemID = xmlStrdup(systemId);
        if (ret->SystemID == NULL)
            goto mem_error;
    }
    if (publicId != NULL) {
        ret->PublicID = xmlStrdup(publicId);
        if (ret->PublicID == NULL)
            goto mem_error;
    }

    /*
     * Validity Check:
     * Check the DTD for previous declarations of the ATTLIST
     */
    res = xmlHashAdd(table, name, ret);
    if (res <= 0) {
        if (res < 0)
            goto mem_error;
#ifdef LIBXML_VALID_ENABLED
        if ((ctxt != NULL) && (ctxt->flags & XML_VCTXT_VALIDATE))
            xmlErrValid(ctxt, XML_DTD_NOTATION_REDEFINED,
                        "xmlAddNotationDecl: %s already defined\n",
                        (const char *) name);
#endif /* LIBXML_VALID_ENABLED */
  xmlFreeNotation(ret);
  return(NULL);
    }
    return(ret);

mem_error:
    xmlVErrMemory(ctxt);
    xmlFreeNotation(ret);
    return(NULL);
}

static void
xmlFreeNotationTableEntry(void *nota, const xmlChar *name ATTRIBUTE_UNUSED) {
    xmlFreeNotation((xmlNotationPtr) nota);
}

/**
 * Deallocate the memory used by an entities hash table.
 *
 * @deprecated Internal function, don't use.
 *
 * @param table  An notation table
 */
void
xmlFreeNotationTable(xmlNotationTable *table) {
    xmlHashFree(table, xmlFreeNotationTableEntry);
}

/**
 * Build a copy of a notation.
 *
 * @param payload  a notation
 * @param name  unused
 * @returns the new xmlNotation or NULL in case of error.
 */
static void *
xmlCopyNotation(void *payload, const xmlChar *name ATTRIBUTE_UNUSED) {
    xmlNotationPtr nota = (xmlNotationPtr) payload;
    xmlNotationPtr cur;

    cur = (xmlNotationPtr) xmlMalloc(sizeof(xmlNotation));
    if (cur == NULL)
  return(NULL);
    memset(cur, 0, sizeof(*cur));
    if (nota->name != NULL) {
  cur->name = xmlStrdup(nota->name);
        if (cur->name == NULL)
            goto error;
    }
    if (nota->PublicID != NULL) {
  cur->PublicID = xmlStrdup(nota->PublicID);
        if (cur->PublicID == NULL)
            goto error;
    }
    if (nota->SystemID != NULL) {
  cur->SystemID = xmlStrdup(nota->SystemID);
        if (cur->SystemID == NULL)
            goto error;
    }
    return(cur);

error:
    xmlFreeNotation(cur);
    return(NULL);
}

/**
 * Build a copy of a notation table.
 *
 * @deprecated Internal function, don't use.
 *
 * @param table  A notation table
 * @returns the new xmlNotationTable or NULL in case of error.
 */
xmlNotationTable *
xmlCopyNotationTable(xmlNotationTable *table) {
    return(xmlHashCopySafe(table, xmlCopyNotation, xmlFreeNotationTableEntry));
}

#ifdef LIBXML_OUTPUT_ENABLED
/**
 * This will dump the content the notation declaration as an XML
 * DTD definition.
 *
 * @deprecated Don't use.
 *
 * @param buf  the XML buffer output
 * @param nota  A notation declaration
 */
void
xmlDumpNotationDecl(xmlBuffer *buf, xmlNotation *nota) {
    xmlSaveCtxtPtr save;

    if ((buf == NULL) || (nota == NULL))
        return;

    save = xmlSaveToBuffer(buf, NULL, 0);
    xmlSaveNotationDecl(save, nota);
    if (xmlSaveFinish(save) != XML_ERR_OK)
        xmlFree(xmlBufferDetach(buf));
}

/**
 * This will dump the content of the notation table as an XML
 * DTD definition.
 *
 * @deprecated Don't use.
 *
 * @param buf  the XML buffer output
 * @param table  A notation table
 */
void
xmlDumpNotationTable(xmlBuffer *buf, xmlNotationTable *table) {
    xmlSaveCtxtPtr save;

    if ((buf == NULL) || (table == NULL))
        return;

    save = xmlSaveToBuffer(buf, NULL, 0);
    xmlSaveNotationTable(save, table);
    if (xmlSaveFinish(save) != XML_ERR_OK)
        xmlFree(xmlBufferDetach(buf));
}
#endif /* LIBXML_OUTPUT_ENABLED */

/************************************************************************
 *                  *
 *        IDs         *
 *                  *
 ************************************************************************/

/**
 * Free a string if it is not owned by the dictionary in the
 * current scope
 *
 * @param str  a string
 */
#define DICT_FREE(str)            \
  if ((str) && ((!dict) ||       \
      (xmlDictOwns(dict, (const xmlChar *)(str)) == 0)))  \
      xmlFree((char *)(str));

static int
xmlIsStreaming(xmlValidCtxtPtr ctxt) {
    xmlParserCtxtPtr pctxt;

    if (ctxt == NULL)
        return(0);
    if ((ctxt->flags & XML_VCTXT_USE_PCTXT) == 0)
        return(0);
    pctxt = ctxt->userData;
    return(pctxt->parseMode == XML_PARSE_READER);
}

/**
 * Deallocate the memory used by an id definition.
 *
 * @param id  an id
 */
static void
xmlFreeID(xmlIDPtr id) {
    xmlDictPtr dict = NULL;

    if (id == NULL) return;

    if (id->doc != NULL)
        dict = id->doc->dict;

    if (id->value != NULL)
  xmlFree(id->value);
    if (id->name != NULL)
  DICT_FREE(id->name)
    if (id->attr != NULL) {
        id->attr->id = NULL;
        id->attr->atype = 0;
    }

    xmlFree(id);
}


/**
 * Add an attribute to the docment's ID table.
 *
 * @param attr  the attribute holding the ID
 * @param value  the attribute (ID) value
 * @param idPtr  pointer to resulting ID
 * @returns 1 on success, 0 if the ID already exists, -1 if a memory
 * allocation fails.
 */
static int
xmlAddIDInternal(xmlAttrPtr attr, const xmlChar *value, xmlIDPtr *idPtr) {
    xmlDocPtr doc;
    xmlIDPtr id;
    xmlIDTablePtr table;
    int ret;

    if (idPtr != NULL)
        *idPtr = NULL;
    if ((value == NULL) || (value[0] == 0))
  return(0);
    if (attr == NULL)
  return(0);

    doc = attr->doc;
    if (doc == NULL)
        return(0);

    /*
     * Create the ID table if needed.
     */
    table = (xmlIDTablePtr) doc->ids;
    if (table == NULL)  {
        doc->ids = table = xmlHashCreate(0);
        if (table == NULL)
            return(-1);
    } else {
        id = xmlHashLookup(table, value);
        if (id != NULL)
            return(0);
    }

    id = (xmlIDPtr) xmlMalloc(sizeof(xmlID));
    if (id == NULL)
  return(-1);
    memset(id, 0, sizeof(*id));

    /*
     * fill the structure.
     */
    id->doc = doc;
    id->value = xmlStrdup(value);
    if (id->value == NULL) {
        xmlFreeID(id);
        return(-1);
    }

    if (attr->id != NULL)
        xmlRemoveID(doc, attr);

    if (xmlHashAddEntry(table, value, id) < 0) {
  xmlFreeID(id);
  return(-1);
    }

    ret = 1;
    if (idPtr != NULL)
        *idPtr = id;

    id->attr = attr;
    id->lineno = xmlGetLineNo(attr->parent);
    attr->atype = XML_ATTRIBUTE_ID;
    attr->id = id;

    return(ret);
}

/**
 * Add an attribute to the docment's ID table.
 *
 * @since 2.13.0
 *
 * @param attr  the attribute holding the ID
 * @param value  the attribute (ID) value
 * @returns 1 on success, 0 if the ID already exists, -1 if a memory
 * allocation fails.
 */
int
xmlAddIDSafe(xmlAttr *attr, const xmlChar *value) {
    return(xmlAddIDInternal(attr, value, NULL));
}

/**
 * Add an attribute to the docment's ID table.
 *
 * @param ctxt  the validation context (optional)
 * @param doc  pointer to the document, must equal `attr->doc`
 * @param value  the attribute (ID) value
 * @param attr  the attribute holding the ID
 * @returns the new xmlID or NULL on error.
 */
xmlID *
xmlAddID(xmlValidCtxt *ctxt, xmlDoc *doc, const xmlChar *value,
         xmlAttr *attr) {
    xmlIDPtr id;
    int res;

    if ((attr == NULL) || (doc != attr->doc))
        return(NULL);

    res = xmlAddIDInternal(attr, value, &id);
    if (res < 0) {
        xmlVErrMemory(ctxt);
    }
    else if (res == 0) {
        if (ctxt != NULL) {
            /*
             * The id is already defined in this DTD.
             */
            xmlErrValidNode(ctxt, attr->parent, XML_DTD_ID_REDEFINED,
                            "ID %s already defined\n", value, NULL, NULL);
        }
    }

    return(id);
}

static void
xmlFreeIDTableEntry(void *id, const xmlChar *name ATTRIBUTE_UNUSED) {
    xmlFreeID((xmlIDPtr) id);
}

/**
 * Deallocate the memory used by an ID hash table.
 *
 * @param table  An id table
 */
void
xmlFreeIDTable(xmlIDTable *table) {
    xmlHashFree(table, xmlFreeIDTableEntry);
}

/**
 * Determine whether an attribute is of type ID. In case we have DTD(s)
 * then this is done if DTD loading has been requested. In case
 * of HTML documents parsed with the HTML parser, ID detection is
 * done systematically.
 *
 * @param doc  the document
 * @param elem  the element carrying the attribute
 * @param attr  the attribute
 * @returns 0 or 1 depending on the lookup result or -1 if a memory
 * allocation failed.
 */
int
xmlIsID(xmlDoc *doc, xmlNode *elem, xmlAttr *attr) {
    if ((attr == NULL) || (attr->name == NULL))
        return(0);

    if ((doc != NULL) && (doc->type == XML_HTML_DOCUMENT_NODE)) {
        if (xmlStrEqual(BAD_CAST "id", attr->name))
            return(1);

        if ((elem == NULL) || (elem->type != XML_ELEMENT_NODE))
            return(0);

        if ((xmlStrEqual(BAD_CAST "name", attr->name)) &&
      (xmlStrEqual(elem->name, BAD_CAST "a")))
      return(1);
    } else {
  xmlAttributePtr attrDecl = NULL;
  xmlChar felem[50];
  xmlChar *fullelemname;
        const xmlChar *aprefix;

        if ((attr->ns != NULL) && (attr->ns->prefix != NULL) &&
            (!strcmp((char *) attr->name, "id")) &&
            (!strcmp((char *) attr->ns->prefix, "xml")))
            return(1);

        if ((doc == NULL) ||
            ((doc->intSubset == NULL) && (doc->extSubset == NULL)))
            return(0);

        if ((elem == NULL) ||
            (elem->type != XML_ELEMENT_NODE) ||
            (elem->name == NULL))
            return(0);

  fullelemname = (elem->ns != NULL && elem->ns->prefix != NULL) ?
      xmlBuildQName(elem->name, elem->ns->prefix, felem, 50) :
      (xmlChar *)elem->name;
        if (fullelemname == NULL)
            return(-1);

        aprefix = (attr->ns != NULL) ? attr->ns->prefix : NULL;

  if (fullelemname != NULL) {
      attrDecl = xmlGetDtdQAttrDesc(doc->intSubset, fullelemname,
                              attr->name, aprefix);
      if ((attrDecl == NULL) && (doc->extSubset != NULL))
    attrDecl = xmlGetDtdQAttrDesc(doc->extSubset, fullelemname,
                attr->name, aprefix);
  }

  if ((fullelemname != felem) && (fullelemname != elem->name))
      xmlFree(fullelemname);

        if ((attrDecl != NULL) && (attrDecl->atype == XML_ATTRIBUTE_ID))
      return(1);
    }

    return(0);
}

/**
 * Remove the given attribute from the document's ID table.
 *
 * @param doc  the document
 * @param attr  the attribute
 * @returns -1 if the lookup failed and 0 otherwise.
 */
int
xmlRemoveID(xmlDoc *doc, xmlAttr *attr) {
    xmlIDTablePtr table;

    if (doc == NULL) return(-1);
    if ((attr == NULL) || (attr->id == NULL)) return(-1);

    table = (xmlIDTablePtr) doc->ids;
    if (table == NULL)
        return(-1);

    if (xmlHashRemoveEntry(table, attr->id->value, xmlFreeIDTableEntry) < 0)
        return(-1);

    return(0);
}

/**
 * Search the document's ID table for the attribute with the
 * given ID.
 *
 * @param doc  pointer to the document
 * @param ID  the ID value
 * @returns the attribute or NULL if not found.
 */
xmlAttr *
xmlGetID(xmlDoc *doc, const xmlChar *ID) {
    xmlIDTablePtr table;
    xmlIDPtr id;

    if (doc == NULL) {
  return(NULL);
    }

    if (ID == NULL) {
  return(NULL);
    }

    table = (xmlIDTablePtr) doc->ids;
    if (table == NULL)
        return(NULL);

    id = xmlHashLookup(table, ID);
    if (id == NULL)
  return(NULL);
    if (id->attr == NULL) {
  /*
   * We are operating on a stream, return a well known reference
   * since the attribute node doesn't exist anymore
   */
  return((xmlAttrPtr) doc);
    }
    return(id->attr);
}

/************************************************************************
 *                  *
 *        Refs          *
 *                  *
 ************************************************************************/
typedef struct xmlRemoveMemo_t
{
  xmlListPtr l;
  xmlAttrPtr ap;
} xmlRemoveMemo;

typedef xmlRemoveMemo *xmlRemoveMemoPtr;

typedef struct xmlValidateMemo_t
{
    xmlValidCtxtPtr ctxt;
    const xmlChar *name;
} xmlValidateMemo;

typedef xmlValidateMemo *xmlValidateMemoPtr;

/**
 * Deallocate the memory used by a ref definition.
 *
 * @param lk  A list link
 */
static void
xmlFreeRef(xmlLinkPtr lk) {
    xmlRefPtr ref = (xmlRefPtr)xmlLinkGetData(lk);
    if (ref == NULL) return;
    if (ref->value != NULL)
        xmlFree((xmlChar *)ref->value);
    if (ref->name != NULL)
        xmlFree((xmlChar *)ref->name);
    xmlFree(ref);
}

/**
 * Deallocate the memory used by a list of references.
 *
 * @param payload  A list of references.
 * @param name  unused
 */
static void
xmlFreeRefTableEntry(void *payload, const xmlChar *name ATTRIBUTE_UNUSED) {
    xmlListPtr list_ref = (xmlListPtr) payload;
    if (list_ref == NULL) return;
    xmlListDelete(list_ref);
}

/**
 * @param data  Contents of current link
 * @param user  Value supplied by the user
 * @returns 0 to abort the walk or 1 to continue.
 */
static int
xmlWalkRemoveRef(const void *data, void *user)
{
    xmlAttrPtr attr0 = ((xmlRefPtr)data)->attr;
    xmlAttrPtr attr1 = ((xmlRemoveMemoPtr)user)->ap;
    xmlListPtr ref_list = ((xmlRemoveMemoPtr)user)->l;

    if (attr0 == attr1) { /* Matched: remove and terminate walk */
        xmlListRemoveFirst(ref_list, (void *)data);
        return 0;
    }
    return 1;
}

/**
 * Do nothing. Used to create unordered lists.
 *
 * @param data0  Value supplied by the user
 * @param data1  Value supplied by the user
 * @returns 0
 */
static int
xmlDummyCompare(const void *data0 ATTRIBUTE_UNUSED,
                const void *data1 ATTRIBUTE_UNUSED)
{
    return (0);
}

/**
 * Register a new ref declaration.
 *
 * @deprecated Don't use. This function will be removed from the
 * public API.
 *
 * @param ctxt  the validation context
 * @param doc  pointer to the document
 * @param value  the value name
 * @param attr  the attribute holding the Ref
 * @returns the new xmlRef or NULL o error.
 */
xmlRef *
xmlAddRef(xmlValidCtxt *ctxt, xmlDoc *doc, const xmlChar *value,
    xmlAttr *attr) {
    xmlRefPtr ret = NULL;
    xmlRefTablePtr table;
    xmlListPtr ref_list;

    if (doc == NULL) {
        return(NULL);
    }
    if (value == NULL) {
        return(NULL);
    }
    if (attr == NULL) {
        return(NULL);
    }

    /*
     * Create the Ref table if needed.
     */
    table = (xmlRefTablePtr) doc->refs;
    if (table == NULL) {
        doc->refs = table = xmlHashCreate(0);
        if (table == NULL)
            goto failed;
    }

    ret = (xmlRefPtr) xmlMalloc(sizeof(xmlRef));
    if (ret == NULL)
        goto failed;
    memset(ret, 0, sizeof(*ret));

    /*
     * fill the structure.
     */
    ret->value = xmlStrdup(value);
    if (ret->value == NULL)
        goto failed;
    if (xmlIsStreaming(ctxt)) {
  /*
   * Operating in streaming mode, attr is gonna disappear
   */
  ret->name = xmlStrdup(attr->name);
        if (ret->name == NULL)
            goto failed;
  ret->attr = NULL;
    } else {
  ret->name = NULL;
  ret->attr = attr;
    }
    ret->lineno = xmlGetLineNo(attr->parent);

    /* To add a reference :-
     * References are maintained as a list of references,
     * Lookup the entry, if no entry create new nodelist
     * Add the owning node to the NodeList
     * Return the ref
     */

    ref_list = xmlHashLookup(table, value);
    if (ref_list == NULL) {
        int res;

        ref_list = xmlListCreate(xmlFreeRef, xmlDummyCompare);
        if (ref_list == NULL)
      goto failed;
        res = xmlHashAdd(table, value, ref_list);
        if (res <= 0) {
            xmlListDelete(ref_list);
      goto failed;
        }
    }
    if (xmlListAppend(ref_list, ret) != 0)
        goto failed;
    return(ret);

failed:
    xmlVErrMemory(ctxt);
    if (ret != NULL) {
        if (ret->value != NULL)
      xmlFree((char *)ret->value);
        if (ret->name != NULL)
      xmlFree((char *)ret->name);
        xmlFree(ret);
    }
    return(NULL);
}

/**
 * Deallocate the memory used by an Ref hash table.
 *
 * @deprecated Don't use. This function will be removed from the
 * public API.
 *
 * @param table  a ref table
 */
void
xmlFreeRefTable(xmlRefTable *table) {
    xmlHashFree(table, xmlFreeRefTableEntry);
}

/**
 * Determine whether an attribute is of type Ref. In case we have DTD(s)
 * then this is simple, otherwise we use an heuristic: name Ref (upper
 * or lowercase).
 *
 * @deprecated Don't use. This function will be removed from the
 * public API.
 *
 * @param doc  the document
 * @param elem  the element carrying the attribute
 * @param attr  the attribute
 * @returns 0 or 1 depending on the lookup result.
 */
int
xmlIsRef(xmlDoc *doc, xmlNode *elem, xmlAttr *attr) {
    if (attr == NULL)
        return(0);
    if (doc == NULL) {
        doc = attr->doc;
  if (doc == NULL) return(0);
    }

    if ((doc->intSubset == NULL) && (doc->extSubset == NULL)) {
        return(0);
    } else if (doc->type == XML_HTML_DOCUMENT_NODE) {
        /* TODO @@@ */
        return(0);
    } else {
        xmlAttributePtr attrDecl;
        const xmlChar *aprefix;

        if (elem == NULL) return(0);
        aprefix = (attr->ns != NULL) ? attr->ns->prefix : NULL;
        attrDecl = xmlGetDtdQAttrDesc(doc->intSubset, elem->name, attr->name,
                                      aprefix);
        if ((attrDecl == NULL) && (doc->extSubset != NULL))
            attrDecl = xmlGetDtdQAttrDesc(doc->extSubset, elem->name, attr->name,
                                          aprefix);

  if ((attrDecl != NULL) &&
      (attrDecl->atype == XML_ATTRIBUTE_IDREF ||
       attrDecl->atype == XML_ATTRIBUTE_IDREFS))
  return(1);
    }
    return(0);
}

/**
 * Remove the given attribute from the Ref table maintained internally.
 *
 * @deprecated Don't use. This function will be removed from the
 * public API.
 *
 * @param doc  the document
 * @param attr  the attribute
 * @returns -1 if the lookup failed and 0 otherwise.
 */
int
xmlRemoveRef(xmlDoc *doc, xmlAttr *attr) {
    xmlListPtr ref_list;
    xmlRefTablePtr table;
    xmlChar *ID;
    xmlRemoveMemo target;

    if (doc == NULL) return(-1);
    if (attr == NULL) return(-1);

    table = (xmlRefTablePtr) doc->refs;
    if (table == NULL)
        return(-1);

    ID = xmlNodeListGetString(doc, attr->children, 1);
    if (ID == NULL)
        return(-1);

    ref_list = xmlHashLookup(table, ID);
    if(ref_list == NULL) {
        xmlFree(ID);
        return (-1);
    }

    /* At this point, ref_list refers to a list of references which
     * have the same key as the supplied attr. Our list of references
     * is ordered by reference address and we don't have that information
     * here to use when removing. We'll have to walk the list and
     * check for a matching attribute, when we find one stop the walk
     * and remove the entry.
     * The list is ordered by reference, so that means we don't have the
     * key. Passing the list and the reference to the walker means we
     * will have enough data to be able to remove the entry.
     */
    target.l = ref_list;
    target.ap = attr;

    /* Remove the supplied attr from our list */
    xmlListWalk(ref_list, xmlWalkRemoveRef, &target);

    /*If the list is empty then remove the list entry in the hash */
    if (xmlListEmpty(ref_list))
        xmlHashRemoveEntry(table, ID, xmlFreeRefTableEntry);
    xmlFree(ID);
    return(0);
}

/**
 * Find the set of references for the supplied ID.
 *
 * @deprecated Don't use. This function will be removed from the
 * public API.
 *
 * @param doc  pointer to the document
 * @param ID  the ID value
 * @returns the list of nodes matching the ID or NULL on error.
 */
xmlList *
xmlGetRefs(xmlDoc *doc, const xmlChar *ID) {
    xmlRefTablePtr table;

    if (doc == NULL) {
        return(NULL);
    }

    if (ID == NULL) {
        return(NULL);
    }

    table = (xmlRefTablePtr) doc->refs;
    if (table == NULL)
        return(NULL);

    return (xmlHashLookup(table, ID));
}

/************************************************************************
 *                  *
 *    Routines for validity checking        *
 *                  *
 ************************************************************************/

/**
 * Search the DTD for the description of this element.
 *
 * NOTE: A NULL return value can also mean that a memory allocation failed.
 *
 * @param dtd  a pointer to the DtD to search
 * @param name  the element name
 * @returns the xmlElement or NULL if not found.
 */

xmlElement *
xmlGetDtdElementDesc(xmlDtd *dtd, const xmlChar *name) {
    xmlElementTablePtr table;
    xmlElementPtr cur;
    const xmlChar *localname;
    xmlChar *prefix;

    if ((dtd == NULL) || (dtd->elements == NULL) ||
        (name == NULL))
        return(NULL);

    table = (xmlElementTablePtr) dtd->elements;
    if (table == NULL)
  return(NULL);

    localname = xmlSplitQName4(name, &prefix);
    if (localname == NULL)
        return(NULL);
    cur = xmlHashLookup2(table, localname, prefix);
    if (prefix != NULL)
        xmlFree(prefix);
    return(cur);
}

/**
 * Search the DTD for the description of this element.
 *
 * @param ctxt  a validation context
 * @param dtd  a pointer to the DtD to search
 * @param name  the element name
 * @returns the xmlElement or NULL if not found.
 */

static xmlElementPtr
xmlGetDtdElementDesc2(xmlValidCtxtPtr ctxt, xmlDtdPtr dtd, const xmlChar *name) {
    xmlElementTablePtr table;
    xmlElementPtr cur = NULL;
    const xmlChar *localName;
    xmlChar *prefix = NULL;

    if (dtd == NULL) return(NULL);

    /*
     * Create the Element table if needed.
     */
    if (dtd->elements == NULL) {
  xmlDictPtr dict = NULL;

  if (dtd->doc != NULL)
      dict = dtd->doc->dict;

  dtd->elements = xmlHashCreateDict(0, dict);
  if (dtd->elements == NULL)
            goto mem_error;
    }
    table = (xmlElementTablePtr) dtd->elements;

    localName = xmlSplitQName4(name, &prefix);
    if (localName == NULL)
        goto mem_error;
    cur = xmlHashLookup2(table, localName, prefix);
    if (cur == NULL) {
  cur = (xmlElementPtr) xmlMalloc(sizeof(xmlElement));
  if (cur == NULL)
            goto mem_error;
  memset(cur, 0, sizeof(xmlElement));
  cur->type = XML_ELEMENT_DECL;
        cur->doc = dtd->doc;

  /*
   * fill the structure.
   */
  cur->name = xmlStrdup(localName);
        if (cur->name == NULL)
            goto mem_error;
  cur->prefix = prefix;
        prefix = NULL;
  cur->etype = XML_ELEMENT_TYPE_UNDEFINED;

  if (xmlHashAdd2(table, localName, cur->prefix, cur) <= 0)
            goto mem_error;
    }

    if (prefix != NULL)
        xmlFree(prefix);
    return(cur);

mem_error:
    xmlVErrMemory(ctxt);
    xmlFree(prefix);
    xmlFreeElement(cur);
    return(NULL);
}

/**
 * Search the DTD for the description of this element.
 *
 * @param dtd  a pointer to the DtD to search
 * @param name  the element name
 * @param prefix  the element namespace prefix
 * @returns the xmlElement or NULL if not found.
 */

xmlElement *
xmlGetDtdQElementDesc(xmlDtd *dtd, const xmlChar *name,
                const xmlChar *prefix) {
    xmlElementTablePtr table;

    if (dtd == NULL) return(NULL);
    if (dtd->elements == NULL) return(NULL);
    table = (xmlElementTablePtr) dtd->elements;

    return(xmlHashLookup2(table, name, prefix));
}

/**
 * Search the DTD for the description of this attribute on
 * this element.
 *
 * @param dtd  a pointer to the DtD to search
 * @param elem  the element name
 * @param name  the attribute name
 * @returns the xmlAttribute or NULL if not found.
 */

xmlAttribute *
xmlGetDtdAttrDesc(xmlDtd *dtd, const xmlChar *elem, const xmlChar *name) {
    xmlAttributeTablePtr table;
    xmlAttributePtr cur;
    const xmlChar *localname;
    xmlChar *prefix = NULL;

    if ((dtd == NULL) || (dtd->attributes == NULL) ||
        (elem == NULL) || (name == NULL))
        return(NULL);

    table = (xmlAttributeTablePtr) dtd->attributes;
    if (table == NULL)
  return(NULL);

    localname = xmlSplitQName4(name, &prefix);
    if (localname == NULL)
        return(NULL);
    cur = xmlHashLookup3(table, localname, prefix, elem);
    if (prefix != NULL)
        xmlFree(prefix);
    return(cur);
}

/**
 * Search the DTD for the description of this qualified attribute on
 * this element.
 *
 * @param dtd  a pointer to the DtD to search
 * @param elem  the element name
 * @param name  the attribute name
 * @param prefix  the attribute namespace prefix
 * @returns the xmlAttribute or NULL if not found.
 */

xmlAttribute *
xmlGetDtdQAttrDesc(xmlDtd *dtd, const xmlChar *elem, const xmlChar *name,
            const xmlChar *prefix) {
    xmlAttributeTablePtr table;

    if (dtd == NULL) return(NULL);
    if (dtd->attributes == NULL) return(NULL);
    table = (xmlAttributeTablePtr) dtd->attributes;

    return(xmlHashLookup3(table, name, prefix, elem));
}

/**
 * Search the DTD for the description of this notation.
 *
 * @param dtd  a pointer to the DtD to search
 * @param name  the notation name
 * @returns the xmlNotation or NULL if not found.
 */

xmlNotation *
xmlGetDtdNotationDesc(xmlDtd *dtd, const xmlChar *name) {
    xmlNotationTablePtr table;

    if (dtd == NULL) return(NULL);
    if (dtd->notations == NULL) return(NULL);
    table = (xmlNotationTablePtr) dtd->notations;

    return(xmlHashLookup(table, name));
}

#ifdef LIBXML_VALID_ENABLED
/**
 * Validate that the given name match a notation declaration.
 * [ VC: Notation Declared ]
 *
 * @deprecated Internal function, don't use.
 *
 * @param ctxt  the validation context
 * @param doc  the document
 * @param notationName  the notation name to check
 * @returns 1 if valid or 0 otherwise.
 */

int
xmlValidateNotationUse(xmlValidCtxt *ctxt, xmlDoc *doc,
                       const xmlChar *notationName) {
    xmlNotationPtr notaDecl;
    if ((doc == NULL) || (doc->intSubset == NULL) ||
        (notationName == NULL)) return(-1);

    notaDecl = xmlGetDtdNotationDesc(doc->intSubset, notationName);
    if ((notaDecl == NULL) && (doc->extSubset != NULL))
  notaDecl = xmlGetDtdNotationDesc(doc->extSubset, notationName);

    if (notaDecl == NULL) {
  xmlErrValidNode(ctxt, (xmlNodePtr) doc, XML_DTD_UNKNOWN_NOTATION,
                  "NOTATION %s is not declared\n",
            notationName, NULL, NULL);
  return(0);
    }
    return(1);
}
#endif /* LIBXML_VALID_ENABLED */

/**
 * Search in the DTDs whether an element accepts mixed content
 * or ANY (basically if it is supposed to accept text children).
 *
 * @deprecated Internal function, don't use.
 *
 * @param doc  the document
 * @param name  the element name
 * @returns 0 if no, 1 if yes, and -1 if no element description
 * is available.
 */

int
xmlIsMixedElement(xmlDoc *doc, const xmlChar *name) {
    xmlElementPtr elemDecl;

    if ((doc == NULL) || (doc->intSubset == NULL)) return(-1);

    elemDecl = xmlGetDtdElementDesc(doc->intSubset, name);
    if ((elemDecl == NULL) && (doc->extSubset != NULL))
  elemDecl = xmlGetDtdElementDesc(doc->extSubset, name);
    if (elemDecl == NULL) return(-1);
    switch (elemDecl->etype) {
  case XML_ELEMENT_TYPE_UNDEFINED:
      return(-1);
  case XML_ELEMENT_TYPE_ELEMENT:
      return(0);
        case XML_ELEMENT_TYPE_EMPTY:
      /*
       * return 1 for EMPTY since we want VC error to pop up
       * on <empty>     </empty> for example
       */
  case XML_ELEMENT_TYPE_ANY:
  case XML_ELEMENT_TYPE_MIXED:
      return(1);
    }
    return(1);
}

#ifdef LIBXML_VALID_ENABLED

/**
 * Normalize a string in-place.
 *
 * @param str  a string
 */
static void
xmlValidNormalizeString(xmlChar *str) {
    xmlChar *dst;
    const xmlChar *src;

    if (str == NULL)
        return;
    src = str;
    dst = str;

    while (*src == 0x20) src++;
    while (*src != 0) {
  if (*src == 0x20) {
      while (*src == 0x20) src++;
      if (*src != 0)
    *dst++ = 0x20;
  } else {
      *dst++ = *src++;
  }
    }
    *dst = 0;
}

/**
 * Validate that the given value matches the Name production.
 *
 * @param value  an Name value
 * @param flags  scan flags
 * @returns 1 if valid or 0 otherwise.
 */

static int
xmlValidateNameValueInternal(const xmlChar *value, int flags) {
    if ((value == NULL) || (value[0] == 0))
        return(0);

    value = xmlScanName(value, SIZE_MAX, flags);
    return((value != NULL) && (*value == 0));
}

/**
 * Validate that the given value matches the Name production.
 *
 * @param value  an Name value
 * @returns 1 if valid or 0 otherwise.
 */

int
xmlValidateNameValue(const xmlChar *value) {
    return(xmlValidateNameValueInternal(value, 0));
}

/**
 * Validate that the given value matches the Names production.
 *
 * @param value  an Names value
 * @param flags  scan flags
 * @returns 1 if valid or 0 otherwise.
 */

static int
xmlValidateNamesValueInternal(const xmlChar *value, int flags) {
    const xmlChar *cur;

    if (value == NULL)
        return(0);

    cur = xmlScanName(value, SIZE_MAX, flags);
    if ((cur == NULL) || (cur == value))
        return(0);

    /* Should not test IS_BLANK(val) here -- see erratum E20*/
    while (*cur == 0x20) {
  while (*cur == 0x20)
      cur += 1;

        value = cur;
        cur = xmlScanName(value, SIZE_MAX, flags);
        if ((cur == NULL) || (cur == value))
            return(0);
    }

    return(*cur == 0);
}

/**
 * Validate that the given value matches the Names production.
 *
 * @param value  an Names value
 * @returns 1 if valid or 0 otherwise.
 */

int
xmlValidateNamesValue(const xmlChar *value) {
    return(xmlValidateNamesValueInternal(value, 0));
}

/**
 * Validate that the given value matches the Nmtoken production.
 *
 * [ VC: Name Token ]
 *
 * @param value  an Nmtoken value
 * @param flags  scan flags
 * @returns 1 if valid or 0 otherwise.
 */

static int
xmlValidateNmtokenValueInternal(const xmlChar *value, int flags) {
    if ((value == NULL) || (value[0] == 0))
        return(0);

    value = xmlScanName(value, SIZE_MAX, flags | XML_SCAN_NMTOKEN);
    return((value != NULL) && (*value == 0));
}

/**
 * Validate that the given value matches the Nmtoken production.
 *
 * [ VC: Name Token ]
 *
 * @param value  an Nmtoken value
 * @returns 1 if valid or 0 otherwise.
 */

int
xmlValidateNmtokenValue(const xmlChar *value) {
    return(xmlValidateNmtokenValueInternal(value, 0));
}

/**
 * Validate that the given value matches the Nmtokens production.
 *
 * [ VC: Name Token ]
 *
 * @param value  an Nmtokens value
 * @param flags  scan flags
 * @returns 1 if valid or 0 otherwise.
 */

static int
xmlValidateNmtokensValueInternal(const xmlChar *value, int flags) {
    const xmlChar *cur;

    if (value == NULL)
        return(0);

    cur = value;
    while (IS_BLANK_CH(*cur))
  cur += 1;

    value = cur;
    cur = xmlScanName(value, SIZE_MAX, flags | XML_SCAN_NMTOKEN);
    if ((cur == NULL) || (cur == value))
        return(0);

    /* Should not test IS_BLANK(val) here -- see erratum E20*/
    while (*cur == 0x20) {
  while (*cur == 0x20)
      cur += 1;
        if (*cur == 0)
            return(1);

        value = cur;
        cur = xmlScanName(value, SIZE_MAX, flags | XML_SCAN_NMTOKEN);
        if ((cur == NULL) || (cur == value))
            return(0);
    }

    return(*cur == 0);
}

/**
 * Validate that the given value matches the Nmtokens production.
 *
 * [ VC: Name Token ]
 *
 * @param value  an Nmtokens value
 * @returns 1 if valid or 0 otherwise.
 */

int
xmlValidateNmtokensValue(const xmlChar *value) {
    return(xmlValidateNmtokensValueInternal(value, 0));
}

/**
 * Try to validate a single notation definition.
 *
 * @deprecated Internal function, don't use.
 *
 * It seems that no validity constraint exists on notation declarations.
 * But this function gets called anyway ...
 *
 * @param ctxt  the validation context
 * @param doc  a document instance
 * @param nota  a notation definition
 * @returns 1 if valid or 0 otherwise.
 */

int
xmlValidateNotationDecl(xmlValidCtxt *ctxt ATTRIBUTE_UNUSED, xmlDoc *doc ATTRIBUTE_UNUSED,
                         xmlNotation *nota ATTRIBUTE_UNUSED) {
    int ret = 1;

    return(ret);
}

/**
 * Validate that the given attribute value matches the proper production.
 *
 * @param doc  the document
 * @param type  an attribute type
 * @param value  an attribute value
 * @returns 1 if valid or 0 otherwise.
 */

static int
xmlValidateAttributeValueInternal(xmlDocPtr doc, xmlAttributeType type,
                                  const xmlChar *value) {
    int flags = 0;

    if ((doc != NULL) && (doc->properties & XML_DOC_OLD10))
        flags |= XML_SCAN_OLD10;

    switch (type) {
  case XML_ATTRIBUTE_ENTITIES:
  case XML_ATTRIBUTE_IDREFS:
      return(xmlValidateNamesValueInternal(value, flags));
  case XML_ATTRIBUTE_ENTITY:
  case XML_ATTRIBUTE_IDREF:
  case XML_ATTRIBUTE_ID:
  case XML_ATTRIBUTE_NOTATION:
      return(xmlValidateNameValueInternal(value, flags));
  case XML_ATTRIBUTE_NMTOKENS:
  case XML_ATTRIBUTE_ENUMERATION:
      return(xmlValidateNmtokensValueInternal(value, flags));
  case XML_ATTRIBUTE_NMTOKEN:
      return(xmlValidateNmtokenValueInternal(value, flags));
        case XML_ATTRIBUTE_CDATA:
      break;
    }
    return(1);
}

/**
 * Validate that the given attribute value matches the proper production.
 *
 * @deprecated Internal function, don't use.
 *
 * [ VC: ID ]
 * Values of type ID must match the Name production....
 *
 * [ VC: IDREF ]
 * Values of type IDREF must match the Name production, and values
 * of type IDREFS must match Names ...
 *
 * [ VC: Entity Name ]
 * Values of type ENTITY must match the Name production, values
 * of type ENTITIES must match Names ...
 *
 * [ VC: Name Token ]
 * Values of type NMTOKEN must match the Nmtoken production; values
 * of type NMTOKENS must match Nmtokens.
 *
 * @param type  an attribute type
 * @param value  an attribute value
 * @returns 1 if valid or 0 otherwise.
 */
int
xmlValidateAttributeValue(xmlAttributeType type, const xmlChar *value) {
    return(xmlValidateAttributeValueInternal(NULL, type, value));
}

/**
 * Validate that the given attribute value matches a given type.
 * This typically cannot be done before having finished parsing
 * the subsets.
 *
 * [ VC: IDREF ]
 * Values of type IDREF must match one of the declared IDs.
 * Values of type IDREFS must match a sequence of the declared IDs
 * each Name must match the value of an ID attribute on some element
 * in the XML document; i.e. IDREF values must match the value of
 * some ID attribute.
 *
 * [ VC: Entity Name ]
 * Values of type ENTITY must match one declared entity.
 * Values of type ENTITIES must match a sequence of declared entities.
 *
 * [ VC: Notation Attributes ]
 * all notation names in the declaration must be declared.
 *
 * @param ctxt  the validation context
 * @param doc  the document
 * @param name  the attribute name (used for error reporting only)
 * @param type  the attribute type
 * @param value  the attribute value
 * @returns 1 if valid or 0 otherwise.
 */

static int
xmlValidateAttributeValue2(xmlValidCtxtPtr ctxt, xmlDocPtr doc,
      const xmlChar *name, xmlAttributeType type, const xmlChar *value) {
    int ret = 1;
    switch (type) {
  case XML_ATTRIBUTE_IDREFS:
  case XML_ATTRIBUTE_IDREF:
  case XML_ATTRIBUTE_ID:
  case XML_ATTRIBUTE_NMTOKENS:
  case XML_ATTRIBUTE_ENUMERATION:
  case XML_ATTRIBUTE_NMTOKEN:
        case XML_ATTRIBUTE_CDATA:
      break;
  case XML_ATTRIBUTE_ENTITY: {
      xmlEntityPtr ent;

      ent = xmlGetDocEntity(doc, value);
      /* yeah it's a bit messy... */
      if ((ent == NULL) && (doc->standalone == 1)) {
    doc->standalone = 0;
    ent = xmlGetDocEntity(doc, value);
      }
      if (ent == NULL) {
    xmlErrValidNode(ctxt, (xmlNodePtr) doc,
        XML_DTD_UNKNOWN_ENTITY,
   "ENTITY attribute %s reference an unknown entity \"%s\"\n",
           name, value, NULL);
    ret = 0;
      } else if (ent->etype != XML_EXTERNAL_GENERAL_UNPARSED_ENTITY) {
    xmlErrValidNode(ctxt, (xmlNodePtr) doc,
        XML_DTD_ENTITY_TYPE,
   "ENTITY attribute %s reference an entity \"%s\" of wrong type\n",
           name, value, NULL);
    ret = 0;
      }
      break;
        }
  case XML_ATTRIBUTE_ENTITIES: {
      xmlChar *dup, *nam = NULL, *cur, save;
      xmlEntityPtr ent;

      dup = xmlStrdup(value);
      if (dup == NULL) {
                xmlVErrMemory(ctxt);
    return(0);
            }
      cur = dup;
      while (*cur != 0) {
    nam = cur;
    while ((*cur != 0) && (!IS_BLANK_CH(*cur))) cur++;
    save = *cur;
    *cur = 0;
    ent = xmlGetDocEntity(doc, nam);
    if (ent == NULL) {
        xmlErrValidNode(ctxt, (xmlNodePtr) doc,
            XML_DTD_UNKNOWN_ENTITY,
       "ENTITIES attribute %s reference an unknown entity \"%s\"\n",
         name, nam, NULL);
        ret = 0;
    } else if (ent->etype != XML_EXTERNAL_GENERAL_UNPARSED_ENTITY) {
        xmlErrValidNode(ctxt, (xmlNodePtr) doc,
            XML_DTD_ENTITY_TYPE,
       "ENTITIES attribute %s reference an entity \"%s\" of wrong type\n",
         name, nam, NULL);
        ret = 0;
    }
    if (save == 0)
        break;
    *cur = save;
    while (IS_BLANK_CH(*cur)) cur++;
      }
      xmlFree(dup);
      break;
  }
  case XML_ATTRIBUTE_NOTATION: {
      xmlNotationPtr nota;

      nota = xmlGetDtdNotationDesc(doc->intSubset, value);
      if ((nota == NULL) && (doc->extSubset != NULL))
    nota = xmlGetDtdNotationDesc(doc->extSubset, value);

      if (nota == NULL) {
    xmlErrValidNode(ctxt, (xmlNodePtr) doc,
                    XML_DTD_UNKNOWN_NOTATION,
       "NOTATION attribute %s reference an unknown notation \"%s\"\n",
           name, value, NULL);
    ret = 0;
      }
      break;
        }
    }
    return(ret);
}

/**
 * Performs the validation-related extra step of the normalization
 * of attribute values:
 *
 * @deprecated Internal function, don't use.
 *
 * If the declared value is not CDATA, then the XML processor must further
 * process the normalized attribute value by discarding any leading and
 * trailing space (\#x20) characters, and by replacing sequences of space
 * (\#x20) characters by single space (\#x20) character.
 *
 * Also  check VC: Standalone Document Declaration in P32, and update
 * `ctxt->valid` accordingly
 *
 * @param ctxt  the validation context
 * @param doc  the document
 * @param elem  the parent
 * @param name  the attribute name
 * @param value  the attribute value
 * @returns a new normalized string if normalization is needed, NULL
 * otherwise. The caller must free the returned value.
 */

xmlChar *
xmlValidCtxtNormalizeAttributeValue(xmlValidCtxt *ctxt, xmlDoc *doc,
       xmlNode *elem, const xmlChar *name, const xmlChar *value) {
    xmlChar *ret;
    xmlAttributePtr attrDecl = NULL;
    const xmlChar *localName;
    xmlChar *prefix = NULL;
    int extsubset = 0;

    if (doc == NULL) return(NULL);
    if (elem == NULL) return(NULL);
    if (name == NULL) return(NULL);
    if (value == NULL) return(NULL);

    localName = xmlSplitQName4(name, &prefix);
    if (localName == NULL)
        goto mem_error;

    if ((elem->ns != NULL) && (elem->ns->prefix != NULL)) {
  xmlChar buf[50];
  xmlChar *elemname;

  elemname = xmlBuildQName(elem->name, elem->ns->prefix, buf, 50);
  if (elemname == NULL)
      goto mem_error;
        if (doc->intSubset != NULL)
            attrDecl = xmlHashLookup3(doc->intSubset->attributes, localName,
                                      prefix, elemname);
  if ((attrDecl == NULL) && (doc->extSubset != NULL)) {
      attrDecl = xmlHashLookup3(doc->extSubset->attributes, localName,
                                      prefix, elemname);
      if (attrDecl != NULL)
    extsubset = 1;
  }
  if ((elemname != buf) && (elemname != elem->name))
      xmlFree(elemname);
    }
    if ((attrDecl == NULL) && (doc->intSubset != NULL))
  attrDecl = xmlHashLookup3(doc->intSubset->attributes, localName,
                                  prefix, elem->name);
    if ((attrDecl == NULL) && (doc->extSubset != NULL)) {
  attrDecl = xmlHashLookup3(doc->extSubset->attributes, localName,
                                  prefix, elem->name);
  if (attrDecl != NULL)
      extsubset = 1;
    }

    if (attrDecl == NULL)
  goto done;
    if (attrDecl->atype == XML_ATTRIBUTE_CDATA)
  goto done;

    ret = xmlStrdup(value);
    if (ret == NULL)
  goto mem_error;
    xmlValidNormalizeString(ret);
    if ((doc->standalone) && (extsubset == 1) && (!xmlStrEqual(value, ret))) {
  xmlErrValidNode(ctxt, elem, XML_DTD_NOT_STANDALONE,
"standalone: %s on %s value had to be normalized based on external subset declaration\n",
         name, elem->name, NULL);
  ctxt->valid = 0;
    }

    xmlFree(prefix);
    return(ret);

mem_error:
    xmlVErrMemory(ctxt);

done:
    xmlFree(prefix);
    return(NULL);
}

/**
 * Performs the validation-related extra step of the normalization
 * of attribute values:
 *
 * @deprecated Internal function, don't use.
 *
 * If the declared value is not CDATA, then the XML processor must further
 * process the normalized attribute value by discarding any leading and
 * trailing space (\#x20) characters, and by replacing sequences of space
 * (\#x20) characters by single space (\#x20) character.
 *
 * @param doc  the document
 * @param elem  the parent
 * @param name  the attribute name
 * @param value  the attribute value
 * @returns a new normalized string if normalization is needed, NULL
 * otherwise. The caller must free the returned value.
 */

xmlChar *
xmlValidNormalizeAttributeValue(xmlDoc *doc, xmlNode *elem,
              const xmlChar *name, const xmlChar *value) {
    xmlChar *ret;
    xmlAttributePtr attrDecl = NULL;

    if (doc == NULL) return(NULL);
    if (elem == NULL) return(NULL);
    if (name == NULL) return(NULL);
    if (value == NULL) return(NULL);

    if ((elem->ns != NULL) && (elem->ns->prefix != NULL)) {
  xmlChar fn[50];
  xmlChar *fullname;

  fullname = xmlBuildQName(elem->name, elem->ns->prefix, fn, 50);
  if (fullname == NULL)
      return(NULL);
  if ((fullname != fn) && (fullname != elem->name))
      xmlFree(fullname);
    }
    attrDecl = xmlGetDtdAttrDesc(doc->intSubset, elem->name, name);
    if ((attrDecl == NULL) && (doc->extSubset != NULL))
  attrDecl = xmlGetDtdAttrDesc(doc->extSubset, elem->name, name);

    if (attrDecl == NULL)
  return(NULL);
    if (attrDecl->atype == XML_ATTRIBUTE_CDATA)
  return(NULL);

    ret = xmlStrdup(value);
    if (ret == NULL)
  return(NULL);
    xmlValidNormalizeString(ret);
    return(ret);
}

static void
xmlValidateAttributeIdCallback(void *payload, void *data,
                         const xmlChar *name ATTRIBUTE_UNUSED) {
    xmlAttributePtr attr = (xmlAttributePtr) payload;
    int *count = (int *) data;
    if (attr->atype == XML_ATTRIBUTE_ID) (*count)++;
}

/**
 * Try to validate a single attribute definition.
 * Performs the following checks as described by the
 * XML-1.0 recommendation:
 *
 * @deprecated Internal function, don't use.
 *
 * - [ VC: Attribute Default Legal ]
 * - [ VC: Enumeration ]
 * - [ VC: ID Attribute Default ]
 *
 * The ID/IDREF uniqueness and matching are done separately.
 *
 * @param ctxt  the validation context
 * @param doc  a document instance
 * @param attr  an attribute definition
 * @returns 1 if valid or 0 otherwise.
 */

int
xmlValidateAttributeDecl(xmlValidCtxt *ctxt, xmlDoc *doc,
                         xmlAttribute *attr) {
    int ret = 1;
    int val;
    CHECK_DTD;
    if(attr == NULL) return(1);

    /* Attribute Default Legal */
    /* Enumeration */
    if (attr->defaultValue != NULL) {
  val = xmlValidateAttributeValueInternal(doc, attr->atype,
                                          attr->defaultValue);
  if (val == 0) {
      xmlErrValidNode(ctxt, (xmlNodePtr) attr, XML_DTD_ATTRIBUTE_DEFAULT,
         "Syntax of default value for attribute %s of %s is not valid\n",
             attr->name, attr->elem, NULL);
  }
        ret &= val;
    }

    /* ID Attribute Default */
    if ((attr->atype == XML_ATTRIBUTE_ID)&&
        (attr->def != XML_ATTRIBUTE_IMPLIED) &&
  (attr->def != XML_ATTRIBUTE_REQUIRED)) {
  xmlErrValidNode(ctxt, (xmlNodePtr) attr, XML_DTD_ID_FIXED,
          "ID attribute %s of %s is not valid must be #IMPLIED or #REQUIRED\n",
         attr->name, attr->elem, NULL);
  ret = 0;
    }

    /* One ID per Element Type */
    if (attr->atype == XML_ATTRIBUTE_ID) {
        xmlElementPtr elem = NULL;
        const xmlChar *elemLocalName;
        xmlChar *elemPrefix;
        int nbId;

        elemLocalName = xmlSplitQName4(attr->elem, &elemPrefix);
        if (elemLocalName == NULL) {
            xmlVErrMemory(ctxt);
            return(0);
        }

  /* the trick is that we parse DtD as their own internal subset */
        if (doc->intSubset != NULL)
            elem = xmlHashLookup2(doc->intSubset->elements,
                                  elemLocalName, elemPrefix);
  if (elem != NULL) {
      nbId = xmlScanIDAttributeDecl(ctxt, elem, 0);
  } else {
      xmlAttributeTablePtr table;

      /*
       * The attribute may be declared in the internal subset and the
       * element in the external subset.
       */
      nbId = 0;
      if (doc->intSubset != NULL) {
    table = (xmlAttributeTablePtr) doc->intSubset->attributes;
    xmlHashScan3(table, NULL, NULL, attr->elem,
           xmlValidateAttributeIdCallback, &nbId);
      }
  }
  if (nbId > 1) {

      xmlErrValidNodeNr(ctxt, (xmlNodePtr) attr, XML_DTD_ID_SUBSET,
       "Element %s has %d ID attribute defined in the internal subset : %s\n",
       attr->elem, nbId, attr->name);
            ret = 0;
  } else if (doc->extSubset != NULL) {
      int extId = 0;
      elem = xmlHashLookup2(doc->extSubset->elements,
                                  elemLocalName, elemPrefix);
      if (elem != NULL) {
    extId = xmlScanIDAttributeDecl(ctxt, elem, 0);
      }
      if (extId > 1) {
    xmlErrValidNodeNr(ctxt, (xmlNodePtr) attr, XML_DTD_ID_SUBSET,
       "Element %s has %d ID attribute defined in the external subset : %s\n",
           attr->elem, extId, attr->name);
                ret = 0;
      } else if (extId + nbId > 1) {
    xmlErrValidNode(ctxt, (xmlNodePtr) attr, XML_DTD_ID_SUBSET,
"Element %s has ID attributes defined in the internal and external subset : %s\n",
           attr->elem, attr->name, NULL);
                ret = 0;
      }
  }

        xmlFree(elemPrefix);
    }

    /* Validity Constraint: Enumeration */
    if ((attr->defaultValue != NULL) && (attr->tree != NULL)) {
        xmlEnumerationPtr tree = attr->tree;
  while (tree != NULL) {
      if (xmlStrEqual(tree->name, attr->defaultValue)) break;
      tree = tree->next;
  }
  if (tree == NULL) {
      xmlErrValidNode(ctxt, (xmlNodePtr) attr, XML_DTD_ATTRIBUTE_VALUE,
"Default value \"%s\" for attribute %s of %s is not among the enumerated set\n",
       attr->defaultValue, attr->name, attr->elem);
      ret = 0;
  }
    }

    return(ret);
}

/**
 * Try to validate a single element definition.
 * Performs the following checks as described by the
 * XML-1.0 recommendation:
 *
 * @deprecated Internal function, don't use.
 *
 * - [ VC: One ID per Element Type ]
 * - [ VC: No Duplicate Types ]
 * - [ VC: Unique Element Type Declaration ]
 *
 * @param ctxt  the validation context
 * @param doc  a document instance
 * @param elem  an element definition
 * @returns 1 if valid or 0 otherwise.
 */

int
xmlValidateElementDecl(xmlValidCtxt *ctxt, xmlDoc *doc,
                       xmlElement *elem) {
    int ret = 1;
    xmlElementPtr tst;
    const xmlChar *localName;
    xmlChar *prefix;

    CHECK_DTD;

    if (elem == NULL) return(1);

    /* No Duplicate Types */
    if (elem->etype == XML_ELEMENT_TYPE_MIXED) {
  xmlElementContentPtr cur, next;
        const xmlChar *name;

  cur = elem->content;
  while (cur != NULL) {
      if (cur->type != XML_ELEMENT_CONTENT_OR) break;
      if (cur->c1 == NULL) break;
      if (cur->c1->type == XML_ELEMENT_CONTENT_ELEMENT) {
    name = cur->c1->name;
    next = cur->c2;
    while (next != NULL) {
        if (next->type == XML_ELEMENT_CONTENT_ELEMENT) {
            if ((xmlStrEqual(next->name, name)) &&
          (xmlStrEqual(next->prefix, cur->c1->prefix))) {
          if (cur->c1->prefix == NULL) {
        xmlErrValidNode(ctxt, (xmlNodePtr) elem, XML_DTD_CONTENT_ERROR,
       "Definition of %s has duplicate references of %s\n",
               elem->name, name, NULL);
          } else {
        xmlErrValidNode(ctxt, (xmlNodePtr) elem, XML_DTD_CONTENT_ERROR,
       "Definition of %s has duplicate references of %s:%s\n",
               elem->name, cur->c1->prefix, name);
          }
          ret = 0;
      }
      break;
        }
        if (next->c1 == NULL) break;
        if (next->c1->type != XML_ELEMENT_CONTENT_ELEMENT) break;
        if ((xmlStrEqual(next->c1->name, name)) &&
            (xmlStrEqual(next->c1->prefix, cur->c1->prefix))) {
      if (cur->c1->prefix == NULL) {
          xmlErrValidNode(ctxt, (xmlNodePtr) elem, XML_DTD_CONTENT_ERROR,
         "Definition of %s has duplicate references to %s\n",
           elem->name, name, NULL);
      } else {
          xmlErrValidNode(ctxt, (xmlNodePtr) elem, XML_DTD_CONTENT_ERROR,
         "Definition of %s has duplicate references to %s:%s\n",
           elem->name, cur->c1->prefix, name);
      }
      ret = 0;
        }
        next = next->c2;
    }
      }
      cur = cur->c2;
  }
    }

    localName = xmlSplitQName4(elem->name, &prefix);
    if (localName == NULL) {
        xmlVErrMemory(ctxt);
        return(0);
    }

    /* VC: Unique Element Type Declaration */
    if (doc->intSubset != NULL) {
        tst = xmlHashLookup2(doc->intSubset->elements, localName, prefix);

        if ((tst != NULL ) && (tst != elem) &&
            ((tst->prefix == elem->prefix) ||
             (xmlStrEqual(tst->prefix, elem->prefix))) &&
            (tst->etype != XML_ELEMENT_TYPE_UNDEFINED)) {
            xmlErrValidNode(ctxt, (xmlNodePtr) elem, XML_DTD_ELEM_REDEFINED,
                            "Redefinition of element %s\n",
                           elem->name, NULL, NULL);
            ret = 0;
        }
    }
    if (doc->extSubset != NULL) {
        tst = xmlHashLookup2(doc->extSubset->elements, localName, prefix);

        if ((tst != NULL ) && (tst != elem) &&
            ((tst->prefix == elem->prefix) ||
             (xmlStrEqual(tst->prefix, elem->prefix))) &&
            (tst->etype != XML_ELEMENT_TYPE_UNDEFINED)) {
            xmlErrValidNode(ctxt, (xmlNodePtr) elem, XML_DTD_ELEM_REDEFINED,
                            "Redefinition of element %s\n",
                           elem->name, NULL, NULL);
            ret = 0;
        }
    }

    xmlFree(prefix);
    return(ret);
}

/**
 * Try to validate a single attribute for an element.
 * Performs the following checks as described by the
 * XML-1.0 recommendation:
 *
 * @deprecated Internal function, don't use.
 *
 * - [ VC: Attribute Value Type ]
 * - [ VC: Fixed Attribute Default ]
 * - [ VC: Entity Name ]
 * - [ VC: Name Token ]
 * - [ VC: ID ]
 * - [ VC: IDREF ]
 * - [ VC: Entity Name ]
 * - [ VC: Notation Attributes ]
 *
 * ID/IDREF uniqueness and matching are handled separately.
 *
 * @param ctxt  the validation context
 * @param doc  a document instance
 * @param elem  an element instance
 * @param attr  an attribute instance
 * @param value  the attribute value (without entities processing)
 * @returns 1 if valid or 0 otherwise.
 */

int
xmlValidateOneAttribute(xmlValidCtxt *ctxt, xmlDoc *doc,
                        xmlNode *elem, xmlAttr *attr, const xmlChar *value)
{
    xmlAttributePtr attrDecl =  NULL;
    const xmlChar *aprefix;
    int val;
    int ret = 1;

    CHECK_DTD;
    if ((elem == NULL) || (elem->name == NULL)) return(0);
    if ((attr == NULL) || (attr->name == NULL)) return(0);

    aprefix = (attr->ns != NULL) ? attr->ns->prefix : NULL;

    if ((elem->ns != NULL) && (elem->ns->prefix != NULL)) {
  xmlChar fn[50];
  xmlChar *fullname;

  fullname = xmlBuildQName(elem->name, elem->ns->prefix, fn, 50);
  if (fullname == NULL) {
            xmlVErrMemory(ctxt);
      return(0);
        }
        attrDecl = xmlGetDtdQAttrDesc(doc->intSubset, fullname,
                                      attr->name, aprefix);
        if ((attrDecl == NULL) && (doc->extSubset != NULL))
            attrDecl = xmlGetDtdQAttrDesc(doc->extSubset, fullname,
                                          attr->name, aprefix);
  if ((fullname != fn) && (fullname != elem->name))
      xmlFree(fullname);
    }
    if (attrDecl == NULL) {
        attrDecl = xmlGetDtdQAttrDesc(doc->intSubset, elem->name,
                                      attr->name, aprefix);
        if ((attrDecl == NULL) && (doc->extSubset != NULL))
            attrDecl = xmlGetDtdQAttrDesc(doc->extSubset, elem->name,
                                          attr->name, aprefix);
    }


    /* Validity Constraint: Attribute Value Type */
    if (attrDecl == NULL) {
  xmlErrValidNode(ctxt, elem, XML_DTD_UNKNOWN_ATTRIBUTE,
         "No declaration for attribute %s of element %s\n",
         attr->name, elem->name, NULL);
  return(0);
    }
    if (attr->id != NULL)
        xmlRemoveID(doc, attr);
    attr->atype = attrDecl->atype;

    val = xmlValidateAttributeValueInternal(doc, attrDecl->atype, value);
    if (val == 0) {
      xmlErrValidNode(ctxt, elem, XML_DTD_ATTRIBUTE_VALUE,
     "Syntax of value for attribute %s of %s is not valid\n",
         attr->name, elem->name, NULL);
        ret = 0;
    }

    /* Validity constraint: Fixed Attribute Default */
    if (attrDecl->def == XML_ATTRIBUTE_FIXED) {
  if (!xmlStrEqual(value, attrDecl->defaultValue)) {
      xmlErrValidNode(ctxt, elem, XML_DTD_ATTRIBUTE_DEFAULT,
     "Value for attribute %s of %s is different from default \"%s\"\n",
       attr->name, elem->name, attrDecl->defaultValue);
      ret = 0;
  }
    }

    /* Validity Constraint: ID uniqueness */
    if (attrDecl->atype == XML_ATTRIBUTE_ID &&
        (ctxt == NULL || (ctxt->flags & XML_VCTXT_IN_ENTITY) == 0)) {
        if (xmlAddID(ctxt, doc, value, attr) == NULL)
      ret = 0;
    }

    if ((attrDecl->atype == XML_ATTRIBUTE_IDREF) ||
  (attrDecl->atype == XML_ATTRIBUTE_IDREFS)) {
        if (xmlAddRef(ctxt, doc, value, attr) == NULL)
      ret = 0;
    }

    /* Validity Constraint: Notation Attributes */
    if (attrDecl->atype == XML_ATTRIBUTE_NOTATION) {
        xmlEnumerationPtr tree = attrDecl->tree;
        xmlNotationPtr nota;

        /* First check that the given NOTATION was declared */
  nota = xmlGetDtdNotationDesc(doc->intSubset, value);
  if (nota == NULL)
      nota = xmlGetDtdNotationDesc(doc->extSubset, value);

  if (nota == NULL) {
      xmlErrValidNode(ctxt, elem, XML_DTD_UNKNOWN_NOTATION,
       "Value \"%s\" for attribute %s of %s is not a declared Notation\n",
       value, attr->name, elem->name);
      ret = 0;
        }

  /* Second, verify that it's among the list */
  while (tree != NULL) {
      if (xmlStrEqual(tree->name, value)) break;
      tree = tree->next;
  }
  if (tree == NULL) {
      xmlErrValidNode(ctxt, elem, XML_DTD_NOTATION_VALUE,
"Value \"%s\" for attribute %s of %s is not among the enumerated notations\n",
       value, attr->name, elem->name);
      ret = 0;
  }
    }

    /* Validity Constraint: Enumeration */
    if (attrDecl->atype == XML_ATTRIBUTE_ENUMERATION) {
        xmlEnumerationPtr tree = attrDecl->tree;
  while (tree != NULL) {
      if (xmlStrEqual(tree->name, value)) break;
      tree = tree->next;
  }
  if (tree == NULL) {
      xmlErrValidNode(ctxt, elem, XML_DTD_ATTRIBUTE_VALUE,
       "Value \"%s\" for attribute %s of %s is not among the enumerated set\n",
       value, attr->name, elem->name);
      ret = 0;
  }
    }

    /* Fixed Attribute Default */
    if ((attrDecl->def == XML_ATTRIBUTE_FIXED) &&
        (!xmlStrEqual(attrDecl->defaultValue, value))) {
  xmlErrValidNode(ctxt, elem, XML_DTD_ATTRIBUTE_VALUE,
     "Value for attribute %s of %s must be \"%s\"\n",
         attr->name, elem->name, attrDecl->defaultValue);
        ret = 0;
    }

    /* Extra check for the attribute value */
    ret &= xmlValidateAttributeValue2(ctxt, doc, attr->name,
              attrDecl->atype, value);

    return(ret);
}

/**
 * Try to validate a single namespace declaration for an element.
 * Performs the following checks as described by the
 * XML-1.0 recommendation:
 *
 * @deprecated Internal function, don't use.
 *
 * - [ VC: Attribute Value Type ]
 * - [ VC: Fixed Attribute Default ]
 * - [ VC: Entity Name ]
 * - [ VC: Name Token ]
 * - [ VC: ID ]
 * - [ VC: IDREF ]
 * - [ VC: Entity Name ]
 * - [ VC: Notation Attributes ]
 *
 * ID/IDREF uniqueness and matching are handled separately.
 *
 * @param ctxt  the validation context
 * @param doc  a document instance
 * @param elem  an element instance
 * @param prefix  the namespace prefix
 * @param ns  an namespace declaration instance
 * @param value  the attribute value (without entities processing)
 * @returns 1 if valid or 0 otherwise.
 */

int
xmlValidateOneNamespace(xmlValidCtxt *ctxt, xmlDoc *doc,
xmlNode *elem, const xmlChar *prefix, xmlNs *ns, const xmlChar *value) {
    /* xmlElementPtr elemDecl; */
    xmlAttributePtr attrDecl =  NULL;
    int val;
    int ret = 1;

    CHECK_DTD;
    if ((elem == NULL) || (elem->name == NULL)) return(0);
    if ((ns == NULL) || (ns->href == NULL)) return(0);

    if (prefix != NULL) {
  xmlChar fn[50];
  xmlChar *fullname;

  fullname = xmlBuildQName(elem->name, prefix, fn, 50);
  if (fullname == NULL) {
      xmlVErrMemory(ctxt);
      return(0);
  }
  if (ns->prefix != NULL) {
      attrDecl = xmlGetDtdQAttrDesc(doc->intSubset, fullname,
                              ns->prefix, BAD_CAST "xmlns");
      if ((attrDecl == NULL) && (doc->extSubset != NULL))
    attrDecl = xmlGetDtdQAttrDesc(doc->extSubset, fullname,
            ns->prefix, BAD_CAST "xmlns");
  } else {
      attrDecl = xmlGetDtdQAttrDesc(doc->intSubset, fullname,
                                          BAD_CAST "xmlns", NULL);
      if ((attrDecl == NULL) && (doc->extSubset != NULL))
    attrDecl = xmlGetDtdQAttrDesc(doc->extSubset, fullname,
                                              BAD_CAST "xmlns", NULL);
  }
  if ((fullname != fn) && (fullname != elem->name))
      xmlFree(fullname);
    }
    if (attrDecl == NULL) {
  if (ns->prefix != NULL) {
      attrDecl = xmlGetDtdQAttrDesc(doc->intSubset, elem->name,
                              ns->prefix, BAD_CAST "xmlns");
      if ((attrDecl == NULL) && (doc->extSubset != NULL))
    attrDecl = xmlGetDtdQAttrDesc(doc->extSubset, elem->name,
                ns->prefix, BAD_CAST "xmlns");
  } else {
      attrDecl = xmlGetDtdQAttrDesc(doc->intSubset, elem->name,
                                          BAD_CAST "xmlns", NULL);
      if ((attrDecl == NULL) && (doc->extSubset != NULL))
    attrDecl = xmlGetDtdQAttrDesc(doc->extSubset, elem->name,
                                              BAD_CAST "xmlns", NULL);
  }
    }


    /* Validity Constraint: Attribute Value Type */
    if (attrDecl == NULL) {
  if (ns->prefix != NULL) {
      xmlErrValidNode(ctxt, elem, XML_DTD_UNKNOWN_ATTRIBUTE,
       "No declaration for attribute xmlns:%s of element %s\n",
       ns->prefix, elem->name, NULL);
  } else {
      xmlErrValidNode(ctxt, elem, XML_DTD_UNKNOWN_ATTRIBUTE,
       "No declaration for attribute xmlns of element %s\n",
       elem->name, NULL, NULL);
  }
  return(0);
    }

    val = xmlValidateAttributeValueInternal(doc, attrDecl->atype, value);
    if (val == 0) {
  if (ns->prefix != NULL) {
      xmlErrValidNode(ctxt, elem, XML_DTD_INVALID_DEFAULT,
         "Syntax of value for attribute xmlns:%s of %s is not valid\n",
       ns->prefix, elem->name, NULL);
  } else {
      xmlErrValidNode(ctxt, elem, XML_DTD_INVALID_DEFAULT,
         "Syntax of value for attribute xmlns of %s is not valid\n",
       elem->name, NULL, NULL);
  }
        ret = 0;
    }

    /* Validity constraint: Fixed Attribute Default */
    if (attrDecl->def == XML_ATTRIBUTE_FIXED) {
  if (!xmlStrEqual(value, attrDecl->defaultValue)) {
      if (ns->prefix != NULL) {
    xmlErrValidNode(ctxt, elem, XML_DTD_ATTRIBUTE_DEFAULT,
       "Value for attribute xmlns:%s of %s is different from default \"%s\"\n",
           ns->prefix, elem->name, attrDecl->defaultValue);
      } else {
    xmlErrValidNode(ctxt, elem, XML_DTD_ATTRIBUTE_DEFAULT,
       "Value for attribute xmlns of %s is different from default \"%s\"\n",
           elem->name, attrDecl->defaultValue, NULL);
      }
      ret = 0;
  }
    }

    /* Validity Constraint: Notation Attributes */
    if (attrDecl->atype == XML_ATTRIBUTE_NOTATION) {
        xmlEnumerationPtr tree = attrDecl->tree;
        xmlNotationPtr nota;

        /* First check that the given NOTATION was declared */
  nota = xmlGetDtdNotationDesc(doc->intSubset, value);
  if (nota == NULL)
      nota = xmlGetDtdNotationDesc(doc->extSubset, value);

  if (nota == NULL) {
      if (ns->prefix != NULL) {
    xmlErrValidNode(ctxt, elem, XML_DTD_UNKNOWN_NOTATION,
       "Value \"%s\" for attribute xmlns:%s of %s is not a declared Notation\n",
           value, ns->prefix, elem->name);
      } else {
    xmlErrValidNode(ctxt, elem, XML_DTD_UNKNOWN_NOTATION,
       "Value \"%s\" for attribute xmlns of %s is not a declared Notation\n",
           value, elem->name, NULL);
      }
      ret = 0;
        }

  /* Second, verify that it's among the list */
  while (tree != NULL) {
      if (xmlStrEqual(tree->name, value)) break;
      tree = tree->next;
  }
  if (tree == NULL) {
      if (ns->prefix != NULL) {
    xmlErrValidNode(ctxt, elem, XML_DTD_NOTATION_VALUE,
"Value \"%s\" for attribute xmlns:%s of %s is not among the enumerated notations\n",
           value, ns->prefix, elem->name);
      } else {
    xmlErrValidNode(ctxt, elem, XML_DTD_NOTATION_VALUE,
"Value \"%s\" for attribute xmlns of %s is not among the enumerated notations\n",
           value, elem->name, NULL);
      }
      ret = 0;
  }
    }

    /* Validity Constraint: Enumeration */
    if (attrDecl->atype == XML_ATTRIBUTE_ENUMERATION) {
        xmlEnumerationPtr tree = attrDecl->tree;
  while (tree != NULL) {
      if (xmlStrEqual(tree->name, value)) break;
      tree = tree->next;
  }
  if (tree == NULL) {
      if (ns->prefix != NULL) {
    xmlErrValidNode(ctxt, elem, XML_DTD_ATTRIBUTE_VALUE,
"Value \"%s\" for attribute xmlns:%s of %s is not among the enumerated set\n",
           value, ns->prefix, elem->name);
      } else {
    xmlErrValidNode(ctxt, elem, XML_DTD_ATTRIBUTE_VALUE,
"Value \"%s\" for attribute xmlns of %s is not among the enumerated set\n",
           value, elem->name, NULL);
      }
      ret = 0;
  }
    }

    /* Fixed Attribute Default */
    if ((attrDecl->def == XML_ATTRIBUTE_FIXED) &&
        (!xmlStrEqual(attrDecl->defaultValue, value))) {
  if (ns->prefix != NULL) {
      xmlErrValidNode(ctxt, elem, XML_DTD_ELEM_NAMESPACE,
       "Value for attribute xmlns:%s of %s must be \"%s\"\n",
       ns->prefix, elem->name, attrDecl->defaultValue);
  } else {
      xmlErrValidNode(ctxt, elem, XML_DTD_ELEM_NAMESPACE,
       "Value for attribute xmlns of %s must be \"%s\"\n",
       elem->name, attrDecl->defaultValue, NULL);
  }
        ret = 0;
    }

    /* Extra check for the attribute value */
    if (ns->prefix != NULL) {
  ret &= xmlValidateAttributeValue2(ctxt, doc, ns->prefix,
            attrDecl->atype, value);
    } else {
  ret &= xmlValidateAttributeValue2(ctxt, doc, BAD_CAST "xmlns",
            attrDecl->atype, value);
    }

    return(ret);
}

#ifndef  LIBXML_REGEXP_ENABLED
/**
 * Skip ignorable elements w.r.t. the validation process
 *
 * @param ctxt  the validation context
 * @param child  the child list
 * @returns the first element to consider for validation of the content model
 */

static xmlNodePtr
xmlValidateSkipIgnorable(xmlNodePtr child) {
    while (child != NULL) {
  switch (child->type) {
      /* These things are ignored (skipped) during validation.  */
      case XML_PI_NODE:
      case XML_COMMENT_NODE:
      case XML_XINCLUDE_START:
      case XML_XINCLUDE_END:
    child = child->next;
    break;
      case XML_TEXT_NODE:
    if (xmlIsBlankNode(child))
        child = child->next;
    else
        return(child);
    break;
      /* keep current node */
      default:
    return(child);
  }
    }
    return(child);
}

/**
 * Try to validate the content model of an element internal function
 *
 * @param ctxt  the validation context
 * @returns 1 if valid or 0 ,-1 in case of error, -2 if an entity
 *           reference is found and -3 if the validation succeeded but
 *           the content model is not determinist.
 */

static int
xmlValidateElementType(xmlValidCtxtPtr ctxt) {
    int ret = -1;
    int determinist = 1;

    NODE = xmlValidateSkipIgnorable(NODE);
    if ((NODE == NULL) && (CONT == NULL))
  return(1);
    if ((NODE == NULL) &&
  ((CONT->ocur == XML_ELEMENT_CONTENT_MULT) ||
   (CONT->ocur == XML_ELEMENT_CONTENT_OPT))) {
  return(1);
    }
    if (CONT == NULL) return(-1);
    if ((NODE != NULL) && (NODE->type == XML_ENTITY_REF_NODE))
  return(-2);

    /*
     * We arrive here when more states need to be examined
     */
cont:

    /*
     * We just recovered from a rollback generated by a possible
     * epsilon transition, go directly to the analysis phase
     */
    if (STATE == ROLLBACK_PARENT) {
  ret = 1;
  goto analyze;
    }

    /*
     * we may have to save a backup state here. This is the equivalent
     * of handling epsilon transition in NFAs.
     */
    if ((CONT != NULL) &&
  ((CONT->parent == NULL) ||
   (CONT->parent == (xmlElementContentPtr) 1) ||
   (CONT->parent->type != XML_ELEMENT_CONTENT_OR)) &&
  ((CONT->ocur == XML_ELEMENT_CONTENT_MULT) ||
   (CONT->ocur == XML_ELEMENT_CONTENT_OPT) ||
   ((CONT->ocur == XML_ELEMENT_CONTENT_PLUS) && (OCCURRENCE)))) {
  if (vstateVPush(ctxt, CONT, NODE, DEPTH, OCCURS, ROLLBACK_PARENT) < 0)
      return(0);
    }


    /*
     * Check first if the content matches
     */
    switch (CONT->type) {
  case XML_ELEMENT_CONTENT_PCDATA:
      if (NODE == NULL) {
    ret = 0;
    break;
      }
      if (NODE->type == XML_TEXT_NODE) {
    /*
     * go to next element in the content model
     * skipping ignorable elems
     */
    do {
        NODE = NODE->next;
        NODE = xmlValidateSkipIgnorable(NODE);
        if ((NODE != NULL) &&
      (NODE->type == XML_ENTITY_REF_NODE))
      return(-2);
    } while ((NODE != NULL) &&
       ((NODE->type != XML_ELEMENT_NODE) &&
        (NODE->type != XML_TEXT_NODE) &&
        (NODE->type != XML_CDATA_SECTION_NODE)));
                ret = 1;
    break;
      } else {
    ret = 0;
    break;
      }
      break;
  case XML_ELEMENT_CONTENT_ELEMENT:
      if (NODE == NULL) {
    ret = 0;
    break;
      }
      ret = ((NODE->type == XML_ELEMENT_NODE) &&
       (xmlStrEqual(NODE->name, CONT->name)));
      if (ret == 1) {
    if ((NODE->ns == NULL) || (NODE->ns->prefix == NULL)) {
        ret = (CONT->prefix == NULL);
    } else if (CONT->prefix == NULL) {
        ret = 0;
    } else {
        ret = xmlStrEqual(NODE->ns->prefix, CONT->prefix);
    }
      }
      if (ret == 1) {
    /*
     * go to next element in the content model
     * skipping ignorable elems
     */
    do {
        NODE = NODE->next;
        NODE = xmlValidateSkipIgnorable(NODE);
        if ((NODE != NULL) &&
      (NODE->type == XML_ENTITY_REF_NODE))
      return(-2);
    } while ((NODE != NULL) &&
       ((NODE->type != XML_ELEMENT_NODE) &&
        (NODE->type != XML_TEXT_NODE) &&
        (NODE->type != XML_CDATA_SECTION_NODE)));
      } else {
    ret = 0;
    break;
      }
      break;
  case XML_ELEMENT_CONTENT_OR:
      /*
       * Small optimization.
       */
      if (CONT->c1->type == XML_ELEMENT_CONTENT_ELEMENT) {
    if ((NODE == NULL) ||
        (!xmlStrEqual(NODE->name, CONT->c1->name))) {
        DEPTH++;
        CONT = CONT->c2;
        goto cont;
    }
    if ((NODE->ns == NULL) || (NODE->ns->prefix == NULL)) {
        ret = (CONT->c1->prefix == NULL);
    } else if (CONT->c1->prefix == NULL) {
        ret = 0;
    } else {
        ret = xmlStrEqual(NODE->ns->prefix, CONT->c1->prefix);
    }
    if (ret == 0) {
        DEPTH++;
        CONT = CONT->c2;
        goto cont;
    }
      }

      /*
       * save the second branch 'or' branch
       */
      if (vstateVPush(ctxt, CONT->c2, NODE, DEPTH + 1,
          OCCURS, ROLLBACK_OR) < 0)
    return(-1);
      DEPTH++;
      CONT = CONT->c1;
      goto cont;
  case XML_ELEMENT_CONTENT_SEQ:
      /*
       * Small optimization.
       */
      if ((CONT->c1->type == XML_ELEMENT_CONTENT_ELEMENT) &&
    ((CONT->c1->ocur == XML_ELEMENT_CONTENT_OPT) ||
     (CONT->c1->ocur == XML_ELEMENT_CONTENT_MULT))) {
    if ((NODE == NULL) ||
        (!xmlStrEqual(NODE->name, CONT->c1->name))) {
        DEPTH++;
        CONT = CONT->c2;
        goto cont;
    }
    if ((NODE->ns == NULL) || (NODE->ns->prefix == NULL)) {
        ret = (CONT->c1->prefix == NULL);
    } else if (CONT->c1->prefix == NULL) {
        ret = 0;
    } else {
        ret = xmlStrEqual(NODE->ns->prefix, CONT->c1->prefix);
    }
    if (ret == 0) {
        DEPTH++;
        CONT = CONT->c2;
        goto cont;
    }
      }
      DEPTH++;
      CONT = CONT->c1;
      goto cont;
    }

    /*
     * At this point handle going up in the tree
     */
    if (ret == -1) {
  return(ret);
    }
analyze:
    while (CONT != NULL) {
  /*
   * First do the analysis depending on the occurrence model at
   * this level.
   */
  if (ret == 0) {
      switch (CONT->ocur) {
    xmlNodePtr cur;

    case XML_ELEMENT_CONTENT_ONCE:
        cur = ctxt->vstate->node;
        if (vstateVPop(ctxt) < 0 ) {
      return(0);
        }
        if (cur != ctxt->vstate->node)
      determinist = -3;
        goto cont;
    case XML_ELEMENT_CONTENT_PLUS:
        if (OCCURRENCE == 0) {
      cur = ctxt->vstate->node;
      if (vstateVPop(ctxt) < 0 ) {
          return(0);
      }
      if (cur != ctxt->vstate->node)
          determinist = -3;
      goto cont;
        }
        ret = 1;
        break;
    case XML_ELEMENT_CONTENT_MULT:
        ret = 1;
        break;
    case XML_ELEMENT_CONTENT_OPT:
        ret = 1;
        break;
      }
  } else {
      switch (CONT->ocur) {
    case XML_ELEMENT_CONTENT_OPT:
        ret = 1;
        break;
    case XML_ELEMENT_CONTENT_ONCE:
        ret = 1;
        break;
    case XML_ELEMENT_CONTENT_PLUS:
        if (STATE == ROLLBACK_PARENT) {
      ret = 1;
      break;
        }
        if (NODE == NULL) {
      ret = 1;
      break;
        }
        SET_OCCURRENCE;
        goto cont;
    case XML_ELEMENT_CONTENT_MULT:
        if (STATE == ROLLBACK_PARENT) {
      ret = 1;
      break;
        }
        if (NODE == NULL) {
      ret = 1;
      break;
        }
        /* SET_OCCURRENCE; */
        goto cont;
      }
  }
  STATE = 0;

  /*
   * Then act accordingly at the parent level
   */
  RESET_OCCURRENCE;
  if ((CONT->parent == NULL) ||
            (CONT->parent == (xmlElementContentPtr) 1))
      break;

  switch (CONT->parent->type) {
      case XML_ELEMENT_CONTENT_PCDATA:
    return(-1);
      case XML_ELEMENT_CONTENT_ELEMENT:
    return(-1);
      case XML_ELEMENT_CONTENT_OR:
    if (ret == 1) {
        CONT = CONT->parent;
        DEPTH--;
    } else {
        CONT = CONT->parent;
        DEPTH--;
    }
    break;
      case XML_ELEMENT_CONTENT_SEQ:
    if (ret == 0) {
        CONT = CONT->parent;
        DEPTH--;
    } else if (CONT == CONT->parent->c1) {
        CONT = CONT->parent->c2;
        goto cont;
    } else {
        CONT = CONT->parent;
        DEPTH--;
    }
  }
    }
    if (NODE != NULL) {
  xmlNodePtr cur;

  cur = ctxt->vstate->node;
  if (vstateVPop(ctxt) < 0 ) {
      return(0);
  }
  if (cur != ctxt->vstate->node)
      determinist = -3;
  goto cont;
    }
    if (ret == 0) {
  xmlNodePtr cur;

  cur = ctxt->vstate->node;
  if (vstateVPop(ctxt) < 0 ) {
      return(0);
  }
  if (cur != ctxt->vstate->node)
      determinist = -3;
  goto cont;
    }
    return(determinist);
}
#endif

/**
 * This will dump the list of elements to the buffer
 * Intended just for the debug routine
 *
 * @param buf  an output buffer
 * @param size  the size of the buffer
 * @param node  an element
 * @param glob  1 if one must print the englobing parenthesis, 0 otherwise
 */
static void
xmlSnprintfElements(char *buf, int size, xmlNodePtr node, int glob) {
    xmlNodePtr cur;
    int len;

    if (node == NULL) return;
    len = strlen(buf);
    if (glob) {
        if (size - len < 50) {
            if ((size - len > 4) && (buf[len - 1] != '.'))
                strcat(buf, " ...");
            return;
        }
        strcat(buf, "(");
    }
    cur = node;
    while (cur != NULL) {
  len = strlen(buf);
  if (size - len < 50) {
      if ((size - len > 4) && (buf[len - 1] != '.'))
    strcat(buf, " ...");
      return;
  }
        switch (cur->type) {
            case XML_ELEMENT_NODE: {
                int qnameLen = xmlStrlen(cur->name);

                if ((cur->ns != NULL) && (cur->ns->prefix != NULL))
                    qnameLen += xmlStrlen(cur->ns->prefix) + 1;
                if (size - len < qnameLen + 10) {
                    if ((size - len > 4) && (buf[len - 1] != '.'))
                        strcat(buf, " ...");
                    return;
                }
    if ((cur->ns != NULL) && (cur->ns->prefix != NULL)) {
        strcat(buf, (char *) cur->ns->prefix);
        strcat(buf, ":");
    }
                if (cur->name != NULL)
              strcat(buf, (char *) cur->name);
    if (cur->next != NULL)
        strcat(buf, " ");
    break;
            }
            case XML_TEXT_NODE:
    if (xmlIsBlankNode(cur))
        break;
                /* Falls through. */
            case XML_CDATA_SECTION_NODE:
            case XML_ENTITY_REF_NODE:
          strcat(buf, "CDATA");
    if (cur->next != NULL)
        strcat(buf, " ");
    break;
            case XML_ATTRIBUTE_NODE:
            case XML_DOCUMENT_NODE:
      case XML_HTML_DOCUMENT_NODE:
            case XML_DOCUMENT_TYPE_NODE:
            case XML_DOCUMENT_FRAG_NODE:
            case XML_NOTATION_NODE:
      case XML_NAMESPACE_DECL:
          strcat(buf, "???");
    if (cur->next != NULL)
        strcat(buf, " ");
    break;
            case XML_ENTITY_NODE:
            case XML_PI_NODE:
            case XML_DTD_NODE:
            case XML_COMMENT_NODE:
      case XML_ELEMENT_DECL:
      case XML_ATTRIBUTE_DECL:
      case XML_ENTITY_DECL:
      case XML_XINCLUDE_START:
      case XML_XINCLUDE_END:
    break;
  }
  cur = cur->next;
    }
    if (glob) {
        len = strlen(buf);
        if (size - len > 1)
            strcat(buf, ")");
    }
}

/**
 * Try to validate the content model of an element
 *
 * @param ctxt  the validation context
 * @param child  the child list
 * @param elemDecl  pointer to the element declaration
 * @param warn  emit the error message
 * @param parent  the parent element (for error reporting)
 * @returns 1 if valid or 0 if not and -1 in case of error
 */

static int
xmlValidateElementContent(xmlValidCtxtPtr ctxt, xmlNodePtr child,
       xmlElementPtr elemDecl, int warn, xmlNodePtr parent) {
    int ret = 1;
#ifndef  LIBXML_REGEXP_ENABLED
    xmlNodePtr repl = NULL, last = NULL, tmp;
#endif
    xmlNodePtr cur;
    xmlElementContentPtr cont;
    const xmlChar *name;

    if ((elemDecl == NULL) || (parent == NULL) || (ctxt == NULL))
  return(-1);
    cont = elemDecl->content;
    name = elemDecl->name;

#ifdef LIBXML_REGEXP_ENABLED
    /* Build the regexp associated to the content model */
    if (elemDecl->contModel == NULL)
  ret = xmlValidBuildContentModel(ctxt, elemDecl);
    if (elemDecl->contModel == NULL) {
  return(-1);
    } else {
  xmlRegExecCtxtPtr exec;

  if (!xmlRegexpIsDeterminist(elemDecl->contModel)) {
      return(-1);
  }
  ctxt->nodeMax = 0;
  ctxt->nodeNr = 0;
  ctxt->nodeTab = NULL;
  exec = xmlRegNewExecCtxt(elemDecl->contModel, NULL, NULL);
  if (exec == NULL) {
            xmlVErrMemory(ctxt);
            return(-1);
        }
        cur = child;
        while (cur != NULL) {
            switch (cur->type) {
                case XML_ENTITY_REF_NODE:
                    /*
                     * Push the current node to be able to roll back
                     * and process within the entity
                     */
                    if ((cur->children != NULL) &&
                        (cur->children->children != NULL)) {
                        if (nodeVPush(ctxt, cur) < 0) {
                            ret = -1;
                            goto fail;
                        }
                        cur = cur->children->children;
                        continue;
                    }
                    break;
                case XML_TEXT_NODE:
                    if (xmlIsBlankNode(cur))
                        break;
                    ret = 0;
                    goto fail;
                case XML_CDATA_SECTION_NODE:
                    /* TODO */
                    ret = 0;
                    goto fail;
                case XML_ELEMENT_NODE:
                    if ((cur->ns != NULL) && (cur->ns->prefix != NULL)) {
                        xmlChar fn[50];
                        xmlChar *fullname;

                        fullname = xmlBuildQName(cur->name,
                                                 cur->ns->prefix, fn, 50);
                        if (fullname == NULL) {
                            xmlVErrMemory(ctxt);
                            ret = -1;
                            goto fail;
                        }
                        ret = xmlRegExecPushString(exec, fullname, NULL);
                        if ((fullname != fn) && (fullname != cur->name))
                            xmlFree(fullname);
                    } else {
                        ret = xmlRegExecPushString(exec, cur->name, NULL);
                    }
                    break;
                default:
                    break;
            }
            if (ret == XML_REGEXP_OUT_OF_MEMORY)
                xmlVErrMemory(ctxt);
            /*
             * Switch to next element
             */
            cur = cur->next;
            while (cur == NULL) {
                cur = nodeVPop(ctxt);
                if (cur == NULL)
                    break;
                cur = cur->next;
            }
        }
        ret = xmlRegExecPushString(exec, NULL, NULL);
        if (ret == XML_REGEXP_OUT_OF_MEMORY)
            xmlVErrMemory(ctxt);
fail:
        xmlRegFreeExecCtxt(exec);
    }
#else  /* LIBXML_REGEXP_ENABLED */
    /*
     * Allocate the stack
     */
#ifdef FUZZING_BUILD_MODE_UNSAFE_FOR_PRODUCTION
    ctxt->vstateMax = 8;
#else
    ctxt->vstateMax = 1;
#endif
    ctxt->vstateTab = xmlMalloc(ctxt->vstateMax * sizeof(ctxt->vstateTab[0]));
    if (ctxt->vstateTab == NULL) {
  xmlVErrMemory(ctxt);
  return(-1);
    }
    /*
     * The first entry in the stack is reserved to the current state
     */
    ctxt->nodeMax = 0;
    ctxt->nodeNr = 0;
    ctxt->nodeTab = NULL;
    ctxt->vstate = &ctxt->vstateTab[0];
    ctxt->vstateNr = 1;
    CONT = cont;
    NODE = child;
    DEPTH = 0;
    OCCURS = 0;
    STATE = 0;
    ret = xmlValidateElementType(ctxt);
    if ((ret == -3) && (warn)) {
  char expr[5000];
  expr[0] = 0;
  xmlSnprintfElementContent(expr, 5000, elemDecl->content, 1);
  xmlErrValidNode(ctxt, (xmlNodePtr) elemDecl,
                XML_DTD_CONTENT_NOT_DETERMINIST,
          "Content model of %s is not deterministic: %s\n",
          name, BAD_CAST expr, NULL);
    } else if (ret == -2) {
  /*
   * An entities reference appeared at this level.
   * Build a minimal representation of this node content
   * sufficient to run the validation process on it
   */
  cur = child;
  while (cur != NULL) {
      switch (cur->type) {
    case XML_ENTITY_REF_NODE:
        /*
         * Push the current node to be able to roll back
         * and process within the entity
         */
        if ((cur->children != NULL) &&
      (cur->children->children != NULL)) {
      if (nodeVPush(ctxt, cur) < 0) {
                            xmlFreeNodeList(repl);
                            ret = -1;
                            goto done;
                        }
      cur = cur->children->children;
      continue;
        }
        break;
    case XML_TEXT_NODE:
        if (xmlIsBlankNode(cur))
      break;
        /* falls through */
    case XML_CDATA_SECTION_NODE:
    case XML_ELEMENT_NODE:
        /*
         * Allocate a new node and minimally fills in
         * what's required
         */
        tmp = (xmlNodePtr) xmlMalloc(sizeof(xmlNode));
        if (tmp == NULL) {
      xmlVErrMemory(ctxt);
      xmlFreeNodeList(repl);
      ret = -1;
      goto done;
        }
        tmp->type = cur->type;
        tmp->name = cur->name;
        tmp->ns = cur->ns;
        tmp->next = NULL;
        tmp->content = NULL;
        if (repl == NULL)
      repl = last = tmp;
        else {
      last->next = tmp;
      last = tmp;
        }
        if (cur->type == XML_CDATA_SECTION_NODE) {
      /*
       * E59 spaces in CDATA does not match the
       * nonterminal S
       */
      tmp->content = xmlStrdup(BAD_CAST "CDATA");
        }
        break;
    default:
        break;
      }
      /*
       * Switch to next element
       */
      cur = cur->next;
      while (cur == NULL) {
    cur = nodeVPop(ctxt);
    if (cur == NULL)
        break;
    cur = cur->next;
      }
  }

  /*
   * Relaunch the validation
   */
  ctxt->vstate = &ctxt->vstateTab[0];
  ctxt->vstateNr = 1;
  CONT = cont;
  NODE = repl;
  DEPTH = 0;
  OCCURS = 0;
  STATE = 0;
  ret = xmlValidateElementType(ctxt);
    }
#endif /* LIBXML_REGEXP_ENABLED */
    if ((warn) && ((ret != 1) && (ret != -3))) {
  if (ctxt != NULL) {
      char expr[5000];
      char list[5000];

      expr[0] = 0;
      xmlSnprintfElementContent(&expr[0], 5000, cont, 1);
      list[0] = 0;
#ifndef LIBXML_REGEXP_ENABLED
      if (repl != NULL)
    xmlSnprintfElements(&list[0], 5000, repl, 1);
      else
#endif /* LIBXML_REGEXP_ENABLED */
    xmlSnprintfElements(&list[0], 5000, child, 1);

      if (name != NULL) {
    xmlErrValidNode(ctxt, parent, XML_DTD_CONTENT_MODEL,
     "Element %s content does not follow the DTD, expecting %s, got %s\n",
           name, BAD_CAST expr, BAD_CAST list);
      } else {
    xmlErrValidNode(ctxt, parent, XML_DTD_CONTENT_MODEL,
     "Element content does not follow the DTD, expecting %s, got %s\n",
           BAD_CAST expr, BAD_CAST list, NULL);
      }
  } else {
      if (name != NULL) {
    xmlErrValidNode(ctxt, parent, XML_DTD_CONTENT_MODEL,
           "Element %s content does not follow the DTD\n",
           name, NULL, NULL);
      } else {
    xmlErrValidNode(ctxt, parent, XML_DTD_CONTENT_MODEL,
           "Element content does not follow the DTD\n",
                    NULL, NULL, NULL);
      }
  }
  ret = 0;
    }
    if (ret == -3)
  ret = 1;

#ifndef  LIBXML_REGEXP_ENABLED
done:
    /*
     * Deallocate the copy if done, and free up the validation stack
     */
    while (repl != NULL) {
  tmp = repl->next;
  xmlFree(repl);
  repl = tmp;
    }
    ctxt->vstateMax = 0;
    if (ctxt->vstateTab != NULL) {
  xmlFree(ctxt->vstateTab);
  ctxt->vstateTab = NULL;
    }
#endif
    ctxt->nodeMax = 0;
    ctxt->nodeNr = 0;
    if (ctxt->nodeTab != NULL) {
  xmlFree(ctxt->nodeTab);
  ctxt->nodeTab = NULL;
    }
    return(ret);

}

/**
 * Check that an element follows \#CDATA.
 *
 * @param ctxt  the validation context
 * @param doc  a document instance
 * @param elem  an element instance
 * @returns 1 if valid or 0 otherwise.
 */
static int
xmlValidateOneCdataElement(xmlValidCtxtPtr ctxt, xmlDocPtr doc,
                           xmlNodePtr elem) {
    int ret = 1;
    xmlNodePtr cur, child;

    if ((ctxt == NULL) || (doc == NULL) || (elem == NULL) ||
        (elem->type != XML_ELEMENT_NODE))
  return(0);

    child = elem->children;

    cur = child;
    while (cur != NULL) {
  switch (cur->type) {
      case XML_ENTITY_REF_NODE:
    /*
     * Push the current node to be able to roll back
     * and process within the entity
     */
    if ((cur->children != NULL) &&
        (cur->children->children != NULL)) {
        if (nodeVPush(ctxt, cur) < 0) {
                        ret = 0;
                        goto done;
                    }
        cur = cur->children->children;
        continue;
    }
    break;
      case XML_COMMENT_NODE:
      case XML_PI_NODE:
      case XML_TEXT_NODE:
      case XML_CDATA_SECTION_NODE:
    break;
      default:
    ret = 0;
    goto done;
  }
  /*
   * Switch to next element
   */
  cur = cur->next;
  while (cur == NULL) {
      cur = nodeVPop(ctxt);
      if (cur == NULL)
    break;
      cur = cur->next;
  }
    }
done:
    ctxt->nodeMax = 0;
    ctxt->nodeNr = 0;
    if (ctxt->nodeTab != NULL) {
  xmlFree(ctxt->nodeTab);
  ctxt->nodeTab = NULL;
    }
    return(ret);
}

#ifdef LIBXML_REGEXP_ENABLED
/**
 * Check if the given node is part of the content model.
 *
 * @param ctxt  the validation context
 * @param cont  the mixed content model
 * @param qname  the qualified name as appearing in the serialization
 * @returns 1 if yes, 0 if no, -1 in case of error
 */
static int
xmlValidateCheckMixed(xmlValidCtxtPtr ctxt,
                xmlElementContentPtr cont, const xmlChar *qname) {
    const xmlChar *name;
    int plen;
    name = xmlSplitQName3(qname, &plen);

    if (name == NULL) {
  while (cont != NULL) {
      if (cont->type == XML_ELEMENT_CONTENT_ELEMENT) {
    if ((cont->prefix == NULL) && (xmlStrEqual(cont->name, qname)))
        return(1);
      } else if ((cont->type == XML_ELEMENT_CONTENT_OR) &&
         (cont->c1 != NULL) &&
         (cont->c1->type == XML_ELEMENT_CONTENT_ELEMENT)){
    if ((cont->c1->prefix == NULL) &&
        (xmlStrEqual(cont->c1->name, qname)))
        return(1);
      } else if ((cont->type != XML_ELEMENT_CONTENT_OR) ||
    (cont->c1 == NULL) ||
    (cont->c1->type != XML_ELEMENT_CONTENT_PCDATA)){
    xmlErrValid(ctxt, XML_DTD_MIXED_CORRUPT,
      "Internal: MIXED struct corrupted\n",
      NULL);
    break;
      }
      cont = cont->c2;
  }
    } else {
  while (cont != NULL) {
      if (cont->type == XML_ELEMENT_CONTENT_ELEMENT) {
    if ((cont->prefix != NULL) &&
        (xmlStrncmp(cont->prefix, qname, plen) == 0) &&
        (xmlStrEqual(cont->name, name)))
        return(1);
      } else if ((cont->type == XML_ELEMENT_CONTENT_OR) &&
         (cont->c1 != NULL) &&
         (cont->c1->type == XML_ELEMENT_CONTENT_ELEMENT)){
    if ((cont->c1->prefix != NULL) &&
        (xmlStrncmp(cont->c1->prefix, qname, plen) == 0) &&
        (xmlStrEqual(cont->c1->name, name)))
        return(1);
      } else if ((cont->type != XML_ELEMENT_CONTENT_OR) ||
    (cont->c1 == NULL) ||
    (cont->c1->type != XML_ELEMENT_CONTENT_PCDATA)){
    xmlErrValid(ctxt, XML_DTD_MIXED_CORRUPT,
      "Internal: MIXED struct corrupted\n",
      NULL);
    break;
      }
      cont = cont->c2;
  }
    }
    return(0);
}
#endif /* LIBXML_REGEXP_ENABLED */

/**
 * Finds a declaration associated to an element in the document.
 *
 * @param ctxt  the validation context
 * @param doc  a document instance
 * @param elem  an element instance
 * @param extsubset  pointer, (out) indicate if the declaration was found
 *              in the external subset.
 * @returns the pointer to the declaration or NULL if not found.
 */
static xmlElementPtr
xmlValidGetElemDecl(xmlValidCtxtPtr ctxt, xmlDocPtr doc,
              xmlNodePtr elem, int *extsubset) {
    xmlElementPtr elemDecl = NULL;
    const xmlChar *prefix = NULL;

    if ((ctxt == NULL) || (doc == NULL) ||
        (elem == NULL) || (elem->name == NULL))
        return(NULL);
    if (extsubset != NULL)
  *extsubset = 0;

    /*
     * Fetch the declaration for the qualified name
     */
    if ((elem->ns != NULL) && (elem->ns->prefix != NULL))
  prefix = elem->ns->prefix;

    if (prefix != NULL) {
  elemDecl = xmlGetDtdQElementDesc(doc->intSubset,
                             elem->name, prefix);
  if ((elemDecl == NULL) && (doc->extSubset != NULL)) {
      elemDecl = xmlGetDtdQElementDesc(doc->extSubset,
                                 elem->name, prefix);
      if ((elemDecl != NULL) && (extsubset != NULL))
    *extsubset = 1;
  }
    }

    /*
     * Fetch the declaration for the non qualified name
     * This is "non-strict" validation should be done on the
     * full QName but in that case being flexible makes sense.
     */
    if (elemDecl == NULL) {
  elemDecl = xmlGetDtdQElementDesc(doc->intSubset, elem->name, NULL);
  if ((elemDecl == NULL) && (doc->extSubset != NULL)) {
      elemDecl = xmlGetDtdQElementDesc(doc->extSubset, elem->name, NULL);
      if ((elemDecl != NULL) && (extsubset != NULL))
    *extsubset = 1;
  }
    }
    if (elemDecl == NULL) {
  xmlErrValidNode(ctxt, elem,
      XML_DTD_UNKNOWN_ELEM,
         "No declaration for element %s\n",
         elem->name, NULL, NULL);
    }
    return(elemDecl);
}

#ifdef LIBXML_REGEXP_ENABLED
/**
 * Push a new element start on the validation stack.
 *
 * @deprecated Internal function, don't use.
 *
 * @param ctxt  the validation context
 * @param doc  a document instance
 * @param elem  an element instance
 * @param qname  the qualified name as appearing in the serialization
 * @returns 1 if no validation problem was found or 0 otherwise.
 */
int
xmlValidatePushElement(xmlValidCtxt *ctxt, xmlDoc *doc,
                       xmlNode *elem, const xmlChar *qname) {
    int ret = 1;
    xmlElementPtr eDecl;
    int extsubset = 0;

    if (ctxt == NULL)
        return(0);

    if ((ctxt->vstateNr > 0) && (ctxt->vstate != NULL)) {
  xmlValidStatePtr state = ctxt->vstate;
  xmlElementPtr elemDecl;

  /*
   * Check the new element against the content model of the new elem.
   */
  if (state->elemDecl != NULL) {
      elemDecl = state->elemDecl;

      switch(elemDecl->etype) {
    case XML_ELEMENT_TYPE_UNDEFINED:
        ret = 0;
        break;
    case XML_ELEMENT_TYPE_EMPTY:
        xmlErrValidNode(ctxt, state->node,
            XML_DTD_NOT_EMPTY,
         "Element %s was declared EMPTY this one has content\n",
         state->node->name, NULL, NULL);
        ret = 0;
        break;
    case XML_ELEMENT_TYPE_ANY:
        /* I don't think anything is required then */
        break;
    case XML_ELEMENT_TYPE_MIXED:
        /* simple case of declared as #PCDATA */
        if ((elemDecl->content != NULL) &&
      (elemDecl->content->type ==
       XML_ELEMENT_CONTENT_PCDATA)) {
      xmlErrValidNode(ctxt, state->node,
          XML_DTD_NOT_PCDATA,
         "Element %s was declared #PCDATA but contains non text nodes\n",
        state->node->name, NULL, NULL);
      ret = 0;
        } else {
      ret = xmlValidateCheckMixed(ctxt, elemDecl->content,
                            qname);
      if (ret != 1) {
          xmlErrValidNode(ctxt, state->node,
              XML_DTD_INVALID_CHILD,
         "Element %s is not declared in %s list of possible children\n",
            qname, state->node->name, NULL);
      }
        }
        break;
    case XML_ELEMENT_TYPE_ELEMENT:
        /*
         * TODO:
         * VC: Standalone Document Declaration
         *     - element types with element content, if white space
         *       occurs directly within any instance of those types.
         */
        if (state->exec != NULL) {
      ret = xmlRegExecPushString(state->exec, qname, NULL);
                        if (ret == XML_REGEXP_OUT_OF_MEMORY) {
                            xmlVErrMemory(ctxt);
                            return(0);
                        }
      if (ret < 0) {
          xmlErrValidNode(ctxt, state->node,
              XML_DTD_CONTENT_MODEL,
         "Element %s content does not follow the DTD, Misplaced %s\n",
           state->node->name, qname, NULL);
          ret = 0;
      } else {
          ret = 1;
      }
        }
        break;
      }
  }
    }
    eDecl = xmlValidGetElemDecl(ctxt, doc, elem, &extsubset);
    vstateVPush(ctxt, eDecl, elem);
    return(ret);
}

/**
 * Check the CData parsed for validation in the current stack.
 *
 * @deprecated Internal function, don't use.
 *
 * @param ctxt  the validation context
 * @param data  some character data read
 * @param len  the length of the data
 * @returns 1 if no validation problem was found or 0 otherwise.
 */
int
xmlValidatePushCData(xmlValidCtxt *ctxt, const xmlChar *data, int len) {
    int ret = 1;

    if (ctxt == NULL)
        return(0);
    if (len <= 0)
  return(ret);
    if ((ctxt->vstateNr > 0) && (ctxt->vstate != NULL)) {
  xmlValidStatePtr state = ctxt->vstate;
  xmlElementPtr elemDecl;

  /*
   * Check the new element against the content model of the new elem.
   */
  if (state->elemDecl != NULL) {
      elemDecl = state->elemDecl;

      switch(elemDecl->etype) {
    case XML_ELEMENT_TYPE_UNDEFINED:
        ret = 0;
        break;
    case XML_ELEMENT_TYPE_EMPTY:
        xmlErrValidNode(ctxt, state->node,
            XML_DTD_NOT_EMPTY,
         "Element %s was declared EMPTY this one has content\n",
         state->node->name, NULL, NULL);
        ret = 0;
        break;
    case XML_ELEMENT_TYPE_ANY:
        break;
    case XML_ELEMENT_TYPE_MIXED:
        break;
    case XML_ELEMENT_TYPE_ELEMENT: {
                    int i;

                    for (i = 0;i < len;i++) {
                        if (!IS_BLANK_CH(data[i])) {
                            xmlErrValidNode(ctxt, state->node,
                                            XML_DTD_CONTENT_MODEL,
       "Element %s content does not follow the DTD, Text not allowed\n",
                                   state->node->name, NULL, NULL);
                            ret = 0;
                            goto done;
                        }
                    }
                    /*
                     * TODO:
                     * VC: Standalone Document Declaration
                     *  element types with element content, if white space
                     *  occurs directly within any instance of those types.
                     */
                    break;
                }
      }
  }
    }
done:
    return(ret);
}

/**
 * Pop the element end from the validation stack.
 *
 * @deprecated Internal function, don't use.
 *
 * @param ctxt  the validation context
 * @param doc  a document instance
 * @param elem  an element instance
 * @param qname  the qualified name as appearing in the serialization
 * @returns 1 if no validation problem was found or 0 otherwise.
 */
int
xmlValidatePopElement(xmlValidCtxt *ctxt, xmlDoc *doc ATTRIBUTE_UNUSED,
                      xmlNode *elem ATTRIBUTE_UNUSED,
          const xmlChar *qname ATTRIBUTE_UNUSED) {
    int ret = 1;

    if (ctxt == NULL)
        return(0);

    if ((ctxt->vstateNr > 0) && (ctxt->vstate != NULL)) {
  xmlValidStatePtr state = ctxt->vstate;
  xmlElementPtr elemDecl;

  /*
   * Check the new element against the content model of the new elem.
   */
  if (state->elemDecl != NULL) {
      elemDecl = state->elemDecl;

      if (elemDecl->etype == XML_ELEMENT_TYPE_ELEMENT) {
    if (state->exec != NULL) {
        ret = xmlRegExecPushString(state->exec, NULL, NULL);
        if (ret <= 0) {
                        if (ret == XML_REGEXP_OUT_OF_MEMORY)
                            xmlVErrMemory(ctxt);
                        else
          xmlErrValidNode(ctxt, state->node,
                          XML_DTD_CONTENT_MODEL,
     "Element %s content does not follow the DTD, Expecting more children\n",
             state->node->name, NULL,NULL);
      ret = 0;
        } else {
      /*
       * previous validation errors should not generate
       * a new one here
       */
      ret = 1;
        }
    }
      }
  }
  vstateVPop(ctxt);
    }
    return(ret);
}
#endif /* LIBXML_REGEXP_ENABLED */

/**
 * Try to validate a single element and its attributes.
 * Performs the following checks as described by the
 * XML-1.0 recommendation:
 *
 * @deprecated Internal function, don't use.
 *
 * - [ VC: Element Valid ]
 * - [ VC: Required Attribute ]
 *
 * Then calls #xmlValidateOneAttribute for each attribute present.
 *
 * ID/IDREF checks are handled separately.
 *
 * @param ctxt  the validation context
 * @param doc  a document instance
 * @param elem  an element instance
 * @returns 1 if valid or 0 otherwise.
 */

int
xmlValidateOneElement(xmlValidCtxt *ctxt, xmlDoc *doc,
                      xmlNode *elem) {
    xmlElementPtr elemDecl = NULL;
    xmlElementContentPtr cont;
    xmlAttributePtr attr;
    xmlNodePtr child;
    int ret = 1, tmp;
    const xmlChar *name;
    int extsubset = 0;

    CHECK_DTD;

    if (elem == NULL) return(0);
    switch (elem->type) {
        case XML_TEXT_NODE:
        case XML_CDATA_SECTION_NODE:
        case XML_ENTITY_REF_NODE:
        case XML_PI_NODE:
        case XML_COMMENT_NODE:
        case XML_XINCLUDE_START:
        case XML_XINCLUDE_END:
      return(1);
        case XML_ELEMENT_NODE:
      break;
  default:
      xmlErrValidNode(ctxt, elem, XML_ERR_INTERNAL_ERROR,
       "unexpected element type\n", NULL, NULL ,NULL);
      return(0);
    }

    /*
     * Fetch the declaration
     */
    elemDecl = xmlValidGetElemDecl(ctxt, doc, elem, &extsubset);
    if (elemDecl == NULL)
  return(0);

    /*
     * If vstateNr is not zero that means continuous validation is
     * activated, do not try to check the content model at that level.
     */
    if (ctxt->vstateNr == 0) {
    /* Check that the element content matches the definition */
    switch (elemDecl->etype) {
        case XML_ELEMENT_TYPE_UNDEFINED:
      xmlErrValidNode(ctxt, elem, XML_DTD_UNKNOWN_ELEM,
                      "No declaration for element %s\n",
       elem->name, NULL, NULL);
      return(0);
        case XML_ELEMENT_TYPE_EMPTY:
      if (elem->children != NULL) {
    xmlErrValidNode(ctxt, elem, XML_DTD_NOT_EMPTY,
         "Element %s was declared EMPTY this one has content\n",
                 elem->name, NULL, NULL);
    ret = 0;
      }
      break;
        case XML_ELEMENT_TYPE_ANY:
      /* I don't think anything is required then */
      break;
        case XML_ELEMENT_TYPE_MIXED:

      /* simple case of declared as #PCDATA */
      if ((elemDecl->content != NULL) &&
    (elemDecl->content->type == XML_ELEMENT_CONTENT_PCDATA)) {
    ret = xmlValidateOneCdataElement(ctxt, doc, elem);
    if (!ret) {
        xmlErrValidNode(ctxt, elem, XML_DTD_NOT_PCDATA,
         "Element %s was declared #PCDATA but contains non text nodes\n",
         elem->name, NULL, NULL);
    }
    break;
      }
      child = elem->children;
      /* Hum, this start to get messy */
      while (child != NULL) {
          if (child->type == XML_ELEMENT_NODE) {
        name = child->name;
        if ((child->ns != NULL) && (child->ns->prefix != NULL)) {
      xmlChar fn[50];
      xmlChar *fullname;

      fullname = xmlBuildQName(child->name, child->ns->prefix,
                         fn, 50);
      if (fullname == NULL) {
                            xmlVErrMemory(ctxt);
          return(0);
                        }
      cont = elemDecl->content;
      while (cont != NULL) {
          if (cont->type == XML_ELEMENT_CONTENT_ELEMENT) {
        if (xmlStrEqual(cont->name, fullname))
            break;
          } else if ((cont->type == XML_ELEMENT_CONTENT_OR) &&
             (cont->c1 != NULL) &&
             (cont->c1->type == XML_ELEMENT_CONTENT_ELEMENT)){
        if (xmlStrEqual(cont->c1->name, fullname))
            break;
          } else if ((cont->type != XML_ELEMENT_CONTENT_OR) ||
        (cont->c1 == NULL) ||
        (cont->c1->type != XML_ELEMENT_CONTENT_PCDATA)){
        xmlErrValid(ctxt, XML_DTD_MIXED_CORRUPT,
          "Internal: MIXED struct corrupted\n",
          NULL);
        break;
          }
          cont = cont->c2;
      }
      if ((fullname != fn) && (fullname != child->name))
          xmlFree(fullname);
      if (cont != NULL)
          goto child_ok;
        }
        cont = elemDecl->content;
        while (cont != NULL) {
            if (cont->type == XML_ELEMENT_CONTENT_ELEMENT) {
          if (xmlStrEqual(cont->name, name)) break;
      } else if ((cont->type == XML_ELEMENT_CONTENT_OR) &&
         (cont->c1 != NULL) &&
         (cont->c1->type == XML_ELEMENT_CONTENT_ELEMENT)) {
          if (xmlStrEqual(cont->c1->name, name)) break;
      } else if ((cont->type != XML_ELEMENT_CONTENT_OR) ||
          (cont->c1 == NULL) ||
          (cont->c1->type != XML_ELEMENT_CONTENT_PCDATA)) {
          xmlErrValid(ctxt, XML_DTD_MIXED_CORRUPT,
            "Internal: MIXED struct corrupted\n",
            NULL);
          break;
      }
      cont = cont->c2;
        }
        if (cont == NULL) {
      xmlErrValidNode(ctxt, elem, XML_DTD_INVALID_CHILD,
         "Element %s is not declared in %s list of possible children\n",
             name, elem->name, NULL);
      ret = 0;
        }
    }
child_ok:
          child = child->next;
      }
      break;
        case XML_ELEMENT_TYPE_ELEMENT:
      if ((doc->standalone == 1) && (extsubset == 1)) {
    /*
     * VC: Standalone Document Declaration
     *     - element types with element content, if white space
     *       occurs directly within any instance of those types.
     */
    child = elem->children;
    while (child != NULL) {
        if ((child->type == XML_TEXT_NODE) &&
                        (child->content != NULL)) {
      const xmlChar *content = child->content;

      while (IS_BLANK_CH(*content))
          content++;
      if (*content == 0) {
          xmlErrValidNode(ctxt, elem,
                          XML_DTD_STANDALONE_WHITE_SPACE,
"standalone: %s declared in the external subset contains white spaces nodes\n",
           elem->name, NULL, NULL);
          ret = 0;
          break;
      }
        }
        child =child->next;
    }
      }
      child = elem->children;
      cont = elemDecl->content;
      tmp = xmlValidateElementContent(ctxt, child, elemDecl, 1, elem);
      if (tmp <= 0)
    ret = 0;
      break;
    }
    } /* not continuous */

    /* [ VC: Required Attribute ] */
    attr = elemDecl->attributes;
    while (attr != NULL) {
  if (attr->def == XML_ATTRIBUTE_REQUIRED) {
      int qualified = -1;

      if ((attr->prefix == NULL) &&
    (xmlStrEqual(attr->name, BAD_CAST "xmlns"))) {
    xmlNsPtr ns;

    ns = elem->nsDef;
    while (ns != NULL) {
        if (ns->prefix == NULL)
      goto found;
        ns = ns->next;
    }
      } else if (xmlStrEqual(attr->prefix, BAD_CAST "xmlns")) {
    xmlNsPtr ns;

    ns = elem->nsDef;
    while (ns != NULL) {
        if (xmlStrEqual(attr->name, ns->prefix))
      goto found;
        ns = ns->next;
    }
      } else {
    xmlAttrPtr attrib;

    attrib = elem->properties;
    while (attrib != NULL) {
        if (xmlStrEqual(attrib->name, attr->name)) {
      if (attr->prefix != NULL) {
          xmlNsPtr nameSpace = attrib->ns;

          /*
           * qualified names handling is problematic, having a
           * different prefix should be possible but DTDs don't
           * allow to define the URI instead of the prefix :-(
           */
          if (nameSpace == NULL) {
        if (qualified < 0)
            qualified = 0;
          } else if (!xmlStrEqual(nameSpace->prefix,
                attr->prefix)) {
        if (qualified < 1)
            qualified = 1;
          } else
        goto found;
      } else {
          /*
           * We should allow applications to define namespaces
           * for their application even if the DTD doesn't
           * carry one, otherwise, basically we would always
           * break.
           */
          goto found;
      }
        }
        attrib = attrib->next;
    }
      }
      if (qualified == -1) {
    if (attr->prefix == NULL) {
        xmlErrValidNode(ctxt, elem, XML_DTD_MISSING_ATTRIBUTE,
           "Element %s does not carry attribute %s\n",
         elem->name, attr->name, NULL);
        ret = 0;
          } else {
        xmlErrValidNode(ctxt, elem, XML_DTD_MISSING_ATTRIBUTE,
           "Element %s does not carry attribute %s:%s\n",
         elem->name, attr->prefix,attr->name);
        ret = 0;
    }
      } else if (qualified == 0) {
    if (xmlErrValidWarning(ctxt, elem, XML_DTD_NO_PREFIX,
                           "Element %s required attribute %s:%s "
                                       "has no prefix\n",
                           elem->name, attr->prefix,
                                       attr->name) < 0)
                    ret = 0;
      } else if (qualified == 1) {
    if (xmlErrValidWarning(ctxt, elem, XML_DTD_DIFFERENT_PREFIX,
                           "Element %s required attribute %s:%s "
                                       "has different prefix\n",
                           elem->name, attr->prefix,
                                       attr->name) < 0)
                    ret = 0;
      }
  }
found:
        attr = attr->nexth;
    }
    return(ret);
}

/**
 * Try to validate the root element.
 * Performs the following check as described by the
 * XML-1.0 recommendation:
 *
 * @deprecated Internal function, don't use.
 *
 * - [ VC: Root Element Type ]
 *
 * It doesn't try to recurse or apply other checks to the element.
 *
 * @param ctxt  the validation context
 * @param doc  a document instance
 * @returns 1 if valid or 0 otherwise.
 */

int
xmlValidateRoot(xmlValidCtxt *ctxt, xmlDoc *doc) {
    xmlNodePtr root;
    int ret;

    if (doc == NULL) return(0);

    root = xmlDocGetRootElement(doc);
    if ((root == NULL) || (root->name == NULL)) {
  xmlErrValid(ctxt, XML_DTD_NO_ROOT,
              "no root element\n", NULL);
        return(0);
    }

    /*
     * When doing post validation against a separate DTD, those may
     * no internal subset has been generated
     */
    if ((doc->intSubset != NULL) &&
  (doc->intSubset->name != NULL)) {
  /*
   * Check first the document root against the NQName
   */
  if (!xmlStrEqual(doc->intSubset->name, root->name)) {
      if ((root->ns != NULL) && (root->ns->prefix != NULL)) {
    xmlChar fn[50];
    xmlChar *fullname;

    fullname = xmlBuildQName(root->name, root->ns->prefix, fn, 50);
    if (fullname == NULL) {
        xmlVErrMemory(ctxt);
        return(0);
    }
    ret = xmlStrEqual(doc->intSubset->name, fullname);
    if ((fullname != fn) && (fullname != root->name))
        xmlFree(fullname);
    if (ret == 1)
        goto name_ok;
      }
      if ((xmlStrEqual(doc->intSubset->name, BAD_CAST "HTML")) &&
    (xmlStrEqual(root->name, BAD_CAST "html")))
    goto name_ok;
      xmlErrValidNode(ctxt, root, XML_DTD_ROOT_NAME,
       "root and DTD name do not match '%s' and '%s'\n",
       root->name, doc->intSubset->name, NULL);
      return(0);
  }
    }
name_ok:
    return(1);
}


/**
 * Try to validate the subtree under an element.
 *
 * @param ctxt  the validation context
 * @param doc  a document instance
 * @param root  an element instance
 * @returns 1 if valid or 0 otherwise.
 */

int
xmlValidateElement(xmlValidCtxt *ctxt, xmlDoc *doc, xmlNode *root) {
    xmlNodePtr elem;
    xmlAttrPtr attr;
    xmlNsPtr ns;
    xmlChar *value;
    int ret = 1;

    if (root == NULL) return(0);

    CHECK_DTD;

    elem = root;
    while (1) {
        ret &= xmlValidateOneElement(ctxt, doc, elem);

        if (elem->type == XML_ELEMENT_NODE) {
            attr = elem->properties;
            while (attr != NULL) {
                if (attr->children == NULL)
                    value = xmlStrdup(BAD_CAST "");
                else
                    value = xmlNodeListGetString(doc, attr->children, 0);
                if (value == NULL) {
                    xmlVErrMemory(ctxt);
                    ret = 0;
                } else {
                    ret &= xmlValidateOneAttribute(ctxt, doc, elem, attr, value);
                    xmlFree(value);
                }
                attr= attr->next;
            }

            ns = elem->nsDef;
            while (ns != NULL) {
                if (elem->ns == NULL)
                    ret &= xmlValidateOneNamespace(ctxt, doc, elem, NULL,
                                                   ns, ns->href);
                else
                    ret &= xmlValidateOneNamespace(ctxt, doc, elem,
                                                   elem->ns->prefix, ns,
                                                   ns->href);
                ns = ns->next;
            }

            if (elem->children != NULL) {
                elem = elem->children;
                continue;
            }
        }

        while (1) {
            if (elem == root)
                goto done;
            if (elem->next != NULL)
                break;
            elem = elem->parent;
        }
        elem = elem->next;
    }

done:
    return(ret);
}

/**
 * @param ref  A reference to be validated
 * @param ctxt  Validation context
 * @param name  Name of ID we are searching for
 */
static void
xmlValidateRef(xmlRefPtr ref, xmlValidCtxtPtr ctxt,
                     const xmlChar *name) {
    xmlAttrPtr id;
    xmlAttrPtr attr;

    if (ref == NULL)
  return;
    if ((ref->attr == NULL) && (ref->name == NULL))
  return;
    attr = ref->attr;
    if (attr == NULL) {
  xmlChar *dup, *str = NULL, *cur, save;

  dup = xmlStrdup(name);
  if (dup == NULL) {
            xmlVErrMemory(ctxt);
      return;
  }
  cur = dup;
  while (*cur != 0) {
      str = cur;
      while ((*cur != 0) && (!IS_BLANK_CH(*cur))) cur++;
      save = *cur;
      *cur = 0;
      id = xmlGetID(ctxt->doc, str);
      if (id == NULL) {
    xmlErrValidNodeNr(ctxt, NULL, XML_DTD_UNKNOWN_ID,
     "attribute %s line %d references an unknown ID \"%s\"\n",
           ref->name, ref->lineno, str);
    ctxt->valid = 0;
      }
      if (save == 0)
    break;
      *cur = save;
      while (IS_BLANK_CH(*cur)) cur++;
  }
  xmlFree(dup);
    } else if (attr->atype == XML_ATTRIBUTE_IDREF) {
  id = xmlGetID(ctxt->doc, name);
  if (id == NULL) {
      xmlErrValidNode(ctxt, attr->parent, XML_DTD_UNKNOWN_ID,
     "IDREF attribute %s references an unknown ID \"%s\"\n",
       attr->name, name, NULL);
      ctxt->valid = 0;
  }
    } else if (attr->atype == XML_ATTRIBUTE_IDREFS) {
  xmlChar *dup, *str = NULL, *cur, save;

  dup = xmlStrdup(name);
  if (dup == NULL) {
      xmlVErrMemory(ctxt);
      ctxt->valid = 0;
      return;
  }
  cur = dup;
  while (*cur != 0) {
      str = cur;
      while ((*cur != 0) && (!IS_BLANK_CH(*cur))) cur++;
      save = *cur;
      *cur = 0;
      id = xmlGetID(ctxt->doc, str);
      if (id == NULL) {
    xmlErrValidNode(ctxt, attr->parent, XML_DTD_UNKNOWN_ID,
     "IDREFS attribute %s references an unknown ID \"%s\"\n",
           attr->name, str, NULL);
    ctxt->valid = 0;
      }
      if (save == 0)
    break;
      *cur = save;
      while (IS_BLANK_CH(*cur)) cur++;
  }
  xmlFree(dup);
    }
}

/**
 * @param data  Contents of current link
 * @param user  Value supplied by the user
 * @returns 0 to abort the walk or 1 to continue.
 */
static int
xmlWalkValidateList(const void *data, void *user)
{
  xmlValidateMemoPtr memo = (xmlValidateMemoPtr)user;
  xmlValidateRef((xmlRefPtr)data, memo->ctxt, memo->name);
  return 1;
}

/**
 * @param payload  list of references
 * @param data  validation context
 * @param name  name of ID we are searching for
 */
static void
xmlValidateCheckRefCallback(void *payload, void *data, const xmlChar *name) {
    xmlListPtr ref_list = (xmlListPtr) payload;
    xmlValidCtxtPtr ctxt = (xmlValidCtxtPtr) data;
    xmlValidateMemo memo;

    if (ref_list == NULL)
  return;
    memo.ctxt = ctxt;
    memo.name = name;

    xmlListWalk(ref_list, xmlWalkValidateList, &memo);

}

/**
 * Performs the final step of document validation once all the
 * incremental validation steps have been completed.
 *
 * @deprecated Internal function, don't use.
 *
 * Performs the following checks described by the XML Rec:
 *
 * - Check all the IDREF/IDREFS attributes definition for validity.
 *
 * @param ctxt  the validation context
 * @param doc  a document instance
 * @returns 1 if valid or 0 otherwise.
 */

int
xmlValidateDocumentFinal(xmlValidCtxt *ctxt, xmlDoc *doc) {
    xmlRefTablePtr table;
    xmlParserCtxtPtr pctxt = NULL;
    xmlParserInputPtr oldInput = NULL;

    if (ctxt == NULL)
        return(0);
    if (doc == NULL) {
        xmlErrValid(ctxt, XML_DTD_NO_DOC,
    "xmlValidateDocumentFinal: doc == NULL\n", NULL);
  return(0);
    }

    /*
     * Check all the NOTATION/NOTATIONS attributes
     */
    /*
     * Check all the ENTITY/ENTITIES attributes definition for validity
     */
    /*
     * Check all the IDREF/IDREFS attributes definition for validity
     */

    /*
     * Don't print line numbers.
     */
    if (ctxt->flags & XML_VCTXT_USE_PCTXT) {
        pctxt = ctxt->userData;
        oldInput = pctxt->input;
        pctxt->input = NULL;
    }

    table = (xmlRefTablePtr) doc->refs;
    ctxt->doc = doc;
    ctxt->valid = 1;
    xmlHashScan(table, xmlValidateCheckRefCallback, ctxt);

    if (ctxt->flags & XML_VCTXT_USE_PCTXT)
        pctxt->input = oldInput;

    return(ctxt->valid);
}

/**
 * Try to validate the document against the DTD instance.
 *
 * Note that the internal subset (if present) is de-coupled
 * (i.e. not used), which could cause problems if ID or IDREF
 * attributes are present.
 *
 * @param ctxt  the validation context
 * @param doc  a document instance
 * @param dtd  a DTD instance
 * @returns 1 if valid or 0 otherwise.
 */

int
xmlValidateDtd(xmlValidCtxt *ctxt, xmlDoc *doc, xmlDtd *dtd) {
    int ret;
    xmlDtdPtr oldExt, oldInt;
    xmlNodePtr root;

    if (dtd == NULL)
        return(0);
    if (doc == NULL)
        return(0);

    oldExt = doc->extSubset;
    oldInt = doc->intSubset;
    doc->extSubset = dtd;
    doc->intSubset = NULL;
    if (doc->ids != NULL) {
        xmlFreeIDTable(doc->ids);
        doc->ids = NULL;
    }
    if (doc->refs != NULL) {
        xmlFreeRefTable(doc->refs);
        doc->refs = NULL;
    }

    ret = xmlValidateRoot(ctxt, doc);
    if (ret != 0) {
        root = xmlDocGetRootElement(doc);
        ret = xmlValidateElement(ctxt, doc, root);
        ret &= xmlValidateDocumentFinal(ctxt, doc);
    }

    doc->extSubset = oldExt;
    doc->intSubset = oldInt;
    if (doc->ids != NULL) {
        xmlFreeIDTable(doc->ids);
        doc->ids = NULL;
    }
    if (doc->refs != NULL) {
        xmlFreeRefTable(doc->refs);
        doc->refs = NULL;
    }

    return(ret);
}

/**
 * Validate a document against a DTD.
 *
 * Like #xmlValidateDtd but uses the parser context's error handler.
 *
 * @since 2.14.0
 *
 * @param ctxt  a parser context
 * @param doc  a document instance
 * @param dtd  a dtd instance
 * @returns 1 if valid or 0 otherwise.
 */
int
xmlCtxtValidateDtd(xmlParserCtxt *ctxt, xmlDoc *doc, xmlDtd *dtd) {
    if ((ctxt == NULL) || (ctxt->html))
        return(0);

    xmlCtxtReset(ctxt);

    return(xmlValidateDtd(&ctxt->vctxt, doc, dtd));
}

static void
xmlValidateNotationCallback(void *payload, void *data,
                      const xmlChar *name ATTRIBUTE_UNUSED) {
    xmlEntityPtr cur = (xmlEntityPtr) payload;
    xmlValidCtxtPtr ctxt = (xmlValidCtxtPtr) data;
    if (cur == NULL)
  return;
    if (cur->etype == XML_EXTERNAL_GENERAL_UNPARSED_ENTITY) {
  xmlChar *notation = cur->content;

  if (notation != NULL) {
      int ret;

      ret = xmlValidateNotationUse(ctxt, cur->doc, notation);
      if (ret != 1) {
    ctxt->valid = 0;
      }
  }
    }
}

static void
xmlValidateAttributeCallback(void *payload, void *data,
                       const xmlChar *name ATTRIBUTE_UNUSED) {
    xmlAttributePtr cur = (xmlAttributePtr) payload;
    xmlValidCtxtPtr ctxt = (xmlValidCtxtPtr) data;
    xmlDocPtr doc;
    xmlElementPtr elem = NULL;

    if (cur == NULL)
  return;
    if (cur->atype == XML_ATTRIBUTE_NOTATION) {
        const xmlChar *elemLocalName;
        xmlChar *elemPrefix;

  doc = cur->doc;
  if (cur->elem == NULL) {
      xmlErrValid(ctxt, XML_ERR_INTERNAL_ERROR,
       "xmlValidateAttributeCallback(%s): internal error\n",
       (const char *) cur->name);
      return;
  }

        elemLocalName = xmlSplitQName4(cur->elem, &elemPrefix);
        if (elemLocalName == NULL) {
            xmlVErrMemory(ctxt);
            return;
        }

  if ((doc != NULL) && (doc->intSubset != NULL))
      elem = xmlHashLookup2(doc->intSubset->elements,
                                  elemLocalName, elemPrefix);
  if ((elem == NULL) && (doc != NULL) && (doc->extSubset != NULL))
      elem = xmlHashLookup2(doc->extSubset->elements,
                                  elemLocalName, elemPrefix);
  if ((elem == NULL) && (cur->parent != NULL) &&
      (cur->parent->type == XML_DTD_NODE))
      elem = xmlHashLookup2(((xmlDtdPtr) cur->parent)->elements,
                                  elemLocalName, elemPrefix);

        xmlFree(elemPrefix);

  if (elem == NULL) {
      xmlErrValidNode(ctxt, NULL, XML_DTD_UNKNOWN_ELEM,
       "attribute %s: could not find decl for element %s\n",
       cur->name, cur->elem, NULL);
      return;
  }
  if (elem->etype == XML_ELEMENT_TYPE_EMPTY) {
      xmlErrValidNode(ctxt, NULL, XML_DTD_EMPTY_NOTATION,
       "NOTATION attribute %s declared for EMPTY element %s\n",
       cur->name, cur->elem, NULL);
      ctxt->valid = 0;
  }
    }
}

/**
 * Performs the final validation steps of DTD content once all the
 * subsets have been parsed.
 *
 * @deprecated Internal function, don't use.
 *
 * Performs the following checks described by the XML Rec:
 *
 * - check that ENTITY and ENTITIES type attributes default or
 *   possible values matches one of the defined entities.
 * - check that NOTATION type attributes default or
 *   possible values matches one of the defined notations.
 *
 * @param ctxt  the validation context
 * @param doc  a document instance
 * @returns 1 if valid or 0 if invalid and -1 if not well-formed.
 */

int
xmlValidateDtdFinal(xmlValidCtxt *ctxt, xmlDoc *doc) {
    xmlDtdPtr dtd;
    xmlAttributeTablePtr table;
    xmlEntitiesTablePtr entities;

    if ((doc == NULL) || (ctxt == NULL)) return(0);
    if ((doc->intSubset == NULL) && (doc->extSubset == NULL))
  return(0);
    ctxt->doc = doc;
    ctxt->valid = 1;
    dtd = doc->intSubset;
    if ((dtd != NULL) && (dtd->attributes != NULL)) {
  table = (xmlAttributeTablePtr) dtd->attributes;
  xmlHashScan(table, xmlValidateAttributeCallback, ctxt);
    }
    if ((dtd != NULL) && (dtd->entities != NULL)) {
  entities = (xmlEntitiesTablePtr) dtd->entities;
  xmlHashScan(entities, xmlValidateNotationCallback, ctxt);
    }
    dtd = doc->extSubset;
    if ((dtd != NULL) && (dtd->attributes != NULL)) {
  table = (xmlAttributeTablePtr) dtd->attributes;
  xmlHashScan(table, xmlValidateAttributeCallback, ctxt);
    }
    if ((dtd != NULL) && (dtd->entities != NULL)) {
  entities = (xmlEntitiesTablePtr) dtd->entities;
  xmlHashScan(entities, xmlValidateNotationCallback, ctxt);
    }
    return(ctxt->valid);
}

/**
 * Validate a document.
 *
 * @param ctxt  parser context (optional)
 * @param vctxt  validation context (optional)
 * @param doc  document
 * @returns 1 if valid or 0 otherwise.
 */
static int
xmlValidateDocumentInternal(xmlParserCtxtPtr ctxt, xmlValidCtxtPtr vctxt,
                            xmlDocPtr doc) {
    int ret;
    xmlNodePtr root;

    if (doc == NULL)
        return(0);
    if ((doc->intSubset == NULL) && (doc->extSubset == NULL)) {
        xmlErrValid(vctxt, XML_DTD_NO_DTD,
              "no DTD found!\n", NULL);
  return(0);
    }

    if ((doc->intSubset != NULL) && ((doc->intSubset->SystemID != NULL) ||
  (doc->intSubset->ExternalID != NULL)) && (doc->extSubset == NULL)) {
  xmlChar *sysID = NULL;

  if (doc->intSubset->SystemID != NULL) {
            int res;

            res = xmlBuildURISafe(doc->intSubset->SystemID, doc->URL, &sysID);
            if (res < 0) {
                xmlVErrMemory(vctxt);
                return 0;
            } else if (res != 0) {
                xmlErrValid(vctxt, XML_DTD_LOAD_ERROR,
      "Could not build URI for external subset \"%s\"\n",
      (const char *) doc->intSubset->SystemID);
    return 0;
      }
  }

        if (ctxt != NULL) {
            xmlParserInputPtr input;

            input = xmlLoadResource(ctxt, (const char *) sysID,
                    (const char *) doc->intSubset->ExternalID,
                    XML_RESOURCE_DTD);
            if (input == NULL) {
                xmlFree(sysID);
                return 0;
            }

            doc->extSubset = xmlCtxtParseDtd(ctxt, input,
                                             doc->intSubset->ExternalID,
                                             sysID);
        } else {
            doc->extSubset = xmlParseDTD(doc->intSubset->ExternalID, sysID);
        }

  if (sysID != NULL)
      xmlFree(sysID);
        if (doc->extSubset == NULL) {
      if (doc->intSubset->SystemID != NULL) {
    xmlErrValid(vctxt, XML_DTD_LOAD_ERROR,
           "Could not load the external subset \"%s\"\n",
           (const char *) doc->intSubset->SystemID);
      } else {
    xmlErrValid(vctxt, XML_DTD_LOAD_ERROR,
           "Could not load the external subset \"%s\"\n",
           (const char *) doc->intSubset->ExternalID);
      }
      return(0);
  }
    }

    if (doc->ids != NULL) {
          xmlFreeIDTable(doc->ids);
          doc->ids = NULL;
    }
    if (doc->refs != NULL) {
          xmlFreeRefTable(doc->refs);
          doc->refs = NULL;
    }
    ret = xmlValidateDtdFinal(vctxt, doc);
    if (!xmlValidateRoot(vctxt, doc)) return(0);

    root = xmlDocGetRootElement(doc);
    ret &= xmlValidateElement(vctxt, doc, root);
    ret &= xmlValidateDocumentFinal(vctxt, doc);
    return(ret);
}

/**
 * Try to validate the document instance.
 *
 * @deprecated This function can't report malloc or other failures.
 * Use #xmlCtxtValidateDocument.
 *
 * Performs the all the checks described by the XML Rec,
 * i.e. validates the internal and external subset (if present)
 * and validates the document tree.
 *
 * @param vctxt  the validation context
 * @param doc  a document instance
 * @returns 1 if valid or 0 otherwise.
 */
int
xmlValidateDocument(xmlValidCtxt *vctxt, xmlDoc *doc) {
    return(xmlValidateDocumentInternal(NULL, vctxt, doc));
}

/**
 * Validate a document.
 *
 * Like #xmlValidateDocument but uses the parser context's error handler.
 *
 * Option XML_PARSE_DTDLOAD should be enabled in the parser context
 * to make external entities work.
 *
 * @since 2.14.0
 *
 * @param ctxt  a parser context
 * @param doc  a document instance
 * @returns 1 if valid or 0 otherwise.
 */
int
xmlCtxtValidateDocument(xmlParserCtxt *ctxt, xmlDoc *doc) {
    if ((ctxt == NULL) || (ctxt->html))
        return(0);

    xmlCtxtReset(ctxt);

    return(xmlValidateDocumentInternal(ctxt, &ctxt->vctxt, doc));
}

/************************************************************************
 *                  *
 *    Routines for dynamic validation editing     *
 *                  *
 ************************************************************************/

/**
 * Build/extend a list of  potential children allowed by the content tree
 *
 * @param ctree  an element content tree
 * @param names  an array to store the list of child names
 * @param len  a pointer to the number of element in the list
 * @param max  the size of the array
 * @returns the number of element in the list, or -1 in case of error.
 */

int
xmlValidGetPotentialChildren(xmlElementContent *ctree,
                             const xmlChar **names,
                             int *len, int max) {
    int i;

    if ((ctree == NULL) || (names == NULL) || (len == NULL))
        return(-1);
    if (*len >= max) return(*len);

    switch (ctree->type) {
  case XML_ELEMENT_CONTENT_PCDATA:
      for (i = 0; i < *len;i++)
    if (xmlStrEqual(BAD_CAST "#PCDATA", names[i])) return(*len);
      names[(*len)++] = BAD_CAST "#PCDATA";
      break;
  case XML_ELEMENT_CONTENT_ELEMENT:
      for (i = 0; i < *len;i++)
    if (xmlStrEqual(ctree->name, names[i])) return(*len);
      names[(*len)++] = ctree->name;
      break;
  case XML_ELEMENT_CONTENT_SEQ:
      xmlValidGetPotentialChildren(ctree->c1, names, len, max);
      xmlValidGetPotentialChildren(ctree->c2, names, len, max);
      break;
  case XML_ELEMENT_CONTENT_OR:
      xmlValidGetPotentialChildren(ctree->c1, names, len, max);
      xmlValidGetPotentialChildren(ctree->c2, names, len, max);
      break;
   }

   return(*len);
}

/*
 * Dummy function to suppress messages while we try out valid elements
 */
static void xmlNoValidityErr(void *ctx ATTRIBUTE_UNUSED,
                                const char *msg ATTRIBUTE_UNUSED, ...) {
}

/**
 * This function returns the list of authorized children to insert
 * within an existing tree while respecting the validity constraints
 * forced by the Dtd. The insertion point is defined using `prev` and
 * `next` in the following ways:
 *  to insert before 'node': xmlValidGetValidElements(node->prev, node, ...
 *  to insert next 'node': xmlValidGetValidElements(node, node->next, ...
 *  to replace 'node': xmlValidGetValidElements(node->prev, node->next, ...
 *  to prepend a child to 'node': xmlValidGetValidElements(NULL, node->childs,
 *  to append a child to 'node': xmlValidGetValidElements(node->last, NULL, ...
 *
 * pointers to the element names are inserted at the beginning of the array
 * and do not need to be freed.
 *
 * @deprecated This feature will be removed.
 *
 * @param prev  an element to insert after
 * @param next  an element to insert next
 * @param names  an array to store the list of child names
 * @param max  the size of the array
 * @returns the number of element in the list, or -1 in case of error. If
 *    the function returns the value `max` the caller is invited to grow the
 *    receiving array and retry.
 */

int
xmlValidGetValidElements(xmlNode *prev, xmlNode *next, const xmlChar **names,
                         int max) {
    xmlValidCtxt vctxt;
    int nb_valid_elements = 0;
    const xmlChar *elements[256]={0};
    int nb_elements = 0, i;
    const xmlChar *name;

    xmlNode *ref_node;
    xmlNode *parent;
    xmlNode *test_node;

    xmlNode *prev_next;
    xmlNode *next_prev;
    xmlNode *parent_childs;
    xmlNode *parent_last;

    xmlElement *element_desc;

    if (prev == NULL && next == NULL)
        return(-1);

    if (names == NULL) return(-1);
    if (max <= 0) return(-1);

    memset(&vctxt, 0, sizeof (xmlValidCtxt));
    vctxt.error = xmlNoValidityErr; /* this suppresses err/warn output */

    nb_valid_elements = 0;
    ref_node = prev ? prev : next;
    parent = ref_node->parent;

    /*
     * Retrieves the parent element declaration
     */
    element_desc = xmlGetDtdElementDesc(parent->doc->intSubset,
                                         parent->name);
    if ((element_desc == NULL) && (parent->doc->extSubset != NULL))
        element_desc = xmlGetDtdElementDesc(parent->doc->extSubset,
                                             parent->name);
    if (element_desc == NULL) return(-1);

    /*
     * Do a backup of the current tree structure
     */
    prev_next = prev ? prev->next : NULL;
    next_prev = next ? next->prev : NULL;
    parent_childs = parent->children;
    parent_last = parent->last;

    /*
     * Creates a dummy node and insert it into the tree
     */
    test_node = xmlNewDocNode (ref_node->doc, NULL, BAD_CAST "<!dummy?>", NULL);
    if (test_node == NULL)
        return(-1);

    test_node->parent = parent;
    test_node->prev = prev;
    test_node->next = next;
    name = test_node->name;

    if (prev) prev->next = test_node;
    else parent->children = test_node;

    if (next) next->prev = test_node;
    else parent->last = test_node;

    /*
     * Insert each potential child node and check if the parent is
     * still valid
     */
    nb_elements = xmlValidGetPotentialChildren(element_desc->content,
           elements, &nb_elements, 256);

    for (i = 0;i < nb_elements;i++) {
  test_node->name = elements[i];
  if (xmlValidateOneElement(&vctxt, parent->doc, parent)) {
      int j;

      for (j = 0; j < nb_valid_elements;j++)
    if (xmlStrEqual(elements[i], names[j])) break;
      names[nb_valid_elements++] = elements[i];
      if (nb_valid_elements >= max) break;
  }
    }

    /*
     * Restore the tree structure
     */
    if (prev) prev->next = prev_next;
    if (next) next->prev = next_prev;
    parent->children = parent_childs;
    parent->last = parent_last;

    /*
     * Free up the dummy node
     */
    test_node->name = name;
    xmlFreeNode(test_node);

    return(nb_valid_elements);
}
#endif /* LIBXML_VALID_ENABLED */

Coverage Report

Created: 2026-06-13 06:16