1 /* Relative (relocatable) prefix support.
2 Copyright (C) 1987, 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
3 1999, 2000, 2001, 2002 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, 59 Temple Place - Suite 330, 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
PARAMS ((const char *, int));
99 static char **split_directories
PARAMS ((const char *, int *));
100 static void free_split_directories
PARAMS ((char **));
107 char *result
= malloc (len
+ 1);
109 memcpy (result
, s
, len
);
114 /* Split a filename into component directories. */
117 split_directories (name
, ptr_num_dirs
)
126 /* Count the number of directories. Special case MSDOS disk names as part
127 of the initial directory. */
129 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
130 if (name
[1] == ':' && IS_DIR_SEPARATOR (name
[2]))
135 #endif /* HAVE_DOS_BASED_FILE_SYSTEM */
137 while ((ch
= *p
++) != '\0')
139 if (IS_DIR_SEPARATOR (ch
))
142 while (IS_DIR_SEPARATOR (*p
))
147 dirs
= (char **) malloc (sizeof (char *) * (num_dirs
+ 2));
151 /* Now copy the directory parts. */
154 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
155 if (name
[1] == ':' && IS_DIR_SEPARATOR (name
[2]))
157 dirs
[num_dirs
++] = save_string (p
, 3);
158 if (dirs
[num_dirs
- 1] == NULL
)
165 #endif /* HAVE_DOS_BASED_FILE_SYSTEM */
168 while ((ch
= *p
++) != '\0')
170 if (IS_DIR_SEPARATOR (ch
))
172 while (IS_DIR_SEPARATOR (*p
))
175 dirs
[num_dirs
++] = save_string (q
, p
- q
);
176 if (dirs
[num_dirs
- 1] == NULL
)
178 dirs
[num_dirs
] = NULL
;
179 free_split_directories (dirs
);
187 dirs
[num_dirs
++] = save_string (q
, p
- 1 - q
);
188 dirs
[num_dirs
] = NULL
;
190 if (dirs
[num_dirs
- 1] == NULL
)
192 free_split_directories (dirs
);
197 *ptr_num_dirs
= num_dirs
;
201 /* Release storage held by split directories. */
204 free_split_directories (dirs
)
209 while (dirs
[i
] != NULL
)
212 free ((char *) dirs
);
215 /* Given three strings PROGNAME, BIN_PREFIX, PREFIX, return a string that gets
216 to PREFIX starting with the directory portion of PROGNAME and a relative
217 pathname of the difference between BIN_PREFIX and PREFIX.
219 For example, if BIN_PREFIX is /alpha/beta/gamma/gcc/delta, PREFIX is
220 /alpha/beta/gamma/omega/, and PROGNAME is /red/green/blue/gcc, then this
221 function will return /red/green/blue/../../omega/.
223 If no relative prefix can be found, return NULL. */
226 make_relative_prefix (progname
, bin_prefix
, prefix
)
227 const char *progname
;
228 const char *bin_prefix
;
231 char **prog_dirs
, **bin_dirs
, **prefix_dirs
;
232 int prog_num
, bin_num
, prefix_num
;
235 char *ret
, *ptr
, *full_progname
= NULL
;
237 if (progname
== NULL
|| bin_prefix
== NULL
|| prefix
== NULL
)
240 /* If there is no full pathname, try to find the program by checking in each
241 of the directories specified in the PATH environment variable. */
242 if (lbasename (progname
) == progname
)
246 temp
= getenv ("PATH");
249 char *startp
, *endp
, *nstore
;
250 size_t prefixlen
= strlen (temp
) + 1;
254 nstore
= (char *) alloca (prefixlen
+ strlen (progname
) + 1);
256 startp
= endp
= temp
;
259 if (*endp
== PATH_SEPARATOR
|| *endp
== 0)
264 nstore
[1] = DIR_SEPARATOR
;
269 strncpy (nstore
, startp
, endp
- startp
);
270 if (! IS_DIR_SEPARATOR (endp
[-1]))
272 nstore
[endp
- startp
] = DIR_SEPARATOR
;
273 nstore
[endp
- startp
+ 1] = 0;
276 nstore
[endp
- startp
] = 0;
278 strcat (nstore
, progname
);
279 if (! access (nstore
, X_OK
)
280 #ifdef HAVE_HOST_EXECUTABLE_SUFFIX
281 || ! access (strcat (nstore
, HOST_EXECUTABLE_SUFFIX
), X_OK
)
291 endp
= startp
= endp
+ 1;
299 full_progname
= lrealpath (progname
);
300 if (full_progname
== NULL
)
303 prog_dirs
= split_directories (full_progname
, &prog_num
);
304 bin_dirs
= split_directories (bin_prefix
, &bin_num
);
305 free (full_progname
);
306 if (bin_dirs
== NULL
|| prog_dirs
== NULL
)
309 /* Remove the program name from comparison of directory names. */
312 /* If we are still installed in the standard location, we don't need to
313 specify relative directories. Also, if argv[0] still doesn't contain
314 any directory specifiers after the search above, then there is not much
316 if (prog_num
== bin_num
)
318 for (i
= 0; i
< bin_num
; i
++)
320 if (strcmp (prog_dirs
[i
], bin_dirs
[i
]) != 0)
324 if (prog_num
<= 0 || i
== bin_num
)
326 free_split_directories (prog_dirs
);
327 free_split_directories (bin_dirs
);
328 prog_dirs
= bin_dirs
= (char **) 0;
333 prefix_dirs
= split_directories (prefix
, &prefix_num
);
334 if (prefix_dirs
== NULL
)
336 free_split_directories (prog_dirs
);
337 free_split_directories (bin_dirs
);
341 /* Find how many directories are in common between bin_prefix & prefix. */
342 n
= (prefix_num
< bin_num
) ? prefix_num
: bin_num
;
343 for (common
= 0; common
< n
; common
++)
345 if (strcmp (bin_dirs
[common
], prefix_dirs
[common
]) != 0)
349 /* If there are no common directories, there can be no relative prefix. */
352 free_split_directories (prog_dirs
);
353 free_split_directories (bin_dirs
);
354 free_split_directories (prefix_dirs
);
358 /* Two passes: first figure out the size of the result string, and
359 then construct it. */
361 for (i
= 0; i
< prog_num
; i
++)
362 needed_len
+= strlen (prog_dirs
[i
]);
363 needed_len
+= sizeof (DIR_UP
) * (bin_num
- common
);
364 for (i
= common
; i
< prefix_num
; i
++)
365 needed_len
+= strlen (prefix_dirs
[i
]);
366 needed_len
+= 1; /* Trailing NUL. */
368 ret
= (char *) malloc (needed_len
);
372 /* Build up the pathnames in argv[0]. */
374 for (i
= 0; i
< prog_num
; i
++)
375 strcat (ret
, prog_dirs
[i
]);
377 /* Now build up the ..'s. */
378 ptr
= ret
+ strlen(ret
);
379 for (i
= common
; i
< bin_num
; i
++)
381 strcpy (ptr
, DIR_UP
);
382 ptr
+= sizeof (DIR_UP
) - 1;
383 *(ptr
++) = DIR_SEPARATOR
;
387 /* Put in directories to move over to prefix. */
388 for (i
= common
; i
< prefix_num
; i
++)
389 strcat (ret
, prefix_dirs
[i
]);
391 free_split_directories (prog_dirs
);
392 free_split_directories (bin_dirs
);
393 free_split_directories (prefix_dirs
);
This page took 0.037258 seconds and 4 git commands to generate.