mirrors/zsh
1
0
Fork 0
mirror of git://git.code.sf.net/p/zsh/code synced 2025-11-29 03:31:01 +01:00
Code Releases Activity

zsh-workers/7948

Browse source
This commit is contained in:
Tanaka Akira 1999-09-21 01:33:28 +00:00
parent 1107e2f75f
commit 0abdec4fa3
2 changed files with 20 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Src/pattern.c
View file

@ -1335,15 +1335,15 @@ pattry(Patprog prog, char *string)
* in the pattern matching part.
*/
char *str;
int len = patinput - patinstart;
int mlen = ztrsub(patinput, patinstart);
PERMALLOC {
str = dupstrpfx(patinstart, len);
str = dupstrpfx(patinstart, patinput - patinstart);
} LASTALLOC;
setsparam("MATCH", str);
setiparam("MBEGIN", (zlong)(patoffset + !isset(KSHARRAYS)));
setiparam("MEND",
(zlong)(len + patoffset + !isset(KSHARRAYS) - 1));
(zlong)(mlen + patoffset + !isset(KSHARRAYS) - 1));
}
if (prog->patnpar && !(patflags & PAT_FILE)) {
/*
@ -1374,11 +1374,11 @@ pattry(Patprog prog, char *string)
* corresponds to indexing as ${foo[1,1]}.
*/
sprintf(numbuf, "%ld",
(long)((*sp - patinstart) + patoffset +
(long)(ztrsub(*sp, patinstart) + patoffset +
!isset(KSHARRAYS)));
mbeginarr[i] = ztrdup(numbuf);
sprintf(numbuf, "%ld",
(long)((*ep - patinstart) + patoffset +
(long)(ztrsub(*ep, patinstart) + patoffset +
!isset(KSHARRAYS) - 1));
mendarr[i] = ztrdup(numbuf);
sp++;