1 /* Part of CPP library. (include file handling)
2 Copyright (C) 1986, 1987, 1989, 1992, 1993, 1994, 1995, 1998,
3 1999, 2000 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 #ifndef INCLUDE_LEN_FUDGE
47 # define INCLUDE_LEN_FUDGE 0
50 /* If errno is inspected immediately after a system call fails, it will be
51 nonzero, and no error number will ever be zero. */
62 /* Suppress warning about function macros used w/o arguments in traditional
63 C. It is unlikely that glibc's strcmp macro helps this file at all. */
66 /* This structure is used for the table of all includes. */
69 const char *name
; /* actual path name of file */
70 const cpp_hashnode
*cmacro
; /* macro, if any, preventing reinclusion. */
71 const struct file_name_list
*foundhere
;
72 /* location in search path where file was
73 found, for #include_next and sysp. */
74 const unsigned char *buffer
; /* pointer to cached file contents */
75 struct stat st
; /* copy of stat(2) data for file */
76 int fd
; /* fd open on file (short term storage only) */
77 unsigned short include_count
; /* number of times file has been read */
78 unsigned short refcnt
; /* number of stacked buffers using this file */
79 unsigned char mapped
; /* file buffer is mmapped */
80 unsigned char defined
; /* cmacro prevents inclusion in this state */
83 /* The cmacro works like this: If it's NULL, the file is to be
84 included again. If it's NEVER_REREAD, the file is never to be
85 included again. Otherwise it is a macro hashnode, and the file is
86 to be included again if the macro is defined or not as specified by
88 #define NEVER_REREAD ((const cpp_hashnode *)-1)
89 #define DO_NOT_REREAD(inc) \
90 ((inc)->cmacro && ((inc)->cmacro == NEVER_REREAD \
91 || ((inc)->cmacro->type == NT_MACRO) == (inc)->defined))
93 static struct file_name_map
*read_name_map
94 PARAMS ((cpp_reader
*, const char *));
95 static char *read_filename_string
PARAMS ((int, FILE *));
96 static char *remap_filename
PARAMS ((cpp_reader
*, char *,
97 struct file_name_list
*));
98 static struct file_name_list
*actual_directory
99 PARAMS ((cpp_reader
*, const char *));
100 static struct include_file
*find_include_file
101 PARAMS ((cpp_reader
*, const char *,
102 struct file_name_list
*));
103 static struct include_file
*open_file
PARAMS ((cpp_reader
*, const char *));
104 static void read_include_file
PARAMS ((cpp_reader
*, struct include_file
*));
105 static void stack_include_file
PARAMS ((cpp_reader
*, struct include_file
*));
106 static void purge_cache
PARAMS ((struct include_file
*));
107 static void destroy_include_file_node
PARAMS ((splay_tree_value
));
108 static int report_missing_guard
PARAMS ((splay_tree_node
, void *));
110 /* We use a splay tree to store information about all the include
111 files seen in this compilation. The key of each tree node is the
112 physical path to the file. The value is 0 if the file does not
113 exist, or a struct include_file pointer. */
116 destroy_include_file_node (v
)
119 struct include_file
*f
= (struct include_file
*)v
;
123 free (f
); /* The tree is registered with free to free f->name. */
128 _cpp_init_includes (pfile
)
131 pfile
->all_include_files
132 = splay_tree_new ((splay_tree_compare_fn
) strcmp
,
133 (splay_tree_delete_key_fn
) free
,
134 destroy_include_file_node
);
138 _cpp_cleanup_includes (pfile
)
141 splay_tree_delete (pfile
->all_include_files
);
144 /* Mark a file to not be reread (e.g. #import, read failure). */
146 _cpp_never_reread (file
)
147 struct include_file
*file
;
149 file
->cmacro
= NEVER_REREAD
;
152 /* Given a file name, look it up in the cache; if there is no entry,
153 create one with a non-NULL value (regardless of success in opening
154 the file). If the file doesn't exist or is inaccessible, this
155 entry is flagged so we don't attempt to open it again in the
156 future. If the file isn't open, open it.
158 Returns an include_file structure with an open file descriptor on
159 success, or NULL on failure. */
161 static struct include_file
*
162 open_file (pfile
, filename
)
164 const char *filename
;
167 struct include_file
*file
;
169 nd
= splay_tree_lookup (pfile
->all_include_files
, (splay_tree_key
) filename
);
173 file
= (struct include_file
*) nd
->value
;
175 /* Don't retry opening if we failed previously. */
179 /* Don't reopen an idempotent file. */
180 if (DO_NOT_REREAD (file
))
183 /* Don't reopen one which is already loaded. */
184 if (file
->buffer
!= NULL
)
189 /* In particular, this clears foundhere. */
190 file
= xcnew (struct include_file
);
191 file
->name
= xstrdup (filename
);
192 splay_tree_insert (pfile
->all_include_files
,
193 (splay_tree_key
) file
->name
,
194 (splay_tree_value
) file
);
197 /* We used to open files in nonblocking mode, but that caused more
198 problems than it solved. Do take care not to acquire a
199 controlling terminal by mistake (this can't happen on sane
200 systems, but paranoia is a virtue).
202 Use the three-argument form of open even though we aren't
203 specifying O_CREAT, to defend against broken system headers.
205 O_BINARY tells some runtime libraries (notably DJGPP) not to do
206 newline translation; we can handle DOS line breaks just fine
209 Special case: the empty string is translated to stdin. */
211 if (filename
[0] == '\0')
214 file
->fd
= open (filename
, O_RDONLY
| O_NOCTTY
| O_BINARY
, 0666);
216 if (file
->fd
!= -1 && fstat (file
->fd
, &file
->st
) == 0)
218 /* Mark a regular, zero-length file never-reread now. */
219 if (S_ISREG (file
->st
.st_mode
) && file
->st
.st_size
== 0)
221 _cpp_never_reread (file
);
229 /* Don't issue an error message if the file doesn't exist. */
230 if (errno
!= ENOENT
&& errno
!= ENOTDIR
)
231 cpp_error_from_errno (pfile
, filename
);
233 /* Create a negative node for this path, and return null. */
239 /* Place the file referenced by INC into a new buffer on PFILE's
240 stack. If there are errors, or the file should not be re-included,
241 a null buffer is pushed. */
244 stack_include_file (pfile
, inc
)
246 struct include_file
*inc
;
248 const char *filename
= 0;
249 unsigned int lineno
= 0;
254 filename
= pfile
->buffer
->nominal_fname
;
255 lineno
= pfile
->buffer
->lineno
;
260 read_include_file (pfile
, inc
);
262 /* Push a null buffer. */
263 fp
= cpp_push_buffer (pfile
, NULL
, 0, BUF_FILE
, inc
->name
);
265 fp
->buf
= inc
->buffer
;
266 fp
->rlimit
= fp
->buf
;
267 if (! DO_NOT_REREAD (inc
))
268 fp
->rlimit
+= inc
->st
.st_size
;
270 fp
->line_base
= fp
->buf
;
271 fp
->lineno
= 0; /* For _cpp_do_file_change. */
274 fp
->sysp
= inc
->foundhere
->sysp
;
276 /* The ->actual_dir field is only used when ignore_srcdir is not in effect;
278 if (!CPP_OPTION (pfile
, ignore_srcdir
))
279 fp
->actual_dir
= actual_directory (pfile
, inc
->name
);
281 /* Initialise controlling macro state. */
282 pfile
->mi_state
= MI_OUTSIDE
;
283 pfile
->mi_cmacro
= 0;
284 pfile
->include_depth
++;
286 _cpp_do_file_change (pfile
, FC_ENTER
, filename
, lineno
);
291 /* Read the file referenced by INC into the file cache.
293 If fd points to a plain file, we might be able to mmap it; we can
294 definitely allocate the buffer all at once. If fd is a pipe or
295 terminal, we can't do either. If fd is something weird, like a
296 block device or a directory, we don't want to read it at all.
298 Unfortunately, different systems use different st.st_mode values
299 for pipes: some have S_ISFIFO, some S_ISSOCK, some are buggy and
300 zero the entire struct stat except a couple fields. Hence we don't
301 even try to figure out what something is, except for plain files,
302 directories, and block devices.
304 FIXME: Flush file cache and try again if we run out of memory. */
307 read_include_file (pfile
, inc
)
309 struct include_file
*inc
;
311 ssize_t size
, offset
, count
;
314 static int pagesize
= -1;
317 if (DO_NOT_REREAD (inc
))
320 if (S_ISREG (inc
->st
.st_mode
))
322 /* off_t might have a wider range than ssize_t - in other words,
323 the max size of a file might be bigger than the address
324 space. We can't handle a file that large. (Anyone with
325 a single source file bigger than 2GB needs to rethink
326 their coding style.) Some systems (e.g. AIX 4.1) define
327 SSIZE_MAX to be much smaller than the actual range of the
328 type. Use INTTYPE_MAXIMUM unconditionally to ensure this
330 if (inc
->st
.st_size
> INTTYPE_MAXIMUM (ssize_t
))
332 cpp_error (pfile
, "%s is too large", inc
->name
);
335 size
= inc
->st
.st_size
;
340 pagesize
= getpagesize ();
342 if (size
/ pagesize
>= MMAP_THRESHOLD
)
344 buf
= (U_CHAR
*) mmap (0, size
, PROT_READ
, MAP_PRIVATE
, inc
->fd
, 0);
345 if (buf
== (U_CHAR
*)-1)
352 buf
= (U_CHAR
*) xmalloc (size
);
354 while (offset
< size
)
356 count
= read (inc
->fd
, buf
+ offset
, size
- offset
);
361 cpp_warning (pfile
, "%s is shorter than expected", inc
->name
);
368 else if (S_ISBLK (inc
->st
.st_mode
))
370 cpp_error (pfile
, "%s is a block device", inc
->name
);
373 else if (S_ISDIR (inc
->st
.st_mode
))
375 cpp_error (pfile
, "%s is a directory", inc
->name
);
380 /* 8 kilobytes is a sensible starting size. It ought to be
381 bigger than the kernel pipe buffer, and it's definitely
382 bigger than the majority of C source files. */
385 buf
= (U_CHAR
*) xmalloc (size
);
387 while ((count
= read (inc
->fd
, buf
+ offset
, size
- offset
)) > 0)
391 buf
= xrealloc (buf
, (size
*= 2));
397 buf
= xrealloc (buf
, offset
);
398 inc
->st
.st_size
= offset
;
407 cpp_error_from_errno (pfile
, inc
->name
);
409 /* Do not try to read this file again. */
412 _cpp_never_reread (inc
);
418 struct include_file
*inc
;
424 munmap ((PTR
) inc
->buffer
, inc
->st
.st_size
);
427 free ((PTR
) inc
->buffer
);
432 /* Return 1 if the file named by FNAME has been included before in
433 any context, 0 otherwise. */
435 cpp_included (pfile
, fname
)
439 struct file_name_list
*path
;
445 /* Just look it up. */
446 nd
= splay_tree_lookup (pfile
->all_include_files
, (splay_tree_key
) fname
);
447 return (nd
&& nd
->value
);
450 /* Search directory path for the file. */
451 name
= (char *) alloca (strlen (fname
) + pfile
->max_include_len
452 + 2 + INCLUDE_LEN_FUDGE
);
453 for (path
= CPP_OPTION (pfile
, quote_include
); path
; path
= path
->next
)
455 memcpy (name
, path
->name
, path
->nlen
);
456 name
[path
->nlen
] = '/';
457 strcpy (&name
[path
->nlen
+1], fname
);
458 _cpp_simplify_pathname (name
);
459 if (CPP_OPTION (pfile
, remap
))
460 name
= remap_filename (pfile
, name
, path
);
462 nd
= splay_tree_lookup (pfile
->all_include_files
, (splay_tree_key
) name
);
469 /* Search for include file FNAME in the include chain starting at
470 SEARCH_START. Return 0 if there is no such file (or it's un-openable),
471 otherwise an include_file structure. */
473 static struct include_file
*
474 find_include_file (pfile
, fname
, search_start
)
477 struct file_name_list
*search_start
;
479 struct file_name_list
*path
;
481 struct include_file
*file
;
484 return open_file (pfile
, fname
);
486 /* Search directory path for the file. */
487 name
= (char *) alloca (strlen (fname
) + pfile
->max_include_len
488 + 2 + INCLUDE_LEN_FUDGE
);
489 for (path
= search_start
; path
; path
= path
->next
)
491 memcpy (name
, path
->name
, path
->nlen
);
492 name
[path
->nlen
] = '/';
493 strcpy (&name
[path
->nlen
+1], fname
);
494 _cpp_simplify_pathname (name
);
495 if (CPP_OPTION (pfile
, remap
))
496 name
= remap_filename (pfile
, name
, path
);
498 file
= open_file (pfile
, name
);
501 file
->foundhere
= path
;
508 /* Not everyone who wants to set system-header-ness on a buffer can
509 see the details of a buffer. This is an exported interface because
510 fix-header needs it. */
512 cpp_make_system_header (pfile
, syshdr
, externc
)
518 /* 1 = system header, 2 = system header to be treated as C. */
520 flags
= 1 + (externc
!= 0);
521 pfile
->buffer
->sysp
= flags
;
524 /* Report on all files that might benefit from a multiple include guard.
527 _cpp_report_missing_guards (pfile
)
531 splay_tree_foreach (pfile
->all_include_files
, report_missing_guard
,
536 report_missing_guard (n
, b
)
540 struct include_file
*f
= (struct include_file
*) n
->value
;
541 int *bannerp
= (int *)b
;
543 if (f
&& f
->cmacro
== 0 && f
->include_count
== 1)
547 fputs (_("Multiple include guards may be useful for:\n"), stderr
);
550 fputs (f
->name
, stderr
);
556 #define PRINT_THIS_DEP(p, b) (CPP_PRINT_DEPS(p) > (b||p->system_include_depth))
558 _cpp_execute_include (pfile
, header
, no_reinclude
, include_next
)
560 const cpp_token
*header
;
564 struct file_name_list
*search_start
= 0;
565 unsigned int len
= header
->val
.str
.len
;
566 unsigned int angle_brackets
= header
->type
== CPP_HEADER_NAME
;
567 struct include_file
*inc
;
570 /* Help protect #include or similar from recursion. */
571 if (pfile
->buffer_stack_depth
>= CPP_STACK_MAX
)
573 cpp_fatal (pfile
, "#include nested too deeply");
577 /* Check we've tidied up #include before entering the buffer. */
578 if (pfile
->context
->prev
)
580 cpp_ice (pfile
, "attempt to push file buffer with contexts stacked");
584 /* For #include_next, skip in the search path past the dir in which
585 the current file was found. If this is the last directory in the
586 search path, don't include anything. If the current file was
587 specified with an absolute path, use the normal search logic. If
588 this is the primary source file, use the normal search logic and
589 generate a warning. */
592 if (! pfile
->buffer
->prev
)
593 cpp_warning (pfile
, "#include_next in primary source file");
596 if (pfile
->buffer
->inc
->foundhere
)
598 search_start
= pfile
->buffer
->inc
->foundhere
->next
;
605 fname
= alloca (len
+ 1);
606 memcpy (fname
, header
->val
.str
.text
, len
);
612 search_start
= CPP_OPTION (pfile
, bracket_include
);
613 else if (CPP_OPTION (pfile
, ignore_srcdir
))
614 search_start
= CPP_OPTION (pfile
, quote_include
);
616 search_start
= CPP_BUFFER (pfile
)->actual_dir
;
620 cpp_error (pfile
, "No include path in which to find %s", fname
);
625 inc
= find_include_file (pfile
, fname
, search_start
);
629 /* For -M, add the file to the dependencies on its first inclusion. */
630 if (!inc
->include_count
&& PRINT_THIS_DEP (pfile
, angle_brackets
))
631 deps_add_dep (pfile
->deps
, inc
->name
);
632 inc
->include_count
++;
634 /* Actually process the file. */
635 stack_include_file (pfile
, inc
);
638 pfile
->system_include_depth
++;
640 if (! DO_NOT_REREAD (inc
))
643 _cpp_never_reread (inc
);
645 /* Handle -H option. */
646 if (CPP_OPTION (pfile
, print_include_names
))
648 cpp_buffer
*fp
= CPP_BUFFER (pfile
);
649 while ((fp
= CPP_PREV_BUFFER (fp
)) != NULL
)
651 fprintf (stderr
, " %s\n", inc
->name
);
658 if (CPP_OPTION (pfile
, print_deps_missing_files
)
659 && PRINT_THIS_DEP (pfile
, angle_brackets
))
662 deps_add_dep (pfile
->deps
, fname
);
666 struct file_name_list
*ptr
;
667 /* If requested as a system header, assume it belongs in
668 the first system header directory. */
669 if (CPP_OPTION (pfile
, bracket_include
))
670 ptr
= CPP_OPTION (pfile
, bracket_include
);
672 ptr
= CPP_OPTION (pfile
, quote_include
);
674 p
= (char *) alloca (strlen (ptr
->name
)
675 + strlen (fname
) + 2);
676 if (*ptr
->name
!= '\0')
678 strcpy (p
, ptr
->name
);
682 _cpp_simplify_pathname (p
);
683 deps_add_dep (pfile
->deps
, p
);
686 /* If -M was specified, and this header file won't be added to
687 the dependency list, then don't count this as an error,
688 because we can still produce correct output. Otherwise, we
689 can't produce correct output, because there may be
690 dependencies we need inside the missing file, and we don't
691 know what directory this missing file exists in. */
692 else if (CPP_PRINT_DEPS (pfile
)
693 && ! PRINT_THIS_DEP (pfile
, angle_brackets
))
694 cpp_warning (pfile
, "No include path in which to find %s", fname
);
696 cpp_error_from_errno (pfile
, fname
);
699 /* Locate file F, and determine whether it is newer than PFILE. Return -1,
700 if F cannot be located or dated, 1, if it is newer and 0 if older. */
702 _cpp_compare_file_date (pfile
, f
)
706 unsigned int len
= f
->val
.str
.len
;
708 struct file_name_list
*search_start
;
709 struct include_file
*inc
;
711 if (f
->type
== CPP_HEADER_NAME
)
712 search_start
= CPP_OPTION (pfile
, bracket_include
);
713 else if (CPP_OPTION (pfile
, ignore_srcdir
))
714 search_start
= CPP_OPTION (pfile
, quote_include
);
716 search_start
= CPP_BUFFER (pfile
)->actual_dir
;
718 fname
= alloca (len
+ 1);
719 memcpy (fname
, f
->val
.str
.text
, len
);
721 inc
= find_include_file (pfile
, fname
, search_start
);
731 return inc
->st
.st_mtime
> CPP_BUFFER (pfile
)->inc
->st
.st_mtime
;
735 /* Push an input buffer and load it up with the contents of FNAME.
736 If FNAME is "" or NULL, read standard input. */
738 _cpp_read_file (pfile
, fname
)
742 struct include_file
*f
;
747 f
= open_file (pfile
, fname
);
751 cpp_error_from_errno (pfile
, fname
);
755 stack_include_file (pfile
, f
);
759 /* Do appropriate cleanup when a file buffer is popped off the input
762 _cpp_pop_file_buffer (pfile
, buf
)
766 struct include_file
*inc
= buf
->inc
;
768 if (pfile
->system_include_depth
)
769 pfile
->system_include_depth
--;
770 if (pfile
->include_depth
)
771 pfile
->include_depth
--;
773 /* Record the inclusion-preventing macro and its definedness. */
774 if (pfile
->mi_state
== MI_OUTSIDE
&& inc
->cmacro
!= NEVER_REREAD
)
776 /* This could be NULL meaning no controlling macro. */
777 inc
->cmacro
= pfile
->mi_cmacro
;
781 /* Invalidate control macros in the #including file. */
782 pfile
->mi_state
= MI_FAILED
;
785 if (inc
->refcnt
== 0 && DO_NOT_REREAD (inc
))
789 /* The file_name_map structure holds a mapping of file names for a
790 particular directory. This mapping is read from the file named
791 FILE_NAME_MAP_FILE in that directory. Such a file can be used to
792 map filenames on a file system with severe filename restrictions,
793 such as DOS. The format of the file name map file is just a series
794 of lines with two tokens on each line. The first token is the name
795 to map, and the second token is the actual name to use. */
799 struct file_name_map
*map_next
;
804 #define FILE_NAME_MAP_FILE "header.gcc"
806 /* Read a space delimited string of unlimited length from a stdio
810 read_filename_string (ch
, f
)
818 set
= alloc
= xmalloc (len
+ 1);
822 while ((ch
= getc (f
)) != EOF
&& ! is_space(ch
))
824 if (set
- alloc
== len
)
827 alloc
= xrealloc (alloc
, len
+ 1);
828 set
= alloc
+ len
/ 2;
838 /* This structure holds a linked list of file name maps, one per directory. */
840 struct file_name_map_list
842 struct file_name_map_list
*map_list_next
;
844 struct file_name_map
*map_list_map
;
847 /* Read the file name map file for DIRNAME. */
849 static struct file_name_map
*
850 read_name_map (pfile
, dirname
)
854 register struct file_name_map_list
*map_list_ptr
;
858 /* Check the cache of directories, and mappings in their remap file. */
859 for (map_list_ptr
= CPP_OPTION (pfile
, map_list
); map_list_ptr
;
860 map_list_ptr
= map_list_ptr
->map_list_next
)
861 if (! strcmp (map_list_ptr
->map_list_name
, dirname
))
862 return map_list_ptr
->map_list_map
;
864 map_list_ptr
= ((struct file_name_map_list
*)
865 xmalloc (sizeof (struct file_name_map_list
)));
866 map_list_ptr
->map_list_name
= xstrdup (dirname
);
868 /* The end of the list ends in NULL. */
869 map_list_ptr
->map_list_map
= NULL
;
871 name
= (char *) alloca (strlen (dirname
) + strlen (FILE_NAME_MAP_FILE
) + 2);
872 strcpy (name
, dirname
);
875 strcat (name
, FILE_NAME_MAP_FILE
);
876 f
= fopen (name
, "r");
878 /* Silently return NULL if we cannot open. */
882 int dirlen
= strlen (dirname
);
884 while ((ch
= getc (f
)) != EOF
)
887 struct file_name_map
*ptr
;
891 from
= read_filename_string (ch
, f
);
892 while ((ch
= getc (f
)) != EOF
&& is_hspace(ch
))
894 to
= read_filename_string (ch
, f
);
896 ptr
= ((struct file_name_map
*)
897 xmalloc (sizeof (struct file_name_map
)));
898 ptr
->map_from
= from
;
900 /* Make the real filename absolute. */
905 ptr
->map_to
= xmalloc (dirlen
+ strlen (to
) + 2);
906 strcpy (ptr
->map_to
, dirname
);
907 ptr
->map_to
[dirlen
] = '/';
908 strcpy (ptr
->map_to
+ dirlen
+ 1, to
);
912 ptr
->map_next
= map_list_ptr
->map_list_map
;
913 map_list_ptr
->map_list_map
= ptr
;
915 while ((ch
= getc (f
)) != '\n')
922 /* Add this information to the cache. */
923 map_list_ptr
->map_list_next
= CPP_OPTION (pfile
, map_list
);
924 CPP_OPTION (pfile
, map_list
) = map_list_ptr
;
926 return map_list_ptr
->map_list_map
;
929 /* Remap NAME based on the file_name_map (if any) for LOC. */
932 remap_filename (pfile
, name
, loc
)
935 struct file_name_list
*loc
;
937 struct file_name_map
*map
;
938 const char *from
, *p
;
943 loc
->name_map
= read_name_map (pfile
, loc
->name
? loc
->name
: ".");
948 from
= name
+ strlen (loc
->name
) + 1;
950 for (map
= loc
->name_map
; map
; map
= map
->map_next
)
951 if (!strcmp (map
->map_from
, from
))
954 /* Try to find a mapping file for the particular directory we are
955 looking in. Thus #include <sys/types.h> will look up sys/types.h
956 in /usr/include/header.gcc and look up types.h in
957 /usr/include/sys/header.gcc. */
958 p
= strrchr (name
, '/');
962 /* We know p != name as absolute paths don't call remap_filename. */
964 cpp_ice (pfile
, "absolute file name in remap_filename");
966 dir
= (char *) alloca (p
- name
+ 1);
967 memcpy (dir
, name
, p
- name
);
968 dir
[p
- name
] = '\0';
971 for (map
= read_name_map (pfile
, dir
); map
; map
= map
->map_next
)
972 if (! strcmp (map
->map_from
, from
))
978 /* Given a path FNAME, extract the directory component and place it
979 onto the actual_dirs list. Return a pointer to the allocated
980 file_name_list structure. These structures are used to implement
981 current-directory "" include searching. */
983 static struct file_name_list
*
984 actual_directory (pfile
, fname
)
988 char *last_slash
, *dir
;
990 struct file_name_list
*x
;
992 dir
= xstrdup (fname
);
993 last_slash
= strrchr (dir
, '/');
996 if (last_slash
== dir
)
999 last_slash
[1] = '\0';
1003 dlen
= last_slash
- dir
;
1010 dir
= xstrdup (".");
1014 if (dlen
> pfile
->max_include_len
)
1015 pfile
->max_include_len
= dlen
;
1017 for (x
= pfile
->actual_dirs
; x
; x
= x
->alloc
)
1018 if (!strcmp (x
->name
, dir
))
1024 /* Not found, make a new one. */
1025 x
= (struct file_name_list
*) xmalloc (sizeof (struct file_name_list
));
1028 x
->next
= CPP_OPTION (pfile
, quote_include
);
1029 x
->alloc
= pfile
->actual_dirs
;
1030 x
->sysp
= pfile
->buffer
->sysp
;
1033 pfile
->actual_dirs
= x
;
1037 /* Simplify a path name in place, deleting redundant components. This
1038 reduces OS overhead and guarantees that equivalent paths compare
1039 the same (modulo symlinks).
1042 foo/bar/../quux foo/quux
1046 //quux //quux (POSIX allows leading // as a namespace escape)
1048 Guarantees no trailing slashes. All transforms reduce the length
1052 _cpp_simplify_pathname (path
)
1059 #if defined (HAVE_DOS_BASED_FILE_SYSTEM)
1060 /* Convert all backslashes to slashes. */
1061 for (from
= path
; *from
; from
++)
1062 if (*from
== '\\') *from
= '/';
1064 /* Skip over leading drive letter if present. */
1065 if (ISALPHA (path
[0]) && path
[1] == ':')
1066 from
= to
= &path
[2];
1073 /* Remove redundant initial /s. */
1082 /* 3 or more initial /s are equivalent to 1 /. */
1083 while (*++from
== '/');
1085 /* On some hosts // differs from /; Posix allows this. */
1093 while (*from
== '/')
1096 if (from
[0] == '.' && from
[1] == '/')
1098 else if (from
[0] == '.' && from
[1] == '\0')
1100 else if (from
[0] == '.' && from
[1] == '.' && from
[2] == '/')
1117 while (to
> base
&& *to
!= '/') to
--;
1123 else if (from
[0] == '.' && from
[1] == '.' && from
[2] == '\0')
1136 while (to
> base
&& *to
!= '/') to
--;
1143 /* Copy this component and trailing /, if any. */
1144 while ((*to
++ = *from
++) != '/')
1156 /* Trim trailing slash */
1157 if (to
[0] == '/' && (!absolute
|| to
> path
+1))
1160 /* Change the empty string to "." so that stat() on the result
1161 will always work. */