c-incpath.c revision 260011
1/* Set up combined include path chain for the preprocessor. 2 Copyright (C) 1986, 1987, 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 3 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 4 Free Software Foundation, Inc. 5 6 Broken out of cppinit.c and cppfiles.c and rewritten Mar 2003. 7 8This program is free software; you can redistribute it and/or modify it 9under the terms of the GNU General Public License as published by the 10Free Software Foundation; either version 2, or (at your option) any 11later version. 12 13This program is distributed in the hope that it will be useful, 14but WITHOUT ANY WARRANTY; without even the implied warranty of 15MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 16GNU General Public License for more details. 17 18You should have received a copy of the GNU General Public License 19along with this program; if not, write to the Free Software 20Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ 21 22#include "config.h" 23#include "system.h" 24#include "coretypes.h" 25#include "machmode.h" 26#include "target.h" 27#include "tm.h" 28#include "cpplib.h" 29#include "prefix.h" 30#include "intl.h" 31#include "c-incpath.h" 32#include "cppdefault.h" 33 34/* Windows does not natively support inodes, and neither does MSDOS. 35 Cygwin's emulation can generate non-unique inodes, so don't use it. 36 VMS has non-numeric inodes. */ 37#ifdef VMS 38# define INO_T_EQ(A, B) (!memcmp (&(A), &(B), sizeof (A))) 39# define INO_T_COPY(DEST, SRC) memcpy(&(DEST), &(SRC), sizeof (SRC)) 40#else 41# if (defined _WIN32 && !defined (_UWIN)) || defined __MSDOS__ 42# define INO_T_EQ(A, B) 0 43# else 44# define INO_T_EQ(A, B) ((A) == (B)) 45# endif 46# define INO_T_COPY(DEST, SRC) (DEST) = (SRC) 47#endif 48 49static const char dir_separator_str[] = { DIR_SEPARATOR, 0 }; 50 51static void add_env_var_paths (const char *, int); 52static void add_standard_paths (const char *, const char *, const char *, int); 53static void free_path (struct cpp_dir *, int); 54static void merge_include_chains (cpp_reader *, int); 55static struct cpp_dir *remove_duplicates (cpp_reader *, struct cpp_dir *, 56 struct cpp_dir *, 57 struct cpp_dir *, int); 58 59/* Include chains heads and tails. */ 60static struct cpp_dir *heads[4]; 61static struct cpp_dir *tails[4]; 62static bool quote_ignores_source_dir; 63enum { REASON_QUIET = 0, REASON_NOENT, REASON_DUP, REASON_DUP_SYS }; 64 65/* Free an element of the include chain, possibly giving a reason. */ 66static void 67free_path (struct cpp_dir *path, int reason) 68{ 69 switch (reason) 70 { 71 case REASON_DUP: 72 case REASON_DUP_SYS: 73 fprintf (stderr, _("ignoring duplicate directory \"%s\"\n"), path->name); 74 if (reason == REASON_DUP_SYS) 75 fprintf (stderr, "%s", 76 _(" as it is a non-system directory that duplicates a system directory\n")); 77 break; 78 79 case REASON_NOENT: 80 fprintf (stderr, _("ignoring nonexistent directory \"%s\"\n"), 81 path->name); 82 break; 83 84 case REASON_QUIET: 85 default: 86 break; 87 } 88 89 free (path->name); 90 free (path); 91} 92 93/* Read ENV_VAR for a PATH_SEPARATOR-separated list of file names; and 94 append all the names to the search path CHAIN. */ 95static void 96add_env_var_paths (const char *env_var, int chain) 97{ 98 char *p, *q, *path; 99 100 GET_ENVIRONMENT (q, env_var); 101 102 if (!q) 103 return; 104 105 for (p = q; *q; p = q + 1) 106 { 107 q = p; 108 while (*q != 0 && *q != PATH_SEPARATOR) 109 q++; 110 111 if (p == q) 112 path = xstrdup ("."); 113 else 114 { 115 path = XNEWVEC (char, q - p + 1); 116 memcpy (path, p, q - p); 117 path[q - p] = '\0'; 118 } 119 120 add_path (path, chain, chain == SYSTEM, false); 121 } 122} 123 124/* Append the standard include chain defined in cppdefault.c. */ 125static void 126add_standard_paths (const char *sysroot, const char *iprefix, 127 const char *imultilib, int cxx_stdinc) 128{ 129 const struct default_include *p; 130 size_t len; 131 132 if (iprefix && (len = cpp_GCC_INCLUDE_DIR_len) != 0) 133 { 134 /* Look for directories that start with the standard prefix. 135 "Translate" them, i.e. replace /usr/local/lib/gcc... with 136 IPREFIX and search them first. */ 137 for (p = cpp_include_defaults; p->fname; p++) 138 { 139 if (!p->cplusplus || cxx_stdinc) 140 { 141 /* Should we be translating sysrooted dirs too? Assume 142 that iprefix and sysroot are mutually exclusive, for 143 now. */ 144 if (sysroot && p->add_sysroot) 145 continue; 146 if (!strncmp (p->fname, cpp_GCC_INCLUDE_DIR, len)) 147 { 148 char *str = concat (iprefix, p->fname + len, NULL); 149 if (p->multilib && imultilib) 150 str = concat (str, dir_separator_str, imultilib, NULL); 151 add_path (str, SYSTEM, p->cxx_aware, false); 152 } 153 } 154 } 155 } 156 157 for (p = cpp_include_defaults; p->fname; p++) 158 { 159 if (!p->cplusplus || cxx_stdinc) 160 { 161 char *str; 162 163 /* Should this directory start with the sysroot? */ 164 if (sysroot && p->add_sysroot) 165 str = concat (sysroot, p->fname, NULL); 166 else 167 str = update_path (p->fname, p->component); 168 169 if (p->multilib && imultilib) 170 str = concat (str, dir_separator_str, imultilib, NULL); 171 172 add_path (str, SYSTEM, p->cxx_aware, false); 173 } 174 } 175} 176 177/* For each duplicate path in chain HEAD, keep just the first one. 178 Remove each path in chain HEAD that also exists in chain SYSTEM. 179 Set the NEXT pointer of the last path in the resulting chain to 180 JOIN, unless it duplicates JOIN in which case the last path is 181 removed. Return the head of the resulting chain. Any of HEAD, 182 JOIN and SYSTEM can be NULL. */ 183 184static struct cpp_dir * 185remove_duplicates (cpp_reader *pfile, struct cpp_dir *head, 186 struct cpp_dir *system, struct cpp_dir *join, 187 int verbose) 188{ 189 struct cpp_dir **pcur, *tmp, *cur; 190 struct stat st; 191 192 for (pcur = &head; *pcur; ) 193 { 194 int reason = REASON_QUIET; 195 196 cur = *pcur; 197 198 if (stat (cur->name, &st)) 199 { 200 /* Dirs that don't exist are silently ignored, unless verbose. */ 201 if (errno != ENOENT) 202 cpp_errno (pfile, CPP_DL_ERROR, cur->name); 203 else 204 { 205 /* If -Wmissing-include-dirs is given, warn. */ 206 cpp_options *opts = cpp_get_options (pfile); 207 if (opts->warn_missing_include_dirs && cur->user_supplied_p) 208 cpp_errno (pfile, CPP_DL_WARNING, cur->name); 209 reason = REASON_NOENT; 210 } 211 } 212 else if (!S_ISDIR (st.st_mode)) 213 cpp_error_with_line (pfile, CPP_DL_ERROR, 0, 0, 214 "%s: not a directory", cur->name); 215 else 216 { 217 INO_T_COPY (cur->ino, st.st_ino); 218 cur->dev = st.st_dev; 219 220 /* Remove this one if it is in the system chain. */ 221 reason = REASON_DUP_SYS; 222 for (tmp = system; tmp; tmp = tmp->next) 223 if (INO_T_EQ (tmp->ino, cur->ino) && tmp->dev == cur->dev 224 && cur->construct == tmp->construct) 225 break; 226 227 if (!tmp) 228 { 229 /* Duplicate of something earlier in the same chain? */ 230 reason = REASON_DUP; 231 for (tmp = head; tmp != cur; tmp = tmp->next) 232 if (INO_T_EQ (cur->ino, tmp->ino) && cur->dev == tmp->dev 233 && cur->construct == tmp->construct) 234 break; 235 236 if (tmp == cur 237 /* Last in the chain and duplicate of JOIN? */ 238 && !(cur->next == NULL && join 239 && INO_T_EQ (cur->ino, join->ino) 240 && cur->dev == join->dev 241 && cur->construct == join->construct)) 242 { 243 /* Unique, so keep this directory. */ 244 pcur = &cur->next; 245 continue; 246 } 247 } 248 } 249 250 /* Remove this entry from the chain. */ 251 *pcur = cur->next; 252 free_path (cur, verbose ? reason: REASON_QUIET); 253 } 254 255 *pcur = join; 256 return head; 257} 258 259/* Merge the four include chains together in the order quote, bracket, 260 system, after. Remove duplicate dirs (as determined by 261 INO_T_EQ()). 262 263 We can't just merge the lists and then uniquify them because then 264 we may lose directories from the <> search path that should be 265 there; consider -iquote foo -iquote bar -Ifoo -Iquux. It is 266 however safe to treat -iquote bar -iquote foo -Ifoo -Iquux as if 267 written -iquote bar -Ifoo -Iquux. */ 268 269static void 270merge_include_chains (cpp_reader *pfile, int verbose) 271{ 272 /* Join the SYSTEM and AFTER chains. Remove duplicates in the 273 resulting SYSTEM chain. */ 274 if (heads[SYSTEM]) 275 tails[SYSTEM]->next = heads[AFTER]; 276 else 277 heads[SYSTEM] = heads[AFTER]; 278 heads[SYSTEM] = remove_duplicates (pfile, heads[SYSTEM], 0, 0, verbose); 279 280 /* Remove duplicates from BRACKET that are in itself or SYSTEM, and 281 join it to SYSTEM. */ 282 heads[BRACKET] = remove_duplicates (pfile, heads[BRACKET], heads[SYSTEM], 283 heads[SYSTEM], verbose); 284 285 /* Remove duplicates from QUOTE that are in itself or SYSTEM, and 286 join it to BRACKET. */ 287 heads[QUOTE] = remove_duplicates (pfile, heads[QUOTE], heads[SYSTEM], 288 heads[BRACKET], verbose); 289 290 /* If verbose, print the list of dirs to search. */ 291 if (verbose) 292 { 293 struct cpp_dir *p; 294 295 fprintf (stderr, "%s", _("#include \"...\" search starts here:\n")); 296 for (p = heads[QUOTE];; p = p->next) 297 { 298 if (p == heads[BRACKET]) 299 fprintf (stderr, "%s", _("#include <...> search starts here:\n")); 300 if (!p) 301 break; 302 fprintf (stderr, " %s\n", p->name); 303 } 304 fprintf (stderr, "%s", _("End of search list.\n")); 305 } 306} 307 308/* Use given -I paths for #include "..." but not #include <...>, and 309 don't search the directory of the present file for #include "...". 310 (Note that -I. -I- is not the same as the default setup; -I. uses 311 the compiler's working dir.) */ 312void 313split_quote_chain (void) 314{ 315 heads[QUOTE] = heads[BRACKET]; 316 tails[QUOTE] = tails[BRACKET]; 317 heads[BRACKET] = NULL; 318 tails[BRACKET] = NULL; 319 /* This is NOT redundant. */ 320 quote_ignores_source_dir = true; 321} 322 323/* Add P to the chain specified by CHAIN. */ 324 325void 326add_cpp_dir_path (cpp_dir *p, int chain) 327{ 328 if (tails[chain]) 329 tails[chain]->next = p; 330 else 331 heads[chain] = p; 332 tails[chain] = p; 333} 334 335/* Add PATH to the include chain CHAIN. PATH must be malloc-ed and 336 NUL-terminated. */ 337void 338add_path (char *path, int chain, int cxx_aware, bool user_supplied_p) 339{ 340 cpp_dir *p; 341 342#if defined (HAVE_DOS_BASED_FILE_SYSTEM) 343 /* Convert all backslashes to slashes. The native CRT stat() 344 function does not recognize a directory that ends in a backslash 345 (unless it is a drive root dir, such "c:\"). Forward slashes, 346 trailing or otherwise, cause no problems for stat(). */ 347 char* c; 348 for (c = path; *c; c++) 349 if (*c == '\\') *c = '/'; 350#endif 351 352 p = XNEW (cpp_dir); 353 p->next = NULL; 354 p->name = path; 355 if (chain == SYSTEM || chain == AFTER) 356 p->sysp = 1 + !cxx_aware; 357 else 358 p->sysp = 0; 359 p->construct = 0; 360 p->user_supplied_p = user_supplied_p; 361 362 add_cpp_dir_path (p, chain); 363} 364 365/* Exported function to handle include chain merging, duplicate 366 removal, and registration with cpplib. */ 367void 368register_include_chains (cpp_reader *pfile, const char *sysroot, 369 const char *iprefix, const char *imultilib, 370 int stdinc, int cxx_stdinc, int verbose) 371{ 372 static const char *const lang_env_vars[] = 373 { "C_INCLUDE_PATH", "CPLUS_INCLUDE_PATH", 374 "OBJC_INCLUDE_PATH", "OBJCPLUS_INCLUDE_PATH" }; 375 cpp_options *cpp_opts = cpp_get_options (pfile); 376 size_t idx = (cpp_opts->objc ? 2: 0); 377 378 if (cpp_opts->cplusplus) 379 idx++; 380 else 381 cxx_stdinc = false; 382 383 /* CPATH and language-dependent environment variables may add to the 384 include chain. */ 385 add_env_var_paths ("CPATH", BRACKET); 386 add_env_var_paths (lang_env_vars[idx], SYSTEM); 387 388 target_c_incpath.extra_pre_includes (sysroot, iprefix, stdinc); 389 390 /* Finally chain on the standard directories. */ 391 if (stdinc) 392 add_standard_paths (sysroot, iprefix, imultilib, cxx_stdinc); 393 394 target_c_incpath.extra_includes (sysroot, iprefix, stdinc); 395 396 merge_include_chains (pfile, verbose); 397 398 cpp_set_include_chains (pfile, heads[QUOTE], heads[BRACKET], 399 quote_ignores_source_dir); 400} 401#if !(defined TARGET_EXTRA_INCLUDES) || !(defined TARGET_EXTRA_PRE_INCLUDES) 402static void hook_void_charptr_charptr_int (const char *sysroot ATTRIBUTE_UNUSED, 403 const char *iprefix ATTRIBUTE_UNUSED, 404 int stdinc ATTRIBUTE_UNUSED) 405{ 406} 407#endif 408 409#ifndef TARGET_EXTRA_INCLUDES 410#define TARGET_EXTRA_INCLUDES hook_void_charptr_charptr_int 411#endif 412#ifndef TARGET_EXTRA_PRE_INCLUDES 413#define TARGET_EXTRA_PRE_INCLUDES hook_void_charptr_charptr_int 414#endif 415 416struct target_c_incpath_s target_c_incpath = { TARGET_EXTRA_PRE_INCLUDES, TARGET_EXTRA_INCLUDES }; 417 418