libxml-ruby 0.5.4 → 0.6.0

data/ext/libxml/ruby_xml_parser_context.c

@@ -1,716 +1,750 @@
-/* $Id: ruby_xml_parser_context.c 225 2007-12-07 04:58:09Z transami $ */
-
-/* Please see the LICENSE file for copyright and distribution information */
-
-#include "libxml.h"
-#include "ruby_xml_parser_context.h"
-
-/* TODO:
- *
- * *) xmlParserInput class/structure
- * *) errNo and mappings
- * *) validity context
- * *) record_info or stats class/structure
- * *) xmlParserNodeInfoSeq
- * *) xmlParserInputState
- */
-VALUE cXMLParserContext;
-
-/*
- * call-seq:
- *    context.data_directory => "dir"
- * 
- * Obtain the data directory associated with this context.
- */
-VALUE
-ruby_xml_parser_context_data_directory_get(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->directory == NULL)
-    return(Qnil);
-  else
-    return(rb_str_new2(rxpc->ctxt->directory));
-}
-
-
-/*
- * call-seq:
- *    context.depth => num
- * 
- * Obtain the depth of this context.
- */
-VALUE
-ruby_xml_parser_context_depth_get(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  return(INT2NUM(rxpc->ctxt->depth));
-}
-
-
-/*
- * call-seq:
- *    context.disable_sax? => (true|false)
- * 
- * Determine whether SAX-based processing is disabled
- * in this context.
- */
-VALUE
-ruby_xml_parser_context_disable_sax_q(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->disableSAX)
-    return(Qtrue);
-  else
-    return(Qfalse);
-}
-
-
-/*
- * call-seq:
- *    context.doc => document
- * 
- * Obtain the +XML::Document+ associated with this context.
- */
-VALUE
-ruby_xml_parser_context_doc_get(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->myDoc == NULL)
-    return(Qnil);
-
-  return(ruby_xml_document_wrap(cXMLDocument, rxpc->ctxt->myDoc));
-}
-
-
-/*
- * call-seq:
- *    context.docbook? => (true|false)
- * 
- * Determine whether this is a docbook context.
- */
-VALUE
-ruby_xml_parser_context_docbook_q(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->html == 2)    // TODO check this
-    return(Qtrue);
-  else
-    return(Qfalse);
-}
-
-
-/*
- * call-seq:
- *    context.encoding => "encoding"
- * 
- * Obtain the character encoding identifier used in
- * this context.
- */
-VALUE
-ruby_xml_parser_context_encoding_get(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->encoding == NULL)
-    return(Qnil);
-  else
-    return(rb_str_new2((const char*)rxpc->ctxt->encoding));
-}
-
-
-/*
- * call-seq:
- *    context.errno => num
- * 
- * Obtain the last-error number in this context.
- */
-VALUE
-ruby_xml_parser_context_errno_get(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  return(INT2NUM(rxpc->ctxt->errNo));
-}
-
-
-void
-ruby_xml_parser_context_free(ruby_xml_parser_context *rxpc) {
-  if (rxpc->ctxt != NULL) {
-    xmlFreeParserCtxt(rxpc->ctxt);
-    rxpc->ctxt = NULL;
-  }
-
-  free(rxpc);
-}
-
-void
-ruby_xml_parser_context_mark(void *v) {
-  if ( v == NULL ) return;
-  ruby_xml_state_marker();
-}
-
-/*
- * call-seq:
- *    context.html? => (true|false)
- * 
- * Determine whether this is an html context.
- */
-VALUE
-ruby_xml_parser_context_html_q(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->html == 1)
-    return(Qtrue);
-  else
-    return(Qfalse);
-}
-
-
-/*
- * call-seq:
- *    context.max_num_streams => num
- * 
- * Obtain the limit on the number of IO streams opened in
- * this context.
- */
-VALUE
-ruby_xml_parser_context_io_max_num_streams_get(VALUE self) {
-  // TODO alias to max_streams and dep this? 
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  return(INT2NUM(rxpc->ctxt->inputMax));
-}
-
-
-/*
- * call-seq:
- *    context.num_streams => "dir"
- * 
- * Obtain the actual number of IO streams in this
- * context.
- */
-VALUE
-ruby_xml_parser_context_io_num_streams_get(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  return(INT2NUM(rxpc->ctxt->inputNr));
-}
-
-
-/*
- * call-seq:
- *    context.keep_blanks? => (true|false)
- * 
- * Determine whether parsers in this context retain 
- * whitespace.
- */
-VALUE
-ruby_xml_parser_context_keep_blanks_q(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->keepBlanks)
-    return(Qtrue);
-  else
-    return(Qfalse);
-}
-
-
-/*
- * call-seq:
- *    context.name_depth => num
- * 
- * Obtain the name depth for this context.
- */
-VALUE
-ruby_xml_parser_context_name_depth_get(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  return(INT2NUM(rxpc->ctxt->nameNr));
-}
-
-
-/*
- * call-seq:
- *    context.name_depth_max => num
- * 
- * Obtain the maximum name depth for this context.
- */
-VALUE
-ruby_xml_parser_context_name_depth_max_get(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  return(INT2NUM(rxpc->ctxt->nameMax));
-}
-
-
-/*
- * call-seq:
- *    context.name_node => "name"
- * 
- * Obtain the name node for this context.
- */
-VALUE
-ruby_xml_parser_context_name_node_get(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->name == NULL)
-    return(Qnil);
-  else
-    return(rb_str_new2((const char*)rxpc->ctxt->name));
-}
-
-
-/*
- * call-seq:
- *    context.name_tab => ["name", ..., "name"]
- * 
- * Obtain the name table for this context.
- */
-VALUE
-ruby_xml_parser_context_name_tab_get(VALUE self) {
-  int i;
-  ruby_xml_parser_context *rxpc;
-  VALUE tab_ary;
-
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->nameTab == NULL)
-    return(Qnil);
-
-  tab_ary = rb_ary_new();
-
-  for (i = (rxpc->ctxt->nameNr - 1); i >= 0; i--) {
-    if (rxpc->ctxt->nameTab[i] == NULL)
-      continue;
-    else
-      rb_ary_push(tab_ary, rb_str_new2((const char*)rxpc->ctxt->nameTab[i]));
-  }
-
-  return(tab_ary);
-}
-
-
-/*
- * call-seq:
- *    context.node_depth => num
- * 
- * Obtain the node depth for this context.
- */
-VALUE
-ruby_xml_parser_context_node_depth_get(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  return(INT2NUM(rxpc->ctxt->nodeNr));
-}
-
-
-/*
- * call-seq:
- *    context.node => node
- * 
- * Obtain the root node of this context.
- */
-VALUE
-ruby_xml_parser_context_node_get(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->node == NULL)
-    return(Qnil);
-  else
-    return(ruby_xml_node2_wrap(cXMLNode,
-			      rxpc->ctxt->node));
-}
-
-
-/*
- * call-seq:
- *    context.node_depth_max => num
- * 
- * Obtain the maximum node depth for this context.
- */
-VALUE
-ruby_xml_parser_context_node_depth_max_get(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  return(INT2NUM(rxpc->ctxt->nodeMax));
-}
-
-
-/*
- * call-seq:
- *    context.num_chars => num
- * 
- * Obtain the number of characters in this context.
- */
-VALUE
-ruby_xml_parser_context_num_chars_get(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  return(LONG2NUM(rxpc->ctxt->nbChars));
-}
-
-
-VALUE
-ruby_xml_parser_context_new(VALUE class, xmlParserCtxtPtr ctxt) {
-  ruby_xml_parser_context *rxpc;
-
-  rxpc = ALLOC(ruby_xml_parser_context);
-
-  rxpc->ctxt = ctxt;
-  return Data_Wrap_Struct(class,
-			  ruby_xml_parser_context_mark,
-			  ruby_xml_parser_context_free,
-			  rxpc);
-}
-
-
-VALUE
-ruby_xml_parser_context_new2(VALUE class) {
-  return(ruby_xml_parser_context_new(class, NULL));
-}
-
-
-VALUE
-ruby_xml_parser_context_new3() {
-  return(ruby_xml_parser_context_new2(cXMLParserContext));
-}
-
-
-/*
- * call-seq:
- *    context.replace_entities? => (true|false)
- * 
- * Determine whether external entity replacement is enabled in this 
- * context.
- */
-VALUE
-ruby_xml_parser_context_replace_entities_q(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->replaceEntities)
-    return(Qtrue);
-  else
-    return(Qfalse);
-}
-
-
-/*
- * call-seq:
- *    context.replace_entities = true|false
- * 
- * Control whether external entity replacement is enabled in this
- * context.
- */
-VALUE
-ruby_xml_parser_context_replace_entities_set(VALUE self, VALUE bool) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (TYPE(bool) == T_FALSE) {
-    rxpc->ctxt->replaceEntities = 0;
-    return(Qfalse);
-  } else {
-    rxpc->ctxt->replaceEntities = 1;
-    return(Qfalse);
-  }
-}
-
-
-/*
- * call-seq:
- *    context.space_depth => num
- * 
- * Obtain the space depth for this context.
- */
-VALUE
-ruby_xml_parser_context_space_depth_get(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  return(INT2NUM(rxpc->ctxt->spaceNr));
-}
-
-
-/*
- * call-seq:
- *    context.space_depth => num
- * 
- * Obtain the maximum space depth for this context.
- */
-VALUE
-ruby_xml_parser_context_space_depth_max_get(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  return(INT2NUM(rxpc->ctxt->spaceMax));
-}
-
-
-/*
- * call-seq:
- *    context.subset_external? => (true|false)
- * 
- * Determine whether this context is a subset of an
- * external context.
- */
-VALUE
-ruby_xml_parser_context_subset_external_q(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->inSubset == 2)
-    return(Qtrue);
-  else
-    return(Qfalse);
-}
-
-
-/*
- * call-seq:
- *    context.subset_internal? => (true|false)
- * 
- * Determine whether this context is a subset of an
- * internal context.
- */
-VALUE
-ruby_xml_parser_context_subset_internal_q(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->inSubset == 1)
-    return(Qtrue);
-  else
-    return(Qfalse);
-}
-
-
-/*
- * call-seq:
- *    context.subset_name => "name"
- * 
- * Obtain this context's subset name (valid only if
- * either of subset_external? or subset_internal?
- * is true).
- */
-VALUE
-ruby_xml_parser_context_subset_name_get(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->intSubName == NULL)
-    return(Qnil);
-  else
-    return(rb_str_new2((const char*)rxpc->ctxt->intSubName));
-}
-
-
-/*
- * call-seq:
- *    context.subset_external_uri => "uri"
- * 
- * Obtain this context's external subset URI. (valid only if
- * either of subset_external? or subset_internal?
- * is true).
- */
-VALUE
-ruby_xml_parser_context_subset_external_uri_get(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->extSubURI == NULL)
-    return(Qnil);
-  else
-    return(rb_str_new2((const char*)rxpc->ctxt->extSubURI));
-}
-
-
-/*
- * call-seq:
- *    context.subset_external_system_id => "system_id"
- * 
- * Obtain this context's external subset system identifier. 
- * (valid only if either of subset_external? or subset_internal?
- * is true).
- */
-VALUE
-ruby_xml_parser_context_subset_external_system_id_get(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->extSubSystem == NULL)
-    return(Qnil);
-  else
-    return(rb_str_new2((const char*)rxpc->ctxt->extSubSystem));
-}
-
-
-/*
- * call-seq:
- *    context.standalone? => (true|false)
- * 
- * Determine whether this is a standalone context.
- */
-VALUE
-ruby_xml_parser_context_standalone_q(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->standalone)
-    return(Qtrue);
-  else
-    return(Qfalse);
-}
-
-
-/*
- * call-seq:
- *    context.stats? => (true|false)
- * 
- * Determine whether this context maintains statistics.
- */
-VALUE
-ruby_xml_parser_context_stats_q(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->record_info)
-    return(Qtrue);
-  else
-    return(Qfalse);
-}
-
-
-/*
- * call-seq:
- *    context.valid? => (true|false)
- * 
- * Determine whether this context is valid.
- */
-VALUE
-ruby_xml_parser_context_valid_q(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->valid)
-    return(Qtrue);
-  else
-    return(Qfalse);
-}
-
-
-/*
- * call-seq:
- *    context.validate? => (true|false)
- * 
- * Determine whether validation is enabled in this context.
- */
-VALUE
-ruby_xml_parser_context_validate_q(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->validate)
-    return(Qtrue);
-  else
-    return(Qfalse);
-}
-
-
-/*
- * call-seq:
- *    context.version => "version"
- * 
- * Obtain this context's version identifier.
- */
-VALUE
-ruby_xml_parser_context_version_get(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->version == NULL)
-    return(Qnil);
-  else
-    return(rb_str_new2((const char*)rxpc->ctxt->version));
-}
-
-
-/*
- * call-seq:
- *    context.well_formed? => (true|false)
- * 
- * Determine whether this context contains well-formed XML.
- */
-VALUE
-ruby_xml_parser_context_well_formed_q(VALUE self) {
-  ruby_xml_parser_context *rxpc;
-  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
-
-  if (rxpc->ctxt->wellFormed)
-    return(Qtrue);
-  else
-    return(Qfalse);
-}
-
-
-// Rdoc needs to know 
-#ifdef RDOC_NEVER_DEFINED
-  mXML = rb_define_module("XML");
-  cXMLParser = rb_define_class_under(mXML, "Parser", rb_cObject);
-#endif
-
-void
-ruby_init_xml_parser_context(void) {
-  cXMLParserContext = rb_define_class_under(cXMLParser, "Context", rb_cObject);
-
-  rb_define_method(cXMLParserContext, "data_directory", ruby_xml_parser_context_data_directory_get, 0);
-  rb_define_method(cXMLParserContext, "depth", ruby_xml_parser_context_depth_get, 0);
-  rb_define_method(cXMLParserContext, "disable_sax?", ruby_xml_parser_context_disable_sax_q, 0);
-  rb_define_method(cXMLParserContext, "doc", ruby_xml_parser_context_doc_get, 0);
-  rb_define_method(cXMLParserContext, "docbook?", ruby_xml_parser_context_docbook_q, 0);
-  rb_define_method(cXMLParserContext, "encoding", ruby_xml_parser_context_encoding_get, 0);
-  rb_define_method(cXMLParserContext, "errno", ruby_xml_parser_context_errno_get, 0);
-  rb_define_method(cXMLParserContext, "html?", ruby_xml_parser_context_html_q, 0);
-  rb_define_method(cXMLParserContext, "io_max_num_streams", ruby_xml_parser_context_io_max_num_streams_get, 0);
-  rb_define_method(cXMLParserContext, "io_num_streams", ruby_xml_parser_context_io_num_streams_get, 0);
-  rb_define_method(cXMLParserContext, "keep_blanks?", ruby_xml_parser_context_keep_blanks_q, 0);
-  rb_define_method(cXMLParserContext, "name_node", ruby_xml_parser_context_name_node_get, 0);
-  rb_define_method(cXMLParserContext, "name_depth", ruby_xml_parser_context_name_depth_get, 0);
-  rb_define_method(cXMLParserContext, "name_depth_max", ruby_xml_parser_context_name_depth_max_get, 0);
-  rb_define_method(cXMLParserContext, "name_tab", ruby_xml_parser_context_name_tab_get, 0);
-  rb_define_method(cXMLParserContext, "node", ruby_xml_parser_context_node_get, 0);
-  rb_define_method(cXMLParserContext, "node_depth", ruby_xml_parser_context_node_depth_get, 0);
-  rb_define_method(cXMLParserContext, "node_depth_max", ruby_xml_parser_context_node_depth_max_get, 0);
-  rb_define_method(cXMLParserContext, "num_chars", ruby_xml_parser_context_num_chars_get, 0);
-  rb_define_method(cXMLParserContext, "replace_entities?", ruby_xml_parser_context_replace_entities_q, 0);
-  rb_define_method(cXMLParserContext, "replace_entities=", ruby_xml_parser_context_replace_entities_set, 1);
-  rb_define_method(cXMLParserContext, "space_depth", ruby_xml_parser_context_space_depth_get, 0);
-  rb_define_method(cXMLParserContext, "space_depth_max", ruby_xml_parser_context_space_depth_max_get, 0);
-  rb_define_method(cXMLParserContext, "subset_external?", ruby_xml_parser_context_subset_external_q, 0);
-  rb_define_method(cXMLParserContext, "subset_external_system_id", ruby_xml_parser_context_subset_external_system_id_get, 0);
-  rb_define_method(cXMLParserContext, "subset_external_uri", ruby_xml_parser_context_subset_name_get, 0);
-  rb_define_method(cXMLParserContext, "subset_internal?", ruby_xml_parser_context_subset_internal_q, 0);
-  rb_define_method(cXMLParserContext, "subset_internal_name", ruby_xml_parser_context_subset_name_get, 0);
-  rb_define_method(cXMLParserContext, "stats?", ruby_xml_parser_context_stats_q, 0);
-  rb_define_method(cXMLParserContext, "standalone?", ruby_xml_parser_context_standalone_q, 0);
-  rb_define_method(cXMLParserContext, "valid", ruby_xml_parser_context_valid_q, 0);
-  rb_define_method(cXMLParserContext, "validate?", ruby_xml_parser_context_validate_q, 0);
-  rb_define_method(cXMLParserContext, "version", ruby_xml_parser_context_version_get, 0);
-  rb_define_method(cXMLParserContext, "well_formed?", ruby_xml_parser_context_well_formed_q, 0);
-}
+/* $Id: ruby_xml_parser_context.c 300 2008-07-01 19:14:15Z cfis $ */
+
+/* Please see the LICENSE file for copyright and distribution information */
+
+#include "ruby_libxml.h"
+#include "ruby_xml_parser_context.h"
+
+/* TODO:
+ *
+ * *) xmlParserInput class/structure
+ * *) errNo and mappings
+ * *) validity context
+ * *) record_info or stats class/structure
+ * *) xmlParserNodeInfoSeq
+ * *) xmlParserInputState
+ */
+VALUE cXMLParserContext;
+
+/*
+ * call-seq:
+ *    context.data_directory => "dir"
+ * 
+ * Obtain the data directory associated with this context.
+ */
+VALUE
+ruby_xml_parser_context_data_directory_get(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->directory == NULL)
+    return(Qnil);
+  else
+    return(rb_str_new2(rxpc->ctxt->directory));
+}
+
+
+/*
+ * call-seq:
+ *    context.depth => num
+ * 
+ * Obtain the depth of this context.
+ */
+VALUE
+ruby_xml_parser_context_depth_get(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  return(INT2NUM(rxpc->ctxt->depth));
+}
+
+
+/*
+ * call-seq:
+ *    context.disable_sax? => (true|false)
+ * 
+ * Determine whether SAX-based processing is disabled
+ * in this context.
+ */
+VALUE
+ruby_xml_parser_context_disable_sax_q(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->disableSAX)
+    return(Qtrue);
+  else
+    return(Qfalse);
+}
+
+
+/*
+ * call-seq:
+ *    context.doc => document
+ * 
+ * Obtain the +XML::Document+ associated with this context.
+ */
+VALUE
+ruby_xml_parser_context_doc_get(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->myDoc == NULL)
+    return(Qnil);
+
+  return(ruby_xml_document_wrap(rxpc->ctxt->myDoc));
+}
+
+
+/*
+ * call-seq:
+ *    context.docbook? => (true|false)
+ * 
+ * Determine whether this is a docbook context.
+ */
+VALUE
+ruby_xml_parser_context_docbook_q(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->html == 2)    // TODO check this
+    return(Qtrue);
+  else
+    return(Qfalse);
+}
+
+
+/*
+ * call-seq:
+ *    context.encoding => "encoding"
+ * 
+ * Obtain the character encoding identifier used in
+ * this context.
+ */
+VALUE
+ruby_xml_parser_context_encoding_get(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->encoding == NULL)
+    return(Qnil);
+  else
+    return(rb_str_new2((const char*)rxpc->ctxt->encoding));
+}
+
+
+/*
+ * call-seq:
+ *    context.errno => num
+ * 
+ * Obtain the last-error number in this context.
+ */
+VALUE
+ruby_xml_parser_context_errno_get(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  return(INT2NUM(rxpc->ctxt->errNo));
+}
+
+
+void
+ruby_xml_parser_context_free(ruby_xml_parser_context *rxpc) {
+  if (rxpc->ctxt != NULL) {
+    xmlFreeParserCtxt(rxpc->ctxt);
+    rxpc->ctxt = NULL;
+  }
+
+  ruby_xfree(rxpc);
+}
+
+void
+ruby_xml_parser_context_mark(void *v) {
+  if ( v == NULL ) return;
+  ruby_xml_state_marker();
+}
+
+/*
+ * call-seq:
+ *    context.html? => (true|false)
+ * 
+ * Determine whether this is an html context.
+ */
+VALUE
+ruby_xml_parser_context_html_q(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->html == 1)
+    return(Qtrue);
+  else
+    return(Qfalse);
+}
+
+
+/*
+ * call-seq:
+ *    context.max_num_streams => num
+ * 
+ * Obtain the limit on the number of IO streams opened in
+ * this context.
+ */
+VALUE
+ruby_xml_parser_context_io_max_num_streams_get(VALUE self) {
+  // TODO alias to max_streams and dep this? 
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  return(INT2NUM(rxpc->ctxt->inputMax));
+}
+
+
+/*
+ * call-seq:
+ *    context.num_streams => "dir"
+ * 
+ * Obtain the actual number of IO streams in this
+ * context.
+ */
+VALUE
+ruby_xml_parser_context_io_num_streams_get(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  return(INT2NUM(rxpc->ctxt->inputNr));
+}
+
+
+/*
+ * call-seq:
+ *    context.keep_blanks? => (true|false)
+ * 
+ * Determine whether parsers in this context retain 
+ * whitespace.
+ */
+VALUE
+ruby_xml_parser_context_keep_blanks_q(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->keepBlanks)
+    return(Qtrue);
+  else
+    return(Qfalse);
+}
+
+
+/*
+ * call-seq:
+ *    context.name_depth => num
+ * 
+ * Obtain the name depth for this context.
+ */
+VALUE
+ruby_xml_parser_context_name_depth_get(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  return(INT2NUM(rxpc->ctxt->nameNr));
+}
+
+
+/*
+ * call-seq:
+ *    context.name_depth_max => num
+ * 
+ * Obtain the maximum name depth for this context.
+ */
+VALUE
+ruby_xml_parser_context_name_depth_max_get(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  return(INT2NUM(rxpc->ctxt->nameMax));
+}
+
+
+/*
+ * call-seq:
+ *    context.name_node => "name"
+ * 
+ * Obtain the name node for this context.
+ */
+VALUE
+ruby_xml_parser_context_name_node_get(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->name == NULL)
+    return(Qnil);
+  else
+    return(rb_str_new2((const char*)rxpc->ctxt->name));
+}
+
+
+/*
+ * call-seq:
+ *    context.name_tab => ["name", ..., "name"]
+ * 
+ * Obtain the name table for this context.
+ */
+VALUE
+ruby_xml_parser_context_name_tab_get(VALUE self) {
+  int i;
+  ruby_xml_parser_context *rxpc;
+  VALUE tab_ary;
+
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->nameTab == NULL)
+    return(Qnil);
+
+  tab_ary = rb_ary_new();
+
+  for (i = (rxpc->ctxt->nameNr - 1); i >= 0; i--) {
+    if (rxpc->ctxt->nameTab[i] == NULL)
+      continue;
+    else
+      rb_ary_push(tab_ary, rb_str_new2((const char*)rxpc->ctxt->nameTab[i]));
+  }
+
+  return(tab_ary);
+}
+
+
+/*
+ * call-seq:
+ *    context.node_depth => num
+ * 
+ * Obtain the node depth for this context.
+ */
+VALUE
+ruby_xml_parser_context_node_depth_get(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  return(INT2NUM(rxpc->ctxt->nodeNr));
+}
+
+
+/*
+ * call-seq:
+ *    context.node => node
+ * 
+ * Obtain the root node of this context.
+ */
+VALUE
+ruby_xml_parser_context_node_get(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->node == NULL)
+    return(Qnil);
+  else
+    return(ruby_xml_node2_wrap(cXMLNode,
+			      rxpc->ctxt->node));
+}
+
+
+/*
+ * call-seq:
+ *    context.node_depth_max => num
+ * 
+ * Obtain the maximum node depth for this context.
+ */
+VALUE
+ruby_xml_parser_context_node_depth_max_get(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  return(INT2NUM(rxpc->ctxt->nodeMax));
+}
+
+
+/*
+ * call-seq:
+ *    context.num_chars => num
+ * 
+ * Obtain the number of characters in this context.
+ */
+VALUE
+ruby_xml_parser_context_num_chars_get(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  return(LONG2NUM(rxpc->ctxt->nbChars));
+}
+
+
+VALUE
+ruby_xml_parser_context_new(VALUE class, xmlParserCtxtPtr ctxt) {
+  ruby_xml_parser_context *rxpc;
+
+  rxpc = ALLOC(ruby_xml_parser_context);
+
+  rxpc->ctxt = ctxt;
+  return Data_Wrap_Struct(class,
+			  ruby_xml_parser_context_mark,
+			  ruby_xml_parser_context_free,
+			  rxpc);
+}
+
+
+VALUE
+ruby_xml_parser_context_new2(VALUE class) {
+  return(ruby_xml_parser_context_new(class, NULL));
+}
+
+
+VALUE
+ruby_xml_parser_context_new3() {
+  return(ruby_xml_parser_context_new2(cXMLParserContext));
+}
+
+
+VALUE
+ruby_xml_parser_context_options_set(VALUE self, VALUE options) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (xmlCtxtUseOptions(rxpc->ctxt, NUM2INT(options)))
+       return Qfalse;
+  else
+       return Qtrue;
+}
+
+VALUE
+ruby_xml_parser_context_options_get(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+  return INT2NUM(rxpc->ctxt->options);
+}
+
+/*
+ * call-seq:
+ *    context.replace_entities? => (true|false)
+ * 
+ * Determine whether external entity replacement is enabled in this 
+ * context.
+ */
+VALUE
+ruby_xml_parser_context_replace_entities_q(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->replaceEntities)
+    return(Qtrue);
+  else
+    return(Qfalse);
+}
+
+
+/*
+ * call-seq:
+ *    context.replace_entities = true|false
+ * 
+ * Control whether external entity replacement is enabled in this
+ * context.
+ */
+VALUE
+ruby_xml_parser_context_replace_entities_set(VALUE self, VALUE bool) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (TYPE(bool) == T_FALSE) {
+    rxpc->ctxt->replaceEntities = 0;
+    return(Qfalse);
+  } else {
+    rxpc->ctxt->replaceEntities = 1;
+    return(Qfalse);
+  }
+}
+
+
+/*
+ * call-seq:
+ *    context.reset
+ * 
+ * Resets the parser context.
+ */
+VALUE
+ruby_xml_parser_context_reset(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+  xmlCtxtReset(rxpc->ctxt);
+}
+
+/*
+ * call-seq:
+ *    context.space_depth => num
+ * 
+ * Obtain the space depth for this context.
+ */
+VALUE
+ruby_xml_parser_context_space_depth_get(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  return(INT2NUM(rxpc->ctxt->spaceNr));
+}
+
+
+/*
+ * call-seq:
+ *    context.space_depth => num
+ * 
+ * Obtain the maximum space depth for this context.
+ */
+VALUE
+ruby_xml_parser_context_space_depth_max_get(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  return(INT2NUM(rxpc->ctxt->spaceMax));
+}
+
+
+/*
+ * call-seq:
+ *    context.subset_external? => (true|false)
+ * 
+ * Determine whether this context is a subset of an
+ * external context.
+ */
+VALUE
+ruby_xml_parser_context_subset_external_q(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->inSubset == 2)
+    return(Qtrue);
+  else
+    return(Qfalse);
+}
+
+
+/*
+ * call-seq:
+ *    context.subset_internal? => (true|false)
+ * 
+ * Determine whether this context is a subset of an
+ * internal context.
+ */
+VALUE
+ruby_xml_parser_context_subset_internal_q(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->inSubset == 1)
+    return(Qtrue);
+  else
+    return(Qfalse);
+}
+
+
+/*
+ * call-seq:
+ *    context.subset_name => "name"
+ * 
+ * Obtain this context's subset name (valid only if
+ * either of subset_external? or subset_internal?
+ * is true).
+ */
+VALUE
+ruby_xml_parser_context_subset_name_get(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->intSubName == NULL)
+    return(Qnil);
+  else
+    return(rb_str_new2((const char*)rxpc->ctxt->intSubName));
+}
+
+
+/*
+ * call-seq:
+ *    context.subset_external_uri => "uri"
+ * 
+ * Obtain this context's external subset URI. (valid only if
+ * either of subset_external? or subset_internal?
+ * is true).
+ */
+VALUE
+ruby_xml_parser_context_subset_external_uri_get(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->extSubURI == NULL)
+    return(Qnil);
+  else
+    return(rb_str_new2((const char*)rxpc->ctxt->extSubURI));
+}
+
+
+/*
+ * call-seq:
+ *    context.subset_external_system_id => "system_id"
+ * 
+ * Obtain this context's external subset system identifier. 
+ * (valid only if either of subset_external? or subset_internal?
+ * is true).
+ */
+VALUE
+ruby_xml_parser_context_subset_external_system_id_get(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->extSubSystem == NULL)
+    return(Qnil);
+  else
+    return(rb_str_new2((const char*)rxpc->ctxt->extSubSystem));
+}
+
+
+/*
+ * call-seq:
+ *    context.standalone? => (true|false)
+ * 
+ * Determine whether this is a standalone context.
+ */
+VALUE
+ruby_xml_parser_context_standalone_q(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->standalone)
+    return(Qtrue);
+  else
+    return(Qfalse);
+}
+
+
+/*
+ * call-seq:
+ *    context.stats? => (true|false)
+ * 
+ * Determine whether this context maintains statistics.
+ */
+VALUE
+ruby_xml_parser_context_stats_q(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->record_info)
+    return(Qtrue);
+  else
+    return(Qfalse);
+}
+
+
+/*
+ * call-seq:
+ *    context.valid? => (true|false)
+ * 
+ * Determine whether this context is valid.
+ */
+VALUE
+ruby_xml_parser_context_valid_q(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->valid)
+    return(Qtrue);
+  else
+    return(Qfalse);
+}
+
+
+/*
+ * call-seq:
+ *    context.validate? => (true|false)
+ * 
+ * Determine whether validation is enabled in this context.
+ */
+VALUE
+ruby_xml_parser_context_validate_q(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->validate)
+    return(Qtrue);
+  else
+    return(Qfalse);
+}
+
+
+/*
+ * call-seq:
+ *    context.version => "version"
+ * 
+ * Obtain this context's version identifier.
+ */
+VALUE
+ruby_xml_parser_context_version_get(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->version == NULL)
+    return(Qnil);
+  else
+    return(rb_str_new2((const char*)rxpc->ctxt->version));
+}
+
+
+/*
+ * call-seq:
+ *    context.well_formed? => (true|false)
+ * 
+ * Determine whether this context contains well-formed XML.
+ */
+VALUE
+ruby_xml_parser_context_well_formed_q(VALUE self) {
+  ruby_xml_parser_context *rxpc;
+  Data_Get_Struct(self, ruby_xml_parser_context, rxpc);
+
+  if (rxpc->ctxt->wellFormed)
+    return(Qtrue);
+  else
+    return(Qfalse);
+}
+
+
+// Rdoc needs to know 
+#ifdef RDOC_NEVER_DEFINED
+  mXML = rb_define_module("XML");
+  cXMLParser = rb_define_class_under(mXML, "Parser", rb_cObject);
+#endif
+
+void
+ruby_init_xml_parser_context(void) {
+  cXMLParserContext = rb_define_class_under(cXMLParser, "Context", rb_cObject);
+
+  rb_define_method(cXMLParserContext, "data_directory", ruby_xml_parser_context_data_directory_get, 0);
+  rb_define_method(cXMLParserContext, "depth", ruby_xml_parser_context_depth_get, 0);
+  rb_define_method(cXMLParserContext, "disable_sax?", ruby_xml_parser_context_disable_sax_q, 0);
+  rb_define_method(cXMLParserContext, "doc", ruby_xml_parser_context_doc_get, 0);
+  rb_define_method(cXMLParserContext, "docbook?", ruby_xml_parser_context_docbook_q, 0);
+  rb_define_method(cXMLParserContext, "encoding", ruby_xml_parser_context_encoding_get, 0);
+  rb_define_method(cXMLParserContext, "errno", ruby_xml_parser_context_errno_get, 0);
+  rb_define_method(cXMLParserContext, "html?", ruby_xml_parser_context_html_q, 0);
+  rb_define_method(cXMLParserContext, "io_max_num_streams", ruby_xml_parser_context_io_max_num_streams_get, 0);
+  rb_define_method(cXMLParserContext, "io_num_streams", ruby_xml_parser_context_io_num_streams_get, 0);
+  rb_define_method(cXMLParserContext, "keep_blanks?", ruby_xml_parser_context_keep_blanks_q, 0);
+  rb_define_method(cXMLParserContext, "name_node", ruby_xml_parser_context_name_node_get, 0);
+  rb_define_method(cXMLParserContext, "name_depth", ruby_xml_parser_context_name_depth_get, 0);
+  rb_define_method(cXMLParserContext, "name_depth_max", ruby_xml_parser_context_name_depth_max_get, 0);
+  rb_define_method(cXMLParserContext, "name_tab", ruby_xml_parser_context_name_tab_get, 0);
+  rb_define_method(cXMLParserContext, "node", ruby_xml_parser_context_node_get, 0);
+  rb_define_method(cXMLParserContext, "node_depth", ruby_xml_parser_context_node_depth_get, 0);
+  rb_define_method(cXMLParserContext, "node_depth_max", ruby_xml_parser_context_node_depth_max_get, 0);
+  rb_define_method(cXMLParserContext, "num_chars", ruby_xml_parser_context_num_chars_get, 0);
+  rb_define_method(cXMLParserContext, "options", ruby_xml_parser_context_options_get, 0);
+  rb_define_method(cXMLParserContext, "options=", ruby_xml_parser_context_options_set, 1);
+  rb_define_method(cXMLParserContext, "replace_entities?", ruby_xml_parser_context_replace_entities_q, 0);
+  rb_define_method(cXMLParserContext, "replace_entities=", ruby_xml_parser_context_replace_entities_set, 1);
+  rb_define_method(cXMLParserContext, "reset", ruby_xml_parser_context_reset, 0);
+  rb_define_method(cXMLParserContext, "space_depth", ruby_xml_parser_context_space_depth_get, 0);
+  rb_define_method(cXMLParserContext, "space_depth_max", ruby_xml_parser_context_space_depth_max_get, 0);
+  rb_define_method(cXMLParserContext, "subset_external?", ruby_xml_parser_context_subset_external_q, 0);
+  rb_define_method(cXMLParserContext, "subset_external_system_id", ruby_xml_parser_context_subset_external_system_id_get, 0);
+  rb_define_method(cXMLParserContext, "subset_external_uri", ruby_xml_parser_context_subset_name_get, 0);
+  rb_define_method(cXMLParserContext, "subset_internal?", ruby_xml_parser_context_subset_internal_q, 0);
+  rb_define_method(cXMLParserContext, "subset_internal_name", ruby_xml_parser_context_subset_name_get, 0);
+  rb_define_method(cXMLParserContext, "stats?", ruby_xml_parser_context_stats_q, 0);
+  rb_define_method(cXMLParserContext, "standalone?", ruby_xml_parser_context_standalone_q, 0);
+  rb_define_method(cXMLParserContext, "valid", ruby_xml_parser_context_valid_q, 0);
+  rb_define_method(cXMLParserContext, "validate?", ruby_xml_parser_context_validate_q, 0);
+  rb_define_method(cXMLParserContext, "version", ruby_xml_parser_context_version_get, 0);
+  rb_define_method(cXMLParserContext, "well_formed?", ruby_xml_parser_context_well_formed_q, 0);
+}