tenderlove-nokogiri 0.0.0-x86-mswin32-60

data/ext/nokogiri/xml_sax_parser.c

@@ -0,0 +1,174 @@
+#define _GNU_SOURCE
+#include <stdio.h>
+#include <xml_sax_parser.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);
+  xmlSAXUserParseMemory(  handler,
+                          (void *)self,
+                          StringValuePtr(data),
+                          NUM2INT(rb_funcall(data, rb_intern("length"), 0))
+  );
+  return 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();
+  const xmlChar * attr;
+  int i = 0;
+  if(atts) {
+    while((attr = atts[i]) != NULL) {
+      rb_funcall(attributes, rb_intern("<<"), 1, rb_str_new2((const char *)attr));
+      i++;
+    }
+  }
+
+  rb_funcall( doc,
+              rb_intern("start_element"),
+              2,
+              rb_str_new2((const char *)name),
+              attributes
+  );
+}
+
+static void end_element(void * ctx, const xmlChar *name)
+{
+  VALUE self = (VALUE)ctx;
+  VALUE doc = rb_funcall(self, rb_intern("document"), 0);
+  rb_funcall(doc, rb_intern("end_element"), 1, rb_str_new2((const char *)name));
+}
+
+static void characters_func(void * ctx, const xmlChar * ch, int len)
+{
+  VALUE self = (VALUE)ctx;
+  VALUE doc = rb_funcall(self, rb_intern("document"), 0);
+  VALUE str = rb_str_new((const char *)ch, (long)len);
+  rb_funcall(doc, rb_intern("characters"), 1, str);
+}
+
+static void comment_func(void * ctx, const xmlChar * value)
+{
+  VALUE self = (VALUE)ctx;
+  VALUE doc = rb_funcall(self, rb_intern("document"), 0);
+  VALUE str = rb_str_new2((const char *)value);
+  rb_funcall(doc, rb_intern("comment"), 1, str);
+}
+
+#ifndef XP_WIN
+static void warning_func(void * ctx, const char *msg, ...)
+{
+  VALUE self = (VALUE)ctx;
+  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("warning"), 1, rb_str_new2(message));
+  free(message);
+}
+#endif
+
+#ifndef XP_WIN
+static void error_func(void * ctx, const char *msg, ...)
+{
+  VALUE self = (VALUE)ctx;
+  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, rb_str_new2(message));
+  free(message);
+}
+#endif
+
+static void cdata_block(void * ctx, const xmlChar * value, int len)
+{
+  VALUE self = (VALUE)ctx;
+  VALUE doc = rb_funcall(self, rb_intern("document"), 0);
+  VALUE string = rb_str_new((const char *)value, (long)len);
+  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->characters = characters_func;
+  handler->comment = comment_func;
+#ifndef XP_WIN
+  /*
+   * The va*functions aren't in ming, and I don't want to deal with
+   * it right now.....
+   *
+   */
+  handler->warning = warning_func;
+  handler->error = error_func;
+#endif
+  handler->cdataBlock = cdata_block;
+
+  return Data_Wrap_Struct(klass, NULL, deallocate, handler);
+}
+
+VALUE cNokogiriXmlSaxParser ;
+void init_xml_sax_parser()
+{
+  VALUE klass = cNokogiriXmlSaxParser =
+    rb_const_get(mNokogiriXmlSax, rb_intern("Parser"));
+  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);
+}

data/ext/nokogiri/xml_sax_parser.h

@@ -0,0 +1,10 @@
+#ifndef NOKOGIRI_XML_SAX_PARSER
+#define NOKOGIRI_XML_SAX_PARSER
+
+#include <native.h>
+
+void init_xml_sax_parser();
+
+extern VALUE cNokogiriXmlSaxParser ;
+#endif
+

data/ext/nokogiri/xml_syntax_error.c

