1 /*********************************************************************** 2 * * 3 * This software is part of the ast package * 4 * Copyright (c) 1997-2007 AT&T Knowledge Ventures * 5 * and is licensed under the * 6 * Common Public License, Version 1.0 * 7 * by AT&T Knowledge Ventures * 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