1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
/***********************************************************************
* *
* This software is part of the ast package *
* Copyright (c) 1997-2011 AT&T Intellectual Property *
* and is licensed under the *
* Eclipse Public License, Version 1.0 *
* by AT&T Intellectual Property *
* *
* A copy of the License is available at *
* http://www.eclipse.org/org/documents/epl-v10.html *
* (with md5 checksum b35adb5213ca9657e911e9befb180842) *
* *
* Information and Software Systems Research *
* AT&T Research *
* Florham Park NJ *
* *
* Glenn Fowler <gsf@research.att.com> *
* *
***********************************************************************/
#pragma prototyped
/*
* Glenn Fowler
* AT&T Research
*/
#include "dlllib.h"
/*
* find and load lib plugin/module library name with optional version ver and dlopen() flags
* at least one dlopen() is called to initialize dlerror()
* if path!=0 then library path up to size chars copied to path with trailing 0
* if name contains a directory prefix then library search is limited to the dir and siblings
*/
extern void*
dllplugin(const char* lib, const char* name, const char* ver, unsigned long rel, unsigned long* cur, int flags, char* path, size_t size)
{
void* dll;
int err;
int hit;
Dllscan_t* dls;
Dllent_t* dle;
err = hit = 0;
for (;;)
{
if (dls = dllsopen(lib, name, ver))
{
while (dle = dllsread(dls))
{
hit = 1;
#if 0
again:
#endif
if (dll = dllopen(dle->path, flags|RTLD_GLOBAL|RTLD_PARENT))
{
if (!dllcheck(dll, dle->path, rel, cur))
{
err = state.error;
dlclose(dll);
dll = 0;
continue;
}
if (path && size)
strlcpy(path, dle->path, size);
break;
}
else
{
#if 0
/*
* dlopen() should load implicit libraries
* this code does that
* but it doesn't help on galadriel
*/
char* s;
char* e;
if ((s = dllerror(1)) && (e = strchr(s, ':')))
{
*e = 0;
error(1, "AHA %s implicit", s);
dll = dllplugin(lib, s, 0, 0, 0, flags, path, size);
*e = ':';
if (dll)
{
error(1, "AHA implicit %s => %s", s, path);
goto again;
}
}
#endif
errorf("dll", NiL, 1, "%s: dlopen failed: %s", dle->path, dllerror(1));
err = state.error;
}
}
dllsclose(dls);
}
if (hit)
{
if (!dll)
state.error = err;
return dll;
}
if (!lib)
break;
lib = 0;
}
if (dll = dllopen(name, flags))
{
if (!dllcheck(dll, name, rel, cur))
{
dlclose(dll);
dll = 0;
}
else if (path && size)
strlcpy(path, name, size);
}
return dll;
}
extern void*
dllplug(const char* lib, const char* name, const char* ver, int flags, char* path, size_t size)
{
return dllplugin(lib, name, ver, 0, NiL, flags, path, size);
}
|
