Lines Matching +full:1 +full:p1
11 * 1. Redistributions of source code must retain the above copyright
39 #define TEXP_IGNORE 1 /* in ignore, it means to ignore value, just parse */
42 #define ADDOP 1
49 #define EQEQ 1
92 return 1; in sh_access()
113 if (stat(name, &statb) == -1) in sh_access()
114 return 1; in sh_access()
151 * 1) sysconf(_SC_NGROUPS_MAX) in sh_access()
157 if ((n = sysconf(_SC_NGROUPS_MAX)) == -1) in sh_access()
179 return 1; in sh_access()
192 tcsh_number_t p1 = exp1(vp, ignore); in exp0() local
194 etraci("exp0 p1", p1, vp); in exp0()
201 exp0(vp, (ignore & TEXP_IGNORE) || p1) : in exp0()
202 exp1(vp, (ignore & TEXP_IGNORE) || p1); in exp0()
204 p1 = (p1 || p2); in exp0()
205 etraci("exp0 p1", p1, vp); in exp0()
209 return (p1); in exp0()
215 tcsh_number_t p1 = exp2x(vp, ignore); in exp1() local
217 etraci("exp1 p1", p1, vp); in exp1()
223 exp1(vp, (ignore & TEXP_IGNORE) || !p1) : in exp1()
224 exp2x(vp, (ignore & TEXP_IGNORE) || !p1); in exp1()
228 p1 = (p1 && p2); in exp1()
229 etraci("exp1 p1", p1, vp); in exp1()
233 return (p1); in exp1()
239 tcsh_number_t p1 = exp2a(vp, ignore); in exp2x() local
241 etraci("exp2x p1", p1, vp); in exp2x()
251 p1 = (p1 | p2); in exp2x()
252 etraci("exp2x p1", p1, vp); in exp2x()
256 return (p1); in exp2x()
262 tcsh_number_t p1 = exp2b(vp, ignore); in exp2a() local
264 etraci("exp2a p1", p1, vp); in exp2a()
274 p1 = (p1 ^ p2); in exp2a()
275 etraci("exp2a p1", p1, vp); in exp2a()
279 return (p1); in exp2a()
285 tcsh_number_t p1 = exp2c(vp, ignore); in exp2b() local
287 etraci("exp2b p1", p1, vp); in exp2b()
297 p1 = (p1 & p2); in exp2b()
298 etraci("exp2b p1", p1, vp); in exp2b()
302 return (p1); in exp2b()
308 Char *p1 = exp3(vp, ignore); in exp2c() local
312 cleanup_push(p1, xfree); in exp2c()
313 etracc("exp2c p1", p1, vp); in exp2c()
325 i = eq(p1, p2); in exp2c()
329 i = !eq(p1, p2); in exp2c()
333 i = Gmatch(p1, p2); in exp2c()
337 i = !Gmatch(p1, p2); in exp2c()
340 cleanup_until(p1); in exp2c()
343 i = egetn(p1); in exp2c()
344 cleanup_until(p1); in exp2c()
351 Char *p1, *p2; in exp3() local
354 p1 = exp3a(vp, ignore); in exp3()
355 etracc("exp3 p1", p1, vp); in exp3()
359 i |= 1, (*vp)++; in exp3()
360 cleanup_push(p1, xfree); in exp3()
370 i = egetn(p1) > egetn(p2); in exp3()
373 case GTR | 1: in exp3()
374 i = egetn(p1) >= egetn(p2); in exp3()
378 i = egetn(p1) < egetn(p2); in exp3()
381 case LSS | 1: in exp3()
382 i = egetn(p1) <= egetn(p2); in exp3()
385 cleanup_until(p1); in exp3()
386 p1 = putn(i); in exp3()
387 etracc("exp3 p1", p1, vp); in exp3()
391 return (p1); in exp3()
397 Char *p1, *p2; in exp3a() local
401 p1 = exp4(vp, ignore); in exp3a()
402 etracc("exp3a p1", p1, vp); in exp3a()
404 if (op && any("<>", op[0]) && op[0] == op[1]) { in exp3a()
406 cleanup_push(p1, xfree); in exp3a()
413 i = egetn(p1) << egetn(p2); in exp3a()
415 i = egetn(p1) >> egetn(p2); in exp3a()
416 cleanup_until(p1); in exp3a()
417 p1 = putn(i); in exp3a()
418 etracc("exp3a p1", p1, vp); in exp3a()
420 return (p1); in exp3a()
426 Char *p1, *p2; in exp4() local
429 p1 = exp5(vp, ignore); in exp4()
430 etracc("exp4 p1", p1, vp); in exp4()
434 cleanup_push(p1, xfree); in exp4()
444 i = egetn(p1) + egetn(p2); in exp4()
448 i = egetn(p1) - egetn(p2); in exp4()
451 cleanup_until(p1); in exp4()
452 p1 = putn(i); in exp4()
453 etracc("exp4 p1", p1, vp); in exp4()
457 return (p1); in exp4()
463 Char *p1, *p2; in exp5() local
466 p1 = exp6(vp, ignore); in exp5()
467 etracc("exp5 p1", p1, vp); in exp5()
476 xfree(p1); in exp5()
480 cleanup_push(p1, xfree); in exp5()
490 i = egetn(p1) * egetn(p2); in exp5()
497 i = egetn(p1) / i; in exp5()
504 i = egetn(p1) % i; in exp5()
507 cleanup_until(p1); in exp5()
508 p1 = putn(i); in exp5()
509 etracc("exp5 p1", p1, vp); in exp5()
513 return (p1); in exp5()
562 fakecom[1] = NULL; in exp6()
575 if (pfork(&faket, -1) == 0) { in exp6()
594 if (*cp == '-' && (any(FILETESTS, cp[1]) || any(FILEVALS, cp[1]))) in exp6()
632 char *string, string0[22 + MB_LEN_MAX + 1]; /* space for 64 bit octal */ in filetest()
640 if (!*ft && *(ft - 1) == 'L') in filetest()
646 * Value tests return '-1' on failure as 0 is in filetest()
658 altout = 1; in filetest()
663 if (*ft || ft == cp + 1) in filetest()
682 ft = &cp[1]; in filetest()
717 if (TCSH_LSTAT(short2str(ep), lst) == -1) { in filetest()
732 if (TCSH_STAT(short2str(ep), st) == -1) { in filetest()
840 i = 1; in filetest()
871 if ( *(ft + 1) ) { in filetest()
872 i = 1; in filetest()
894 string = string0 + 1; in filetest()
895 (void) xsnprintf(string, sizeof(string0) - 1, "%o", in filetest()
956 struct wordent *new = xcalloc(1, sizeof *wdp); in evalav()
971 execute(t, -1, NULL, NULL, TRUE); in evalav()
982 if (cp[1] == 0) { in isa()
984 return (1); in isa()
986 return (1); in isa()
989 return (1); in isa()
993 if (cp[0] == '|' && cp[1] == '&') in isa()
994 return (1); in isa()
995 if (cp[0] == '<' && cp[1] == '<') in isa()
996 return (1); in isa()
997 if (cp[0] == '>' && cp[1] == '>') in isa()
998 return (1); in isa()
1002 if (cp[1] == '=') in isa()
1004 if (cp[1] == '~') in isa()
1008 if (cp[1] == '=') in isa()
1010 if (cp[1] == '~') in isa()