contrib/tcsh/sh.exp.c

195     tcsh_number_t p1 = exp1(vp, ignore);
197     etraci("exp0 p1", p1, vp);
204 	    exp0(vp, (ignore & TEXP_IGNORE) || p1) :
205 	    exp1(vp, (ignore & TEXP_IGNORE) || p1);
207 	    p1 = (p1 || p2);
208 	etraci("exp0 p1", p1, vp);
212     return (p1);
218     tcsh_number_t p1 = exp2x(vp, ignore);
220     etraci("exp1 p1", p1, vp);
226 	    exp1(vp, (ignore & TEXP_IGNORE) || !p1) :
227 	    exp2x(vp, (ignore & TEXP_IGNORE) || !p1);
231 	    p1 = (p1 && p2);
232 	etraci("exp1 p1", p1, vp);
236     return (p1);
242     tcsh_number_t p1 = exp2a(vp, ignore);
244     etraci("exp2x p1", p1, vp);
254 		p1 = (p1 | p2);
255 	etraci("exp2x p1", p1, vp);
259     return (p1);
265     tcsh_number_t p1 = exp2b(vp, ignore);
267     etraci("exp2a p1", p1, vp);
277 	    p1 = (p1 ^ p2);
278 	etraci("exp2a p1", p1, vp);
282     return (p1);
288     tcsh_number_t p1 = exp2c(vp, ignore);
290     etraci("exp2b p1", p1, vp);
300 	    p1 = (p1 & p2);
301 	etraci("exp2b p1", p1, vp);
305     return (p1);
311     Char *p1 = exp3(vp, ignore);
315     cleanup_push(p1, xfree);
316     etracc("exp2c p1", p1, vp);
328 		i = eq(p1, p2);
332 		i = !eq(p1, p2);
336 		i = Gmatch(p1, p2);
340 		i = !Gmatch(p1, p2);
343 	cleanup_until(p1);
346     i = egetn(p1);
347     cleanup_until(p1);
354     Char *p1, *p2;
357     p1 = exp3a(vp, ignore);
358     etracc("exp3 p1", p1, vp);
363 	cleanup_push(p1, xfree);
373 		i = egetn(p1) > egetn(p2);
377 		i = egetn(p1) >= egetn(p2);
381 		i = egetn(p1) < egetn(p2);
385 		i = egetn(p1) <= egetn(p2);
388 	cleanup_until(p1);
389 	p1 = putn(i);
390 	etracc("exp3 p1", p1, vp);
394     return (p1);
400     Char *p1, *p2;
404     p1 = exp4(vp, ignore);
405     etracc("exp3a p1", p1, vp);
409 	cleanup_push(p1, xfree);
416 	    i = egetn(p1) << egetn(p2);
418 	    i = egetn(p1) >> egetn(p2);
419 	cleanup_until(p1);
420 	p1 = putn(i);
421 	etracc("exp3a p1", p1, vp);
423     return (p1);
429     Char *p1, *p2;
432     p1 = exp5(vp, ignore);
433     etracc("exp4 p1", p1, vp);
437 	cleanup_push(p1, xfree);
447 		i = egetn(p1) + egetn(p2);
451 		i = egetn(p1) - egetn(p2);
454 	cleanup_until(p1);
455 	p1 = putn(i);
456 	etracc("exp4 p1", p1, vp);
460     return (p1);
466     Char *p1, *p2;
469     p1 = exp6(vp, ignore);
470     etracc("exp5 p1", p1, vp);
479 	    xfree(p1);
483 	cleanup_push(p1, xfree);
493 		i = egetn(p1) * egetn(p2);
500 		i = egetn(p1) / i;
507 		i = egetn(p1) % i;
510 	cleanup_until(p1);
511 	p1 = putn(i);
512 	etracc("exp5 p1", p1, vp);
516     return (p1);