cxml.c

#include "cxml.h"
#include "c_utils.h"

#include <string.h>
#include <ctype.h>
#include <stdlib.h>

/*
 
*/


xml_tree* new_xml_tree()
{
	xml_tree* tree = calloc(1, sizeof(xml_tree));
	INIT_LIST_HEAD(&tree->child_list);
	INIT_LIST_HEAD(&tree->list);
	return tree;
}

#define STDERR(STR) fprintf(stderr, STR)

void free_xml_tree(xml_tree* tree)
{
	list_head* p, *n;
	xml_tree* tmp_tree;

	if (!tree)
		return;

	free(tree->key);
	if (tree->is_tree) {
		list_for_each_safe(p, n, &tree->child_list) {
			tmp_tree = list_entry(p, xml_tree, list);
			free_xml_tree(tmp_tree);
		}
	} else {
		free(tree->value);
	}
	free(tree);
}

int parse_xml_file(FILE* file, xml_tree* tree)
{
	char temp, temp2;
	char* tmp_str;
	xml_tree* tmp_tree;

	temp = getc(file);
	if (temp != '<') {
		STDERR("Expected '<'\n");
		return 0;
	}

	tmp_str = freadstring(file, '>', 0);
	if (!tmp_str) {
		return 0;
	}

	tree->key = tmp_str;

	while (1) {
		temp = getc(file);
		while (isspace(temp)) temp = getc(file);
		temp2 = getc(file);
		fseek(file, -2, SEEK_CUR);

		//if it's a string value
		if (temp != '<') {
			tmp_str = freadstring(file, '<', 0);
			if (!tmp_str) {
				return 0;
			}
			tree->is_tree = 0;
			tree->value = tmp_str;
			
			temp = getc(file);
			if (temp != '/') {
				STDERR("Expected closing tag not opening tag\n");
				return 0;
			}
			break;
			
		} else if (temp2 != '/') {      //it's a subtree
			tree->is_tree = 1;
			if (!(tmp_tree = new_xml_tree())) {
				perror("Error allocating memory");
				return 0;
			}
			if (!parse_xml_file(file, tmp_tree)) {
				return 0;
			}
			list_add_tail(&tmp_tree->list, &tree->child_list);
		} else {     //it's the matching level closing tag
			getc(file);
			getc(file);
			break;
		}
	}

	tmp_str = freadstring(file, '>', 0);
	if (!tmp_str) {
		return 0;
	}
	if (strcmp(tmp_str, tree->key)) {
		STDERR("Mismatched closing tag\n");
		return 0;
	}

	if (!tree->is_tree && !tree->value) { //empty element
		tree->value = calloc(1, 1);
		if (!tree->value) {
			perror("Error allocating memory");
			return 0;
		}
	}
	
	//free closing tag
	free(tmp_str);

	return 1;
}





/*
int parse_xml(c_array* xml, xml_tree* tree)
{
	char* p = xml->data;
	int line = 1;

	if (*p != '<') {
		// parsing error at line
		return 0;
	}

	readstring(

*/