DataMuseum.dk

top - metrics - download

    Length: 3516 (0xdbc)
    Types: TextFile
    Names: »isoentity.c«

└─⟦2d1937cfd⟧ Bits:30007241 EUUGD22: P.P 5.0
    └─⟦35176feda⟧ »EurOpenD22/isode/isode-6.tar.Z« 
        └─⟦de7628f85⟧ 
            └─⟦this⟧ »isode-6.0/acsap/isoentity.c« 

TextFile

/* isoentity.c - application entity titles -- sequential lookup utilities  */

#ifndef	lint
static char *rcsid = "$Header: /f/osi/acsap/RCS/isoentity.c,v 7.0 89/11/23 21:22:13 mrose Rel $";
#endif

/* 
 * $Header: /f/osi/acsap/RCS/isoentity.c,v 7.0 89/11/23 21:22:13 mrose Rel $
 *
 *
 * $Log:	isoentity.c,v $
 * Revision 7.0  89/11/23  21:22:13  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 <ctype.h>
#include <stdio.h>
#include "psap.h"
#include "isoaddrs.h"
#include "tailor.h"

/* \f

   DATA */

static char *isoentities = "isoentities";

static FILE *servf = NULL;
static int   stayopen = 0;

static int   mask;
static int   vecp;
static char  buffer[BUFSIZ + 1];
static char *vec[NVEC + NSLACK + 1];

static struct isoentity ies;

/* \f

 */

int	setisoentity (f)
int	f;
{
    if (servf == NULL)
	servf = fopen (isodefile (isoentities, 0), "r");
    else
	rewind (servf);
    stayopen |= f;

    return (servf != NULL);
}


int	endisoentity () {
    if (servf && !stayopen) {
	(void) fclose (servf);
	servf = NULL;
    }

    return 1;
}

/* \f

 */

struct isoentity   *getisoentity () {
    static char  descriptor[BUFSIZ];

    if (servf == NULL
	    && (servf = fopen (isodefile (isoentities, 0), "r")) == NULL)
	return NULL;

    while (_startisoentity (descriptor) == OK)
	if (_stopisoentity (descriptor, (struct isoentity *) NULL) == OK)
	    return (&ies);

    return NULL;
}

/* \f

 */

int	_startisoentity (descriptor)
char   *descriptor;
{
    register char  *cp,
		   *dp;
    char   *ep;
    register struct isoentity  *ie = &ies;

    bzero ((char *) ie, sizeof *ie);

    ep = (dp = buffer) + sizeof buffer;
    while (fgets (dp, ep - dp, servf) != NULL) {
	if (*buffer == '#')
	    continue;
	if (cp = index (buffer, '\n')) {
	    *cp-- = NULL;
	    if (*cp == '\\') {
		if ((dp = cp) + 1 >= ep)
		    dp = buffer;
		continue;
	    }
	}

	switch (vecp = str2vecX (buffer, vec, 5 + 1, &mask, NULL)) {
	    case 3:			/* no address */
	    case 4:			/* new-style */
	        break;

	    default:
		continue;
	}

	(void) sprintf (descriptor, "%s-%s", vec[0], vec[1]);

	return OK;
    }

    return DONE;
}

/* \f

 */

int	_stopisoentity (descriptor, iep)
char   *descriptor;
struct isoentity *iep;
{
    register int    i;
    register struct isoentity  *ie = &ies;
    OID		oid = &ie -> ie_identifier;
    struct PSAPaddr *pa = &ie -> ie_addr;
    struct PSAPaddr *pz;
    static unsigned int elements[NELEM + 1];

    if (strcmp (vec[2], "NULL") == 0)
	elements[i = 0] = 0;
    else
	if ((i = str2elem (vec[2], elements)) <= 1)
	    return NOTOK;
    oid -> oid_elements = elements;
    oid -> oid_nelem = i;
    ie -> ie_descriptor = descriptor;

    switch (vecp) {
	case 3:		/* no address */
	    break;

	case 4:		/* new-style */
	    if (pz = str2paddr (vec[3]))
		*pa = *pz;		/* struct copy */
	    break;
    }

    if (iep)
	*iep = *ie;	/* struct copy */

    return OK;
}

/* \f

 */

_printent (ie)
register struct isoentity  *ie;
{
    LLOG (addr_log, LLOG_DEBUG,
	  ("Entity:  %s (%s)", ie -> ie_descriptor,
	   oid2ode (&ie -> ie_identifier)));

    (void) ll_printf (addr_log, "Address: %s\n",
		      paddr2str (&ie -> ie_addr, NULLNA));

    (void) ll_printf (addr_log, "///////\n");

    (void) ll_sync (addr_log);
}