aboutsummaryrefslogtreecommitdiff
path: root/pair.inc.h
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2019-03-22 20:11:11 +0100
committerHugo Hörnquist <hugo@lysator.liu.se>2019-03-22 20:17:52 +0100
commitd46183860c1f3f10095e95023adcb79b1896ab0e (patch)
treedd331a0efe9777bfe84160139da1e39df3226b71 /pair.inc.h
parentAdd stuff to test.scm. (diff)
downloadcalp-d46183860c1f3f10095e95023adcb79b1896ab0e.tar.gz
calp-d46183860c1f3f10095e95023adcb79b1896ab0e.tar.xz
Move C and Scheme code into subdirs.
Diffstat (limited to 'pair.inc.h')
-rw-r--r--pair.inc.h34
1 files changed, 0 insertions, 34 deletions
diff --git a/pair.inc.h b/pair.inc.h
deleted file mode 100644
index c42b2dfd..00000000
--- a/pair.inc.h
+++ /dev/null
@@ -1,34 +0,0 @@
-#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 */