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