Return to init_et.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / kerberosIV / compile_et

Annotation of 43BSDReno/kerberosIV/compile_et/init_et.c, revision 1.1

1.1     ! root        1: /*
        !             2:  *
        !             3:  * $Header: init_et.c,v 1.1 86/11/10 21:42:26 spook Exp $
        !             4:  * $Source: /mit/s/p/spook/Work/et/RCS/init_et.c,v $
        !             5:  * $Locker: spook $
        !             6:  *
        !             7:  * Copyright 1986 by MIT Information Systems and
        !             8:  *     MIT Student Information Processing Board
        !             9:  *
        !            10:  * For copyright info, see mit-sipb-copyright.h.
        !            11:  *
        !            12:  */
        !            13: 
        !            14: #include <stdio.h>
        !            15: #include "error_table.h"
        !            16: #include "mit-sipb-copyright.h"
        !            17: 
        !            18: static char copyright[] = "Copyright 1987 by MIT Student Information Processing Board";
        !            19: 
        !            20: extern char *malloc(), *realloc();
        !            21: 
        !            22: /* useful */
        !            23: typedef error_table *etp;
        !            24: typedef etp *etpp;
        !            25: 
        !            26: etpp _et_list = (etpp)NULL;
        !            27: static int n_allocated = 0, n_used = 0;
        !            28: 
        !            29: int
        !            30: init_error_table(msgs, base, count)
        !            31:        char **msgs;
        !            32:        register int base;
        !            33:        int count;
        !            34: {
        !            35:        register int i;
        !            36:        register etp new_et;
        !            37:        register etpp list;
        !            38: 
        !            39:        if (!base || !count || !msgs)
        !            40:                return;
        !            41: 
        !            42:        new_et = (etp)malloc(sizeof(error_table));
        !            43:        new_et->msgs = msgs;
        !            44:        new_et->base = base;
        !            45:        new_et->n_msgs= count;
        !            46: 
        !            47:        list = _et_list;
        !            48:        if (list == (etpp)NULL) {
        !            49:                _et_list = (etpp) malloc(10*sizeof(etp));
        !            50:                list = _et_list;
        !            51:                if (list == (etpp)NULL)
        !            52:                        return; /* oops */
        !            53:                list[0] = new_et;
        !            54:                list[1] = (etp)NULL;
        !            55:                n_allocated = 10;
        !            56:                n_used = 1;
        !            57:                return;
        !            58:        }
        !            59:        for (i = 0; i < n_used; i++)
        !            60:                if (list[i]->base == base)
        !            61:                        return; /* avoid duplicates */
        !            62:        if (n_used+2 > n_allocated) {
        !            63:                n_allocated += 10; /* don't re-allocate too often */
        !            64:                list = (etpp) realloc((char *)list,
        !            65:                                      (unsigned)n_allocated * sizeof(etp));
        !            66:                _et_list = list;
        !            67:                if (list == (etpp)NULL)
        !            68:                        return; /* oops */
        !            69:        }
        !            70:        list[n_used++] = new_et;
        !            71:        list[n_used] = (etp)NULL;
        !            72: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.