summaryrefslogtreecommitdiff
path: root/src/mc.c
diff options
context:
space:
mode:
authorJörg Frings-Fürst <debian@jff-webhosting.net>2015-02-04 14:09:54 +0100
committerJörg Frings-Fürst <debian@jff-webhosting.net>2015-02-04 14:09:54 +0100
commitbd82d030011cd8b9655e5ded6b6df9343b42a6bd (patch)
treede82d886dfea0cb7dbb6e80436218a25cb211bc3 /src/mc.c
Imported Upstream version 3.22upstream/3.22
Diffstat (limited to 'src/mc.c')
-rw-r--r--src/mc.c237
1 files changed, 237 insertions, 0 deletions
diff --git a/src/mc.c b/src/mc.c
new file mode 100644
index 0000000..33500e7
--- /dev/null
+++ b/src/mc.c
@@ -0,0 +1,237 @@
+/*
+ * Auto-sizing memory containers
+ * Copyright Jan Engelhardt, 2002-2011
+ *
+ * This file is part of libHX. libHX is free software; you can
+ * redistribute it and/or modify it under the terms of the GNU Lesser
+ * General Public License as published by the Free Software Foundation;
+ * either version 2.1 or (at your option) any later version.
+ */
+#include <stddef.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <libHX/string.h>
+#include "internal.h"
+
+static __inline__ size_t __HXmc_request(size_t len)
+{
+ /* The container, data portion, and a trailing \0 */
+ return sizeof(struct memcont) + len + 1;
+}
+
+static __inline__ void HXmc_check(const struct memcont *c)
+{
+ if (c->id != HXMC_IDENT)
+ fprintf(stderr, "libHX-mc error: not a hxmc object!\n");
+}
+
+static __inline__ struct memcont *HXmc_base(const hxmc_t *p)
+{
+ return containerof(p, struct memcont, data);
+}
+
+EXPORT_SYMBOL hxmc_t *HXmc_strinit(const char *s)
+{
+ hxmc_t *t = NULL;
+ size_t z = strlen(s);
+ if (z < 23 && HXmc_memcpy(&t, NULL, 23) == NULL)
+ return NULL;
+ return HXmc_memcpy(&t, s, z);
+}
+
+EXPORT_SYMBOL hxmc_t *HXmc_meminit(const void *ptr, size_t len)
+{
+ hxmc_t *t = NULL;
+ return HXmc_memcpy(&t, ptr, len);
+}
+
+EXPORT_SYMBOL hxmc_t *HXmc_strcpy(hxmc_t **vp, const char *s)
+{
+ if (s == NULL) {
+ HXmc_free(*vp);
+ *vp = NULL;
+ return NULL;
+ }
+ return HXmc_memcpy(vp, s, strlen(s));
+}
+
+EXPORT_SYMBOL hxmc_t *HXmc_memcpy(hxmc_t **vp, const void *ptr, size_t len)
+{
+ struct memcont *ctx;
+ if (*vp != NULL) {
+ ctx = HXmc_base(*vp);
+ HXmc_check(ctx);
+ if (ctx->alloc < len) {
+ ctx = realloc(ctx, __HXmc_request(len));
+ if (ctx == NULL)
+ return NULL;
+ ctx->alloc = len;
+ }
+ } else {
+ ctx = malloc(__HXmc_request(len));
+ if (ctx == NULL)
+ return NULL;
+ ctx->id = HXMC_IDENT;
+ ctx->alloc = len;
+ }
+
+ if (ptr == NULL) {
+ ctx->length = 0;
+ ctx->data[0] = '\0';
+ return *vp = ctx->data;
+ }
+
+ memcpy(ctx->data, ptr, ctx->length = len);
+ ctx->data[len] = '\0';
+ return *vp = ctx->data;
+}
+
+EXPORT_SYMBOL size_t HXmc_length(const hxmc_t *vp)
+{
+ const struct memcont *ctx;
+
+ if (vp == NULL)
+ return 0;
+ ctx = HXmc_base(vp);
+ HXmc_check(ctx);
+ return ctx->length;
+}
+
+EXPORT_SYMBOL hxmc_t *HXmc_setlen(hxmc_t **vp, size_t len)
+{
+ struct memcont *ctx;
+ if (HXmc_trunc(vp, len) == NULL)
+ return NULL;
+
+ ctx = HXmc_base(*vp);
+ ctx->length = len;
+ return *vp;
+}
+
+EXPORT_SYMBOL hxmc_t *HXmc_trunc(hxmc_t **vp, size_t len)
+{
+ struct memcont *ctx = HXmc_base(*vp);
+
+ HXmc_check(ctx);
+ if (len > ctx->alloc) {
+ ctx = realloc(ctx, __HXmc_request(len));
+ if (ctx == NULL)
+ return NULL;
+ ctx->alloc = len;
+ } else {
+ ctx->data[len] = '\0';
+ ctx->length = len;
+ }
+ return *vp = ctx->data;
+}
+
+EXPORT_SYMBOL hxmc_t *HXmc_strcat(hxmc_t **vp, const char *s)
+{
+ if (s == NULL)
+ return *vp;
+ return HXmc_memcat(vp, s, strlen(s));
+}
+
+EXPORT_SYMBOL hxmc_t *HXmc_memcat(hxmc_t **vp, const void *ptr, size_t len)
+{
+ struct memcont *ctx = HXmc_base(*vp);
+ size_t nl = ctx->length + len;
+
+ HXmc_check(ctx);
+ if (nl > ctx->alloc) {
+ ctx = realloc(ctx, __HXmc_request(nl));
+ if (ctx == NULL)
+ return NULL;
+ ctx->alloc = nl;
+ }
+ if (ptr == NULL)
+ return *vp = ctx->data;
+
+ memcpy(ctx->data + ctx->length, ptr, len);
+ ctx->length = nl;
+ ctx->data[nl] = '\0';
+ return *vp = ctx->data;
+}
+
+EXPORT_SYMBOL hxmc_t *HXmc_strpcat(hxmc_t **vp, const char *s)
+{
+ /* Prepend string @s to @*vp */
+ if (s == NULL)
+ return *vp;
+ return HXmc_memins(vp, 0, s, strlen(s));
+}
+
+EXPORT_SYMBOL hxmc_t *HXmc_mempcat(hxmc_t **vp, const void *ptr, size_t len)
+{
+ /* Prepend memory @ptr (of length @len) to @*vp */
+ return HXmc_memins(vp, 0, ptr, len);
+}
+
+EXPORT_SYMBOL hxmc_t *HXmc_strins(hxmc_t **vp, size_t pos, const char *s)
+{
+ if (s == NULL)
+ return *vp;
+ return HXmc_memins(vp, pos, s, strlen(s));
+}
+
+/*
+ * We naturally do not support negative positions like some
+ * scripting languages do, hence @pos is unsigned.
+ */
+
+EXPORT_SYMBOL hxmc_t *HXmc_memins(hxmc_t **vp, size_t pos, const void *ptr,
+ size_t len)
+{
+ struct memcont *ctx = HXmc_base(*vp);
+ size_t nl = ctx->length + len;
+
+ HXmc_check(ctx);
+ if (ctx->alloc < nl) {
+ ctx = realloc(ctx, __HXmc_request(nl));
+ if (ctx == NULL)
+ return NULL;
+ ctx->alloc = nl;
+ }
+ if (ptr == NULL)
+ return *vp = ctx->data;
+
+ memmove(ctx->data + pos + len, ctx->data + pos, ctx->length - pos);
+ memcpy(ctx->data + pos, ptr, len);
+ ctx->length += len;
+ ctx->data[ctx->length] = '\0';
+ return *vp = ctx->data;
+}
+
+EXPORT_SYMBOL hxmc_t *HXmc_memdel(hxmc_t *vp, size_t pos, size_t len)
+{
+ struct memcont *ctx = HXmc_base(vp);
+ HXmc_check(ctx);
+
+ if (pos + len > ctx->length)
+ len = ctx->length - pos;
+
+ memmove(ctx->data + pos, ctx->data + pos + len,
+ ctx->length - pos - len);
+ ctx->length -= len;
+ ctx->data[ctx->length] = '\0';
+ return ctx->data;
+}
+
+EXPORT_SYMBOL void HXmc_free(hxmc_t *vp)
+{
+ struct memcont *ctx;
+ if (vp == NULL)
+ return;
+ ctx = HXmc_base(vp);
+ HXmc_check(ctx);
+ free(ctx);
+}
+
+EXPORT_SYMBOL void HXmc_zvecfree(hxmc_t **args)
+{
+ hxmc_t **travp;
+ for (travp = args; *travp != NULL; ++travp)
+ HXmc_free(*travp);
+ free(args);
+}