mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

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

Browse source
This commit is contained in:
Mark Galassi 1997-11-25 06:18:08 +00:00
parent 774b7f2281
commit ef5d3ae175
3 changed files with 42 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/ChangeLog
View file

@ -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> 1997-11-22 Tim Pierce <twp@twp.tezcat.com>
* dynl-dl.c (sysdep_dynl_func): Fix memory leak created by * 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 * dynl-dl.c (sysdep_dynl_func): Prepend symb with underscore if
DLSYM_ADDS_USCORE is not defined. 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> 1997-11-06 Mikael Djurfeldt <mdj@nada.kth.se>
* regex-posix.c (scm_free_regex_t): Return size of regex_t instead * regex-posix.c (scm_free_regex_t): Return size of regex_t instead

24
libguile/gh_data.c
View file

@ -295,6 +295,30 @@ gh_vector_length (SCM v)
return gh_scm2ulong (scm_vector_length (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 /* Data lookups between C and Scheme
Look up a symbol with a given name, and return the object to which Look up a symbol with a given name, and return the object to which

8
libguile/gh_init.c
View file

@ -57,7 +57,7 @@ gh_launch_pad (void *closure, int argc, char **argv)
{ {
main_prog_t c_main_prog = (main_prog_t) closure; 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); c_main_prog (argc, argv);
exit (0); 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 /* offer a REPL to the C programmer; for now I just invoke the ice-9
REPL that is written in Scheme */ REPL that is written in Scheme */
void 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 /* libguile programmers need exception handling mechanisms; here is