14887Schin /***********************************************************************
24887Schin *                                                                      *
34887Schin *               This software is part of the ast package               *
4*10898Sroland.mainz@nrubsig.org *          Copyright (c) 1982-2009 AT&T Intellectual Property          *
54887Schin *                      and is licensed under the                       *
64887Schin *                  Common Public License, Version 1.0                  *
78462SApril.Chin@Sun.COM *                    by AT&T Intellectual Property                     *
84887Schin *                                                                      *
94887Schin *                A copy of the License is available at                 *
104887Schin *            http://www.opensource.org/licenses/cpl1.0.txt             *
114887Schin *         (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9)         *
124887Schin *                                                                      *
134887Schin *              Information and Software Systems Research               *
144887Schin *                            AT&T Research                             *
154887Schin *                           Florham Park NJ                            *
164887Schin *                                                                      *
174887Schin *                  David Korn <dgk@research.att.com>                   *
184887Schin *                                                                      *
194887Schin ***********************************************************************/
204887Schin #pragma prototyped
214887Schin 
224887Schin /*
234887Schin  * code for tree nodes and name walking
244887Schin  *
254887Schin  *   David Korn
264887Schin  *   AT&T Labs
274887Schin  *
284887Schin  */
294887Schin 
304887Schin #include	"defs.h"
314887Schin #include	"name.h"
324887Schin #include	"argnod.h"
338462SApril.Chin@Sun.COM #include	"lexstates.h"
344887Schin 
354887Schin struct nvdir
364887Schin {
374887Schin 	Dt_t		*root;
384887Schin 	Namval_t	*hp;
394887Schin 	Namval_t	*table;
408462SApril.Chin@Sun.COM 	Namval_t	*otable;
414887Schin 	Namval_t	*(*nextnode)(Namval_t*,Dt_t*,Namfun_t*);
424887Schin 	Namfun_t	*fun;
434887Schin 	struct nvdir	*prev;
444887Schin 	int		len;
454887Schin 	char		data[1];
464887Schin };
474887Schin 
484887Schin char *nv_getvtree(Namval_t*, Namfun_t *);
494887Schin static void put_tree(Namval_t*, const char*, int,Namfun_t*);
508462SApril.Chin@Sun.COM static char *walk_tree(Namval_t*, Namval_t*, int);
518462SApril.Chin@Sun.COM 
528462SApril.Chin@Sun.COM static int read_tree(Namval_t* np, Sfio_t *iop, int n, Namfun_t *dp)
538462SApril.Chin@Sun.COM {
548462SApril.Chin@Sun.COM 	Sfio_t	*sp;
558462SApril.Chin@Sun.COM 	char	*cp;
568462SApril.Chin@Sun.COM 	int	c;
578462SApril.Chin@Sun.COM 	if(n>=0)
588462SApril.Chin@Sun.COM 		return(-1);
598462SApril.Chin@Sun.COM 	while((c = sfgetc(iop)) &&  isblank(c));
608462SApril.Chin@Sun.COM 	sfungetc(iop,c);
618462SApril.Chin@Sun.COM 	sfprintf(sh.strbuf,"%s=%c",nv_name(np),0);
628462SApril.Chin@Sun.COM 	cp = sfstruse(sh.strbuf);
638462SApril.Chin@Sun.COM 	sp = sfopen((Sfio_t*)0,cp,"s");
648462SApril.Chin@Sun.COM 	sfstack(iop,sp);
658462SApril.Chin@Sun.COM 	c=sh_eval(iop,SH_READEVAL);
668462SApril.Chin@Sun.COM 	return(c);
678462SApril.Chin@Sun.COM }
684887Schin 
694887Schin static Namval_t *create_tree(Namval_t *np,const char *name,int flag,Namfun_t *dp)
704887Schin {
714887Schin 	register Namfun_t *fp=dp;
724887Schin 	while(fp=fp->next)
734887Schin 	{
744887Schin 		if(fp->disc && fp->disc->createf)
754887Schin 		{
764887Schin 			if(np=(*fp->disc->createf)(np,name,flag,fp))
774887Schin 				dp->last = fp->last;
784887Schin 			return(np);
794887Schin 		}
804887Schin 	}
814887Schin 	return((flag&NV_NOADD)?0:np);
824887Schin }
834887Schin 
848462SApril.Chin@Sun.COM static Namfun_t *clone_tree(Namval_t *np, Namval_t *mp, int flags, Namfun_t *fp){
858462SApril.Chin@Sun.COM 	Namfun_t	*dp;
868462SApril.Chin@Sun.COM 	if ((flags&NV_MOVE) && nv_type(np))
878462SApril.Chin@Sun.COM 		return(fp);
888462SApril.Chin@Sun.COM 	dp = nv_clone_disc(fp,flags);
898462SApril.Chin@Sun.COM 	if((flags&NV_COMVAR) && !(flags&NV_RAW))
908462SApril.Chin@Sun.COM 	{
918462SApril.Chin@Sun.COM 		walk_tree(np,mp,flags);
928462SApril.Chin@Sun.COM 		if((flags&NV_MOVE) && !(fp->nofree&1))
938462SApril.Chin@Sun.COM 			free((void*)fp);
948462SApril.Chin@Sun.COM 	}
958462SApril.Chin@Sun.COM 	return(dp);
968462SApril.Chin@Sun.COM }
978462SApril.Chin@Sun.COM 
984887Schin static const Namdisc_t treedisc =
994887Schin {
1004887Schin 	0,
1014887Schin 	put_tree,
1024887Schin 	nv_getvtree,
1034887Schin 	0,
1044887Schin 	0,
1058462SApril.Chin@Sun.COM 	create_tree,
1068462SApril.Chin@Sun.COM 	clone_tree
1078462SApril.Chin@Sun.COM 	,0,0,0,
1088462SApril.Chin@Sun.COM 	read_tree
1094887Schin };
1104887Schin 
1114887Schin static char *nextdot(const char *str)
1124887Schin {
1134887Schin 	register char *cp;
1148462SApril.Chin@Sun.COM 	register int c;
1154887Schin 	if(*str=='.')
1164887Schin 		str++;
1178462SApril.Chin@Sun.COM 	for(cp=(char*)str;c= *cp; cp++)
1184887Schin 	{
1198462SApril.Chin@Sun.COM 		if(c=='[')
1208462SApril.Chin@Sun.COM 		{
1218462SApril.Chin@Sun.COM 			cp = nv_endsubscript((Namval_t*)0,(char*)cp,0);
1228462SApril.Chin@Sun.COM 			return(*cp=='.'?cp:0);
1238462SApril.Chin@Sun.COM 		}
1248462SApril.Chin@Sun.COM 		if(c=='.')
1258462SApril.Chin@Sun.COM 			return(cp);
1264887Schin 	}
1278462SApril.Chin@Sun.COM 	return(0);
1284887Schin }
1294887Schin 
1304887Schin static  Namfun_t *nextdisc(Namval_t *np)
1314887Schin {
1324887Schin 	register Namfun_t *fp;
1334887Schin 	if(nv_isref(np))
1344887Schin 		return(0);
1354887Schin         for(fp=np->nvfun;fp;fp=fp->next)
1364887Schin 	{
1374887Schin 		if(fp && fp->disc && fp->disc->nextf)
1384887Schin 			return(fp);
1394887Schin 	}
1404887Schin 	return(0);
1414887Schin }
1424887Schin 
1438462SApril.Chin@Sun.COM void *nv_diropen(Namval_t *np,const char *name)
1444887Schin {
1454887Schin 	char *next,*last;
1464887Schin 	int c,len=strlen(name);
1474887Schin 	struct nvdir *save, *dp = new_of(struct nvdir,len);
1488462SApril.Chin@Sun.COM 	Namval_t *nq=0,fake;
1498462SApril.Chin@Sun.COM 	Namfun_t *nfp=0;
1504887Schin 	if(!dp)
1514887Schin 		return(0);
1524887Schin 	memset((void*)dp, 0, sizeof(*dp));
1534887Schin 	if(name[len-1]=='*' || name[len-1]=='@')
1544887Schin 		len -= 1;
1558462SApril.Chin@Sun.COM 	name = memcpy(dp->data,name,len);
1568462SApril.Chin@Sun.COM 	dp->data[len] = 0;
1574887Schin 	dp->len = len;
1588462SApril.Chin@Sun.COM 	dp->root = sh.last_root?sh.last_root:sh.var_tree;
1598462SApril.Chin@Sun.COM #if 1
1608462SApril.Chin@Sun.COM 	while(1)
1618462SApril.Chin@Sun.COM 	{
1628462SApril.Chin@Sun.COM 		dp->table = sh.last_table;
1638462SApril.Chin@Sun.COM 		sh.last_table = 0;
1648462SApril.Chin@Sun.COM 		if(*(last=(char*)name)==0)
1658462SApril.Chin@Sun.COM 			break;
1668462SApril.Chin@Sun.COM 		if(!(next=nextdot(last)))
1678462SApril.Chin@Sun.COM 			break;
1688462SApril.Chin@Sun.COM 		*next = 0;
1698462SApril.Chin@Sun.COM 		np = nv_open(name, dp->root, NV_NOFAIL);
1708462SApril.Chin@Sun.COM 		*next = '.';
1718462SApril.Chin@Sun.COM 		if(!np || !nv_istable(np))
1728462SApril.Chin@Sun.COM 			break;
1738462SApril.Chin@Sun.COM 		dp->root = nv_dict(np);
1748462SApril.Chin@Sun.COM 		name = next+1;
1758462SApril.Chin@Sun.COM 	}
1768462SApril.Chin@Sun.COM #else
1774887Schin 	dp->table = sh.last_table;
1788462SApril.Chin@Sun.COM 	sh.last_table = 0;
1798462SApril.Chin@Sun.COM 	last = dp->data;
1808462SApril.Chin@Sun.COM #endif
1814887Schin 	if(*name)
1824887Schin 	{
1834887Schin 		fake.nvname = (char*)name;
1848462SApril.Chin@Sun.COM 		if(dp->hp = (Namval_t*)dtprev(dp->root,&fake))
1858462SApril.Chin@Sun.COM 		{
1868462SApril.Chin@Sun.COM 			char *cp = nv_name(dp->hp);
1878462SApril.Chin@Sun.COM 			c = strlen(cp);
1888462SApril.Chin@Sun.COM 			if(memcmp(name,cp,c) || name[c]!='[')
1898462SApril.Chin@Sun.COM 				dp->hp = (Namval_t*)dtnext(dp->root,dp->hp);
1908462SApril.Chin@Sun.COM 			else
1918462SApril.Chin@Sun.COM 			{
1928462SApril.Chin@Sun.COM 				np = dp->hp;
1938462SApril.Chin@Sun.COM 				last = 0;
1948462SApril.Chin@Sun.COM 			}
1958462SApril.Chin@Sun.COM 		}
196*10898Sroland.mainz@nrubsig.org 		else
197*10898Sroland.mainz@nrubsig.org 			dp->hp = (Namval_t*)dtfirst(dp->root);
1984887Schin 	}
1994887Schin 	else
2004887Schin 		dp->hp = (Namval_t*)dtfirst(dp->root);
2018462SApril.Chin@Sun.COM 	while(1)
2024887Schin 	{
2038462SApril.Chin@Sun.COM 		if(!last)
2048462SApril.Chin@Sun.COM 			next = 0;
2058462SApril.Chin@Sun.COM 		else if(next= nextdot(last))
2068462SApril.Chin@Sun.COM 		{
2078462SApril.Chin@Sun.COM 			c = *next;
2088462SApril.Chin@Sun.COM 			*next = 0;
2098462SApril.Chin@Sun.COM 		}
2108462SApril.Chin@Sun.COM 		if(!np)
2118462SApril.Chin@Sun.COM 		{
2128462SApril.Chin@Sun.COM 			if(nfp && nfp->disc && nfp->disc->createf)
2138462SApril.Chin@Sun.COM 			{
2148462SApril.Chin@Sun.COM 				np =  (*nfp->disc->createf)(nq,last,0,nfp);
2158462SApril.Chin@Sun.COM 				if(*nfp->last == '[')
2168462SApril.Chin@Sun.COM 				{
2178462SApril.Chin@Sun.COM 					nv_endsubscript(np,nfp->last,NV_NOADD);
2188462SApril.Chin@Sun.COM 					if(nq = nv_opensub(np))
2198462SApril.Chin@Sun.COM 						np = nq;
2208462SApril.Chin@Sun.COM 				}
2218462SApril.Chin@Sun.COM 			}
2228462SApril.Chin@Sun.COM 			else
2238462SApril.Chin@Sun.COM 				np = nv_search(last,dp->root,0);
2248462SApril.Chin@Sun.COM 		}
2258462SApril.Chin@Sun.COM 		if(next)
2268462SApril.Chin@Sun.COM 			*next = c;
2278462SApril.Chin@Sun.COM 		if(np==dp->hp && !next)
2288462SApril.Chin@Sun.COM 			dp->hp = (Namval_t*)dtnext(dp->root,dp->hp);
2294887Schin 		if(np && ((nfp=nextdisc(np)) || nv_istable(np)))
2304887Schin 		{
2314887Schin 			if(!(save = new_of(struct nvdir,0)))
2324887Schin 				return(0);
2334887Schin 			*save = *dp;
2344887Schin 			dp->prev = save;
2354887Schin 			if(nv_istable(np))
2364887Schin 				dp->root = nv_dict(np);
2374887Schin 			else
2388462SApril.Chin@Sun.COM 				dp->root = (Dt_t*)np;
2394887Schin 			if(nfp)
2404887Schin 			{
2414887Schin 				dp->nextnode = nfp->disc->nextf;
2424887Schin 				dp->table = np;
2438462SApril.Chin@Sun.COM 				dp->otable = sh.last_table;
2444887Schin 				dp->fun = nfp;
2454887Schin 				dp->hp = (*dp->nextnode)(np,(Dt_t*)0,nfp);
2464887Schin 			}
2474887Schin 			else
2484887Schin 				dp->nextnode = 0;
2494887Schin 		}
2504887Schin 		else
2514887Schin 			break;
2528462SApril.Chin@Sun.COM 		if(!next || next[1]==0)
2538462SApril.Chin@Sun.COM 			break;
2544887Schin 		last = next+1;
2558462SApril.Chin@Sun.COM 		nq = np;
2568462SApril.Chin@Sun.COM 		np = 0;
2574887Schin 	}
2584887Schin 	return((void*)dp);
2594887Schin }
2604887Schin 
2614887Schin 
2624887Schin static Namval_t *nextnode(struct nvdir *dp)
2634887Schin {
2644887Schin 	if(dp->nextnode)
2654887Schin 		return((*dp->nextnode)(dp->hp,dp->root,dp->fun));
2664887Schin 	if(dp->len && memcmp(dp->data, dp->hp->nvname, dp->len))
2674887Schin 		return(0);
2684887Schin 	return((Namval_t*)dtnext(dp->root,dp->hp));
2694887Schin }
2704887Schin 
2714887Schin char *nv_dirnext(void *dir)
2724887Schin {
2734887Schin 	register struct nvdir *save, *dp = (struct nvdir*)dir;
2744887Schin 	register Namval_t *np, *last_table;
2754887Schin 	register char *cp;
2764887Schin 	Namfun_t *nfp;
2778462SApril.Chin@Sun.COM 	Namval_t *nq;
2784887Schin 	while(1)
2794887Schin 	{
2804887Schin 		while(np=dp->hp)
2814887Schin 		{
2828462SApril.Chin@Sun.COM #if 0
2838462SApril.Chin@Sun.COM 			char *sptr;
2848462SApril.Chin@Sun.COM #endif
2858462SApril.Chin@Sun.COM 			if(nv_isarray(np))
2868462SApril.Chin@Sun.COM 				nv_putsub(np,(char*)0, ARRAY_UNDEF);
2874887Schin 			dp->hp = nextnode(dp);
288*10898Sroland.mainz@nrubsig.org 			if(nv_isnull(np) && !nv_isarray(np) && !nv_isattr(np,NV_INTEGER))
2894887Schin 				continue;
2904887Schin 			last_table = sh.last_table;
2918462SApril.Chin@Sun.COM #if 0
2928462SApril.Chin@Sun.COM 			if(dp->table && dp->otable && !nv_isattr(dp->table,NV_MINIMAL))
2938462SApril.Chin@Sun.COM 			{
2948462SApril.Chin@Sun.COM 				sptr = dp->table->nvenv;
2958462SApril.Chin@Sun.COM 				dp->table->nvenv = (char*)dp->otable;
2968462SApril.Chin@Sun.COM 			}
2978462SApril.Chin@Sun.COM #endif
2984887Schin 			sh.last_table = dp->table;
2994887Schin 			cp = nv_name(np);
3008462SApril.Chin@Sun.COM #if 0
3018462SApril.Chin@Sun.COM 			if(dp->table && dp->otable && !nv_isattr(dp->table,NV_MINIMAL))
3028462SApril.Chin@Sun.COM 				dp->table->nvenv = sptr;
3038462SApril.Chin@Sun.COM #endif
3048462SApril.Chin@Sun.COM 			if(dp->nextnode && !dp->hp && (nq = (Namval_t*)dp->table))
3058462SApril.Chin@Sun.COM 			{
3068462SApril.Chin@Sun.COM 				Namarr_t  *ap = nv_arrayptr(nq);
3078462SApril.Chin@Sun.COM 				if(ap && (ap->nelem&ARRAY_SCAN) && nv_nextsub(nq))
3088462SApril.Chin@Sun.COM 					dp->hp = (*dp->nextnode)(np,(Dt_t*)0,dp->fun);
3098462SApril.Chin@Sun.COM 			}
3104887Schin 			sh.last_table = last_table;
3118462SApril.Chin@Sun.COM 			if(!dp->len || memcmp(cp,dp->data,dp->len)==0)
3124887Schin 			{
3138462SApril.Chin@Sun.COM 				if((nfp=nextdisc(np)) && (nfp->disc->getval||nfp->disc->getnum) && nv_isvtree(np) && strcmp(cp,dp->data))
3148462SApril.Chin@Sun.COM 					nfp = 0;
3158462SApril.Chin@Sun.COM 				if(nfp || nv_istable(np))
3164887Schin 				{
3174887Schin 					Dt_t *root;
3184887Schin 					if(nv_istable(np))
3194887Schin 						root = nv_dict(np);
3204887Schin 					else
3218462SApril.Chin@Sun.COM 						root = (Dt_t*)np;
3224887Schin 					/* check for recursive walk */
3234887Schin 					for(save=dp; save;  save=save->prev)
3244887Schin 					{
3254887Schin 						if(save->root==root)
3264887Schin 							break;
3274887Schin 					}
3284887Schin 					if(save)
3298462SApril.Chin@Sun.COM 						return(cp);
3304887Schin 					if(!(save = new_of(struct nvdir,0)))
3314887Schin 						return(0);
3324887Schin 					*save = *dp;
3334887Schin 					dp->prev = save;
3344887Schin 					dp->root = root;
3354887Schin 					dp->len = 0;
3364887Schin 					if(nfp && np->nvfun)
3374887Schin 					{
3388462SApril.Chin@Sun.COM #if 0
3398462SApril.Chin@Sun.COM 				                Namarr_t *ap = nv_arrayptr(np);
3408462SApril.Chin@Sun.COM 				                if(ap && (ap->nelem&ARRAY_UNDEF))
3418462SApril.Chin@Sun.COM 				                        nv_putsub(np,(char*)0,ARRAY_SCAN);
3428462SApril.Chin@Sun.COM #endif
3434887Schin 						dp->nextnode = nfp->disc->nextf;
3448462SApril.Chin@Sun.COM 						dp->otable = dp->table;
3454887Schin 						dp->table = np;
3464887Schin 						dp->fun = nfp;
3474887Schin 						dp->hp = (*dp->nextnode)(np,(Dt_t*)0,nfp);
3484887Schin 					}
3494887Schin 					else
3504887Schin 						dp->nextnode = 0;
3514887Schin 				}
3524887Schin 				return(cp);
3534887Schin 			}
3544887Schin 		}
3554887Schin 		if(!(save=dp->prev))
3564887Schin 			break;
3574887Schin 		*dp = *save;
3584887Schin 		free((void*)save);
3594887Schin 	}
3604887Schin 	return(0);
3614887Schin }
3624887Schin 
3634887Schin void nv_dirclose(void *dir)
3644887Schin {
3654887Schin 	struct nvdir *dp = (struct nvdir*)dir;
3664887Schin 	if(dp->prev)
3674887Schin 		nv_dirclose((void*)dp->prev);
3684887Schin 	free(dir);
3694887Schin }
3704887Schin 
3714887Schin static void outtype(Namval_t *np, Namfun_t *fp, Sfio_t* out, const char *prefix)
3724887Schin {
3734887Schin 	char *type=0;
3744887Schin 	Namval_t *tp = fp->type;
3754887Schin 	if(!tp && fp->disc && fp->disc->typef)
3764887Schin 		tp = (*fp->disc->typef)(np,fp);
3774887Schin 	for(fp=fp->next;fp;fp=fp->next)
3784887Schin 	{
3794887Schin 		if(fp->type || (fp->disc && fp->disc->typef &&(*fp->disc->typef)(np,fp)))
3804887Schin 		{
3814887Schin 			outtype(np,fp,out,prefix);
3824887Schin 			break;
3834887Schin 		}
3844887Schin 	}
3854887Schin 	if(prefix && *prefix=='t')
3864887Schin 		type = "-T";
3874887Schin 	else if(!prefix)
3884887Schin 		type = "type";
3894887Schin 	if(type)
3908462SApril.Chin@Sun.COM 	{
3918462SApril.Chin@Sun.COM 		char *cp=tp->nvname;
3928462SApril.Chin@Sun.COM 		if(cp=strrchr(cp,'.'))
3938462SApril.Chin@Sun.COM 			cp++;
3948462SApril.Chin@Sun.COM 		else
3958462SApril.Chin@Sun.COM 			cp = tp->nvname;
3968462SApril.Chin@Sun.COM 		sfprintf(out,"%s %s ",type,cp);
3978462SApril.Chin@Sun.COM 	}
3984887Schin }
3994887Schin 
4004887Schin /*
4014887Schin  * print the attributes of name value pair give by <np>
4024887Schin  */
4034887Schin void nv_attribute(register Namval_t *np,Sfio_t *out,char *prefix,int noname)
4044887Schin {
4054887Schin 	register const Shtable_t *tp;
4064887Schin 	register char *cp;
4078462SApril.Chin@Sun.COM 	register unsigned val,mask,attr;
4088462SApril.Chin@Sun.COM 	char *ip=0;
4094887Schin 	Namfun_t *fp=0;
4108462SApril.Chin@Sun.COM 	Namval_t *typep=0;
4114887Schin 	for(fp=np->nvfun;fp;fp=fp->next)
4124887Schin 	{
4138462SApril.Chin@Sun.COM 		if((typep=fp->type) || (fp->disc && fp->disc->typef && (typep=(*fp->disc->typef)(np,fp))))
4144887Schin 			break;
4154887Schin 	}
4168462SApril.Chin@Sun.COM 	if(!fp  && !nv_isattr(np,~(NV_MINIMAL|NV_NOFREE)))
4174887Schin 	{
4188462SApril.Chin@Sun.COM 		if(prefix && *prefix)
4198462SApril.Chin@Sun.COM 		{
4208462SApril.Chin@Sun.COM 			if(nv_isvtree(np))
4218462SApril.Chin@Sun.COM 				sfprintf(out,"%s -C ",prefix);
422*10898Sroland.mainz@nrubsig.org 			else if((!np->nvalue.cp||np->nvalue.cp==Empty) && nv_isattr(np,~NV_NOFREE)==NV_MINIMAL && strcmp(np->nvname,"_"))
4238462SApril.Chin@Sun.COM 				sfputr(out,prefix,' ');
4248462SApril.Chin@Sun.COM 		}
4258462SApril.Chin@Sun.COM 		return;
4264887Schin 	}
4274887Schin 
4284887Schin 	if ((attr=nv_isattr(np,~NV_NOFREE)) || fp)
4294887Schin 	{
4308462SApril.Chin@Sun.COM 		if((attr&NV_NOPRINT|NV_INTEGER)==NV_NOPRINT)
4314887Schin 			attr &= ~NV_NOPRINT;
4324887Schin 		if(!attr && !fp)
4334887Schin 			return;
4348462SApril.Chin@Sun.COM 		if(fp)
4358462SApril.Chin@Sun.COM 		{
4368462SApril.Chin@Sun.COM 			prefix = Empty;
4378462SApril.Chin@Sun.COM 			attr &= NV_RDONLY|NV_ARRAY;
4388462SApril.Chin@Sun.COM 			if(nv_isattr(np,NV_REF|NV_TAGGED)==(NV_REF|NV_TAGGED))
4398462SApril.Chin@Sun.COM 				attr |= (NV_REF|NV_TAGGED);
4408462SApril.Chin@Sun.COM 			if(typep)
4418462SApril.Chin@Sun.COM 			{
4428462SApril.Chin@Sun.COM 				char *cp = typep->nvname;
4438462SApril.Chin@Sun.COM 				if(cp = strrchr(cp,'.'))
4448462SApril.Chin@Sun.COM 					cp++;
4458462SApril.Chin@Sun.COM 				else
4468462SApril.Chin@Sun.COM 					cp = typep->nvname;
4478462SApril.Chin@Sun.COM 				sfputr(out,cp,' ');
4488462SApril.Chin@Sun.COM 				fp = 0;
4498462SApril.Chin@Sun.COM 			}
4508462SApril.Chin@Sun.COM 		}
4518462SApril.Chin@Sun.COM 		else if(prefix && *prefix)
4524887Schin 			sfputr(out,prefix,' ');
4534887Schin 		for(tp = shtab_attributes; *tp->sh_name;tp++)
4544887Schin 		{
4554887Schin 			val = tp->sh_number;
4564887Schin 			mask = val;
4574887Schin 			if(fp && (val&NV_INTEGER))
4584887Schin 				break;
4594887Schin 			/*
4604887Schin 			 * the following test is needed to prevent variables
4614887Schin 			 * with E attribute from being given the F
4624887Schin 			 * attribute as well
4634887Schin 			*/
4648462SApril.Chin@Sun.COM 			if(val==NV_DOUBLE && (attr&(NV_EXPNOTE|NV_HEXFLOAT)))
4654887Schin 				continue;
4664887Schin 			if(val&NV_INTEGER)
4674887Schin 				mask |= NV_DOUBLE;
4684887Schin 			else if(val&NV_HOST)
4694887Schin 				mask = NV_HOST;
4704887Schin 			if((attr&mask)==val)
4714887Schin 			{
4724887Schin 				if(val==NV_ARRAY)
4734887Schin 				{
4744887Schin 					Namarr_t *ap = nv_arrayptr(np);
4758462SApril.Chin@Sun.COM 					char **xp=0;
4768462SApril.Chin@Sun.COM 					if(ap && array_assoc(ap))
4774887Schin 					{
4784887Schin 						if(tp->sh_name[1]!='A')
4794887Schin 							continue;
4804887Schin 					}
4814887Schin 					else if(tp->sh_name[1]=='A')
4824887Schin 						continue;
483*10898Sroland.mainz@nrubsig.org 					if((ap && (ap->nelem&ARRAY_TREE)) || (!ap && nv_isattr(np,NV_NOFREE)))
4848462SApril.Chin@Sun.COM 					{
4858462SApril.Chin@Sun.COM 						if(prefix && *prefix)
4868462SApril.Chin@Sun.COM 							sfwrite(out,"-C ",3);
4878462SApril.Chin@Sun.COM 					}
4888462SApril.Chin@Sun.COM 					if(ap && !array_assoc(ap) && (xp=(char**)(ap+1)) && *xp)
4898462SApril.Chin@Sun.COM 						ip = nv_namptr(*xp,0)->nvname;
4904887Schin 				}
4914887Schin 				if(prefix)
4924887Schin 				{
4934887Schin 					if(*tp->sh_name=='-')
4944887Schin 						sfprintf(out,"%.2s ",tp->sh_name);
4958462SApril.Chin@Sun.COM 					if(ip)
4968462SApril.Chin@Sun.COM 					{
4978462SApril.Chin@Sun.COM 						sfprintf(out,"[%s] ",ip);
4988462SApril.Chin@Sun.COM 						ip = 0;
4998462SApril.Chin@Sun.COM 					}
5004887Schin 				}
5014887Schin 				else
5024887Schin 					sfputr(out,tp->sh_name+2,' ');
5034887Schin 		                if ((val&(NV_LJUST|NV_RJUST|NV_ZFILL)) && !(val&NV_INTEGER) && val!=NV_HOST)
5044887Schin 					sfprintf(out,"%d ",nv_size(np));
5058462SApril.Chin@Sun.COM 				if(val==(NV_REF|NV_TAGGED))
5068462SApril.Chin@Sun.COM 					attr &= ~(NV_REF|NV_TAGGED);
5074887Schin 			}
5084887Schin 		        if(val==NV_INTEGER && nv_isattr(np,NV_INTEGER))
5094887Schin 			{
5104887Schin 				if(nv_size(np) != 10)
5114887Schin 				{
5128462SApril.Chin@Sun.COM 					if(nv_isattr(np, NV_DOUBLE)== NV_DOUBLE)
5134887Schin 						cp = "precision";
5144887Schin 					else
5154887Schin 						cp = "base";
5164887Schin 					if(!prefix)
5174887Schin 						sfputr(out,cp,' ');
5184887Schin 					sfprintf(out,"%d ",nv_size(np));
5194887Schin 				}
5204887Schin 				break;
5214887Schin 			}
5224887Schin 		}
5234887Schin 		if(fp)
5244887Schin 			outtype(np,fp,out,prefix);
5254887Schin 		if(noname)
5264887Schin 			return;
5274887Schin 		sfputr(out,nv_name(np),'\n');
5284887Schin 	}
5294887Schin }
5304887Schin 
5314887Schin struct Walk
5324887Schin {
5334887Schin 	Sfio_t	*out;
5344887Schin 	Dt_t	*root;
5354887Schin 	int	noscope;
5364887Schin 	int	indent;
5378462SApril.Chin@Sun.COM 	int	nofollow;
5388462SApril.Chin@Sun.COM 	int	array;
5398462SApril.Chin@Sun.COM 	int	flags;
5404887Schin };
5414887Schin 
5428462SApril.Chin@Sun.COM void nv_outnode(Namval_t *np, Sfio_t* out, int indent, int special)
5438462SApril.Chin@Sun.COM {
5448462SApril.Chin@Sun.COM 	char		*fmtq,*ep,*xp;
5458462SApril.Chin@Sun.COM 	Namval_t	*mp;
5468462SApril.Chin@Sun.COM 	Namarr_t	*ap = nv_arrayptr(np);
5478462SApril.Chin@Sun.COM 	int		tabs=0,c,more,associative = 0;
5488462SApril.Chin@Sun.COM 	if(ap)
5498462SApril.Chin@Sun.COM 	{
5508462SApril.Chin@Sun.COM 		if(!(ap->nelem&ARRAY_SCAN))
5518462SApril.Chin@Sun.COM 			nv_putsub(np,NIL(char*),ARRAY_SCAN);
5528462SApril.Chin@Sun.COM 		sfputc(out,'(');
5538462SApril.Chin@Sun.COM 		if(indent>=0)
5548462SApril.Chin@Sun.COM 		{
5558462SApril.Chin@Sun.COM 			sfputc(out,'\n');
5568462SApril.Chin@Sun.COM 			tabs=1;
5578462SApril.Chin@Sun.COM 		}
5588462SApril.Chin@Sun.COM 		if(!(associative =(array_assoc(ap)!=0)))
5598462SApril.Chin@Sun.COM 		{
5608462SApril.Chin@Sun.COM 			if(array_elem(ap) < nv_aimax(np)+1)
5618462SApril.Chin@Sun.COM 				associative=1;
5628462SApril.Chin@Sun.COM 		}
5638462SApril.Chin@Sun.COM 	}
5648462SApril.Chin@Sun.COM 	mp = nv_opensub(np);
5658462SApril.Chin@Sun.COM 	while(1)
5668462SApril.Chin@Sun.COM 	{
5678462SApril.Chin@Sun.COM 		if(mp && special && nv_isvtree(mp))
5688462SApril.Chin@Sun.COM 		{
5698462SApril.Chin@Sun.COM 			if(!nv_nextsub(np))
5708462SApril.Chin@Sun.COM 				break;
5718462SApril.Chin@Sun.COM 			mp = nv_opensub(np);
5728462SApril.Chin@Sun.COM 			continue;
5738462SApril.Chin@Sun.COM 		}
5748462SApril.Chin@Sun.COM 		if(tabs)
5758462SApril.Chin@Sun.COM 			sfnputc(out,'\t',++indent);
5768462SApril.Chin@Sun.COM 		tabs=0;
5778462SApril.Chin@Sun.COM 		if(associative||special)
5788462SApril.Chin@Sun.COM 		{
5798462SApril.Chin@Sun.COM 			if(!(fmtq = nv_getsub(np)))
5808462SApril.Chin@Sun.COM 				break;
5818462SApril.Chin@Sun.COM 			sfprintf(out,"[%s]",sh_fmtq(fmtq));
5828462SApril.Chin@Sun.COM 			sfputc(out,'=');
5838462SApril.Chin@Sun.COM 		}
5848462SApril.Chin@Sun.COM 		if(mp && nv_isarray(mp))
5858462SApril.Chin@Sun.COM 		{
5868462SApril.Chin@Sun.COM 			nv_outnode(mp, out, indent+(indent>=0),0);
5878462SApril.Chin@Sun.COM 			if(indent>0)
5888462SApril.Chin@Sun.COM 				sfnputc(out,'\t',indent);
5898462SApril.Chin@Sun.COM 			sfputc(out,')');
5908462SApril.Chin@Sun.COM 			sfputc(out,indent>=0?'\n':' ');
5918462SApril.Chin@Sun.COM 			more = nv_nextsub(np);
5928462SApril.Chin@Sun.COM 			goto skip;
5938462SApril.Chin@Sun.COM 		}
5948462SApril.Chin@Sun.COM 		if(mp && nv_isvtree(mp))
5958462SApril.Chin@Sun.COM 			nv_onattr(mp,NV_EXPORT);
5968462SApril.Chin@Sun.COM 		ep = nv_getval(mp?mp:np);
597*10898Sroland.mainz@nrubsig.org 		if(ep==Empty)
598*10898Sroland.mainz@nrubsig.org 			ep = 0;
5998462SApril.Chin@Sun.COM 		xp = 0;
6008462SApril.Chin@Sun.COM 		if(!ap && nv_isattr(np,NV_INTEGER|NV_LJUST)==NV_LJUST)
6018462SApril.Chin@Sun.COM 		{
6028462SApril.Chin@Sun.COM 			xp = ep+nv_size(np);
6038462SApril.Chin@Sun.COM 			while(--xp>ep && *xp==' ');
6048462SApril.Chin@Sun.COM 			if(xp>ep || *xp!=' ')
6058462SApril.Chin@Sun.COM 				xp++;
6068462SApril.Chin@Sun.COM 			if(xp < (ep+nv_size(np)))
6078462SApril.Chin@Sun.COM 				*xp = 0;
6088462SApril.Chin@Sun.COM 			else
6098462SApril.Chin@Sun.COM 				xp = 0;
6108462SApril.Chin@Sun.COM 		}
6118462SApril.Chin@Sun.COM 		if(mp && nv_isvtree(mp))
6128462SApril.Chin@Sun.COM 			fmtq = ep;
6138462SApril.Chin@Sun.COM 		else if(!(fmtq = sh_fmtq(ep)))
6148462SApril.Chin@Sun.COM 			fmtq = "";
6158462SApril.Chin@Sun.COM 		else if(!associative && (ep=strchr(fmtq,'=')))
6168462SApril.Chin@Sun.COM 		{
6178462SApril.Chin@Sun.COM 			char *qp = strchr(fmtq,'\'');
6188462SApril.Chin@Sun.COM 			if(!qp || qp>ep)
6198462SApril.Chin@Sun.COM 			{
6208462SApril.Chin@Sun.COM 				sfwrite(out,fmtq,ep-fmtq);
6218462SApril.Chin@Sun.COM 				sfputc(out,'\\');
6228462SApril.Chin@Sun.COM 				fmtq = ep;
6238462SApril.Chin@Sun.COM 			}
6248462SApril.Chin@Sun.COM 		}
6258462SApril.Chin@Sun.COM 		more = nv_nextsub(np);
6268462SApril.Chin@Sun.COM 		c = '\n';
6278462SApril.Chin@Sun.COM 		if(indent<0)
6288462SApril.Chin@Sun.COM 		{
6298462SApril.Chin@Sun.COM 			c = ';';
6308462SApril.Chin@Sun.COM 			if(ap)
6318462SApril.Chin@Sun.COM 				c = more?' ':-1;
6328462SApril.Chin@Sun.COM 		}
6338462SApril.Chin@Sun.COM 		sfputr(out,fmtq,c);
6348462SApril.Chin@Sun.COM 		if(xp)
6358462SApril.Chin@Sun.COM 			*xp = ' ';
6368462SApril.Chin@Sun.COM 	skip:
6378462SApril.Chin@Sun.COM 		if(!more)
6388462SApril.Chin@Sun.COM 			return;
6398462SApril.Chin@Sun.COM 		mp = nv_opensub(np);
6408462SApril.Chin@Sun.COM 		if(indent>0 && !(mp && special && nv_isvtree(mp)))
6418462SApril.Chin@Sun.COM 			sfnputc(out,'\t',indent);
6428462SApril.Chin@Sun.COM 	}
6438462SApril.Chin@Sun.COM }
6448462SApril.Chin@Sun.COM 
6454887Schin static void outval(char *name, const char *vname, struct Walk *wp)
6464887Schin {
6474887Schin 	register Namval_t *np, *nq;
6484887Schin         register Namfun_t *fp;
6498462SApril.Chin@Sun.COM 	int isarray=0, special=0,mode=0;
6508462SApril.Chin@Sun.COM 	if(*name!='.' || vname[strlen(vname)-1]==']')
6518462SApril.Chin@Sun.COM 		mode = NV_ARRAY;
6528462SApril.Chin@Sun.COM 	if(!(np=nv_open(vname,wp->root,mode|NV_VARNAME|NV_NOADD|NV_NOASSIGN|NV_NOFAIL|wp->noscope)))
6534887Schin 		return;
6548462SApril.Chin@Sun.COM 	fp = nv_hasdisc(np,&treedisc);
6558462SApril.Chin@Sun.COM 	if(*name=='.')
6564887Schin 	{
6578462SApril.Chin@Sun.COM 		if(nv_isattr(np,NV_BINARY))
6588462SApril.Chin@Sun.COM 			return;
6598462SApril.Chin@Sun.COM 		if(fp && np->nvalue.cp && np->nvalue.cp!=Empty)
6608462SApril.Chin@Sun.COM 		{
6618462SApril.Chin@Sun.COM 			nv_local = 1;
6628462SApril.Chin@Sun.COM 			fp = 0;
6638462SApril.Chin@Sun.COM 		}
6648462SApril.Chin@Sun.COM 		if(fp)
6658462SApril.Chin@Sun.COM 			return;
6668462SApril.Chin@Sun.COM 		if(nv_isarray(np))
6678462SApril.Chin@Sun.COM 			return;
6688462SApril.Chin@Sun.COM 	}
6698462SApril.Chin@Sun.COM 	if(!special && fp && !nv_isarray(np))
6708462SApril.Chin@Sun.COM 	{
6718462SApril.Chin@Sun.COM 		Namfun_t *xp;
6724887Schin 		if(!wp->out)
6734887Schin 		{
6744887Schin 			fp = nv_stack(np,fp);
6754887Schin 			if(fp = nv_stack(np,NIL(Namfun_t*)))
6764887Schin 				free((void*)fp);
6774887Schin 			np->nvfun = 0;
6788462SApril.Chin@Sun.COM 			return;
6794887Schin 		}
6808462SApril.Chin@Sun.COM 		for(xp=fp->next; xp; xp = xp->next)
6818462SApril.Chin@Sun.COM 		{
6828462SApril.Chin@Sun.COM 			if(xp->disc && (xp->disc->getval || xp->disc->getnum))
6838462SApril.Chin@Sun.COM 				break;
6848462SApril.Chin@Sun.COM 		}
6858462SApril.Chin@Sun.COM 		if(!xp)
6868462SApril.Chin@Sun.COM 			return;
6874887Schin 	}
688*10898Sroland.mainz@nrubsig.org 	if(nv_isnull(np) && !nv_isarray(np) && !nv_isattr(np,NV_INTEGER))
6894887Schin 		return;
6908462SApril.Chin@Sun.COM 	if(special || (nv_isarray(np) && nv_arrayptr(np)))
6914887Schin 	{
6924887Schin 		isarray=1;
6934887Schin 		if(array_elem(nv_arrayptr(np))==0)
6944887Schin 			isarray=2;
6954887Schin 		else
6964887Schin 			nq = nv_putsub(np,NIL(char*),ARRAY_SCAN|(wp->out?ARRAY_NOCHILD:0));
6974887Schin 	}
6984887Schin 	if(!wp->out)
6994887Schin 	{
7004887Schin 		_nv_unset(np,NV_RDONLY);
7014887Schin 		nv_close(np);
7028462SApril.Chin@Sun.COM #if 0
7038462SApril.Chin@Sun.COM 		if(sh.subshell==0 && !(wp->flags&NV_RDONLY) && !nv_isattr(np,NV_MINIMAL|NV_NOFREE))
7048462SApril.Chin@Sun.COM 			nv_delete(np,wp->root,0);
7058462SApril.Chin@Sun.COM #endif
7064887Schin 		return;
7074887Schin 	}
7084887Schin 	if(isarray==1 && !nq)
7098462SApril.Chin@Sun.COM 	{
7108462SApril.Chin@Sun.COM 		sfputc(wp->out,'(');
7118462SApril.Chin@Sun.COM 		if(wp->indent>=0)
7128462SApril.Chin@Sun.COM 			sfputc(wp->out,'\n');
7134887Schin 		return;
7144887Schin 	}
7158462SApril.Chin@Sun.COM 	if(isarray==0 && nv_isarray(np) && nv_isnull(np))  /* empty array */
7168462SApril.Chin@Sun.COM 		isarray = 2;
7178462SApril.Chin@Sun.COM 	special |= wp->nofollow;
7188462SApril.Chin@Sun.COM 	if(!wp->array && wp->indent>0)
7194887Schin 		sfnputc(wp->out,'\t',wp->indent);
7208462SApril.Chin@Sun.COM 	if(!special)
7214887Schin 	{
7228462SApril.Chin@Sun.COM 		if(*name!='.')
7238462SApril.Chin@Sun.COM 			nv_attribute(np,wp->out,"typeset",'=');
7248462SApril.Chin@Sun.COM 		nv_outname(wp->out,name,-1);
725*10898Sroland.mainz@nrubsig.org 		if((np->nvalue.cp && np->nvalue.cp!=Empty) || nv_isattr(np,~(NV_MINIMAL|NV_NOFREE)) || nv_isvtree(np))
7268462SApril.Chin@Sun.COM 			sfputc(wp->out,(isarray==2?'\n':'='));
7278462SApril.Chin@Sun.COM 		if(isarray==2)
7288462SApril.Chin@Sun.COM 			return;
7294887Schin 	}
7308462SApril.Chin@Sun.COM 	fp = np->nvfun;
7318462SApril.Chin@Sun.COM 	if(*name=='.' && !isarray)
7328462SApril.Chin@Sun.COM 		np->nvfun = 0;
7338462SApril.Chin@Sun.COM 	nv_outnode(np, wp->out, wp->indent, special);
7348462SApril.Chin@Sun.COM 	if(*name=='.' && !isarray)
7358462SApril.Chin@Sun.COM 		np->nvfun = fp;
7364887Schin 	if(isarray && !special)
7374887Schin 	{
7388462SApril.Chin@Sun.COM 		if(wp->indent>0)
7398462SApril.Chin@Sun.COM 		{
7408462SApril.Chin@Sun.COM 			sfnputc(wp->out,'\t',wp->indent);
7418462SApril.Chin@Sun.COM 			sfwrite(wp->out,")\n",2);
7428462SApril.Chin@Sun.COM 		}
7438462SApril.Chin@Sun.COM 		else
7448462SApril.Chin@Sun.COM 			sfwrite(wp->out,");",2);
7454887Schin 	}
7464887Schin }
7474887Schin 
7484887Schin /*
7494887Schin  * format initialization list given a list of assignments <argp>
7504887Schin  */
7514887Schin static char **genvalue(char **argv, const char *prefix, int n, struct Walk *wp)
7524887Schin {
7534887Schin 	register char *cp,*nextcp,*arg;
7544887Schin 	register Sfio_t *outfile = wp->out;
7558462SApril.Chin@Sun.COM 	register int m,r,l;
7564887Schin 	if(n==0)
7574887Schin 		m = strlen(prefix);
7584887Schin 	else if(cp=nextdot(prefix))
7594887Schin 		m = cp-prefix;
7604887Schin 	else
7614887Schin 		m = strlen(prefix)-1;
7624887Schin 	m++;
7638462SApril.Chin@Sun.COM 	if(outfile && !wp->array)
7644887Schin 	{
7658462SApril.Chin@Sun.COM 		sfputc(outfile,'(');
7668462SApril.Chin@Sun.COM 		if(wp->indent>=0)
7678462SApril.Chin@Sun.COM 		{
7688462SApril.Chin@Sun.COM 			wp->indent++;
7698462SApril.Chin@Sun.COM 			sfputc(outfile,'\n');
7708462SApril.Chin@Sun.COM 		}
7714887Schin 	}
7724887Schin 	for(; arg= *argv; argv++)
7734887Schin 	{
7744887Schin 		cp = arg + n;
7754887Schin 		if(n==0 && cp[m-1]!='.')
7764887Schin 			continue;
7774887Schin 		if(n && cp[m-1]==0)
7784887Schin 			break;
7794887Schin 		if(n==0 || strncmp(arg,prefix-n,m+n)==0)
7804887Schin 		{
7814887Schin 			cp +=m;
7824887Schin 			r = 0;
7834887Schin 			if(*cp=='.')
7844887Schin 				cp++,r++;
7854887Schin 			if(nextcp=nextdot(cp))
7864887Schin 			{
7874887Schin 				if(outfile)
7884887Schin 				{
7898462SApril.Chin@Sun.COM 					Namval_t *np,*tp;
7908462SApril.Chin@Sun.COM 					*nextcp = 0;
7918462SApril.Chin@Sun.COM 					np=nv_open(arg,wp->root,NV_VARNAME|NV_NOADD|NV_NOASSIGN|NV_NOFAIL|wp->noscope);
7928462SApril.Chin@Sun.COM 					if(!np || (nv_isarray(np) && (!(tp=nv_opensub(np)) || !nv_isvtree(tp))))
7938462SApril.Chin@Sun.COM 					{
7948462SApril.Chin@Sun.COM 						*nextcp = '.';
7958462SApril.Chin@Sun.COM 						continue;
7968462SApril.Chin@Sun.COM 					}
7978462SApril.Chin@Sun.COM 					if(wp->indent>=0)
7988462SApril.Chin@Sun.COM 						sfnputc(outfile,'\t',wp->indent);
7998462SApril.Chin@Sun.COM 					if(*cp!='[' && (tp = nv_type(np)))
8008462SApril.Chin@Sun.COM 					{
8018462SApril.Chin@Sun.COM 						char *sp;
8028462SApril.Chin@Sun.COM 						if(sp = strrchr(tp->nvname,'.'))
8038462SApril.Chin@Sun.COM 							sp++;
8048462SApril.Chin@Sun.COM 						else
8058462SApril.Chin@Sun.COM 							sp = tp->nvname;
8068462SApril.Chin@Sun.COM 						sfputr(outfile,sp,' ');
8078462SApril.Chin@Sun.COM 					}
8084887Schin 					nv_outname(outfile,cp,nextcp-cp);
8094887Schin 					sfputc(outfile,'=');
8108462SApril.Chin@Sun.COM 					*nextcp = '.';
8118462SApril.Chin@Sun.COM 				}
8128462SApril.Chin@Sun.COM 				else
8138462SApril.Chin@Sun.COM 				{
8148462SApril.Chin@Sun.COM 					outval(cp,arg,wp);
8158462SApril.Chin@Sun.COM 					continue;
8164887Schin 				}
8174887Schin 				argv = genvalue(argv,cp,n+m+r,wp);
8188462SApril.Chin@Sun.COM 				if(wp->indent>=0)
8194887Schin 					sfputc(outfile,'\n');
8204887Schin 				if(*argv)
8214887Schin 					continue;
8224887Schin 				break;
8234887Schin 			}
8248462SApril.Chin@Sun.COM 			else if(outfile && !wp->nofollow && argv[1] && memcmp(arg,argv[1],l=strlen(arg))==0 && argv[1][l]=='[')
8254887Schin 			{
826*10898Sroland.mainz@nrubsig.org 				int	k=1;
827*10898Sroland.mainz@nrubsig.org 				Namarr_t *ap=0;
8284887Schin 				Namval_t *np = nv_open(arg,wp->root,NV_VARNAME|NV_NOADD|NV_NOASSIGN|wp->noscope);
8294887Schin 				if(!np)
8304887Schin 					continue;
831*10898Sroland.mainz@nrubsig.org 				if((wp->array = nv_isarray(np)) && (ap=nv_arrayptr(np)))
832*10898Sroland.mainz@nrubsig.org 					k = array_elem(ap);
833*10898Sroland.mainz@nrubsig.org 
8348462SApril.Chin@Sun.COM 				if(wp->indent>0)
8358462SApril.Chin@Sun.COM 					sfnputc(outfile,'\t',wp->indent);
8364887Schin 				nv_attribute(np,outfile,"typeset",1);
8374887Schin 				nv_close(np);
838*10898Sroland.mainz@nrubsig.org 				sfputr(outfile,arg+m+r+(n?n:0),(k?'=':'\n'));
839*10898Sroland.mainz@nrubsig.org 				if(!k)
840*10898Sroland.mainz@nrubsig.org 				{
841*10898Sroland.mainz@nrubsig.org 					wp->array=0;
842*10898Sroland.mainz@nrubsig.org 					continue;
843*10898Sroland.mainz@nrubsig.org 				}
8448462SApril.Chin@Sun.COM 				wp->nofollow=1;
8458462SApril.Chin@Sun.COM 				argv = genvalue(argv,cp,cp-arg ,wp);
8468462SApril.Chin@Sun.COM 				sfputc(outfile,wp->indent<0?';':'\n');
8474887Schin 			}
8484887Schin 			else if(outfile && *cp=='[')
8494887Schin 			{
8508462SApril.Chin@Sun.COM 				if(wp->indent)
8518462SApril.Chin@Sun.COM 					sfnputc(outfile,'\t',wp->indent);
8524887Schin 				sfputr(outfile,cp,'=');
8534887Schin 				argv = genvalue(++argv,cp,cp-arg ,wp);
8544887Schin 				sfputc(outfile,'\n');
8554887Schin 			}
8564887Schin 			else
8578462SApril.Chin@Sun.COM 			{
8584887Schin 				outval(cp,arg,wp);
8598462SApril.Chin@Sun.COM 				if(wp->array)
8608462SApril.Chin@Sun.COM 				{
8618462SApril.Chin@Sun.COM 					if(wp->indent>=0)
8628462SApril.Chin@Sun.COM 						wp->indent++;
8638462SApril.Chin@Sun.COM 					else
8648462SApril.Chin@Sun.COM 						sfputc(outfile,' ');
8658462SApril.Chin@Sun.COM 					wp->array = 0;
8668462SApril.Chin@Sun.COM 				}
8678462SApril.Chin@Sun.COM 			}
8684887Schin 		}
8694887Schin 		else
8704887Schin 			break;
8718462SApril.Chin@Sun.COM 		wp->nofollow = 0;
8724887Schin 	}
8738462SApril.Chin@Sun.COM 	wp->array = 0;
8744887Schin 	if(outfile)
8754887Schin 	{
8764887Schin 		int c = prefix[m-1];
8774887Schin 		cp = (char*)prefix;
8784887Schin 		if(c=='.')
8794887Schin 			cp[m-1] = 0;
8804887Schin 		outval(".",prefix-n,wp);
8814887Schin 		if(c=='.')
8824887Schin 			cp[m-1] = c;
8838462SApril.Chin@Sun.COM 		if(wp->indent>0)
8848462SApril.Chin@Sun.COM 			sfnputc(outfile,'\t',--wp->indent);
8854887Schin 		sfputc(outfile,')');
8864887Schin 	}
8874887Schin 	return(--argv);
8884887Schin }
8894887Schin 
8904887Schin /*
8914887Schin  * walk the virtual tree and print or delete name-value pairs
8924887Schin  */
8938462SApril.Chin@Sun.COM static char *walk_tree(register Namval_t *np, Namval_t *xp, int flags)
8944887Schin {
8954887Schin 	static Sfio_t *out;
8964887Schin 	struct Walk walk;
8974887Schin 	Sfio_t *outfile;
8988462SApril.Chin@Sun.COM 	int len, savtop = staktell();
8994887Schin 	char *savptr = stakfreeze(0);
9004887Schin 	register struct argnod *ap=0;
9014887Schin 	struct argnod *arglist=0;
9024887Schin 	char *name,*cp, **argv;
9034887Schin 	char *subscript=0;
9044887Schin 	void *dir;
9058462SApril.Chin@Sun.COM 	int n=0, noscope=(flags&NV_NOSCOPE);
9068462SApril.Chin@Sun.COM 	Namarr_t *arp = nv_arrayptr(np);
9078462SApril.Chin@Sun.COM 	Dt_t	*save_tree = sh.var_tree;
9088462SApril.Chin@Sun.COM 	Namval_t	*mp=0;
9098462SApril.Chin@Sun.COM 	Shell_t		*shp = sh_getinterp();
9108462SApril.Chin@Sun.COM 	char		*xpname = xp?stakcopy(nv_name(xp)):0;
9118462SApril.Chin@Sun.COM 	if(xp)
9128462SApril.Chin@Sun.COM 	{
9138462SApril.Chin@Sun.COM 		shp->last_root = shp->prev_root;
9148462SApril.Chin@Sun.COM 		shp->last_table = shp->prev_table;
9158462SApril.Chin@Sun.COM 	}
9168462SApril.Chin@Sun.COM 	if(shp->last_table)
9178462SApril.Chin@Sun.COM 		shp->last_root = nv_dict(shp->last_table);
9188462SApril.Chin@Sun.COM 	if(shp->last_root)
9198462SApril.Chin@Sun.COM 		shp->var_tree = shp->last_root;
9204887Schin 	stakputs(nv_name(np));
9218462SApril.Chin@Sun.COM 	if(arp && !(arp->nelem&ARRAY_SCAN) && (subscript = nv_getsub(np)))
9224887Schin 	{
9238462SApril.Chin@Sun.COM 		mp = nv_opensub(np);
9244887Schin 		stakputc('[');
9254887Schin 		stakputs(subscript);
9264887Schin 		stakputc(']');
9274887Schin 		stakputc('.');
9284887Schin 	}
9298462SApril.Chin@Sun.COM 	else if(*stakptr(staktell()-1) == ']')
9308462SApril.Chin@Sun.COM 		mp = np;
9314887Schin 	name = stakfreeze(1);
9328462SApril.Chin@Sun.COM 	len = strlen(name);
9338462SApril.Chin@Sun.COM 	shp->last_root = 0;
9348462SApril.Chin@Sun.COM 	dir = nv_diropen(mp,name);
9358462SApril.Chin@Sun.COM 	walk.root = shp->last_root?shp->last_root:shp->var_tree;
9364887Schin 	if(subscript)
9374887Schin 		name[strlen(name)-1] = 0;
9384887Schin 	while(cp = nv_dirnext(dir))
9394887Schin 	{
9408462SApril.Chin@Sun.COM 		if(cp[len]!='.')
9418462SApril.Chin@Sun.COM 			continue;
9428462SApril.Chin@Sun.COM 		if(xp)
9438462SApril.Chin@Sun.COM 		{
9448462SApril.Chin@Sun.COM 			Dt_t		*dp = shp->var_tree;
9458462SApril.Chin@Sun.COM 			Namval_t	*nq, *mq;
9468462SApril.Chin@Sun.COM 			if(strlen(cp)<=len)
9478462SApril.Chin@Sun.COM 				continue;
9488462SApril.Chin@Sun.COM 			nq = nv_open(cp,walk.root,NV_VARNAME|NV_NOADD|NV_NOASSIGN|NV_NOFAIL);
9498462SApril.Chin@Sun.COM 			if(!nq && (flags&NV_MOVE))
9508462SApril.Chin@Sun.COM 				nq = nv_search(cp,walk.root,NV_NOADD);
9518462SApril.Chin@Sun.COM 			stakseek(0);
9528462SApril.Chin@Sun.COM 			stakputs(xpname);
9538462SApril.Chin@Sun.COM 			stakputs(cp+len);
9548462SApril.Chin@Sun.COM 			stakputc(0);
9558462SApril.Chin@Sun.COM 			shp->var_tree = save_tree;
9568462SApril.Chin@Sun.COM 			mq = nv_open(stakptr(0),save_tree,NV_VARNAME|NV_NOASSIGN|NV_NOFAIL);
9578462SApril.Chin@Sun.COM 			shp->var_tree = dp;
9588462SApril.Chin@Sun.COM 			if(nq && mq)
9598462SApril.Chin@Sun.COM 			{
9608462SApril.Chin@Sun.COM 				nv_clone(nq,mq,flags|NV_RAW);
9618462SApril.Chin@Sun.COM 				if(flags&NV_MOVE)
9628462SApril.Chin@Sun.COM 					nv_delete(nq,walk.root,0);
9638462SApril.Chin@Sun.COM 			}
9648462SApril.Chin@Sun.COM 			continue;
9658462SApril.Chin@Sun.COM 		}
9664887Schin 		stakseek(ARGVAL);
9674887Schin 		stakputs(cp);
9684887Schin 		ap = (struct argnod*)stakfreeze(1);
9694887Schin 		ap->argflag = ARG_RAW;
9704887Schin 		ap->argchn.ap = arglist;
9714887Schin 		n++;
9724887Schin 		arglist = ap;
9734887Schin 	}
9748462SApril.Chin@Sun.COM 	nv_dirclose(dir);
9758462SApril.Chin@Sun.COM 	if(xp)
9768462SApril.Chin@Sun.COM 	{
9778462SApril.Chin@Sun.COM 		shp->var_tree = save_tree;
9788462SApril.Chin@Sun.COM 		return((char*)0);
9798462SApril.Chin@Sun.COM 	}
9804887Schin 	argv = (char**)stakalloc((n+1)*sizeof(char*));
9814887Schin 	argv += n;
9824887Schin 	*argv = 0;
9834887Schin 	for(; ap; ap=ap->argchn.ap)
9844887Schin 		*--argv = ap->argval;
9858462SApril.Chin@Sun.COM 	if(flags&1)
9864887Schin 		outfile = 0;
9874887Schin 	else if(!(outfile=out))
9884887Schin 		outfile = out =  sfnew((Sfio_t*)0,(char*)0,-1,-1,SF_WRITE|SF_STRING);
9894887Schin 	else
9904887Schin 		sfseek(outfile,0L,SEEK_SET);
9914887Schin 	walk.out = outfile;
9928462SApril.Chin@Sun.COM 	walk.indent = (flags&NV_EXPORT)?-1:0;
9938462SApril.Chin@Sun.COM 	walk.nofollow = 0;
9944887Schin 	walk.noscope = noscope;
9958462SApril.Chin@Sun.COM 	walk.array = 0;
9968462SApril.Chin@Sun.COM 	walk.flags = flags;
9974887Schin 	genvalue(argv,name,0,&walk);
9984887Schin 	stakset(savptr,savtop);
9998462SApril.Chin@Sun.COM 	shp->var_tree = save_tree;
10004887Schin 	if(!outfile)
10014887Schin 		return((char*)0);
10024887Schin 	sfputc(out,0);
10034887Schin 	return((char*)out->_data);
10044887Schin }
10054887Schin 
10068462SApril.Chin@Sun.COM Namfun_t *nv_isvtree(Namval_t *np)
10078462SApril.Chin@Sun.COM {
10088462SApril.Chin@Sun.COM 	if(np)
10098462SApril.Chin@Sun.COM 		return(nv_hasdisc(np,&treedisc));
10108462SApril.Chin@Sun.COM 	return(0);
10118462SApril.Chin@Sun.COM }
10128462SApril.Chin@Sun.COM 
10134887Schin /*
10144887Schin  * get discipline for compound initializations
10154887Schin  */
10164887Schin char *nv_getvtree(register Namval_t *np, Namfun_t *fp)
10174887Schin {
10188462SApril.Chin@Sun.COM 	int flags=0;
10198462SApril.Chin@Sun.COM 	for(; fp && fp->next; fp=fp->next)
10208462SApril.Chin@Sun.COM 	{
10218462SApril.Chin@Sun.COM 		if(fp->next->disc && (fp->next->disc->getnum || fp->next->disc->getval))
10228462SApril.Chin@Sun.COM 			return(nv_getv(np,fp));
10238462SApril.Chin@Sun.COM 	}
10248462SApril.Chin@Sun.COM 	if(nv_isattr(np,NV_BINARY) &&  !nv_isattr(np,NV_RAW))
10254887Schin 		return(nv_getv(np,fp));
10268462SApril.Chin@Sun.COM 	if(nv_isattr(np,NV_ARRAY) && !nv_type(np) && nv_arraychild(np,(Namval_t*)0,0)==np)
10274887Schin 		return(nv_getv(np,fp));
10288462SApril.Chin@Sun.COM 	if(flags = nv_isattr(np,NV_EXPORT))
10298462SApril.Chin@Sun.COM 		nv_offattr(np,NV_EXPORT);
10308462SApril.Chin@Sun.COM 	return(walk_tree(np,(Namval_t*)0,flags));
10314887Schin }
10324887Schin 
10334887Schin /*
10344887Schin  * put discipline for compound initializations
10354887Schin  */
10364887Schin static void put_tree(register Namval_t *np, const char *val, int flags,Namfun_t *fp)
10374887Schin {
10384887Schin 	struct Namarray *ap;
10394887Schin 	int nleft = 0;
10408462SApril.Chin@Sun.COM 	if(!val && !fp->next && nv_isattr(np,NV_NOFREE))
10418462SApril.Chin@Sun.COM 		return;
10428462SApril.Chin@Sun.COM 	if(!nv_isattr(np,(NV_INTEGER|NV_BINARY)))
10438462SApril.Chin@Sun.COM 	{
10448462SApril.Chin@Sun.COM 		Shell_t		*shp = sh_getinterp();
10458462SApril.Chin@Sun.COM 		Namval_t	*last_table = shp->last_table;
10468462SApril.Chin@Sun.COM 		Dt_t		*last_root = shp->last_root;
1047*10898Sroland.mainz@nrubsig.org 		Namval_t 	*mp = val?nv_open(val,shp->var_tree,NV_VARNAME|NV_NOADD|NV_NOASSIGN|NV_ARRAY|NV_NOFAIL):0;
10488462SApril.Chin@Sun.COM 		if(mp && nv_isvtree(mp))
10498462SApril.Chin@Sun.COM 		{
10508462SApril.Chin@Sun.COM 			shp->prev_table = shp->last_table;
10518462SApril.Chin@Sun.COM 			shp->prev_root = shp->last_root;
10528462SApril.Chin@Sun.COM 			shp->last_table = last_table;
10538462SApril.Chin@Sun.COM 			shp->last_root = last_root;
10548462SApril.Chin@Sun.COM 			if(!(flags&NV_APPEND))
10558462SApril.Chin@Sun.COM 				walk_tree(np,(Namval_t*)0,(flags&NV_NOSCOPE)|1);
10568462SApril.Chin@Sun.COM 			nv_clone(mp,np,NV_COMVAR);
10578462SApril.Chin@Sun.COM 			return;
10588462SApril.Chin@Sun.COM 		}
10598462SApril.Chin@Sun.COM 		walk_tree(np,(Namval_t*)0,(flags&NV_NOSCOPE)|1);
10608462SApril.Chin@Sun.COM 	}
10614887Schin 	nv_putv(np, val, flags,fp);
10628462SApril.Chin@Sun.COM 	if(val && nv_isattr(np,(NV_INTEGER|NV_BINARY)))
10634887Schin 		return;
10644887Schin 	if(ap= nv_arrayptr(np))
10654887Schin 		nleft = array_elem(ap);
10664887Schin 	if(nleft==0)
10674887Schin 	{
10684887Schin 		fp = nv_stack(np,fp);
10694887Schin 		if(fp = nv_stack(np,NIL(Namfun_t*)))
10704887Schin 			free((void*)fp);
10714887Schin 	}
10724887Schin }
10734887Schin 
10744887Schin /*
10754887Schin  * Insert discipline to cause $x to print current tree
10764887Schin  */
10774887Schin void nv_setvtree(register Namval_t *np)
10784887Schin {
10794887Schin 	register Namfun_t *nfp;
10808462SApril.Chin@Sun.COM 	if(sh.subshell)
10818462SApril.Chin@Sun.COM 		sh_assignok(np,1);
10824887Schin 	if(nv_hasdisc(np, &treedisc))
10834887Schin 		return;
10844887Schin 	nfp = newof(NIL(void*),Namfun_t,1,0);
10854887Schin 	nfp->disc = &treedisc;
10864887Schin 	nv_stack(np, nfp);
10874887Schin }
10884887Schin 
1089