/* This function's behavior must exactly match that
* in uClibc/ldso/util/ldd.c */
static struct elf_resolve *
search_for_named_library(const char *name, unsigned rflags, const char *path_list,
struct dyn_elf **rpnt)
{
char *path, *path_n, *mylibname;
struct elf_resolve *tpnt;
int done;
if (path_list==NULL)
return NULL;
/* We need a writable copy of this string, but we don't
* need this allocated permanently since we don't want
* to leak memory, so use alloca to put path on the stack */
done = _dl_strlen(path_list);
path = alloca(done + 1);
/* another bit of local storage */
mylibname = alloca(2050);
_dl_memcpy(path, path_list, done+1);
/* Unlike ldd.c, don't bother to eliminate double //s */
/* Replace colons with zeros in path_list */
/* : at the beginning or end of path maps to CWD */
/* :: anywhere maps CWD */
/* "" maps to CWD */
done = 0;
path_n = path;
do {
if (*path == 0) {
*path = ':';
done = 1;
}
if (*path == ':') {
*path = 0;
if (*path_n)
_dl_strcpy(mylibname, path_n);
else
_dl_strcpy(mylibname, "."); /* Assume current dir if empty path */
_dl_strcat(mylibname, "/");
_dl_strcat(mylibname, name);
#ifdef __LDSO_SAFE_RUNPATH__
if (*mylibname == '/')
#endif
if ((tpnt = _dl_load_elf_shared_library(rflags, rpnt, mylibname)) != NULL)
return tpnt;
path_n = path+1;
}
path++;
} while (!done);
return NULL;
}
/* This function's behavior must exactly match that
* in uClibc/ldso/util/ldd.c */
static struct elf_resolve *
search_for_named_library(const char *name, unsigned int rflags, const char *path_list,
struct dyn_elf **rpnt, const char* origin)
{
char *mylibname;
struct elf_resolve *tpnt;
const char *p, *pn;
int plen;
if (path_list==NULL)
return NULL;
/* another bit of local storage */
mylibname = alloca(2050);
/* Unlike ldd.c, don't bother to eliminate double //s */
/* Replace colons with zeros in path_list */
/* : at the beginning or end of path maps to CWD */
/* :: anywhere maps CWD */
/* "" maps to CWD */
for (p = path_list; p != NULL; p = pn) {
pn = _dl_strchr(p + 1, ':');
if (pn != NULL) {
plen = pn - p;
pn++;
} else
plen = _dl_strlen(p);
if (plen >= 7 && _dl_memcmp(p, "$ORIGIN", 7) == 0) {
int olen;
/* $ORIGIN is not expanded for SUID/GUID programs
(except if it is $ORIGIN alone) */
if ((rflags & __RTLD_SECURE) && plen != 7)
continue;
if (origin == NULL)
continue;
for (olen = _dl_strlen(origin) - 1; olen >= 0 && origin[olen] != '/'; olen--)
;
if (olen <= 0)
continue;
_dl_memcpy(&mylibname[0], origin, olen);
_dl_memcpy(&mylibname[olen], p + 7, plen - 7);
mylibname[olen + plen - 7] = 0;
} else if (plen != 0) {
_dl_memcpy(mylibname, p, plen);
mylibname[plen] = 0;
} else {
_dl_strcpy(mylibname, ".");
}
_dl_strcat(mylibname, "/");
_dl_strcat(mylibname, name);
#ifdef __LDSO_SAFE_RUNPATH__
if (*mylibname == '/')
#endif
if ((tpnt = _dl_load_elf_shared_library(rflags, rpnt, mylibname)) != NULL)
return tpnt;
}
return NULL;
}
/* This function's behavior must exactly match that
* in uClibc/ldso/util/ldd.c */
static struct elf_resolve *
search_for_named_library(const char *name, int secure, const char *path_list,
struct dyn_elf **rpnt)
{
char *path, *path_n, *mylibname;
struct elf_resolve *tpnt;
int done;
if (path_list==NULL)
return NULL;
/* We need a writable copy of this string, but we don't
* need this allocated permanently since we don't want
* to leak memory, so use alloca to put path on the stack */
done = _dl_strlen(path_list);
path = alloca(done + 1);
/* another bit of local storage */
mylibname = alloca(2050);
/* gcc inlines alloca using a single instruction adjusting
* the stack pointer and no stack overflow check and thus
* no NULL error return. No point leaving in dead code... */
#if 0
if (!path || !mylibname) {
_dl_dprintf(2, "Out of memory!\n");
_dl_exit(0);
}
#endif
_dl_memcpy(path, path_list, done+1);
/* Unlike ldd.c, don't bother to eliminate double //s */
/* Replace colons with zeros in path_list */
/* : at the beginning or end of path maps to CWD */
/* :: anywhere maps CWD */
/* "" maps to CWD */
done = 0;
path_n = path;
do {
if (*path == 0) {
*path = ':';
done = 1;
}
if (*path == ':') {
*path = 0;
if (*path_n)
_dl_strcpy(mylibname, path_n);
else
_dl_strcpy(mylibname, "."); /* Assume current dir if empty path */
_dl_strcat(mylibname, "/");
_dl_strcat(mylibname, name);
if ((tpnt = _dl_load_elf_shared_library(secure, rpnt, mylibname)) != NULL)
return tpnt;
path_n = path+1;
}
path++;
} while (!done);
return NULL;
}
