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}, const char *@var{bin_prefix}, const char *@var{prefix})
26 Given three paths @var{progname}, @var{bin_prefix}, @var{prefix},
27 return the path that is in the same position relative to
28 @var{progname}'s directory as @var{prefix} is relative to
29 @var{bin_prefix}. That is, a string starting with the directory
30 portion of @var{progname}, followed by a relative pathname of the
31 difference between @var{bin_prefix} and @var{prefix}.
33 If @var{progname} does not contain any directory separators,
34 @code{make_relative_prefix} will search @env{PATH} to find a program
35 named @var{progname}. Also, if @var{progname} is a symbolic link,
36 the symbolic link will be resolved.
38 For example, if @var{bin_prefix} is @code{/alpha/beta/gamma/gcc/delta},
39 @var{prefix} is @code{/alpha/beta/gamma/omega/}, and @var{progname} is
40 @code{/red/green/blue/gcc}, then this function will return
41 @code{/red/green/blue/../../omega/}.
43 The return value is normally allocated via @code{malloc}. If no
44 relative prefix can be found, return @code{NULL}.
64 #include "libiberty.h"
73 # define DIR_SEPARATOR '/'
76 #if defined (_WIN32) || defined (__MSDOS__) \
77 || defined (__DJGPP__) || defined (__OS2__)
78 # define HAVE_DOS_BASED_FILE_SYSTEM
79 # define HAVE_HOST_EXECUTABLE_SUFFIX
80 # define HOST_EXECUTABLE_SUFFIX ".exe"
81 # ifndef DIR_SEPARATOR_2
82 # define DIR_SEPARATOR_2 '\\'
84 # define PATH_SEPARATOR ';'
86 # define PATH_SEPARATOR ':'
89 #ifndef DIR_SEPARATOR_2
90 # define IS_DIR_SEPARATOR(ch) ((ch) == DIR_SEPARATOR)
92 # define IS_DIR_SEPARATOR(ch) \
93 (((ch) == DIR_SEPARATOR) || ((ch) == DIR_SEPARATOR_2))
98 static char *save_string (const char *, int);
99 static char **split_directories (const char *, int *);
100 static void free_split_directories (char **);
103 save_string (const char *s
, int len
)
105 char *result
= (char *) malloc (len
+ 1);
107 memcpy (result
, s
, len
);
112 /* Split a filename into component directories. */
115 split_directories (const char *name
, int *ptr_num_dirs
)
122 /* Count the number of directories. Special case MSDOS disk names as part
123 of the initial directory. */
125 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
126 if (name
[1] == ':' && IS_DIR_SEPARATOR (name
[2]))
131 #endif /* HAVE_DOS_BASED_FILE_SYSTEM */
133 while ((ch
= *p
++) != '\0')
135 if (IS_DIR_SEPARATOR (ch
))
138 while (IS_DIR_SEPARATOR (*p
))
143 dirs
= (char **) malloc (sizeof (char *) * (num_dirs
+ 2));
147 /* Now copy the directory parts. */
150 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
151 if (name
[1] == ':' && IS_DIR_SEPARATOR (name
[2]))
153 dirs
[num_dirs
++] = save_string (p
, 3);
154 if (dirs
[num_dirs
- 1] == NULL
)
161 #endif /* HAVE_DOS_BASED_FILE_SYSTEM */
164 while ((ch
= *p
++) != '\0')
166 if (IS_DIR_SEPARATOR (ch
))
168 while (IS_DIR_SEPARATOR (*p
))
171 dirs
[num_dirs
++] = save_string (q
, p
- q
);
172 if (dirs
[num_dirs
- 1] == NULL
)
174 dirs
[num_dirs
] = NULL
;
175 free_split_directories (dirs
);
183 dirs
[num_dirs
++] = save_string (q
, p
- 1 - q
);
184 dirs
[num_dirs
] = NULL
;
186 if (dirs
[num_dirs
- 1] == NULL
)
188 free_split_directories (dirs
);
193 *ptr_num_dirs
= num_dirs
;
197 /* Release storage held by split directories. */
200 free_split_directories (char **dirs
)
206 while (dirs
[i
] != NULL
)
209 free ((char *) dirs
);
213 /* Given three strings PROGNAME, BIN_PREFIX, PREFIX, return a string that gets
214 to PREFIX starting with the directory portion of PROGNAME and a relative
215 pathname of the difference between BIN_PREFIX and PREFIX.
217 For example, if BIN_PREFIX is /alpha/beta/gamma/gcc/delta, PREFIX is
218 /alpha/beta/gamma/omega/, and PROGNAME is /red/green/blue/gcc, then this
219 function will return /red/green/blue/../../omega/.
221 If no relative prefix can be found, return NULL. */
224 make_relative_prefix_1 (const char *progname
, const char *bin_prefix
,
225 const char *prefix
, const int resolve_links
)
227 char **prog_dirs
= NULL
, **bin_dirs
= NULL
, **prefix_dirs
= NULL
;
228 int prog_num
, bin_num
, prefix_num
;
231 char *ret
= NULL
, *ptr
, *full_progname
;
233 if (progname
== NULL
|| bin_prefix
== NULL
|| prefix
== NULL
)
236 /* If there is no full pathname, try to find the program by checking in each
237 of the directories specified in the PATH environment variable. */
238 if (lbasename (progname
) == progname
)
242 temp
= getenv ("PATH");
245 char *startp
, *endp
, *nstore
;
246 size_t prefixlen
= strlen (temp
) + 1;
250 nstore
= (char *) alloca (prefixlen
+ strlen (progname
) + 1);
252 startp
= endp
= temp
;
255 if (*endp
== PATH_SEPARATOR
|| *endp
== 0)
260 nstore
[1] = DIR_SEPARATOR
;
265 strncpy (nstore
, startp
, endp
- startp
);
266 if (! IS_DIR_SEPARATOR (endp
[-1]))
268 nstore
[endp
- startp
] = DIR_SEPARATOR
;
269 nstore
[endp
- startp
+ 1] = 0;
272 nstore
[endp
- startp
] = 0;
274 strcat (nstore
, progname
);
275 if (! access (nstore
, X_OK
)
276 #ifdef HAVE_HOST_EXECUTABLE_SUFFIX
277 || ! access (strcat (nstore
, HOST_EXECUTABLE_SUFFIX
), X_OK
)
287 endp
= startp
= endp
+ 1;
296 full_progname
= lrealpath (progname
);
298 full_progname
= strdup (progname
);
299 if (full_progname
== NULL
)
302 prog_dirs
= split_directories (full_progname
, &prog_num
);
303 free (full_progname
);
304 if (prog_dirs
== NULL
)
307 bin_dirs
= split_directories (bin_prefix
, &bin_num
);
308 if (bin_dirs
== NULL
)
311 /* Remove the program name from comparison of directory names. */
314 /* If we are still installed in the standard location, we don't need to
315 specify relative directories. Also, if argv[0] still doesn't contain
316 any directory specifiers after the search above, then there is not much
318 if (prog_num
== bin_num
)
320 for (i
= 0; i
< bin_num
; i
++)
322 if (strcmp (prog_dirs
[i
], bin_dirs
[i
]) != 0)
326 if (prog_num
<= 0 || i
== bin_num
)
330 prefix_dirs
= split_directories (prefix
, &prefix_num
);
331 if (prefix_dirs
== NULL
)
334 /* Find how many directories are in common between bin_prefix & prefix. */
335 n
= (prefix_num
< bin_num
) ? prefix_num
: bin_num
;
336 for (common
= 0; common
< n
; common
++)
338 if (strcmp (bin_dirs
[common
], prefix_dirs
[common
]) != 0)
342 /* If there are no common directories, there can be no relative prefix. */
346 /* Two passes: first figure out the size of the result string, and
347 then construct it. */
349 for (i
= 0; i
< prog_num
; i
++)
350 needed_len
+= strlen (prog_dirs
[i
]);
351 needed_len
+= sizeof (DIR_UP
) * (bin_num
- common
);
352 for (i
= common
; i
< prefix_num
; i
++)
353 needed_len
+= strlen (prefix_dirs
[i
]);
354 needed_len
+= 1; /* Trailing NUL. */
356 ret
= (char *) malloc (needed_len
);
360 /* Build up the pathnames in argv[0]. */
362 for (i
= 0; i
< prog_num
; i
++)
363 strcat (ret
, prog_dirs
[i
]);
365 /* Now build up the ..'s. */
366 ptr
= ret
+ strlen(ret
);
367 for (i
= common
; i
< bin_num
; i
++)
369 strcpy (ptr
, DIR_UP
);
370 ptr
+= sizeof (DIR_UP
) - 1;
371 *(ptr
++) = DIR_SEPARATOR
;
375 /* Put in directories to move over to prefix. */
376 for (i
= common
; i
< prefix_num
; i
++)
377 strcat (ret
, prefix_dirs
[i
]);
380 free_split_directories (prog_dirs
);
381 free_split_directories (bin_dirs
);
382 free_split_directories (prefix_dirs
);
388 /* Do the full job, including symlink resolution.
389 This path will find files installed in the same place as the
390 program even when a soft link has been made to the program
391 from somwhere else. */
394 make_relative_prefix (const char *progname
, const char *bin_prefix
,
397 return make_relative_prefix_1 (progname
, bin_prefix
, prefix
, 1);
400 /* Make the relative pathname without attempting to resolve any links.
401 '..' etc may also be left in the pathname.
402 This will find the files the user meant the program to find if the
403 installation is patched together with soft links. */
406 make_relative_prefix_ignore_links (const char *progname
,
407 const char *bin_prefix
,
410 return make_relative_prefix_1 (progname
, bin_prefix
, prefix
, 0);
This page took 0.037347 seconds and 4 git commands to generate.