1 /* Relative (relocatable) prefix support.
2 Copyright (C) 1987, 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
3 1999, 2000, 2001, 2002, 2006 Free Software Foundation, Inc.
5 This file is part of libiberty.
7 GCC is free software; you can redistribute it and/or modify it under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation; either version 2, or (at your option) any later
12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING. If not, write to the Free
19 Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
24 @deftypefn Extension {const char*} make_relative_prefix (const char *@var{progname}, @
25 const char *@var{bin_prefix}, const char *@var{prefix})
27 Given three paths @var{progname}, @var{bin_prefix}, @var{prefix},
28 return the path that is in the same position relative to
29 @var{progname}'s directory as @var{prefix} is relative to
30 @var{bin_prefix}. That is, a string starting with the directory
31 portion of @var{progname}, followed by a relative pathname of the
32 difference between @var{bin_prefix} and @var{prefix}.
34 If @var{progname} does not contain any directory separators,
35 @code{make_relative_prefix} will search @env{PATH} to find a program
36 named @var{progname}. Also, if @var{progname} is a symbolic link,
37 the symbolic link will be resolved.
39 For example, if @var{bin_prefix} is @code{/alpha/beta/gamma/gcc/delta},
40 @var{prefix} is @code{/alpha/beta/gamma/omega/}, and @var{progname} is
41 @code{/red/green/blue/gcc}, then this function will return
42 @code{/red/green/blue/../../omega/}.
44 The return value is normally allocated via @code{malloc}. If no
45 relative prefix can be found, return @code{NULL}.
65 #include "libiberty.h"
74 # define DIR_SEPARATOR '/'
77 #if defined (_WIN32) || defined (__MSDOS__) \
78 || defined (__DJGPP__) || defined (__OS2__)
79 # define HAVE_DOS_BASED_FILE_SYSTEM
80 # define HAVE_HOST_EXECUTABLE_SUFFIX
81 # define HOST_EXECUTABLE_SUFFIX ".exe"
82 # ifndef DIR_SEPARATOR_2
83 # define DIR_SEPARATOR_2 '\\'
85 # define PATH_SEPARATOR ';'
87 # define PATH_SEPARATOR ':'
90 #ifndef DIR_SEPARATOR_2
91 # define IS_DIR_SEPARATOR(ch) ((ch) == DIR_SEPARATOR)
93 # define IS_DIR_SEPARATOR(ch) \
94 (((ch) == DIR_SEPARATOR) || ((ch) == DIR_SEPARATOR_2))
99 static char *save_string (const char *, int);
100 static char **split_directories (const char *, int *);
101 static void free_split_directories (char **);
104 save_string (const char *s
, int len
)
106 char *result
= (char *) malloc (len
+ 1);
108 memcpy (result
, s
, len
);
113 /* Split a filename into component directories. */
116 split_directories (const char *name
, int *ptr_num_dirs
)
123 /* Count the number of directories. Special case MSDOS disk names as part
124 of the initial directory. */
126 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
127 if (name
[1] == ':' && IS_DIR_SEPARATOR (name
[2]))
132 #endif /* HAVE_DOS_BASED_FILE_SYSTEM */
134 while ((ch
= *p
++) != '\0')
136 if (IS_DIR_SEPARATOR (ch
))
139 while (IS_DIR_SEPARATOR (*p
))
144 dirs
= (char **) malloc (sizeof (char *) * (num_dirs
+ 2));
148 /* Now copy the directory parts. */
151 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
152 if (name
[1] == ':' && IS_DIR_SEPARATOR (name
[2]))
154 dirs
[num_dirs
++] = save_string (p
, 3);
155 if (dirs
[num_dirs
- 1] == NULL
)
162 #endif /* HAVE_DOS_BASED_FILE_SYSTEM */
165 while ((ch
= *p
++) != '\0')
167 if (IS_DIR_SEPARATOR (ch
))
169 while (IS_DIR_SEPARATOR (*p
))
172 dirs
[num_dirs
++] = save_string (q
, p
- q
);
173 if (dirs
[num_dirs
- 1] == NULL
)
175 dirs
[num_dirs
] = NULL
;
176 free_split_directories (dirs
);
184 dirs
[num_dirs
++] = save_string (q
, p
- 1 - q
);
185 dirs
[num_dirs
] = NULL
;
187 if (dirs
[num_dirs
- 1] == NULL
)
189 free_split_directories (dirs
);
194 *ptr_num_dirs
= num_dirs
;
198 /* Release storage held by split directories. */
201 free_split_directories (char **dirs
)
207 while (dirs
[i
] != NULL
)
210 free ((char *) dirs
);
214 /* Given three strings PROGNAME, BIN_PREFIX, PREFIX, return a string that gets
215 to PREFIX starting with the directory portion of PROGNAME and a relative
216 pathname of the difference between BIN_PREFIX and PREFIX.
218 For example, if BIN_PREFIX is /alpha/beta/gamma/gcc/delta, PREFIX is
219 /alpha/beta/gamma/omega/, and PROGNAME is /red/green/blue/gcc, then this
220 function will return /red/green/blue/../../omega/.
222 If no relative prefix can be found, return NULL. */
225 make_relative_prefix_1 (const char *progname
, const char *bin_prefix
,
226 const char *prefix
, const int resolve_links
)
228 char **prog_dirs
= NULL
, **bin_dirs
= NULL
, **prefix_dirs
= NULL
;
229 int prog_num
, bin_num
, prefix_num
;
232 char *ret
= NULL
, *ptr
, *full_progname
;
234 if (progname
== NULL
|| bin_prefix
== NULL
|| prefix
== NULL
)
237 /* If there is no full pathname, try to find the program by checking in each
238 of the directories specified in the PATH environment variable. */
239 if (lbasename (progname
) == progname
)
243 temp
= getenv ("PATH");
246 char *startp
, *endp
, *nstore
;
247 size_t prefixlen
= strlen (temp
) + 1;
251 nstore
= (char *) alloca (prefixlen
+ strlen (progname
) + 1);
253 startp
= endp
= temp
;
256 if (*endp
== PATH_SEPARATOR
|| *endp
== 0)
261 nstore
[1] = DIR_SEPARATOR
;
266 strncpy (nstore
, startp
, endp
- startp
);
267 if (! IS_DIR_SEPARATOR (endp
[-1]))
269 nstore
[endp
- startp
] = DIR_SEPARATOR
;
270 nstore
[endp
- startp
+ 1] = 0;
273 nstore
[endp
- startp
] = 0;
275 strcat (nstore
, progname
);
276 if (! access (nstore
, X_OK
)
277 #ifdef HAVE_HOST_EXECUTABLE_SUFFIX
278 || ! access (strcat (nstore
, HOST_EXECUTABLE_SUFFIX
), X_OK
)
288 endp
= startp
= endp
+ 1;
297 full_progname
= lrealpath (progname
);
299 full_progname
= strdup (progname
);
300 if (full_progname
== NULL
)
303 prog_dirs
= split_directories (full_progname
, &prog_num
);
304 free (full_progname
);
305 if (prog_dirs
== NULL
)
308 bin_dirs
= split_directories (bin_prefix
, &bin_num
);
309 if (bin_dirs
== NULL
)
312 /* Remove the program name from comparison of directory names. */
315 /* If we are still installed in the standard location, we don't need to
316 specify relative directories. Also, if argv[0] still doesn't contain
317 any directory specifiers after the search above, then there is not much
319 if (prog_num
== bin_num
)
321 for (i
= 0; i
< bin_num
; i
++)
323 if (strcmp (prog_dirs
[i
], bin_dirs
[i
]) != 0)
327 if (prog_num
<= 0 || i
== bin_num
)
331 prefix_dirs
= split_directories (prefix
, &prefix_num
);
332 if (prefix_dirs
== NULL
)
335 /* Find how many directories are in common between bin_prefix & prefix. */
336 n
= (prefix_num
< bin_num
) ? prefix_num
: bin_num
;
337 for (common
= 0; common
< n
; common
++)
339 if (strcmp (bin_dirs
[common
], prefix_dirs
[common
]) != 0)
343 /* If there are no common directories, there can be no relative prefix. */
347 /* Two passes: first figure out the size of the result string, and
348 then construct it. */
350 for (i
= 0; i
< prog_num
; i
++)
351 needed_len
+= strlen (prog_dirs
[i
]);
352 needed_len
+= sizeof (DIR_UP
) * (bin_num
- common
);
353 for (i
= common
; i
< prefix_num
; i
++)
354 needed_len
+= strlen (prefix_dirs
[i
]);
355 needed_len
+= 1; /* Trailing NUL. */
357 ret
= (char *) malloc (needed_len
);
361 /* Build up the pathnames in argv[0]. */
363 for (i
= 0; i
< prog_num
; i
++)
364 strcat (ret
, prog_dirs
[i
]);
366 /* Now build up the ..'s. */
367 ptr
= ret
+ strlen(ret
);
368 for (i
= common
; i
< bin_num
; i
++)
370 strcpy (ptr
, DIR_UP
);
371 ptr
+= sizeof (DIR_UP
) - 1;
372 *(ptr
++) = DIR_SEPARATOR
;
376 /* Put in directories to move over to prefix. */
377 for (i
= common
; i
< prefix_num
; i
++)
378 strcat (ret
, prefix_dirs
[i
]);
381 free_split_directories (prog_dirs
);
382 free_split_directories (bin_dirs
);
383 free_split_directories (prefix_dirs
);
389 /* Do the full job, including symlink resolution.
390 This path will find files installed in the same place as the
391 program even when a soft link has been made to the program
392 from somwhere else. */
395 make_relative_prefix (const char *progname
, const char *bin_prefix
,
398 return make_relative_prefix_1 (progname
, bin_prefix
, prefix
, 1);
401 /* Make the relative pathname without attempting to resolve any links.
402 '..' etc may also be left in the pathname.
403 This will find the files the user meant the program to find if the
404 installation is patched together with soft links. */
407 make_relative_prefix_ignore_links (const char *progname
,
408 const char *bin_prefix
,
411 return make_relative_prefix_1 (progname
, bin_prefix
, prefix
, 0);
This page took 0.039728 seconds and 4 git commands to generate.