YAZ  5.23.1
ber_bit.c
Go to the documentation of this file.
1 /* This file is part of the YAZ toolkit.
2  * Copyright (C) Index Data
3  * See the file LICENSE for details.
4  */
5 
14 #if HAVE_CONFIG_H
15 #include <config.h>
16 #endif
17 
18 #include "odr-priv.h"
19 
20 int ber_bitstring(ODR o, Odr_bitmask *p, int cons)
21 {
22  int res, len;
23  const char *base;
24 
25  switch (o->direction)
26  {
27  case ODR_DECODE:
28  if ((res = ber_declen(o->op->bp, &len, odr_max(o))) < 0)
29  {
30  odr_seterror(o, OPROTO, 4);
31  return 0;
32  }
33  o->op->bp += res;
34  if (cons) /* fetch component strings */
35  {
36  base = o->op->bp;
37  while (odp_more_chunks(o, base, len))
38  if (!odr_bitstring(o, &p, 0, 0))
39  return 0;
40  return 1;
41  }
42  /* primitive bitstring */
43  if (len < 0)
44  {
45  odr_seterror(o, OOTHER, 5);
46  return 0;
47  }
48  if (len == 0)
49  return 1;
50  if (len - 1 > ODR_BITMASK_SIZE)
51  {
52  odr_seterror(o, OOTHER, 6);
53  return 0;
54  }
55  if (len > odr_max(o))
56  {
57  odr_seterror(o, OOTHER, 7);
58  return 0;
59  }
60  o->op->bp++; /* silently ignore the unused-bits field */
61  len--;
62  memcpy(p->bits + p->top + 1, o->op->bp, len);
63  p->top += len;
64  o->op->bp += len;
65  return 1;
66  case ODR_ENCODE:
67  if ((res = ber_enclen(o, p->top + 2, 5, 0)) < 0)
68  return 0;
69  if (odr_putc(o, 0) < 0) /* no unused bits here */
70  return 0;
71  if (p->top < 0)
72  return 1;
73  if (odr_write(o, p->bits, p->top + 1) < 0)
74  return 0;
75  return 1;
76  case ODR_PRINT:
77  return 1;
78  default:
79  odr_seterror(o, OOTHER, 8);
80  return 0;
81  }
82 }
83 /*
84  * Local variables:
85  * c-basic-offset: 4
86  * c-file-style: "Stroustrup"
87  * indent-tabs-mode: nil
88  * End:
89  * vim: shiftwidth=4 tabstop=8 expandtab
90  */
91 
void odr_seterror(ODR o, int error, int id)
Definition: odr.c:118
char bits[ODR_BITMASK_SIZE]
Definition: odr.h:113
int ber_declen(const char *buf, int *len, int max)
Definition: ber_len.c:93
#define ODR_PRINT
Definition: odr.h:97
#define OOTHER
Definition: odr.h:156
#define ODR_ENCODE
Definition: odr.h:96
#define odr_putc(o, c)
Definition: odr-priv.h:129
Internal ODR definitions.
int direction
Definition: odr.h:126
#define OPROTO
Definition: odr.h:157
int odp_more_chunks(ODR o, const char *base, int len)
Definition: odr_util.c:29
#define odr_max(o)
Definition: odr-priv.h:47
struct Odr_private * op
Definition: odr.h:132
int ber_enclen(ODR o, int len, int lenlen, int exact)
Definition: ber_len.c:30
const char * bp
Definition: odr-priv.h:85
Definition: odr.h:124
#define ODR_BITMASK_SIZE
Definition: odr.h:112
int odr_bitstring(ODR o, Odr_bitmask **p, int opt, const char *name)
Definition: odr_bit.c:22
int top
Definition: odr.h:114
int odr_write(ODR o, const char *buf, int bytes)
Definition: odr_mem.c:98
int ber_bitstring(ODR o, Odr_bitmask *p, int cons)
Definition: ber_bit.c:20
#define ODR_DECODE
Definition: odr.h:95