Lines Matching refs:flag
86 register int flag;
93 while((flag = optget(argv,*command=='e'?sh_optexport:sh_optreadonly))) switch(flag)
109 flag = (NV_ASSIGN|NV_RDONLY|NV_VARNAME);
125 flag = (NV_ASSIGN|NV_EXPORT|NV_IDENT);
129 return(b_common(argv,flag,tdata.sh->var_tree, &tdata));
135 register unsigned flag = NV_NOARRAY|NV_NOSCOPE|NV_ASSIGN;
144 flag = NV_TAGGED;
158 flag |= NV_TAGGED;
161 flag |= NV_EXPORT;
173 if(flag&NV_TAGGED)
196 return(b_common(argv,flag,troot,&tdata));
206 register int n, flag = NV_VARNAME|NV_ASSIGN;
227 flag |= NV_IARRAY;
236 flag |= NV_ARRAY;
239 flag |= NV_COMVAR;
255 flag &= ~NV_HEXFLOAT;
256 flag |= NV_EXPNOTE;
260 flag &= ~NV_EXPNOTE;
261 flag |= NV_HEXFLOAT;
265 flag |= NV_BINARY;
268 flag |= NV_MOVE;
271 flag &= ~NV_VARNAME;
272 flag |= (NV_REF|NV_IDENT);
275 flag |= NV_HOST;
278 flag |= NV_TYPE;
287 flag |= NV_ZFILL;
290 flag &= ~(NV_LJUST|NV_RJUST);
291 flag |= (n=='L'?NV_LJUST:NV_RJUST);
295 flag &= ~(NV_VARNAME|NV_ASSIGN);
301 flag |= NV_INTEGER;
304 flag |= NV_UTOL;
311 flag |= NV_RDONLY;
325 flag |= NV_TAGGED;
328 flag |= NV_LTOU;
331 flag &= ~NV_VARNAME;
332 flag |= (NV_EXPORT|NV_IDENT);
353 if((flag&NV_ZFILL) && !(flag&NV_LJUST))
354 flag |= NV_RJUST;
355 if((flag&NV_INTEGER) && (flag&(NV_LJUST|NV_RJUST|NV_ZFILL)))
357 if((flag&NV_BINARY) && (flag&(NV_LJUST|NV_UTOL|NV_LTOU)))
359 if((flag&NV_MOVE) && (flag&~(NV_MOVE|NV_VARNAME|NV_ASSIGN)))
361 if((flag&NV_REF) && (flag&~(NV_REF|NV_IDENT|NV_ASSIGN)))
363 if(troot==tdata.sh->fun_tree && ((isfloat || flag&~(NV_FUNCT|NV_TAGGED|NV_EXPORT|NV_LTOU))))
368 flag |= NV_DOUBLE;
370 flag |= NV_SHORT|NV_INTEGER;
374 flag |= NV_REF|NV_TAGGED;
376 flag |= NV_STATIC|NV_IDENT;
379 flag |= NV_NOSCOPE;
380 if(flag&NV_TYPE)
395 flag &= ~NV_TYPE;
401 return(b_common(argv,flag,troot,&tdata));
434 static int b_common(char **argv,register int flag,Dt_t *troot,struct tdata *tp)
438 int nvflags=(flag&(NV_ARRAY|NV_NOARRAY|NV_VARNAME|NV_IDENT|NV_ASSIGN|NV_STATIC|NV_MOVE));
439 int r=0, ref=0, comvar=(flag&NV_COMVAR),iarray=(flag&NV_IARRAY);
448 flag &= ~(NV_NOARRAY|NV_NOSCOPE|NV_VARNAME|NV_IDENT|NV_STATIC|NV_COMVAR|NV_IARRAY);
451 if(flag&NV_REF)
453 flag &= ~NV_REF;
471 flag &= ~NV_ASSIGN;
472 if(flag&NV_LTOU)
481 if(np && ((flag&NV_LTOU) || !nv_isnull(np) || nv_isattr(np,NV_LTOU)))
483 if(flag==0)
491 nv_onattr(np,flag|NV_FUNCTION);
493 nv_offattr(np,flag);
522 if(flag==NV_ASSIGN && !ref && tp->aflag!='-' && !strchr(name,'='))
565 else if(comvar && !nv_isvtree(np) && !nv_rename(np,flag|NV_COMVAR))
568 if(flag&NV_MOVE)
570 nv_rename(np, flag);
577 flag = (np->nvflag&NV_NOCHANGE);
580 flag &= ~NV_ASSIGN;
587 if((flag&NV_EXPORT) && (strchr(name,'.') || nv_isvtree(np)))
590 if(flag&NV_EXPORT)
594 if(flag&~NV_NOCHANGE)
596 newflag |= flag;
597 if (flag & (NV_LJUST|NV_RJUST))
599 if(!(flag&NV_RJUST))
602 else if(!(flag&NV_LJUST))
605 if(!(flag&NV_INTEGER))
607 if (flag & NV_UTOL)
609 else if (flag & NV_LTOU)
615 if((flag&NV_RDONLY) && (curflag&NV_RDONLY))
617 newflag = curflag & ~flag;
681 flag |= NV_FUNCTION;
686 flag |= (nvflags&NV_ARRAY);
687 if(flag&NV_IARRAY)
688 flag |= NV_ARRAY;
690 print_scan(sfstdout,flag,troot,tp->aflag=='+',tp);
780 register int n, r=0, flag=0;
797 flag = BLT_SPC;
847 print_scan(sfstdout, flag, tdata.sh->bltin_tree, 1, &tdata);
851 flag = stktell(stkp);
863 if(dlete || (addr = (Fptr_t)dlllook(liblist[n],stkptr(stkp,flag))))
891 stkseek(stkp,flag);
1043 static int print_namval(Sfio_t *file,register Namval_t *np,register int flag, struct tdata *tp)
1047 if(flag)
1048 flag = '\n';
1066 if(!flag && !np->nvalue.ip)
1068 else if(!flag && !nv_isattr(np,NV_FPOSIX))
1076 flag = '\n';
1077 if(flag)
1098 flag = '\n';
1114 if(!flag)
1115 flag = '=';
1116 sfputc(file,flag);
1117 if(flag != '\n')
1157 * print the nodes in tree <root> which have attributes <flag> set
1161 static void print_scan(Sfio_t *file, int flag, Dt_t *root, int option,struct tdata *tp)
1168 flag &= ~NV_ASSIGN;
1169 tp->scanmask = flag&~NV_NOSCOPE;
1176 if(flag&NV_INTEGER)
1178 namec = nv_scan(root,nullscan,(void*)tp,tp->scanmask,flag);
1180 namec = nv_scan(root, pushname, (void*)tp, tp->scanmask, flag&~NV_IARRAY);
1188 if(flag&NV_ARRAY)
1192 if(!(flag&NV_IARRAY))
1195 else if((flag&NV_IARRAY))