coupa-libxml-ruby 1.1.4

data/ext/libxml/ruby_xml_attr_decl.h

@@ -0,0 +1,13 @@
+/* $Id: ruby_xml_attr.h 666 2008-12-07 00:16:50Z cfis $ */
+
+/* Please see the LICENSE file for copyright and distribution information */
+
+#ifndef __RXML_ATTR_DECL__
+#define __RXML_ATTR_DECL__
+
+extern VALUE cXMLAttrDecl;
+
+void rxml_init_attr_decl(void);
+VALUE rxml_attr_decl_wrap(xmlAttributePtr xattribute);
+VALUE rxml_attr_decl_value_get(VALUE self);
+#endif

data/ext/libxml/ruby_xml_attributes.c

@@ -0,0 +1,277 @@
+/* $Id: rxml_attributes.c 300 2008-07-01 19:14:15Z cfis $ */
+
+/* Please see the LICENSE file for copyright and distribution information */
+
+/*
+ * Document-class: LibXML::XML::Attributes
+ *
+ * Provides access to an element's attributes (XML::Attr).
+ *
+ * Basic Usage:
+ *  require 'xml'
+ *
+ *  doc = XML::Document.new(<some_file>)
+ *  attributes = doc.root.attributes
+ *
+ *  attributes.each do |attribute|
+ *    ..
+ *  end
+ *
+ *  attributes['foo'] = 'bar'
+ *  attribute = attributes.get_attribute['foo']
+ *  attribute.value == 'foo'
+ *
+ * To access a namespaced attribute:
+ *
+ *  XLINK_URI = 'http://www.w3.org/1999/xlink'
+ *
+ *  attribute = attributes.get_attribute_ns(XLINK_URI, 'title')
+ *  attribute.value = 'My title'
+ */
+
+#include "ruby_libxml.h"
+#include "ruby_xml_attributes.h"
+
+VALUE cXMLAttributes;
+
+void rxml_attributes_mark(xmlNodePtr xnode)
+{
+  rxml_node_mark(xnode);
+}
+
+/*
+ * Creates a  new attributes instance.  Not exposed to ruby.
+ */
+VALUE rxml_attributes_new(xmlNodePtr xnode)
+{
+  return Data_Wrap_Struct(cXMLAttributes, rxml_attributes_mark, NULL, xnode);
+}
+
+/*
+ * call-seq:
+ *   attributes.node -> XML::Node
+ *
+ * Return the node that owns this attributes list.
+ *
+ *  doc.root.attributes.node == doc.root
+ */
+VALUE rxml_attributes_node_get(VALUE self)
+{
+  xmlNodePtr xnode;
+  Data_Get_Struct(self, xmlNode, xnode);
+  return rxml_node_wrap(xnode);
+}
+
+/*
+ * call-seq:
+ *    attributes.get_attribute("name") -> (XML::Attr | XML::AtrrDecl)
+ *
+ * Returns the specified attribute.  If the attribute does not 
+ * exist but the document has an associated DTD that defines
+ * a default value for the attribute, then a XML::AttrDecl is
+ * returned.
+ *
+ * name: The name of the attribute, not including a namespace.
+ *
+ *  doc.root.attributes.get_attribute("foo")
+ */
+static VALUE rxml_attributes_get_attribute(VALUE self, VALUE name)
+{
+  xmlNodePtr xnode;
+  xmlAttrPtr xattr;
+
+  name = rb_obj_as_string(name);
+
+  Data_Get_Struct(self, xmlNode, xnode);
+
+  xattr = xmlHasProp(xnode, (xmlChar*) StringValuePtr(name));
+
+  if (!xattr)
+    return Qnil;
+  else if (xattr->type == XML_ATTRIBUTE_DECL)
+    return rxml_attr_decl_wrap((xmlAttributePtr)xattr);
+  else
+    return rxml_attr_wrap(xattr);
+}
+
+/*
+ * call-seq:
+ *    attributes.get_attribute_ns("namespace", "name") -> (XML::Attr | XML::AtrrDecl)
+ *
+ * Returns the specified attribute.  If the attribute does not 
+ * exist but the document has an associated DTD that defines
+ * a default value for the attribute, then a XML::AttrDecl is
+ * returned.
+ *
+ * namespace: The URI of the attribute's namespace.
+ * name: The name of the attribute, not including a namespace.
+ *
+ *  doc.root.attributes.get_attribute_ns('http://www.w3.org/1999/xlink', 'href')
+ */
+static VALUE rxml_attributes_get_attribute_ns(VALUE self, VALUE namespace,
+    VALUE name)
+{
+  xmlNodePtr xnode;
+  xmlAttrPtr xattr;
+
+  name = rb_obj_as_string(name);
+
+  Data_Get_Struct(self, xmlNode, xnode);
+
+  xattr = xmlHasNsProp(xnode, (xmlChar*) StringValuePtr(name),
+                      (xmlChar*) StringValuePtr(namespace));
+
+  if (!xattr)
+    return Qnil;
+  else if (xattr->type == XML_ATTRIBUTE_DECL)
+    return rxml_attr_decl_wrap((xmlAttributePtr)xattr);
+  else
+    return rxml_attr_wrap(xattr);
+}
+
+/*
+ * call-seq:
+ *    attributes["name"] -> String
+ *
+ * Fetches an attribute value. If you want to access the underlying
+ * Attribute itself use get_attribute.
+ *
+ * name: The name of the attribute, not including any namespaces.
+ *
+ *  doc.root.attributes['att'] -> 'some value'
+ */
+VALUE rxml_attributes_attribute_get(VALUE self, VALUE name)
+{
+  VALUE xattr = rxml_attributes_get_attribute(self, name);
+  
+  if (NIL_P(xattr))
+    return Qnil;
+  else
+    return rxml_attr_value_get(xattr);
+}
+
+/*
+ * call-seq:
+ *    attributes["name"] = "value"
+ *
+ * Sets an attribute value. If you want to get the Attribute itself,
+ * use get_attribute.
+ *
+ * name: The name of the attribute, not including any namespaces.
+ * value: The new value of the namespace.
+ *
+ *  doc.root.attributes['att'] = 'some value'
+ */
+VALUE rxml_attributes_attribute_set(VALUE self, VALUE name, VALUE value)
+{
+  VALUE xattr = rxml_attributes_get_attribute(self, name);
+  if (NIL_P(xattr))
+  {
+    VALUE args[3];
+
+    args[0] = rxml_attributes_node_get(self);
+    args[1] = name;
+    args[2] = value;
+
+    return rb_class_new_instance(sizeof(args)/sizeof(VALUE), args, cXMLAttr);
+  }
+  else
+  {
+    return rxml_attr_value_set(xattr, value);
+  }
+}
+
+/*
+ * call-seq:
+ *    attributes.each {block} -> XML::Attr
+ *
+ * Iterates over each attribute.
+ *
+ *  doc.root.attributes.each {|attribute| puts attribute.name}
+ */
+static VALUE rxml_attributes_each(VALUE self)
+{
+  xmlNodePtr xnode;
+  xmlAttrPtr xattr;
+  Data_Get_Struct(self, xmlNode, xnode);
+
+  xattr = xnode->properties;
+
+  while (xattr)
+  {
+    /* Get the next attribute while we still can - the user
+       may remove the yielded attribute. */
+    xmlAttrPtr next = xattr->next;
+
+    VALUE attr = rxml_attr_wrap(xattr);
+    rb_yield(attr);
+    xattr = next;
+  }
+
+  return self;
+}
+
+/*
+ * call-seq:
+ *    attributes.length -> Integer
+ *
+ * Returns the number of attributes.
+ *
+ *  doc.root.attributes.length
+ */
+static VALUE rxml_attributes_length(VALUE self)
+{
+  int length = 0;
+  xmlNodePtr xnode;
+  xmlAttrPtr xattr;
+  Data_Get_Struct(self, xmlNode, xnode);
+
+  xattr = xnode->properties;
+
+  while (xattr)
+  {
+    length++;
+    xattr = xattr->next;
+  }
+  
+  return INT2NUM(length);
+}
+
+/*
+ * call-seq:
+ *    attributes.first -> XML::Attr
+ *
+ * Returns the first attribute.
+ *
+ *  doc.root.attributes.first
+ */
+static VALUE rxml_attributes_first(VALUE self)
+{
+  xmlNodePtr xnode;
+  Data_Get_Struct(self, xmlNode, xnode);
+
+  if (xnode->type == XML_ELEMENT_NODE)
+  {
+    xmlAttrPtr xattr = xnode->properties;
+
+    if (xattr)
+    {
+      return rxml_attr_wrap(xattr);
+    }
+  }
+  return Qnil;
+}
+
+void rxml_init_attributes(void)
+{
+  cXMLAttributes = rb_define_class_under(mXML, "Attributes", rb_cObject);
+  rb_include_module(cXMLAttributes, rb_mEnumerable);
+  rb_define_method(cXMLAttributes, "node", rxml_attributes_node_get, 0);
+  rb_define_method(cXMLAttributes, "get_attribute", rxml_attributes_get_attribute, 1);
+  rb_define_method(cXMLAttributes, "get_attribute_ns", rxml_attributes_get_attribute_ns, 2);
+  rb_define_method(cXMLAttributes, "[]", rxml_attributes_attribute_get, 1);
+  rb_define_method(cXMLAttributes, "[]=", rxml_attributes_attribute_set, 2);
+  rb_define_method(cXMLAttributes, "each", rxml_attributes_each, 0);
+  rb_define_method(cXMLAttributes, "length", rxml_attributes_length, 0);
+  rb_define_method(cXMLAttributes, "first", rxml_attributes_first, 0);
+}

