X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/mLib/blobdiff_plain/cd3001477e8cada39b9db728f65ff610d89a8895..d74e2a35bb0db0d88b074e5715b051da9c8f658e:/da-test.c

diff --git a/da-test.c b/da-test.c
new file mode 100644
index 0000000..6a73b0b
--- /dev/null
+++ b/da-test.c
@@ -0,0 +1,137 @@
+/* -*-c-*-
+ *
+ * Test driver for darray.
+ */
+
+#include <assert.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "darray.h"
+#include "exc.h"
+
+DA_DECL(vec, int);
+
+#ifdef notdef
+
+static void dump(vec *v)
+{
+  printf("# len = %lu, sz = %lu, off = %lu; push = %u, unshift = %u\n",
+	 (unsigned long)v->b.len,
+	 (unsigned long)v->b.sz,
+	 (unsigned long)v->b.off,
+	 v->b.push, v->b.unshift);
+  printf("# {");
+  if (DA_LEN(v)) {
+    size_t i;
+    printf(" %i", DA(v)[0]);
+    for (i = 1; i < DA_LEN(v); i++)
+      printf(", %i", DA(v)[i]);
+  }
+  puts(" }");
+  assert(v->b.sz + v->b.off == 128);
+}
+
+#endif
+
+int main(void)
+{
+  char buf[1024];
+  char *p;
+  vec v = DA_INIT;
+
+/*   setvbuf(stdout, 0, _IOLBF, BUFSIZ); */
+
+  while (fgets(buf, sizeof(buf), stdin)) {
+    buf[strlen(buf) - 1] = 0;
+/*     printf("# %s\n", buf); */
+    p = strtok(buf, " ");
+
+    TRY {
+      if (strcmp(p, "push") == 0) {
+	int n = atoi(strtok(0, " "));
+	DA_PUSH(&v, n);
+      } else if (strcmp(p, "unshift") == 0) {
+	int n = atoi(strtok(0, " "));
+	DA_UNSHIFT(&v, n);
+      } else if (strcmp(p, "pop") == 0) {
+	printf("%i\n", DA_POP(&v));
+      } else if (strcmp(p, "shift") == 0) {
+	printf("%i\n", DA_SHIFT(&v));
+      } else if (strcmp(p, "insert") == 0 ||
+		 strcmp(p, "append") == 0) {
+	vec vv;
+	char *q = p;
+	DA_CREATE(&vv);
+/* 	putchar('#'); */
+	while ((p = strtok(0, " ")) != 0) {
+	  int n = atoi(p);
+	  DA_PUSH(&vv, n);
+	}
+	if (strcmp(q, "insert") == 0) {
+	  DA_SHUNT(&v, DA_LEN(&vv));
+	  DA_SLIDE(&v, DA_LEN(&vv));
+	  memcpy(DA(&v), DA(&vv), DA_LEN(&vv) * sizeof(int));
+	} else {
+	  size_t l = DA_LEN(&v);
+	  DA_ENSURE(&v, DA_LEN(&vv));
+	  DA_EXTEND(&v, DA_LEN(&vv));
+	  memcpy(DA(&v) + l, DA(&vv), DA_LEN(&vv) * sizeof(int));
+	}
+	DA_DESTROY(&vv);
+      } else if (strcmp(p, "delete") == 0) {
+	int n = atoi(strtok(0, " "));
+	DA_SLIDE(&v, -n);
+      } else if (strcmp(p, "reduce") == 0) {
+	int n = atoi(strtok(0, " "));
+	DA_EXTEND(&v, -n);
+      } else if (strcmp(p, "set") == 0) {
+	size_t i = atoi(strtok(0, " "));
+	int n = atoi(strtok(0, " "));
+	size_t l = DA_LEN(&v);
+	DA_INCLUDE(&v, i);
+	if (i >= l) {
+	  size_t j;
+	  for (j = l; j < i; j++)
+	    DA(&v)[j] = -1;
+	}
+	DA(&v)[i] = n;
+      } else if (strcmp(p, "get") == 0) {
+	size_t i = atoi(strtok(0, " "));
+	if (i >= DA_LEN(&v))
+	  puts("*RANGE*");
+	else
+	  printf("%i\n", DA(&v)[i]);
+      } else if (strcmp(p, "show") == 0) {
+	if (DA_LEN(&v) == 0)
+	  puts("*EMPTY*");
+	else {
+	  size_t i;
+	  printf("%i", DA(&v)[0]);
+	  for (i = 1; i < DA_LEN(&v); i++)
+	    printf(" %i", DA(&v)[i]);
+	  putchar('\n');
+	}
+      } else
+	puts("*BAD*");
+    } CATCH switch (exc_type) {
+      case DAEXC_UFLOW:
+	puts("*UFLOW*");
+	break;
+      case DAEXC_OFLOW:
+	puts("*OFLOW*");
+	break;
+      case EXC_NOMEM:
+	puts("*NOMEM*");
+	break;
+      default:
+	puts("*UNKNOWN-EXCEPTION*");
+	break;
+    } END_TRY;
+/*     dump(&v); */
+  }
+
+  DA_DESTROY(&v);
+  return (0);
+}