1 /***********************************************************************
2 *                                                                      *
3 *               This software is part of the ast package               *
4 *          Copyright (c) 1997-2008 AT&T Intellectual Property          *
5 *                      and is licensed under the                       *
6 *                  Common Public License, Version 1.0                  *
7 *                    by AT&T Intellectual Property                     *
8 *                                                                      *
9 *                A copy of the License is available at                 *
10 *            http://www.opensource.org/licenses/cpl1.0.txt             *
11 *         (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9)         *
12 *                                                                      *
13 *              Information and Software Systems Research               *
14 *                            AT&T Research                             *
15 *                           Florham Park NJ                            *
16 *                                                                      *
17 *                 Glenn Fowler <gsf@research.att.com>                  *
18 *                                                                      *
19 ***********************************************************************/
20 #pragma prototyped
21 /*
22  * Glenn Fowler
23  * AT&T Research
24  */
25 
26 #include <ast.h>
27 #include <dlldefs.h>
28 #include <error.h>
29 
30 /*
31  * find and load lib plugin/module library name with optional version ver and dlopen() flags
32  * at least one dlopen() is called to initialize dlerror()
33  * if path!=0 then library path up to size chars copied to path with trailing 0
34  * if name contains a directory prefix then library search is limited to the dir and siblings
35  */
36 
37 extern void*
38 dllplug(const char* lib, const char* name, const char* ver, int flags, char* path, size_t size)
39 {
40 	void*		dll;
41 	int		hit;
42 	Dllscan_t*	dls;
43 	Dllent_t*	dle;
44 
45 	hit = 0;
46 	for (;;)
47 	{
48 		if (dls = dllsopen(lib, name, ver))
49 		{
50 			while (dle = dllsread(dls))
51 			{
52 				hit = 1;
53 				if (dll = dlopen(dle->path, flags|RTLD_GLOBAL|RTLD_PARENT))
54 				{
55 					if (path && size)
56 						strncopy(path, dle->path, size);
57 					break;
58 				}
59 				else
60 					errorf("dll", NiL, 1, "%s: dlopen failed: %s", dle->path, dlerror());
61 			}
62 			dllsclose(dls);
63 		}
64 		if (hit)
65 			return dll;
66 		if (!lib)
67 			break;
68 		lib = 0;
69 	}
70 	if (!(dll = dlopen(name, flags)) && !strchr(name, '/') && strchr(name, '.'))
71 		dll = dlopen(sfprints("./%s", name), flags);
72 	if (dll && path && size)
73 		strncopy(path, name, size);
74 	return dll;
75 }
76