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.

---
 strbuf.c | 151 ---------------------------------------------------------------
 1 file changed, 151 deletions(-)
 delete mode 100644 strbuf.c

(limited to 'strbuf.c')

diff --git a/strbuf.c b/strbuf.c
deleted file mode 100644
index 0e56468b..00000000
--- a/strbuf.c
+++ /dev/null
@@ -1,151 +0,0 @@
-#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