libxml-ruby 0.9.5 → 0.9.6

data/CHANGES

@@ -1,5 +1,33 @@
 (See log/ChangeLog for more detailed changes derived directly from source control.)
 
+== 0.9.6 / 2008-12-08 Charlie Savage
+
+* Refactored namespace handling.  The existing, and inconsistent,
+  namespace methods defined on XML::Node have been deprecated.  
+  They have been replaced by a the new XML::Namespaces class.
+  Use this class to inspect a node's namespace, its default
+  namespace, its namespace definitions and which namespaces
+  are in scope.  It can be accessed via the the
+  XML::Node#namespaces method.
+
+* Rationalized XML::Document#save, XML::Document#to_s and
+  XML::Node#to_s to take an optional hash table of parameters 
+  that control how output is generated. Supported parameters
+  include setting indentation on or off, the indentation level
+  and the output encoding.  This is an API change and may break
+  existing calls to XML::Document#save.  However, the previous
+  API was broken - setting the encoding resulted in an error so
+  its unlikely anyone is using it.
+
+* Rationalized XML::Document#debug, XML::Node#debug, XML::XPath::XPathObject#Debug.
+
+* Deprecated a number of duplicate dump* and debug_* methods in
+  XML::Document and XML::Node.
+
+* Additional Ruby 1.9.1 compatability fixes.
+
+* Cleaned up header file guards.
+
 == 0.9.5 / 2008-11-29 Charlie Savage
 
 * Ruby 1.9.1 preview release compatability (Felipe Contreras)

data/README

@@ -43,27 +43,23 @@ solution.  If you wish to run a debug version of libxml-ruby on
 Windows, then it is highly recommended you use VC++.
 
 == Getting Started
-Using libxml is easy. First decide what parser you want to use:
-
- * Generally you'll want to use the XML::Parser which provides
-   a tree based API
- * For large documents that won't fit into memory, or if you
-   prefer an input based API, then use XML::Reader
- * If you are parsing HTML files, then use XML::HTMLParser
- * If you are masochistic or old stream, then use the XML::SaxParser
-   which provides a callback API.
+Using libxml is easy. First decide what parser you want to use.
+Generally you'll want to use the LibXML::XML::Parser which provides a tree based API.
+For larger documents that don't fit into memory, or if you prefer an input based API,
+then use LibXML::XML::Reader. If you are parsing HTML files, then use LibXML::XML::HTMLParser.
+Finally, if you are masochistic, then use the LibXML::XML::SaxParser, which provides a callback API.
 
 Once you choose a parser, then choose a datasource and its
 encoding.  Libxml can parse files, strings, URIs and IO stream.
-For more information, see XML::Input.
+For more information, see LibXML::XML::Input.
 
 == Advanced Functionality
 Beyond the basics of parsing and processing XML and HTML documents,
 lLibxml provides a wealth of additional functionality.
 
-Most commonly, you'll want to use its XML::XPath support, which makes
+Most commonly, you'll want to use its LibXML::XML::XPath support, which makes
 it easy to search for data inside and XML document.  Although not as
-popular, XML::XPointer provides another API for finding data inside
+popular, LibXML::XML::XPointer provides another API for finding data inside
 an XML document.
 
 Often times you'll need to validate data before processing it. For example,

data/ext/libxml/cbg.c

@@ -1,86 +1,86 @@
-#include <string.h>
-#include <libxml/xmlIO.h>
-#include "ruby.h"
-
-/*
- int         xmlRegisterInputCallbacks       (xmlInputMatchCallback matchFunc,
-                                              xmlInputOpenCallback openFunc,
-                                              xmlInputReadCallback readFunc,
-                                              xmlInputCloseCallback closeFunc);
-
-
- int         (*xmlInputMatchCallback)        (char const *filename);
- void*       (*xmlInputOpenCallback)         (char const *filename);
- int         (*xmlInputReadCallback)         (void *context,
- char *buffer,
- int len);
- int         (*xmlInputCloseCallback)        (void *context);
- */
-
-typedef struct deb_doc_context
-{
-  char *buffer;
-  char *bpos;
-  int remaining;
-} deb_doc_context;
-
-int deb_Match(char const *filename)
-{
-  fprintf(stderr, "deb_Match: %s\n", filename);
-  if (!xmlStrncasecmp(BAD_CAST filename, BAD_CAST "deb://", 6))
-  {
-    return (1);
-  }
-  return (0);
-}
-
-void* deb_Open(char const *filename)
-{
-  deb_doc_context *deb_doc;
-  VALUE res;
-
-  deb_doc = (deb_doc_context*) malloc(sizeof(deb_doc_context));
-
-  res = rb_funcall(rb_funcall(rb_mKernel, rb_intern("const_get"), 1,
-      rb_str_new2("DEBSystem")), rb_intern("document_query"), 1, rb_str_new2(
-      filename));
-  deb_doc->buffer = strdup(StringValuePtr(res));
-  //deb_doc->buffer = strdup("<serepes>serepes</serepes>");
-
-  deb_doc->bpos = deb_doc->buffer;
-  deb_doc->remaining = strlen(deb_doc->buffer);
-  return deb_doc;
-}
-
-int deb_Read(void *context, char *buffer, int len)
-{
-  deb_doc_context *deb_doc;
-  int ret_len;
-  deb_doc = (deb_doc_context*) context;
-
-  if (len >= deb_doc->remaining)
-  {
-    ret_len = deb_doc->remaining;
-  }
-  else
-  {
-    ret_len = len;
-  }
-  deb_doc->remaining -= ret_len;
-  strncpy(buffer, deb_doc->bpos, ret_len);
-  deb_doc->bpos += ret_len;
-
-  return ret_len;
-}
-
-int deb_Close(void *context)
-{
-  free(((deb_doc_context*) context)->buffer);
-  free(context);
-  return 1;
-}
-
-void deb_register_cbg()
-{
-  xmlRegisterInputCallbacks(deb_Match, deb_Open, deb_Read, deb_Close);
-}
+#include <string.h>
+#include <libxml/xmlIO.h>
+#include "ruby.h"
+
+/*
+ int         xmlRegisterInputCallbacks       (xmlInputMatchCallback matchFunc,
+                                              xmlInputOpenCallback openFunc,
+                                              xmlInputReadCallback readFunc,
+                                              xmlInputCloseCallback closeFunc);
+
+
+ int         (*xmlInputMatchCallback)        (char const *filename);
+ void*       (*xmlInputOpenCallback)         (char const *filename);
+ int         (*xmlInputReadCallback)         (void *context,
+ char *buffer,
+ int len);
+ int         (*xmlInputCloseCallback)        (void *context);
+ */
+
+typedef struct deb_doc_context
+{
+  char *buffer;
+  char *bpos;
+  int remaining;
+} deb_doc_context;
+
+int deb_Match(char const *filename)
+{
+  fprintf(stderr, "deb_Match: %s\n", filename);
+  if (!xmlStrncasecmp(BAD_CAST filename, BAD_CAST "deb://", 6))
+  {
+    return (1);
+  }
+  return (0);
+}
+
+void* deb_Open(char const *filename)
+{
+  deb_doc_context *deb_doc;
+  VALUE res;
+
+  deb_doc = (deb_doc_context*) malloc(sizeof(deb_doc_context));
+
+  res = rb_funcall(rb_funcall(rb_mKernel, rb_intern("const_get"), 1,
+      rb_str_new2("DEBSystem")), rb_intern("document_query"), 1, rb_str_new2(
+      filename));
+  deb_doc->buffer = strdup(StringValuePtr(res));
+  //deb_doc->buffer = strdup("<serepes>serepes</serepes>");
+
+  deb_doc->bpos = deb_doc->buffer;
+  deb_doc->remaining = strlen(deb_doc->buffer);
+  return deb_doc;
+}
+
+int deb_Read(void *context, char *buffer, int len)
+{
+  deb_doc_context *deb_doc;
+  int ret_len;
+  deb_doc = (deb_doc_context*) context;
+
+  if (len >= deb_doc->remaining)
+  {
+    ret_len = deb_doc->remaining;
+  }
+  else
+  {
+    ret_len = len;
+  }
+  deb_doc->remaining -= ret_len;
+  strncpy(buffer, deb_doc->bpos, ret_len);
+  deb_doc->bpos += ret_len;
+
+  return ret_len;
+}
+
+int deb_Close(void *context)
+{
+  free(((deb_doc_context*) context)->buffer);
+  free(context);
+  return 1;
+}
+
+void deb_register_cbg()
+{
+  xmlRegisterInputCallbacks(deb_Match, deb_Open, deb_Read, deb_Close);
+}

