Lines Matching defs:vp
187 expr(Char ***vp)
189 return (exp0(vp, 0));
193 exp0(Char ***vp, int ignore)
195 tcsh_number_t p1 = exp1(vp, ignore);
197 etraci("exp0 p1", p1, vp);
198 while (**vp && eq(**vp, STRor2)) {
201 (*vp)++;
204 exp0(vp, (ignore & TEXP_IGNORE) || p1) :
205 exp1(vp, (ignore & TEXP_IGNORE) || p1);
208 etraci("exp0 p1", p1, vp);
216 exp1(Char ***vp, int ignore)
218 tcsh_number_t p1 = exp2x(vp, ignore);
220 etraci("exp1 p1", p1, vp);
221 while (**vp && eq(**vp, STRand2)) {
224 (*vp)++;
226 exp1(vp, (ignore & TEXP_IGNORE) || !p1) :
227 exp2x(vp, (ignore & TEXP_IGNORE) || !p1);
229 etraci("exp1 p2", p2, vp);
232 etraci("exp1 p1", p1, vp);
240 exp2x(Char ***vp, int ignore)
242 tcsh_number_t p1 = exp2a(vp, ignore);
244 etraci("exp2x p1", p1, vp);
245 while (**vp && eq(**vp, STRor)) {
248 (*vp)++;
250 exp2x(vp, ignore) :
251 exp2a(vp, ignore);
252 etraci("exp2x p2", p2, vp);
255 etraci("exp2x p1", p1, vp);
263 exp2a(Char ***vp, int ignore)
265 tcsh_number_t p1 = exp2b(vp, ignore);
267 etraci("exp2a p1", p1, vp);
268 while (**vp && eq(**vp, STRcaret)) {
271 (*vp)++;
273 exp2a(vp, ignore) :
274 exp2b(vp, ignore);
275 etraci("exp2a p2", p2, vp);
278 etraci("exp2a p1", p1, vp);
286 exp2b(Char ***vp, int ignore)
288 tcsh_number_t p1 = exp2c(vp, ignore);
290 etraci("exp2b p1", p1, vp);
291 while (**vp && eq(**vp, STRand)) {
294 (*vp)++;
296 exp2b(vp, ignore) :
297 exp2c(vp, ignore);
298 etraci("exp2b p2", p2, vp);
301 etraci("exp2b p1", p1, vp);
309 exp2c(Char ***vp, int ignore)
311 Char *p1 = exp3(vp, ignore);
316 etracc("exp2c p1", p1, vp);
317 if ((i = isa(**vp, EQOP)) != 0) {
318 (*vp)++;
321 p2 = exp3(vp, ignore);
323 etracc("exp2c p2", p2, vp);
352 exp3(Char ***vp, int ignore)
357 p1 = exp3a(vp, ignore);
358 etracc("exp3 p1", p1, vp);
359 while ((i = isa(**vp, RELOP)) != 0) {
360 (*vp)++;
361 if (**vp && eq(**vp, STRequal))
362 i |= 1, (*vp)++;
365 exp3(vp, ignore) :
366 exp3a(vp, ignore);
368 etracc("exp3 p2", p2, vp);
390 etracc("exp3 p1", p1, vp);
398 exp3a(Char ***vp, int ignore)
404 p1 = exp4(vp, ignore);
405 etracc("exp3a p1", p1, vp);
406 op = **vp;
408 (*vp)++;
411 exp3a(vp, ignore) :
412 exp4(vp, ignore);
414 etracc("exp3a p2", p2, vp);
421 etracc("exp3a p1", p1, vp);
427 exp4(Char ***vp, int ignore)
432 p1 = exp5(vp, ignore);
433 etracc("exp4 p1", p1, vp);
434 while (isa(**vp, ADDOP)) {
435 const Char *op = *(*vp)++;
439 exp4(vp, ignore) :
440 exp5(vp, ignore);
442 etracc("exp4 p2", p2, vp);
456 etracc("exp4 p1", p1, vp);
464 exp5(Char ***vp, int ignore)
469 p1 = exp6(vp, ignore);
470 etracc("exp5 p1", p1, vp);
472 while (isa(**vp, MULOP)) {
473 const Char *op = *(*vp)++;
485 exp5(vp, ignore) :
486 exp6(vp, ignore);
488 etracc("exp5 p2", p2, vp);
512 etracc("exp5 p1", p1, vp);
520 exp6(Char ***vp, int ignore)
526 if (**vp == 0)
528 if (eq(**vp, STRbang)) {
529 (*vp)++;
530 cp = exp6(vp, ignore);
532 etracc("exp6 ! cp", cp, vp);
537 if (eq(**vp, STRtilde)) {
538 (*vp)++;
539 cp = exp6(vp, ignore);
541 etracc("exp6 ~ cp", cp, vp);
546 if (eq(**vp, STRLparen)) {
547 (*vp)++;
548 ccode = exp0(vp, ignore);
549 etraci("exp6 () ccode", ccode, vp);
550 if (**vp == 0 || ***vp != ')')
552 (*vp)++;
555 if (eq(**vp, STRLbrace)) {
566 (*vp)++;
567 v = *vp;
569 if (!**vp)
571 if (eq(*(*vp)++, STRRbrace))
579 *--(*vp) = 0;
585 etraci("exp6 {} status", egetn(varval(STRstatus)), vp);
588 if (isa(**vp, ANYOP))
590 cp = *(*vp)++;
598 return(filetest(cp, vp, ignore));
599 etracc("exp6 default", cp, vp);
609 filetest(Char *cp, Char ***vp, int ignore)
677 if (isa(**vp, ANYOP) && TCSH_STAT(short2str(**vp), &stb))
680 dp = *(*vp)++;
942 etraci("exp6 -? i", i, vp);
1040 etraci(const char *str, tcsh_number_t i, Char ***vp)
1047 blkpr(*vp);
1051 etracc(const char *str, const Char *cp, Char ***vp)
1054 blkpr(*vp);