mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

* gh.h (gh_init_guile, gh_make_string, gh_string_length,

Browse source 
gh_string_ref, gh_string_set_x, gh_substring, gh_string_append):
New.
This commit is contained in:
Marius Vollmer 2001-05-02 00:43:01 +00:00
parent e200c20fa0
commit 1464aae01f
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/gh.h
View file

@ -59,6 +59,7 @@ extern "C" {
#endif /* __GNUC__ */
void gh_enter(int argc, char *argv[], void (*c_main_prog)(int, char **));
#define gh_init () scm_init_guile ()
void gh_repl(int argc, char *argv[]);
SCM gh_catch(SCM tag, scm_catch_body_t body, void *body_data,
scm_catch_handler_t handler, void *handler_data);
@ -159,6 +160,15 @@ int gh_null_p(SCM l);
SCM gh_define(const char *name, SCM val);
/* string manipulation routines */
#define gh_make_string(k, chr) scm_make_string(k, chr)
#define gh_string_length(str) scm_string_length(str)
#define gh_string_ref(str, k) scm_string_ref(str, k)
#define gh_string_set_x(str, k, chr) scm_string_set_x(str, k, chr)
#define gh_substring(str, start,end) scm_substring(str, start, end)
#define gh_string_append(args) scm_string_append(args)
/* vector manipulation routines */
/* note that gh_vector() does not behave quite like the Scheme (vector
obj1 obj2 ...), because the interpreter engine does not pass the