data/ext/libxml/ruby_xml_attributes.h

@@ -0,0 +1,17 @@
+/* $Id: rxml_attributes.h 282 2008-07-01 06:44:30Z cfis $ */
+
+/* Please see the LICENSE file for copyright and distribution information */
+
+#ifndef __RXML_ATTRIBUTES__
+#define __RXML_ATTRIBUTES__
+
+extern VALUE cXMLAttributesibutes;
+
+void rxml_init_attributes(void);
+VALUE rxml_attributes_new(xmlNodePtr xnode);
+
+VALUE rxml_attributes_attribute_get(VALUE self, VALUE name);
+VALUE rxml_attributes_attribute_set(VALUE self, VALUE name, VALUE value);
+
+
+#endif

data/ext/libxml/ruby_xml_cbg.c

@@ -0,0 +1,86 @@
+#include "ruby_libxml.h"
+#include <string.h>
+#include <libxml/xmlIO.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/ruby_xml_document.c

@@ -0,0 +1,1006 @@
+/* $Id: ruby_xml_document.c 854 2009-03-22 04:27:13Z cfis $ */
+
+/*
+ * Document-class: LibXML::XML::Document
+ *
+ * The XML::Document class provides a tree based API for working
+ * with xml documents.  You may directly create a document and
+ * manipulate it, or create a document from a data source by
+ * using an XML::Parser object.
+ *
+ * To read a document from a file:
+ *
+ *   doc = XML::Document.file('my_file')
+ *
+ * To use a parser to read a document:
+ *
+ *   parser = XML::Parser.file('my_file')
+ *   doc = parser.parse
+ *
+ * To create a document from scratch:
+ *
+ *  doc = XML::Document.new()
+ *  doc.root = XML::Node.new('root_node')
+ *  doc.root << XML::Node.new('elem1')
+ *  doc.save(filename, :indent => true, :encoding => 'UTF-8')
+ *
+ * To write a document to a file:
+ *
+ *  doc = XML::Document.new()
+ *  doc.root = XML::Node.new('root_node')
+ *  root = doc.root
+ *
+ *  root << elem1 = XML::Node.new('elem1')
+ *  elem1['attr1'] = 'val1'
+ *  elem1['attr2'] = 'val2'
+ *
+ *  root << elem2 = XML::Node.new('elem2')
+ *  elem2['attr1'] = 'val1'
+ *  elem2['attr2'] = 'val2'
+ *
+ *  root << elem3 = XML::Node.new('elem3')
+ *  elem3 << elem4 = XML::Node.new('elem4')
+ *  elem3 << elem5 = XML::Node.new('elem5')
+ *
+ *  elem5 << elem6 = XML::Node.new('elem6')
+ *  elem6 << 'Content for element 6'
+ *
+ *  elem3['attr'] = 'baz'
+ *
+ *  doc.save(filename, :indent => true, :encoding => 'UTF-8')
+ */
+
+#include <stdarg.h>
+#include "ruby_libxml.h"
+#include "ruby_xml_document.h"
+
+VALUE cXMLDocument;
+
+
+void rxml_document_free(xmlDocPtr xdoc)
+{
+  xdoc->_private = NULL;
+  xmlFreeDoc(xdoc);
+}
+
+VALUE rxml_document_wrap(xmlDocPtr xdoc)
+{
+  VALUE result;
+
+  // This node is already wrapped
+  if (xdoc->_private != NULL)
+  {
+    result = (VALUE) xdoc->_private;
+  }
+  else
+  {
+    result = Data_Wrap_Struct(cXMLDocument, NULL, rxml_document_free, xdoc);
+    xdoc->_private = (void*) result;
+  }
+
+  return result;
+}
+
+static void LibXML_validity_warning(void * ctxt, const char * msg, va_list ap)
+{
+  if (rb_block_given_p())
+  {
+    char buff[1024];
+    snprintf(buff, 1024, msg, ap);
+    rb_yield(rb_ary_new3(2, rb_str_new2(buff), Qfalse));
+  }
+  else
+  {
+    fprintf(stderr, "warning -- found validity error: ");
+    fprintf(stderr, msg, ap);
+  }
+}
+
+/*
+ * call-seq:
+ *    XML::Document.alloc(xml_version = 1.0) -> document
+ *
+ * Alocates a new XML::Document, optionally specifying the
+ * XML version.
+ */
+static VALUE rxml_document_alloc(VALUE klass)
+{
+  return Data_Wrap_Struct(klass, NULL, rxml_document_free, NULL);
+}
+
+/*
+ * call-seq:
+ *    XML::Document.initialize(xml_version = 1.0) -> document
+ *
+ * Initializes a new XML::Document, optionally specifying the
+ * XML version.
+ */
+static VALUE rxml_document_initialize(int argc, VALUE *argv, VALUE self)
+{
+  xmlDocPtr xdoc;
+  VALUE xmlver;
+
+  switch (argc)
+  {
+  case 0:
+    xmlver = rb_str_new2("1.0");
+    break;
+  case 1:
+    rb_scan_args(argc, argv, "01", &xmlver);
+    break;
+  default:
+    rb_raise(rb_eArgError, "wrong number of arguments (need 0 or 1)");
+  }
+
+  Check_Type(xmlver, T_STRING);
+  xdoc = xmlNewDoc((xmlChar*) StringValuePtr(xmlver));
+  xdoc->_private = (void*) self;
+  DATA_PTR(self) = xdoc;
+
+  return self;
+}
+
+/*
+ * call-seq:
+ *    document.canonicalize(xpath, mode, inclusive_ns_prefixes, comments) -> String 
+ *
+ * 	Returns a string containing the canonicalized form of the document, or
+ * 	the subset specified by the xpath argument. 
+ * 	 
+ */
+static VALUE rxml_document_canonicalize(VALUE self, VALUE xpath_expr, VALUE mode, VALUE inclusive_ns_prefixes, VALUE comments) {
+	Check_Type(mode, T_FIXNUM);
+	Check_Type(comments, T_FIXNUM);
+
+	xmlDocPtr xdoc;
+	xmlXPathObjectPtr xpathObj;
+	xmlXPathContextPtr xpathCtx;
+	xmlChar *buffer = NULL;
+	xmlNodeSetPtr nodes_to_canonize = NULL;
+	xmlChar** prefixes = NULL;
+
+  	Data_Get_Struct(self, xmlDoc, xdoc);
+
+	if(TYPE(xpath_expr) == T_STRING) {
+		VALUE expression = rb_check_string_type(xpath_expr);	
+		xpathCtx = xmlXPathNewContext(xdoc);
+		xpathCtx->node = xmlDocGetRootElement(xdoc);
+		// Load document namespaces into the xpath context
+  		xmlNsPtr *xnsArr = xmlGetNsList(xdoc, xpathCtx->node);
+		if(xnsArr) {
+    		xmlNsPtr xns = *xnsArr;
+			while(xns) {
+				if (xns->prefix)
+					xmlXPathRegisterNs(xpathCtx, xns->prefix, xns->href);
+				xns = xns->next;
+			}
+			xmlFree(xnsArr);
+		}	
+		xpathObj = xmlXPathEval((xmlChar*) StringValueCStr(expression), xpathCtx);
+		if(xpathObj == NULL) {
+			rxml_raise(xmlGetLastError());
+		}
+		nodes_to_canonize = xpathObj->nodesetval;
+		if(nodes_to_canonize == NULL || nodes_to_canonize->nodeNr == 0) {
+			//xpath didn't match anything, do nothing
+			return Qnil;
+		}
+	}
+	if(!NIL_P(inclusive_ns_prefixes)) {
+		int i;
+		struct RArray *ns_prefixes_array;
+		ns_prefixes_array = RARRAY(inclusive_ns_prefixes);
+		prefixes = (xmlChar**)malloc(sizeof(xmlChar**) * ns_prefixes_array->len + 1);
+		for(i=0;i<ns_prefixes_array->len;i++) {
+			VALUE prefix = ns_prefixes_array->ptr[i];
+			prefixes[i] = (xmlChar*)StringValueCStr(prefix);
+		}
+		prefixes[ns_prefixes_array->len]=NULL;
+	}
+
+	int length = xmlC14NDocDumpMemory(xdoc,nodes_to_canonize,FIX2INT(mode),prefixes,FIX2INT(comments), &buffer);
+	free(prefixes);
+	VALUE result = rb_str_new((const char*)buffer, length);
+	if(nodes_to_canonize) {
+		xmlXPathFreeContext(xpathCtx);
+		xmlXPathFreeObject(xpathObj);
+	} xmlFree(buffer);
+	return result;
+}
+
+
+/*
+ * call-seq:
+ *    document.compression -> num
+ *
+ * Obtain this document's compression mode identifier.
+ */
+static VALUE rxml_document_compression_get(VALUE self)
+{
+#ifdef HAVE_ZLIB_H
+  xmlDocPtr xdoc;
+
+  int compmode;
+  Data_Get_Struct(self, xmlDoc, xdoc);
+
+  compmode = xmlGetDocCompressMode(xdoc);
+  if (compmode == -1)
+  return(Qnil);
+  else
+  return(INT2NUM(compmode));
+#else
+  rb_warn("libxml not compiled with zlib support");
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ *    document.compression = num
+ *
+ * Set this document's compression mode.
+ */
+static VALUE rxml_document_compression_set(VALUE self, VALUE num)
+{
+#ifdef HAVE_ZLIB_H
+  xmlDocPtr xdoc;
+
+  int compmode;
+  Check_Type(num, T_FIXNUM);
+  Data_Get_Struct(self, xmlDoc, xdoc);
+
+  if (xdoc == NULL)
+  {
+    return(Qnil);
+  }
+  else
+  {
+    xmlSetDocCompressMode(xdoc, NUM2INT(num));
+
+    compmode = xmlGetDocCompressMode(xdoc);
+    if (compmode == -1)
+    return(Qnil);
+    else
+    return(INT2NUM(compmode));
+  }
+#else
+  rb_warn("libxml compiled without zlib support");
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ *    document.compression? -> (true|false)
+ *
+ * Determine whether this document is compressed.
+ */
+static VALUE rxml_document_compression_q(VALUE self)
+{
+#ifdef HAVE_ZLIB_H
+  xmlDocPtr xdoc;
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+
+  if (xdoc->compression != -1)
+  return(Qtrue);
+  else
+  return(Qfalse);
+#else
+  rb_warn("libxml compiled without zlib support");
+  return (Qfalse);
+#endif
+}
+
+/*
+ * call-seq:
+ *    document.child -> node
+ *
+ * Get this document's child node.
+ */
+static VALUE rxml_document_child_get(VALUE self)
+{
+  xmlDocPtr xdoc;
+  Data_Get_Struct(self, xmlDoc, xdoc);
+
+  if (xdoc->children == NULL)
+    return (Qnil);
+
+  return rxml_node_wrap(xdoc->children);
+}
+
+/*
+ * call-seq:
+ *    document.child? -> (true|false)
+ *
+ * Determine whether this document has a child node.
+ */
+static VALUE rxml_document_child_q(VALUE self)
+{
+  xmlDocPtr xdoc;
+  Data_Get_Struct(self, xmlDoc, xdoc);
+
+  if (xdoc->children == NULL)
+    return (Qfalse);
+  else
+    return (Qtrue);
+}
+
+
+/*
+ * call-seq:
+ *    node.debug -> true|false
+ *
+ * Print libxml debugging information to stdout.
+ * Requires that libxml was compiled with debugging enabled.
+*/
+static VALUE rxml_document_debug(VALUE self)
+{
+#ifdef LIBXML_DEBUG_ENABLED
+  xmlDocPtr xdoc;
+  Data_Get_Struct(self, xmlDoc, xdoc);
+  xmlDebugDumpDocument(NULL, xdoc);
+  return Qtrue;
+#else
+  rb_warn("libxml was compiled without debugging support.")
+  return Qfalse;
+#endif
+}
+
+/*
+ * call-seq:
+ *    document.encoding -> XML::Encoding::UTF_8
+ *
+ * Obtain the encoding specified by this document.
+ */
+static VALUE rxml_document_encoding_get(VALUE self)
+{
+  xmlDocPtr xdoc;
+  const char *xencoding;
+  Data_Get_Struct(self, xmlDoc, xdoc);
+
+  xencoding = (const char*)xdoc->encoding;
+  return INT2NUM(xmlParseCharEncoding(xencoding));
+}
+
+/*
+ * call-seq:
+ *    document.encoding = XML::Encoding::UTF_8
+ *
+ * Set the encoding for this document.
+ */
+static VALUE rxml_document_encoding_set(VALUE self, VALUE encoding)
+{
+  xmlDocPtr xdoc;
+  const char* xencoding = xmlGetCharEncodingName((xmlCharEncoding)NUM2INT(encoding));
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+
+  if (xdoc->encoding != NULL)
+    xmlFree((xmlChar *) xdoc->encoding);
+
+  xdoc->encoding = xmlStrdup((xmlChar *)xencoding);
+  return self;
+}
+
+/*
+ * call-seq:
+ *    document.import(node) -> XML::Node
+ *
+ * Creates a copy of the node that can be inserted into the
+ * current document.
+ */
+static VALUE rxml_document_import(VALUE self, VALUE node)
+{
+  xmlDocPtr xdoc;
+  xmlNodePtr xnode, xresult;
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+  Data_Get_Struct(node, xmlNode, xnode);
+
+  xresult = xmlDocCopyNode(xnode, xdoc, 1);
+
+  if (xresult == NULL)
+    rxml_raise(&xmlLastError);
+
+  return rxml_node_wrap(xresult);
+}
+
+/*
+ * call-seq:
+ *    document.last -> node
+ *
+ * Obtain the last node.
+ */
+static VALUE rxml_document_last_get(VALUE self)
+{
+  xmlDocPtr xdoc;
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+
+  if (xdoc->last == NULL)
+    return (Qnil);
+
+  return rxml_node_wrap(xdoc->last);
+}
+
+/*
+ * call-seq:
+ *    document.last? -> (true|false)
+ *
+ * Determine whether there is a last node.
+ */
+static VALUE rxml_document_last_q(VALUE self)
+{
+  xmlDocPtr xdoc;
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+
+  if (xdoc->last == NULL)
+    return (Qfalse);
+  else
+    return (Qtrue);
+}
+
+/*
+ * call-seq:
+ *    document.next -> node
+ *
+ * Obtain the next node.
+ */
+static VALUE rxml_document_next_get(VALUE self)
+{
+  xmlDocPtr xdoc;
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+
+  if (xdoc->next == NULL)
+    return (Qnil);
+
+  return rxml_node_wrap(xdoc->next);
+}
+
+/*
+ * call-seq:
+ *    document.next? -> (true|false)
+ *
+ * Determine whether there is a next node.
+ */
+static VALUE rxml_document_next_q(VALUE self)
+{
+  xmlDocPtr xdoc;
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+
+  if (xdoc->next == NULL)
+    return (Qfalse);
+  else
+    return (Qtrue);
+}
+
+/*
+ * call-seq:
+ *    node.type -> num
+ *
+ * Obtain this node's type identifier.
+ */
+static VALUE rxml_document_node_type(VALUE self)
+{
+  xmlNodePtr xnode;
+  Data_Get_Struct(self, xmlNode, xnode);
+  return (INT2NUM(xnode->type));
+}
+
+/*
+ * call-seq:
+ *    document.parent -> node
+ *
+ * Obtain the parent node.
+ */
+static VALUE rxml_document_parent_get(VALUE self)
+{
+  xmlDocPtr xdoc;
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+
+  if (xdoc->parent == NULL)
+    return (Qnil);
+
+  return rxml_node_wrap(xdoc->parent);
+}
+
+/*
+ * call-seq:
+ *    document.parent? -> (true|false)
+ *
+ * Determine whether there is a parent node.
+ */
+static VALUE rxml_document_parent_q(VALUE self)
+{
+  xmlDocPtr xdoc;
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+
+  if (xdoc->parent == NULL)
+    return (Qfalse);
+  else
+    return (Qtrue);
+}
+
+/*
+ * call-seq:
+ *    document.prev -> node
+ *
+ * Obtain the previous node.
+ */
+static VALUE rxml_document_prev_get(VALUE self)
+{
+  xmlDocPtr xdoc;
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+
+  if (xdoc->prev == NULL)
+    return (Qnil);
+
+  return rxml_node_wrap(xdoc->prev);
+}
+
+/*
+ * call-seq:
+ *    document.prev? -> (true|false)
+ *
+ * Determine whether there is a previous node.
+ */
+static VALUE rxml_document_prev_q(VALUE self)
+{
+  xmlDocPtr xdoc;
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+
+  if (xdoc->prev == NULL)
+    return (Qfalse);
+  else
+    return (Qtrue);
+}
+
+/*
+ * call-seq:
+ *    document.root -> node
+ *
+ * Obtain the root node.
+ */
+static VALUE rxml_document_root_get(VALUE self)
+{
+  xmlDocPtr xdoc;
+
+  xmlNodePtr root;
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+  root = xmlDocGetRootElement(xdoc);
+
+  if (root == NULL)
+    return (Qnil);
+
+  return rxml_node_wrap(root);
+}
+
+/*
+ * call-seq:
+ *    document.root = node
+ *
+ * Set the root node.
+ */
+static VALUE rxml_document_root_set(VALUE self, VALUE node)
+{
+  xmlDocPtr xdoc;
+  xmlNodePtr xroot, xnode;
+
+  if (rb_obj_is_kind_of(node, cXMLNode) == Qfalse)
+    rb_raise(rb_eTypeError, "must pass an XML::Node type object");
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+  Data_Get_Struct(node, xmlNode, xnode);
+
+  xroot = xmlDocSetRootElement(xdoc, xnode);
+  return node;
+}
+
+/*
+ * call-seq:
+ *    document.save(filename) -> int
+ *    document.save(filename, :indent => true, :encoding => 'UTF-8') -> int
+ *
+ * Saves a document to a file.  You may provide an optional hash table
+ * to control how the string is generated.  Valid options are:
+ * 
+ * :indent - Specifies if the string should be indented.  The default value
+ * is true.  Note that indentation is only added if both :indent is
+ * true and XML.indent_tree_output is true.  If :indent is set to false,
+ * then both indentation and line feeds are removed from the result.
+ *
+ * :encoding - Specifies the output encoding of the string.  It
+ * defaults to the original encoding of the document (see
+ * #encoding.  To override the orginal encoding, use one of the
+ * XML::Encoding encoding constants. */
+static VALUE rxml_document_save(int argc, VALUE *argv, VALUE self)
+{ 
+  VALUE options = Qnil;
+  VALUE filename = Qnil;
+  xmlDocPtr xdoc;
+  int indent = 1;
+  const char *xfilename;
+  const char *xencoding;
+  int length;
+
+  rb_scan_args(argc, argv, "11", &filename, &options);
+
+  Check_Type(filename, T_STRING);
+  xfilename = StringValuePtr(filename);
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+  xencoding = xdoc->encoding;
+
+  if (!NIL_P(options))
+  {
+    VALUE rencoding, rindent;
+    Check_Type(options, T_HASH);
+    rencoding = rb_hash_aref(options, ID2SYM(rb_intern("encoding")));
+    rindent = rb_hash_aref(options, ID2SYM(rb_intern("indent")));
+
+    if (rindent == Qfalse)
+      indent = 0;
+
+    if (rencoding != Qnil)
+    {
+      xencoding = xmlGetCharEncodingName((xmlCharEncoding)NUM2INT(rencoding));
+      if (!xencoding)
+        rb_raise(rb_eArgError, "Unknown encoding value: %d", NUM2INT(rencoding));
+    }
+  }
+
+  length = xmlSaveFormatFileEnc(xfilename, xdoc, xencoding, indent);
+
+  if (length == -1)
+    rxml_raise(&xmlLastError);
+  
+  return (INT2NUM(length));
+}
+
+/*
+ * call-seq:
+ *    document.standalone? -> (true|false)
+ *
+ * Determine whether this is a standalone document.
+ */
+static VALUE rxml_document_standalone_q(VALUE self)
+{
+  xmlDocPtr xdoc;
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+  if (xdoc->standalone)
+    return (Qtrue);
+  else
+    return (Qfalse);
+}
+
+/*
+ * call-seq:
+ *    document.to_s -> "string"
+ *    document.to_s(:indent => true, :encoding => 'UTF-8') -> "string"
+ *
+ * Converts a document, and all of its children, to a string representation.
+ * You may provide an optional hash table to control how the string is 
+ * generated.  Valid options are:
+ * 
+ * :indent - Specifies if the string should be indented.  The default value
+ * is true.  Note that indentation is only added if both :indent is
+ * true and XML.indent_tree_output is true.  If :indent is set to false,
+ * then both indentation and line feeds are removed from the result.
+ *
+ * :encoding - Specifies the output encoding of the string.  It
+ * defaults to XML::Encoding::UTF8.  To change it, use one of the
+ * XML::Encoding encoding constants. */
+static VALUE rxml_document_to_s(int argc, VALUE *argv, VALUE self)
+{ 
+  VALUE result;
+  VALUE options = Qnil;
+  xmlDocPtr xdoc;
+  int indent = 1;
+  const char *xencoding = "UTF-8";
+  xmlChar *buffer; 
+  int length;
+
+  rb_scan_args(argc, argv, "01", &options);
+
+  if (!NIL_P(options))
+  {
+    VALUE rencoding, rindent;
+    Check_Type(options, T_HASH);
+    rencoding = rb_hash_aref(options, ID2SYM(rb_intern("encoding")));
+    rindent = rb_hash_aref(options, ID2SYM(rb_intern("indent")));
+
+    if (rindent == Qfalse)
+      indent = 0;
+
+    if (rencoding != Qnil)
+    {
+      xencoding = xmlGetCharEncodingName((xmlCharEncoding)NUM2INT(rencoding));
+      if (!xencoding)
+        rb_raise(rb_eArgError, "Unknown encoding value: %d", NUM2INT(rencoding));
+    }
+  }
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+  xmlDocDumpFormatMemoryEnc(xdoc, &buffer, &length, xencoding, indent);
+
+  result = rb_str_new((const char*) buffer, length);
+  xmlFree(buffer);
+  return result;
+}
+
+/*
+ * call-seq:
+ *    document.url -> "url"
+ *
+ * Obtain this document's source URL, if any.
+ */
+static VALUE rxml_document_url_get(VALUE self)
+{
+  xmlDocPtr xdoc;
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+  if (xdoc->URL == NULL)
+    return (Qnil);
+  else
+    return (rb_str_new2((const char*) xdoc->URL));
+}
+
+/*
+ * call-seq:
+ *    document.version -> "version"
+ *
+ * Obtain the XML version specified by this document.
+ */
+static VALUE rxml_document_version_get(VALUE self)
+{
+  xmlDocPtr xdoc;
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+  if (xdoc->version == NULL)
+    return (Qnil);
+  else
+    return (rb_str_new2((const char*) xdoc->version));
+}
+
+/*
+ * call-seq:
+ *    document.xhtml? -> (true|false)
+ *
+ * Determine whether this is an XHTML document.
+ */
+static VALUE rxml_document_xhtml_q(VALUE self)
+{
+  xmlDocPtr xdoc;
+	xmlDtdPtr xdtd;
+  Data_Get_Struct(self, xmlDoc, xdoc);
+	xdtd = xmlGetIntSubset(xdoc);
+  if (xdtd != NULL && xmlIsXHTML(xdtd->SystemID, xdtd->ExternalID) > 0)
+    return (Qtrue);
+  else
+    return (Qfalse);
+}
+
+/*
+ * call-seq:
+ *    document.xinclude -> num
+ *
+ * Process xinclude directives in this document.
+ */
+static VALUE rxml_document_xinclude(VALUE self)
+{
+#ifdef LIBXML_XINCLUDE_ENABLED
+  xmlDocPtr xdoc;
+
+  int ret;
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+  ret = xmlXIncludeProcess(xdoc);
+  if (ret >= 0)
+  {
+    return(INT2NUM(ret));
+  }
+  else
+  {
+    rxml_raise(&xmlLastError);
+    return Qnil;
+  }
+#else
+  rb_warn(
+      "libxml was compiled without XInclude support.  Please recompile libxml and ruby-libxml");
+  return (Qfalse);
+#endif
+}
+
+void LibXML_validity_error(void * ctxt, const char * msg, va_list ap)
+{
+  if (rb_block_given_p())
+  {
+    char buff[1024];
+    snprintf(buff, 1024, msg, ap);
+    rb_yield(rb_ary_new3(2, rb_str_new2(buff), Qtrue));
+  }
+  else
+  {
+    fprintf(stderr, "error -- found validity error: ");
+    fprintf(stderr, msg, ap);
+  }
+}
+
+/*
+ * call-seq:
+ *    document.order_elements! 
+ * 
+ * Call this routine to speed up XPath computation on static documents.
+ * This stamps all the element nodes with the document order. 
+ */
+static VALUE rxml_document_order_elements(VALUE self)
+{
+  xmlDocPtr xdoc;
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+  return LONG2FIX(xmlXPathOrderDocElems(xdoc));
+}
+
+/*
+ * call-seq:
+ *    document.validate_schema(schema) -> (true|false)
+ *
+ * Validate this document against the specified XML::Schema.
+ *
+ * If a block is provided it is used as an error handler for validaten errors.
+ * The block is called with two argument, the message and a flag indication
+ * if the message is an error (true) or a warning (false).
+ */
+static VALUE rxml_document_validate_schema(VALUE self, VALUE schema)
+{
+  xmlSchemaValidCtxtPtr vptr;
+  xmlDocPtr xdoc;
+  xmlSchemaPtr xschema;
+  int is_invalid;
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+  Data_Get_Struct(schema, xmlSchema, xschema);
+
+  vptr = xmlSchemaNewValidCtxt(xschema);
+
+  xmlSchemaSetValidErrors(vptr,
+      (xmlSchemaValidityErrorFunc) LibXML_validity_error,
+      (xmlSchemaValidityWarningFunc) LibXML_validity_warning, NULL);
+
+  is_invalid = xmlSchemaValidateDoc(vptr, xdoc);
+  xmlSchemaFreeValidCtxt(vptr);
+  if (is_invalid)
+  {
+    rxml_raise(&xmlLastError);
+    return Qfalse;
+  }
+  else
+  {
+    return Qtrue;
+  }
+}
+
+/*
+ * call-seq:
+ *    document.validate_schema(relaxng) -> (true|false)
+ *
+ * Validate this document against the specified XML::RelaxNG.
+ *
+ * If a block is provided it is used as an error handler for validaten errors.
+ * The block is called with two argument, the message and a flag indication
+ * if the message is an error (true) or a warning (false).
+ */
+static VALUE rxml_document_validate_relaxng(VALUE self, VALUE relaxng)
+{
+  xmlRelaxNGValidCtxtPtr vptr;
+  xmlDocPtr xdoc;
+  xmlRelaxNGPtr xrelaxng;
+  int is_invalid;
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+  Data_Get_Struct(relaxng, xmlRelaxNG, xrelaxng);
+
+  vptr = xmlRelaxNGNewValidCtxt(xrelaxng);
+
+  xmlRelaxNGSetValidErrors(vptr,
+      (xmlRelaxNGValidityErrorFunc) LibXML_validity_error,
+      (xmlRelaxNGValidityWarningFunc) LibXML_validity_warning, NULL);
+
+  is_invalid = xmlRelaxNGValidateDoc(vptr, xdoc);
+  xmlRelaxNGFreeValidCtxt(vptr);
+  if (is_invalid)
+  {
+    rxml_raise(&xmlLastError);
+    return Qfalse;
+  }
+  else
+  {
+    return Qtrue;
+  }
+}
+
+/*
+ * call-seq:
+ *    document.validate(dtd) -> (true|false)
+ *
+ * Validate this document against the specified XML::DTD.
+ */
+static VALUE rxml_document_validate_dtd(VALUE self, VALUE dtd)
+{
+  VALUE error = Qnil;
+  xmlValidCtxt ctxt;
+  xmlDocPtr xdoc;
+  xmlDtdPtr xdtd;
+
+  Data_Get_Struct(self, xmlDoc, xdoc);
+  Data_Get_Struct(dtd, xmlDtd, xdtd);
+
+  ctxt.userData = &error;
+  ctxt.error = (xmlValidityErrorFunc) LibXML_validity_error;
+  ctxt.warning = (xmlValidityWarningFunc) LibXML_validity_warning;
+
+  ctxt.nodeNr = 0;
+  ctxt.nodeTab = NULL;
+  ctxt.vstateNr = 0;
+  ctxt.vstateTab = NULL;
+
+  if (xmlValidateDtd(&ctxt, xdoc, xdtd))
+  {
+    return (Qtrue);
+  }
+  else
+  {
+    rxml_raise(&xmlLastError);
+    return Qfalse;
+  }
+}
+
+void rxml_init_document(void)
+{
+  cXMLDocument = rb_define_class_under(mXML, "Document", rb_cObject);
+  rb_define_alloc_func(cXMLDocument, rxml_document_alloc);
+
+  rb_define_method(cXMLDocument, "initialize", rxml_document_initialize, -1);
+  rb_define_method(cXMLDocument, "child", rxml_document_child_get, 0);
+  rb_define_method(cXMLDocument, "child?", rxml_document_child_q, 0);
+  rb_define_method(cXMLDocument, "compression", rxml_document_compression_get, 0);
+  rb_define_method(cXMLDocument, "compression=", rxml_document_compression_set, 1);
+  rb_define_method(cXMLDocument, "compression?", rxml_document_compression_q, 0);
+  rb_define_method(cXMLDocument, "debug", rxml_document_debug, 0);
+  rb_define_method(cXMLDocument, "encoding", rxml_document_encoding_get, 0);
+  rb_define_method(cXMLDocument, "encoding=", rxml_document_encoding_set, 1);
+  rb_define_method(cXMLDocument, "import", rxml_document_import, 1);
+  rb_define_method(cXMLDocument, "last", rxml_document_last_get, 0);
+  rb_define_method(cXMLDocument, "last?", rxml_document_last_q, 0);
+  rb_define_method(cXMLDocument, "next", rxml_document_next_get, 0);
+  rb_define_method(cXMLDocument, "next?", rxml_document_next_q, 0);
+  rb_define_method(cXMLDocument, "node_type", rxml_document_node_type, 0);
+  rb_define_method(cXMLDocument, "order_elements!", rxml_document_order_elements, 0);
+  rb_define_method(cXMLDocument, "parent", rxml_document_parent_get, 0);
+  rb_define_method(cXMLDocument, "parent?", rxml_document_parent_q, 0);
+  rb_define_method(cXMLDocument, "prev", rxml_document_prev_get, 0);
+  rb_define_method(cXMLDocument, "prev?", rxml_document_prev_q, 0);
+  rb_define_method(cXMLDocument, "root", rxml_document_root_get, 0);
+  rb_define_method(cXMLDocument, "root=", rxml_document_root_set, 1);
+  rb_define_method(cXMLDocument, "save", rxml_document_save, -1);
+  rb_define_method(cXMLDocument, "standalone?", rxml_document_standalone_q, 0);
+  rb_define_method(cXMLDocument, "to_s", rxml_document_to_s, -1);
+  rb_define_method(cXMLDocument, "url", rxml_document_url_get, 0);
+  rb_define_method(cXMLDocument, "version", rxml_document_version_get, 0);
+  rb_define_method(cXMLDocument, "xhtml?", rxml_document_xhtml_q, 0);
+  rb_define_method(cXMLDocument, "xinclude", rxml_document_xinclude, 0);
+  rb_define_method(cXMLDocument, "validate", rxml_document_validate_dtd, 1);
+  rb_define_method(cXMLDocument, "validate_schema", rxml_document_validate_schema, 1);
+  rb_define_method(cXMLDocument, "validate_relaxng", rxml_document_validate_relaxng, 1);
+  rb_define_method(cXMLDocument, "canonicalize", rxml_document_canonicalize, 4);
+}