zsh/Src/params.c

3365     char ***dptr = (char ***)pm->u.data;
3367     if (*dptr != x)
3368 	freearray(*dptr);
3377 	*dptr = mkarray(NULL);
3379 	*dptr = x;
3388     char ***dptr = (char ***)pm->u.data;
3389     return *dptr ? zjoin(*dptr, ':', 1) : "";
3396     char ***dptr = (char ***)pm->u.data;
3401     if (*dptr)
3402 	freearray(*dptr);
3404 	*dptr = colonsplit(x, pm->node.flags & PM_UNIQUE);
3406 	*dptr = mkarray(NULL);
3408 	arrfixenv(pm->node.nam, *dptr);
3416     struct tieddata *dptr = (struct tieddata *)pm->u.data;
3417     return *dptr->arrptr ? zjoin(*dptr->arrptr, STOUC(dptr->joinchar), 1) : "";
3424     struct tieddata *dptr = (struct tieddata *)pm->u.data;
3426     if (*dptr->arrptr)
3427 	freearray(*dptr->arrptr);
3430 	if (imeta(dptr->joinchar))
3433 	    sepbuf[1] = dptr->joinchar ^ 32;
3438 	    sepbuf[0] = dptr->joinchar;
3441 	*dptr->arrptr = sepsplit(x, sepbuf, 0, 0);
3443 	    uniqarray(*dptr->arrptr);
3446 	*dptr->arrptr = NULL;
3448 	arrfixenv(pm->node.nam, *dptr->arrptr);