data/ext/libxml/libxml.c

@@ -1,899 +1,875 @@
-/* $Id: libxml.c 650 2008-11-30 03:40:22Z cfis $ */
-
-/* Please see the LICENSE file for copyright and distribution information */
-
-#include "ruby_libxml.h"
-
-VALUE mLibXML;
-VALUE mXML;
-
-/*
- * call-seq:
- * 		XML.catalog_dump -> true
- *
- * Dump all the global catalog content stdout.
- */
-static VALUE rxml_catalog_dump(VALUE self)
-{
-  xmlCatalogDump(stdout);
-  return (Qtrue);
-}
-
-/*
- * call-seq:
- * 		XML.catalog_remove(catalog) -> true
- *
- * Remove the specified resource catalog.
- */
-static VALUE rxml_catalog_remove(VALUE self, VALUE cat)
-{
-  Check_Type(cat, T_STRING);
-  xmlCatalogRemove((xmlChar *) StringValuePtr(cat));
-  return (Qtrue);
-}
-
-/*
- * call-seq:
- * 		XML.check_lib_versions -> true
- *
- * Check LIBXML version matches version the bindings
- * were compiled to. Throws an exception if not.
- */
-static VALUE rxml_check_lib_versions(VALUE class)
-{
-  xmlCheckVersion(LIBXML_VERSION);
-  return (Qtrue);
-}
-
-/*
- * call-seq:
- * 		XML.enabled_automata? -> (true|false)
- *
- * Determine whether libxml regexp automata support is enabled.
- */
-static VALUE rxml_enabled_automata_q(VALUE class)
-{
-#ifdef LIBXML_AUTOMATA_ENABLED
-  return(Qtrue);
-#else
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- * 		XML.enabled_c14n? -> (true|false)
- *
- * Determine whether libxml 'canonical XML' support is enabled.
- * See "Canonical XML" (http://www.w3.org/TR/xml-c14n)
- */
-static VALUE rxml_enabled_c14n_q(VALUE class)
-{
-#ifdef LIBXML_C14N_ENABLED
-  return(Qtrue);
-#else
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- * 		XML.enabled_catalog? -> (true|false)
- *
- * Determine whether libxml resource catalog support is enabled.
- */
-static VALUE rxml_enabled_catalog_q(VALUE class)
-{
-#ifdef LIBXML_CATALOG_ENABLED
-  return(Qtrue);
-#else
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- * 		XML.enabled_debug? -> (true|false)
- *
- * Determine whether libxml debugging support is enabled.
- */
-static VALUE rxml_enabled_debug_q(VALUE class)
-{
-#ifdef LIBXML_DEBUG_ENABLED
-  return(Qtrue);
-#else
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- * 		XML.enabled_docbook? -> (true|false)
- *
- * Determine whether libxml docbook support is enabled.
- */
-static VALUE rxml_enabled_docbook_q(VALUE class)
-{
-#ifdef LIBXML_DOCB_ENABLED
-  return(Qtrue);
-#else
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- * 		XML.enabled_ftp? -> (true|false)
- *
- * Determine whether libxml ftp client support is enabled.
- */
-static VALUE rxml_enabled_ftp_q(VALUE class)
-{
-#ifdef LIBXML_FTP_ENABLED
-  return(Qtrue);
-#else
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- * 		XML.enabled_http? -> (true|false)
- *
- * Determine whether libxml http client support is enabled.
- */
-static VALUE rxml_enabled_http_q(VALUE class)
-{
-#ifdef LIBXML_HTTP_ENABLED
-  return(Qtrue);
-#else
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- * 		XML.enabled_html? -> (true|false)
- *
- * Determine whether libxml html support is enabled.
- */
-static VALUE rxml_enabled_html_q(VALUE class)
-{
-#ifdef LIBXML_HTML_ENABLED
-  return(Qtrue);
-#else
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- * 		XML.enabled_iconv? -> (true|false)
- *
- * Determine whether libxml iconv support is enabled.
- */
-static VALUE rxml_enabled_iconv_q(VALUE class)
-{
-#ifdef LIBXML_ICONV_ENABLED
-  return(Qtrue);
-#else
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- * 		XML.enabled_memory_debug? -> (true|false)
- *
- * Determine whether libxml memory location debugging support
- * is enabled.
- */
-static VALUE rxml_enabled_memory_debug_location_q(VALUE class)
-{
-#ifdef DEBUG_MEMORY_LOCATION
-  return(Qtrue);
-#else
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- * 		XML.enabled_regexp? -> (true|false)
- *
- * Determine whether libxml regular expression support is enabled.
- */
-static VALUE rxml_enabled_regexp_q(VALUE class)
-{
-#ifdef LIBXML_REGEXP_ENABLED
-  return(Qtrue);
-#else
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- * 		XML.enabled_schemas? -> (true|false)
- *
- * Determine whether libxml schema support is enabled.
- */
-static VALUE rxml_enabled_schemas_q(VALUE class)
-{
-#ifdef LIBXML_SCHEMAS_ENABLED
-  return(Qtrue);
-#else
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- * 		XML.enabled_thread? -> (true|false)
- *
- * Determine whether libxml thread-safe semantics support
- * is enabled (I think?).
- */
-static VALUE rxml_enabled_thread_q(VALUE class)
-{
-#ifdef LIBXML_THREAD_ENABLED
-  return(Qtrue);
-#else
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- * 		XML.enabled_unicode? -> (true|false)
- *
- * Determine whether libxml unicode support is enabled.
- */
-static VALUE rxml_enabled_unicode_q(VALUE class)
-{
-#ifdef LIBXML_UNICODE_ENABLED
-  return(Qtrue);
-#else
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- * 		XML.enabled_xinclude? -> (true|false)
- *
- * Determine whether libxml xinclude support is enabled.
- */
-static VALUE rxml_enabled_xinclude_q(VALUE class)
-{
-#ifdef LIBXML_XINCLUDE_ENABLED
-  return(Qtrue);
-#else
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- * 		XML.enabled_xpath? -> (true|false)
- *
- * Determine whether libxml xpath support is enabled.
- */
-static VALUE rxml_enabled_xpath_q(VALUE class)
-{
-#ifdef LIBXML_XPATH_ENABLED
-  return(Qtrue);
-#else
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- * 		XML.enabled_xpointer? -> (true|false)
- *
- * Determine whether libxml xpointer support is enabled.
- */
-static VALUE rxml_enabled_xpointer_q(VALUE class)
-{
-#ifdef LIBXML_XPTR_ENABLED
-  return(Qtrue);
-#else
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- * 		XML.enabled_zlib? -> (true|false)
- *
- * Determine whether libxml zlib support is enabled.
- */
-static VALUE rxml_enabled_zlib_q(VALUE class)
-{
-#ifdef HAVE_ZLIB_H
-  return(Qtrue);
-#else
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- *    XML.debug_entities -> (true|false)
- *
- * Determine whether included-entity debugging is enabled.
- * (Requires Libxml to be compiled with debugging support)
- */
-static VALUE rxml_debug_entities_get(VALUE class)
-{
-#ifdef LIBXML_DEBUG_ENABLED
-  if (xmlParserDebugEntities)
-  return(Qtrue);
-  else
-  return(Qfalse);
-#else
-  rb_warn("libxml was compiled with debugging turned off");
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- *    XML.debug_entities = true|false
- *
- * Enable or disable included-entity debugging.
- * (Requires Libxml to be compiled with debugging support)
- */
-static VALUE rxml_debug_entities_set(VALUE class, VALUE bool)
-{
-#ifdef LIBXML_DEBUG_ENABLED
-  if (TYPE(bool) == T_FALSE)
-  {
-    xmlParserDebugEntities = 0;
-    return(Qfalse);
-  }
-  else
-  {
-    xmlParserDebugEntities = 1;
-    return(Qtrue);
-  }
-#else
-  rb_warn("libxml was compiled with debugging turned off");
-#endif
-}
-
-/*
- * call-seq:
- *    XML.default_keep_blanks -> (true|false)
- *
- * Determine whether parsers retain whitespace by default.
- */
-static VALUE rxml_default_keep_blanks_get(VALUE class)
-{
-  if (xmlKeepBlanksDefaultValue)
-    return (Qtrue);
-  else
-    return (Qfalse);
-}
-
-/*
- * call-seq:
- *    XML.default_keep_blanks = true|false
- *
- * Controls whether parsers retain whitespace by default.
- */
-static VALUE rxml_default_keep_blanks_set(VALUE class, VALUE bool)
-{
-  if (TYPE(bool) == T_FALSE)
-  {
-    xmlKeepBlanksDefaultValue = 0;
-    return (Qfalse);
-  }
-  else if (TYPE(bool) == T_TRUE)
-  {
-    xmlKeepBlanksDefaultValue = 1;
-    return (Qtrue);
-  }
-  else
-  {
-    rb_raise(rb_eArgError, "Invalid argument, must be a boolean");
-  }
-}
-
-/*
- * call-seq:
- *    XML.default_load_external_dtd -> (true|false)
- *
- * Determine whether parsers load external DTDs by default.
- */
-static VALUE rxml_default_load_external_dtd_get(VALUE class)
-{
-  if (xmlLoadExtDtdDefaultValue)
-    return (Qtrue);
-  else
-    return (Qfalse);
-}
-
-/*
- * call-seq:
- *    XML.default_load_external_dtd = true|false
- *
- * Controls whether parsers load external DTDs by default.
- */
-static VALUE rxml_default_load_external_dtd_set(VALUE class, VALUE bool)
-{
-  if (TYPE(bool) == T_FALSE)
-  {
-    xmlLoadExtDtdDefaultValue = 0;
-    return (Qfalse);
-  }
-  else
-  {
-    xmlLoadExtDtdDefaultValue = 1;
-    return (Qtrue);
-  }
-}
-
-/*
- * call-seq:
- *    XML.default_line_numbers -> (true|false)
- *
- * Determine whether parsers retain line-numbers by default.
- */
-static VALUE rxml_default_line_numbers_get(VALUE class)
-{
-  if (xmlLineNumbersDefaultValue)
-    return (Qtrue);
-  else
-    return (Qfalse);
-}
-
-/*
- * call-seq:
- *    XML.default_line_numbers = true|false
- *
- * Controls whether parsers retain line-numbers by default.
- */
-static VALUE rxml_default_line_numbers_set(VALUE class, VALUE bool)
-{
-  if (TYPE(bool) == T_FALSE)
-  {
-    xmlLineNumbersDefault(0);
-    return (Qfalse);
-  }
-  else
-  {
-    xmlLineNumbersDefault(1);
-    return (Qtrue);
-  }
-}
-
-/*
- * call-seq:
- *    XML.default_pedantic_parser -> (true|false)
- *
- * Determine whether parsers are pedantic by default.
- */
-static VALUE rxml_default_pedantic_parser_get(VALUE class)
-{
-  if (xmlPedanticParserDefaultValue)
-    return (Qtrue);
-  else
-    return (Qfalse);
-}
-
-/*
- * call-seq:
- *    XML.default_pedantic_parser = true|false
- *
- * Controls whether parsers are pedantic by default.
- */
-static VALUE rxml_default_pedantic_parser_set(VALUE class, VALUE bool)
-{
-  if (TYPE(bool) == T_FALSE)
-  {
-    xmlPedanticParserDefault(0);
-    return (Qfalse);
-  }
-  else
-  {
-    xmlPedanticParserDefault(1);
-    return (Qtrue);
-  }
-}
-
-/*
- * call-seq:
- *    XML.default_substitute_entities -> (true|false)
- *
- * Determine whether parsers perform inline entity substitution
- * (for external entities) by default.
- */
-static VALUE rxml_default_substitute_entities_get(VALUE class)
-{
-  if (xmlSubstituteEntitiesDefaultValue)
-    return (Qtrue);
-  else
-    return (Qfalse);
-}
-
-/*
- * call-seq:
- *    XML.default_substitute_entities = true|false
- *
- * Controls whether parsers perform inline entity substitution
- * (for external entities) by default.
- */
-static VALUE rxml_default_substitute_entities_set(VALUE class, VALUE bool)
-{
-  if (TYPE(bool) == T_FALSE)
-  {
-    xmlSubstituteEntitiesDefault(0);
-    return (Qfalse);
-  }
-  else
-  {
-    xmlSubstituteEntitiesDefault(1);
-    return (Qtrue);
-  }
-}
-
-/*
- * call-seq:
- *    XML.default_tree_indent_string -> "string"
- *
- * Obtain the default string used by parsers to indent the XML tree
- * for output.
- */
-static VALUE rxml_default_tree_indent_string_get(VALUE class)
-{
-  if (xmlTreeIndentString == NULL)
-    return (Qnil);
-  else
-    return (rb_str_new2(xmlTreeIndentString));
-}
-
-/*
- * call-seq:
- *    XML.default_tree_indent_string = "string"
- *
- * Set the default string used by parsers to indent the XML tree
- * for output.
- */
-static VALUE rxml_default_tree_indent_string_set(VALUE class, VALUE string)
-{
-  Check_Type(string, T_STRING);
-  xmlTreeIndentString = xmlStrdup(StringValuePtr(string));
-  return (string);
-}
-
-/*
- * call-seq:
- *    XML.default_validity_checking -> (true|false)
- *
- * Determine whether parsers perform XML validation by default.
- */
-static VALUE rxml_default_validity_checking_get(VALUE class)
-{
-  if (xmlDoValidityCheckingDefaultValue)
-    return (Qtrue);
-  else
-    return (Qfalse);
-}
-
-/*
- * call-seq:
- *    XML.default_validity_checking = true|false
- *
- * Controls whether parsers perform XML validation by default.
- */
-static VALUE rxml_default_validity_checking_set(VALUE class, VALUE bool)
-{
-  if (TYPE(bool) == T_FALSE)
-  {
-    xmlDoValidityCheckingDefaultValue = 0;
-    return (Qfalse);
-  }
-  else
-  {
-    xmlDoValidityCheckingDefaultValue = 1;
-    return (Qtrue);
-  }
-}
-
-/*
- * call-seq:
- *    XML.default_warnings -> (true|false)
- *
- * Determine whether parsers output warnings by default.
- */
-static VALUE rxml_default_warnings_get(VALUE class)
-{
-  if (xmlGetWarningsDefaultValue)
-    return (Qtrue);
-  else
-    return (Qfalse);
-}
-
-/*
- * call-seq:
- *    XML.default_warnings = true|false
- *
- * Controls whether parsers output warnings by default.
- */
-static VALUE rxml_default_warnings_set(VALUE class, VALUE bool)
-{
-  if (TYPE(bool) == T_FALSE)
-  {
-    xmlGetWarningsDefaultValue = 0;
-    return (Qfalse);
-  }
-  else
-  {
-    xmlGetWarningsDefaultValue = 1;
-    return (Qtrue);
-  }
-}
-
-/*
- * call-seq:
- *    XML.default_compression -> (true|false)
- *
- * Determine whether parsers use Zlib compression by default
- * (requires libxml to be compiled with Zlib support).
- */
-static VALUE rxml_default_compression_get(VALUE class)
-{
-#ifdef HAVE_ZLIB_H
-  return(INT2FIX(xmlGetCompressMode()));
-#else
-  rb_warn("libxml was compiled without zlib support");
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- *    XML.default_compression = true|false
- *
- * Controls whether parsers use Zlib compression by default
- * (requires libxml to be compiled with Zlib support).
- */
-static VALUE rxml_default_compression_set(VALUE class, VALUE num)
-{
-#ifdef HAVE_ZLIB_H
-  Check_Type(num, T_FIXNUM);
-  xmlSetCompressMode(FIX2INT(num));
-  return(num);
-#else
-  rb_warn("libxml was compiled without zlib support");
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- *    XML.features -> ["feature", ..., "feature"]
- *
- * Obtains an array of strings representing features supported
- * (and enabled) by the installed libxml.
- */
-static VALUE rxml_features(VALUE class)
-{
-  VALUE arr, str;
-  int i, len = MAX_LIBXML_FEATURES_LEN;
-  char **list = NULL;
-
-  list = ALLOC_N(char *,MAX_LIBXML_FEATURES_LEN);
-  MEMZERO(list, char *, MAX_LIBXML_FEATURES_LEN);
-
-  arr = rb_ary_new();
-  if (xmlGetFeaturesList(&len, (const char **) list) == -1)
-    return Qnil;
-
-  for (i = 0; i < len; i++)
-  {
-    str = rb_str_new2((const char *) list[i]);
-    rb_gc_unregister_address(&str);
-    rb_ary_push(arr, str);
-  }
-
-  if (len == MAX_LIBXML_FEATURES_LEN)
-    rb_warn(
-        "Please contact libxml-devel@rubyforge.org and ask to have the \"MAX_LIBXML_FEATURES_LEN increased\" because you could possibly be seeing an incomplete list");
-
-  ruby_xfree(list);
-  return (arr);
-}
-
-/*
- * call-seq:
- *    XML.indent_tree_output -> (true|false)
- *
- * Determines whether XML output will be indented
- * (using the string supplied to +default_indent_tree_string+)
- */
-static VALUE rxml_indent_tree_output_get(VALUE class)
-{
-  if (xmlIndentTreeOutput)
-    return (Qtrue);
-  else
-    return (Qfalse);
-}
-
-/*
- * call-seq:
- *    XML.indent_tree_output = true|false
- *
- * Controls whether XML output will be indented
- * (using the string supplied to +default_indent_tree_string+)
- */
-static VALUE rxml_indent_tree_output_set(VALUE class, VALUE bool)
-{
-  if (TYPE(bool) == T_TRUE)
-  {
-    xmlIndentTreeOutput = 1;
-    return (Qtrue);
-  }
-  else if (TYPE(bool) == T_FALSE)
-  {
-    xmlIndentTreeOutput = 0;
-    return (Qfalse);
-  }
-  else
-  {
-    rb_raise(rb_eArgError, "Invalid argument, must be boolean");
-  }
-}
-
-/*
- * call-seq:
- *    XML.memory_dump -> (true|false)
- *
- * Perform a parser memory dump (requires memory debugging
- * support in libxml).
- */
-static VALUE rxml_memory_dump(VALUE self)
-{
-#ifdef DEBUG_MEMORY_LOCATION
-  xmlMemoryDump();
-  return(Qtrue);
-#else
-  rb_warn("libxml was compiled without memory debugging support");
-  return (Qfalse);
-#endif
-}
-
-/*
- * call-seq:
- *    XML.memory_used -> num_bytes
- *
- * Perform a parser memory dump (requires memory debugging
- * support in libxml).
- */
-static VALUE rxml_memory_used(VALUE self)
-{
-#ifdef DEBUG_MEMORY_LOCATION
-  return(INT2NUM(xmlMemUsed()));
-#else
-  rb_warn("libxml was compiled without memory debugging support");
-  return (Qfalse);
-#endif
-}
-
-#if defined(_WIN32)
-__declspec(dllexport)
-#endif
-void Init_libxml_ruby(void)
-{
-  mLibXML = rb_define_module("LibXML");
-  mXML = rb_define_module_under(mLibXML, "XML");
-
-  /* Constants */
-  rb_define_const(mXML, "LIBXML_VERSION", rb_str_new2(LIBXML_DOTTED_VERSION));
-  rb_define_const(mXML, "VERSION", rb_str_new2(RUBY_LIBXML_VERSION));
-  rb_define_const(mXML, "VERNUM", INT2NUM(RUBY_LIBXML_VERNUM));
-  rb_define_const(mXML, "XML_NAMESPACE", rb_str_new2(
-      (const char*) XML_XML_NAMESPACE));
-
-  rb_define_module_function(mXML, "enabled_automata?", rxml_enabled_automata_q,
-      0);
-  rb_define_module_function(mXML, "enabled_c14n?", rxml_enabled_c14n_q, 0);
-  rb_define_module_function(mXML, "enabled_catalog?", rxml_enabled_catalog_q, 0);
-  rb_define_module_function(mXML, "enabled_debug?", rxml_enabled_debug_q, 0);
-  rb_define_module_function(mXML, "enabled_docbook?", rxml_enabled_docbook_q, 0);
-  rb_define_module_function(mXML, "enabled_ftp?", rxml_enabled_ftp_q, 0);
-  rb_define_module_function(mXML, "enabled_http?", rxml_enabled_http_q, 0);
-  rb_define_module_function(mXML, "enabled_html?", rxml_enabled_html_q, 0);
-  rb_define_module_function(mXML, "enabled_iconv?", rxml_enabled_iconv_q, 0);
-  rb_define_module_function(mXML, "enabled_memory_debug?",
-      rxml_enabled_memory_debug_location_q, 0);
-  rb_define_module_function(mXML, "enabled_regexp?", rxml_enabled_regexp_q, 0);
-  rb_define_module_function(mXML, "enabled_schemas?", rxml_enabled_schemas_q, 0);
-  rb_define_module_function(mXML, "enabled_thread?", rxml_enabled_thread_q, 0);
-  rb_define_module_function(mXML, "enabled_unicode?", rxml_enabled_unicode_q, 0);
-  rb_define_module_function(mXML, "enabled_xinclude?", rxml_enabled_xinclude_q,
-      0);
-  rb_define_module_function(mXML, "enabled_xpath?", rxml_enabled_xpath_q, 0);
-  rb_define_module_function(mXML, "enabled_xpointer?", rxml_enabled_xpointer_q,
-      0);
-  rb_define_module_function(mXML, "enabled_zlib?", rxml_enabled_zlib_q, 0);
-
-  rb_define_module_function(mXML, "catalog_dump", rxml_catalog_dump, 0);
-  rb_define_module_function(mXML, "catalog_remove", rxml_catalog_remove, 1);
-  rb_define_module_function(mXML, "check_lib_versions",
-      rxml_check_lib_versions, 0);
-  rb_define_module_function(mXML, "debug_entities", rxml_debug_entities_get, 0);
-  rb_define_module_function(mXML, "debug_entities=", rxml_debug_entities_set, 1);
-  rb_define_module_function(mXML, "default_compression",
-      rxml_default_compression_get, 0);
-  rb_define_module_function(mXML, "default_compression=",
-      rxml_default_compression_set, 1);
-  rb_define_module_function(mXML, "default_keep_blanks",
-      rxml_default_keep_blanks_get, 0);
-  rb_define_module_function(mXML, "default_keep_blanks=",
-      rxml_default_keep_blanks_set, 1);
-  rb_define_module_function(mXML, "default_load_external_dtd",
-      rxml_default_load_external_dtd_get, 0);
-  rb_define_module_function(mXML, "default_load_external_dtd=",
-      rxml_default_load_external_dtd_set, 1);
-  rb_define_module_function(mXML, "default_line_numbers",
-      rxml_default_line_numbers_get, 0);
-  rb_define_module_function(mXML, "default_line_numbers=",
-      rxml_default_line_numbers_set, 1);
-  rb_define_module_function(mXML, "default_pedantic_parser",
-      rxml_default_pedantic_parser_get, 0);
-  rb_define_module_function(mXML, "default_pedantic_parser=",
-      rxml_default_pedantic_parser_set, 1);
-  rb_define_module_function(mXML, "default_substitute_entities",
-      rxml_default_substitute_entities_get, 0);
-  rb_define_module_function(mXML, "default_substitute_entities=",
-      rxml_default_substitute_entities_set, 1);
-  rb_define_module_function(mXML, "default_tree_indent_string",
-      rxml_default_tree_indent_string_get, 0);
-  rb_define_module_function(mXML, "default_tree_indent_string=",
-      rxml_default_tree_indent_string_set, 1);
-  rb_define_module_function(mXML, "default_validity_checking",
-      rxml_default_validity_checking_get, 0);
-  rb_define_module_function(mXML, "default_validity_checking=",
-      rxml_default_validity_checking_set, 1);
-  rb_define_module_function(mXML, "default_warnings",
-      rxml_default_warnings_get, 0);
-  rb_define_module_function(mXML, "default_warnings=",
-      rxml_default_warnings_set, 1);
-  rb_define_module_function(mXML, "features", rxml_features, 0);
-  rb_define_module_function(mXML, "indent_tree_output",
-      rxml_indent_tree_output_get, 0);
-  rb_define_module_function(mXML, "indent_tree_output=",
-      rxml_indent_tree_output_set, 1);
-  rb_define_module_function(mXML, "memory_dump", rxml_memory_dump, 0);
-  rb_define_module_function(mXML, "memory_used", rxml_memory_used, 0);
-
-  /* Now initialize all the other modules */
-  ruby_init_xml_error();
-  ruby_init_xml_input();
-  ruby_init_state();
-  ruby_init_parser();
-  ruby_init_xml_parser_context();
-  ruby_init_xml_node();
-  ruby_init_xml_attributes();
-  ruby_init_xml_attr();
-  ruby_init_xml_document();
-  ruby_init_xml_ns();
-  ruby_init_xml_sax_parser();
-  ruby_init_xml_xinclude();
-  ruby_init_xml_xpath();
-  ruby_init_xml_xpath_context();
-  ruby_init_xml_xpath_expression();
-  ruby_init_xml_xpointer();
-  ruby_init_html_parser();
-  ruby_init_input_callbacks();
-  ruby_init_xml_dtd();
-  ruby_init_xml_schema();
-  ruby_init_xml_relaxng();
-  ruby_init_xml_reader();
-
-  rxml_default_substitute_entities_set(mXML, Qtrue);
-  rxml_default_load_external_dtd_set(mXML, Qtrue);
-}
+/* $Id: libxml.c 666 2008-12-07 00:16:50Z cfis $ */
+
+/* Please see the LICENSE file for copyright and distribution information */
+
+#include "ruby_libxml.h"
+
+VALUE mLibXML;
+VALUE mXML;
+
+/*
+ * call-seq:
+ * 		XML.catalog_dump -> true
+ *
+ * Dump all the global catalog content stdout.
+ */
+static VALUE rxml_catalog_dump(VALUE self)
+{
+  xmlCatalogDump(stdout);
+  return (Qtrue);
+}
+
+/*
+ * call-seq:
+ * 		XML.catalog_remove(catalog) -> true
+ *
+ * Remove the specified resource catalog.
+ */
+static VALUE rxml_catalog_remove(VALUE self, VALUE cat)
+{
+  Check_Type(cat, T_STRING);
+  xmlCatalogRemove((xmlChar *) StringValuePtr(cat));
+  return (Qtrue);
+}
+
+/*
+ * call-seq:
+ * 		XML.check_lib_versions -> true
+ *
+ * Check LIBXML version matches version the bindings
+ * were compiled to. Throws an exception if not.
+ */
+static VALUE rxml_check_lib_versions(VALUE class)
+{
+  xmlCheckVersion(LIBXML_VERSION);
+  return (Qtrue);
+}
+
+/*
+ * call-seq:
+ * 		XML.enabled_automata? -> (true|false)
+ *
+ * Determine whether libxml regexp automata support is enabled.
+ */
+static VALUE rxml_enabled_automata_q(VALUE class)
+{
+#ifdef LIBXML_AUTOMATA_ENABLED
+  return(Qtrue);
+#else
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ * 		XML.enabled_c14n? -> (true|false)
+ *
+ * Determine whether libxml 'canonical XML' support is enabled.
+ * See "Canonical XML" (http://www.w3.org/TR/xml-c14n)
+ */
+static VALUE rxml_enabled_c14n_q(VALUE class)
+{
+#ifdef LIBXML_C14N_ENABLED
+  return(Qtrue);
+#else
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ * 		XML.enabled_catalog? -> (true|false)
+ *
+ * Determine whether libxml resource catalog support is enabled.
+ */
+static VALUE rxml_enabled_catalog_q(VALUE class)
+{
+#ifdef LIBXML_CATALOG_ENABLED
+  return(Qtrue);
+#else
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ * 		XML.enabled_debug? -> (true|false)
+ *
+ * Determine whether libxml debugging support is enabled.
+ */
+static VALUE rxml_enabled_debug_q(VALUE class)
+{
+#ifdef LIBXML_DEBUG_ENABLED
+  return(Qtrue);
+#else
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ * 		XML.enabled_docbook? -> (true|false)
+ *
+ * Determine whether libxml docbook support is enabled.
+ */
+static VALUE rxml_enabled_docbook_q(VALUE class)
+{
+#ifdef LIBXML_DOCB_ENABLED
+  return(Qtrue);
+#else
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ * 		XML.enabled_ftp? -> (true|false)
+ *
+ * Determine whether libxml ftp client support is enabled.
+ */
+static VALUE rxml_enabled_ftp_q(VALUE class)
+{
+#ifdef LIBXML_FTP_ENABLED
+  return(Qtrue);
+#else
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ * 		XML.enabled_http? -> (true|false)
+ *
+ * Determine whether libxml http client support is enabled.
+ */
+static VALUE rxml_enabled_http_q(VALUE class)
+{
+#ifdef LIBXML_HTTP_ENABLED
+  return(Qtrue);
+#else
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ * 		XML.enabled_html? -> (true|false)
+ *
+ * Determine whether libxml html support is enabled.
+ */
+static VALUE rxml_enabled_html_q(VALUE class)
+{
+#ifdef LIBXML_HTML_ENABLED
+  return(Qtrue);
+#else
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ * 		XML.enabled_iconv? -> (true|false)
+ *
+ * Determine whether libxml iconv support is enabled.
+ */
+static VALUE rxml_enabled_iconv_q(VALUE class)
+{
+#ifdef LIBXML_ICONV_ENABLED
+  return(Qtrue);
+#else
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ * 		XML.enabled_memory_debug? -> (true|false)
+ *
+ * Determine whether libxml memory location debugging support
+ * is enabled.
+ */
+static VALUE rxml_enabled_memory_debug_location_q(VALUE class)
+{
+#ifdef DEBUG_MEMORY_LOCATION
+  return(Qtrue);
+#else
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ * 		XML.enabled_regexp? -> (true|false)
+ *
+ * Determine whether libxml regular expression support is enabled.
+ */
+static VALUE rxml_enabled_regexp_q(VALUE class)
+{
+#ifdef LIBXML_REGEXP_ENABLED
+  return(Qtrue);
+#else
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ * 		XML.enabled_schemas? -> (true|false)
+ *
+ * Determine whether libxml schema support is enabled.
+ */
+static VALUE rxml_enabled_schemas_q(VALUE class)
+{
+#ifdef LIBXML_SCHEMAS_ENABLED
+  return(Qtrue);
+#else
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ * 		XML.enabled_thread? -> (true|false)
+ *
+ * Determine whether libxml thread-safe semantics support
+ * is enabled (I think?).
+ */
+static VALUE rxml_enabled_thread_q(VALUE class)
+{
+#ifdef LIBXML_THREAD_ENABLED
+  return(Qtrue);
+#else
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ * 		XML.enabled_unicode? -> (true|false)
+ *
+ * Determine whether libxml unicode support is enabled.
+ */
+static VALUE rxml_enabled_unicode_q(VALUE class)
+{
+#ifdef LIBXML_UNICODE_ENABLED
+  return(Qtrue);
+#else
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ * 		XML.enabled_xinclude? -> (true|false)
+ *
+ * Determine whether libxml xinclude support is enabled.
+ */
+static VALUE rxml_enabled_xinclude_q(VALUE class)
+{
+#ifdef LIBXML_XINCLUDE_ENABLED
+  return(Qtrue);
+#else
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ * 		XML.enabled_xpath? -> (true|false)
+ *
+ * Determine whether libxml xpath support is enabled.
+ */
+static VALUE rxml_enabled_xpath_q(VALUE class)
+{
+#ifdef LIBXML_XPATH_ENABLED
+  return(Qtrue);
+#else
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ * 		XML.enabled_xpointer? -> (true|false)
+ *
+ * Determine whether libxml xpointer support is enabled.
+ */
+static VALUE rxml_enabled_xpointer_q(VALUE class)
+{
+#ifdef LIBXML_XPTR_ENABLED
+  return(Qtrue);
+#else
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ * 		XML.enabled_zlib? -> (true|false)
+ *
+ * Determine whether libxml zlib support is enabled.
+ */
+static VALUE rxml_enabled_zlib_q(VALUE class)
+{
+#ifdef HAVE_ZLIB_H
+  return(Qtrue);
+#else
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ *    XML.debug_entities -> (true|false)
+ *
+ * Determine whether included-entity debugging is enabled.
+ * (Requires Libxml to be compiled with debugging support)
+ */
+static VALUE rxml_debug_entities_get(VALUE class)
+{
+#ifdef LIBXML_DEBUG_ENABLED
+  if (xmlParserDebugEntities)
+  return(Qtrue);
+  else
+  return(Qfalse);
+#else
+  rb_warn("libxml was compiled with debugging turned off");
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ *    XML.debug_entities = true|false
+ *
+ * Enable or disable included-entity debugging.
+ * (Requires Libxml to be compiled with debugging support)
+ */
+static VALUE rxml_debug_entities_set(VALUE class, VALUE bool)
+{
+#ifdef LIBXML_DEBUG_ENABLED
+  if (TYPE(bool) == T_FALSE)
+  {
+    xmlParserDebugEntities = 0;
+    return(Qfalse);
+  }
+  else
+  {
+    xmlParserDebugEntities = 1;
+    return(Qtrue);
+  }
+#else
+  rb_warn("libxml was compiled with debugging turned off");
+#endif
+}
+
+/*
+ * call-seq:
+ *    XML.default_keep_blanks -> (true|false)
+ *
+ * Determine whether parsers retain whitespace by default.
+ */
+static VALUE rxml_default_keep_blanks_get(VALUE class)
+{
+  if (xmlKeepBlanksDefaultValue)
+    return (Qtrue);
+  else
+    return (Qfalse);
+}
+
+/*
+ * call-seq:
+ *    XML.default_keep_blanks = true|false
+ *
+ * Controls whether parsers retain whitespace by default.
+ */
+static VALUE rxml_default_keep_blanks_set(VALUE class, VALUE bool)
+{
+  if (TYPE(bool) == T_FALSE)
+  {
+    xmlKeepBlanksDefaultValue = 0;
+    return (Qfalse);
+  }
+  else if (TYPE(bool) == T_TRUE)
+  {
+    xmlKeepBlanksDefaultValue = 1;
+    return (Qtrue);
+  }
+  else
+  {
+    rb_raise(rb_eArgError, "Invalid argument, must be a boolean");
+  }
+}
+
+/*
+ * call-seq:
+ *    XML.default_load_external_dtd -> (true|false)
+ *
+ * Determine whether parsers load external DTDs by default.
+ */
+static VALUE rxml_default_load_external_dtd_get(VALUE class)
+{
+  if (xmlLoadExtDtdDefaultValue)
+    return (Qtrue);
+  else
+    return (Qfalse);
+}
+
+/*
+ * call-seq:
+ *    XML.default_load_external_dtd = true|false
+ *
+ * Controls whether parsers load external DTDs by default.
+ */
+static VALUE rxml_default_load_external_dtd_set(VALUE class, VALUE bool)
+{
+  if (TYPE(bool) == T_FALSE)
+  {
+    xmlLoadExtDtdDefaultValue = 0;
+    return (Qfalse);
+  }
+  else
+  {
+    xmlLoadExtDtdDefaultValue = 1;
+    return (Qtrue);
+  }
+}
+
+/*
+ * call-seq:
+ *    XML.default_line_numbers -> (true|false)
+ *
+ * Determine whether parsers retain line-numbers by default.
+ */
+static VALUE rxml_default_line_numbers_get(VALUE class)
+{
+  if (xmlLineNumbersDefaultValue)
+    return (Qtrue);
+  else
+    return (Qfalse);
+}
+
+/*
+ * call-seq:
+ *    XML.default_line_numbers = true|false
+ *
+ * Controls whether parsers retain line-numbers by default.
+ */
+static VALUE rxml_default_line_numbers_set(VALUE class, VALUE bool)
+{
+  if (TYPE(bool) == T_FALSE)
+  {
+    xmlLineNumbersDefault(0);
+    return (Qfalse);
+  }
+  else
+  {
+    xmlLineNumbersDefault(1);
+    return (Qtrue);
+  }
+}
+
+/*
+ * call-seq:
+ *    XML.default_pedantic_parser -> (true|false)
+ *
+ * Determine whether parsers are pedantic by default.
+ */
+static VALUE rxml_default_pedantic_parser_get(VALUE class)
+{
+  if (xmlPedanticParserDefaultValue)
+    return (Qtrue);
+  else
+    return (Qfalse);
+}
+
+/*
+ * call-seq:
+ *    XML.default_pedantic_parser = true|false
+ *
+ * Controls whether parsers are pedantic by default.
+ */
+static VALUE rxml_default_pedantic_parser_set(VALUE class, VALUE bool)
+{
+  if (TYPE(bool) == T_FALSE)
+  {
+    xmlPedanticParserDefault(0);
+    return (Qfalse);
+  }
+  else
+  {
+    xmlPedanticParserDefault(1);
+    return (Qtrue);
+  }
+}
+
+/*
+ * call-seq:
+ *    XML.default_substitute_entities -> (true|false)
+ *
+ * Determine whether parsers perform inline entity substitution
+ * (for external entities) by default.
+ */
+static VALUE rxml_default_substitute_entities_get(VALUE class)
+{
+  if (xmlSubstituteEntitiesDefaultValue)
+    return (Qtrue);
+  else
+    return (Qfalse);
+}
+
+/*
+ * call-seq:
+ *    XML.default_substitute_entities = true|false
+ *
+ * Controls whether parsers perform inline entity substitution
+ * (for external entities) by default.
+ */
+static VALUE rxml_default_substitute_entities_set(VALUE class, VALUE bool)
+{
+  if (TYPE(bool) == T_FALSE)
+  {
+    xmlSubstituteEntitiesDefault(0);
+    return (Qfalse);
+  }
+  else
+  {
+    xmlSubstituteEntitiesDefault(1);
+    return (Qtrue);
+  }
+}
+
+/*
+ * call-seq:
+ *    XML.default_tree_indent_string -> "string"
+ *
+ * Obtain the default string used by parsers to indent the XML tree
+ * for output.
+ */
+static VALUE rxml_default_tree_indent_string_get(VALUE class)
+{
+  if (xmlTreeIndentString == NULL)
+    return (Qnil);
+  else
+    return (rb_str_new2(xmlTreeIndentString));
+}
+
+/*
+ * call-seq:
+ *    XML.default_tree_indent_string = "string"
+ *
+ * Set the default string used by parsers to indent the XML tree
+ * for output.
+ */
+static VALUE rxml_default_tree_indent_string_set(VALUE class, VALUE string)
+{
+  Check_Type(string, T_STRING);
+  xmlTreeIndentString = xmlStrdup((xmlChar *)StringValuePtr(string));
+  return (string);
+}
+
+/*
+ * call-seq:
+ *    XML.default_validity_checking -> (true|false)
+ *
+ * Determine whether parsers perform XML validation by default.
+ */
+static VALUE rxml_default_validity_checking_get(VALUE class)
+{
+  if (xmlDoValidityCheckingDefaultValue)
+    return (Qtrue);
+  else
+    return (Qfalse);
+}
+
+/*
+ * call-seq:
+ *    XML.default_validity_checking = true|false
+ *
+ * Controls whether parsers perform XML validation by default.
+ */
+static VALUE rxml_default_validity_checking_set(VALUE class, VALUE bool)
+{
+  if (TYPE(bool) == T_FALSE)
+  {
+    xmlDoValidityCheckingDefaultValue = 0;
+    return (Qfalse);
+  }
+  else
+  {
+    xmlDoValidityCheckingDefaultValue = 1;
+    return (Qtrue);
+  }
+}
+
+/*
+ * call-seq:
+ *    XML.default_warnings -> (true|false)
+ *
+ * Determine whether parsers output warnings by default.
+ */
+static VALUE rxml_default_warnings_get(VALUE class)
+{
+  if (xmlGetWarningsDefaultValue)
+    return (Qtrue);
+  else
+    return (Qfalse);
+}
+
+/*
+ * call-seq:
+ *    XML.default_warnings = true|false
+ *
+ * Controls whether parsers output warnings by default.
+ */
+static VALUE rxml_default_warnings_set(VALUE class, VALUE bool)
+{
+  if (TYPE(bool) == T_FALSE)
+  {
+    xmlGetWarningsDefaultValue = 0;
+    return (Qfalse);
+  }
+  else
+  {
+    xmlGetWarningsDefaultValue = 1;
+    return (Qtrue);
+  }
+}
+
+/*
+ * call-seq:
+ *    XML.default_compression -> (true|false)
+ *
+ * Determine whether parsers use Zlib compression by default
+ * (requires libxml to be compiled with Zlib support).
+ */
+static VALUE rxml_default_compression_get(VALUE class)
+{
+#ifdef HAVE_ZLIB_H
+  return(INT2FIX(xmlGetCompressMode()));
+#else
+  rb_warn("libxml was compiled without zlib support");
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ *    XML.default_compression = true|false
+ *
+ * Controls whether parsers use Zlib compression by default
+ * (requires libxml to be compiled with Zlib support).
+ */
+static VALUE rxml_default_compression_set(VALUE class, VALUE num)
+{
+#ifdef HAVE_ZLIB_H
+  Check_Type(num, T_FIXNUM);
+  xmlSetCompressMode(FIX2INT(num));
+  return(num);
+#else
+  rb_warn("libxml was compiled without zlib support");
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ *    XML.features -> ["feature", ..., "feature"]
+ *
+ * Obtains an array of strings representing features supported
+ * (and enabled) by the installed libxml.
+ */
+static VALUE rxml_features(VALUE class)
+{
+  VALUE arr, str;
+  int i, len = MAX_LIBXML_FEATURES_LEN;
+  char **list = NULL;
+
+  list = ALLOC_N(char *,MAX_LIBXML_FEATURES_LEN);
+  MEMZERO(list, char *, MAX_LIBXML_FEATURES_LEN);
+
+  arr = rb_ary_new();
+  if (xmlGetFeaturesList(&len, (const char **) list) == -1)
+    return Qnil;
+
+  for (i = 0; i < len; i++)
+  {
+    str = rb_str_new2((const char *) list[i]);
+    rb_gc_unregister_address(&str);
+    rb_ary_push(arr, str);
+  }
+
+  if (len == MAX_LIBXML_FEATURES_LEN)
+    rb_warn(
+        "Please contact libxml-devel@rubyforge.org and ask to have the \"MAX_LIBXML_FEATURES_LEN increased\" because you could possibly be seeing an incomplete list");
+
+  ruby_xfree(list);
+  return (arr);
+}
+
+/*
+ * call-seq:
+ *    XML.indent_tree_output -> (true|false)
+ *
+ * Determines whether XML output will be indented
+ * (using the string supplied to +default_indent_tree_string+)
+ */
+static VALUE rxml_indent_tree_output_get(VALUE class)
+{
+  if (xmlIndentTreeOutput)
+    return (Qtrue);
+  else
+    return (Qfalse);
+}
+
+/*
+ * call-seq:
+ *    XML.indent_tree_output = true|false
+ *
+ * Controls whether XML output will be indented
+ * (using the string supplied to +default_indent_tree_string+)
+ */
+static VALUE rxml_indent_tree_output_set(VALUE class, VALUE bool)
+{
+  if (TYPE(bool) == T_TRUE)
+  {
+    xmlIndentTreeOutput = 1;
+    return (Qtrue);
+  }
+  else if (TYPE(bool) == T_FALSE)
+  {
+    xmlIndentTreeOutput = 0;
+    return (Qfalse);
+  }
+  else
+  {
+    rb_raise(rb_eArgError, "Invalid argument, must be boolean");
+  }
+}
+
+/*
+ * call-seq:
+ *    XML.memory_dump -> (true|false)
+ *
+ * Perform a parser memory dump (requires memory debugging
+ * support in libxml).
+ */
+static VALUE rxml_memory_dump(VALUE self)
+{
+#ifdef DEBUG_MEMORY_LOCATION
+  xmlMemoryDump();
+  return(Qtrue);
+#else
+  rb_warn("libxml was compiled without memory debugging support");
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ *    XML.memory_used -> num_bytes
+ *
+ * Perform a parser memory dump (requires memory debugging
+ * support in libxml).
+ */
+static VALUE rxml_memory_used(VALUE self)
+{
+#ifdef DEBUG_MEMORY_LOCATION
+  return(INT2NUM(xmlMemUsed()));
+#else
+  rb_warn("libxml was compiled without memory debugging support");
+  return (Qfalse);
+#endif
+}
+
+#if defined(_WIN32)
+__declspec(dllexport)
+#endif
+void Init_libxml_ruby(void)
+{
+  mLibXML = rb_define_module("LibXML");
+  mXML = rb_define_module_under(mLibXML, "XML");
+
+  /* Constants */
+  rb_define_const(mXML, "LIBXML_VERSION", rb_str_new2(LIBXML_DOTTED_VERSION));
+  rb_define_const(mXML, "VERSION", rb_str_new2(RUBY_LIBXML_VERSION));
+  rb_define_const(mXML, "VERNUM", INT2NUM(RUBY_LIBXML_VERNUM));
+  rb_define_const(mXML, "XML_NAMESPACE", rb_str_new2(
+      (const char*) XML_XML_NAMESPACE));
+
+  rb_define_module_function(mXML, "enabled_automata?", rxml_enabled_automata_q, 0);
+  rb_define_module_function(mXML, "enabled_c14n?", rxml_enabled_c14n_q, 0);
+  rb_define_module_function(mXML, "enabled_catalog?", rxml_enabled_catalog_q, 0);
+  rb_define_module_function(mXML, "enabled_debug?", rxml_enabled_debug_q, 0);
+  rb_define_module_function(mXML, "enabled_docbook?", rxml_enabled_docbook_q, 0);
+  rb_define_module_function(mXML, "enabled_ftp?", rxml_enabled_ftp_q, 0);
+  rb_define_module_function(mXML, "enabled_http?", rxml_enabled_http_q, 0);
+  rb_define_module_function(mXML, "enabled_html?", rxml_enabled_html_q, 0);
+  rb_define_module_function(mXML, "enabled_iconv?", rxml_enabled_iconv_q, 0);
+  rb_define_module_function(mXML, "enabled_memory_debug?", rxml_enabled_memory_debug_location_q, 0);
+  rb_define_module_function(mXML, "enabled_regexp?", rxml_enabled_regexp_q, 0);
+  rb_define_module_function(mXML, "enabled_schemas?", rxml_enabled_schemas_q, 0);
+  rb_define_module_function(mXML, "enabled_thread?", rxml_enabled_thread_q, 0);
+  rb_define_module_function(mXML, "enabled_unicode?", rxml_enabled_unicode_q, 0);
+  rb_define_module_function(mXML, "enabled_xinclude?", rxml_enabled_xinclude_q, 0);
+  rb_define_module_function(mXML, "enabled_xpath?", rxml_enabled_xpath_q, 0);
+  rb_define_module_function(mXML, "enabled_xpointer?", rxml_enabled_xpointer_q, 0);
+  rb_define_module_function(mXML, "enabled_zlib?", rxml_enabled_zlib_q, 0);
+
+  rb_define_module_function(mXML, "catalog_dump", rxml_catalog_dump, 0);
+  rb_define_module_function(mXML, "catalog_remove", rxml_catalog_remove, 1);
+  rb_define_module_function(mXML, "check_lib_versions", rxml_check_lib_versions, 0);
+  rb_define_module_function(mXML, "debug_entities", rxml_debug_entities_get, 0);
+  rb_define_module_function(mXML, "debug_entities=", rxml_debug_entities_set, 1);
+  rb_define_module_function(mXML, "default_compression", rxml_default_compression_get, 0);
+  rb_define_module_function(mXML, "default_compression=", rxml_default_compression_set, 1);
+  rb_define_module_function(mXML, "default_keep_blanks", rxml_default_keep_blanks_get, 0);
+  rb_define_module_function(mXML, "default_keep_blanks=", rxml_default_keep_blanks_set, 1);
+  rb_define_module_function(mXML, "default_load_external_dtd", rxml_default_load_external_dtd_get, 0);
+  rb_define_module_function(mXML, "default_load_external_dtd=", rxml_default_load_external_dtd_set, 1);
+  rb_define_module_function(mXML, "default_line_numbers", rxml_default_line_numbers_get, 0);
+  rb_define_module_function(mXML, "default_line_numbers=", rxml_default_line_numbers_set, 1);
+  rb_define_module_function(mXML, "default_pedantic_parser", rxml_default_pedantic_parser_get, 0);
+  rb_define_module_function(mXML, "default_pedantic_parser=", rxml_default_pedantic_parser_set, 1);
+  rb_define_module_function(mXML, "default_substitute_entities", rxml_default_substitute_entities_get, 0);
+  rb_define_module_function(mXML, "default_substitute_entities=", rxml_default_substitute_entities_set, 1);
+  rb_define_module_function(mXML, "default_tree_indent_string", rxml_default_tree_indent_string_get, 0);
+  rb_define_module_function(mXML, "default_tree_indent_string=", rxml_default_tree_indent_string_set, 1);
+  rb_define_module_function(mXML, "default_validity_checking", rxml_default_validity_checking_get, 0);
+  rb_define_module_function(mXML, "default_validity_checking=", rxml_default_validity_checking_set, 1);
+  rb_define_module_function(mXML, "default_warnings", rxml_default_warnings_get, 0);
+  rb_define_module_function(mXML, "default_warnings=", rxml_default_warnings_set, 1);
+  rb_define_module_function(mXML, "features", rxml_features, 0);
+  rb_define_module_function(mXML, "indent_tree_output", rxml_indent_tree_output_get, 0);
+  rb_define_module_function(mXML, "indent_tree_output=", rxml_indent_tree_output_set, 1);
+  rb_define_module_function(mXML, "memory_dump", rxml_memory_dump, 0);
+  rb_define_module_function(mXML, "memory_used", rxml_memory_used, 0);
+
+  /* Now initialize all the other modules */
+  ruby_init_xml_error();
+  ruby_init_xml_input();
+  ruby_init_state();
+  ruby_init_parser();
+  ruby_init_xml_parser_context();
+  ruby_init_xml_node();
+  ruby_init_xml_attributes();
+  ruby_init_xml_attr();
+  ruby_init_xml_document();
+  ruby_init_xml_namespaces();
+  ruby_init_xml_namespace();
+  ruby_init_xml_sax_parser();
+  ruby_init_xml_xinclude();
+  ruby_init_xml_xpath();
+  ruby_init_xml_xpath_context();
+  ruby_init_xml_xpath_expression();
+  ruby_init_xml_xpointer();
+  ruby_init_html_parser();
+  ruby_init_input_callbacks();
+  ruby_init_xml_dtd();
+  ruby_init_xml_schema();
+  ruby_init_xml_relaxng();
+  ruby_init_xml_reader();
+
+  rxml_default_substitute_entities_set(mXML, Qtrue);
+  rxml_default_load_external_dtd_set(mXML, Qtrue);
+}