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.10  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.9  1999/11/30 13:47:11  adam
  13  * Improved installation. Moved header files to include/yaz.
  14  *
  15  * Revision 1.8  1995/09/29 17:12:16  quinn
  16  * Smallish
  17  *
  18  * Revision 1.7  1995/09/27  15:02:55  quinn
  19  * Modified function heads & prototypes.
  20  *
  21  * Revision 1.6  1995/05/16  08:50:43  quinn
  22  * License, documentation, and memory fixes
  23  *
  24  * Revision 1.5  1995/04/18  08:15:14  quinn
  25  * Added dynamic memory allocation on encoding (whew). Code is now somewhat
  26  * neater. We'll make the same change for decoding one day.
  27  *
  28  * Revision 1.4  1995/03/21  10:17:27  quinn
  29  * Fixed little bug in decoder.
  30  *
  31  * Revision 1.3  1995/03/08  12:12:06  quinn
  32  * Added better error checking.
  33  *
  34  * Revision 1.2  1995/02/09  15:51:45  quinn
  35  * Works better now.
  36  *
  37  * Revision 1.1  1995/02/02  16:21:51  quinn
  38  * First kick.
  39  *
  40  */
  41
  42 #include <stdio.h>
  43 #include <yaz/odr.h>
  44
  45 int ber_boolean(ODR o, int *val)
  46 {
  47     int res, len;
  48
  49     switch (o->direction)
  50     {
  51         case ODR_ENCODE:
  52             if (ber_enclen(o, 1, 1, 1) != 1)
  53                 return 0;
  54             if (odr_putc(o, *val) < 0)
  55                 return 0;
  56 #ifdef ODR_DEBUG
  57             fprintf(stderr, "[val=%d]\n", *val);
  58 #endif
  59             return 1;
  60         case ODR_DECODE:
  61             if ((res = ber_declen(o->bp, &len)) < 0)
  62             {
  63                 o->error = OPROTO;
  64                 return 0;
  65             }
  66             if (len != 1)
  67             {
  68                 o->error = OPROTO;
  69                 return 0;
  70             }
  71             o->bp+= res;
  72             *val = *o->bp;
  73             o->bp++;
  74 #ifdef ODR_DEBUG
  75             fprintf(stderr, "[val=%d]\n", *val);
  76 #endif
  77             return 1;
  78         case ODR_PRINT:
  79             return 1;
  80         default: o->error = OOTHER; return 0;
  81     }
  82 }