kc3-lang/libxml2/debugXML.c

• Show log

  Commit

• Hash : 10a2c653
  Author :
  Date : 1999-12-12T13:03:50
  

  Large commit of changes done while travelling to XML'99
  - cleanups on memory use and parsers
  - start of Link interfaces HTML and XLink
  - rebuild the doc
  - released as 1.8.0
  Daniel
  

Download

• debugXML.c

• /*
   * debugXML.c : This is a set of routines used for debugging the tree
   *              produced by the XML parser.
   *
   * See Copyright for the status of this software.
   *
   * Daniel Veillard <Daniel.Veillard@w3.org>
   */
  
  #include <stdio.h>
  #include "tree.h"
  #include "parser.h"
  #include "debugXML.h"
  
  #define IS_BLANK(c)							\
    (((c) == '\n') || ((c) == '\r') || ((c) == '\t') || ((c) == ' '))
  
  void xmlDebugDumpString(FILE *output, const xmlChar *str) {
      int i;
      for (i = 0;i < 40;i++)
          if (str[i] == 0) return;
  	else if (IS_BLANK(str[i])) fputc(' ', output);
  	else fputc(str[i], output);
      fprintf(output, "...");
  }
  
  void xmlDebugDumpNamespace(FILE *output, xmlNsPtr ns, int depth) {
      int i;
      char shift[100];
  
      for (i = 0;((i < depth) && (i < 25));i++)
          shift[2 * i] = shift[2 * i + 1] = ' ';
      shift[2 * i] = shift[2 * i + 1] = 0;
  
      fprintf(output, shift);
      if (ns->type == XML_GLOBAL_NAMESPACE)
          fprintf(output, "old ");
      fprintf(output, "namespace %s href=", ns->prefix);
      xmlDebugDumpString(output, ns->href);
      fprintf(output, "\n");
  }
  
  void xmlDebugDumpNamespaceList(FILE *output, xmlNsPtr ns, int depth) {
      while (ns != NULL) {
          xmlDebugDumpNamespace(output, ns, depth);
  	ns = ns->next;
      }
  }
  
  void xmlDebugDumpEntity(FILE *output, xmlEntityPtr ent, int depth) {
      int i;
      char shift[100];
  
      for (i = 0;((i < depth) && (i < 25));i++)
          shift[2 * i] = shift[2 * i + 1] = ' ';
      shift[2 * i] = shift[2 * i + 1] = 0;
  
      fprintf(output, shift);
      switch (ent->type) {
          case XML_INTERNAL_GENERAL_ENTITY:
  	    fprintf(output, "INTERNAL_GENERAL_ENTITY ");
  	    break;
          case XML_EXTERNAL_GENERAL_PARSED_ENTITY:
  	    fprintf(output, "EXTERNAL_GENERAL_PARSED_ENTITY ");
  	    break;
          case XML_EXTERNAL_GENERAL_UNPARSED_ENTITY:
  	    fprintf(output, "EXTERNAL_GENERAL_UNPARSED_ENTITY ");
  	    break;
          case XML_INTERNAL_PARAMETER_ENTITY:
  	    fprintf(output, "INTERNAL_PARAMETER_ENTITY ");
  	    break;
          case XML_EXTERNAL_PARAMETER_ENTITY:
  	    fprintf(output, "EXTERNAL_PARAMETER_ENTITY ");
  	    break;
  	default:
  	    fprintf(output, "ENTITY_%d ! ", ent->type);
      }
      fprintf(output, "%s\n", ent->name);
      if (ent->ExternalID) {
          fprintf(output, shift);
          fprintf(output, "ExternalID=%s\n", ent->ExternalID);
      }
      if (ent->SystemID) {
          fprintf(output, shift);
          fprintf(output, "SystemID=%s\n", ent->SystemID);
      }
      if (ent->content) {
          fprintf(output, shift);
  	fprintf(output, "content=");
  	xmlDebugDumpString(output, ent->content);
  	fprintf(output, "\n");
      }
  }
  
  void xmlDebugDumpAttr(FILE *output, xmlAttrPtr attr, int depth) {
      int i;
      char shift[100];
  
      for (i = 0;((i < depth) && (i < 25));i++)
          shift[2 * i] = shift[2 * i + 1] = ' ';
      shift[2 * i] = shift[2 * i + 1] = 0;
  
      fprintf(output, shift);
      fprintf(output, "ATTRIBUTE %s\n", attr->name);
      if (attr->val != NULL) 
          xmlDebugDumpNodeList(output, attr->val, depth + 1);
  }
  
  void xmlDebugDumpAttrList(FILE *output, xmlAttrPtr attr, int depth) {
      while (attr != NULL) {
          xmlDebugDumpAttr(output, attr, depth);
  	attr = attr->next;
      }
  }
  
  void xmlDebugDumpOneNode(FILE *output, xmlNodePtr node, int depth) {
      int i;
      char shift[100];
  
      for (i = 0;((i < depth) && (i < 25));i++)
          shift[2 * i] = shift[2 * i + 1] = ' ';
      shift[2 * i] = shift[2 * i + 1] = 0;
  
      fprintf(output, shift);
      switch (node->type) {
  	case XML_ELEMENT_NODE:
  	    fprintf(output, "ELEMENT ");
  	    if (node->ns != NULL)
  	        fprintf(output, "%s:%s\n", node->ns->prefix, node->name);
  	    else
  	        fprintf(output, "%s\n", node->name);
  	    break;
  	case XML_ATTRIBUTE_NODE:
  	    fprintf(output, "Error, ATTRIBUTE found here\n");
  	    break;
  	case XML_TEXT_NODE:
  	    fprintf(output, "TEXT\n");
  	    break;
  	case XML_CDATA_SECTION_NODE:
  	    fprintf(output, "CDATA_SECTION\n");
  	    break;
  	case XML_ENTITY_REF_NODE:
  	    fprintf(output, "ENTITY_REF\n");
  	    break;
  	case XML_ENTITY_NODE:
  	    fprintf(output, "ENTITY\n");
  	    break;
  	case XML_PI_NODE:
  	    fprintf(output, "PI %s\n", node->name);
  	    break;
  	case XML_COMMENT_NODE:
  	    fprintf(output, "COMMENT\n");
  	    break;
  	case XML_DOCUMENT_NODE:
  	case XML_HTML_DOCUMENT_NODE:
  	    fprintf(output, "Error, DOCUMENT found here\n");
  	    break;
  	case XML_DOCUMENT_TYPE_NODE:
  	    fprintf(output, "DOCUMENT_TYPE\n");
  	    break;
  	case XML_DOCUMENT_FRAG_NODE:
  	    fprintf(output, "DOCUMENT_FRAG\n");
  	    break;
  	case XML_NOTATION_NODE:
  	    fprintf(output, "NOTATION\n");
  	    break;
  	default:
  	    fprintf(output, "NODE_%d\n", node->type);
      }
      if (node->doc == NULL) {
          fprintf(output, shift);
  	fprintf(output, "doc == NULL !!!\n");
      }
      if (node->nsDef != NULL) 
          xmlDebugDumpNamespaceList(output, node->nsDef, depth + 1);
      if (node->properties != NULL)
  	xmlDebugDumpAttrList(output, node->properties, depth + 1);
      if (node->type != XML_ENTITY_REF_NODE) {
  	if (node->content != NULL) {
  	    fprintf(output, shift);
  	    fprintf(output, "content=");
  #ifndef XML_USE_BUFFER_CONTENT	    
  	    xmlDebugDumpString(output, node->content);
  #else
  	    xmlDebugDumpString(output, xmlBufferContent(node->content));
  #endif
  	    fprintf(output, "\n");
  	}
      } else {
          xmlEntityPtr ent;
  	ent = xmlGetDocEntity(node->doc, node->name);
  	if (ent != NULL)
  	    xmlDebugDumpEntity(output, ent, depth + 1);
      }
  }
  
  void xmlDebugDumpNode(FILE *output, xmlNodePtr node, int depth) {
      xmlDebugDumpOneNode(output, node, depth);
      if (node->childs != NULL)
  	xmlDebugDumpNodeList(output, node->childs, depth + 1);
  }
  
  void xmlDebugDumpNodeList(FILE *output, xmlNodePtr node, int depth) {
      while (node != NULL) {
          xmlDebugDumpNode(output, node, depth);
  	node = node->next;
      }
  }
  
  
  void xmlDebugDumpDocument(FILE *output, xmlDocPtr doc) {
      if (output == NULL) output = stdout;
      if (doc == NULL) {
          fprintf(output, "DOCUMENT == NULL !\n");
  	return;
      }
  
      switch (doc->type) {
  	case XML_ELEMENT_NODE:
  	    fprintf(output, "Error, ELEMENT found here ");
  	    break;
  	case XML_ATTRIBUTE_NODE:
  	    fprintf(output, "Error, ATTRIBUTE found here\n");
  	    break;
  	case XML_TEXT_NODE:
  	    fprintf(output, "Error, TEXT\n");
  	    break;
  	case XML_CDATA_SECTION_NODE:
  	    fprintf(output, "Error, CDATA_SECTION\n");
  	    break;
  	case XML_ENTITY_REF_NODE:
  	    fprintf(output, "Error, ENTITY_REF\n");
  	    break;
  	case XML_ENTITY_NODE:
  	    fprintf(output, "Error, ENTITY\n");
  	    break;
  	case XML_PI_NODE:
  	    fprintf(output, "Error, PI\n");
  	    break;
  	case XML_COMMENT_NODE:
  	    fprintf(output, "Error, COMMENT\n");
  	    break;
  	case XML_DOCUMENT_NODE:
  	    fprintf(output, "DOCUMENT\n");
  	    break;
  	case XML_HTML_DOCUMENT_NODE:
  	    fprintf(output, "HTML DOCUMENT\n");
  	    break;
  	case XML_DOCUMENT_TYPE_NODE:
  	    fprintf(output, "Error, DOCUMENT_TYPE\n");
  	    break;
  	case XML_DOCUMENT_FRAG_NODE:
  	    fprintf(output, "Error, DOCUMENT_FRAG\n");
  	    break;
  	case XML_NOTATION_NODE:
  	    fprintf(output, "Error, NOTATION\n");
  	    break;
  	default:
  	    fprintf(output, "NODE_%d\n", doc->type);
      }
      if (doc->name != NULL) {
  	fprintf(output, "name=");
          xmlDebugDumpString(output, BAD_CAST doc->name);
  	fprintf(output, "\n");
      }
      if (doc->version != NULL) {
  	fprintf(output, "version=");
          xmlDebugDumpString(output, doc->version);
  	fprintf(output, "\n");
      }
      if (doc->encoding != NULL) {
  	fprintf(output, "encoding=");
          xmlDebugDumpString(output, doc->encoding);
  	fprintf(output, "\n");
      }
      if (doc->standalone)
          fprintf(output, "standalone=true\n");
      if (doc->oldNs != NULL) 
          xmlDebugDumpNamespaceList(output, doc->oldNs, 0);
      if (doc->root != NULL)
          xmlDebugDumpNodeList(output, doc->root, 1);
  }
  
  void xmlDebugDumpEntities(FILE *output, xmlDocPtr doc) {
      int i;
      xmlEntityPtr cur;
  
      if (output == NULL) output = stdout;
      if (doc == NULL) {
          fprintf(output, "DOCUMENT == NULL !\n");
  	return;
      }
  
      switch (doc->type) {
  	case XML_ELEMENT_NODE:
  	    fprintf(output, "Error, ELEMENT found here ");
  	    break;
  	case XML_ATTRIBUTE_NODE:
  	    fprintf(output, "Error, ATTRIBUTE found here\n");
  	    break;
  	case XML_TEXT_NODE:
  	    fprintf(output, "Error, TEXT\n");
  	    break;
  	case XML_CDATA_SECTION_NODE:
  	    fprintf(output, "Error, CDATA_SECTION\n");
  	    break;
  	case XML_ENTITY_REF_NODE:
  	    fprintf(output, "Error, ENTITY_REF\n");
  	    break;
  	case XML_ENTITY_NODE:
  	    fprintf(output, "Error, ENTITY\n");
  	    break;
  	case XML_PI_NODE:
  	    fprintf(output, "Error, PI\n");
  	    break;
  	case XML_COMMENT_NODE:
  	    fprintf(output, "Error, COMMENT\n");
  	    break;
  	case XML_DOCUMENT_NODE:
  	    fprintf(output, "DOCUMENT\n");
  	    break;
  	case XML_HTML_DOCUMENT_NODE:
  	    fprintf(output, "HTML DOCUMENT\n");
  	    break;
  	case XML_DOCUMENT_TYPE_NODE:
  	    fprintf(output, "Error, DOCUMENT_TYPE\n");
  	    break;
  	case XML_DOCUMENT_FRAG_NODE:
  	    fprintf(output, "Error, DOCUMENT_FRAG\n");
  	    break;
  	case XML_NOTATION_NODE:
  	    fprintf(output, "Error, NOTATION\n");
  	    break;
  	default:
  	    fprintf(output, "NODE_%d\n", doc->type);
      }
      if ((doc->intSubset != NULL) && (doc->intSubset->entities != NULL)) {
          xmlEntitiesTablePtr table = (xmlEntitiesTablePtr) 
  	                            doc->intSubset->entities;
  	fprintf(output, "Entities in internal subset\n");
  	for (i = 0;i < table->nb_entities;i++) {
  	    cur = &table->table[i];
  	    fprintf(output, "%d : %s : ", i, cur->name);
  	    switch (cur->type) {
  		case XML_INTERNAL_GENERAL_ENTITY:
  		    fprintf(output, "INTERNAL GENERAL");
  		    break;
  		case XML_EXTERNAL_GENERAL_PARSED_ENTITY:
  		    fprintf(output, "EXTERNAL PARSED");
  		    break;
  		case XML_EXTERNAL_GENERAL_UNPARSED_ENTITY:
  		    fprintf(output, "EXTERNAL UNPARSED");
  		    break;
  		case XML_INTERNAL_PARAMETER_ENTITY:
  		    fprintf(output, "INTERNAL PARAMETER");
  		    break;
  		case XML_EXTERNAL_PARAMETER_ENTITY:
  		    fprintf(output, "EXTERNAL PARAMETER");
  		    break;
  		default:
  		    fprintf(output, "UNKNOWN TYPE %d",
  			    cur->type);
  	    }
  	    if (cur->ExternalID != NULL) 
  	        fprintf(output, "ID \"%s\"", cur->ExternalID);
  	    if (cur->SystemID != NULL)
  	        fprintf(output, "SYSTEM \"%s\"", cur->SystemID);
  	    if (cur->orig != NULL)
  	        fprintf(output, "\n orig \"%s\"", cur->orig);
  	    if (cur->content != NULL)
  	        fprintf(output, "\n content \"%s\"", cur->content);
  	    fprintf(output, "\n");	
  	}
      } else
  	fprintf(output, "No entities in internal subset\n");
      if ((doc->extSubset != NULL) && (doc->extSubset->entities != NULL)) {
          xmlEntitiesTablePtr table = (xmlEntitiesTablePtr) 
  	                            doc->extSubset->entities;
  	fprintf(output, "Entities in external subset\n");
  	for (i = 0;i < table->nb_entities;i++) {
  	    cur = &table->table[i];
  	    fprintf(output, "%d : %s : ", i, cur->name);
  	    switch (cur->type) {
  		case XML_INTERNAL_GENERAL_ENTITY:
  		    fprintf(output, "INTERNAL GENERAL");
  		    break;
  		case XML_EXTERNAL_GENERAL_PARSED_ENTITY:
  		    fprintf(output, "EXTERNAL PARSED");
  		    break;
  		case XML_EXTERNAL_GENERAL_UNPARSED_ENTITY:
  		    fprintf(output, "EXTERNAL UNPARSED");
  		    break;
  		case XML_INTERNAL_PARAMETER_ENTITY:
  		    fprintf(output, "INTERNAL PARAMETER");
  		    break;
  		case XML_EXTERNAL_PARAMETER_ENTITY:
  		    fprintf(output, "EXTERNAL PARAMETER");
  		    break;
  		default:
  		    fprintf(output, "UNKNOWN TYPE %d",
  			    cur->type);
  	    }
  	    if (cur->ExternalID != NULL) 
  	        fprintf(output, "ID \"%s\"", cur->ExternalID);
  	    if (cur->SystemID != NULL)
  	        fprintf(output, "SYSTEM \"%s\"", cur->SystemID);
  	    if (cur->orig != NULL)
  	        fprintf(output, "\n orig \"%s\"", cur->orig);
  	    if (cur->content != NULL)
  	        fprintf(output, "\n content \"%s\"", cur->content);
  	    fprintf(output, "\n");	
  	}
      } else
  	fprintf(output, "No entities in external subset\n");
  }
  

Download