Removed definition "LIB= rpc". We want libc.a to contain librpc.a, not

[unix-history] / .ref-BSD-4_3_Net_2 / usr / src / contrib / isode / psap / qb2prim.c

/* qb2prim.c - octet string to primitive */

#ifndef lint
static char *rcsid = "$Header: /f/osi/psap/RCS/qb2prim.c,v 7.3 91/02/22 09:36:43 mrose Interim $";
#endif

/* 
* $Header: /f/osi/psap/RCS/qb2prim.c,v 7.3 91/02/22 09:36:43 mrose Interim $
*
*
* $Log:        qb2prim.c,v $
* Revision 7.3  91/02/22  09:36:43  mrose
* Interim 6.8
* 
* Revision 7.2  90/03/23  11:05:53  mrose
* typo
* 
* Revision 7.1  90/03/22  08:38:15  mrose
* touch-up
* 
* Revision 7.0  89/11/23  22:13:29  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 "psap.h"

/* form: PRIMitive or CONStructor --

       qb2prim  -      octet string (via qbufs) to presentation element

*/

/* \f */

PE      qb2prim_aux (qb, class, id, in_line)
register struct qbuf *qb;
PElementClass   class;
PElementID      id;
int     in_line;
{
   register PE     pe,
                   p;
   register struct qbuf *qp;

   if (qb == NULL)
       return NULLPE;
   
   if ((qp = qb -> qb_forw) == qb || qp -> qb_forw == qb) {
       if ((pe = pe_alloc (class, PE_FORM_PRIM, id)) == NULLPE)
           return NULLPE;

       if (in_line) {
           if (pe -> pe_len = qp -> qb_len)
               pe -> pe_prim = (PElementData) qp -> qb_data;
           pe -> pe_inline = 1;
       }
       else
           if (pe -> pe_len = qp -> qb_len) {
               if ((pe -> pe_prim = PEDalloc (pe -> pe_len)) == NULLPED)
                   goto no_mem;
               PEDcpy (qp -> qb_data, pe -> pe_prim, pe -> pe_len);
           }
   }
   else {
       if ((pe = pe_alloc (class, PE_FORM_CONS, id)) == NULLPE)
           return NULLPE;

       do {
           if (seq_add (pe, p = pe_alloc (PE_CLASS_UNIV, PE_FORM_PRIM,
                                          PE_PRIM_OCTS), -1) == NOTOK) {
no_mem: ;
               pe_free (pe);
               return NULLPE;
           }

           p -> pe_len = qp -> qb_len;
           if (in_line) {
               p -> pe_prim = (PElementData) qp -> qb_data;
               p -> pe_inline = 1;
           }
           else {
               if ((p -> pe_prim = PEDalloc (p -> pe_len)) == NULLPED)
                   goto no_mem;
               PEDcpy (qp -> qb_data, p -> pe_prim, p -> pe_len);
           }

           qp = qp -> qb_forw;
       }
       while (qp != qb);
   }

   return pe;
}