Cross Reference: /ast/src/cmd/ksh93/sh/parse.c

Lines Matching defs:argp
102 	register struct argnod *argp = arglist;
115 		switch(*argp->argval)
130 		while(argp = argp->argnxt.ap)
132 			if((n= *(cp=argp->argval))!='-' && n!='+')
150 	while(argp)
152 		if((cp=strchr(argp->argval,'='))||(cp=strchr(argp->argval,'?')))
153 			n = cp-argp->argval;
155 			n = strlen(argp->argval);
157 		r=kiaentity(lexp,argp->argval,n,type,line,eline,parent,justify,width,atbuff);
159 		argp = argp->argnxt.ap;
668 	register struct argnod *argp;
680 		argp = (struct argnod*)stkseek(stkp,ARGVAL);
681 		argp->argnxt.ap = 0;
682 		argp->argchn.cp = 0;
683 		argp->argflag = argflag;
701 		argp = (struct argnod*)stkfreeze(stkp,1);
702 		t = getanode(lexp,argp);
711 	argp = (struct argnod*)stakfreeze(1);
719 	if(*argp->argval)
721 		t = getanode(lexp,argp);
1287 		register struct argnod *argp = label_list;
1288 		while(argp)
1290 			if(strcmp(argp->argval,lexp->arg->argval)==0)
1291 				errormsg(SH_DICT,ERROR_exit(3),e_lexsyntax3,lexp->sh->inlineno,argp->argval);
1292 			argp = argp->argnxt.ap;
1378 	struct argnod *argp;
1382 	argp = (struct argnod*)stkalloc(lexp->sh->stk,sizeof(struct argnod));
1383 	*argp->argval = 0;
1384 	argp->argchn.ap = (struct argnod*)makeparent(lexp,mode?TFORK|FPIN|FAMP|FPCL:TFORK|FPOU,t);
1385 	argp->argflag =  (ARG_EXP|mode);
1386 	return(argp);
1396 	register struct argnod	*argp;
1406 	if((argp=lexp->arg) && (argp->argflag&ARG_ASSIGN) && argp->argval[0]=='[')
1423 		argp = lexp->arg;
1424 		if(*argp->argval==LBRACE && (flag&SH_FUNDEF) && argp->argval[1]==0)
1429 		if(associative && argp->argval[0]!='[')
1432 		if((argp->argflag&ARG_ASSIGN) && assignment!=2)
1434 			*settail = argp;
1435 			settail = &(argp->argnxt.ap);
1439 				struct argnod *ap=argp;
1443 					last = strchr(argp->argval,'=');
1444 					if(last && (last[-1]==']'|| (last[-1]=='+' && last[-2]==']')) && (cp=strchr(argp->argval,'[')) && (cp < last) && cp[-1]!='.')
1447 					sfwrite(stkp,argp->argval,last-argp->argval);
1462 			if(!(argp->argflag&ARG_RAW))
1464 			if(argno>=0 && argno++==cmdarg && !(flag&SH_ARRAY) && *argp->argval!='/')
1467 				Namval_t *np=nv_bfsearch(argp->argval,lexp->sh->fun_tree, (Namval_t**)&t->comnamq,(char**)0);
1474 						assignment = 1+(*argp->argval=='a');
1489 			*argtail = argp;
1490 			argtail = &(argp->argnxt.ap);
1501 			argp = process_sub(lexp,tok);
1503 			*argtail = argp;
1504 			argtail = &(argp->argnxt.ap);
1509 			if(argp->argflag&ARG_ASSIGN)
1532 				argp = assign(lexp,argp,type);
1543 					lexp->arg = argp;
1580 		argp = t->comarg;
1583 		else if(argp)
1584 			r = kiaentity(lexp,sh_argstr(argp),-1,'p',-1,0,lexp->unknown,'c',0,"");
1590 			writedefs(lexp,argp,line,0,NIL(struct argnod*));
1591 		else if(argp && strcmp(argp->argval,"read")==0)
1592 			writedefs(lexp,argp,line,0,NIL(struct argnod*));
1594 		else if(argp && strcmp(argp->argval,"unset")==0)
1595 			writedefs(lexp,argp,line,'u',NIL(struct argnod*));
1597 		else if(argp && *argp->argval=='.' && argp->argval[1]==0 && (argp=argp->argnxt.ap))
1599 			r = kiaentity(lexp,sh_argstr(argp),-1,'p',0,0,lexp->script,'d',0,"");
1604 	if(t->comnamp && (argp=t->comarg->argnxt.ap))
1607 		if((np==SYSBREAK || np==SYSCONT) && (argp->argflag&ARG_RAW) && !isdigit(*argp->argval))
1609 			register char *cp = argp->argval;
1612 			for(argp=label_list;argp!=label_last;argp=argp->argnxt.ap)
1614 				if(strcmp(cp,argp->argval))
1616 				tok = loop_level-argp->argflag;
1619 					argp = t->comarg->argnxt.ap;
1622 						argp->argval[1] = '0'+tok%10;
1623 						argp->argval[2] = 0;
1627 						argp->argval[1] = 0;
1628 					*argp->argval = '0'+tok;
1635 		else if(sh_isoption(SH_NOEXEC) && np==SYSSET && ((tok= *argp->argval)=='-'||tok=='+') &&
1636 			(argp->argval[1]==0||strchr(argp->argval,'k')))
1637 			errormsg(SH_DICT,ERROR_warn(0),e_lexobsolete5,lexp->sh->inlineno-(lexp->token=='\n'),argp->argval);