mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-02 13:00:26 +02:00
scm_from_stringn utf8 optimization
* libguile/strings.c (scm_from_stringn): Optimize scm_from_stringn for utf-8.
This commit is contained in:
parent
33aadcab8a
commit
098818a165
1 changed files with 3 additions and 7 deletions
|
@ -1525,13 +1525,9 @@ scm_from_stringn (const char *str, size_t len, const char *encoding,
|
|||
len = strlen (str);
|
||||
|
||||
if (encoding == NULL || len == 0)
|
||||
{
|
||||
/* If encoding is null (or the string is empty), use Latin-1. */
|
||||
char *buf;
|
||||
res = scm_i_make_string (len, &buf, 0);
|
||||
memcpy (buf, str, len);
|
||||
return res;
|
||||
}
|
||||
return scm_from_latin1_stringn (str, len);
|
||||
else if (strcmp (encoding, "UTF-8") == 0)
|
||||
return scm_from_utf8_stringn (str, len);
|
||||
|
||||
u32len = 0;
|
||||
u32 = (scm_t_wchar *) u32_conv_from_encoding (encoding,
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue