nokogiri 1.3.0-x86-mswin32

data/ext/nokogiri/xml_reader.h

@@ -0,0 +1,10 @@
+#ifndef NOKOGIRI_XML_READER
+#define NOKOGIRI_XML_READER
+
+#include <nokogiri.h>
+
+void init_xml_reader();
+
+extern VALUE cNokogiriXmlReader;
+
+#endif

data/ext/nokogiri/xml_relax_ng.c

@@ -0,0 +1,106 @@
+#include <xml_relax_ng.h>
+
+static void dealloc(xmlRelaxNGPtr schema)
+{
+  NOKOGIRI_DEBUG_START(schema);
+  xmlRelaxNGFree(schema);
+  NOKOGIRI_DEBUG_END(schema);
+}
+
+/*
+ * call-seq:
+ *  validate_document(document)
+ *
+ * Validate a Nokogiri::XML::Document against this RelaxNG schema.
+ */
+static VALUE validate_document(VALUE self, VALUE document)
+{
+  xmlDocPtr doc;
+  xmlRelaxNGPtr schema;
+
+  Data_Get_Struct(self, xmlRelaxNG, schema);
+  Data_Get_Struct(document, xmlDoc, doc);
+
+  VALUE errors = rb_ary_new();
+
+  xmlRelaxNGValidCtxtPtr valid_ctxt = xmlRelaxNGNewValidCtxt(schema);
+
+  if(NULL == valid_ctxt) {
+    // we have a problem
+    rb_raise(rb_eRuntimeError, "Could not create a validation context");
+  }
+
+  if (! is_2_6_16()) {
+    xmlRelaxNGSetValidStructuredErrors(
+      valid_ctxt,
+      Nokogiri_error_array_pusher,
+      (void *)errors
+    );
+  }
+
+  xmlRelaxNGValidateDoc(valid_ctxt, doc);
+
+  xmlRelaxNGFreeValidCtxt(valid_ctxt);
+
+  return errors;
+}
+
+/*
+ * call-seq:
+ *  read_memory(string)
+ *
+ * Create a new RelaxNG from the contents of +string+
+ */
+static VALUE read_memory(VALUE klass, VALUE content)
+{
+  xmlRelaxNGParserCtxtPtr ctx = xmlRelaxNGNewMemParserCtxt(
+      (const char *)StringValuePtr(content),
+      RSTRING_LEN(content)
+  );
+
+  VALUE errors = rb_ary_new();
+  xmlSetStructuredErrorFunc((void *)errors, Nokogiri_error_array_pusher);
+
+  if (! is_2_6_16()) {
+    xmlRelaxNGSetParserStructuredErrors(
+      ctx,
+      Nokogiri_error_array_pusher,
+      (void *)errors
+    );
+  }
+
+  xmlRelaxNGPtr schema = xmlRelaxNGParse(ctx);
+
+  xmlSetStructuredErrorFunc(NULL, NULL);
+  xmlRelaxNGFreeParserCtxt(ctx);
+
+  if(NULL == schema) {
+    xmlErrorPtr error = xmlGetLastError();
+    if(error)
+      rb_funcall(rb_mKernel, rb_intern("raise"), 1,
+          Nokogiri_wrap_xml_syntax_error((VALUE)NULL, error)
+      );
+    else
+      rb_raise(rb_eRuntimeError, "Could not parse document");
+
+    return Qnil;
+  }
+
+  VALUE rb_schema = Data_Wrap_Struct(klass, 0, dealloc, schema);
+  rb_iv_set(rb_schema, "@errors", errors);
+
+  return rb_schema;
+}
+
+VALUE cNokogiriXmlRelaxNG;
+void init_xml_relax_ng()
+{
+  VALUE nokogiri = rb_define_module("Nokogiri");
+  VALUE xml = rb_define_module_under(nokogiri, "XML");
+  VALUE klass = rb_define_class_under(xml, "RelaxNG", cNokogiriXmlSchema);
+
+  cNokogiriXmlRelaxNG = klass;
+
+  rb_define_singleton_method(klass, "read_memory", read_memory, 1);
+  rb_define_private_method(klass, "validate_document", validate_document, 1);
+}

data/ext/nokogiri/xml_relax_ng.h

@@ -0,0 +1,9 @@
+#ifndef NOKOGIRI_XML_RELAX_NG
+#define NOKOGIRI_XML_RELAX_NG
+
+#include <nokogiri.h>
+
+void init_xml_relax_ng();
+
+extern VALUE cNokogiriXmlRelaxNG;
+#endif

data/ext/nokogiri/xml_sax_parser.c

