.ref-BSD-4_3_Net_2/usr/src/contrib/isode/ftam/ftambulk.c

/* ftambulk.c - FPM: bulk data transfer */

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

/*
 * $Header: /f/osi/ftam/RCS/ftambulk.c,v 7.1 91/02/22 09:22:40 mrose Interim $
 *
 *
 * $Log:        ftambulk.c,v $
 * Revision 7.1  91/02/22  09:22:40  mrose
 * Interim 6.8
 *
 * Revision 7.0  89/11/23  21:53:26  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-DATA.REQUEST */

int     FDataRequest (sd, fadus, nfadu, fti)
int     sd;
PE      fadus[];
int     nfadu;
struct FTAMindication *fti;
{
    SBV     smask;
    int     result;
    register struct ftamblk *fsb;

    missingP (fti);

    smask = sigioblock ();

    ftamPsig (fsb, sd);

    result = FDataRequestAux (fsb, fadus, nfadu, fti);

    (void) sigiomask (smask);

    return result;
}

/* \f */

static int  FDataRequestAux (fsb, fadus, nfadu, fti)
register struct ftamblk *fsb;
PE      fadus[];
int     nfadu;
struct FTAMindication *fti;
{
    register int    i;
    PE      pe,
           *pep;
    struct PSAPindication   pis;
    struct PSAPindication  *pi = &pis;
    struct PSAPabort   *pa = &pi -> pi_abort;

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

        case FSB_DATAWRITE:
            if (!(fsb -> fsb_flags & FSB_INIT))
                return ftamlose (fti, FS_GEN (fsb), 0, NULLCP,
                        "not initiator");
            break;

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

    for (pep = fadus, i = nfadu - 1; i >= 0; pep++, i--) {
        if ((pe = *pep) == NULLPE)
            return ftamlose (fti, FS_GEN (fsb), 0, NULLCP,
                    "empty FADU at slot %d", nfadu - i - 1);

        if (pe -> pe_context == PE_DFLT_CTX)
            pe -> pe_context = fsb -> fsb_id;

        if (pe -> pe_context == fsb -> fsb_id)
            switch (PE_ID (pe -> pe_class, pe -> pe_id)) {
                case PE_ID (PE_CLASS_APPL, FADU_NODESCR):
                case PE_ID (PE_CLASS_APPL, FADU_ENTERTREE):
                case PE_ID (PE_CLASS_APPL, FADU_EXITREE):
                    break;

                default:
                    return ftamlose (fti, FS_GEN (fsb), 0, NULLCP,
                                "bad context at slot %d", nfadu - i - 1);
            }
    }

    if (PDataRequest (fsb -> fsb_fd, fadus, nfadu, pi) == NOTOK) {
        (void) ps2ftamlose (fsb, fti, "PDataRequest", pa);
        if (PC_FATAL (pa -> pa_reason))
            freefsblk (fsb);

        return NOTOK;
    }

    return OK;
}

/* \f   F-DATA-END.REQUEST */

int     FDataEndRequest (sd, action, diag, ndiag, fti)
int     sd;
int     action;
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 = FDataEndRequestAux (fsb, action, diag, ndiag, fti);

    (void) sigiomask (smask);

    return result;
}

/* \f */

static int  FDataEndRequestAux (fsb, action, diag, ndiag, fti)
register struct ftamblk *fsb;
int     action;
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__DATA__END__request *req;

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

        case FSB_DATAWRITE:
            if (!(fsb -> fsb_flags & FSB_INIT))
                return ftamlose (fti, FS_GEN (fsb), 0, NULLCP,
                        "not initiator");
            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;
    }
    pdu -> offset = type_FTAM_PDU_f__data__end__request;
    if ((req = (struct type_FTAM_F__DATA__END__request *)
                        calloc (1, sizeof *req)) == NULL)
        goto no_mem;
    pdu -> un.f__data__end__request = req;
    if ((req -> action__result =
             (struct type_FTAM_Action__Result *)
                        calloc (1, sizeof *req -> action__result)) == NULL)
        goto no_mem;
    req -> action__result -> parm = action;
    if (ndiag > 0
            && (req -> 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", "F-DATA-END-request", 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_DATAFIN1;

    return OK;
}

/* \f   F-CANCEL.REQUEST */

int     FCancelRequest (sd, action, sharedASE, diag, ndiag, fti)
int     sd;
int     action;
PE      sharedASE;
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 = FCancelRequestAux (fsb, action, sharedASE, diag, ndiag, fti);

    (void) sigiomask (smask);

    return result;
}

/* \f */

