]>
Commit | Line | Data |
---|---|---|
d1b2a10e | 1 | /* |
2 | * $XConsortium: pr.c,v 1.6 88/09/30 08:55:13 jim Exp $ | |
3 | */ | |
4 | #include "def.h" | |
5 | ||
6 | extern struct inclist inclist[ MAXFILES ], | |
7 | *inclistp; | |
8 | extern char *objfile; | |
9 | extern int width; | |
10 | extern boolean printed; | |
11 | extern boolean verbose; | |
12 | extern boolean show_where_not; | |
13 | ||
14 | add_include(file, file_red, include, dot) | |
15 | struct inclist *file, *file_red; | |
16 | char *include; | |
17 | boolean dot; | |
18 | { | |
19 | register struct inclist *newfile; | |
20 | register struct filepointer *content; | |
21 | ||
22 | /* | |
23 | * First decide what the pathname of this include file really is. | |
24 | */ | |
25 | newfile = inc_path(file->i_file, include, dot); | |
26 | if (newfile == NULL) { | |
27 | if (file != file_red) | |
28 | log("%s (reading %s): ", | |
29 | file_red->i_file, file->i_file); | |
30 | else | |
31 | log("%s: ", file->i_file); | |
32 | log("cannot find include file \"%s\"\n", include); | |
33 | show_where_not = TRUE; | |
34 | newfile = inc_path(file->i_file, include, dot); | |
35 | show_where_not = FALSE; | |
36 | } | |
37 | ||
38 | included_by(file, newfile); | |
39 | if (!newfile->i_searched) { | |
40 | newfile->i_searched = TRUE; | |
41 | content = getfile(newfile->i_file); | |
42 | find_includes(content, newfile, file_red, 0); | |
43 | freefile(content); | |
44 | } | |
45 | } | |
46 | ||
47 | recursive_pr_include(head, file, base) | |
48 | register struct inclist *head; | |
49 | register char *file, *base; | |
50 | { | |
51 | register int i; | |
52 | ||
53 | if (head->i_marked) | |
54 | return; | |
55 | head->i_marked = TRUE; | |
56 | if (head->i_file != file) | |
57 | pr(head, file, base); | |
58 | for (i=0; i<head->i_listlen; i++) | |
59 | recursive_pr_include(head->i_list[ i ], file, base); | |
60 | } | |
61 | ||
62 | pr(ip, file, base) | |
63 | register struct inclist *ip; | |
64 | char *file, *base; | |
65 | { | |
66 | static char *lastfile; | |
67 | static int current_len; | |
68 | register int len, i; | |
69 | char buf[ BUFSIZ ]; | |
70 | ||
71 | printed = TRUE; | |
72 | len = strlen(ip->i_file)+1; | |
73 | if (current_len + len > width || file != lastfile) { | |
74 | lastfile = file; | |
75 | sprintf(buf, "\n%s%s: %s", base, objfile, ip->i_file); | |
76 | len = current_len = strlen(buf); | |
77 | } | |
78 | else { | |
79 | buf[0] = ' '; | |
80 | strcpy(buf+1, ip->i_file); | |
81 | current_len += len; | |
82 | } | |
83 | fwrite(buf, len, 1, stdout); | |
84 | ||
85 | /* | |
86 | * If verbose is set, then print out what this file includes. | |
87 | */ | |
88 | if (! verbose || ip->i_list == NULL || ip->i_notified) | |
89 | return; | |
90 | ip->i_notified = TRUE; | |
91 | lastfile = NULL; | |
92 | printf("\n# %s includes:", ip->i_file); | |
93 | for (i=0; i<ip->i_listlen; i++) | |
94 | printf("\n#\t%s", ip->i_list[ i ]->i_incstring); | |
95 | } | |
96 | ||
97 | #if defined (mips) && defined (SYSTYPE_SYSV) | |
98 | void catch() | |
99 | { | |
100 | fflush(stdout); | |
101 | log_fatal("got signal\n"); | |
102 | } | |
103 | #else /* not (mips && SYSTYPE_SYSV) */ | |
104 | #ifdef ultrix | |
105 | void | |
106 | #endif | |
107 | catch(n) | |
108 | { | |
109 | fflush(stdout); | |
110 | log_fatal("got signal %d\n", n); | |
111 | } | |
112 | #endif /* mips && SYSTYPE_SYSV */ | |
113 |