src/st-array.h

   1 /*
   2  * st-array.h
   3  *
   4  * Copyright (c) 2008 Vincent Geddes
   5  *
   6  * Permission is hereby granted, free of charge, to any person obtaining a copy
   7  * of this software and associated documentation files (the "Software"), to deal
   8  * in the Software without restriction, including without limitation the rights
   9  * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  10  * copies of the Software, and to permit persons to whom the Software is
  11  * furnished to do so, subject to the following conditions:
  12  *
  13  * The above copyright notice and this permission notice shall be included in
  14  * all copies or substantial portions of the Software.
  15  *
  16  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  17  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  18  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
  19  * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  20  * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  21  * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
  22  * THE SOFTWARE.
  23 */
  24
  25 #ifndef __ST_ARRAY_H__
  26 #define __ST_ARRAY_H__
  27
  28 #include <st-types.h>
  29 #include <st-object.h>
  30
  31 #define ST_ARRAYED_OBJECT(oop) ((struct st_arrayed_object *) st_detag_pointer (oop))
  32 #define ST_ARRAY(oop)          ((struct st_array *) st_detag_pointer (oop))
  33 #define ST_FLOAT_ARRAY(oop)    ((struct st_float_array *) st_detag_pointer (oop))
  34 #define ST_WORD_ARRAY(oop)     ((struct st_word_array *) st_detag_pointer (oop))
  35 #define ST_BYTE_ARRAY(oop)     ((struct st_byte_array *) st_detag_pointer (oop))
  36
  37 struct st_arrayed_object
  38 {
  39     struct st_header header;
  40     st_oop           size;
  41 };
  42
  43 struct st_array
  44 {
  45     struct st_arrayed_object header;
  46
  47     st_oop elements[];
  48 };
  49
  50 struct st_word_array
  51 {
  52     struct st_arrayed_object header;
  53
  54     st_uint elements[];
  55 };
  56
  57 struct st_float_array
  58 {
  59     struct st_arrayed_object header;
  60
  61     double elements[];
  62 };
  63
  64 struct st_byte_array
  65 {
  66     struct st_arrayed_object header;
  67
  68     st_uchar bytes[];
  69 };
  70
  71 bool    st_byte_array_equal     (st_oop object, st_oop other);
  72 st_uint st_byte_array_hash      (st_oop object);
  73 st_oop  st_array_allocate       (st_oop class, st_uint size);
  74 st_oop  st_float_array_allocate (st_oop class, int size);
  75 st_oop  st_word_array_allocate  (st_oop class, int size);
  76 st_oop  st_byte_array_allocate  (st_oop class, int size);
  77
  78 static inline st_oop
  79 st_arrayed_object_size (st_oop object)
  80 {
  81     return ST_ARRAYED_OBJECT (object)->size;
  82 }
  83
  84
  85 static inline st_oop *
  86 st_array_elements (st_oop object)
  87 {
  88     return ST_ARRAY (object)->elements;
  89 }
  90
  91 static inline st_oop
  92 st_array_at (st_oop object, int i)
  93 {
  94     return (ST_ARRAY (object)->elements - 1)[i];
  95 }
  96
  97 static inline void
  98 st_array_at_put (st_oop object, int i, st_oop value)
  99 {
 100     (ST_ARRAY (object)->elements - 1)[i] = value;
 101 }
 102
 103 static inline st_uint *
 104 st_word_array_elements (st_oop object)
 105 {
 106     return ST_WORD_ARRAY (object)->elements;
 107 }
 108
 109 static inline st_uint
 110 st_word_array_at (st_oop object, int i)
 111 {
 112     return ST_WORD_ARRAY (object)->elements[i - 1];
 113 }
 114
 115 static inline void
 116 st_word_array_at_put (st_oop object, int i, st_uint value)
 117 {
 118     ST_WORD_ARRAY (object)->elements[i - 1] = value;
 119 }
 120
 121 static inline st_uchar *
 122 st_byte_array_bytes (st_oop object)
 123 {
 124     return ST_BYTE_ARRAY (object)->bytes;
 125 }
 126
 127 static inline st_uchar
 128 st_byte_array_at (st_oop object, int i)
 129 {
 130     return st_byte_array_bytes (object)[i - 1];
 131 }
 132
 133 static inline void
 134 st_byte_array_at_put (st_oop object, int i, st_uchar value)
 135 {
 136     st_byte_array_bytes (object)[i - 1] = value;
 137 }
 138
 139 static inline double *
 140 st_float_array_elements (st_oop array)
 141 {
 142     return ST_FLOAT_ARRAY (array)->elements;
 143 }
 144
 145 static inline double
 146 st_float_array_at (st_oop array, int i)
 147 {
 148     return ST_FLOAT_ARRAY (array)->elements[i - 1];
 149 }
 150
 151 static inline void
 152 st_float_array_at_put (st_oop array, int i, double value)
 153 {
 154     ST_FLOAT_ARRAY (array)->elements[i - 1] = value;
 155 }
 156
 157 #endif /* __ST_ARRAY_H__ */