From d46183860c1f3f10095e95023adcb79b1896ab0e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 22 Mar 2019 20:11:11 +0100
Subject: Move C and Scheme code into subdirs.

---
 src/strbuf.c | 151 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 151 insertions(+)
 create mode 100644 src/strbuf.c

(limited to 'src/strbuf.c')

diff --git a/src/strbuf.c b/src/strbuf.c
new file mode 100644
index 00000000..0e56468b
--- /dev/null
+++ b/src/strbuf.c
@@ -0,0 +1,151 @@
+#include "strbuf.h"
+
+#include <string.h>
+#include <stdio.h>
+
+#include "err.h"
+
+INIT_F(strbuf) {
+	self->alloc = 0x10;
+	self->mem   = (char*) calloc(sizeof(*self->mem), self->alloc);
+	self->ptr   = 0;
+	self->len   = 0;
+	self->scm = NULL;
+	return 0;
+}
+
+int strbuf_realloc(strbuf* str, size_t len) {
+	str->mem = (char*) realloc(str->mem, len);
+	str->alloc = len;
+	return 0;
+}
+
+FREE_F(strbuf) {
+	/* has already been freed */
+	if (self->mem == NULL) return 1;
+
+	free (self->mem);
+	self->mem = NULL;
+	self->alloc = 0;
+	self->len = 0;
+	return 0;
+}
+
+/*
+ * Reallocates memmory for you. Returns 1 if memory was reallocated.
+ */
+int strbuf_append(strbuf* s, char c) {
+	int retval = 0;
+
+	if (s->len + 1 > s->alloc) {
+		s->alloc <<= 1;
+		s->mem = (char*) realloc(s->mem, s->alloc);
+		retval = 1;
+	}
+
+	s->mem[s->len] = c;
+	s->ptr = ++s->len;
+	return retval;
+}
+
+char strbuf_pop(strbuf* s) {
+	char ret = s->mem[--s->len];
+	s->mem[s->len + 1] = '\0';
+	return ret;
+}
+
+int strbuf_cap(strbuf* s) {
+	strbuf_append(s, 0);
+	--s->len;
+	return 0;
+}
+
+int DEEP_COPY(strbuf)(strbuf* dest, strbuf* src) {
+	int retval = 0;
+
+	if (dest->alloc < src->len) {
+		/* +1 in length is to have room for  '\0'. */
+		strbuf_realloc(dest, src->len + 1);
+		retval = 1;
+	}
+
+	if (src->scm != NULL) {
+		/* The magic SCM type is copied when reassigned. */
+		dest->scm = src->scm;
+		/* NOTE This is a bit of a leaky abstraction.  */
+		scm_gc_protect_object(dest->scm);
+	}
+
+	dest->len = src->len;
+	memcpy(dest->mem, src->mem, src->len);
+	return retval;
+}
+
+int strbuf_cmp(strbuf* a, strbuf* b) {
+	if (a == NULL || a->alloc == 0 ||
+	    b == NULL || b->alloc == 0)
+	{
+		ERR("a or b not alloced");
+		// return -1;
+	}
+
+	return strncmp(a->mem, b->mem, a->len);
+}
+
+int strbuf_c(strbuf* a, const char* b) {
+	if (a == NULL || a->alloc == 0) {
+		ERR("a not allocated");
+		return -1;
+	}
+
+	return strcmp(a->mem, b) == 0;
+}
+
+char* charat(strbuf* s, unsigned int idx) {
+	if (idx > s->len) {
+		ERR("Index out of bounds");
+		return (char*) -1;
+	}
+
+	return &s->mem[idx];
+}
+
+char* strbuf_cur(strbuf* s) {
+	return &s->mem[s->ptr];
+}
+
+char* strbuf_end(strbuf* s) {
+	return &s->mem[s->len];
+}
+
+int strbuf_reset(strbuf* s) {
+	s->ptr = 0;
+	return 0;
+}
+
+
+int strbuf_soft_reset(strbuf* s) {
+	s->ptr = s->len = 0;
+	return 0;
+}
+
+strbuf* RESOLVE(strbuf)(strbuf* dest, strbuf* new_) {
+	if (dest == NULL) return new_;
+	else return dest;
+}
+
+FMT_F(strbuf) {
+	return sprintf(buf, "%s", self->mem);
+}
+
+int SIZE(strbuf)(strbuf* self) {
+	return self->len;
+}
+
+int strbuf_load(strbuf* self, const char* str) {
+	for (int i = 0; str[i] != '\0'; i++) {
+		strbuf_append(self, str[i]);
+	}
+	strbuf_cap(self);
+	return 0;
+}
-- 
cgit v1.2.3