60643d379b
(Including all changes for FreeBSD - importing the original eBones distribution would be too complex at this stage, since I don't have access to Piero's CVS.) (If you want to include eBones in your system, don't forget to include MAKE_EBONES in /etc/make.conf.) (This stuff is now also suppable from braae.ru.ac.za.) Bones originally from MIT SIPB. Original port to FreeBSD 1.x by Piero Serini. Moved to FreeBSD 2.0 by Doug Rabson and Geoff Rehmet. Nice bug fixes from Doug Rabson.
68 lines
1.5 KiB
C
68 lines
1.5 KiB
C
/*
|
|
* 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;
|
|
}
|