386BSD 0.1 development

[unix-history] / usr / othersrc / contrib / isode / vt / actions5.c

/* actions5.c - VTPM: FSM sector 5 actions */

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

/* 
* $Header: /f/osi/vt/RCS/actions5.c,v 7.1 91/02/22 09:47:54 mrose Interim $
*
*
* $Log:        actions5.c,v $
* Revision 7.1  91/02/22  09:47:54  mrose
* Interim 6.8
* 
* Revision 7.0  89/11/23  22:31:27  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.
*
*/


#include "vtpm.h"
#include "sector1.h"

/************************************************************************/
/*      This file contains the functions that are executed when the     */
/*      VT Protocol machine is in a Sector 5 state and a protocol       */
/*      event occurs.  The state transition matrix is specified in      */
/*      Table 32 of ISO 9041 (July 1987 version).  The actions which    */
/*      this collection of functions perform are specified in Table 40  */
/*      of ISO 9041.                                                    */
/************************************************************************/

extern int sd;          /*Global Session Descriptor (ISODE) */

               /*  xx1x xxxx = awaiting ack from peer i.e., 420 */
               /*  xxxx xx1x = awaiting ack from user */

               /* T = got token, N = no got token */


               /* 
                  req: usr==>vtpm
                  ind: vtpm==>usr
               */
int
ce_104(pe)      /* common event 104 */
PE pe;
{
               /* if (vnt > 0) */
               if(pe != NULLPE) vdatind(SEQUENCED,pe);
               vnt = 0;
               return(OK);
}

int
ce_105()        /* common event 105 */
{
               /* if (vns > 0)  for(... */
               if(p_ondq != NULLPE) 
                       (void)p_data(p_ondq);  /* send NDQ      */
               vns = 0;
               return(OK);
}


/* ARGSUSED */
int
a5_0(pe)        /*VDATreq-sqtr in states 400B or 402B */
               /* V data request addressing sequenced trigger co */
PE pe;
{
       return(ce_105());
/*
       ==> SAMESTATE;
*/
}


/* ARGSUSED */
int
a5_1(pe)        /*VDATreq-n in states 400B, 402B or 40T */
               /* V data request addressing sequenced trigger co */
PE pe;
{

       /*
       vns++;
       ==> SAMESTATE
       */
       return(ce_105());       /*Autonomous Event to Ship it*/
}


int
a5_2(pe)        /*NDQ-tr in states 400B, 420B */
PE pe;
{
       /*
       vnt++;
       */
       
       return(ce_104(pe));
       /*
       ==> SAMESTATE
       */
}


int
a5_3(pe)        /*NDQ-ntr in states 400B, 420B */
PE pe;
{
       /*
       vnt++;
       */
       /*
       ==> SAMESTATE
       */
       return(ce_104(pe));     /*Autonomous Event to Deliver to User*/
}

int
a5_5(pe)        /* VBRKreq  */
PE pe;
{
       vtok = 0; /* giving the token away */
       vnt = 0;
       vns = 0;
       /* vtkp was set in vbrkreq so it could be coded in to the pe */
       (void)p_resync_req(pe,SYNC_RESTART); /* send break request */
       state = S5_61;
       return(OK);
}

int
a5_6(pe)        /* VBRKrsp in state 62 */
PE pe;
{
       (void)p_resync_resp(pe); /* send out break response */
       if (vsmd && vtok) 
               state = S5_40T;
       else 
               if (vsmd) 
                       state = S5_40N;
               else {
                       vtkp = INITIATOR;
                       if (vtok) 
                               vtkp = ACCEPTOR;
                       state = S5_400B;
               }
       return(OK);
}

int
a5_9(pe)        /*VDELreq in states 400B, 402B */
PE pe;
{
       if (dcno) /* no delivery control */
       {
          advise(LLOG_DEBUG,NULLCP,"a5_9: dcno hasn't been set");
          /* ==> SAMESTATE */
          return(NOTOK);
       }
       (void)ce_105();
       /* send out dlq */
       /* this will be replace by the new-fangled pepy schtuff;
               will use this now for compatability */
       
       (void)p_data(pe);
       state = (vra) ? state + 2 : state; /* pretty neeto eh? */
       return(OK);
}

int
a5_11(pe)       /*HDQ request in 400B*/
PE pe;
{
       (void) p_typed_data(pe);
       return(OK);
}

/*ARGSUSED*/
int
a5_17(pe)       /*VRELreq in states 400B */
PE pe;
{
/*      ce_105(); */
       sector = 1;
       if(vtok)
       {
               state = S1_51Q;         /*Must change state first because
                                         vt_disconnect gets RLR & calls
                                         state machine again. */
               vt_disconnect();        /*May be only TEMP*/
       }
       else
       {
               request_token();
                       /*Need call to ISODE to request token*/
               state = S1_50B;
       }

       return(OK);
}

int
a5_28(pe)       /*UDQ request in 400B*/
PE pe;
{
       (void) p_typed_data(pe);
       return(OK);
}

int
a5_31(pe)       /* BKR in 61 */
PE pe;
{
       if (vsmd && vtok) state = S5_40T;
               else if (vsmd) state = S5_40N;
                       else state = S5_400B;
       vbrkcnf(pe);
       return(OK);
}

int
a5_32(pe)       /* BKQ could occur in any state except 62 */
PE pe;
{
       vnt = 0;
       vns = 0;
       /*
          vbrkind clears queues etc.
          and then map the break character to user
          and sets vtok to 1
          (we should have received the token) 
       */
       state = S5_62;
       vbrkind(pe);
       return(OK);
}

int
a5_34(pe)       /*UDQ in 400B*/
PE pe;
{
       if(pe != NULLPE) vudatind(pe);
       return(OK);
}

int
a5_35(pe)       /* DEL in states 400B, 420B */
PE pe;
{

       if ((vra = prim2flag(pe)) == NOTOK)
               adios("a5_35: bogus PDU (%s)", pe_error (pe -> pe_errno));
       (void)ce_104(NULLPE);
       vdelind(pe,vra);
       state = (vra) ? state + 2 : state;
       return(OK);
}


int
a5_38(pe)       /* RLQ in states 400B */
PE pe;
{

       (void)ce_104(pe);
       sector = 1;
       state = S1_51R;
       (void)vrelind();
       return(OK);
}

int
a5_106(pe)
PE pe;
{
       if(pe != NULLPE) vhdatind(pe);
       return(OK);
}