Cross Reference: /illumos-gate/usr/src/lib/libshell/common/sh/parse.c

Lines Matching defs:argp
98 	register struct argnod *argp = arglist;
111 		switch(*argp->argval)
126 		while(argp = argp->argnxt.ap)
128 			if((n= *(cp=argp->argval))!='-' && n!='+')
146 	while(argp)
148 		if((cp=strchr(argp->argval,'='))||(cp=strchr(argp->argval,'?')))
149 			n = cp-argp->argval;
151 			n = strlen(argp->argval);
153 		r=kiaentity(lexp,argp->argval,n,type,line,eline,parent,justify,width,atbuff);
155 		argp = argp->argnxt.ap;
644 	register struct argnod *argp;
656 		argp = (struct argnod*)stkseek(stkp,ARGVAL);
657 		argp->argnxt.ap = 0;
658 		argp->argchn.cp = 0;
659 		argp->argflag = argflag;
677 		argp = (struct argnod*)stkfreeze(stkp,1);
678 		t = getanode(lexp,argp);
687 	argp = (struct argnod*)stakfreeze(1);
695 	if(*argp->argval)
697 		t = getanode(lexp,argp);
1191 		register struct argnod *argp = label_list;
1192 		while(argp)
1194 			if(strcmp(argp->argval,lexp->arg->argval)==0)
1195 				errormsg(SH_DICT,ERROR_exit(3),e_lexsyntax3,lexp->sh->inlineno,argp->argval);
1196 			argp = argp->argnxt.ap;
1264 	struct argnod *argp;
1268 	argp = (struct argnod*)stkalloc(lexp->sh->stk,sizeof(struct argnod));
1269 	*argp->argval = 0;
1270 	argp->argchn.ap = (struct argnod*)makeparent(lexp,mode?TFORK|FPIN|FAMP|FPCL:TFORK|FPOU,t);
1271 	argp->argflag =  (ARG_EXP|mode);
1272 	return(argp);
1282 	register struct argnod	*argp;
1292 	if((argp=lexp->arg) && (argp->argflag&ARG_ASSIGN) && argp->argval[0]=='[')
1309 		argp = lexp->arg;
1310 		if(*argp->argval==LBRACE && (flag&SH_FUNDEF) && argp->argval[1]==0)
1315 		if(associative && argp->argval[0]!='[')
1318 		if((argp->argflag&ARG_ASSIGN) && assignment!=2)
1320 			*settail = argp;
1321 			settail = &(argp->argnxt.ap);
1325 				struct argnod *ap=argp;
1329 					last = strchr(argp->argval,'=');
1330 					if(last && (last[-1]==']'|| (last[-1]=='+' && last[-2]==']')) && (cp=strchr(argp->argval,'[')) && (cp < last))
1333 					sfwrite(stkp,argp->argval,last-argp->argval);
1348 			if(!(argp->argflag&ARG_RAW))
1354 			if(argno>=0 && argno++==cmdarg && !(flag&SH_ARRAY) && *argp->argval!='/')
1357 				Namval_t *np=nv_bfsearch(argp->argval,lexp->sh->fun_tree, (Namval_t**)&t->comnamq,(char**)0);
1364 						assignment = 1+(*argp->argval=='a');
1377 			*argtail = argp;
1378 			argtail = &(argp->argnxt.ap);
1390 			argp = process_sub(lexp,tok);
1393 			*argtail = argp;
1394 			argtail = &(argp->argnxt.ap);
1400 			if(argp->argflag&ARG_ASSIGN)
1407 				argp = assign(lexp,argp,tdef);
1418 					lexp->arg = argp;
1457 		argp = t->comarg;
1460 		else if(argp)
1461 			r = kiaentity(lexp,sh_argstr(argp),-1,'p',-1,0,lexp->unknown,'c',0,"");
1467 			writedefs(lexp,argp,line,0,NIL(struct argnod*));
1468 		else if(argp && strcmp(argp->argval,"read")==0)
1469 			writedefs(lexp,argp,line,0,NIL(struct argnod*));
1471 		else if(argp && strcmp(argp->argval,"unset")==0)
1472 			writedefs(lexp,argp,line,'u',NIL(struct argnod*));
1474 		else if(argp && *argp->argval=='.' && argp->argval[1]==0 && (argp=argp->argnxt.ap))
1476 			r = kiaentity(lexp,sh_argstr(argp),-1,'p',0,0,lexp->script,'d',0,"");
1481 	if(t->comnamp && (argp=t->comarg->argnxt.ap))
1484 		if((np==SYSBREAK || np==SYSCONT) && (argp->argflag&ARG_RAW) && !isdigit(*argp->argval))
1486 			register char *cp = argp->argval;
1489 			for(argp=label_list;argp!=label_last;argp=argp->argnxt.ap)
1491 				if(strcmp(cp,argp->argval))
1493 				tok = loop_level-argp->argflag;
1496 					argp = t->comarg->argnxt.ap;
1499 						argp->argval[1] = '0'+tok%10;
1500 						argp->argval[2] = 0;
1504 						argp->argval[1] = 0;
1505 					*argp->argval = '0'+tok;
1512 		else if(sh_isoption(SH_NOEXEC) && np==SYSSET && ((tok= *argp->argval)=='-'||tok=='+') &&
1513 			(argp->argval[1]==0||strchr(argp->argval,'k')))
1514 			errormsg(SH_DICT,ERROR_warn(0),e_lexobsolete5,lexp->sh->inlineno-(lexp->token=='\n'),argp->argval);