made changes in gh_repl() and started adding the uniform array stuff to gh_

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 0640cfc..febe914 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,11 @@
+1997-11-24  Mark Galassi  <rosalia@nis.lanl.gov>
+
+       * gh_init.c (gh_repl): modified gh_repl() to accept argc and argv
+       and to invoke scm_shell().
+       (gh_launch_pad): took out the loading of boot-9.scm from here,
+       since it is probably best to let the user control that.  In fact,
+       gh_repl() now invokes scm_shell() which does that.
+
 1997-11-22  Tim Pierce  <twp@twp.tezcat.com>
 
        * dynl-dl.c (sysdep_dynl_func): Fix memory leak created by
@@ -9,6 +17,12 @@
        * dynl-dl.c (sysdep_dynl_func): Prepend symb with underscore if
        DLSYM_ADDS_USCORE is not defined.
 
+1997-11-17  Mark Galassi  <rosalia@nis.lanl.gov>
+
+       * gh_data.c (gh_uniform_vector_length): 
+       (gh_uniform_vector_ref): started implementing the uniform types in
+       the gh_ interface.
+
 1997-11-06  Mikael Djurfeldt  <mdj@nada.kth.se>
 
        * regex-posix.c (scm_free_regex_t): Return size of regex_t instead

diff --git a/libguile/gh_data.c b/libguile/gh_data.c
index 1be6a67..2c067cc 100644 (file)
--- 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

diff --git a/libguile/gh_init.c b/libguile/gh_init.c
index e2e58f2..eb6858b 100644 (file)
--- a/libguile/gh_init.c
+++ b/libguile/gh_init.c
@@ -57,7 +57,7 @@ gh_launch_pad (void *closure, int argc, char **argv)
 {
   main_prog_t c_main_prog = (main_prog_t) closure;
 
-  gh_eval_str ("(primitive-load-path \"ice-9/boot-9.scm\")");
+/*   gh_eval_str ("(primitive-load-path \"ice-9/boot-9.scm\")"); */
   c_main_prog (argc, argv);
   exit (0);
 }
@@ -76,10 +76,10 @@ gh_enter (int argc, char *argv[], main_prog_t c_main_prog)
 /* offer a REPL to the C programmer; for now I just invoke the ice-9
    REPL that is written in Scheme */
 void 
-gh_repl ()
+gh_repl (int argc, char *argv[])
 {
-/*   gh_eval_str("(primitive-load-path \"ice-9/boot-9.scm\")"); */
-  gh_eval_str ("(top-repl)");
+/*   gh_eval_str ("(top-repl)"); */
+  scm_shell (argc, argv);
 }
 
 /* libguile programmers need exception handling mechanisms; here is