mirrors/zsh
1
0
Fork 0
mirror of git://git.code.sf.net/p/zsh/code synced 2025-10-27 04:40:59 +01:00
Code Releases Activity

Jun T.: 37515: multibyte handling as per 35448.

Browse source
This commit is contained in:
Barton E. Schaefer 2016-01-08 20:42:00 -08:00
parent 424b417063
commit 5eae5b58b1
3 changed files with 37 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

3
ChangeLog
View file

@ -1,5 +1,8 @@
2016-01-08 Barton E. Schaefer <schaefer@zsh.org>
* Jun T.: 37515: Src/Modules/pcre.c, Test/V07pcre.ztst: multibyte
handling as per 35448.
* unposted (cf. Jun T.: 37516): Src/builtin.c: refine READ_MSTREAM
to avoid unsequenced evaluation

33
Src/Modules/pcre.c
View file

@ -190,18 +190,25 @@ zpcre_get_substrings(char *arg, int *ovec, int ret, char *matchvar,
if (want_begin_end) {
char *ptr = arg;
zlong offs = 0;
int clen, leftlen;
/* Count the characters before the match */
MB_METACHARINIT();
while (ptr < arg + ovec[0]) {
MB_CHARINIT();
leftlen = ovec[0];
while (leftlen) {
offs++;
ptr += MB_METACHARLEN(ptr);
clen = MB_CHARLEN(ptr, leftlen);
ptr += clen;
leftlen -= clen;
}
setiparam("MBEGIN", offs + !isset(KSHARRAYS));
/* Add on the characters in the match */
while (ptr < arg + ovec[1]) {
leftlen = ovec[1] - ovec[0];
while (leftlen) {
offs++;
ptr += MB_METACHARLEN(ptr);
clen = MB_CHARLEN(ptr, leftlen);
ptr += clen;
leftlen -= clen;
}
setiparam("MEND", offs + !isset(KSHARRAYS) - 1);
if (nelem) {
@ -219,17 +226,23 @@ zpcre_get_substrings(char *arg, int *ovec, int ret, char *matchvar,
ptr = arg;
offs = 0;
/* Find the start offset */
MB_METACHARINIT();
while (ptr < arg + ipair[0]) {
MB_CHARINIT();
leftlen = ipair[0];
while (leftlen) {
offs++;
ptr += MB_METACHARLEN(ptr);
clen = MB_CHARLEN(ptr, leftlen);
ptr += clen;
leftlen -= clen;
}
convbase(buf, offs + !isset(KSHARRAYS), 10);
*bptr = ztrdup(buf);
/* Continue to the end offset */
while (ptr < arg + ipair[1]) {
leftlen = ipair[1] - ipair[0];
while (leftlen) {
offs++;
ptr += MB_METACHARLEN(ptr);
clen = MB_CHARLEN(ptr, leftlen);
ptr += clen;
leftlen -= clen;
}
convbase(buf, offs + !isset(KSHARRAYS) - 1, 10);
*eptr = ztrdup(buf);

11
Test/V07pcre.ztst
View file

@ -37,6 +37,17 @@
>o→b
>→
unset match mend
s=$'\u00a0'
[[ $s =~ '^.$' ]] && print OK
[[ A${s}B =~ .(.). && $match[1] == $s ]] && print OK
[[ A${s}${s}B =~ A([^[:ascii:]]*)B && $mend[1] == 3 ]] && print OK
unset s
0:Raw IMETA characters in input string
>OK
>OK
>OK
[[ foo =~ f.+ ]] ; print $?
[[ foo =~ x.+ ]] ; print $?
[[ ! foo =~ f.+ ]] ; print $?