Lines Matching refs:flag
89 register int flag;
96 while((flag = optget(argv,*command=='e'?sh_optexport:sh_optreadonly))) switch(flag)
112 flag = (NV_ASSIGN|NV_RDONLY|NV_VARNAME);
128 flag = (NV_ASSIGN|NV_EXPORT|NV_IDENT);
132 return(setall(argv,flag,tdata.sh->var_tree, &tdata));
138 register unsigned flag = NV_NOARRAY|NV_NOSCOPE|NV_ASSIGN;
147 flag = NV_TAGGED;
161 flag |= NV_TAGGED;
164 flag |= NV_EXPORT;
176 if(flag&NV_TAGGED)
200 return(setall(argv,flag,troot,&tdata));
210 register int n, flag = NV_VARNAME|NV_ASSIGN;
233 flag |= NV_IARRAY;
242 flag |= NV_ARRAY;
245 flag |= NV_COMVAR;
261 flag &= ~NV_HEXFLOAT;
262 flag |= NV_EXPNOTE;
266 flag &= ~NV_EXPNOTE;
267 flag |= NV_HEXFLOAT;
271 flag |= NV_BINARY;
274 flag |= NV_MOVE;
277 flag &= ~NV_VARNAME;
278 flag |= (NV_REF|NV_IDENT);
281 flag |= NV_HOST;
284 flag |= NV_TYPE;
293 flag |= NV_ZFILL;
296 flag &= ~(NV_LJUST|NV_RJUST);
297 flag |= (n=='L'?NV_LJUST:NV_RJUST);
304 flag |= NV_UTOL;
306 flag |= NV_LTOU;
308 flag |= NV_UTOL;
311 flag &= ~(NV_VARNAME|NV_ASSIGN);
317 flag |= NV_INTEGER;
321 flag |= NV_UTOL;
326 flag &= ~NV_ASSIGN;
329 flag |= NV_RDONLY;
343 flag |= NV_TAGGED;
347 flag |= NV_LTOU;
350 flag &= ~NV_VARNAME;
351 flag |= (NV_EXPORT|NV_IDENT);
370 if((flag&NV_ZFILL) && !(flag&NV_LJUST))
371 flag |= NV_RJUST;
372 if((flag&NV_INTEGER) && (flag&(NV_LJUST|NV_RJUST|NV_ZFILL)))
374 if((flag&NV_BINARY) && (flag&(NV_LJUST|NV_UTOL|NV_LTOU)))
376 if((flag&NV_MOVE) && (flag&~(NV_MOVE|NV_VARNAME|NV_ASSIGN)))
378 if((flag&NV_REF) && (flag&~(NV_REF|NV_IDENT|NV_ASSIGN)))
380 if((flag&NV_TYPE) && (flag&~(NV_TYPE|NV_VARNAME|NV_ASSIGN)))
382 if(troot==tdata.sh->fun_tree && ((isfloat || flag&~(NV_FUNCT|NV_TAGGED|NV_EXPORT|NV_LTOU))))
388 flag |= NV_STATICF;
395 flag |= NV_DOUBLE;
398 flag &= ~NV_LONG;
399 flag |= NV_SHORT|NV_INTEGER;
404 flag |= NV_REF|NV_TAGGED;
406 flag |= NV_STATIC|NV_IDENT;
409 flag |= NV_NOSCOPE;
412 if(flag&NV_TYPE)
444 flag &= ~NV_TYPE;
455 if(tdata.aflag=='+' && (flag&(NV_ARRAY|NV_IARRAY|NV_COMVAR)) && argv[1])
457 return(setall(argv,flag,troot,&tdata));
527 static int setall(char **argv,register int flag,Dt_t *troot,struct tdata *tp)
531 int nvflags=(flag&(NV_ARRAY|NV_NOARRAY|NV_VARNAME|NV_IDENT|NV_ASSIGN|NV_STATIC|NV_MOVE));
532 int r=0, ref=0, comvar=(flag&NV_COMVAR),iarray=(flag&NV_IARRAY);
543 flag &= ~(NV_NOARRAY|NV_NOSCOPE|NV_VARNAME|NV_IDENT|NV_STATIC|NV_COMVAR|NV_IARRAY);
546 if(flag&NV_REF)
548 flag &= ~NV_REF;
568 flag &= ~NV_ASSIGN;
569 if(flag&NV_LTOU)
602 if(np && ((flag&NV_LTOU) || !nv_isnull(np) || nv_isattr(np,NV_LTOU)))
604 if(flag==0 && !tp->help)
612 nv_onattr(np,flag|NV_FUNCTION);
614 nv_offattr(np,flag);
655 else if( (iarray||(flag&NV_ARRAY)) && nv_isvtree(np) && !nv_type(np))
664 if(flag==NV_ASSIGN && !ref && tp->aflag!='-' && !strchr(name,'='))
676 if(comvar || (shp->last_root==shp->var_tree && (tp->tp || (!shp->st.real_fun && (nvflags&NV_STATIC)) || (!(flag&(NV_EXPORT|NV_RDONLY)) && nv_isattr(np,(NV_EXPORT|NV_IMPORT))==(NV_EXPORT|NV_IMPORT)))))
711 else if(comvar && !nv_isvtree(np) && !nv_rename(np,flag|NV_COMVAR))
714 if(flag&NV_MOVE)
716 nv_rename(np, flag);
723 flag = (np->nvflag&NV_NOCHANGE);
725 flag &= ~NV_ASSIGN;
731 if(!(flag&NV_INTEGER) && (flag&(NV_LTOU|NV_UTOL)))
747 nv_offattr(np,flag&(NV_LTOU|NV_UTOL));
753 nv_onattr(np,flag&(NV_LTOU|NV_UTOL));
759 if((flag&NV_EXPORT) && (strchr(name,'.') || nv_isvtree(np)))
762 if(flag&NV_EXPORT)
766 if(flag&~NV_NOCHANGE)
768 newflag |= flag;
769 if (flag & (NV_LJUST|NV_RJUST))
771 if(!(flag&NV_RJUST))
774 else if(!(flag&NV_LJUST))
780 if((flag&NV_RDONLY) && (curflag&NV_RDONLY))
782 newflag = curflag & ~flag;
840 flag |= NV_FUNCTION;
845 flag |= (nvflags&NV_ARRAY);
847 flag |= NV_ARRAY|NV_IARRAY;
849 flag |= NV_TABLE;
850 if(!(flag&~NV_ASSIGN))
853 if((flag&(NV_UTOL|NV_LTOU)) ==(NV_UTOL|NV_LTOU))
855 print_scan(sfstdout,flag&~NV_UTOL,troot,tp->aflag=='+',tp);
856 flag &= ~NV_LTOU;
858 print_scan(sfstdout,flag,troot,tp->aflag=='+',tp);
862 print_scan(sfstdout,flag|NV_REF,troot,tp->aflag=='+',tp);
968 register int n, r=0, flag=0;
990 flag = BLT_SPC;
1055 print_scan(sfstdout, flag, tdata.sh->bltin_tree, 1, &tdata);
1059 flag = stktell(stkp);
1073 if(dlete || (addr = (Shbltin_f)dlllook(liblist[n].dll,stkptr(stkp,flag))))
1103 stkseek(stkp,flag);
1277 static int print_namval(Sfio_t *file,register Namval_t *np,register int flag, struct tdata *tp)
1282 if(flag)
1283 flag = '\n';
1320 if(!flag && !np->nvalue.ip)
1322 else if(!flag && !nv_isattr(np,NV_FPOSIX))
1333 flag = '\n';
1334 if(flag)
1355 flag = '\n';
1375 if(!flag)
1376 flag = '=';
1377 sfputc(file,flag);
1378 if(flag != '\n')
1418 * print the nodes in tree <root> which have attributes <flag> set
1422 static void print_scan(Sfio_t *file, int flag, Dt_t *root, int option,struct tdata *tp)
1431 flag &= ~NV_ASSIGN;
1432 tp->scanmask = flag&~NV_NOSCOPE;
1439 if(flag&NV_INTEGER)
1441 if(flag==NV_LTOU || flag==NV_UTOL)
1443 namec = nv_scan(root,nullscan,(void*)tp,tp->scanmask,flag);
1445 namec = nv_scan(root, pushname, (void*)tp, tp->scanmask, flag&~NV_IARRAY);
1465 if(flag&NV_ARRAY)
1469 if(!(flag&NV_IARRAY))
1472 else if((flag&NV_IARRAY))
1476 tp->scanmask = flag&~NV_NOSCOPE;