Lines Matching refs:tdata
45 struct tdata
65 static int print_namval(Sfio_t*, Namval_t*, int, struct tdata*);
67 static void print_all(Sfio_t*, Dt_t*, struct tdata*);
68 static void print_scan(Sfio_t*, int, Dt_t*, int, struct tdata*);
70 static int b_common(char**, int, Dt_t*, struct tdata*);
91 struct tdata tdata;
93 memset((void*)&tdata,0,sizeof(tdata));
94 tdata.sh = ((Shbltin_t*)extra)->shp;
95 tdata.aflag = '-';
99 tdata.prefix = command;
116 char *cp,**env=env_get(tdata.sh->env);
119 if(tdata.prefix)
120 sfputr(sfstdout,tdata.prefix,' ');
129 if(!tdata.sh->prefix)
130 tdata.sh->prefix = "";
132 return(b_common(argv,flag,tdata.sh->var_tree, &tdata));
141 struct tdata tdata;
143 memset((void*)&tdata,0,sizeof(tdata));
144 tdata.sh = ((Shbltin_t*)extra)->shp;
145 troot = tdata.sh->alias_tree;
153 tdata.argnum = 0;
154 tdata.aflag = *argv[1];
158 tdata.prefix = argv[0];
183 Namval_t *np = nv_search((char*)PATHNOD,tdata.sh->var_tree,HASH_BUCKET);
197 troot = tdata.sh->track_tree;
200 return(b_common(argv,flag,troot,&tdata));
211 struct tdata tdata;
217 memset((void*)&tdata,0,sizeof(tdata));
218 tdata.sh = ((Shbltin_t*)extra)->shp;
221 tdata.tp = ntp->tp;
225 troot = tdata.sh->var_tree;
228 if(tdata.aflag==0)
229 tdata.aflag = *opt_info.option;
239 tdata.tname = opt_info.arg;
251 tdata.argnum = (int)opt_info.num;
256 if(!opt_info.arg || (tdata.argnum = opt_info.num) <0)
257 tdata.argnum = (n=='X'?2*sizeof(Sfdouble_t):10);
285 tdata.prefix = opt_info.arg;
288 if(tdata.argnum==0)
289 tdata.argnum = (int)opt_info.num;
290 if(tdata.argnum < 0)
291 errormsg(SH_DICT,ERROR_exit(1), e_badfield, tdata.argnum);
301 if((tdata.wctname = opt_info.arg) && !nv_mapchar((Namval_t*)0,tdata.wctname))
302 errormsg(SH_DICT, ERROR_exit(1),e_unknownmap, tdata.wctname);
303 if(tdata.wctname && strcmp(tdata.wctname,e_tolower)==0)
307 if(!tdata.wctname)
312 troot = tdata.sh->fun_tree;
315 if(!opt_info.arg || (tdata.argnum = opt_info.num) <0)
316 tdata.argnum = 10;
320 tdata.wctname = e_tolower;
324 tdata.prefix = argv[0];
325 tdata.pflag = 1;
336 tdata.help = opt_info.arg;
346 tdata.wctname = e_toupper;
367 tdata.aflag = *argv[0];
380 if(troot==tdata.sh->fun_tree && ((isfloat || flag&~(NV_FUNCT|NV_TAGGED|NV_EXPORT|NV_LTOU))))
382 if(sflag && troot==tdata.sh->fun_tree)
399 if(tdata.sh->mktype)
401 else if(!tdata.sh->typeinit)
404 if(tdata.sh->fn_depth && !tdata.pflag)
406 if(tdata.help)
407 tdata.help = strdup(tdata.help);
410 Stk_t *stkp = tdata.sh->stk;
412 if(!tdata.prefix)
413 return(sh_outtype(tdata.sh,sfstdout));
417 sfputr(stkp,tdata.prefix,0);
418 tdata.tp = nv_open(stkptr(stkp,offset),tdata.sh->var_tree,NV_VARNAME|NV_NOARRAY|NV_NOASSIGN);
420 if(!tdata.tp)
421 errormsg(SH_DICT,ERROR_exit(1),"%s: unknown type",tdata.prefix);
422 else if(nv_isnull(tdata.tp))
423 nv_newtype(tdata.tp);
424 tdata.tp->nvenv = tdata.help;
427 else if(tdata.aflag==0 && ntp && ntp->tp)
428 tdata.aflag = '-';
429 if(!tdata.sh->mktype)
430 tdata.help = 0;
431 if(tdata.aflag=='+' && (flag&(NV_ARRAY|NV_IARRAY|NV_COMVAR)))
433 return(b_common(argv,flag,troot,&tdata));
436 static void print_value(Sfio_t *iop, Namval_t *np, struct tdata *tp)
486 static int b_common(char **argv,register int flag,Dt_t *troot,struct tdata *tp)
896 struct tdata tdata;
907 memset(&tdata,0,sizeof(tdata));
908 tdata.sh = ((Shbltin_t*)extra)->shp;
909 stkp = tdata.sh->stk;
910 if(!tdata.sh->pathlist)
911 path_absolute(tdata.sh,argv[0],NIL(Pathcomp_t*));
949 if(tdata.sh->subshell && !tdata.sh->subshare)
974 sh_addlib(tdata.sh,library);
980 print_scan(sfstdout, flag, tdata.sh->bltin_tree, 1, &tdata);
1032 struct tdata tdata;
1033 memset(&tdata,0,sizeof(tdata));
1034 tdata.sh = ((Shbltin_t*)extra)->shp;
1035 tdata.prefix=0;
1038 if(sh_argopts(argc,argv,tdata.sh) < 0)
1051 print_scan(sfstdout,0,tdata.sh->var_tree,0,&tdata);
1197 static int print_namval(Sfio_t *file,register Namval_t *np,register int flag, struct tdata *tp)
1315 static void print_all(Sfio_t *file,Dt_t *root, struct tdata *tp)
1326 register struct tdata *dp = (struct tdata*)data;
1335 static void print_scan(Sfio_t *file, int flag, Dt_t *root, int option,struct tdata *tp)
1388 struct tdata *tp = (struct tdata*)data;