guile18/libguile/srfi-4.h

   1 #ifndef SCM_SRFI_4_H
   2 #define SCM_SRFI_4_H
   3 /* srfi-4.c --- Homogeneous numeric vector datatypes.
   4  *
   5  *      Copyright (C) 2001, 2004, 2006, 2010 Free Software Foundation, Inc.
   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 2.1 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 GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with this library; if not, write to the Free Software
  19  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  20  */
  21 \f
  22
  23 #include "libguile/__scm.h"
  24 #include "libguile/unif.h"
  25
  26 /* Generic procedures.
  27  */
  28
  29 SCM_API SCM scm_uniform_vector_p (SCM v);
  30 SCM_API SCM scm_uniform_vector_length (SCM v);
  31 SCM_API SCM scm_uniform_vector_ref (SCM v, SCM idx);
  32 SCM_API SCM scm_uniform_vector_set_x (SCM v, SCM idx, SCM val);
  33 SCM_API SCM scm_uniform_vector_to_list (SCM v);
  34 SCM_API SCM scm_uniform_vector_read_x (SCM v, SCM port_or_fd,
  35                                        SCM start, SCM end);
  36 SCM_API SCM scm_uniform_vector_write (SCM v, SCM port_or_fd,
  37                                       SCM start, SCM end);
  38
  39 SCM_API int scm_is_uniform_vector (SCM obj);
  40 SCM_API size_t scm_c_uniform_vector_length (SCM v);
  41 SCM_API SCM scm_c_uniform_vector_ref (SCM v, size_t idx);
  42 SCM_API void scm_c_uniform_vector_set_x (SCM v, size_t idx, SCM val);
  43 SCM_API size_t scm_array_handle_uniform_element_size (scm_t_array_handle *h);
  44 SCM_API const void *scm_array_handle_uniform_elements (scm_t_array_handle *h);
  45 SCM_API void *scm_array_handle_uniform_writable_elements (scm_t_array_handle *h);
  46 SCM_API const void *scm_uniform_vector_elements (SCM uvec,
  47                                                  scm_t_array_handle *h,
  48                                                  size_t *lenp, ssize_t *incp);
  49 SCM_API void *scm_uniform_vector_writable_elements (SCM uvec,
  50                                                     scm_t_array_handle *h,
  51                                                     size_t *lenp,
  52                                                     ssize_t *incp);
  53
  54 /* Specific procedures.
  55  */
  56
  57 SCM_API SCM scm_u8vector_p (SCM obj);
  58 SCM_API SCM scm_make_u8vector (SCM n, SCM fill);
  59 SCM_API SCM scm_take_u8vector (scm_t_uint8 *data, size_t n);
  60 SCM_API SCM scm_u8vector (SCM l);
  61 SCM_API SCM scm_u8vector_length (SCM uvec);
  62 SCM_API SCM scm_u8vector_ref (SCM uvec, SCM index);
  63 SCM_API SCM scm_u8vector_set_x (SCM uvec, SCM index, SCM value);
  64 SCM_API SCM scm_u8vector_to_list (SCM uvec);
  65 SCM_API SCM scm_list_to_u8vector (SCM l);
  66 SCM_API SCM scm_any_to_u8vector (SCM obj);
  67 SCM_API const scm_t_uint8 *scm_array_handle_u8_elements (scm_t_array_handle *h);
  68 SCM_API scm_t_uint8 *scm_array_handle_u8_writable_elements (scm_t_array_handle *h);
  69 SCM_API const scm_t_uint8 *scm_u8vector_elements (SCM uvec,
  70                                                   scm_t_array_handle *h,
  71                                                   size_t *lenp, ssize_t *incp);
  72 SCM_API scm_t_uint8 *scm_u8vector_writable_elements (SCM uvec,
  73                                                      scm_t_array_handle *h,
  74                                                      size_t *lenp,
  75                                                      ssize_t *incp);
  76
  77 SCM_API SCM scm_s8vector_p (SCM obj);
  78 SCM_API SCM scm_make_s8vector (SCM n, SCM fill);
  79 SCM_API SCM scm_take_s8vector (scm_t_int8 *data, size_t n);
  80 SCM_API SCM scm_s8vector (SCM l);
  81 SCM_API SCM scm_s8vector_length (SCM uvec);
  82 SCM_API SCM scm_s8vector_ref (SCM uvec, SCM index);
  83 SCM_API SCM scm_s8vector_set_x (SCM uvec, SCM index, SCM value);
  84 SCM_API SCM scm_s8vector_to_list (SCM uvec);
  85 SCM_API SCM scm_list_to_s8vector (SCM l);
  86 SCM_API SCM scm_any_to_s8vector (SCM obj);
  87 SCM_API const scm_t_int8 *scm_array_handle_s8_elements (scm_t_array_handle *h);
  88 SCM_API scm_t_int8 *scm_array_handle_s8_writable_elements (scm_t_array_handle *h);
  89 SCM_API const scm_t_int8 *scm_s8vector_elements (SCM uvec,
  90                                                  scm_t_array_handle *h,
  91                                                  size_t *lenp, ssize_t *incp);
  92 SCM_API scm_t_int8 *scm_s8vector_writable_elements (SCM uvec,
  93                                                     scm_t_array_handle *h,
  94                                                     size_t *lenp,
  95                                                     ssize_t *incp);
  96
  97 SCM_API SCM scm_u16vector_p (SCM obj);
  98 SCM_API SCM scm_make_u16vector (SCM n, SCM fill);
  99 SCM_API SCM scm_take_u16vector (scm_t_uint16 *data, size_t n);
 100 SCM_API SCM scm_u16vector (SCM l);
 101 SCM_API SCM scm_u16vector_length (SCM uvec);
 102 SCM_API SCM scm_u16vector_ref (SCM uvec, SCM index);
 103 SCM_API SCM scm_u16vector_set_x (SCM uvec, SCM index, SCM value);
 104 SCM_API SCM scm_u16vector_to_list (SCM uvec);
 105 SCM_API SCM scm_list_to_u16vector (SCM l);
 106 SCM_API SCM scm_any_to_u16vector (SCM obj);
 107 SCM_API const scm_t_uint16 *scm_array_handle_u16_elements (scm_t_array_handle *h);
 108 SCM_API scm_t_uint16 *scm_array_handle_u16_writable_elements (scm_t_array_handle *h);
 109 SCM_API const scm_t_uint16 *scm_u16vector_elements (SCM uvec,
 110                                                     scm_t_array_handle *h,
 111                                                     size_t *lenp,
 112                                                     ssize_t *incp);
 113 SCM_API scm_t_uint16 *scm_u16vector_writable_elements (SCM uvec,
 114                                                        scm_t_array_handle *h,
 115                                                        size_t *lenp,
 116                                                        ssize_t *incp);
 117
 118 SCM_API SCM scm_s16vector_p (SCM obj);
 119 SCM_API SCM scm_make_s16vector (SCM n, SCM fill);
 120 SCM_API SCM scm_take_s16vector (scm_t_int16 *data, size_t n);
 121 SCM_API SCM scm_s16vector (SCM l);
 122 SCM_API SCM scm_s16vector_length (SCM uvec);
 123 SCM_API SCM scm_s16vector_ref (SCM uvec, SCM index);
 124 SCM_API SCM scm_s16vector_set_x (SCM uvec, SCM index, SCM value);
 125 SCM_API SCM scm_s16vector_to_list (SCM uvec);
 126 SCM_API SCM scm_list_to_s16vector (SCM l);
 127 SCM_API SCM scm_any_to_s16vector (SCM obj);
 128 SCM_API const scm_t_int16 *scm_array_handle_s16_elements (scm_t_array_handle *h);
 129 SCM_API scm_t_int16 *scm_array_handle_s16_writable_elements (scm_t_array_handle *h);
 130 SCM_API const scm_t_int16 *scm_s16vector_elements (SCM uvec,
 131                                                    scm_t_array_handle *h,
 132                                                    size_t *lenp, ssize_t *incp);
 133 SCM_API scm_t_int16 *scm_s16vector_writable_elements (SCM uvec,
 134                                                       scm_t_array_handle *h,
 135                                                       size_t *lenp,
 136                                                       ssize_t *incp);
 137
 138 SCM_API SCM scm_u32vector_p (SCM obj);
 139 SCM_API SCM scm_make_u32vector (SCM n, SCM fill);
 140 SCM_API SCM scm_take_u32vector (scm_t_uint32 *data, size_t n);
 141 SCM_API SCM scm_u32vector (SCM l);
 142 SCM_API SCM scm_u32vector_length (SCM uvec);
 143 SCM_API SCM scm_u32vector_ref (SCM uvec, SCM index);
 144 SCM_API SCM scm_u32vector_set_x (SCM uvec, SCM index, SCM value);
 145 SCM_API SCM scm_u32vector_to_list (SCM uvec);
 146 SCM_API SCM scm_list_to_u32vector (SCM l);
 147 SCM_API SCM scm_any_to_u32vector (SCM obj);
 148 SCM_API const scm_t_uint32 *scm_array_handle_u32_elements (scm_t_array_handle *h);
 149 SCM_API scm_t_uint32 *scm_array_handle_u32_writable_elements (scm_t_array_handle *h);
 150 SCM_API const scm_t_uint32 *scm_u32vector_elements (SCM uvec,
 151                                                     scm_t_array_handle *h,
 152                                                     size_t *lenp,
 153                                                     ssize_t *incp);
 154 SCM_API scm_t_uint32 *scm_u32vector_writable_elements (SCM uvec,
 155                                                        scm_t_array_handle *h,
 156                                                        size_t *lenp,
 157                                                        ssize_t *incp);
 158
 159 SCM_API SCM scm_s32vector_p (SCM obj);
 160 SCM_API SCM scm_make_s32vector (SCM n, SCM fill);
 161 SCM_API SCM scm_take_s32vector (scm_t_int32 *data, size_t n);
 162 SCM_API SCM scm_s32vector (SCM l);
 163 SCM_API SCM scm_s32vector_length (SCM uvec);
 164 SCM_API SCM scm_s32vector_ref (SCM uvec, SCM index);
 165 SCM_API SCM scm_s32vector_set_x (SCM uvec, SCM index, SCM value);
 166 SCM_API SCM scm_s32vector_to_list (SCM uvec);
 167 SCM_API SCM scm_list_to_s32vector (SCM l);
 168 SCM_API SCM scm_any_to_s32vector (SCM obj);
 169 SCM_API const scm_t_int32 *scm_array_handle_s32_elements (scm_t_array_handle *h);
 170 SCM_API scm_t_int32 *scm_array_handle_s32_writable_elements (scm_t_array_handle *h);
 171 SCM_API const scm_t_int32 *scm_s32vector_elements (SCM uvec,
 172                                                    scm_t_array_handle *h,
 173                                                    size_t *lenp, ssize_t *incp);
 174 SCM_API scm_t_int32 *scm_s32vector_writable_elements (SCM uvec,
 175                                                       scm_t_array_handle *h,
 176                                                       size_t *lenp,
 177                                                       ssize_t *incp);
 178
 179 SCM_API SCM scm_u64vector_p (SCM obj);
 180 SCM_API SCM scm_make_u64vector (SCM n, SCM fill);
 181 SCM_API SCM scm_u64vector (SCM l);
 182 SCM_API SCM scm_u64vector_length (SCM uvec);
 183 SCM_API SCM scm_u64vector_ref (SCM uvec, SCM index);
 184 SCM_API SCM scm_u64vector_set_x (SCM uvec, SCM index, SCM value);
 185 SCM_API SCM scm_u64vector_to_list (SCM uvec);
 186 SCM_API SCM scm_list_to_u64vector (SCM l);
 187 SCM_API SCM scm_any_to_u64vector (SCM obj);
 188
 189 SCM_API SCM scm_take_u64vector (scm_t_uint64 *data, size_t n);
 190 SCM_API const scm_t_uint64 *scm_array_handle_u64_elements (scm_t_array_handle *h);
 191 SCM_API scm_t_uint64 *scm_array_handle_u64_writable_elements (scm_t_array_handle *h);
 192 SCM_API const scm_t_uint64 *scm_u64vector_elements (SCM uvec,
 193                                                     scm_t_array_handle *h,
 194                                                     size_t *lenp,
 195                                                     ssize_t *incp);
 196 SCM_API scm_t_uint64 *scm_u64vector_writable_elements (SCM uvec,
 197                                                        scm_t_array_handle *h,
 198                                                        size_t *lenp,
 199                                                        ssize_t *incp);
 200
 201 SCM_API SCM scm_s64vector_p (SCM obj);
 202 SCM_API SCM scm_make_s64vector (SCM n, SCM fill);
 203 SCM_API SCM scm_s64vector (SCM l);
 204 SCM_API SCM scm_s64vector_length (SCM uvec);
 205 SCM_API SCM scm_s64vector_ref (SCM uvec, SCM index);
 206 SCM_API SCM scm_s64vector_set_x (SCM uvec, SCM index, SCM value);
 207 SCM_API SCM scm_s64vector_to_list (SCM uvec);
 208 SCM_API SCM scm_list_to_s64vector (SCM l);
 209 SCM_API SCM scm_any_to_s64vector (SCM obj);
 210
 211 SCM_API SCM scm_take_s64vector (scm_t_int64 *data, size_t n);
 212 SCM_API const scm_t_int64 *scm_array_handle_s64_elements (scm_t_array_handle *h);
 213 SCM_API scm_t_int64 *scm_array_handle_s64_writable_elements (scm_t_array_handle *h);
 214 SCM_API const scm_t_int64 *scm_s64vector_elements (SCM uvec,
 215                                                    scm_t_array_handle *h,
 216                                                    size_t *lenp, ssize_t *incp);
 217 SCM_API scm_t_int64 *scm_s64vector_writable_elements (SCM uvec,
 218                                                       scm_t_array_handle *h,
 219                                                       size_t *lenp,
 220                                                       ssize_t *incp);
 221
 222 SCM_API SCM scm_f32vector_p (SCM obj);
 223 SCM_API SCM scm_make_f32vector (SCM n, SCM fill);
 224 SCM_API SCM scm_take_f32vector (float *data, size_t n);
 225 SCM_API SCM scm_f32vector (SCM l);
 226 SCM_API SCM scm_f32vector_length (SCM uvec);
 227 SCM_API SCM scm_f32vector_ref (SCM uvec, SCM index);
 228 SCM_API SCM scm_f32vector_set_x (SCM uvec, SCM index, SCM value);
 229 SCM_API SCM scm_f32vector_to_list (SCM uvec);
 230 SCM_API SCM scm_list_to_f32vector (SCM l);
 231 SCM_API SCM scm_any_to_f32vector (SCM obj);
 232 SCM_API const float *scm_array_handle_f32_elements (scm_t_array_handle *h);
 233 SCM_API float *scm_array_handle_f32_writable_elements (scm_t_array_handle *h);
 234 SCM_API const float *scm_f32vector_elements (SCM uvec,
 235                                             scm_t_array_handle *h,
 236                                             size_t *lenp, ssize_t *incp);
 237 SCM_API float *scm_f32vector_writable_elements (SCM uvec,
 238                                                 scm_t_array_handle *h,
 239                                                 size_t *lenp,
 240                                                 ssize_t *incp);
 241
 242 SCM_API SCM scm_f64vector_p (SCM obj);
 243 SCM_API SCM scm_make_f64vector (SCM n, SCM fill);
 244 SCM_API SCM scm_take_f64vector (double *data, size_t n);
 245 SCM_API SCM scm_f64vector (SCM l);
 246 SCM_API SCM scm_f64vector_length (SCM uvec);
 247 SCM_API SCM scm_f64vector_ref (SCM uvec, SCM index);
 248 SCM_API SCM scm_f64vector_set_x (SCM uvec, SCM index, SCM value);
 249 SCM_API SCM scm_f64vector_to_list (SCM uvec);
 250 SCM_API SCM scm_list_to_f64vector (SCM l);
 251 SCM_API SCM scm_any_to_f64vector (SCM obj);
 252 SCM_API const double *scm_array_handle_f64_elements (scm_t_array_handle *h);
 253 SCM_API double *scm_array_handle_f64_writable_elements (scm_t_array_handle *h);
 254 SCM_API const double *scm_f64vector_elements (SCM uvec,
 255                                               scm_t_array_handle *h,
 256                                               size_t *lenp, ssize_t *incp);
 257 SCM_API double *scm_f64vector_writable_elements (SCM uvec,
 258                                                  scm_t_array_handle *h,
 259                                                  size_t *lenp,
 260                                                  ssize_t *incp);
 261
 262 SCM_API SCM scm_c32vector_p (SCM obj);
 263 SCM_API SCM scm_make_c32vector (SCM n, SCM fill);
 264 SCM_API SCM scm_take_c32vector (float *data, size_t n);
 265 SCM_API SCM scm_c32vector (SCM l);
 266 SCM_API SCM scm_c32vector_length (SCM uvec);
 267 SCM_API SCM scm_c32vector_ref (SCM uvec, SCM index);
 268 SCM_API SCM scm_c32vector_set_x (SCM uvec, SCM index, SCM value);
 269 SCM_API SCM scm_c32vector_to_list (SCM uvec);
 270 SCM_API SCM scm_list_to_c32vector (SCM l);
 271 SCM_API SCM scm_any_to_c32vector (SCM obj);
 272 SCM_API const float *scm_array_handle_c32_elements (scm_t_array_handle *h);
 273 SCM_API float *scm_array_handle_c32_writable_elements (scm_t_array_handle *h);
 274 SCM_API const float *scm_c32vector_elements (SCM uvec,
 275                                              scm_t_array_handle *h,
 276                                              size_t *lenp, ssize_t *incp);
 277 SCM_API float *scm_c32vector_writable_elements (SCM uvec,
 278                                                 scm_t_array_handle *h,
 279                                                 size_t *lenp,
 280                                                 ssize_t *incp);
 281
 282 SCM_API SCM scm_c64vector_p (SCM obj);
 283 SCM_API SCM scm_make_c64vector (SCM n, SCM fill);
 284 SCM_API SCM scm_take_c64vector (double *data, size_t n);
 285 SCM_API SCM scm_c64vector (SCM l);
 286 SCM_API SCM scm_c64vector_length (SCM uvec);
 287 SCM_API SCM scm_c64vector_ref (SCM uvec, SCM index);
 288 SCM_API SCM scm_c64vector_set_x (SCM uvec, SCM index, SCM value);
 289 SCM_API SCM scm_c64vector_to_list (SCM uvec);
 290 SCM_API SCM scm_list_to_c64vector (SCM l);
 291 SCM_API SCM scm_any_to_c64vector (SCM obj);
 292 SCM_API const double *scm_array_handle_c64_elements (scm_t_array_handle *h);
 293 SCM_API double *scm_array_handle_c64_writable_elements (scm_t_array_handle *h);
 294 SCM_API const double *scm_c64vector_elements (SCM uvec,
 295                                               scm_t_array_handle *h,
 296                                               size_t *lenp, ssize_t *incp);
 297 SCM_API double *scm_c64vector_writable_elements (SCM uvec,
 298                                                  scm_t_array_handle *h,
 299                                                  size_t *lenp,
 300                                                  ssize_t *incp);
 301
 302 SCM_API SCM scm_i_generalized_vector_type (SCM vec);
 303 SCM_API const char *scm_i_uniform_vector_tag (SCM uvec);
 304 SCM_API scm_i_t_array_ref scm_i_uniform_vector_ref_proc (SCM uvec);
 305 SCM_API scm_i_t_array_set scm_i_uniform_vector_set_proc (SCM uvec);
 306
 307 #if SCM_ENABLE_DEPRECATED
 308
 309 /* Deprecated because we want people to use the scm_t_array_handle
 310    interface.
 311 */
 312
 313 SCM_API size_t scm_uniform_element_size (SCM obj);
 314
 315 #endif
 316
 317 SCM_API void scm_init_srfi_4 (void);
 318
 319 #endif /* SCM_SRFI_4_H */