libxml-ruby 0.6.0-x86-mswin32-60

data/ext/libxml/libxml.c

@@ -0,0 +1,62 @@
+/* $Id: libxml.c 300 2008-07-01 19:14:15Z cfis $ */
+
+/* Please see the LICENSE file for copyright and distribution information */
+
+#include "ruby_libxml.h"
+
+VALUE mXML;
+VALUE eXMLError;
+
+static xmlFreeFunc freeFunc = NULL;
+static xmlMallocFunc mallocFunc = NULL;
+static xmlReallocFunc reallocFunc = NULL;
+static xmlStrdupFunc strdupFunc = NULL;
+
+#if defined(_WIN32)
+__declspec(dllexport) 
+#endif
+
+void
+Init_libxml_ruby(void) {
+  /* Some libxml memory goo that should be done before anything else */
+#ifdef NONE
+  xmlMemGet((xmlFreeFunc *) & freeFunc,
+            (xmlMallocFunc *) & mallocFunc,
+            (xmlReallocFunc *) & reallocFunc,
+            (xmlStrdupFunc *) & strdupFunc);
+
+  if (xmlMemSetup((xmlFreeFunc)RubyMemFree, (xmlMallocFunc)RubyMemMalloc,
+                  (xmlReallocFunc)RubyMemRealloc, (xmlStrdupFunc)RubyMemStrdup) != 0)
+    rb_fatal("could not install the memory handlers for libxml");
+#endif
+  xmlInitParser();
+
+  mXML = rb_define_module("XML");
+  eXMLError = rb_define_class_under(mXML, "Error", rb_eRuntimeError);
+
+  rb_define_const(mXML, "XML_NAMESPACE", rb_str_new2((const char*)XML_XML_NAMESPACE));
+
+  ruby_init_state();
+  ruby_init_parser();  
+  ruby_init_xml_parser_context();
+  ruby_init_xml_attr();
+  ruby_init_xml_document();
+  ruby_init_xml_node();
+  ruby_init_xml_node_set();
+  ruby_init_xml_ns();
+  ruby_init_xml_sax_parser();
+  ruby_init_xml_tree();
+  ruby_init_xml_xinclude();
+  ruby_init_xml_xpath();
+  ruby_init_xml_xpath_context();
+  ruby_init_xml_xpointer();
+  ruby_init_xml_xpointer_context();
+  ruby_init_html_parser();
+  ruby_init_input_callbacks(); 
+  ruby_init_xml_dtd();         
+  ruby_init_xml_schema();      
+  ruby_init_xml_reader();      
+
+  ruby_xml_parser_default_substitute_entities_set(cXMLParser, Qtrue);
+  ruby_xml_parser_default_load_external_dtd_set(cXMLParser, Qtrue);
+}

data/ext/libxml/ruby_libxml.h

