From d46183860c1f3f10095e95023adcb79b1896ab0e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 22 Mar 2019 20:11:11 +0100
Subject: Move C and Scheme code into subdirs.

---
 src/vcal.h | 118 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 118 insertions(+)
 create mode 100644 src/vcal.h

(limited to 'src/vcal.h')

diff --git a/src/vcal.h b/src/vcal.h
new file mode 100644
index 00000000..1dfc5b17
--- /dev/null
+++ b/src/vcal.h
@@ -0,0 +1,118 @@
+#ifndef VCAL_H
+#define VCAL_H
+
+#include <stdlib.h>
+
+#include <libguile.h>
+
+#include "strbuf.h"
+
+#define TYPE strbuf
+#include "linked_list.h"
+// #include "trie.h"
+#undef TYPE
+
+/*
+ * 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)->cur->value)
+
+/* 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 {
+	char* type;
+	vcomponent* parent;
+	TRIE(content_line) clines;
+	LLIST(vcomponent) components;
+
+	/*
+	 * Holds a Guile representation of this object. Used to always
+	 * return the same foreign (for guile) object for the same
+	 * vcomponent.
+	 */
+	SCM scm;
+};
+
+#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_property (vcomponent* ev, const char* key);
+
+int add_content_line (vcomponent* ev, content_line* c);
+
+int vcomponent_push_val (vcomponent*, const char* key, const char* 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 */
-- 
cgit v1.2.3