Lines Matching +refs:val +refs:current
128 char *val;
204 static void put_ed(register Namval_t* np,const char *val,int flags,Namfun_t *fp)
211 if(!(cp=val) && (*name=='E' || !(cp=nv_getval(sh_scoped(shp,EDITNOD)))))
229 nv_putv(np, val, flags, fp);
233 static void put_history(register Namval_t* np,const char *val,int flags,Namfun_t *fp)
238 if(val && histopen)
240 if(np==HISTFILE && (cp=nv_getval(np)) && strcmp(val,cp)==0)
242 if(np==HISTSIZE && sh_arith(val)==nv_getnum(HISTSIZE))
246 nv_putv(np, val, flags, fp);
249 if(val)
257 static void put_optindex(Namval_t* np,const char *val,int flags,Namfun_t *fp)
261 nv_putv(np, val, flags, fp);
262 if(!val)
282 static void put_restricted(register Namval_t* np,const char *val,int flags,Namfun_t *fp)
293 if(path_scoped && !val)
294 val = PATHNOD->nvalue.cp;
296 if(val && !(flags&NV_RDONLY) && np->nvalue.cp && strcmp(val,np->nvalue.cp)==0)
300 nv_putv(np, val, flags, fp);
304 val = np->nvalue.cp;
306 pp = (void*)path_addpath((Pathcomp_t*)shp->pathlist,val,PATH_PATH);
307 else if(val && np==FPATHNOD)
308 pp = (void*)path_addpath((Pathcomp_t*)shp->pathlist,val,PATH_FPATH);
313 if(!val && (flags&NV_NOSCOPE))
316 if(mp && (val=nv_getval(mp)))
317 nv_putval(mp,val,NV_RDONLY);
320 sfprintf(sfstderr,"%d: name=%s val=%s\n",getpid(),name,val);
326 static void put_cdpath(register Namval_t* np,const char *val,int flags,Namfun_t *fp)
330 nv_putv(np, val, flags, fp);
333 val = np->nvalue.cp;
334 pp = (void*)path_addpath((Pathcomp_t*)shp->cdpathlist,val,PATH_CDPATH);
359 static void put_lang(Namval_t* np,const char *val,int flags,Namfun_t *fp)
392 r = setlocale(type,val?val:"");
396 if(!r && val)
399 errormsg(SH_DICT,0,e_badlocale,val);
404 nv_putv(np, val, flags, fp);
460 static void put_ifs(register Namval_t* np,const char *val,int flags,Namfun_t *fp)
465 if(!val)
471 if(val != np->nvalue.cp)
472 nv_putv(np, val, flags, fp);
473 if(!val && !(flags&NV_CLONE) && (fp=np->nvfun) && !fp->disc && (shp=(Shell_t*)(fp->last)))
539 static void put_seconds(register Namval_t* np,const char *val,int flags,Namfun_t *fp)
543 if(!val)
548 nv_putv(np, val, flags, fp);
557 nv_putv(np, val, flags, fp);
588 static void put_rand(register Namval_t* np,const char *val,int flags,Namfun_t *fp)
592 if(!val)
601 n = *(double*)val;
603 n = sh_arith(val);
646 static void put_lineno(Namval_t* np,const char *val,int flags,Namfun_t *fp)
650 if(!val)
659 n = *(double*)val;
661 n = sh_arith(val);
681 static void put_lastarg(Namval_t* np,const char *val,int flags,Namfun_t *fp)
686 sfprintf(shp->strbuf,"%.*g",12,*((double*)val));
687 val = sfstruse(shp->strbuf);
689 if(val)
690 val = strdup(val);
695 shp->lastarg = (char*)val;
731 mp->val = (char*)realloc(mp->val,vsize+1);
733 mp->val = (char*)malloc(vsize+1);
736 memcpy(mp->val,v,vsize);
737 mp->val[vsize] = 0;
749 char *val;
763 val = mp->val+mp->match[2*sub];
764 if(mp->val[mp->match[2*sub+1]]==0)
765 return(val);
768 memcpy(mp->rval,val,n);
820 static void put_vpath(register Namval_t* np,const char *val,int flags,Namfun_t *fp)
825 if(val)
826 vpath_set((char*)val,1);
827 nv_putv(np,val,flags,fp);
989 static void put_mode(Namval_t* np, const char* val, int flag, Namfun_t* nfp)
991 if(val)
998 mode = *(Sfdouble_t*)val;
1000 mode = *(double*)val;
1003 mode = strperm(val, &last,0);
1005 errormsg(SH_DICT,ERROR_exit(1),"%s: invalid mode string",val);
1009 nv_putv(np,val,flag,nfp);
1437 int current;
1444 sp->current = 0;
1445 else if(++sp->current>=sp->numnodes)
1447 return(nv_namptr(sp->nodes,sp->current));
1759 char *ep,*val = nv_getval(np);
1760 strtol(val,&ep,10);
1774 size = ep-val;