@@ -0,0 +1,336 @@
+#include <nokogiri.h>
+
+/*
+ * call-seq:
+ *  parse_memory(data)
+ *
+ * Parse the document stored in +data+
+ */
+static VALUE parse_memory(VALUE self, VALUE data)
+{
+  xmlSAXHandlerPtr handler;
+  Data_Get_Struct(self, xmlSAXHandler, handler);
+
+  if(Qnil == data) rb_raise(rb_eArgError, "data cannot be nil");
+
+  xmlSAXUserParseMemory(  handler,
+                          (void *)self,
+                          StringValuePtr(data),
+                          RSTRING_LEN(data)
+  );
+  return data;
+}
+
+/*
+ * call-seq:
+ *  native_parse_io(data, encoding)
+ *
+ * Parse the document accessable via +io+
+ */
+static VALUE native_parse_io(VALUE self, VALUE io, VALUE encoding)
+{
+  xmlSAXHandlerPtr handler;
+  Data_Get_Struct(self, xmlSAXHandler, handler);
+
+  xmlCharEncoding enc = (xmlCharEncoding)NUM2INT(encoding); 
+
+  xmlParserCtxtPtr sax_ctx = xmlCreateIOParserCtxt(
+      handler,
+      (void *)self,
+      (xmlInputReadCallback)io_read_callback,
+      (xmlInputCloseCallback)io_close_callback,
+      (void *)io,
+      enc
+  );
+  xmlParseDocument(sax_ctx);
+  xmlFreeParserCtxt(sax_ctx);
+  return io;
+}
+
+/*
+ * call-seq:
+ *  native_parse_file(data)
+ *
+ * Parse the document stored in +data+
+ */
+static VALUE native_parse_file(VALUE self, VALUE data)
+{
+  xmlSAXHandlerPtr handler;
+  Data_Get_Struct(self, xmlSAXHandler, handler);
+  xmlSAXUserParseFile(  handler,
+                        (void *)self,
+                        StringValuePtr(data)
+  );
+  return data;
+}
+
+static void start_document(void * ctx)
+{
+  VALUE self = (VALUE)ctx;
+  VALUE doc = rb_funcall(self, rb_intern("document"), 0);
+  rb_funcall(doc, rb_intern("start_document"), 0);
+}
+
+static void end_document(void * ctx)
+{
+  VALUE self = (VALUE)ctx;
+  VALUE doc = rb_funcall(self, rb_intern("document"), 0);
+  rb_funcall(doc, rb_intern("end_document"), 0);
+}
+
+static void start_element(void * ctx, const xmlChar *name, const xmlChar **atts)
+{
+  VALUE self = (VALUE)ctx;
+  VALUE doc = rb_funcall(self, rb_intern("document"), 0);
+  VALUE attributes = rb_ary_new();
+  VALUE MAYBE_UNUSED(enc) = rb_iv_get(self, "@encoding");
+  const xmlChar * attr;
+  int i = 0;
+  if(atts) {
+    while((attr = atts[i]) != NULL) {
+      rb_funcall(attributes, rb_intern("<<"), 1,
+          NOKOGIRI_STR_NEW2(attr, RTEST(enc) ? StringValuePtr(enc) : NULL)
+      );
+      i++;
+    }
+  }
+
+  rb_funcall( doc,
+              rb_intern("start_element"),
+              2,
+              NOKOGIRI_STR_NEW2(name, RTEST(enc) ? StringValuePtr(enc) : NULL),
+              attributes
+  );
+}
+
+static void end_element(void * ctx, const xmlChar *name)
+{
+  VALUE self = (VALUE)ctx;
+  VALUE MAYBE_UNUSED(enc) = rb_iv_get(self, "@encoding");
+  VALUE doc = rb_funcall(self, rb_intern("document"), 0);
+  rb_funcall(doc, rb_intern("end_element"), 1,
+      NOKOGIRI_STR_NEW2(name, RTEST(enc) ? StringValuePtr(enc) : NULL)
+  );
+}
+
+/**
+ * start_element_ns was borrowed heavily from libxml-ruby. 
+ */
+static void
+start_element_ns (
+  void * ctx,
+  const xmlChar * localname,
+  const xmlChar * prefix,
+  const xmlChar * URI,
+  int nb_namespaces,
+  const xmlChar ** namespaces,
+  int nb_attributes,
+  int nb_defaulted,
+  const xmlChar ** attributes)
+{
+  VALUE self = (VALUE)ctx;
+  VALUE doc = rb_funcall(self, rb_intern("document"), 0);
+  VALUE MAYBE_UNUSED(enc) = rb_iv_get(self, "@encoding");
+
+  VALUE attrHash = rb_hash_new();
+  VALUE nsHash = rb_hash_new();
+
+  if (attributes)
+  {
+    /* Each attribute is an array of [localname, prefix, URI, value, end] */
+    int i;
+    for (i = 0; i < nb_attributes * 5; i += 5)
+    {
+      rb_hash_aset( attrHash,
+                    NOKOGIRI_STR_NEW2((const char*)attributes[i+0], RTEST(enc) ? StringValuePtr(enc) : NULL),
+                    NOKOGIRI_STR_NEW((const char*)attributes[i+3], (attributes[i+4] - attributes[i+3]), RTEST(enc) ? StringValuePtr(enc) : NULL));
+    }
+  }
+
+  if (namespaces)
+  {
+    int i;
+    for (i = 0; i < nb_namespaces * 2; i += 2)
+    {
+      rb_hash_aset( nsHash,
+                    namespaces[i+0] ? NOKOGIRI_STR_NEW2((const char*)namespaces[i+0], RTEST(enc) ? StringValuePtr(enc) : NULL) : Qnil,
+                    namespaces[i+1] ? NOKOGIRI_STR_NEW2((const char*)namespaces[i+1], RTEST(enc) ? StringValuePtr(enc) : NULL) : Qnil);
+    }
+  }
+
+  rb_funcall( doc,
+              rb_intern("start_element_ns"),
+              5,
+              NOKOGIRI_STR_NEW2(localname, RTEST(enc) ? StringValuePtr(enc) : NULL),
+              attrHash,
+              prefix ? NOKOGIRI_STR_NEW2(prefix, RTEST(enc) ? StringValuePtr(enc) : NULL) : Qnil,
+              URI ? NOKOGIRI_STR_NEW2(URI, RTEST(enc) ? StringValuePtr(enc) : NULL) : Qnil,
+              nsHash
+  );
+
+  /* Call start element if it's there' */
+  if (rb_respond_to(doc, rb_intern("start_element")))
+  {
+    VALUE name;
+    if (prefix)
+    {
+      name = NOKOGIRI_STR_NEW2(prefix, RTEST(enc) ? StringValuePtr(enc) : NULL);
+      rb_funcall(name, rb_intern("<<"), 1, NOKOGIRI_STR_NEW2(":", RTEST(enc) ? StringValuePtr(enc) : NULL));
+      rb_funcall(name, rb_intern("<<"), 1, NOKOGIRI_STR_NEW2(localname, RTEST(enc) ? StringValuePtr(enc) : NULL));
+    }
+    else
+    {
+      name = NOKOGIRI_STR_NEW2(localname, RTEST(enc) ? StringValuePtr(enc) : NULL);
+    }
+    VALUE attrArray = rb_funcall(attrHash, rb_intern("to_a"), 0);
+    attrArray = rb_funcall(attrArray, rb_intern("flatten"), 0);
+    rb_funcall(doc, rb_intern("start_element"), 2, name, attrArray);
+  }
+
+}
+
+/**
+ * end_element_ns was borrowed heavily from libxml-ruby. 
+ */
+static void
+end_element_ns (
+  void * ctx,
+  const xmlChar * localname,
+  const xmlChar * prefix,
+  const xmlChar * URI)
+{
+  VALUE self = (VALUE)ctx;
+  VALUE doc = rb_funcall(self, rb_intern("document"), 0);
+  VALUE MAYBE_UNUSED(enc) = rb_iv_get(self, "@encoding");
+
+  rb_funcall(doc, rb_intern("end_element_ns"), 3, 
+             NOKOGIRI_STR_NEW2(localname, RTEST(enc) ? StringValuePtr(enc) : NULL),
+             prefix ? NOKOGIRI_STR_NEW2(prefix, RTEST(enc) ? StringValuePtr(enc) : NULL) : Qnil,
+             URI ? NOKOGIRI_STR_NEW2(URI, RTEST(enc) ? StringValuePtr(enc) : NULL) : Qnil
+  );
+
+  /* Call end element for old-times sake */
+  if (rb_respond_to(doc, rb_intern("end_element")))
+  {
+    VALUE name;
+    if (prefix)
+    {
+      name = NOKOGIRI_STR_NEW2(prefix, RTEST(enc) ? StringValuePtr(enc) : NULL);
+      rb_funcall(name, rb_intern("<<"), 1, NOKOGIRI_STR_NEW2(":", RTEST(enc) ? StringValuePtr(enc) : NULL));
+      rb_funcall(name, rb_intern("<<"), 1, NOKOGIRI_STR_NEW2(localname, RTEST(enc) ? StringValuePtr(enc) : NULL));
+    }
+    else
+    {
+      name = NOKOGIRI_STR_NEW2(localname, RTEST(enc) ? StringValuePtr(enc) : NULL);
+    }
+    rb_funcall(doc, rb_intern("end_element"), 1, name);
+  }
+
+}
+
+static void characters_func(void * ctx, const xmlChar * ch, int len)
+{
+  VALUE self = (VALUE)ctx;
+  VALUE MAYBE_UNUSED(enc) = rb_iv_get(self, "@encoding");
+  VALUE doc = rb_funcall(self, rb_intern("document"), 0);
+  VALUE str = NOKOGIRI_STR_NEW(ch, len, RTEST(enc) ? StringValuePtr(enc):NULL);
+  rb_funcall(doc, rb_intern("characters"), 1, str);
+}
+
+static void comment_func(void * ctx, const xmlChar * value)
+{
+  VALUE self = (VALUE)ctx;
+  VALUE MAYBE_UNUSED(enc) = rb_iv_get(self, "@encoding");
+  VALUE doc = rb_funcall(self, rb_intern("document"), 0);
+  VALUE str = NOKOGIRI_STR_NEW2(value, RTEST(enc) ? StringValuePtr(enc):NULL);
+  rb_funcall(doc, rb_intern("comment"), 1, str);
+}
+
+static void warning_func(void * ctx, const char *msg, ...)
+{
+  VALUE self = (VALUE)ctx;
+  VALUE doc = rb_funcall(self, rb_intern("document"), 0);
+  VALUE MAYBE_UNUSED(enc) = rb_iv_get(self, "@encoding");
+  char * message;
+
+  va_list args;
+  va_start(args, msg);
+  vasprintf(&message, msg, args);
+  va_end(args);
+
+  rb_funcall(doc, rb_intern("warning"), 1,
+      NOKOGIRI_STR_NEW2(message, RTEST(enc) ? StringValuePtr(enc) : NULL)
+  );
+  free(message);
+}
+
+static void error_func(void * ctx, const char *msg, ...)
+{
+  VALUE self = (VALUE)ctx;
+  VALUE MAYBE_UNUSED(enc) = rb_iv_get(self, "@encoding");
+  VALUE doc = rb_funcall(self, rb_intern("document"), 0);
+  char * message;
+
+  va_list args;
+  va_start(args, msg);
+  vasprintf(&message, msg, args);
+  va_end(args);
+
+  rb_funcall(doc, rb_intern("error"), 1,
+      NOKOGIRI_STR_NEW2(message, RTEST(enc) ? StringValuePtr(enc) : NULL)
+  );
+  free(message);
+}
+
+static void cdata_block(void * ctx, const xmlChar * value, int len)
+{
+  VALUE self = (VALUE)ctx;
+  VALUE MAYBE_UNUSED(enc) = rb_iv_get(self, "@encoding");
+  VALUE doc = rb_funcall(self, rb_intern("document"), 0);
+  VALUE string =
+    NOKOGIRI_STR_NEW(value, len, RTEST(enc) ? StringValuePtr(enc) : NULL);
+  rb_funcall(doc, rb_intern("cdata_block"), 1, string);
+}
+
+static void deallocate(xmlSAXHandlerPtr handler)
+{
+  NOKOGIRI_DEBUG_START(handler);
+  free(handler);
+  NOKOGIRI_DEBUG_END(handler);
+}
+
+static VALUE allocate(VALUE klass)
+{
+  xmlSAXHandlerPtr handler = calloc(1, sizeof(xmlSAXHandler));
+
+  handler->startDocument = start_document;
+  handler->endDocument = end_document;
+  handler->startElement = start_element;
+  handler->endElement = end_element;
+  handler->startElementNs = start_element_ns;
+  handler->endElementNs = end_element_ns;
+  handler->characters = characters_func;
+  handler->comment = comment_func;
+  handler->warning = warning_func;
+  handler->error = error_func;
+  handler->cdataBlock = cdata_block;
+  handler->initialized = XML_SAX2_MAGIC;
+
+  return Data_Wrap_Struct(klass, NULL, deallocate, handler);
+}
+
+VALUE cNokogiriXmlSaxParser ;
+void init_xml_sax_parser()
+{
+  VALUE nokogiri  = rb_define_module("Nokogiri");
+  VALUE xml       = rb_define_module_under(nokogiri, "XML");
+  VALUE sax       = rb_define_module_under(xml, "SAX");
+  VALUE klass     = rb_define_class_under(sax, "Parser", rb_cObject);
+
+  cNokogiriXmlSaxParser = klass;
+
+  rb_define_alloc_func(klass, allocate);
+  rb_define_method(klass, "parse_memory", parse_memory, 1);
+  rb_define_private_method(klass, "native_parse_file", native_parse_file, 1);
+  rb_define_private_method(klass, "native_parse_io", native_parse_io, 2);
+}