diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-11-09 16:13:58 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-11-09 16:13:58 +0000 |
commit | 811eb6d0eeac0b437cdc161fbe8e14ca525e39c4 (patch) | |
tree | 90fda7cb6bfff1e54e7adb059b91cbb0ed9d30d1 /libguile/srfi-4.h | |
parent | 1d227e527a06234a8f1255ccb7ebcff83137934c (diff) | |
download | guile-811eb6d0eeac0b437cdc161fbe8e14ca525e39c4.tar.gz |
(scm_c_uniform_vector_ref, scm_c_uniform_vector_set_x): New.
(scm_i_uniform_vector_creator): Removed.
(scm_i_generalized_vector_creator): New.
(scm_uniform_vector_length, scm_uniform_element_size): Do not
handle generalized vectors, only uniform numeric vectors.
(alloc_uvec): Do length check here...
(make_uvec): ...but not here.
(coerce_to_uvec): Use new generalized vector functions to handle
all kinds of vectors in one go.
Diffstat (limited to 'libguile/srfi-4.h')
-rw-r--r-- | libguile/srfi-4.h | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/libguile/srfi-4.h b/libguile/srfi-4.h index 8499ef192..2b59cdd99 100644 --- a/libguile/srfi-4.h +++ b/libguile/srfi-4.h @@ -34,6 +34,8 @@ SCM_API SCM scm_uniform_vector_to_list (SCM v); SCM_API int scm_is_uniform_vector (SCM obj); SCM_API size_t scm_c_uniform_vector_length (SCM v); SCM_API size_t scm_c_uniform_vector_size (SCM v); +SCM_API SCM scm_c_uniform_vector_ref (SCM v, size_t idx); +SCM_API void scm_c_uniform_vector_set_x (SCM v, size_t idx, SCM val); SCM_API void *scm_uniform_vector_elements (SCM uvec); SCM_API size_t scm_uniform_vector_element_size (SCM uvec); @@ -187,9 +189,10 @@ SCM_API SCM scm_list_to_c64vector (SCM l); SCM_API SCM scm_any_to_c64vector (SCM obj); SCM_API double *scm_c64vector_elements (SCM uvec); -SCM_API SCM scm_i_uniform_vector_creator (SCM uvec); +SCM_API SCM scm_i_generalized_vector_creator (SCM uvec); SCM_API const char *scm_i_uniform_vector_tag (SCM uvec); +/* deprecated */ SCM_API size_t scm_uniform_element_size (SCM obj); SCM_API SCM scm_i_proc_make_u8vector; |