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

Updated example to use scm_to_locale_string

Browse source 
instead of roll-your-own scm_to_string.  Also showcase
scm_frame_free.
This commit is contained in:
Marius Vollmer 2004-08-10 14:16:34 +00:00
parent 91210d629f
commit 273167608a
1 changed files with 10 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

30
doc/ref/api-control.texi
View file

@ -1077,24 +1077,8 @@ char *foo (char *s1, char *s2);
/* SCM_FOO interfaces the C function FOO to the Scheme way of life.
It takes care to free up all temporary strings in the case of
non-local exits.
It uses SCM_TO_STRING as a helper procedure.
*/
char *
scm_to_string (SCM obj)
@{
if (SCM_STRINGP (obj))
@{
char *res = scm_malloc (SCM_STRING_LENGTH (obj)+1);
strcpy (res, SCM_STRING_CHARS (obj));
scm_remember_upto_here_1 (obj);
return res;
@}
else
scm_wrong_type_arg ("scm_to_string", 1, obj);
@}
SCM
scm_foo (SCM s1, SCM s2)
@{
@ -1102,11 +1086,17 @@ scm_foo (SCM s1, SCM s2)
scm_frame_begin (0);
c_s1 = scm_to_string (s1);
c_s1 = scm_to_locale_string (s1);
/* Call 'free (c_s1)' when the frame is left.
*/
scm_frame_unwind_handler (free, c_s1, SCM_F_WIND_EXPLICITLY);
c_s2 = scm_to_string (s2);
scm_frame_unwind_handler (free, c_s2, SCM_F_WIND_EXPLICITLY);
c_s2 = scm_to_locale_string (s2);
/* Same as above, but more concisely.
*/
scm_frame_free (c_s2);
c_res = foo (c_s1, c_s2);
if (c_res == NULL)
@ -1114,7 +1104,7 @@ scm_foo (SCM s1, SCM s2)
scm_frame_end ();
return scm_take0str (res);
return scm_take_locale_string (res);
@}
@end example