@@ -0,0 +1,194 @@
+#include <xml_syntax_error.h>
+
+static void dealloc(xmlErrorPtr ptr)
+{
+  NOKOGIRI_DEBUG_START(ptr);
+  free(ptr);
+  NOKOGIRI_DEBUG_END(ptr);
+}
+
+/*
+ * call-seq:
+ *  column
+ *
+ * Column number or 0 if not available
+ */
+static VALUE column(VALUE self)
+{
+  xmlErrorPtr error;
+  Data_Get_Struct(self, xmlError, error);
+  return INT2NUM(error->int2);
+}
+
+/*
+ * call-seq:
+ *  int1
+ *
+ * Extra number information
+ */
+static VALUE int1(VALUE self)
+{
+  xmlErrorPtr error;
+  Data_Get_Struct(self, xmlError, error);
+  return INT2NUM(error->int1);
+}
+
+/*
+ * call-seq:
+ *  str3
+ *
+ * Extra string information
+ */
+static VALUE str3(VALUE self)
+{
+  xmlErrorPtr error;
+  Data_Get_Struct(self, xmlError, error);
+  if(error->str3)
+    return rb_str_new2(error->str3);
+  return Qnil;
+}
+
+/*
+ * call-seq:
+ *  str2
+ *
+ * Extra string information
+ */
+static VALUE str2(VALUE self)
+{
+  xmlErrorPtr error;
+  Data_Get_Struct(self, xmlError, error);
+  if(error->str2)
+    return rb_str_new2(error->str2);
+  return Qnil;
+}
+
+/*
+ * call-seq:
+ *  str1
+ *
+ * Extra string information
+ */
+static VALUE str1(VALUE self)
+{
+  xmlErrorPtr error;
+  Data_Get_Struct(self, xmlError, error);
+  if(error->str1)
+    return rb_str_new2(error->str1);
+  return Qnil;
+}
+
+/*
+ * call-seq:
+ *  line
+ *
+ * Get the line number of the error
+ */
+static VALUE line(VALUE self)
+{
+  xmlErrorPtr error;
+  Data_Get_Struct(self, xmlError, error);
+  return INT2NUM(error->line);
+}
+
+/*
+ * call-seq:
+ *  file
+ *
+ * Get the filename for the error
+ */
+static VALUE file(VALUE self)
+{
+  xmlErrorPtr error;
+  Data_Get_Struct(self, xmlError, error);
+  if(error->file)
+    return rb_str_new2(error->file);
+
+  return Qnil;
+}
+
+/*
+ * call-seq:
+ *  level
+ *
+ * Get the error level
+ */
+static VALUE level(VALUE self)
+{
+  xmlErrorPtr error;
+  Data_Get_Struct(self, xmlError, error);
+  return INT2NUM((short)error->level);
+}
+
+/*
+ * call-seq:
+ *  code
+ *
+ * Get the error code
+ */
+static VALUE code(VALUE self)
+{
+  xmlErrorPtr error;
+  Data_Get_Struct(self, xmlError, error);
+  return INT2NUM(error->code);
+}
+
+/*
+ * call-seq:
+ *  domain
+ *
+ * Get the part of the library that raised this exception
+ */
+static VALUE domain(VALUE self)
+{
+  xmlErrorPtr error;
+  Data_Get_Struct(self, xmlError, error);
+  return INT2NUM(error->domain);
+}
+
+/*
+ * call-seq:
+ *  message
+ *
+ * Get the human readable message.
+ */
+static VALUE message(VALUE self)
+{
+  xmlErrorPtr error;
+  Data_Get_Struct(self, xmlError, error);
+  return rb_str_new2(error->message);
+}
+
+void Nokogiri_error_handler(void * ctx, xmlErrorPtr error)
+{
+  // FIXME: I'm interneting this.  I *think* the pointer passed in here gets
+  // freed on its own, thats why I copy it.
+  // The files are *in* the computer.
+  xmlErrorPtr ptr = calloc(1, sizeof(xmlError));
+  xmlCopyError(error, ptr);
+
+  VALUE err = Data_Wrap_Struct(cNokogiriXmlSyntaxError, NULL, dealloc, ptr);
+  VALUE block = rb_funcall(mNokogiri, rb_intern("error_handler"), 0);
+  rb_funcall(block, rb_intern("call"), 1, err);
+}
+
+VALUE cNokogiriXmlSyntaxError;
+void init_xml_syntax_error()
+{
+  VALUE nokogiri = rb_define_module("Nokogiri");
+  VALUE xml = rb_define_module_under(nokogiri, "XML");
+  VALUE klass = rb_define_class_under(xml, "SyntaxError", rb_eSyntaxError);
+  cNokogiriXmlSyntaxError = klass;
+
+  rb_define_method(klass, "message", message, 0);
+  rb_define_method(klass, "domain", domain, 0);
+  rb_define_method(klass, "code", code, 0);
+  rb_define_method(klass, "level", level, 0);
+  rb_define_method(klass, "file", file, 0);
+  rb_define_method(klass, "line", line, 0);
+  rb_define_method(klass, "str1", str1, 0);
+  rb_define_method(klass, "str2", str2, 0);
+  rb_define_method(klass, "str3", str3, 0);
+  rb_define_method(klass, "int1", int1, 0);
+  rb_define_method(klass, "column", column, 0);
+}

