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

/* dapread.c - */

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

/* 
 * $Header: /f/osi/dsap/net/RCS/dapread.c,v 7.1 91/02/22 09:21:04 mrose Interim $
 *
 *
 * $Log:	dapread.c,v $
 * Revision 7.1  91/02/22  09:21:04  mrose
 * Interim 6.8
 * 
 * Revision 7.0  90/07/26  14:45:23  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 "tailor.h"
#include "quipu/util.h"
#include "quipu/dap2.h"
#include "../x500as/DAS-types.h"

extern	LLog	*log_dsap;

dap_read (ad, id, arg, error, result)
int				 ad;
int				*id;
struct ds_read_arg          *arg;
struct ds_read_result       *result;
struct DSError              *error;
{
    struct DAPindication	  di_s;
    struct DAPindication	* di = &(di_s);

    DLOG(log_dsap, LLOG_TRACE, ("dap_read()"));

    ++(*id);

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

    error->dse_type = DSE_NOERROR;

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

            /* Nasty struct copy */
            (*result) = dr->dr_res.res_rd;      /* struct copy */
            dr->dr_res.result_type = -1;        /* Prevent freeing */
	    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	  DapRead (ad, id, arg, di, asyn)
int			  ad;
int			  id;
struct ds_read_arg	* arg;
struct DAPindication	* di;
int			  asyn;
{
    PE                  arg_pe;

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

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

}