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

scm_from_stringn utf8 optimization

Browse source 
* libguile/strings.c (scm_from_stringn): Optimize scm_from_stringn for
  utf-8.
This commit is contained in:
Andy Wingo 2012-02-14 09:35:22 +01:00
parent 33aadcab8a
commit 098818a165
1 changed files with 3 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/strings.c
View file

@ -1525,13 +1525,9 @@ scm_from_stringn (const char *str, size_t len, const char *encoding,
len = strlen (str); len = strlen (str);
if (encoding == NULL || len == 0) if (encoding == NULL || len == 0)
{ return scm_from_latin1_stringn (str, len);
/* If encoding is null (or the string is empty), use Latin-1. */ else if (strcmp (encoding, "UTF-8") == 0)
char *buf; return scm_from_utf8_stringn (str, len);
res = scm_i_make_string (len, &buf, 0);
memcpy (buf, str, len);
return res;
}
u32len = 0; u32len = 0;
u32 = (scm_t_wchar *) u32_conv_from_encoding (encoding, u32 = (scm_t_wchar *) u32_conv_from_encoding (encoding,