libxml-ruby 3.2.2-x64-mingw-ucrt

data/ext/libxml/ruby_xml_attributes.c

@@ -0,0 +1,275 @@
+/* Please see the LICENSE file for copyright and distribution information */
+
+/*
+ * Document-class: LibXML::XML::Attributes
+ *
+ * Provides access to an element's attributes (XML::Attr).
+ *
+ * Basic Usage:
+ *  require 'test_helper'
+ *
+ *  doc = XML::Document.new(<some_file>)
+ *  attributes = doc.root.attributes
+ *
+ *  attributes.each do |attribute|
+ *    ..
+ *  end
+ *
+ *  attributes['foo'] = 'bar'
+ *  attribute = attributes.get_attribute['foo']
+ *  attribute.value == 'foo'
+ *
+ * To access a namespaced attribute:
+ *
+ *  XLINK_URI = 'http://www.w3.org/1999/xlink'
+ *
+ *  attribute = attributes.get_attribute_ns(XLINK_URI, 'title')
+ *  attribute.value = 'My title'
+ */
+
+#include "ruby_libxml.h"
+#include "ruby_xml_attributes.h"
+
+VALUE cXMLAttributes;
+
+void rxml_attributes_mark(xmlNodePtr xnode)
+{
+  rxml_node_mark(xnode);
+}
+
+/*
+ * Creates a  new attributes instance.  Not exposed to ruby.
+ */
+VALUE rxml_attributes_new(xmlNodePtr xnode)
+{
+  return Data_Wrap_Struct(cXMLAttributes, rxml_attributes_mark, NULL, xnode);
+}
+
+/*
+ * call-seq:
+ *   attributes.node -> XML::Node
+ *
+ * Return the node that owns this attributes list.
+ *
+ *  doc.root.attributes.node == doc.root
+ */
+VALUE rxml_attributes_node_get(VALUE self)
+{
+  xmlNodePtr xnode;
+  Data_Get_Struct(self, xmlNode, xnode);
+  return rxml_node_wrap(xnode);
+}
+
+/*
+ * call-seq:
+ *    attributes.get_attribute("name") -> (XML::Attr | XML::AtrrDecl)
+ *
+ * Returns the specified attribute.  If the attribute does not 
+ * exist but the document has an associated DTD that defines
+ * a default value for the attribute, then a XML::AttrDecl is
+ * returned.
+ *
+ * name: The name of the attribute, not including a namespace.
+ *
+ *  doc.root.attributes.get_attribute("foo")
+ */
+static VALUE rxml_attributes_get_attribute(VALUE self, VALUE name)
+{
+  xmlNodePtr xnode;
+  xmlAttrPtr xattr;
+
+  name = rb_obj_as_string(name);
+
+  Data_Get_Struct(self, xmlNode, xnode);
+
+  xattr = xmlHasProp(xnode, (xmlChar*) StringValuePtr(name));
+
+  if (!xattr)
+    return Qnil;
+  else if (xattr->type == XML_ATTRIBUTE_DECL)
+    return rxml_attr_decl_wrap((xmlAttributePtr)xattr);
+  else
+    return rxml_attr_wrap(xattr);
+}
+
+/*
+ * call-seq:
+ *    attributes.get_attribute_ns("namespace", "name") -> (XML::Attr | XML::AtrrDecl)
+ *
+ * Returns the specified attribute.  If the attribute does not 
+ * exist but the document has an associated DTD that defines
+ * a default value for the attribute, then a XML::AttrDecl is
+ * returned.
+ *
+ * namespace: The URI of the attribute's namespace.
+ * name: The name of the attribute, not including a namespace.
+ *
+ *  doc.root.attributes.get_attribute_ns('http://www.w3.org/1999/xlink', 'href')
+ */
+static VALUE rxml_attributes_get_attribute_ns(VALUE self, VALUE namespace,
+    VALUE name)
+{
+  xmlNodePtr xnode;
+  xmlAttrPtr xattr;
+
+  name = rb_obj_as_string(name);
+
+  Data_Get_Struct(self, xmlNode, xnode);
+
+  xattr = xmlHasNsProp(xnode, (xmlChar*) StringValuePtr(name),
+                      (xmlChar*) StringValuePtr(namespace));
+
+  if (!xattr)
+    return Qnil;
+  else if (xattr->type == XML_ATTRIBUTE_DECL)
+    return rxml_attr_decl_wrap((xmlAttributePtr)xattr);
+  else
+    return rxml_attr_wrap(xattr);
+}
+
+/*
+ * call-seq:
+ *    attributes["name"] -> String
+ *
+ * Fetches an attribute value. If you want to access the underlying
+ * Attribute itself use get_attribute.
+ *
+ * name: The name of the attribute, not including any namespaces.
+ *
+ *  doc.root.attributes['att'] -> 'some value'
+ */
+VALUE rxml_attributes_attribute_get(VALUE self, VALUE name)
+{
+  VALUE xattr = rxml_attributes_get_attribute(self, name);
+  
+  if (NIL_P(xattr))
+    return Qnil;
+  else
+    return rxml_attr_value_get(xattr);
+}
+
+/*
+ * call-seq:
+ *    attributes["name"] = "value"
+ *
+ * Sets an attribute value. If you want to get the Attribute itself,
+ * use get_attribute.
+ *
+ * name: The name of the attribute, not including any namespaces.
+ * value: The new value of the namespace.
+ *
+ *  doc.root.attributes['att'] = 'some value'
+ */
+VALUE rxml_attributes_attribute_set(VALUE self, VALUE name, VALUE value)
+{
+  VALUE xattr = rxml_attributes_get_attribute(self, name);
+  if (NIL_P(xattr))
+  {
+    VALUE args[3];
+
+    args[0] = rxml_attributes_node_get(self);
+    args[1] = name;
+    args[2] = value;
+
+    return rb_class_new_instance(sizeof(args)/sizeof(VALUE), args, cXMLAttr);
+  }
+  else
+  {
+    return rxml_attr_value_set(xattr, value);
+  }
+}
+
+/*
+ * call-seq:
+ *    attributes.each {block} -> XML::Attr
+ *
+ * Iterates over each attribute.
+ *
+ *  doc.root.attributes.each {|attribute| puts attribute.name}
+ */
+static VALUE rxml_attributes_each(VALUE self)
+{
+  xmlNodePtr xnode;
+  xmlAttrPtr xattr;
+  Data_Get_Struct(self, xmlNode, xnode);
+
+  xattr = xnode->properties;
+
+  while (xattr)
+  {
+    /* Get the next attribute while we still can - the user
+       may remove the yielded attribute. */
+    xmlAttrPtr next = xattr->next;
+
+    VALUE attr = rxml_attr_wrap(xattr);
+    rb_yield(attr);
+    xattr = next;
+  }
+
+  return self;
+}
+
+/*
+ * call-seq:
+ *    attributes.length -> Integer
+ *
+ * Returns the number of attributes.
+ *
+ *  doc.root.attributes.length
+ */
+static VALUE rxml_attributes_length(VALUE self)
+{
+  int length = 0;
+  xmlNodePtr xnode;
+  xmlAttrPtr xattr;
+  Data_Get_Struct(self, xmlNode, xnode);
+
+  xattr = xnode->properties;
+
+  while (xattr)
+  {
+    length++;
+    xattr = xattr->next;
+  }
+  
+  return INT2NUM(length);
+}
+
+/*
+ * call-seq:
+ *    attributes.first -> XML::Attr
+ *
+ * Returns the first attribute.
+ *
+ *  doc.root.attributes.first
+ */
+static VALUE rxml_attributes_first(VALUE self)
+{
+  xmlNodePtr xnode;
+  Data_Get_Struct(self, xmlNode, xnode);
+
+  if (xnode->type == XML_ELEMENT_NODE)
+  {
+    xmlAttrPtr xattr = xnode->properties;
+
+    if (xattr)
+    {
+      return rxml_attr_wrap(xattr);
+    }
+  }
+  return Qnil;
+}
+
+void rxml_init_attributes(void)
+{
+  cXMLAttributes = rb_define_class_under(mXML, "Attributes", rb_cObject);
+  rb_include_module(cXMLAttributes, rb_mEnumerable);
+  rb_define_method(cXMLAttributes, "node", rxml_attributes_node_get, 0);
+  rb_define_method(cXMLAttributes, "get_attribute", rxml_attributes_get_attribute, 1);
+  rb_define_method(cXMLAttributes, "get_attribute_ns", rxml_attributes_get_attribute_ns, 2);
+  rb_define_method(cXMLAttributes, "[]", rxml_attributes_attribute_get, 1);
+  rb_define_method(cXMLAttributes, "[]=", rxml_attributes_attribute_set, 2);
+  rb_define_method(cXMLAttributes, "each", rxml_attributes_each, 0);
+  rb_define_method(cXMLAttributes, "length", rxml_attributes_length, 0);
+  rb_define_method(cXMLAttributes, "first", rxml_attributes_first, 0);
+}

