7 * -A file exists and is append-only
8 * -L file exists and is exclusive-use
9 * -T file exists and is temporary
15 #define EQ(a,b) ((tmp=a)==0?0:(strcmp(tmp,b)==0))
22 void synbad(char *, char *);
27 int isint(char *, int *);
28 int isolder(char *, char *);
29 int isolderthan(char *, char *);
30 int isnewerthan(char *, char *);
31 int hasmode(char *, ulong);
33 int e(void), e1(void), e2(void), e3(void);
37 main(int argc, char *argv[])
42 ac = argc; av = argv; ap = 1;
44 if(!EQ(argv[--ac],"]"))
45 synbad("] missing","");
52 * nice idea but short-circuit -o and -a operators may have
53 * not consumed their right-hand sides.
55 if(0 && (c = nxtarg(1)) != nil)
56 synbad("unexpected operator/operand: ", c);
68 synbad("argument expected","");
76 if(ap<ac && isint(av[ap], pans)){
89 if (EQ(nxtarg(1), "-o"))
101 if (EQ(nxtarg(1), "-a"))
110 if (EQ(nxtarg(0), "!"))
125 if(!EQ(nxtarg(0), ")"))
126 synbad(") expected","");
131 return(hasmode(nxtarg(0), DMAPPEND));
134 return(hasmode(nxtarg(0), DMEXCL));
137 return(hasmode(nxtarg(0), DMTMP));
140 return(isreg(nxtarg(0)));
143 return(isdir(nxtarg(0)));
146 return(tio(nxtarg(0), AREAD));
149 return(tio(nxtarg(0), AWRITE));
152 return(tio(nxtarg(0), AEXEC));
155 return(tio(nxtarg(0), AEXIST));
170 return(fsizep(nxtarg(0)));
175 else if(nxtintarg(&int1))
176 return(isatty(int1));
178 synbad("not a valid file descriptor number ", "");
181 return(!EQ(nxtarg(0), ""));
183 return(EQ(nxtarg(0), ""));
189 return(EQ(nxtarg(0), a));
192 return(!EQ(nxtarg(0), a));
195 return(isolder(nxtarg(0), a));
198 return(isolderthan(nxtarg(0), a));
201 return(isnewerthan(nxtarg(0), a));
204 synbad("unexpected operator/operand: ", p2);
206 if(nxtintarg(&int2)){
221 synbad("unknown operator ",p2);
222 return 0; /* to shut ken up */
228 return access (a, f) >= 0;
232 * note that the name strings pointed to by Dir members are
233 * allocated with the Dir itself (by the same call to malloc),
234 * but are not included in sizeof(Dir), so copying a Dir won't
235 * copy the strings it points to.
239 hasmode(char *f, ulong m)
247 r = (dir->mode & m) != 0;
255 return hasmode(f, DMDIR);
267 r = (dir->mode & DMDIR) == 0;
279 d2 = dirstat("/dev/cons");
280 if (d1 == nil || d2 == nil)
283 r = d1->type == d2->type && d1->dev == d2->dev &&
284 d1->qid.path == d2->qid.path;
305 synbad(char *s1, char *s2)
309 write(2, "test: ", 6);
310 if ((len = strlen(s1)) != 0)
312 if ((len = strlen(s2)) != 0)
319 isint(char *s, int *pans)
323 *pans = strtol(s, &ep, 0);
328 isolder(char *pin, char *f)
343 m = strtoul(p, &p, 0);
369 synbad("bad time syntax, ", pin);
381 isolderthan(char *a, char *b)
388 if (ad == nil || bd == nil)
391 r = ad->mtime > bd->mtime;
398 isnewerthan(char *a, char *b)
405 if (ad == nil || bd == nil)
408 r = ad->mtime < bd->mtime;