DataMuseum.dk

top - metrics - download

    Length: 4573 (0x11dd)
    Types: TextFile
    Names: »ftamaccess2.c«

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

TextFile

/* ftamaccess2.c - FPM: respond to file access */

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

/* 
 * $Header: /f/osi/ftam/RCS/ftamaccess2.c,v 7.0 89/11/23 21:53:21 mrose Rel $
 *
 *
 * $Log:	ftamaccess2.c,v $
 * Revision 7.0  89/11/23  21:53:21  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 "fpkt.h"

/* \f

   F-{LOCATE,ERASE}.RESPONSE */

int	FAccessResponse (sd, action, identity, diag, ndiag, fti)
int	sd;
int	action;
struct FADUidentity *identity;	/* F-LOCATE.RESPONSE only */
struct FTAMdiagnostic diag[];
int	ndiag;
struct FTAMindication *fti;
{
    SBV	    smask;
    int     result;
    register struct ftamblk *fsb;

    switch (action) {
	case FACTION_SUCCESS: 
	case FACTION_TRANS: 
	case FACTION_PERM: 
	    break;

	default: 
	    return ftamlose (fti, FS_GEN_NOREASON, 0, NULLCP,
		    "bad value for action parameter");
    }
    toomuchP (diag, ndiag, NFDIAG, "diagnostic");
    missingP (fti);

    smask = sigioblock ();

    ftamPsig (fsb, sd);

    result = FAccessResponseAux (fsb, action, identity, diag, ndiag, fti);

    (void) sigiomask (smask);

    return result;
}

/* \f

 */

static int  FAccessResponseAux (fsb, action, identity, diag, ndiag, fti)
register struct ftamblk *fsb;
int	action;
struct FADUidentity *identity;
struct FTAMdiagnostic diag[];
int	ndiag;
struct FTAMindication *fti;
{
    int     result;
    PE	    pe;
    struct PSAPindication   pis;
    struct PSAPindication  *pi = &pis;
    struct PSAPabort   *pa = &pi -> pi_abort;
    register struct type_FTAM_PDU *pdu;
    register struct type_FTAM_F__LOCATE__response *loc;
    register struct type_FTAM_F__ERASE__response *era;

    if (fsb -> fsb_flags & FSB_INIT)
	return ftamlose (fti, FS_GEN (fsb), 0, NULLCP, "not responder");
    switch (fsb -> fsb_state) {
	case FSB_LOCATE:
	    break;

	case FSB_ERASE:
	    if (identity)
		return ftamlose (fti, FS_GEN (fsb), 0, NULLCP,
			    "FADU identity parameter not allowed");
	    break;

	default:
	    return ftamlose (fti, FS_GEN (fsb), 0, NULLCP, "wrong state");
    }

    pe = NULLPE;
    if ((pdu = (struct type_FTAM_PDU *) calloc (1, sizeof *pdu)) == NULL) {
no_mem: ;
	(void) ftamlose (fti, FS_GEN (fsb), 1, NULLCP, "out of memory");
out: ;
	if (pe)
	    pe_free (pe);
	if (pdu)
	    free_FTAM_PDU (pdu);
	if (fti -> fti_abort.fta_action == FACTION_PERM)
	    freefsblk (fsb);
	return NOTOK;
    }
    if (fsb -> fsb_state != FSB_LOCATE) {
	pdu -> offset = type_FTAM_PDU_f__erase__response;
	if ((era = (struct type_FTAM_F__ERASE__response *)
	     		calloc (1, sizeof *era)) == NULL)
	    goto no_mem;
	pdu -> un.f__erase__response = era;

	if ((era -> action__result =
		(struct type_FTAM_Action__Result *)
			calloc (1, sizeof *era -> action__result)) == NULL)
	    goto no_mem;
	era -> action__result -> parm = action;
	if (ndiag > 0
	        && (era -> diagnostic = diag2fpm (fsb, 0, diag, ndiag, fti))
			== NULL)
	    goto out;
    }
    else {
	pdu -> offset = type_FTAM_PDU_f__locate__response;
	if ((loc = (struct type_FTAM_F__LOCATE__response *)
	     		calloc (1, sizeof *loc)) == NULL)
	    goto no_mem;
	pdu -> un.f__locate__response = loc;

	if ((loc -> action__result =
		(struct type_FTAM_Action__Result *)
			calloc (1, sizeof *loc -> action__result)) == NULL)
	    goto no_mem;
	loc -> action__result -> parm = action;
	if (identity
	        && (loc -> file__access__data__unit__identity =
				faduid2fpm (fsb, identity, fti)) == NULL)
	    goto out;
	if (ndiag > 0
	        && (loc -> diagnostic = diag2fpm (fsb, 0, diag, ndiag, fti))
			== NULL)
	    goto out;
    }

    if (encode_FTAM_PDU (&pe, 1, 0, NULLCP, pdu) == NOTOK) {
	(void) ftamlose (fti, FS_GEN (fsb), 1, NULLCP,
			 "error encoding PDU: %s", PY_pepy);
	goto out;
    }

    pe -> pe_context = fsb -> fsb_id;

    fsbtrace (fsb, (fsb -> fsb_fd, "P-DATA.REQUEST",
		    fsb -> fsb_state != FSB_LOCATE ? "F-LOCATE-response"
					: "F-ERASE-response", pe, 0));

    result = PDataRequest (fsb -> fsb_fd, &pe, 1, pi);

    pe_free (pe);
    pe = NULLPE;
    free_FTAM_PDU (pdu);
    pdu = NULL;

    if (result == NOTOK) {
	(void) ps2ftamlose (fsb, fti, "PDataRequest", pa);
	goto out;
    }

    fsb -> fsb_state = FSB_DATAIDLE;

    return OK;
}