Return to rosapuerror.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / rosap

Annotation of 43BSDReno/contrib/isode-beta/rosap/rosapuerror.c, revision 1.1.1.1

1.1       root        1: /* rosapuerror.c - ROPM: error */
                      2: 
                      3: #ifndef        lint
                      4: static char *rcsid = "$Header: /f/osi/rosap/RCS/rosapuerror.c,v 6.0 89/03/18 23:42:31 mrose Rel $";
                      5: #endif
                      6: 
                      7: /* 
                      8:  * $Header: /f/osi/rosap/RCS/rosapuerror.c,v 6.0 89/03/18 23:42:31 mrose Rel $
                      9:  *
                     10:  * Based on an TCP-based implementation by George Michaelson of University
                     11:  * College London.
                     12:  *
                     13:  *
                     14:  * $Log:       rosapuerror.c,v $
                     15:  * Revision 6.0  89/03/18  23:42:31  mrose
                     16:  * Release 5.0
                     17:  * 
                     18:  */
                     19: 
                     20: /*
                     21:  *                               NOTICE
                     22:  *
                     23:  *    Acquisition, use, and distribution of this module and related
                     24:  *    materials are subject to the restrictions of a license agreement.
                     25:  *    Consult the Preface in the User's Manual for the full terms of
                     26:  *    this agreement.
                     27:  *
                     28:  */
                     29: 
                     30: 
                     31: /* LINTLIBRARY */
                     32: 
                     33: #include <stdio.h>
                     34: #include <signal.h>
                     35: #include "ropkt.h"
                     36: 
                     37: /*    RO-ERROR.REQUEST */
                     38: 
                     39: int    RoErrorRequest (sd, invokeID, error, params, priority, roi)
                     40: int    sd;
                     41: int    invokeID,
                     42:        error,
                     43:        priority;
                     44: PE     params;
                     45: struct RoSAPindication *roi;
                     46: {
                     47:     SBV            smask;
                     48:     int     result;
                     49:     register struct assocblk   *acb;
                     50: 
                     51:     missingP (roi);
                     52: 
                     53:     smask = sigioblock ();
                     54: 
                     55:     rosapPsig (acb, sd);
                     56: 
                     57:     result = RoErrorRequestAux (acb, invokeID, error, params, priority, roi);
                     58: 
                     59:     (void) sigiomask (smask);
                     60: 
                     61:     return result;
                     62: }
                     63: 
                     64: /*  */
                     65: 
                     66: static int  RoErrorRequestAux (acb, invokeID, error, params, priority, roi)
                     67: register struct assocblk   *acb;
                     68: int    invokeID,
                     69:        error,
                     70:        priority;
                     71: PE     params;
                     72: struct RoSAPindication *roi;
                     73: {
                     74:     register PE        pe,
                     75:                p;
                     76: 
                     77:     if ((acb -> acb_flags & ACB_INIT) && (acb -> acb_flags & ACB_ROS))
                     78:        return rosaplose (roi, ROS_OPERATION, NULLCP, "not responder");
                     79:     if (!(acb -> acb_flags & ACB_ACS)) {
                     80:        missingP (params);
                     81:     }
                     82: 
                     83:     if (acb -> acb_ready
                     84:            && !(acb -> acb_flags & ACB_TURN)
                     85:            && (*acb -> acb_ready) (acb, priority, roi) == NOTOK)
                     86:        return NOTOK;
                     87: 
                     88: /* begin Error APDU */
                     89:     if ((pe = pe_alloc (PE_CLASS_CONT, PE_FORM_CONS, APDU_ERROR)) == NULLPE
                     90:            || ((acb -> acb_flags & ACB_ACS)
                     91:                    ? (p = pe, 0)
                     92:                    : set_add (pe, p = pe_alloc (PE_CLASS_UNIV, PE_FORM_CONS,
                     93:                        PE_CONS_SEQ)) == NOTOK)
                     94:            || seq_add (p, int2prim (invokeID), -1) == NOTOK
                     95:            || seq_add (p, int2prim (error), -1) == NOTOK
                     96:            || (params && seq_add (p, params, -1) == NOTOK)) {
                     97:        if (pe) {
                     98:            if (params)
                     99:                (void) pe_extract (pe, params);
                    100:            pe_free (pe);
                    101:        }
                    102:        freeacblk (acb);
                    103:        return rosaplose (roi, ROS_CONGEST, NULLCP, "out of memory");
                    104:     }
                    105: /* end Error APDU */
                    106: 
                    107:     return (*acb -> acb_putosdu) (acb, pe, params, priority, roi);
                    108: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.