1 #if !defined(lint) && defined(DOSCCS)
2 static char *sccsid = "@(#)diffdir.c 4.9 (Berkeley) 8/28/84";
3 #endif
4
5 #include "diffextern.h"
6 /*
7 * diff - directory comparison
8 */
9 #define d_flags d_ino
10
11 #define ONLY 1 /* Only in this directory */
12 #define SAME 2 /* Both places and same */
13 #define DIFFER 4 /* Both places and different */
14 #define DIRECT 8 /* Directory */
15
16 struct dir {
17 ino_t d_ino;
18 short d_reclen;
19 short d_namlen;
20 char *d_entry;
21 };
22
23 struct dir *setupdir();
24 int header;
25 char title[2*BUFSIZ], *etitle;
26
27 /* declarations */
28 void only(struct dir *, int);
29 void compare(register struct dir *);
30 void scanpr(register struct dir *, int, char *, char *, char *, char *, char *);
31 void calldiff(char *);
32 int ascii(int);
33 int entcmp(const void *, const void *);
34
diffdir(argv)35 void diffdir(argv)
36 char **argv;
37 {
38 register struct dir *d1, *d2;
39 struct dir *dir1, *dir2;
40 register int i;
41 int cmp;
42
43 if (opt == D_IFDEF) {
44 fprintf(stderr, "diff: can't specify -I with directories\n");
45 done();
46 }
47 if (opt == D_EDIT && (sflag || lflag))
48 fprintf(stderr,
49 "diff: warning: shouldn't give -s or -l with -e\n");
50 title[0] = 0;
51 strcpy(title, "diff ");
52 for (i = 1; diffargv[i+2]; i++) {
53 if (!strcmp(diffargv[i], "-"))
54 continue; /* was -S, dont look silly */
55 strcat(title, diffargv[i]);
56 strcat(title, " ");
57 }
58 for (etitle = title; *etitle; etitle++)
59 ;
60 setfile(&file1, &efile1, file1);
61 setfile(&file2, &efile2, file2);
62 argv[0] = file1;
63 argv[1] = file2;
64 dir1 = setupdir(file1);
65 dir2 = setupdir(file2);
66 d1 = dir1; d2 = dir2;
67 while (d1->d_entry != 0 || d2->d_entry != 0) {
68 if (d1->d_entry && useless(d1->d_entry)) {
69 d1++;
70 continue;
71 }
72 if (d2->d_entry && useless(d2->d_entry)) {
73 d2++;
74 continue;
75 }
76 if (d1->d_entry == 0)
77 cmp = 1;
78 else if (d2->d_entry == 0)
79 cmp = -1;
80 else
81 cmp = strcmp(d1->d_entry, d2->d_entry);
82 if (cmp < 0) {
83 if (lflag)
84 d1->d_flags |= ONLY;
85 else if (opt == 0 || opt == 2)
86 only(d1, 1);
87 d1++;
88 } else if (cmp == 0) {
89 compare(d1);
90 d1++;
91 d2++;
92 } else {
93 if (lflag)
94 d2->d_flags |= ONLY;
95 else if (opt == 0 || opt == 2)
96 only(d2, 2);
97 d2++;
98 }
99 }
100 if (lflag) {
101 scanpr(dir1, ONLY, "Only in %.*s", file1, efile1, 0, 0);
102 scanpr(dir2, ONLY, "Only in %.*s", file2, efile2, 0, 0);
103 scanpr(dir1, SAME, "Common identical files in %.*s and %.*s",
104 file1, efile1, file2, efile2);
105 scanpr(dir1, DIFFER, "Binary files which differ in %.*s and %.*s",
106 file1, efile1, file2, efile2);
107 scanpr(dir1, DIRECT, "Common subdirectories of %.*s and %.*s",
108 file1, efile1, file2, efile2);
109 }
110 if (rflag) {
111 if (header && lflag)
112 printf("\f");
113 for (d1 = dir1; d1->d_entry; d1++) {
114 if ((d1->d_flags & DIRECT) == 0)
115 continue;
116 strcpy(efile1, d1->d_entry);
117 strcpy(efile2, d1->d_entry);
118 calldiff(0);
119 }
120 }
121 }
122
setfile(fpp,epp,file)123 void setfile(fpp, epp, file)
124 char **fpp, **epp;
125 char *file;
126 {
127 register char *cp;
128
129 *fpp = malloc(BUFSIZ);
130 if (*fpp == 0) {
131 fprintf(stderr, "diff: ran out of memory\n");
132 exit(1);
133 }
134 strcpy(*fpp, file);
135 for (cp = *fpp; *cp; cp++)
136 continue;
137 *cp++ = '/';
138 *epp = cp;
139 }
140
scanpr(dp,test,title,file1,efile1,file2,efile2)141 void scanpr(dp, test, title, file1, efile1, file2, efile2)
142 register struct dir *dp;
143 int test;
144 char *title, *file1, *efile1, *file2, *efile2;
145 {
146 int titled = 0;
147
148 for (; dp->d_entry; dp++) {
149 if ((dp->d_flags & test) == 0)
150 continue;
151 if (titled == 0) {
152 if (header == 0)
153 header = 1;
154 else
155 printf("\n");
156 printf(title,
157 efile1 - file1 - 1, file1,
158 efile2 - file2 - 1, file2);
159 printf(":\n");
160 titled = 1;
161 }
162 printf("\t%s\n", dp->d_entry);
163 }
164 }
165
only(dp,which)166 void only(dp, which)
167 struct dir *dp;
168 int which;
169 {
170 char *file = which == 1 ? file1 : file2;
171 char *efile = which == 1 ? efile1 : efile2;
172
173 printf("Only in %.*s: %s\n", (int)(efile - file - 1),
174 file, dp->d_entry);
175 }
176
177 struct dir *
setupdir(cp)178 setupdir(cp)
179 char *cp;
180 {
181 register struct dir *dp = 0, *ep;
182 register struct dirent *rp;
183 register int nitems, n;
184 DIR *dirp;
185
186 dirp = opendir(cp);
187 if (dirp == NULL) {
188 fprintf(stderr, "diff: ");
189 perror(cp);
190 done();
191 }
192 nitems = 0;
193 #ifdef pdp11
194 while (readdir(dirp))
195 nitems++;
196 rewinddir(dirp);
197 dp = (struct dir *)calloc(nitems+1, sizeof (struct dir));
198 nitems = 0;
199 #else
200 dp = (struct dir *)malloc(sizeof (struct dir));
201 #endif
202 if (dp == 0) {
203 fprintf(stderr, "diff: ran out of memory\n");
204 done();
205 }
206 while ((rp = readdir(dirp))) {
207 ep = &dp[nitems++];
208 #ifdef __DragonFly__
209 ep->d_reclen = _DIRENT_RECLEN(rp->d_namlen);
210 #else
211 ep->d_reclen = rp->d_reclen;
212 #endif
213 ep->d_namlen = rp->d_namlen;
214 ep->d_entry = 0;
215 ep->d_flags = 0;
216 if (ep->d_namlen > 0) {
217 ep->d_entry = malloc(ep->d_namlen + 1);
218 if (ep->d_entry == 0) {
219 fprintf(stderr, "diff: out of memory\n");
220 done();
221 }
222 strcpy(ep->d_entry, rp->d_name);
223 }
224 #ifndef pdp11
225 dp = (struct dir *)realloc((char *)dp,
226 (nitems + 1) * sizeof (struct dir));
227 if (dp == 0) {
228 fprintf(stderr, "diff: ran out of memory\n");
229 done();
230 }
231 #endif
232 }
233 dp[nitems].d_entry = 0; /* delimiter */
234 closedir(dirp);
235 qsort(dp, nitems, sizeof (struct dir), entcmp);
236 return (dp);
237 }
238
entcmp(d1,d2)239 int entcmp(d1, d2)
240 const void *d1, *d2;
241 {
242 return strcmp(((struct dir *)d1)->d_entry, ((struct dir *)d2)->d_entry);
243 }
244
compare(dp)245 void compare(dp)
246 register struct dir *dp;
247 {
248 register int i, j;
249 int f1, f2, fmt1, fmt2;
250 struct stat stb1, stb2;
251 int flag = 0;
252 char buf1[BUFSIZ], buf2[BUFSIZ];
253
254 strcpy(efile1, dp->d_entry);
255 strcpy(efile2, dp->d_entry);
256 f1 = open(file1, 0);
257 if (f1 < 0) {
258 perror(file1);
259 return;
260 }
261 f2 = open(file2, 0);
262 if (f2 < 0) {
263 perror(file2);
264 close(f1);
265 return;
266 }
267 fstat(f1, &stb1); fstat(f2, &stb2);
268 fmt1 = stb1.st_mode & S_IFMT;
269 fmt2 = stb2.st_mode & S_IFMT;
270 if (fmt1 != S_IFREG || fmt2 != S_IFREG) {
271 if (fmt1 == fmt2) {
272 if (fmt1 != S_IFDIR && stb1.st_rdev == stb2.st_rdev)
273 goto same;
274 if (fmt1 == S_IFDIR) {
275 dp->d_flags = DIRECT;
276 if (lflag || opt == D_EDIT)
277 goto closem;
278 printf("Common subdirectories: %s and %s\n",
279 file1, file2);
280 goto closem;
281 }
282 }
283 goto notsame;
284 }
285 if (stb1.st_size != stb2.st_size)
286 goto notsame;
287 for (;;) {
288 i = read(f1, buf1, BUFSIZ);
289 j = read(f2, buf2, BUFSIZ);
290 if (i < 0 || j < 0 || i != j)
291 goto notsame;
292 if (i == 0 && j == 0)
293 goto same;
294 for (j = 0; j < i; j++)
295 if (buf1[j] != buf2[j])
296 goto notsame;
297 }
298 same:
299 if (sflag == 0)
300 goto closem;
301 if (lflag)
302 dp->d_flags = SAME;
303 else
304 printf("Files %s and %s are identical\n", file1, file2);
305 goto closem;
306 notsame:
307 if (!ascii(f1) || !ascii(f2)) {
308 if (lflag)
309 dp->d_flags |= DIFFER;
310 else if (opt == D_NORMAL || opt == D_CONTEXT)
311 printf("Binary files %s and %s differ\n",
312 file1, file2);
313 goto closem;
314 }
315 close(f1); close(f2);
316 anychange = 1;
317 if (lflag)
318 calldiff(title);
319 else {
320 if (opt == D_EDIT) {
321 printf("ed - %s << '-*-END-*-'\n", dp->d_entry);
322 calldiff(0);
323 } else {
324 printf("%s%s %s\n", title, file1, file2);
325 calldiff(0);
326 }
327 if (opt == D_EDIT)
328 printf("w\nq\n-*-END-*-\n");
329 }
330 return;
331 closem:
332 close(f1); close(f2);
333 }
334
335 char *prargs[] = { "pr", "-h", 0, "-f", 0, 0 };
336
calldiff(wantpr)337 void calldiff(wantpr)
338 char *wantpr;
339 {
340 int pid, status, status2, pv[2];
341
342 prargs[2] = wantpr;
343 fflush(stdout);
344 if (wantpr) {
345 sprintf(etitle, "%s %s", file1, file2);
346 pipe(pv);
347 pid = fork();
348 if (pid == -1) {
349 fprintf(stderr, "No more processes");
350 done();
351 }
352 if (pid == 0) {
353 close(0);
354 dup(pv[0]);
355 close(pv[0]);
356 close(pv[1]);
357 execv(pr+4, prargs);
358 execv(pr, prargs);
359 perror(pr);
360 done();
361 }
362 }
363 pid = fork();
364 if (pid == -1) {
365 fprintf(stderr, "diff: No more processes\n");
366 done();
367 }
368 if (pid == 0) {
369 if (wantpr) {
370 close(1);
371 dup(pv[1]);
372 close(pv[0]);
373 close(pv[1]);
374 }
375 execv(diff+4, diffargv);
376 execv(diff, diffargv);
377 perror(diff);
378 done();
379 }
380 if (wantpr) {
381 close(pv[0]);
382 close(pv[1]);
383 }
384 while (wait(&status) != pid)
385 continue;
386 while (wait(&status2) != -1)
387 continue;
388 /*
389 if ((status >> 8) >= 2)
390 done();
391 */
392 }
393
394 #include <a.out.h>
395
ascii(f)396 int ascii(f)
397 int f;
398 {
399 char buf[BUFSIZ];
400 register int cnt;
401 register char *cp;
402
403 lseek(f, (long)0, 0);
404 cnt = read(f, buf, BUFSIZ);
405 if (cnt >= sizeof (struct exec)) {
406 struct exec hdr;
407 hdr = *(struct exec *)buf;
408 if (!N_BADMAG(hdr))
409 return (0);
410 }
411 cp = buf;
412 while (--cnt >= 0)
413 if (*cp++ & 0200)
414 return (0);
415 return (1);
416 }
417
418 /*
419 * THIS IS CRUDE.
420 */
useless(cp)421 int useless(cp)
422 register char *cp;
423 {
424
425 if (cp[0] == '.') {
426 if (cp[1] == '\0')
427 return (1); /* directory "." */
428 if (cp[1] == '.' && cp[2] == '\0')
429 return (1); /* directory ".." */
430 }
431 if (start && strcmp(start, cp) > 0)
432 return (1);
433 return (0);
434 }
435