diff options
author | hobbs <hobbs@noemail.net> | 2001-06-28 01:10:14 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 2001-06-28 01:10:14 (GMT) |
commit | 38f9c2d6ffed9bee21909e443f9291904d510d31 (patch) | |
tree | ad78a6f3f9022c60ffbdeac7973dab98b18e8b6d /generic/tclUtf.c | |
parent | 73b930e1a6bd8d216b00bec5bf112450051a634b (diff) | |
download | tcl-38f9c2d6ffed9bee21909e443f9291904d510d31.zip tcl-38f9c2d6ffed9bee21909e443f9291904d510d31.tar.gz tcl-38f9c2d6ffed9bee21909e443f9291904d510d31.tar.bz2 |
* tests/subst.test:
* generic/tclUtf.c (Tcl_UtfBackslash): Corrected backslash
handling of multibyte utf-8 chars. [Bug #217987]
FossilOrigin-Name: 7eba85bf31a83498778ba7f6ea29b16595eda024
Diffstat (limited to 'generic/tclUtf.c')
-rw-r--r-- | generic/tclUtf.c | 23 |
1 files changed, 17 insertions, 6 deletions
diff --git a/generic/tclUtf.c b/generic/tclUtf.c index 2a6c217..8b39d5f 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUtf.c,v 1.15 2001/04/06 10:50:00 dkf Exp $ + * RCS: @(#) $Id: tclUtf.c,v 1.16 2001/06/28 01:10:15 hobbs Exp $ */ #include "tclInt.h" @@ -111,7 +111,7 @@ static int UtfCount _ANSI_ARGS_((int ch)); *--------------------------------------------------------------------------- */ -static int +INLINE static int UtfCount(ch) int ch; /* The Tcl_UniChar whose size is returned. */ { @@ -781,7 +781,8 @@ Tcl_UtfBackslash(src, readPtr, dst) * backslash sequence. */ { register CONST char *p = src+1; - int result, count, n; + Tcl_UniChar result; + int count, n; char buf[TCL_UTF_MAX]; if (dst == NULL) { @@ -883,15 +884,25 @@ Tcl_UtfBackslash(src, readPtr, dst) result = (unsigned char)((result << 3) + (*p - '0')); break; } - result = *p; - count = 2; + if (UCHAR(*p) < UNICODE_SELF) { + result = *p; + count = 2; + } else { + /* + * We have to convert here because the user has put a + * backslash in front of a multi-byte utf-8 character. + * While this means nothing special, we shouldn't break up + * a correct utf-8 character. [Bug #217987] test subst-3.2 + */ + count = Tcl_UtfToUniChar(p, &result) + 1; /* +1 for '\' */ + } break; } if (readPtr != NULL) { *readPtr = count; } - return Tcl_UniCharToUtf(result, dst); + return Tcl_UniCharToUtf((int) result, dst); } /* |