mathematical 0.0.2 → 0.0.3

data/ext/mathematical/lsmdomnamednodemap.h

@@ -1,64 +0,0 @@
-/* Lasem
- *
- * Copyright © 2010 Emmanuel Pacaud
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General
- * Public License along with this library; if not, write to the
- * Free Software Foundation, Inc., 59 Temple Place, Suite 330,
- * Boston, MA 02111-1307, USA.
- *
- * Author:
- * 	Emmanuel Pacaud <emmanuel@gnome.org>
- */
-
-#ifndef LSM_DOM_NAMED_NODE_MAP_H
-#define LSM_DOM_NAMED_NODE_MAP_H
-
-#include <lsmdomtypes.h>
-
-G_BEGIN_DECLS
-
-#define LSM_TYPE_DOM_NAMED_NODE_MAP             (lsm_dom_named_node_map_get_type ())
-#define LSM_DOM_NAMED_NODE_MAP(obj)             (G_TYPE_CHECK_INSTANCE_CAST ((obj), LSM_TYPE_DOM_NAMED_NODE_MAP, LsmDomNamedNodeMap))
-#define LSM_DOM_NAMED_NODE_MAP_CLASS(klass)     (G_TYPE_CHECK_CLASS_CAST ((klass), LSM_TYPE_DOM_NAMED_NODE_MAP, LsmDomNamedNodeMapClass))
-#define LSM_IS_DOM_NAMED_NODE_MAP(obj)          (G_TYPE_CHECK_INSTANCE_TYPE ((obj), LSM_TYPE_DOM_NAMED_NODE_MAP))
-#define LSM_IS_DOM_NAMED_NODE_MAP_CLASS(klass)  (G_TYPE_CHECK_CLASS_TYPE ((klass), LSM_TYPE_DOM_NAMED_NODE_MAP))
-#define LSM_DOM_NAMED_NODE_MAP_GET_CLASS(obj)   (G_TYPE_INSTANCE_GET_CLASS((obj), LSM_TYPE_DOM_NAMED_NODE_MAP, LsmDomNamedNodeMapClass))
-
-typedef struct _LsmDomNamedNodeMapClass LsmDomNamedNodeMapClass;
-
-struct _LsmDomNamedNodeMap {
-	GObject	object;
-};
-
-struct _LsmDomNamedNodeMapClass {
-	GObjectClass parent_class;
-
-	LsmDomNode *	(*get) 			(LsmDomNamedNodeMap *map, const char *name);
-	LsmDomNode *	(*set) 			(LsmDomNamedNodeMap *map, LsmDomNode *node);
-	LsmDomNode *	(*remove) 		(LsmDomNamedNodeMap *map, const char *name);
-	LsmDomNode *	(*get_item) 		(LsmDomNamedNodeMap *map, unsigned int index);
-	unsigned int	(*get_length)		(LsmDomNamedNodeMap *map);
-};
-
-GType lsm_dom_named_node_map_get_type (void);
-
-LsmDomNode *		lsm_dom_named_node_map_get_named_item 		(LsmDomNamedNodeMap *map, const char *name);
-LsmDomNode *		lsm_dom_named_node_map_set_named_item 		(LsmDomNamedNodeMap *map, LsmDomNode *node);
-LsmDomNode *		lsm_dom_named_node_map_remove_named_item	(LsmDomNamedNodeMap *map, const char *name);
-LsmDomNode *		lsm_dom_named_node_map_get_item 		(LsmDomNamedNodeMap *map, unsigned int index);
-unsigned int		lsm_dom_named_node_map_get_length		(LsmDomNamedNodeMap *map);
-
-G_END_DECLS
-
-#endif

data/ext/mathematical/lsmdomnode.c

