From 18c8241a91bd9208879666f1a1a13f454e66d75b Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Sun, 3 May 1998 16:43:39 +0000
Subject: BIRD library: The story continues.

Complete resource manages and IP address handling.
---
 lib/resource.c | 162 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 162 insertions(+)
 create mode 100644 lib/resource.c

(limited to 'lib/resource.c')

diff --git a/lib/resource.c b/lib/resource.c
new file mode 100644
index 0000000..2806a90
--- /dev/null
+++ b/lib/resource.c
@@ -0,0 +1,162 @@
+/*
+ *	BIRD Resource Manager
+ *
+ *	(c) 1998 Martin Mares <mj@ucw.cz>
+ *
+ *	Can be freely distributed and used under the terms of the GNU GPL.
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+
+#include "nest/bird.h"
+#include "lib/resource.h"
+
+struct pool {
+  resource r;
+  list inside;
+};
+
+void pool_dump(resource *);
+void pool_free(resource *);
+
+static struct resclass pool_class = {
+  "Pool",
+  sizeof(pool),
+  pool_free,
+  pool_dump
+};
+
+pool root_pool;
+
+static int indent;
+
+pool *
+rp_new(pool *p)
+{
+  pool *z = ralloc(p, &pool_class);
+  init_list(&z->inside);
+  return z;
+}
+
+void
+pool_free(resource *P)
+{
+  pool *p = (pool *) P;
+  resource *r, *rr;
+
+  r = HEAD(p->inside);
+  while (rr = (resource *) r->n.next)
+    {
+      r->class->free(r);
+      xfree(r);
+      r = rr;
+    }
+}
+
+void
+pool_dump(resource *P)
+{
+  pool *p = (pool *) P;
+  resource *r;
+
+  debug("\n");
+  indent += 3;
+  WALK_LIST(r, p->inside)
+    rdump(r);
+  indent -= 3;
+}
+
+void
+rfree(void *res)
+{
+  resource *r = res;
+
+  if (r)
+    {
+      if (r->n.next)
+	rem_node(&r->n);
+      r->class->free(r);
+      xfree(r);
+    }
+}
+
+void
+rdump(void *res)
+{
+  char x[16];
+  resource *r = res;
+
+  sprintf(x, "%%%ds%%08x ", indent);
+  debug(x, "", (int) r);
+  if (r)
+    {
+      debug("%-6s", r->class->name);
+      r->class->dump(r);
+    }
+  else
+    debug("NULL\n");
+}
+
+void *
+ralloc(pool *p, struct resclass *c)
+{
+  resource *r = xmalloc(c->size);
+
+  r->class = c;
+  add_tail(&p->inside, &r->n);
+  return r;
+}
+
+void
+resource_init(void)
+{
+  root_pool.r.class = &pool_class;
+  init_list(&root_pool.inside);
+}
+
+/*
+ *	Memory blocks.
+ */
+
+struct mblock {
+  resource r;
+  unsigned size;
+  byte data[0];
+};
+
+void mbl_free(resource *r)
+{
+}
+
+void mbl_debug(resource *r)
+{
+  struct mblock *m = (struct mblock *) r;
+
+  debug("(size=%d)\n", m->size);
+}
+
+struct resclass mb_class = {
+  "Memory",
+  0,
+  mbl_free,
+  mbl_debug,
+};
+
+void *
+mb_alloc(pool *p, unsigned size)
+{
+  struct mblock *b = xmalloc(sizeof(struct mblock) + size);
+
+  b->r.class = &mb_class;
+  add_tail(&p->inside, &b->r.n);
+  b->size = size;
+  return b->data;
+}
+
+void
+mb_free(void *m)
+{
+  struct mblock *b = SKIP_BACK(struct mblock, data, m);
+  rfree(b);
+}
-- 
cgit v1.2.3