Initial revision

modules/src/alloc/std_alloc.c

@@ -0,0 +1,38 @@
+/*	st_alloc - get a structure from a free list. If no structures left,
+		create new ones. The structures for which this works are
+		supposed to have as their first tag the string "next", which
+		should be a pointer type.
+		The counterpart, st_free, is a macro, defined in alloc.h
+*/
+
+#include	"alloc.h"
+
+struct xxx	{
+	char *next;
+};
+
+char *
+std_alloc(phead, size, count, pcnt)
+	char **phead;
+	register unsigned int size;
+	int *pcnt;
+{
+	register char *p;
+
+	if (*phead == 0)	{
+
+		p = Malloc(size * count);
+		*pcnt += count;
+		((struct xxx *) p)->next = 0;
+		while (--count) {
+			p += size;
+			((struct xxx *) p)->next = p - size;
+		}
+		*phead = p;
+	}
+	else p = *phead;
+	*phead = ((struct xxx *) p)->next;
+	p += size;
+	while (size--) *--p = 0;
+	return p;
+}