mirrors/zsh
1
0
Fork 0
mirror of git://git.code.sf.net/p/zsh/code synced 2025-09-11 13:01:28 +02:00
Code Releases Activity

42297: (e) subscript flag needs extra work with scalars

Browse source
This commit is contained in:
dana 2018-01-18 15:57:56 -06:00 committed by Peter Stephenson
parent 449f13a467
commit b066cc3ea9
3 changed files with 41 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
ChangeLog
View file

@ -1,3 +1,11 @@
2018-05-14 Peter Stephenson <p.stephenson@samsung.com>
* 42297: dana: Src/params.c, Test/D06subscript.ztst: (e)
subscript needs extra work with scalars.
* 42234: Stephane: Src/signals.c: don't kill a process that's
already exited when killing a job.
2018-05-13 Oliver Kiddle <okiddle@yahoo.co.uk> 2018-05-13 Oliver Kiddle <okiddle@yahoo.co.uk>
* 42488: Src/Modules/mathfunc.c, Src/builtin.c, Src/math.c, * 42488: Src/Modules/mathfunc.c, Src/builtin.c, Src/math.c,

20
Src/params.c
View file

@ -1515,7 +1515,7 @@ getarg(char **str, int *inv, Value v, int a2, zlong *w,
} }
} }
} else { } else {
if (!v->isarr && !word) { if (!v->isarr && !word && !quote_arg) {
l = strlen(s); l = strlen(s);
if (a2) { if (a2) {
if (!l || *s != '*') { if (!l || *s != '*') {
@ -1534,9 +1534,23 @@ getarg(char **str, int *inv, Value v, int a2, zlong *w,
} }
} }
if (!keymatch) { if (!keymatch) {
if (quote_arg) if (quote_arg) {
untokenize(s); untokenize(s);
else /* Scalar (e) needs implicit asterisk tokens */
if (!v->isarr && !word) {
l = strlen(s);
d = (char *) hcalloc(l + 2);
if (a2) {
*d = Star;
strcpy(d + 1, s);
} else {
strcpy(d, s);
d[l] = Star;
d[l + 1] = '\0';
}
s = d;
}
} else
tokenize(s); tokenize(s);
remnulargs(s); remnulargs(s);
pprog = patcompile(s, 0, NULL); pprog = patcompile(s, 0, NULL);

16
Test/D06subscript.ztst
View file

@ -273,3 +273,19 @@
print ${string[1,twoarg(1,4)]} print ${string[1,twoarg(1,4)]}
0:Commas inside parentheses do not confuse subscripts 0:Commas inside parentheses do not confuse subscripts
>abc >abc
string='foobarbaz foob?rbaz foob?rbaz'
print $string[(i)b?r] $string[(I)b?r]
print $string[(r)b?r] $string[(R)b?r]
print $string[(r)b?r,(R)b?r]
print $string[(ei)b?r] $string[(eI)b?r]
print $string[(er)b?r] $string[(eR)b?r]
print $string[(er)b?r,(eR)b?r]
0:Pattern handling with scalars
F:Regression test for workers/42297
>4 24
>b b
>barbaz foob?rbaz foob?r
>14 24
>b b
>b?rbaz foob?r