diff options
author | Mark Galassi <mark+savannah@galassi.org> | 1997-11-25 06:18:08 +0000 |
---|---|---|
committer | Mark Galassi <mark+savannah@galassi.org> | 1997-11-25 06:18:08 +0000 |
commit | ef5d3ae17549e4da69dbbba316f5722a5d2f9ea0 (patch) | |
tree | fd4bbc8150019c82df8f827b2ccb4065c6a0e3e2 /libguile/gh_data.c | |
parent | 774b7f2281a1a29576b52ff4f99c2e97c102b434 (diff) | |
download | guile-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.c | 24 |
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 |