data/ext/nokogiri/xml_syntax_error.h

@@ -0,0 +1,11 @@
+#ifndef NOKOGIRI_XML_SYNTAX_ERROR
+#define NOKOGIRI_XML_SYNTAX_ERROR
+
+#include <native.h>
+
+void init_xml_syntax_error();
+void Nokogiri_error_handler(void * ctx, xmlErrorPtr error);
+
+extern VALUE cNokogiriXmlSyntaxError;
+#endif
+

data/ext/nokogiri/xml_text.c

@@ -0,0 +1,29 @@
+#include <xml_text.h>
+
+static void dealloc(xmlNodePtr node)
+{
+  if (node->doc == NULL) {
+    NOKOGIRI_DEBUG_START_TEXT(node);
+    xmlFreeNode(node);
+    NOKOGIRI_DEBUG_END(node);
+  }
+}
+
+static VALUE new(VALUE klass, VALUE string)
+{
+  xmlNodePtr node = xmlNewText((xmlChar *)StringValuePtr(string));
+  VALUE rb_node = Data_Wrap_Struct(klass, NULL, dealloc, node);
+  node->_private = (void *)rb_node;
+
+  if(rb_block_given_p()) rb_yield(rb_node);
+
+  return rb_node;
+}
+
+VALUE cNokogiriXmlText ;
+void init_xml_text()
+{
+  VALUE klass = cNokogiriXmlText = rb_const_get(mNokogiriXml, rb_intern("Text"));
+
+  rb_define_singleton_method(klass, "new", new, 1);
+}

data/ext/nokogiri/xml_text.h

@@ -0,0 +1,9 @@
+#ifndef NOKOGIRI_XML_TEXT
+#define NOKOGIRI_XML_TEXT
+
+#include <native.h>
+
+void init_xml_text();
+
+extern VALUE cNokogiriXmlText ;
+#endif

data/ext/nokogiri/xml_xpath.c

@@ -0,0 +1,46 @@
+#include <xml_xpath.h>
+
+static void deallocate(xmlXPathObjectPtr xpath)
+{
+  NOKOGIRI_DEBUG_START(xpath);
+  xmlXPathFreeNodeSetList(xpath); // despite the name, this frees the xpath but not the contained node set
+  NOKOGIRI_DEBUG_END(xpath);
+}
+
+VALUE Nokogiri_wrap_xml_xpath(xmlXPathObjectPtr xpath)
+{
+  return Data_Wrap_Struct(cNokogiriXmlXpath, 0, deallocate, xpath);
+}
+
+/*
+ * call-seq:
+ *  node_set
+ *
+ * Fetch the node set associated with this xpath context.
+ */
+static VALUE node_set(VALUE self)
+{
+  xmlXPathObjectPtr xpath;
+  Data_Get_Struct(self, xmlXPathObject, xpath);
+
+  if (xpath->nodesetval)
+    return Nokogiri_wrap_xml_node_set(xpath->nodesetval);
+
+  return Nokogiri_wrap_xml_node_set(xmlXPathNodeSetCreate(NULL));
+}
+
+VALUE cNokogiriXmlXpath;
+void init_xml_xpath(void)
+{
+  VALUE module = rb_define_module("Nokogiri");
+  VALUE xml = rb_define_module_under(module, "XML");
+
+  /*
+   * This class wraps an XPath object and should only be instantiated from
+   * XPathContext.
+   */
+  VALUE klass = rb_define_class_under(xml, "XPath", rb_cObject);
+
+  cNokogiriXmlXpath = klass;
+  rb_define_method(klass, "node_set", node_set, 0);
+}

