#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <assert.h>
#include "rope.h"

struct rope_s {
	size_t len;
	char *str;

	struct rope_s *left, *right, *parent;
};


rope* rope_new()
{
	rope *tmp;

	tmp = malloc(sizeof(rope));
	assert(tmp);

	tmp->len = 0;
	tmp->str = NULL;
	tmp->left = NULL;
	tmp->right = NULL;
	tmp->parent = NULL;

	return tmp;
}

void rope_debug_print_aux(root, s)
rope *root;
int s;
{
	int i;

	for (i = 0; i < s; i++)
		printf("|    ");

	if (!root) {
		printf("\n");
		return;
	}

#ifdef ROPE_DEBUG_PARENT
	printf("[%p]\n", root->parent);
#endif

	printf("{len:%d,str:\'%s\'}[%p]\n", root->len, root->str, root);

	if (root->str)
		return;

	rope_debug_print_aux(root->left, ++s);
	rope_debug_print_aux(root->right, s);

}

void rope_debug_print(root)
rope *root;
{
	rope_debug_print_aux(root, 0);
}

void rope_print(root)
rope *root;
{
	if (!root)
		return;

	if (root->str)
		printf("%s", root->str);

	rope_print(root->left);
	rope_print(root->right);
}

size_t rope_len(root)
rope *root;
{
	if (!root)
		return 0;

	if (root->str)
		return strlen(root->str);

	return rope_len(root->left) + rope_len(root->right);
}

rope* str_to_rope(str)
char *str;
{
	rope *tmp;

	if (!str)
		return NULL;

	tmp = rope_new();
	tmp->len = strlen(str);
	tmp->str = strdup(str);

	return tmp;
}

rope* rope_concat(node1, node2)
rope *node1, *node2;
{
	rope *tmp;

	if (!node1 || !node2)
		return node1 ? node1 : node2;

	tmp = rope_new();
	tmp->len = rope_len(node1);
	tmp->left = node1;
	tmp->right = node2;
	node1->parent = tmp;
	node2->parent = tmp;

	return tmp;
}