add some lua library

lua-protobuf/alloc.c

@@ -0,0 +1,84 @@
+#include <stdlib.h>
+#include <stdio.h>
+
+static int _g = 0;
+
+void * _pbcM_malloc(size_t sz) {
+	++ _g;
+	return malloc(sz);
+}
+
+void _pbcM_free(void *p) {
+	if (p) {
+		-- _g;
+		free(p);
+	}
+}
+
+void* _pbcM_realloc(void *p, size_t sz) {
+	return realloc(p,sz);
+}
+
+void _pbcM_memory() {
+	printf("%d\n",_g);	
+}
+
+struct heap_page {
+	struct heap_page * next;
+};
+
+struct heap {
+	struct heap_page *current;
+	int size;
+	int used;
+};
+
+struct heap * 
+_pbcH_new(int pagesize) {
+	int cap = 1024;
+	while(cap < pagesize) {
+		cap *= 2;
+	}
+	struct heap * h = _pbcM_malloc(sizeof(struct heap));
+	h->current = _pbcM_malloc(sizeof(struct heap_page) + cap);
+	h->size = cap;
+	h->used = 0;
+	h->current->next = NULL;
+	return h;
+}
+
+void 
+_pbcH_delete(struct heap *h) {
+	struct heap_page * p = h->current;
+	struct heap_page * next = p->next;
+	for(;;) {
+		_pbcM_free(p);
+		if (next == NULL)
+			break;
+		p = next;
+		next = p->next;
+	}
+	_pbcM_free(h);
+}
+
+void* 
+_pbcH_alloc(struct heap *h, int size) {
+	size = (size + 3) & ~3;
+	if (h->size - h->used < size) {
+		struct heap_page * p;
+		if (size < h->size) {
+			p = _pbcM_malloc(sizeof(struct heap_page) + h->size);
+		} else {
+			p = _pbcM_malloc(sizeof(struct heap_page) + size);
+		}
+		p->next = h->current;
+		h->current = p;
+		h->used = size;
+		return (p+1);
+	} else {
+		char * buffer = (char *)(h->current + 1);
+		buffer += h->used;
+		h->used += size;
+		return buffer;
+	}
+}