odr/ber_bit.c

   1 /*
   2  * Copyright (c) 1995-1999, Index Data
   3  * See the file LICENSE for details.
   4  * Sebastian Hammer, Adam Dickmeiss
   5  *
   6  * $Log: ber_bit.c,v $
   7  * Revision 1.11  2000-01-31 13:15:21  adam
   8  * Removed uses of assert(3). Cleanup of ODR. CCL parser update so
   9  * that some characters are not surrounded by spaces in resulting term.
  10  * ILL-code updates.
  11  *
  12  * Revision 1.10  1999/11/30 13:47:11  adam
  13  * Improved installation. Moved header files to include/yaz.
  14  *
  15  * Revision 1.9  1999/04/20 09:56:48  adam
  16  * Added 'name' paramter to encoder/decoder routines (typedef Odr_fun).
  17  * Modified all encoders/decoders to reflect this change.
  18  *
  19  * Revision 1.8  1999/01/08 11:23:21  adam
  20  * Added const modifier to some of the BER/ODR encoding routines.
  21  *
  22  * Revision 1.7  1995/09/29 17:12:16  quinn
  23  * Smallish
  24  *
  25  * Revision 1.6  1995/09/27  15:02:54  quinn
  26  * Modified function heads & prototypes.
  27  *
  28  * Revision 1.5  1995/05/16  08:50:43  quinn
  29  * License, documentation, and memory fixes
  30  *
  31  * Revision 1.4  1995/04/18  08:15:13  quinn
  32  * Added dynamic memory allocation on encoding (whew). Code is now somewhat
  33  * neater. We'll make the same change for decoding one day.
  34  *
  35  * Revision 1.3  1995/03/08  12:12:04  quinn
  36  * Added better error checking.
  37  *
  38  * Revision 1.2  1995/02/03  17:04:31  quinn
  39  * *** empty log message ***
  40  *
  41  * Revision 1.1  1995/02/02  20:38:49  quinn
  42  * Updates.
  43  *
  44  *
  45  */
  46
  47 #include <yaz/odr.h>
  48
  49 int ber_bitstring(ODR o, Odr_bitmask *p, int cons)
  50 {
  51     int res, len;
  52     const unsigned char *base;
  53
  54     switch (o->direction)
  55     {
  56         case ODR_DECODE:
  57             if ((res = ber_declen(o->bp, &len)) < 0)
  58             {
  59                 o->error = OPROTO;
  60                 return 0;
  61             }
  62             o->bp += res;
  63             if (cons)       /* fetch component strings */
  64             {
  65                 base = o->bp;
  66                 while (odp_more_chunks(o, base, len))
  67                     if (!odr_bitstring(o, &p, 0, 0))
  68                         return 0;
  69                 return 1;
  70             }
  71             /* primitive bitstring */
  72             if (len < 0)
  73             {
  74                 o->error = OOTHER;
  75                 return 0;
  76             }
  77             if (len == 0)
  78                 return 1;
  79             if (len - 1 > ODR_BITMASK_SIZE)
  80             {
  81                 o->error = OOTHER;
  82                 return 0;
  83             }
  84             o->bp++;      /* silently ignore the unused-bits field */
  85             len--;
  86             memcpy(p->bits + p->top + 1, o->bp, len);
  87             p->top += len;
  88             o->bp += len;
  89             return 1;
  90         case ODR_ENCODE:
  91             if ((res = ber_enclen(o, p->top + 2, 5, 0)) < 0)
  92                 return 0;
  93             if (odr_putc(o, 0) < 0)    /* no unused bits here */
  94                 return 0;
  95             if (p->top < 0)
  96                 return 1;
  97             if (odr_write(o, p->bits, p->top + 1) < 0)
  98                 return 0;
  99             return 1;
 100         case ODR_PRINT: return 1;
 101         default: o->error = OOTHER; return 0;
 102     }
 103 }