From e2e912189359b20efc0b178fd913728e38502b3e Mon Sep 17 00:00:00 2001 From: Bart Schaefer Date: Tue, 24 Apr 2001 05:45:16 +0000 Subject: Subscripting optimization and error checking. --- Src/glob.c | 2 +- Src/params.c | 25 ++++++++++++++++--------- Src/subst.c | 8 +++++--- Src/zsh.h | 1 + 4 files changed, 23 insertions(+), 13 deletions(-) (limited to 'Src') diff --git a/Src/glob.c b/Src/glob.c index 90b291459..5be79329b 100644 --- a/Src/glob.c +++ b/Src/glob.c @@ -1344,7 +1344,7 @@ glob(LinkList list, LinkNode np, int nountok) v.pm = NULL; v.end = -1; v.inv = 0; - if (getindex(&s, &v) || s == os) { + if (getindex(&s, &v, 0) || s == os) { zerr("invalid subscript", NULL, 0); restore_globstate(saved); return; diff --git a/Src/params.c b/Src/params.c index de928ea1b..192ca74ad 100644 --- a/Src/params.c +++ b/Src/params.c @@ -845,7 +845,8 @@ getarg(char **str, int *inv, Value v, int a2, zlong *w) sep = "\n"; break; case 'e': - /* obsolate compatibility flag without any real effect */ + /* Compatibility flag with no effect except to prevent * + * special interpretation by getindex() of `*' or `@'. */ break; case 'n': t = get_strarg(++s); @@ -876,7 +877,7 @@ getarg(char **str, int *inv, Value v, int a2, zlong *w) break; case 's': /* This gives the string that separates words * - * (for use with the `w' flag. */ + * (for use with the `w' flag). */ t = get_strarg(++s); if (!*t) goto flagerr; @@ -1177,11 +1178,10 @@ getarg(char **str, int *inv, Value v, int a2, zlong *w) /**/ int -getindex(char **pptr, Value v) +getindex(char **pptr, Value v, int dq) { int start, end, inv = 0; char *s = *pptr, *tbrack; - int dq = !!strchr(s, Dnull); *s++ = '['; s = parse_subscript(s, dq); /* Error handled after untokenizing */ @@ -1358,7 +1358,7 @@ fetchvalue(Value v, char **pptr, int bracks, int flags) v->start = 0; v->end = -1; if (bracks > 0 && (*s == '[' || *s == Inbrack)) { - if (getindex(&s, v)) { + if (getindex(&s, v, (flags & SCANPM_DQUOTED))) { *pptr = s; return v; } @@ -1409,7 +1409,7 @@ getstrvalue(Value v) /* (!v->isarr) should be impossible unless emulating ksh */ if (!v->isarr && emulation == EMULATE_KSH) { s = dupstring("[0]"); - if (getindex(&s, v) == 0) + if (getindex(&s, v, 0) == 0) s = getstrvalue(v); return s; } /* else fall through */ @@ -1575,6 +1575,10 @@ setstrvalue(Value v, char *val) zsfree(val); return; } + if (v->pm->flags & PM_HASHED) { + zerr("%s: attempt to set slice of associative array", v->pm->nam, 0); + return; + } v->pm->flags &= ~PM_UNSET; switch (PM_TYPE(v->pm->flags)) { case PM_SCALAR: @@ -1698,7 +1702,8 @@ setarrvalue(Value v, char **val) } if (!(PM_TYPE(v->pm->flags) & (PM_ARRAY|PM_HASHED))) { freearray(val); - zerr("attempt to assign array value to non-array", NULL, 0); + zerr("%s: attempt to assign array value to non-array", + v->pm->nam, 0); return; } if (v->start == 0 && v->end == -1) { @@ -1712,7 +1717,8 @@ setarrvalue(Value v, char **val) if ((PM_TYPE(v->pm->flags) == PM_HASHED)) { freearray(val); - zerr("attempt to set slice of associative array", NULL, 0); + zerr("%s: attempt to set slice of associative array", + v->pm->nam, 0); return; } if (v->inv && unset(KSHARRAYS)) @@ -1906,7 +1912,8 @@ setaparam(char *s, char **val) *ss = '['; if (v && PM_TYPE(v->pm->flags) == PM_HASHED) { unqueue_signals(); - zerr("attempt to set slice of associative array", NULL, 0); + zerr("%s: attempt to set slice of associative array", + v->pm->nam, 0); freearray(val); errflag = 1; return NULL; diff --git a/Src/subst.c b/Src/subst.c index 27ed6af07..2113123ef 100644 --- a/Src/subst.c +++ b/Src/subst.c @@ -1068,7 +1068,7 @@ paramsubst(LinkList l, LinkNode n, char **str, int qt, int ssub) s++; v = (Value) NULL; } else if (aspar) { - if ((v = getvalue(&vbuf, &s, 1))) { + if ((v = fetchvalue(&vbuf, &s, 1, (qt ? SCANPM_DQUOTED : 0)))) { val = idbeg = getstrvalue(v); subexp = 1; } else @@ -1080,7 +1080,9 @@ paramsubst(LinkList l, LinkNode n, char **str, int qt, int ssub) if (!(v = fetchvalue(&vbuf, (subexp ? &ov : &s), (wantt ? -1 : ((unset(KSHARRAYS) || inbrace) ? 1 : -1)), - hkeys|hvals|(arrasg ? SCANPM_ASSIGNING : 0))) || + hkeys|hvals| + (arrasg ? SCANPM_ASSIGNING : 0)| + (qt ? SCANPM_DQUOTED : 0))) || (v->pm && (v->pm->flags & PM_UNSET))) vunset = 1; @@ -1151,7 +1153,7 @@ paramsubst(LinkList l, LinkNode n, char **str, int qt, int ssub) v->isarr = isarr; v->pm = pm; v->end = -1; - if (getindex(&s, v) || s == os) + if (getindex(&s, v, qt) || s == os) break; } if ((isarr = v->isarr)) { diff --git a/Src/zsh.h b/Src/zsh.h index 315c1d3bd..ed63b1a49 100644 --- a/Src/zsh.h +++ b/Src/zsh.h @@ -1148,6 +1148,7 @@ struct param { #define SCANPM_MATCHMANY (1<<5) #define SCANPM_ASSIGNING (1<<6) #define SCANPM_KEYMATCH (1<<7) +#define SCANPM_DQUOTED (1<<8) #define SCANPM_ISVAR_AT ((-1)<<15) /* Only sign bit is significant */ /* -- cgit 1.4.1