@@ -0,0 +1,93 @@
+/* Please see the LICENSE file for copyright and distribution information */
+
+#ifndef __RUBY_LIBXML_H__
+#define __RUBY_LIBXML_H__
+
+#include "version.h"
+
+#include <ruby.h>
+#include <rubyio.h>
+#include <util.h>
+#include <libxml/parser.h>
+#include <libxml/parserInternals.h>
+#include <libxml/debugXML.h>
+#include <libxml/xmlversion.h>
+#include <libxml/xmlmemory.h>
+#include <libxml/xpath.h>
+#include <libxml/valid.h>
+#include <libxml/catalog.h>
+#include <libxml/HTMLparser.h>
+#include <libxml/xmlreader.h>
+
+// Maybe not yet defined in ruby
+#ifndef RSTRING_LEN
+#define RSTRING_LEN(x) RSTRING(x)->len
+#endif
+
+// not in Ruby 1.9
+#ifndef GetWriteFile
+#define GetWriteFile(fp) rb_io_stdio_file(fp)
+#define OpenFile rb_io_t
+#endif
+
+#ifdef LIBXML_DEBUG_ENABLED
+#include <libxml/xpathInternals.h>
+#endif
+#ifdef LIBXML_XINCLUDE_ENABLED
+#include <libxml/xinclude.h>
+#endif
+#ifdef LIBXML_XPTR_ENABLED
+#include <libxml/xpointer.h>
+#endif
+
+#define RUBY_LIBXML_SRC_TYPE_NULL    0
+#define RUBY_LIBXML_SRC_TYPE_FILE    1
+#define RUBY_LIBXML_SRC_TYPE_STRING  2
+#define RUBY_LIBXML_SRC_TYPE_IO      3
+#define RUBY_LIBXML_SRC_TYPE_XPATH   4
+
+typedef struct rx_file_data {
+  VALUE filename; /* Filename/path to self */
+} rx_file_data;
+
+typedef struct rx_io_data {
+  VALUE io;
+} rx_io_data;
+
+typedef struct rx_string_data {
+  VALUE str;
+} rx_string_data;
+
+typedef struct rx_xpath_data {
+  VALUE ctxt;
+} rx_xpath_data;
+
+#include "ruby_xml_state.h"
+#include "ruby_xml_attr.h"
+#include "ruby_xml_document.h"
+#include "ruby_xml_node.h"
+#include "ruby_xml_node_set.h"
+#include "ruby_xml_ns.h"
+#include "ruby_xml_parser.h"
+#include "ruby_xml_parser_context.h"
+#include "ruby_xml_sax_parser.h"
+#include "ruby_xml_tree.h"
+#include "ruby_xml_xinclude.h"
+#include "ruby_xml_xpath.h"
+#include "ruby_xml_xpath_context.h"
+#include "ruby_xml_xpath_object.h"
+#include "ruby_xml_xpointer.h"
+#include "ruby_xml_xpointer_context.h"
+#include "ruby_xml_input_cbg.h"
+#include "ruby_xml_dtd.h"
+#include "ruby_xml_schema.h"
+#include "ruby_xml_html_parser.h"
+#include "ruby_xml_reader.h"
+
+extern VALUE mXML;
+extern VALUE eXMLError;
+
+void ruby_init_parser(void);
+void ruby_xml_parser_free(ruby_xml_parser *rxp);
+
+#endif

data/ext/libxml/ruby_xml_attr.c