data/ext/nokogiri/xml_xpath.h

@@ -0,0 +1,11 @@
+#ifndef NOKOGIRI_XML_XPATH
+#define NOKOGIRI_XML_XPATH
+
+#include <native.h>
+
+void init_xml_xpath();
+VALUE Nokogiri_wrap_xml_xpath(xmlXPathObjectPtr xpath);
+
+extern VALUE cNokogiriXmlXpath;
+#endif
+

data/ext/nokogiri/xml_xpath_context.c

@@ -0,0 +1,81 @@
+#include <xml_xpath_context.h>
+
+static void deallocate(xmlXPathContextPtr ctx)
+{
+  NOKOGIRI_DEBUG_START(ctx);
+  xmlXPathFreeContext(ctx);
+  NOKOGIRI_DEBUG_END(ctx);
+}
+
+/*
+ * call-seq:
+ *  register_ns(prefix, uri)
+ *
+ * Register the namespace with +prefix+ and +uri+.
+ */
+static VALUE register_ns(VALUE self, VALUE prefix, VALUE uri)
+{
+  xmlXPathContextPtr ctx;
+  Data_Get_Struct(self, xmlXPathContext, ctx);
+
+  xmlXPathRegisterNs( ctx,
+                      (const xmlChar *)StringValuePtr(prefix),
+                      (const xmlChar *)StringValuePtr(uri)
+  );
+  return self;
+}
+
+/*
+ * call-seq:
+ *  evaluate(search_path)
+ *
+ * Evaluate the +search_path+ returning an XML::XPath object.
+ */
+static VALUE evaluate(VALUE self, VALUE search_path)
+{
+  xmlXPathContextPtr ctx;
+  Data_Get_Struct(self, xmlXPathContext, ctx);
+
+  xmlChar* query = (xmlChar *)StringValuePtr(search_path);
+  xmlXPathObjectPtr xpath = xmlXPathEvalExpression(query, ctx);
+  if(xpath == NULL) {
+    rb_raise(rb_eRuntimeError, "Couldn't evaluate expression '%s'", query);
+  }
+  return Nokogiri_wrap_xml_xpath(xpath);
+}
+
+/*
+ * call-seq:
+ *  new(node)
+ *
+ * Create a new XPathContext with +node+ as the reference point.
+ */
+static VALUE new(VALUE klass, VALUE nodeobj)
+{
+  xmlXPathInit();
+
+  xmlNodePtr node ;
+  Data_Get_Struct(nodeobj, xmlNode, node);
+
+  xmlXPathContextPtr ctx = xmlXPathNewContext(node->doc);
+  ctx->node = node ;
+  return Data_Wrap_Struct(klass, 0, deallocate, ctx);
+}
+
+VALUE cNokogiriXmlXpathContext;
+void init_xml_xpath_context(void)
+{
+  VALUE module = rb_define_module("Nokogiri");
+  VALUE xml = rb_define_module_under(module, "XML");
+
+  /*
+   * XPathContext is the entry point for searching a Document by using XPath.
+   */
+  VALUE klass = rb_define_class_under(xml, "XPathContext", rb_cObject);
+
+  cNokogiriXmlXpathContext = klass;
+
+  rb_define_singleton_method(klass, "new", new, 1);
+  rb_define_method(klass, "evaluate", evaluate, 1);
+  rb_define_method(klass, "register_ns", register_ns, 2);
+}

data/ext/nokogiri/xml_xpath_context.h

@@ -0,0 +1,9 @@
+#ifndef NOKOGIRI_XML_XPATH_CONTEXT
+#define NOKOGIRI_XML_XPATH_CONTEXT
+
+#include <native.h>
+
+void init_xml_xpath_context();
+
+extern VALUE cNokogiriXmlXpathContext;
+#endif

data/ext/nokogiri/xslt_stylesheet.c

