Net2/usr/src/contrib/isode/dsap/net/dapabandon.c

/* dapabandon.c - Send an abandon request */

#ifndef	lint
static char *rcsid = "$Header: /f/osi/dsap/net/RCS/dapabandon.c,v 7.1 91/02/22 09:20:52 mrose Interim $";
#endif

/* 
 * $Header: /f/osi/dsap/net/RCS/dapabandon.c,v 7.1 91/02/22 09:20:52 mrose Interim $
 *
 *
 * $Log:	dapabandon.c,v $
 * Revision 7.1  91/02/22  09:20:52  mrose
 * Interim 6.8
 * 
 * Revision 7.0  90/07/26  14:45:19  mrose
 * *** empty log message ***
 * 
 */

/*
 *				  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 "quipu/util.h"
#include "quipu/dap2.h"
#include "../x500as/DAS-types.h"

extern  LLog    * log_dsap;
void ros_log ();

dap_abandon (ad, id, arg, error)
int	  ad;
int	* id;
struct ds_abandon_arg       *arg;
struct DSError              *error;
{
    struct DAPindication	  di_s;
    struct DAPindication	* di = &(di_s);

    ++(*id);

    (void) DapAbandon (ad, (*id), arg, di, ROS_INTR);

    error->dse_type = DSE_NOERROR;

    switch (di->di_type)
    {
	case DI_RESULT:
	{
	    struct DAPresult	* dr = &(di->di_result);

	    DRFREE (dr);
	    return (DS_OK);
	}

	case DI_ERROR:
	{
	    struct DAPerror	* de = &(di->di_error);

	    (*error) = de->de_err;	/* struct copy */
	    return (DS_ERROR_REMOTE);
	}

	case DI_PREJECT:
	    error->dse_type = DSE_REMOTEERROR;
	    return (DS_ERROR_PROVIDER);

	case DI_ABORT:
	    error->dse_type = DSE_REMOTEERROR;
	    return (DS_ERROR_CONNECT);

	default:
	    error->dse_type = DSE_REMOTEERROR;
	    return (DS_ERROR_PROVIDER);
    }
}

int	  DapAbandon (ad, id, arg, di, asyn)
int			  ad;
int			  id;
struct ds_abandon_arg	* arg;
struct DAPindication	* di;
int			  asyn;
{
    PE                  arg_pe;

    if(encode_DAS_AbandonArgument(&arg_pe,1,0,NULLCP,arg) != OK)
    {
	return(dapreject (di, DP_INVOKE, id, NULLCP, "Abandon argument encoding failed"));
    }

    return (DapInvokeReqAux (ad, id, OP_ABANDON, arg_pe, di, asyn));

}