Net2/usr/src/contrib/isode/psap/pe_alloc.c

/* pe_alloc.c - allocate a presentation element */

#ifndef	lint
static char *rcsid = "$Header: /f/osi/psap/RCS/pe_alloc.c,v 7.4 91/03/09 11:55:29 mrose Exp $";
#endif

/* 
 * $Header: /f/osi/psap/RCS/pe_alloc.c,v 7.4 91/03/09 11:55:29 mrose Exp $
 *
 *
 * $Log:	pe_alloc.c,v $
 * Revision 7.4  91/03/09  11:55:29  mrose
 * update
 * 
 * Revision 7.3  91/02/22  09:36:09  mrose
 * Interim 6.8
 * 
 * Revision 7.2  91/02/20  17:26:40  mrose
 * update
 * 
 * Revision 7.1  91/01/24  14:50:21  mrose
 * update
 * 
 * Revision 7.0  89/11/23  22:13:00  mrose
 * Release 6.0
 * 
 */

/*
 *				  NOTICE
 *
 *    Acquisition, use, and distribution of this module and related
 *    materials are subject to the restrictions of a license agreement.
 *    Consult the Preface in the User's Manual for the full terms of
 *    this agreement.
 *
 */


/* LINTLIBRARY */

#include <stdio.h>
#include "psap.h"
#include "tailor.h"


/* A Presentation Element (or PElement) is an internal representation for
   a presentation type from ISO8825.  The fields of the structure are:

	pe_class:	UNIVersal, APPLication, CONText, or PRIVate
	pe_form:	PRIMative, CONStructor, InlineCONStructor
	pe_id:		identifier

	pe_len:		if a PRIMative, then the length of pe_prim,
			else a scratch value; "indefinite" length elements
			have a pe_len of -1 (PE_LEN_INDF)
	pe_ilen:	if an InlineCONStructor, then the offset to the real
			data portion

	pe_prim:	if a PRIMative or an Inline CONStructor, the
			byte-string
	pe_cons:	if a CONStructor, the first element in the
			singly-linked list of elements

	pe_next:	if the immediate parent is a constructor, the
			next element in the singly-linked list of elements

	pe_cardinal:	if a LIST (SET or SEQ CONStructor), the cardinality
			of the list
	pe_offset:	if a member of a SEQ LIST, the offset in the SEQUENCE

	pe_nbits:	if a BITSTRING, the number of bits in the string

	pe_refcnt:	a hack for ANYs in pepy
 */

#define PE_LIST_CNT 100


int	pe_allocs;
int	pe_frees;
int	pe_most;

PE	pe_list = NULLPE;
#ifdef	DEBUG
PE	pe_active = NULLPE;
#endif

/*  */

PE	pe_alloc (class, form, id)
PElementClass class;
PElementForm  form;
PElementID id;
{
    register int    i;
    register PE	    pe;

    if (pe = pe_list)
        pe_list = pe -> pe_next;
    else {
        pe_list = (pe = (PE) calloc (PE_LIST_CNT, sizeof *pe));
        if (pe == NULLPE)
	    return NULLPE;

        for (i = 0; i < (PE_LIST_CNT - 1); i++, pe++)
	    pe -> pe_next = pe + 1;

        pe = pe_list;
        pe_list = pe -> pe_next;
    }

    bzero (pe, sizeof *pe);
    pe -> pe_class = class;
    pe -> pe_form = form;
    pe -> pe_id = id;

    if ((i = ++pe_allocs - pe_frees) > pe_most)
        pe_most = i;
#ifdef	DEBUG
    if (psap_log -> ll_events & LLOG_DEBUG) {
	pe -> pe_link = pe_active;
	pe_active = pe;
    }
#endif

    return pe;
}