1 /*-
2 * %sccs.include.proprietary.c%
3 */
4
5 #ifndef lint
6 static char sccsid[] = "@(#)hunt5.c 4.4 (Berkeley) 04/18/91";
7 #endif /* not lint */
8
9 #include <stdio.h>
10 #include <sys/types.h>
11 #include <sys/stat.h>
12
13 extern char *soutput, *tagout, usedir[];
14
result(master,nf,fc)15 result(master, nf, fc)
16 unsigned *master;
17 FILE *fc;
18 {
19 int i, c;
20 char *s;
21 long lp;
22 extern int iflong;
23 char res[100];
24 union ptr {
25 unsigned *a;
26 long *b;
27 } umaster;
28
29 if (iflong)
30 umaster.b = (long *) master;
31 else
32 umaster.a = master;
33 for(i=0; i<nf; i++)
34 {
35 lp = iflong ? umaster.b[i] : umaster.a[i];
36 fseek(fc,lp, 0);
37 fgets(res, 100, fc);
38 for(s=res; c = *s; s++)
39 if (c== ';')
40 {
41 *s=0;
42 break;
43 }
44 if (tagout !=0)
45 {
46 if (res[0]=='/' || usedir[0]==0)
47 sprintf(tagout, "%s", res);
48 else
49 sprintf(tagout, "%s/%s", usedir, res);
50 while (*tagout) tagout++;
51 }
52 else
53 {
54 if (res[0]!='/' || usedir[0]==0)
55 printf("%s/", usedir);
56 printf("%s\n", res);
57 }
58 }
59 }
60
61 long
gdate(f)62 gdate(f)
63 FILE *f;
64 {
65 struct stat sb;
66 fstat (f->_file, &sb);
67 return (sb . st_mtime);
68 }
69