1 /* Part of CPP library. (include file handling)
2 Copyright (C) 1986, 1987, 1989, 1992, 1993, 1994, 1995, 1998,
3 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
4 Written by Per Bothner, 1994.
5 Based on CCCP program by Paul Rubin, June 1986
6 Adapted to ANSI C, Richard Stallman, Jan 1987
7 Split out of cpplib.c, Zack Weinberg, Oct 1998
9 This program is free software; you can redistribute it and/or modify it
10 under the terms of the GNU General Public License as published by the
11 Free Software Foundation; either version 2, or (at your option) any
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
29 #include "splay-tree.h"
32 # include <sys/mman.h>
33 # ifndef MMAP_THRESHOLD
34 # define MMAP_THRESHOLD 3 /* Minimum page count to mmap the file. */
37 #else /* No MMAP_FILE */
38 # undef MMAP_THRESHOLD
39 # define MMAP_THRESHOLD 0
46 /* If errno is inspected immediately after a system call fails, it will be
47 nonzero, and no error number will ever be zero. */
55 /* Suppress warning about function macros used w/o arguments in traditional
56 C. It is unlikely that glibc's strcmp macro helps this file at all. */
59 /* This structure is used for the table of all includes. */
62 const char *name
; /* actual path name of file */
63 const cpp_hashnode
*cmacro
; /* macro, if any, preventing reinclusion. */
64 const struct search_path
*foundhere
;
65 /* location in search path where file was
66 found, for #include_next and sysp. */
67 const unsigned char *buffer
; /* pointer to cached file contents */
68 struct stat st
; /* copy of stat(2) data for file */
69 int fd
; /* fd open on file (short term storage only) */
70 int err_no
; /* errno obtained if opening a file failed */
71 unsigned short include_count
; /* number of times file has been read */
72 unsigned short refcnt
; /* number of stacked buffers using this file */
73 unsigned char mapped
; /* file buffer is mmapped */
76 /* Variable length record files on VMS will have a stat size that includes
77 record control characters that won't be included in the read size. */
79 # define FAB_C_VAR 2 /* variable length records (see Starlet fabdef.h) */
80 # define STAT_SIZE_TOO_BIG(ST) ((ST).st_fab_rfm == FAB_C_VAR)
82 # define STAT_SIZE_TOO_BIG(ST) 0
85 /* The cmacro works like this: If it's NULL, the file is to be
86 included again. If it's NEVER_REREAD, the file is never to be
87 included again. Otherwise it is a macro hashnode, and the file is
88 to be included again if the macro is defined. */
89 #define NEVER_REREAD ((const cpp_hashnode *)-1)
90 #define DO_NOT_REREAD(inc) \
91 ((inc)->cmacro && ((inc)->cmacro == NEVER_REREAD \
92 || (inc)->cmacro->type == NT_MACRO))
93 #define NO_INCLUDE_PATH ((struct include_file *) -1)
95 static struct file_name_map
*read_name_map
96 PARAMS ((cpp_reader
*, const char *));
97 static char *read_filename_string
PARAMS ((int, FILE *));
98 static char *remap_filename
PARAMS ((cpp_reader
*, char *,
99 struct search_path
*));
100 static struct search_path
*search_from
PARAMS ((cpp_reader
*,
102 static struct include_file
*
103 find_include_file
PARAMS ((cpp_reader
*, const cpp_token
*,
105 static struct include_file
*open_file
PARAMS ((cpp_reader
*, const char *));
106 static int read_include_file
PARAMS ((cpp_reader
*, struct include_file
*));
107 static bool stack_include_file
PARAMS ((cpp_reader
*, struct include_file
*));
108 static void purge_cache
PARAMS ((struct include_file
*));
109 static void destroy_node
PARAMS ((splay_tree_value
));
110 static int report_missing_guard
PARAMS ((splay_tree_node
, void *));
111 static splay_tree_node find_or_create_entry
PARAMS ((cpp_reader
*,
113 static void handle_missing_header
PARAMS ((cpp_reader
*, const char *, int));
114 static int remove_component_p
PARAMS ((const char *));
116 /* Set up the splay tree we use to store information about all the
117 file names seen in this compilation. We also have entries for each
118 file we tried to open but failed; this saves system calls since we
119 don't try to open it again in future.
121 The key of each node is the file name, after processing by
122 _cpp_simplify_pathname. The path name may or may not be absolute.
123 The path string has been malloced, as is automatically freed by
124 registering free () as the splay tree key deletion function.
126 A node's value is a pointer to a struct include_file, and is never
129 _cpp_init_includes (pfile
)
132 pfile
->all_include_files
133 = splay_tree_new ((splay_tree_compare_fn
) strcmp
,
134 (splay_tree_delete_key_fn
) free
,
138 /* Tear down the splay tree. */
140 _cpp_cleanup_includes (pfile
)
143 splay_tree_delete (pfile
->all_include_files
);
146 /* Free a node. The path string is automatically freed. */
151 struct include_file
*f
= (struct include_file
*)v
;
160 /* Mark a file to not be reread (e.g. #import, read failure). */
162 _cpp_never_reread (file
)
163 struct include_file
*file
;
165 file
->cmacro
= NEVER_REREAD
;
168 /* Lookup a filename, which is simplified after making a copy, and
169 create an entry if none exists. errno is nonzero iff a (reported)
170 stat() error occurred during simplification. */
171 static splay_tree_node
172 find_or_create_entry (pfile
, fname
)
176 splay_tree_node node
;
177 struct include_file
*file
;
178 char *name
= xstrdup (fname
);
180 _cpp_simplify_pathname (name
);
181 node
= splay_tree_lookup (pfile
->all_include_files
, (splay_tree_key
) name
);
186 file
= xcnew (struct include_file
);
188 file
->err_no
= errno
;
189 node
= splay_tree_insert (pfile
->all_include_files
,
190 (splay_tree_key
) file
->name
,
191 (splay_tree_value
) file
);
197 /* Enter a file name in the splay tree, for the sake of cpp_included. */
199 _cpp_fake_include (pfile
, fname
)
203 find_or_create_entry (pfile
, fname
);
206 /* Given a file name, look it up in the cache; if there is no entry,
207 create one with a non-NULL value (regardless of success in opening
208 the file). If the file doesn't exist or is inaccessible, this
209 entry is flagged so we don't attempt to open it again in the
210 future. If the file isn't open, open it. The empty string is
211 interpreted as stdin.
213 Returns an include_file structure with an open file descriptor on
214 success, or NULL on failure. */
215 static struct include_file
*
216 open_file (pfile
, filename
)
218 const char *filename
;
220 splay_tree_node nd
= find_or_create_entry (pfile
, filename
);
221 struct include_file
*file
= (struct include_file
*) nd
->value
;
225 /* Ugh. handle_missing_header () needs errno to be set. */
226 errno
= file
->err_no
;
230 /* Don't reopen an idempotent file. */
231 if (DO_NOT_REREAD (file
))
234 /* Don't reopen one which is already loaded. */
235 if (file
->buffer
!= NULL
)
238 /* We used to open files in nonblocking mode, but that caused more
239 problems than it solved. Do take care not to acquire a
240 controlling terminal by mistake (this can't happen on sane
241 systems, but paranoia is a virtue).
243 Use the three-argument form of open even though we aren't
244 specifying O_CREAT, to defend against broken system headers.
246 O_BINARY tells some runtime libraries (notably DJGPP) not to do
247 newline translation; we can handle DOS line breaks just fine
250 Special case: the empty string is translated to stdin. */
252 if (filename
[0] == '\0')
255 file
->fd
= open (file
->name
, O_RDONLY
| O_NOCTTY
| O_BINARY
, 0666);
257 if (file
->fd
!= -1 && fstat (file
->fd
, &file
->st
) == 0)
259 if (!S_ISDIR (file
->st
.st_mode
))
262 /* If it's a directory, we return null and continue the search
263 as the file we're looking for may appear elsewhere in the
270 file
->err_no
= errno
;
274 /* Place the file referenced by INC into a new buffer on the buffer
275 stack, unless there are errors, or the file is not re-included
276 because of e.g. multiple-include guards. Returns true if a buffer
279 stack_include_file (pfile
, inc
)
281 struct include_file
*inc
;
285 const char *filename
;
287 if (DO_NOT_REREAD (inc
))
290 sysp
= MAX ((pfile
->map
? pfile
->map
->sysp
: 0),
291 (inc
->foundhere
? inc
->foundhere
->sysp
: 0));
293 /* For -M, add the file to the dependencies on its first inclusion. */
294 if (CPP_OPTION (pfile
, print_deps
) > sysp
&& !inc
->include_count
)
295 deps_add_dep (pfile
->deps
, inc
->name
);
300 if (read_include_file (pfile
, inc
))
302 /* If an error occurs, do not try to read this file again. */
303 _cpp_never_reread (inc
);
306 /* Mark a regular, zero-length file never-reread. We read it,
307 NUL-terminate it, and stack it once, so preprocessing a main
308 file of zero length does not raise an error. */
309 if (S_ISREG (inc
->st
.st_mode
) && inc
->st
.st_size
== 0)
310 _cpp_never_reread (inc
);
316 /* We don't want MI guard advice for the main file. */
317 inc
->include_count
++;
320 fp
= cpp_push_buffer (pfile
, inc
->buffer
, inc
->st
.st_size
,
321 /* from_stage3 */ CPP_OPTION (pfile
, preprocessed
), 0);
325 /* Initialise controlling macro state. */
326 pfile
->mi_valid
= true;
327 pfile
->mi_cmacro
= 0;
329 /* Generate the call back. */
330 filename
= inc
->name
;
331 if (*filename
== '\0')
332 filename
= "<stdin>";
333 _cpp_do_file_change (pfile
, LC_ENTER
, filename
, 1, sysp
);
338 /* Read the file referenced by INC into the file cache.
340 If fd points to a plain file, we might be able to mmap it; we can
341 definitely allocate the buffer all at once. If fd is a pipe or
342 terminal, we can't do either. If fd is something weird, like a
343 block device, we don't want to read it at all.
345 Unfortunately, different systems use different st.st_mode values
346 for pipes: some have S_ISFIFO, some S_ISSOCK, some are buggy and
347 zero the entire struct stat except a couple fields. Hence we don't
348 even try to figure out what something is, except for plain files
351 FIXME: Flush file cache and try again if we run out of memory. */
353 read_include_file (pfile
, inc
)
355 struct include_file
*inc
;
357 ssize_t size
, offset
, count
;
360 static int pagesize
= -1;
363 if (S_ISREG (inc
->st
.st_mode
))
365 /* off_t might have a wider range than ssize_t - in other words,
366 the max size of a file might be bigger than the address
367 space. We can't handle a file that large. (Anyone with
368 a single source file bigger than 2GB needs to rethink
369 their coding style.) Some systems (e.g. AIX 4.1) define
370 SSIZE_MAX to be much smaller than the actual range of the
371 type. Use INTTYPE_MAXIMUM unconditionally to ensure this
373 if (inc
->st
.st_size
> INTTYPE_MAXIMUM (ssize_t
))
375 cpp_error (pfile
, "%s is too large", inc
->name
);
378 size
= inc
->st
.st_size
;
383 pagesize
= getpagesize ();
385 /* Use mmap if the file is big enough to be worth it (controlled
386 by MMAP_THRESHOLD) and if we can safely count on there being
387 at least one readable NUL byte after the end of the file's
388 contents. This is true for all tested operating systems when
389 the file size is not an exact multiple of the page size. */
390 if (size
/ pagesize
>= MMAP_THRESHOLD
391 && (size
% pagesize
) != 0)
393 buf
= (U_CHAR
*) mmap (0, size
, PROT_READ
, MAP_PRIVATE
, inc
->fd
, 0);
394 if (buf
== (U_CHAR
*)-1)
401 buf
= (U_CHAR
*) xmalloc (size
+ 1);
403 while (offset
< size
)
405 count
= read (inc
->fd
, buf
+ offset
, size
- offset
);
410 if (!STAT_SIZE_TOO_BIG (inc
->st
))
412 (pfile
, "%s is shorter than expected", inc
->name
);
414 buf
= xrealloc (buf
, size
+ 1);
415 inc
->st
.st_size
= size
;
420 /* The lexer requires that the buffer be NUL-terminated. */
424 else if (S_ISBLK (inc
->st
.st_mode
))
426 cpp_error (pfile
, "%s is a block device", inc
->name
);
431 /* 8 kilobytes is a sensible starting size. It ought to be
432 bigger than the kernel pipe buffer, and it's definitely
433 bigger than the majority of C source files. */
436 buf
= (U_CHAR
*) xmalloc (size
+ 1);
438 while ((count
= read (inc
->fd
, buf
+ offset
, size
- offset
)) > 0)
444 buf
= xrealloc (buf
, size
+ 1);
450 if (offset
+ 1 < size
)
451 buf
= xrealloc (buf
, offset
+ 1);
453 /* The lexer requires that the buffer be NUL-terminated. */
455 inc
->st
.st_size
= offset
;
462 cpp_error_from_errno (pfile
, inc
->name
);
467 /* Drop INC's buffer from memory, if we are unlikely to need it again. */
470 struct include_file
*inc
;
476 munmap ((PTR
) inc
->buffer
, inc
->st
.st_size
);
479 free ((PTR
) inc
->buffer
);
484 /* Return 1 if the file named by FNAME has been included before in
485 any context, 0 otherwise. */
487 cpp_included (pfile
, fname
)
491 struct search_path
*path
;
495 if (IS_ABSOLUTE_PATHNAME (fname
))
497 /* Just look it up. */
498 nd
= splay_tree_lookup (pfile
->all_include_files
, (splay_tree_key
) fname
);
499 return (nd
&& nd
->value
);
502 /* Search directory path for the file. */
503 name
= (char *) alloca (strlen (fname
) + pfile
->max_include_len
+ 2);
504 for (path
= CPP_OPTION (pfile
, quote_include
); path
; path
= path
->next
)
506 memcpy (name
, path
->name
, path
->len
);
507 name
[path
->len
] = '/';
508 strcpy (&name
[path
->len
+ 1], fname
);
509 if (CPP_OPTION (pfile
, remap
))
510 n
= remap_filename (pfile
, name
, path
);
514 nd
= splay_tree_lookup (pfile
->all_include_files
, (splay_tree_key
) n
);
521 /* Search for HEADER. Return 0 if there is no such file (or it's
522 un-openable), in which case an error code will be in errno. If
523 there is no include path to use it returns NO_INCLUDE_PATH,
524 otherwise an include_file structure. If this request originates
525 from a directive of TYPE #include_next, set INCLUDE_NEXT to true. */
526 static struct include_file
*
527 find_include_file (pfile
, header
, type
)
529 const cpp_token
*header
;
530 enum include_type type
;
532 const char *fname
= (const char *) header
->val
.str
.text
;
533 struct search_path
*path
;
534 struct include_file
*file
;
537 if (IS_ABSOLUTE_PATHNAME (fname
))
538 return open_file (pfile
, fname
);
540 /* For #include_next, skip in the search path past the dir in which
541 the current file was found, but if it was found via an absolute
542 path use the normal search logic. */
543 if (type
== IT_INCLUDE_NEXT
&& pfile
->buffer
->inc
->foundhere
)
544 path
= pfile
->buffer
->inc
->foundhere
->next
;
545 else if (header
->type
== CPP_HEADER_NAME
)
546 path
= CPP_OPTION (pfile
, bracket_include
);
548 path
= search_from (pfile
, type
);
552 cpp_error (pfile
, "no include path in which to find %s", fname
);
553 return NO_INCLUDE_PATH
;
556 /* Search directory path for the file. */
557 name
= (char *) alloca (strlen (fname
) + pfile
->max_include_len
+ 2);
558 for (; path
; path
= path
->next
)
561 memcpy (name
, path
->name
, len
);
562 /* Don't turn / into // or // into ///; // may be a namespace
564 if (name
[len
-1] == '/')
567 strcpy (&name
[len
+ 1], fname
);
568 if (CPP_OPTION (pfile
, remap
))
569 n
= remap_filename (pfile
, name
, path
);
573 file
= open_file (pfile
, n
);
576 file
->foundhere
= path
;
584 /* Not everyone who wants to set system-header-ness on a buffer can
585 see the details of a buffer. This is an exported interface because
586 fix-header needs it. */
588 cpp_make_system_header (pfile
, syshdr
, externc
)
594 /* 1 = system header, 2 = system header to be treated as C. */
596 flags
= 1 + (externc
!= 0);
597 _cpp_do_file_change (pfile
, LC_RENAME
, pfile
->map
->to_file
,
598 SOURCE_LINE (pfile
->map
, pfile
->line
), flags
);
601 /* Report on all files that might benefit from a multiple include guard.
604 _cpp_report_missing_guards (pfile
)
608 splay_tree_foreach (pfile
->all_include_files
, report_missing_guard
,
612 /* Callback function for splay_tree_foreach(). */
614 report_missing_guard (n
, b
)
618 struct include_file
*f
= (struct include_file
*) n
->value
;
619 int *bannerp
= (int *)b
;
621 if (f
&& f
->cmacro
== 0 && f
->include_count
== 1)
625 fputs (_("Multiple include guards may be useful for:\n"), stderr
);
628 fputs (f
->name
, stderr
);
634 /* Create a dependency for file FNAME, or issue an error message as
635 appropriate. ANGLE_BRACKETS is non-zero if the file was bracketed
638 handle_missing_header (pfile
, fname
, angle_brackets
)
643 int print_dep
= CPP_PRINT_DEPS(pfile
) > (angle_brackets
|| pfile
->map
->sysp
);
645 if (CPP_OPTION (pfile
, print_deps_missing_files
) && print_dep
)
647 if (!angle_brackets
|| IS_ABSOLUTE_PATHNAME (fname
))
648 deps_add_dep (pfile
->deps
, fname
);
651 /* If requested as a system header, assume it belongs in
652 the first system header directory. */
653 struct search_path
*ptr
= CPP_OPTION (pfile
, bracket_include
);
655 int len
= 0, fname_len
= strlen (fname
);
660 p
= (char *) alloca (len
+ fname_len
+ 2);
663 memcpy (p
, ptr
->name
, len
);
666 memcpy (p
+ len
, fname
, fname_len
+ 1);
667 deps_add_dep (pfile
->deps
, p
);
670 /* If -M was specified, then don't count this as an error, because
671 we can still produce correct output. Otherwise, we can't produce
672 correct output, because there may be dependencies we need inside
673 the missing file, and we don't know what directory this missing
674 file exists in. FIXME: Use a future cpp_diagnostic_with_errno ()
675 for both of these cases. */
676 else if (CPP_PRINT_DEPS (pfile
) && ! print_dep
)
677 cpp_warning (pfile
, "%s: %s", fname
, xstrerror (errno
));
679 cpp_error_from_errno (pfile
, fname
);
682 /* Handles #include-family directives (distinguished by TYPE),
683 including HEADER, and the command line -imacros and -include.
684 Returns true if a buffer was stacked. */
686 _cpp_execute_include (pfile
, header
, type
)
688 const cpp_token
*header
;
689 enum include_type type
;
691 bool stacked
= false;
692 struct include_file
*inc
= find_include_file (pfile
, header
, type
);
695 handle_missing_header (pfile
, (const char *) header
->val
.str
.text
,
696 header
->type
== CPP_HEADER_NAME
);
697 else if (inc
!= NO_INCLUDE_PATH
)
699 stacked
= stack_include_file (pfile
, inc
);
701 if (type
== IT_IMPORT
)
702 _cpp_never_reread (inc
);
708 /* Locate HEADER, and determine whether it is newer than the current
709 file. If it cannot be located or dated, return -1, if it is newer
710 newer, return 1, otherwise 0. */
712 _cpp_compare_file_date (pfile
, header
)
714 const cpp_token
*header
;
716 struct include_file
*inc
= find_include_file (pfile
, header
, 0);
718 if (inc
== NULL
|| inc
== NO_INCLUDE_PATH
)
727 return inc
->st
.st_mtime
> pfile
->buffer
->inc
->st
.st_mtime
;
731 /* Push an input buffer and load it up with the contents of FNAME. If
732 FNAME is "", read standard input. Return true if a buffer was
735 _cpp_read_file (pfile
, fname
)
739 struct include_file
*f
= open_file (pfile
, fname
);
743 cpp_error_from_errno (pfile
, fname
);
747 return stack_include_file (pfile
, f
);
750 /* Do appropriate cleanup when a file INC's buffer is popped off the
751 input stack. Push the next -include file, if any remain. */
753 _cpp_pop_file_buffer (pfile
, inc
)
755 struct include_file
*inc
;
759 /* Record the inclusion-preventing macro, which could be NULL
760 meaning no controlling macro. */
761 if (pfile
->mi_valid
&& inc
->cmacro
== NULL
)
762 inc
->cmacro
= pfile
->mi_cmacro
;
764 /* Invalidate control macros in the #including file. */
765 pfile
->mi_valid
= false;
768 if (inc
->refcnt
== 0 && DO_NOT_REREAD (inc
))
771 /* Don't generate a callback for popping the main file. */
774 _cpp_do_file_change (pfile
, LC_LEAVE
, 0, 0, 0);
776 /* Finally, push the next -included file, if any. */
777 if (!pfile
->buffer
->prev
)
778 pushed
= _cpp_push_next_buffer (pfile
);
784 /* Returns the first place in the include chain to start searching for
785 "" includes. This involves stripping away the basename of the
786 current file, unless -I- was specified.
788 If we're handling -include or -imacros, use the "" chain, but with
789 the preprocessor's cwd prepended. */
790 static struct search_path
*
791 search_from (pfile
, type
)
793 enum include_type type
;
795 cpp_buffer
*buffer
= pfile
->buffer
;
798 /* Command line uses the cwd, and does not cache the result. */
799 if (type
== IT_CMDLINE
)
802 /* Ignore the current file's directory if -I- was given. */
803 if (CPP_OPTION (pfile
, ignore_srcdir
))
804 return CPP_OPTION (pfile
, quote_include
);
806 if (! buffer
->search_cached
)
808 buffer
->search_cached
= 1;
810 dlen
= lbasename (buffer
->inc
->name
) - buffer
->inc
->name
;
814 /* We don't guarantee NAME is null-terminated. This saves
815 allocating and freeing memory. Drop a trailing '/'. */
816 buffer
->dir
.name
= buffer
->inc
->name
;
823 buffer
->dir
.name
= ".";
827 if (dlen
> pfile
->max_include_len
)
828 pfile
->max_include_len
= dlen
;
830 buffer
->dir
.len
= dlen
;
831 buffer
->dir
.next
= CPP_OPTION (pfile
, quote_include
);
832 buffer
->dir
.sysp
= pfile
->map
->sysp
;
838 /* The file_name_map structure holds a mapping of file names for a
839 particular directory. This mapping is read from the file named
840 FILE_NAME_MAP_FILE in that directory. Such a file can be used to
841 map filenames on a file system with severe filename restrictions,
842 such as DOS. The format of the file name map file is just a series
843 of lines with two tokens on each line. The first token is the name
844 to map, and the second token is the actual name to use. */
847 struct file_name_map
*map_next
;
852 #define FILE_NAME_MAP_FILE "header.gcc"
854 /* Read a space delimited string of unlimited length from a stdio
857 read_filename_string (ch
, f
)
865 set
= alloc
= xmalloc (len
+ 1);
869 while ((ch
= getc (f
)) != EOF
&& ! is_space(ch
))
871 if (set
- alloc
== len
)
874 alloc
= xrealloc (alloc
, len
+ 1);
875 set
= alloc
+ len
/ 2;
885 /* This structure holds a linked list of file name maps, one per directory. */
886 struct file_name_map_list
888 struct file_name_map_list
*map_list_next
;
890 struct file_name_map
*map_list_map
;
893 /* Read the file name map file for DIRNAME. */
894 static struct file_name_map
*
895 read_name_map (pfile
, dirname
)
899 struct file_name_map_list
*map_list_ptr
;
903 /* Check the cache of directories, and mappings in their remap file. */
904 for (map_list_ptr
= CPP_OPTION (pfile
, map_list
); map_list_ptr
;
905 map_list_ptr
= map_list_ptr
->map_list_next
)
906 if (! strcmp (map_list_ptr
->map_list_name
, dirname
))
907 return map_list_ptr
->map_list_map
;
909 map_list_ptr
= ((struct file_name_map_list
*)
910 xmalloc (sizeof (struct file_name_map_list
)));
911 map_list_ptr
->map_list_name
= xstrdup (dirname
);
913 /* The end of the list ends in NULL. */
914 map_list_ptr
->map_list_map
= NULL
;
916 name
= (char *) alloca (strlen (dirname
) + strlen (FILE_NAME_MAP_FILE
) + 2);
917 strcpy (name
, dirname
);
920 strcat (name
, FILE_NAME_MAP_FILE
);
921 f
= fopen (name
, "r");
923 /* Silently return NULL if we cannot open. */
927 int dirlen
= strlen (dirname
);
929 while ((ch
= getc (f
)) != EOF
)
932 struct file_name_map
*ptr
;
936 from
= read_filename_string (ch
, f
);
937 while ((ch
= getc (f
)) != EOF
&& is_hspace(ch
))
939 to
= read_filename_string (ch
, f
);
941 ptr
= ((struct file_name_map
*)
942 xmalloc (sizeof (struct file_name_map
)));
943 ptr
->map_from
= from
;
945 /* Make the real filename absolute. */
946 if (IS_ABSOLUTE_PATHNAME (to
))
950 ptr
->map_to
= xmalloc (dirlen
+ strlen (to
) + 2);
951 strcpy (ptr
->map_to
, dirname
);
952 ptr
->map_to
[dirlen
] = '/';
953 strcpy (ptr
->map_to
+ dirlen
+ 1, to
);
957 ptr
->map_next
= map_list_ptr
->map_list_map
;
958 map_list_ptr
->map_list_map
= ptr
;
960 while ((ch
= getc (f
)) != '\n')
967 /* Add this information to the cache. */
968 map_list_ptr
->map_list_next
= CPP_OPTION (pfile
, map_list
);
969 CPP_OPTION (pfile
, map_list
) = map_list_ptr
;
971 return map_list_ptr
->map_list_map
;
974 /* Remap an unsimplified path NAME based on the file_name_map (if any)
977 remap_filename (pfile
, name
, loc
)
980 struct search_path
*loc
;
982 struct file_name_map
*map
;
983 const char *from
, *p
;
988 /* Get a null-terminated path. */
989 char *dname
= alloca (loc
->len
+ 1);
990 memcpy (dname
, loc
->name
, loc
->len
);
991 dname
[loc
->len
] = '\0';
993 loc
->name_map
= read_name_map (pfile
, dname
);
998 /* This works since NAME has not been simplified yet. */
999 from
= name
+ loc
->len
+ 1;
1001 for (map
= loc
->name_map
; map
; map
= map
->map_next
)
1002 if (!strcmp (map
->map_from
, from
))
1005 /* Try to find a mapping file for the particular directory we are
1006 looking in. Thus #include <sys/types.h> will look up sys/types.h
1007 in /usr/include/header.gcc and look up types.h in
1008 /usr/include/sys/header.gcc. */
1009 p
= strrchr (name
, '/');
1013 /* We know p != name as absolute paths don't call remap_filename. */
1015 cpp_ice (pfile
, "absolute file name in remap_filename");
1017 dir
= (char *) alloca (p
- name
+ 1);
1018 memcpy (dir
, name
, p
- name
);
1019 dir
[p
- name
] = '\0';
1022 for (map
= read_name_map (pfile
, dir
); map
; map
= map
->map_next
)
1023 if (! strcmp (map
->map_from
, from
))
1029 /* Returns true if it is safe to remove the final component of path,
1030 when it is followed by a ".." component. We use lstat to avoid
1031 symlinks if we have it. If not, we can still catch errors with
1034 remove_component_p (path
)
1041 result
= lstat (path
, &s
);
1043 result
= stat (path
, &s
);
1046 /* There's no guarantee that errno will be unchanged, even on
1047 success. Cygwin's lstat(), for example, will often set errno to
1048 ENOSYS. In case of success, reset errno to zero. */
1052 return result
== 0 && S_ISDIR (s
.st_mode
);
1055 /* Simplify a path name in place, deleting redundant components. This
1056 reduces OS overhead and guarantees that equivalent paths compare
1057 the same (modulo symlinks).
1060 foo/bar/../quux foo/quux
1064 //quux //quux (POSIX allows leading // as a namespace escape)
1066 Guarantees no trailing slashes. All transforms reduce the length
1067 of the string. Returns PATH. errno is 0 if no error occurred;
1068 nonzero if an error occurred when using stat () or lstat (). */
1070 _cpp_simplify_pathname (path
)
1075 char *base
, *orig_base
;
1079 /* Don't overflow the empty path by putting a '.' in it below. */
1083 #if defined (HAVE_DOS_BASED_FILE_SYSTEM)
1084 /* Convert all backslashes to slashes. */
1085 for (from
= path
; *from
; from
++)
1086 if (*from
== '\\') *from
= '/';
1088 /* Skip over leading drive letter if present. */
1089 if (ISALPHA (path
[0]) && path
[1] == ':')
1090 from
= to
= &path
[2];
1097 /* Remove redundant leading /s. */
1106 /* 3 or more initial /s are equivalent to 1 /. */
1107 while (*++from
== '/');
1109 /* On some hosts // differs from /; Posix allows this. */
1114 base
= orig_base
= to
;
1119 while (*from
== '/')
1127 if (from
[1] == '\0')
1134 else if (from
[1] == '.' && (from
[2] == '/' || from
[2] == '\0'))
1136 /* Don't simplify if there was no previous component. */
1137 if (absolute
&& orig_base
== to
)
1142 /* Don't simplify if the previous component was "../",
1143 or if an error has already occurred with (l)stat. */
1144 if (base
!= to
&& errno
== 0)
1146 /* We don't back up if it's a symlink. */
1148 if (remove_component_p (path
))
1150 while (to
> base
&& *to
!= '/')
1160 /* Add the component separator. */
1164 /* Copy this component until the trailing null or '/'. */
1165 while (*from
!= '\0' && *from
!= '/')
1172 /* Change the empty string to "." so that it is not treated as stdin.