summaryrefslogtreecommitdiff
path: root/libguile/gh_data.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/gh_data.c')
-rw-r--r--libguile/gh_data.c24
1 files changed, 24 insertions, 0 deletions
diff --git a/libguile/gh_data.c b/libguile/gh_data.c
index 1be6a6702..2c067cc5b 100644
--- a/libguile/gh_data.c
+++ b/libguile/gh_data.c
@@ -295,6 +295,30 @@ gh_vector_length (SCM v)
return gh_scm2ulong (scm_vector_length (v));
}
+
+/* uniform vector support */
+
+/* returns the length as a C unsigned long integer */
+unsigned long
+gh_uniform_vector_length (SCM v)
+{
+ return gh_scm2ulong (scm_uniform_vector_length (v));
+}
+
+/* gets the given element from a uniform vector; ilist is a list (or
+ possibly a single integer) of indices, and its length is the
+ dimension of the uniform vector */
+SCM
+gh_uniform_vector_ref (SCM v, SCM ilist)
+{
+ return scm_uniform_vector_ref (v, ilist);
+}
+
+/* sets an individual element in a uniform vector */
+/* SCM */
+/* gh_list_to_uniform_array ( */
+
+
/* Data lookups between C and Scheme
Look up a symbol with a given name, and return the object to which