Lines Matching refs:np
244 Namval_t *np=com->comnamp;
248 if(com->comstate && np)
254 bp->bnode = np;
256 bp->ptr = nv_context(np);
259 (*funptr(np))(0,(char**)0, bp);
264 if(com->comarg && !np)
417 static void put_level(Namval_t* np,const char *val,int flags,Namfun_t *fp)
421 int16_t level, oldlevel = (int16_t)nv_getnum(np);
422 nv_putv(np,val,flags,fp);
425 fp = nv_stack(np, NIL(Namfun_t*));
430 level = nv_getnum(np);
433 nv_putv(np, (char*)&oldlevel, NV_INT16, fp);
469 Namval_t *np = SH_COMMANDNOD;
506 np->nvalue.cp = stkfreeze(stkp,1);
518 np->nvalue.cp = 0;
642 Namval_t *np;
643 if(!nv_isattr(nq,NV_MINIMAL|NV_EXPORT|NV_ARRAY) && (np=(Namval_t*)nq->nvenv) && nv_isarray(np))
644 nq = np;
647 nr->np = nq;
687 nv_putsub(nr->np, nr->sub, mode);
699 static void print_fun(register Namval_t* np, void *data)
703 if(!is_afunction(np) || !np->nvalue.ip)
705 if(nv_isattr(np,NV_FPOSIX))
709 sfprintf(sfstdout,format,nv_name(np));
710 sh_deparse(sfstdout,(Shnode_t*)(nv_funtree(np)),0);
763 Namval_t *np = dtmatch(shp->inpool,name);
764 if(!np)
766 np = (Namval_t*)stakalloc(sizeof(Dtlink_t)+sizeof(char*));
767 np->nvname = name;
768 (Namval_t*)dtinsert(shp->inpool,np);
818 Namval_t *np;
820 for(np=(Namval_t*)dtfirst(shp->inpool);np;np=(Namval_t*)dtnext(shp->inpool,np))
822 sfprintf(sfstdout,"\t%s\n",sh_fmtq(np->nvname));
919 Namval_t *np, *nq, *last_table;
934 np = (Namval_t*)(t->com.comnamp);
938 while(np==SYSCOMMAND)
944 np = 0;
947 np = nv_bfsearch(com0, shp->bltin_tree, &nq, &cp);
962 if(!np || !is_abuiltin(np) || *np->nvname=='/' || np==SYSCD)
972 if(np!=SYSTYPESET)
982 if(np && is_abuiltin(np))
988 if(shp->namespace && (mp=sh_fsearch(shp,np->nvname,0)))
989 np = mp;
992 np = dtsearch(shp->fun_tree,np);
995 if(sh_isoption(SH_PFSH) && nv_isattr(np,NV_BLTINOPT) && !nv_isattr(np,NV_BLTPFSH))
997 if(path_xattr(shp,np->nvname,(char*)0))
999 dtdelete(shp->bltin_tree,np);
1000 np = 0;
1003 nv_onattr(np,NV_BLTPFSH);
1010 if(!np && !strchr(com0,'/'))
1013 np = nv_bfsearch(com0, root, &nq, &cp);
1016 np = sh_fsearch(shp,com0,0);
1024 if(argn==0 || (np && nv_isattr(np,BLT_SPC)))
1035 if(np==SYSLOCAL)
1046 if(np==SYSTYPESET || np==SYSLOCAL)
1048 if(np==SYSTYPESET || (np && np->nvalue.bfp==SYSTYPESET->nvalue.bfp))
1051 if(np!=SYSTYPESET)
1053 shp->typeinit = np;
1054 tp = nv_type(np);
1072 if((shp->fn_depth && !shp->prefix) || np==SYSLOCAL)
1075 else if(np==SYSEXPORT)
1086 if(np==shp->typeinit)
1099 if(np && nv_isattr(np,BLT_DCL))
1104 np = SYSTRUE;
1105 *argv = nv_name(np);
1121 else if((np!=SYSSET) && sh_isoption(SH_XTRACE))
1128 np = SYSRETURN;
1130 com[0] = np->nvname;
1141 if(!np && !strchr(com0,'/'))
1147 if(!shp->namespace || !(np=sh_fsearch(shp,com0,0)))
1149 np=nv_search(com0,shp->fun_tree,0);
1150 if(!np && !np->nvalue.ip)
1154 np = mp;
1159 if((np=nv_search(com0,shp->track_tree,0)) && !nv_isattr(np,NV_NOALIAS) && np->nvalue.cp)
1160 np=nv_search(nv_getval(np),shp->bltin_tree,0);
1162 np = 0;
1165 if(np && pipejob==2)
1171 if(np && is_abuiltin(np))
1185 if(strchr(nv_name(np),'/'))
1204 if(!(nv_isattr(np,BLT_ENV)))
1210 if(np==SYSLOGIN)
1212 else if(np==SYSEXEC)
1220 if(!(nv_isattr(np,BLT_ENV)))
1247 shp->bltinfun = funptr(np);
1248 bp->bnode = np;
1250 bp->ptr = nv_context(np);
1255 if(shp->subshell && nv_isattr(np,BLT_NOSFIO))
1258 !shp->st.trapcom[0] && !shp->st.trap[SH_ERRTRAP] && shp->fn_depth==0 && !nv_isattr(np,BLT_ENV))
1272 if(!nv_isattr(np,BLT_EXIT) && shp->exitval!=SH_RUNPROG)
1292 if(jmpval<=SH_JMPCMD && (!nv_isattr(np,BLT_SPC) || command))
1295 if(bp && bp->ptr!= nv_context(np))
1296 np->nvfun = (Namfun_t*)bp->ptr;
1299 if(!(nv_isattr(np,BLT_ENV)))
1334 if((shp->topfd>topfd) && !(shp->subshell && np==SYSEXEC))
1344 np = 0;
1348 if(!command && np && nv_isattr(np,NV_FUNCTION))
1357 if(!np->nvalue.ip)
1364 np = sh_fsearch(shp,com0,0);
1367 np = nv_search(com0,shp->fun_tree,HASH_NOSCOPE);
1370 if(!np->nvalue.ip)
1386 slp = (struct slnod*)np->nvenv;
1392 if(nv_isattr(np,NV_STATICF) && (mp=nv_type(nq)))
1407 sh_funct(shp,np,argn,com,t->com.comset,(flags&~OPTIMIZE_FLAG));
2019 register Namval_t *np;
2052 np = nv_open(t->for_.fornam, shp->var_tree,NV_NOASSIGN|NV_NOARRAY|NV_VARNAME|NV_NOREF);
2053 nameref = nv_isref(np)!=0;
2103 nv_offattr(np,NV_REF);
2104 else if(nv_isattr(np, NV_ARRAY))
2105 nv_putsub(np,NIL(char*),0L);
2106 nv_putval(np,cp,0);
2108 nv_setref(np,(Dt_t*)0,NV_VARNAME);
2152 nv_close(np);
2435 Namval_t *np = nv_open("TIMEFORMAT",shp->var_tree,NV_NOADD);
2436 if(np)
2438 format = nv_getval(np);
2439 nv_close(np);
2456 register Namval_t *np=0;
2483 np = nv_open(stkptr(stkp,offset),shp->var_tree,flags);
2485 shp->namespace = np;
2486 if(nv_istable(np))
2487 root = nv_dict(np);
2491 nv_mount(np, (char*)0, root);
2492 np->nvalue.cp = Empty;
2543 np = sh_fsearch(shp,fname,NV_ADD|HASH_NOSCOPE);
2544 if(!np)
2546 np = nv_open(fname,sh_subfuntree(1),NV_NOASSIGN|NV_NOARRAY|NV_VARNAME|NV_NOSCOPE);
2550 cp = nv_setdisc(npv,cp,np,(Namfun_t*)npv);
2554 if(np->nvalue.rp)
2556 struct Ufunction *rp = np->nvalue.rp;
2557 slp = (struct slnod*)np->nvenv;
2562 free((void*)np->nvalue.rp);
2563 np->nvalue.rp = 0;
2579 if(!np->nvalue.rp)
2581 np->nvalue.rp = new_of(struct Ufunction,shp->funload?sizeof(Dtlink_t):0);
2582 memset((void*)np->nvalue.rp,0,sizeof(struct Ufunction));
2595 np->nvenv = (char*)slp;
2596 nv_funtree(np) = (int*)(t->funct.functtre);
2597 np->nvalue.rp->hoffset = t->funct.functloc;
2598 np->nvalue.rp->lineno = t->funct.functline;
2599 np->nvalue.rp->nspace = shp->namespace;
2600 np->nvalue.rp->fname = 0;
2601 np->nvalue.rp->argv = ac?((struct dolnod*)ac->comarg)->dolval+1:0;
2602 np->nvalue.rp->argc = ac?((struct dolnod*)ac->comarg)->dolnum:0;
2603 np->nvalue.rp->fdict = shp->fun_tree;
2606 np->nvalue.rp->fname = fp->functnam;
2607 nv_setsize(np,fp->functline);
2608 nv_offattr(np,NV_FPOSIX);
2611 struct Ufunction *rp = np->nvalue.rp;
2612 rp->np = np;
2620 _nv_unset(np,0);
2622 nv_onattr(np,NV_FUNCTION|NV_FPOSIX);
2624 nv_onattr(np,NV_FUNCTION);
2626 nv_onattr(np,NV_FTMP);
2628 nv_onattr(np,NV_OPTGET);
2778 Opt_t *op, *np = optctx(0, 0);
2781 op = optctx(np, 0);
2791 optctx(op,np);
3066 static void local_exports(register Namval_t *np, void *data)
3071 if(nv_isarray(np))
3072 nv_putsub(np,NIL(char*),0);
3073 if((cp = nv_getval(np)) && (mp = nv_search(nv_name(np), shp->var_tree, NV_ADD|HASH_NOSCOPE)) && nv_isnull(mp))
3083 Namval_t node,*mp,*np, *nref[9], **nr=nref;
3087 np = (Namval_t*)fp;
3088 funenv.node = np;
3103 argv[0] = np->nvname;
3138 Namval_t *np;
3164 if(n && fp && (np=(fp->node)->nvalue.rp->nspace) && np!=shp->namespace)
3165 shp->namespace = np;
3218 Namval_t *np, *nq, **nref;
3224 np = nv_search(arg[r],shp->var_tree,HASH_NOSCOPE|NV_ADD);
3225 if(np && (nq=*nref++))
3227 np->nvalue.nrp = newof(0,struct Namref,1,0);
3228 np->nvalue.nrp->np = nq;
3229 nv_onattr(np,NV_REF|NV_NOFREE);
3282 static void sh_funct(Shell_t *shp,Namval_t *np,int argn, char *argv[],struct argnod *envlist,int execflg)
3297 if(nv_isattr(np,NV_FPOSIX))
3301 shp->posix_fun = np;
3304 shp->st.funname = nv_name(np);
3306 nv_putval(SH_FUNNAMENOD, nv_name(np),NV_NOFREE);
3317 fun.node = np;
3340 * <np> is the function node
3343 int sh_fun(Namval_t *np, Namval_t *nq, char *argv[])
3364 argv[0] = nv_name(np);
3369 if(is_abuiltin(np))
3378 bp->bnode = np;
3379 bp->ptr = nv_context(np);
3385 shp->exitval = (*funptr(np))(n,argv,(void*)bp);
3392 sh_funct(shp,np,n,argv,(struct argnod*)0,sh_isstate(SH_ERREXIT));
3587 Namval_t *np = (Namval_t*)(tchild->com.comnamp);
3588 if(np)
3590 path = nv_name(np);
3591 if(!nv_isattr(np,BLT_ENV))
3592 np=0;
3594 np=0;
3607 if(!np && path && !nv_search(path,shp->fun_tree,0))
3738 Namval_t *np;
3739 if((np=nv_search(path,shp->track_tree,0)) && !nv_isattr(np,NV_NOALIAS) && np->nvalue.cp)
3740 path = nv_getval(np);