1 files changed, 67 insertions, 0 deletions
diff --git a/eBones/compile_et/init_et.c b/eBones/compile_et/init_et.c
new file mode 100644
index 0000000..c23facb
--- /dev/null
+++ b/eBones/compile_et/init_et.c
@@ -0,0 +1,67 @@
+/*
+ * Copyright 1986 by MIT Information Systems and
+ *	MIT Student Information Processing Board
+ * For copyright info, see Copyright.SIPB.
+ *
+ *	form: init_et.c,v 1.1 86/11/10 21:42:26 spook Exp $
+ *	$Id: init_et.c,v 1.2 1994/07/19 19:21:28 g89r4222 Exp $
+ */
+
+#include <stdio.h>
+#include "error_table.h"
+
+static char copyright[] = "Copyright 1987 by MIT Student Information Processing Board";
+
+extern char *malloc(), *realloc();
+
+/* useful */
+typedef error_table *etp;
+typedef etp *etpp;
+
+etpp _et_list = (etpp)NULL;
+static int n_allocated = 0, n_used = 0;
+
+int
+init_error_table(msgs, base, count)
+	char **msgs;
+	register int base;
+	int count;
+{
+	register int i;
+	register etp new_et;
+	register etpp list;
+
+	if (!base || !count || !msgs)
+		return;
+
+	new_et = (etp)malloc(sizeof(error_table));
+	new_et->msgs = msgs;
+	new_et->base = base;
+	new_et->n_msgs= count;
+
+	list = _et_list;
+	if (list == (etpp)NULL) {
+		_et_list = (etpp) malloc(10*sizeof(etp));
+		list = _et_list;
+		if (list == (etpp)NULL)
+			return;	/* oops */
+		list[0] = new_et;
+		list[1] = (etp)NULL;
+		n_allocated = 10;
+		n_used = 1;
+		return;
+	}
+	for (i = 0; i < n_used; i++)
+		if (list[i]->base == base)
+			return;	/* avoid duplicates */
+	if (n_used+2 > n_allocated) {
+		n_allocated += 10; /* don't re-allocate too often */
+		list = (etpp) realloc((char *)list,
+				      (unsigned)n_allocated * sizeof(etp));
+		_et_list = list;
+		if (list == (etpp)NULL)
+			return;	/* oops */
+	}
+	list[n_used++] = new_et;
+	list[n_used] = (etp)NULL;
+}