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 setall(char**, int, Dt_t*, struct tdata*);
91 struct tdata tdata;
93 memset((void*)&tdata,0,sizeof(tdata));
94 tdata.sh = context->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(setall(argv,flag,tdata.sh->var_tree, &tdata));
141 struct tdata tdata;
143 memset((void*)&tdata,0,sizeof(tdata));
144 tdata.sh = context->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(setall(argv,flag,troot,&tdata));
211 struct tdata tdata;
217 memset((void*)&tdata,0,sizeof(tdata));
218 tdata.sh = context->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];
382 if(troot==tdata.sh->fun_tree && ((isfloat || flag&~(NV_FUNCT|NV_TAGGED|NV_EXPORT|NV_LTOU))))
384 if(sflag && troot==tdata.sh->fun_tree)
392 if(sizeof(char*)<8 && tdata.argnum > SHRT_MAX)
403 if(tdata.sh->mktype)
405 else if(!tdata.sh->typeinit)
408 if(tdata.sh->fn_depth && !tdata.pflag)
410 if(tdata.help)
411 tdata.help = strdup(tdata.help);
414 Stk_t *stkp = tdata.sh->stk;
416 if(!tdata.prefix)
417 return(sh_outtype(tdata.sh,sfstdout));
420 if(tdata.sh->namespace)
423 sfputr(stkp,nv_name(tdata.sh->namespace),'.');
429 sfputr(stkp,tdata.prefix,0);
430 tdata.tp = nv_open(stkptr(stkp,offset),tdata.sh->var_tree,NV_VARNAME|NV_NOARRAY|NV_NOASSIGN);
432 if(!tdata.tp && off)
435 tdata.tp = nv_open(stkptr(stkp,offset),tdata.sh->var_tree,NV_VARNAME|NV_NOARRAY|NV_NOASSIGN);
439 if(!tdata.tp)
440 errormsg(SH_DICT,ERROR_exit(1),"%s: unknown type",tdata.prefix);
441 else if(nv_isnull(tdata.tp))
442 nv_newtype(tdata.tp);
443 tdata.tp->nvenv = tdata.help;
445 if(nv_isattr(tdata.tp,NV_TAGGED))
447 nv_offattr(tdata.tp,NV_TAGGED);
451 else if(tdata.aflag==0 && ntp && ntp->tp)
452 tdata.aflag = '-';
453 if(!tdata.sh->mktype)
454 tdata.help = 0;
455 if(tdata.aflag=='+' && (flag&(NV_ARRAY|NV_IARRAY|NV_COMVAR)) && argv[1])
457 return(setall(argv,flag,troot,&tdata));
460 static void print_value(Sfio_t *iop, Namval_t *np, struct tdata *tp)
527 static int setall(char **argv,register int flag,Dt_t *troot,struct tdata *tp)
971 struct tdata tdata;
982 memset(&tdata,0,sizeof(tdata));
983 tdata.sh = context->shp;
984 stkp = tdata.sh->stk;
985 if(!tdata.sh->pathlist)
986 path_absolute(tdata.sh,argv[0],NIL(Pathcomp_t*));
1024 if(tdata.sh->subshell && !tdata.sh->subshare)
1049 sh_addlib(tdata.sh,library,arg,NiL);
1055 print_scan(sfstdout, flag, tdata.sh->bltin_tree, 1, &tdata);
1111 struct tdata tdata;
1113 memset(&tdata,0,sizeof(tdata));
1114 tdata.sh = context->shp;
1115 tdata.prefix=0;
1118 if(sh_argopts(argc,argv,tdata.sh) < 0)
1131 print_scan(sfstdout,0,tdata.sh->var_tree,0,&tdata);
1277 static int print_namval(Sfio_t *file,register Namval_t *np,register int flag, struct tdata *tp)
1402 static void print_all(Sfio_t *file,Dt_t *root, struct tdata *tp)
1413 register struct tdata *dp = (struct tdata*)data;
1422 static void print_scan(Sfio_t *file, int flag, Dt_t *root, int option,struct tdata *tp)
1494 struct tdata *tp = (struct tdata*)data;