Move C and Scheme code into subdirs.

1 files changed, 34 insertions, 0 deletions

diff --git a/src/pair.inc.h b/src/pair.inc.h
new file mode 100644
index 00000000..c42b2dfd
--- /dev/null
+++ b/src/pair.inc.h
@@ -0,0 +1,34 @@
+#if ! (defined(T) && defined(V))
+#error "Both T and V must be defiend here"
+#else
+
+INIT_F(PAIR(T, V)) {
+	INIT(T, &self->key);
+	INIT(V, &self->val);
+
+	return 0;
+}
+
+FREE_F(PAIR(T, V)) {
+	FREE(T)(&self->key);
+	FREE(V)(&self->val);
+
+	return 0;
+}
+
+FMT_F(PAIR(T, V)) {
+	char lbuf[0x100];
+	char rbuf[0x1000];
+	FMT(T)(&self->key, lbuf);
+	FMT(V)(&self->val, rbuf);
+
+	return sprintf(buf, "<%s, %s>", lbuf, rbuf);
+}
+
+int DEEP_COPY(PAIR(T, V)) (PAIR(T, V)* dest, PAIR(T, V)* src) {
+	DEEP_COPY(T)(&dest->key,  &src->key);
+	DEEP_COPY(V)(&dest->val, &src->val);
+	return 0;
+}
+
+#endif /* T & V */