Annotation of embedaddon/libiconv/srclib/relocatable.c, revision 1.1.1.1
1.1 misho 1: /* Provide relocatable packages.
2: Copyright (C) 2003-2006, 2008 Free Software Foundation, Inc.
3: Written by Bruno Haible <bruno@clisp.org>, 2003.
4:
5: This program is free software; you can redistribute it and/or modify it
6: under the terms of the GNU General Public License as published
7: by the Free Software Foundation; either version 3, or (at your option)
8: any later version.
9:
10: This program is distributed in the hope that it will be useful,
11: but WITHOUT ANY WARRANTY; without even the implied warranty of
12: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13: Library General Public License for more details.
14:
15: You should have received a copy of the GNU General Public
16: License along with this program; if not, write to the Free Software
17: Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
18: USA. */
19:
20:
21: /* Tell glibc's <stdio.h> to provide a prototype for getline().
22: This must come before <config.h> because <config.h> may include
23: <features.h>, and once <features.h> has been included, it's too late. */
24: #ifndef _GNU_SOURCE
25: # define _GNU_SOURCE 1
26: #endif
27:
28: #include <config.h>
29:
30: /* Specification. */
31: #include "relocatable.h"
32:
33: #if ENABLE_RELOCATABLE
34:
35: #include <stddef.h>
36: #include <stdio.h>
37: #include <stdlib.h>
38: #include <string.h>
39:
40: #ifdef NO_XMALLOC
41: # define xmalloc malloc
42: #else
43: # include "xalloc.h"
44: #endif
45:
46: #if defined _WIN32 || defined __WIN32__ || defined __CYGWIN__
47: # define WIN32_LEAN_AND_MEAN
48: # include <windows.h>
49: #endif
50:
51: #if DEPENDS_ON_LIBCHARSET
52: # include <libcharset.h>
53: #endif
54: #if DEPENDS_ON_LIBICONV && HAVE_ICONV
55: # include <iconv.h>
56: #endif
57: #if DEPENDS_ON_LIBINTL && ENABLE_NLS
58: # include <libintl.h>
59: #endif
60:
61: /* Faked cheap 'bool'. */
62: #undef bool
63: #undef false
64: #undef true
65: #define bool int
66: #define false 0
67: #define true 1
68:
69: /* Pathname support.
70: ISSLASH(C) tests whether C is a directory separator character.
71: IS_PATH_WITH_DIR(P) tests whether P contains a directory specification.
72: */
73: #if defined _WIN32 || defined __WIN32__ || defined __CYGWIN__ || defined __EMX__ || defined __DJGPP__
74: /* Win32, Cygwin, OS/2, DOS */
75: # define ISSLASH(C) ((C) == '/' || (C) == '\\')
76: # define HAS_DEVICE(P) \
77: ((((P)[0] >= 'A' && (P)[0] <= 'Z') || ((P)[0] >= 'a' && (P)[0] <= 'z')) \
78: && (P)[1] == ':')
79: # define IS_PATH_WITH_DIR(P) \
80: (strchr (P, '/') != NULL || strchr (P, '\\') != NULL || HAS_DEVICE (P))
81: # define FILE_SYSTEM_PREFIX_LEN(P) (HAS_DEVICE (P) ? 2 : 0)
82: #else
83: /* Unix */
84: # define ISSLASH(C) ((C) == '/')
85: # define IS_PATH_WITH_DIR(P) (strchr (P, '/') != NULL)
86: # define FILE_SYSTEM_PREFIX_LEN(P) 0
87: #endif
88:
89: /* Original installation prefix. */
90: static char *orig_prefix;
91: static size_t orig_prefix_len;
92: /* Current installation prefix. */
93: static char *curr_prefix;
94: static size_t curr_prefix_len;
95: /* These prefixes do not end in a slash. Anything that will be concatenated
96: to them must start with a slash. */
97:
98: /* Sets the original and the current installation prefix of this module.
99: Relocation simply replaces a pathname starting with the original prefix
100: by the corresponding pathname with the current prefix instead. Both
101: prefixes should be directory names without trailing slash (i.e. use ""
102: instead of "/"). */
103: static void
104: set_this_relocation_prefix (const char *orig_prefix_arg,
105: const char *curr_prefix_arg)
106: {
107: if (orig_prefix_arg != NULL && curr_prefix_arg != NULL
108: /* Optimization: if orig_prefix and curr_prefix are equal, the
109: relocation is a nop. */
110: && strcmp (orig_prefix_arg, curr_prefix_arg) != 0)
111: {
112: /* Duplicate the argument strings. */
113: char *memory;
114:
115: orig_prefix_len = strlen (orig_prefix_arg);
116: curr_prefix_len = strlen (curr_prefix_arg);
117: memory = (char *) xmalloc (orig_prefix_len + 1 + curr_prefix_len + 1);
118: #ifdef NO_XMALLOC
119: if (memory != NULL)
120: #endif
121: {
122: memcpy (memory, orig_prefix_arg, orig_prefix_len + 1);
123: orig_prefix = memory;
124: memory += orig_prefix_len + 1;
125: memcpy (memory, curr_prefix_arg, curr_prefix_len + 1);
126: curr_prefix = memory;
127: return;
128: }
129: }
130: orig_prefix = NULL;
131: curr_prefix = NULL;
132: /* Don't worry about wasted memory here - this function is usually only
133: called once. */
134: }
135:
136: /* Sets the original and the current installation prefix of the package.
137: Relocation simply replaces a pathname starting with the original prefix
138: by the corresponding pathname with the current prefix instead. Both
139: prefixes should be directory names without trailing slash (i.e. use ""
140: instead of "/"). */
141: void
142: set_relocation_prefix (const char *orig_prefix_arg, const char *curr_prefix_arg)
143: {
144: set_this_relocation_prefix (orig_prefix_arg, curr_prefix_arg);
145:
146: /* Now notify all dependent libraries. */
147: #if DEPENDS_ON_LIBCHARSET
148: libcharset_set_relocation_prefix (orig_prefix_arg, curr_prefix_arg);
149: #endif
150: #if DEPENDS_ON_LIBICONV && HAVE_ICONV && _LIBICONV_VERSION >= 0x0109
151: libiconv_set_relocation_prefix (orig_prefix_arg, curr_prefix_arg);
152: #endif
153: #if DEPENDS_ON_LIBINTL && ENABLE_NLS && defined libintl_set_relocation_prefix
154: libintl_set_relocation_prefix (orig_prefix_arg, curr_prefix_arg);
155: #endif
156: }
157:
158: #if !defined IN_LIBRARY || (defined PIC && defined INSTALLDIR)
159:
160: /* Convenience function:
161: Computes the current installation prefix, based on the original
162: installation prefix, the original installation directory of a particular
163: file, and the current pathname of this file.
164: Returns it, freshly allocated. Returns NULL upon failure. */
165: #ifdef IN_LIBRARY
166: #define compute_curr_prefix local_compute_curr_prefix
167: static
168: #endif
169: char *
170: compute_curr_prefix (const char *orig_installprefix,
171: const char *orig_installdir,
172: const char *curr_pathname)
173: {
174: char *curr_installdir;
175: const char *rel_installdir;
176:
177: if (curr_pathname == NULL)
178: return NULL;
179:
180: /* Determine the relative installation directory, relative to the prefix.
181: This is simply the difference between orig_installprefix and
182: orig_installdir. */
183: if (strncmp (orig_installprefix, orig_installdir, strlen (orig_installprefix))
184: != 0)
185: /* Shouldn't happen - nothing should be installed outside $(prefix). */
186: return NULL;
187: rel_installdir = orig_installdir + strlen (orig_installprefix);
188:
189: /* Determine the current installation directory. */
190: {
191: const char *p_base = curr_pathname + FILE_SYSTEM_PREFIX_LEN (curr_pathname);
192: const char *p = curr_pathname + strlen (curr_pathname);
193: char *q;
194:
195: while (p > p_base)
196: {
197: p--;
198: if (ISSLASH (*p))
199: break;
200: }
201:
202: q = (char *) xmalloc (p - curr_pathname + 1);
203: #ifdef NO_XMALLOC
204: if (q == NULL)
205: return NULL;
206: #endif
207: memcpy (q, curr_pathname, p - curr_pathname);
208: q[p - curr_pathname] = '\0';
209: curr_installdir = q;
210: }
211:
212: /* Compute the current installation prefix by removing the trailing
213: rel_installdir from it. */
214: {
215: const char *rp = rel_installdir + strlen (rel_installdir);
216: const char *cp = curr_installdir + strlen (curr_installdir);
217: const char *cp_base =
218: curr_installdir + FILE_SYSTEM_PREFIX_LEN (curr_installdir);
219:
220: while (rp > rel_installdir && cp > cp_base)
221: {
222: bool same = false;
223: const char *rpi = rp;
224: const char *cpi = cp;
225:
226: while (rpi > rel_installdir && cpi > cp_base)
227: {
228: rpi--;
229: cpi--;
230: if (ISSLASH (*rpi) || ISSLASH (*cpi))
231: {
232: if (ISSLASH (*rpi) && ISSLASH (*cpi))
233: same = true;
234: break;
235: }
236: /* Do case-insensitive comparison if the filesystem is always or
237: often case-insensitive. It's better to accept the comparison
238: if the difference is only in case, rather than to fail. */
239: #if defined _WIN32 || defined __WIN32__ || defined __CYGWIN__ || defined __EMX__ || defined __DJGPP__
240: /* Win32, Cygwin, OS/2, DOS - case insignificant filesystem */
241: if ((*rpi >= 'a' && *rpi <= 'z' ? *rpi - 'a' + 'A' : *rpi)
242: != (*cpi >= 'a' && *cpi <= 'z' ? *cpi - 'a' + 'A' : *cpi))
243: break;
244: #else
245: if (*rpi != *cpi)
246: break;
247: #endif
248: }
249: if (!same)
250: break;
251: /* The last pathname component was the same. opi and cpi now point
252: to the slash before it. */
253: rp = rpi;
254: cp = cpi;
255: }
256:
257: if (rp > rel_installdir)
258: {
259: /* Unexpected: The curr_installdir does not end with rel_installdir. */
260: free (curr_installdir);
261: return NULL;
262: }
263:
264: {
265: size_t curr_prefix_len = cp - curr_installdir;
266: char *curr_prefix;
267:
268: curr_prefix = (char *) xmalloc (curr_prefix_len + 1);
269: #ifdef NO_XMALLOC
270: if (curr_prefix == NULL)
271: {
272: free (curr_installdir);
273: return NULL;
274: }
275: #endif
276: memcpy (curr_prefix, curr_installdir, curr_prefix_len);
277: curr_prefix[curr_prefix_len] = '\0';
278:
279: free (curr_installdir);
280:
281: return curr_prefix;
282: }
283: }
284: }
285:
286: #endif /* !IN_LIBRARY || PIC */
287:
288: #if defined PIC && defined INSTALLDIR
289:
290: /* Full pathname of shared library, or NULL. */
291: static char *shared_library_fullname;
292:
293: #if defined _WIN32 || defined __WIN32__ || defined __CYGWIN__
294:
295: /* Determine the full pathname of the shared library when it is loaded. */
296:
297: BOOL WINAPI
298: DllMain (HINSTANCE module_handle, DWORD event, LPVOID reserved)
299: {
300: (void) reserved;
301:
302: if (event == DLL_PROCESS_ATTACH)
303: {
304: /* The DLL is being loaded into an application's address range. */
305: static char location[MAX_PATH];
306:
307: if (!GetModuleFileName (module_handle, location, sizeof (location)))
308: /* Shouldn't happen. */
309: return FALSE;
310:
311: if (!IS_PATH_WITH_DIR (location))
312: /* Shouldn't happen. */
313: return FALSE;
314:
315: {
316: #if defined __CYGWIN__
317: /* On Cygwin, we need to convert paths coming from Win32 system calls
318: to the Unix-like slashified notation. */
319: static char location_as_posix_path[2 * MAX_PATH];
320: /* There's no error return defined for cygwin_conv_to_posix_path.
321: See cygwin-api/func-cygwin-conv-to-posix-path.html.
322: Does it overflow the buffer of expected size MAX_PATH or does it
323: truncate the path? I don't know. Let's catch both. */
324: cygwin_conv_to_posix_path (location, location_as_posix_path);
325: location_as_posix_path[MAX_PATH - 1] = '\0';
326: if (strlen (location_as_posix_path) >= MAX_PATH - 1)
327: /* A sign of buffer overflow or path truncation. */
328: return FALSE;
329: shared_library_fullname = strdup (location_as_posix_path);
330: #else
331: shared_library_fullname = strdup (location);
332: #endif
333: }
334: }
335:
336: return TRUE;
337: }
338:
339: #else /* Unix except Cygwin */
340:
341: static void
342: find_shared_library_fullname ()
343: {
344: #if defined __linux__ && __GLIBC__ >= 2
345: /* Linux has /proc/self/maps. glibc 2 has the getline() function. */
346: FILE *fp;
347:
348: /* Open the current process' maps file. It describes one VMA per line. */
349: fp = fopen ("/proc/self/maps", "r");
350: if (fp)
351: {
352: unsigned long address = (unsigned long) &find_shared_library_fullname;
353: for (;;)
354: {
355: unsigned long start, end;
356: int c;
357:
358: if (fscanf (fp, "%lx-%lx", &start, &end) != 2)
359: break;
360: if (address >= start && address <= end - 1)
361: {
362: /* Found it. Now see if this line contains a filename. */
363: while (c = getc (fp), c != EOF && c != '\n' && c != '/')
364: continue;
365: if (c == '/')
366: {
367: size_t size;
368: int len;
369:
370: ungetc (c, fp);
371: shared_library_fullname = NULL; size = 0;
372: len = getline (&shared_library_fullname, &size, fp);
373: if (len >= 0)
374: {
375: /* Success: filled shared_library_fullname. */
376: if (len > 0 && shared_library_fullname[len - 1] == '\n')
377: shared_library_fullname[len - 1] = '\0';
378: }
379: }
380: break;
381: }
382: while (c = getc (fp), c != EOF && c != '\n')
383: continue;
384: }
385: fclose (fp);
386: }
387: #endif
388: }
389:
390: #endif /* (WIN32 or Cygwin) / (Unix except Cygwin) */
391:
392: /* Return the full pathname of the current shared library.
393: Return NULL if unknown.
394: Guaranteed to work only on Linux, Cygwin and Woe32. */
395: static char *
396: get_shared_library_fullname ()
397: {
398: #if !(defined _WIN32 || defined __WIN32__ || defined __CYGWIN__)
399: static bool tried_find_shared_library_fullname;
400: if (!tried_find_shared_library_fullname)
401: {
402: find_shared_library_fullname ();
403: tried_find_shared_library_fullname = true;
404: }
405: #endif
406: return shared_library_fullname;
407: }
408:
409: #endif /* PIC */
410:
411: /* Returns the pathname, relocated according to the current installation
412: directory.
413: The returned string is either PATHNAME unmodified or a freshly allocated
414: string that you can free with free() after casting it to 'char *'. */
415: const char *
416: relocate (const char *pathname)
417: {
418: #if defined PIC && defined INSTALLDIR
419: static int initialized;
420:
421: /* Initialization code for a shared library. */
422: if (!initialized)
423: {
424: /* At this point, orig_prefix and curr_prefix likely have already been
425: set through the main program's set_program_name_and_installdir
426: function. This is sufficient in the case that the library has
427: initially been installed in the same orig_prefix. But we can do
428: better, to also cover the cases that 1. it has been installed
429: in a different prefix before being moved to orig_prefix and (later)
430: to curr_prefix, 2. unlike the program, it has not moved away from
431: orig_prefix. */
432: const char *orig_installprefix = INSTALLPREFIX;
433: const char *orig_installdir = INSTALLDIR;
434: char *curr_prefix_better;
435:
436: curr_prefix_better =
437: compute_curr_prefix (orig_installprefix, orig_installdir,
438: get_shared_library_fullname ());
439:
440: set_relocation_prefix (orig_installprefix,
441: curr_prefix_better != NULL
442: ? curr_prefix_better
443: : curr_prefix);
444:
445: if (curr_prefix_better != NULL)
446: free (curr_prefix_better);
447:
448: initialized = 1;
449: }
450: #endif
451:
452: /* Note: It is not necessary to perform case insensitive comparison here,
453: even for DOS-like filesystems, because the pathname argument was
454: typically created from the same Makefile variable as orig_prefix came
455: from. */
456: if (orig_prefix != NULL && curr_prefix != NULL
457: && strncmp (pathname, orig_prefix, orig_prefix_len) == 0)
458: {
459: if (pathname[orig_prefix_len] == '\0')
460: {
461: /* pathname equals orig_prefix. */
462: char *result = (char *) xmalloc (strlen (curr_prefix) + 1);
463:
464: #ifdef NO_XMALLOC
465: if (result != NULL)
466: #endif
467: {
468: strcpy (result, curr_prefix);
469: return result;
470: }
471: }
472: else if (ISSLASH (pathname[orig_prefix_len]))
473: {
474: /* pathname starts with orig_prefix. */
475: const char *pathname_tail = &pathname[orig_prefix_len];
476: char *result =
477: (char *) xmalloc (curr_prefix_len + strlen (pathname_tail) + 1);
478:
479: #ifdef NO_XMALLOC
480: if (result != NULL)
481: #endif
482: {
483: memcpy (result, curr_prefix, curr_prefix_len);
484: strcpy (result + curr_prefix_len, pathname_tail);
485: return result;
486: }
487: }
488: }
489: /* Nothing to relocate. */
490: return pathname;
491: }
492:
493: #endif
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to relocatable.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / libiconv / srclib