odr/ber_oid.c

   1 /*
   2  * Copyright (c) 1995, Index Data
   3  * See the file LICENSE for details.
   4  * Sebastian Hammer, Adam Dickmeiss
   5  *
   6  * $Log: ber_oid.c,v $
   7  * Revision 1.10  1999-11-30 13:47:11  adam
   8  * Improved installation. Moved header files to include/yaz.
   9  *
  10  * Revision 1.9  1995/09/29 17:12:19  quinn
  11  * Smallish
  12  *
  13  * Revision 1.8  1995/09/27  15:02:56  quinn
  14  * Modified function heads & prototypes.
  15  *
  16  * Revision 1.7  1995/05/16  08:50:47  quinn
  17  * License, documentation, and memory fixes
  18  *
  19  * Revision 1.6  1995/04/18  08:15:18  quinn
  20  * Added dynamic memory allocation on encoding (whew). Code is now somewhat
  21  * neater. We'll make the same change for decoding one day.
  22  *
  23  * Revision 1.5  1995/03/20  12:18:22  quinn
  24  * Fixed bug in ber_oid
  25  *
  26  * Revision 1.4  1995/03/08  12:12:11  quinn
  27  * Added better error checking.
  28  *
  29  * Revision 1.3  1995/03/01  08:40:56  quinn
  30  * Smallish changes.
  31  *
  32  * Revision 1.2  1995/02/14  20:39:55  quinn
  33  * Fixed bugs in completeBER and (serious one in) ber_oid.
  34  *
  35  * Revision 1.1  1995/02/03  17:04:36  quinn
  36  * Initial revision
  37  *
  38  */
  39
  40 #include <yaz/odr.h>
  41
  42 int ber_oidc(ODR o, Odr_oid *p)
  43 {
  44     int len, lenp, end;
  45     int pos, n, res, id;
  46     unsigned char octs[8];
  47
  48     switch (o->direction)
  49     {
  50         case ODR_DECODE:
  51             if ((res = ber_declen(o->bp, &len)) < 1)
  52             {
  53                 o->error = OPROTO;
  54                 return 0;
  55             }
  56             if (len < 0)
  57             {
  58                 o->error = OPROTO;
  59                 return 0;
  60             }
  61             o->bp += res;
  62             o->left -= res;
  63             if (len == 0)
  64             {
  65                 *p = -1;
  66                 return 1;
  67             }
  68             p[0] = *o->bp / 40;
  69             if (p[0] > 2)
  70                 p[0] = 2;
  71             p[1] = *o->bp - p[0] * 40;
  72             o->bp++;
  73             o->left--;
  74             pos = 2;
  75             len--;
  76             while (len)
  77             {
  78                 p[pos] = 0;
  79                 do
  80                 {
  81                     if (!len)
  82                     {
  83                         o->error = OPROTO;
  84                         return 0;
  85                     }
  86                     p[pos] <<= 7;
  87                     p[pos] |= *o->bp & 0X7F;
  88                     len--;
  89                     o->left--;
  90                 }
  91                 while (*(o->bp++) & 0X80);
  92                 pos++;
  93             }
  94             p[pos] = -1;
  95             return 1;
  96         case ODR_ENCODE:
  97             /* we'll allow ourselves the quiet luxury of only doing encodings
  98                shorter than 127 */
  99             lenp = odr_tell(o);
 100             if (odr_putc(o, 0) < 0)   /* dummy */
 101                 return 0;
 102             if (p[0] < 0 && p[1] <= 0)
 103             {
 104                 o->error = ODATA;
 105                 return 0;
 106             }
 107             for (pos = 1; p[pos] >= 0; pos++)
 108             {
 109                 id = pos > 1 ? p[pos] : p[0] * 40 + p[1];
 110                 n = 0;
 111                 do
 112                 {
 113                     octs[n++] = id & 0X7F;
 114                     id >>= 7;
 115                 }
 116                 while (id);
 117                 while (n--)
 118                 {
 119                     unsigned char p;
 120
 121                     p = octs[n] | ((n > 0) << 7);
 122                     if (odr_putc(o, p) < 0)
 123                         return 0;
 124                 }
 125             }
 126             end = odr_tell(o);
 127             odr_seek(o, ODR_S_SET, lenp);
 128             if (ber_enclen(o, (end - lenp) - 1, 1, 1) != 1)
 129             {
 130                 o->error = OOTHER;
 131                 return 0;
 132             }
 133             odr_seek(o, ODR_S_END, 0);
 134             return 1;
 135         default: o->error = OOTHER; return 0;
 136     }
 137 }