@@ -1,725 +0,0 @@
-/* Lasem
- *
- * Copyright © 2007-2010 Emmanuel Pacaud
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General
- * Public License along with this library; if not, write to the
- * Free Software Foundation, Inc., 59 Temple Place, Suite 330,
- * Boston, MA 02111-1307, USA.
- *
- * Author:
- * 	Emmanuel Pacaud <emmanuel@gnome.org>
- */
-
-/**
- * SECTION:lsmdomnode
- * @short_description: Base class for DOM nodes
- */
-
-#include <lsmdomnode.h>
-#include <lsmdomnodelist.h>
-#include <lsmdomdocument.h>
-#include <lsmdebug.h>
-#include <glib/gprintf.h>
-#include <stdio.h>
-
-/* LsmDomNodeChildList */
-
-
-#define LSM_TYPE_DOM_NODE_CHILD_LIST             (lsm_dom_node_child_list_get_type ())
-#define LSM_DOM_NODE_CHILD_LIST(obj)             (G_TYPE_CHECK_INSTANCE_CAST ((obj), LSM_TYPE_DOM_NODE_CHILD_LIST, LsmDomNodeChildList))
-#define LSM_DOM_NODE_CHILD_LIST_CLASS(klass)     (G_TYPE_CHECK_CLASS_CAST ((klass), LSM_TYPE_DOM_NODE_CHILD_LIST, LsmDomNodeChildListClass))
-#define LSM_IS_DOM_NODE_CHILD_LIST(obj)          (G_TYPE_CHECK_INSTANCE_TYPE ((obj), LSM_TYPE_DOM_NODE_CHILD_LIST))
-#define LSM_IS_DOM_NODE_CHILD_LIST_CLASS(klass)  (G_TYPE_CHECK_CLASS_TYPE ((klass), LSM_TYPE_DOM_NODE_CHILD_LIST))
-#define LSM_DOM_NODE_CHILD_LIST_GET_CLASS(obj)   (G_TYPE_INSTANCE_GET_CLASS((obj), LSM_TYPE_DOM_NODE_CHILD_LIST, LsmDomNodeChildListClass))
-
-typedef struct _LsmDomNodeChildListClass LsmDomNodeChildListClass;
-
-typedef struct {
-	LsmDomNodeList base;
-
-	LsmDomNode *parent_node;
-} LsmDomNodeChildList;
-
-struct _LsmDomNodeChildListClass {
-	LsmDomNodeListClass parent_class;
-};
-
-GType lsm_dom_node_child_list_get_type (void);
-
-static GObjectClass *child_list_parent_class = NULL;
-
-static void
-lsm_dom_node_child_list_weak_notify_cb (void *user_data, GObject *object)
-{
-	LsmDomNodeChildList *list = user_data;
-
-	list->parent_node = NULL;
-}
-
-static LsmDomNode *
-lsm_dom_node_child_list_get_item (LsmDomNodeList *list, unsigned int index)
-{
-	LsmDomNodeChildList *child_list = LSM_DOM_NODE_CHILD_LIST (list);
-	LsmDomNode *iter;
-	unsigned int i = 0;
-
-	if (child_list->parent_node == NULL)
-		return NULL;
-
-	for (iter = child_list->parent_node->first_child; iter != NULL; iter = iter->next_sibling) {
-		if (i == index)
-			return iter;
-		i++;
-	}
-
-	return NULL;
-}
-
-static unsigned int
-lsm_dom_node_child_list_get_length (LsmDomNodeList *list)
-{
-	LsmDomNodeChildList *child_list = LSM_DOM_NODE_CHILD_LIST (list);
-	LsmDomNode *iter;
-	unsigned int length = 0;
-
-	if (child_list->parent_node == NULL)
-		return 0;
-
-	for (iter = child_list->parent_node->first_child; iter != NULL; iter = iter->next_sibling)
-		length++;
-
-	return length;
-}
-
-LsmDomNodeList *
-lsm_dom_node_child_list_new (LsmDomNode *parent_node)
-{
-	LsmDomNodeChildList *list;
-
-	g_return_val_if_fail (LSM_IS_DOM_NODE (parent_node), NULL);
-
-	list = g_object_new (LSM_TYPE_DOM_NODE_CHILD_LIST, NULL);
-	list->parent_node = parent_node;
-
-	g_object_weak_ref (G_OBJECT (parent_node), lsm_dom_node_child_list_weak_notify_cb, list);
-
-	return LSM_DOM_NODE_LIST (list);
-}
-
-static void
-lsm_dom_node_child_list_init (LsmDomNodeChildList *list)
-{
-}
-
-static void
-lsm_dom_node_child_list_finalize (GObject *object)
-{
-	LsmDomNodeChildList *list = LSM_DOM_NODE_CHILD_LIST (object);
-
-	if (list->parent_node != NULL) {
-		g_object_weak_unref (G_OBJECT (list->parent_node), lsm_dom_node_child_list_weak_notify_cb, list);
-		list->parent_node = NULL;
-	}
-
-	child_list_parent_class->finalize (object);
-}
-
-static void
-lsm_dom_node_child_list_class_init (LsmDomNodeChildListClass *klass)
-{
-	GObjectClass *object_class = G_OBJECT_CLASS (klass);
-	LsmDomNodeListClass *node_list_class = LSM_DOM_NODE_LIST_CLASS (klass);
-
-	child_list_parent_class = g_type_class_peek_parent (klass);
-
-	object_class->finalize = lsm_dom_node_child_list_finalize;
-
-	node_list_class->get_item = lsm_dom_node_child_list_get_item;
-	node_list_class->get_length = lsm_dom_node_child_list_get_length;
-}
-
-G_DEFINE_TYPE (LsmDomNodeChildList, lsm_dom_node_child_list, LSM_TYPE_DOM_NODE_LIST)
-
-static GObjectClass *parent_class = NULL;
-
-/* LsmDomNode implementation */
-
-
-/**
- * lsm_dom_node_get_node_name:
- * @self: a #LsmDomNode
- *
- * Gets the node name.
- *
- * Return value: the node name.
- */
-
-const char*
-lsm_dom_node_get_node_name (LsmDomNode* self)
-{
-	LsmDomNodeClass *node_class = LSM_DOM_NODE_GET_CLASS (self);
-
-	g_return_val_if_fail (node_class != NULL, NULL);
-
-	if (node_class->get_node_name)
-		return node_class->get_node_name (self);
-
-	return NULL;
-}
-
-/**
- * lsm_dom_node_get_node_value:
- * @self: a #LsmDomNode
- *
- * Gets the node value.
- *
- * Return value: the node value.
- */
-
-const char*
-lsm_dom_node_get_node_value (LsmDomNode* self)
-{
-	LsmDomNodeClass *node_class = LSM_DOM_NODE_GET_CLASS (self);
-
-	g_return_val_if_fail (node_class != NULL, NULL);
-
-	if (node_class->get_node_value)
-		return node_class->get_node_value (self);
-
-	return NULL;
-}
-
-void
-lsm_dom_node_set_node_value (LsmDomNode* self, const char* new_value)
-{
-	LsmDomNodeClass *node_class = LSM_DOM_NODE_GET_CLASS (self);
-
-	g_return_if_fail (node_class != NULL);
-	g_return_if_fail (new_value != NULL);
-
-	if (node_class->set_node_value)
-		node_class->set_node_value (self, new_value);
-}
-
-LsmDomNodeType lsm_dom_node_get_node_type (LsmDomNode* self)
-{
-	LsmDomNodeClass *node_class = LSM_DOM_NODE_GET_CLASS (self);
-
-	g_return_val_if_fail (node_class != NULL, 0);
-
-	if (node_class->get_node_type)
-		return node_class->get_node_type (self);
-
-	return 0;
-}
-
-/**
- * lsm_dom_node_get_parent_node:
- * @self: a #LsmDomNode
- *
- * Returns: (transfer none): node parent
- */
-
-LsmDomNode*
-lsm_dom_node_get_parent_node (LsmDomNode* self)
-{
-	g_return_val_if_fail (LSM_IS_DOM_NODE (self), NULL);
-
-	return self->parent_node;
-}
-
-/**
- * lsm_dom_node_get_child_nodes:
- * @self: a #LsmDomNode
- *
- * Returns: (transfer none): node child list
- */
-
-LsmDomNodeList*
-lsm_dom_node_get_child_nodes (LsmDomNode* self)
-{
-	LsmDomNodeList *list;
-
-	g_return_val_if_fail (LSM_IS_DOM_NODE (self), NULL);
-
-	list = g_object_get_data (G_OBJECT (self), "child-nodes");
-
-	if (list == NULL) {
-		list = lsm_dom_node_child_list_new (self);
-		g_object_set_data_full (G_OBJECT (self), "child-nodes", list, g_object_unref);
-	}
-
-	return list;
-}
-
-/**
- * lsm_dom_node_get_first_child:
- * @self: a #LsmDomNode
- *
- * Returns: (transfer none): node first child
- */
-
-LsmDomNode*
-lsm_dom_node_get_first_child (LsmDomNode* self)
-{
-	g_return_val_if_fail (LSM_IS_DOM_NODE (self), NULL);
-
-	return self->first_child;
-}
-
-/**
- * lsm_dom_node_get_last_child:
- * @self: a #LsmDomNode
- *
- * Returns: (transfer none): node last child
- */
-
-LsmDomNode*
-lsm_dom_node_get_last_child (LsmDomNode* self)
-{
-	g_return_val_if_fail (LSM_IS_DOM_NODE (self), NULL);
-
-	return self->last_child;
-}
-
-/**
- * lsm_dom_node_get_previous_sibling:
- * @self: a #LsmDomNode
- *
- * Returns: (transfer none): node previous sibling
- */
-
-LsmDomNode*
-lsm_dom_node_get_previous_sibling (LsmDomNode* self)
-{
-	g_return_val_if_fail (LSM_IS_DOM_NODE (self), NULL);
-
-	return self->previous_sibling;
-}
-
-/**
- * lsm_dom_node_get_next_sibling:
- * @self: a #LsmDomNode
- *
- * Returns: (transfer none): node next sibling
- */
-
-LsmDomNode*
-lsm_dom_node_get_next_sibling (LsmDomNode* self)
-{
-	g_return_val_if_fail (LSM_IS_DOM_NODE (self), NULL);
-
-	return self->next_sibling;
-}
-
-#if 0
-LsmDomNamedNodeMap*
-lsm_dom_node_get_attributes (LsmDomNode* self)
-{
-	return LSM_DOM_NODE_GET_CLASS (self)->get_attributes (self);
-}
-#endif
-
-/**
- * lsm_dom_node_get_owner_document:
- * @self: a #LsmDomNode
- *
- * Returns: (transfer none): node owner document
- */
-
-LsmDomDocument *
-lsm_dom_node_get_owner_document (LsmDomNode* self)
-{
-	LsmDomNode *parent;
-
-	g_return_val_if_fail (LSM_IS_DOM_NODE (self), NULL);
-
-	for (parent = self;
-	     parent != NULL &&
-	     !LSM_IS_DOM_DOCUMENT (parent);
-	     parent = parent->parent_node);
-
-	return LSM_DOM_DOCUMENT (parent);
-}
-
-/**
- * lsm_dom_node_insert_before:
- * @self: a #LsmDomNode
- * @new_child: (transfer full): node to insert
- * @ref_child: (transfer none): reference node, i.e., the node before which the new node must be inserted.
- *
- * Inserts the node @new_child before the existing child node @ref_child. If
- * @ref_child is null, insert @new_child at the end of the list of children.
- * If the @new_child is already in the tree, it is first removed.
- *
- * Returns: (transfer none): the inserted node.
- */
-
-/* TODO:
- * If @new_child is a #LsmDocumentFragment object, all of its children are inserted,
- * in the same order, before @ref_child. 
- * Check if new_child is an ancestor of self.
- */
-
-LsmDomNode*
-lsm_dom_node_insert_before (LsmDomNode* self, LsmDomNode* new_child, LsmDomNode* ref_child)
-{
-	LsmDomNodeClass *node_class;
-
-	if (ref_child == NULL)
-		lsm_dom_node_append_child (self, new_child);
-
-	g_return_val_if_fail (LSM_IS_DOM_NODE (new_child), NULL);
-
-	if (new_child->parent_node != NULL)
-		lsm_dom_node_remove_child (self, new_child);
-
-	if (!LSM_IS_DOM_NODE (self)) {
-		g_critical ("%s: self is not a LsmDomNode", G_STRFUNC);
-		g_object_unref (new_child);
-		return NULL;
-	}
-
-	if (!LSM_IS_DOM_NODE (ref_child)) {
-		g_critical ("%s: ref_child is not a LsmDomNode", G_STRFUNC);
-		g_object_unref (new_child);
-		return NULL;
-	}
-
-	if (ref_child->parent_node != self) {
-		lsm_debug_dom ("[LsmDomNode::insert_before] Ref child '%s' doesn't belong to '%s'",
-			   lsm_dom_node_get_node_name (ref_child),
-			   lsm_dom_node_get_node_name (self));
-		g_object_unref (new_child);
-		return NULL;
-	}
-
-	if (!LSM_DOM_NODE_GET_CLASS (self)->can_append_child (self, new_child)) {
-		lsm_debug_dom ("[LsmDomNode::insert_before] Can't append '%s' to '%s'",
-			   lsm_dom_node_get_node_name (new_child),
-			   lsm_dom_node_get_node_name (self));
-		g_object_unref (new_child);
-		return NULL;
-	}
-
-	new_child->parent_node = self;
-	new_child->next_sibling = ref_child;
-	new_child->previous_sibling = ref_child->previous_sibling;
-
-	if (ref_child->previous_sibling == NULL)
-		self->first_child = new_child;
-	else
-		ref_child->previous_sibling->next_sibling = new_child;
-
-	ref_child->previous_sibling = new_child;
-
-	node_class = LSM_DOM_NODE_GET_CLASS (self);
-
-	if (node_class->post_new_child)
-		node_class->post_new_child (self, new_child);
-
-	lsm_dom_node_changed (self);
-
-	return new_child;
-}
-
-/**
- * lsm_dom_node_replace_child:
- * @self: a #LsmDomNode
- * @new_child: (transfer full): a replacement node
- * @old_child: (transfer none): node to replace
- *
- * Replaces the child node @old_child with @new_child in the list of children,
- * and returns the @old_child node.
- * If the @new_child is already in the tree, it is first removed.
- *
- * Returns: (transfer full): the replaced node.
- */
-
-/* TODO:
- * Check if new_child is an ancestor of self.
- */
-
-LsmDomNode*
-lsm_dom_node_replace_child (LsmDomNode* self, LsmDomNode* new_child, LsmDomNode* old_child)
-{
-	LsmDomNode *next_sibling;
-	LsmDomNode *node;
-
-	if (new_child == NULL)
-		return lsm_dom_node_remove_child (self, old_child);
-
-	if (!LSM_IS_DOM_NODE (new_child)) {
-		g_critical ("%s: new_child is not a LsmDomNode", G_STRFUNC);
-		if (LSM_IS_DOM_NODE (old_child))
-			g_object_unref (old_child);
-		return NULL;
-	}
-
-	if (new_child->parent_node != NULL)
-		lsm_dom_node_remove_child (self, new_child);
-
-	if (old_child == NULL) {
-		lsm_debug_dom ("[LsmDomNode::replace_child] old_child == NULL)");
-		g_object_unref (new_child);
-		return NULL;
-	}
-
-	if (!LSM_IS_DOM_NODE (old_child)) {
-		g_critical ("%s: old_child is not a LsmDomNode", G_STRFUNC);
-		g_object_unref (new_child);
-		return NULL;
-	}
-
-	if (!LSM_IS_DOM_NODE (self)) {
-		g_critical ("%s: self is not a LsmDomNode", G_STRFUNC);
-		g_object_unref (new_child);
-		g_object_unref (old_child);
-		return NULL;
-	}
-
-	if (old_child->parent_node != self) {
-		g_object_unref (new_child);
-		g_object_unref (old_child);
-		return NULL;
-	}
-
-	next_sibling = old_child->next_sibling;
-
-	node = lsm_dom_node_remove_child (self, old_child);
-	if (node != old_child) {
-		g_object_unref (new_child);
-		g_object_unref (old_child);
-		return NULL;
-	}
-
-	if (next_sibling == NULL)
-		lsm_dom_node_append_child (self, new_child);
-	else
-		lsm_dom_node_insert_before (self, new_child, next_sibling);
-
-	return old_child;
-}
-
-/**
- * lsm_dom_node_remove_child:
- * @self: a #LsmDomNode
- * @old_child: (transfer none): node to remove.
- *
- * Removes the child node indicated by @old_child from the list of children, and returns it.
- *
- * Returns: (transfer full): the removed node.
- */
-
-LsmDomNode*
-lsm_dom_node_remove_child (LsmDomNode* self, LsmDomNode* old_child)
-{
-	LsmDomNode *node;
-	LsmDomNodeClass *node_class;
-
-	g_return_val_if_fail (LSM_IS_DOM_NODE (self), NULL);
-
-	if (old_child == NULL)
-		return NULL;
-
-	g_return_val_if_fail (LSM_IS_DOM_NODE (old_child), NULL);
-
-	for (node = self->first_child;
-	     node != NULL && node != old_child;
-	     node = node->next_sibling);
-
-	if (node == NULL)
-		return NULL;
-
-	node_class = LSM_DOM_NODE_GET_CLASS (self);
-
-	if (node_class->pre_remove_child)
-		node_class->pre_remove_child (self, old_child);
-
-	if (self->first_child == old_child)
-		self->first_child = old_child->next_sibling;
-	if (self->last_child == old_child)
-		self->last_child = old_child->previous_sibling;
-
-	if (old_child->next_sibling != NULL)
-		old_child->next_sibling->previous_sibling = old_child->previous_sibling;
-	if (old_child->previous_sibling != NULL)
-		old_child->previous_sibling->next_sibling = old_child->next_sibling;
-
-	old_child->parent_node = NULL;
-	old_child->next_sibling = NULL;
-	old_child->previous_sibling = NULL;
-
-	lsm_dom_node_changed (self);
-
-	return old_child;
-}
-
-/**
- * lsm_dom_node_append_child:
- * @self: a #LsmDomNode
- * @new_child: (transfer full): node to append
- *
- * Adds the node @new_child to the end of the list of children of this node.
- * If the @new_child is already in the tree, it is first removed.
- *
- * Returns: (transfer none): the added node.
- */
-
-LsmDomNode *
-lsm_dom_node_append_child (LsmDomNode* self, LsmDomNode* new_child)
-{
-	LsmDomNodeClass *node_class;
-
-	if (new_child == NULL)
-		return NULL;
-
-	g_return_val_if_fail (LSM_IS_DOM_NODE (new_child), NULL);
-
-	if (!LSM_IS_DOM_NODE (self)) {
-		g_critical ("%s: self is not a LsmDomNode", G_STRFUNC);
-		g_object_unref (new_child);
-		return NULL;
-	}
-
-	if (new_child->parent_node != NULL)
-		lsm_dom_node_remove_child (self, new_child);
-
-	if (!LSM_DOM_NODE_GET_CLASS (self)->can_append_child (self, new_child)) {
-		lsm_debug_dom ("[LsmDomNode::append_child] Can't append '%s' to '%s'",
-			   lsm_dom_node_get_node_name (new_child),
-			   lsm_dom_node_get_node_name (self));
-		g_object_unref (new_child);
-		return NULL;
-	}
-
-	if (self->first_child == NULL)
-		self->first_child = new_child;
-	if (self->last_child != NULL)
-		self->last_child->next_sibling = new_child;
-
-	new_child->parent_node = self;
-	new_child->next_sibling = NULL;
-	new_child->previous_sibling = self->last_child;
-	self->last_child = new_child;
-
-	node_class = LSM_DOM_NODE_GET_CLASS (self);
-
-	if (node_class->post_new_child)
-		node_class->post_new_child (self, new_child);
-
-	lsm_dom_node_changed (self);
-
-	return new_child;
-}
-
-static gboolean
-lsm_dom_node_can_append_child_default (LsmDomNode *self, LsmDomNode* new_child)
-{
-	return FALSE;
-}
-
-void
-lsm_dom_node_changed (LsmDomNode *self)
-{
-	LsmDomNode *parent_node;
-	LsmDomNode *child_node;
-	LsmDomNodeClass *node_class;
-
-	g_return_if_fail (LSM_IS_DOM_NODE (self));
-
-	node_class = LSM_DOM_NODE_GET_CLASS (self);
-
-	if (node_class->changed)
-		node_class->changed (self);
-
-	child_node = self;
-	for (parent_node = self->parent_node;
-	       parent_node != NULL;
-	       parent_node = parent_node->parent_node) {
-		node_class = LSM_DOM_NODE_GET_CLASS (parent_node);
-		if (node_class->child_changed == NULL ||
-		    !node_class->child_changed (parent_node, child_node))
-			break;
-		child_node = parent_node;
-	}
-}
-
-gboolean
-lsm_dom_node_has_child_nodes (LsmDomNode* self)
-{
-	g_return_val_if_fail (LSM_IS_DOM_NODE (self), FALSE);
-
-	return self->first_child != NULL;
-}
-
-static void
-lsm_dom_node_write_to_stream_default (LsmDomNode *self, GOutputStream *stream, GError **error)
-{
-	LsmDomNode *child;
-
-	for (child = self->first_child; child != NULL; child = child->next_sibling)
-		lsm_dom_node_write_to_stream (child, stream, error);
-}
-
-void
-lsm_dom_node_write_to_stream (LsmDomNode *self, GOutputStream *stream, GError **error)
-{
-	LsmDomNodeClass *node_class;
-
-	g_return_if_fail (LSM_IS_DOM_NODE (self));
-	g_return_if_fail (G_IS_OUTPUT_STREAM (stream));
-
-	node_class = LSM_DOM_NODE_GET_CLASS (self);
-	if (node_class->write_to_stream != NULL)
-		node_class->write_to_stream (self, stream, error);
-}
-
-static void
-lsm_dom_node_init (LsmDomNode *node)
-{
-}
-
-static void
-lsm_dom_node_finalize (GObject *object)
-{
-	LsmDomNode *node = LSM_DOM_NODE (object);
-	LsmDomNode *child, *next_child;
-
-	child = node->first_child;
-	while (child != NULL) {
-		next_child = child->next_sibling;
-		g_object_unref (child);
-		child = next_child;
-	}
-
-	parent_class->finalize (object);
-}
-
-/* LsmDomNode class */
-
-static void
-lsm_dom_node_class_init (LsmDomNodeClass *node_class)
-{
-	GObjectClass *object_class = G_OBJECT_CLASS (node_class);
-
-	parent_class = g_type_class_peek_parent (node_class);
-
-	object_class->finalize = lsm_dom_node_finalize;
-
-	node_class->can_append_child = lsm_dom_node_can_append_child_default;
-	node_class->write_to_stream = lsm_dom_node_write_to_stream_default;
-}
-
-G_DEFINE_ABSTRACT_TYPE (LsmDomNode, lsm_dom_node, G_TYPE_OBJECT)