guile/guile-core/libguile gh.h

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/05/01 17:43:02

Modified files:
        guile-core/libguile: gh.h 

Log message:
        * gh.h (gh_init_guile, gh_make_string, gh_string_length,
        gh_string_ref, gh_string_set_x, gh_substring, gh_string_append):
        New.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/gh.h.diff?cvsroot=OldCVS&tr1=1.29&tr2=1.30&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/gh.h
diff -u guile/guile-core/libguile/gh.h:1.29 guile/guile-core/libguile/gh.h:1.30
--- guile/guile-core/libguile/gh.h:1.29 Sat Apr 28 10:23:23 2001
+++ guile/guile-core/libguile/gh.h      Tue May  1 17:43:01 2001
@@ -59,6 +59,7 @@
 #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);
@@ -158,6 +159,15 @@
 #define gh_not(x) scm_not(x)
 
 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