odr/ber_bool.c

   1 /*
   2  * Copyright (c) 1995, Index Data
   3  * See the file LICENSE for details.
   4  * Sebastian Hammer, Adam Dickmeiss
   5  *
   6  * $Log: ber_bool.c,v $
   7  * Revision 1.9  1999-11-30 13:47:11  adam
   8  * Improved installation. Moved header files to include/yaz.
   9  *
  10  * Revision 1.8  1995/09/29 17:12:16  quinn
  11  * Smallish
  12  *
  13  * Revision 1.7  1995/09/27  15:02:55  quinn
  14  * Modified function heads & prototypes.
  15  *
  16  * Revision 1.6  1995/05/16  08:50:43  quinn
  17  * License, documentation, and memory fixes
  18  *
  19  * Revision 1.5  1995/04/18  08:15:14  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.4  1995/03/21  10:17:27  quinn
  24  * Fixed little bug in decoder.
  25  *
  26  * Revision 1.3  1995/03/08  12:12:06  quinn
  27  * Added better error checking.
  28  *
  29  * Revision 1.2  1995/02/09  15:51:45  quinn
  30  * Works better now.
  31  *
  32  * Revision 1.1  1995/02/02  16:21:51  quinn
  33  * First kick.
  34  *
  35  */
  36
  37 #include <stdio.h>
  38 #include <yaz/odr.h>
  39
  40 int ber_boolean(ODR o, int *val)
  41 {
  42     int res, len;
  43
  44     switch (o->direction)
  45     {
  46         case ODR_ENCODE:
  47             if (ber_enclen(o, 1, 1, 1) != 1)
  48                 return 0;
  49             if (odr_putc(o, *val) < 0)
  50                 return 0;
  51 #ifdef ODR_DEBUG
  52             fprintf(stderr, "[val=%d]\n", *val);
  53 #endif
  54             return 1;
  55         case ODR_DECODE:
  56             if ((res = ber_declen(o->bp, &len)) < 0)
  57             {
  58                 o->error = OPROTO;
  59                 return 0;
  60             }
  61             if (len != 1)
  62             {
  63                 o->error = OPROTO;
  64                 return 0;
  65             }
  66             o->bp+= res;
  67             o->left -= res;
  68             *val = *o->bp;
  69             o->bp++;
  70             o->left--;
  71 #ifdef ODR_DEBUG
  72             fprintf(stderr, "[val=%d]\n", *val);
  73 #endif
  74             return 1;
  75         case ODR_PRINT:
  76             return 1;
  77         default: o->error = OOTHER; return 0;
  78     }
  79 }