Annotation of embedaddon/libiconv/srclib/relocwrapper.c, revision 1.1.1.1
1.1 misho 1: /* Relocating wrapper program.
2: Copyright (C) 2003, 2005-2007 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
6: it under the terms of the GNU General Public License as published by
7: the Free Software Foundation; either version 3 of the License, or
8: (at your option) 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
13: GNU General Public License for more details.
14:
15: You should have received a copy of the GNU General Public License
16: along with this program. If not, see <http://www.gnu.org/licenses/>. */
17:
18: /* Dependencies:
19: relocwrapper
20: -> progname
21: -> progreloc
22: -> areadlink
23: -> readlink
24: -> canonicalize-lgpl
25: -> malloca
26: -> readlink
27: -> relocatable
28: -> setenv
29: -> malloca
30: -> strerror
31: -> c-ctype
32:
33: Macros that need to be set while compiling this file:
34: - ENABLE_RELOCATABLE 1
35: - INSTALLPREFIX the base installation directory
36: - INSTALLDIR the directory into which this program is installed
37: - LIBPATHVAR the platform dependent runtime library path variable
38: - LIBDIRS a comma-terminated list of strings representing the list of
39: directories that contain the libraries at installation time
40:
41: We don't want to internationalize this wrapper because then it would
42: depend on libintl and therefore need relocation itself. So use only
43: libc functions, no gettext(), no error(), no xmalloc(), no xsetenv().
44: */
45:
46: #include <config.h>
47:
48: #include <stdio.h>
49: #include <stdlib.h>
50: #include <string.h>
51: #include <unistd.h>
52: #include <errno.h>
53:
54: #include "progname.h"
55: #include "relocatable.h"
56: #include "c-ctype.h"
57:
58: /* Return a copy of the filename, with an extra ".bin" at the end.
59: More generally, it replaces "${EXEEXT}" at the end with ".bin${EXEEXT}". */
60: static char *
61: add_dotbin (const char *filename)
62: {
63: size_t filename_len = strlen (filename);
64: char *result = (char *) malloc (filename_len + 4 + 1);
65:
66: if (result != NULL)
67: {
68: if (sizeof (EXEEXT) > sizeof (""))
69: {
70: /* EXEEXT handling. */
71: const size_t exeext_len = sizeof (EXEEXT) - sizeof ("");
72: static const char exeext[] = EXEEXT;
73: if (filename_len > exeext_len)
74: {
75: /* Compare using an inlined copy of c_strncasecmp(), because
76: the filenames may have undergone a case conversion since
77: they were packaged. In other words, EXEEXT may be ".exe"
78: on one system and ".EXE" on another. */
79: const char *s1 = filename + filename_len - exeext_len;
80: const char *s2 = exeext;
81: for (; *s1 != '\0'; s1++, s2++)
82: {
83: unsigned char c1 = *s1;
84: unsigned char c2 = *s2;
85: if (c_tolower (c1) != c_tolower (c2))
86: goto simple_append;
87: }
88: /* Insert ".bin" before EXEEXT or its equivalent. */
89: memcpy (result, filename, filename_len - exeext_len);
90: memcpy (result + filename_len - exeext_len, ".bin", 4);
91: memcpy (result + filename_len - exeext_len + 4,
92: filename + filename_len - exeext_len,
93: exeext_len + 1);
94: return result;
95: }
96: }
97: simple_append:
98: /* Simply append ".bin". */
99: memcpy (result, filename, filename_len);
100: memcpy (result + filename_len, ".bin", 4 + 1);
101: return result;
102: }
103: else
104: {
105: fprintf (stderr, "%s: %s\n", program_name, "memory exhausted");
106: exit (1);
107: }
108: }
109:
110: /* List of directories that contain the libraries. */
111: static const char *libdirs[] = { LIBDIRS NULL };
112: /* Verify that at least one directory is given. */
113: typedef int verify1[2 * (sizeof (libdirs) / sizeof (libdirs[0]) > 1) - 1];
114:
115: /* Relocate the list of directories that contain the libraries. */
116: static void
117: relocate_libdirs ()
118: {
119: size_t i;
120:
121: for (i = 0; i < sizeof (libdirs) / sizeof (libdirs[0]) - 1; i++)
122: libdirs[i] = relocate (libdirs[i]);
123: }
124:
125: /* Activate the list of directories in the LIBPATHVAR. */
126: static void
127: activate_libdirs ()
128: {
129: const char *old_value;
130: size_t total;
131: size_t i;
132: char *value;
133: char *p;
134:
135: old_value = getenv (LIBPATHVAR);
136: if (old_value == NULL)
137: old_value = "";
138:
139: total = 0;
140: for (i = 0; i < sizeof (libdirs) / sizeof (libdirs[0]) - 1; i++)
141: total += strlen (libdirs[i]) + 1;
142: total += strlen (old_value) + 1;
143:
144: value = (char *) malloc (total);
145: if (value == NULL)
146: {
147: fprintf (stderr, "%s: %s\n", program_name, "memory exhausted");
148: exit (1);
149: }
150: p = value;
151: for (i = 0; i < sizeof (libdirs) / sizeof (libdirs[0]) - 1; i++)
152: {
153: size_t len = strlen (libdirs[i]);
154: memcpy (p, libdirs[i], len);
155: p += len;
156: *p++ = ':';
157: }
158: if (old_value[0] != '\0')
159: strcpy (p, old_value);
160: else
161: p[-1] = '\0';
162:
163: if (setenv (LIBPATHVAR, value, 1) < 0)
164: {
165: fprintf (stderr, "%s: %s\n", program_name, "memory exhausted");
166: exit (1);
167: }
168: }
169:
170: int
171: main (int argc, char *argv[])
172: {
173: char *full_program_name;
174:
175: /* Set the program name and perform preparations for
176: get_full_program_name() and relocate(). */
177: set_program_name_and_installdir (argv[0], INSTALLPREFIX, INSTALLDIR);
178:
179: /* Get the full program path. (Important if accessed through a symlink.) */
180: full_program_name = get_full_program_name ();
181: if (full_program_name == NULL)
182: full_program_name = argv[0];
183:
184: /* Invoke the real program, with suffix ".bin". */
185: argv[0] = add_dotbin (full_program_name);
186: relocate_libdirs ();
187: activate_libdirs ();
188: execv (argv[0], argv);
189: fprintf (stderr, "%s: could not execute %s: %s\n",
190: program_name, argv[0], strerror (errno));
191: exit (127);
192: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to relocwrapper.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