odr/ber_bit.c

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