libxml-ruby 0.8.1 → 0.8.2

data/ext/libxml/ruby_xml_reader.c

@@ -23,6 +23,11 @@ __rb_str_new_and_free(xmlChar *x)
 VALUE cXMLReader;
 static ID error_handler_block_ivar_id;
 
+static int
+ctxtRead(FILE *f, char * buf, size_t len) {
+    return(fread(buf, 1, len, f));
+}
+
 static VALUE
 ruby_xml_reader_new(VALUE class, xmlTextReaderPtr reader)
 {
@@ -63,6 +68,44 @@ ruby_xml_reader_new_file(int argc, VALUE *argv, VALUE self)
   return ruby_xml_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
+ruby_xml_reader_new_io(int argc, VALUE *argv, VALUE self)
+{
+  xmlTextReaderPtr reader;
+  VALUE io, url, encoding, options;
+  OpenFile *fptr;
+  FILE *f;
+
+  #ifdef _WIN32
+    rb_raise(rb_eRuntimeError, "Reading an io stream is not supported on Windows");
+  #endif             
+
+  rb_scan_args(argc, argv, "13", &io, &url, &encoding, &options);
+
+  if (!rb_obj_is_kind_of(io, rb_cIO))
+    rb_raise(rb_eTypeError, "need an IO object");
+
+  GetOpenFile(io, fptr);
+  rb_io_check_readable(fptr);
+  f = GetWriteFile(fptr);
+
+  reader = xmlReaderForIO((xmlInputReadCallback) ctxtRead, NULL, f,
+                          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 ruby_xml_reader_new(self, reader); 
+}
+
 /*
  * call-seq:
  *    XML::Reader.walker(doc) -> reader
@@ -800,6 +843,7 @@ ruby_init_xml_reader(void)
   error_handler_block_ivar_id = rb_intern("@__error_handler_callback__"); 
  
   rb_define_singleton_method(cXMLReader, "file", ruby_xml_reader_new_file, -1);
+  rb_define_singleton_method(cXMLReader, "io", ruby_xml_reader_new_io, -1);
   rb_define_singleton_method(cXMLReader, "walker", ruby_xml_reader_new_walker, 1);
   rb_define_alias(CLASS_OF(cXMLReader), "document", "walker");
   rb_define_singleton_method(cXMLReader, "new", ruby_xml_reader_new_data, -1);

data/ext/libxml/ruby_xml_reader.h

@@ -1,14 +1,14 @@
-/* Copyright (c) 2006 Apple Computer Inc.
- * Please see the LICENSE file for copyright and distribution information. */
-
-#ifndef __RUBY_XML_READER__
-#define __RUBY_XML_READER__
-
-extern VALUE cXMLReader;
-
-void ruby_init_xml_reader(void);
-
-/* Exported to be used by XML::Document#reader */
-VALUE ruby_xml_reader_new_walker(VALUE self, VALUE doc);
-
-#endif /* __RUBY_XML_READER__ */
+/* Copyright (c) 2006 Apple Computer Inc.
+ * Please see the LICENSE file for copyright and distribution information. */
+
+#ifndef __RUBY_XML_READER__
+#define __RUBY_XML_READER__
+
+extern VALUE cXMLReader;
+
+void ruby_init_xml_reader(void);
+
+/* Exported to be used by XML::Document#reader */
+VALUE ruby_xml_reader_new_walker(VALUE self, VALUE doc);
+
+#endif /* __RUBY_XML_READER__ */

data/ext/libxml/ruby_xml_relaxng.c

@@ -0,0 +1,97 @@
+#include "ruby_libxml.h"
+#include "ruby_xml_relaxng.h"
+
+VALUE cXMLRelaxNG;
+
+// Rdoc needs to know 
+#ifdef RDOC_NEVER_DEFINED
+  mLibXML = rb_define_module("LibXML");
+  mXML = rb_define_module_under(mLibXML, "XML");
+#endif
+
+static void
+ruby_xml_relaxng_mark(ruby_xml_relaxng *rxrelaxng) {
+  return;
+}
+
+void
+ruby_xml_relaxng_free(ruby_xml_relaxng *rxrelaxng) {
+  if (rxrelaxng->relaxng != NULL) {
+    xmlRelaxNGFree(rxrelaxng->relaxng);
+    rxrelaxng->relaxng = NULL;
+  }
+
+  ruby_xfree(rxrelaxng);
+}
+
+/*
+ * call-seq:
+ *    XML::Relaxng.new(relaxng_uri) -> relaxng
+ * 
+ * Create a new relaxng from the specified URI.
+ */
+VALUE
+ruby_xml_relaxng_init_from_uri(VALUE class, VALUE uri) {
+  xmlRelaxNGParserCtxtPtr parser;
+  ruby_xml_relaxng *relaxng;
+
+  Check_Type(uri, T_STRING);
+
+  parser = xmlRelaxNGNewParserCtxt(StringValuePtr(uri));
+  relaxng = ALLOC(ruby_xml_relaxng);
+  relaxng->relaxng = xmlRelaxNGParse(parser);
+  xmlRelaxNGFreeParserCtxt(parser);
+
+  return Data_Wrap_Struct(cXMLRelaxNG, ruby_xml_relaxng_mark, ruby_xml_relaxng_free, relaxng);
+}
+
+/*
+ * call-seq:
+ *    XML::RelaxNG.document(document) -> relaxng
+ * 
+ * Create a new relaxng from the specified document.
+ */
+VALUE
+ruby_xml_relaxng_init_from_document(VALUE class, VALUE document) {
+  ruby_xml_document_t *rdoc;
+  ruby_xml_relaxng *relaxng;
+  xmlRelaxNGParserCtxtPtr parser;
+
+  Data_Get_Struct(document, ruby_xml_document_t, rdoc);
+
+  parser = xmlRelaxNGNewDocParserCtxt(rdoc->doc);
+  relaxng = ALLOC(ruby_xml_relaxng);
+  relaxng->relaxng = xmlRelaxNGParse(parser);
+  xmlRelaxNGFreeParserCtxt(parser);
+
+  return Data_Wrap_Struct(cXMLRelaxNG, ruby_xml_relaxng_mark, ruby_xml_relaxng_free, relaxng);
+}
+
+/*
+ * call-seq:
+ *    XML::RelaxNG.string("relaxng_data") -> "value"
+ * 
+ * Create a new relaxng using the specified string.
+ */
+VALUE
+ruby_xml_relaxng_init_from_string(VALUE self, VALUE relaxng_str) {
+  xmlRelaxNGParserCtxtPtr  parser;
+  ruby_xml_relaxng *rxrelaxng;
+
+  Check_Type(relaxng_str, T_STRING);
+
+  parser = xmlRelaxNGNewMemParserCtxt(StringValuePtr(relaxng_str), strlen(StringValuePtr(relaxng_str)));
+  rxrelaxng = ALLOC(ruby_xml_relaxng);
+  rxrelaxng->relaxng = xmlRelaxNGParse(parser);
+  xmlRelaxNGFreeParserCtxt(parser);
+
+  return Data_Wrap_Struct(cXMLRelaxNG, ruby_xml_relaxng_mark, ruby_xml_relaxng_free, rxrelaxng);
+}
+  
+void  ruby_init_xml_relaxng(void) {
+  cXMLRelaxNG = rb_define_class_under(mXML, "RelaxNG", rb_cObject);
+  rb_define_singleton_method(cXMLRelaxNG, "new",         ruby_xml_relaxng_init_from_uri, 1);
+  rb_define_singleton_method(cXMLRelaxNG, "from_string", ruby_xml_relaxng_init_from_string, 1);
+  rb_define_singleton_method(cXMLRelaxNG, "document",    ruby_xml_relaxng_init_from_document, 1);
+}
+

data/ext/libxml/ruby_xml_relaxng.h

@@ -0,0 +1,15 @@
+#ifndef __RUBY_XML_RELAXNG__
+#define __RUBY_XML_RELAXNG__
+
+#include <libxml/relaxng.h>
+
+extern VALUE cXMLRelaxNG;
+
+typedef struct rxp_relaxng {
+  xmlRelaxNGPtr relaxng;   /* RelaxNG interface */
+} ruby_xml_relaxng;
+
+void  ruby_init_xml_relaxng(void);
+void  ruby_relaxng_free(ruby_xml_relaxng *rxs);
+#endif
+

data/ext/libxml/ruby_xml_sax_parser.c

@@ -1,486 +1,486 @@
-/* $Id: ruby_xml_sax_parser.c 461 2008-07-15 21:35:56Z cfis $ */
-
-/* Please see the LICENSE file for copyright and distribution information */
-
-#include "ruby_libxml.h"
-#include "ruby_xml_sax_parser.h"
-
-VALUE cXMLSaxParser;
-VALUE mXMLSaxParserCallbacks;
-
-VALUE cbidOnInternalSubset;
-VALUE cbidOnIsStandalone;
-VALUE cbidOnHasInternalSubset;
-VALUE cbidOnHasExternalSubset;
-VALUE cbidOnStartDocument;
-VALUE cbidOnEndDocument;
-VALUE cbidOnStartElement;
-VALUE cbidOnEndElement;
-VALUE cbidOnReference;
-VALUE cbidOnCharacters;
-VALUE cbidOnProcessingInstruction;
-VALUE cbidOnComment;
-VALUE cbidOnXmlParserWarning;
-VALUE cbidOnXmlParserError;
-VALUE cbidOnXmlParserFatalError;
-VALUE cbidOnCdataBlock;
-VALUE cbidOnExternalSubset;
-
-#include "sax_parser_callbacks.inc"
-
-void
-ruby_xml_sax_parser_free(ruby_xml_sax_parser *nodesp) {
-  /* Apparently this isn't needed: time will tell */
-  /* if (nodesp->xsh != NULL) */
-  /* xmlFreeSax_Parser(nodesp->sax_parser); */
-}
-
-void
-ruby_xml_sax_parser_mark(ruby_xml_sax_parser *nodesp) {
-  if (nodesp->callbackHandler && (nodesp->callbackHandler != Qnil)) {
-    rb_gc_mark(nodesp->callbackHandler);
-  }
-  
-  if (nodesp->filename && (nodesp->filename != Qnil)) {
-    rb_gc_mark(nodesp->filename);
-  }
-
-  if (nodesp->str && (nodesp->str != Qnil)) {
-    rb_gc_mark(nodesp->str);
-  }
-}
-
-/*
- * call-seq:
- *    XML::SaxParser.new -> sax_parser
- * 
- * Create a new XML::SaxParser instance.
- */
-VALUE
-ruby_xml_sax_parser_new(VALUE class) {
-  ruby_xml_sax_parser *nodesp;
-  
-  nodesp = ALLOC(ruby_xml_sax_parser);
-  nodesp->xsh = &rubySAXHandlerStruct;
-
-  nodesp->callbackHandler = Qnil;  
-  nodesp->xpc = NULL;
-  nodesp->filename = Qnil;
-  nodesp->str = Qnil;
-
-  return(Data_Wrap_Struct(class, ruby_xml_sax_parser_mark, 
-                              ruby_xml_sax_parser_free, nodesp));
-}
-
-
-/*
- * call-seq:
- *    sax_parser.callbacks -> #<XML::SaxParser::Callbacks subclass>
- * 
- * Obtain the callbacks used by this parser.
- */
-VALUE
-ruby_xml_sax_parser_callbacks_get(VALUE self) {
-  ruby_xml_sax_parser *nodesp;
-  Data_Get_Struct(self, ruby_xml_sax_parser, nodesp);
-  return(nodesp->callbackHandler);
-}
-
-
-/*
- * call-seq:
- *    sax_parser.callbacks = #<XML::SaxParser::Callbacks subclass>
- * 
- * Set the callbacks used by this parser. The value assigned to
- * this attributesibute will usually be an object that extends the the 
- * XML::SaxParser::Callbacks module, overriding the callbacks it
- * wishes to process.
- */
-VALUE
-ruby_xml_sax_parser_callbacks_set(VALUE self, VALUE callbacks) {
-  ruby_xml_sax_parser *nodesp;
-  Data_Get_Struct(self, ruby_xml_sax_parser, nodesp);
-  nodesp->callbackHandler = callbacks;
-  return(nodesp->callbackHandler);
-}
-
-
-/*
- * call-seq:
- *    sax_parser.filename -> "filename"
- * 
- * Obtain the filename this parser reads from.
- */
-VALUE
-ruby_xml_sax_parser_filename_get(VALUE self) {
-  ruby_xml_sax_parser *nodesp;
-  Data_Get_Struct(self, ruby_xml_sax_parser, nodesp);
-  return(nodesp->filename);
-}
-
-
-/*
- * call-seq:
- *    sax_parser.filename = "filename"
- * 
- * Set the filename this parser reads from.
- */
-VALUE
-ruby_xml_sax_parser_filename_set(VALUE self, VALUE filename) {
-  ruby_xml_sax_parser *nodesp;
-  Check_Type(filename, T_STRING);
-  Data_Get_Struct(self, ruby_xml_sax_parser, nodesp);
-  nodesp->filename = filename;
-  return(nodesp->filename);
-}
-
- 
-/*
- * call-seq:
- *    parser.parse -> (true|false)
- * 
- * Parse the input XML, generating callbacks to the object
- * registered via the +callbacks+ attributesibute.
- */
-VALUE
-ruby_xml_sax_parser_parse(VALUE self) {
-  char *str;
-  int status = 1;
-  ruby_xml_sax_parser *nodesp;
-
-  Data_Get_Struct(self, ruby_xml_sax_parser, nodesp);
-
-  if (nodesp->filename != Qnil) {
-    status = xmlSAXUserParseFile(nodesp->xsh, nodesp, StringValuePtr(nodesp->filename));
-  } else if (nodesp->str != Qnil) {
-    str = StringValuePtr(nodesp->str);
-    status = //ruby_xml_document_new(cXMLDocument,
-				   xmlSAXUserParseMemory(nodesp->xsh, nodesp,
-                 str, strlen(str)); //);
-  }
-  
-  /* XXX This should return an exception for the various error codes
-   * that can come back in status, but I'm too lazy to do that right
-   * now. */
-  if (status)
-    return(Qfalse);
-  else
-    return(Qtrue);
-}
-
-
-/*
- * call-seq:
- *    parser.string -> "xml"
- * 
- * Obtain the parser's input string.
- */
-VALUE
-ruby_xml_sax_parser_str_get(VALUE self) {
-  ruby_xml_sax_parser *nodesp;
-  Data_Get_Struct(self, ruby_xml_sax_parser, nodesp);
-  return(nodesp->str);
-}
-
-
-/*
- * call-seq:
- *    parser.string = "xml"
- * 
- * Set the parser's input string.
- */
-VALUE
-ruby_xml_sax_parser_str_set(VALUE self, VALUE str) {
-  ruby_xml_sax_parser *nodesp;
-  Check_Type(str, T_STRING);
-  Data_Get_Struct(self, ruby_xml_sax_parser, nodesp);
-  nodesp->str = str;
-  return(nodesp->str);
-}
-
-
-/****** SaxCallbacks ******/
-/* These are all the same. Bloody Rdoc... */
-
-/*
- * call-seq:
- *    callbacks.on_internal_subset(name, external_id, system_id)
- *
- * Called for an internal subset event.
- */
-VALUE
-ruby_xml_sax_callbacks_on_internal_subset(int argc, VALUE *argv, VALUE self) {
-  return Qnil;
-}
- 
- 
-/*
- * call-seq:
- *    callbacks.on_is_standalone()
- *
- * Called for 'is standalone' event.
- */
-VALUE
-ruby_xml_sax_callbacks_on_is_standalone(int argc, VALUE *argv, VALUE self) {
-  return Qnil;
-}
- 
- 
-/*
- * call-seq:
- *    callbacks.on_has_internal_subset()
- *
- * Called for an internal subset notification event.
- */
-VALUE
-ruby_xml_sax_callbacks_on_has_internal_subset(int argc, VALUE *argv, VALUE self) {
-  return Qnil;
-}
- 
- 
-/*
- * call-seq:
- *    callbacks.on_has_external_subset()
- *
- * Called for an external subset notification event.
- */
-VALUE
-ruby_xml_sax_callbacks_on_has_external_subset(int argc, VALUE *argv, VALUE self) {
-  return Qnil;
-}
- 
- 
-/*
- * call-seq:
- *    callbacks.on_start_document()
- *
- * Called for a start document event.
- */
-VALUE
-ruby_xml_sax_callbacks_on_start_document(int argc, VALUE *argv, VALUE self) {
-  return Qnil;
-}
- 
- 
-/*
- * call-seq:
- *    callbacks.on_end_document()
- *
- * Called for an end document event.
- */
-VALUE
-ruby_xml_sax_callbacks_on_end_document(int argc, VALUE *argv, VALUE self) {
-  return Qnil;
-}
- 
- 
-/*
- * call-seq:
- *    callbacks.on_start_element(name, attributes_hash)
- * 
- * Called for an element start event.
- */
-VALUE
-ruby_xml_sax_callbacks_on_start_element(int argc, VALUE *argv, VALUE self) {
-  return Qnil;
-}
- 
- 
-/*
- * call-seq:
- *    callbacks.on_end_element(name)
- *
- * Called for an element end event.
- */
-VALUE
-ruby_xml_sax_callbacks_on_end_element(int argc, VALUE *argv, VALUE self) {
-  return Qnil;
-}
- 
- 
-/*
- * call-seq:
- *    callbacks.on_reference(name)
- *
- * Called for a reference event.
- */
-VALUE
-ruby_xml_sax_callbacks_on_reference(int argc, VALUE *argv, VALUE self) {
-  return Qnil;
-}
- 
- 
-/*
- * call-seq:
- *    callbacks.on_characters(chars)
- *
- * Called for a characters event.
- */
-VALUE
-ruby_xml_sax_callbacks_on_characters(int argc, VALUE *argv, VALUE self) {
-  return Qnil;
-}
- 
- 
-/*
- * call-seq:
- *    callbacks.on_processing_instruction(target, data)
- *
- * Called for an processing instruction event.
- */
-VALUE
-ruby_xml_sax_callbacks_on_processing_instruction(int argc, VALUE *argv, VALUE self) {
-  return Qnil;
-}
- 
- 
-/*
- * call-seq:
- *    callbacks.on_comment(msg)
- *
- * Called for a comment event.
- */
-VALUE
-ruby_xml_sax_callbacks_on_comment(int argc, VALUE *argv, VALUE self) {
-  return Qnil;
-}
-
-
-/*
- * call-seq:
- *    callbacks.on_parser_warning(msg)
- *
- * Called for parser warnings.
- */
-VALUE
-ruby_xml_sax_callbacks_on_parser_warning(int argc, VALUE *argv, VALUE self) {
-  return Qnil;
-}
- 
- 
-/*
- * call-seq:
- *    callbacks.on_parser_error(msg)
- *
- * Called for parser errors.
- */
-VALUE
-ruby_xml_sax_callbacks_on_parser_error(int argc, VALUE *argv, VALUE self) {
-  return Qnil;
-}
- 
-  
-/*
- * call-seq:
- *    callbacks.on_parser_fatal_error(msg)
- *
- * Called for fatal parser errors.
- */
-VALUE
-ruby_xml_sax_callbacks_on_parser_fatal_error(int argc, VALUE *argv, VALUE self) {
-  return Qnil;
-}
- 
-/*
- * call-seq:
- *    callbacks.on_cdata_block(cdata)
- *
- * Called for a CDATA block event.
- */
-VALUE
-ruby_xml_sax_callbacks_on_cdata_block(int argc, VALUE *argv, VALUE self) {
-  return Qnil;
-}
- 
-/*
- * call-seq:
- *    callbacks.on_external_subset(name, external_id, system_id)
- *
- * Called for an external subset event.
- */
-VALUE
-ruby_xml_sax_callbacks_on_external_subset(int argc, VALUE *argv, VALUE self) {
-  return Qnil;
-}
-
-
-// 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_sax_parser(void) {
-  cXMLSaxParser = rb_define_class_under(mXML, "SaxParser", rb_cObject);
-  mXMLSaxParserCallbacks = rb_define_module_under(cXMLSaxParser, "Callbacks");
-
-  /* SaxParser */
-  rb_define_singleton_method(cXMLSaxParser, "new", ruby_xml_sax_parser_new, 0);
-
-  rb_define_method(cXMLSaxParser, "filename",
-       ruby_xml_sax_parser_filename_get, 0);
-  rb_define_method(cXMLSaxParser, "filename=",
-       ruby_xml_sax_parser_filename_set, 1);
-  rb_define_method(cXMLSaxParser, "callbacks",
-       ruby_xml_sax_parser_callbacks_get, 0);
-  rb_define_method(cXMLSaxParser, "callbacks=",
-       ruby_xml_sax_parser_callbacks_set, 1);
-  rb_define_method(cXMLSaxParser, "parse", ruby_xml_sax_parser_parse, 0);
-  rb_define_method(cXMLSaxParser, "string", ruby_xml_sax_parser_str_get, 0);
-  rb_define_method(cXMLSaxParser, "string=", ruby_xml_sax_parser_str_set, 1);
-
-  /* SaxCallbacks */
-  cbidOnInternalSubset = rb_intern("on_internal_subset");
-  cbidOnIsStandalone = rb_intern("on_is_standalone");
-  cbidOnHasInternalSubset = rb_intern("on_has_internal_subset");
-  cbidOnHasExternalSubset = rb_intern("on_has_external_subset");
-  cbidOnStartDocument = rb_intern("on_start_document");
-  cbidOnEndDocument = rb_intern("on_end_document");
-  cbidOnStartElement = rb_intern("on_start_element");
-  cbidOnEndElement = rb_intern("on_end_element");
-  cbidOnReference = rb_intern("on_reference");
-  cbidOnCharacters = rb_intern("on_characters");
-  cbidOnProcessingInstruction = rb_intern("on_processing_instruction");
-  cbidOnComment = rb_intern("on_comment");
-  cbidOnXmlParserWarning = rb_intern("on_parser_warning");
-  cbidOnXmlParserError = rb_intern("on_parser_error");
-  cbidOnXmlParserFatalError = rb_intern("on_parser_fatal_error");
-  cbidOnCdataBlock = rb_intern("on_cdata_block");
-  cbidOnExternalSubset = rb_intern("on_external_subset");
-
-  rb_define_method(mXMLSaxParserCallbacks, "on_internal_subset", 
-      ruby_xml_sax_callbacks_on_internal_subset, -1);        
-  rb_define_method(mXMLSaxParserCallbacks, "on_is_standalone", 
-      ruby_xml_sax_callbacks_on_is_standalone, -1);        
-  rb_define_method(mXMLSaxParserCallbacks, "on_has_internal_subset", 
-      ruby_xml_sax_callbacks_on_has_internal_subset, -1);        
-  rb_define_method(mXMLSaxParserCallbacks, "on_has_external_subset", 
-      ruby_xml_sax_callbacks_on_has_external_subset, -1);        
-  rb_define_method(mXMLSaxParserCallbacks, "on_start_document", 
-      ruby_xml_sax_callbacks_on_start_document, -1);  
-  rb_define_method(mXMLSaxParserCallbacks, "on_end_document", 
-      ruby_xml_sax_callbacks_on_end_document, -1);  
-  rb_define_method(mXMLSaxParserCallbacks, "on_start_element", 
-      ruby_xml_sax_callbacks_on_start_element, -1);  
-  rb_define_method(mXMLSaxParserCallbacks, "on_end_element", 
-      ruby_xml_sax_callbacks_on_end_element, -1);        
-  rb_define_method(mXMLSaxParserCallbacks, "on_reference", 
-      ruby_xml_sax_callbacks_on_reference, -1);        
-  rb_define_method(mXMLSaxParserCallbacks, "on_characters", 
-      ruby_xml_sax_callbacks_on_characters, -1);        
-  rb_define_method(mXMLSaxParserCallbacks, "on_processing_instruction", 
-      ruby_xml_sax_callbacks_on_processing_instruction, -1);        
-  rb_define_method(mXMLSaxParserCallbacks, "on_comment", 
-      ruby_xml_sax_callbacks_on_comment, -1);        
-  rb_define_method(mXMLSaxParserCallbacks, "on_parser_warning", 
-      ruby_xml_sax_callbacks_on_parser_warning, -1);        
-  rb_define_method(mXMLSaxParserCallbacks, "on_parser_error", 
-      ruby_xml_sax_callbacks_on_parser_error, -1);        
-  rb_define_method(mXMLSaxParserCallbacks, "on_parser_fatal_error", 
-      ruby_xml_sax_callbacks_on_parser_fatal_error, -1);        
-  rb_define_method(mXMLSaxParserCallbacks, "on_cdata_block", 
-      ruby_xml_sax_callbacks_on_cdata_block, -1);        
-  rb_define_method(mXMLSaxParserCallbacks, "on_external_subset", 
-      ruby_xml_sax_callbacks_on_external_subset, -1);              
-}
+/* $Id: ruby_xml_sax_parser.c 461 2008-07-15 21:35:56Z cfis $ */
+
+/* Please see the LICENSE file for copyright and distribution information */
+
+#include "ruby_libxml.h"
+#include "ruby_xml_sax_parser.h"
+
+VALUE cXMLSaxParser;
+VALUE mXMLSaxParserCallbacks;
+
+VALUE cbidOnInternalSubset;
+VALUE cbidOnIsStandalone;
+VALUE cbidOnHasInternalSubset;
+VALUE cbidOnHasExternalSubset;
+VALUE cbidOnStartDocument;
+VALUE cbidOnEndDocument;
+VALUE cbidOnStartElement;
+VALUE cbidOnEndElement;
+VALUE cbidOnReference;
+VALUE cbidOnCharacters;
+VALUE cbidOnProcessingInstruction;
+VALUE cbidOnComment;
+VALUE cbidOnXmlParserWarning;
+VALUE cbidOnXmlParserError;
+VALUE cbidOnXmlParserFatalError;
+VALUE cbidOnCdataBlock;
+VALUE cbidOnExternalSubset;
+
+#include "sax_parser_callbacks.inc"
+
+void
+ruby_xml_sax_parser_free(ruby_xml_sax_parser *nodesp) {
+  /* Apparently this isn't needed: time will tell */
+  /* if (nodesp->xsh != NULL) */
+  /* xmlFreeSax_Parser(nodesp->sax_parser); */
+}
+
+void
+ruby_xml_sax_parser_mark(ruby_xml_sax_parser *nodesp) {
+  if (nodesp->callbackHandler && (nodesp->callbackHandler != Qnil)) {
+    rb_gc_mark(nodesp->callbackHandler);
+  }
+  
+  if (nodesp->filename && (nodesp->filename != Qnil)) {
+    rb_gc_mark(nodesp->filename);
+  }
+
+  if (nodesp->str && (nodesp->str != Qnil)) {
+    rb_gc_mark(nodesp->str);
+  }
+}
+
+/*
+ * call-seq:
+ *    XML::SaxParser.new -> sax_parser
+ * 
+ * Create a new XML::SaxParser instance.
+ */
+VALUE
+ruby_xml_sax_parser_new(VALUE class) {
+  ruby_xml_sax_parser *nodesp;
+  
+  nodesp = ALLOC(ruby_xml_sax_parser);
+  nodesp->xsh = &rubySAXHandlerStruct;
+
+  nodesp->callbackHandler = Qnil;  
+  nodesp->xpc = NULL;
+  nodesp->filename = Qnil;
+  nodesp->str = Qnil;
+
+  return(Data_Wrap_Struct(class, ruby_xml_sax_parser_mark, 
+                              ruby_xml_sax_parser_free, nodesp));
+}
+
+
+/*
+ * call-seq:
+ *    sax_parser.callbacks -> #<XML::SaxParser::Callbacks subclass>
+ * 
+ * Obtain the callbacks used by this parser.
+ */
+VALUE
+ruby_xml_sax_parser_callbacks_get(VALUE self) {
+  ruby_xml_sax_parser *nodesp;
+  Data_Get_Struct(self, ruby_xml_sax_parser, nodesp);
+  return(nodesp->callbackHandler);
+}
+
+
+/*
+ * call-seq:
+ *    sax_parser.callbacks = #<XML::SaxParser::Callbacks subclass>
+ * 
+ * Set the callbacks used by this parser. The value assigned to
+ * this attributesibute will usually be an object that extends the the 
+ * XML::SaxParser::Callbacks module, overriding the callbacks it
+ * wishes to process.
+ */
+VALUE
+ruby_xml_sax_parser_callbacks_set(VALUE self, VALUE callbacks) {
+  ruby_xml_sax_parser *nodesp;
+  Data_Get_Struct(self, ruby_xml_sax_parser, nodesp);
+  nodesp->callbackHandler = callbacks;
+  return(nodesp->callbackHandler);
+}
+
+
+/*
+ * call-seq:
+ *    sax_parser.filename -> "filename"
+ * 
+ * Obtain the filename this parser reads from.
+ */
+VALUE
+ruby_xml_sax_parser_filename_get(VALUE self) {
+  ruby_xml_sax_parser *nodesp;
+  Data_Get_Struct(self, ruby_xml_sax_parser, nodesp);
+  return(nodesp->filename);
+}
+
+
+/*
+ * call-seq:
+ *    sax_parser.filename = "filename"
+ * 
+ * Set the filename this parser reads from.
+ */
+VALUE
+ruby_xml_sax_parser_filename_set(VALUE self, VALUE filename) {
+  ruby_xml_sax_parser *nodesp;
+  Check_Type(filename, T_STRING);
+  Data_Get_Struct(self, ruby_xml_sax_parser, nodesp);
+  nodesp->filename = filename;
+  return(nodesp->filename);
+}
+
+ 
+/*
+ * call-seq:
+ *    parser.parse -> (true|false)
+ * 
+ * Parse the input XML, generating callbacks to the object
+ * registered via the +callbacks+ attributesibute.
+ */
+VALUE
+ruby_xml_sax_parser_parse(VALUE self) {
+  char *str;
+  int status = 1;
+  ruby_xml_sax_parser *nodesp;
+
+  Data_Get_Struct(self, ruby_xml_sax_parser, nodesp);
+
+  if (nodesp->filename != Qnil) {
+    status = xmlSAXUserParseFile(nodesp->xsh, nodesp, StringValuePtr(nodesp->filename));
+  } else if (nodesp->str != Qnil) {
+    str = StringValuePtr(nodesp->str);
+    status = //ruby_xml_document_new(cXMLDocument,
+				   xmlSAXUserParseMemory(nodesp->xsh, nodesp,
+                 str, strlen(str)); //);
+  }
+  
+  /* XXX This should return an exception for the various error codes
+   * that can come back in status, but I'm too lazy to do that right
+   * now. */
+  if (status)
+    return(Qfalse);
+  else
+    return(Qtrue);
+}
+
+
+/*
+ * call-seq:
+ *    parser.string -> "xml"
+ * 
+ * Obtain the parser's input string.
+ */
+VALUE
+ruby_xml_sax_parser_str_get(VALUE self) {
+  ruby_xml_sax_parser *nodesp;
+  Data_Get_Struct(self, ruby_xml_sax_parser, nodesp);
+  return(nodesp->str);
+}
+
+
+/*
+ * call-seq:
+ *    parser.string = "xml"
+ * 
+ * Set the parser's input string.
+ */
+VALUE
+ruby_xml_sax_parser_str_set(VALUE self, VALUE str) {
+  ruby_xml_sax_parser *nodesp;
+  Check_Type(str, T_STRING);
+  Data_Get_Struct(self, ruby_xml_sax_parser, nodesp);
+  nodesp->str = str;
+  return(nodesp->str);
+}
+
+
+/****** SaxCallbacks ******/
+/* These are all the same. Bloody Rdoc... */
+
+/*
+ * call-seq:
+ *    callbacks.on_internal_subset(name, external_id, system_id)
+ *
+ * Called for an internal subset event.
+ */
+VALUE
+ruby_xml_sax_callbacks_on_internal_subset(int argc, VALUE *argv, VALUE self) {
+  return Qnil;
+}
+ 
+ 
+/*
+ * call-seq:
+ *    callbacks.on_is_standalone()
+ *
+ * Called for 'is standalone' event.
+ */
+VALUE
+ruby_xml_sax_callbacks_on_is_standalone(int argc, VALUE *argv, VALUE self) {
+  return Qnil;
+}
+ 
+ 
+/*
+ * call-seq:
+ *    callbacks.on_has_internal_subset()
+ *
+ * Called for an internal subset notification event.
+ */
+VALUE
+ruby_xml_sax_callbacks_on_has_internal_subset(int argc, VALUE *argv, VALUE self) {
+  return Qnil;
+}
+ 
+ 
+/*
+ * call-seq:
+ *    callbacks.on_has_external_subset()
+ *
+ * Called for an external subset notification event.
+ */
+VALUE
+ruby_xml_sax_callbacks_on_has_external_subset(int argc, VALUE *argv, VALUE self) {
+  return Qnil;
+}
+ 
+ 
+/*
+ * call-seq:
+ *    callbacks.on_start_document()
+ *
+ * Called for a start document event.
+ */
+VALUE
+ruby_xml_sax_callbacks_on_start_document(int argc, VALUE *argv, VALUE self) {
+  return Qnil;
+}
+ 
+ 
+/*
+ * call-seq:
+ *    callbacks.on_end_document()
+ *
+ * Called for an end document event.
+ */
+VALUE
+ruby_xml_sax_callbacks_on_end_document(int argc, VALUE *argv, VALUE self) {
+  return Qnil;
+}
+ 
+ 
+/*
+ * call-seq:
+ *    callbacks.on_start_element(name, attributes_hash)
+ * 
+ * Called for an element start event.
+ */
+VALUE
+ruby_xml_sax_callbacks_on_start_element(int argc, VALUE *argv, VALUE self) {
+  return Qnil;
+}
+ 
+ 
+/*
+ * call-seq:
+ *    callbacks.on_end_element(name)
+ *
+ * Called for an element end event.
+ */
+VALUE
+ruby_xml_sax_callbacks_on_end_element(int argc, VALUE *argv, VALUE self) {
+  return Qnil;
+}
+ 
+ 
+/*
+ * call-seq:
+ *    callbacks.on_reference(name)
+ *
+ * Called for a reference event.
+ */
+VALUE
+ruby_xml_sax_callbacks_on_reference(int argc, VALUE *argv, VALUE self) {
+  return Qnil;
+}
+ 
+ 
+/*
+ * call-seq:
+ *    callbacks.on_characters(chars)
+ *
+ * Called for a characters event.
+ */
+VALUE
+ruby_xml_sax_callbacks_on_characters(int argc, VALUE *argv, VALUE self) {
+  return Qnil;
+}
+ 
+ 
+/*
+ * call-seq:
+ *    callbacks.on_processing_instruction(target, data)
+ *
+ * Called for an processing instruction event.
+ */
+VALUE
+ruby_xml_sax_callbacks_on_processing_instruction(int argc, VALUE *argv, VALUE self) {
+  return Qnil;
+}
+ 
+ 
+/*
+ * call-seq:
+ *    callbacks.on_comment(msg)
+ *
+ * Called for a comment event.
+ */
+VALUE
+ruby_xml_sax_callbacks_on_comment(int argc, VALUE *argv, VALUE self) {
+  return Qnil;
+}
+
+
+/*
+ * call-seq:
+ *    callbacks.on_parser_warning(msg)
+ *
+ * Called for parser warnings.
+ */
+VALUE
+ruby_xml_sax_callbacks_on_parser_warning(int argc, VALUE *argv, VALUE self) {
+  return Qnil;
+}
+ 
+ 
+/*
+ * call-seq:
+ *    callbacks.on_parser_error(msg)
+ *
+ * Called for parser errors.
+ */
+VALUE
+ruby_xml_sax_callbacks_on_parser_error(int argc, VALUE *argv, VALUE self) {
+  return Qnil;
+}
+ 
+  
+/*
+ * call-seq:
+ *    callbacks.on_parser_fatal_error(msg)
+ *
+ * Called for fatal parser errors.
+ */
+VALUE
+ruby_xml_sax_callbacks_on_parser_fatal_error(int argc, VALUE *argv, VALUE self) {
+  return Qnil;
+}
+ 
+/*
+ * call-seq:
+ *    callbacks.on_cdata_block(cdata)
+ *
+ * Called for a CDATA block event.
+ */
+VALUE
+ruby_xml_sax_callbacks_on_cdata_block(int argc, VALUE *argv, VALUE self) {
+  return Qnil;
+}
+ 
+/*
+ * call-seq:
+ *    callbacks.on_external_subset(name, external_id, system_id)
+ *
+ * Called for an external subset event.
+ */
+VALUE
+ruby_xml_sax_callbacks_on_external_subset(int argc, VALUE *argv, VALUE self) {
+  return Qnil;
+}
+
+
+// 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_sax_parser(void) {
+  cXMLSaxParser = rb_define_class_under(mXML, "SaxParser", rb_cObject);
+  mXMLSaxParserCallbacks = rb_define_module_under(cXMLSaxParser, "Callbacks");
+
+  /* SaxParser */
+  rb_define_singleton_method(cXMLSaxParser, "new", ruby_xml_sax_parser_new, 0);
+
+  rb_define_method(cXMLSaxParser, "filename",
+       ruby_xml_sax_parser_filename_get, 0);
+  rb_define_method(cXMLSaxParser, "filename=",
+       ruby_xml_sax_parser_filename_set, 1);
+  rb_define_method(cXMLSaxParser, "callbacks",
+       ruby_xml_sax_parser_callbacks_get, 0);
+  rb_define_method(cXMLSaxParser, "callbacks=",
+       ruby_xml_sax_parser_callbacks_set, 1);
+  rb_define_method(cXMLSaxParser, "parse", ruby_xml_sax_parser_parse, 0);
+  rb_define_method(cXMLSaxParser, "string", ruby_xml_sax_parser_str_get, 0);
+  rb_define_method(cXMLSaxParser, "string=", ruby_xml_sax_parser_str_set, 1);
+
+  /* SaxCallbacks */
+  cbidOnInternalSubset = rb_intern("on_internal_subset");
+  cbidOnIsStandalone = rb_intern("on_is_standalone");
+  cbidOnHasInternalSubset = rb_intern("on_has_internal_subset");
+  cbidOnHasExternalSubset = rb_intern("on_has_external_subset");
+  cbidOnStartDocument = rb_intern("on_start_document");
+  cbidOnEndDocument = rb_intern("on_end_document");
+  cbidOnStartElement = rb_intern("on_start_element");
+  cbidOnEndElement = rb_intern("on_end_element");
+  cbidOnReference = rb_intern("on_reference");
+  cbidOnCharacters = rb_intern("on_characters");
+  cbidOnProcessingInstruction = rb_intern("on_processing_instruction");
+  cbidOnComment = rb_intern("on_comment");
+  cbidOnXmlParserWarning = rb_intern("on_parser_warning");
+  cbidOnXmlParserError = rb_intern("on_parser_error");
+  cbidOnXmlParserFatalError = rb_intern("on_parser_fatal_error");
+  cbidOnCdataBlock = rb_intern("on_cdata_block");
+  cbidOnExternalSubset = rb_intern("on_external_subset");
+
+  rb_define_method(mXMLSaxParserCallbacks, "on_internal_subset", 
+      ruby_xml_sax_callbacks_on_internal_subset, -1);        
+  rb_define_method(mXMLSaxParserCallbacks, "on_is_standalone", 
+      ruby_xml_sax_callbacks_on_is_standalone, -1);        
+  rb_define_method(mXMLSaxParserCallbacks, "on_has_internal_subset", 
+      ruby_xml_sax_callbacks_on_has_internal_subset, -1);        
+  rb_define_method(mXMLSaxParserCallbacks, "on_has_external_subset", 
+      ruby_xml_sax_callbacks_on_has_external_subset, -1);        
+  rb_define_method(mXMLSaxParserCallbacks, "on_start_document", 
+      ruby_xml_sax_callbacks_on_start_document, -1);  
+  rb_define_method(mXMLSaxParserCallbacks, "on_end_document", 
+      ruby_xml_sax_callbacks_on_end_document, -1);  
+  rb_define_method(mXMLSaxParserCallbacks, "on_start_element", 
+      ruby_xml_sax_callbacks_on_start_element, -1);  
+  rb_define_method(mXMLSaxParserCallbacks, "on_end_element", 
+      ruby_xml_sax_callbacks_on_end_element, -1);        
+  rb_define_method(mXMLSaxParserCallbacks, "on_reference", 
+      ruby_xml_sax_callbacks_on_reference, -1);        
+  rb_define_method(mXMLSaxParserCallbacks, "on_characters", 
+      ruby_xml_sax_callbacks_on_characters, -1);        
+  rb_define_method(mXMLSaxParserCallbacks, "on_processing_instruction", 
+      ruby_xml_sax_callbacks_on_processing_instruction, -1);        
+  rb_define_method(mXMLSaxParserCallbacks, "on_comment", 
+      ruby_xml_sax_callbacks_on_comment, -1);        
+  rb_define_method(mXMLSaxParserCallbacks, "on_parser_warning", 
+      ruby_xml_sax_callbacks_on_parser_warning, -1);        
+  rb_define_method(mXMLSaxParserCallbacks, "on_parser_error", 
+      ruby_xml_sax_callbacks_on_parser_error, -1);        
+  rb_define_method(mXMLSaxParserCallbacks, "on_parser_fatal_error", 
+      ruby_xml_sax_callbacks_on_parser_fatal_error, -1);        
+  rb_define_method(mXMLSaxParserCallbacks, "on_cdata_block", 
+      ruby_xml_sax_callbacks_on_cdata_block, -1);        
+  rb_define_method(mXMLSaxParserCallbacks, "on_external_subset", 
+      ruby_xml_sax_callbacks_on_external_subset, -1);              
+}