63 	Namarr_t *aq;  in array_scope()  local
68         if(!(aq=newof(NIL(Namarr_t*),Namarr_t,1,size-sizeof(Namarr_t))))  in array_scope()
70         memcpy(aq,ap,size);  in array_scope()
71 	aq->hdr.nofree &= ~1;  in array_scope()
72         aq->hdr.nofree |= (flags&NV_RDONLY)?1:0;  in array_scope()
73 	if(is_associative(aq))  in array_scope()
75 		aq->scope = (void*)dtopen(&_Nvdisc,Dtoset);  in array_scope()
76 		dtview((Dt_t*)aq->scope,aq->table);  in array_scope()
77 		aq->table = (Dt_t*)aq->scope;  in array_scope()
78 		return(aq);  in array_scope()
80 	aq->scope = (void*)ap;  in array_scope()
81 	ar = (struct index_array*)aq;  in array_scope()
83 	return(aq);  in array_scope()
99 static void array_syncsub(Namarr_t *ap, Namarr_t *aq)  in array_syncsub()  argument
101 	((struct index_array*)ap)->cur = ((struct index_array*)aq)->cur;  in array_syncsub()
106 	struct index_array *aq = (struct index_array*)ap->header.scope;  in array_covered()  local
107 	if(!ap->header.fun && aq)  in array_covered()
108 		return ((ap->cur<aq->maxi) && aq->val[ap->cur].cp);  in array_covered()
350 	struct index_array	*aq = (struct index_array*)ap, *ar;  in array_clone()  local
422 				array_setbit(aq->bits,aq->cur,ARRAY_NOFREE);  in array_clone()
442 		aq->header.nelem |= ARRAY_NOSCOPE;  in array_clone()
452 	aq->header.nelem = ap->nelem = nelem;  in array_clone()
458 	register Namarr_t *aq,*ap = (Namarr_t*)disc;  in array_getval()  local
462 		if(!mp && !is_associative(ap) && (aq=(Namarr_t*)ap->scope))  in array_getval()
464 			array_syncsub(aq,ap);  in array_getval()
465 			if((mp=array_find(np,aq,ARRAY_LOOKUP))==np)  in array_getval()
466 				return(nv_getv(np,&aq->hdr));  in array_getval()
475 	register Namarr_t *aq,*ap = (Namarr_t*)disc;  in array_getnum()  local
479 		if(!mp && !is_associative(ap) && (aq=(Namarr_t*)ap->scope))  in array_getnum()
481 			array_syncsub(aq,ap);  in array_getnum()
482 			if((mp=array_find(np,aq,ARRAY_LOOKUP))==np)  in array_getnum()
483 				return(nv_getn(np,&aq->hdr));  in array_getnum()
495 	register struct index_array *aq = (struct index_array*)ap;  in array_putval()  local
507 				array_clrbit(aq->bits,aq->cur,ARRAY_CHILD);  in array_putval()
508 				aq->val[aq->cur].cp = 0;  in array_putval()
537 						array_clrbit(aq->bits,aq->cur,ARRAY_CHILD);  in array_putval()
538 						aq->val[aq->cur].cp = 0;  in array_putval()
567 				array_clrbit(aq->bits,aq->cur,ARRAY_NOFREE);  in array_putval()
569 				aq->val[aq->cur].cp = 0;  in array_putval()
586 		if(!is_associative(ap) && aq->xp)  in array_putval()
588 			_nv_unset(nv_namptr(aq->xp,0),NV_RDONLY);  in array_putval()
589 			free((void*)aq->xp);  in array_putval()
877 		struct index_array *aq = (struct index_array*)ap;  in nv_arraychild()  local
878 		array_setbit(aq->bits,aq->cur,ARRAY_CHILD);  in nv_arraychild()
895 	struct index_array		*aq=0, *ar=0;  in nv_nextsub()  local
914 		aq = ap;  in nv_nextsub()
917 			if(!(aq=ar) || dot>=(unsigned)aq->maxi)  in nv_nextsub()
920 		if(aq->val[dot].cp)  in nv_nextsub()
923 			if(array_isbit(aq->bits, dot,ARRAY_CHILD))  in nv_nextsub()
925 				Namval_t *mp = aq->val[dot].np;			  in nv_nextsub()
926 				if((aq->header.nelem&ARRAY_NOCHILD) && nv_isvtree(mp) && !mp->nvfun->dsize)  in nv_nextsub()
1329 	struct index_array *ap=0,*aq;  in nv_setvec()  local
1340 			if(!(aq = (struct index_array*)ap->header.scope))  in nv_setvec()
1341 				aq = ap;  in nv_setvec()
1343 			while(--arg0>0 && ap->val[arg0].cp==0 && aq->val[arg0].cp==0);  in nv_setvec()