@@ -0,0 +1,405 @@
+/* $Id: ruby_xml_attr.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_attr.h"
+
+VALUE cXMLAttr;
+
+void ruby_xml_attr_free(ruby_xml_attr_t *rx) {
+  if (rx == NULL ) return;
+
+  if (rx->attr != NULL ) {
+    rx->attr->_private=NULL;
+    if (rx->attr->parent == NULL && rx->attr->doc == NULL ) {
+#ifdef NODE_DEBUG
+      fprintf(stderr,"ruby_xfree rxn=0x%x xn=0x%x o=0x%x\n",(long)rxn,(long)rxn->node,(long)rxn->node->_private);
+#endif
+      xmlFreeProp(rx->attr);
+    }
+
+    rx->attr=NULL;
+  }
+
+  ruby_xfree(rx);
+}
+
+void
+ruby_xml_attr_mark(ruby_xml_attr_t *rx) {
+  if ( rx == NULL ) return;
+  if ( rx->attr == NULL ) return;
+
+  if (rx->attr->_private == NULL ) {
+    rb_warning("XmlAttr is not bound! (%s:%d)",
+	       __FILE__,__LINE__);
+    return;
+  }
+
+  ruby_xml_node_mark_common((xmlNodePtr)rx->attr);
+}
+
+VALUE
+ruby_xml_attr_wrap(VALUE class, xmlAttrPtr xnode)
+{
+  VALUE obj;
+  ruby_xml_attr_t *rx;
+
+  // This node is already wrapped
+  if (xnode->_private != NULL)
+    return (VALUE)xnode->_private;
+
+  obj=Data_Make_Struct(class,ruby_xml_attr_t,ruby_xml_attr_mark,
+		       ruby_xml_attr_free,rx);
+
+  rx->attr=xnode;
+  xnode->_private=(void*)obj;
+#ifdef NODE_DEBUG
+  fprintf(stderr,"wrap rxn=0x%x xn=0x%x o=0x%x\n",(long)rxn,(long)xnode,(long)obj);
+#endif
+  return obj;
+}
+
+/*
+ * Only use this when a xmlAttr has just been created since
+ * oblitterates the _private. Not exposed to ruby interp.
+ */
+VALUE
+ruby_xml_attr_new(VALUE class, xmlAttrPtr xnode)
+{
+  xnode->_private=NULL;
+  return ruby_xml_attr_wrap(class,xnode);
+}
+/*
+ * call-seq:
+ *    attr.child => node
+ * 
+ * Obtain this attribute's child attribute(s).
+ */
+VALUE
+ruby_xml_attr_child_get(VALUE self) {
+  ruby_xml_attr_t *rxa;
+  Data_Get_Struct(self, ruby_xml_attr_t, rxa);
+  if (rxa->attr->children == NULL)
+    return(Qnil);
+  else
+    return(ruby_xml_node2_wrap(cXMLNode, rxa->attr->children));
+}
+
+
+/*
+ * call-seq:
+ *    attr.child? => (true|false)
+ * 
+ * Determine whether this attribute has child attributes.
+ */
+VALUE
+ruby_xml_attr_child_q(VALUE self) {
+  ruby_xml_attr_t *rxa;
+  Data_Get_Struct(self, ruby_xml_attr_t, rxa);
+  if (rxa->attr->children == NULL)
+    return(Qfalse);
+  else
+    return(Qtrue);
+}
+
+
+/*
+ * call-seq:
+ *    attr.doc => document
+ * 
+ * Obtain the XML::Document this attribute is associated with,
+ * if any.
+ */
+VALUE
+ruby_xml_attr_doc_get(VALUE self) {
+  ruby_xml_attr_t *rxa;
+  Data_Get_Struct(self, ruby_xml_attr_t, rxa);
+  if (rxa->attr->doc == NULL)
+    return(Qnil);
+  else
+    return(ruby_xml_document_wrap(rxa->attr->doc));
+}
+
+/*
+ * call-seq:
+ *    attr.doc? => (true|false)
+ * 
+ * Determine whether this attribute is associated with an
+ * XML::Document.
+ */
+VALUE
+ruby_xml_attr_doc_q(VALUE self) {
+  ruby_xml_attr_t *rxa;
+  Data_Get_Struct(self, ruby_xml_attr_t, rxa);
+  if (rxa->attr->doc == NULL)
+    return(Qfalse);
+  else
+    return(Qtrue);
+}
+
+
+/*
+ * call-seq:
+ *    attr.last => node
+ * 
+ * Obtain the last attribute.
+ */
+VALUE
+ruby_xml_attr_last_get(VALUE self) {
+  ruby_xml_attr_t *rxa;
+  Data_Get_Struct(self, ruby_xml_attr_t, rxa);
+  if (rxa->attr->last == NULL)
+    return(Qnil);
+  else
+    return(ruby_xml_node2_wrap(cXMLNode, rxa->attr->last));
+}
+
+
+/*
+ * call-seq:
+ *    attr.last? => (true|false)
+ * 
+ * Determine whether this is the last attribute.
+ */
+VALUE
+ruby_xml_attr_last_q(VALUE self) {
+  ruby_xml_attr_t *rxa;
+  Data_Get_Struct(self, ruby_xml_attr_t, rxa);
+  if (rxa->attr->last == NULL)
+    return(Qfalse);
+  else
+    return(Qtrue);
+}
+
+/*
+ * call-seq:
+ *    attr.name => "name"
+ * 
+ * Obtain this attribute's name.
+ */
+VALUE
+ruby_xml_attr_name_get(VALUE self) {
+  ruby_xml_attr_t *rxa;
+  Data_Get_Struct(self, ruby_xml_attr_t, rxa);
+
+  if (rxa->attr->name == NULL)
+    return(Qnil);
+  else
+    return(rb_str_new2((const char*)rxa->attr->name));
+}
+
+/*
+ * call-seq:
+ *    attr.next => node
+ * 
+ * Obtain the next attribute.
+ */
+VALUE
+ruby_xml_attr_next_get(VALUE self) {
+  ruby_xml_attr_t *rxa;
+  Data_Get_Struct(self, ruby_xml_attr_t, rxa);
+  if (rxa->attr->next == NULL)
+    return(Qnil);
+  else
+    return(ruby_xml_attr_wrap(cXMLAttr, rxa->attr->next));
+}
+
+
+/*
+ * call-seq:
+ *    attr.next? => (true|false)
+ * 
+ * Determine whether there is a next attribute.
+ */
+VALUE
+ruby_xml_attr_next_q(VALUE self) {
+  ruby_xml_attr_t *rxa;
+  Data_Get_Struct(self, ruby_xml_attr_t, rxa);
+  if (rxa->attr->next == NULL)
+    return(Qfalse);
+  else
+    return(Qtrue);
+}
+
+
+/*
+ * call-seq:
+ *    attr.type_name => "attribute"
+ * 
+ * Obtain this attribute node's type name.
+ */
+VALUE
+ruby_xml_attr_node_type_name(VALUE self) {
+  return(rb_str_new2("attribute"));
+}
+
+
+/*
+ * call-seq:
+ *    attr.ns => namespace
+ * 
+ * Obtain this attribute's associated XML::NS, if any.
+ */
+VALUE
+ruby_xml_attr_ns_get(VALUE self) {
+  ruby_xml_attr_t *rxa;
+  Data_Get_Struct(self, ruby_xml_attr_t, rxa);
+  if (rxa->attr->ns == NULL)
+    return(Qnil);
+  else
+    return(ruby_xml_ns_new2(cXMLNS, Qnil, rxa->attr->ns));
+}
+
+
+/*
+ * call-seq:
+ *    attr.ns? => (true|false)
+ * 
+ * Determine whether this attribute has an associated 
+ * namespace.
+ */
+VALUE
+ruby_xml_attr_ns_q(VALUE self) {
+  ruby_xml_attr_t *rxa;
+  Data_Get_Struct(self, ruby_xml_attr_t, rxa);
+  if (rxa->attr->ns == NULL)
+    return(Qfalse);
+  else
+    return(Qtrue);
+}
+
+
+/*
+ * call-seq:
+ *    attr.parent => node
+ * 
+ * Obtain this attribute node's parent.
+ */
+VALUE
+ruby_xml_attr_parent_get(VALUE self) {
+  ruby_xml_attr_t *rxa;
+  Data_Get_Struct(self, ruby_xml_attr_t, rxa);
+  if (rxa->attr->parent == NULL)
+    return(Qnil);
+  else
+    return(ruby_xml_node2_wrap(cXMLNode, rxa->attr->parent));
+}
+
+
+/*
+ * call-seq:
+ *    attr.parent? => (true|false)
+ * 
+ * Determine whether this attribute has a parent.
+ */
+VALUE
+ruby_xml_attr_parent_q(VALUE self) {
+  ruby_xml_attr_t *rxa;
+  Data_Get_Struct(self, ruby_xml_attr_t, rxa);
+  if (rxa->attr->parent == NULL)
+    return(Qfalse);
+  else
+    return(Qtrue);
+}
+
+
+/*
+ * call-seq:
+ *    attr.prev => node
+ * 
+ * Obtain the previous attribute.
+ */
+VALUE
+ruby_xml_attr_prev_get(VALUE self) {
+  ruby_xml_attr_t *rxa;
+  Data_Get_Struct(self, ruby_xml_attr_t, rxa);
+  if (rxa->attr->prev == NULL)
+    return(Qnil);
+  else
+    return(ruby_xml_attr_wrap(cXMLAttr, rxa->attr->prev));
+}
+
+
+/*
+ * call-seq:
+ *    attr.prev? => (true|false)
+ * 
+ * Determine whether there is a previous attribute.
+ */
+VALUE
+ruby_xml_attr_prev_q(VALUE self) {
+  ruby_xml_attr_t *rxa;
+  Data_Get_Struct(self, ruby_xml_attr_t, rxa);
+  if (rxa->attr->prev == NULL)
+    return(Qfalse);
+  else
+    return(Qtrue);
+}
+
+
+/*
+ * call-seq:
+ *     node.remove! => nil
+ * 
+ * Removes this attribute from it's parent.
+ */
+VALUE
+ruby_xml_attr_remove_ex(VALUE self) {
+  ruby_xml_attr_t *rxa;
+  Data_Get_Struct(self, ruby_xml_attr_t, rxa);
+  xmlUnlinkNode(rxa->attr);
+  return(Qnil);
+}
+
+/*
+ * call-seq:
+ *    attr.value => "value"
+ * 
+ * Obtain the value of this attribute.
+ */
+VALUE
+ruby_xml_attr_value(VALUE self) {
+  ruby_xml_attr_t *rxa;
+  xmlChar *value;
+  VALUE result = Qnil;
+  
+  Data_Get_Struct(self, ruby_xml_attr_t, rxa);
+  if (ruby_xml_attr_parent_q(self) == Qtrue) {
+    value = xmlGetProp(rxa->attr->parent, rxa->attr->name);
+    if (value != NULL)
+    {
+      result = rb_str_new2((const char*)value);
+      xmlFree(value);
+    }
+  }
+  return(result);
+}
+
+// Rdoc needs to know 
+#ifdef RDOC_NEVER_DEFINED
+  mXML = rb_define_module("XML");
+#endif
+
+void
+ruby_init_xml_attr(void) {
+  cXMLAttr = rb_define_class_under(mXML, "Attr", rb_cObject);
+  rb_define_method(cXMLAttr, "child", ruby_xml_attr_child_get, 0);
+  rb_define_method(cXMLAttr, "child?", ruby_xml_attr_child_q, 0);
+  rb_define_method(cXMLAttr, "doc", ruby_xml_attr_doc_get, 0);
+  rb_define_method(cXMLAttr, "doc?", ruby_xml_attr_doc_q, 0);
+  rb_define_method(cXMLAttr, "last", ruby_xml_attr_last_get, 0);
+  rb_define_method(cXMLAttr, "last?", ruby_xml_attr_last_q, 0);
+  rb_define_method(cXMLAttr, "name", ruby_xml_attr_name_get, 0);
+  rb_define_method(cXMLAttr, "next", ruby_xml_attr_next_get, 0);
+  rb_define_method(cXMLAttr, "next?", ruby_xml_attr_next_q, 0);
+  rb_define_method(cXMLAttr, "node_type_name", ruby_xml_attr_node_type_name, 0);
+  rb_define_method(cXMLAttr, "ns", ruby_xml_attr_ns_get, 0);
+  rb_define_method(cXMLAttr, "ns?", ruby_xml_attr_ns_q, 0);
+  rb_define_method(cXMLAttr, "parent", ruby_xml_attr_parent_get, 0);
+  rb_define_method(cXMLAttr, "parent?", ruby_xml_attr_parent_q, 0);
+  rb_define_method(cXMLAttr, "prev", ruby_xml_attr_prev_get, 0);
+  rb_define_method(cXMLAttr, "prev?", ruby_xml_attr_prev_q, 0);
+  rb_define_method(cXMLAttr, "remove!", ruby_xml_attr_remove_ex, 0);
+  rb_define_method(cXMLAttr, "value", ruby_xml_attr_value, 0);
+}