summaryrefslogtreecommitdiff
path: root/libguile/gh_data.c
diff options
context:
space:
mode:
authorMark Galassi <mark+savannah@galassi.org>1997-11-25 06:18:08 +0000
committerMark Galassi <mark+savannah@galassi.org>1997-11-25 06:18:08 +0000
commitef5d3ae17549e4da69dbbba316f5722a5d2f9ea0 (patch)
treefd4bbc8150019c82df8f827b2ccb4065c6a0e3e2 /libguile/gh_data.c
parent774b7f2281a1a29576b52ff4f99c2e97c102b434 (diff)
downloadguile-ef5d3ae17549e4da69dbbba316f5722a5d2f9ea0.tar.gz
made changes in gh_repl() and started adding the uniform array stuff to gh_
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