nokolexbor 0.2.6 → 0.3.1

data/ext/nokolexbor/nl_node_set.c

@@ -55,8 +55,7 @@ nl_node_set_allocate(VALUE klass)
 VALUE
 nl_rb_node_set_create_with_data(lexbor_array_t *array, VALUE rb_document)
 {
-  if (array == NULL)
-  {
+  if (array == NULL) {
     array = lexbor_array_create();
   }
   VALUE ret = TypedData_Wrap_Struct(cNokolexborNodeSet, &nl_node_set_type, array);
@@ -77,8 +76,7 @@ nl_node_set_push(VALUE self, VALUE rb_node)
   lxb_dom_node_t *node = nl_rb_node_unwrap(rb_node);
 
   lxb_status_t status = lexbor_array_push_unique(array, node);
-  if (status != LXB_STATUS_OK && status != LXB_STATUS_STOPPED)
-  {
+  if (status != LXB_STATUS_OK && status != LXB_STATUS_STOPPED) {
     nl_raise_lexbor_error(status);
   }
 
@@ -93,13 +91,11 @@ nl_node_set_delete(VALUE self, VALUE rb_node)
 
   size_t i;
   for (i = 0; i < array->length; i++)
-    if (array->list[i] == node)
-    {
+    if (array->list[i] == node) {
       break;
     }
 
-  if (i >= array->length)
-  {
+  if (i >= array->length) {
     // not found
     return Qnil;
   }
@@ -114,8 +110,7 @@ nl_node_set_is_include(VALUE self, VALUE rb_node)
   lxb_dom_node_t *node = nl_rb_node_unwrap(rb_node);
 
   for (size_t i = 0; i < array->length; i++)
-    if (array->list[i] == node)
-    {
+    if (array->list[i] == node) {
       return Qtrue;
     }
 
@@ -126,13 +121,11 @@ static VALUE
 nl_node_set_index_at(VALUE self, long offset)
 {
   lexbor_array_t *array = nl_rb_node_set_unwrap(self);
-  if (offset >= (long)array->length || abs((int)offset) > (long)array->length)
-  {
+  if (offset >= (long)array->length || abs((int)offset) > (long)array->length) {
     return Qnil;
   }
 
-  if (offset < 0)
-  {
+  if (offset < 0) {
     offset += array->length;
   }
 
@@ -145,35 +138,28 @@ nl_node_set_subseq(VALUE self, long beg, long len)
 {
   lexbor_array_t *old_array = nl_rb_node_set_unwrap(self);
 
-  if (beg > (long)old_array->length)
-  {
+  if (beg > (long)old_array->length) {
     return Qnil;
   }
-  if (beg < 0 || len < 0)
-  {
+  if (beg < 0 || len < 0) {
     return Qnil;
   }
 
-  if ((beg + len) > (long)old_array->length)
-  {
+  if ((beg + len) > (long)old_array->length) {
     len = old_array->length - beg;
   }
 
   lexbor_array_t *new_array = lexbor_array_create();
-  if (len > 0)
-  {
+  if (len > 0) {
     lxb_status_t status = lexbor_array_init(new_array, len);
-    if (status != LXB_STATUS_OK)
-    {
+    if (status != LXB_STATUS_OK) {
       nl_raise_lexbor_error(status);
     }
   }
 
-  for (long j = beg; j < beg + len; ++j)
-  {
+  for (long j = beg; j < beg + len; ++j) {
     lxb_status_t status = lexbor_array_push(new_array, old_array->list[j]);
-    if (status != LXB_STATUS_OK)
-    {
+    if (status != LXB_STATUS_OK) {
       nl_raise_lexbor_error(status);
     }
   }
@@ -188,31 +174,26 @@ nl_node_set_slice(int argc, VALUE *argv, VALUE self)
 
   lexbor_array_t *array = nl_rb_node_set_unwrap(self);
 
-  if (argc == 2)
-  {
+  if (argc == 2) {
     beg = NUM2LONG(argv[0]);
     len = NUM2LONG(argv[1]);
-    if (beg < 0)
-    {
+    if (beg < 0) {
       beg += array->length;
     }
     return nl_node_set_subseq(self, beg, len);
   }
 
-  if (argc != 1)
-  {
+  if (argc != 1) {
     rb_scan_args(argc, argv, "11", NULL, NULL);
   }
   arg = argv[0];
 
-  if (FIXNUM_P(arg))
-  {
+  if (FIXNUM_P(arg)) {
     return nl_node_set_index_at(self, FIX2LONG(arg));
   }
 
   /* if arg is Range */
-  switch (rb_range_beg_len(arg, &beg, &len, array->length, 0))
-  {
+  switch (rb_range_beg_len(arg, &beg, &len, array->length, 0)) {
   case Qfalse:
     break;
   case Qnil:
@@ -231,8 +212,7 @@ nl_node_set_to_array(VALUE self)
 
   VALUE list = rb_ary_new2(array->length);
   VALUE doc = nl_rb_document_get(self);
-  for (size_t i = 0; i < array->length; i++)
-  {
+  for (size_t i = 0; i < array->length; i++) {
     lxb_dom_node_t *node = (lxb_dom_node_t *)array->list[i];
     VALUE rb_node = nl_rb_node_create(node, doc);
     rb_ary_push(list, rb_node);
@@ -244,31 +224,27 @@ nl_node_set_to_array(VALUE self)
 static VALUE
 nl_node_set_union(VALUE self, VALUE other)
 {
-  if (!rb_obj_is_kind_of(other, cNokolexborNodeSet))
-  {
+  if (!rb_obj_is_kind_of(other, cNokolexborNodeSet)) {
     rb_raise(rb_eArgError, "Parameter must be a Nokolexbor::NodeSet");
   }
 
   lexbor_array_t *self_array = nl_rb_node_set_unwrap(self);
   lexbor_array_t *other_array = nl_rb_node_set_unwrap(other);
 
-  if (self_array->length + other_array->length == 0)
-  {
+  if (self_array->length + other_array->length == 0) {
     return nl_rb_node_set_create_with_data(NULL, nl_rb_document_get(self));
   }
 
   lexbor_array_t *new_array = lexbor_array_create();
   lxb_status_t status = lexbor_array_init(new_array, self_array->length + other_array->length);
-  if (status != LXB_STATUS_OK)
-  {
+  if (status != LXB_STATUS_OK) {
     nl_raise_lexbor_error(status);
   }
 
   memcpy(new_array->list, self_array->list, sizeof(lxb_dom_node_t *) * self_array->length);
   new_array->length = self_array->length;
 
-  for (size_t i = 0; i < other_array->length; i++)
-  {
+  for (size_t i = 0; i < other_array->length; i++) {
     lexbor_array_push_unique(new_array, other_array->list[i]);
   }
 
@@ -279,40 +255,33 @@ static lxb_status_t
 nl_node_set_find(VALUE self, VALUE selector, lxb_selectors_cb_f cb, void *ctx)
 {
   lxb_dom_document_t *doc = nl_rb_document_unwrap(nl_rb_document_get(self));
-  if (doc == NULL)
-  {
+  if (doc == NULL) {
     rb_raise(rb_eRuntimeError, "Error getting document");
   }
   // Wrap direct children with a temporary fragment so that they can be searched
   lxb_dom_document_fragment_t *frag = lxb_dom_document_fragment_interface_create(doc);
-  if (frag == NULL)
-  {
+  if (frag == NULL) {
     rb_raise(rb_eRuntimeError, "Error creating document fragment");
   }
   lexbor_array_t *array = nl_rb_node_set_unwrap(self);
 
   lexbor_array_t *backup_array = lexbor_array_create();
-  if (array->length > 0)
-  {
+  if (array->length > 0) {
     lxb_status_t status = lexbor_array_init(backup_array, array->length);
-    if (status != LXB_STATUS_OK)
-    {
+    if (status != LXB_STATUS_OK) {
       nl_raise_lexbor_error(status);
     }
   }
   // Backup original node data and re-group them into a fragment
-  for (size_t i = 0; i < array->length; i++)
-  {
+  for (size_t i = 0; i < array->length; i++) {
     lxb_dom_node_t *node = (lxb_dom_node_t *)array->list[i];
     lxb_dom_node_t *backup_node = malloc(sizeof(lxb_dom_node_t));
-    if (backup_node == NULL)
-    {
+    if (backup_node == NULL) {
       nl_raise_lexbor_error(LXB_STATUS_ERROR_MEMORY_ALLOCATION);
     }
     memcpy(backup_node, node, sizeof(lxb_dom_node_t));
     lxb_status_t status = lexbor_array_push(backup_array, backup_node);
-    if (status != LXB_STATUS_OK)
-    {
+    if (status != LXB_STATUS_OK) {
       nl_raise_lexbor_error(LXB_STATUS_ERROR_MEMORY_ALLOCATION);
     }
     lxb_dom_node_insert_child(&frag->node, node);
@@ -323,8 +292,7 @@ nl_node_set_find(VALUE self, VALUE selector, lxb_selectors_cb_f cb, void *ctx)
 
   lxb_dom_document_fragment_interface_destroy(frag);
   // Restore original node data
-  for (size_t i = 0; i < array->length; i++)
-  {
+  for (size_t i = 0; i < array->length; i++) {
     memcpy(array->list[i], backup_array->list[i], sizeof(lxb_dom_node_t));
     free(backup_array->list[i]);
   }
@@ -341,14 +309,12 @@ nl_node_set_at_css(VALUE self, VALUE selector)
 
   lxb_status_t status = nl_node_set_find(self, selector, nl_node_at_css_callback, array);
 
-  if (status != LXB_STATUS_OK)
-  {
+  if (status != LXB_STATUS_OK) {
     lexbor_array_destroy(array, true);
     nl_raise_lexbor_error(status);
   }
 
-  if (array->length == 0)
-  {
+  if (array->length == 0) {
     lexbor_array_destroy(array, true);
     return Qnil;
   }
@@ -369,8 +335,7 @@ nl_node_set_css(VALUE self, VALUE selector)
   lxb_dom_document_t *doc = nl_rb_document_unwrap(nl_rb_document_get(self));
 
   lxb_status_t status = nl_node_set_find(self, selector, nl_node_css_callback, array);
-  if (status != LXB_STATUS_OK)
-  {
+  if (status != LXB_STATUS_OK) {
     lexbor_array_destroy(array, true);
     nl_raise_lexbor_error(status);
   }

data/ext/nokolexbor/nl_text.c

@@ -0,0 +1,44 @@
+#include "nokolexbor.h"
+
+VALUE cNokolexborText;
+extern VALUE cNokolexborCharacterData;
+extern VALUE mNokolexbor;
+
+static VALUE
+nl_text_new(int argc, VALUE *argv, VALUE klass)
+{
+  lxb_dom_document_t *document;
+  VALUE rb_text;
+  VALUE rb_document;
+  VALUE rest;
+
+  rb_scan_args(argc, argv, "2*", &rb_text, &rb_document, &rest);
+
+  if (!rb_obj_is_kind_of(rb_document, cNokolexborDocument)) {
+    rb_raise(rb_eArgError, "Document must be a Nokolexbor::Document");
+  }
+
+  document = nl_rb_document_unwrap(rb_document);
+
+  const char* c_text = StringValuePtr(rb_text);
+  size_t text_len = RSTRING_LEN(rb_text);
+  lxb_dom_text_t *element = lxb_dom_document_create_text_node(document, (const lxb_char_t *)c_text, text_len);
+  if (element == NULL) {
+    rb_raise(rb_eRuntimeError, "Error creating text node");
+  }
+
+  VALUE rb_node = nl_rb_node_create(&element->char_data.node, rb_document);
+
+  if (rb_block_given_p()) {
+    rb_yield(rb_node);
+  }
+
+  return rb_node;
+}
+
+void Init_nl_text(void)
+{
+  cNokolexborText = rb_define_class_under(mNokolexbor, "Text", cNokolexborCharacterData);
+
+  rb_define_singleton_method(cNokolexborText, "new", nl_text_new, -1);
+}

data/ext/nokolexbor/nl_xpath_context.c

@@ -1,11 +1,11 @@
-#include <ruby.h>
-#include <ruby/util.h>
-#include "nokolexbor.h"
 #include "libxml.h"
 #include "libxml/globals.h"
+#include "libxml/parserInternals.h"
 #include "libxml/xpath.h"
 #include "libxml/xpathInternals.h"
-#include "libxml/parserInternals.h"
+#include "nokolexbor.h"
+#include <ruby.h>
+#include <ruby/util.h>
 
 #define RBSTR_OR_QNIL(_str) (_str ? rb_utf8_str_new_cstr(_str) : Qnil)
 
@@ -34,8 +34,8 @@ nl_xpath_context_register_ns(VALUE self, VALUE prefix, VALUE uri)
   Data_Get_Struct(self, xmlXPathContext, ctx);
 
   nl_xmlXPathRegisterNs(ctx,
-                     (const xmlChar *)StringValueCStr(prefix),
-                     (const xmlChar *)StringValueCStr(uri));
+                        (const xmlChar *)StringValueCStr(prefix),
+                        (const xmlChar *)StringValueCStr(uri));
   return self;
 }
 
@@ -55,8 +55,8 @@ nl_xpath_context_register_variable(VALUE self, VALUE name, VALUE value)
   xmlValue = nl_xmlXPathNewCString(StringValueCStr(value));
 
   nl_xmlXPathRegisterVariable(ctx,
-                           (const xmlChar *)StringValueCStr(name),
-                           xmlValue);
+                              (const xmlChar *)StringValueCStr(name),
+                              xmlValue);
 
   return self;
 }
@@ -70,28 +70,23 @@ xpath2ruby(xmlXPathObjectPtr c_xpath_object, xmlXPathContextPtr ctx, VALUE rb_do
 {
   VALUE rb_retval;
 
-  switch (c_xpath_object->type)
-  {
+  switch (c_xpath_object->type) {
   case XPATH_STRING:
     rb_retval = rb_utf8_str_new_cstr((const char *)c_xpath_object->stringval);
     nl_xmlFree(c_xpath_object->stringval);
     return rb_retval;
 
-  case XPATH_NODESET:
-  {
-    if (c_xpath_object->nodesetval == NULL)
-    {
+  case XPATH_NODESET: {
+    if (c_xpath_object->nodesetval == NULL) {
       return nl_rb_node_set_create_with_data(NULL, rb_document);
     }
-    if (c_xpath_object->nodesetval->nodeNr == 0)
-    {
+    if (c_xpath_object->nodesetval->nodeNr == 0) {
       return nl_rb_node_set_create_with_data(NULL, rb_document);
     }
 
     lexbor_array_t *array = lexbor_array_create();
     lxb_status_t status = lexbor_array_init(array, c_xpath_object->nodesetval->nodeNr);
-    if (status != LXB_STATUS_OK)
-    {
+    if (status != LXB_STATUS_OK) {
       nl_raise_lexbor_error(status);
     }
     memcpy(array->list, c_xpath_object->nodesetval->nodeTab, sizeof(lxb_dom_node_t *) * c_xpath_object->nodesetval->nodeNr);
@@ -122,8 +117,7 @@ nl_xpath_wrap_syntax_error(xmlErrorPtr error)
       &msg,
       cNokolexborXpathSyntaxError);
 
-  if (error)
-  {
+  if (error) {
     rb_iv_set(e, "@domain", INT2NUM(error->domain));
     rb_iv_set(e, "@code", INT2NUM(error->code));
     rb_iv_set(e, "@level", INT2NUM((short)error->level));
@@ -182,8 +176,7 @@ nl_xpath_context_evaluate(int argc, VALUE *argv, VALUE self)
 
   Data_Get_Struct(self, xmlXPathContext, ctx);
 
-  if (rb_scan_args(argc, argv, "11", &search_path, &xpath_handler) == 1)
-  {
+  if (rb_scan_args(argc, argv, "11", &search_path, &xpath_handler) == 1) {
     xpath_handler = Qnil;
   }
 
@@ -203,15 +196,13 @@ nl_xpath_context_evaluate(int argc, VALUE *argv, VALUE self)
   nl_xmlSetStructuredErrorFunc(NULL, NULL);
   nl_xmlSetGenericErrorFunc(NULL, NULL);
 
-  if (xpath == NULL)
-  {
+  if (xpath == NULL) {
     nl_xmlXPathFreeObject(xpath);
     rb_exc_raise(rb_ary_entry(errors, 0));
   }
 
   retval = xpath2ruby(xpath, ctx, nl_rb_document_get(self));
-  if (retval == Qundef)
-  {
+  if (retval == Qundef) {
     retval = rb_funcall(cNokolexborNodeSet, rb_intern("new"), 1, rb_ary_new());
   }
 

data/ext/nokolexbor/nokolexbor.c

@@ -2,11 +2,11 @@
 
 VALUE mNokolexbor;
 VALUE eLexborError;
+VALUE eLexborSyntaxError;
 
 void nl_raise_lexbor_error(lxb_status_t error)
 {
-  switch (error)
-  {
+  switch (error) {
   case LXB_STATUS_ERROR:
     rb_raise(eLexborError, "LXB_STATUS_ERROR");
   case LXB_STATUS_ERROR_MEMORY_ALLOCATION:
@@ -30,7 +30,7 @@ void nl_raise_lexbor_error(lxb_status_t error)
   case LXB_STATUS_ERROR_UNEXPECTED_RESULT:
     rb_raise(eLexborError, "LXB_STATUS_ERROR_UNEXPECTED_RESULT");
   case LXB_STATUS_ERROR_UNEXPECTED_DATA:
-    rb_raise(eLexborError, "LXB_STATUS_ERROR_UNEXPECTED_DATA");
+    rb_raise(eLexborSyntaxError, "LXB_STATUS_ERROR_UNEXPECTED_DATA");
   case LXB_STATUS_ERROR_OVERFLOW:
     rb_raise(eLexborError, "LXB_STATUS_ERROR_OVERFLOW");
   case LXB_STATUS_CONTINUE:
@@ -56,8 +56,12 @@ void Init_nokolexbor(void)
 {
   mNokolexbor = rb_define_module("Nokolexbor");
   eLexborError = rb_define_class_under(mNokolexbor, "LexborError", rb_eStandardError);
+  eLexborSyntaxError = rb_define_class_under(mNokolexbor, "LexborSyntaxError", eLexborError);
   Init_nl_node();
   Init_nl_document();
+  Init_nl_text();
+  Init_nl_comment();
+  Init_nl_cdata();
   Init_nl_node_set();
   Init_nl_xpath_context();
 }

data/ext/nokolexbor/nokolexbor.h

@@ -3,8 +3,8 @@
 
 #include <ruby.h>
 
-#include <lexbor/html/html.h>
 #include <lexbor/css/css.h>
+#include <lexbor/html/html.h>
 #include <lexbor/selectors/selectors.h>
 
 extern VALUE cNokolexborDocument;
@@ -12,6 +12,9 @@ extern VALUE cNokolexborDocument;
 void Init_nl_document(void);
 void Init_nl_node(void);
 void Init_nl_node_set(void);
+void Init_nl_text(void);
+void Init_nl_comment(void);
+void Init_nl_cdata(void);
 void Init_nl_xpath_context(void);
 
 void nl_raise_lexbor_error(lxb_status_t error);
@@ -21,14 +24,13 @@ VALUE nl_rb_node_set_create_with_data(lexbor_array_t *array, VALUE rb_document);
 
 lxb_inline VALUE nl_rb_document_get(VALUE rb_node_or_doc)
 {
-    if (rb_obj_class(rb_node_or_doc) == cNokolexborDocument)
-    {
-        return rb_node_or_doc;
-    }
-    return rb_iv_get(rb_node_or_doc, "@document");
+  if (rb_obj_is_kind_of(rb_node_or_doc, cNokolexborDocument)) {
+    return rb_node_or_doc;
+  }
+  return rb_iv_get(rb_node_or_doc, "@document");
 }
 
-lxb_dom_document_t * nl_rb_document_unwrap(VALUE rb_doc);
+lxb_dom_document_t *nl_rb_document_unwrap(VALUE rb_doc);
 
 const lxb_char_t *
 lxb_dom_node_name_qualified(lxb_dom_node_t *node, size_t *len);

data/lib/nokolexbor/document.rb

@@ -1,6 +1,97 @@
 # frozen_string_literal: true
 
 module Nokolexbor
-  class Document < Node
+  class Document < Nokolexbor::Node
+    def create_element(name, *contents_or_attrs, &block)
+      elm = Nokolexbor::Element.new(name, self, &block)
+      contents_or_attrs.each do |arg|
+        case arg
+        when Hash
+          arg.each do |k, v|
+            elm[k.to_s] = v.to_s
+          end
+        else
+          elm.content = arg
+        end
+      end
+      elm
+    end
+
+    # Create a Text Node with +string+
+    def create_text_node(string, &block)
+      Nokolexbor::Text.new(string.to_s, self, &block)
+    end
+
+    # Create a CDATA Node containing +string+
+    def create_cdata(string, &block)
+      Nokolexbor::CDATA.new(string.to_s, self, &block)
+    end
+
+    # Create a Comment Node containing +string+
+    def create_comment(string, &block)
+      Nokolexbor::Comment.new(string.to_s, self, &block)
+    end
+
+    # A reference to +self+
+    def document
+      self
+    end
+
+    def meta_encoding
+      if (meta = at_css("meta[charset]"))
+        meta[:charset]
+      elsif (meta = meta_content_type)
+        meta["content"][/charset\s*=\s*([\w-]+)/i, 1]
+      end
+    end
+
+    def meta_encoding=(encoding)
+      if (meta = meta_content_type)
+        meta["content"] = format("text/html; charset=%s", encoding)
+        encoding
+      elsif (meta = at_css("meta[charset]"))
+        meta["charset"] = encoding
+      else
+        meta = Nokolexbor::Node.new("meta", self)
+        meta["charset"] = encoding
+
+        if (head = at_css("head"))
+          head.prepend_child(meta)
+        else
+          set_metadata_element(meta)
+        end
+        encoding
+      end
+    end
+
+    def meta_content_type
+      xpath("//meta[@http-equiv and boolean(@content)]").find do |node|
+        node["http-equiv"] =~ /\AContent-Type\z/i
+      end
+    end
+    private :meta_content_type
+
+    def set_metadata_element(element)
+      if (head = at_css("head"))
+        head << element
+      elsif (html = at_css("html"))
+        head = html.prepend_child(Nokolexbor::Node.new("head", self))
+        head.prepend_child(element)
+      elsif (first = children.find do |node|
+               case node
+               when Nokolexbor::Node
+                 true
+               end
+             end)
+        # We reach here only if the underlying document model
+        # allows <html>/<head> elements to be omitted and does not
+        # automatically supply them.
+        first.add_previous_sibling(element)
+      else
+        html = add_child(Nokolexbor::Node.new("html", self))
+        head = html.add_child(Nokolexbor::Node.new("head", self))
+        head.prepend_child(element)
+      end
+    end
   end
 end

data/lib/nokolexbor/node.rb

@@ -45,6 +45,10 @@ module Nokolexbor
       type == ELEMENT_NODE
     end
 
+    def document?
+      is_a?(Nokolexbor::Document)
+    end
+
     def ancestors(selector = nil)
       return NodeSet.new(@document) unless respond_to?(:parent)
       return NodeSet.new(@document) unless parent
@@ -87,6 +91,56 @@ module Nokolexbor
       self
     end
 
+    def add_previous_sibling(node_or_tags)
+      raise ArgumentError,
+        "A document may not have multiple root nodes." if parent&.document? && !(node_or_tags.comment? || node_or_tags.processing_instruction?)
+
+      add_sibling(:previous, node_or_tags)
+    end
+
+    def add_next_sibling(node_or_tags)
+      raise ArgumentError,
+        "A document may not have multiple root nodes." if parent&.document? && !(node_or_tags.comment? || node_or_tags.processing_instruction?)
+
+      add_sibling(:next, node_or_tags)
+    end
+
+    def before(node_or_tags)
+      add_previous_sibling(node_or_tags)
+      self
+    end
+
+    def after(node_or_tags)
+      add_next_sibling(node_or_tags)
+      self
+    end
+
+    alias_method :next_sibling, :next
+    alias_method :previous_sibling, :previous
+    alias_method :next=, :add_next_sibling
+    alias_method :previous=, :add_previous_sibling
+
+    def <<(node_or_tags)
+      add_child(node_or_tags)
+      self
+    end
+
+    def prepend_child(node)
+      if (first = children.first)
+        # Mimic the error add_child would raise.
+        raise "Document already has a root node" if document? && !(node.comment? || node.processing_instruction?)
+
+        first.add_sibling(:previous, node)
+      else
+        add_child(node)
+      end
+    end
+
+    def traverse(&block)
+      children.each { |j| j.traverse(&block) }
+      yield(self)
+    end
+
     def matches?(selector)
       ancestors.last.css(selector).any? { |node| node == self }
     end
@@ -118,6 +172,10 @@ module Nokolexbor
       end
     end
 
+    def parent=(parent_node)
+      parent_node.add_child(self)
+    end
+
     def each
       attributes.each do |name, node|
         yield [name, node.value]
@@ -233,6 +291,12 @@ module Nokolexbor
       end
     end
 
+    def write_to(io, *options)
+      io.write(to_html(*options))
+    end
+
+    alias_method :write_html_to, :write_to
+
     private
 
     def xpath_internal(node, paths, handler, ns, binds)