goo/st-float-array.h

   1 /* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; indent-offset: 4 -*- */
   2 /*
   3  * st-float-array.c
   4  *
   5  * Copyright (C) 2008 Vincent Geddes <vgeddes@gnome.org>
   6  *
   7  * This library is free software: you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation, either
  10  * version 3 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public License
  18  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  19  */
  20
  21 #ifndef _ST_FLOAT_ARRAY_H__
  22 #define _ST_FLOAT_ARRAY_H__
  23
  24 #include <st-heap-object.h>
  25 #include <st-types.h>
  26 #include <st-vtable.h>
  27
  28 typedef struct
  29 {
  30     st_header_t header;
  31
  32     st_oop_t size double elements[];
  33
  34 } st_float_array_t;
  35
  36 INLINE st_smi_t st_float_array_size (st_oop_t array);
  37
  38 INLINE bool st_float_array_range_check (st_oop_t array, st_smi_t i);
  39
  40 INLINE double st_float_array_at (st_oop_t array, st_smi_t i);
  41
  42 INLINE void st_float_array_at_put (st_oop_t array, st_smi_t i, double value);
  43
  44 st_vtable_t *st_float_array_table (void);
  45
  46
  47 /* inline definitions */
  48 #define ST_FLOAT_ARRAY(oop) ((st_float_array_t *) ST_POINTER (oop))
  49
  50 INLINE st_oop_t
  51 st_float_array_size (st_oop_t array)
  52 {
  53     return ST_FLOAT_ARRAY (array)->size;
  54 }
  55
  56 INLINE bool
  57 st_float_array_range_check (st_oop_t array, st_smi_t i)
  58 {
  59     return 1 <= i && <=st_smi_value (st_float_array_size (array));
  60 }
  61
  62 INLINE double
  63 st_float_array_at (st_oop_t array, st_smi_t i)
  64 {
  65     return ST_FLOAT_ARRAY (array)->elements[i - 1];
  66 }
  67
  68 INLINE void
  69 st_float_array_at_put (st_oop_t array, st_smi_t i, double value)
  70 {
  71     return ST_FLOAT_ARRAY (array)->elements[i - 1] = value;
  72 }
  73
  74
  75 #endif /* _ST_FLOAT_ARRAY_H__ */