contrib/tcsh/sh.exp.c

196     tcsh_number_t p1 = exp1(vp, ignore);
198     etraci("exp0 p1", p1, vp);
205 	    exp0(vp, (ignore & TEXP_IGNORE) || p1) :
206 	    exp1(vp, (ignore & TEXP_IGNORE) || p1);
208 	    p1 = (p1 || p2);
209 	etraci("exp0 p1", p1, vp);
213     return (p1);
219     tcsh_number_t p1 = exp2x(vp, ignore);
221     etraci("exp1 p1", p1, vp);
227 	    exp1(vp, (ignore & TEXP_IGNORE) || !p1) :
228 	    exp2x(vp, (ignore & TEXP_IGNORE) || !p1);
232 	    p1 = (p1 && p2);
233 	etraci("exp1 p1", p1, vp);
237     return (p1);
243     tcsh_number_t p1 = exp2a(vp, ignore);
245     etraci("exp2x p1", p1, vp);
255 		p1 = (p1 | p2);
256 	etraci("exp2x p1", p1, vp);
260     return (p1);
266     tcsh_number_t p1 = exp2b(vp, ignore);
268     etraci("exp2a p1", p1, vp);
278 	    p1 = (p1 ^ p2);
279 	etraci("exp2a p1", p1, vp);
283     return (p1);
289     tcsh_number_t p1 = exp2c(vp, ignore);
291     etraci("exp2b p1", p1, vp);
301 	    p1 = (p1 & p2);
302 	etraci("exp2b p1", p1, vp);
306     return (p1);
312     Char *p1 = exp3(vp, ignore);
316     cleanup_push(p1, xfree);
317     etracc("exp2c p1", p1, vp);
329 		i = eq(p1, p2);
333 		i = !eq(p1, p2);
337 		i = Gmatch(p1, p2);
341 		i = !Gmatch(p1, p2);
344 	cleanup_until(p1);
347     i = egetn(p1);
348     cleanup_until(p1);
355     Char *p1, *p2;
358     p1 = exp3a(vp, ignore);
359     etracc("exp3 p1", p1, vp);
364 	cleanup_push(p1, xfree);
374 		i = egetn(p1) > egetn(p2);
378 		i = egetn(p1) >= egetn(p2);
382 		i = egetn(p1) < egetn(p2);
386 		i = egetn(p1) <= egetn(p2);
389 	cleanup_until(p1);
390 	p1 = putn(i);
391 	etracc("exp3 p1", p1, vp);
395     return (p1);
401     Char *p1, *p2;
405     p1 = exp4(vp, ignore);
406     etracc("exp3a p1", p1, vp);
410 	cleanup_push(p1, xfree);
417 	    i = egetn(p1) << egetn(p2);
419 	    i = egetn(p1) >> egetn(p2);
420 	cleanup_until(p1);
421 	p1 = putn(i);
422 	etracc("exp3a p1", p1, vp);
424     return (p1);
430     Char *p1, *p2;
433     p1 = exp5(vp, ignore);
434     etracc("exp4 p1", p1, vp);
438 	cleanup_push(p1, xfree);
448 		i = egetn(p1) + egetn(p2);
452 		i = egetn(p1) - egetn(p2);
455 	cleanup_until(p1);
456 	p1 = putn(i);
457 	etracc("exp4 p1", p1, vp);
461     return (p1);
467     Char *p1, *p2;
470     p1 = exp6(vp, ignore);
471     etracc("exp5 p1", p1, vp);
480 	    xfree(p1);
484 	cleanup_push(p1, xfree);
494 		i = egetn(p1) * egetn(p2);
501 		i = egetn(p1) / i;
508 		i = egetn(p1) % i;
511 	cleanup_until(p1);
512 	p1 = putn(i);
513 	etracc("exp5 p1", p1, vp);
517     return (p1);