mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-06 07:30:28 +02:00
Code Activity

Simplify interfaces to scm_TYPEvector_(writable_)elements

Browse source 
Nothing is lost in these since the functions already required true typed
vectors, the extra arguments didn't serve any purpose.

Changing my mind from (vec) to (vec, lenp), though. Will fix
vector/bitvector next.

* libguile/srfi-4.h: scm_TYPEvector_(writable_)elements take (vec, lenp).
* libguile/srfi-4.c: Fix implementation.
* libguile/bitvectors.c: Fix use.
* test-suite/standalone/test-srfi-4.c: Fix old test and write variant
  with full array handle interface.
* doc/ref/srfi-modules.texi: Fix doc for srfi-4
  scm_TYPEvector_(writable_)elements.
This commit is contained in:
Daniel Llorens 2020-02-05 14:40:19 +01:00
parent e3795a39fa
commit 04c80519bf
6 changed files with 106 additions and 162 deletions
Download patch file Download diff file Expand all files Collapse all files

1
NEWS-wip-vector-cleanup.txt
View file

@ -35,7 +35,6 @@ Use SCM_VECTOR_REF, SCM_VECTOR_SET and SCM_VECTOR_LENGTH instead.
** scm_vector_elements / scm_vector_writable_elements take a single argument that must be a vector. ** scm_vector_elements / scm_vector_writable_elements take a single argument that must be a vector.
Use scm_array_get_handle and scm_array_handle_elements / scm_array_handle_writable_elements on general arrays. Use scm_array_get_handle and scm_array_handle_elements / scm_array_handle_writable_elements on general arrays.
Use scm_c_vector_length to get the length of a vector. Use scm_c_vector_length to get the length of a vector.
** scm_bitvector_elements / scm_bitvector_writable_elements take a single argument that must be a bitvector ** scm_bitvector_elements / scm_bitvector_writable_elements take a single argument that must be a bitvector

48
doc/ref/srfi-modules.texi
View file

@ -1705,35 +1705,35 @@ are at even indices in that array, the corresponding imaginary parts are
at the following odd index. at the following odd index.
@end deftypefn @end deftypefn
@deftypefn {C Function} {const scm_t_uint8 *} scm_u8vector_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefn {C Function} {const scm_t_uint8 *} scm_u8vector_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {const scm_t_int8 *} scm_s8vector_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {const scm_t_int8 *} scm_s8vector_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {const scm_t_uint16 *} scm_u16vector_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {const scm_t_uint16 *} scm_u16vector_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {const scm_t_int16 *} scm_s16vector_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {const scm_t_int16 *} scm_s16vector_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {const scm_t_uint32 *} scm_u32vector_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {const scm_t_uint32 *} scm_u32vector_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {const scm_t_int32 *} scm_s32vector_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {const scm_t_int32 *} scm_s32vector_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {const scm_t_uint64 *} scm_u64vector_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {const scm_t_uint64 *} scm_u64vector_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {const scm_t_int64 *} scm_s64vector_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {const scm_t_int64 *} scm_s64vector_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {const float *} scm_f32vector_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {const float *} scm_f32vector_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {const double *} scm_f64vector_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {const double *} scm_f64vector_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {const float *} scm_c32vector_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {const float *} scm_c32vector_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {const double *} scm_c64vector_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {const double *} scm_c64vector_elements (SCM vec, size_t *lenp)
Like @code{scm_vector_elements} (@pxref{Vector Accessing from C}), but Like @code{scm_vector_elements} (@pxref{Vector Accessing from C}), but
returns a pointer to the elements of a uniform numeric vector of the returns a pointer to the elements of a uniform numeric vector of the
indicated kind. indicated kind.
@end deftypefn @end deftypefn
@deftypefn {C Function} {scm_t_uint8 *} scm_u8vector_writable_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefn {C Function} {scm_t_uint8 *} scm_u8vector_writable_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {scm_t_int8 *} scm_s8vector_writable_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {scm_t_int8 *} scm_s8vector_writable_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {scm_t_uint16 *} scm_u16vector_writable_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {scm_t_uint16 *} scm_u16vector_writable_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {scm_t_int16 *} scm_s16vector_writable_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {scm_t_int16 *} scm_s16vector_writable_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {scm_t_uint32 *} scm_u32vector_writable_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {scm_t_uint32 *} scm_u32vector_writable_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {scm_t_int32 *} scm_s32vector_writable_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {scm_t_int32 *} scm_s32vector_writable_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {scm_t_uint64 *} scm_u64vector_writable_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {scm_t_uint64 *} scm_u64vector_writable_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {scm_t_int64 *} scm_s64vector_writable_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {scm_t_int64 *} scm_s64vector_writable_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {float *} scm_f32vector_writable_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {float *} scm_f32vector_writable_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {double *} scm_f64vector_writable_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {double *} scm_f64vector_writable_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {float *} scm_c32vector_writable_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {float *} scm_c32vector_writable_elements (SCM vec, size_t *lenp)
@deftypefnx {C Function} {double *} scm_c64vector_writable_elements (SCM vec, scm_t_array_handle *handle, size_t *lenp, ssize_t *incp) @deftypefnx {C Function} {double *} scm_c64vector_writable_elements (SCM vec, size_t *lenp)
Like @code{scm_vector_writable_elements} (@pxref{Vector Accessing from Like @code{scm_vector_writable_elements} (@pxref{Vector Accessing from
C}), but returns a pointer to the elements of a uniform numeric vector C}), but returns a pointer to the elements of a uniform numeric vector
of the indicated kind. of the indicated kind.