@@ -0,0 +1,108 @@
+#include <xslt_stylesheet.h>
+
+#include <libxslt/xsltInternals.h>
+#include <libxslt/xsltutils.h>
+#include <libxslt/transform.h>
+
+static void dealloc(xsltStylesheetPtr doc)
+{
+    NOKOGIRI_DEBUG_START(doc);
+    xsltFreeStylesheet(doc); // commented out for now.
+    NOKOGIRI_DEBUG_END(doc);
+}
+
+/*
+ * call-seq:
+ *   parse_stylesheet_doc(document)
+ *
+ * Parse a stylesheet from +document+.
+ */
+static VALUE parse_stylesheet_doc(VALUE klass, VALUE xmldocobj)
+{
+    xmlDocPtr xml ;
+    xsltStylesheetPtr ss ;
+    Data_Get_Struct(xmldocobj, xmlDoc, xml);
+    ss = xsltParseStylesheetDoc(xmlCopyDoc(xml, 1)); /* 1 => recursive */
+    return Data_Wrap_Struct(klass, NULL, dealloc, ss);
+}
+
+
+/*
+ * call-seq:
+ *   serialize(document)
+ *
+ * Serialize +document+ to an xml string.
+ */
+static VALUE serialize(VALUE self, VALUE xmlobj)
+{
+    xmlDocPtr xml ;
+    xsltStylesheetPtr ss ;
+    xmlChar* doc_ptr ;
+    int doc_len ;
+    VALUE rval ;
+
+    Data_Get_Struct(xmlobj, xmlDoc, xml);
+    Data_Get_Struct(self, xsltStylesheet, ss);
+    xsltSaveResultToString(&doc_ptr, &doc_len, xml, ss);
+    rval = rb_str_new((char*)doc_ptr, doc_len);
+    free(doc_ptr);
+    return rval ;
+}
+
+
+/*
+ *  call-seq:
+ *    apply_to(document, params)
+ *
+ *  Apply an XSLT stylesheet to an XML::Document.
+ *  +params+ is an array of strings used as XSLT parameters.
+ */
+static VALUE apply_to(int argc, VALUE* argv, VALUE self)
+{
+    VALUE xmldoc, paramobj ;
+    xmlDocPtr xml ;
+    xmlDocPtr result ;
+    xsltStylesheetPtr ss ;
+    const char** params ;
+    int param_len, j ;
+    VALUE resultobj ;
+
+    rb_scan_args(argc, argv, "11", &xmldoc, &paramobj);
+    if (paramobj == Qnil) { paramobj = rb_ary_new2(0) ; }
+
+    Data_Get_Struct(xmldoc, xmlDoc, xml);
+    Data_Get_Struct(self, xsltStylesheet, ss);
+
+    param_len = RARRAY_LEN(paramobj);
+    params = calloc((size_t)param_len+1, sizeof(char*));
+    for (j = 0 ; j < param_len ; j++) {
+      VALUE entry = rb_ary_entry(paramobj, j);
+      const char * ptr = StringValuePtr(entry);
+      params[j] = ptr;
+    }
+    params[param_len] = 0 ;
+
+    result = xsltApplyStylesheet(ss, xml, params);
+    free(params);
+    resultobj = Nokogiri_wrap_xml_document(0, result) ;
+    return rb_funcall(self, rb_intern("serialize"), 1, resultobj);
+}
+
+VALUE cNokogiriXsltStylesheet ;
+void init_xslt_stylesheet()
+{
+  /*
+   * HACK.  This is so that rdoc will work with this C file.
+   */
+  /*
+  VALUE nokogiri = rb_define_module("Nokogiri");
+  VALUE xslt = rb_define_module_under(nokogiri, "XSLT");
+  VALUE klass = rb_define_class_under(xslt, "Stylesheet", rb_cObject);
+  */
+
+  VALUE klass = cNokogiriXsltStylesheet = rb_const_get(mNokogiriXslt, rb_intern("Stylesheet"));
+    
+  rb_define_singleton_method(klass, "parse_stylesheet_doc", parse_stylesheet_doc, 1);
+  rb_define_method(klass, "serialize", serialize, 1);
+  rb_define_method(klass, "apply_to", apply_to, -1);
+}

data/ext/nokogiri/xslt_stylesheet.h

@@ -0,0 +1,9 @@
+#ifndef NOKOGIRI_XSLT_STYLESHEET
+#define NOKOGIRI_XSLT_STYLESHEET
+
+#include <native.h>
+
+void init_xslt_stylesheet();
+
+extern VALUE cNokogiriXsltStylesheet ;
+#endif