libxml-ruby 0.9.3 → 0.9.4

data/ext/libxml/ruby_xml_reader.c

@@ -1,893 +1,910 @@
-/* Copyright (c) 2006-2007 Apple Inc.
- * Please see the LICENSE file for copyright and distribution information. */
-
-#include "ruby_libxml.h"
-#include "ruby_xml_reader.h"
-
-VALUE cXMLReader;
-
-/*
- * Document-class: LibXML::XML::Reader
- *
- * The XML::Reader class provides a simpler, alternative way of parsing an XML
- * document in contrast to XML::Parser or XML::SaxParser.  A XML::Reader instance
- * acts like a cursor going forward in a document stream, stopping at each node 
- * it encounters.  To advance to the next node, simply cadd XML::Reader#read.
- * 
- * The XML::Reader API closely matches the DOM Core specification and supports
- * namespaces, xml:base, entity handling and DTDs.  
- *
- * To summarize, XML::Reader provides a far simpler API to use versus XML::SaxParser
- * and is more memory efficient than using XML::Parser to create a DOM tree.
- *
- * Example:
- *
- *  parser = XML::Reader.new("<foo><bar>1</bar><bar>2</bar><bar>3</bar></foo>")
- *  parser.read
- *  assert_equal('foo', parser.name)
- *  assert_equal(nil, parser.value)
- *  
- *  3.times do |i|
- *    parser.read
- *    assert_equal(XML::Reader::TYPE_ELEMENT, parser.node_type)
- *    assert_equal('bar', parser.name)
- *    parser.read
- *    assert_equal(XML::Reader::TYPE_TEXT, parser.node_type)
- *    assert_equal((i + 1).to_s, parser.value)
- *    parser.read
- *    assert_equal(XML::Reader::TYPE_END_ELEMENT, parser.node_type)
- *  end
- *
- * For a more in depth tutorial, albeit in C, see http://xmlsoft.org/xmlreader.html.*/
-
-#define CSTR2RVAL(x)  (x == NULL ? Qnil : rb_str_new2((const char *)x))
-#define RVAL2CSTR(x)  (StringValueCStr(x))
-
-static inline VALUE 
-__rb_str_new_and_free(xmlChar *x)
-{
-  if (x != NULL) {
-    VALUE v = rb_str_new2((const char *)x);
-    xmlFree(x);
-    return v;
-  }
-  return Qnil;
-}
-
-#define CSTR2RVAL2(x) (__rb_str_new_and_free(x))
-
-
-static VALUE
-rxml_reader_new(VALUE class, xmlTextReaderPtr reader)
-{
-  return Data_Wrap_Struct(class, NULL, xmlFreeTextReader, reader);
-}
-
-static xmlTextReaderPtr
-rxml_text_reader_get(VALUE obj)
-{
-  xmlTextReaderPtr ptr;
-  Data_Get_Struct(obj, xmlTextReader, ptr);
-  return ptr;
-}
-
-/*
- * call-seq:
- *    XML::Reader.file(path, encoding=nil, options=0) -> reader
- *
- * Parse an XML file from the filesystem or the network. The parsing flags 
- * options are a combination of xmlParserOption. 
- */
-static VALUE
-rxml_reader_new_file(int argc, VALUE *argv, VALUE self)
-{
-  xmlTextReaderPtr reader;
-  VALUE path, encoding, options;
-
-  rb_scan_args(argc, argv, "12", &path, &encoding, &options);
-
-  reader = xmlReaderForFile(RVAL2CSTR(path), 
-                            NIL_P(encoding) ? NULL : RVAL2CSTR(encoding), 
-                            NIL_P(options) ? 0 : FIX2INT(options));
-  if (reader == NULL)
-    rb_raise(rb_eRuntimeError, 
-             "cannot create text reader for given XML file at path '%s'", 
-             RVAL2CSTR(path));
-
-  return rxml_reader_new(self, reader); 
-}
-
-/*
- * call-seq:
- *    XML::Reader.io(io, url=nil, encoding=nil, options=0) -> reader
- *
- * Parse an XML file from a file handle. The parsing flags options are
- * a combination of xmlParserOption. 
- */
-static VALUE
-rxml_reader_new_io(int argc, VALUE *argv, VALUE self)
-{
-  xmlTextReaderPtr reader;
-  VALUE io, url, encoding, options;
-
-  rb_scan_args(argc, argv, "13", &io, &url, &encoding, &options);
-
-  reader = xmlReaderForIO((xmlInputReadCallback) rxml_read_callback, NULL, io,
-                          NIL_P(url) ? NULL : RVAL2CSTR(url),
-                          NIL_P(encoding) ? NULL : RVAL2CSTR(encoding), 
-                          NIL_P(options) ? 0 : FIX2INT(options));
-  if (reader == NULL)
-    rb_raise(rb_eRuntimeError, "cannot create text reader for given stream");
-
-  return rxml_reader_new(self, reader); 
-}
-
-/*
- * call-seq:
- *    XML::Reader.walker(doc) -> reader
- *    XML::Reader.document(doc) -> reader
- *
- * Create an XML text reader for a preparsed document.
- */
-VALUE
-rxml_reader_new_walker(VALUE self, VALUE doc)
-{
-  xmlDocPtr xdoc;
-  xmlTextReaderPtr reader;
-  
-  Data_Get_Struct(doc, xmlDoc, xdoc);
- 
-  reader = xmlReaderWalker(xdoc);  
-  if (reader == NULL)
-    rb_raise(rb_eRuntimeError, "cannot create text reader for given document");
-
-  return rxml_reader_new(self, reader); 
-}
-
-/*
- * call-seq:
- *    XML::Reader.new(data, url=nil, encoding=nil, options=0) -> reader
- *    XML::Reader.string(data, url=nil, encoding=nil, options=0) -> reader
- *
- * Create an XML text reader for an XML in-memory document. The parsing flags
- * options are a combination of xmlParserOption.
- */
-static VALUE
-rxml_reader_new_data(int argc, VALUE *argv, VALUE self)
-{
-  xmlTextReaderPtr reader;
-  VALUE data, url, encoding, options;
-  char *c_data;
-
-  rb_scan_args(argc, argv, "13", &data, &url, &encoding, &options);
-
-  c_data = RVAL2CSTR(data);
-  reader = xmlReaderForMemory(c_data,
-                              strlen(c_data), 
-                              NIL_P(url) ? NULL : RVAL2CSTR(url),
-                              NIL_P(encoding) ? NULL : RVAL2CSTR(encoding), 
-                              NIL_P(options) ? 0 : FIX2INT(options));
-  if (reader == NULL)
-    rb_raise(rb_eRuntimeError, "cannot create text reader for given data");
-
-  return rxml_reader_new(self, reader); 
-}
-
-/*
- * call-seq:
- *    parser.close -> code
- *
- * This method releases any resources allocated by the current instance 
- * changes the state to Closed and close any underlying input.
- */
-static VALUE
-rxml_reader_close(VALUE self)
-{
-  return INT2FIX(xmlTextReaderClose(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *   parser.move_to_attribute(val) -> code
- *
- * Move the position of the current instance to the attribute with the 
- * specified index (if +val+ is an integer) or name (if +val+ is a string) 
- * relative to the containing element.
- */
-static VALUE
-rxml_reader_move_to_attr(VALUE self, VALUE val)
-{
-  xmlTextReaderPtr reader;
-  int ret;
-
-  reader = rxml_text_reader_get(self);
-
-  if (TYPE(val) == T_FIXNUM) {
-    ret = xmlTextReaderMoveToAttributeNo(reader, FIX2INT(val));
-  }
-  else {
-    ret = xmlTextReaderMoveToAttribute(reader, (const xmlChar *)RVAL2CSTR(val));
-  }
-
-  return INT2FIX(ret);
-}
-
-/*
- * call-seq:
- *    reader.move_to_first_attribute -> code
- *
- * Move the position of the current instance to the first attribute associated
- * with the current node.
- */
-static VALUE
-rxml_reader_move_to_first_attr(VALUE self)
-{
-  return INT2FIX(xmlTextReaderMoveToFirstAttribute(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.move_to_next_attribute -> code
- *
- * Move the position of the current instance to the next attribute associated 
- * with the current node.
- */
-static VALUE
-rxml_reader_move_to_next_attr(VALUE self)
-{
-  return INT2FIX(xmlTextReaderMoveToNextAttribute(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.move_to_element -> code
- *
- * Move the position of the current instance to the node that contains the 
- * current attribute node.
- */
-static VALUE
-rxml_reader_move_to_element(VALUE self)
-{
-  return INT2FIX(xmlTextReaderMoveToElement(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.next -> code
- *
- * Skip to the node following the current one in document order while avoiding 
- * the subtree if any.
- */
-static VALUE
-rxml_reader_next(VALUE self)
-{
-  return INT2FIX(xmlTextReaderNext(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.next_sibling -> code
- *
- * Skip to the node following the current one in document order while avoiding 
- * the subtree if any. Currently implemented only for Readers built on a 
- * document.
- */
-static VALUE
-rxml_reader_next_sibling(VALUE self)
-{
-  return INT2FIX(xmlTextReaderNextSibling(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.node_type -> type
- *
- * Get the node type of the current node. Reference: 
- * http://dotgnu.org/pnetlib-doc/System/Xml/XmlNodeType.html
- */
-static VALUE
-rxml_reader_node_type(VALUE self)
-{
-  return INT2FIX(xmlTextReaderNodeType(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.normalization -> value
- *
- * The value indicating whether to normalize white space and attribute values. 
- * Since attribute value and end of line normalizations are a MUST in the XML 
- * specification only the value true is accepted. The broken bahaviour of 
- * accepting out of range character entities like &#0; is of course not 
- * supported either.
- *
- * Return 1 or -1 in case of error.
- */
-static VALUE
-rxml_reader_normalization(VALUE self)
-{
-  return INT2FIX(xmlTextReaderNormalization(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.read -> code
- *
- * Move the position of the current instance to the next node in the stream, 
- * exposing its properties.
- *
- * Return 1 if the node was read successfully, 0 if there is no more nodes to 
- * read, or -1 in case of error.
- */
-static VALUE
-rxml_reader_read(VALUE self)
-{
-  return INT2FIX(xmlTextReaderRead(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.read_attribute_value -> code
- *
- * Parse an attribute value into one or more Text and EntityReference nodes.
- *
- * Return 1 in case of success, 0 if the reader was not positionned on an 
- * attribute node or all the attribute values have been read, or -1 in case of 
- * error.
- */
-static VALUE
-rxml_reader_read_attr_value(VALUE self)
-{
-  return INT2FIX(xmlTextReaderReadAttributeValue(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.read_inner_xml -> data
- *
- * Read the contents of the current node, including child nodes and markup.
- *
- * Return a string containing the XML content, or nil if the current node is 
- * neither an element nor attribute, or has no child nodes. 
- */
-static VALUE
-rxml_reader_read_inner_xml(VALUE self)
-{
-  return CSTR2RVAL2(xmlTextReaderReadInnerXml(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.read_outer_xml -> data
- *
- * Read the contents of the current node, including child nodes and markup.
- *
- * Return a string containing the XML content, or nil if the current node is 
- * neither an element nor attribute, or has no child nodes. 
- */
-static VALUE
-rxml_reader_read_outer_xml(VALUE self)
-{
-  return CSTR2RVAL2(xmlTextReaderReadOuterXml(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.read_state -> state
- *
- * Get the read state of the reader.
- */
-static VALUE
-rxml_reader_read_state(VALUE self)
-{
-  return INT2FIX(xmlTextReaderReadState(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.read_string -> string
- *
- * Read the contents of an element or a text node as a string.
- *
- * Return a string containing the contents of the Element or Text node, or nil 
- * if the reader is positioned on any other type of node.
- */
-static VALUE
-rxml_reader_read_string(VALUE self)
-{
-  return CSTR2RVAL2(xmlTextReaderReadString(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.relax_ng_validate(rng) -> code
- *
- * Use RelaxNG to validate the document as it is processed. Activation is only 
- * possible before the first read. If +rng+ is nil, the RelaxNG validation is
- * desactivated.
- *
- * Return 0 in case the RelaxNG validation could be (des)activated and -1 in 
- * case of error.
- */ 
-static VALUE
-rxml_reader_relax_ng_validate(VALUE self, VALUE rng)
-{
-  return INT2FIX(xmlTextReaderRelaxNGValidate(rxml_text_reader_get(self), NIL_P(rng) ? NULL : RVAL2CSTR(rng)));
-}
-
-#if LIBXML_VERSION >= 20620
-/*
- * call-seq:
- *    reader.schema_validate(schema) -> code
- * 
- * Use W3C XSD schema to validate the document as it is processed. Activation 
- * is only possible before the first read. If +schema+ is nil, then XML Schema
- * validation is desactivated.
- *
- * Return 0 in case the schemas validation could be (de)activated and -1 in 
- * case of error.
- */
-static VALUE
-rxml_reader_schema_validate(VALUE self, VALUE xsd)
-{
-  return INT2FIX(xmlTextReaderSchemaValidate(rxml_text_reader_get(self), NIL_P(xsd) ? NULL : RVAL2CSTR(xsd)));
-}
-#endif
-
-/* 
- * call-seq:
- *    reader.name -> name
- *
- * Return the qualified name of the node.
- */
-static VALUE
-rxml_reader_name(VALUE self)
-{
-  return CSTR2RVAL(xmlTextReaderConstName(rxml_text_reader_get(self)));
-}
-
-/* 
- * call-seq:
- *    reader.local_name -> name
- *
- * Return the local name of the node.
- */
-static VALUE
-rxml_reader_local_name(VALUE self)
-{
-  return CSTR2RVAL(xmlTextReaderConstLocalName(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.attribute_count -> count
- *
- * Provide the number of attributes of the current node.
- */
-static VALUE
-rxml_reader_attr_count(VALUE self)
-{
-  return INT2FIX(xmlTextReaderAttributeCount(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.encoding -> encoding
- *
- * Determine the encoding of the document being read.
- */
-static VALUE
-rxml_reader_encoding(VALUE self)
-{
-  return CSTR2RVAL(xmlTextReaderConstEncoding(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.base_uri -> URI
- *
- * Determine the base URI of the node.
- */
-static VALUE
-rxml_reader_base_uri(VALUE self)
-{
-  return CSTR2RVAL(xmlTextReaderConstBaseUri(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.namespace_uri -> URI
- *
- * Determine the namespace URI of the node.
- */
-static VALUE
-rxml_reader_namespace_uri(VALUE self)
-{
-  return CSTR2RVAL(xmlTextReaderConstNamespaceUri(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.value -> text
- *
- * Provide the text value of the node if present.
- */
-static VALUE
-rxml_reader_value(VALUE self)
-{
-  return CSTR2RVAL(xmlTextReaderConstValue(rxml_text_reader_get(self)));
-}
-
-/* 
- * call-seq:
- *    reader.prefix -> prefix
- *
- * Get a shorthand reference to the namespace associated with the node.
- */
-static VALUE
-rxml_reader_prefix(VALUE self)
-{
-  return CSTR2RVAL(xmlTextReaderConstPrefix(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.depth -> depth
- *
- * Get the depth of the node in the tree.
- */
-static VALUE
-rxml_reader_depth(VALUE self)
-{
-  return INT2FIX(xmlTextReaderDepth(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.quote_char -> char
- *
- * Get the quotation mark character used to enclose the value of an attribute,
- * as an integer value (and -1 in case of error).
- */
-static VALUE
-rxml_reader_quote_char(VALUE self)
-{
-  return INT2FIX(xmlTextReaderQuoteChar(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.standalone -> code
- *
- * Determine the standalone status of the document being read.
- *
- * Return 1 if the document was declared to be standalone, 0 if it was 
- * declared to be not standalone, or -1 if the document did not specify its 
- * standalone status or in case of error.
- */
-static VALUE
-rxml_reader_standalone(VALUE self)
-{
-  return INT2FIX(xmlTextReaderStandalone(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.xml_lang -> value
- *
- * Get the xml:lang scope within which the node resides.
- */
-static VALUE
-rxml_reader_xml_lang(VALUE self)
-{
-  return CSTR2RVAL(xmlTextReaderConstXmlLang(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.xml_version -> version
- *
- * Determine the XML version of the document being read.
- */
-static VALUE
-rxml_reader_xml_version(VALUE self)
-{
-  return CSTR2RVAL(xmlTextReaderConstXmlVersion(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.has_attributes? -> bool
- *
- * Get whether the node has attributes.
- */
-static VALUE
-rxml_reader_has_attributes(VALUE self)
-{
-  return xmlTextReaderHasAttributes(rxml_text_reader_get(self)) ? Qtrue : Qfalse;
-}
-
-/*
- * call-seq:
- *    reader.has_value? -> bool
- *
- * Get whether the node can have a text value.
- */
-static VALUE
-rxml_reader_has_value(VALUE self)
-{
-  return xmlTextReaderHasValue(rxml_text_reader_get(self)) ? Qtrue : Qfalse;
-}
-
-/*
- * call-seq:
- *    reader[key] -> value
- *
- * Provide the value of the attribute with the specified index (if +key+ is an 
- * integer) or with the specified name (if +key+ is a string) relative to the 
- * containing element, as a string.
- */
-static VALUE
-rxml_reader_attribute(VALUE self, VALUE key)
-{
-  xmlTextReaderPtr reader;
-  xmlChar *attr;
-
-  reader = rxml_text_reader_get(self);
-
-  if (TYPE(key) == T_FIXNUM) {
-    attr = xmlTextReaderGetAttributeNo(reader, FIX2INT(key));
-  }
-  else {
-    attr = xmlTextReaderGetAttribute(reader, (const xmlChar *)RVAL2CSTR(key));
-  }
-  return CSTR2RVAL2(attr);
-}
-
-/*
- * call-seq:
- *    reader.lookup_namespace(prefix) -> value
- *
- * Resolve a namespace prefix in the scope of the current element.
- * To return the default namespace, specify nil as +prefix+.
- */
-static VALUE
-rxml_reader_lookup_namespace(VALUE self, VALUE prefix)
-{
-  return CSTR2RVAL2(xmlTextReaderLookupNamespace(rxml_text_reader_get(self), (const xmlChar *)RVAL2CSTR(prefix)));
-}
-
-/*
- * call-seq:
- *    reader.expand -> node
- *
- * Read the contents of the current node and the full subtree. It then makes 
- * the subtree available until the next read call.
- *
- * Return an XML::Node object, or nil in case of error.
- */
-static VALUE
-rxml_reader_expand(VALUE self)
-{
-  xmlNodePtr node;
-  xmlDocPtr doc;
-  xmlTextReaderPtr reader = rxml_text_reader_get(self);
-  node = xmlTextReaderExpand(reader);
-  
-  if (!node)
-    return Qnil;
-    
-  /* Okay this is tricky.  By accessing the returned node, we
-     take ownership of the reader's document.  Thus we need to
-     tell the reader to not free it.  Otherwise it will be
-     freed twice - once when the Ruby document wrapper goes
-     out of scope and once when the reader goes out of scope. */
-
-  xmlTextReaderPreserve(reader);
-  doc = xmlTextReaderCurrentDoc(reader);
-  rxml_document_wrap(doc);
-
-  return rxml_node2_wrap(cXMLNode, node);
-}
-
-#if LIBXML_VERSION >= 20618
-/*
- * call-seq:
- *    reader.byte_consumed -> value
- *
- * This method provides the current index of the parser used by the reader, 
- * relative to the start of the current entity. 
- */
-static VALUE
-rxml_reader_byte_consumed(VALUE self)
-{
-  return INT2NUM(xmlTextReaderByteConsumed(rxml_text_reader_get(self)));
-}
-#endif
-
-#if LIBXML_VERSION >= 20617
-/*
- * call-seq:
- *    reader.column_number -> number
- *
- * Provide the column number of the current parsing point.
- */
-static VALUE
-rxml_reader_column_number(VALUE self)
-{
-  return INT2NUM(xmlTextReaderGetParserColumnNumber(rxml_text_reader_get(self)));
-}
-
-/*
- * call-seq:
- *    reader.line_number -> number
- *
- * Provide the line number of the current parsing point.
- */
-static VALUE
-rxml_reader_line_number(VALUE self)
-{
-  return INT2NUM(xmlTextReaderGetParserLineNumber(rxml_text_reader_get(self)));
-}
-#endif
-
-/*
- * call-seq:
- *    reader.default? -> bool
- *
- * Return whether an Attribute node was generated from the default value 
- * defined in the DTD or schema.
- */
-static VALUE
-rxml_reader_default(VALUE self)
-{
-  return xmlTextReaderIsDefault(rxml_text_reader_get(self)) ? Qtrue : Qfalse;
-}
-
-/*
- * call-seq:
- *    reader.namespace_declaration? -> bool
- *
- * Determine whether the current node is a namespace declaration rather than a 
- * regular attribute.
- */
-static VALUE
-rxml_reader_namespace_declaration(VALUE self)
-{
-  return xmlTextReaderIsNamespaceDecl(rxml_text_reader_get(self)) ? Qtrue : Qfalse;
-}
-
-/*
- * call-seq:
- *    reader.empty_element? -> bool
- *
- * Check if the current node is empty.
- */
-static VALUE
-rxml_reader_empty_element(VALUE self)
-{
-  return xmlTextReaderIsEmptyElement(rxml_text_reader_get(self)) ? Qtrue : Qfalse;
-}
-
-/*
- * call-seq:
- *    reader.valid? -> bool
- *
- * Retrieve the validity status from the parser context.
- */
-static VALUE
-rxml_reader_valid(VALUE self)
-{
-  return xmlTextReaderIsValid(rxml_text_reader_get(self)) ? Qtrue : Qfalse;
-}
-
-/* Rdoc needs to know. */ 
-#ifdef RDOC_NEVER_DEFINED
-  mLibXML = rb_define_module("LibXML");
-  mXML = rb_define_module_under(mLibXML, "XML");
-#endif
-
-void
-ruby_init_xml_reader(void)
-{
-  cXMLReader = rb_define_class_under(mXML, "Reader", rb_cObject);
- 
-  rb_define_singleton_method(cXMLReader, "file", rxml_reader_new_file, -1);
-  rb_define_singleton_method(cXMLReader, "io", rxml_reader_new_io, -1);
-  rb_define_singleton_method(cXMLReader, "walker", rxml_reader_new_walker, 1);
-  rb_define_alias(CLASS_OF(cXMLReader), "document", "walker");
-  rb_define_singleton_method(cXMLReader, "new", rxml_reader_new_data, -1);
-  rb_define_alias(CLASS_OF(cXMLReader), "string", "new");
-
-  rb_define_method(cXMLReader, "close", rxml_reader_close, 0);
-
-  rb_define_method(cXMLReader, "move_to_attribute", rxml_reader_move_to_attr, 1);
-  rb_define_method(cXMLReader, "move_to_first_attribute", rxml_reader_move_to_first_attr, 0);
-  rb_define_method(cXMLReader, "move_to_next_attribute", rxml_reader_move_to_next_attr, 0);
-  rb_define_method(cXMLReader, "move_to_element", rxml_reader_move_to_element, 0);
-  rb_define_method(cXMLReader, "next", rxml_reader_next, 0);
-  rb_define_method(cXMLReader, "next_sibling", rxml_reader_next_sibling, 0);
-  rb_define_method(cXMLReader, "read", rxml_reader_read, 0);
-  rb_define_method(cXMLReader, "read_attribute_value", rxml_reader_read_attr_value, 0);
-  rb_define_method(cXMLReader, "read_inner_xml", rxml_reader_read_inner_xml, 0);
-  rb_define_method(cXMLReader, "read_outer_xml", rxml_reader_read_outer_xml, 0);
-  rb_define_method(cXMLReader, "read_state", rxml_reader_read_state, 0);
-  rb_define_method(cXMLReader, "read_string", rxml_reader_read_string, 0);
-
-  rb_define_method(cXMLReader, "relax_ng_validate", rxml_reader_relax_ng_validate, 1);
-#if LIBXML_VERSION >= 20620
-  rb_define_method(cXMLReader, "schema_validate", rxml_reader_schema_validate, 1);
-#endif
-  
-  rb_define_method(cXMLReader, "node_type", rxml_reader_node_type, 0);
-  rb_define_method(cXMLReader, "normalization", rxml_reader_normalization, 0);
-  rb_define_method(cXMLReader, "attribute_count", rxml_reader_attr_count, 0);
-  rb_define_method(cXMLReader, "name", rxml_reader_name, 0);
-  rb_define_method(cXMLReader, "local_name", rxml_reader_local_name, 0);
-  rb_define_method(cXMLReader, "encoding", rxml_reader_encoding, 0);
-  rb_define_method(cXMLReader, "base_uri", rxml_reader_base_uri, 0);
-  rb_define_method(cXMLReader, "namespace_uri", rxml_reader_namespace_uri, 0);
-  rb_define_method(cXMLReader, "xml_lang", rxml_reader_xml_lang, 0);
-  rb_define_method(cXMLReader, "xml_version", rxml_reader_xml_version, 0);
-  rb_define_method(cXMLReader, "prefix", rxml_reader_prefix, 0);
-  rb_define_method(cXMLReader, "depth", rxml_reader_depth, 0);
-  rb_define_method(cXMLReader, "quote_char", rxml_reader_quote_char, 0); 
-  rb_define_method(cXMLReader, "standalone", rxml_reader_standalone, 0);
-  
-  rb_define_method(cXMLReader, "has_attributes?", rxml_reader_has_attributes, 0);
-  rb_define_method(cXMLReader, "[]", rxml_reader_attribute, 1);
-  rb_define_method(cXMLReader, "has_value?", rxml_reader_has_value, 0);
-  rb_define_method(cXMLReader, "value", rxml_reader_value, 0);
-
-  rb_define_method(cXMLReader, "lookup_namespace", rxml_reader_lookup_namespace, 1);
-  rb_define_method(cXMLReader, "expand", rxml_reader_expand, 0);
-
-#if LIBXML_VERSION >= 20618
-  rb_define_method(cXMLReader, "byte_consumed", rxml_reader_byte_consumed, 0);
-#endif
-#if LIBXML_VERSION >= 20617
-  rb_define_method(cXMLReader, "column_number", rxml_reader_column_number, 0);
-  rb_define_method(cXMLReader, "line_number", rxml_reader_line_number, 0);
-#endif
-  rb_define_method(cXMLReader, "default?", rxml_reader_default, 0);
-  rb_define_method(cXMLReader, "empty_element?", rxml_reader_empty_element, 0);
-  rb_define_method(cXMLReader, "namespace_declaration?", rxml_reader_namespace_declaration, 0);
-  rb_define_method(cXMLReader, "valid?", rxml_reader_valid, 0);
-
-  rb_define_const(cXMLReader, "LOADDTD", INT2FIX(XML_PARSER_LOADDTD));
-  rb_define_const(cXMLReader, "DEFAULTATTRS", INT2FIX(XML_PARSER_DEFAULTATTRS));
-  rb_define_const(cXMLReader, "VALIDATE", INT2FIX(XML_PARSER_VALIDATE));
-  rb_define_const(cXMLReader, "SUBST_ENTITIES", INT2FIX(XML_PARSER_SUBST_ENTITIES));
-
-  rb_define_const(cXMLReader, "SEVERITY_VALIDITY_WARNING", INT2FIX(XML_PARSER_SEVERITY_VALIDITY_WARNING));
-  rb_define_const(cXMLReader, "SEVERITY_VALIDITY_ERROR", INT2FIX(XML_PARSER_SEVERITY_VALIDITY_ERROR));
-  rb_define_const(cXMLReader, "SEVERITY_WARNING", INT2FIX(XML_PARSER_SEVERITY_WARNING));
-  rb_define_const(cXMLReader, "SEVERITY_ERROR", INT2FIX(XML_PARSER_SEVERITY_ERROR));
-
-  rb_define_const(cXMLReader, "TYPE_NONE", INT2FIX(XML_READER_TYPE_NONE));
-  rb_define_const(cXMLReader, "TYPE_ELEMENT", INT2FIX(XML_READER_TYPE_ELEMENT));
-  rb_define_const(cXMLReader, "TYPE_ATTRIBUTE", INT2FIX(XML_READER_TYPE_ATTRIBUTE));
-  rb_define_const(cXMLReader, "TYPE_TEXT", INT2FIX(XML_READER_TYPE_TEXT));
-  rb_define_const(cXMLReader, "TYPE_CDATA", INT2FIX(XML_READER_TYPE_CDATA));
-  rb_define_const(cXMLReader, "TYPE_ENTITY_REFERENCE", INT2FIX(XML_READER_TYPE_ENTITY_REFERENCE));
-  rb_define_const(cXMLReader, "TYPE_ENTITY", INT2FIX(XML_READER_TYPE_ENTITY));
-  rb_define_const(cXMLReader, "TYPE_PROCESSING_INSTRUCTION", INT2FIX(XML_READER_TYPE_PROCESSING_INSTRUCTION));
-  rb_define_const(cXMLReader, "TYPE_COMMENT", INT2FIX(XML_READER_TYPE_COMMENT));
-  rb_define_const(cXMLReader, "TYPE_DOCUMENT", INT2FIX(XML_READER_TYPE_DOCUMENT));
-  rb_define_const(cXMLReader, "TYPE_DOCUMENT_TYPE", INT2FIX(XML_READER_TYPE_DOCUMENT_TYPE));
-  rb_define_const(cXMLReader, "TYPE_DOCUMENT_FRAGMENT", INT2FIX(XML_READER_TYPE_DOCUMENT_FRAGMENT));
-  rb_define_const(cXMLReader, "TYPE_NOTATION", INT2FIX(XML_READER_TYPE_NOTATION));
-  rb_define_const(cXMLReader, "TYPE_WHITESPACE", INT2FIX(XML_READER_TYPE_WHITESPACE));
-  rb_define_const(cXMLReader, "TYPE_SIGNIFICANT_WHITESPACE", INT2FIX(XML_READER_TYPE_SIGNIFICANT_WHITESPACE));
-  rb_define_const(cXMLReader, "TYPE_END_ELEMENT", INT2FIX(XML_READER_TYPE_END_ELEMENT));
-  rb_define_const(cXMLReader, "TYPE_END_ENTITY", INT2FIX(XML_READER_TYPE_END_ENTITY));
-  rb_define_const(cXMLReader, "TYPE_XML_DECLARATION", INT2FIX(XML_READER_TYPE_XML_DECLARATION));
-
-  /* Read states */
-  rb_define_const(cXMLReader, "MODE_INITIAL", INT2FIX(XML_TEXTREADER_MODE_INITIAL));
-  rb_define_const(cXMLReader, "MODE_INTERACTIVE", INT2FIX(XML_TEXTREADER_MODE_INTERACTIVE));
-  rb_define_const(cXMLReader, "MODE_ERROR", INT2FIX(XML_TEXTREADER_MODE_ERROR));
-  rb_define_const(cXMLReader, "MODE_EOF", INT2FIX(XML_TEXTREADER_MODE_EOF));
-  rb_define_const(cXMLReader, "MODE_CLOSED", INT2FIX(XML_TEXTREADER_MODE_CLOSED));
-  rb_define_const(cXMLReader, "MODE_READING", INT2FIX(XML_TEXTREADER_MODE_READING));
-}
+/* Copyright (c) 2006-2007 Apple Inc.
+ * Please see the LICENSE file for copyright and distribution information. */
+
+#include "ruby_libxml.h"
+#include "ruby_xml_reader.h"
+
+VALUE cXMLReader;
+
+/*
+ * Document-class: LibXML::XML::Reader
+ *
+ * The XML::Reader class provides a simpler, alternative way of parsing an XML
+ * document in contrast to XML::Parser or XML::SaxParser.  A XML::Reader instance
+ * acts like a cursor going forward in a document stream, stopping at each node 
+ * it encounters.  To advance to the next node, simply cadd XML::Reader#read.
+ * 
+ * The XML::Reader API closely matches the DOM Core specification and supports
+ * namespaces, xml:base, entity handling and DTDs.  
+ *
+ * To summarize, XML::Reader provides a far simpler API to use versus XML::SaxParser
+ * and is more memory efficient than using XML::Parser to create a DOM tree.
+ *
+ * Example:
+ *
+ *  parser = XML::Reader.new("<foo><bar>1</bar><bar>2</bar><bar>3</bar></foo>")
+ *  parser.read
+ *  assert_equal('foo', parser.name)
+ *  assert_equal(nil, parser.value)
+ *  
+ *  3.times do |i|
+ *    parser.read
+ *    assert_equal(XML::Reader::TYPE_ELEMENT, parser.node_type)
+ *    assert_equal('bar', parser.name)
+ *    parser.read
+ *    assert_equal(XML::Reader::TYPE_TEXT, parser.node_type)
+ *    assert_equal((i + 1).to_s, parser.value)
+ *    parser.read
+ *    assert_equal(XML::Reader::TYPE_END_ELEMENT, parser.node_type)
+ *  end
+ *
+ * For a more in depth tutorial, albeit in C, see http://xmlsoft.org/xmlreader.html.*/
+
+
+static VALUE
+rxml_reader_new(VALUE class, xmlTextReaderPtr reader)
+{
+  return Data_Wrap_Struct(class, NULL, xmlFreeTextReader, reader);
+}
+
+static xmlTextReaderPtr
+rxml_text_reader_get(VALUE obj)
+{
+  xmlTextReaderPtr xreader;
+  Data_Get_Struct(obj, xmlTextReader, xreader);
+  return xreader;
+}
+
+/*
+ * call-seq:
+ *    XML::Reader.file(path, encoding=nil, options=0) -> reader
+ *
+ * Parse an XML file from the filesystem or the network. The parsing flags 
+ * options are a combination of xmlParserOption. 
+ */
+static VALUE
+rxml_reader_new_file(int argc, VALUE *argv, VALUE self)
+{
+  xmlTextReaderPtr xreader;
+  VALUE rpath, rencoding, roptions;
+  char *xpath;
+  char *xencoding;
+  int options;
+
+  rb_scan_args(argc, argv, "12", &rpath, &rencoding, &roptions);
+
+  xpath = NIL_P(rpath) ? NULL : StringValueCStr(rpath);
+  xencoding = NIL_P(rencoding) ? NULL : StringValueCStr(rencoding);
+  options = NIL_P(roptions) ? 0 : FIX2INT(roptions);
+
+  xreader = xmlReaderForFile(xpath, xencoding, options);
+
+  if (xreader == NULL)
+    rxml_raise(&xmlLastError);
+
+  return rxml_reader_new(self, xreader); 
+}
+
+/*
+ * call-seq:
+ *    XML::Reader.io(io, url=nil, encoding=nil, options=0) -> reader
+ *
+ * Parse an XML file from a file handle. The parsing flags options are
+ * a combination of xmlParserOption. 
+ */
+static VALUE
+rxml_reader_new_io(int argc, VALUE *argv, VALUE self)
+{
+  xmlTextReaderPtr xreader;
+  VALUE rio, rurl, rencoding, roptions;
+  char *xurl;
+  char *xencoding;
+  int options;
+
+  rb_scan_args(argc, argv, "13", &rio, &rurl, &rencoding, &roptions);
+
+  xurl = NIL_P(rurl) ? NULL : StringValueCStr(rurl);
+  xencoding = NIL_P(rencoding) ? NULL : StringValueCStr(rencoding);
+  options = NIL_P(roptions) ? 0 : FIX2INT(roptions);
+
+  xreader = xmlReaderForIO((xmlInputReadCallback) rxml_read_callback, NULL,
+                           (void *)rio,
+                           xurl, xencoding, options);
+
+  if (xreader == NULL)
+    rxml_raise(&xmlLastError);
+
+  return rxml_reader_new(self, xreader); 
+}
+
+/*
+ * call-seq:
+ *    XML::Reader.walker(doc) -> reader
+ *    XML::Reader.document(doc) -> reader
+ *
+ * Create an XML text reader for a preparsed document.
+ */
+VALUE
+rxml_reader_new_walker(VALUE self, VALUE doc)
+{
+  xmlDocPtr xdoc;
+  xmlTextReaderPtr xreader;
+  
+  Data_Get_Struct(doc, xmlDoc, xdoc);
+ 
+  xreader = xmlReaderWalker(xdoc);  
+
+  if (xreader == NULL)
+    rxml_raise(&xmlLastError);
+
+  return rxml_reader_new(self, xreader); 
+}
+
+/*
+ * call-seq:
+ *    XML::Reader.new(data, url=nil, encoding=nil, options=0) -> reader
+ *    XML::Reader.string(data, url=nil, encoding=nil, options=0) -> reader
+ *
+ * Create an XML text reader for an XML in-memory document. The parsing flags
+ * options are a combination of xmlParserOption.
+ */
+static VALUE
+rxml_reader_new_data(int argc, VALUE *argv, VALUE self)
+{
+  xmlTextReaderPtr xreader;
+  VALUE rdata, rurl, rencoding, roptions;
+  char *xdata;
+  char *xurl;
+  char *xencoding;
+  int options;
+
+  rb_scan_args(argc, argv, "13", &rdata, &rurl, &rencoding, &roptions);
+
+  xdata = NIL_P(rdata) ? NULL : StringValueCStr(rdata);
+  xurl = NIL_P(rurl) ? NULL : StringValueCStr(rurl);
+  xencoding = NIL_P(rencoding) ? NULL : StringValueCStr(rencoding);
+  options = NIL_P(roptions) ? 0 : FIX2INT(roptions);
+
+  xreader = xmlReaderForMemory(xdata, strlen(xdata), 
+                              xurl, xencoding, options);
+
+  if (xreader == NULL)
+    rxml_raise(&xmlLastError);
+
+  return rxml_reader_new(self, xreader); 
+}
+
+/*
+ * call-seq:
+ *    parser.close -> code
+ *
+ * This method releases any resources allocated by the current instance 
+ * changes the state to Closed and close any underlying input.
+ */
+static VALUE
+rxml_reader_close(VALUE self)
+{
+  return INT2FIX(xmlTextReaderClose(rxml_text_reader_get(self)));
+}
+
+/*
+ * call-seq:
+ *   parser.move_to_attribute(val) -> code
+ *
+ * Move the position of the current instance to the attribute with the 
+ * specified index (if +val+ is an integer) or name (if +val+ is a string) 
+ * relative to the containing element.
+ */
+static VALUE
+rxml_reader_move_to_attr(VALUE self, VALUE val)
+{
+  xmlTextReaderPtr xreader;
+  int ret;
+
+  xreader = rxml_text_reader_get(self);
+
+  if (TYPE(val) == T_FIXNUM) {
+    ret = xmlTextReaderMoveToAttributeNo(xreader, FIX2INT(val));
+  }
+  else {
+    ret = xmlTextReaderMoveToAttribute(xreader, (const xmlChar *)StringValueCStr(val));
+  }
+
+  return INT2FIX(ret);
+}
+
+/*
+ * call-seq:
+ *    reader.move_to_first_attribute -> code
+ *
+ * Move the position of the current instance to the first attribute associated
+ * with the current node.
+ */
+static VALUE
+rxml_reader_move_to_first_attr(VALUE self)
+{
+  return INT2FIX(xmlTextReaderMoveToFirstAttribute(rxml_text_reader_get(self)));
+}
+
+/*
+ * call-seq:
+ *    reader.move_to_next_attribute -> code
+ *
+ * Move the position of the current instance to the next attribute associated 
+ * with the current node.
+ */
+static VALUE
+rxml_reader_move_to_next_attr(VALUE self)
+{
+  return INT2FIX(xmlTextReaderMoveToNextAttribute(rxml_text_reader_get(self)));
+}
+
+/*
+ * call-seq:
+ *    reader.move_to_element -> code
+ *
+ * Move the position of the current instance to the node that contains the 
+ * current attribute node.
+ */
+static VALUE
+rxml_reader_move_to_element(VALUE self)
+{
+  return INT2FIX(xmlTextReaderMoveToElement(rxml_text_reader_get(self)));
+}
+
+/*
+ * call-seq:
+ *    reader.next -> code
+ *
+ * Skip to the node following the current one in document order while avoiding 
+ * the subtree if any.
+ */
+static VALUE
+rxml_reader_next(VALUE self)
+{
+  return INT2FIX(xmlTextReaderNext(rxml_text_reader_get(self)));
+}
+
+/*
+ * call-seq:
+ *    reader.next_sibling -> code
+ *
+ * Skip to the node following the current one in document order while avoiding 
+ * the subtree if any. Currently implemented only for Readers built on a 
+ * document.
+ */
+static VALUE
+rxml_reader_next_sibling(VALUE self)
+{
+  return INT2FIX(xmlTextReaderNextSibling(rxml_text_reader_get(self)));
+}
+
+/*
+ * call-seq:
+ *    reader.node_type -> type
+ *
+ * Get the node type of the current node. Reference: 
+ * http://dotgnu.org/pnetlib-doc/System/Xml/XmlNodeType.html
+ */
+static VALUE
+rxml_reader_node_type(VALUE self)
+{
+  return INT2FIX(xmlTextReaderNodeType(rxml_text_reader_get(self)));
+}
+
+/*
+ * call-seq:
+ *    reader.normalization -> value
+ *
+ * The value indicating whether to normalize white space and attribute values. 
+ * Since attribute value and end of line normalizations are a MUST in the XML 
+ * specification only the value true is accepted. The broken bahaviour of 
+ * accepting out of range character entities like &#0; is of course not 
+ * supported either.
+ *
+ * Return 1 or -1 in case of error.
+ */
+static VALUE
+rxml_reader_normalization(VALUE self)
+{
+  return INT2FIX(xmlTextReaderNormalization(rxml_text_reader_get(self)));
+}
+
+/*
+ * call-seq:
+ *    reader.read -> code
+ *
+ * Move the position of the current instance to the next node in the stream, 
+ * exposing its properties.
+ *
+ * Return 1 if the node was read successfully, 0 if there is no more nodes to 
+ * read, or -1 in case of error.
+ */
+static VALUE
+rxml_reader_read(VALUE self)
+{
+  return INT2FIX(xmlTextReaderRead(rxml_text_reader_get(self)));
+}
+
+/*
+ * call-seq:
+ *    reader.read_attribute_value -> code
+ *
+ * Parse an attribute value into one or more Text and EntityReference nodes.
+ *
+ * Return 1 in case of success, 0 if the reader was not positionned on an 
+ * attribute node or all the attribute values have been read, or -1 in case of 
+ * error.
+ */
+static VALUE
+rxml_reader_read_attr_value(VALUE self)
+{
+  return INT2FIX(xmlTextReaderReadAttributeValue(rxml_text_reader_get(self)));
+}
+
+/*
+ * call-seq:
+ *    reader.read_inner_xml -> data
+ *
+ * Read the contents of the current node, including child nodes and markup.
+ *
+ * Return a string containing the XML content, or nil if the current node is 
+ * neither an element nor attribute, or has no child nodes. 
+ */
+static VALUE
+rxml_reader_read_inner_xml(VALUE self)
+{
+  const xmlChar *result = xmlTextReaderReadInnerXml(rxml_text_reader_get(self));
+  return (result == NULL ? Qnil : rb_str_new2(result));
+}
+
+/*
+ * call-seq:
+ *    reader.read_outer_xml -> data
+ *
+ * Read the contents of the current node, including child nodes and markup.
+ *
+ * Return a string containing the XML content, or nil if the current node is 
+ * neither an element nor attribute, or has no child nodes. 
+ */
+static VALUE
+rxml_reader_read_outer_xml(VALUE self)
+{
+  const xmlChar *result = xmlTextReaderReadOuterXml(rxml_text_reader_get(self));
+  return (result == NULL ? Qnil : rb_str_new2(result));
+}
+
+/*
+ * call-seq:
+ *    reader.read_state -> state
+ *
+ * Get the read state of the reader.
+ */
+static VALUE
+rxml_reader_read_state(VALUE self)
+{
+  return INT2FIX(xmlTextReaderReadState(rxml_text_reader_get(self)));
+}
+
+/*
+ * call-seq:
+ *    reader.read_string -> string
+ *
+ * Read the contents of an element or a text node as a string.
+ *
+ * Return a string containing the contents of the Element or Text node, or nil 
+ * if the reader is positioned on any other type of node.
+ */
+static VALUE
+rxml_reader_read_string(VALUE self)
+{
+  const xmlChar *result = xmlTextReaderReadString(rxml_text_reader_get(self));
+  return (result == NULL ? Qnil : rb_str_new2(result));
+}
+
+/*
+ * call-seq:
+ *    reader.relax_ng_validate(rng) -> code
+ *
+ * Use RelaxNG to validate the document as it is processed. Activation is only 
+ * possible before the first read. If +rng+ is nil, the RelaxNG validation is
+ * desactivated.
+ *
+ * Return 0 in case the RelaxNG validation could be (des)activated and -1 in 
+ * case of error.
+ */ 
+static VALUE
+rxml_reader_relax_ng_validate(VALUE self, VALUE rng)
+{
+  char *xrng = NIL_P(rng) ? NULL : StringValueCStr(rng);
+  return INT2FIX(xmlTextReaderRelaxNGValidate(rxml_text_reader_get(self), xrng));
+}
+
+#if LIBXML_VERSION >= 20620
+/*
+ * call-seq:
+ *    reader.schema_validate(schema) -> code
+ * 
+ * Use W3C XSD schema to validate the document as it is processed. Activation 
+ * is only possible before the first read. If +schema+ is nil, then XML Schema
+ * validation is desactivated.
+ *
+ * Return 0 in case the schemas validation could be (de)activated and -1 in 
+ * case of error.
+ */
+static VALUE
+rxml_reader_schema_validate(VALUE self, VALUE xsd)
+{
+    char *xxsd = NIL_P(xsd) ? NULL : StringValueCStr(xsd);
+    int status = xmlTextReaderSchemaValidate(rxml_text_reader_get(self), xxsd);
+    return INT2FIX(status);
+}
+#endif
+
+/* 
+ * call-seq:
+ *    reader.name -> name
+ *
+ * Return the qualified name of the node.
+ */
+static VALUE
+rxml_reader_name(VALUE self)
+{
+  const xmlChar *result = xmlTextReaderConstName(rxml_text_reader_get(self));
+  return (result == NULL ? Qnil : rb_str_new2(result));
+}
+
+/* 
+ * call-seq:
+ *    reader.local_name -> name
+ *
+ * Return the local name of the node.
+ */
+static VALUE
+rxml_reader_local_name(VALUE self)
+{
+  const xmlChar *result = xmlTextReaderConstLocalName(rxml_text_reader_get(self));
+  return (result == NULL ? Qnil : rb_str_new2(result));
+}
+
+/*
+ * call-seq:
+ *    reader.attribute_count -> count
+ *
+ * Provide the number of attributes of the current node.
+ */
+static VALUE
+rxml_reader_attr_count(VALUE self)
+{
+  return INT2FIX(xmlTextReaderAttributeCount(rxml_text_reader_get(self)));
+}
+
+/*
+ * call-seq:
+ *    reader.encoding -> encoding
+ *
+ * Determine the encoding of the document being read.
+ */
+static VALUE
+rxml_reader_encoding(VALUE self)
+{
+  const xmlChar *result = xmlTextReaderConstEncoding(rxml_text_reader_get(self));
+  return (result == NULL ? Qnil : rb_str_new2(result));
+}
+
+/*
+ * call-seq:
+ *    reader.base_uri -> URI
+ *
+ * Determine the base URI of the node.
+ */
+static VALUE
+rxml_reader_base_uri(VALUE self)
+{
+  const xmlChar *result = xmlTextReaderConstBaseUri(rxml_text_reader_get(self));
+  return (result == NULL ? Qnil : rb_str_new2(result));
+}
+
+/*
+ * call-seq:
+ *    reader.namespace_uri -> URI
+ *
+ * Determine the namespace URI of the node.
+ */
+static VALUE
+rxml_reader_namespace_uri(VALUE self)
+{
+  const xmlChar *result = xmlTextReaderConstNamespaceUri(rxml_text_reader_get(self));
+  return (result == NULL ? Qnil : rb_str_new2(result));
+}
+
+/*
+ * call-seq:
+ *    reader.value -> text
+ *
+ * Provide the text value of the node if present.
+ */
+static VALUE
+rxml_reader_value(VALUE self)
+{
+  const xmlChar *result = xmlTextReaderConstValue(rxml_text_reader_get(self));
+  return (result == NULL ? Qnil : rb_str_new2(result));
+}
+
+/* 
+ * call-seq:
+ *    reader.prefix -> prefix
+ *
+ * Get a shorthand reference to the namespace associated with the node.
+ */
+static VALUE
+rxml_reader_prefix(VALUE self)
+{
+  const xmlChar *result = xmlTextReaderConstPrefix(rxml_text_reader_get(self));
+  return (result == NULL ? Qnil : rb_str_new2(result));
+}
+
+/*
+ * call-seq:
+ *    reader.depth -> depth
+ *
+ * Get the depth of the node in the tree.
+ */
+static VALUE
+rxml_reader_depth(VALUE self)
+{
+  return INT2FIX(xmlTextReaderDepth(rxml_text_reader_get(self)));
+}
+
+/*
+ * call-seq:
+ *    reader.quote_char -> char
+ *
+ * Get the quotation mark character used to enclose the value of an attribute,
+ * as an integer value (and -1 in case of error).
+ */
+static VALUE
+rxml_reader_quote_char(VALUE self)
+{
+  return INT2FIX(xmlTextReaderQuoteChar(rxml_text_reader_get(self)));
+}
+
+/*
+ * call-seq:
+ *    reader.standalone -> code
+ *
+ * Determine the standalone status of the document being read.
+ *
+ * Return 1 if the document was declared to be standalone, 0 if it was 
+ * declared to be not standalone, or -1 if the document did not specify its 
+ * standalone status or in case of error.
+ */
+static VALUE
+rxml_reader_standalone(VALUE self)
+{
+  return INT2FIX(xmlTextReaderStandalone(rxml_text_reader_get(self)));
+}
+
+/*
+ * call-seq:
+ *    reader.xml_lang -> value
+ *
+ * Get the xml:lang scope within which the node resides.
+ */
+static VALUE
+rxml_reader_xml_lang(VALUE self)
+{
+  const xmlChar *result = xmlTextReaderConstXmlLang(rxml_text_reader_get(self));
+  return (result == NULL ? Qnil : rb_str_new2(result));
+}
+
+/*
+ * call-seq:
+ *    reader.xml_version -> version
+ *
+ * Determine the XML version of the document being read.
+ */
+static VALUE
+rxml_reader_xml_version(VALUE self)
+{
+  const xmlChar *result = xmlTextReaderConstXmlVersion(rxml_text_reader_get(self));
+  return (result == NULL ? Qnil : rb_str_new2(result));
+}
+
+/*
+ * call-seq:
+ *    reader.has_attributes? -> bool
+ *
+ * Get whether the node has attributes.
+ */
+static VALUE
+rxml_reader_has_attributes(VALUE self)
+{
+  return xmlTextReaderHasAttributes(rxml_text_reader_get(self)) ? Qtrue : Qfalse;
+}
+
+/*
+ * call-seq:
+ *    reader.has_value? -> bool
+ *
+ * Get whether the node can have a text value.
+ */
+static VALUE
+rxml_reader_has_value(VALUE self)
+{
+  return xmlTextReaderHasValue(rxml_text_reader_get(self)) ? Qtrue : Qfalse;
+}
+
+/*
+ * call-seq:
+ *    reader[key] -> value
+ *
+ * Provide the value of the attribute with the specified index (if +key+ is an 
+ * integer) or with the specified name (if +key+ is a string) relative to the 
+ * containing element, as a string.
+ */
+static VALUE
+rxml_reader_attribute(VALUE self, VALUE key)
+{
+  xmlTextReaderPtr reader;
+  xmlChar *attr;
+
+  reader = rxml_text_reader_get(self);
+
+  if (TYPE(key) == T_FIXNUM) {
+    attr = xmlTextReaderGetAttributeNo(reader, FIX2INT(key));
+  }
+  else {
+    attr = xmlTextReaderGetAttribute(reader, (const xmlChar *)StringValueCStr(key));
+  }
+  return (attr == NULL ? Qnil : rb_str_new2(attr));
+}
+
+/*
+ * call-seq:
+ *    reader.lookup_namespace(prefix) -> value
+ *
+ * Resolve a namespace prefix in the scope of the current element.
+ * To return the default namespace, specify nil as +prefix+.
+ */
+static VALUE
+rxml_reader_lookup_namespace(VALUE self, VALUE prefix)
+{
+  const xmlChar *result = xmlTextReaderLookupNamespace(rxml_text_reader_get(self), (const xmlChar *)StringValueCStr(prefix));
+  return (result == NULL ? Qnil : rb_str_new2(result));
+}
+
+/*
+ * call-seq:
+ *    reader.expand -> node
+ *
+ * Read the contents of the current node and the full subtree. It then makes 
+ * the subtree available until the next read call.
+ *
+ * Return an XML::Node object, or nil in case of error.
+ */
+static VALUE
+rxml_reader_expand(VALUE self)
+{
+  xmlNodePtr node;
+  xmlDocPtr doc;
+  xmlTextReaderPtr reader = rxml_text_reader_get(self);
+  node = xmlTextReaderExpand(reader);
+  
+  if (!node)
+    return Qnil;
+    
+  /* Okay this is tricky.  By accessing the returned node, we
+     take ownership of the reader's document.  Thus we need to
+     tell the reader to not free it.  Otherwise it will be
+     freed twice - once when the Ruby document wrapper goes
+     out of scope and once when the reader goes out of scope. */
+
+  xmlTextReaderPreserve(reader);
+  doc = xmlTextReaderCurrentDoc(reader);
+  rxml_document_wrap(doc);
+
+  return rxml_node2_wrap(cXMLNode, node);
+}
+
+#if LIBXML_VERSION >= 20618
+/*
+ * call-seq:
+ *    reader.byte_consumed -> value
+ *
+ * This method provides the current index of the parser used by the reader, 
+ * relative to the start of the current entity. 
+ */
+static VALUE
+rxml_reader_byte_consumed(VALUE self)
+{
+  return INT2NUM(xmlTextReaderByteConsumed(rxml_text_reader_get(self)));
+}
+#endif
+
+#if LIBXML_VERSION >= 20617
+/*
+ * call-seq:
+ *    reader.column_number -> number
+ *
+ * Provide the column number of the current parsing point.
+ */
+static VALUE
+rxml_reader_column_number(VALUE self)
+{
+  return INT2NUM(xmlTextReaderGetParserColumnNumber(rxml_text_reader_get(self)));
+}
+
+/*
+ * call-seq:
+ *    reader.line_number -> number
+ *
+ * Provide the line number of the current parsing point.
+ */
+static VALUE
+rxml_reader_line_number(VALUE self)
+{
+  return INT2NUM(xmlTextReaderGetParserLineNumber(rxml_text_reader_get(self)));
+}
+#endif
+
+/*
+ * call-seq:
+ *    reader.default? -> bool
+ *
+ * Return whether an Attribute node was generated from the default value 
+ * defined in the DTD or schema.
+ */
+static VALUE
+rxml_reader_default(VALUE self)
+{
+  return xmlTextReaderIsDefault(rxml_text_reader_get(self)) ? Qtrue : Qfalse;
+}
+
+/*
+ * call-seq:
+ *    reader.namespace_declaration? -> bool
+ *
+ * Determine whether the current node is a namespace declaration rather than a 
+ * regular attribute.
+ */
+static VALUE
+rxml_reader_namespace_declaration(VALUE self)
+{
+  return xmlTextReaderIsNamespaceDecl(rxml_text_reader_get(self)) ? Qtrue : Qfalse;
+}
+
+/*
+ * call-seq:
+ *    reader.empty_element? -> bool
+ *
+ * Check if the current node is empty.
+ */
+static VALUE
+rxml_reader_empty_element(VALUE self)
+{
+  return xmlTextReaderIsEmptyElement(rxml_text_reader_get(self)) ? Qtrue : Qfalse;
+}
+
+/*
+ * call-seq:
+ *    reader.valid? -> bool
+ *
+ * Retrieve the validity status from the parser context.
+ */
+static VALUE
+rxml_reader_valid(VALUE self)
+{
+  return xmlTextReaderIsValid(rxml_text_reader_get(self)) ? Qtrue : Qfalse;
+}
+
+/* Rdoc needs to know. */ 
+#ifdef RDOC_NEVER_DEFINED
+  mLibXML = rb_define_module("LibXML");
+  mXML = rb_define_module_under(mLibXML, "XML");
+#endif
+
+void
+ruby_init_xml_reader(void)
+{
+  cXMLReader = rb_define_class_under(mXML, "Reader", rb_cObject);
+ 
+  rb_define_singleton_method(cXMLReader, "file", rxml_reader_new_file, -1);
+  rb_define_singleton_method(cXMLReader, "io", rxml_reader_new_io, -1);
+  rb_define_singleton_method(cXMLReader, "walker", rxml_reader_new_walker, 1);
+  rb_define_alias(CLASS_OF(cXMLReader), "document", "walker");
+  rb_define_singleton_method(cXMLReader, "new", rxml_reader_new_data, -1);
+  rb_define_alias(CLASS_OF(cXMLReader), "string", "new");
+
+  rb_define_method(cXMLReader, "close", rxml_reader_close, 0);
+
+  rb_define_method(cXMLReader, "move_to_attribute", rxml_reader_move_to_attr, 1);
+  rb_define_method(cXMLReader, "move_to_first_attribute", rxml_reader_move_to_first_attr, 0);
+  rb_define_method(cXMLReader, "move_to_next_attribute", rxml_reader_move_to_next_attr, 0);
+  rb_define_method(cXMLReader, "move_to_element", rxml_reader_move_to_element, 0);
+  rb_define_method(cXMLReader, "next", rxml_reader_next, 0);
+  rb_define_method(cXMLReader, "next_sibling", rxml_reader_next_sibling, 0);
+  rb_define_method(cXMLReader, "read", rxml_reader_read, 0);
+  rb_define_method(cXMLReader, "read_attribute_value", rxml_reader_read_attr_value, 0);
+  rb_define_method(cXMLReader, "read_inner_xml", rxml_reader_read_inner_xml, 0);
+  rb_define_method(cXMLReader, "read_outer_xml", rxml_reader_read_outer_xml, 0);
+  rb_define_method(cXMLReader, "read_state", rxml_reader_read_state, 0);
+  rb_define_method(cXMLReader, "read_string", rxml_reader_read_string, 0);
+
+  rb_define_method(cXMLReader, "relax_ng_validate", rxml_reader_relax_ng_validate, 1);
+#if LIBXML_VERSION >= 20620
+  rb_define_method(cXMLReader, "schema_validate", rxml_reader_schema_validate, 1);
+#endif
+  
+  rb_define_method(cXMLReader, "node_type", rxml_reader_node_type, 0);
+  rb_define_method(cXMLReader, "normalization", rxml_reader_normalization, 0);
+  rb_define_method(cXMLReader, "attribute_count", rxml_reader_attr_count, 0);
+  rb_define_method(cXMLReader, "name", rxml_reader_name, 0);
+  rb_define_method(cXMLReader, "local_name", rxml_reader_local_name, 0);
+  rb_define_method(cXMLReader, "encoding", rxml_reader_encoding, 0);
+  rb_define_method(cXMLReader, "base_uri", rxml_reader_base_uri, 0);
+  rb_define_method(cXMLReader, "namespace_uri", rxml_reader_namespace_uri, 0);
+  rb_define_method(cXMLReader, "xml_lang", rxml_reader_xml_lang, 0);
+  rb_define_method(cXMLReader, "xml_version", rxml_reader_xml_version, 0);
+  rb_define_method(cXMLReader, "prefix", rxml_reader_prefix, 0);
+  rb_define_method(cXMLReader, "depth", rxml_reader_depth, 0);
+  rb_define_method(cXMLReader, "quote_char", rxml_reader_quote_char, 0); 
+  rb_define_method(cXMLReader, "standalone", rxml_reader_standalone, 0);
+  
+  rb_define_method(cXMLReader, "has_attributes?", rxml_reader_has_attributes, 0);
+  rb_define_method(cXMLReader, "[]", rxml_reader_attribute, 1);
+  rb_define_method(cXMLReader, "has_value?", rxml_reader_has_value, 0);
+  rb_define_method(cXMLReader, "value", rxml_reader_value, 0);
+
+  rb_define_method(cXMLReader, "lookup_namespace", rxml_reader_lookup_namespace, 1);
+  rb_define_method(cXMLReader, "expand", rxml_reader_expand, 0);
+
+#if LIBXML_VERSION >= 20618
+  rb_define_method(cXMLReader, "byte_consumed", rxml_reader_byte_consumed, 0);
+#endif
+#if LIBXML_VERSION >= 20617
+  rb_define_method(cXMLReader, "column_number", rxml_reader_column_number, 0);
+  rb_define_method(cXMLReader, "line_number", rxml_reader_line_number, 0);
+#endif
+  rb_define_method(cXMLReader, "default?", rxml_reader_default, 0);
+  rb_define_method(cXMLReader, "empty_element?", rxml_reader_empty_element, 0);
+  rb_define_method(cXMLReader, "namespace_declaration?", rxml_reader_namespace_declaration, 0);
+  rb_define_method(cXMLReader, "valid?", rxml_reader_valid, 0);
+
+  rb_define_const(cXMLReader, "LOADDTD", INT2FIX(XML_PARSER_LOADDTD));
+  rb_define_const(cXMLReader, "DEFAULTATTRS", INT2FIX(XML_PARSER_DEFAULTATTRS));
+  rb_define_const(cXMLReader, "VALIDATE", INT2FIX(XML_PARSER_VALIDATE));
+  rb_define_const(cXMLReader, "SUBST_ENTITIES", INT2FIX(XML_PARSER_SUBST_ENTITIES));
+
+  rb_define_const(cXMLReader, "SEVERITY_VALIDITY_WARNING", INT2FIX(XML_PARSER_SEVERITY_VALIDITY_WARNING));
+  rb_define_const(cXMLReader, "SEVERITY_VALIDITY_ERROR", INT2FIX(XML_PARSER_SEVERITY_VALIDITY_ERROR));
+  rb_define_const(cXMLReader, "SEVERITY_WARNING", INT2FIX(XML_PARSER_SEVERITY_WARNING));
+  rb_define_const(cXMLReader, "SEVERITY_ERROR", INT2FIX(XML_PARSER_SEVERITY_ERROR));
+
+  rb_define_const(cXMLReader, "TYPE_NONE", INT2FIX(XML_READER_TYPE_NONE));
+  rb_define_const(cXMLReader, "TYPE_ELEMENT", INT2FIX(XML_READER_TYPE_ELEMENT));
+  rb_define_const(cXMLReader, "TYPE_ATTRIBUTE", INT2FIX(XML_READER_TYPE_ATTRIBUTE));
+  rb_define_const(cXMLReader, "TYPE_TEXT", INT2FIX(XML_READER_TYPE_TEXT));
+  rb_define_const(cXMLReader, "TYPE_CDATA", INT2FIX(XML_READER_TYPE_CDATA));
+  rb_define_const(cXMLReader, "TYPE_ENTITY_REFERENCE", INT2FIX(XML_READER_TYPE_ENTITY_REFERENCE));
+  rb_define_const(cXMLReader, "TYPE_ENTITY", INT2FIX(XML_READER_TYPE_ENTITY));
+  rb_define_const(cXMLReader, "TYPE_PROCESSING_INSTRUCTION", INT2FIX(XML_READER_TYPE_PROCESSING_INSTRUCTION));
+  rb_define_const(cXMLReader, "TYPE_COMMENT", INT2FIX(XML_READER_TYPE_COMMENT));
+  rb_define_const(cXMLReader, "TYPE_DOCUMENT", INT2FIX(XML_READER_TYPE_DOCUMENT));
+  rb_define_const(cXMLReader, "TYPE_DOCUMENT_TYPE", INT2FIX(XML_READER_TYPE_DOCUMENT_TYPE));
+  rb_define_const(cXMLReader, "TYPE_DOCUMENT_FRAGMENT", INT2FIX(XML_READER_TYPE_DOCUMENT_FRAGMENT));
+  rb_define_const(cXMLReader, "TYPE_NOTATION", INT2FIX(XML_READER_TYPE_NOTATION));
+  rb_define_const(cXMLReader, "TYPE_WHITESPACE", INT2FIX(XML_READER_TYPE_WHITESPACE));
+  rb_define_const(cXMLReader, "TYPE_SIGNIFICANT_WHITESPACE", INT2FIX(XML_READER_TYPE_SIGNIFICANT_WHITESPACE));
+  rb_define_const(cXMLReader, "TYPE_END_ELEMENT", INT2FIX(XML_READER_TYPE_END_ELEMENT));
+  rb_define_const(cXMLReader, "TYPE_END_ENTITY", INT2FIX(XML_READER_TYPE_END_ENTITY));
+  rb_define_const(cXMLReader, "TYPE_XML_DECLARATION", INT2FIX(XML_READER_TYPE_XML_DECLARATION));
+
+  /* Read states */
+  rb_define_const(cXMLReader, "MODE_INITIAL", INT2FIX(XML_TEXTREADER_MODE_INITIAL));
+  rb_define_const(cXMLReader, "MODE_INTERACTIVE", INT2FIX(XML_TEXTREADER_MODE_INTERACTIVE));
+  rb_define_const(cXMLReader, "MODE_ERROR", INT2FIX(XML_TEXTREADER_MODE_ERROR));
+  rb_define_const(cXMLReader, "MODE_EOF", INT2FIX(XML_TEXTREADER_MODE_EOF));
+  rb_define_const(cXMLReader, "MODE_CLOSED", INT2FIX(XML_TEXTREADER_MODE_CLOSED));
+  rb_define_const(cXMLReader, "MODE_READING", INT2FIX(XML_TEXTREADER_MODE_READING));
+}