29
libguile/bitvectors.c
View file

@ -607,19 +607,12 @@ SCM_DEFINE (scm_bit_set_star_x, "bit-set*!", 3, 0, 0,
bitset_ (v_bits, v_off+i*v_inc, bit); bitset_ (v_bits, v_off+i*v_inc, bit);
} }
} }
/* FIXME This requires a true u32vector so handle, inc, etc. are superfluous */
else if (scm_is_true (scm_u32vector_p (kv))) else if (scm_is_true (scm_u32vector_p (kv)))
{ {
scm_t_array_handle kv_handle; size_t kv_len;
size_t i, kv_len; const uint32_t *kv_elts = scm_u32vector_elements (kv, &kv_len);
ssize_t kv_inc; for (size_t i = 0; i < kv_len; i++)
const uint32_t *kv_elts; bitset_ (v_bits, v_off+(kv_elts[i])*v_inc, bit);
kv_elts = scm_u32vector_elements (kv, &kv_handle, &kv_len, &kv_inc);
for (i = 0; i < kv_len; i++, kv_elts += kv_inc)
bitset_ (v_bits, v_off+(*kv_elts)*v_inc, bit);
scm_array_handle_release (&kv_handle);
} }
else else
scm_wrong_type_arg_msg (NULL, 0, kv, "bitvector or u32vector"); scm_wrong_type_arg_msg (NULL, 0, kv, "bitvector or u32vector");
@ -693,20 +686,14 @@ SCM_DEFINE (scm_bit_count_star, "bit-count*", 3, 0, 0,
/* FIXME This requires a true u32vector so handle, inc, etc. are superfluous */ /* FIXME This requires a true u32vector so handle, inc, etc. are superfluous */
else if (scm_is_true (scm_u32vector_p (kv))) else if (scm_is_true (scm_u32vector_p (kv)))
{ {
scm_t_array_handle kv_handle; size_t kv_len;
size_t i, kv_len; const uint32_t *kv_elts = scm_u32vector_elements (kv, &kv_len);
ssize_t kv_inc; for (size_t i = 0; i < kv_len; i++)
const uint32_t *kv_elts;
kv_elts = scm_u32vector_elements (kv, &kv_handle, &kv_len, &kv_inc);
for (i = 0; i < kv_len; i++, kv_elts += kv_inc)
{ {
bool elt = bitref_ (v_bits, v_off+(*kv_elts)*v_inc); bool elt = bitref_ (v_bits, v_off+(kv_elts[i])*v_inc);
if ((bit && elt) || (!bit && !elt)) if ((bit && elt) || (!bit && !elt))
count++; count++;
} }
scm_array_handle_release (&kv_handle);
} }
else else
scm_wrong_type_arg_msg (NULL, 0, kv, "bitvector or u32vector"); scm_wrong_type_arg_msg (NULL, 0, kv, "bitvector or u32vector");

21
libguile/srfi-4.c
View file

@ -134,28 +134,21 @@
scm_wrong_type_arg_msg (NULL, 0, h->array, "mutable " #tag "vector"); \ scm_wrong_type_arg_msg (NULL, 0, h->array, "mutable " #tag "vector"); \
return (ctype *) scm_array_handle_##tag##_elements (h); \ return (ctype *) scm_array_handle_##tag##_elements (h); \
} \ } \
const ctype *scm_##tag##vector_elements (SCM uvec, \ const ctype *scm_##tag##vector_elements (SCM uvec, size_t *lenp) \
scm_t_array_handle *h, \
size_t *lenp, ssize_t *incp) \
{ \ { \
size_t byte_width = width * sizeof (ctype); \ size_t byte_width = width * sizeof (ctype); \
if (!scm_is_bytevector (uvec) \ if (!scm_is_bytevector (uvec) \
|| (scm_c_bytevector_length (uvec) % byte_width)) \ || (scm_c_bytevector_length (uvec) % byte_width)) \
scm_wrong_type_arg_msg (NULL, 0, uvec, #tag "vector"); \ scm_wrong_type_arg_msg (NULL, 0, uvec, #tag "vector"); \
scm_array_get_handle (uvec, h); \
if (lenp) \ if (lenp) \
*lenp = scm_c_bytevector_length (uvec) / byte_width; \ *lenp = SCM_BYTEVECTOR_LENGTH (uvec) / byte_width; \
if (incp) \ return ((const ctype *) SCM_BYTEVECTOR_CONTENTS(uvec)); \
*incp = 1; \
return ((const ctype *) h->elements); \
} \ } \
ctype *scm_##tag##vector_writable_elements (SCM uvec, \ ctype *scm_##tag##vector_writable_elements (SCM uvec, size_t *lenp) \
scm_t_array_handle *h, \
size_t *lenp, ssize_t *incp) \
{ \ { \
const ctype *ret = scm_##tag##vector_elements (uvec, h, lenp, incp);\ const ctype *ret = scm_##tag##vector_elements (uvec, lenp); \
if (h->writable_elements != h->elements) \ if (!SCM_MUTABLE_BYTEVECTOR_P (uvec)) \
scm_wrong_type_arg_msg (NULL, 0, h->array, "mutable " #tag "vector"); \ scm_wrong_type_arg_msg (NULL, 0, uvec, "mutable " #tag "vector"); \
return (ctype *) ret; \ return (ctype *) ret; \
} }

111
libguile/srfi-4.h
View file

@ -42,13 +42,8 @@ SCM_API SCM scm_list_to_u8vector (SCM l);
SCM_API SCM scm_any_to_u8vector (SCM obj); SCM_API SCM scm_any_to_u8vector (SCM obj);
SCM_API const uint8_t *scm_array_handle_u8_elements (scm_t_array_handle *h); SCM_API const uint8_t *scm_array_handle_u8_elements (scm_t_array_handle *h);
SCM_API uint8_t *scm_array_handle_u8_writable_elements (scm_t_array_handle *h); SCM_API uint8_t *scm_array_handle_u8_writable_elements (scm_t_array_handle *h);
SCM_API const uint8_t *scm_u8vector_elements (SCM uvec, SCM_API const uint8_t *scm_u8vector_elements (SCM uvec, size_t *lenp);
scm_t_array_handle *h, SCM_API uint8_t *scm_u8vector_writable_elements (SCM uvec, size_t *lenp);
size_t *lenp, ssize_t *incp);
SCM_API uint8_t *scm_u8vector_writable_elements (SCM uvec,
scm_t_array_handle *h,
size_t *lenp,
ssize_t *incp);
SCM_API SCM scm_s8vector_p (SCM obj); SCM_API SCM scm_s8vector_p (SCM obj);
SCM_API SCM scm_make_s8vector (SCM n, SCM fill); SCM_API SCM scm_make_s8vector (SCM n, SCM fill);
@ -62,13 +57,8 @@ SCM_API SCM scm_list_to_s8vector (SCM l);
SCM_API SCM scm_any_to_s8vector (SCM obj); SCM_API SCM scm_any_to_s8vector (SCM obj);
SCM_API const int8_t *scm_array_handle_s8_elements (scm_t_array_handle *h); SCM_API const int8_t *scm_array_handle_s8_elements (scm_t_array_handle *h);
SCM_API int8_t *scm_array_handle_s8_writable_elements (scm_t_array_handle *h); SCM_API int8_t *scm_array_handle_s8_writable_elements (scm_t_array_handle *h);
SCM_API const int8_t *scm_s8vector_elements (SCM uvec, SCM_API const int8_t *scm_s8vector_elements (SCM uvec, size_t *lenp);
scm_t_array_handle *h, SCM_API int8_t *scm_s8vector_writable_elements (SCM uvec, size_t *lenp);
size_t *lenp, ssize_t *incp);
SCM_API int8_t *scm_s8vector_writable_elements (SCM uvec,
scm_t_array_handle *h,
size_t *lenp,
ssize_t *incp);
SCM_API SCM scm_u16vector_p (SCM obj); SCM_API SCM scm_u16vector_p (SCM obj);
SCM_API SCM scm_make_u16vector (SCM n, SCM fill); SCM_API SCM scm_make_u16vector (SCM n, SCM fill);
@ -82,14 +72,8 @@ SCM_API SCM scm_list_to_u16vector (SCM l);
SCM_API SCM scm_any_to_u16vector (SCM obj); SCM_API SCM scm_any_to_u16vector (SCM obj);
SCM_API const uint16_t *scm_array_handle_u16_elements (scm_t_array_handle *h); SCM_API const uint16_t *scm_array_handle_u16_elements (scm_t_array_handle *h);
SCM_API uint16_t *scm_array_handle_u16_writable_elements (scm_t_array_handle *h); SCM_API uint16_t *scm_array_handle_u16_writable_elements (scm_t_array_handle *h);
SCM_API const uint16_t *scm_u16vector_elements (SCM uvec, SCM_API const uint16_t *scm_u16vector_elements (SCM uvec, size_t *lenp);
scm_t_array_handle *h, SCM_API uint16_t *scm_u16vector_writable_elements (SCM uvec, size_t *lenp);
size_t *lenp,
ssize_t *incp);
SCM_API uint16_t *scm_u16vector_writable_elements (SCM uvec,
scm_t_array_handle *h,
size_t *lenp,
ssize_t *incp);
SCM_API SCM scm_s16vector_p (SCM obj); SCM_API SCM scm_s16vector_p (SCM obj);
SCM_API SCM scm_make_s16vector (SCM n, SCM fill); SCM_API SCM scm_make_s16vector (SCM n, SCM fill);
@ -103,13 +87,8 @@ SCM_API SCM scm_list_to_s16vector (SCM l);
SCM_API SCM scm_any_to_s16vector (SCM obj); SCM_API SCM scm_any_to_s16vector (SCM obj);
SCM_API const int16_t *scm_array_handle_s16_elements (scm_t_array_handle *h); SCM_API const int16_t *scm_array_handle_s16_elements (scm_t_array_handle *h);
SCM_API int16_t *scm_array_handle_s16_writable_elements (scm_t_array_handle *h); SCM_API int16_t *scm_array_handle_s16_writable_elements (scm_t_array_handle *h);
SCM_API const int16_t *scm_s16vector_elements (SCM uvec, SCM_API const int16_t *scm_s16vector_elements (SCM uvec, size_t *lenp);
scm_t_array_handle *h, SCM_API int16_t *scm_s16vector_writable_elements (SCM uvec, size_t *lenp);
size_t *lenp, ssize_t *incp);
SCM_API int16_t *scm_s16vector_writable_elements (SCM uvec,
scm_t_array_handle *h,
size_t *lenp,
ssize_t *incp);
SCM_API SCM scm_u32vector_p (SCM obj); SCM_API SCM scm_u32vector_p (SCM obj);
SCM_API SCM scm_make_u32vector (SCM n, SCM fill); SCM_API SCM scm_make_u32vector (SCM n, SCM fill);
@ -123,14 +102,8 @@ SCM_API SCM scm_list_to_u32vector (SCM l);
SCM_API SCM scm_any_to_u32vector (SCM obj); SCM_API SCM scm_any_to_u32vector (SCM obj);
SCM_API const uint32_t *scm_array_handle_u32_elements (scm_t_array_handle *h); SCM_API const uint32_t *scm_array_handle_u32_elements (scm_t_array_handle *h);
SCM_API uint32_t *scm_array_handle_u32_writable_elements (scm_t_array_handle *h); SCM_API uint32_t *scm_array_handle_u32_writable_elements (scm_t_array_handle *h);
SCM_API const uint32_t *scm_u32vector_elements (SCM uvec, SCM_API const uint32_t *scm_u32vector_elements (SCM uvec, size_t *lenp);
scm_t_array_handle *h, SCM_API uint32_t *scm_u32vector_writable_elements (SCM uvec, size_t *lenp);
size_t *lenp,
ssize_t *incp);
SCM_API uint32_t *scm_u32vector_writable_elements (SCM uvec,
scm_t_array_handle *h,
size_t *lenp,
ssize_t *incp);
SCM_API SCM scm_s32vector_p (SCM obj); SCM_API SCM scm_s32vector_p (SCM obj);
SCM_API SCM scm_make_s32vector (SCM n, SCM fill); SCM_API SCM scm_make_s32vector (SCM n, SCM fill);
@ -144,13 +117,8 @@ SCM_API SCM scm_list_to_s32vector (SCM l);
SCM_API SCM scm_any_to_s32vector (SCM obj); SCM_API SCM scm_any_to_s32vector (SCM obj);
SCM_API const int32_t *scm_array_handle_s32_elements (scm_t_array_handle *h); SCM_API const int32_t *scm_array_handle_s32_elements (scm_t_array_handle *h);
SCM_API int32_t *scm_array_handle_s32_writable_elements (scm_t_array_handle *h); SCM_API int32_t *scm_array_handle_s32_writable_elements (scm_t_array_handle *h);
SCM_API const int32_t *scm_s32vector_elements (SCM uvec, SCM_API const int32_t *scm_s32vector_elements (SCM uvec, size_t *lenp);
scm_t_array_handle *h, SCM_API int32_t *scm_s32vector_writable_elements (SCM uvec, size_t *lenp);
size_t *lenp, ssize_t *incp);
SCM_API int32_t *scm_s32vector_writable_elements (SCM uvec,
scm_t_array_handle *h,
size_t *lenp,
ssize_t *incp);
SCM_API SCM scm_u64vector_p (SCM obj); SCM_API SCM scm_u64vector_p (SCM obj);
SCM_API SCM scm_make_u64vector (SCM n, SCM fill); SCM_API SCM scm_make_u64vector (SCM n, SCM fill);
@ -165,14 +133,8 @@ SCM_API SCM scm_any_to_u64vector (SCM obj);
SCM_API SCM scm_take_u64vector (uint64_t *data, size_t n); SCM_API SCM scm_take_u64vector (uint64_t *data, size_t n);
SCM_API const uint64_t *scm_array_handle_u64_elements (scm_t_array_handle *h); SCM_API const uint64_t *scm_array_handle_u64_elements (scm_t_array_handle *h);
SCM_API uint64_t *scm_array_handle_u64_writable_elements (scm_t_array_handle *h); SCM_API uint64_t *scm_array_handle_u64_writable_elements (scm_t_array_handle *h);
SCM_API const uint64_t *scm_u64vector_elements (SCM uvec, SCM_API const uint64_t *scm_u64vector_elements (SCM uvec, size_t *lenp);
scm_t_array_handle *h, SCM_API uint64_t *scm_u64vector_writable_elements (SCM uvec, size_t *lenp);
size_t *lenp,
ssize_t *incp);
SCM_API uint64_t *scm_u64vector_writable_elements (SCM uvec,
scm_t_array_handle *h,
size_t *lenp,
ssize_t *incp);
SCM_API SCM scm_s64vector_p (SCM obj); SCM_API SCM scm_s64vector_p (SCM obj);
SCM_API SCM scm_make_s64vector (SCM n, SCM fill); SCM_API SCM scm_make_s64vector (SCM n, SCM fill);
@ -187,13 +149,8 @@ SCM_API SCM scm_any_to_s64vector (SCM obj);
SCM_API SCM scm_take_s64vector (int64_t *data, size_t n); SCM_API SCM scm_take_s64vector (int64_t *data, size_t n);
SCM_API const int64_t *scm_array_handle_s64_elements (scm_t_array_handle *h); SCM_API const int64_t *scm_array_handle_s64_elements (scm_t_array_handle *h);
SCM_API int64_t *scm_array_handle_s64_writable_elements (scm_t_array_handle *h); SCM_API int64_t *scm_array_handle_s64_writable_elements (scm_t_array_handle *h);
SCM_API const int64_t *scm_s64vector_elements (SCM uvec, SCM_API const int64_t *scm_s64vector_elements (SCM uvec, size_t *lenp);
scm_t_array_handle *h, SCM_API int64_t *scm_s64vector_writable_elements (SCM uvec, size_t *lenp);
size_t *lenp, ssize_t *incp);
SCM_API int64_t *scm_s64vector_writable_elements (SCM uvec,
scm_t_array_handle *h,
size_t *lenp,
ssize_t *incp);
SCM_API SCM scm_f32vector_p (SCM obj); SCM_API SCM scm_f32vector_p (SCM obj);
SCM_API SCM scm_make_f32vector (SCM n, SCM fill); SCM_API SCM scm_make_f32vector (SCM n, SCM fill);
@ -207,13 +164,8 @@ SCM_API SCM scm_list_to_f32vector (SCM l);
SCM_API SCM scm_any_to_f32vector (SCM obj); SCM_API SCM scm_any_to_f32vector (SCM obj);
SCM_API const float *scm_array_handle_f32_elements (scm_t_array_handle *h); SCM_API const float *scm_array_handle_f32_elements (scm_t_array_handle *h);
SCM_API float *scm_array_handle_f32_writable_elements (scm_t_array_handle *h); SCM_API float *scm_array_handle_f32_writable_elements (scm_t_array_handle *h);
SCM_API const float *scm_f32vector_elements (SCM uvec, SCM_API const float *scm_f32vector_elements (SCM uvec, size_t *lenp);
scm_t_array_handle *h, SCM_API float *scm_f32vector_writable_elements (SCM uvec, size_t *lenp);
size_t *lenp, ssize_t *incp);
SCM_API float *scm_f32vector_writable_elements (SCM uvec,
scm_t_array_handle *h,
size_t *lenp,
ssize_t *incp);
SCM_API SCM scm_f64vector_p (SCM obj); SCM_API SCM scm_f64vector_p (SCM obj);
SCM_API SCM scm_make_f64vector (SCM n, SCM fill); SCM_API SCM scm_make_f64vector (SCM n, SCM fill);
@ -227,13 +179,8 @@ SCM_API SCM scm_list_to_f64vector (SCM l);
SCM_API SCM scm_any_to_f64vector (SCM obj); SCM_API SCM scm_any_to_f64vector (SCM obj);
SCM_API const double *scm_array_handle_f64_elements (scm_t_array_handle *h); SCM_API const double *scm_array_handle_f64_elements (scm_t_array_handle *h);
SCM_API double *scm_array_handle_f64_writable_elements (scm_t_array_handle *h); SCM_API double *scm_array_handle_f64_writable_elements (scm_t_array_handle *h);
SCM_API const double *scm_f64vector_elements (SCM uvec, SCM_API const double *scm_f64vector_elements (SCM uvec, size_t *lenp);
scm_t_array_handle *h, SCM_API double *scm_f64vector_writable_elements (SCM uvec, size_t *lenp);
size_t *lenp, ssize_t *incp);
SCM_API double *scm_f64vector_writable_elements (SCM uvec,
scm_t_array_handle *h,
size_t *lenp,
ssize_t *incp);
SCM_API SCM scm_c32vector_p (SCM obj); SCM_API SCM scm_c32vector_p (SCM obj);
SCM_API SCM scm_make_c32vector (SCM n, SCM fill); SCM_API SCM scm_make_c32vector (SCM n, SCM fill);
@ -247,13 +194,8 @@ SCM_API SCM scm_list_to_c32vector (SCM l);
SCM_API SCM scm_any_to_c32vector (SCM obj); SCM_API SCM scm_any_to_c32vector (SCM obj);
SCM_API const float *scm_array_handle_c32_elements (scm_t_array_handle *h); SCM_API const float *scm_array_handle_c32_elements (scm_t_array_handle *h);
SCM_API float *scm_array_handle_c32_writable_elements (scm_t_array_handle *h); SCM_API float *scm_array_handle_c32_writable_elements (scm_t_array_handle *h);
SCM_API const float *scm_c32vector_elements (SCM uvec, SCM_API const float *scm_c32vector_elements (SCM uvec, size_t *lenp);
scm_t_array_handle *h, SCM_API float *scm_c32vector_writable_elements (SCM uvec, size_t *lenp);
size_t *lenp, ssize_t *incp);
SCM_API float *scm_c32vector_writable_elements (SCM uvec,
scm_t_array_handle *h,
size_t *lenp,
ssize_t *incp);
SCM_API SCM scm_c64vector_p (SCM obj); SCM_API SCM scm_c64vector_p (SCM obj);
SCM_API SCM scm_make_c64vector (SCM n, SCM fill); SCM_API SCM scm_make_c64vector (SCM n, SCM fill);
@ -267,13 +209,8 @@ SCM_API SCM scm_list_to_c64vector (SCM l);
SCM_API SCM scm_any_to_c64vector (SCM obj); SCM_API SCM scm_any_to_c64vector (SCM obj);
SCM_API const double *scm_array_handle_c64_elements (scm_t_array_handle *h); SCM_API const double *scm_array_handle_c64_elements (scm_t_array_handle *h);
SCM_API double *scm_array_handle_c64_writable_elements (scm_t_array_handle *h); SCM_API double *scm_array_handle_c64_writable_elements (scm_t_array_handle *h);
SCM_API const double *scm_c64vector_elements (SCM uvec, SCM_API const double *scm_c64vector_elements (SCM uvec, size_t *lenp);
scm_t_array_handle *h, SCM_API double *scm_c64vector_writable_elements (SCM uvec, size_t *lenp);
size_t *lenp, ssize_t *incp);
SCM_API double *scm_c64vector_writable_elements (SCM uvec,
scm_t_array_handle *h,
size_t *lenp,
ssize_t *incp);
SCM_INTERNAL void scm_init_srfi_4 (void); SCM_INTERNAL void scm_init_srfi_4 (void);

58
test-suite/standalone/test-srfi-4.c
View file

@ -34,15 +34,43 @@ test_writable_elements ()
{ {
SCM elts = scm_list_4 (scm_from_int (1), scm_from_int (2), SCM elts = scm_list_4 (scm_from_int (1), scm_from_int (2),
scm_from_int (3), scm_from_int (4)); scm_from_int (3), scm_from_int (4));
/* Requiring true type vectors */
{ {
SCM v = scm_u32vector (elts); SCM v = scm_u32vector (elts);
size_t len; size_t len;
ssize_t inc; uint32_t *elts = scm_u32vector_writable_elements (v, &len);
scm_t_array_handle h;
uint32_t *elts = scm_u32vector_writable_elements (v, &h, &len, &inc);
assert (len == 4); assert (len == 4);
assert (inc == 1); assert (elts[0] == 1);
assert (elts[3] == 4);
}
{
SCM v = scm_f32vector (elts);
size_t len;
float *elts = scm_f32vector_writable_elements (v, &len);
assert (len == 4);
assert (elts[0] == 1.0);
assert (elts[3] == 4.0);
}
{
SCM v = scm_c32vector (elts);
size_t len;
float *elts = scm_c32vector_writable_elements (v, &len);
assert (len == 4);
assert (elts[0] == 1.0);
assert (elts[1] == 0.0);
assert (elts[6] == 4.0);
assert (elts[7] == 0.0);
}
/* Accepting any typed array */
{
SCM v = scm_u32vector (elts);
scm_t_array_handle h;
scm_array_get_handle(v, &h);
scm_t_array_dim *dim = scm_array_handle_dims (&h);
uint32_t *elts = scm_array_handle_u32_writable_elements (&h);
assert (dim->ubnd + 1 - dim->lbnd == 4);
assert (dim->inc == 1);
assert (elts[0] == 1); assert (elts[0] == 1);
assert (elts[3] == 4); assert (elts[3] == 4);
scm_array_handle_release (&h); scm_array_handle_release (&h);
@ -50,12 +78,12 @@ test_writable_elements ()
{ {
SCM v = scm_f32vector (elts); SCM v = scm_f32vector (elts);
size_t len;
ssize_t inc;
scm_t_array_handle h; scm_t_array_handle h;
float *elts = scm_f32vector_writable_elements (v, &h, &len, &inc); scm_array_get_handle(v, &h);
assert (len == 4); scm_t_array_dim *dim = scm_array_handle_dims (&h);
assert (inc == 1); float *elts = scm_array_handle_f32_writable_elements (&h);
assert (dim->ubnd + 1 - dim->lbnd == 4);
assert (dim->inc == 1);
assert (elts[0] == 1.0); assert (elts[0] == 1.0);
assert (elts[3] == 4.0); assert (elts[3] == 4.0);
scm_array_handle_release (&h); scm_array_handle_release (&h);
@ -63,12 +91,12 @@ test_writable_elements ()
{ {
SCM v = scm_c32vector (elts); SCM v = scm_c32vector (elts);
size_t len;
ssize_t inc;
scm_t_array_handle h; scm_t_array_handle h;
float *elts = scm_c32vector_writable_elements (v, &h, &len, &inc); scm_array_get_handle(v, &h);
assert (len == 4); scm_t_array_dim *dim = scm_array_handle_dims (&h);
assert (inc == 1); float *elts = scm_array_handle_c32_writable_elements (&h);
assert (dim->ubnd + 1 - dim->lbnd == 4);
assert (dim->inc == 1);
assert (elts[0] == 1.0); assert (elts[0] == 1.0);
assert (elts[1] == 0.0); assert (elts[1] == 0.0);
assert (elts[6] == 4.0); assert (elts[6] == 4.0);