697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
|
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
|
-
+
|
/* traversing back reaches ascii - either known mark points to char,
* or unexpected case with invalid utf-8 or unsupported surrogate
* starting from next char, so goto next char and stop search: */
look++;
break;
}
o = Tcl_UtfToUniChar(look, &ch);
/* if we are reached start of some char, mark as known and try further */
/* if we reach start of some char, mark as known and try further */
if (o >= i) {
known = i;
}
look--;
}
/* use best (marked as known) char position, or current found if unknown: */
if (known) {
|