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

diff --git a/da-test.c b/da-test.c
deleted file mode 100644
index 38b6055..0000000
--- a/da-test.c
+++ /dev/null
@@ -1,141 +0,0 @@
-/* -*-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_UNSLIDE(&v, n);
-      } else if (strcmp(p, "reduce") == 0) {
-	int n = atoi(strtok(0, " "));
-	DA_SHRINK(&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, "first") == 0) {
-	printf("%i\n", DA_FIRST(&v));
-      } else if (strcmp(p, "last") == 0) {
-	printf("%i\n", DA_LAST(&v));
-      } 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);
-}