Mercurial > pub > dyncall > dyncall

annotate dynload/dynload_unix.c @ 552:61c485f8cc06

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
cosmetics & c-comments for consistency
author Tassilo Philipp
date Mon, 20 Jun 2022 15:11:52 +0200
parents e221473a8217
children 6a8aac9b2bcf
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
1 /*
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
2
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
3 Package: dyncall
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
4 Library: dynload
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
5 File: dynload/dynload_unix.c
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
6 Description:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
7 License:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
8
281
f5577f6bf97a - file header cleanups for release
Tassilo Philipp
parents: 254
diff changeset
9 Copyright (c) 2007-2018 Daniel Adler <dadler@uni-goettingen.de>,
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
10 Tassilo Philipp <tphilipp@potion-studios.com>
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
11
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
12 Permission to use, copy, modify, and distribute this software for any
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
13 purpose with or without fee is hereby granted, provided that the above
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
14 copyright notice and this permission notice appear in all copies.
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
15
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
16 THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
17 WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
18 MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
19 ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
20 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
21 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
22 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
23
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
24 */
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
25
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
26
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
27 /*
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
28
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
29 dynload_unix.c
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
30
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
31 dynload module for .so (unix) and .dylib (mach-o darwin/OS X) files
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
32
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
33 */
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
34
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
35
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
36 #include "dynload.h"
242
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
37 #include "../autovar/autovar_OS.h"
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
38
242
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
39 #include <string.h>
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
40
314
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid
Tassilo Philipp
parents: 312
diff changeset
41 #if defined(__GLIBC__)
315
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
42 /* @@@ version check glibc more precisely... dl_iterate_phdr(): glibc ver >= 2.2.4*/
356
2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets)
Tassilo Philipp
parents: 320
diff changeset
43 # if (__GLIBC__ >= 2) && (__GLIBC_MINOR__ >= 3)
2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets)
Tassilo Philipp
parents: 320
diff changeset
44 # define DL_USE_GLIBC_ITER_PHDR
2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets)
Tassilo Philipp
parents: 320
diff changeset
45 # endif
314
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid
Tassilo Philipp
parents: 312
diff changeset
46 /* to access dl_iterate_phdr(), and related w/ glibc */
242
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
47 # define _GNU_SOURCE
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
48 # define __USE_GNU
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
49 #endif
356
2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets)
Tassilo Philipp
parents: 320
diff changeset
50
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
51 #include <dlfcn.h>
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
52
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
53
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
54 DLLib* dlLoadLibrary(const char* libPath)
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
55 {
552
61c485f8cc06 cosmetics & c-comments for consistency
Tassilo Philipp
parents: 405
diff changeset
56 return (DLLib*)dlopen(libPath, RTLD_NOW|RTLD_GLOBAL); /*@@@ should use RTLD_LAZY, maybe?*/
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
57 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
58
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
59
242
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
60 void* dlFindSymbol(DLLib* pLib, const char* pSymbolName)
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
61 {
242
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
62 return dlsym((void*)pLib, pSymbolName);
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
63 }
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
64
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
65
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
66 void dlFreeLibrary(DLLib* pLib)
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
67 {
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
68 /* Check for NULL for cross-platform consistency. *BSD seems to do that in
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
69 dlclose, Linux does not. POSIX states "if handle does not refer to an open
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
70 object, dlclose() returns a non-zero value", which unfortunately sounds
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
71 like it's not explicitly specified. */
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
72 if(pLib)
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
73 dlclose((void*)pLib);
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
74 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
75
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
76
253
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
77
314
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid
Tassilo Philipp
parents: 312
diff changeset
78 /* for dlopen-based dlGetLibraryPath impls below, prefer RTLD_NOLOAD that
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid
Tassilo Philipp
parents: 312
diff changeset
79 * merely checks lib names */
246
06a354b2e120 changes for dynload for macOS and OpenBSD:
Tassilo Philipp
parents: 245
diff changeset
80 #if defined(RTLD_NOLOAD)
314
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid
Tassilo Philipp
parents: 312
diff changeset
81 # define RTLD_LIGHTEST RTLD_LAZY|RTLD_NOLOAD
246
06a354b2e120 changes for dynload for macOS and OpenBSD:
Tassilo Philipp
parents: 245
diff changeset
82 #else
06a354b2e120 changes for dynload for macOS and OpenBSD:
Tassilo Philipp
parents: 245
diff changeset
83 # define RTLD_LIGHTEST RTLD_LAZY
06a354b2e120 changes for dynload for macOS and OpenBSD:
Tassilo Philipp
parents: 245
diff changeset
84 #endif
06a354b2e120 changes for dynload for macOS and OpenBSD:
Tassilo Philipp
parents: 245
diff changeset
85
06a354b2e120 changes for dynload for macOS and OpenBSD:
Tassilo Philipp
parents: 245
diff changeset
86
315
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
87 /* helper copying string if buffer big enough, returning length (without \0) */
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
88 static int dl_strlen_strcpy(char* dst, const char* src, int dstSize)
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
89 {
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
90 int l = strlen(src);
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
91 if(l < dstSize) /* l+'\0' <= bufSize */
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
92 strcpy(dst, src);
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
93 return l;
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
94 }
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
95
314
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid
Tassilo Philipp
parents: 312
diff changeset
96 /* code for dlGetLibraryPath() is platform specific */
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid
Tassilo Philipp
parents: 312
diff changeset
97
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid
Tassilo Philipp
parents: 312
diff changeset
98 /* if dlinfo() exists use it (except on glibc, where it exists since version
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid
Tassilo Philipp
parents: 312
diff changeset
99 * 2.3.3, but its implementation is dangerous, as no checks are done whether
315
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
100 * the handle is valid, thus rendering the returned values useless) check for
356
2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets)
Tassilo Philipp
parents: 320
diff changeset
101 * RTLD_DI_LINKMAP and RTLD_SELF, which are #defines used by dlinfo() on most
2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets)
Tassilo Philipp
parents: 320
diff changeset
102 * supported targets, or specifically check the OS (e.g. dlinfo() is originally
2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets)
Tassilo Philipp
parents: 320
diff changeset
103 * from Solaris) */
2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets)
Tassilo Philipp
parents: 320
diff changeset
104 #if ((defined(RTLD_DI_LINKMAP) && defined(RTLD_SELF)) || defined(OS_SunOS)) && !defined(DL_USE_GLIBC_ITER_PHDR)
253
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
105
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
106 #include <link.h>
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
107
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
108 int dlGetLibraryPath(DLLib* pLib, char* sOut, int bufSize)
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
109 {
312
18de5758980e - stability fix: avoid sigsegv in dynload's dlGetLibraryPath() in some cases (e.g. wrong handle given or OS specific quirk)
Tassilo Philipp
parents: 281
diff changeset
110 struct link_map* p = NULL;
253
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
111 int l = -1;
315
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
112 if(dlinfo(pLib ? pLib : RTLD_SELF, RTLD_DI_LINKMAP, &p) == 0)
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
113 l = dl_strlen_strcpy(sOut, p->l_name, bufSize);
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
114
253
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
115 return l+1; /* strlen + '\0' */
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
116 }
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
117
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
118
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
119 /* specific implementation needed on Darwin -----> */
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
120 #elif defined(OS_Darwin)
242
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
121
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
122 #include <stdint.h>
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
123 #include <mach-o/dyld.h>
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
124
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
125 int dlGetLibraryPath(DLLib* pLib, char* sOut, int bufSize)
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
126 {
242
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
127 uint32_t i;
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
128 int l = -1;
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
129
315
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
130 /* request info about own process? lookup first loaded image */
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
131 if(pLib == NULL) {
552
61c485f8cc06 cosmetics & c-comments for consistency
Tassilo Philipp
parents: 405
diff changeset
132 const char* libPath = _dyld_get_image_name(0); /*@@@ consider using _NSGetExecutablePath()*/
315
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
133 if(libPath)
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
134 l = dl_strlen_strcpy(sOut, libPath, bufSize);
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
135 }
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
136 else {
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
137 /* Darwin's code doesn't come with (non-standard) dlinfo(), so use dyld(1)
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
138 * code. There doesn't seem to be a direct way to query the library path,
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
139 * so "double-load" temporarily all already loaded images (just increases
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
140 * ref count) and compare handles until we found ours. Return the name. */
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
141 for(i=_dyld_image_count(); i>0;) /* backwards, ours is more likely at end */
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
142 {
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
143 const char* libPath = _dyld_get_image_name(--i);
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
144 void* lib = dlopen(libPath, RTLD_LIGHTEST);
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
145 if(lib) {
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
146 dlclose(lib);
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
147
315
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
148 /* compare handle pointers' high bits (in low 2 bits some flags might */
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
149 /* be stored - should be safe b/c address needs alignment, anyways) */
320
85c80b0c021c - Darwin/macos fix for dlGetLibraryPath() to correctly fail on bogus handles
Tassilo Philipp
parents: 317
diff changeset
150 if(((uintptr_t)pLib ^ (uintptr_t)lib) < 4) {
315
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
151 l = dl_strlen_strcpy(sOut, libPath, bufSize);
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
152 break;
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
153 }
242
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
154 }
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
155 }
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
156 }
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
157
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
158 return l+1; /* strlen + '\0' */
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
159 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
160
242
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
161
356
2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets)
Tassilo Philipp
parents: 320
diff changeset
162 /* - OpenBSD >= 3.7 has dl_iterate_phdr(), as well as glibc >= 2.2.4
2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets)
Tassilo Philipp
parents: 320
diff changeset
163 - also some libc impls (like musl) provide dlinfo(), but not RTLD_SELF (see above), however they might come
2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets)
Tassilo Philipp
parents: 320
diff changeset
164 with dl_iterate_phdr (which comes from ELF program header iteration), so base it on that
388
c7c180c73dc9 - haiku dynload fix
Tassilo Philipp
parents: 366
diff changeset
165 - skip and use dladdr()-based guessing (see below) if explicitly requested, e.g. by ./configure
c7c180c73dc9 - haiku dynload fix
Tassilo Philipp
parents: 366
diff changeset
166 - Haiku/BeOS does have the headers but no implementation of dl_iterate_phdr() (at least as of 2021) */
c7c180c73dc9 - haiku dynload fix
Tassilo Philipp
parents: 366
diff changeset
167 #elif !defined(DL_DLADDR_TO_LIBPATH) && (defined(OS_OpenBSD) || defined(DL_USE_GLIBC_ITER_PHDR) || (!defined(RTLD_SELF) && defined(__ELF__))) && !defined(OS_BeOS)
242
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
168
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
169 #include <sys/types.h>
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
170 #include <link.h>
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
171
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
172 typedef struct {
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
173 DLLib* pLib;
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
174 char* sOut;
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
175 int bufSize;
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
176 } iter_phdr_data;
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
177
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
178 static int iter_phdr_cb(struct dl_phdr_info* info, size_t size, void* data)
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
179 {
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
180 int l = -1;
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
181 iter_phdr_data* d = (iter_phdr_data*)data;
315
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
182 void* lib = NULL;
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
183
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
184 /* get loaded object's handle if not requesting info about process itself */
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
185 if(d->pLib != NULL) {
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
186 /* unable to relate info->dlpi_addr directly to our dlopen handle, let's
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
187 * do what we do on macOS above, re-dlopen the already loaded lib (just
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
188 * increases ref count) and compare handles */
356
2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets)
Tassilo Philipp
parents: 320
diff changeset
189 /* @@@ might be b/c it's the reloc addr... see below */
315
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
190 lib = dlopen(info->dlpi_name, RTLD_LIGHTEST);
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
191 if(lib)
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
192 dlclose(lib);
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
193 }
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
194
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
195 /* compare handles and get name if found; if d->pLib == NULL this will
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
196 enter info on first iterated object, which is the process itself */
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
197 if(lib == (void*)d->pLib) {
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
198 l = dl_strlen_strcpy(d->sOut, info->dlpi_name, d->bufSize);
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
199
405
e221473a8217 comment cleanups and clarification
Tassilo Philipp
parents: 388
diff changeset
200 /* dlpi_name might be empty for the own process (d->pLib == NULL), so */
e221473a8217 comment cleanups and clarification
Tassilo Philipp
parents: 388
diff changeset
201 /* try lookup via dladdr(proc_load_addr, ...) */
317
3df50603afa9 - dynload fix to get proc name when elf relocation is in use
Tassilo Philipp
parents: 315
diff changeset
202 if(l == 0 && d->pLib == NULL) {
3df50603afa9 - dynload fix to get proc name when elf relocation is in use
Tassilo Philipp
parents: 315
diff changeset
203 /* dlpi_addr is the reloc base (0 if PIE), find real virtual load addr */
3df50603afa9 - dynload fix to get proc name when elf relocation is in use
Tassilo Philipp
parents: 315
diff changeset
204 void* vladdr = (void*)info->dlpi_addr;
3df50603afa9 - dynload fix to get proc name when elf relocation is in use
Tassilo Philipp
parents: 315
diff changeset
205 int i = 0;
3df50603afa9 - dynload fix to get proc name when elf relocation is in use
Tassilo Philipp
parents: 315
diff changeset
206 for(; i < info->dlpi_phnum; ++i) {
3df50603afa9 - dynload fix to get proc name when elf relocation is in use
Tassilo Philipp
parents: 315
diff changeset
207 if(info->dlpi_phdr[i].p_type == PT_LOAD) {
3df50603afa9 - dynload fix to get proc name when elf relocation is in use
Tassilo Philipp
parents: 315
diff changeset
208 vladdr = (void*)(info->dlpi_addr + info->dlpi_phdr[i].p_vaddr);
3df50603afa9 - dynload fix to get proc name when elf relocation is in use
Tassilo Philipp
parents: 315
diff changeset
209 break;
3df50603afa9 - dynload fix to get proc name when elf relocation is in use
Tassilo Philipp
parents: 315
diff changeset
210 }
3df50603afa9 - dynload fix to get proc name when elf relocation is in use
Tassilo Philipp
parents: 315
diff changeset
211 }
3df50603afa9 - dynload fix to get proc name when elf relocation is in use
Tassilo Philipp
parents: 315
diff changeset
212 Dl_info di;
3df50603afa9 - dynload fix to get proc name when elf relocation is in use
Tassilo Philipp
parents: 315
diff changeset
213 if(dladdr(vladdr, &di) != 0)
3df50603afa9 - dynload fix to get proc name when elf relocation is in use
Tassilo Philipp
parents: 315
diff changeset
214 l = dl_strlen_strcpy(d->sOut, di.dli_fname, d->bufSize);
242
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
215 }
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
216 }
315
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
217
242
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
218 return l+1; /* strlen + '\0'; is 0 if lib not found, which continues iter */
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
219 }
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
220
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
221 int dlGetLibraryPath(DLLib* pLib, char* sOut, int bufSize)
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
222 {
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
223 iter_phdr_data d = { pLib, sOut, bufSize };
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
224 return dl_iterate_phdr(iter_phdr_cb, &d);
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
225 }
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
226
248
ab23f9f2934a - BeOS impl for dlGetLibraryPath
Tassilo Philipp
parents: 246
diff changeset
227
314
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid
Tassilo Philipp
parents: 312
diff changeset
228 /* glibc with neither dl_iterate_phdr() nor dlinfo() (latter introduced after former) @@@
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid
Tassilo Philipp
parents: 312
diff changeset
229 #elif defined(__GLIBC__) && !defined(DL_USE_GLIBC_ITER_PHDR)
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid
Tassilo Philipp
parents: 312
diff changeset
230
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid
Tassilo Philipp
parents: 312
diff changeset
231 @@@impl */
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid
Tassilo Philipp
parents: 312
diff changeset
232
253
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
233 /* fallback to dladdr() hack */
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
234 #else
248
ab23f9f2934a - BeOS impl for dlGetLibraryPath
Tassilo Philipp
parents: 246
diff changeset
235
314
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid
Tassilo Philipp
parents: 312
diff changeset
236 #warning "Using non-optimal code for dlGetLibraryPath() b/c of platform limitations."
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid
Tassilo Philipp
parents: 312
diff changeset
237
253
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
238 /* if nothing else is available, fall back to guessing using dladdr() - this */
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
239 /* might not always work, as it's trying to getit via the _fini() symbol, */
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
240 /* which is usually defined in ELF files, but not guaranteed */
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
241
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
242 /* @@@Note: On some platforms this might be improved, e.g. on BeOS we have */
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
243 /* lt_dlgetinfo, which requires iterating over ltdl stuff, but was unable */
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
244 /* to get that to work (would also introduce a link dependency on libltdl) */
248
ab23f9f2934a - BeOS impl for dlGetLibraryPath
Tassilo Philipp
parents: 246
diff changeset
245
ab23f9f2934a - BeOS impl for dlGetLibraryPath
Tassilo Philipp
parents: 246
diff changeset
246 int dlGetLibraryPath(DLLib* pLib, char* sOut, int bufSize)
ab23f9f2934a - BeOS impl for dlGetLibraryPath
Tassilo Philipp
parents: 246
diff changeset
247 {
315
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
248 /*@@@ missing handler for pLib == NULL*/
253
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath
Tassilo Philipp
parents: 248
diff changeset
249 /* cross fingers that shared object is standard ELF and look for _fini */
248
ab23f9f2934a - BeOS impl for dlGetLibraryPath
Tassilo Philipp
parents: 246
diff changeset
250 int l = -1;
ab23f9f2934a - BeOS impl for dlGetLibraryPath
Tassilo Philipp
parents: 246
diff changeset
251 void* s = dlsym((void*)pLib, "_fini");
ab23f9f2934a - BeOS impl for dlGetLibraryPath
Tassilo Philipp
parents: 246
diff changeset
252 if(s) {
ab23f9f2934a - BeOS impl for dlGetLibraryPath
Tassilo Philipp
parents: 246
diff changeset
253 Dl_info i;
315
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
254 if(dladdr(s, &i) != 0)
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath()
Tassilo Philipp
parents: 314
diff changeset
255 l = dl_strlen_strcpy(sOut, i.dli_fname, bufSize);
248
ab23f9f2934a - BeOS impl for dlGetLibraryPath
Tassilo Philipp
parents: 246
diff changeset
256 }
ab23f9f2934a - BeOS impl for dlGetLibraryPath
Tassilo Philipp
parents: 246
diff changeset
257 return l+1; /* strlen + '\0' */
ab23f9f2934a - BeOS impl for dlGetLibraryPath
Tassilo Philipp
parents: 246
diff changeset
258 }
ab23f9f2934a - BeOS impl for dlGetLibraryPath
Tassilo Philipp
parents: 246
diff changeset
259
242
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
260 #endif
85b61e8facfe dynload:
Tassilo Philipp
parents: 232
diff changeset
261