1 bc7cb1a1 2003-11-23 devnull /*
  2 bc7cb1a1 2003-11-23 devnull  * POSIX standard
  3 bc7cb1a1 2003-11-23 devnull  *	test expression
  4 bc7cb1a1 2003-11-23 devnull  *	[ expression ]
  5 bc7cb1a1 2003-11-23 devnull  *
  6 bc7cb1a1 2003-11-23 devnull  * Plan 9 additions:
  7 bc7cb1a1 2003-11-23 devnull  *	-A file exists and is append-only
  8 bc7cb1a1 2003-11-23 devnull  *	-L file exists and is exclusive-use
  9 e1ad38bf 2007-05-19 devnull  *	-T file exists and is temporary
 10 bc7cb1a1 2003-11-23 devnull  */
 11 bc7cb1a1 2003-11-23 devnull 
 12 bc7cb1a1 2003-11-23 devnull #include <u.h>
 13 bc7cb1a1 2003-11-23 devnull #include <libc.h>
 14 f9888587 2007-05-21 devnull 
 15 f9888587 2007-05-21 devnull #define isatty plan9_isatty
 16 e1ad38bf 2007-05-19 devnull 
 17 bc7cb1a1 2003-11-23 devnull #define EQ(a,b)	((tmp=a)==0?0:(strcmp(tmp,b)==0))
 18 bc7cb1a1 2003-11-23 devnull 
 19 bc7cb1a1 2003-11-23 devnull int	ap;
 20 bc7cb1a1 2003-11-23 devnull int	ac;
 21 bc7cb1a1 2003-11-23 devnull char	**av;
 22 bc7cb1a1 2003-11-23 devnull char	*tmp;
 23 bc7cb1a1 2003-11-23 devnull 
 24 bc7cb1a1 2003-11-23 devnull void	synbad(char *, char *);
 25 bc7cb1a1 2003-11-23 devnull int	fsizep(char *);
 26 bc7cb1a1 2003-11-23 devnull int	isdir(char *);
 27 bc7cb1a1 2003-11-23 devnull int	isreg(char *);
 28 e1ad38bf 2007-05-19 devnull int	isatty(int);
 29 bc7cb1a1 2003-11-23 devnull int	isint(char *, int *);
 30 e1ad38bf 2007-05-19 devnull int	isolder(char *, char *);
 31 e1ad38bf 2007-05-19 devnull int	isolderthan(char *, char *);
 32 e1ad38bf 2007-05-19 devnull int	isnewerthan(char *, char *);
 33 bc7cb1a1 2003-11-23 devnull int	hasmode(char *, ulong);
 34 bc7cb1a1 2003-11-23 devnull int	tio(char *, int);
 35 bc7cb1a1 2003-11-23 devnull int	e(void), e1(void), e2(void), e3(void);
 36 e1ad38bf 2007-05-19 devnull char	*nxtarg(int);
 37 bc7cb1a1 2003-11-23 devnull 
 38 bc7cb1a1 2003-11-23 devnull void
 39 bc7cb1a1 2003-11-23 devnull main(int argc, char *argv[])
 40 bc7cb1a1 2003-11-23 devnull {
 41 e1ad38bf 2007-05-19 devnull 	int r;
 42 e1ad38bf 2007-05-19 devnull 	char *c;
 43 bc7cb1a1 2003-11-23 devnull 
 44 bc7cb1a1 2003-11-23 devnull 	ac = argc; av = argv; ap = 1;
 45 bc7cb1a1 2003-11-23 devnull 	if(EQ(argv[0],"[")) {
 46 bc7cb1a1 2003-11-23 devnull 		if(!EQ(argv[--ac],"]"))
 47 bc7cb1a1 2003-11-23 devnull 			synbad("] missing","");
 48 bc7cb1a1 2003-11-23 devnull 	}
 49 bc7cb1a1 2003-11-23 devnull 	argv[ac] = 0;
 50 e1ad38bf 2007-05-19 devnull 	if (ac<=1)
 51 e1ad38bf 2007-05-19 devnull 		exits("usage");
 52 e1ad38bf 2007-05-19 devnull 	r = e();
 53 e1ad38bf 2007-05-19 devnull 	/*
 54 e1ad38bf 2007-05-19 devnull 	 * nice idea but short-circuit -o and -a operators may have
 55 e1ad38bf 2007-05-19 devnull 	 * not consumed their right-hand sides.
 56 e1ad38bf 2007-05-19 devnull 	 */
 57 e1ad38bf 2007-05-19 devnull 	if(0 && (c = nxtarg(1)) != nil)
 58 e1ad38bf 2007-05-19 devnull 		synbad("unexpected operator/operand: ", c);
 59 e1ad38bf 2007-05-19 devnull 	exits(r?0:"false");
 60 bc7cb1a1 2003-11-23 devnull }
 61 bc7cb1a1 2003-11-23 devnull 
 62 bc7cb1a1 2003-11-23 devnull char *
 63 bc7cb1a1 2003-11-23 devnull nxtarg(int mt)
 64 bc7cb1a1 2003-11-23 devnull {
 65 bc7cb1a1 2003-11-23 devnull 	if(ap>=ac){
 66 bc7cb1a1 2003-11-23 devnull 		if(mt){
 67 bc7cb1a1 2003-11-23 devnull 			ap++;
 68 bc7cb1a1 2003-11-23 devnull 			return(0);
 69 bc7cb1a1 2003-11-23 devnull 		}
 70 bc7cb1a1 2003-11-23 devnull 		synbad("argument expected","");
 71 bc7cb1a1 2003-11-23 devnull 	}
 72 bc7cb1a1 2003-11-23 devnull 	return(av[ap++]);
 73 bc7cb1a1 2003-11-23 devnull }
 74 bc7cb1a1 2003-11-23 devnull 
 75 bc7cb1a1 2003-11-23 devnull int
 76 bc7cb1a1 2003-11-23 devnull nxtintarg(int *pans)
 77 bc7cb1a1 2003-11-23 devnull {
 78 bc7cb1a1 2003-11-23 devnull 	if(ap<ac && isint(av[ap], pans)){
 79 bc7cb1a1 2003-11-23 devnull 		ap++;
 80 bc7cb1a1 2003-11-23 devnull 		return 1;
 81 bc7cb1a1 2003-11-23 devnull 	}
 82 bc7cb1a1 2003-11-23 devnull 	return 0;
 83 bc7cb1a1 2003-11-23 devnull }
 84 bc7cb1a1 2003-11-23 devnull 
 85 bc7cb1a1 2003-11-23 devnull int
 86 e1ad38bf 2007-05-19 devnull e(void)
 87 e1ad38bf 2007-05-19 devnull {
 88 bc7cb1a1 2003-11-23 devnull 	int p1;
 89 bc7cb1a1 2003-11-23 devnull 
 90 bc7cb1a1 2003-11-23 devnull 	p1 = e1();
 91 e1ad38bf 2007-05-19 devnull 	if (EQ(nxtarg(1), "-o"))
 92 e1ad38bf 2007-05-19 devnull 		return(p1 || e());
 93 bc7cb1a1 2003-11-23 devnull 	ap--;
 94 bc7cb1a1 2003-11-23 devnull 	return(p1);
 95 bc7cb1a1 2003-11-23 devnull }
 96 bc7cb1a1 2003-11-23 devnull 
 97 bc7cb1a1 2003-11-23 devnull int
 98 e1ad38bf 2007-05-19 devnull e1(void)
 99 e1ad38bf 2007-05-19 devnull {
100 bc7cb1a1 2003-11-23 devnull 	int p1;
101 bc7cb1a1 2003-11-23 devnull 
102 bc7cb1a1 2003-11-23 devnull 	p1 = e2();
103 e1ad38bf 2007-05-19 devnull 	if (EQ(nxtarg(1), "-a"))
104 e1ad38bf 2007-05-19 devnull 		return (p1 && e1());
105 bc7cb1a1 2003-11-23 devnull 	ap--;
106 bc7cb1a1 2003-11-23 devnull 	return(p1);
107 bc7cb1a1 2003-11-23 devnull }
108 bc7cb1a1 2003-11-23 devnull 
109 bc7cb1a1 2003-11-23 devnull int
110 e1ad38bf 2007-05-19 devnull e2(void)
111 e1ad38bf 2007-05-19 devnull {
112 bc7cb1a1 2003-11-23 devnull 	if (EQ(nxtarg(0), "!"))
113 bc7cb1a1 2003-11-23 devnull 		return(!e2());
114 bc7cb1a1 2003-11-23 devnull 	ap--;
115 bc7cb1a1 2003-11-23 devnull 	return(e3());
116 bc7cb1a1 2003-11-23 devnull }
117 bc7cb1a1 2003-11-23 devnull 
118 bc7cb1a1 2003-11-23 devnull int
119 e1ad38bf 2007-05-19 devnull e3(void)
120 e1ad38bf 2007-05-19 devnull {
121 e1ad38bf 2007-05-19 devnull 	int p1, int1, int2;
122 e1ad38bf 2007-05-19 devnull 	char *a, *p2;
123 bc7cb1a1 2003-11-23 devnull 
124 bc7cb1a1 2003-11-23 devnull 	a = nxtarg(0);
125 bc7cb1a1 2003-11-23 devnull 	if(EQ(a, "(")) {
126 bc7cb1a1 2003-11-23 devnull 		p1 = e();
127 e1ad38bf 2007-05-19 devnull 		if(!EQ(nxtarg(0), ")"))
128 e1ad38bf 2007-05-19 devnull 			synbad(") expected","");
129 bc7cb1a1 2003-11-23 devnull 		return(p1);
130 bc7cb1a1 2003-11-23 devnull 	}
131 bc7cb1a1 2003-11-23 devnull 
132 bc7cb1a1 2003-11-23 devnull 	if(EQ(a, "-A"))
133 bc7cb1a1 2003-11-23 devnull 		return(hasmode(nxtarg(0), DMAPPEND));
134 bc7cb1a1 2003-11-23 devnull 
135 bc7cb1a1 2003-11-23 devnull 	if(EQ(a, "-L"))
136 bc7cb1a1 2003-11-23 devnull 		return(hasmode(nxtarg(0), DMEXCL));
137 bc7cb1a1 2003-11-23 devnull 
138 e1ad38bf 2007-05-19 devnull 	if(EQ(a, "-T"))
139 e1ad38bf 2007-05-19 devnull 		return(hasmode(nxtarg(0), DMTMP));
140 e1ad38bf 2007-05-19 devnull 
141 bc7cb1a1 2003-11-23 devnull 	if(EQ(a, "-f"))
142 bc7cb1a1 2003-11-23 devnull 		return(isreg(nxtarg(0)));
143 bc7cb1a1 2003-11-23 devnull 
144 bc7cb1a1 2003-11-23 devnull 	if(EQ(a, "-d"))
145 bc7cb1a1 2003-11-23 devnull 		return(isdir(nxtarg(0)));
146 bc7cb1a1 2003-11-23 devnull 
147 bc7cb1a1 2003-11-23 devnull 	if(EQ(a, "-r"))
148 bc7cb1a1 2003-11-23 devnull 		return(tio(nxtarg(0), 4));
149 bc7cb1a1 2003-11-23 devnull 
150 bc7cb1a1 2003-11-23 devnull 	if(EQ(a, "-w"))
151 bc7cb1a1 2003-11-23 devnull 		return(tio(nxtarg(0), 2));
152 bc7cb1a1 2003-11-23 devnull 
153 bc7cb1a1 2003-11-23 devnull 	if(EQ(a, "-x"))
154 bc7cb1a1 2003-11-23 devnull 		return(tio(nxtarg(0), 1));
155 bc7cb1a1 2003-11-23 devnull 
156 bc7cb1a1 2003-11-23 devnull 	if(EQ(a, "-e"))
157 bc7cb1a1 2003-11-23 devnull 		return(tio(nxtarg(0), 0));
158 bc7cb1a1 2003-11-23 devnull 
159 bc7cb1a1 2003-11-23 devnull 	if(EQ(a, "-c"))
160 bc7cb1a1 2003-11-23 devnull 		return(0);
161 bc7cb1a1 2003-11-23 devnull 
162 bc7cb1a1 2003-11-23 devnull 	if(EQ(a, "-b"))
163 bc7cb1a1 2003-11-23 devnull 		return(0);
164 bc7cb1a1 2003-11-23 devnull 
165 bc7cb1a1 2003-11-23 devnull 	if(EQ(a, "-u"))
166 bc7cb1a1 2003-11-23 devnull 		return(0);
167 bc7cb1a1 2003-11-23 devnull 
168 bc7cb1a1 2003-11-23 devnull 	if(EQ(a, "-g"))
169 bc7cb1a1 2003-11-23 devnull 		return(0);
170 bc7cb1a1 2003-11-23 devnull 
171 bc7cb1a1 2003-11-23 devnull 	if(EQ(a, "-s"))
172 bc7cb1a1 2003-11-23 devnull 		return(fsizep(nxtarg(0)));
173 bc7cb1a1 2003-11-23 devnull 
174 bc7cb1a1 2003-11-23 devnull 	if(EQ(a, "-t"))
175 e1ad38bf 2007-05-19 devnull 		if(ap>=ac)
176 bc7cb1a1 2003-11-23 devnull 			return(isatty(1));
177 e1ad38bf 2007-05-19 devnull 		else if(nxtintarg(&int1))
178 bc7cb1a1 2003-11-23 devnull 			return(isatty(int1));
179 e1ad38bf 2007-05-19 devnull 		else
180 e1ad38bf 2007-05-19 devnull 			synbad("not a valid file descriptor number ", "");
181 bc7cb1a1 2003-11-23 devnull 
182 bc7cb1a1 2003-11-23 devnull 	if(EQ(a, "-n"))
183 bc7cb1a1 2003-11-23 devnull 		return(!EQ(nxtarg(0), ""));
184 bc7cb1a1 2003-11-23 devnull 	if(EQ(a, "-z"))
185 bc7cb1a1 2003-11-23 devnull 		return(EQ(nxtarg(0), ""));
186 bc7cb1a1 2003-11-23 devnull 
187 bc7cb1a1 2003-11-23 devnull 	p2 = nxtarg(1);
188 bc7cb1a1 2003-11-23 devnull 	if (p2==0)
189 bc7cb1a1 2003-11-23 devnull 		return(!EQ(a,""));
190 bc7cb1a1 2003-11-23 devnull 	if(EQ(p2, "="))
191 bc7cb1a1 2003-11-23 devnull 		return(EQ(nxtarg(0), a));
192 bc7cb1a1 2003-11-23 devnull 
193 bc7cb1a1 2003-11-23 devnull 	if(EQ(p2, "!="))
194 bc7cb1a1 2003-11-23 devnull 		return(!EQ(nxtarg(0), a));
195 bc7cb1a1 2003-11-23 devnull 
196 e1ad38bf 2007-05-19 devnull 	if(EQ(p2, "-older"))
197 e1ad38bf 2007-05-19 devnull 		return(isolder(nxtarg(0), a));
198 e1ad38bf 2007-05-19 devnull 
199 e1ad38bf 2007-05-19 devnull 	if(EQ(p2, "-ot"))
200 e1ad38bf 2007-05-19 devnull 		return(isolderthan(nxtarg(0), a));
201 e1ad38bf 2007-05-19 devnull 
202 e1ad38bf 2007-05-19 devnull 	if(EQ(p2, "-nt"))
203 e1ad38bf 2007-05-19 devnull 		return(isnewerthan(nxtarg(0), a));
204 e1ad38bf 2007-05-19 devnull 
205 bc7cb1a1 2003-11-23 devnull 	if(!isint(a, &int1))
206 e1ad38bf 2007-05-19 devnull 		synbad("unexpected operator/operand: ", p2);
207 bc7cb1a1 2003-11-23 devnull 
208 bc7cb1a1 2003-11-23 devnull 	if(nxtintarg(&int2)){
209 bc7cb1a1 2003-11-23 devnull 		if(EQ(p2, "-eq"))
210 bc7cb1a1 2003-11-23 devnull 			return(int1==int2);
211 bc7cb1a1 2003-11-23 devnull 		if(EQ(p2, "-ne"))
212 bc7cb1a1 2003-11-23 devnull 			return(int1!=int2);
213 bc7cb1a1 2003-11-23 devnull 		if(EQ(p2, "-gt"))
214 bc7cb1a1 2003-11-23 devnull 			return(int1>int2);
215 bc7cb1a1 2003-11-23 devnull 		if(EQ(p2, "-lt"))
216 bc7cb1a1 2003-11-23 devnull 			return(int1<int2);
217 bc7cb1a1 2003-11-23 devnull 		if(EQ(p2, "-ge"))
218 bc7cb1a1 2003-11-23 devnull 			return(int1>=int2);
219 bc7cb1a1 2003-11-23 devnull 		if(EQ(p2, "-le"))
220 bc7cb1a1 2003-11-23 devnull 			return(int1<=int2);
221 bc7cb1a1 2003-11-23 devnull 	}
222 bc7cb1a1 2003-11-23 devnull 
223 bc7cb1a1 2003-11-23 devnull 	synbad("unknown operator ",p2);
224 bc7cb1a1 2003-11-23 devnull 	return 0;		/* to shut ken up */
225 bc7cb1a1 2003-11-23 devnull }
226 bc7cb1a1 2003-11-23 devnull 
227 bc7cb1a1 2003-11-23 devnull int
228 bc7cb1a1 2003-11-23 devnull tio(char *a, int f)
229 bc7cb1a1 2003-11-23 devnull {
230 bc7cb1a1 2003-11-23 devnull 	return access (a, f) >= 0;
231 bc7cb1a1 2003-11-23 devnull }
232 bc7cb1a1 2003-11-23 devnull 
233 bc7cb1a1 2003-11-23 devnull /* copy to local memory; clear names for safety */
234 bc7cb1a1 2003-11-23 devnull int
235 bc7cb1a1 2003-11-23 devnull localstat(char *f, Dir *dir)
236 bc7cb1a1 2003-11-23 devnull {
237 bc7cb1a1 2003-11-23 devnull 	Dir *d;
238 bc7cb1a1 2003-11-23 devnull 
239 bc7cb1a1 2003-11-23 devnull 	d = dirstat(f);
240 e1ad38bf 2007-05-19 devnull 	if(d == nil)
241 bc7cb1a1 2003-11-23 devnull 		return(-1);
242 bc7cb1a1 2003-11-23 devnull 	*dir = *d;
243 e1ad38bf 2007-05-19 devnull 	free(d);
244 bc7cb1a1 2003-11-23 devnull 	dir->name = 0;
245 bc7cb1a1 2003-11-23 devnull 	dir->uid = 0;
246 bc7cb1a1 2003-11-23 devnull 	dir->gid = 0;
247 bc7cb1a1 2003-11-23 devnull 	dir->muid = 0;
248 bc7cb1a1 2003-11-23 devnull 	return 0;
249 bc7cb1a1 2003-11-23 devnull }
250 bc7cb1a1 2003-11-23 devnull 
251 bc7cb1a1 2003-11-23 devnull /* copy to local memory; clear names for safety */
252 bc7cb1a1 2003-11-23 devnull int
253 bc7cb1a1 2003-11-23 devnull localfstat(int f, Dir *dir)
254 bc7cb1a1 2003-11-23 devnull {
255 bc7cb1a1 2003-11-23 devnull 	Dir *d;
256 bc7cb1a1 2003-11-23 devnull 
257 bc7cb1a1 2003-11-23 devnull 	d = dirfstat(f);
258 e1ad38bf 2007-05-19 devnull 	if(d == nil)
259 bc7cb1a1 2003-11-23 devnull 		return(-1);
260 bc7cb1a1 2003-11-23 devnull 	*dir = *d;
261 e1ad38bf 2007-05-19 devnull 	free(d);
262 bc7cb1a1 2003-11-23 devnull 	dir->name = 0;
263 bc7cb1a1 2003-11-23 devnull 	dir->uid = 0;
264 bc7cb1a1 2003-11-23 devnull 	dir->gid = 0;
265 bc7cb1a1 2003-11-23 devnull 	dir->muid = 0;
266 bc7cb1a1 2003-11-23 devnull 	return 0;
267 bc7cb1a1 2003-11-23 devnull }
268 bc7cb1a1 2003-11-23 devnull 
269 bc7cb1a1 2003-11-23 devnull int
270 bc7cb1a1 2003-11-23 devnull hasmode(char *f, ulong m)
271 bc7cb1a1 2003-11-23 devnull {
272 bc7cb1a1 2003-11-23 devnull 	Dir dir;
273 bc7cb1a1 2003-11-23 devnull 
274 bc7cb1a1 2003-11-23 devnull 	if(localstat(f,&dir)<0)
275 bc7cb1a1 2003-11-23 devnull 		return(0);
276 bc7cb1a1 2003-11-23 devnull 	return(dir.mode&m);
277 bc7cb1a1 2003-11-23 devnull }
278 bc7cb1a1 2003-11-23 devnull 
279 bc7cb1a1 2003-11-23 devnull int
280 bc7cb1a1 2003-11-23 devnull isdir(char *f)
281 bc7cb1a1 2003-11-23 devnull {
282 bc7cb1a1 2003-11-23 devnull 	Dir dir;
283 bc7cb1a1 2003-11-23 devnull 
284 bc7cb1a1 2003-11-23 devnull 	if(localstat(f,&dir)<0)
285 bc7cb1a1 2003-11-23 devnull 		return(0);
286 bc7cb1a1 2003-11-23 devnull 	return(dir.mode&DMDIR);
287 bc7cb1a1 2003-11-23 devnull }
288 bc7cb1a1 2003-11-23 devnull 
289 bc7cb1a1 2003-11-23 devnull int
290 bc7cb1a1 2003-11-23 devnull isreg(char *f)
291 bc7cb1a1 2003-11-23 devnull {
292 bc7cb1a1 2003-11-23 devnull 	Dir dir;
293 bc7cb1a1 2003-11-23 devnull 
294 bc7cb1a1 2003-11-23 devnull 	if(localstat(f,&dir)<0)
295 bc7cb1a1 2003-11-23 devnull 		return(0);
296 bc7cb1a1 2003-11-23 devnull 	return(!(dir.mode&DMDIR));
297 bc7cb1a1 2003-11-23 devnull }
298 bc7cb1a1 2003-11-23 devnull 
299 bc7cb1a1 2003-11-23 devnull int
300 e1ad38bf 2007-05-19 devnull isatty(int fd)
301 e1ad38bf 2007-05-19 devnull {
302 e1ad38bf 2007-05-19 devnull 	Dir d1, d2;
303 e1ad38bf 2007-05-19 devnull 
304 e1ad38bf 2007-05-19 devnull 	if(localfstat(fd, &d1) < 0)
305 e1ad38bf 2007-05-19 devnull 		return 0;
306 e1ad38bf 2007-05-19 devnull 	if(localstat("/dev/cons", &d2) < 0)
307 e1ad38bf 2007-05-19 devnull 		return 0;
308 e1ad38bf 2007-05-19 devnull 	return d1.type==d2.type && d1.dev==d2.dev && d1.qid.path==d2.qid.path;
309 e1ad38bf 2007-05-19 devnull }
310 e1ad38bf 2007-05-19 devnull 
311 e1ad38bf 2007-05-19 devnull int
312 bc7cb1a1 2003-11-23 devnull fsizep(char *f)
313 bc7cb1a1 2003-11-23 devnull {
314 bc7cb1a1 2003-11-23 devnull 	Dir dir;
315 bc7cb1a1 2003-11-23 devnull 
316 bc7cb1a1 2003-11-23 devnull 	if(localstat(f,&dir)<0)
317 bc7cb1a1 2003-11-23 devnull 		return(0);
318 bc7cb1a1 2003-11-23 devnull 	return(dir.length>0);
319 bc7cb1a1 2003-11-23 devnull }
320 bc7cb1a1 2003-11-23 devnull 
321 bc7cb1a1 2003-11-23 devnull void
322 bc7cb1a1 2003-11-23 devnull synbad(char *s1, char *s2)
323 bc7cb1a1 2003-11-23 devnull {
324 bc7cb1a1 2003-11-23 devnull 	int len;
325 bc7cb1a1 2003-11-23 devnull 
326 bc7cb1a1 2003-11-23 devnull 	write(2, "test: ", 6);
327 bc7cb1a1 2003-11-23 devnull 	if ((len = strlen(s1)) != 0)
328 bc7cb1a1 2003-11-23 devnull 		write(2, s1, len);
329 bc7cb1a1 2003-11-23 devnull 	if ((len = strlen(s2)) != 0)
330 bc7cb1a1 2003-11-23 devnull 		write(2, s2, len);
331 bc7cb1a1 2003-11-23 devnull 	write(2, "\n", 1);
332 bc7cb1a1 2003-11-23 devnull 	exits("bad syntax");
333 bc7cb1a1 2003-11-23 devnull }
334 bc7cb1a1 2003-11-23 devnull 
335 bc7cb1a1 2003-11-23 devnull int
336 bc7cb1a1 2003-11-23 devnull isint(char *s, int *pans)
337 bc7cb1a1 2003-11-23 devnull {
338 bc7cb1a1 2003-11-23 devnull 	char *ep;
339 bc7cb1a1 2003-11-23 devnull 
340 bc7cb1a1 2003-11-23 devnull 	*pans = strtol(s, &ep, 0);
341 bc7cb1a1 2003-11-23 devnull 	return (*ep == 0);
342 bc7cb1a1 2003-11-23 devnull }
343 e1ad38bf 2007-05-19 devnull 
344 e1ad38bf 2007-05-19 devnull int
345 e1ad38bf 2007-05-19 devnull isolder(char *pin, char *f)
346 e1ad38bf 2007-05-19 devnull {
347 e1ad38bf 2007-05-19 devnull 	char *p = pin;
348 e1ad38bf 2007-05-19 devnull 	ulong n, m;
349 e1ad38bf 2007-05-19 devnull 	Dir dir;
350 e1ad38bf 2007-05-19 devnull 
351 e1ad38bf 2007-05-19 devnull 	if(localstat(f,&dir)<0)
352 e1ad38bf 2007-05-19 devnull 		return(0);
353 e1ad38bf 2007-05-19 devnull 
354 e1ad38bf 2007-05-19 devnull 	/* parse time */
355 e1ad38bf 2007-05-19 devnull 	n = 0;
356 e1ad38bf 2007-05-19 devnull 	while(*p){
357 e1ad38bf 2007-05-19 devnull 		m = strtoul(p, &p, 0);
358 e1ad38bf 2007-05-19 devnull 		switch(*p){
359 e1ad38bf 2007-05-19 devnull 		case 0:
360 e1ad38bf 2007-05-19 devnull 			n = m;
361 e1ad38bf 2007-05-19 devnull 			break;
362 e1ad38bf 2007-05-19 devnull 		case 'y':
363 e1ad38bf 2007-05-19 devnull 			m *= 12;
364 e1ad38bf 2007-05-19 devnull 			/* fall through */
365 e1ad38bf 2007-05-19 devnull 		case 'M':
366 e1ad38bf 2007-05-19 devnull 			m *= 30;
367 e1ad38bf 2007-05-19 devnull 			/* fall through */
368 e1ad38bf 2007-05-19 devnull 		case 'd':
369 e1ad38bf 2007-05-19 devnull 			m *= 24;
370 e1ad38bf 2007-05-19 devnull 			/* fall through */
371 e1ad38bf 2007-05-19 devnull 		case 'h':
372 e1ad38bf 2007-05-19 devnull 			m *= 60;
373 e1ad38bf 2007-05-19 devnull 			/* fall through */
374 e1ad38bf 2007-05-19 devnull 		case 'm':
375 e1ad38bf 2007-05-19 devnull 			m *= 60;
376 e1ad38bf 2007-05-19 devnull 			/* fall through */
377 e1ad38bf 2007-05-19 devnull 		case 's':
378 e1ad38bf 2007-05-19 devnull 			n += m;
379 e1ad38bf 2007-05-19 devnull 			p++;
380 e1ad38bf 2007-05-19 devnull 			break;
381 e1ad38bf 2007-05-19 devnull 		default:
382 e1ad38bf 2007-05-19 devnull 			synbad("bad time syntax, ", pin);
383 e1ad38bf 2007-05-19 devnull 		}
384 e1ad38bf 2007-05-19 devnull 	}
385 e1ad38bf 2007-05-19 devnull 
386 e1ad38bf 2007-05-19 devnull 	return(dir.mtime+n < time(0));
387 e1ad38bf 2007-05-19 devnull }
388 e1ad38bf 2007-05-19 devnull 
389 e1ad38bf 2007-05-19 devnull int
390 e1ad38bf 2007-05-19 devnull isolderthan(char *a, char *b)
391 e1ad38bf 2007-05-19 devnull {
392 e1ad38bf 2007-05-19 devnull 	Dir ad, bd;
393 e1ad38bf 2007-05-19 devnull 
394 e1ad38bf 2007-05-19 devnull 	if(localstat(a, &ad)<0)
395 e1ad38bf 2007-05-19 devnull 		return(0);
396 e1ad38bf 2007-05-19 devnull 	if(localstat(b, &bd)<0)
397 e1ad38bf 2007-05-19 devnull 		return(0);
398 e1ad38bf 2007-05-19 devnull 	return ad.mtime > bd.mtime;
399 e1ad38bf 2007-05-19 devnull }
400 e1ad38bf 2007-05-19 devnull 
401 e1ad38bf 2007-05-19 devnull int
402 e1ad38bf 2007-05-19 devnull isnewerthan(char *a, char *b)
403 e1ad38bf 2007-05-19 devnull {
404 e1ad38bf 2007-05-19 devnull 	Dir ad, bd;
405 e1ad38bf 2007-05-19 devnull 
406 e1ad38bf 2007-05-19 devnull 	if(localstat(a, &ad)<0)
407 e1ad38bf 2007-05-19 devnull 		return(0);
408 e1ad38bf 2007-05-19 devnull 	if(localstat(b, &bd)<0)
409 e1ad38bf 2007-05-19 devnull 		return(0);
410 e1ad38bf 2007-05-19 devnull 	return ad.mtime < bd.mtime;
411 e1ad38bf 2007-05-19 devnull }