init_et.c

早期freebsd实现

/*
 *
 * $Header: init_et.c,v 1.1 86/11/10 21:42:26 spook Exp $
 * $Source: /mit/s/p/spook/Work/et/RCS/init_et.c,v $
 * $Locker: spook $
 *
 * Copyright 1986 by MIT Information Systems and
 *	MIT Student Information Processing Board
 *
 * For copyright info, see mit-sipb-copyright.h.
 *
 */

#include <stdio.h>
#include "error_table.h"
#include "mit-sipb-copyright.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;
}