386BSD 0.1 development

[unix-history] / usr / othersrc / contrib / isode / acsap / acsaprovider.c

/* acsaprovider.c - implement the association control protocol */

#ifndef	lint
static char *rcsid = "$Header: /f/osi/acsap/RCS/acsaprovider.c,v 7.1 91/02/22 09:14:18 mrose Interim $";
#endif

/* 
 * $Header: /f/osi/acsap/RCS/acsaprovider.c,v 7.1 91/02/22 09:14:18 mrose Interim $
 *
 *
 * $Log:	acsaprovider.c,v $
 * Revision 7.1  91/02/22  09:14:18  mrose
 * Interim 6.8
 * 
 * Revision 7.0  89/11/23  21:21:59  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 <signal.h>
#include "ACS-types.h"
#define	ACSE
#include "acpkt.h"
#include "tailor.h"

/* \f   PSAP interface */

int	ps2acslose (acb, aci, event, pa)
register struct assocblk *acb;
register struct AcSAPindication *aci;
char   *event;
register struct PSAPabort *pa;
{
    int     reason;
    char   *cp,
            buffer[BUFSIZ];

    if (event)
	SLOG (addr_log, LLOG_EXCEPTIONS, NULLCP,
	      (pa -> pa_cc > 0 ? "%s: %s [%*.*s]": "%s: %s", event,
	       PErrString (pa -> pa_reason), pa -> pa_cc, pa -> pa_cc,
	       pa -> pa_data));

    cp = "";
    switch (pa -> pa_reason) {
	case PC_ADDRESS: 
	    reason = ACS_ADDRESS;
	    break;

	case PC_REFUSED:
	    reason = ACS_REFUSED;
	    break;

	case PC_CONGEST: 
	    reason = ACS_CONGEST;
	    break;

	case PC_PARAMETER:
	    reason = ACS_PARAMETER;
	    break;
	    
	case PC_OPERATION:
	    reason = ACS_OPERATION;
	    break;

	case PC_TIMER:
	    reason = ACS_TIMER;
	    break;

	default: 
	    (void) sprintf (cp = buffer, " (%s at presentation)",
			PErrString (pa -> pa_reason));
	case PC_SESSION:
	    reason = ACS_PRESENTATION;
	    break;
    }

    if (ACS_FATAL (reason)) {
	if (pa -> pa_cc > 0)
	    return acpktlose (acb, aci, reason, NULLCP, "%*.*s%s",
		    pa -> pa_cc, pa -> pa_cc, pa -> pa_data, cp);
	else
	    return acpktlose (acb, aci, reason, NULLCP, "%s",
		    *cp ? cp + 1 : cp);
    }
    else {
	if (pa -> pa_cc > 0)
	    return acsaplose (aci, reason, NULLCP, "%*.*s%s",
		    pa -> pa_cc, pa -> pa_cc, pa -> pa_data, cp);
	else
	    return acsaplose (aci, reason, NULLCP, "%s",
		    *cp ? cp + 1 : cp);
    }
}

/* \f   INTERNAL */

/* 
   Owing to laziness on our part, we use only ASN.1 transfer syntax.
 */

/* ARGSUSED */

struct type_ACS_Association__information *info2apdu (acb, aci, data, ndata)
struct assocblk *acb;
struct AcSAPindication *aci;
PE     *data;
int	ndata;
{
    register PE	    pe;
    struct type_ACS_Association__information *info;
    register struct type_ACS_Association__information **pp,
						       *p;
    register struct type_UNIV_EXTERNAL *q;

    for (pp = &info; ndata-- > 0; pp = &p -> next) {
	if ((*pp = p = (struct type_ACS_Association__information *)
			calloc (1, sizeof *p)) == NULL
	        || (p -> EXTERNAL = (struct type_UNIV_EXTERNAL *)
			    calloc (1, sizeof *q)) == NULL
	        || (p -> EXTERNAL -> encoding = (struct choice_UNIV_0 *)
			malloc (sizeof (struct choice_UNIV_0))) == NULL)
	    goto out;
	q = p -> EXTERNAL;

	if (!(acb -> acb_flags & ACB_CONN)
	        && (q -> direct__reference = oid_cpy (ode2oid (BER)))
	    		    == NULLOID)
	    goto out;
	q -> indirect__reference = (pe = *data++) -> pe_context;
	q -> encoding -> offset = choice_UNIV_0_single__ASN1__type;
	(q -> encoding -> un.single__ASN1__type = pe) -> pe_refcnt++;
    }
    (*pp) = NULL;

    return info;

out: ;
    free_ACS_Association__information (info);

    (void) acsaplose (aci, ACS_CONGEST, NULLCP, "out of memory");

    return NULL;
}

/* \f */

/* ARGSUSED */

int	apdu2info (acb, aci, info, data, ndata)
struct assocblk *acb;
struct AcSAPindication *aci;
struct type_ACS_Association__information *info;
PE     *data;
int    *ndata;
{
    register int    i;
    register PE	    pe;
    register struct type_UNIV_EXTERNAL *q;

    for (i = 0; info; info = info -> next, i++) {
	if (i > NACDATA)
	    return acpktlose (acb, aci, ACS_CONGEST, NULLCP,
			      "too much user information");

	q = info -> EXTERNAL;
	if (q -> encoding -> offset != choice_UNIV_0_single__ASN1__type)
	    return acpktlose (acb, aci, ACS_PROTOCOL, NULLCP,
			      "EXTERNAL data not single-ASN1-type");

	(pe = q -> encoding -> un.single__ASN1__type) -> pe_refcnt++;
	pe -> pe_context = q -> indirect__reference;
	
	*data++ = pe;
    }
    *ndata = i;

    return OK;
}