/[MITgcm]/MITgcm/tools/cyrus-imapd-makedepend/include.c
ViewVC logotype

Contents of /MITgcm/tools/cyrus-imapd-makedepend/include.c

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download)
Wed Feb 25 18:19:54 2004 UTC (20 years, 1 month ago) by edhill
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint58l_post, checkpoint64z, checkpoint57t_post, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64j, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n, checkpoint64a, checkpoint57o_post, checkpoint64c, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64g, checkpoint64f, checkpoint52l_pre, checkpoint58e_post, mitgcm_mapl_00, checkpoint52n_post, checkpoint53d_post, checkpoint58u_post, checkpoint58w_post, checkpoint54a_pre, checkpoint57m_post, checkpoint55c_post, checkpoint54e_post, checkpoint57s_post, checkpoint54a_post, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63g, checkpoint53c_post, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint57k_post, checkpoint55d_pre, checkpoint57d_post, checkpoint57g_post, checkpoint64, checkpoint65, checkpoint60, checkpoint61, checkpoint62, checkpoint63, checkpoint57b_post, checkpoint57c_pre, checkpoint58r_post, checkpoint55j_post, checkpoint56b_post, checkpoint57i_post, checkpoint57y_post, checkpoint57e_post, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint52l_post, checkpoint55h_post, checkpoint58n_post, checkpoint53b_post, checkpoint58x_post, checkpoint57g_pre, checkpoint54b_post, checkpoint53b_pre, checkpoint55b_post, checkpoint58t_post, checkpoint58h_post, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint54d_post, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, checkpoint56c_post, checkpoint52m_post, checkpoint57y_pre, checkpoint55, checkpoint53a_post, checkpoint57f_pre, checkpoint57a_post, checkpoint54, checkpoint58q_post, checkpoint54f_post, checkpoint57v_post, checkpoint59q, checkpoint59p, checkpoint55g_post, checkpoint59r, checkpoint58j_post, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint55f_post, checkpoint59c, checkpoint59b, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59h, checkpoint59k, checkpoint59j, checkpoint57r_post, checkpoint59, checkpoint58, checkpoint57a_pre, checkpoint55i_post, checkpoint57, checkpoint56, checkpoint53, eckpoint57e_pre, checkpoint57h_done, checkpoint58f_post, checkpoint53g_post, checkpoint57x_post, checkpoint57n_post, checkpoint58d_post, checkpoint58c_post, checkpoint57w_post, checkpoint57p_post, checkpint57u_post, checkpoint57f_post, checkpoint58a_post, checkpoint58i_post, checkpoint57q_post, checkpoint58g_post, hrcube5, checkpoint58o_post, checkpoint57z_post, checkpoint62c, checkpoint62b, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62s, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint62w, checkpoint62v, checkpoint62u, checkpoint62t, checkpoint57c_post, checkpoint62z, checkpoint62y, checkpoint62x, checkpoint58y_post, checkpoint55e_post, checkpoint58k_post, checkpoint58v_post, checkpoint53f_post, checkpoint55a_post, checkpoint53d_pre, checkpoint54c_post, checkpoint58s_post, checkpoint61f, checkpoint61g, checkpoint61d, checkpoint61e, checkpoint61b, checkpoint61c, checkpoint58p_post, checkpoint61a, checkpoint61n, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61q, checkpoint57j_post, checkpoint61z, checkpoint61x, checkpoint61y, checkpoint58b_post, checkpoint57h_pre, checkpoint58m_post, checkpoint57l_post, checkpoint57h_post, checkpoint56a_post, checkpoint55d_post, HEAD
File MIME type: text/plain
 o initial check-in of a better makedepend implementation for AJA

