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

Provide non-locale C/Scheme string conversion functions

Browse source 
* doc/ref/api-data.texi: document scm_to_stringn, scm_from_stringn,
  scm_to_latin1_stringn, and scm_from_latin1_stringn
* libguile/strings.h (scm_to_stringn): make public
  (scm_to_latin1_stringn): new declaration
  (scm_from_latin1_stringn): new declaration
* libguile/strings.c (scm_to_latin1_stringn): new function
  (scm_from_latin1_stringn): new function
This commit is contained in:
Michael Gran 2010-09-12 08:29:31 -07:00
parent 58228cc689
commit cf313a947b
3 changed files with 87 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/strings.c
View file

@ -1501,6 +1501,12 @@ scm_from_stringn (const char *str, size_t len, const char *encoding,
return res;
}
SCM
scm_from_latin1_stringn (const char *str, size_t len)
{
return scm_from_stringn (str, len, NULL, SCM_FAILED_CONVERSION_ERROR);
}
SCM
scm_from_locale_stringn (const char *str, size_t len)
{
@ -1697,6 +1703,11 @@ unistring_escapes_to_r6rs_escapes (char **bufp, size_t *lenp)
memcpy (before, after, j);
}
char *
scm_to_latin1_stringn (SCM str, size_t *lenp)
{
return scm_to_stringn (str, lenp, NULL, SCM_FAILED_CONVERSION_ERROR);
}
char *
scm_to_locale_stringn (SCM str, size_t *lenp)