data/ext/libxml/ruby_xml_attributes.h

@@ -0,0 +1,15 @@
+/* Please see the LICENSE file for copyright and distribution information */
+
+#ifndef __RXML_ATTRIBUTES__
+#define __RXML_ATTRIBUTES__
+
+extern VALUE cXMLAttributesibutes;
+
+void rxml_init_attributes(void);
+VALUE rxml_attributes_new(xmlNodePtr xnode);
+
+VALUE rxml_attributes_attribute_get(VALUE self, VALUE name);
+VALUE rxml_attributes_attribute_set(VALUE self, VALUE name, VALUE value);
+
+
+#endif

data/ext/libxml/ruby_xml_cbg.c

@@ -0,0 +1,85 @@
+#include "ruby_libxml.h"
+#include <string.h>
+#include <libxml/xmlIO.h>
+
+/*
+ int         xmlRegisterInputCallbacks       (xmlInputMatchCallback matchFunc,
+                                              xmlInputOpenCallback openFunc,
+                                              xmlInputReadCallback readFunc,
+                                              xmlInputCloseCallback closeFunc);
+
+
+ int         (*xmlInputMatchCallback)        (char const *filename);
+ void*       (*xmlInputOpenCallback)         (char const *filename);
+ int         (*xmlInputReadCallback)         (void *context,
+ char *buffer,
+ int len);
+ int         (*xmlInputCloseCallback)        (void *context);
+ */
+
+typedef struct deb_doc_context
+{
+  char *buffer;
+  char *bpos;
+  int remaining;
+} deb_doc_context;
+
+int deb_Match(char const *filename)
+{
+  fprintf(stderr, "deb_Match: %s\n", filename);
+  if (!xmlStrncasecmp(BAD_CAST filename, BAD_CAST "deb://", 6))
+  {
+    return (1);
+  }
+  return (0);
+}
+
+void* deb_Open(char const *filename)
+{
+  deb_doc_context *deb_doc;
+  VALUE res;
+
+  deb_doc = (deb_doc_context*) malloc(sizeof(deb_doc_context));
+
+  res = rb_funcall(rb_funcall(rb_mKernel, rb_intern("const_get"), 1,
+      rb_str_new2("DEBSystem")), rb_intern("document_query"), 1, rb_str_new2(filename));
+  deb_doc->buffer = strdup(StringValuePtr(res));
+  //deb_doc->buffer = strdup("<serepes>serepes</serepes>");
+
+  deb_doc->bpos = deb_doc->buffer;
+  deb_doc->remaining = (int)strlen(deb_doc->buffer);
+  return deb_doc;
+}
+
+int deb_Read(void *context, char *buffer, int len)
+{
+  deb_doc_context *deb_doc;
+  int ret_len;
+  deb_doc = (deb_doc_context*) context;
+
+  if (len >= deb_doc->remaining)
+  {
+    ret_len = deb_doc->remaining;
+  }
+  else
+  {
+    ret_len = len;
+  }
+  deb_doc->remaining -= ret_len;
+  strncpy(buffer, deb_doc->bpos, ret_len);
+  deb_doc->bpos += ret_len;
+
+  return ret_len;
+}
+
+int deb_Close(void *context)
+{
+  free(((deb_doc_context*) context)->buffer);
+  free(context);
+  return 1;
+}
+
+void deb_register_cbg()
+{
+  xmlRegisterInputCallbacks(deb_Match, deb_Open, deb_Read, deb_Close);
+}