1 /* $XConsortium: include.c,v 1.16 94/04/17 20:10:34 gildea Exp $ */
2
3 /*
4 * Copyright (c) 1998-2003 Carnegie Mellon University. All rights reserved.
5 *
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
8 * are met:
9 *
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 *
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in
15 * the documentation and/or other materials provided with the
16 * distribution.
17 *
18 * 3. The name "Carnegie Mellon University" must not be used to
19 * endorse or promote products derived from this software without
20 * prior written permission. For permission or any other legal
21 * details, please contact
22 * Office of Technology Transfer
23 * Carnegie Mellon University
24 * 5000 Forbes Avenue
25 * Pittsburgh, PA 15213-3890
26 * (412) 268-4387, fax: (412) 268-7395
27 * tech-transfer@andrew.cmu.edu
28 *
29 * 4. Redistributions of any form whatsoever must retain the following
30 * acknowledgment:
31 * "This product includes software developed by Computing Services
32 * at Carnegie Mellon University (http://www.cmu.edu/computing/)."
33 *
34 * CARNEGIE MELLON UNIVERSITY DISCLAIMS ALL WARRANTIES WITH REGARD TO
35 * THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
36 * AND FITNESS, IN NO EVENT SHALL CARNEGIE MELLON UNIVERSITY BE LIABLE
37 * FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
38 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
39 * AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
40 * OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
41 *
42 */
43 /*
44
45 Copyright (c) 1993, 1994 X Consortium
46
47 Permission is hereby granted, free of charge, to any person obtaining a copy
48 of this software and associated documentation files (the "Software"), to deal
49 in the Software without restriction, including without limitation the rights
50 to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
51 copies of the Software, and to permit persons to whom the Software is
52 furnished to do so, subject to the following conditions:
53
54 The above copyright notice and this permission notice shall be included in
55 all copies or substantial portions of the Software.
56
57 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
58 IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
59 FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
60 X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
61 AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
62 CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
63
64 Except as contained in this notice, the name of the X Consortium shall not be
65 used in advertising or otherwise to promote the sale, use or other dealings
66 in this Software without prior written authorization from the X Consortium.
67
68 */
69
70
71 #include "def.h"
72
73 extern struct inclist inclist[ MAXFILES ],
74 *inclistp;
75 extern char *includedirs[ ];
76 extern char *notdotdot[ ];
77 extern boolean show_where_not;
78 extern boolean warn_multiple;
79
80 struct inclist *inc_path(file, include, dot)
81 register char *file,
82 *include;
83 boolean dot;
84 {
85 static char path[ BUFSIZ ];
86 register char **pp, *p;
87 register struct inclist *ip;
88 struct stat st;
89 boolean found = FALSE;
90
91 /*
92 * Check all previously found include files for a path that
93 * has already been expanded.
94 */
95 for (ip = inclist; ip->i_file; ip++)
96 if ((strcmp(ip->i_incstring, include) == 0) && !ip->i_included_sym)
97 {
98 found = TRUE;
99 break;
100 }
101
102 /*
103 * If the path was surrounded by "" or is an absolute path,
104 * then check the exact path provided.
105 */
106 if (!found && (dot || *include == '/')) {
107 if (stat(include, &st) == 0) {
108 ip = newinclude(include, include);
109 found = TRUE;
110 }
111 else if (show_where_not)
112 warning1("\tnot in %s\n", include);
113 }
114
115 /*
116 * See if this include file is in the directory of the
117 * file being compiled.
118 */
119 if (!found) {
120 for (p=file+strlen(file); p>file; p--)
121 if (*p == '/')
122 break;
123 if (p == file)
124 strcpy(path, include);
125 else {
126 strncpy(path, file, (p-file) + 1);
127 path[ (p-file) + 1 ] = '\0';
128 strcpy(path + (p-file) + 1, include);
129 }
130 remove_dotdot(path);
131 if (stat(path, &st) == 0) {
132 ip = newinclude(path, include);
133 found = TRUE;
134 }
135 else if (show_where_not)
136 warning1("\tnot in %s\n", path);
137 }
138
139 /*
140 * Check the include directories specified. (standard include dir
141 * should be at the end.)
142 */
143 if (!found)
144 for (pp = includedirs; *pp; pp++) {
145 sprintf(path, "%s/%s", *pp, include);
146 remove_dotdot(path);
147 if (stat(path, &st) == 0) {
148 ip = newinclude(path, include);
149 found = TRUE;
150 break;
151 }
152 else if (show_where_not)
153 warning1("\tnot in %s\n", path);
154 }
155
156 if (!found)
157 ip = NULL;
158 return(ip);
159 }
160
161 /*
162 * Ocaisionally, pathnames are created that look like ../x/../y
163 * Any of the 'x/..' sequences within the name can be eliminated.
164 * (but only if 'x' is not a symbolic link!!)
165 */
166 remove_dotdot(path)
167 char *path;
168 {
169 register char *end, *from, *to, **cp;
170 char *components[ MAXFILES ],
171 newpath[ BUFSIZ ];
172 boolean component_copied;
173
174 /*
175 * slice path up into components.
176 */
177 to = newpath;
178 if (*path == '/')
179 *to++ = '/';
180 *to = '\0';
181 cp = components;
182 for (from=end=path; *end; end++)
183 if (*end == '/') {
184 while (*end == '/')
185 *end++ = '\0';
186 if (*from)
187 *cp++ = from;
188 from = end;
189 }
190 *cp++ = from;
191 *cp = NULL;
192
193 /*
194 * Now copy the path, removing all 'x/..' components.
195 */
196 cp = components;
197 component_copied = FALSE;
198 while(*cp) {
199 if (!isdot(*cp) && !isdotdot(*cp) && isdotdot(*(cp+1))) {
200 if (issymbolic(newpath, *cp))
201 goto dont_remove;
202 cp++;
203 } else {
204 dont_remove:
205 if (component_copied)
206 *to++ = '/';
207 component_copied = TRUE;
208 for (from = *cp; *from; )
209 *to++ = *from++;
210 *to = '\0';
211 }
212 cp++;
213 }
214 *to++ = '\0';
215
216 /*
217 * copy the reconstituted path back to our pointer.
218 */
219 strcpy(path, newpath);
220 }
221
222 isdot(p)
223 register char *p;
224 {
225 if(p && *p++ == '.' && *p++ == '\0')
226 return(TRUE);
227 return(FALSE);
228 }
229
230 isdotdot(p)
231 register char *p;
232 {
233 if(p && *p++ == '.' && *p++ == '.' && *p++ == '\0')
234 return(TRUE);
235 return(FALSE);
236 }
237
238 issymbolic(dir, component)
239 register char *dir, *component;
240 {
241 #ifdef S_IFLNK
242 struct stat st;
243 char buf[ BUFSIZ ], **pp;
244
245 sprintf(buf, "%s%s%s", dir, *dir ? "/" : "", component);
246 for (pp=notdotdot; *pp; pp++)
247 if (strcmp(*pp, buf) == 0)
248 return (TRUE);
249 if (lstat(buf, &st) == 0
250 && (st.st_mode & S_IFMT) == S_IFLNK) {
251 *pp++ = copy(buf);
252 if (pp >= &notdotdot[ MAXDIRS ])
253 fatalerr("out of .. dirs, increase MAXDIRS\n");
254 return(TRUE);
255 }
256 #endif
257 return(FALSE);
258 }
259
260 /*
261 * Add an include file to the list of those included by 'file'.
262 */
263 struct inclist *newinclude(newfile, incstring)
264 register char *newfile, *incstring;
265 {
266 register struct inclist *ip;
267
268 /*
269 * First, put this file on the global list of include files.
270 */
271 ip = inclistp++;
272 if (inclistp == inclist + MAXFILES - 1)
273 fatalerr("out of space: increase MAXFILES\n");
274 ip->i_file = copy(newfile);
275 ip->i_included_sym = FALSE;
276 if (incstring == NULL)
277 ip->i_incstring = ip->i_file;
278 else
279 ip->i_incstring = copy(incstring);
280
281 return(ip);
282 }
283
284 included_by(ip, newfile)
285 register struct inclist *ip, *newfile;
286 {
287 register i;
288
289 if (ip == NULL)
290 return;
291 /*
292 * Put this include file (newfile) on the list of files included
293 * by 'file'. If 'file' is NULL, then it is not an include
294 * file itself (i.e. was probably mentioned on the command line).
295 * If it is already on the list, don't stick it on again.
296 */
297 if (ip->i_list == NULL)
298 ip->i_list = (struct inclist **)
299 malloc(sizeof(struct inclist *) * ++ip->i_listlen);
300 else {
301 for (i=0; i<ip->i_listlen; i++)
302 if (ip->i_list[ i ] == newfile) {
303 i = strlen(newfile->i_file);
304 if (!ip->i_included_sym &&
305 !(i > 2 &&
306 newfile->i_file[i-1] == 'c' &&
307 newfile->i_file[i-2] == '.'))
308 {
309 /* only bitch if ip has */
310 /* no #include SYMBOL lines */
311 /* and is not a .c file */
312 if (warn_multiple)
313 {
314 warning("%s includes %s more than once!\n",
315 ip->i_file, newfile->i_file);
316 warning1("Already have\n");
317 for (i=0; i<ip->i_listlen; i++)
318 warning1("\t%s\n", ip->i_list[i]->i_file);
319 }
320 }
321 return;
322 }
323 ip->i_list = (struct inclist **) realloc(ip->i_list,
324 sizeof(struct inclist *) * ++ip->i_listlen);
325 }
326 ip->i_list[ ip->i_listlen-1 ] = newfile;
327 }
328
329 inc_clean ()
330 {
331 register struct inclist *ip;
332
333 for (ip = inclist; ip < inclistp; ip++) {
334 ip->i_marked = FALSE;
335 }
336 }

  ViewVC Help
Powered by ViewVC 1.1.22