From d46183860c1f3f10095e95023adcb79b1896ab0e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 22 Mar 2019 20:11:11 +0100 Subject: Move C and Scheme code into subdirs. --- src/pair.inc.h | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 src/pair.inc.h (limited to 'src/pair.inc.h') 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 */ -- cgit v1.2.3