static int  FCancelRequestAux (fsb, action, sharedASE, diag, ndiag, fti)
register struct ftamblk *fsb;
int     action;
PE      sharedASE;
struct FTAMdiagnostic diag[];
int     ndiag;
struct FTAMindication *fti;
{
    int     result,
            settings;
    char   *prequest;
    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__CANCEL__request *req;

    switch (fsb -> fsb_state) {
        case FSB_DATAREAD:
        case FSB_DATAWRITE:
                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;
    }
    pdu -> offset = type_FTAM_PDU_f__cancel__request;
    if ((req = (struct type_FTAM_F__CANCEL__request *)
                        calloc (1, sizeof *req)) == NULL)
        goto no_mem;
    pdu -> un.f__cancel__request = req;
    if ((req -> action__result =
             (struct type_FTAM_Action__Result *)
                        calloc (1, sizeof *req -> action__result)) == NULL)
        goto no_mem;
    req -> action__result -> parm = action;
    if (sharedASE
            && (req -> shared__ASE__information =
                        shared2fpm (fsb, sharedASE, fti)) == NULL)
        goto out;
    if (ndiag > 0
            && (req -> 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;

    if (fsb -> fsb_srequirements & SR_RESYNC) {
        fsbtrace (fsb, (fsb -> fsb_fd, "P-RESYNCHRONIZE.REQUEST",
                        "F-CANCEL-request", pe, 0));

        settings = 0;           /* XXX: more later! */

        result = PReSyncRequest (fsb -> fsb_fd, SYNC_ABANDON, SERIAL_NONE,
                        settings, &pe, 1, pi);

        prequest = "PReSyncRequest";
    }
    else {
        fsbtrace (fsb, (fsb -> fsb_fd, "P-DATA.REQUEST", "F-CANCEL-request",
                        pe, 0));

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

        prequest = "PDataRequest";
    }

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

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

    fsb -> fsb_flags |= FSB_CANCEL;
    fsb -> fsb_state = FSB_DATACANCEL;
    fsb -> fsb_cancelaction = action;
    if (fsb -> fsb_cancelshared = sharedASE)
        fsb -> fsb_cancelshared -> pe_refcnt++;
    fsb -> fsb_canceldiags = diag;
    fsb -> fsb_cancelndiag = ndiag;

    return FWaitRequestAux (fsb, NOTOK, fti);
}

/* \f   F-CANCEL.RESPONSE */

int     FCancelResponse (sd, action, sharedASE, diag, ndiag, fti)
int     sd;
int     action;
PE      sharedASE;
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 = FCancelResponseAux (fsb, action, sharedASE, diag, ndiag, fti);

    (void) sigiomask (smask);

    return result;
}

/* \f */

int     FCancelResponseAux (fsb, action, sharedASE, diag, ndiag, fti)
register struct ftamblk *fsb;
int     action;
PE      sharedASE;
struct FTAMdiagnostic diag[];
int     ndiag;
struct FTAMindication *fti;
{
    int     result;
    char   *prequest;
    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__CANCEL__response *rsp;

    if (fsb -> fsb_state != FSB_DATACANCEL)
        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;
    }
    pdu -> offset = type_FTAM_PDU_f__cancel__response;
    if ((rsp = (struct type_FTAM_F__CANCEL__response *)
                        calloc (1, sizeof *rsp)) == NULL)
        goto no_mem;
    pdu -> un.f__cancel__response = rsp;
    if ((rsp -> action__result =
             (struct type_FTAM_Action__Result *)
                        calloc (1, sizeof *rsp -> action__result)) == NULL)
        goto no_mem;
    rsp -> action__result -> parm = action;
    if (sharedASE
            && (rsp -> shared__ASE__information =
                        shared2fpm (fsb, sharedASE, fti)) == NULL)
        goto out;
    if (ndiag > 0
            && (rsp -> 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;

    if (fsb -> fsb_srequirements & SR_RESYNC) {
        fsbtrace (fsb, (fsb -> fsb_fd, "P-RESYNCHRONIZE.RESPONSE",
                "F-CANCEL-response", pe, 0));

        result = PReSyncResponse (fsb -> fsb_fd, SERIAL_NONE,
                        fsb -> fsb_settings, &pe, 1, pi);

        prequest = "PReSyncResponse";
    }
    else {
        fsbtrace (fsb, (fsb -> fsb_fd, "P-DATA.REQUEST", "F-CANCEL-response",
                pe, 0));

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

        prequest = "PDataRequest";
    }

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

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

    fsb -> fsb_state = FSB_DATAIDLE;

    return OK;
}