odr/odr_seq.c

   1 /*
   2  * Copyright (c) 1995, Index Data
   3  * See the file LICENSE for details.
   4  * Sebastian Hammer, Adam Dickmeiss
   5  *
   6  * $Log: odr_seq.c,v $
   7  * Revision 1.18  1997-05-14 06:53:58  adam
   8  * C++ support.
   9  *
  10  * Revision 1.17  1997/05/05 11:21:09  adam
  11  * In handling of SEQUENCE OF: Counter set to zero when SEQUENCE
  12  * OF isn't there at all.
  13  *
  14  * Revision 1.16  1995/09/29 17:12:26  quinn
  15  * Smallish
  16  *
  17  * Revision 1.15  1995/09/27  15:03:00  quinn
  18  * Modified function heads & prototypes.
  19  *
  20  * Revision 1.14  1995/08/15  11:16:39  quinn
  21  * Fixed pretty-printers.
  22  * CV:e ----------------------------------------------------------------------
  23  * CV:e ----------------------------------------------------------------------
  24  *
  25  * Revision 1.13  1995/05/22  14:56:57  quinn
  26  * Fixed problem in decoding empty sequence.
  27  *
  28  * Revision 1.12  1995/05/18  13:06:32  quinn
  29  * Smallish.
  30  *
  31  * Revision 1.11  1995/05/17  08:41:54  quinn
  32  * Small, hopefully insignificant change.
  33  *
  34  * Revision 1.10  1995/05/16  08:50:59  quinn
  35  * License, documentation, and memory fixes
  36  *
  37  * Revision 1.9  1995/03/17  10:17:57  quinn
  38  * Added memory management.
  39  *
  40  * Revision 1.8  1995/03/15  11:18:05  quinn
  41  * Fixed serious bug in odr_cons
  42  *
  43  * Revision 1.7  1995/03/08  12:12:30  quinn
  44  * Added better error checking.
  45  *
  46  * Revision 1.6  1995/02/10  15:55:29  quinn
  47  * Bug fixes, mostly.
  48  *
  49  * Revision 1.5  1995/02/09  15:51:49  quinn
  50  * Works better now.
  51  *
  52  * Revision 1.4  1995/02/07  17:53:00  quinn
  53  * A damn mess, but now things work, I think.
  54  *
  55  * Revision 1.3  1995/02/07  14:13:46  quinn
  56  * Bug fixes.
  57  *
  58  * Revision 1.2  1995/02/06  16:45:03  quinn
  59  * Small mods.
  60  *
  61  * Revision 1.1  1995/02/02  16:21:54  quinn
  62  * First kick.
  63  *
  64  */
  65
  66 #include <odr.h>
  67 #include <assert.h>
  68
  69 int odr_sequence_begin(ODR o, void *p, int size)
  70 {
  71     char **pp = (char**) p;
  72
  73     if (o->error)
  74         return 0;
  75     if (o->t_class < 0)
  76     {
  77         o->t_class = ODR_UNIVERSAL;
  78         o->t_tag = ODR_SEQUENCE;
  79     }
  80     if (o->direction == ODR_DECODE)
  81         *pp = 0;
  82     if (odr_constructed_begin(o, p, o->t_class, o->t_tag))
  83     {
  84         if (o->direction == ODR_DECODE && size)
  85             *pp = odr_malloc(o, size);
  86         return 1;
  87     }
  88     else
  89         return 0;
  90 }
  91
  92 int odr_sequence_end(ODR o)
  93 {
  94     return odr_constructed_end(o);
  95 }
  96
  97 int odr_sequence_more(ODR o)
  98 {
  99     return odr_constructed_more(o);
 100 }
 101
 102 int odr_sequence_of(ODR o, Odr_fun type, void *p, int *num)
 103 {
 104     char ***pp = (char***) p;  /* for dereferencing */
 105     char **tmp = 0;
 106     int size = 0, i;
 107
 108     if (!odr_sequence_begin(o, p, 0))
 109         return 0;
 110
 111     switch (o->direction)
 112     {
 113         case ODR_DECODE:
 114             *num = 0;
 115             *pp = ODR_NULLVAL;
 116             while (odr_sequence_more(o))
 117             {
 118                 /* outgrown array? */
 119                 if (*num * sizeof(void*) >= size)
 120                 {
 121                     /* double the buffer size */
 122                     tmp = odr_malloc(o, sizeof(void*) * (size += size ? size :
 123                         128));
 124                     if (*num)
 125                     {
 126                         memcpy(tmp, *pp, *num * sizeof(void*));
 127                         /*
 128                          * For now, we just throw the old *p away, since we use
 129                          * nibble memory anyway (disgusting, isn't it?).
 130                          */
 131                     }
 132                     *pp = tmp;
 133                 }
 134                 if (!(*type)(o, (*pp) + *num, 0))
 135                     return 0;
 136                 (*num)++;
 137             }
 138             break;
 139         case ODR_ENCODE: case ODR_PRINT:
 140 #ifdef ODR_DEBUG
 141             fprintf(stderr, "[seqof: num=%d]", *num);
 142 #endif
 143             for (i = 0; i < *num; i++)
 144             {
 145 #ifdef ODR_DEBUG
 146                 fprintf(stderr, "[seqof: elem #%d]", i);
 147 #endif
 148                 if (!(*type)(o, *pp + i, 0))
 149                     return 0;
 150             }
 151             break;
 152         default:
 153             o->error = OOTHER;
 154             return 0;
 155     }
 156     return odr_sequence_end(o);
 157 }