Lines Matching defs:shp
65 Shell_t *shp = lvalue->shp;
68 Dt_t *sdict = (shp->st.real_fun? shp->st.real_fun->sdict:0);
69 Dt_t *nsdict = (shp->namespace?nv_dict(shp->namespace):0);
70 Dt_t *root = shp->var_tree;
82 if((!(np = nv_open(cp,shp->var_tree,assign|NV_VARNAME|NV_NOADD|NV_NOFAIL)) || nv_isnull(np)) && sh_macfun(shp,cp, offset = staktell()))
84 Fun = sh_arith(shp,sub=stakptr(offset));
91 np = nv_open(cp,shp->var_tree,assign|NV_VARNAME);
95 root = shp->last_root;
157 sfprintf(shp->strbuf,"%s%s%c",nv_name(np),sub,0);
158 sub = sfstruse(shp->strbuf);
161 sub = sh_mactrim(shp,sub,0);
165 np = nv_open(sub,shp->var_tree,NV_VARNAME|assign);
222 Shell_t *shp = lvalue->shp;
272 int off=stktell(shp->stk);
278 sfprintf(shp->stk,".sh.math.%.*s%c",fsize,*ptr,0);
279 stkseek(shp->stk,off);
280 if(np=nv_search(stkptr(shp->stk,off),shp->fun_tree,0))
309 Dt_t *root = (lvalue->emode&ARITH_COMP)?shp->var_base:shp->var_tree;
389 if(shp->bltindata.bnode==SYSLET && !sh_isoption(SH_LETOCTAL))
511 Shell_t *shp = sh_getinterp();
513 char base=(shp->inarith?0:10), *last;
525 d = strval(shp,str,&last,arith,mode);
536 Sfdouble_t sh_arith(Shell_t *shp,register const char *str)
541 void *sh_arithcomp(Shell_t *shp,register char *str)
545 ep = arith_compile(shp,str,(char**)&ptr,arith,ARITH_COMP|1);