#ifndef VCAL_H
#define VCAL_H

#include <stdlib.h>

#include <libguile.h>

#define SCM_PUSH_X(parent, child) parent = scm_cons(child, parent)
#define SCM_POP_X(lst) lst = SCM_CDR(lst)

#include "strbuf.h"

/*
 * content_line:
 *     (a mapping) between a top level key, and everything it contains.
 * content_set:
 *     A top level value, along with a list of kv pairs for all its
 *     possible parameters.
 * param_set:
 *     A parameter key, along with a list of all its values.
 */

// #define param_set LLIST(strbuf)
// 
// #define TYPE param_set
// #include "trie.h"
// #undef TYPE
// 
// #define T strbuf
// 	#define V TRIE(param_set)
// 		#include "pair.h"
// 		/* left := content | right := params */
// 		#define content_set PAIR(strbuf, TRIE(param_set))
// 	#undef V
// #undef T
// 
// #define TYPE content_set
// #include "linked_list.h"
// #undef TYPE
// 
// #define content_line LLIST(content_set)

/*
 * Helper macros for accessing fields in
 * content_line, content_set, and param_set
 */

/* content_set */
#define CLINE_CUR(c)        ((c)->cval)

/* strbuf */
#define CLINE_CUR_VAL(c)    (& CLINE_CUR(c)->key)

/* TRIE(param_set) */
#define CLINE_CUR_PARAMS(c) (& CLINE_CUR(c)->val)

// #define TYPE content_line
// #include "trie.h"
// #undef TYPE

typedef struct s_vcomponent vcomponent;

// #define TYPE vcomponent
// // #include "vector.h"
// #include "linked_list.h"
// #undef TYPE

struct s_vcomponent {
	/* VCALENDAR, VEVENT, ... */
	char* type;
	vcomponent* parent;
	// TRIE(content_line) clines;
	// LLIST(vcomponent) components;
	SCM clines;
	SCM components;

	/*
	 * Holds a Guile representation of this object. Used to always
	 * return the same foreign (for guile) object for the same
	 * vcomponent.
	 */
	SCM scm;
	SCM scmtype;
};

#define FCHILD(v) FIRST_V(&(v)->components)

INIT_F(vcomponent);
INIT_F(vcomponent, const char* type);
INIT_F(vcomponent, const char* type, const char* filename);
FREE_F(vcomponent);

// content_line* get_attributes (vcomponent* ev, const char* key);

// int add_content_line (vcomponent* ev, SCM c);

int vcomponent_push_val (vcomponent* comp, strbuf* key, SCM val);
// char* vcomponent_get_val (vcomponent*, const char* key);

/*
 * Appends ev to cal. Doesn't copy ev. So make sure that it wont go
 * out of scope.
 */
int PUSH(vcomponent)(vcomponent*, vcomponent*);

/*
 * Deep copy is currently not implemented for vcomponentes.
 * The reason for this method being here is since some
 * generic methods in other places complain otherwise.
 */
int DEEP_COPY(vcomponent)(vcomponent*, vcomponent*);

/*
 * "Shallow" copy of vcomponent.
 */
int vcomponent_copy(vcomponent*, vcomponent*);

FMT_F(vcomponent);

#endif /* VCAL_H */